Download as
Browse Code »

Commit d61eb0d2b9b743c5f0e46ef7bd6e7bc80ce3afc6

Authored by anderson.peterle@previdencia.gov.br
1 parent 090c3060
Exists in master

Exclusão para reposição com versão 2.6-Beta-2 

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@979 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 17 changed files with 0 additions and 2646 deletions   Show diff stats
mapa/LEIAME
View file @090c306
... ... @@ -1,2 +0,0 @@
1   -
2   -Esse módulo foi desenvolvido para atender à necessidade de coleta de informações patrimoniais de forma seletiva por estação, onde o técnico vai presencialmente e, de posse do nível de acesso "Técnico" no módulo gerente WEB, realiza o preenchimento dos campos relativos ao Patrimônio e Localização Física.
mapa/acesso.dcu
View file @090c306
No preview for this file type
mapa/acesso.ddp
View file @090c306
No preview for this file type
mapa/acesso.dfm
View file @090c306
... ... @@ -1,334 +0,0 @@
1   -object frmAcesso: TfrmAcesso
2   - Left = 301
3   - Top = 147
4   - BorderIcons = []
5   - BorderStyle = bsSingle
6   - Caption =
7   - 'MapaCacic - M'#243'dulo Avulso para Coleta de Informa'#231#245'es Patrimoniai' +
8   - 's'
9   - ClientHeight = 305
10   - ClientWidth = 605
11   - Color = clBtnFace
12   - Font.Charset = DEFAULT_CHARSET
13   - Font.Color = clWindowText
14   - Font.Height = -11
15   - Font.Name = 'MS Sans Serif'
16   - Font.Style = []
17   - Icon.Data = {
18   - 0000010001003232000001000800E00F00001600000028000000320000006400
19   - 00000100080000000000B80B0000000000000000000000010000000000000000
20   - 0000FFFFFF006699FF0099FFFF0066FFFF000033FF00002BD70000156A001534
21   - 380065CA320063C6310052A529004B9625002C59160066CC330066CB330060C0
22   - 30005DBA2F0059B12D00376D1C004589240059B233001A350F003C77240054A8
23   - 370034672200234618001E3B150050A23C00478A37000F1E0C004F9940001223
24   - 0F00315D2A00152A1200539E4A003D7238002A5028001223130026462800438E
25   - 49000E1C10003F874B003A7E4600326D3D00101F130068BD7B00457C57006BC0
26   - 8A00294935006FC395000B16120012231D001B413500357B680074C7B0002851
27   - 47001B4239000E1B18006AB4AA007BD0C400183E3B000F2524007FD5D2008BE9
28   - E70088E4E30086E0DE00183E3E004FC8C8003D9A9A00193F3F001C4444001C41
29   - 41001F4545001E3B3B0097FDFD0095FAFA008EEEEE008CEBEB0087E2E20081D8
30   - D8005D9C9C003B63630098FEFE0093F5F50090F0F00079CACA006BB3B300416C
31   - 6C0047757500122E2F00235455006FBBBF004D8285004A7C7F0015353800538D
32   - 94003255590060A2A900416F76002B494D0050878E002C6D79001526290078CB
33   - D8004D8590001C30350031C4F60033CCFF0033CAFD0032C5F80031BFF10031B8
34   - EA0032B0E400296781001E36400032AADD0013354400508EAA004E89A3001E34
35   - 3E0033A1D50035A5DA005CA3C800369AD00030566A0061ACD5003892CA000409
36   - 0C00569BC600368BC2000E1A220027475D00223F55000B263D001D4F78003C89
37   - C500060C1100549BD5001F394E004F92CC00235A8E004388CD00285B99004688
38   - D6004989D200335E93001E324900030C180010315B0018315100071934003369
39   - B500020407003E7ED600152A4800080E17004F88D8004D85D300548DE1001444
40   - 96005A8EE9005C90EC000C131F005E92F000141F33001145AD00010204000305
41   - 09000E1625001B2A47000D1422000B111D00111A2C000F1727001E2E4D004A70
42   - BC003956910036528900273B63006598FE006395F9006295F7006192F4006090
43   - F1005E8EED005B8AE500517ACC004C73C000486CB500466AB1004264A7004162
44   - A4004060A1006597FD006496FA005E8DEB005D8BE9005A87E1005985DF005782
45   - DA00547ED2004E75C3004466AA003F5E9D00354F8400324B7D002C426E002A3F
46   - 690024365A0022335500203050001A2741003C5A95000A0F1A00162138002639
47   - 60004F76C6004567AD000E3288000F2B70000938B900040D2400184AD2000736
48   - C50002030600032BBF000837D7000629A7000032FE000031FD000031F9000031
49   - F5000030F100002FEB00002CDF000029D0000028C8000026BF000024B600001E
50   - 9800001D9300001A880000187D0000156C0000156B0000146400000E4900000A
51   - 3500000724000230E3000534E60000051D0001092D0000000100FFFFFF000000
52   - 0000F9FC00000000000000000000000000000000000000000000000000000000
53   - 00000000000000000000FC0000000000000000000000F6F60000000000000000
54   - 000000000000000000000000000000000000000000000000000000000000F0F8
55   - 000000000000000000FDE8E7F800000000000000000000000000000000000000
56   - 0000000000000000000000000000000000F705EBF900000000000000F9ED0505
57   - ECF9000000000000000000000000000000000000000000000000000000000000
58   - 00000000FDE90505F100000000000000F605050505F800000000000000000000
59   - 000000000000000000000000000000000000000000000000F7050505E5F80000
60   - 000000F9EA05050505F600000000000000000000000000000000000000000000
61   - 000000000000000000000000E4E5050505EE0000000000F705050505E5EE0000
62   - 00000000000000000000000000000000000000000000000000000000000000FD
63   - E905050505E5FD00000000A5DCEAE5E6EAEFDE00000000000000000000000000
64   - 00000000000000000000000000000000000000DEEDE8050506DCA30000008057
65   - 5096EBDB7D626A00000000000000000000000000000000000000000000000000
66   - 0000000000000064608BE2E2844E630000008356034D96840303640000000000
67   - 0000000000000000ABAEAEAEAE00000000000000000000000000005D034C9B85
68   - 4C036000000083500303424F0303630000000000000000ABA5CFD5BDBBC5B4B7
69   - C8BCC0CDAAA90000000000000000995703535655030362000000805703030303
70   - 03035E0000000000A9D7B1BA02020202020202020202020202B5BDD2AE000000
71   - 0000895C0303030303036300000000614B030303030364000000A3D3C6020202
72   - 02020202020202020202020202020202C3B1A900000000605303030303546A00
73   - 0000001E314F030303503300D6A5BB0202020202020202020202B70202020202
74   - 020202020202B8CFAB0000344D030353562720000000002012275603572720A3
75   - C102020202020202020202B9D5D2B3D1CFBD02020202020202020202C7A5001E
76   - 3150033B250B290000000080170A2531171433CAC3020202020202020202C7D3
77   - BCB40202C4D5B3B70202020202020202C2B7D4290B2138190F1A000000000000
78   - 2914091A091BB09F7C8E0202020202020202D3B9020202020202BBB302020202
79   - 020202B67F7FA2AE190E110E1020000000000000AD515959A226A19E716D7FB5
80   - 0202020202D9B10202020202020202CCBF0202020202A47C6C799DB720090E0F
81   - 1A000000000000AE5D593B5159B7717C9E746C7CA40202020202C20202020202
82   - 02020202B502020202A17A6C7C9D747A93190919330000000000AB5159BD5157
83   - 5159C36C7A9E796C79A10202020202020202020202020202020202029F716C7F
84   - 9D716D88B5261334A300000000006F6590D9BD513B5159B46C719E7C6C79A102
85   - 0202020202020202020202020202029D706D88916F6B88B402BD3A02CDAC0000
86   - 00006F6F6F9FBCBD513B5159026D7091828E0202020202020202020202020202
87   - 020202C288888E6B6F8E02020202020202CF00000000006F6F6E9F9ADA515751
88   - 59B46B74BA02020202020202020202020202020202020202029E6F7091020202
89   - 020202020202D3000000AEC26F6F029F9ABD51575159029D0202020202020202
90   - 02020202020202020202020202028E9D02020202020202020202C6AE0000A502
91   - 026F6D6F9FD9BD513B5159020202020202020202020202020202020202020202
92   - 020202020202020202020202020202D70000ADB4026F6F686E9FD9BD51575102
93   - 0202020202020202020202020202020202020202020202020202020202020202
94   - 020202AD000000C002026F6F6F027A9ABD513B59BAC8C9D9B0BDDABA02020202
95   - 020202BADABDB0D9C9C8BAB8B4020202020202020202BED6000000A3C002026F
96   - 6F6F6E9FD9BD3B5159B1CCBFBEBDBC020202020202020202BCBDBEBFCCB1B2CC
97   - B502020202020202B9D8AC00000000009CB802026F6F6C027A9A515751020202
98   - 02020202020202020202020202020202020202020202020202020202AA000000
99   - 00000000FED4BFB9026F6C6FA4BCBD5151510259595959595959595902020202
100   - 02020202020202020202020202C3CAD0E1000000000000000000FED6A5D20268
101   - 6EB9D951515159595959595959595959595902020202020202020202B9BBC1D0
102   - D4AB9900000000000000000000000000000000026F6F56513B5759595900320F
103   - 00000059595959C1B1CECFD8D2AAA5A9D6A80000000000000000000000000000
104   - 0000000000000000026F6F6F59595959000F0F0F000000000059595900000000
105   - 0000000000000000000000000000000000000000000000000000000000006F6F
106   - 5959590000000000000000000000595959000000000000000000000000000000
107   - 0000000000000000000000000000000000000059595906060606060606060606
108   - 0606065959590000000000000000000000000000000000000000000000000000
109   - 00000000000000595906060F0F0F060606060606060606065959000000000000
110   - 0000000000000000000000000000000000FD070707070707070759595906060F
111   - 0F06060606060606060606062E5959070707070707070707070707F4FC000000
112   - 0000000000F8EF06060606060606595959060F0F060606060606060606060606
113   - 0F5959060606060606060606060606F100000000000000000000945A08080808
114   - 0859590000000000000F0F0F0000000000000000005959080808080808080808
115   - 085F3E0000000000000000000000005A4404040404595932033204040F0F0404
116   - 040404040404040404595904040404040404040404455A000000000000000000
117   - 000000008646354748595905030332320F3204323204040404040404042F5949
118   - 4375393D49467535474A0000000000000000000000000000EE95175864595959
119   - 0503560F0F04323204040404040404042E59595E78F10D1651DEF11400570000
120   - 000000000000000000000000E8A0103762E65959050556033232320432043204
121   - 040415153259123F77E52B1D038FE91F1F0300000000000000000000000000EF
122   - 05E00A304CE3595959055603032E2E2E2E0505050505151559590F3250EA7211
123   - 42810536184B57000000000000000000000000EE05FA112E03DFDD5959055603
124   - 03012E2E2E0505050505153259E00E324DFA8D093C7B056615555C0000000000
125   - 00000000000000EE05E9152E03DFE0595959560303322E2E2E3205050505322E
126   - 59E009304CE38D0F377E057211415C000000000000000000000000EF05E00932
127   - 4EFBA60E59595903032E2E2E2E3205050505595959A60E3768E76615558C0536
128   - 184B570000000000000000000000000005A00A375C058711405959592E2E2E2E
129   - 2E05050559595959058712407B052A1C0398E81C230300000000000000000000
130   - 0000000006380C5669EB2C143F8D5959592E2E2E2E32595959593F65EB2C143F
131   - 92ED0B2442E4EF122F5600000000000000000000000000000700005800070000
132   - 5800000D5959595959595959000059000700005800000D005800000D00000000
133   - 000000000000F3FFFFFFFFF7C000F3FFFFFFFFF3C000E1FFFFFFFFE1C000C0FF
134   - FFFFFFC1C000C0FFFFFFFFC0C00080FFFFFFFFC0C00080FFFFFFFF804000807F
135   - FFFFFF804000007FFFFFFF804000007FFC1FFF804000007F8000FF004000007C
136   - 00001F0040008070000007804000804000000180400080000000008040008000
137   - 00000000C000C00000000000C000C00000000001C000800000000001C0000000
138   - 00000001C000000000000000C000000000000000C00080000000000040000000
139   - 0000000000000000000000000000000000000000000080000000000000008000
140   - 0000000040008000000000004000800000000000400080000000000040008000
141   - 00000000C000C00000000000C000C00000000000C000C00000000001C000E000
142   - 00000001C000E00000000001C000E00000000003C000F00000000007C000F800
143   - 00000007C000FC000000000FC000FC000000002FC000FC000000000FC000F800
144   - 00000007C000F80000000007C000F80000000007C000F80000000007C000FC00
145   - 0000000FC000FC000000000FC000FDAD8035B5BFC000}
146   - KeyPreview = True
147   - OldCreateOrder = False
148   - Position = poDesktopCenter
149   - OnActivate = FormActivate
150   - OnCreate = FormCreate
151   - OnKeyDown = FormKeyDown
152   - OnShow = FormShow
153   - PixelsPerInch = 96
154   - TextHeight = 13
155   - object lbVersao: TLabel
156   - Left = 512
157   - Top = 289
158   - Width = 90
159   - Height = 13
160   - Alignment = taRightJustify
161   - AutoSize = False
162   - Caption = 'Vers'#227'o: X.X.X.X'
163   - Font.Charset = DEFAULT_CHARSET
164   - Font.Color = clWindowText
165   - Font.Height = -9
166   - Font.Name = 'Arial'
167   - Font.Style = []
168   - ParentFont = False
169   - end
170   - object lbTeWebManagerAddress: TLabel
171   - Left = 1
172   - Top = 289
173   - Width = 153
174   - Height = 13
175   - AutoSize = False
176   - Caption = 'Endere'#231'o do Servidor de Aplica'#231#227'o:'
177   - Font.Charset = DEFAULT_CHARSET
178   - Font.Color = clWindowText
179   - Font.Height = -9
180   - Font.Name = 'Arial'
181   - Font.Style = []
182   - ParentFont = False
183   - end
184   - object edTeWebManagerAddress: TLabel
185   - Left = 156
186   - Top = 287
187   - Width = 146
188   - Height = 14
189   - Caption = 'EdTeWebManagerAddress'
190   - Font.Charset = DEFAULT_CHARSET
191   - Font.Color = clWindowText
192   - Font.Height = -11
193   - Font.Name = 'Arial'
194   - Font.Style = [fsBold]
195   - ParentFont = False
196   - end
197   - object btAcesso: TButton
198   - Left = 177
199   - Top = 242
200   - Width = 105
201   - Height = 33
202   - Caption = 'Acessar'
203   - Default = True
204   - Enabled = False
205   - Font.Charset = DEFAULT_CHARSET
206   - Font.Color = clWindowText
207   - Font.Height = -16
208   - Font.Name = 'Arial'
209   - Font.Style = [fsBold]
210   - ParentFont = False
211   - TabOrder = 0
212   - OnClick = btAcessoClick
213   - end
214   - object btCancela: TButton
215   - Left = 333
216   - Top = 242
217   - Width = 105
218   - Height = 33
219   - Caption = 'Cancelar'
220   - Font.Charset = DEFAULT_CHARSET
221   - Font.Color = clWindowText
222   - Font.Height = -16
223   - Font.Name = 'Arial'
224   - Font.Style = [fsBold]
225   - ParentFont = False
226   - TabOrder = 1
227   - OnClick = btCancelaClick
228   - end
229   - object pnAcesso: TPanel
230   - Left = 2
231   - Top = 3
232   - Width = 602
233   - Height = 196
234   - BevelInner = bvRaised
235   - BevelOuter = bvLowered
236   - TabOrder = 2
237   - object lbNomeUsuarioAcesso: TLabel
238   - Left = 56
239   - Top = 35
240   - Width = 127
241   - Height = 20
242   - Caption = 'Nome de Usu'#225'rio:'
243   - Font.Charset = DEFAULT_CHARSET
244   - Font.Color = clWindowText
245   - Font.Height = -16
246   - Font.Name = 'MS Sans Serif'
247   - Font.Style = []
248   - ParentFont = False
249   - end
250   - object lbSenhaAcesso: TLabel
251   - Left = 394
252   - Top = 35
253   - Width = 130
254   - Height = 20
255   - Caption = 'Senha de Acesso:'
256   - Font.Charset = DEFAULT_CHARSET
257   - Font.Color = clWindowText
258   - Font.Height = -16
259   - Font.Name = 'MS Sans Serif'
260   - Font.Style = []
261   - ParentFont = False
262   - end
263   - object lbAviso: TLabel
264   - Left = 4
265   - Top = 121
266   - Width = 593
267   - Height = 13
268   - Alignment = taCenter
269   - AutoSize = False
270   - Caption =
271   - 'ATEN'#199#195'O: O usu'#225'rio deve estar cadastrado no Gerente WEB e deve t' +
272   - 'er acesso PRIM'#193'RIO ou SECUND'#193'RIO a este local'
273   - Font.Charset = DEFAULT_CHARSET
274   - Font.Color = clNavy
275   - Font.Height = -11
276   - Font.Name = 'MS Sans Serif'
277   - Font.Style = []
278   - ParentFont = False
279   - end
280   - object edNomeUsuarioAcesso: TEdit
281   - Left = 56
282   - Top = 55
283   - Width = 150
284   - Height = 28
285   - Font.Charset = DEFAULT_CHARSET
286   - Font.Color = clWindowText
287   - Font.Height = -16
288   - Font.Name = 'MS Sans Serif'
289   - Font.Style = []
290   - MaxLength = 20
291   - ParentFont = False
292   - TabOrder = 0
293   - OnKeyUp = edNomeUsuarioAcessoKeyUp
294   - end
295   - object edSenhaAcesso: TEdit
296   - Left = 394
297   - Top = 55
298   - Width = 150
299   - Height = 28
300   - Font.Charset = DEFAULT_CHARSET
301   - Font.Color = clWindowText
302   - Font.Height = -16
303   - Font.Name = 'MS Sans Serif'
304   - Font.Style = []
305   - ParentFont = False
306   - PasswordChar = #7
307   - TabOrder = 1
308   - OnKeyUp = edSenhaAcessoKeyUp
309   - end
310   - end
311   - object pnMensagens: TPanel
312   - Left = 1
313   - Top = 200
314   - Width = 602
315   - Height = 24
316   - BevelInner = bvLowered
317   - TabOrder = 3
318   - object lbMsg_Erro_Senha: TLabel
319   - Left = 3
320   - Top = 4
321   - Width = 589
322   - Height = 17
323   - Alignment = taCenter
324   - AutoSize = False
325   - end
326   - end
327   - object tm_Mensagem: TTimer
328   - Enabled = False
329   - Interval = 5000
330   - OnTimer = tm_MensagemTimer
331   - Left = 282
332   - Top = 241
333   - end
334   -end
mapa/acesso.pas
View file @090c306
... ... @@ -1,246 +0,0 @@
1   -(**
2   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
3   -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
4   -
5   -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
6   -
7   -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
8   -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
9   -
10   -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
11   -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
12   -
13   -Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
14   -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
15   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
16   -*)
17   -
18   -unit acesso;
19   -
20   -interface
21   -
22   -uses
23   - Windows,
24   - Messages,
25   - SysUtils,
26   - Variants,
27   - Classes,
28   - Graphics,
29   - Controls,
30   - Forms,
31   - StdCtrls,
32   - ExtCtrls,
33   - dialogs;
34   -
35   -type
36   - TfrmAcesso = class(TForm)
37   - btAcesso: TButton;
38   - btCancela: TButton;
39   - pnAcesso: TPanel;
40   - lbNomeUsuarioAcesso: TLabel;
41   - edNomeUsuarioAcesso: TEdit;
42   - lbSenhaAcesso: TLabel;
43   - edSenhaAcesso: TEdit;
44   - pnMensagens: TPanel;
45   - lbMsg_Erro_Senha: TLabel;
46   - lbAviso: TLabel;
47   - tm_Mensagem: TTimer;
48   - lbVersao: TLabel;
49   - lbTeWebManagerAddress: TLabel;
50   - edTeWebManagerAddress: TLabel;
51   - procedure btAcessoClick(Sender: TObject);
52   - procedure btCancelaClick(Sender: TObject);
53   - procedure FormCreate(Sender: TObject);
54   - procedure edNomeUsuarioAcessoKeyUp(Sender: TObject; var Key: Word;
55   - Shift: TShiftState);
56   - procedure FormShow(Sender: TObject);
57   - procedure edSenhaAcessoKeyUp(Sender: TObject; var Key: Word;
58   - Shift: TShiftState);
59   - procedure tm_MensagemTimer(Sender: TObject);
60   - procedure FormActivate(Sender: TObject);
61   - function VerificaVersao : boolean;
62   - procedure FormKeyDown(Sender: TObject; var Key: Word;
63   - Shift: TShiftState);
64   - private
65   - { Private declarations }
66   - public
67   - { Public declarations }
68   - end;
69   -
70   -var
71   - frmAcesso: TfrmAcesso;
72   -
73   -implementation
74   -uses main_mapa;
75   -{$R *.dfm}
76   -
77   -procedure TfrmAcesso.btAcessoClick(Sender: TObject);
78   -var Request_mapa : TStringList;
79   - strRetorno,
80   - str_local_Aux : String;
81   -begin
82   - frmMapaCacic.boolAcessoOK := false;
83   - Request_mapa:=TStringList.Create;
84   -
85   - lbMsg_Erro_Senha.Caption := str_local_Aux;
86   -
87   - // Autenticação de Programa e Usuário
88   - Request_mapa.Values['nm_acesso'] := g_oCacic.enCrypt(edNomeUsuarioAcesso.Text);
89   - Request_mapa.Values['te_senha'] := g_oCacic.enCrypt(edSenhaAcesso.Text);
90   - Request_mapa.Values['cs_MapaCacic'] := g_oCacic.enCrypt('S');
91   - Request_mapa.Values['te_operacao'] := g_oCacic.enCrypt('Autentication');
92   - Request_mapa.Values['te_versao_mapa'] := g_oCacic.enCrypt(g_oCacic.getVersionInfo(ParamStr(0)));
93   -
94   - strRetorno := frmMapaCacic.ComunicaServidor('mapa_acesso.php', Request_mapa, 'Autenticando o Acesso...');
95   - Request_mapa.free;
96   -
97   - if (g_oCacic.xmlGetValue('STATUS', strRetorno)='OK') then
98   - Begin
99   - str_local_Aux := trim(g_oCacic.deCrypt(g_oCacic.xmlGetValue('ID_USUARIO',strRetorno)));
100   - if (str_local_Aux <> '') then
101   - Begin
102   - frmMapaCacic.strId_usuario := str_local_Aux;
103   - str_local_Aux := '';
104   - frmMapaCacic.boolAcessoOK := true; // Acesso OK!
105   - End
106   - else
107   - Begin
108   - str_local_Aux := 'Usuário/Senha incorretos ou Usuário sem Acesso Primário/Secundário a este local!';
109   - End
110   - End
111   - else
112   - Begin
113   - str_local_Aux := 'Problemas na comunicação!';
114   - End;
115   -
116   - lbMsg_Erro_Senha.Caption := str_local_Aux;
117   -
118   - if (frmMapaCacic.boolAcessoOK) then
119   - Begin
120   - lbAviso.Caption := 'USUÁRIO AUTENTICADO: "' + trim(g_oCacic.deCrypt(g_oCacic.xmlGetValue('NM_USUARIO_COMPLETO',strRetorno)))+'"';
121   - lbAviso.Font.Style := [fsBold];
122   - lbAviso.Font.Color := clGreen;
123   - Application.ProcessMessages;
124   - Sleep(3000);
125   - End
126   - else
127   - lbMsg_Erro_Senha.Font.Color := clRed;
128   -
129   - tm_Mensagem.Enabled := true;
130   -
131   - g_oCacic.writeDailyLog(str_local_Aux);
132   -
133   - Application.ProcessMessages;
134   -
135   - if (frmMapaCacic.boolAcessoOK) then
136   - self.Close
137   - else
138   - Begin
139   - edNomeUsuarioAcesso.AutoSelect := false;
140   - edNomeUsuarioAcesso.SetFocus;
141   - End;
142   -end;
143   -
144   -Function TfrmAcesso.VerificaVersao : boolean;
145   -var Request_mapa : TStringList;
146   - strRetorno,
147   - strAUX : String;
148   -begin
149   - Result := false;
150   - Request_mapa:=TStringList.Create;
151   -
152   - // Envio dos dados ao DataBase...
153   - Request_mapa.Values['cs_MapaCacic'] := g_oCacic.enCrypt('S');
154   - Request_mapa.Values['te_operacao'] := g_oCacic.enCrypt('Autentication');
155   - Request_mapa.Values['te_versao_mapa'] := g_oCacic.enCrypt(g_oCacic.getVersionInfo(ParamStr(0)));
156   -
157   - strRetorno := frmMapaCacic.ComunicaServidor('mapa_acesso.php', Request_mapa, 'Verificando Versão...');
158   - Request_mapa.free;
159   -
160   - if (g_oCacic.xmlGetValue('STATUS', strRetorno)='OK') then
161   - Begin
162   - strAUX := trim(g_oCacic.deCrypt(g_oCacic.xmlGetValue('TE_VERSAO_MAPA',strRetorno)));
163   - if (strAUX = '') then
164   - Result := true
165   - else
166   - MessageDLG(#13#10#13#10+'ATENÇÃO! Encontra-se disponibilizada a versão "'+strAUX+'".'+#13#10#13#10+'Acesse o Gerente WEB do CACIC, opção "Repositório" e baixe o programa "MapaCACIC"!'+#13#10,mtWarning,[mbOK],0);
167   - End
168   - else
169   - MessageDLG(#13#10#13#10+'ATENÇÃO! Há problema na comunicação com o módulo Gerente WEB.'+#13#10#13#10,mtWarning,[mbOK],0);
170   -end;
171   -
172   -
173   -procedure TfrmAcesso.btCancelaClick(Sender: TObject);
174   -begin
175   - lbMsg_Erro_Senha.Caption := 'Aguarde... Finalizando!';
176   - Application.ProcessMessages;
177   - Self.Close;
178   - boolFinalizar := true;
179   -end;
180   -
181   -procedure TfrmAcesso.FormCreate(Sender: TObject);
182   -begin
183   - intPausaPadrao := 3000; //(3 mil milisegundos = 3 segundos)
184   - frmAcesso.lbVersao.Caption := 'Versão: ' + g_oCacic.getVersionInfo(ParamStr(0));
185   - frmMapaCacic.lbMensagens.Caption := 'Entrada de Dados para Autenticação no Módulo Gerente WEB Cacic';
186   -end;
187   -
188   -procedure TfrmAcesso.edNomeUsuarioAcessoKeyUp(Sender: TObject;
189   - var Key: Word; Shift: TShiftState);
190   -begin
191   - if not (trim(frmAcesso.edNomeUsuarioAcesso.Text) = '') and
192   - not (trim(frmAcesso.edSenhaAcesso.Text) = '') then
193   - frmAcesso.btAcesso.Enabled := true
194   - else
195   - frmAcesso.btAcesso.Enabled := false;
196   -end;
197   -
198   -procedure TfrmAcesso.FormShow(Sender: TObject);
199   -begin
200   - frmAcesso.edNomeUsuarioAcesso.SetFocus;
201   -end;
202   -
203   -procedure TfrmAcesso.edSenhaAcessoKeyUp(Sender: TObject; var Key: Word;
204   - Shift: TShiftState);
205   -begin
206   - if not (trim(frmAcesso.edNomeUsuarioAcesso.Text) = '') and
207   - not (trim(frmAcesso.edSenhaAcesso.Text) = '') then
208   - frmAcesso.btAcesso.Enabled := true
209   - else
210   - frmAcesso.btAcesso.Enabled := false;
211   -end;
212   -
213   -procedure TfrmAcesso.tm_MensagemTimer(Sender: TObject);
214   -begin
215   - tm_Mensagem.Enabled := false;
216   - lbMsg_Erro_Senha.Caption := '';
217   - lbMsg_Erro_Senha.Font.Color := clBlack;
218   -end;
219   -
220   -procedure TfrmAcesso.FormActivate(Sender: TObject);
221   -begin
222   - if (g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Configs','TeWebManagerAddress',g_oCacic.getLocalFolder + 'GER_COLS.inf'))='') then
223   - Begin
224   - frmMapaCacic.Mensagem('Favor verificar a instalação do Cacic.' +#13#10 + 'Não Existe Servidor de Aplicação configurado!',true,intPausaPadrao);
225   - frmMapaCacic.Finalizar(true);
226   - End
227   - else
228   - frmAcesso.edTeWebManagerAddress.Caption := frmMapaCacic.edTeWebManagerAddress.Caption;
229   -
230   - if not VerificaVersao then
231   - frmMapaCacic.Finalizar(false);
232   -end;
233   -
234   -procedure TfrmAcesso.FormKeyDown(Sender: TObject; var Key: Word;
235   - Shift: TShiftState);
236   -begin
237   - IF (key = VK_RETURN) then
238   - Begin
239   - if (edNomeUsuarioAcesso.Focused) and (trim(edNomeUsuarioAcesso.Text) <> '') then
240   - edSenhaAcesso.SetFocus
241   - else if (edSenhaAcesso.Focused) and (trim(edSenhaAcesso.Text) <> '') then
242   - btAcessoClick(nil);
243   - End;
244   -end;
245   -
246   -end.
mapa/main_mapa.dcu
View file @090c306
No preview for this file type
mapa/main_mapa.ddp
View file @090c306
No preview for this file type
mapa/main_mapa.dfm
View file @090c306
... ... @@ -1,613 +0,0 @@
1   -object frmMapaCacic: TfrmMapaCacic
2   - Left = 211
3   - Top = 193
4   - BorderIcons = [biSystemMenu]
5   - BorderStyle = bsSingle
6   - Caption =
7   - 'MapaCacic - M'#243'dulo Avulso para Coleta de Informa'#231#245'es Patrimoniai' +
8   - 's'
9   - ClientHeight = 327
10   - ClientWidth = 782
11   - Color = clBtnFace
12   - Font.Charset = DEFAULT_CHARSET
13   - Font.Color = clWindowText
14   - Font.Height = -9
15   - Font.Name = 'MS Sans Serif'
16   - Font.Style = []
17   - Icon.Data = {
18   - 0000010001003232000001000800E00F00001600000028000000320000006400
19   - 00000100080000000000B80B0000000000000000000000010000000000000000
20   - 0000FFFFFF006699FF0099FFFF0066FFFF000033FF00002BD70000156A001534
21   - 380065CA320063C6310052A529004B9625002C59160066CC330066CB330060C0
22   - 30005DBA2F0059B12D00376D1C004589240059B233001A350F003C77240054A8
23   - 370034672200234618001E3B150050A23C00478A37000F1E0C004F9940001223
24   - 0F00315D2A00152A1200539E4A003D7238002A5028001223130026462800438E
25   - 49000E1C10003F874B003A7E4600326D3D00101F130068BD7B00457C57006BC0
26   - 8A00294935006FC395000B16120012231D001B413500357B680074C7B0002851
27   - 47001B4239000E1B18006AB4AA007BD0C400183E3B000F2524007FD5D2008BE9
28   - E70088E4E30086E0DE00183E3E004FC8C8003D9A9A00193F3F001C4444001C41
29   - 41001F4545001E3B3B0097FDFD0095FAFA008EEEEE008CEBEB0087E2E20081D8
30   - D8005D9C9C003B63630098FEFE0093F5F50090F0F00079CACA006BB3B300416C
31   - 6C0047757500122E2F00235455006FBBBF004D8285004A7C7F0015353800538D
32   - 94003255590060A2A900416F76002B494D0050878E002C6D79001526290078CB
33   - D8004D8590001C30350031C4F60033CCFF0033CAFD0032C5F80031BFF10031B8
34   - EA0032B0E400296781001E36400032AADD0013354400508EAA004E89A3001E34
35   - 3E0033A1D50035A5DA005CA3C800369AD00030566A0061ACD5003892CA000409
36   - 0C00569BC600368BC2000E1A220027475D00223F55000B263D001D4F78003C89
37   - C500060C1100549BD5001F394E004F92CC00235A8E004388CD00285B99004688
38   - D6004989D200335E93001E324900030C180010315B0018315100071934003369
39   - B500020407003E7ED600152A4800080E17004F88D8004D85D300548DE1001444
40   - 96005A8EE9005C90EC000C131F005E92F000141F33001145AD00010204000305
41   - 09000E1625001B2A47000D1422000B111D00111A2C000F1727001E2E4D004A70
42   - BC003956910036528900273B63006598FE006395F9006295F7006192F4006090
43   - F1005E8EED005B8AE500517ACC004C73C000486CB500466AB1004264A7004162
44   - A4004060A1006597FD006496FA005E8DEB005D8BE9005A87E1005985DF005782
45   - DA00547ED2004E75C3004466AA003F5E9D00354F8400324B7D002C426E002A3F
46   - 690024365A0022335500203050001A2741003C5A95000A0F1A00162138002639
47   - 60004F76C6004567AD000E3288000F2B70000938B900040D2400184AD2000736
48   - C50002030600032BBF000837D7000629A7000032FE000031FD000031F9000031
49   - F5000030F100002FEB00002CDF000029D0000028C8000026BF000024B600001E
50   - 9800001D9300001A880000187D0000156C0000156B0000146400000E4900000A
51   - 3500000724000230E3000534E60000051D0001092D0000000100FFFFFF000000
52   - 0000F9FC00000000000000000000000000000000000000000000000000000000
53   - 00000000000000000000FC0000000000000000000000F6F60000000000000000
54   - 000000000000000000000000000000000000000000000000000000000000F0F8
55   - 000000000000000000FDE8E7F800000000000000000000000000000000000000
56   - 0000000000000000000000000000000000F705EBF900000000000000F9ED0505
57   - ECF9000000000000000000000000000000000000000000000000000000000000
58   - 00000000FDE90505F100000000000000F605050505F800000000000000000000
59   - 000000000000000000000000000000000000000000000000F7050505E5F80000
60   - 000000F9EA05050505F600000000000000000000000000000000000000000000
61   - 000000000000000000000000E4E5050505EE0000000000F705050505E5EE0000
62   - 00000000000000000000000000000000000000000000000000000000000000FD
63   - E905050505E5FD00000000A5DCEAE5E6EAEFDE00000000000000000000000000
64   - 00000000000000000000000000000000000000DEEDE8050506DCA30000008057
65   - 5096EBDB7D626A00000000000000000000000000000000000000000000000000
66   - 0000000000000064608BE2E2844E630000008356034D96840303640000000000
67   - 0000000000000000ABAEAEAEAE00000000000000000000000000005D034C9B85
68   - 4C036000000083500303424F0303630000000000000000ABA5CFD5BDBBC5B4B7
69   - C8BCC0CDAAA90000000000000000995703535655030362000000805703030303
70   - 03035E0000000000A9D7B1BA02020202020202020202020202B5BDD2AE000000
71   - 0000895C0303030303036300000000614B030303030364000000A3D3C6020202
72   - 02020202020202020202020202020202C3B1A900000000605303030303546A00
73   - 0000001E314F030303503300D6A5BB0202020202020202020202B70202020202
74   - 020202020202B8CFAB0000344D030353562720000000002012275603572720A3
75   - C102020202020202020202B9D5D2B3D1CFBD02020202020202020202C7A5001E
76   - 3150033B250B290000000080170A2531171433CAC3020202020202020202C7D3
77   - BCB40202C4D5B3B70202020202020202C2B7D4290B2138190F1A000000000000
78   - 2914091A091BB09F7C8E0202020202020202D3B9020202020202BBB302020202
79   - 020202B67F7FA2AE190E110E1020000000000000AD515959A226A19E716D7FB5
80   - 0202020202D9B10202020202020202CCBF0202020202A47C6C799DB720090E0F
81   - 1A000000000000AE5D593B5159B7717C9E746C7CA40202020202C20202020202
82   - 02020202B502020202A17A6C7C9D747A93190919330000000000AB5159BD5157
83   - 5159C36C7A9E796C79A10202020202020202020202020202020202029F716C7F
84   - 9D716D88B5261334A300000000006F6590D9BD513B5159B46C719E7C6C79A102
85   - 0202020202020202020202020202029D706D88916F6B88B402BD3A02CDAC0000
86   - 00006F6F6F9FBCBD513B5159026D7091828E0202020202020202020202020202
87   - 020202C288888E6B6F8E02020202020202CF00000000006F6F6E9F9ADA515751
88   - 59B46B74BA02020202020202020202020202020202020202029E6F7091020202
89   - 020202020202D3000000AEC26F6F029F9ABD51575159029D0202020202020202
90   - 02020202020202020202020202028E9D02020202020202020202C6AE0000A502
91   - 026F6D6F9FD9BD513B5159020202020202020202020202020202020202020202
92   - 020202020202020202020202020202D70000ADB4026F6F686E9FD9BD51575102
93   - 0202020202020202020202020202020202020202020202020202020202020202
94   - 020202AD000000C002026F6F6F027A9ABD513B59BAC8C9D9B0BDDABA02020202
95   - 020202BADABDB0D9C9C8BAB8B4020202020202020202BED6000000A3C002026F
96   - 6F6F6E9FD9BD3B5159B1CCBFBEBDBC020202020202020202BCBDBEBFCCB1B2CC
97   - B502020202020202B9D8AC00000000009CB802026F6F6C027A9A515751020202
98   - 02020202020202020202020202020202020202020202020202020202AA000000
99   - 00000000FED4BFB9026F6C6FA4BCBD5151510259595959595959595902020202
100   - 02020202020202020202020202C3CAD0E1000000000000000000FED6A5D20268
101   - 6EB9D951515159595959595959595959595902020202020202020202B9BBC1D0
102   - D4AB9900000000000000000000000000000000026F6F56513B5759595900320F
103   - 00000059595959C1B1CECFD8D2AAA5A9D6A80000000000000000000000000000
104   - 0000000000000000026F6F6F59595959000F0F0F000000000059595900000000
105   - 0000000000000000000000000000000000000000000000000000000000006F6F
106   - 5959590000000000000000000000595959000000000000000000000000000000
107   - 0000000000000000000000000000000000000059595906060606060606060606
108   - 0606065959590000000000000000000000000000000000000000000000000000
109   - 00000000000000595906060F0F0F060606060606060606065959000000000000
110   - 0000000000000000000000000000000000FD070707070707070759595906060F
111   - 0F06060606060606060606062E5959070707070707070707070707F4FC000000
112   - 0000000000F8EF06060606060606595959060F0F060606060606060606060606
113   - 0F5959060606060606060606060606F100000000000000000000945A08080808
114   - 0859590000000000000F0F0F0000000000000000005959080808080808080808
115   - 085F3E0000000000000000000000005A4404040404595932033204040F0F0404
116   - 040404040404040404595904040404040404040404455A000000000000000000
117   - 000000008646354748595905030332320F3204323204040404040404042F5949
118   - 4375393D49467535474A0000000000000000000000000000EE95175864595959
119   - 0503560F0F04323204040404040404042E59595E78F10D1651DEF11400570000
120   - 000000000000000000000000E8A0103762E65959050556033232320432043204
121   - 040415153259123F77E52B1D038FE91F1F0300000000000000000000000000EF
122   - 05E00A304CE3595959055603032E2E2E2E0505050505151559590F3250EA7211
123   - 42810536184B57000000000000000000000000EE05FA112E03DFDD5959055603
124   - 03012E2E2E0505050505153259E00E324DFA8D093C7B056615555C0000000000
125   - 00000000000000EE05E9152E03DFE0595959560303322E2E2E3205050505322E
126   - 59E009304CE38D0F377E057211415C000000000000000000000000EF05E00932
127   - 4EFBA60E59595903032E2E2E2E3205050505595959A60E3768E76615558C0536
128   - 184B570000000000000000000000000005A00A375C058711405959592E2E2E2E
129   - 2E05050559595959058712407B052A1C0398E81C230300000000000000000000
130   - 0000000006380C5669EB2C143F8D5959592E2E2E2E32595959593F65EB2C143F
131   - 92ED0B2442E4EF122F5600000000000000000000000000000700005800070000
132   - 5800000D5959595959595959000059000700005800000D005800000D00000000
133   - 000000000000F3FFFFFFFFF7C000F3FFFFFFFFF3C000E1FFFFFFFFE1C000C0FF
134   - FFFFFFC1C000C0FFFFFFFFC0C00080FFFFFFFFC0C00080FFFFFFFF804000807F
135   - FFFFFF804000007FFFFFFF804000007FFC1FFF804000007F8000FF004000007C
136   - 00001F0040008070000007804000804000000180400080000000008040008000
137   - 00000000C000C00000000000C000C00000000001C000800000000001C0000000
138   - 00000001C000000000000000C000000000000000C00080000000000040000000
139   - 0000000000000000000000000000000000000000000080000000000000008000
140   - 0000000040008000000000004000800000000000400080000000000040008000
141   - 00000000C000C00000000000C000C00000000000C000C00000000001C000E000
142   - 00000001C000E00000000001C000E00000000003C000F00000000007C000F800
143   - 00000007C000FC000000000FC000FC000000002FC000FC000000000FC000F800
144   - 00000007C000F80000000007C000F80000000007C000F80000000007C000FC00
145   - 0000000FC000FC000000000FC000FDAD8035B5BFC000}
146   - OldCreateOrder = False
147   - Position = poDesktopCenter
148   - Visible = True
149   - OnActivate = FormActivate
150   - OnClose = FormClose
151   - OnCreate = FormCreate
152   - PixelsPerInch = 96
153   - TextHeight = 13
154   - object lbTeWebManagerAddress: TLabel
155   - Left = 1
156   - Top = 309
157   - Width = 153
158   - Height = 13
159   - AutoSize = False
160   - Caption = 'Endere'#231'o do Servidor de Aplica'#231#227'o:'
161   - Font.Charset = DEFAULT_CHARSET
162   - Font.Color = clWindowText
163   - Font.Height = -9
164   - Font.Name = 'Arial'
165   - Font.Style = []
166   - ParentFont = False
167   - end
168   - object lbVersao: TLabel
169   - Left = 689
170   - Top = 310
171   - Width = 90
172   - Height = 13
173   - Alignment = taRightJustify
174   - AutoSize = False
175   - Caption = 'v: X.X.X.X'
176   - Font.Charset = DEFAULT_CHARSET
177   - Font.Color = clWindowText
178   - Font.Height = -9
179   - Font.Name = 'Arial'
180   - Font.Style = []
181   - ParentFont = False
182   - end
183   - object edTeWebManagerAddress: TLabel
184   - Left = 156
185   - Top = 308
186   - Width = 146
187   - Height = 14
188   - Caption = 'EdTeWebManagerAddress'
189   - Font.Charset = DEFAULT_CHARSET
190   - Font.Color = clWindowText
191   - Font.Height = -11
192   - Font.Name = 'Arial'
193   - Font.Style = [fsBold]
194   - ParentFont = False
195   - end
196   - object gbLeiaComAtencao: TGroupBox
197   - Left = 1
198   - Top = -1
199   - Width = 780
200   - Height = 53
201   - Caption = ' Leia com aten'#231#227'o '
202   - Color = clBtnFace
203   - Font.Charset = DEFAULT_CHARSET
204   - Font.Color = clRed
205   - Font.Height = -13
206   - Font.Name = 'MS Sans Serif'
207   - Font.Style = [fsBold]
208   - ParentColor = False
209   - ParentFont = False
210   - TabOrder = 0
211   - Visible = False
212   - object lbLeiaComAtencao: TLabel
213   - Left = 5
214   - Top = 14
215   - Width = 769
216   - Height = 32
217   - AutoSize = False
218   - Caption =
219   - 'O preenchimento correto dos campos abaixo '#233' de extrema import'#226'nc' +
220   - 'ia para um efetivo controle patrimonial e de localiza'#231#227'o de equi' +
221   - 'pamentos.'
222   - Font.Charset = DEFAULT_CHARSET
223   - Font.Color = clBlack
224   - Font.Height = -13
225   - Font.Name = 'MS Sans Serif'
226   - Font.Style = []
227   - ParentFont = False
228   - WordWrap = True
229   - end
230   - end
231   - object gbInformacoesSobreComputador: TGroupBox
232   - Left = 1
233   - Top = 61
234   - Width = 780
235   - Height = 151
236   - Caption =
237   - 'Informa'#231#245'es sobre localiza'#231#227'o f'#237'sica e patrimonial deste computa' +
238   - 'dor'
239   - Font.Charset = DEFAULT_CHARSET
240   - Font.Color = clBlue
241   - Font.Height = -11
242   - Font.Name = 'MS Sans Serif'
243   - Font.Style = [fsBold]
244   - ParentFont = False
245   - TabOrder = 1
246   - Visible = False
247   - object lbEtiqueta1: TLabel
248   - Left = 3
249   - Top = 15
250   - Width = 48
251   - Height = 13
252   - Caption = 'Etiqueta 1'
253   - Font.Charset = DEFAULT_CHARSET
254   - Font.Color = clWindowText
255   - Font.Height = -11
256   - Font.Name = 'MS Sans Serif'
257   - Font.Style = []
258   - ParentFont = False
259   - Visible = False
260   - end
261   - object lbEtiqueta2: TLabel
262   - Left = 3
263   - Top = 105
264   - Width = 48
265   - Height = 13
266   - Caption = 'Etiqueta 2'
267   - Font.Charset = DEFAULT_CHARSET
268   - Font.Color = clWindowText
269   - Font.Height = -11
270   - Font.Name = 'MS Sans Serif'
271   - Font.Style = []
272   - ParentFont = False
273   - Visible = False
274   - end
275   - object lbEtiqueta3: TLabel
276   - Left = 341
277   - Top = 15
278   - Width = 48
279   - Height = 13
280   - Caption = 'Etiqueta 3'
281   - Font.Charset = DEFAULT_CHARSET
282   - Font.Color = clWindowText
283   - Font.Height = -11
284   - Font.Name = 'MS Sans Serif'
285   - Font.Style = []
286   - ParentFont = False
287   - Visible = False
288   - end
289   - object lbEtiqueta4: TLabel
290   - Left = 341
291   - Top = 60
292   - Width = 48
293   - Height = 13
294   - Caption = 'Etiqueta 4'
295   - Font.Charset = DEFAULT_CHARSET
296   - Font.Color = clWindowText
297   - Font.Height = -11
298   - Font.Name = 'MS Sans Serif'
299   - Font.Style = []
300   - ParentFont = False
301   - Visible = False
302   - end
303   - object lbEtiqueta5: TLabel
304   - Left = 493
305   - Top = 60
306   - Width = 48
307   - Height = 13
308   - Caption = 'Etiqueta 5'
309   - Font.Charset = DEFAULT_CHARSET
310   - Font.Color = clWindowText
311   - Font.Height = -11
312   - Font.Name = 'MS Sans Serif'
313   - Font.Style = []
314   - ParentFont = False
315   - Visible = False
316   - end
317   - object lbEtiqueta6: TLabel
318   - Left = 645
319   - Top = 60
320   - Width = 48
321   - Height = 13
322   - Caption = 'Etiqueta 6'
323   - Font.Charset = DEFAULT_CHARSET
324   - Font.Color = clWindowText
325   - Font.Height = -11
326   - Font.Name = 'MS Sans Serif'
327   - Font.Style = []
328   - ParentFont = False
329   - Visible = False
330   - end
331   - object lbEtiqueta7: TLabel
332   - Left = 341
333   - Top = 105
334   - Width = 48
335   - Height = 13
336   - Caption = 'Etiqueta 7'
337   - Font.Charset = DEFAULT_CHARSET
338   - Font.Color = clWindowText
339   - Font.Height = -11
340   - Font.Name = 'MS Sans Serif'
341   - Font.Style = []
342   - ParentFont = False
343   - Visible = False
344   - end
345   - object lbEtiqueta8: TLabel
346   - Left = 493
347   - Top = 105
348   - Width = 48
349   - Height = 13
350   - Caption = 'Etiqueta 8'
351   - Font.Charset = DEFAULT_CHARSET
352   - Font.Color = clWindowText
353   - Font.Height = -11
354   - Font.Name = 'MS Sans Serif'
355   - Font.Style = []
356   - ParentFont = False
357   - Visible = False
358   - end
359   - object lbEtiqueta9: TLabel
360   - Left = 645
361   - Top = 105
362   - Width = 48
363   - Height = 13
364   - Caption = 'Etiqueta 9'
365   - Font.Charset = DEFAULT_CHARSET
366   - Font.Color = clWindowText
367   - Font.Height = -11
368   - Font.Name = 'MS Sans Serif'
369   - Font.Style = []
370   - ParentFont = False
371   - Visible = False
372   - end
373   - object lbEtiqueta1a: TLabel
374   - Left = 3
375   - Top = 60
376   - Width = 54
377   - Height = 13
378   - Caption = 'Etiqueta 1a'
379   - Font.Charset = DEFAULT_CHARSET
380   - Font.Color = clWindowText
381   - Font.Height = -11
382   - Font.Name = 'MS Sans Serif'
383   - Font.Style = []
384   - ParentFont = False
385   - Visible = False
386   - end
387   - object cb_id_unid_organizacional_nivel1: TComboBox
388   - Left = 3
389   - Top = 30
390   - Width = 325
391   - Height = 21
392   - Hint = 'Esse '#233' o texto de ajuda da "Etiqueta 1"'
393   - Style = csDropDownList
394   - Font.Charset = DEFAULT_CHARSET
395   - Font.Color = clWindowText
396   - Font.Height = -11
397   - Font.Name = 'MS Sans Serif'
398   - Font.Style = []
399   - ItemHeight = 13
400   - ParentFont = False
401   - ParentShowHint = False
402   - ShowHint = True
403   - TabOrder = 0
404   - Visible = False
405   - OnChange = cb_id_unid_organizacional_nivel1Change
406   - end
407   - object cb_id_unid_organizacional_nivel2: TComboBox
408   - Left = 3
409   - Top = 120
410   - Width = 325
411   - Height = 21
412   - Style = csDropDownList
413   - Enabled = False
414   - Font.Charset = DEFAULT_CHARSET
415   - Font.Color = clWindowText
416   - Font.Height = -11
417   - Font.Name = 'MS Sans Serif'
418   - Font.Style = []
419   - ItemHeight = 13
420   - ParentFont = False
421   - ParentShowHint = False
422   - ShowHint = True
423   - TabOrder = 1
424   - Visible = False
425   - end
426   - object ed_te_localizacao_complementar: TEdit
427   - Left = 341
428   - Top = 30
429   - Width = 434
430   - Height = 22
431   - Font.Charset = DEFAULT_CHARSET
432   - Font.Color = clWindowText
433   - Font.Height = -11
434   - Font.Name = 'Arial'
435   - Font.Style = []
436   - MaxLength = 100
437   - ParentFont = False
438   - ParentShowHint = False
439   - ShowHint = True
440   - TabOrder = 2
441   - Visible = False
442   - end
443   - object ed_te_info_patrimonio3: TEdit
444   - Left = 645
445   - Top = 75
446   - Width = 130
447   - Height = 21
448   - Font.Charset = DEFAULT_CHARSET
449   - Font.Color = clWindowText
450   - Font.Height = -11
451   - Font.Name = 'MS Sans Serif'
452   - Font.Style = []
453   - MaxLength = 20
454   - ParentFont = False
455   - ParentShowHint = False
456   - ShowHint = True
457   - TabOrder = 5
458   - Visible = False
459   - end
460   - object ed_te_info_patrimonio1: TEdit
461   - Left = 341
462   - Top = 75
463   - Width = 130
464   - Height = 21
465   - Font.Charset = DEFAULT_CHARSET
466   - Font.Color = clWindowText
467   - Font.Height = -11
468   - Font.Name = 'MS Sans Serif'
469   - Font.Style = []
470   - MaxLength = 20
471   - ParentFont = False
472   - ParentShowHint = False
473   - ShowHint = True
474   - TabOrder = 3
475   - Visible = False
476   - end
477   - object ed_te_info_patrimonio2: TEdit
478   - Left = 493
479   - Top = 75
480   - Width = 130
481   - Height = 21
482   - Font.Charset = DEFAULT_CHARSET
483   - Font.Color = clWindowText
484   - Font.Height = -11
485   - Font.Name = 'MS Sans Serif'
486   - Font.Style = []
487   - MaxLength = 20
488   - ParentFont = False
489   - ParentShowHint = False
490   - ShowHint = True
491   - TabOrder = 4
492   - Visible = False
493   - end
494   - object ed_te_info_patrimonio6: TEdit
495   - Left = 645
496   - Top = 120
497   - Width = 130
498   - Height = 21
499   - Font.Charset = DEFAULT_CHARSET
500   - Font.Color = clWindowText
501   - Font.Height = -11
502   - Font.Name = 'MS Sans Serif'
503   - Font.Style = []
504   - MaxLength = 20
505   - ParentFont = False
506   - ParentShowHint = False
507   - ShowHint = True
508   - TabOrder = 8
509   - Visible = False
510   - end
511   - object ed_te_info_patrimonio4: TEdit
512   - Left = 341
513   - Top = 120
514   - Width = 130
515   - Height = 21
516   - Font.Charset = DEFAULT_CHARSET
517   - Font.Color = clWindowText
518   - Font.Height = -11
519   - Font.Name = 'MS Sans Serif'
520   - Font.Style = []
521   - MaxLength = 20
522   - ParentFont = False
523   - ParentShowHint = False
524   - ShowHint = True
525   - TabOrder = 6
526   - Visible = False
527   - end
528   - object ed_te_info_patrimonio5: TEdit
529   - Left = 493
530   - Top = 120
531   - Width = 130
532   - Height = 21
533   - Font.Charset = DEFAULT_CHARSET
534   - Font.Color = clWindowText
535   - Font.Height = -11
536   - Font.Name = 'MS Sans Serif'
537   - Font.Style = []
538   - MaxLength = 20
539   - ParentFont = False
540   - ParentShowHint = False
541   - ShowHint = True
542   - TabOrder = 7
543   - Visible = False
544   - end
545   - object cb_id_unid_organizacional_nivel1a: TComboBox
546   - Left = 3
547   - Top = 75
548   - Width = 325
549   - Height = 22
550   - Style = csDropDownList
551   - Enabled = False
552   - Font.Charset = DEFAULT_CHARSET
553   - Font.Color = clWindowText
554   - Font.Height = -11
555   - Font.Name = 'Arial'
556   - Font.Style = []
557   - ItemHeight = 14
558   - ParentFont = False
559   - ParentShowHint = False
560   - ShowHint = True
561   - TabOrder = 9
562   - Visible = False
563   - OnChange = cb_id_unid_organizacional_nivel1aChange
564   - end
565   - object Panel1: TPanel
566   - Left = 333
567   - Top = 16
568   - Width = 2
569   - Height = 125
570   - Caption = 'Panel1'
571   - TabOrder = 10
572   - end
573   - end
574   - object btGravarInformacoes: TButton
575   - Left = 192
576   - Top = 259
577   - Width = 401
578   - Height = 30
579   - Caption = 'Grava e Envia Informa'#231#245'es Patrimoniais ao Gerente WEB'
580   - Font.Charset = DEFAULT_CHARSET
581   - Font.Color = clWindowText
582   - Font.Height = -13
583   - Font.Name = 'Arial'
584   - Font.Style = [fsBold]
585   - ParentFont = False
586   - TabOrder = 2
587   - Visible = False
588   - OnClick = AtualizaPatrimonio
589   - end
590   - object pnMensagens: TPanel
591   - Left = 1
592   - Top = 212
593   - Width = 779
594   - Height = 22
595   - BevelInner = bvLowered
596   - TabOrder = 3
597   - object lbMensagens: TLabel
598   - Left = 2
599   - Top = 2
600   - Width = 775
601   - Height = 18
602   - Align = alClient
603   - Alignment = taCenter
604   - AutoSize = False
605   - Font.Charset = DEFAULT_CHARSET
606   - Font.Color = clWindowText
607   - Font.Height = -13
608   - Font.Name = 'MS Sans Serif'
609   - Font.Style = []
610   - ParentFont = False
611   - end
612   - end
613   -end
mapa/main_mapa.pas
View file @090c306
... ... @@ -1,1102 +0,0 @@
1   -(**
2   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
3   -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
4   -
5   -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
6   -
7   -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
8   -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
9   -
10   -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
11   -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
12   -
13   -Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
14   -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
15   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
16   -*)
17   -
18   -unit main_mapa;
19   -
20   -interface
21   -
22   -uses
23   - Windows,
24   - Sysutils, // Deve ser colocado após o Windows acima, nunca antes
25   - strutils,
26   - IdTCPConnection,
27   - IdTCPClient,
28   - IdHTTP,
29   - IdBaseComponent,
30   - IdComponent,
31   - WinSock,
32   - NB30,
33   - StdCtrls,
34   - Controls,
35   - Classes,
36   - Forms,
37   - ExtCtrls,
38   - Graphics,
39   - Dialogs,
40   - CACIC_Library,
41   - LibXmlParser; // Usado em MontaCombos
42   -
43   -var
44   - intPausaPadrao : integer;
45   -
46   -var v_Aguarde : TextFile;
47   -
48   -var
49   - boolDebugs,
50   - boolFinalizar : boolean;
51   -
52   -var
53   - g_oCacic : TCACIC;
54   -
55   -type
56   - TfrmMapaCacic = class(TForm)
57   - gbLeiaComAtencao: TGroupBox;
58   - lbLeiaComAtencao: TLabel;
59   - gbInformacoesSobreComputador: TGroupBox;
60   - lbEtiqueta1: TLabel;
61   - lbEtiqueta2: TLabel;
62   - lbEtiqueta3: TLabel;
63   - cb_id_unid_organizacional_nivel1: TComboBox;
64   - cb_id_unid_organizacional_nivel2: TComboBox;
65   - ed_te_localizacao_complementar: TEdit;
66   - btGravarInformacoes: TButton;
67   - lbEtiqueta4: TLabel;
68   - lbEtiqueta5: TLabel;
69   - lbEtiqueta6: TLabel;
70   - lbEtiqueta7: TLabel;
71   - lbEtiqueta8: TLabel;
72   - lbEtiqueta9: TLabel;
73   - ed_te_info_patrimonio1: TEdit;
74   - ed_te_info_patrimonio2: TEdit;
75   - ed_te_info_patrimonio3: TEdit;
76   - ed_te_info_patrimonio4: TEdit;
77   - ed_te_info_patrimonio5: TEdit;
78   - ed_te_info_patrimonio6: TEdit;
79   - pnMensagens: TPanel;
80   - lbMensagens: TLabel;
81   - lbEtiqueta1a: TLabel;
82   - cb_id_unid_organizacional_nivel1a: TComboBox;
83   - Panel1: TPanel;
84   - lbTeWebManagerAddress: TLabel;
85   - lbVersao: TLabel;
86   - edTeWebManagerAddress: TLabel;
87   -
88   - procedure mapa;
89   - procedure MontaCombos(p_strConfigs : String);
90   - procedure MontaInterface(p_strConfigs : String);
91   - procedure FormClose(Sender: TObject; var Action: TCloseAction);
92   - procedure cb_id_unid_organizacional_nivel1Change(Sender: TObject);
93   - procedure AtualizaPatrimonio(Sender: TObject);
94   - procedure RecuperaValoresAnteriores(p_strConfigs : String);
95   - procedure CriaFormSenha(Sender: TObject);
96   - Function ComunicaServidor(URL : String; Request : TStringList; MsgAcao: String) : String;
97   - procedure Finalizar(p_pausa:boolean);
98   - procedure Sair;
99   - function LastPos(SubStr, S: string): Integer;
100   - Function Rat(OQue: String; Onde: String) : Integer;
101   - Function RetornaValorVetorUON1(id1 : string) : String;
102   - Function RetornaValorVetorUON1a(id1a : string) : String;
103   - Function RetornaValorVetorUON2(id2,idLocal : string) : String;
104   - function LetrasDrives: string;
105   - function SearchFile(p_Drive,p_File:string) : boolean;
106   - procedure GetSubDirs(Folder:string; sList:TStringList);
107   - procedure Mensagem(p_strMsg : String; p_boolAlerta : boolean; p_intPausaSegundos : integer);
108   - procedure cb_id_unid_organizacional_nivel1aChange(Sender: TObject);
109   - procedure FormActivate(Sender: TObject);
110   - procedure FormCreate(Sender: TObject);
111   - private
112   - strId_unid_organizacional_nivel1,
113   - strId_unid_organizacional_nivel1a,
114   - strId_unid_organizacional_nivel2,
115   - strId_Local,
116   - strTe_localizacao_complementar,
117   - strTe_info_patrimonio1,
118   - strTe_info_patrimonio2,
119   - strTe_info_patrimonio3,
120   - strTe_info_patrimonio4,
121   - strTe_info_patrimonio5,
122   - strTe_info_patrimonio6 : String;
123   - public
124   - boolAcessoOK : boolean;
125   - strId_usuario : String;
126   - end;
127   -
128   -var
129   - frmMapaCacic: TfrmMapaCacic;
130   -
131   -implementation
132   -
133   -uses acesso, Math;
134   -
135   -{$R *.dfm}
136   -
137   -
138   -// Estruturas de dados para armazenar os itens das Unidades Organizacionais de Níveis 1, 1a e 2
139   -type
140   - TRegistroUON1 = record
141   - id1 : String;
142   - nm1 : String;
143   - end;
144   - TVetorUON1 = array of TRegistroUON1;
145   -
146   - TRegistroUON1a = record
147   - id1 : String;
148   - id1a : String;
149   - nm1a : String;
150   - id_local: String;
151   - end;
152   -
153   - TVetorUON1a = array of TRegistroUON1a;
154   -
155   - TRegistroUON2 = record
156   - id1a : String;
157   - id2 : String;
158   - nm2 : String;
159   - id_local: String;
160   - end;
161   - TVetorUON2 = array of TRegistroUON2;
162   -
163   -var VetorUON1 : TVetorUON1;
164   - VetorUON1a : TVetorUON1a;
165   - VetorUON2 : TVetorUON2;
166   -
167   - // Esse array é usado apenas para saber a uon1a, após a filtragem pelo uon1
168   - VetorUON1aFiltrado : array of String;
169   -
170   - // Esse array é usado apenas para saber a uon2, após a filtragem pelo uon1a
171   - VetorUON2Filtrado : array of String;
172   -
173   -// Baixada de http://www.geocities.com/SiliconValley/Bay/1058/fdelphi.html
174   -Function TfrmMapaCacic.Rat(OQue: String; Onde: String) : Integer;
175   -// Procura uma string dentro de outra, da direita para esquerda
176   -// Retorna a posição onde foi encontrada ou 0 caso não seja encontrada
177   -var
178   -Pos : Integer;
179   -Tam1 : Integer;
180   -Tam2 : Integer;
181   -Achou : Boolean;
182   -begin
183   -Tam1 := Length(OQue);
184   -Tam2 := Length(Onde);
185   -Pos := Tam2-Tam1+1;
186   -Achou := False;
187   -while (Pos >= 1) and not Achou do
188   - begin
189   - if Copy(Onde, Pos, Tam1) = OQue then
190   - begin
191   - Achou := True
192   - end
193   - else
194   - begin
195   - Pos := Pos - 1;
196   - end;
197   - end;
198   -Result := Pos;
199   -end;
200   -
201   -procedure TfrmMapaCacic.Mensagem(p_strMsg : String; p_boolAlerta : boolean; p_intPausaSegundos : integer);
202   -Begin
203   - g_oCacic.writeDebugLog(p_strMsg);
204   - if p_boolAlerta then
205   - lbMensagens.Font.Color := clRed
206   - else
207   - lbMensagens.Font.Color := clBlack;
208   -
209   - lbMensagens.Caption := p_strMsg;
210   - g_oCacic.writeDailyLog(lbMensagens.Caption);
211   - Application.ProcessMessages;
212   - if (p_intPausaSegundos > 0) then
213   - sleep(p_intPausaSegundos);
214   -End;
215   -
216   -procedure TfrmMapaCacic.Sair;
217   -Begin
218   - g_oCacic.Free();
219   - Application.Terminate;
220   -End;
221   -
222   -procedure TfrmMapaCacic.Finalizar(p_pausa:boolean);
223   -Begin
224   - Mensagem('Finalizando MapaCacic...',false,0);
225   -
226   - g_oCacic.killFiles(g_oCacic.getLocalFolder + 'Temp','*.vbs');
227   - g_oCacic.killFiles(g_oCacic.getLocalFolder + 'Temp','*.txt');
228   - if p_pausa then sleep(2000); // Pausa de 2 segundos para conclusão de operações de arquivos.
229   - Sair;
230   -End;
231   -//
232   -function TfrmMapaCacic.LastPos(SubStr, S: string): Integer;
233   -var
234   - Found, Len, Pos: integer;
235   -begin
236   - Pos := Length(S);
237   - Len := Length(SubStr);
238   - Found := 0;
239   - while (Pos > 0) and (Found = 0) do
240   - begin
241   - if Copy(S, Pos, Len) = SubStr then
242   - Found := Pos;
243   - Dec(Pos);
244   - end;
245   - LastPos := Found;
246   -end;
247   -
248   -Function TfrmMapaCacic.ComunicaServidor(URL : String; Request : TStringList; MsgAcao: String) : String;
249   -var Response_CS : TStringStream;
250   - strAddress,
251   - strTeWebManagerAddress,
252   - strTeWebServicesFolder : String;
253   - idHTTP1 : TIdHTTP;
254   - intAux : integer;
255   - tStringListAuxRequest : TStringList;
256   -Begin
257   - tStringListAuxRequest := TStringList.Create;
258   - tStringListAuxRequest := Request;
259   -
260   - tStringListAuxRequest.Values['cs_cipher'] := '1';
261   - tStringListAuxRequest.Values['cs_compress'] := '0';
262   -
263   -
264   - strTeWebServicesFolder := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Configs','TeWebServicesFolder', g_oCacic.getWinDir + 'chksis.ini'));
265   - strTeWebManagerAddress := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Configs','TeWebManagerAddress', g_oCacic.getWinDir + 'chksis.ini'));
266   -
267   - if (trim(strTeWebServicesFolder)='') then
268   - strTeWebServicesFolder := '/ws/';
269   -
270   - if (trim(strTeWebManagerAddress)='') then
271   - strTeWebManagerAddress := Trim(g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Configs','TeWebManagerAddress',g_oCacic.getLocalFolder + 'GER_COLS.inf')));
272   -
273   - strAddress := 'http://' + strTeWebManagerAddress + strTeWebServicesFolder + URL;
274   -
275   - if (trim(MsgAcao)='') then
276   - MsgAcao := '>> Enviando informações iniciais ao Gerente WEB.';
277   -
278   - g_oCacic.writeDailyLog(MsgAcao);
279   -
280   - Application.ProcessMessages;
281   -
282   - Response_CS := TStringStream.Create('');
283   -
284   - g_oCacic.writeDebugLog('Iniciando comunicação com http://' + strTeWebManagerAddress + strTeWebServicesFolder + URL);
285   -
286   - Try
287   - idHTTP1 := TIdHTTP.Create(nil);
288   - idHTTP1.AllowCookies := true;
289   - idHTTP1.ASCIIFilter := false;
290   - idHTTP1.AuthRetries := 1;
291   - idHTTP1.BoundPort := 0;
292   - idHTTP1.HandleRedirects := false;
293   - idHTTP1.ProxyParams.BasicAuthentication := false;
294   - idHTTP1.ProxyParams.ProxyPort := 0;
295   - idHTTP1.ReadTimeout := 0;
296   - idHTTP1.RecvBufferSize := 32768;
297   - idHTTP1.RedirectMaximum := 15;
298   - idHTTP1.Request.UserAgent := g_oCacic.enCrypt('AGENTE_CACIC');
299   - idHTTP1.Request.Username := g_oCacic.enCrypt('USER_CACIC');
300   - idHTTP1.Request.Password := g_oCacic.enCrypt('PW_CACIC');
301   - idHTTP1.Request.Accept := 'text/html, */*';
302   - idHTTP1.Request.BasicAuthentication := true;
303   - idHTTP1.Request.ContentLength := -1;
304   - idHTTP1.Request.ContentRangeStart := 0;
305   - idHTTP1.Request.ContentRangeEnd := 0;
306   - idHTTP1.Request.ContentType := 'text/html';
307   - idHTTP1.SendBufferSize := 32768;
308   - idHTTP1.Tag := 0;
309   -
310   - if boolDebugs then
311   - Begin
312   - g_oCacic.writeDebugLog('Valores de REQUEST para envio ao Gerente WEB:');
313   - for intAux := 0 to tStringListAuxRequest.count -1 do
314   - g_oCacic.writeDebugLog('#'+inttostr(intAux)+': '+tStringListAuxRequest[intAux]);
315   - End;
316   -
317   - IdHTTP1.Post(strAddress, tStringListAuxRequest, Response_CS);
318   - idHTTP1.Free;
319   - g_oCacic.writeDebugLog('Retorno: "'+Response_CS.DataString+'"');
320   - Except
321   - Mensagem('ERRO! Comunicação impossível com o endereço ' + strAddress + ': '+Response_CS.DataString,true,intPausaPadrao);
322   - result := '0';
323   - Exit;
324   - end;
325   -
326   - Application.ProcessMessages;
327   - Try
328   - if (UpperCase(g_oCacic.xmlGetValue('Status', Response_CS.DataString)) <> 'OK') Then
329   - Begin
330   - Mensagem('PROBLEMAS DURANTE A COMUNICAÇÃO',true,intPausaPadrao);
331   - g_oCacic.writeDailyLog('Endereço: ' + strAddress);
332   - g_oCacic.writeDailyLog('Mensagem: ' + Response_CS.DataString);
333   - result := '0';
334   - end
335   - Else
336   - Begin
337   - result := Response_CS.DataString;
338   - end;
339   - Response_CS.Free;
340   - Except
341   - Begin
342   - Mensagem('PROBLEMAS DURANTE A COMUNICAÇÃO',true,intPausaPadrao);
343   - g_oCacic.writeDailyLog('Endereço: ' + strAddress);
344   - g_oCacic.writeDailyLog('Mensagem: ' + Response_CS.DataString);
345   - result := '0';
346   - End;
347   - End;
348   -end;
349   -
350   -Function TfrmMapaCacic.RetornaValorVetorUON1(id1 : string) : String;
351   -var I : Integer;
352   -begin
353   - For I := 0 to (Length(VetorUON1)-1) Do
354   - If (VetorUON1[I].id1 = id1) Then Result := VetorUON1[I].nm1;
355   -end;
356   -
357   -Function TfrmMapaCacic.RetornaValorVetorUON1a(id1a : string) : String;
358   -var I : Integer;
359   -begin
360   - For I := 0 to (Length(VetorUON1a)-1) Do
361   - If (VetorUON1a[I].id1a = id1a) Then Result := VetorUON1a[I].nm1a;
362   -end;
363   -
364   -Function TfrmMapaCacic.RetornaValorVetorUON2(id2, idLocal: string) : String;
365   -var I : Integer;
366   -begin
367   - For I := 0 to (Length(VetorUON2)-1) Do
368   - If (VetorUON2[I].id2 = id2) and
369   - (VetorUON2[I].id_local = idLocal) Then Result := VetorUON2[I].nm2;
370   -end;
371   -
372   -procedure TfrmMapaCacic.RecuperaValoresAnteriores(p_strConfigs : String);
373   -begin
374   - Mensagem('Recuperando Valores Anteriores...',false,intPausaPadrao div 3);
375   -
376   - strId_unid_organizacional_nivel1 := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','id_unid_organizacional_nivel1',g_oCacic.getLocalFolder + g_oCacic.getInfFileName) );
377   - if (strId_unid_organizacional_nivel1='') then
378   - strId_unid_organizacional_nivel1 := g_oCacic.deCrypt(g_oCacic.xmlGetValue('ID_UON1', p_strConfigs));
379   -
380   - strId_unid_organizacional_nivel1a := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','id_unid_organizacional_nivel1a',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
381   - if (strId_unid_organizacional_nivel1a='') then
382   - strId_unid_organizacional_nivel1a := g_oCacic.deCrypt(g_oCacic.xmlGetValue('ID_UON1a', p_strConfigs));
383   -
384   - strId_unid_organizacional_nivel2 := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','id_unid_organizacional_nivel2',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
385   - if (strId_unid_organizacional_nivel2='') then
386   - strId_unid_organizacional_nivel2 := g_oCacic.deCrypt(g_oCacic.xmlGetValue('ID_UON2', p_strConfigs));
387   -
388   - strId_Local := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','id_local',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
389   - if (strId_Local='') then
390   - strId_Local := g_oCacic.deCrypt(g_oCacic.xmlGetValue('ID_LOCAL', p_strConfigs));
391   -
392   - Try
393   - cb_id_unid_organizacional_nivel1.ItemIndex := cb_id_unid_organizacional_nivel1.Items.IndexOf(RetornaValorVetorUON1(strId_unid_organizacional_nivel1));
394   - cb_id_unid_organizacional_nivel1Change(Nil); // Para filtrar os valores do combo2 de acordo com o valor selecionado no combo1
395   - cb_id_unid_organizacional_nivel1a.ItemIndex := cb_id_unid_organizacional_nivel1a.Items.IndexOf(RetornaValorVetorUON1(strId_unid_organizacional_nivel1));
396   - Except
397   - end;
398   -
399   - Try
400   - cb_id_unid_organizacional_nivel1a.ItemIndex := cb_id_unid_organizacional_nivel1a.Items.IndexOf(RetornaValorVetorUON1a(strId_unid_organizacional_nivel1a));
401   - cb_id_unid_organizacional_nivel1aChange(Nil); // Para filtrar os valores do combo3 de acordo com o valor selecionado no combo2
402   - cb_id_unid_organizacional_nivel2.ItemIndex := cb_id_unid_organizacional_nivel2.Items.IndexOf(RetornaValorVetorUON2(strId_unid_organizacional_nivel2,strId_Local));
403   - Except
404   - end;
405   -
406   - lbEtiqueta1.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta1', p_strConfigs));
407   - lbEtiqueta1a.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta1a', p_strConfigs));
408   -
409   - strTe_localizacao_complementar := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','te_localizacao_complementar',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
410   - if (strTe_localizacao_complementar='') then strTe_localizacao_complementar := g_oCacic.deCrypt(g_oCacic.xmlGetValue('TE_LOC_COMPL', p_strConfigs));
411   -
412   - // Tentarei buscar informação gravada no Registry
413   - strTe_info_patrimonio1 := g_oCacic.getValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1');
414   - if (strTe_info_patrimonio1='') then strTe_info_patrimonio1 := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','te_info_patrimonio1',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
415   - if (strTe_info_patrimonio1='') then strTe_info_patrimonio1 := g_oCacic.deCrypt(g_oCacic.xmlGetValue('TE_INFO1', p_strConfigs));
416   -
417   - strTe_info_patrimonio2 := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','te_info_patrimonio2',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
418   - if (strTe_info_patrimonio2='') then strTe_info_patrimonio2 := g_oCacic.deCrypt(g_oCacic.xmlGetValue('TE_INFO2', p_strConfigs));
419   -
420   - strTe_info_patrimonio3 := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','te_info_patrimonio3',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
421   - if (strTe_info_patrimonio3='') then strTe_info_patrimonio3 := g_oCacic.deCrypt(g_oCacic.xmlGetValue('TE_INFO3', p_strConfigs));
422   -
423   - // Tentarei buscar informação gravada no Registry
424   - strTe_info_patrimonio4 := g_oCacic.getValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4');
425   - if (strTe_info_patrimonio4='') then strTe_info_patrimonio4 := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','te_info_patrimonio4',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
426   -
427   - if (strTe_info_patrimonio4='') then strTe_info_patrimonio4 := g_oCacic.deCrypt(g_oCacic.xmlGetValue('TE_INFO4', p_strConfigs));
428   -
429   - strTe_info_patrimonio5 := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','te_info_patrimonio5',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
430   - if (strTe_info_patrimonio5='') then strTe_info_patrimonio5 := g_oCacic.deCrypt(g_oCacic.xmlGetValue('TE_INFO5', p_strConfigs));
431   -
432   - strTe_info_patrimonio6 := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','te_info_patrimonio6',g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
433   - if (strTe_info_patrimonio6='') then strTe_info_patrimonio6 := g_oCacic.deCrypt(g_oCacic.xmlGetValue('TE_INFO6', p_strConfigs));
434   -end;
435   -
436   -procedure TfrmMapaCacic.MontaCombos(p_strConfigs : String);
437   -var Parser : TXmlParser;
438   - i : integer;
439   - strAux,
440   - strAux1,
441   - strTagName,
442   - strItemName : string;
443   -begin
444   - Mensagem('Montando Listas para Seleção de Unidades Organizacionais...',false,intPausaPadrao div 3);
445   -
446   - Parser := TXmlParser.Create;
447   - Parser.Normalize := True;
448   - Parser.LoadFromBuffer(PAnsiChar(p_strConfigs));
449   - g_oCacic.writeDebugLog('p_strConfigs: '+p_strConfigs);
450   - Parser.StartScan;
451   - i := -1;
452   - strItemName := '';
453   - strTagName := '';
454   - While Parser.Scan DO
455   - Begin
456   - strItemName := UpperCase(Parser.CurName);
457   - if (Parser.CurPartType = ptStartTag) and (strItemName = 'IT1') Then
458   - Begin
459   - i := i + 1;
460   - SetLength(VetorUON1, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
461   - strTagName := 'IT1';
462   - end
463   - else if (Parser.CurPartType = ptEndTag) and (strItemName = 'IT1') then
464   - strTagName := ''
465   - else if (Parser.CurPartType in [ptContent, ptCData]) and (strTagName='IT1')Then
466   - Begin
467   - strAux1 := g_oCacic.deCrypt(Parser.CurContent);
468   - if (strItemName = 'ID1') then
469   - Begin
470   - VetorUON1[i].id1 := strAux1;
471   - g_oCacic.writeDebugLog('Gravei VetorUON1.id1: "'+strAux1+'"');
472   - End
473   - else if (strItemName = 'NM1') then
474   - Begin
475   - VetorUON1[i].nm1 := strAux1;
476   - g_oCacic.writeDebugLog('Gravei VetorUON1.nm1: "'+strAux1+'"');
477   - End;
478   - End;
479   - End;
480   -
481   - // Código para montar o combo 2
482   - Parser.StartScan;
483   - strTagName := '';
484   - strAux1 := '';
485   -
486   - i := -1;
487   - While Parser.Scan DO
488   - Begin
489   - strItemName := UpperCase(Parser.CurName);
490   - if (Parser.CurPartType = ptStartTag) and (strItemName = 'IT1A') Then
491   - Begin
492   - i := i + 1;
493   - SetLength(VetorUON1a, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
494   - strTagName := 'IT1A';
495   - end
496   - else if (Parser.CurPartType = ptEndTag) and (strItemName = 'IT1A') then
497   - strTagName := ''
498   - else if (Parser.CurPartType in [ptContent, ptCData]) and (strTagName='IT1A')Then
499   - Begin
500   - strAux1 := g_oCacic.deCrypt(Parser.CurContent);
501   - if (strItemName = 'ID1') then
502   - Begin
503   - VetorUON1a[i].id1 := strAux1;
504   - g_oCacic.writeDebugLog('Gravei VetorUON1a.id1: "'+strAux1+'"');
505   - End
506   - else if (strItemName = 'SG_LOC') then
507   - Begin
508   - strAux := ' ('+strAux1 + ')';
509   - End
510   - else if (strItemName = 'ID1A') then
511   - Begin
512   - VetorUON1a[i].id1a := strAux1;
513   - g_oCacic.writeDebugLog('Gravei VetorUON1a.id1a: "'+strAux1+'"');
514   - End
515   - else if (strItemName = 'NM1A') then
516   - Begin
517   - VetorUON1a[i].nm1a := strAux1+strAux;
518   - g_oCacic.writeDebugLog('Gravei VetorUON1a.nm1a: "'+strAux1+strAux+'"');
519   - End
520   - else if (strItemName = 'ID_LOCAL') then
521   - Begin
522   - VetorUON1a[i].id_local := strAux1;
523   - g_oCacic.writeDebugLog('Gravei VetorUON1a.id_local: "'+strAux1+'"');
524   - End;
525   -
526   - End;
527   - end;
528   -
529   - // Código para montar o combo 3
530   - Parser.StartScan;
531   - strTagName := '';
532   - i := -1;
533   -
534   - While Parser.Scan DO
535   - Begin
536   - strItemName := UpperCase(Parser.CurName);
537   - if (Parser.CurPartType = ptStartTag) and (strItemName = 'IT2') Then
538   - Begin
539   - i := i + 1;
540   - SetLength(VetorUON2, i + 1); // Aumento o tamanho da matriz dinamicamente de acordo com o número de itens recebidos.
541   - strTagName := 'IT2';
542   - end
543   - else if (Parser.CurPartType = ptEndTag) and (strItemName = 'IT2') then
544   - strTagName := ''
545   - else if (Parser.CurPartType in [ptContent, ptCData]) and (strTagName='IT2')Then
546   - Begin
547   - strAux1 := g_oCacic.deCrypt(Parser.CurContent);
548   - if (strItemName = 'ID1A') then
549   - Begin
550   - VetorUON2[i].id1a := strAux1;
551   - g_oCacic.writeDebugLog('Gravei VetorUON2.id1a: "'+strAux1+'"');
552   - End
553   - else if (strItemName = 'ID2') then
554   - Begin
555   - VetorUON2[i].id2 := strAux1;
556   - g_oCacic.writeDebugLog('Gravei VetorUON2.id2: "'+strAux1+'"');
557   - End
558   - else if (strItemName = 'NM2') then
559   - Begin
560   - VetorUON2[i].nm2 := strAux1;
561   - g_oCacic.writeDebugLog('Gravei VetorUON2.nm2: "'+strAux1+'"');
562   - End
563   - else if (strItemName = 'ID_LOCAL') then
564   - Begin
565   - VetorUON2[i].id_local := strAux1;
566   - g_oCacic.writeDebugLog('Gravei VetorUON2.id_local: "'+strAux1+'"');
567   - End;
568   -
569   - End;
570   - end;
571   - Parser.Free;
572   -
573   - // Como os itens do combo1 nunca mudam durante a execução do programa (ao contrario dos combo2 e 3), posso colocar o seu preenchimento aqui mesmo.
574   - cb_id_unid_organizacional_nivel1.Items.Clear;
575   - For i := 0 to Length(VetorUON1) - 1 Do
576   - cb_id_unid_organizacional_nivel1.Items.Add(VetorUON1[i].nm1);
577   -
578   - if (Length(VetorUON1) = 0) then
579   - Begin
580   - frmMapaCacic.Mensagem('ATENÇÃO! Não encontrei Entidades, Linhas de Negócio ou Órgãos cadastrados para esta subrede.',true,intPausaPadrao * 2);
581   - Finalizar(true);
582   - End;
583   -
584   - For i := 0 to Length(VetorUON1) - 1 Do
585   - Begin
586   - g_oCacic.writeDebugLog('VetorUON1['+IntToStr(i)+'].id1='+VetorUON1[i].id1);
587   - g_oCacic.writeDebugLog('VetorUON1['+IntToStr(i)+'].nm1='+VetorUON1[i].nm1);
588   - End;
589   -
590   - For i := 0 to Length(VetorUON1a) - 1 Do
591   - Begin
592   - g_oCacic.writeDebugLog('VetorUON1a['+IntToStr(i)+'].id1='+VetorUON1a[i].id1);
593   - g_oCacic.writeDebugLog('VetorUON1a['+IntToStr(i)+'].id1a='+VetorUON1a[i].id1a);
594   - g_oCacic.writeDebugLog('VetorUON1a['+IntToStr(i)+'].nm1a='+VetorUON1a[i].nm1a);
595   - g_oCacic.writeDebugLog('VetorUON1a['+IntToStr(i)+'].id_local='+VetorUON1a[i].id_local);
596   - End;
597   -
598   - For i := 0 to Length(VetorUON2) - 1 Do
599   - Begin
600   - g_oCacic.writeDebugLog('VetorUON2['+IntToStr(i)+'].id1a='+VetorUON2[i].id1a);
601   - g_oCacic.writeDebugLog('VetorUON2['+IntToStr(i)+'].id2='+VetorUON2[i].id2);
602   - g_oCacic.writeDebugLog('VetorUON2['+IntToStr(i)+'].nm2='+VetorUON2[i].nm2);
603   - g_oCacic.writeDebugLog('VetorUON2['+IntToStr(i)+'].id_local='+VetorUON2[i].id_local);
604   - End;
605   -end;
606   -
607   -
608   -procedure TfrmMapaCacic.cb_id_unid_organizacional_nivel1Change(Sender: TObject);
609   -var i, j: Word;
610   - strIdUON1 : String;
611   -begin
612   - g_oCacic.writeDebugLog('Nível 1 CHANGE');
613   - // Filtro os itens do combo2, de acordo com o item selecionado no combo1
614   - strIdUON1 := VetorUON1[cb_id_unid_organizacional_nivel1.ItemIndex].id1;
615   - cb_id_unid_organizacional_nivel1a.Items.Clear;
616   - cb_id_unid_organizacional_nivel2.Items.Clear;
617   - cb_id_unid_organizacional_nivel1a.Enabled := false;
618   - cb_id_unid_organizacional_nivel2.Enabled := false;
619   - SetLength(VetorUON1aFiltrado, 0);
620   -
621   - g_oCacic.writeDebugLog('Tamanho de VetorUON1..: '+IntToStr(Length(VetorUON1)));
622   - g_oCacic.writeDebugLog('ItemIndex de cb_nivel1: '+IntToStr(cb_id_unid_organizacional_nivel1.ItemIndex));
623   - g_oCacic.writeDebugLog('Tamanho de VetorUON1a.: '+IntToStr(Length(VetorUON1a)));
624   - For i := 0 to Length(VetorUON1a) - 1 Do
625   - Begin
626   - Try
627   - if VetorUON1a[i].id1 = strIdUON1 then
628   - Begin
629   - g_oCacic.writeDebugLog('Add em cb_nivel1a: '+VetorUON1a[i].nm1a);
630   - cb_id_unid_organizacional_nivel1a.Items.Add(VetorUON1a[i].nm1a);
631   - j := Length(VetorUON1aFiltrado);
632   - SetLength(VetorUON1aFiltrado, j + 1);
633   - VetorUON1aFiltrado[j] := VetorUON1a[i].id1a + '#' +VetorUON1a[i].id_local;
634   - g_oCacic.writeDebugLog('VetorUON1aFiltrado['+IntToStr(j)+']= '+VetorUON1aFiltrado[j]);
635   - end;
636   - Except
637   - End;
638   - end;
639   - if (cb_id_unid_organizacional_nivel1a.Items.Count > 0) then
640   - Begin
641   - cb_id_unid_organizacional_nivel1a.Enabled := true;
642   - cb_id_unid_organizacional_nivel1a.ItemIndex := 0;
643   - g_oCacic.writeDebugLog('Provocando CHANGE em nivel1a');
644   - cb_id_unid_organizacional_nivel1aChange(nil);
645   - End;
646   -end;
647   -
648   -procedure TfrmMapaCacic.cb_id_unid_organizacional_nivel1aChange(
649   - Sender: TObject);
650   -var i, j: Word;
651   - strIdUON1a,
652   - strIdLocal : String;
653   - intAux : integer;
654   - tstrAux : TStrings;
655   -begin
656   - g_oCacic.writeDebugLog('Nível 1a CHANGE');
657   - // Filtro os itens do combo2, de acordo com o item selecionado no combo1
658   - //intAux := IfThen(cb_id_unid_organizacional_nivel1a.Items.Count > 1,cb_id_unid_organizacional_nivel1a.ItemIndex+1,0);
659   - intAux := cb_id_unid_organizacional_nivel1a.ItemIndex;
660   - g_oCacic.writeDebugLog('cb_id_unid_organizacional_nivel1a.ItemIndex = '+intToStr(cb_id_unid_organizacional_nivel1a.ItemIndex));
661   -
662   - g_oCacic.writeDebugLog('VetorUON1aFiltrado['+intToStr(cb_id_unid_organizacional_nivel1a.ItemIndex)+'] => '+VetorUON1aFiltrado[cb_id_unid_organizacional_nivel1a.ItemIndex]);
663   - tstrAux := TStrings.Create;
664   - tstrAux := g_oCacic.explode(VetorUON1aFiltrado[cb_id_unid_organizacional_nivel1a.ItemIndex],'#');
665   -
666   - strIdUON1a := tstrAux[0];
667   - strIdLocal := tstrAux[1];
668   -
669   - tstrAux.Free;
670   -
671   - g_oCacic.writeDebugLog('strIdLocal = '+strIdLocal);
672   - cb_id_unid_organizacional_nivel2.Items.Clear;
673   - cb_id_unid_organizacional_nivel2.Enabled := false;
674   - SetLength(VetorUON2Filtrado, 0);
675   -
676   - g_oCacic.writeDebugLog('Tamanho de VetorUON1a..: '+IntToStr(Length(VetorUON1a)));
677   - g_oCacic.writeDebugLog('ItemIndex de cb_nivel1a: '+IntToStr(cb_id_unid_organizacional_nivel1a.ItemIndex));
678   - g_oCacic.writeDebugLog('Tamanho de VetorUON2...: '+IntToStr(Length(VetorUON2)));
679   -
680   - For i := 0 to Length(VetorUON2) - 1 Do
681   - Begin
682   - Try
683   - if (VetorUON2[i].id1a = strIdUON1a) and
684   - (VetorUON2[i].id_local = strIdLocal) then
685   - Begin
686   - g_oCacic.writeDebugLog('Add em cb_nivel2: '+VetorUON2[i].nm2);
687   - cb_id_unid_organizacional_nivel2.Items.Add(VetorUON2[i].nm2);
688   - j := Length(VetorUON2Filtrado);
689   - SetLength(VetorUON2Filtrado, j + 1);
690   - VetorUON2Filtrado[j] := VetorUON2[i].id2 + '#' + VetorUON2[i].id_local;
691   - g_oCacic.writeDebugLog('VetorUON2Filtrado['+IntToStr(j)+']= '+VetorUON2Filtrado[j]);
692   - end;
693   - Except
694   - End;
695   - end;
696   - if (cb_id_unid_organizacional_nivel2.Items.Count > 0) then
697   - Begin
698   - cb_id_unid_organizacional_nivel2.Enabled := true;
699   - cb_id_unid_organizacional_nivel2.ItemIndex := 0;
700   - End;
701   -end;
702   -
703   -
704   -procedure TfrmMapaCacic.AtualizaPatrimonio(Sender: TObject);
705   -var strIdUON1,
706   - strIdUON1a,
707   - strIdUON2,
708   - strIdLocal,
709   - strRetorno : String;
710   - tstrListAux : TStringList;
711   - tstrAux : TStrings;
712   -begin
713   - tstrAux := TStrings.Create;
714   - tstrAux := g_oCacic.explode(VetorUON2Filtrado[cb_id_unid_organizacional_nivel2.ItemIndex],'#');
715   - Try
716   - strIdUON1 := VetorUON1[cb_id_unid_organizacional_nivel1.ItemIndex].id1;
717   - strIdUON2 := tstrAux[0];
718   - strIdLocal := tstrAux[1];
719   - Except
720   - end;
721   -
722   - tstrAux := g_oCacic.explode(VetorUON1aFiltrado[cb_id_unid_organizacional_nivel1a.ItemIndex],'#');
723   - Try
724   - strIdUON1a := tstrAux[0];
725   - Except
726   - end;
727   -
728   - tstrAux.Free;
729   - Mensagem('Enviando Informações Coletadas ao Banco de Dados...',false,intPausaPadrao div 3);
730   - // Envio dos Dados Coletados ao Banco de Dados
731   - tstrListAux := TStringList.Create;
732   - tstrListAux.Values['te_node_address'] := g_oCacic.GetValueFromFile('TcpIp','TE_NODE_ADDRESS' , g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
733   - tstrListAux.Values['id_so'] := g_oCacic.GetValueFromFile('Configs','ID_SO' , g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
734   - tstrListAux.Values['te_so'] := g_oCacic.enCrypt(g_oCacic.getWindowsStrId());
735   - tstrListAux.Values['id_ip_rede'] := g_oCacic.GetValueFromFile('TcpIp','ID_IP_REDE' , g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
736   - tstrListAux.Values['te_ip'] := g_oCacic.GetValueFromFile('TcpIp','TE_IP' , g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
737   - tstrListAux.Values['te_nome_computador'] := g_oCacic.GetValueFromFile('TcpIp','TE_NOME_COMPUTADOR' , g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
738   - tstrListAux.Values['te_workgroup'] := g_oCacic.GetValueFromFile('TcpIp','TE_WORKGROUP' , g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
739   - tstrListAux.Values['id_usuario'] := g_oCacic.enCrypt(frmMapaCacic.strId_usuario);
740   - tstrListAux.Values['id_unid_organizacional_nivel1'] := g_oCacic.enCrypt(strIdUON1);
741   - tstrListAux.Values['id_unid_organizacional_nivel1a']:= g_oCacic.enCrypt(strIdUON1A);
742   - tstrListAux.Values['id_unid_organizacional_nivel2'] := g_oCacic.enCrypt(strIdUON2);
743   - tstrListAux.Values['te_localizacao_complementar' ] := g_oCacic.enCrypt(ed_te_localizacao_complementar.Text);
744   - tstrListAux.Values['te_info_patrimonio1' ] := g_oCacic.enCrypt(ed_te_info_patrimonio1.Text);
745   - tstrListAux.Values['te_info_patrimonio2' ] := g_oCacic.enCrypt(ed_te_info_patrimonio2.Text);
746   - tstrListAux.Values['te_info_patrimonio3' ] := g_oCacic.enCrypt(ed_te_info_patrimonio3.Text);
747   - tstrListAux.Values['te_info_patrimonio4' ] := g_oCacic.enCrypt(ed_te_info_patrimonio4.Text);
748   - tstrListAux.Values['te_info_patrimonio5' ] := g_oCacic.enCrypt(ed_te_info_patrimonio5.Text);
749   - tstrListAux.Values['te_info_patrimonio6' ] := g_oCacic.enCrypt(ed_te_info_patrimonio6.Text);
750   -
751   - g_oCacic.writeDebugLog('Informações para contato com mapa_set_patrimonio:');
752   - g_oCacic.writeDebugLog('te_node_address: '+tstrListAux.Values['te_node_address']);
753   - g_oCacic.writeDebugLog('id_so: '+tstrListAux.Values['id_so']);
754   - g_oCacic.writeDebugLog('te_so: '+tstrListAux.Values['te_so']);
755   - g_oCacic.writeDebugLog('id_ip_rede: '+tstrListAux.Values['id_ip_rede']);
756   - g_oCacic.writeDebugLog('te_ip: '+tstrListAux.Values['te_ip']);
757   - g_oCacic.writeDebugLog('te_nome_computador: '+tstrListAux.Values['te_nome_computador']);
758   - g_oCacic.writeDebugLog('te_workgroup: '+tstrListAux.Values['te_workgroup']);
759   -
760   - strRetorno := frmMapaCacic.ComunicaServidor('mapa_set_patrimonio.php', tstrListAux, '');
761   - tstrListAux.Free;
762   -
763   - if not (g_oCacic.xmlGetValue('STATUS', strRetorno)='OK') then
764   - Mensagem('ATENÇÃO: PROBLEMAS NO ENVIO DAS INFORMAÇÕES COLETADAS AO BANCO DE DADOS...',true,intPausaPadrao)
765   - else
766   - Begin
767   - Mensagem('Salvando Informações Coletadas em Base Local...',false,intPausaPadrao div 3);
768   - g_oCacic.setValueToFile('Patrimonio','id_unid_organizacional_nivel1' , g_oCacic.enCrypt( strIdUON1), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
769   - g_oCacic.setValueToFile('Patrimonio','id_unid_organizacional_nivel1a', g_oCacic.enCrypt(strIdUON1a), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
770   - g_oCacic.setValueToFile('Patrimonio','id_unid_organizacional_nivel2' , g_oCacic.enCrypt(strIdUON2) , g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
771   - g_oCacic.setValueToFile('Patrimonio','id_local' , g_oCacic.enCrypt(strIdLocal), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
772   - g_oCacic.setValueToFile('Patrimonio','te_localizacao_complementar' , g_oCacic.enCrypt(ed_te_localizacao_complementar.Text), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
773   - g_oCacic.setValueToFile('Patrimonio','te_info_patrimonio1' , g_oCacic.enCrypt(ed_te_info_patrimonio1.Text), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
774   - g_oCacic.setValueToFile('Patrimonio','te_info_patrimonio2' , g_oCacic.enCrypt(ed_te_info_patrimonio2.Text), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
775   - g_oCacic.setValueToFile('Patrimonio','te_info_patrimonio3' , g_oCacic.enCrypt(ed_te_info_patrimonio3.Text), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
776   - g_oCacic.setValueToFile('Patrimonio','te_info_patrimonio4' , g_oCacic.enCrypt(ed_te_info_patrimonio4.Text), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
777   - g_oCacic.setValueToFile('Patrimonio','te_info_patrimonio5' , g_oCacic.enCrypt(ed_te_info_patrimonio5.Text), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
778   - g_oCacic.setValueToFile('Patrimonio','te_info_patrimonio6' , g_oCacic.enCrypt(ed_te_info_patrimonio6.Text), g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
779   - g_oCacic.setValueToFile('Patrimonio','ultima_rede_obtida' , g_oCacic.GetValueFromFile('TcpIp','ID_IP_REDE',g_oCacic.getLocalFolder + 'GER_COLS.inf'),g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
780   - g_oCacic.setValueToFile('Patrimonio','dt_ultima_renovacao' , g_oCacic.enCrypt(FormatDateTime('yyyymmddhhnnss', Now)),g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
781   -
782   - g_oCacic.setValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1', ed_te_info_patrimonio1.Text);
783   - g_oCacic.setValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4', ed_te_info_patrimonio4.Text);
784   - End;
785   - Finalizar(true);
786   -end;
787   -
788   -procedure TfrmMapaCacic.MontaInterface(p_strConfigs : String);
789   -Begin
790   - Mensagem('Montando Interface para Coleta de Informações...',false,intPausaPadrao div 3);
791   -
792   - lbEtiqueta1.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta1', p_strConfigs));
793   - lbEtiqueta1.Visible := true;
794   - cb_id_unid_organizacional_nivel1.Hint := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_help_etiqueta1', p_strConfigs));
795   - cb_id_unid_organizacional_nivel1.Visible := true;
796   -
797   - lbEtiqueta1a.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta1a', p_strConfigs));
798   - lbEtiqueta1a.Visible := true;
799   - cb_id_unid_organizacional_nivel1a.Hint := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_help_etiqueta1a', p_strConfigs));
800   - cb_id_unid_organizacional_nivel1a.Visible := true;
801   -
802   - lbEtiqueta2.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta2', p_strConfigs));
803   - lbEtiqueta2.Visible := true;
804   - cb_id_unid_organizacional_nivel2.Hint := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_help_etiqueta2', p_strConfigs));
805   - cb_id_unid_organizacional_nivel2.Visible := true;
806   -
807   - lbEtiqueta3.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta3', p_strConfigs));
808   - lbEtiqueta3.Visible := true;
809   - ed_te_localizacao_complementar.Text := strTe_localizacao_complementar;
810   - ed_te_localizacao_complementar.Visible := true;
811   -
812   - g_oCacic.writeDebugLog('in_exibir_etiqueta4 -> "'+g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta4', p_strConfigs))+'"');
813   - if (trim(g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta4', p_strConfigs))) = 'S') then
814   - begin
815   - lbEtiqueta4.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta4', p_strConfigs));
816   - lbEtiqueta4.Visible := true;
817   - ed_te_info_patrimonio1.Hint := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_help_etiqueta4', p_strConfigs));
818   - ed_te_info_patrimonio1.Text := strTe_info_patrimonio1;
819   - ed_te_info_patrimonio1.visible := True;
820   - end;
821   -
822   - g_oCacic.writeDebugLog('in_exibir_etiqueta5 -> "'+g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta5', p_strConfigs))+'"');
823   - if (trim(g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta5', p_strConfigs))) = 'S') then
824   - begin
825   - lbEtiqueta5.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta5', p_strConfigs));
826   - lbEtiqueta5.Visible := true;
827   - ed_te_info_patrimonio2.Hint := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_help_etiqueta5', p_strConfigs));
828   - ed_te_info_patrimonio2.Text := strTe_info_patrimonio2;
829   - ed_te_info_patrimonio2.visible := True;
830   - end;
831   -
832   - g_oCacic.writeDebugLog('in_exibir_etiqueta6 -> "'+g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta6', p_strConfigs))+'"');
833   - if (trim(g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta6', p_strConfigs))) = 'S') then
834   - begin
835   - lbEtiqueta6.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta6', p_strConfigs));
836   - lbEtiqueta6.Visible := true;
837   - ed_te_info_patrimonio3.Hint := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_help_etiqueta6', p_strConfigs));
838   - ed_te_info_patrimonio3.Text := strTe_info_patrimonio3;
839   - ed_te_info_patrimonio3.visible := True;
840   - end;
841   -
842   - g_oCacic.writeDebugLog('in_exibir_etiqueta7 -> "'+g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta7', p_strConfigs))+'"');
843   - if (trim(g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta7', p_strConfigs))) = 'S') then
844   - begin
845   - lbEtiqueta7.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta7', p_strConfigs));
846   - lbEtiqueta7.Visible := true;
847   - ed_te_info_patrimonio4.Hint := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_help_etiqueta7', p_strConfigs));
848   - ed_te_info_patrimonio4.Text := strTe_info_patrimonio4;
849   - ed_te_info_patrimonio4.visible := True;
850   - end;
851   -
852   - g_oCacic.writeDebugLog('in_exibir_etiqueta8 -> "'+g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta8', p_strConfigs))+'"');
853   - if (trim(g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta8', p_strConfigs))) = 'S') then
854   - begin
855   - lbEtiqueta8.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta8', p_strConfigs));
856   - lbEtiqueta8.Visible := true;
857   - ed_te_info_patrimonio5.Hint := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_help_etiqueta8', p_strConfigs));
858   - ed_te_info_patrimonio5.Text := strTe_info_patrimonio5;
859   - ed_te_info_patrimonio5.visible := True;
860   - end;
861   -
862   - g_oCacic.writeDebugLog('in_exibir_etiqueta9 -> "'+g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta9', p_strConfigs))+'"');
863   - if (trim(g_oCacic.deCrypt(g_oCacic.xmlGetValue('in_exibir_etiqueta9', p_strConfigs))) = 'S') then
864   - begin
865   - lbEtiqueta9.Caption := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_etiqueta9', p_strConfigs));
866   - lbEtiqueta9.Visible := true;
867   - ed_te_info_patrimonio6.Hint := g_oCacic.deCrypt(g_oCacic.xmlGetValue('te_help_etiqueta9', p_strConfigs));
868   - ed_te_info_patrimonio6.Text := strTe_info_patrimonio6;
869   - ed_te_info_patrimonio6.visible := True;
870   - end;
871   -
872   - Application.ProcessMessages;
873   - Mensagem('',false,0);
874   - btGravarInformacoes.Visible := true;
875   -end;
876   -
877   -procedure TfrmMapaCacic.FormClose(Sender: TObject; var Action: TCloseAction);
878   -begin
879   - Finalizar(true);
880   -end;
881   -
882   -procedure TfrmMapaCacic.CriaFormSenha(Sender: TObject);
883   -begin
884   - Application.CreateForm(TfrmAcesso, frmAcesso);
885   -end;
886   -
887   -// Baixada de http://www.infoeng.hpg.ig.com.br/borland_delphi_dicas_2.htm
888   -function TfrmMapaCacic.LetrasDrives: string;
889   -var
890   -Drives: DWord;
891   -I, Tipo: byte;
892   -v_Unidade : string;
893   -begin
894   -Result := '';
895   -Drives := GetLogicalDrives;
896   -if Drives <> 0 then
897   -for I := 65 to 90 do
898   - if ((Drives shl (31 - (I - 65))) shr 31) = 1 then
899   - Begin
900   - v_Unidade := Char(I) + ':\';
901   - Tipo := GetDriveType(PChar(v_Unidade));
902   - case Tipo of
903   - DRIVE_FIXED: Result := Result + Char(I);
904   - end;
905   - End;
906   -end;
907   -// By Muad Dib 2003
908   -// at http://www.planet-source-code.com.
909   -// Excelente!!!
910   -function TfrmMapaCacic.SearchFile(p_Drive,p_File:string) : boolean;
911   -var sr:TSearchRec;
912   - sDirList:TStringList;
913   - i:integer;
914   - strResSearch : String;
915   -begin
916   - Result := false;
917   - strResSearch := '';
918   - if FindFirst(p_Drive+p_File,faAnyFile,sr) = 0 then
919   - Begin
920   - strResSearch := p_Drive+p_File;
921   - Result := true;
922   - End
923   - else
924   - Begin
925   - repeat
926   - until FindNext(sr)<>0;
927   - FindClose(sr);
928   - sDirList:= TStringList.Create;
929   - try
930   - GetSubDirs(p_Drive,sDirList);
931   - for i:=0 to sDirList.Count-1 do
932   - if (sDirList[i]<>'.') and (sDirList[i]<>'..') then
933   - begin
934   - //Application.ProcessMessages;
935   - if (SearchFile(IncludeTrailingPathDelimiter(p_Drive+sDirList[i]),p_File)) then
936   - Begin
937   - Result := true;
938   - Break;
939   - End;
940   - end;
941   - finally
942   - sDirList.Free;
943   - End;
944   - end;
945   -end;
946   -procedure TfrmMapaCacic.GetSubDirs(Folder:string; sList:TStringList);
947   - var
948   - sr:TSearchRec;
949   -begin
950   - if FindFirst(Folder+'*.*',faDirectory,sr)=0 then
951   - try
952   - repeat
953   - if(sr.Attr and faDirectory)=faDirectory then
954   - sList.Add(sr.Name);
955   - until FindNext(sr)<>0;
956   - finally
957   - FindClose(sr);
958   - end;
959   -end;
960   -
961   -procedure TfrmMapaCacic.mapa;
962   -var strConfigs : String;
963   - tstrAUX : TStrings;
964   -begin
965   - tstrAUX := TStrings.Create;
966   -
967   - Try
968   - strConfigs := g_oCacic.GetValueFromFile('Patrimonio','Configs',g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
969   - gbLeiaComAtencao.Visible := true;
970   - gbInformacoesSobreComputador.Visible := true;
971   - MontaCombos(strConfigs);
972   - RecuperaValoresAnteriores(strConfigs);
973   - MontaInterface(strConfigs);
974   - Application.ProcessMessages;
975   - Except
976   - End;
977   -End;
978   -
979   -procedure TfrmMapaCacic.FormActivate(Sender: TObject);
980   -var intAux : integer;
981   - strLetrasDrives,
982   - strRetorno,
983   - v_strTeLocalFolder,
984   - strAux : String;
985   - Request_mapa : TStringList;
986   -begin
987   - if not boolFinalizar then
988   - Begin
989   - g_oCacic := TCACIC.Create();
990   -
991   - g_oCacic.setBoolCipher(true);
992   - frmMapaCacic.lbVersao.Caption := 'Versão: ' + g_oCacic.GetVersionInfo(ParamStr(0));
993   -
994   - if (g_oCacic.isWindowsNTPlataform()) and (not g_oCacic.isWindowsAdmin()) then
995   - MessageDLG(#13#10+'ATENÇÃO! Essa aplicação requer execução com nível administrativo.',mtError,[mbOK],0)
996   - else
997   - Begin
998   - // Buscarei o caminho do Sistema em \WinDIR\chkSIS.ini
999   - v_strTeLocalFolder := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Configs','TeLocalFolder',g_oCacic.getWinDir + 'chksis.ini'));
1000   -
1001   - if not (v_strTeLocalFolder = '') then
1002   - Begin
1003   - g_oCacic.setLocalFolder(v_strTeLocalFolder);
1004   -
1005   - // A existência e bloqueio do arquivo abaixo evitará que o Agente Principal entre em ação
1006   - AssignFile(v_Aguarde,g_oCacic.getLocalFolder + '\temp\aguarde_MAPACACIC.txt'); {Associa o arquivo a uma variável do tipo TextFile}
1007   - {$IOChecks off}
1008   - Reset(v_Aguarde); {Abre o arquivo texto}
1009   - {$IOChecks on}
1010   - if (IOResult <> 0) then // Arquivo não existe, será recriado.
1011   - Rewrite (v_Aguarde);
1012   -
1013   - Append(v_Aguarde);
1014   - Writeln(v_Aguarde,'Apenas um pseudo-cookie para o Agente Principal esperar o término de MapaCACIC');
1015   - Append(v_Aguarde);
1016   -
1017   - strAux := Trim(g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','dt_ultima_renovacao',g_oCacic.getLocalFolder + 'GER_COLS.inf')));
1018   - if not FileExists(g_oCacic.getLocalFolder + g_oCacic.getInfFileName) or
1019   - (g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','dt_ultima_renovacao',g_oCacic.getLocalFolder + g_oCacic.getInfFileName)) = '') or
1020   - (strAux <> '') and (StrToInt64(g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','dt_ultima_renovacao',g_oCacic.getLocalFolder + g_oCacic.getInfFileName))) < StrToInt64(g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Patrimonio','dt_ultima_renovacao',g_oCacic.getLocalFolder + 'GER_COLS.inf')))) then
1021   - CopyFile(PChar(g_oCacic.getLocalFolder + 'GER_COLS.inf'), PChar(g_oCacic.getLocalFolder + g_oCacic.getInfFileName), true);
1022   -
1023   - frmMapaCacic.edTeWebManagerAddress.Caption := g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Configs','TeWebManagerAddress', g_oCacic.getLocalFolder + g_oCacic.getInfFileName));
1024   -
1025   - frmMapaCacic.lbMensagens.Caption := 'Entrada de Dados para Autenticação no Módulo Gerente WEB Cacic';
1026   - if (g_oCacic.deCrypt( g_oCacic.GetValueFromFile('TcpIp','TE_NODE_ADDRESS' , g_oCacic.getLocalFolder + 'GER_COLS.inf'))='') then
1027   - Begin
1028   - frmMapaCacic.boolAcessoOK := false;
1029   - MessageDLG(#13#10+'Atenção! É necessário executar as coletas do Sistema Cacic.' + #13#10 + #13#10 +
1030   - 'Caso o Sistema Cacic já esteja instalado, clique com botão direito' + #13#10 +
1031   - 'sobre o ícone da bandeja, escolha a opção "Executar Agora" e aguarde' + #13#10 +
1032   - 'o fim do processo.',mtError,[mbOK],0);
1033   - frmMapaCacic.Finalizar(false);
1034   - End
1035   - else
1036   - Begin
1037   -
1038   - g_oCacic.checkDebugMode;
1039   - g_oCacic.writeDebugLog('Versão do MapaCacic: '+frmMapaCacic.lbVersao.Caption);
1040   -
1041   - // Acessar...
1042   - CriaFormSenha(nil);
1043   - frmAcesso.ShowModal;
1044   -
1045   - if boolFinalizar then
1046   - Finalizar(false)
1047   - else if boolAcessoOK then
1048   - Begin
1049   - pnMensagens.Visible := true;
1050   - Mensagem('Efetuando Comunicação com o Módulo Gerente WEB em "'+g_oCacic.deCrypt( g_oCacic.GetValueFromFile('Configs','TeWebManagerAddress',g_oCacic.getLocalFolder + 'GER_COLS.inf'))+'"...',false,intPausaPadrao div 3);
1051   - frmAcesso.Free;
1052   -
1053   - // Povoamento com dados de configurações da interface patrimonial
1054   - // Solicita ao servidor as configurações para a Coleta de Informações de Patrimônio
1055   - Request_mapa := TStringList.Create;
1056   - Request_mapa.Values['te_node_address'] := g_oCacic.GetValueFromFile('TcpIp','TE_NODE_ADDRESS' , g_oCacic.getLocalFolder + 'GER_COLS.inf');
1057   - Request_mapa.Values['id_so'] := g_oCacic.GetValueFromFile('Configs','ID_SO' , g_oCacic.getLocalFolder + 'GER_COLS.inf');
1058   - Request_mapa.Values['te_so'] := g_oCacic.enCrypt(g_oCacic.getWindowsStrId());
1059   - Request_mapa.Values['id_ip_rede'] := g_oCacic.GetValueFromFile('TcpIp','ID_IP_REDE' , g_oCacic.getLocalFolder + 'GER_COLS.inf');
1060   - Request_mapa.Values['te_ip'] := g_oCacic.GetValueFromFile('TcpIp','TE_IP' , g_oCacic.getLocalFolder + 'GER_COLS.inf');
1061   - Request_mapa.Values['te_nome_computador']:= g_oCacic.GetValueFromFile('TcpIp','TE_NOME_COMPUTADOR', g_oCacic.getLocalFolder + 'GER_COLS.inf');
1062   - Request_mapa.Values['te_workgroup'] := g_oCacic.GetValueFromFile('TcpIp','TE_WORKGROUP' , g_oCacic.getLocalFolder + 'GER_COLS.inf');
1063   - Request_mapa.Values['id_usuario'] := g_oCacic.enCrypt(frmMapaCacic.strId_usuario);
1064   -
1065   - strRetorno := frmMapaCacic.ComunicaServidor('mapa_get_patrimonio.php', Request_mapa, '.');
1066   -
1067   - g_oCacic.writeDebugLog('Retorno: "'+strRetorno+'"');
1068   -
1069   - if (g_oCacic.xmlGetValue('STATUS', strRetorno)='OK') then
1070   - Begin
1071   - Mensagem('Comunicação Efetuada com Sucesso! Salvando as Configurações Obtidas...',false,intPausaPadrao div 3);
1072   - g_oCacic.setValueToFile('Patrimonio','Configs', strRetorno, g_oCacic.getLocalFolder + g_oCacic.getInfFileName);
1073   - End
1074   - else
1075   - Begin
1076   - Mensagem('PROBLEMAS NA COMUNICAÇÃO COM O MÓDULO GERENTE WEB...',true,intPausaPadrao);
1077   - Finalizar(true);
1078   - End;
1079   -
1080   - Request_mapa.Free;
1081   -
1082   - mapa;
1083   - End;
1084   - End;
1085   - End
1086   - else
1087   - Begin
1088   - frmMapaCacic.boolAcessoOK := false;
1089   - MessageDLG(#13#10+'Atenção! É necessário reinstalar o CACIC nesta estação.' + #13#10 + #13#10 +
1090   - 'A estrutura encontra-se corrompida.' + #13#10,mtError,[mbOK],0);
1091   - frmMapaCacic.Finalizar(false);
1092   - End;
1093   - End;
1094   - End;
1095   -end;
1096   -
1097   -procedure TfrmMapaCacic.FormCreate(Sender: TObject);
1098   -begin
1099   - boolFinalizar := false;
1100   -end;
1101   -
1102   -end.
mapa/mapa.res
View file @090c306
No preview for this file type
mapa/mapa_icon.ico
View file @090c306
No preview for this file type
mapa/mapacacic.cfg
View file @090c306
... ... @@ -1,43 +0,0 @@
1   --$A8
2   --$B-
3   --$C+
4   --$D+
5   --$E-
6   --$F-
7   --$G+
8   --$H+
9   --$I+
10   --$J-
11   --$K-
12   --$L+
13   --$M-
14   --$N+
15   --$O+
16   --$P+
17   --$Q-
18   --$R-
19   --$S-
20   --$T-
21   --$U-
22   --$V+
23   --$W-
24   --$X+
25   --$YD
26   --$Z1
27   --cg
28   --AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
29   --H+
30   --W+
31   --M
32   --$M16384,1048576
33   --K$00400000
34   --E"C:\arariboia_mod_BINARIOS"
35   --LE"c:\program files\borland\delphi7\Projects\Bpl"
36   --LN"c:\program files\borland\delphi7\Projects\Bpl"
37   --U"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
38   --O"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
39   --I"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
40   --R"C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion"
41   --w-UNSAFE_TYPE
42   --w-UNSAFE_CODE
43   --w-UNSAFE_CAST
mapa/mapacacic.dof
View file @090c306
... ... @@ -1,154 +0,0 @@
1   -[FileVersion]
2   -Version=7.0
3   -[Compiler]
4   -A=8
5   -B=0
6   -C=1
7   -D=1
8   -E=0
9   -F=0
10   -G=1
11   -H=1
12   -I=1
13   -J=0
14   -K=0
15   -L=1
16   -M=0
17   -N=1
18   -O=1
19   -P=1
20   -Q=0
21   -R=0
22   -S=0
23   -T=0
24   -U=0
25   -V=1
26   -W=0
27   -X=1
28   -Y=1
29   -Z=1
30   -ShowHints=1
31   -ShowWarnings=1
32   -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
33   -NamespacePrefix=
34   -SymbolDeprecated=1
35   -SymbolLibrary=1
36   -SymbolPlatform=1
37   -UnitLibrary=1
38   -UnitPlatform=1
39   -UnitDeprecated=1
40   -HResultCompat=1
41   -HidingMember=1
42   -HiddenVirtual=1
43   -Garbage=1
44   -BoundsError=1
45   -ZeroNilCompat=1
46   -StringConstTruncated=1
47   -ForLoopVarVarPar=1
48   -TypedConstVarPar=1
49   -AsgToTypedConst=1
50   -CaseLabelRange=1
51   -ForVariable=1
52   -ConstructingAbstract=1
53   -ComparisonFalse=1
54   -ComparisonTrue=1
55   -ComparingSignedUnsigned=1
56   -CombiningSignedUnsigned=1
57   -UnsupportedConstruct=1
58   -FileOpen=1
59   -FileOpenUnitSrc=1
60   -BadGlobalSymbol=1
61   -DuplicateConstructorDestructor=1
62   -InvalidDirective=1
63   -PackageNoLink=1
64   -PackageThreadVar=1
65   -ImplicitImport=1
66   -HPPEMITIgnored=1
67   -NoRetVal=1
68   -UseBeforeDef=1
69   -ForLoopVarUndef=1
70   -UnitNameMismatch=1
71   -NoCFGFileFound=1
72   -MessageDirective=1
73   -ImplicitVariants=1
74   -UnicodeToLocale=1
75   -LocaleToUnicode=1
76   -ImagebaseMultiple=1
77   -SuspiciousTypecast=1
78   -PrivatePropAccessor=1
79   -UnsafeType=0
80   -UnsafeCode=0
81   -UnsafeCast=0
82   -[Linker]
83   -MapFile=0
84   -OutputObjs=0
85   -ConsoleApp=1
86   -DebugInfo=0
87   -RemoteSymbols=0
88   -MinStackSize=16384
89   -MaxStackSize=1048576
90   -ImageBase=4194304
91   -ExeDescription=
92   -[Directories]
93   -OutputDir=C:\arariboia_mod_BINARIOS
94   -UnitOutputDir=
95   -PackageDLLOutputDir=
96   -PackageDCPOutputDir=
97   -SearchPath=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
98   -Packages=vcl;rtl;vclx;indy;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;ibxpress;teeui;teedb;tee;dss;visualclx;visualdbclx;vclactnband;vclshlctrls;IntrawebDB_50_70;Intraweb_50_70;Rave50CLX;Rave50VCL;dclOffice2k;MSI_D7_Rtl
99   -Conditionals=
100   -DebugSourceDirs=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
101   -UsePackages=0
102   -[Parameters]
103   -RunParams=
104   -HostApplication=
105   -Launcher=
106   -UseLauncher=0
107   -DebugCWD=
108   -[Language]
109   -ActiveLang=
110   -ProjectLang=
111   -RootDir=C:\Arquivos de programas\Borland\Delphi7\Bin\
112   -[Version Info]
113   -IncludeVerInfo=1
114   -AutoIncBuild=0
115   -MajorVer=2
116   -MinorVer=6
117   -Release=0
118   -Build=2
119   -Debug=0
120   -PreRelease=0
121   -Special=0
122   -Private=0
123   -DLL=0
124   -Locale=1046
125   -CodePage=1252
126   -[Version Info Keys]
127   -CompanyName=Dataprev - Emp. de TI da Prev.Social - UDSL/SSLC
128   -FileDescription=Sistema CACIC - Módulo Avulso para Coleta de Informações Patrimoniais
129   -FileVersion=2.6.0.2
130   -InternalName=
131   -LegalCopyright=
132   -LegalTrademarks=
133   -OriginalFilename=
134   -ProductName=MapaCACIC
135   -ProductVersion=2.6-Beta-2
136   -Comments=Licença: GNU/LGPL
137   -[HistoryLists\hlDebugSourcePath]
138   -Count=2
139   -Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
140   -Item1=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
141   -[HistoryLists\hlUnitAliases]
142   -Count=1
143   -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
144   -[HistoryLists\hlSearchPath]
145   -Count=4
146   -Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion
147   -Item1=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP
148   -Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Ciphers;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes
149   -Item3=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7
150   -[HistoryLists\hlOutputDirectorry]
151   -Count=3
152   -Item0=C:\arariboia_mod_BINARIOS
153   -Item1=Z:\cacic2\repositorio
154   -Item2=..\
mapa/mapacacic.dpr
View file @090c306
... ... @@ -1,60 +0,0 @@
1   -(**
2   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
3   -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil
4   -
5   -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais
6   -
7   -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como
8   -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão.
9   -
10   -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer
11   -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes.
12   -
13   -Você deve ter recebido uma cópia da Licença Pública Geral GNU, sob o título "LICENCA.txt", junto com este programa, se não, escreva para a Fundação do Software
14   -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
15   ----------------------------------------------------------------------------------------------------------------------------------------------------------------
16   -*)
17   -
18   -program MapaCacic;
19   -
20   -uses
21   - Forms,
22   - Windows,
23   - main_mapa in 'main_mapa.pas' {frmMapaCacic},
24   - acesso in 'acesso.pas' {frmAcesso},
25   - CACIC_Library in '..\CACIC_Library.pas';
26   -// LibXmlParser in '..\LibXmlParser.pas';
27   -
28   -{$R *.res}
29   -
30   -const
31   - CACIC_APP_NAME = 'MapaCacic';
32   -
33   -var
34   - hwind:HWND;
35   - oCacic : TCACIC;
36   -
37   -begin
38   - oCacic := TCACIC.Create();
39   -
40   - if( oCacic.isAppRunning( CACIC_APP_NAME ) )
41   - then begin
42   - hwind := 0;
43   - repeat // The string 'My app' must match your App Title (below)
44   - hwind:=Windows.FindWindowEx(0,hwind,'TApplication', CACIC_APP_NAME );
45   - until (hwind<>Application.Handle);
46   - IF (hwind<>0) then
47   - begin
48   - Windows.ShowWindow(hwind,SW_SHOWNORMAL);
49   - Windows.SetForegroundWindow(hwind);
50   - end;
51   - FreeMemory(0);
52   - end
53   - else
54   - begin
55   - Application.Initialize;
56   - Application.CreateForm(TfrmMapaCacic, frmMapaCacic);
57   - Application.Run;
58   - end;
59   - oCacic.Free();
60   -end.
mapa/mapacacic.dproj
View file @090c306
... ... @@ -1,92 +0,0 @@
1   -<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
2   - <PropertyGroup>
3   - <ProjectGuid>{f5ef289b-8ae5-459f-a58d-b460febcbefd}</ProjectGuid>
4   - <MainSource>mapacacic.dpr</MainSource>
5   - <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
6   - <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
7   - <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
8   - <DCC_DependencyCheckOutputName>..\mapacacic.exe</DCC_DependencyCheckOutputName>
9   - </PropertyGroup>
10   - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
11   - <Version>7.0</Version>
12   - <DCC_DebugInformation>False</DCC_DebugInformation>
13   - <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
14   - <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
15   - <DCC_ExeOutput>..\</DCC_ExeOutput>
16   - <DCC_UnitSearchPath>C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion</DCC_UnitSearchPath>
17   - <DCC_ResourcePath>C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion</DCC_ResourcePath>
18   - <DCC_ObjPath>C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion</DCC_ObjPath>
19   - <DCC_IncludePath>C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion</DCC_IncludePath>
20   - <DCC_Define>RELEASE</DCC_Define>
21   - </PropertyGroup>
22   - <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
23   - <Version>7.0</Version>
24   - <DCC_ExeOutput>..\</DCC_ExeOutput>
25   - <DCC_UnitSearchPath>C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion</DCC_UnitSearchPath>
26   - <DCC_ResourcePath>C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion</DCC_ResourcePath>
27   - <DCC_ObjPath>C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion</DCC_ObjPath>
28   - <DCC_IncludePath>C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\NTFileSecurity;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\PJVersion</DCC_IncludePath>
29   - <DCC_Define>DEBUG</DCC_Define>
30   - </PropertyGroup>
31   - <ProjectExtensions>
32   - <Borland.Personality>Delphi.Personality</Borland.Personality>
33   - <Borland.ProjectType>VCLApplication</Borland.ProjectType>
34   - <BorlandProject>
35   -<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
36   - <Parameters Name="DebugSourceDirs">C:\Arquivos de programas\Borland\Delphi7\Mitec\D7;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP;C:\Arquivos de programas\Borland\Delphi7\CriptografiaDCP\Hashes</Parameters>
37   - <Parameters Name="UseLauncher">False</Parameters>
38   - <Parameters Name="LoadAllSymbols">True</Parameters>
39   - <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
40   - </Parameters>
41   - <Language>
42   - <Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</Language>
43   - </Language>
44   - <VersionInfo>
45   - <VersionInfo Name="IncludeVerInfo">True</VersionInfo>
46   - <VersionInfo Name="AutoIncBuild">False</VersionInfo>
47   - <VersionInfo Name="MajorVer">2</VersionInfo>
48   - <VersionInfo Name="MinorVer">6</VersionInfo>
49   - <VersionInfo Name="Release">0</VersionInfo>
50   - <VersionInfo Name="Build">0</VersionInfo>
51   - <VersionInfo Name="Debug">False</VersionInfo>
52   - <VersionInfo Name="PreRelease">False</VersionInfo>
53   - <VersionInfo Name="Special">False</VersionInfo>
54   - <VersionInfo Name="Private">False</VersionInfo>
55   - <VersionInfo Name="DLL">False</VersionInfo>
56   - <VersionInfo Name="Locale">1046</VersionInfo>
57   - <VersionInfo Name="CodePage">1252</VersionInfo>
58   - </VersionInfo>
59   - <VersionInfoKeys>
60   - <VersionInfoKeys Name="CompanyName">Dataprev - Emp. de TI da Prev.Social - UDSL/SSLC</VersionInfoKeys>
61   - <VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Avulso para Coleta de Informações Patrimoniais</VersionInfoKeys>
62   - <VersionInfoKeys Name="FileVersion">2.5.9.0</VersionInfoKeys>
63   - <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
64   - <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
65   - <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
66   - <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
67   - <VersionInfoKeys Name="ProductName">MapaCACIC</VersionInfoKeys>
68   - <VersionInfoKeys Name="ProductVersion">2.6.0.0</VersionInfoKeys>
69   - <VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys>
70   - </VersionInfoKeys>
71   - <Source>
72   - <Source Name="MainSource">mapacacic.dpr</Source>
73   - </Source>
74   - </Delphi.Personality> </BorlandProject></BorlandProject>
75   - </ProjectExtensions>
76   - <ItemGroup />
77   - <ItemGroup>
78   - <DelphiCompile Include="mapacacic.dpr">
79   - <MainSource>MainSource</MainSource>
80   - </DelphiCompile>
81   - <DCCReference Include="..\CACIC_Library.pas" />
82   - <DCCReference Include="acesso.pas">
83   - <Form>frmAcesso</Form>
84   - </DCCReference>
85   - <DCCReference Include="LibXmlParser.pas" />
86   - <DCCReference Include="main_mapa.pas">
87   - <Form>frmMapaCacic</Form>
88   - </DCCReference>
89   - <DCCReference Include="xml.pas" />
90   - </ItemGroup>
91   - <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
92   -</Project>
93 0 \ No newline at end of file
mapa/mapacacic.identcache
View file @090c306
No preview for this file type
mapa/mapacacic.res
View file @090c306
No preview for this file type