Download as
Browse Code »

Commit 4eec8046e62313dc76dfd0f7acbe6b3e4f93b095

Authored by Adriano Vieira
1 parent 35845992
Exists in master

Excluídos arquivos desnecessários 

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@1213 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 11 changed files with 46 additions and 2121 deletions   Show diff stats
CacicVersionsAndHashes/CacicVersionsAndHashes.dproj 0 → 100644
  Diff comments   View file @4eec804
@@ -0,0 +1,46 @@ @@ -0,0 +1,46 @@
  1 +<?xml version="1.0" encoding="utf-8"?>
  2 +<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
  3 + <PropertyGroup>
  4 + <ProjectGuid>{d0d857b5-96d3-4559-916d-ffabbc2df148}</ProjectGuid>
  5 + <MainSource>CacicVersionsAndHashes.dpr</MainSource>
  6 + <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
  7 + <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
  8 + <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
  9 + <DCC_DependencyCheckOutputName>..\..\Agentes_Windows_BINARIOS\CacicVersionsAndHashes.exe</DCC_DependencyCheckOutputName>
  10 + </PropertyGroup>
  11 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
  12 + <Version>7.0</Version>
  13 + <DCC_DebugInformation>False</DCC_DebugInformation>
  14 + <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
  15 + <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
  16 + <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
  17 + <DCC_Define>DEBUG</DCC_Define>
  18 + <DCC_UNSAFE_TYPE>True</DCC_UNSAFE_TYPE>
  19 + <DCC_UNSAFE_CODE>True</DCC_UNSAFE_CODE>
  20 + <DCC_UNSAFE_CAST>True</DCC_UNSAFE_CAST>
  21 + </PropertyGroup>
  22 + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
  23 + <Version>7.0</Version>
  24 + <DCC_ExeOutput>C:\devel\cacic\Agentes_Windows_BINARIOS</DCC_ExeOutput>
  25 + <DCC_Define>DEBUG</DCC_Define>
  26 + <DCC_UNSAFE_TYPE>True</DCC_UNSAFE_TYPE>
  27 + <DCC_UNSAFE_CODE>True</DCC_UNSAFE_CODE>
  28 + <DCC_UNSAFE_CAST>True</DCC_UNSAFE_CAST>
  29 + </PropertyGroup>
  30 + <ProjectExtensions>
  31 + <Borland.Personality>Delphi.Personality</Borland.Personality>
  32 + <Borland.ProjectType>VCLApplication</Borland.ProjectType>
  33 + <BorlandProject>
  34 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Documents and Settings\d306851\Desktop\MiTeC\Demos\1\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">1212</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1046</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.0.1212</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">CacicVersionsAndHashes.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  35 + </ProjectExtensions>
  36 + <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
  37 + <ItemGroup>
  38 + <DelphiCompile Include="CacicVersionsAndHashes.dpr">
  39 + <MainSource>MainSource</MainSource>
  40 + </DelphiCompile>
  41 + <DCCReference Include="..\CACIC_Library.pas" />
  42 + <DCCReference Include="uCacicVersionsAndHashes.pas">
  43 + <Form>frmCacicVersionsAndHashes</Form>
  44 + </DCCReference>
  45 + </ItemGroup>
  46 +</Project>
