Produced by Araxis Merge on 3/31/2017 10:45:41 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\APP-VITALSMANAGER | fGMV_AddEditQualifier.pas | Tue Dec 13 18:26:10 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\APP-VITALSMANAGER | fGMV_AddEditQualifier.pas | Fri Mar 31 14:59:53 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 562 |
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_ AddEditQua lifier; | |
2 | { | |
3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
4 | * | |
5 | * Ap plication: Vitals | |
6 | * Re vision: $Revisio n: 1 $ $M odtime: 3/ 02/09 12:0 4p $ | |
7 | * Developer: PII | |
8 | * Si te: Hines OI FO | |
9 | * | |
10 | * De scription: Form to add/edit q ualifiers | |
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/APP-V ITALSMANAG ER/fGMV_Ad dEditQuali fier.pas $ | |
16 | * | |
17 | * $History : fGMV_Add EditQualif ier.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/APP-VITA LSMANAGER | |
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/APP-VITA LSMANAGER | |
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/APP-VITA LSMANAGER | |
30 | * | |
31 | * ******* ********** Version 1 ******* ********** | |
32 | * User: V haishandri a Date: 5/ 11/07 T ime: 3:12p | |
33 | * Created in $/Vita ls GUI 200 7/Vitals-5 -0-18/APP- VITALSMANA GER | |
34 | * | |
35 | * ******* ********** Version 1 ******* ********** | |
36 | * User: V haishandri a Date: 5/ 16/06 T ime: 5:40p | |
37 | * Created in $/Vita ls/VITALS- 5-0-18/APP -VitalsMan ager | |
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:30p | |
43 | * Created in $/Vita ls/Vitals- 5-0-18/VIT ALS-5-0-18 /APP-Vital sManager | |
44 | * | |
45 | * ******* ********** Version 1 ******* ********** | |
46 | * User: V haishandri a Date: 5/ 24/05 T ime: 4:56p | |
47 | * Created in $/Vita ls/Vitals GUI v 5.0 .2.1 -5.0. 3.1 - Patc h GMVR-5-7 (CASMed, CCOW) - De lphi 6/Vit alsManager -503 | |
48 | * | |
49 | * ******* ********** Version 1 ******* ********** | |
50 | * User: V haishandri a Date: 4/ 16/04 T ime: 4:21p | |
51 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, CPRS, Delphi 7) /VITALSMAN AGER-503 | |
52 | * | |
53 | * ******* ********** Version 1 ******* ********** | |
54 | * User: V haishandri a Date: 1/ 26/04 T ime: 1:09p | |
55 | * Created in $/Vita ls/Vitals GUI Versio n 5.0.3 (C COW, Delph i7)/V5031- D7/VitalsM anager | |
56 | * | |
57 | * ******* ********** Version 7 ******* ********** | |
58 | * User: V haishandri a Date: 11 /04/02 T ime: 9:15a | |
59 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
60 | * Version 5.0.0.0 | |
61 | * | |
62 | * ******* ********** Version 6 ******* ********** | |
63 | * User: V haishandri a Date: 8/ 23/02 T ime: 5:04p | |
64 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
65 | * | |
66 | * ******* ********** Version 5 ******* ********** | |
67 | * User: V haishandri a Date: 7/ 18/02 T ime: 5:56p | |
68 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
69 | * 1. Qual ifier name case are the same a s in Datab ase | |
70 | * 2. Qual ifier List for the c ategory se lected is updated af ter editin g | |
71 | * the qua lifier des cription | |
72 | * 3. Cate gories are kept in L istView an d supplied with a hi nt if not | |
73 | * enough window spa ce | |
74 | * 4. Tree view coul d not be s tretched m ore then 3 00 pixels or shrunke n | |
75 | * less th en 150 | |
76 | * | |
77 | * ******* ********** Version 4 ******* ********** | |
78 | * User: V haishandri a Date: 7/ 09/02 T ime: 5:00p | |
79 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
80 | * | |
81 | * ******* ********** Version 3 ******* ********** | |
82 | * User: V haishandri a Date: 6/ 13/02 T ime: 5:14p | |
83 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
84 | * | |
85 | * ******* ********** Version 2 ******* ********** | |
86 | * User: V haishpetit d Date: 6/ 06/02 T ime: 11:10 a | |
87 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
88 | * Roll-up to 5.0.0. 27 | |
89 | * | |
90 | * ******* ********** Version 1 ******* ********** | |
91 | * User: V haishpetit d Date: 4/ 04/02 T ime: 3:39p | |
92 | * Created in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
93 | * | |
94 | * | |
95 | * | |
96 | ========== ========== ========== ========== ========== ========== ========== ========== | |
97 | } | |
98 | ||
99 | interface | |
100 | ||
101 | uses | |
102 | Windows, | |
103 | Messages , | |
104 | SysUtils , | |
105 | Classes, | |
106 | Graphics , | |
107 | Controls , | |
108 | Forms, | |
109 | Dialogs, | |
110 | StdCtrls , | |
111 | uGMV_Com mon, Butto ns, ExtCtr ls, uGMV_F ileEntry; | |
112 | ||
113 | type | |
114 | TfrmGMV_ AddEditQua lifier = c lass(TForm ) | |
115 | edtNam e: TEdit; | |
116 | edtAbb v: TEdit; | |
117 | Label1 : TLabel; | |
118 | Label2 : TLabel; | |
119 | Panel1 : TPanel; | |
120 | btnCan cel: TButt on; | |
121 | btnOK: TButton; | |
122 | btnApp ly: TButto n; | |
123 | proced ure edtNam eChange(Se nder: TObj ect); | |
124 | proced ure edtNam eExit(Send er: TObjec t); | |
125 | proced ure edtAbb vExit(Send er: TObjec t); | |
126 | proced ure edtAbb vEnter(Sen der: TObje ct); | |
127 | proced ure edtAbb vChange(Se nder: TObj ect); | |
128 | proced ure edtNam eEnter(Sen der: TObje ct); | |
129 | proced ure btnApp lyClick(Se nder: TObj ect); | |
130 | proced ure edtNam eKeyPress( Sender: TO bject; var Key: Char ); | |
131 | proced ure btnOKC lick(Sende r: TObject ); | |
132 | private | |
133 | FDD: s tring; | |
134 | FIENS: string; | |
135 | FQuali fierRec: T GMV_FileEn try; | |
136 | FChang eMade: Boo lean; | |
137 | { Priv ate declar ations } | |
138 | public | |
139 | { Publ ic declara tions } | |
140 | end; | |
141 | ||
142 | var | |
143 | frmGMV_A ddEditQual ifier: Tfr mGMV_AddEd itQualifie r; | |
144 | ||
145 | function N ewQualifie r: TGMV_Fi leEntry; | |
146 | procedure EditQualif ier(Qualif ier: TGMV_ FileEntry) ; | |
147 | ||
148 | implementa tion | |
149 | ||
150 | uses uGMV_ Const | |
151 | , uGMV_En gine | |
152 | ; | |
153 | ||
154 | {$R *.DFM} | |
155 | ||
156 | function N ewQualifie r: TGMV_Fi leEntry; | |
157 | var | |
158 | s, | |
159 | aNewQual ifier: str ing; | |
160 | begin | |
161 | Result : = nil; | |
162 | if Input Query('New Qualifier ', 'Qualif ier Name ( 2-50 char) :', aNewQu alifier) t hen | |
163 | if aNe wQualifier <> '' the n | |
164 | begi n | |
165 | s := addNewQ ualifier(a NewQualifi er); | |
166 | if piece(s, '^', 1) = '-1' then | |
167 | begin | |
168 | MessageD lg('Unable to create qualifier '+#13+piec e(s, '^', 2), mtErro r, [mbok], 0); | |
169 | end | |
170 | el se | |
171 | begin | |
172 | Result : = TGMV_Fil eEntry.Cre ateFromRPC (s); | |
173 | GMVQuals .Entries.A ddObject(R esult.Capt ion, Resul t); | |
174 | EditQual ifier({Bro ker, }Resu lt); | |
175 | end; | |
176 | end; | |
177 | end; | |
178 | ||
179 | procedure EditQualif ier({Broke r: TRPCBro ker; }Qual ifier: TGM V_FileEntr y); | |
180 | begin | |
181 | with Tfr mGMV_AddEd itQualifie r.Create(A pplication ) do | |
182 | try | |
183 | FQua lifierRec := Qualifi er; | |
184 | FDD := Qualifi er.DDNumbe r; | |
185 | FIEN S := Quali fier.IENS; | |
186 | edtN ame.Text : = Qualifie r.FieldDat a('.01'); | |
187 | edtA bbv.Text : = Qualifie r.FieldDat a('.02'); | |
188 | Show Modal; | |
189 | finall y | |
190 | free ; | |
191 | end; | |
192 | end; | |
193 | ||
194 | procedure TfrmGMV_Ad dEditQuali fier.edtNa meEnter(Se nder: TObj ect); | |
195 | begin | |
196 | FChangeM ade := Fal se; | |
197 | btnApply .Enabled : = False;// AAN 06/12/ 02 | |
198 | end; | |
199 | ||
200 | procedure TfrmGMV_Ad dEditQuali fier.edtNa meKeyPress (Sender: T Object; va r Key: Cha r); | |
201 | begin | |
202 | //AAN 07/1 8/2002 if Key in [' a'..'z'] t hen | |
203 | //AAN 07/1 8/2002 Dec(Key, 3 2); | |
204 | end; | |
205 | ||
206 | procedure TfrmGMV_Ad dEditQuali fier.edtNa meChange(S ender: TOb ject); | |
207 | begin | |
208 | FChangeM ade := Tru e; | |
209 | btnApply .Enabled : = True;//A AN 06/12/0 2 | |
210 | end; | |
211 | ||
212 | procedure TfrmGMV_Ad dEditQuali fier.edtNa meExit(Sen der: TObje ct); | |
213 | var | |
214 | s: Strin g; | |
215 | begin | |
216 | if FChan geMade the n | |
217 | begin | |
218 | s := validateQ ualifierNa me(FDD,FIE NS,'.01',e dtName.tex t); | |
219 | if p iece(s, '^ ', 1) = '- 1' then | |
220 | be gin | |
221 | MessageDlg (piece(s, '^', 2), m tError, [m bOK], 0); | |
222 | edtName.Te xt := FQua lifierRec. FieldData( '.01'); | |
223 | edtName.Se tFocus; | |
224 | en d; | |
225 | FCha ngeMade := False; | |
226 | btnA pply.Enabl ed := Fals e;//AAN 06 /12/02 | |
227 | end; | |
228 | end; | |
229 | ||
230 | procedure TfrmGMV_Ad dEditQuali fier.edtAb bvEnter(Se nder: TObj ect); | |
231 | begin | |
232 | FChangeM ade := Fal se; | |
233 | btnApply .Enabled : = False;// AAN 06/12/ 02 | |
234 | end; | |
235 | ||
236 | procedure TfrmGMV_Ad dEditQuali fier.edtAb bvChange(S ender: TOb ject); | |
237 | begin | |
238 | FChangeM ade := Tru e; | |
239 | btnApply .Enabled : = True;//A AN 06/12/0 2 | |
240 | end; | |
241 | ||
242 | procedure TfrmGMV_Ad dEditQuali fier.edtAb bvExit(Sen der: TObje ct); | |
243 | var | |
244 | s: Strin g; | |
245 | begin | |
246 | if FChan geMade the n | |
247 | begin | |
248 | s := validateQ ualifierNa me(FDD,FIE NS,'.02',e dtAbbv.tex t); | |
249 | if p iece(s, '^ ', 1) = '- 1' then | |
250 | be gin | |
251 | MessageDlg (piece(s, '^', 2), m tError, [m bOK], 0); | |
252 | edtAbbv.Te xt := FQua lifierRec. FieldData( '.02'); | |
253 | edtAbbv.Se tFocus; | |
254 | en d; | |
255 | FCha ngeMade := False; | |
256 | btnA pply.Enabl ed := Fals e;//AAN 06 /12/02 | |
257 | end; | |
258 | end; | |
259 | ||
260 | procedure TfrmGMV_Ad dEditQuali fier.btnAp plyClick(S ender: TOb ject); | |
261 | var | |
262 | i: Integ er; | |
263 | begin | |
264 | i := GMV Quals.Entr ies.IndexO fObject(FQ ualifierRe c);// AAN 08/22/2002 | |
265 | ||
266 | setQuali fierName(F DD,FIENS,' .01',edtNa me.text); | |
267 | setQuali fierName(F DD,FIENS,' .02',edtAb bv.text); | |
268 | ||
269 | FQualifi erRec.Capt ion := FQu alifierRec .FieldData ('.01'); | |
270 | try | |
271 | GMVQua ls.Entries [i] := FQu alifierRec .Caption; | |
272 | except | |
273 | end; | |
274 | btnApply .Enabled : = False;// AAN 06/12/ 02 | |
275 | end; | |
276 | ||
277 | procedure TfrmGMV_Ad dEditQuali fier.btnOK Click(Send er: TObjec t); | |
278 | begin | |
279 | btnApply Click(Send er); | |
280 | end; | |
281 | ||
282 | end. |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.