Produced by Araxis Merge on 3/31/2017 10:45:42 AM Central Daylight Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON | fGMV_DateRange.pas | Tue Dec 13 18:25:58 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\VITALSCOMMON | fGMV_DateRange.pas | Fri Mar 31 15:01:10 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 402 |
Changed | 1 | 2 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | unit fGMV_ DateRange; | |
2 | { | |
3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
4 | * | |
5 | * Ap plication: Vitals | |
6 | * Re vision: $Revisio n: 1 $ $M odtime: 12 /20/07 12: 43p $ | |
7 | * De veloper: PII | |
8 | * Si te: Hines OI FO | |
9 | * | |
10 | * De scription: Selects two date r anges. | |
11 | * | |
12 | * No tes: | |
13 | * | |
14 | ========== ========== ========== ========== ========== ========== ========== ========== | |
15 | * $A rchive: /V itals/5.0 (Version 5 .0)/5.0.23 (Patch 23 )/VITALS_5 _0_23_8/So urce/VITAL SCOMMON/fG MV_DateRan ge.pas $ | |
16 | * | |
17 | * $History : fGMV_Dat eRange.pas $ | |
18 | * | |
19 | * ******* ********** Version 1 ******* ********** | |
20 | * User: V haishandri a Date: 8/ 12/09 T ime: 8:29a | |
21 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_8/Sourc e/VITALSCO MMON | |
22 | * | |
23 | * ******* ********** Version 1 ******* ********** | |
24 | * User: V haishandri a Date: 3/ 09/09 T ime: 3:38p | |
25 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_6/Sourc e/VITALSCO MMON | |
26 | * | |
27 | * ******* ********** Version 1 ******* ********** | |
28 | * User: V haishandri a Date: 1/ 13/09 T ime: 1:26p | |
29 | * Created in $/Vita ls/5.0 (Ve rsion 5.0) /5.0.23 (P atch 23)/V ITALS_5_0_ 23_4/Sourc e/VITALSCO MMON | |
30 | * | |
31 | * ******* ********** Version 1 ******* ********** | |
32 | * User: V haishandri a Date: 5/ 14/07 T ime: 10:29 a | |
33 | * Created in $/Vita ls GUI 200 7/Vitals-5 -0-18/VITA LSCOMMON | |
34 | * | |
35 | * ******* ********** Version 1 ******* ********** | |
36 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:43p | |
37 | * Created in $/Vita ls/VITALS- 5-0-18/Vit alsCommon | |
38 | * GUI v. 5.0.18 upd ates the d efault vit al type IE Ns with th e local | |
39 | * values. | |
40 | * | |
41 | * ******* ********** Version 1 ******* ********** | |
42 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:33p | |
43 | * Created in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /VitalsCom mon | |
44 | * | |
45 | * ******* ********** Version 1 ******* ********** | |
46 | * User: V haishandri a Date: 5/ 24/05 T ime: 3:33p | |
47 | * Created in $/Vita ls/Vitals GUI v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7 (CASMed, No CCOW) - Delphi 6/ VitalsComm on | |
48 | * | |
49 | * ******* ********** Version 1 ******* ********** | |
50 | * User: V haishandri a Date: 4/ 16/04 T ime: 4:17p | |
51 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, CPRS, Delphi 7) /VITALSCOM MON | |
52 | * | |
53 | * ******* ********** Version 1 ******* ********** | |
54 | * User: V haishandri a Date: 2/ 10/04 T ime: 2:56p | |
55 | * Created in $/Vita lsLite/Vit alsDLL | |
56 | * | |
57 | * ******* ********** Version 1 ******* ********** | |
58 | * User: V haishandri a Date: 1/ 26/04 T ime: 1:08p | |
59 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsU ser | |
60 | * | |
61 | * ******* ********** Version 1 ******* ********** | |
62 | * User: V haishandri a Date: 10 /29/03 T ime: 4:15p | |
63 | * Created in $/Vita ls503/Vita ls User | |
64 | * Version 5.0.3 | |
65 | * | |
66 | * ******* ********** Version 1 ******* ********** | |
67 | * User: V haishandri a Date: 5/ 21/03 T ime: 1:18p | |
68 | * Created in $/Vita ls GUI Ver sion 5.0/V italsUserN oCCOW | |
69 | * Pre CCO W Version of Vitals User | |
70 | * | |
71 | * ******* ********** Version 4 ******* ********** | |
72 | * User: V haishandri a Date: 8/ 30/02 T ime: 4:06p | |
73 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
74 | * Labor D ay Backup | |
75 | * | |
76 | * ******* ********** Version 3 ******* ********** | |
77 | * User: V haishpetit d Date: 6/ 20/02 T ime: 9:32a | |
78 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
79 | * t27 Bui ld | |
80 | * | |
81 | * ******* ********** Version 2 ******* ********** | |
82 | * User: V haishpetit d Date: 6/ 06/02 T ime: 11:13 a | |
83 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals User | |
84 | * Roll-up to 5.0.0. 27 | |
85 | * | |
86 | * ******* ********** Version 1 ******* ********** | |
87 | * User: V haishpetit d Date: 4/ 04/02 T ime: 11:53 a | |
88 | * Created in $/Vita ls GUI Ver sion 5.0/V itals User | |
89 | * | |
90 | * | |
91 | ========== ========== ========== ========== ========== ========== ========== ========== | |
92 | } | |
93 | interface | |
94 | ||
95 | uses | |
96 | Windows, | |
97 | Messages , | |
98 | SysUtils , | |
99 | Classes, | |
100 | Graphics , | |
101 | Controls , | |
102 | Forms, | |
103 | Dialogs, | |
104 | StdCtrls , | |
105 | ComCtrls , | |
106 | ExtCtrls ; | |
107 | ||
108 | type | |
109 | TfrmGMV_ DateRange = class(TF orm) | |
110 | Panel1 : TPanel; | |
111 | Panel5 : TPanel; | |
112 | GroupB ox1: TGrou pBox; | |
113 | lblFro m: TLabel; | |
114 | lblTo: TLabel; | |
115 | dtpFro m: TDateTi mePicker; | |
116 | dtpTo: TDateTime Picker; | |
117 | Panel2 : TPanel; | |
118 | btnOK: TButton; | |
119 | btnCan cel: TButt on; | |
120 | proced ure btnOKC lick(Sende r: TObject ); | |
121 | proced ure FormKe yDown(Send er: TObjec t; var Key : Word; | |
122 | Shif t: TShiftS tate); | |
123 | proced ure dtpFro mEnter(Sen der: TObje ct); | |
124 | proced ure dtpFro mExit(Send er: TObjec t); | |
125 | proced ure dtpToE xit(Sender : TObject) ; | |
126 | proced ure dtpToE nter(Sende r: TObject ); | |
127 | private | |
128 | public | |
129 | { Publ ic declara tions } | |
130 | end; | |
131 | ||
132 | function GetDateRa nge(var Fr omDate, To Date: TDat eTime; All owFutureDa te: Boolea n = True; AllowPastD ate: Boole an = True) : Boolean; | |
133 | ||
134 | implementa tion | |
135 | ||
136 | uses uGMV_ Common; | |
137 | ||
138 | ||
139 | {$R *.DFM} | |
140 | ||
141 | function G etDateRang e(var From Date, ToDa te: TDateT ime; Allow FutureDate : Boolean = True; Al lowPastDat e: Boolean = True): Boolean; | |
142 | begin | |
143 | with Tfr mGMV_DateR ange.Creat e(Applicat ion) do | |
144 | try | |
145 | dtpF rom.DateTi me := From Date; | |
146 | dtpT o.DateTime := ToDate ; | |
147 | dtpF rom.MaxDat e := TRunc (Now); | |
148 | dtpT o.MaxDate := dtpFrom .MaxDate; | |
149 | acti veControl := dtpFrom ; | |
150 | Show Modal; | |
151 | if M odalResult = mrOK th en | |
152 | be gin | |
153 | FromDate : = dtpFrom. Date; | |
154 | ToDate := dtpTo.Date ; | |
155 | Result := True; | |
156 | en d | |
157 | else | |
158 | Re sult := Fa lse; | |
159 | finall y | |
160 | free ; | |
161 | end; | |
162 | end; | |
163 | ||
164 | procedure TfrmGMV_Da teRange.bt nOKClick(S ender: TOb ject); | |
165 | begin | |
166 | if trunc (dtpFrom.D ateTime) < = trunc(dt pTo.DateTi me) then | |
167 | ModalR esult := m rOk | |
168 | else | |
169 | Messag eDlg('The ''Start wi th Date'' must be le ss' + #13 + | |
170 | 'than the ''Go t o Date'' v alue.', | |
171 | mtIn formation, [mbok], 0 ); | |
172 | end; | |
173 | ||
174 | procedure TfrmGMV_Da teRange.Fo rmKeyDown( Sender: TO bject; var Key: Word ; | |
175 | Shift: T ShiftState ); | |
176 | begin | |
177 | if Key = VK_ESCAPE then | |
178 | ModalR esult := m rCancel; | |
179 | end; | |
180 | ||
181 | procedure TfrmGMV_Da teRange.dt pFromEnter (Sender: T Object); | |
182 | begin | |
183 | dtpFrom. Color := c lTabIn; | |
184 | end; | |
185 | ||
186 | procedure TfrmGMV_Da teRange.dt pFromExit( Sender: TO bject); | |
187 | begin | |
188 | dtpFrom. Color := c lTabOut; | |
189 | end; | |
190 | ||
191 | procedure TfrmGMV_Da teRange.dt pToExit(Se nder: TObj ect); | |
192 | begin | |
193 | dtpTo.Co lor := clT abOut; | |
194 | end; | |
195 | ||
196 | procedure TfrmGMV_Da teRange.dt pToEnter(S ender: TOb ject); | |
197 | begin | |
198 | dtpTo.Co lor := clT abIn; | |
199 | end; | |
200 | ||
201 | end. | |
202 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.