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 @@
  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 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   -[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   -(**
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   -(**
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   -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   -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   -(**
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   -unit XML;
2   -
3   -
4   -interface
5   -
6   -Uses LibXmlParser, SysUtils;
7   -
8   -
9   -end.