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\APP-VITALSMANAGER | fGMV_NewTemplate.pas | Tue Dec 13 18:26:08 2016 UTC |
2 | CPRS v31A.zip\CPRS v31A\VITL5_P34_src.zip\Source\APP-VITALSMANAGER | fGMV_NewTemplate.pas | Fri Mar 31 14:59:56 2017 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 418 |
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_ NewTemplat e; | |
2 | { | |
3 | ========== ========== ========== ========== ========== ========== ========== ========== | |
4 | * | |
5 | * Ap plication: Vitals | |
6 | * Re vision: $Revisio n: 1 $ $M odtime: 12 /20/07 12: 43p $ | |
7 | * Developer: PII | |
8 | * Si te: Hines OI FO | |
9 | * | |
10 | * De scription: Create f orm for a new vitals input tem plate. | |
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_Ne wTemplate. pas $ | |
16 | * | |
17 | * $History : fGMV_New Template.p as $ | |
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:13p | |
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 3 ******* ********** | |
58 | * User: V haishandri a Date: 8/ 02/02 T ime: 4:14p | |
59 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
60 | * Weekly backup | |
61 | * | |
62 | * ******* ********** Version 2 ******* ********** | |
63 | * User: V haishpetit d Date: 6/ 06/02 T ime: 11:11 a | |
64 | * Updated in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
65 | * Roll-up to 5.0.0. 27 | |
66 | * | |
67 | * ******* ********** Version 1 ******* ********** | |
68 | * User: V haishpetit d Date: 4/ 04/02 T ime: 3:42p | |
69 | * Created in $/Vita ls GUI Ver sion 5.0/V itals Mana ger | |
70 | * | |
71 | * | |
72 | * | |
73 | ========== ========== ========== ========== ========== ========== ========== ========== | |
74 | } | |
75 | ||
76 | interface | |
77 | ||
78 | uses | |
79 | Windows, | |
80 | Messages , | |
81 | SysUtils , | |
82 | Classes, | |
83 | Graphics , | |
84 | Controls , | |
85 | Forms, | |
86 | Dialogs, | |
87 | StdCtrls , | |
88 | ExtCtrls , | |
89 | // TRPCB, | |
90 | uGMV_Com mon, | |
91 | mGMV_Loo kup, | |
92 | uGMV_Tem plate | |
93 | ; | |
94 | ||
95 | type | |
96 | TfrmGMV_ NewTemplat e = class( TForm) | |
97 | rgTemp lateType: TRadioGrou p; | |
98 | edtTem plateName: TEdit; | |
99 | lblTyp e: TLabel; | |
100 | lblNam e: TLabel; | |
101 | btnCan cel: TButt on; | |
102 | btnOK: TButton; | |
103 | edtTem plateDescr iption: TE dit; | |
104 | Label1 : TLabel; | |
105 | fraEnt ityLookup: TfraGMV_L ookup; | |
106 | proced ure rgTemp lateTypeCl ick(Sender : TObject) ; | |
107 | proced ure btnOKC lick(Sende r: TObject ); | |
108 | proced ure FormCr eate(Sende r: TObject ); | |
109 | private | |
110 | // FBro ker: TRPCB roker; | |
111 | { Priv ate declar ations } | |
112 | public | |
113 | { Publ ic declara tions } | |
114 | end; | |
115 | ||
116 | var | |
117 | frmGMV_N ewTemplate : TfrmGMV_ NewTemplat e; | |
118 | ||
119 | //function CreateNew Template(B roker: TRP CBroker): TGMV_Templ ate; | |
120 | function C reateNewTe mplate: TG MV_Templat e; | |
121 | ||
122 | implementa tion | |
123 | ||
124 | uses uGMV_ Const | |
125 | //, fROR_P Call | |
126 | , uGMV_Eng ine; | |
127 | ||
128 | {$R *.DFM} | |
129 | ||
130 | //function CreateNew Template(B roker: TRP CBroker): TGMV_Templ ate; | |
131 | function C reateNewTe mplate: TG MV_Templat e; | |
132 | var | |
133 | s,ss:Str ing; | |
134 | Entity: string; | |
135 | begin | |
136 | with Tfr mGMV_NewTe mplate.Cre ate(applic ation) do | |
137 | try | |
138 | ShowMo dal; | |
139 | // FBro ker := Bro ker; | |
140 | if Mod alResult < > mrOK the n | |
141 | Resu lt := nil | |
142 | else | |
143 | begi n | |
144 | ca se rgTempl ateType.It emIndex of | |
145 | 0: Entity := 'SYS'; | |
146 | 1: Entity := fraEnti tyLookup.I EN + ';DIC (4,'; | |
147 | 2: Entity := fraEnti tyLookup.I EN + ';SC( '; | |
148 | 3: Entity := fraEnti tyLookup.I EN + ';VA( 200,'; | |
149 | en d; | |
150 | s := edtTemp lateDescri ption.Text ; | |
151 | ss := edtTem plateName. Text; | |
152 | ||
153 | // CallREMOTE Proc(Broke r, RPC_MAN AGER,['NEW TEMP', Ent ity + '^' + edtTempl ateName.Te xt + '^' + edtTempla teDescript ion.Text], nil); | |
154 | // if piece(B roker.Resu lts[0], '^ ') = '-1' then | |
155 | s := NewTemp late(Entit y,edtTempl ateName.Te xt,edtTemp lateDescri ption.Text ); | |
156 | if piece(s, '^') = '-1 ' then | |
157 | begin | |
158 | MessageD lg('Unable to Create New Templ ate' | |
159 | // + #13 +'Reason: '+#13+'<'+ piece(s, '^',2)+'>' | |
160 | , | |
161 | mtErro r, [mbOK], 0); | |
162 | Result : = nil; | |
163 | end | |
164 | el se | |
165 | // Result : = TGMV_Tem plate.Crea teFromXPAR (Broker.Re sults[0]); | |
166 | Result := TGMV_Templ ate.Create FromXPAR(s ); | |
167 | end; | |
168 | finally | |
169 | free; | |
170 | end; | |
171 | end; | |
172 | ||
173 | procedure TfrmGMV_Ne wTemplate. rgTemplate TypeClick( Sender: TO bject); | |
174 | begin | |
175 | fraEntit yLookup.En abled := ( rgTemplate Type.ItemI ndex > 0); | |
176 | lblType. Caption := rgTemplat eType.Item s[rgTempla teType.Ite mIndex] + ' Name:'; | |
177 | if rgTem plateType. ItemIndex > 0 then | |
178 | begin | |
179 | // fr aEntityLoo kup.InitFr ame(RPCBro ker, piece ('4^44^200 ', '^', rg TemplateTy pe.ItemInd ex)); | |
180 | fraE ntityLooku p.InitFram e(piece('4 ^44^200', '^', rgTem plateType. ItemIndex) ); | |
181 | fraE ntityLooku p.Enabled := True; | |
182 | end | |
183 | else | |
184 | begin | |
185 | fraE ntityLooku p.edtValue .Text := ' SYSTEM'; | |
186 | fraE ntityLooku p.Enabled := False; | |
187 | end; | |
188 | end; | |
189 | ||
190 | procedure TfrmGMV_Ne wTemplate. btnOKClick (Sender: T Object); | |
191 | begin | |
192 | if rgTem plateType. ItemIndex < 0 then | |
193 | Messag eDlg('Plea se select a Template Type', mt Informatio n, [mbok], 0) | |
194 | else if (fraEntity Lookup.IEN = '') and (rgTempla teType.Ite mIndex > 0 ) then | |
195 | Messag eDlg('Plea se select a ' + rgTe mplateType .Items[rgT emplateTyp e.ItemInde x], mtInfo rmation, [ mbok], 0) | |
196 | else if edtTemplat eName.Text = '' then | |
197 | Messag eDlg('Plea se enter a name for this templ ate.', mtI nformation , [mbok], 0) | |
198 | else | |
199 | ModalR esult := m rOK; | |
200 | end; | |
201 | ||
202 | procedure TfrmGMV_Ne wTemplate. FormCreate (Sender: T Object); | |
203 | begin | |
204 | rgTempla teType.Ite mIndex := 0; | |
205 | edtTempl ateName.Te xt := ''; | |
206 | edtTempl ateDescrip tion.Text := ''; | |
207 | end; | |
208 | ||
209 | end. | |
210 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.