0 \ No newline at end of file 47 \ No newline at end of file
CacicVersionsAndHashes/uCacicVersionsAndHashes.dcu
View file @3584599
No preview for this file type
cacic26Beta2.dof
View file @3584599
@@ -1,152 +0,0 @@ @@ -1,152 +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=1  
80 -UnsafeCode=1  
81 -UnsafeCast=1  
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=  
98 -Packages=vcl;rtl;vclx;inet;xmlrtl;vclie;inetdbbde;inetdbxpress;dbrtl;dsnap;dsnapcon;vcldb;soaprtl;VclSmp;dbexpress;dbxcds;inetdb;bdertl;vcldbx;webdsnap;websnap;adortl;dss;teeui;teedb;tee;visualclx;visualdbclx;vclactnband;vclshlctrls;indy;PJVersion;FileSecurity;FlaskPKG;Jcl;JclVcl;JvCoreD7R;JvSystemD7R;JvStdCtrlsD7R;JvAppFrmD7R;JvBandsD7R;JvDBD7R;JvDlgsD7R;JvBDED7R;JvCmpD7R;JvCryptD7R;JvCtrlsD7R;JvCustomD7R;JvDockingD7R;JvDotNetCtrlsD7R;JvEDID7R;JvGlobusD7R;JvHMID7R;JvInterpreterD7R;JvJansD7R;JvManagedThreadsD7R;JvMMD7R;JvNetD7R;JvPageCompsD7R;JvPluginD7R;JvPrintPreviewD7R;JvRuntimeDesignD7R;JvTimeFrameworkD7R;JvUIBD7R;JvValidatorsD7R;JvWizardD7R;JvXPCtrlsD7R;Imagens_Windows;FreeRep7  
99 -Conditionals=  
100 -DebugSourceDirs=  
101 -UsePackages=0  
102 -[Parameters]  
103 -RunParams=  
104 -HostApplication=  
105 -Launcher=  
106 -UseLauncher=0  
107 -DebugCWD=  
108 -[Language]  
109 -ActiveLang=  
110 -ProjectLang=  
111 -RootDir=  
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 Agente Principal  
129 -FileVersion=2.6.0.2  
130 -InternalName=  
131 -LegalCopyright=Baseado na licença GNU/LGPL  
132 -LegalTrademarks=  
133 -OriginalFilename=  
134 -ProductName=Cacic - Configurador Automático e Coletor de Informações Computacionais  
135 -ProductVersion=2.6-Beta-2  
136 -[HistoryLists\hlDebugSourcePath]  
137 -Count=1  
138 -Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7  
139 -[HistoryLists\hlUnitAliases]  
140 -Count=1  
141 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;  
142 -[HistoryLists\hlSearchPath]  
143 -Count=3  
144 -Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP  
145 -Item1=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  
146 -Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7  
147 -[HistoryLists\hlOutputDirectorry]  
148 -Count=4  
149 -Item0=C:\arariboia_mod_BINARIOS  
150 -Item1=Z:\cacic26b2\repositorio  
151 -Item2=Z:\cacic2\repositorio  
152 -Item3=..\  
cacic26Beta2.dpr
View file @3584599
@@ -1,67 +0,0 @@ @@ -1,67 +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 cacic26Beta2;  
19 -  
20 -uses  
21 - Forms,  
22 - Windows,  
23 - main in 'main.pas' {FormularioGeral},  
24 - frmSenha in 'frmsenha.pas' {formSenha},  
25 - frmConfiguracoes in 'frmConfiguracoes.pas' {FormConfiguracoes},  
26 - frmLog in 'frmLog.pas' {FormLog},  
27 - LibXmlParser,  
28 - CACIC_Library in 'CACIC_Library.pas',  
29 - USBdetectClass in 'USBdetectClass.pas';  
30 -// WinVNC in 'winvnc.pas',  
31 -  
32 -{$R *.res}  
33 -  
34 -const  
35 - CACIC_APP_NAME = 'cacic3';  
36 -  
37 -var  
38 - hwind:HWND;  
39 - oCacic : TCACIC;  
40 -  
41 -begin  
42 - oCacic := TCACIC.Create();  
43 -  
44 - if( oCacic.isAppRunning( CACIC_APP_NAME ) )  
45 - then begin  
46 - hwind := 0;  
47 - repeat // The string 'My app' must match your App Title (below)  
48 - hwind:=Windows.FindWindowEx(0,hwind,'TApplication', CACIC_APP_NAME );  
49 - until (hwind<>Application.Handle);  
50 - IF (hwind<>0) then  
51 - begin  
52 - Windows.ShowWindow(hwind,SW_SHOWNORMAL);  
53 - Windows.SetForegroundWindow(hwind);  
54 - end;  
55 - FreeMemory(0);  
56 - Halt(0);  
57 - end;  
58 -  
59 - oCacic.Free();  
60 -  
61 - // Preventing application button showing in the task bar  
62 - SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW );  
63 - Application.Initialize;  
64 - Application.Title := 'cacic3';  
65 - Application.CreateForm(TFormularioGeral, FormularioGeral);  
66 - Application.Run;  
67 -end.  
cacic26Beta2.res
View file @3584599
No preview for this file type
mapacacic/MapaCACIC.~dpr
View file @3584599
@@ -1,58 +0,0 @@ @@ -1,58 +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 - uMainMapa in 'uMainMapa.pas' {frmMapaCacic},  
24 - uAcessoMapa in 'uAcessoMapa.pas' {frmAcesso},  
25 - CACIC_Library in '..\CACIC_Library.pas',  
26 - CACIC_Comm in '..\CACIC_Comm.pas';  
27 -  
28 -{$R *.res}  
29 -  
30 -const APP_NAME = 'MapaCacic.exe';  
31 -  
32 -var hwind:HWND;  
33 - oCacic : TCACIC;  
34 -  
35 -begin  
36 - oCacic := TCACIC.Create();  
37 -  
38 - if( oCacic.isAppRunning( APP_NAME ) )  
39 - then begin  
40 - hwind := 0;  
41 - repeat // The string 'My app' must match your App Title (below)  
42 - hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME );  
43 - until (hwind<>Application.Handle);  
44 - IF (hwind<>0) then  
45 - begin  
46 - Windows.ShowWindow(hwind,SW_SHOWNORMAL);  
47 - Windows.SetForegroundWindow(hwind);  
48 - end;  
49 - FreeMemory(0);  
50 - end  
51 - else  
52 - begin  
53 - Application.Initialize;  
54 - Application.CreateForm(TfrmMapaCacic, frmMapaCacic);  
55 - Application.Run;  
56 - end;  
57 - oCacic.Free();  
58 -end.  
mapacacic/uAcessoMapa.~ddp
View file @3584599
No preview for this file type
mapacacic/uAcessoMapa.~dfm
View file @3584599
@@ -1,301 +0,0 @@ @@ -1,301 +0,0 @@
1 -object frmAcesso: TfrmAcesso  
2 - Left = 318  
3 - Top = 199  
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 - PixelsPerInch = 96  
153 - TextHeight = 13  
154 - object btAcesso: TButton  
155 - Left = 177  
156 - Top = 260  
157 - Width = 105  
158 - Height = 33  
159 - Caption = 'Acessar'  
160 - Default = True  
161 - Enabled = False  
162 - Font.Charset = DEFAULT_CHARSET  
163 - Font.Color = clWindowText  
164 - Font.Height = -16  
165 - Font.Name = 'Arial'  
166 - Font.Style = [fsBold]  
167 - ParentFont = False  
168 - TabOrder = 0  
169 - OnClick = btAcessoClick  
170 - end  
171 - object btCancela: TButton  
172 - Left = 333  
173 - Top = 260  
174 - Width = 105  
175 - Height = 33  
176 - Caption = 'Cancelar'  
177 - Font.Charset = DEFAULT_CHARSET  
178 - Font.Color = clWindowText  
179 - Font.Height = -16  
180 - Font.Name = 'Arial'  
181 - Font.Style = [fsBold]  
182 - ParentFont = False  
183 - TabOrder = 1  
184 - OnClick = btCancelaClick  
185 - end  
186 - object pnAcesso: TPanel  
187 - Left = 2  
188 - Top = 3  
189 - Width = 602  
190 - Height = 196  
191 - BevelInner = bvRaised  
192 - BevelOuter = bvLowered  
193 - TabOrder = 2  
194 - object lbNomeUsuarioAcesso: TLabel  
195 - Left = 109  
196 - Top = 42  
197 - Width = 127  
198 - Height = 20  
199 - Caption = 'Nome de Usu'#225'rio:'  
200 - Font.Charset = DEFAULT_CHARSET  
201 - Font.Color = clWindowText  
202 - Font.Height = -16  
203 - Font.Name = 'MS Sans Serif'  
204 - Font.Style = []  
205 - ParentFont = False  
206 - Visible = False  
207 - end  
208 - object lbSenhaAcesso: TLabel  
209 - Left = 106  
210 - Top = 82  
211 - Width = 130  
212 - Height = 20  
213 - Caption = 'Senha de Acesso:'  
214 - Font.Charset = DEFAULT_CHARSET  
215 - Font.Color = clWindowText  
216 - Font.Height = -16  
217 - Font.Name = 'MS Sans Serif'  
218 - Font.Style = []  
219 - ParentFont = False  
220 - Visible = False  
221 - end  
222 - object lbAviso: TLabel  
223 - Left = 4  
224 - Top = 171  
225 - Width = 593  
226 - Height = 13  
227 - Alignment = taCenter  
228 - AutoSize = False  
229 - Font.Charset = DEFAULT_CHARSET  
230 - Font.Color = clNavy  
231 - Font.Height = -11  
232 - Font.Name = 'MS Sans Serif'  
233 - Font.Style = []  
234 - ParentFont = False  
235 - end  
236 - object edNomeUsuarioAcesso: TEdit  
237 - Left = 239  
238 - Top = 39  
239 - Width = 250  
240 - Height = 28  
241 - Font.Charset = DEFAULT_CHARSET  
242 - Font.Color = clWindowText  
243 - Font.Height = -16  
244 - Font.Name = 'MS Sans Serif'  
245 - Font.Style = []  
246 - MaxLength = 20  
247 - ParentFont = False  
248 - TabOrder = 0  
249 - Visible = False  
250 - OnKeyUp = edNomeUsuarioAcessoKeyUp  
251 - end  
252 - object edSenhaAcesso: TEdit  
253 - Left = 239  
254 - Top = 79  
255 - Width = 250  
256 - Height = 28  
257 - Font.Charset = DEFAULT_CHARSET  
258 - Font.Color = clWindowText  
259 - Font.Height = -16  
260 - Font.Name = 'MS Sans Serif'  
261 - Font.Style = []  
262 - ParentFont = False  
263 - PasswordChar = #7  
264 - TabOrder = 1  
265 - Visible = False  
266 - OnKeyUp = edSenhaAcessoKeyUp  
267 - end  
268 - end  
269 - object pnMessageBox: TPanel  
270 - Left = 1  
271 - Top = 198  
272 - Width = 602  
273 - Height = 45  
274 - BevelInner = bvLowered  
275 - Color = clGradientInactiveCaption  
276 - Font.Charset = DEFAULT_CHARSET  
277 - Font.Color = clGradientActiveCaption  
278 - Font.Height = -13  
279 - Font.Name = 'Arial'  
280 - Font.Style = []  
281 - ParentFont = False  
282 - TabOrder = 3  
283 - Visible = False  
284 - object lbMensagens: TLabel  
285 - Left = 2  
286 - Top = 2  
287 - Width = 598  
288 - Height = 41  
289 - Align = alClient  
290 - Alignment = taCenter  
291 - AutoSize = False  
292 - Font.Charset = DEFAULT_CHARSET  
293 - Font.Color = clWindowText  
294 - Font.Height = -13  
295 - Font.Name = 'MS Sans Serif'  
296 - Font.Style = []  
297 - ParentFont = False  
298 - Layout = tlCenter  
299 - end  
300 - end  
301 -end  
mapacacic/uMainMapa.~dfm
View file @3584599
@@ -1,650 +0,0 @@ @@ -1,650 +0,0 @@
1 -object frmMapaCacic: TfrmMapaCacic  
2 - Left = 494  
3 - Top = 200  
4 - Width = 1109  
5 - Height = 579  
6 - BorderIcons = [biSystemMenu]  
7 - Caption =  
8 - 'MapaCacic - M'#243'dulo Avulso para Coleta de Informa'#231#245'es Patrimoniai' +  
9 - 's'  
10 - Color = clBtnFace  
11 - Font.Charset = DEFAULT_CHARSET  
12 - Font.Color = clWindowText  
13 - Font.Height = -9  
14 - Font.Name = 'MS Sans Serif'  
15 - Font.Style = []  
16 - Icon.Data = {  
17 - 0000010001003232000001000800E00F00001600000028000000320000006400  
18 - 00000100080000000000B80B0000000000000000000000010000000000000000  
19 - 0000FFFFFF006699FF0099FFFF0066FFFF000033FF00002BD70000156A001534  
20 - 380065CA320063C6310052A529004B9625002C59160066CC330066CB330060C0  
21 - 30005DBA2F0059B12D00376D1C004589240059B233001A350F003C77240054A8  
22 - 370034672200234618001E3B150050A23C00478A37000F1E0C004F9940001223  
23 - 0F00315D2A00152A1200539E4A003D7238002A5028001223130026462800438E  
24 - 49000E1C10003F874B003A7E4600326D3D00101F130068BD7B00457C57006BC0  
25 - 8A00294935006FC395000B16120012231D001B413500357B680074C7B0002851  
26 - 47001B4239000E1B18006AB4AA007BD0C400183E3B000F2524007FD5D2008BE9  
27 - E70088E4E30086E0DE00183E3E004FC8C8003D9A9A00193F3F001C4444001C41  
28 - 41001F4545001E3B3B0097FDFD0095FAFA008EEEEE008CEBEB0087E2E20081D8  
29 - D8005D9C9C003B63630098FEFE0093F5F50090F0F00079CACA006BB3B300416C  
30 - 6C0047757500122E2F00235455006FBBBF004D8285004A7C7F0015353800538D  
31 - 94003255590060A2A900416F76002B494D0050878E002C6D79001526290078CB  
32 - D8004D8590001C30350031C4F60033CCFF0033CAFD0032C5F80031BFF10031B8  
33 - EA0032B0E400296781001E36400032AADD0013354400508EAA004E89A3001E34  
34 - 3E0033A1D50035A5DA005CA3C800369AD00030566A0061ACD5003892CA000409  
35 - 0C00569BC600368BC2000E1A220027475D00223F55000B263D001D4F78003C89  
36 - C500060C1100549BD5001F394E004F92CC00235A8E004388CD00285B99004688  
37 - D6004989D200335E93001E324900030C180010315B0018315100071934003369  
38 - B500020407003E7ED600152A4800080E17004F88D8004D85D300548DE1001444  
39 - 96005A8EE9005C90EC000C131F005E92F000141F33001145AD00010204000305  
40 - 09000E1625001B2A47000D1422000B111D00111A2C000F1727001E2E4D004A70  
41 - BC003956910036528900273B63006598FE006395F9006295F7006192F4006090  
42 - F1005E8EED005B8AE500517ACC004C73C000486CB500466AB1004264A7004162  
43 - A4004060A1006597FD006496FA005E8DEB005D8BE9005A87E1005985DF005782  
44 - DA00547ED2004E75C3004466AA003F5E9D00354F8400324B7D002C426E002A3F  
45 - 690024365A0022335500203050001A2741003C5A95000A0F1A00162138002639  
46 - 60004F76C6004567AD000E3288000F2B70000938B900040D2400184AD2000736  
47 - C50002030600032BBF000837D7000629A7000032FE000031FD000031F9000031  
48 - F5000030F100002FEB00002CDF000029D0000028C8000026BF000024B600001E  
49 - 9800001D9300001A880000187D0000156C0000156B0000146400000E4900000A  
50 - 3500000724000230E3000534E60000051D0001092D0000000100FFFFFF000000  
51 - 0000F9FC00000000000000000000000000000000000000000000000000000000  
52 - 00000000000000000000FC0000000000000000000000F6F60000000000000000  
53 - 000000000000000000000000000000000000000000000000000000000000F0F8  
54 - 000000000000000000FDE8E7F800000000000000000000000000000000000000  
55 - 0000000000000000000000000000000000F705EBF900000000000000F9ED0505  
56 - ECF9000000000000000000000000000000000000000000000000000000000000  
57 - 00000000FDE90505F100000000000000F605050505F800000000000000000000  
58 - 000000000000000000000000000000000000000000000000F7050505E5F80000  
59 - 000000F9EA05050505F600000000000000000000000000000000000000000000  
60 - 000000000000000000000000E4E5050505EE0000000000F705050505E5EE0000  
61 - 00000000000000000000000000000000000000000000000000000000000000FD  
62 - E905050505E5FD00000000A5DCEAE5E6EAEFDE00000000000000000000000000  
63 - 00000000000000000000000000000000000000DEEDE8050506DCA30000008057  
64 - 5096EBDB7D626A00000000000000000000000000000000000000000000000000  
65 - 0000000000000064608BE2E2844E630000008356034D96840303640000000000  
66 - 0000000000000000ABAEAEAEAE00000000000000000000000000005D034C9B85  
67 - 4C036000000083500303424F0303630000000000000000ABA5CFD5BDBBC5B4B7  
68 - C8BCC0CDAAA90000000000000000995703535655030362000000805703030303  
69 - 03035E0000000000A9D7B1BA02020202020202020202020202B5BDD2AE000000  
70 - 0000895C0303030303036300000000614B030303030364000000A3D3C6020202  
71 - 02020202020202020202020202020202C3B1A900000000605303030303546A00  
72 - 0000001E314F030303503300D6A5BB0202020202020202020202B70202020202  
73 - 020202020202B8CFAB0000344D030353562720000000002012275603572720A3  
74 - C102020202020202020202B9D5D2B3D1CFBD02020202020202020202C7A5001E  
75 - 3150033B250B290000000080170A2531171433CAC3020202020202020202C7D3  
76 - BCB40202C4D5B3B70202020202020202C2B7D4290B2138190F1A000000000000  
77 - 2914091A091BB09F7C8E0202020202020202D3B9020202020202BBB302020202  
78 - 020202B67F7FA2AE190E110E1020000000000000AD515959A226A19E716D7FB5  
79 - 0202020202D9B10202020202020202CCBF0202020202A47C6C799DB720090E0F  
80 - 1A000000000000AE5D593B5159B7717C9E746C7CA40202020202C20202020202  
81 - 02020202B502020202A17A6C7C9D747A93190919330000000000AB5159BD5157  
82 - 5159C36C7A9E796C79A10202020202020202020202020202020202029F716C7F  
83 - 9D716D88B5261334A300000000006F6590D9BD513B5159B46C719E7C6C79A102  
84 - 0202020202020202020202020202029D706D88916F6B88B402BD3A02CDAC0000  
85 - 00006F6F6F9FBCBD513B5159026D7091828E0202020202020202020202020202  
86 - 020202C288888E6B6F8E02020202020202CF00000000006F6F6E9F9ADA515751  
87 - 59B46B74BA02020202020202020202020202020202020202029E6F7091020202  
88 - 020202020202D3000000AEC26F6F029F9ABD51575159029D0202020202020202  
89 - 02020202020202020202020202028E9D02020202020202020202C6AE0000A502  
90 - 026F6D6F9FD9BD513B5159020202020202020202020202020202020202020202  
91 - 020202020202020202020202020202D70000ADB4026F6F686E9FD9BD51575102  
92 - 0202020202020202020202020202020202020202020202020202020202020202  
93 - 020202AD000000C002026F6F6F027A9ABD513B59BAC8C9D9B0BDDABA02020202  
94 - 020202BADABDB0D9C9C8BAB8B4020202020202020202BED6000000A3C002026F  
95 - 6F6F6E9FD9BD3B5159B1CCBFBEBDBC020202020202020202BCBDBEBFCCB1B2CC  
96 - B502020202020202B9D8AC00000000009CB802026F6F6C027A9A515751020202  
97 - 02020202020202020202020202020202020202020202020202020202AA000000  
98 - 00000000FED4BFB9026F6C6FA4BCBD5151510259595959595959595902020202  
99 - 02020202020202020202020202C3CAD0E1000000000000000000FED6A5D20268  
100 - 6EB9D951515159595959595959595959595902020202020202020202B9BBC1D0  
101 - D4AB9900000000000000000000000000000000026F6F56513B5759595900320F  
102 - 00000059595959C1B1CECFD8D2AAA5A9D6A80000000000000000000000000000  
103 - 0000000000000000026F6F6F59595959000F0F0F000000000059595900000000  
104 - 0000000000000000000000000000000000000000000000000000000000006F6F  
105 - 5959590000000000000000000000595959000000000000000000000000000000  
106 - 0000000000000000000000000000000000000059595906060606060606060606  
107 - 0606065959590000000000000000000000000000000000000000000000000000  
108 - 00000000000000595906060F0F0F060606060606060606065959000000000000  
109 - 0000000000000000000000000000000000FD070707070707070759595906060F  
110 - 0F06060606060606060606062E5959070707070707070707070707F4FC000000  
111 - 0000000000F8EF06060606060606595959060F0F060606060606060606060606  
112 - 0F5959060606060606060606060606F100000000000000000000945A08080808  
113 - 0859590000000000000F0F0F0000000000000000005959080808080808080808  
114 - 085F3E0000000000000000000000005A4404040404595932033204040F0F0404  
115 - 040404040404040404595904040404040404040404455A000000000000000000  
116 - 000000008646354748595905030332320F3204323204040404040404042F5949  
117 - 4375393D49467535474A0000000000000000000000000000EE95175864595959  
118 - 0503560F0F04323204040404040404042E59595E78F10D1651DEF11400570000  
119 - 000000000000000000000000E8A0103762E65959050556033232320432043204  
120 - 040415153259123F77E52B1D038FE91F1F0300000000000000000000000000EF  
121 - 05E00A304CE3595959055603032E2E2E2E0505050505151559590F3250EA7211  
122 - 42810536184B57000000000000000000000000EE05FA112E03DFDD5959055603  
123 - 03012E2E2E0505050505153259E00E324DFA8D093C7B056615555C0000000000  
124 - 00000000000000EE05E9152E03DFE0595959560303322E2E2E3205050505322E  
125 - 59E009304CE38D0F377E057211415C000000000000000000000000EF05E00932  
126 - 4EFBA60E59595903032E2E2E2E3205050505595959A60E3768E76615558C0536  
127 - 184B570000000000000000000000000005A00A375C058711405959592E2E2E2E  
128 - 2E05050559595959058712407B052A1C0398E81C230300000000000000000000  
129 - 0000000006380C5669EB2C143F8D5959592E2E2E2E32595959593F65EB2C143F  
130 - 92ED0B2442E4EF122F5600000000000000000000000000000700005800070000  
131 - 5800000D5959595959595959000059000700005800000D005800000D00000000  
132 - 000000000000F3FFFFFFFFF7C000F3FFFFFFFFF3C000E1FFFFFFFFE1C000C0FF  
133 - FFFFFFC1C000C0FFFFFFFFC0C00080FFFFFFFFC0C00080FFFFFFFF804000807F  
134 - FFFFFF804000007FFFFFFF804000007FFC1FFF804000007F8000FF004000007C  
135 - 00001F0040008070000007804000804000000180400080000000008040008000  
136 - 00000000C000C00000000000C000C00000000001C000800000000001C0000000  
137 - 00000001C000000000000000C000000000000000C00080000000000040000000  
138 - 0000000000000000000000000000000000000000000080000000000000008000  
139 - 0000000040008000000000004000800000000000400080000000000040008000  
140 - 00000000C000C00000000000C000C00000000000C000C00000000001C000E000  
141 - 00000001C000E00000000001C000E00000000003C000F00000000007C000F800  
142 - 00000007C000FC000000000FC000FC000000002FC000FC000000000FC000F800  
143 - 00000007C000F80000000007C000F80000000007C000F80000000007C000FC00  
144 - 0000000FC000FC000000000FC000FDAD8035B5BFC000}  
145 - KeyPreview = True  
146 - OldCreateOrder = False  
147 - Position = poScreenCenter  
148 - WindowState = wsMinimized  
149 - OnActivate = FormActivate  
150 - OnClose = FormClose  
151 - OnCreate = FormCreate  
152 - PixelsPerInch = 96  
153 - TextHeight = 13  
154 - object lbWebManagerAddress: TLabel  
155 - Left = 1  
156 - Top = 517  
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 edWebManagerAddress: TLabel  
169 - Left = 153  
170 - Top = 517  
171 - Width = 500  
172 - Height = 14  
173 - AutoSize = False  
174 - Font.Charset = DEFAULT_CHARSET  
175 - Font.Color = clWindowText  
176 - Font.Height = -11  
177 - Font.Name = 'Arial'  
178 - Font.Style = [fsBold]  
179 - ParentFont = False  
180 - end  
181 - object gbLeiaComAtencao: TGroupBox  
182 - Left = 1  
183 - Top = -1  
184 - Width = 780  
185 - Height = 53  
186 - Caption = ' Leia com aten'#231#227'o '  
187 - Color = clBtnFace  
188 - Font.Charset = DEFAULT_CHARSET  
189 - Font.Color = clRed  
190 - Font.Height = -13  
191 - Font.Name = 'MS Sans Serif'  
192 - Font.Style = [fsBold]  
193 - ParentColor = False  
194 - ParentFont = False  
195 - TabOrder = 0  
196 - object lbLeiaComAtencao: TLabel  
197 - Left = 5  
198 - Top = 14  
199 - Width = 769  
200 - Height = 32  
201 - AutoSize = False  
202 - Caption =  
203 - 'O preenchimento correto dos campos abaixo define a exatid'#227'o do c' +  
204 - 'ontrole de patrim'#244'nio e localiza'#231#227'o f'#237'sica do equipamento.'  
205 - Font.Charset = DEFAULT_CHARSET  
206 - Font.Color = clBlack  
207 - Font.Height = -13  
208 - Font.Name = 'MS Sans Serif'  
209 - Font.Style = []  
210 - ParentFont = False  
211 - WordWrap = True  
212 - end  
213 - end  
214 - object gbInformacoesSobreComputador: TGroupBox  
215 - Left = 1  
216 - Top = 61  
217 - Width = 780  
218 - Height = 336  
219 - Caption =  
220 - ' Informa'#231#245'es sobre localiza'#231#227'o f'#237'sica e patrimonial deste comput' +  
221 - 'ador '  
222 - Font.Charset = DEFAULT_CHARSET  
223 - Font.Color = clBlue  
224 - Font.Height = -11  
225 - Font.Name = 'MS Sans Serif'  
226 - Font.Style = [fsBold]  
227 - ParentFont = False  
228 - TabOrder = 1  
229 - object lbEtiqueta1: TLabel  
230 - Left = 192  
231 - Top = 27  
232 - Width = 400  
233 - Height = 13  
234 - Alignment = taCenter  
235 - AutoSize = False  
236 - Caption = 'Etiqueta 1'  
237 - Font.Charset = DEFAULT_CHARSET  
238 - Font.Color = clWindowText  
239 - Font.Height = -11  
240 - Font.Name = 'MS Sans Serif'  
241 - Font.Style = []  
242 - ParentFont = False  
243 - Visible = False  
244 - end  
245 - object lbEtiqueta2: TLabel  
246 - Left = 192  
247 - Top = 117  
248 - Width = 400  
249 - Height = 13  
250 - Alignment = taCenter  
251 - AutoSize = False  
252 - Caption = 'Etiqueta 2'  
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 lbEtiqueta3: TLabel  
262 - Left = 3  
263 - Top = 170  
264 - Width = 48  
265 - Height = 14  
266 - Caption = 'Etiqueta 3'  
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 lbEtiqueta4: TLabel  
276 - Left = 3  
277 - Top = 229  
278 - Width = 250  
279 - Height = 13  
280 - AutoSize = False  
281 - Caption = 'Etiqueta 4'  
282 - Font.Charset = DEFAULT_CHARSET  
283 - Font.Color = clWindowText  
284 - Font.Height = -11  
285 - Font.Name = 'MS Sans Serif'  
286 - Font.Style = []  
287 - ParentFont = False  
288 - Visible = False  
289 - end  
290 - object lbEtiqueta5: TLabel  
291 - Left = 263  
292 - Top = 229  
293 - Width = 250  
294 - Height = 13  
295 - AutoSize = False  
296 - Caption = 'Etiqueta 5'  
297 - Font.Charset = DEFAULT_CHARSET  
298 - Font.Color = clWindowText  
299 - Font.Height = -11  
300 - Font.Name = 'MS Sans Serif'  
301 - Font.Style = []  
302 - ParentFont = False  
303 - Visible = False  
304 - end  
305 - object lbEtiqueta6: TLabel  
306 - Left = 525  
307 - Top = 229  
308 - Width = 250  
309 - Height = 13  
310 - AutoSize = False  
311 - Caption = 'Etiqueta 6'  
312 - Font.Charset = DEFAULT_CHARSET  
313 - Font.Color = clWindowText  
314 - Font.Height = -11  
315 - Font.Name = 'MS Sans Serif'  
316 - Font.Style = []  
317 - ParentFont = False  
318 - Visible = False  
319 - end  
320 - object lbEtiqueta7: TLabel  
321 - Left = 3  
322 - Top = 289  
323 - Width = 250  
324 - Height = 13  
325 - AutoSize = False  
326 - Caption = 'Etiqueta 7'  
327 - Font.Charset = DEFAULT_CHARSET  
328 - Font.Color = clWindowText  
329 - Font.Height = -11  
330 - Font.Name = 'MS Sans Serif'  
331 - Font.Style = []  
332 - ParentFont = False  
333 - Visible = False  
334 - end  
335 - object lbEtiqueta8: TLabel  
336 - Left = 263  
337 - Top = 289  
338 - Width = 250  
339 - Height = 13  
340 - AutoSize = False  
341 - Caption = 'Etiqueta 8'  
342 - Font.Charset = DEFAULT_CHARSET  
343 - Font.Color = clWindowText  
344 - Font.Height = -11  
345 - Font.Name = 'MS Sans Serif'  
346 - Font.Style = []  
347 - ParentFont = False  
348 - Visible = False  
349 - end  
350 - object lbEtiqueta9: TLabel  
351 - Left = 525  
352 - Top = 289  
353 - Width = 250  
354 - Height = 13  
355 - AutoSize = False  
356 - Caption = 'Etiqueta 9'  
357 - Font.Charset = DEFAULT_CHARSET  
358 - Font.Color = clWindowText  
359 - Font.Height = -11  
360 - Font.Name = 'MS Sans Serif'  
361 - Font.Style = []  
362 - ParentFont = False  
363 - Visible = False  
364 - end  
365 - object lbEtiqueta1a: TLabel  
366 - Left = 192  
367 - Top = 72  
368 - Width = 400  
369 - Height = 13  
370 - Alignment = taCenter  
371 - AutoSize = False  
372 - Caption = 'Etiqueta 1a'  
373 - Font.Charset = DEFAULT_CHARSET  
374 - Font.Color = clWindowText  
375 - Font.Height = -11  
376 - Font.Name = 'MS Sans Serif'  
377 - Font.Style = []  
378 - ParentFont = False  
379 - Visible = False  
380 - end  
381 - object cbIdUnidOrganizacionalNivel1: TComboBox  
382 - Left = 152  
383 - Top = 42  
384 - Width = 481  
385 - Height = 19  
386 - Hint = 'Esse '#233' o texto de ajuda da "Etiqueta 1"'  
387 - AutoDropDown = True  
388 - Style = csOwnerDrawFixed  
389 - Enabled = False  
390 - Font.Charset = DEFAULT_CHARSET  
391 - Font.Color = clWindowText  
392 - Font.Height = -16  
393 - Font.Name = 'Arial'  
394 - Font.Style = []  
395 - ItemHeight = 13  
396 - ParentFont = False  
397 - ParentShowHint = False  
398 - ShowHint = True  
399 - TabOrder = 0  
400 - OnChange = cbIdUnidOrganizacionalNivel1Change  
401 - OnClick = cbIdUnidOrganizacionalNivel1Click  
402 - OnDrawItem = cbIdUnidOrganizacionalNivel1DrawItem  
403 - end  
404 - object cbIdUnidOrganizacionalNivel2: TComboBox  
405 - Left = 152  
406 - Top = 132  
407 - Width = 481  
408 - Height = 19  
409 - Style = csOwnerDrawFixed  
410 - Enabled = False  
411 - Font.Charset = DEFAULT_CHARSET  
412 - Font.Color = clWindowText  
413 - Font.Height = -16  
414 - Font.Name = 'Arial'  
415 - Font.Style = []  
416 - ItemHeight = 13  
417 - ParentFont = False  
418 - ParentShowHint = False  
419 - ShowHint = True  
420 - TabOrder = 1  
421 - OnDrawItem = cbIdUnidOrganizacionalNivel2DrawItem  
422 - end  
423 - object edTeLocalizacaoComplementar: TEdit  
424 - Left = 3  
425 - Top = 186  
426 - Width = 772  
427 - Height = 24  
428 - Font.Charset = DEFAULT_CHARSET  
429 - Font.Color = clWindowText  
430 - Font.Height = -13  
431 - Font.Name = 'Arial'  
432 - Font.Style = []  
433 - MaxLength = 100  
434 - ParentFont = False  
435 - ParentShowHint = False  
436 - ShowHint = True  
437 - TabOrder = 2  
438 - end  
439 - object edTeInfoPatrimonio3: TEdit  
440 - Left = 525  
441 - Top = 244  
442 - Width = 250  
443 - Height = 24  
444 - Font.Charset = DEFAULT_CHARSET  
445 - Font.Color = clWindowText  
446 - Font.Height = -13  
447 - Font.Name = 'MS Sans Serif'  
448 - Font.Style = []  
449 - MaxLength = 20  
450 - ParentFont = False  
451 - ParentShowHint = False  
452 - ShowHint = True  
453 - TabOrder = 5  
454 - end  
455 - object edTeInfoPatrimonio1: TEdit  
456 - Left = 3  
457 - Top = 244  
458 - Width = 250  
459 - Height = 24  
460 - Font.Charset = DEFAULT_CHARSET  
461 - Font.Color = clWindowText  
462 - Font.Height = -13  
463 - Font.Name = 'MS Sans Serif'  
464 - Font.Style = []  
465 - MaxLength = 20  
466 - ParentFont = False  
467 - ParentShowHint = False  
468 - ShowHint = True  
469 - TabOrder = 3  
470 - end  
471 - object edTeInfoPatrimonio2: TEdit  
472 - Left = 263  
473 - Top = 244  
474 - Width = 250  
475 - Height = 24  
476 - Font.Charset = DEFAULT_CHARSET  
477 - Font.Color = clWindowText  
478 - Font.Height = -13  
479 - Font.Name = 'MS Sans Serif'  
480 - Font.Style = []  
481 - MaxLength = 20  
482 - ParentFont = False  
483 - ParentShowHint = False  
484 - ShowHint = True  
485 - TabOrder = 4  
486 - end  
487 - object edTeInfoPatrimonio6: TEdit  
488 - Left = 525  
489 - Top = 304  
490 - Width = 250  
491 - Height = 24  
492 - Font.Charset = DEFAULT_CHARSET  
493 - Font.Color = clWindowText  
494 - Font.Height = -13  
495 - Font.Name = 'MS Sans Serif'  
496 - Font.Style = []  
497 - MaxLength = 20  
498 - ParentFont = False  
499 - ParentShowHint = False  
500 - ShowHint = True  
501 - TabOrder = 8  
502 - end  
503 - object edTeInfoPatrimonio4: TEdit  
504 - Left = 3  
505 - Top = 304  
506 - Width = 250  
507 - Height = 24  
508 - Font.Charset = DEFAULT_CHARSET  
509 - Font.Color = clWindowText  
510 - Font.Height = -13  
511 - Font.Name = 'MS Sans Serif'  
512 - Font.Style = []  
513 - MaxLength = 20  
514 - ParentFont = False  
515 - ParentShowHint = False  
516 - ShowHint = True  
517 - TabOrder = 6  
518 - end  
519 - object edTeInfoPatrimonio5: TEdit  
520 - Left = 263  
521 - Top = 304  
522 - Width = 250  
523 - Height = 24  
524 - Font.Charset = DEFAULT_CHARSET  
525 - Font.Color = clWindowText  
526 - Font.Height = -13  
527 - Font.Name = 'MS Sans Serif'  
528 - Font.Style = []  
529 - MaxLength = 20  
530 - ParentFont = False  
531 - ParentShowHint = False  
532 - ShowHint = True  
533 - TabOrder = 7  
534 - end  
535 - object cbIdUnidOrganizacionalNivel1a: TComboBox  
536 - Left = 152  
537 - Top = 87  
538 - Width = 481  
539 - Height = 20  
540 - Style = csOwnerDrawFixed  
541 - Enabled = False  
542 - Font.Charset = DEFAULT_CHARSET  
543 - Font.Color = clWindowText  
544 - Font.Height = -16  
545 - Font.Name = 'Arial'  
546 - Font.Style = []  
547 - ItemHeight = 14  
548 - ParentFont = False  
549 - ParentShowHint = False  
550 - ShowHint = True  
551 - TabOrder = 9  
552 - OnChange = cbIdUnidOrganizacionalNivel1aChange  
553 - OnDrawItem = cbIdUnidOrganizacionalNivel1aDrawItem  
554 - end  
555 - object pnDivisoria01: TPanel  
556 - Left = 4  
557 - Top = 163  
558 - Width = 772  
559 - Height = 3  
560 - TabOrder = 10  
561 - end  
562 - object btCombosUpdate: TButton  
563 - Left = 683  
564 - Top = 8  
565 - Width = 94  
566 - Height = 20  
567 - Caption = 'Recarregar'  
568 - Enabled = False  
569 - TabOrder = 11  
570 - OnClick = btCombosUpdateClick  
571 - end  
572 - end  
573 - object btGravarInformacoes: TButton  
574 - Left = 192  
575 - Top = 439  
576 - Width = 401  
577 - Height = 35  
578 - Caption = 'Grava e Envia Informa'#231#245'es Patrimoniais ao Gerente WEB'  
579 - Font.Charset = DEFAULT_CHARSET  
580 - Font.Color = clWindowText  
581 - Font.Height = -13  
582 - Font.Name = 'Arial'  
583 - Font.Style = [fsBold]  
584 - ParentFont = False  
585 - TabOrder = 2  
586 - Visible = False  
587 - OnClick = AtualizaPatrimonio  
588 - end  
589 - object pnMessageBox: TPanel  
590 - Left = 0  
591 - Top = 133  
592 - Width = 780  
593 - Height = 45  
594 - BevelInner = bvLowered  
595 - Color = clGradientInactiveCaption  
596 - Font.Charset = DEFAULT_CHARSET  
597 - Font.Color = clGradientActiveCaption  
598 - Font.Height = -13  
599 - Font.Name = 'Arial'  
600 - Font.Style = []  
601 - ParentFont = False  
602 - TabOrder = 3  
603 - Visible = False  
604 - object lbMensagens: TLabel  
605 - Left = 2  
606 - Top = 2  
607 - Width = 776  
608 - Height = 41  
609 - Align = alClient  
610 - Alignment = taCenter  
611 - AutoSize = False  
612 - Font.Charset = DEFAULT_CHARSET  
613 - Font.Color = clWindowText  
614 - Font.Height = -13  
615 - Font.Name = 'MS Sans Serif'  
616 - Font.Style = []  
617 - ParentFont = False  
618 - Layout = tlCenter  
619 - end  
620 - end  
621 - object pnVersao: TPanel  
622 - Left = 674  
623 - Top = 514  
624 - Width = 105  
625 - Height = 20  
626 - BevelInner = bvLowered  
627 - Caption = 'Vers'#227'o'  
628 - Font.Charset = DEFAULT_CHARSET  
629 - Font.Color = clWindowText  
630 - Font.Height = -11  
631 - Font.Name = 'MS Sans Serif'  
632 - Font.Style = [fsBold]  
633 - ParentFont = False  
634 - TabOrder = 4  
635 - end  
636 - object timerMessageShowTime: TTimer  
637 - Enabled = False  
638 - Interval = 0  
639 - OnTimer = timerMessageShowTimeTimer  
640 - Left = 2  
641 - Top = 401  
642 - end  
643 - object timerMessageBoxShowOrHide: TTimer  
644 - Enabled = False  
645 - Interval = 500  
646 - OnTimer = timerMessageBoxShowOrHideTimer  
647 - Left = 34  
648 - Top = 401  
649 - end  
650 -end  
mapacacic/uMainMapa.~pas
View file @3584599
@@ -1,884 +0,0 @@ @@ -1,884 +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 uMainMapa;  
19 -  
20 -interface  
21 -  
22 -uses  
23 - Windows,  
24 - SysUtils, // Deve ser colocado após o Windows acima, nunca antes  
25 - StrUtils,  
26 - StdCtrls,  
27 - Controls,  
28 - Classes,  
29 - Forms,  
30 - ExtCtrls,  
31 - Graphics,  
32 - Dialogs,  
33 - CACIC_Library,  
34 - CACIC_Comm,  
35 - ComCtrls,  
36 - ShellAPI,  
37 - uAcessoMapa,  
38 - Math;  
39 -  
40 -function IsUserAnAdmin() : boolean; external shell32;  
41 -  
42 -var strCollectsPatrimonioLast,  
43 - strConfigsPatrimonioCombos,  
44 - strFieldsAndValuesToRequest,  
45 - strIdUON1,  
46 - strFrmAtual,  
47 - strShowOrHide : string;  
48 - textFileAguarde : TextFile;  
49 - boolFinalizando : boolean;  
50 - objCacic : TCACIC;  
51 -type  
52 - TfrmMapaCacic = class(TForm)  
53 - gbLeiaComAtencao: TGroupBox;  
54 - lbLeiaComAtencao: TLabel;  
55 - gbInformacoesSobreComputador: TGroupBox;  
56 - lbEtiqueta1: TLabel;  
57 - lbEtiqueta2: TLabel;  
58 - lbEtiqueta3: TLabel;  
59 - cbIdUnidOrganizacionalNivel1: TComboBox;  
60 - cbIdUnidOrganizacionalNivel2: TComboBox;  
61 - edTeLocalizacaoComplementar: TEdit;  
62 - btGravarInformacoes: TButton;  
63 - lbEtiqueta4: TLabel;  
64 - lbEtiqueta5: TLabel;  
65 - lbEtiqueta6: TLabel;  
66 - lbEtiqueta7: TLabel;  
67 - lbEtiqueta8: TLabel;  
68 - lbEtiqueta9: TLabel;  
69 - edTeInfoPatrimonio1: TEdit;  
70 - edTeInfoPatrimonio2: TEdit;  
71 - edTeInfoPatrimonio3: TEdit;  
72 - edTeInfoPatrimonio4: TEdit;  
73 - edTeInfoPatrimonio5: TEdit;  
74 - edTeInfoPatrimonio6: TEdit;  
75 - pnMessageBox: TPanel;  
76 - lbMensagens: TLabel;  
77 - lbEtiqueta1a: TLabel;  
78 - cbIdUnidOrganizacionalNivel1a: TComboBox;  
79 - pnDivisoria01: TPanel;  
80 - lbWebManagerAddress: TLabel;  
81 - edWebManagerAddress: TLabel;  
82 - pnVersao: TPanel;  
83 - btCombosUpdate: TButton;  
84 - timerMessageShowTime: TTimer;  
85 - timerMessageBoxShowOrHide: TTimer;  
86 -  
87 - procedure AtualizaPatrimonio(Sender: TObject);  
88 - procedure mapa;  
89 - procedure FormClose(Sender: TObject; var Action: TCloseAction);  
90 - procedure cbIdUnidOrganizacionalNivel1Change(Sender: TObject);  
91 - procedure cbIdUnidOrganizacionalNivel1aChange(Sender: TObject);  
92 - procedure FormCreate(Sender: TObject);  
93 - procedure cbIdUnidOrganizacionalNivel1Click(Sender: TObject);  
94 - procedure FormActivate(Sender: TObject);  
95 - procedure cbIdUnidOrganizacionalNivel1DrawItem(Control: TWinControl;  
96 - Index: Integer; Rect: TRect; State: TOwnerDrawState);  
97 - procedure btCombosUpdateClick(Sender: TObject);  
98 - procedure timerMessageShowTimeTimer(Sender: TObject);  
99 - procedure cbIdUnidOrganizacionalNivel1aDrawItem(Control: TWinControl;  
100 - Index: Integer; Rect: TRect; State: TOwnerDrawState);  
101 - procedure cbIdUnidOrganizacionalNivel2DrawItem(Control: TWinControl;  
102 - Index: Integer; Rect: TRect; State: TOwnerDrawState);  
103 - procedure timerMessageBoxShowOrHideTimer(Sender: TObject);  
104 - private  
105 - strIdUnidOrganizacionalNivel1,  
106 - strIdUnidOrganizacionalNivel1a,  
107 - strIdUnidOrganizacionalNivel2,  
108 - strIdLocal,  
109 - strTeLocalizacaoComplementar,  
110 - strTeInfoPatrimonio1,  
111 - strTeInfoPatrimonio2,  
112 - strTeInfoPatrimonio3,  
113 - strTeInfoPatrimonio4,  
114 - strTeInfoPatrimonio5,  
115 - strTeInfoPatrimonio6 : String;  
116 -  
117 - function getConfigs : String;  
118 - function RetornaValorVetorUON1(pStrIdUON1 : string) : String;  
119 - function RetornaValorVetorUON1a(pStrIdUON1a : string) : String;  
120 - function RetornaValorVetorUON2(pStrIdUON2,pStrIdLocal : string) : String;  
121 -  
122 - procedure CriaFormSenha(Sender: TObject);  
123 - procedure MontaCombos;  
124 - procedure MontaInterface;  
125 - procedure RecuperaValoresAnteriores;  
126 - procedure Sair;  
127 - public  
128 - boolAcessoOK : boolean;  
129 - strId_usuario,  
130 - strChkSisInfFileName,  
131 - strGerColsInfFileName : String;  
132 - procedure Finalizar(p_pausa:boolean);  
133 - procedure Mensagem(p_strMsg : String; p_boolAlerta : boolean = false; p_intPausaSegundos : integer = 0);  
134 - end;  
135 -  
136 -var frmMapaCacic: TfrmMapaCacic;  
137 -  
138 -implementation  
139 -  
140 -{$R *.dfm}  
141 -  
142 -// Estruturas de dados para armazenar os itens das Unidades Organizacionais de Níveis 1, 1a e 2  
143 -type  
144 - TRegistroUON1 = record // Nível 1 => Entidade  
145 - idUON1 : String;  
146 - nmUON1 : String;  
147 - end;  
148 - TVetorUON1 = array of TRegistroUON1;  
149 -  
150 - TRegistroUON1a = record // Nível 1a => Linha de Negócio  
151 - idUON1 : String;  
152 - idUON1a : String;  
153 - nmUON1a : String;  
154 - end;  
155 - TVetorUON1a = array of TRegistroUON1a;  
156 -  
157 - TRegistroUON2 = record // Nível 2 => Órgão  
158 - idUON1a : String;  
159 - idUON2 : String;  
160 - nmUON2 : String;  
161 - idLocal : String;  
162 - end;  
163 - TVetorUON2 = array of TRegistroUON2;  
164 -  
165 -var VetorUON1 : TVetorUON1;  
166 - VetorUON1a : TVetorUON1a;  
167 - VetorUON2 : TVetorUON2;  
168 -  
169 - // Esse array é usado apenas para saber a uon1a, após a filtragem pelo uon1  
170 - VetorUON1aFiltrado : array of String;  
171 -  
172 - // Esse array é usado apenas para saber a uon2, após a filtragem pelo uon1a  
173 - VetorUON2Filtrado : array of String;  
174 -  
175 -procedure TfrmMapaCacic.Mensagem(p_strMsg : String; p_boolAlerta : boolean = false; p_intPausaSegundos : integer = 0);  
176 -Begin  
177 - strShowOrHide := 'Show';  
178 -  
179 - objCacic.writeDebugLog('Mensagem: ' + p_strMsg);  
180 -  
181 - if p_boolAlerta then  
182 - lbMensagens.Font.Color := clRed  
183 - else  
184 - lbMensagens.Font.Color := clBlack;  
185 -  
186 - lbMensagens.Caption := p_strMsg;  
187 - timerMessageBoxShowOrHide.Enabled;  
188 -  
189 - objCacic.writeDailyLog(lbMensagens.Caption);  
190 - Application.ProcessMessages;  
191 -  
192 - if (p_intPausaSegundos > 0) then  
193 - timerMessageShowTime.Interval := p_intPausaSegundos * 1000;  
194 -  
195 - Application.ProcessMessages;  
196 -End;  
197 -  
198 -procedure showMessageBox;  
199 -Begin  
200 -  
201 -End;  
202 -  
203 -procedure TfrmMapaCacic.Sair;  
204 -Begin  
205 - Application.Terminate;  
206 -End;  
207 -  
208 -procedure TfrmMapaCacic.Finalizar(p_pausa:boolean);  
209 -Begin  
210 - gbLeiaComAtencao.Visible := false;  
211 - gbInformacoesSobreComputador.Visible := false;  
212 - btGravarInformacoes.Visible := false;  
213 -  
214 - Mensagem('Finalizando o MapaCacic...');  
215 -  
216 - Application.ProcessMessages;  
217 -  
218 - Sleep(1000);  
219 -  
220 - Sair;  
221 -End;  
222 -//  
223 -  
224 -Function TfrmMapaCacic.RetornaValorVetorUON1(pStrIdUON1 : string) : String;  
225 -var I : Integer;  
226 -begin  
227 - For I := 0 to (Length(VetorUON1)-1) Do  
228 - If (VetorUON1[I].idUON1 = pStrIdUON1) Then Result := VetorUON1[I].nmUON1;  
229 -end;  
230 -  
231 -Function TfrmMapaCacic.RetornaValorVetorUON1a(pStrIdUON1a : string) : String;  
232 -var I : Integer;  
233 -begin  
234 - For I := 0 to (Length(VetorUON1a)-1) Do  
235 - If (VetorUON1a[I].idUON1a = pStrIdUON1a) Then Result := VetorUON1a[I].nmUON1a;  
236 -end;  
237 -  
238 -Function TfrmMapaCacic.RetornaValorVetorUON2(pStrIdUON2, pStrIdLocal: string) : String;  
239 -var I : Integer;  
240 -begin  
241 - For I := 0 to (Length(VetorUON2)-1) Do  
242 - If (VetorUON2[I].idUON2 = pStrIdUON2) and  
243 - (VetorUON2[I].idLocal = pStrIdLocal) Then Result := VetorUON2[I].nmUON2;  
244 -end;  
245 -  
246 -procedure TfrmMapaCacic.RecuperaValoresAnteriores;  
247 -var strCollectsPatrimonioLast,  
248 - strConfigsPatrimonioInterface : String;  
249 -begin  
250 - btCombosUpdate.Enabled := false;  
251 -  
252 - Mensagem('Recuperando Valores Anteriores...',false,1);  
253 -  
254 - strCollectsPatrimonioLast := objCacic.deCrypt( objCacic.GetValueFromFile('Collects','Patrimonio_Last',strGerColsInfFileName));  
255 -  
256 - if (strCollectsPatrimonioLast <> '') then  
257 - Begin  
258 - strIdUnidOrganizacionalNivel1 := objCacic.GetValueFromFile('Patrimonio','IdUnidOrganizacionalNivel1',strGerColsInfFileName);  
259 - if (strIdUnidOrganizacionalNivel1='') then  
260 - strIdUnidOrganizacionalNivel1 := objCacic.deCrypt(objCacic.getValueFromTags('ID_UON1', strCollectsPatrimonioLast));  
261 -  
262 - strIdUnidOrganizacionalNivel1a := objCacic.GetValueFromFile('Patrimonio','IdUnidOrganizacionalNivel1a',strGerColsInfFileName);  
263 - if (strIdUnidOrganizacionalNivel1a='') then  
264 - strIdUnidOrganizacionalNivel1a := objCacic.deCrypt(objCacic.getValueFromTags('ID_UON1a', strCollectsPatrimonioLast));  
265 -  
266 - strIdUnidOrganizacionalNivel2 := objCacic.GetValueFromFile('Patrimonio','IdUnidOrganizacionalNivel2',strGerColsInfFileName);  
267 - if (strIdUnidOrganizacionalNivel2='') then  
268 - strIdUnidOrganizacionalNivel2 := objCacic.deCrypt(objCacic.getValueFromTags('ID_UON2', strCollectsPatrimonioLast));  
269 -  
270 - strIdLocal := objCacic.getValueFromTags('IdLocal',strCollectsPatrimonioLast);  
271 -  
272 - Try  
273 - cbIdUnidOrganizacionalNivel1.ItemIndex := cbIdUnidOrganizacionalNivel1.Items.IndexOf(RetornaValorVetorUON1(strIdUnidOrganizacionalNivel1));  
274 - cbIdUnidOrganizacionalNivel1Change(Nil); // Para filtrar os valores do combo2 de acordo com o valor selecionado no combo1  
275 - cbIdUnidOrganizacionalNivel1a.ItemIndex := cbIdUnidOrganizacionalNivel1a.Items.IndexOf(RetornaValorVetorUON1(strIdUnidOrganizacionalNivel1));  
276 - Except  
277 - on E:Exception do  
278 - Begin  
279 - objCacic.writeExceptionLog(E.Message,e.ClassName,'Setando "cbIdUnidOrganizacionalNivel1a.ItemIndex" para "' + IntToStr(cbIdUnidOrganizacionalNivel1a.Items.IndexOf(RetornaValorVetorUON1(strIdUnidOrganizacionalNivel1))) + '"');  
280 - objCacic.writeDebugLog('RecuperaValoresAnteriores: Problema ao setar "cbIdUnidOrganizacionalNivel1a.ItemIndex" para "' + IntToStr(cbIdUnidOrganizacionalNivel1a.Items.IndexOf(RetornaValorVetorUON1(strIdUnidOrganizacionalNivel1))) + '"');  
281 - End;  
282 - end;  
283 -  
284 - Try  
285 - cbIdUnidOrganizacionalNivel1a.ItemIndex := cbIdUnidOrganizacionalNivel1a.Items.IndexOf(RetornaValorVetorUON1a(strIdUnidOrganizacionalNivel1a));  
286 - cbIdUnidOrganizacionalNivel1aChange(Nil); // Para filtrar os valores do combo3 de acordo com o valor selecionado no combo2  
287 - cbIdUnidOrganizacionalNivel2.ItemIndex := cbIdUnidOrganizacionalNivel2.Items.IndexOf(RetornaValorVetorUON2(strIdUnidOrganizacionalNivel2,strIdLocal));  
288 - Except  
289 - on E:Exception do  
290 - Begin  
291 - objCacic.writeExceptionLog(E.Message,e.ClassName,'Setando "cbIdUnidOrganizacionalNivel2.ItemIndex" para "' + IntToStr(cbIdUnidOrganizacionalNivel2.Items.IndexOf(RetornaValorVetorUON2(strIdUnidOrganizacionalNivel2,strIdLocal))) + '"');  
292 - objCacic.writeDebugLog('RecuperaValoresAnteriores: Problema ao setar "cbIdUnidOrganizacionalNivel2.ItemIndex" para "' + IntToStr(cbIdUnidOrganizacionalNivel2.Items.IndexOf(RetornaValorVetorUON2(strIdUnidOrganizacionalNivel2,strIdLocal))) + '"');  
293 - End;  
294 - end;  
295 -  
296 - strConfigsPatrimonioInterface := objCacic.deCrypt( objCacic.GetValueFromFile('Configs','Patrimonio_Interface',strGerColsInfFileName));  
297 -  
298 - lbEtiqueta1.Caption := objCacic.getValueFromTags('te_etiqueta1', strConfigsPatrimonioInterface);  
299 - lbEtiqueta1a.Caption := objCacic.deCrypt(objCacic.getValueFromTags('te_etiqueta1a', strConfigsPatrimonioInterface));  
300 -  
301 - strTeLocalizacaoComplementar := objCacic.getValueFromTags('TeLocalizacaoComplementar',strCollectsPatrimonioLast);  
302 -  
303 - // Tentarei buscar informação gravada no Registry  
304 - strTeInfoPatrimonio1 := objCacic.getValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1');  
305 - strTeInfoPatrimonio2 := objCacic.getValueFromTags('TeInfoPatrimonio2',strCollectsPatrimonioLast);  
306 - strTeInfoPatrimonio3 := objCacic.getValueFromTags('TeInfoPatrimonio3',strCollectsPatrimonioLast);  
307 - strTeInfoPatrimonio4 := objCacic.getValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4');  
308 - strTeInfoPatrimonio5 := objCacic.getValueFromTags('TeInfoPatrimonio5',strCollectsPatrimonioLast);  
309 - strTeInfoPatrimonio6 := objCacic.getValueFromTags('TeInfoPatrimonio6',strCollectsPatrimonioLast);  
310 -  
311 - if (strTeInfoPatrimonio1='') then strTeInfoPatrimonio1 := objCacic.getValueFromTags('TE_INFO1', strCollectsPatrimonioLast);  
312 - if (strTeInfoPatrimonio2='') then strTeInfoPatrimonio2 := objCacic.getValueFromTags('TE_INFO2', strCollectsPatrimonioLast);  
313 - if (strTeInfoPatrimonio3='') then strTeInfoPatrimonio3 := objCacic.getValueFromTags('TE_INFO3', strCollectsPatrimonioLast);  
314 - if (strTeInfoPatrimonio4='') then strTeInfoPatrimonio4 := objCacic.getValueFromTags('TE_INFO4', strCollectsPatrimonioLast);  
315 - if (strTeInfoPatrimonio5='') then strTeInfoPatrimonio5 := objCacic.getValueFromTags('TE_INFO5', strCollectsPatrimonioLast);  
316 - if (strTeInfoPatrimonio6='') then strTeInfoPatrimonio6 := objCacic.getValueFromTags('TE_INFO6', strCollectsPatrimonioLast);  
317 - End;  
318 - btCombosUpdate.Enabled := true;  
319 - Application.ProcessMessages;  
320 -end;  
321 -  
322 -procedure TfrmMapaCacic.MontaCombos;  
323 -var intTagCount,  
324 - intLoopUOS : integer;  
325 - strTagName,  
326 - strTagValue : String;  
327 - tstrTagsNames : TStrings;  
328 -begin  
329 - btCombosUpdate.Enabled := false;  
330 - cbIdUnidOrganizacionalNivel1.Enabled := false;  
331 - cbIdUnidOrganizacionalNivel1a.Enabled := false;  
332 - cbIdUnidOrganizacionalNivel2.Enabled := false;  
333 -  
334 - Mensagem('Montando Listas para Seleção de Unidades Organizacionais...',false,1);  
335 -  
336 - strConfigsPatrimonioCombos := objCacic.deCrypt(objCacic.GetValueFromFile('Configs' ,'Patrimonio_Combos',strGerColsInfFileName));  
337 - strCollectsPatrimonioLast := objCacic.deCrypt(objCacic.GetValueFromFile('Collects','Patrimonio_Last' ,strGerColsInfFileName));  
338 -  
339 - strIdUON1 := objCacic.getValueFromTags('IdUON1',strCollectsPatrimonioLast);  
340 -  
341 - SetLength(VetorUON1 ,0);  
342 - SetLength(VetorUON1a,0);  
343 - SetLength(VetorUON2 ,0);  
344 -  
345 - cbIdUnidOrganizacionalNivel1.Items.Clear;  
346 - cbIdUnidOrganizacionalNivel1a.Items.Clear;  
347 - cbIdUnidOrganizacionalNivel2.Items.Clear;  
348 -  
349 - tstrTagsNames := objCacic.explode('UO1,UO1a,UO2',',');  
350 -  
351 - for intLoopUOS := 0 to tstrTagsNames.Count -1 do  
352 - Begin  
353 - intTagCount := 1;  
354 - strTagValue := '*';  
355 - while (strTagValue <> '') do  
356 - Begin  
357 - strTagName := tstrTagsNames[intLoopUOS] + '#' + intToStr(intTagCount);  
358 - strTagValue := objCacic.getValueFromTags(strTagName,strConfigsPatrimonioCombos);  
359 - if (strTagValue <> '') then  
360 - Begin  
361 - if (tstrTagsNames[intLoopUOS] = 'UO1') then  
362 - Begin  
363 - SetLength(VetorUON1 ,length(VetorUON1)+1);  
364 - VetorUON1[length(VetorUON1)-1].idUON1 := objCacic.getValueFromTags('UO1_ID',strTagValue);  
365 - VetorUON1[length(VetorUON1)-1].nmUON1 := objCacic.getValueFromTags('UO1_NM',strTagValue);  
366 - cbIdUnidOrganizacionalNivel1.Items.Add(VetorUON1[length(VetorUON1)-1].nmUON1);  
367 - if (strIdUON1 = VetorUON1[length(VetorUON1)-1].idUON1) then  
368 - cbIdUnidOrganizacionalNivel1.ItemIndex := cbIdUnidOrganizacionalNivel1.Items.Count-1;  
369 - End  
370 - else if (tstrTagsNames[intLoopUOS] = 'UO1a') then  
371 - Begin  
372 - SetLength(VetorUON1a ,length(VetorUON1a)+1);  
373 - VetorUON1a[length(VetorUON1a)-1].idUON1 := objCacic.getValueFromTags('UO1a_IdUO1',strTagValue);  
374 - VetorUON1a[length(VetorUON1a)-1].idUON1a := objCacic.getValueFromTags('UO1a_ID' ,strTagValue);  
375 - VetorUON1a[length(VetorUON1a)-1].nmUON1a := objCacic.getValueFromTags('UO1a_NM' ,strTagValue);  
376 - End  
377 - else if (tstrTagsNames[intLoopUOS] = 'UO2') then  
378 - Begin  
379 - SetLength(VetorUON2 ,length(VetorUON2)+1);  
380 - VetorUON2[length(VetorUON2)-1].idUON1a := objCacic.getValueFromTags('UO2_IdUO1a' ,strTagValue);  
381 - VetorUON2[length(VetorUON2)-1].idUON2 := objCacic.getValueFromTags('UO2_ID' ,strTagValue);  
382 - VetorUON2[length(VetorUON2)-1].nmUON2 := objCacic.getValueFromTags('UO2_NM' ,strTagValue);  
383 - VetorUON2[length(VetorUON2)-1].idLocal := objCacic.getValueFromTags('UO2_IdLocal',strTagValue);  
384 - End;  
385 - End;  
386 - inc(intTagCount);  
387 - End;  
388 - End;  
389 -  
390 - // Ao fim...  
391 - if (cbIdUnidOrganizacionalNivel1.ItemIndex = -1) then  
392 - cbIdUnidOrganizacionalNivel1.ItemIndex := 0;  
393 -  
394 - cbIdUnidOrganizacionalNivel1Change(nil);  
395 -  
396 - btCombosUpdate.Enabled := true;  
397 - cbIdUnidOrganizacionalNivel1.Enabled := true;  
398 - cbIdUnidOrganizacionalNivel1a.Enabled := true;  
399 - cbIdUnidOrganizacionalNivel2.Enabled := true;  
400 -  
401 - Application.ProcessMessages;  
402 -end;  
403 -  
404 -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1Change(Sender: TObject);  
405 -var intLoopVetorUON1a : integer;  
406 -begin  
407 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Nível 1 CHANGE');  
408 -  
409 - // Filtro os itens do combo2, de acordo com o item selecionado no combo1  
410 - strIdUON1 := VetorUON1[cbIdUnidOrganizacionalNivel1.ItemIndex].idUON1;  
411 -  
412 - cbIdUnidOrganizacionalNivel1a.Items.Clear;  
413 - cbIdUnidOrganizacionalNivel2.Items.Clear;  
414 - cbIdUnidOrganizacionalNivel1a.Enabled := false;  
415 - cbIdUnidOrganizacionalNivel2.Enabled := false;  
416 - SetLength(VetorUON1aFiltrado, 0);  
417 -  
418 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Tamanho de VetorUON1..: '+IntToStr(Length(VetorUON1)));  
419 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: ItemIndex de cb_nivel1: '+IntToStr(cbIdUnidOrganizacionalNivel1.ItemIndex));  
420 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Tamanho de VetorUON1a.: '+IntToStr(Length(VetorUON1a)));  
421 -  
422 - For intLoopVetorUON1a := 0 to Length(VetorUON1a) - 1 Do  
423 - Begin  
424 - Try  
425 - if VetorUON1a[intLoopVetorUON1a].idUON1 = strIdUON1 then  
426 - Begin  
427 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Add em cb_nivel1a: '+VetorUON1a[intLoopVetorUON1a].nmUON1a);  
428 - cbIdUnidOrganizacionalNivel1a.Items.Add(VetorUON1a[intLoopVetorUON1a].nmUON1a);  
429 -  
430 - SetLength(VetorUON1aFiltrado, Length(VetorUON1aFiltrado) + 1);  
431 - VetorUON1aFiltrado[Length(VetorUON1aFiltrado)-1] := VetorUON1a[intLoopVetorUON1a].idUON1a;  
432 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: VetorUON1aFiltrado['+IntToStr(Length(VetorUON1aFiltrado)-1)+']= '+VetorUON1aFiltrado[Length(VetorUON1aFiltrado)-1]);  
433 - end;  
434 - Except  
435 - on E:Exception do  
436 - Begin  
437 - objCacic.writeExceptionLog(E.Message,e.ClassName);  
438 - End;  
439 - End;  
440 - end;  
441 - if (cbIdUnidOrganizacionalNivel1a.Items.Count > 0) then  
442 - Begin  
443 - cbIdUnidOrganizacionalNivel1a.Enabled := true;  
444 - cbIdUnidOrganizacionalNivel1a.ItemIndex := 0;  
445 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Provocando CHANGE em nivel1a');  
446 - cbIdUnidOrganizacionalNivel1aChange(nil);  
447 - End;  
448 -end;  
449 -  
450 -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1aChange(  
451 - Sender: TObject);  
452 -var intLoopVetorUON2 : integer;  
453 -begin  
454 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: Nível 1a CHANGE');  
455 - // Filtro os itens do combo2, de acordo com o item selecionado no combo1  
456 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: cbIdUnidOrganizacionalNivel1a.ItemIndex = '+intToStr(cbIdUnidOrganizacionalNivel1a.ItemIndex));  
457 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: VetorUON1aFiltrado['+intToStr(cbIdUnidOrganizacionalNivel1a.ItemIndex)+'] => '+VetorUON1aFiltrado[cbIdUnidOrganizacionalNivel1a.ItemIndex]);  
458 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: strIdLocal = '+strIdLocal);  
459 -  
460 - cbIdUnidOrganizacionalNivel2.Items.Clear;  
461 - cbIdUnidOrganizacionalNivel2.Enabled := false;  
462 - SetLength(VetorUON2Filtrado, 0);  
463 -  
464 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: Tamanho de VetorUON1a..: '+IntToStr(Length(VetorUON1a)));  
465 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: ItemIndex de cb_nivel1a: '+IntToStr(cbIdUnidOrganizacionalNivel1a.ItemIndex));  
466 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: Tamanho de VetorUON2...: '+IntToStr(Length(VetorUON2)));  
467 -  
468 - For intLoopVetorUON2 := 0 to Length(VetorUON2) - 1 Do  
469 - Begin  
470 - Try  
471 - if (VetorUON2[intLoopVetorUON2].idUON1a = VetorUON1aFiltrado[cbIdUnidOrganizacionalNivel1a.ItemIndex]) then  
472 - Begin  
473 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: Add em cb_nivel2: '+VetorUON2[intLoopVetorUON2].nmUON2);  
474 - cbIdUnidOrganizacionalNivel2.Items.Add(VetorUON2[intLoopVetorUON2].nmUON2);  
475 -  
476 - SetLength(VetorUON2Filtrado, Length(VetorUON2Filtrado) + 1);  
477 - VetorUON2Filtrado[Length(VetorUON2Filtrado)-1] := VetorUON2[intLoopVetorUON2].idUON2 + '#' + VetorUON2[intLoopVetorUON2].idLocal;  
478 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: VetorUON2Filtrado['+IntToStr(Length(VetorUON2Filtrado)-1)+']= '+VetorUON2Filtrado[Length(VetorUON2Filtrado)-1]);  
479 - end;  
480 - Except  
481 - on E:Exception do  
482 - Begin  
483 - objCacic.writeExceptionLog(E.Message,e.ClassName);  
484 - End;  
485 - End;  
486 - end;  
487 - if (cbIdUnidOrganizacionalNivel2.Items.Count > 0) then  
488 - Begin  
489 - cbIdUnidOrganizacionalNivel2.Enabled := true;  
490 - cbIdUnidOrganizacionalNivel2.ItemIndex := 0;  
491 - End;  
492 -end;  
493 -  
494 -  
495 -procedure TfrmMapaCacic.AtualizaPatrimonio(Sender: TObject);  
496 -var strColetaAtual,  
497 - strIdUON1,  
498 - strIdUON1a,  
499 - strIdUON2,  
500 - strIdLocal,  
501 - strRetorno : String;  
502 - tstrAuxAP : TStrings;  
503 -begin  
504 - tstrAuxAP := TStrings.Create;  
505 - tstrAuxAP := objCacic.explode(VetorUON2Filtrado[cbIdUnidOrganizacionalNivel2.ItemIndex],'#');  
506 - Try  
507 - strIdUON1 := VetorUON1[cbIdUnidOrganizacionalNivel1.ItemIndex].idUON1;  
508 - strIdUON2 := tstrAuxAP[0];  
509 - strIdLocal := tstrAuxAP[1];  
510 - Except  
511 - on E:Exception do  
512 - Begin  
513 - objCacic.writeExceptionLog(E.Message,e.ClassName);  
514 - End;  
515 - end;  
516 -  
517 - tstrAuxAP := objCacic.explode(VetorUON1aFiltrado[cbIdUnidOrganizacionalNivel1a.ItemIndex],'#');  
518 - Try  
519 - strIdUON1a := tstrAuxAP[0];  
520 - Except  
521 - on E:Exception do  
522 - Begin  
523 - objCacic.writeExceptionLog(E.Message,e.ClassName);  
524 - End;  
525 - end;  
526 -  
527 - tstrAuxAP.Free;  
528 - Mensagem('Enviando Informações Coletadas ao Banco de Dados...',false,1);  
529 -  
530 - strFieldsAndValuesToRequest := 'CollectType=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt('col_patr')) ;  
531 -  
532 - strColetaAtual := StringReplace('[IdUsuario]' + frmMapaCacic.strId_usuario + '[/IdUsuario]' +  
533 - '[IdLocal]' + strIdLocal + '[/IdLocal]' +  
534 - '[IdUnidOrganizacionalNivel1]' + strIdUON1 + '[/IdUnidOrganizacionalNivel1]' +  
535 - '[IdUnidOrganizacionalNivel1a]' + strIdUON1A + '[/IdUnidOrganizacionalNivel1a]'+  
536 - '[IdUnidOrganizacionalNivel2]' + strIdUON2 + '[/IdUnidOrganizacionalNivel2]' +  
537 - '[TeLocalizacaoComplementar]' + edTeLocalizacaoComplementar.Text + '[/TeLocalizacaoComplementar]' +  
538 - '[TeInfoPatrimonio1]' + edTeInfoPatrimonio1.Text + '[/TeInfoPatrimonio1]' +  
539 - '[TeInfoPatrimonio2]' + edTeInfoPatrimonio2.Text + '[/TeInfoPatrimonio2]' +  
540 - '[TeInfoPatrimonio3]' + edTeInfoPatrimonio3.Text + '[/TeInfoPatrimonio3]' +  
541 - '[TeInfoPatrimonio4]' + edTeInfoPatrimonio4.Text + '[/TeInfoPatrimonio4]' +  
542 - '[TeInfoPatrimonio5]' + edTeInfoPatrimonio5.Text + '[/TeInfoPatrimonio5]' +  
543 - '[TeInfoPatrimonio6]' + edTeInfoPatrimonio6.Text + '[/TeInfoPatrimonio6]',',','[[COMMA]]',[rfReplaceAll]);  
544 -  
545 - strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',col_patr=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt(strColetaAtual));  
546 -  
547 - strRetorno := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'gercols_set_collects.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName);  
548 - objCacic.setBoolCipher(not objCacic.isInDebugMode);  
549 -  
550 - if (strRetorno = '0') then  
551 - Mensagem('ATENÇÃO: PROBLEMAS NO ENVIO DAS INFORMAÇÕES COLETADAS AO BANCO DE DADOS...',true,1)  
552 - else  
553 - Begin  
554 - Mensagem('Salvando Informações Coletadas em Base Local...',false,1);  
555 - objCacic.setValueToFile('Collects','Patrimonio_Last' , objCacic.enCrypt(strColetaAtual), strGerColsInfFileName);  
556 -  
557 - objCacic.setValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1', edTeInfoPatrimonio1.Text);  
558 - objCacic.setValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4', edTeInfoPatrimonio4.Text);  
559 - End;  
560 - objCacic.writeDebugLog('AtualizaPatrimonio: Dados Enviados ao Servidor!');  
561 - Application.ProcessMessages;  
562 -  
563 - Finalizar(true);  
564 -end;  
565 -  
566 -procedure TfrmMapaCacic.MontaInterface;  
567 -var strConfigsPatrimonioInterface : String;  
568 -Begin  
569 - btCombosUpdate.Enabled := false;  
570 -  
571 - Mensagem('Montando Interface para Coleta de Informações...',false,1);  
572 -  
573 - strConfigsPatrimonioInterface := objCacic.deCrypt( objCacic.getValueFromFile('Configs','Patrimonio_Interface',strGerColsInfFileName));  
574 -  
575 - lbEtiqueta1.Caption := objCacic.getValueFromTags('te_etiqueta1', strConfigsPatrimonioInterface);  
576 - lbEtiqueta1.Visible := true;  
577 - cbIdUnidOrganizacionalNivel1.Hint := objCacic.getValueFromTags('te_help_etiqueta1', strConfigsPatrimonioInterface);  
578 -  
579 - lbEtiqueta1a.Caption := objCacic.getValueFromTags('te_etiqueta1a', strConfigsPatrimonioInterface);  
580 - lbEtiqueta1a.Visible := true;  
581 - cbIdUnidOrganizacionalNivel1a.Hint := objCacic.getValueFromTags('te_help_etiqueta1a', strConfigsPatrimonioInterface);  
582 -  
583 - lbEtiqueta2.Caption := objCacic.getValueFromTags('te_etiqueta2', strConfigsPatrimonioInterface);  
584 - lbEtiqueta2.Visible := true;  
585 - cbIdUnidOrganizacionalNivel2.Hint := objCacic.getValueFromTags('te_help_etiqueta2', strConfigsPatrimonioInterface);  
586 -  
587 - lbEtiqueta3.Caption := objCacic.getValueFromTags('te_etiqueta3', strConfigsPatrimonioInterface);  
588 - lbEtiqueta3.Visible := true;  
589 - edTeLocalizacaoComplementar.Text := strTeLocalizacaoComplementar;  
590 -  
591 - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta4 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta4', strConfigsPatrimonioInterface)+'"');  
592 - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta4', strConfigsPatrimonioInterface)) = 'S') then  
593 - begin  
594 - lbEtiqueta4.Caption := objCacic.getValueFromTags('te_etiqueta4', strConfigsPatrimonioInterface);  
595 - lbEtiqueta4.Visible := true;  
596 - edTeInfoPatrimonio1.Hint := objCacic.getValueFromTags('te_help_etiqueta4', strConfigsPatrimonioInterface);  
597 - edTeInfoPatrimonio1.Text := strTeInfoPatrimonio1;  
598 - edTeInfoPatrimonio1.visible := True;  
599 - end;  
600 -  
601 - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta5 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta5', strConfigsPatrimonioInterface)+'"');  
602 - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta5', strConfigsPatrimonioInterface)) = 'S') then  
603 - begin  
604 - lbEtiqueta5.Caption := objCacic.getValueFromTags('te_etiqueta5', strConfigsPatrimonioInterface);  
605 - lbEtiqueta5.Visible := true;  
606 - edTeInfoPatrimonio2.Hint := objCacic.getValueFromTags('te_help_etiqueta5', strConfigsPatrimonioInterface);  
607 - edTeInfoPatrimonio2.Text := strTeInfoPatrimonio2;  
608 - edTeInfoPatrimonio2.visible := True;  
609 - end;  
610 -  
611 - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta6 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta6', strConfigsPatrimonioInterface)+'"');  
612 - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta6', strConfigsPatrimonioInterface)) = 'S') then  
613 - begin  
614 - lbEtiqueta6.Caption := objCacic.getValueFromTags('te_etiqueta6', strConfigsPatrimonioInterface);  
615 - lbEtiqueta6.Visible := true;  
616 - edTeInfoPatrimonio3.Hint := objCacic.getValueFromTags('te_help_etiqueta6', strConfigsPatrimonioInterface);  
617 - edTeInfoPatrimonio3.Text := strTeInfoPatrimonio3;  
618 - edTeInfoPatrimonio3.visible := True;  
619 - end;  
620 -  
621 - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta7 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta7', strConfigsPatrimonioInterface)+'"');  
622 - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta7', strConfigsPatrimonioInterface)) = 'S') then  
623 - begin  
624 - lbEtiqueta7.Caption := objCacic.getValueFromTags('te_etiqueta7', strConfigsPatrimonioInterface);  
625 - lbEtiqueta7.Visible := true;  
626 - edTeInfoPatrimonio4.Hint := objCacic.getValueFromTags('te_help_etiqueta7', strConfigsPatrimonioInterface);  
627 - edTeInfoPatrimonio4.Text := strTeInfoPatrimonio4;  
628 - edTeInfoPatrimonio4.visible := True;  
629 - end;  
630 -  
631 - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta8 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta8', strConfigsPatrimonioInterface)+'"');  
632 - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta8', strConfigsPatrimonioInterface)) = 'S') then  
633 - begin  
634 - lbEtiqueta8.Caption := objCacic.getValueFromTags('te_etiqueta8', strConfigsPatrimonioInterface);  
635 - lbEtiqueta8.Visible := true;  
636 - edTeInfoPatrimonio5.Hint := objCacic.getValueFromTags('te_help_etiqueta8', strConfigsPatrimonioInterface);  
637 - edTeInfoPatrimonio5.Text := strTeInfoPatrimonio5;  
638 - edTeInfoPatrimonio5.visible := True;  
639 - end;  
640 -  
641 - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta9 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta9', strConfigsPatrimonioInterface)+'"');  
642 - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta9', strConfigsPatrimonioInterface)) = 'S') then  
643 - begin  
644 - lbEtiqueta9.Caption := objCacic.getValueFromTags('te_etiqueta9', strConfigsPatrimonioInterface);  
645 - lbEtiqueta9.Visible := true;  
646 - edTeInfoPatrimonio6.Hint := objCacic.getValueFromTags('te_help_etiqueta9', strConfigsPatrimonioInterface);  
647 - edTeInfoPatrimonio6.Text := strTeInfoPatrimonio6;  
648 - edTeInfoPatrimonio6.visible := True;  
649 - end;  
650 -  
651 - Mensagem('',false,1);  
652 - btGravarInformacoes.Visible := true;  
653 - btCombosUpdate.Enabled := true;  
654 -  
655 - cbIdUnidOrganizacionalNivel1.Enabled := true;  
656 - cbIdUnidOrganizacionalNivel1.SetFocus;  
657 -  
658 - Application.ProcessMessages;  
659 -end;  
660 -  
661 -procedure TfrmMapaCacic.FormClose(Sender: TObject; var Action: TCloseAction);  
662 -begin  
663 - Action := caNone;  
664 - objCacic.writeDebugLog('FormClose: ' + Sender.ClassName);  
665 - Finalizar(true);  
666 -end;  
667 -  
668 -procedure TfrmMapaCacic.CriaFormSenha(Sender: TObject);  
669 -begin  
670 - Application.CreateForm(TfrmAcesso, frmAcesso);  
671 -end;  
672 -  
673 -procedure TfrmMapaCacic.mapa;  
674 -begin  
675 - Try  
676 - MontaInterface;  
677 - MontaCombos;  
678 - RecuperaValoresAnteriores;  
679 - Except  
680 - on E:Exception do  
681 - Begin  
682 - objCacic.writeExceptionLog(E.Message,e.ClassName);  
683 - End;  
684 - End;  
685 -End;  
686 -function TfrmMapaCacic.getConfigs : String;  
687 -Begin  
688 - btCombosUpdate.Enabled := false;  
689 -  
690 - Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get_config.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName);  
691 - objCacic.setBoolCipher(not objCacic.isInDebugMode);  
692 -  
693 - objCacic.writeDebugLog('FormActivate: Retorno de getConfigs: "'+Result+'"');  
694 -  
695 - if (Result <> '0') then  
696 - Begin  
697 - Mensagem('Comunicação Efetuada com Sucesso! Salvando as Configurações Obtidas...',false,1);  
698 - objCacic.setValueToFile('Configs' ,'Patrimonio_Combos' , objCacic.getValueFromTags('Configs_Patrimonio_Combos' , Result), strGerColsInfFileName);  
699 - objCacic.setValueToFile('Configs' ,'Patrimonio_Interface' , objCacic.getValueFromTags('Configs_Patrimonio_Interface', Result), strGerColsInfFileName);  
700 - objCacic.setValueToFile('Collects','Patrimonio_Last' , objCacic.getValueFromTags('Collects_Patrimonio_Last' , Result), strGerColsInfFileName);  
701 - End;  
702 - btCombosUpdate.Enabled := true;  
703 -End;  
704 -  
705 -procedure TfrmMapaCacic.FormCreate(Sender: TObject);  
706 -begin  
707 - Try  
708 - strFrmAtual := 'Principal';  
709 - objCacic := TCACIC.Create();  
710 -  
711 - objCacic.setBoolCipher(true);  
712 - objCacic.setLocalFolderName('Cacic');  
713 - objCacic.setWebServicesFolderName('ws/');  
714 -  
715 - if IsUserAnAdmin then  
716 - Begin  
717 - strChkSisInfFileName := objCacic.getWinDir + 'chksis.inf';  
718 -  
719 - Mensagem('Caminho local para a aplicação CACIC: "'+objCacic.GetValueFromFile('Configs','LocalFolderName',strChkSisInfFileName)+'"');  
720 - if not (objCacic.GetValueFromFile('Configs','LocalFolderName',strChkSisInfFileName) = '') then  
721 - Begin  
722 -  
723 - objCacic.setLocalFolderName(objCacic.GetValueFromFile('Configs','LocalFolderName',strChkSisInfFileName));  
724 - objCacic.setWebServicesFolderName(objCacic.GetValueFromFile('Configs','WebServicesFolderName', strChkSisInfFileName));  
725 - objCacic.setWebManagerAddress(objCacic.GetValueFromFile('Configs','WebManagerAddress', strChkSisInfFileName));  
726 -  
727 - strGerColsInfFileName := objCacic.getLocalFolderName + 'GerCols.inf';  
728 -  
729 - // A existência e bloqueio do arquivo abaixo evitará que o Agente Principal entre em ação  
730 - AssignFile(textFileAguarde,objCacic.getLocalFolderName + '\temp\aguarde_MAPACACIC.txt'); {Associa o arquivo a uma variável do tipo TextFile}  
731 - {$IOChecks off}  
732 - Reset(textFileAguarde); {Abre o arquivo texto}  
733 - {$IOChecks on}  
734 - if (IOResult <> 0) then // Arquivo não existe, será recriado.  
735 - Rewrite (textFileAguarde);  
736 -  
737 - Append(textFileAguarde);  
738 - Writeln(textFileAguarde,'Apenas um pseudo-cookie para o Agente Principal esperar o término de MapaCACIC');  
739 - Append(textFileAguarde);  
740 -  
741 - frmMapaCacic.edWebManagerAddress.Caption := objCacic.GetValueFromFile('Configs','WebManagerAddress', strChkSisInfFileName);  
742 -  
743 - frmMapaCacic.lbMensagens.Caption := 'Entrada de Dados para Autenticação no Módulo Gerente WEB Cacic';  
744 - objCacic.writeDebugLog('FormActivate: Versão do MapaCacic...: ' + pnVersao.Caption);  
745 - objCacic.writeDebugLog('FormActivate: Hash-Code do MapaCacic: ' + objCacic.getFileHash(ParamStr(0)));  
746 -  
747 - // Acessar...  
748 - CriaFormSenha(nil);  
749 - frmAcesso.ShowModal;  
750 -  
751 - Application.ProcessMessages;  
752 - if boolAcessoOK then  
753 - Begin  
754 - Visible := true;  
755 - Height := 575;  
756 - Width := 800;  
757 - WindowState := wsNormal;  
758 - Position := poScreenCenter;  
759 -  
760 - pnMensagens.Visible := true;  
761 - Mensagem('Efetuando Comunicação com o Módulo Gerente WEB em "'+objCacic.GetValueFromFile('Configs','WebManagerAddress', strChkSisInfFileName)+'"...',false,1);  
762 - frmAcesso.Free;  
763 -  
764 - // Povoamento com dados de configurações da interface patrimonial  
765 - // Solicita ao servidor as configurações para a Coleta de Informações de Patrimônio  
766 - strFieldsAndValuesToRequest := 'id_usuario=' + objCacic.replaceInvalidHTTPChars( objCacic.enCrypt(frmMapaCacic.strId_usuario));  
767 -  
768 - objCacic.writeDebugLog('FormActivate: Requisitando informações de patrimônio da estação...');  
769 -  
770 - if (getConfigs <> '0') then  
771 - mapa  
772 - else  
773 - Sair;  
774 - End;  
775 - End  
776 - else  
777 - Begin  
778 - frmMapaCacic.boolAcessoOK := false;  
779 - MessageDLG(#13#10+'Atenção! É necessário reinstalar o CACIC nesta estação.' + #13#10 + #13#10 +  
780 - 'A estrutura encontra-se corrompida.' + #13#10,mtError,[mbOK],0);  
781 - Application.ProcessMessages;  
782 - frmMapaCacic.Finalizar(false);  
783 - End;  
784 - End  
785 - else  
786 - Begin // Se NT/2000/XP/...  
787 - MessageDLG(#13#10+'ATENÇÃO! Essa aplicação requer execução com nível administrativo.',mtError,[mbOK],0);  
788 - objCacic.writeDailyLog('SEM PRIVILÉGIOS: Necessário ser administrador "local" ou de Domínio!');  
789 - Sair;  
790 - End;  
791 - Finally  
792 - End;  
793 -end;  
794 -  
795 -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1Click(  
796 - Sender: TObject);  
797 -begin  
798 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Click: Click');  
799 -end;  
800 -  
801 -procedure TfrmMapaCacic.FormActivate(Sender: TObject);  
802 -begin  
803 - pnVersao.Caption := 'Versão: ' + objCacic.getVersionInfo(ParamStr(0));  
804 - strFrmAtual := 'Principal';  
805 -end;  
806 -  
807 -procedure TfrmMapaCacic.btCombosUpdateClick(Sender: TObject);  
808 -begin  
809 - cbIdUnidOrganizacionalNivel1.Enabled := false;  
810 - cbIdUnidOrganizacionalNivel1a.Enabled := false;  
811 - cbIdUnidOrganizacionalNivel2.Enabled := false;  
812 -  
813 - getConfigs;  
814 - MontaInterface;  
815 - MontaCombos;  
816 - RecuperaValoresAnteriores;  
817 -end;  
818 -  
819 -procedure TfrmMapaCacic.timerMessageShowTimeTimer(Sender: TObject);  
820 -begin  
821 - timerMessageShowTime.Enabled := false;  
822 - timerMessageShowTime.Interval := 0;  
823 - strShowOrHide := 'Hide';  
824 - timerMessageBoxShowOrHide.Enabled := true;  
825 -end;  
826 -  
827 -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1DrawItem(  
828 - Control: TWinControl; Index: Integer; Rect: TRect;  
829 - State: TOwnerDrawState);  
830 -var sText : String;  
831 -begin  
832 - sText := cbIdUnidOrganizacionalNivel1.Items[index];  
833 - cbIdUnidOrganizacionalNivel1.Height := 30;  
834 - cbIdUnidOrganizacionalNivel1.Canvas.FillRect(Rect);  
835 - DrawText(cbIdUnidOrganizacionalNivel1.Canvas.Handle,PChar(sText),Length(sText),Rect,DT_VCENTER + DT_SINGLELINE + DT_CENTER);  
836 -end;  
837 -  
838 -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1aDrawItem(  
839 - Control: TWinControl; Index: Integer; Rect: TRect;  
840 - State: TOwnerDrawState);  
841 -var sText : String;  
842 -begin  
843 - sText := cbIdUnidOrganizacionalNivel1a.Items[index];  
844 - cbIdUnidOrganizacionalNivel1a.Height := 30;  
845 - cbIdUnidOrganizacionalNivel1a.Canvas.FillRect(Rect);  
846 - DrawText(cbIdUnidOrganizacionalNivel1a.Canvas.Handle,PChar(sText),Length(sText),Rect,DT_VCENTER + DT_SINGLELINE + DT_CENTER);  
847 -end;  
848 -  
849 -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel2DrawItem(  
850 - Control: TWinControl; Index: Integer; Rect: TRect;  
851 - State: TOwnerDrawState);  
852 -var sText : String;  
853 -begin  
854 - sText := cbIdUnidOrganizacionalNivel2.Items[index];  
855 - cbIdUnidOrganizacionalNivel2.Height := 30;  
856 - cbIdUnidOrganizacionalNivel2.Canvas.FillRect(Rect);  
857 - DrawText(cbIdUnidOrganizacionalNivel2.Canvas.Handle,PChar(sText),Length(sText),Rect,DT_VCENTER + DT_SINGLELINE + DT_CENTER);  
858 -end;  
859 -  
860 -procedure TfrmMapaCacic.timerMessageBoxShowOrHideTimer(Sender: TObject);  
861 -begin  
862 - if (strShowOrHide = 'Show') then  
863 - if (strFrmAtual = 'Acesso') then  
864 - frmAcesso.pnMessageBox.Height := frmAcesso.pnMessageBox.Height + 1  
865 - else  
866 - frmMapaCacic.pnMessageBox.Height := frmMapaCacic.pnMessageBox.Height + 1;  
867 - else  
868 - if (strFrmAtual = 'Acesso') then  
869 - frmAcesso.pnMessageBox.Height := frmAcesso.pnMessageBox.Height - 1  
870 - else  
871 - frmMapaCacic.pnMessageBox.Height := frmMapaCacic.pnMessageBox.Height - 1;  
872 -  
873 - if (strFrmAtual = 'Acesso' and frmAcesso.pnMessageBox.Height = 0) or  
874 - (strFrmAtual = 'Acesso' and frmAcesso.pnMessageBox.Height = 45) or  
875 - (strFrmAtual = 'Principal' and frmMapaCacic.pnMessageBox.Height = 0) or  
876 - (strFrmAtual = 'Principal' and frmMapaCacic.pnMessageBox.Height = 45) then  
877 - Begin  
878 - timerMessageBoxShowOrHide.Enabled := false;  
879 - if timerMessageShowTime.Interval > 0 then  
880 - timerMessageShowTime.Enabled := true;  
881 - End;  
882 -end;  
883 -  
884 -end.  
@@ -1,9 +0,0 @@ @@ -1,9 +0,0 @@
1 -unit XML;  
2 -  
3 -  
4 -interface  
5 -  
6 -Uses LibXmlParser, SysUtils;  
7 -  
8 -  
9 -end.