From 4eec8046e62313dc76dfd0f7acbe6b3e4f93b095 Mon Sep 17 00:00:00 2001 From: harpiain@gmail.com Date: Sun, 23 Jun 2013 22:17:53 +0000 Subject: [PATCH] Excluídos arquivos desnecessários --- CacicVersionsAndHashes/CacicVersionsAndHashes.dproj | 46 ++++++++++++++++++++++++++++++++++++++++++++++ CacicVersionsAndHashes/uCacicVersionsAndHashes.dcu | Bin 13926 -> 0 bytes cacic26Beta2.dof | 152 -------------------------------------------------------------------------------------------------------------------------------------------------------- cacic26Beta2.dpr | 67 ------------------------------------------------------------------- cacic26Beta2.res | Bin 4888 -> 0 bytes mapacacic/MapaCACIC.~dpr | 58 ---------------------------------------------------------- mapacacic/uAcessoMapa.~ddp | Bin 51 -> 0 bytes mapacacic/uAcessoMapa.~dfm | 301 ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- mapacacic/uMainMapa.~dfm | 650 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- mapacacic/uMainMapa.~pas | 884 -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------- xml.pas | 9 --------- 11 files changed, 46 insertions(+), 2121 deletions(-) create mode 100644 CacicVersionsAndHashes/CacicVersionsAndHashes.dproj delete mode 100644 CacicVersionsAndHashes/uCacicVersionsAndHashes.dcu delete mode 100755 cacic26Beta2.dof delete mode 100755 cacic26Beta2.dpr delete mode 100755 cacic26Beta2.res delete mode 100644 mapacacic/MapaCACIC.~dpr delete mode 100644 mapacacic/uAcessoMapa.~ddp delete mode 100644 mapacacic/uAcessoMapa.~dfm delete mode 100644 mapacacic/uMainMapa.~dfm delete mode 100644 mapacacic/uMainMapa.~pas delete mode 100755 xml.pas diff --git a/CacicVersionsAndHashes/CacicVersionsAndHashes.dproj b/CacicVersionsAndHashes/CacicVersionsAndHashes.dproj new file mode 100644 index 0000000..b8ed15e --- /dev/null +++ b/CacicVersionsAndHashes/CacicVersionsAndHashes.dproj @@ -0,0 +1,46 @@ + + + + {d0d857b5-96d3-4559-916d-ffabbc2df148} + CacicVersionsAndHashes.dpr + Release + AnyCPU + DCC32 + ..\..\Agentes_Windows_BINARIOS\CacicVersionsAndHashes.exe + + + 7.0 + False + False + 0 + C:\devel\cacic\Agentes_Windows_BINARIOS + DEBUG + True + True + True + + + 7.0 + C:\devel\cacic\Agentes_Windows_BINARIOS + DEBUG + True + True + True + + + Delphi.Personality + VCLApplication + +FalseTrueFalseC:\Documents and Settings\d306851\Desktop\MiTeC\Demos\1\TrueFalse2801212FalseFalseFalseFalseFalse104612522.8.0.12123.0CacicVersionsAndHashes.dpr + + + + + MainSource + + + +
frmCacicVersionsAndHashes
+ + + \ No newline at end of file diff --git a/CacicVersionsAndHashes/uCacicVersionsAndHashes.dcu b/CacicVersionsAndHashes/uCacicVersionsAndHashes.dcu deleted file mode 100644 index 32ba2da..0000000 Binary files a/CacicVersionsAndHashes/uCacicVersionsAndHashes.dcu and /dev/null differ diff --git a/cacic26Beta2.dof b/cacic26Beta2.dof deleted file mode 100755 index 1d4f11d..0000000 --- a/cacic26Beta2.dof +++ /dev/null @@ -1,152 +0,0 @@ -[FileVersion] -Version=7.0 -[Compiler] -A=8 -B=0 -C=1 -D=1 -E=0 -F=0 -G=1 -H=1 -I=1 -J=0 -K=0 -L=1 -M=0 -N=1 -O=1 -P=1 -Q=0 -R=0 -S=0 -T=0 -U=0 -V=1 -W=0 -X=1 -Y=1 -Z=1 -ShowHints=1 -ShowWarnings=1 -UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -NamespacePrefix= -SymbolDeprecated=1 -SymbolLibrary=1 -SymbolPlatform=1 -UnitLibrary=1 -UnitPlatform=1 -UnitDeprecated=1 -HResultCompat=1 -HidingMember=1 -HiddenVirtual=1 -Garbage=1 -BoundsError=1 -ZeroNilCompat=1 -StringConstTruncated=1 -ForLoopVarVarPar=1 -TypedConstVarPar=1 -AsgToTypedConst=1 -CaseLabelRange=1 -ForVariable=1 -ConstructingAbstract=1 -ComparisonFalse=1 -ComparisonTrue=1 -ComparingSignedUnsigned=1 -CombiningSignedUnsigned=1 -UnsupportedConstruct=1 -FileOpen=1 -FileOpenUnitSrc=1 -BadGlobalSymbol=1 -DuplicateConstructorDestructor=1 -InvalidDirective=1 -PackageNoLink=1 -PackageThreadVar=1 -ImplicitImport=1 -HPPEMITIgnored=1 -NoRetVal=1 -UseBeforeDef=1 -ForLoopVarUndef=1 -UnitNameMismatch=1 -NoCFGFileFound=1 -MessageDirective=1 -ImplicitVariants=1 -UnicodeToLocale=1 -LocaleToUnicode=1 -ImagebaseMultiple=1 -SuspiciousTypecast=1 -PrivatePropAccessor=1 -UnsafeType=1 -UnsafeCode=1 -UnsafeCast=1 -[Linker] -MapFile=0 -OutputObjs=0 -ConsoleApp=1 -DebugInfo=0 -RemoteSymbols=0 -MinStackSize=16384 -MaxStackSize=1048576 -ImageBase=4194304 -ExeDescription= -[Directories] -OutputDir=C:\arariboia_mod_BINARIOS -UnitOutputDir= -PackageDLLOutputDir= -PackageDCPOutputDir= -SearchPath= -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 -Conditionals= -DebugSourceDirs= -UsePackages=0 -[Parameters] -RunParams= -HostApplication= -Launcher= -UseLauncher=0 -DebugCWD= -[Language] -ActiveLang= -ProjectLang= -RootDir= -[Version Info] -IncludeVerInfo=1 -AutoIncBuild=0 -MajorVer=2 -MinorVer=6 -Release=0 -Build=2 -Debug=0 -PreRelease=0 -Special=0 -Private=0 -DLL=0 -Locale=1046 -CodePage=1252 -[Version Info Keys] -CompanyName=Dataprev - Emp. de TI da Prev.Social - UDSL/SSLC -FileDescription=Sistema CACIC - Módulo Agente Principal -FileVersion=2.6.0.2 -InternalName= -LegalCopyright=Baseado na licença GNU/LGPL -LegalTrademarks= -OriginalFilename= -ProductName=Cacic - Configurador Automático e Coletor de Informações Computacionais -ProductVersion=2.6-Beta-2 -[HistoryLists\hlDebugSourcePath] -Count=1 -Item0=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7 -[HistoryLists\hlUnitAliases] -Count=1 -Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; -[HistoryLists\hlSearchPath] -Count=3 -Item0=C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\Mitec\v1010_Delphi7;C:\Arquivos de programas\Borland\Delphi7\Comps_CACIC\CriptografiaDCP -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 -Item2=C:\Arquivos de programas\Borland\Delphi7\Mitec\D7 -[HistoryLists\hlOutputDirectorry] -Count=4 -Item0=C:\arariboia_mod_BINARIOS -Item1=Z:\cacic26b2\repositorio -Item2=Z:\cacic2\repositorio -Item3=..\ diff --git a/cacic26Beta2.dpr b/cacic26Beta2.dpr deleted file mode 100755 index 1af59fe..0000000 --- a/cacic26Beta2.dpr +++ /dev/null @@ -1,67 +0,0 @@ -(** ---------------------------------------------------------------------------------------------------------------------------------------------------------------- -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil - -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais - -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão. - -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes. - -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 -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA ---------------------------------------------------------------------------------------------------------------------------------------------------------------- -*) - -program cacic26Beta2; - -uses - Forms, - Windows, - main in 'main.pas' {FormularioGeral}, - frmSenha in 'frmsenha.pas' {formSenha}, - frmConfiguracoes in 'frmConfiguracoes.pas' {FormConfiguracoes}, - frmLog in 'frmLog.pas' {FormLog}, - LibXmlParser, - CACIC_Library in 'CACIC_Library.pas', - USBdetectClass in 'USBdetectClass.pas'; -// WinVNC in 'winvnc.pas', - -{$R *.res} - -const - CACIC_APP_NAME = 'cacic3'; - -var - hwind:HWND; - oCacic : TCACIC; - -begin - oCacic := TCACIC.Create(); - - if( oCacic.isAppRunning( CACIC_APP_NAME ) ) - then begin - hwind := 0; - repeat // The string 'My app' must match your App Title (below) - hwind:=Windows.FindWindowEx(0,hwind,'TApplication', CACIC_APP_NAME ); - until (hwind<>Application.Handle); - IF (hwind<>0) then - begin - Windows.ShowWindow(hwind,SW_SHOWNORMAL); - Windows.SetForegroundWindow(hwind); - end; - FreeMemory(0); - Halt(0); - end; - - oCacic.Free(); - - // Preventing application button showing in the task bar - SetWindowLong(Application.Handle, GWL_EXSTYLE, GetWindowLong(Application.Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW and not WS_EX_APPWINDOW ); - Application.Initialize; - Application.Title := 'cacic3'; - Application.CreateForm(TFormularioGeral, FormularioGeral); - Application.Run; -end. diff --git a/cacic26Beta2.res b/cacic26Beta2.res deleted file mode 100755 index 4e564fb..0000000 Binary files a/cacic26Beta2.res and /dev/null differ diff --git a/mapacacic/MapaCACIC.~dpr b/mapacacic/MapaCACIC.~dpr deleted file mode 100644 index 4b0a047..0000000 --- a/mapacacic/MapaCACIC.~dpr +++ /dev/null @@ -1,58 +0,0 @@ -(** ---------------------------------------------------------------------------------------------------------------------------------------------------------------- -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil - -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais - -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão. - -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes. - -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 -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA ---------------------------------------------------------------------------------------------------------------------------------------------------------------- -*) - -program MapaCacic; - -uses - Forms, - Windows, - uMainMapa in 'uMainMapa.pas' {frmMapaCacic}, - uAcessoMapa in 'uAcessoMapa.pas' {frmAcesso}, - CACIC_Library in '..\CACIC_Library.pas', - CACIC_Comm in '..\CACIC_Comm.pas'; - -{$R *.res} - -const APP_NAME = 'MapaCacic.exe'; - -var hwind:HWND; - oCacic : TCACIC; - -begin - oCacic := TCACIC.Create(); - - if( oCacic.isAppRunning( APP_NAME ) ) - then begin - hwind := 0; - repeat // The string 'My app' must match your App Title (below) - hwind:=Windows.FindWindowEx(0,hwind,'TApplication', APP_NAME ); - until (hwind<>Application.Handle); - IF (hwind<>0) then - begin - Windows.ShowWindow(hwind,SW_SHOWNORMAL); - Windows.SetForegroundWindow(hwind); - end; - FreeMemory(0); - end - else - begin - Application.Initialize; - Application.CreateForm(TfrmMapaCacic, frmMapaCacic); - Application.Run; - end; - oCacic.Free(); -end. diff --git a/mapacacic/uAcessoMapa.~ddp b/mapacacic/uAcessoMapa.~ddp deleted file mode 100644 index 4370276..0000000 Binary files a/mapacacic/uAcessoMapa.~ddp and /dev/null differ diff --git a/mapacacic/uAcessoMapa.~dfm b/mapacacic/uAcessoMapa.~dfm deleted file mode 100644 index d168d50..0000000 --- a/mapacacic/uAcessoMapa.~dfm +++ /dev/null @@ -1,301 +0,0 @@ -object frmAcesso: TfrmAcesso - Left = 318 - Top = 199 - BorderIcons = [] - BorderStyle = bsSingle - Caption = - 'MapaCacic - M'#243'dulo Avulso para Coleta de Informa'#231#245'es Patrimoniai' + - 's' - ClientHeight = 305 - ClientWidth = 605 - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - Icon.Data = { - 0000010001003232000001000800E00F00001600000028000000320000006400 - 00000100080000000000B80B0000000000000000000000010000000000000000 - 0000FFFFFF006699FF0099FFFF0066FFFF000033FF00002BD70000156A001534 - 380065CA320063C6310052A529004B9625002C59160066CC330066CB330060C0 - 30005DBA2F0059B12D00376D1C004589240059B233001A350F003C77240054A8 - 370034672200234618001E3B150050A23C00478A37000F1E0C004F9940001223 - 0F00315D2A00152A1200539E4A003D7238002A5028001223130026462800438E - 49000E1C10003F874B003A7E4600326D3D00101F130068BD7B00457C57006BC0 - 8A00294935006FC395000B16120012231D001B413500357B680074C7B0002851 - 47001B4239000E1B18006AB4AA007BD0C400183E3B000F2524007FD5D2008BE9 - E70088E4E30086E0DE00183E3E004FC8C8003D9A9A00193F3F001C4444001C41 - 41001F4545001E3B3B0097FDFD0095FAFA008EEEEE008CEBEB0087E2E20081D8 - D8005D9C9C003B63630098FEFE0093F5F50090F0F00079CACA006BB3B300416C - 6C0047757500122E2F00235455006FBBBF004D8285004A7C7F0015353800538D - 94003255590060A2A900416F76002B494D0050878E002C6D79001526290078CB - D8004D8590001C30350031C4F60033CCFF0033CAFD0032C5F80031BFF10031B8 - EA0032B0E400296781001E36400032AADD0013354400508EAA004E89A3001E34 - 3E0033A1D50035A5DA005CA3C800369AD00030566A0061ACD5003892CA000409 - 0C00569BC600368BC2000E1A220027475D00223F55000B263D001D4F78003C89 - C500060C1100549BD5001F394E004F92CC00235A8E004388CD00285B99004688 - D6004989D200335E93001E324900030C180010315B0018315100071934003369 - B500020407003E7ED600152A4800080E17004F88D8004D85D300548DE1001444 - 96005A8EE9005C90EC000C131F005E92F000141F33001145AD00010204000305 - 09000E1625001B2A47000D1422000B111D00111A2C000F1727001E2E4D004A70 - BC003956910036528900273B63006598FE006395F9006295F7006192F4006090 - F1005E8EED005B8AE500517ACC004C73C000486CB500466AB1004264A7004162 - A4004060A1006597FD006496FA005E8DEB005D8BE9005A87E1005985DF005782 - DA00547ED2004E75C3004466AA003F5E9D00354F8400324B7D002C426E002A3F - 690024365A0022335500203050001A2741003C5A95000A0F1A00162138002639 - 60004F76C6004567AD000E3288000F2B70000938B900040D2400184AD2000736 - C50002030600032BBF000837D7000629A7000032FE000031FD000031F9000031 - F5000030F100002FEB00002CDF000029D0000028C8000026BF000024B600001E - 9800001D9300001A880000187D0000156C0000156B0000146400000E4900000A - 3500000724000230E3000534E60000051D0001092D0000000100FFFFFF000000 - 0000F9FC00000000000000000000000000000000000000000000000000000000 - 00000000000000000000FC0000000000000000000000F6F60000000000000000 - 000000000000000000000000000000000000000000000000000000000000F0F8 - 000000000000000000FDE8E7F800000000000000000000000000000000000000 - 0000000000000000000000000000000000F705EBF900000000000000F9ED0505 - ECF9000000000000000000000000000000000000000000000000000000000000 - 00000000FDE90505F100000000000000F605050505F800000000000000000000 - 000000000000000000000000000000000000000000000000F7050505E5F80000 - 000000F9EA05050505F600000000000000000000000000000000000000000000 - 000000000000000000000000E4E5050505EE0000000000F705050505E5EE0000 - 00000000000000000000000000000000000000000000000000000000000000FD - E905050505E5FD00000000A5DCEAE5E6EAEFDE00000000000000000000000000 - 00000000000000000000000000000000000000DEEDE8050506DCA30000008057 - 5096EBDB7D626A00000000000000000000000000000000000000000000000000 - 0000000000000064608BE2E2844E630000008356034D96840303640000000000 - 0000000000000000ABAEAEAEAE00000000000000000000000000005D034C9B85 - 4C036000000083500303424F0303630000000000000000ABA5CFD5BDBBC5B4B7 - C8BCC0CDAAA90000000000000000995703535655030362000000805703030303 - 03035E0000000000A9D7B1BA02020202020202020202020202B5BDD2AE000000 - 0000895C0303030303036300000000614B030303030364000000A3D3C6020202 - 02020202020202020202020202020202C3B1A900000000605303030303546A00 - 0000001E314F030303503300D6A5BB0202020202020202020202B70202020202 - 020202020202B8CFAB0000344D030353562720000000002012275603572720A3 - C102020202020202020202B9D5D2B3D1CFBD02020202020202020202C7A5001E - 3150033B250B290000000080170A2531171433CAC3020202020202020202C7D3 - BCB40202C4D5B3B70202020202020202C2B7D4290B2138190F1A000000000000 - 2914091A091BB09F7C8E0202020202020202D3B9020202020202BBB302020202 - 020202B67F7FA2AE190E110E1020000000000000AD515959A226A19E716D7FB5 - 0202020202D9B10202020202020202CCBF0202020202A47C6C799DB720090E0F - 1A000000000000AE5D593B5159B7717C9E746C7CA40202020202C20202020202 - 02020202B502020202A17A6C7C9D747A93190919330000000000AB5159BD5157 - 5159C36C7A9E796C79A10202020202020202020202020202020202029F716C7F - 9D716D88B5261334A300000000006F6590D9BD513B5159B46C719E7C6C79A102 - 0202020202020202020202020202029D706D88916F6B88B402BD3A02CDAC0000 - 00006F6F6F9FBCBD513B5159026D7091828E0202020202020202020202020202 - 020202C288888E6B6F8E02020202020202CF00000000006F6F6E9F9ADA515751 - 59B46B74BA02020202020202020202020202020202020202029E6F7091020202 - 020202020202D3000000AEC26F6F029F9ABD51575159029D0202020202020202 - 02020202020202020202020202028E9D02020202020202020202C6AE0000A502 - 026F6D6F9FD9BD513B5159020202020202020202020202020202020202020202 - 020202020202020202020202020202D70000ADB4026F6F686E9FD9BD51575102 - 0202020202020202020202020202020202020202020202020202020202020202 - 020202AD000000C002026F6F6F027A9ABD513B59BAC8C9D9B0BDDABA02020202 - 020202BADABDB0D9C9C8BAB8B4020202020202020202BED6000000A3C002026F - 6F6F6E9FD9BD3B5159B1CCBFBEBDBC020202020202020202BCBDBEBFCCB1B2CC - B502020202020202B9D8AC00000000009CB802026F6F6C027A9A515751020202 - 02020202020202020202020202020202020202020202020202020202AA000000 - 00000000FED4BFB9026F6C6FA4BCBD5151510259595959595959595902020202 - 02020202020202020202020202C3CAD0E1000000000000000000FED6A5D20268 - 6EB9D951515159595959595959595959595902020202020202020202B9BBC1D0 - D4AB9900000000000000000000000000000000026F6F56513B5759595900320F - 00000059595959C1B1CECFD8D2AAA5A9D6A80000000000000000000000000000 - 0000000000000000026F6F6F59595959000F0F0F000000000059595900000000 - 0000000000000000000000000000000000000000000000000000000000006F6F - 5959590000000000000000000000595959000000000000000000000000000000 - 0000000000000000000000000000000000000059595906060606060606060606 - 0606065959590000000000000000000000000000000000000000000000000000 - 00000000000000595906060F0F0F060606060606060606065959000000000000 - 0000000000000000000000000000000000FD070707070707070759595906060F - 0F06060606060606060606062E5959070707070707070707070707F4FC000000 - 0000000000F8EF06060606060606595959060F0F060606060606060606060606 - 0F5959060606060606060606060606F100000000000000000000945A08080808 - 0859590000000000000F0F0F0000000000000000005959080808080808080808 - 085F3E0000000000000000000000005A4404040404595932033204040F0F0404 - 040404040404040404595904040404040404040404455A000000000000000000 - 000000008646354748595905030332320F3204323204040404040404042F5949 - 4375393D49467535474A0000000000000000000000000000EE95175864595959 - 0503560F0F04323204040404040404042E59595E78F10D1651DEF11400570000 - 000000000000000000000000E8A0103762E65959050556033232320432043204 - 040415153259123F77E52B1D038FE91F1F0300000000000000000000000000EF - 05E00A304CE3595959055603032E2E2E2E0505050505151559590F3250EA7211 - 42810536184B57000000000000000000000000EE05FA112E03DFDD5959055603 - 03012E2E2E0505050505153259E00E324DFA8D093C7B056615555C0000000000 - 00000000000000EE05E9152E03DFE0595959560303322E2E2E3205050505322E - 59E009304CE38D0F377E057211415C000000000000000000000000EF05E00932 - 4EFBA60E59595903032E2E2E2E3205050505595959A60E3768E76615558C0536 - 184B570000000000000000000000000005A00A375C058711405959592E2E2E2E - 2E05050559595959058712407B052A1C0398E81C230300000000000000000000 - 0000000006380C5669EB2C143F8D5959592E2E2E2E32595959593F65EB2C143F - 92ED0B2442E4EF122F5600000000000000000000000000000700005800070000 - 5800000D5959595959595959000059000700005800000D005800000D00000000 - 000000000000F3FFFFFFFFF7C000F3FFFFFFFFF3C000E1FFFFFFFFE1C000C0FF - FFFFFFC1C000C0FFFFFFFFC0C00080FFFFFFFFC0C00080FFFFFFFF804000807F - FFFFFF804000007FFFFFFF804000007FFC1FFF804000007F8000FF004000007C - 00001F0040008070000007804000804000000180400080000000008040008000 - 00000000C000C00000000000C000C00000000001C000800000000001C0000000 - 00000001C000000000000000C000000000000000C00080000000000040000000 - 0000000000000000000000000000000000000000000080000000000000008000 - 0000000040008000000000004000800000000000400080000000000040008000 - 00000000C000C00000000000C000C00000000000C000C00000000001C000E000 - 00000001C000E00000000001C000E00000000003C000F00000000007C000F800 - 00000007C000FC000000000FC000FC000000002FC000FC000000000FC000F800 - 00000007C000F80000000007C000F80000000007C000F80000000007C000FC00 - 0000000FC000FC000000000FC000FDAD8035B5BFC000} - KeyPreview = True - OldCreateOrder = False - Position = poDesktopCenter - OnActivate = FormActivate - OnCreate = FormCreate - OnKeyDown = FormKeyDown - PixelsPerInch = 96 - TextHeight = 13 - object btAcesso: TButton - Left = 177 - Top = 260 - Width = 105 - Height = 33 - Caption = 'Acessar' - Default = True - Enabled = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 0 - OnClick = btAcessoClick - end - object btCancela: TButton - Left = 333 - Top = 260 - Width = 105 - Height = 33 - Caption = 'Cancelar' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - OnClick = btCancelaClick - end - object pnAcesso: TPanel - Left = 2 - Top = 3 - Width = 602 - Height = 196 - BevelInner = bvRaised - BevelOuter = bvLowered - TabOrder = 2 - object lbNomeUsuarioAcesso: TLabel - Left = 109 - Top = 42 - Width = 127 - Height = 20 - Caption = 'Nome de Usu'#225'rio:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbSenhaAcesso: TLabel - Left = 106 - Top = 82 - Width = 130 - Height = 20 - Caption = 'Senha de Acesso:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbAviso: TLabel - Left = 4 - Top = 171 - Width = 593 - Height = 13 - Alignment = taCenter - AutoSize = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clNavy - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - end - object edNomeUsuarioAcesso: TEdit - Left = 239 - Top = 39 - Width = 250 - Height = 28 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'MS Sans Serif' - Font.Style = [] - MaxLength = 20 - ParentFont = False - TabOrder = 0 - Visible = False - OnKeyUp = edNomeUsuarioAcessoKeyUp - end - object edSenhaAcesso: TEdit - Left = 239 - Top = 79 - Width = 250 - Height = 28 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - PasswordChar = #7 - TabOrder = 1 - Visible = False - OnKeyUp = edSenhaAcessoKeyUp - end - end - object pnMessageBox: TPanel - Left = 1 - Top = 198 - Width = 602 - Height = 45 - BevelInner = bvLowered - Color = clGradientInactiveCaption - Font.Charset = DEFAULT_CHARSET - Font.Color = clGradientActiveCaption - Font.Height = -13 - Font.Name = 'Arial' - Font.Style = [] - ParentFont = False - TabOrder = 3 - Visible = False - object lbMensagens: TLabel - Left = 2 - Top = 2 - Width = 598 - Height = 41 - Align = alClient - Alignment = taCenter - AutoSize = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Layout = tlCenter - end - end -end diff --git a/mapacacic/uMainMapa.~dfm b/mapacacic/uMainMapa.~dfm deleted file mode 100644 index ba9fdea..0000000 --- a/mapacacic/uMainMapa.~dfm +++ /dev/null @@ -1,650 +0,0 @@ -object frmMapaCacic: TfrmMapaCacic - Left = 494 - Top = 200 - Width = 1109 - Height = 579 - BorderIcons = [biSystemMenu] - Caption = - 'MapaCacic - M'#243'dulo Avulso para Coleta de Informa'#231#245'es Patrimoniai' + - 's' - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -9 - Font.Name = 'MS Sans Serif' - Font.Style = [] - Icon.Data = { - 0000010001003232000001000800E00F00001600000028000000320000006400 - 00000100080000000000B80B0000000000000000000000010000000000000000 - 0000FFFFFF006699FF0099FFFF0066FFFF000033FF00002BD70000156A001534 - 380065CA320063C6310052A529004B9625002C59160066CC330066CB330060C0 - 30005DBA2F0059B12D00376D1C004589240059B233001A350F003C77240054A8 - 370034672200234618001E3B150050A23C00478A37000F1E0C004F9940001223 - 0F00315D2A00152A1200539E4A003D7238002A5028001223130026462800438E - 49000E1C10003F874B003A7E4600326D3D00101F130068BD7B00457C57006BC0 - 8A00294935006FC395000B16120012231D001B413500357B680074C7B0002851 - 47001B4239000E1B18006AB4AA007BD0C400183E3B000F2524007FD5D2008BE9 - E70088E4E30086E0DE00183E3E004FC8C8003D9A9A00193F3F001C4444001C41 - 41001F4545001E3B3B0097FDFD0095FAFA008EEEEE008CEBEB0087E2E20081D8 - D8005D9C9C003B63630098FEFE0093F5F50090F0F00079CACA006BB3B300416C - 6C0047757500122E2F00235455006FBBBF004D8285004A7C7F0015353800538D - 94003255590060A2A900416F76002B494D0050878E002C6D79001526290078CB - D8004D8590001C30350031C4F60033CCFF0033CAFD0032C5F80031BFF10031B8 - EA0032B0E400296781001E36400032AADD0013354400508EAA004E89A3001E34 - 3E0033A1D50035A5DA005CA3C800369AD00030566A0061ACD5003892CA000409 - 0C00569BC600368BC2000E1A220027475D00223F55000B263D001D4F78003C89 - C500060C1100549BD5001F394E004F92CC00235A8E004388CD00285B99004688 - D6004989D200335E93001E324900030C180010315B0018315100071934003369 - B500020407003E7ED600152A4800080E17004F88D8004D85D300548DE1001444 - 96005A8EE9005C90EC000C131F005E92F000141F33001145AD00010204000305 - 09000E1625001B2A47000D1422000B111D00111A2C000F1727001E2E4D004A70 - BC003956910036528900273B63006598FE006395F9006295F7006192F4006090 - F1005E8EED005B8AE500517ACC004C73C000486CB500466AB1004264A7004162 - A4004060A1006597FD006496FA005E8DEB005D8BE9005A87E1005985DF005782 - DA00547ED2004E75C3004466AA003F5E9D00354F8400324B7D002C426E002A3F - 690024365A0022335500203050001A2741003C5A95000A0F1A00162138002639 - 60004F76C6004567AD000E3288000F2B70000938B900040D2400184AD2000736 - C50002030600032BBF000837D7000629A7000032FE000031FD000031F9000031 - F5000030F100002FEB00002CDF000029D0000028C8000026BF000024B600001E - 9800001D9300001A880000187D0000156C0000156B0000146400000E4900000A - 3500000724000230E3000534E60000051D0001092D0000000100FFFFFF000000 - 0000F9FC00000000000000000000000000000000000000000000000000000000 - 00000000000000000000FC0000000000000000000000F6F60000000000000000 - 000000000000000000000000000000000000000000000000000000000000F0F8 - 000000000000000000FDE8E7F800000000000000000000000000000000000000 - 0000000000000000000000000000000000F705EBF900000000000000F9ED0505 - ECF9000000000000000000000000000000000000000000000000000000000000 - 00000000FDE90505F100000000000000F605050505F800000000000000000000 - 000000000000000000000000000000000000000000000000F7050505E5F80000 - 000000F9EA05050505F600000000000000000000000000000000000000000000 - 000000000000000000000000E4E5050505EE0000000000F705050505E5EE0000 - 00000000000000000000000000000000000000000000000000000000000000FD - E905050505E5FD00000000A5DCEAE5E6EAEFDE00000000000000000000000000 - 00000000000000000000000000000000000000DEEDE8050506DCA30000008057 - 5096EBDB7D626A00000000000000000000000000000000000000000000000000 - 0000000000000064608BE2E2844E630000008356034D96840303640000000000 - 0000000000000000ABAEAEAEAE00000000000000000000000000005D034C9B85 - 4C036000000083500303424F0303630000000000000000ABA5CFD5BDBBC5B4B7 - C8BCC0CDAAA90000000000000000995703535655030362000000805703030303 - 03035E0000000000A9D7B1BA02020202020202020202020202B5BDD2AE000000 - 0000895C0303030303036300000000614B030303030364000000A3D3C6020202 - 02020202020202020202020202020202C3B1A900000000605303030303546A00 - 0000001E314F030303503300D6A5BB0202020202020202020202B70202020202 - 020202020202B8CFAB0000344D030353562720000000002012275603572720A3 - C102020202020202020202B9D5D2B3D1CFBD02020202020202020202C7A5001E - 3150033B250B290000000080170A2531171433CAC3020202020202020202C7D3 - BCB40202C4D5B3B70202020202020202C2B7D4290B2138190F1A000000000000 - 2914091A091BB09F7C8E0202020202020202D3B9020202020202BBB302020202 - 020202B67F7FA2AE190E110E1020000000000000AD515959A226A19E716D7FB5 - 0202020202D9B10202020202020202CCBF0202020202A47C6C799DB720090E0F - 1A000000000000AE5D593B5159B7717C9E746C7CA40202020202C20202020202 - 02020202B502020202A17A6C7C9D747A93190919330000000000AB5159BD5157 - 5159C36C7A9E796C79A10202020202020202020202020202020202029F716C7F - 9D716D88B5261334A300000000006F6590D9BD513B5159B46C719E7C6C79A102 - 0202020202020202020202020202029D706D88916F6B88B402BD3A02CDAC0000 - 00006F6F6F9FBCBD513B5159026D7091828E0202020202020202020202020202 - 020202C288888E6B6F8E02020202020202CF00000000006F6F6E9F9ADA515751 - 59B46B74BA02020202020202020202020202020202020202029E6F7091020202 - 020202020202D3000000AEC26F6F029F9ABD51575159029D0202020202020202 - 02020202020202020202020202028E9D02020202020202020202C6AE0000A502 - 026F6D6F9FD9BD513B5159020202020202020202020202020202020202020202 - 020202020202020202020202020202D70000ADB4026F6F686E9FD9BD51575102 - 0202020202020202020202020202020202020202020202020202020202020202 - 020202AD000000C002026F6F6F027A9ABD513B59BAC8C9D9B0BDDABA02020202 - 020202BADABDB0D9C9C8BAB8B4020202020202020202BED6000000A3C002026F - 6F6F6E9FD9BD3B5159B1CCBFBEBDBC020202020202020202BCBDBEBFCCB1B2CC - B502020202020202B9D8AC00000000009CB802026F6F6C027A9A515751020202 - 02020202020202020202020202020202020202020202020202020202AA000000 - 00000000FED4BFB9026F6C6FA4BCBD5151510259595959595959595902020202 - 02020202020202020202020202C3CAD0E1000000000000000000FED6A5D20268 - 6EB9D951515159595959595959595959595902020202020202020202B9BBC1D0 - D4AB9900000000000000000000000000000000026F6F56513B5759595900320F - 00000059595959C1B1CECFD8D2AAA5A9D6A80000000000000000000000000000 - 0000000000000000026F6F6F59595959000F0F0F000000000059595900000000 - 0000000000000000000000000000000000000000000000000000000000006F6F - 5959590000000000000000000000595959000000000000000000000000000000 - 0000000000000000000000000000000000000059595906060606060606060606 - 0606065959590000000000000000000000000000000000000000000000000000 - 00000000000000595906060F0F0F060606060606060606065959000000000000 - 0000000000000000000000000000000000FD070707070707070759595906060F - 0F06060606060606060606062E5959070707070707070707070707F4FC000000 - 0000000000F8EF06060606060606595959060F0F060606060606060606060606 - 0F5959060606060606060606060606F100000000000000000000945A08080808 - 0859590000000000000F0F0F0000000000000000005959080808080808080808 - 085F3E0000000000000000000000005A4404040404595932033204040F0F0404 - 040404040404040404595904040404040404040404455A000000000000000000 - 000000008646354748595905030332320F3204323204040404040404042F5949 - 4375393D49467535474A0000000000000000000000000000EE95175864595959 - 0503560F0F04323204040404040404042E59595E78F10D1651DEF11400570000 - 000000000000000000000000E8A0103762E65959050556033232320432043204 - 040415153259123F77E52B1D038FE91F1F0300000000000000000000000000EF - 05E00A304CE3595959055603032E2E2E2E0505050505151559590F3250EA7211 - 42810536184B57000000000000000000000000EE05FA112E03DFDD5959055603 - 03012E2E2E0505050505153259E00E324DFA8D093C7B056615555C0000000000 - 00000000000000EE05E9152E03DFE0595959560303322E2E2E3205050505322E - 59E009304CE38D0F377E057211415C000000000000000000000000EF05E00932 - 4EFBA60E59595903032E2E2E2E3205050505595959A60E3768E76615558C0536 - 184B570000000000000000000000000005A00A375C058711405959592E2E2E2E - 2E05050559595959058712407B052A1C0398E81C230300000000000000000000 - 0000000006380C5669EB2C143F8D5959592E2E2E2E32595959593F65EB2C143F - 92ED0B2442E4EF122F5600000000000000000000000000000700005800070000 - 5800000D5959595959595959000059000700005800000D005800000D00000000 - 000000000000F3FFFFFFFFF7C000F3FFFFFFFFF3C000E1FFFFFFFFE1C000C0FF - FFFFFFC1C000C0FFFFFFFFC0C00080FFFFFFFFC0C00080FFFFFFFF804000807F - FFFFFF804000007FFFFFFF804000007FFC1FFF804000007F8000FF004000007C - 00001F0040008070000007804000804000000180400080000000008040008000 - 00000000C000C00000000000C000C00000000001C000800000000001C0000000 - 00000001C000000000000000C000000000000000C00080000000000040000000 - 0000000000000000000000000000000000000000000080000000000000008000 - 0000000040008000000000004000800000000000400080000000000040008000 - 00000000C000C00000000000C000C00000000000C000C00000000001C000E000 - 00000001C000E00000000001C000E00000000003C000F00000000007C000F800 - 00000007C000FC000000000FC000FC000000002FC000FC000000000FC000F800 - 00000007C000F80000000007C000F80000000007C000F80000000007C000FC00 - 0000000FC000FC000000000FC000FDAD8035B5BFC000} - KeyPreview = True - OldCreateOrder = False - Position = poScreenCenter - WindowState = wsMinimized - OnActivate = FormActivate - OnClose = FormClose - OnCreate = FormCreate - PixelsPerInch = 96 - TextHeight = 13 - object lbWebManagerAddress: TLabel - Left = 1 - Top = 517 - Width = 153 - Height = 13 - AutoSize = False - Caption = 'Endere'#231'o do Servidor de Aplica'#231#227'o:' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -9 - Font.Name = 'Arial' - Font.Style = [] - ParentFont = False - end - object edWebManagerAddress: TLabel - Left = 153 - Top = 517 - Width = 500 - Height = 14 - AutoSize = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'Arial' - Font.Style = [fsBold] - ParentFont = False - end - object gbLeiaComAtencao: TGroupBox - Left = 1 - Top = -1 - Width = 780 - Height = 53 - Caption = ' Leia com aten'#231#227'o ' - Color = clBtnFace - Font.Charset = DEFAULT_CHARSET - Font.Color = clRed - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentColor = False - ParentFont = False - TabOrder = 0 - object lbLeiaComAtencao: TLabel - Left = 5 - Top = 14 - Width = 769 - Height = 32 - AutoSize = False - Caption = - 'O preenchimento correto dos campos abaixo define a exatid'#227'o do c' + - 'ontrole de patrim'#244'nio e localiza'#231#227'o f'#237'sica do equipamento.' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlack - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - WordWrap = True - end - end - object gbInformacoesSobreComputador: TGroupBox - Left = 1 - Top = 61 - Width = 780 - Height = 336 - Caption = - ' Informa'#231#245'es sobre localiza'#231#227'o f'#237'sica e patrimonial deste comput' + - 'ador ' - Font.Charset = DEFAULT_CHARSET - Font.Color = clBlue - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 1 - object lbEtiqueta1: TLabel - Left = 192 - Top = 27 - Width = 400 - Height = 13 - Alignment = taCenter - AutoSize = False - Caption = 'Etiqueta 1' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbEtiqueta2: TLabel - Left = 192 - Top = 117 - Width = 400 - Height = 13 - Alignment = taCenter - AutoSize = False - Caption = 'Etiqueta 2' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbEtiqueta3: TLabel - Left = 3 - Top = 170 - Width = 48 - Height = 14 - Caption = 'Etiqueta 3' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbEtiqueta4: TLabel - Left = 3 - Top = 229 - Width = 250 - Height = 13 - AutoSize = False - Caption = 'Etiqueta 4' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbEtiqueta5: TLabel - Left = 263 - Top = 229 - Width = 250 - Height = 13 - AutoSize = False - Caption = 'Etiqueta 5' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbEtiqueta6: TLabel - Left = 525 - Top = 229 - Width = 250 - Height = 13 - AutoSize = False - Caption = 'Etiqueta 6' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbEtiqueta7: TLabel - Left = 3 - Top = 289 - Width = 250 - Height = 13 - AutoSize = False - Caption = 'Etiqueta 7' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbEtiqueta8: TLabel - Left = 263 - Top = 289 - Width = 250 - Height = 13 - AutoSize = False - Caption = 'Etiqueta 8' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbEtiqueta9: TLabel - Left = 525 - Top = 289 - Width = 250 - Height = 13 - AutoSize = False - Caption = 'Etiqueta 9' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object lbEtiqueta1a: TLabel - Left = 192 - Top = 72 - Width = 400 - Height = 13 - Alignment = taCenter - AutoSize = False - Caption = 'Etiqueta 1a' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Visible = False - end - object cbIdUnidOrganizacionalNivel1: TComboBox - Left = 152 - Top = 42 - Width = 481 - Height = 19 - Hint = 'Esse '#233' o texto de ajuda da "Etiqueta 1"' - AutoDropDown = True - Style = csOwnerDrawFixed - Enabled = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [] - ItemHeight = 13 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 0 - OnChange = cbIdUnidOrganizacionalNivel1Change - OnClick = cbIdUnidOrganizacionalNivel1Click - OnDrawItem = cbIdUnidOrganizacionalNivel1DrawItem - end - object cbIdUnidOrganizacionalNivel2: TComboBox - Left = 152 - Top = 132 - Width = 481 - Height = 19 - Style = csOwnerDrawFixed - Enabled = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [] - ItemHeight = 13 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 1 - OnDrawItem = cbIdUnidOrganizacionalNivel2DrawItem - end - object edTeLocalizacaoComplementar: TEdit - Left = 3 - Top = 186 - Width = 772 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Arial' - Font.Style = [] - MaxLength = 100 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 2 - end - object edTeInfoPatrimonio3: TEdit - Left = 525 - Top = 244 - Width = 250 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [] - MaxLength = 20 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 5 - end - object edTeInfoPatrimonio1: TEdit - Left = 3 - Top = 244 - Width = 250 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [] - MaxLength = 20 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 3 - end - object edTeInfoPatrimonio2: TEdit - Left = 263 - Top = 244 - Width = 250 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [] - MaxLength = 20 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 4 - end - object edTeInfoPatrimonio6: TEdit - Left = 525 - Top = 304 - Width = 250 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [] - MaxLength = 20 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 8 - end - object edTeInfoPatrimonio4: TEdit - Left = 3 - Top = 304 - Width = 250 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [] - MaxLength = 20 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 6 - end - object edTeInfoPatrimonio5: TEdit - Left = 263 - Top = 304 - Width = 250 - Height = 24 - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [] - MaxLength = 20 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 7 - end - object cbIdUnidOrganizacionalNivel1a: TComboBox - Left = 152 - Top = 87 - Width = 481 - Height = 20 - Style = csOwnerDrawFixed - Enabled = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -16 - Font.Name = 'Arial' - Font.Style = [] - ItemHeight = 14 - ParentFont = False - ParentShowHint = False - ShowHint = True - TabOrder = 9 - OnChange = cbIdUnidOrganizacionalNivel1aChange - OnDrawItem = cbIdUnidOrganizacionalNivel1aDrawItem - end - object pnDivisoria01: TPanel - Left = 4 - Top = 163 - Width = 772 - Height = 3 - TabOrder = 10 - end - object btCombosUpdate: TButton - Left = 683 - Top = 8 - Width = 94 - Height = 20 - Caption = 'Recarregar' - Enabled = False - TabOrder = 11 - OnClick = btCombosUpdateClick - end - end - object btGravarInformacoes: TButton - Left = 192 - Top = 439 - Width = 401 - Height = 35 - Caption = 'Grava e Envia Informa'#231#245'es Patrimoniais ao Gerente WEB' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'Arial' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 2 - Visible = False - OnClick = AtualizaPatrimonio - end - object pnMessageBox: TPanel - Left = 0 - Top = 133 - Width = 780 - Height = 45 - BevelInner = bvLowered - Color = clGradientInactiveCaption - Font.Charset = DEFAULT_CHARSET - Font.Color = clGradientActiveCaption - Font.Height = -13 - Font.Name = 'Arial' - Font.Style = [] - ParentFont = False - TabOrder = 3 - Visible = False - object lbMensagens: TLabel - Left = 2 - Top = 2 - Width = 776 - Height = 41 - Align = alClient - Alignment = taCenter - AutoSize = False - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -13 - Font.Name = 'MS Sans Serif' - Font.Style = [] - ParentFont = False - Layout = tlCenter - end - end - object pnVersao: TPanel - Left = 674 - Top = 514 - Width = 105 - Height = 20 - BevelInner = bvLowered - Caption = 'Vers'#227'o' - Font.Charset = DEFAULT_CHARSET - Font.Color = clWindowText - Font.Height = -11 - Font.Name = 'MS Sans Serif' - Font.Style = [fsBold] - ParentFont = False - TabOrder = 4 - end - object timerMessageShowTime: TTimer - Enabled = False - Interval = 0 - OnTimer = timerMessageShowTimeTimer - Left = 2 - Top = 401 - end - object timerMessageBoxShowOrHide: TTimer - Enabled = False - Interval = 500 - OnTimer = timerMessageBoxShowOrHideTimer - Left = 34 - Top = 401 - end -end diff --git a/mapacacic/uMainMapa.~pas b/mapacacic/uMainMapa.~pas deleted file mode 100644 index 792fbb7..0000000 --- a/mapacacic/uMainMapa.~pas +++ /dev/null @@ -1,884 +0,0 @@ -(** ---------------------------------------------------------------------------------------------------------------------------------------------------------------- -Copyright 2000, 2001, 2002, 2003, 2004, 2005 Dataprev - Empresa de Tecnologia e Informações da Previdência Social, Brasil - -Este arquivo é parte do programa CACIC - Configurador Automático e Coletor de Informações Computacionais - -O CACIC é um software livre; você pode redistribui-lo e/ou modifica-lo dentro dos termos da Licença Pública Geral GNU como -publicada pela Fundação do Software Livre (FSF); na versão 2 da Licença, ou (na sua opinião) qualquer versão. - -Este programa é distribuido na esperança que possa ser util, mas SEM NENHUMA GARANTIA; sem uma garantia implicita de ADEQUAÇÂO a qualquer -MERCADO ou APLICAÇÃO EM PARTICULAR. Veja a Licença Pública Geral GNU para maiores detalhes. - -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 -Livre(FSF) Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA ---------------------------------------------------------------------------------------------------------------------------------------------------------------- -*) - -unit uMainMapa; - -interface - -uses - Windows, - SysUtils, // Deve ser colocado após o Windows acima, nunca antes - StrUtils, - StdCtrls, - Controls, - Classes, - Forms, - ExtCtrls, - Graphics, - Dialogs, - CACIC_Library, - CACIC_Comm, - ComCtrls, - ShellAPI, - uAcessoMapa, - Math; - -function IsUserAnAdmin() : boolean; external shell32; - -var strCollectsPatrimonioLast, - strConfigsPatrimonioCombos, - strFieldsAndValuesToRequest, - strIdUON1, - strFrmAtual, - strShowOrHide : string; - textFileAguarde : TextFile; - boolFinalizando : boolean; - objCacic : TCACIC; -type - TfrmMapaCacic = class(TForm) - gbLeiaComAtencao: TGroupBox; - lbLeiaComAtencao: TLabel; - gbInformacoesSobreComputador: TGroupBox; - lbEtiqueta1: TLabel; - lbEtiqueta2: TLabel; - lbEtiqueta3: TLabel; - cbIdUnidOrganizacionalNivel1: TComboBox; - cbIdUnidOrganizacionalNivel2: TComboBox; - edTeLocalizacaoComplementar: TEdit; - btGravarInformacoes: TButton; - lbEtiqueta4: TLabel; - lbEtiqueta5: TLabel; - lbEtiqueta6: TLabel; - lbEtiqueta7: TLabel; - lbEtiqueta8: TLabel; - lbEtiqueta9: TLabel; - edTeInfoPatrimonio1: TEdit; - edTeInfoPatrimonio2: TEdit; - edTeInfoPatrimonio3: TEdit; - edTeInfoPatrimonio4: TEdit; - edTeInfoPatrimonio5: TEdit; - edTeInfoPatrimonio6: TEdit; - pnMessageBox: TPanel; - lbMensagens: TLabel; - lbEtiqueta1a: TLabel; - cbIdUnidOrganizacionalNivel1a: TComboBox; - pnDivisoria01: TPanel; - lbWebManagerAddress: TLabel; - edWebManagerAddress: TLabel; - pnVersao: TPanel; - btCombosUpdate: TButton; - timerMessageShowTime: TTimer; - timerMessageBoxShowOrHide: TTimer; - - procedure AtualizaPatrimonio(Sender: TObject); - procedure mapa; - procedure FormClose(Sender: TObject; var Action: TCloseAction); - procedure cbIdUnidOrganizacionalNivel1Change(Sender: TObject); - procedure cbIdUnidOrganizacionalNivel1aChange(Sender: TObject); - procedure FormCreate(Sender: TObject); - procedure cbIdUnidOrganizacionalNivel1Click(Sender: TObject); - procedure FormActivate(Sender: TObject); - procedure cbIdUnidOrganizacionalNivel1DrawItem(Control: TWinControl; - Index: Integer; Rect: TRect; State: TOwnerDrawState); - procedure btCombosUpdateClick(Sender: TObject); - procedure timerMessageShowTimeTimer(Sender: TObject); - procedure cbIdUnidOrganizacionalNivel1aDrawItem(Control: TWinControl; - Index: Integer; Rect: TRect; State: TOwnerDrawState); - procedure cbIdUnidOrganizacionalNivel2DrawItem(Control: TWinControl; - Index: Integer; Rect: TRect; State: TOwnerDrawState); - procedure timerMessageBoxShowOrHideTimer(Sender: TObject); - private - strIdUnidOrganizacionalNivel1, - strIdUnidOrganizacionalNivel1a, - strIdUnidOrganizacionalNivel2, - strIdLocal, - strTeLocalizacaoComplementar, - strTeInfoPatrimonio1, - strTeInfoPatrimonio2, - strTeInfoPatrimonio3, - strTeInfoPatrimonio4, - strTeInfoPatrimonio5, - strTeInfoPatrimonio6 : String; - - function getConfigs : String; - function RetornaValorVetorUON1(pStrIdUON1 : string) : String; - function RetornaValorVetorUON1a(pStrIdUON1a : string) : String; - function RetornaValorVetorUON2(pStrIdUON2,pStrIdLocal : string) : String; - - procedure CriaFormSenha(Sender: TObject); - procedure MontaCombos; - procedure MontaInterface; - procedure RecuperaValoresAnteriores; - procedure Sair; - public - boolAcessoOK : boolean; - strId_usuario, - strChkSisInfFileName, - strGerColsInfFileName : String; - procedure Finalizar(p_pausa:boolean); - procedure Mensagem(p_strMsg : String; p_boolAlerta : boolean = false; p_intPausaSegundos : integer = 0); - end; - -var frmMapaCacic: TfrmMapaCacic; - -implementation - -{$R *.dfm} - -// Estruturas de dados para armazenar os itens das Unidades Organizacionais de Níveis 1, 1a e 2 -type - TRegistroUON1 = record // Nível 1 => Entidade - idUON1 : String; - nmUON1 : String; - end; - TVetorUON1 = array of TRegistroUON1; - - TRegistroUON1a = record // Nível 1a => Linha de Negócio - idUON1 : String; - idUON1a : String; - nmUON1a : String; - end; - TVetorUON1a = array of TRegistroUON1a; - - TRegistroUON2 = record // Nível 2 => Órgão - idUON1a : String; - idUON2 : String; - nmUON2 : String; - idLocal : String; - end; - TVetorUON2 = array of TRegistroUON2; - -var VetorUON1 : TVetorUON1; - VetorUON1a : TVetorUON1a; - VetorUON2 : TVetorUON2; - - // Esse array é usado apenas para saber a uon1a, após a filtragem pelo uon1 - VetorUON1aFiltrado : array of String; - - // Esse array é usado apenas para saber a uon2, após a filtragem pelo uon1a - VetorUON2Filtrado : array of String; - -procedure TfrmMapaCacic.Mensagem(p_strMsg : String; p_boolAlerta : boolean = false; p_intPausaSegundos : integer = 0); -Begin - strShowOrHide := 'Show'; - - objCacic.writeDebugLog('Mensagem: ' + p_strMsg); - - if p_boolAlerta then - lbMensagens.Font.Color := clRed - else - lbMensagens.Font.Color := clBlack; - - lbMensagens.Caption := p_strMsg; - timerMessageBoxShowOrHide.Enabled; - - objCacic.writeDailyLog(lbMensagens.Caption); - Application.ProcessMessages; - - if (p_intPausaSegundos > 0) then - timerMessageShowTime.Interval := p_intPausaSegundos * 1000; - - Application.ProcessMessages; -End; - -procedure showMessageBox; -Begin - -End; - -procedure TfrmMapaCacic.Sair; -Begin - Application.Terminate; -End; - -procedure TfrmMapaCacic.Finalizar(p_pausa:boolean); -Begin - gbLeiaComAtencao.Visible := false; - gbInformacoesSobreComputador.Visible := false; - btGravarInformacoes.Visible := false; - - Mensagem('Finalizando o MapaCacic...'); - - Application.ProcessMessages; - - Sleep(1000); - - Sair; -End; -// - -Function TfrmMapaCacic.RetornaValorVetorUON1(pStrIdUON1 : string) : String; -var I : Integer; -begin - For I := 0 to (Length(VetorUON1)-1) Do - If (VetorUON1[I].idUON1 = pStrIdUON1) Then Result := VetorUON1[I].nmUON1; -end; - -Function TfrmMapaCacic.RetornaValorVetorUON1a(pStrIdUON1a : string) : String; -var I : Integer; -begin - For I := 0 to (Length(VetorUON1a)-1) Do - If (VetorUON1a[I].idUON1a = pStrIdUON1a) Then Result := VetorUON1a[I].nmUON1a; -end; - -Function TfrmMapaCacic.RetornaValorVetorUON2(pStrIdUON2, pStrIdLocal: string) : String; -var I : Integer; -begin - For I := 0 to (Length(VetorUON2)-1) Do - If (VetorUON2[I].idUON2 = pStrIdUON2) and - (VetorUON2[I].idLocal = pStrIdLocal) Then Result := VetorUON2[I].nmUON2; -end; - -procedure TfrmMapaCacic.RecuperaValoresAnteriores; -var strCollectsPatrimonioLast, - strConfigsPatrimonioInterface : String; -begin - btCombosUpdate.Enabled := false; - - Mensagem('Recuperando Valores Anteriores...',false,1); - - strCollectsPatrimonioLast := objCacic.deCrypt( objCacic.GetValueFromFile('Collects','Patrimonio_Last',strGerColsInfFileName)); - - if (strCollectsPatrimonioLast <> '') then - Begin - strIdUnidOrganizacionalNivel1 := objCacic.GetValueFromFile('Patrimonio','IdUnidOrganizacionalNivel1',strGerColsInfFileName); - if (strIdUnidOrganizacionalNivel1='') then - strIdUnidOrganizacionalNivel1 := objCacic.deCrypt(objCacic.getValueFromTags('ID_UON1', strCollectsPatrimonioLast)); - - strIdUnidOrganizacionalNivel1a := objCacic.GetValueFromFile('Patrimonio','IdUnidOrganizacionalNivel1a',strGerColsInfFileName); - if (strIdUnidOrganizacionalNivel1a='') then - strIdUnidOrganizacionalNivel1a := objCacic.deCrypt(objCacic.getValueFromTags('ID_UON1a', strCollectsPatrimonioLast)); - - strIdUnidOrganizacionalNivel2 := objCacic.GetValueFromFile('Patrimonio','IdUnidOrganizacionalNivel2',strGerColsInfFileName); - if (strIdUnidOrganizacionalNivel2='') then - strIdUnidOrganizacionalNivel2 := objCacic.deCrypt(objCacic.getValueFromTags('ID_UON2', strCollectsPatrimonioLast)); - - strIdLocal := objCacic.getValueFromTags('IdLocal',strCollectsPatrimonioLast); - - Try - cbIdUnidOrganizacionalNivel1.ItemIndex := cbIdUnidOrganizacionalNivel1.Items.IndexOf(RetornaValorVetorUON1(strIdUnidOrganizacionalNivel1)); - cbIdUnidOrganizacionalNivel1Change(Nil); // Para filtrar os valores do combo2 de acordo com o valor selecionado no combo1 - cbIdUnidOrganizacionalNivel1a.ItemIndex := cbIdUnidOrganizacionalNivel1a.Items.IndexOf(RetornaValorVetorUON1(strIdUnidOrganizacionalNivel1)); - Except - on E:Exception do - Begin - objCacic.writeExceptionLog(E.Message,e.ClassName,'Setando "cbIdUnidOrganizacionalNivel1a.ItemIndex" para "' + IntToStr(cbIdUnidOrganizacionalNivel1a.Items.IndexOf(RetornaValorVetorUON1(strIdUnidOrganizacionalNivel1))) + '"'); - objCacic.writeDebugLog('RecuperaValoresAnteriores: Problema ao setar "cbIdUnidOrganizacionalNivel1a.ItemIndex" para "' + IntToStr(cbIdUnidOrganizacionalNivel1a.Items.IndexOf(RetornaValorVetorUON1(strIdUnidOrganizacionalNivel1))) + '"'); - End; - end; - - Try - cbIdUnidOrganizacionalNivel1a.ItemIndex := cbIdUnidOrganizacionalNivel1a.Items.IndexOf(RetornaValorVetorUON1a(strIdUnidOrganizacionalNivel1a)); - cbIdUnidOrganizacionalNivel1aChange(Nil); // Para filtrar os valores do combo3 de acordo com o valor selecionado no combo2 - cbIdUnidOrganizacionalNivel2.ItemIndex := cbIdUnidOrganizacionalNivel2.Items.IndexOf(RetornaValorVetorUON2(strIdUnidOrganizacionalNivel2,strIdLocal)); - Except - on E:Exception do - Begin - objCacic.writeExceptionLog(E.Message,e.ClassName,'Setando "cbIdUnidOrganizacionalNivel2.ItemIndex" para "' + IntToStr(cbIdUnidOrganizacionalNivel2.Items.IndexOf(RetornaValorVetorUON2(strIdUnidOrganizacionalNivel2,strIdLocal))) + '"'); - objCacic.writeDebugLog('RecuperaValoresAnteriores: Problema ao setar "cbIdUnidOrganizacionalNivel2.ItemIndex" para "' + IntToStr(cbIdUnidOrganizacionalNivel2.Items.IndexOf(RetornaValorVetorUON2(strIdUnidOrganizacionalNivel2,strIdLocal))) + '"'); - End; - end; - - strConfigsPatrimonioInterface := objCacic.deCrypt( objCacic.GetValueFromFile('Configs','Patrimonio_Interface',strGerColsInfFileName)); - - lbEtiqueta1.Caption := objCacic.getValueFromTags('te_etiqueta1', strConfigsPatrimonioInterface); - lbEtiqueta1a.Caption := objCacic.deCrypt(objCacic.getValueFromTags('te_etiqueta1a', strConfigsPatrimonioInterface)); - - strTeLocalizacaoComplementar := objCacic.getValueFromTags('TeLocalizacaoComplementar',strCollectsPatrimonioLast); - - // Tentarei buscar informação gravada no Registry - strTeInfoPatrimonio1 := objCacic.getValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1'); - strTeInfoPatrimonio2 := objCacic.getValueFromTags('TeInfoPatrimonio2',strCollectsPatrimonioLast); - strTeInfoPatrimonio3 := objCacic.getValueFromTags('TeInfoPatrimonio3',strCollectsPatrimonioLast); - strTeInfoPatrimonio4 := objCacic.getValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4'); - strTeInfoPatrimonio5 := objCacic.getValueFromTags('TeInfoPatrimonio5',strCollectsPatrimonioLast); - strTeInfoPatrimonio6 := objCacic.getValueFromTags('TeInfoPatrimonio6',strCollectsPatrimonioLast); - - if (strTeInfoPatrimonio1='') then strTeInfoPatrimonio1 := objCacic.getValueFromTags('TE_INFO1', strCollectsPatrimonioLast); - if (strTeInfoPatrimonio2='') then strTeInfoPatrimonio2 := objCacic.getValueFromTags('TE_INFO2', strCollectsPatrimonioLast); - if (strTeInfoPatrimonio3='') then strTeInfoPatrimonio3 := objCacic.getValueFromTags('TE_INFO3', strCollectsPatrimonioLast); - if (strTeInfoPatrimonio4='') then strTeInfoPatrimonio4 := objCacic.getValueFromTags('TE_INFO4', strCollectsPatrimonioLast); - if (strTeInfoPatrimonio5='') then strTeInfoPatrimonio5 := objCacic.getValueFromTags('TE_INFO5', strCollectsPatrimonioLast); - if (strTeInfoPatrimonio6='') then strTeInfoPatrimonio6 := objCacic.getValueFromTags('TE_INFO6', strCollectsPatrimonioLast); - End; - btCombosUpdate.Enabled := true; - Application.ProcessMessages; -end; - -procedure TfrmMapaCacic.MontaCombos; -var intTagCount, - intLoopUOS : integer; - strTagName, - strTagValue : String; - tstrTagsNames : TStrings; -begin - btCombosUpdate.Enabled := false; - cbIdUnidOrganizacionalNivel1.Enabled := false; - cbIdUnidOrganizacionalNivel1a.Enabled := false; - cbIdUnidOrganizacionalNivel2.Enabled := false; - - Mensagem('Montando Listas para Seleção de Unidades Organizacionais...',false,1); - - strConfigsPatrimonioCombos := objCacic.deCrypt(objCacic.GetValueFromFile('Configs' ,'Patrimonio_Combos',strGerColsInfFileName)); - strCollectsPatrimonioLast := objCacic.deCrypt(objCacic.GetValueFromFile('Collects','Patrimonio_Last' ,strGerColsInfFileName)); - - strIdUON1 := objCacic.getValueFromTags('IdUON1',strCollectsPatrimonioLast); - - SetLength(VetorUON1 ,0); - SetLength(VetorUON1a,0); - SetLength(VetorUON2 ,0); - - cbIdUnidOrganizacionalNivel1.Items.Clear; - cbIdUnidOrganizacionalNivel1a.Items.Clear; - cbIdUnidOrganizacionalNivel2.Items.Clear; - - tstrTagsNames := objCacic.explode('UO1,UO1a,UO2',','); - - for intLoopUOS := 0 to tstrTagsNames.Count -1 do - Begin - intTagCount := 1; - strTagValue := '*'; - while (strTagValue <> '') do - Begin - strTagName := tstrTagsNames[intLoopUOS] + '#' + intToStr(intTagCount); - strTagValue := objCacic.getValueFromTags(strTagName,strConfigsPatrimonioCombos); - if (strTagValue <> '') then - Begin - if (tstrTagsNames[intLoopUOS] = 'UO1') then - Begin - SetLength(VetorUON1 ,length(VetorUON1)+1); - VetorUON1[length(VetorUON1)-1].idUON1 := objCacic.getValueFromTags('UO1_ID',strTagValue); - VetorUON1[length(VetorUON1)-1].nmUON1 := objCacic.getValueFromTags('UO1_NM',strTagValue); - cbIdUnidOrganizacionalNivel1.Items.Add(VetorUON1[length(VetorUON1)-1].nmUON1); - if (strIdUON1 = VetorUON1[length(VetorUON1)-1].idUON1) then - cbIdUnidOrganizacionalNivel1.ItemIndex := cbIdUnidOrganizacionalNivel1.Items.Count-1; - End - else if (tstrTagsNames[intLoopUOS] = 'UO1a') then - Begin - SetLength(VetorUON1a ,length(VetorUON1a)+1); - VetorUON1a[length(VetorUON1a)-1].idUON1 := objCacic.getValueFromTags('UO1a_IdUO1',strTagValue); - VetorUON1a[length(VetorUON1a)-1].idUON1a := objCacic.getValueFromTags('UO1a_ID' ,strTagValue); - VetorUON1a[length(VetorUON1a)-1].nmUON1a := objCacic.getValueFromTags('UO1a_NM' ,strTagValue); - End - else if (tstrTagsNames[intLoopUOS] = 'UO2') then - Begin - SetLength(VetorUON2 ,length(VetorUON2)+1); - VetorUON2[length(VetorUON2)-1].idUON1a := objCacic.getValueFromTags('UO2_IdUO1a' ,strTagValue); - VetorUON2[length(VetorUON2)-1].idUON2 := objCacic.getValueFromTags('UO2_ID' ,strTagValue); - VetorUON2[length(VetorUON2)-1].nmUON2 := objCacic.getValueFromTags('UO2_NM' ,strTagValue); - VetorUON2[length(VetorUON2)-1].idLocal := objCacic.getValueFromTags('UO2_IdLocal',strTagValue); - End; - End; - inc(intTagCount); - End; - End; - - // Ao fim... - if (cbIdUnidOrganizacionalNivel1.ItemIndex = -1) then - cbIdUnidOrganizacionalNivel1.ItemIndex := 0; - - cbIdUnidOrganizacionalNivel1Change(nil); - - btCombosUpdate.Enabled := true; - cbIdUnidOrganizacionalNivel1.Enabled := true; - cbIdUnidOrganizacionalNivel1a.Enabled := true; - cbIdUnidOrganizacionalNivel2.Enabled := true; - - Application.ProcessMessages; -end; - -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1Change(Sender: TObject); -var intLoopVetorUON1a : integer; -begin - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Nível 1 CHANGE'); - - // Filtro os itens do combo2, de acordo com o item selecionado no combo1 - strIdUON1 := VetorUON1[cbIdUnidOrganizacionalNivel1.ItemIndex].idUON1; - - cbIdUnidOrganizacionalNivel1a.Items.Clear; - cbIdUnidOrganizacionalNivel2.Items.Clear; - cbIdUnidOrganizacionalNivel1a.Enabled := false; - cbIdUnidOrganizacionalNivel2.Enabled := false; - SetLength(VetorUON1aFiltrado, 0); - - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Tamanho de VetorUON1..: '+IntToStr(Length(VetorUON1))); - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: ItemIndex de cb_nivel1: '+IntToStr(cbIdUnidOrganizacionalNivel1.ItemIndex)); - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Tamanho de VetorUON1a.: '+IntToStr(Length(VetorUON1a))); - - For intLoopVetorUON1a := 0 to Length(VetorUON1a) - 1 Do - Begin - Try - if VetorUON1a[intLoopVetorUON1a].idUON1 = strIdUON1 then - Begin - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Add em cb_nivel1a: '+VetorUON1a[intLoopVetorUON1a].nmUON1a); - cbIdUnidOrganizacionalNivel1a.Items.Add(VetorUON1a[intLoopVetorUON1a].nmUON1a); - - SetLength(VetorUON1aFiltrado, Length(VetorUON1aFiltrado) + 1); - VetorUON1aFiltrado[Length(VetorUON1aFiltrado)-1] := VetorUON1a[intLoopVetorUON1a].idUON1a; - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: VetorUON1aFiltrado['+IntToStr(Length(VetorUON1aFiltrado)-1)+']= '+VetorUON1aFiltrado[Length(VetorUON1aFiltrado)-1]); - end; - Except - on E:Exception do - Begin - objCacic.writeExceptionLog(E.Message,e.ClassName); - End; - End; - end; - if (cbIdUnidOrganizacionalNivel1a.Items.Count > 0) then - Begin - cbIdUnidOrganizacionalNivel1a.Enabled := true; - cbIdUnidOrganizacionalNivel1a.ItemIndex := 0; - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Change: Provocando CHANGE em nivel1a'); - cbIdUnidOrganizacionalNivel1aChange(nil); - End; -end; - -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1aChange( - Sender: TObject); -var intLoopVetorUON2 : integer; -begin - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: Nível 1a CHANGE'); - // Filtro os itens do combo2, de acordo com o item selecionado no combo1 - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: cbIdUnidOrganizacionalNivel1a.ItemIndex = '+intToStr(cbIdUnidOrganizacionalNivel1a.ItemIndex)); - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: VetorUON1aFiltrado['+intToStr(cbIdUnidOrganizacionalNivel1a.ItemIndex)+'] => '+VetorUON1aFiltrado[cbIdUnidOrganizacionalNivel1a.ItemIndex]); - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: strIdLocal = '+strIdLocal); - - cbIdUnidOrganizacionalNivel2.Items.Clear; - cbIdUnidOrganizacionalNivel2.Enabled := false; - SetLength(VetorUON2Filtrado, 0); - - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: Tamanho de VetorUON1a..: '+IntToStr(Length(VetorUON1a))); - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: ItemIndex de cb_nivel1a: '+IntToStr(cbIdUnidOrganizacionalNivel1a.ItemIndex)); - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: Tamanho de VetorUON2...: '+IntToStr(Length(VetorUON2))); - - For intLoopVetorUON2 := 0 to Length(VetorUON2) - 1 Do - Begin - Try - if (VetorUON2[intLoopVetorUON2].idUON1a = VetorUON1aFiltrado[cbIdUnidOrganizacionalNivel1a.ItemIndex]) then - Begin - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: Add em cb_nivel2: '+VetorUON2[intLoopVetorUON2].nmUON2); - cbIdUnidOrganizacionalNivel2.Items.Add(VetorUON2[intLoopVetorUON2].nmUON2); - - SetLength(VetorUON2Filtrado, Length(VetorUON2Filtrado) + 1); - VetorUON2Filtrado[Length(VetorUON2Filtrado)-1] := VetorUON2[intLoopVetorUON2].idUON2 + '#' + VetorUON2[intLoopVetorUON2].idLocal; - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1aChange: VetorUON2Filtrado['+IntToStr(Length(VetorUON2Filtrado)-1)+']= '+VetorUON2Filtrado[Length(VetorUON2Filtrado)-1]); - end; - Except - on E:Exception do - Begin - objCacic.writeExceptionLog(E.Message,e.ClassName); - End; - End; - end; - if (cbIdUnidOrganizacionalNivel2.Items.Count > 0) then - Begin - cbIdUnidOrganizacionalNivel2.Enabled := true; - cbIdUnidOrganizacionalNivel2.ItemIndex := 0; - End; -end; - - -procedure TfrmMapaCacic.AtualizaPatrimonio(Sender: TObject); -var strColetaAtual, - strIdUON1, - strIdUON1a, - strIdUON2, - strIdLocal, - strRetorno : String; - tstrAuxAP : TStrings; -begin - tstrAuxAP := TStrings.Create; - tstrAuxAP := objCacic.explode(VetorUON2Filtrado[cbIdUnidOrganizacionalNivel2.ItemIndex],'#'); - Try - strIdUON1 := VetorUON1[cbIdUnidOrganizacionalNivel1.ItemIndex].idUON1; - strIdUON2 := tstrAuxAP[0]; - strIdLocal := tstrAuxAP[1]; - Except - on E:Exception do - Begin - objCacic.writeExceptionLog(E.Message,e.ClassName); - End; - end; - - tstrAuxAP := objCacic.explode(VetorUON1aFiltrado[cbIdUnidOrganizacionalNivel1a.ItemIndex],'#'); - Try - strIdUON1a := tstrAuxAP[0]; - Except - on E:Exception do - Begin - objCacic.writeExceptionLog(E.Message,e.ClassName); - End; - end; - - tstrAuxAP.Free; - Mensagem('Enviando Informações Coletadas ao Banco de Dados...',false,1); - - strFieldsAndValuesToRequest := 'CollectType=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt('col_patr')) ; - - strColetaAtual := StringReplace('[IdUsuario]' + frmMapaCacic.strId_usuario + '[/IdUsuario]' + - '[IdLocal]' + strIdLocal + '[/IdLocal]' + - '[IdUnidOrganizacionalNivel1]' + strIdUON1 + '[/IdUnidOrganizacionalNivel1]' + - '[IdUnidOrganizacionalNivel1a]' + strIdUON1A + '[/IdUnidOrganizacionalNivel1a]'+ - '[IdUnidOrganizacionalNivel2]' + strIdUON2 + '[/IdUnidOrganizacionalNivel2]' + - '[TeLocalizacaoComplementar]' + edTeLocalizacaoComplementar.Text + '[/TeLocalizacaoComplementar]' + - '[TeInfoPatrimonio1]' + edTeInfoPatrimonio1.Text + '[/TeInfoPatrimonio1]' + - '[TeInfoPatrimonio2]' + edTeInfoPatrimonio2.Text + '[/TeInfoPatrimonio2]' + - '[TeInfoPatrimonio3]' + edTeInfoPatrimonio3.Text + '[/TeInfoPatrimonio3]' + - '[TeInfoPatrimonio4]' + edTeInfoPatrimonio4.Text + '[/TeInfoPatrimonio4]' + - '[TeInfoPatrimonio5]' + edTeInfoPatrimonio5.Text + '[/TeInfoPatrimonio5]' + - '[TeInfoPatrimonio6]' + edTeInfoPatrimonio6.Text + '[/TeInfoPatrimonio6]',',','[[COMMA]]',[rfReplaceAll]); - - strFieldsAndValuesToRequest := strFieldsAndValuesToRequest + ',col_patr=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt(strColetaAtual)); - - strRetorno := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName +'gercols_set_collects.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); - objCacic.setBoolCipher(not objCacic.isInDebugMode); - - if (strRetorno = '0') then - Mensagem('ATENÇÃO: PROBLEMAS NO ENVIO DAS INFORMAÇÕES COLETADAS AO BANCO DE DADOS...',true,1) - else - Begin - Mensagem('Salvando Informações Coletadas em Base Local...',false,1); - objCacic.setValueToFile('Collects','Patrimonio_Last' , objCacic.enCrypt(strColetaAtual), strGerColsInfFileName); - - objCacic.setValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1', edTeInfoPatrimonio1.Text); - objCacic.setValueRegistryKey('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4', edTeInfoPatrimonio4.Text); - End; - objCacic.writeDebugLog('AtualizaPatrimonio: Dados Enviados ao Servidor!'); - Application.ProcessMessages; - - Finalizar(true); -end; - -procedure TfrmMapaCacic.MontaInterface; -var strConfigsPatrimonioInterface : String; -Begin - btCombosUpdate.Enabled := false; - - Mensagem('Montando Interface para Coleta de Informações...',false,1); - - strConfigsPatrimonioInterface := objCacic.deCrypt( objCacic.getValueFromFile('Configs','Patrimonio_Interface',strGerColsInfFileName)); - - lbEtiqueta1.Caption := objCacic.getValueFromTags('te_etiqueta1', strConfigsPatrimonioInterface); - lbEtiqueta1.Visible := true; - cbIdUnidOrganizacionalNivel1.Hint := objCacic.getValueFromTags('te_help_etiqueta1', strConfigsPatrimonioInterface); - - lbEtiqueta1a.Caption := objCacic.getValueFromTags('te_etiqueta1a', strConfigsPatrimonioInterface); - lbEtiqueta1a.Visible := true; - cbIdUnidOrganizacionalNivel1a.Hint := objCacic.getValueFromTags('te_help_etiqueta1a', strConfigsPatrimonioInterface); - - lbEtiqueta2.Caption := objCacic.getValueFromTags('te_etiqueta2', strConfigsPatrimonioInterface); - lbEtiqueta2.Visible := true; - cbIdUnidOrganizacionalNivel2.Hint := objCacic.getValueFromTags('te_help_etiqueta2', strConfigsPatrimonioInterface); - - lbEtiqueta3.Caption := objCacic.getValueFromTags('te_etiqueta3', strConfigsPatrimonioInterface); - lbEtiqueta3.Visible := true; - edTeLocalizacaoComplementar.Text := strTeLocalizacaoComplementar; - - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta4 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta4', strConfigsPatrimonioInterface)+'"'); - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta4', strConfigsPatrimonioInterface)) = 'S') then - begin - lbEtiqueta4.Caption := objCacic.getValueFromTags('te_etiqueta4', strConfigsPatrimonioInterface); - lbEtiqueta4.Visible := true; - edTeInfoPatrimonio1.Hint := objCacic.getValueFromTags('te_help_etiqueta4', strConfigsPatrimonioInterface); - edTeInfoPatrimonio1.Text := strTeInfoPatrimonio1; - edTeInfoPatrimonio1.visible := True; - end; - - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta5 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta5', strConfigsPatrimonioInterface)+'"'); - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta5', strConfigsPatrimonioInterface)) = 'S') then - begin - lbEtiqueta5.Caption := objCacic.getValueFromTags('te_etiqueta5', strConfigsPatrimonioInterface); - lbEtiqueta5.Visible := true; - edTeInfoPatrimonio2.Hint := objCacic.getValueFromTags('te_help_etiqueta5', strConfigsPatrimonioInterface); - edTeInfoPatrimonio2.Text := strTeInfoPatrimonio2; - edTeInfoPatrimonio2.visible := True; - end; - - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta6 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta6', strConfigsPatrimonioInterface)+'"'); - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta6', strConfigsPatrimonioInterface)) = 'S') then - begin - lbEtiqueta6.Caption := objCacic.getValueFromTags('te_etiqueta6', strConfigsPatrimonioInterface); - lbEtiqueta6.Visible := true; - edTeInfoPatrimonio3.Hint := objCacic.getValueFromTags('te_help_etiqueta6', strConfigsPatrimonioInterface); - edTeInfoPatrimonio3.Text := strTeInfoPatrimonio3; - edTeInfoPatrimonio3.visible := True; - end; - - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta7 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta7', strConfigsPatrimonioInterface)+'"'); - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta7', strConfigsPatrimonioInterface)) = 'S') then - begin - lbEtiqueta7.Caption := objCacic.getValueFromTags('te_etiqueta7', strConfigsPatrimonioInterface); - lbEtiqueta7.Visible := true; - edTeInfoPatrimonio4.Hint := objCacic.getValueFromTags('te_help_etiqueta7', strConfigsPatrimonioInterface); - edTeInfoPatrimonio4.Text := strTeInfoPatrimonio4; - edTeInfoPatrimonio4.visible := True; - end; - - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta8 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta8', strConfigsPatrimonioInterface)+'"'); - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta8', strConfigsPatrimonioInterface)) = 'S') then - begin - lbEtiqueta8.Caption := objCacic.getValueFromTags('te_etiqueta8', strConfigsPatrimonioInterface); - lbEtiqueta8.Visible := true; - edTeInfoPatrimonio5.Hint := objCacic.getValueFromTags('te_help_etiqueta8', strConfigsPatrimonioInterface); - edTeInfoPatrimonio5.Text := strTeInfoPatrimonio5; - edTeInfoPatrimonio5.visible := True; - end; - - objCacic.writeDebugLog('MontaInterface: in_exibir_etiqueta9 -> "'+objCacic.getValueFromTags('in_exibir_etiqueta9', strConfigsPatrimonioInterface)+'"'); - if (trim(objCacic.getValueFromTags('in_exibir_etiqueta9', strConfigsPatrimonioInterface)) = 'S') then - begin - lbEtiqueta9.Caption := objCacic.getValueFromTags('te_etiqueta9', strConfigsPatrimonioInterface); - lbEtiqueta9.Visible := true; - edTeInfoPatrimonio6.Hint := objCacic.getValueFromTags('te_help_etiqueta9', strConfigsPatrimonioInterface); - edTeInfoPatrimonio6.Text := strTeInfoPatrimonio6; - edTeInfoPatrimonio6.visible := True; - end; - - Mensagem('',false,1); - btGravarInformacoes.Visible := true; - btCombosUpdate.Enabled := true; - - cbIdUnidOrganizacionalNivel1.Enabled := true; - cbIdUnidOrganizacionalNivel1.SetFocus; - - Application.ProcessMessages; -end; - -procedure TfrmMapaCacic.FormClose(Sender: TObject; var Action: TCloseAction); -begin - Action := caNone; - objCacic.writeDebugLog('FormClose: ' + Sender.ClassName); - Finalizar(true); -end; - -procedure TfrmMapaCacic.CriaFormSenha(Sender: TObject); -begin - Application.CreateForm(TfrmAcesso, frmAcesso); -end; - -procedure TfrmMapaCacic.mapa; -begin - Try - MontaInterface; - MontaCombos; - RecuperaValoresAnteriores; - Except - on E:Exception do - Begin - objCacic.writeExceptionLog(E.Message,e.ClassName); - End; - End; -End; -function TfrmMapaCacic.getConfigs : String; -Begin - btCombosUpdate.Enabled := false; - - Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get_config.php', strFieldsAndValuesToRequest,objCacic.getLocalFolderName); - objCacic.setBoolCipher(not objCacic.isInDebugMode); - - objCacic.writeDebugLog('FormActivate: Retorno de getConfigs: "'+Result+'"'); - - if (Result <> '0') then - Begin - Mensagem('Comunicação Efetuada com Sucesso! Salvando as Configurações Obtidas...',false,1); - objCacic.setValueToFile('Configs' ,'Patrimonio_Combos' , objCacic.getValueFromTags('Configs_Patrimonio_Combos' , Result), strGerColsInfFileName); - objCacic.setValueToFile('Configs' ,'Patrimonio_Interface' , objCacic.getValueFromTags('Configs_Patrimonio_Interface', Result), strGerColsInfFileName); - objCacic.setValueToFile('Collects','Patrimonio_Last' , objCacic.getValueFromTags('Collects_Patrimonio_Last' , Result), strGerColsInfFileName); - End; - btCombosUpdate.Enabled := true; -End; - -procedure TfrmMapaCacic.FormCreate(Sender: TObject); -begin - Try - strFrmAtual := 'Principal'; - objCacic := TCACIC.Create(); - - objCacic.setBoolCipher(true); - objCacic.setLocalFolderName('Cacic'); - objCacic.setWebServicesFolderName('ws/'); - - if IsUserAnAdmin then - Begin - strChkSisInfFileName := objCacic.getWinDir + 'chksis.inf'; - - Mensagem('Caminho local para a aplicação CACIC: "'+objCacic.GetValueFromFile('Configs','LocalFolderName',strChkSisInfFileName)+'"'); - if not (objCacic.GetValueFromFile('Configs','LocalFolderName',strChkSisInfFileName) = '') then - Begin - - objCacic.setLocalFolderName(objCacic.GetValueFromFile('Configs','LocalFolderName',strChkSisInfFileName)); - objCacic.setWebServicesFolderName(objCacic.GetValueFromFile('Configs','WebServicesFolderName', strChkSisInfFileName)); - objCacic.setWebManagerAddress(objCacic.GetValueFromFile('Configs','WebManagerAddress', strChkSisInfFileName)); - - strGerColsInfFileName := objCacic.getLocalFolderName + 'GerCols.inf'; - - // A existência e bloqueio do arquivo abaixo evitará que o Agente Principal entre em ação - AssignFile(textFileAguarde,objCacic.getLocalFolderName + '\temp\aguarde_MAPACACIC.txt'); {Associa o arquivo a uma variável do tipo TextFile} - {$IOChecks off} - Reset(textFileAguarde); {Abre o arquivo texto} - {$IOChecks on} - if (IOResult <> 0) then // Arquivo não existe, será recriado. - Rewrite (textFileAguarde); - - Append(textFileAguarde); - Writeln(textFileAguarde,'Apenas um pseudo-cookie para o Agente Principal esperar o término de MapaCACIC'); - Append(textFileAguarde); - - frmMapaCacic.edWebManagerAddress.Caption := objCacic.GetValueFromFile('Configs','WebManagerAddress', strChkSisInfFileName); - - frmMapaCacic.lbMensagens.Caption := 'Entrada de Dados para Autenticação no Módulo Gerente WEB Cacic'; - objCacic.writeDebugLog('FormActivate: Versão do MapaCacic...: ' + pnVersao.Caption); - objCacic.writeDebugLog('FormActivate: Hash-Code do MapaCacic: ' + objCacic.getFileHash(ParamStr(0))); - - // Acessar... - CriaFormSenha(nil); - frmAcesso.ShowModal; - - Application.ProcessMessages; - if boolAcessoOK then - Begin - Visible := true; - Height := 575; - Width := 800; - WindowState := wsNormal; - Position := poScreenCenter; - - pnMensagens.Visible := true; - Mensagem('Efetuando Comunicação com o Módulo Gerente WEB em "'+objCacic.GetValueFromFile('Configs','WebManagerAddress', strChkSisInfFileName)+'"...',false,1); - frmAcesso.Free; - - // Povoamento com dados de configurações da interface patrimonial - // Solicita ao servidor as configurações para a Coleta de Informações de Patrimônio - strFieldsAndValuesToRequest := 'id_usuario=' + objCacic.replaceInvalidHTTPChars( objCacic.enCrypt(frmMapaCacic.strId_usuario)); - - objCacic.writeDebugLog('FormActivate: Requisitando informações de patrimônio da estação...'); - - if (getConfigs <> '0') then - mapa - else - Sair; - End; - End - else - Begin - frmMapaCacic.boolAcessoOK := false; - MessageDLG(#13#10+'Atenção! É necessário reinstalar o CACIC nesta estação.' + #13#10 + #13#10 + - 'A estrutura encontra-se corrompida.' + #13#10,mtError,[mbOK],0); - Application.ProcessMessages; - frmMapaCacic.Finalizar(false); - End; - End - else - Begin // Se NT/2000/XP/... - MessageDLG(#13#10+'ATENÇÃO! Essa aplicação requer execução com nível administrativo.',mtError,[mbOK],0); - objCacic.writeDailyLog('SEM PRIVILÉGIOS: Necessário ser administrador "local" ou de Domínio!'); - Sair; - End; - Finally - End; -end; - -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1Click( - Sender: TObject); -begin - objCacic.writeDebugLog('cbIdUnidOrganizacionalNivel1Click: Click'); -end; - -procedure TfrmMapaCacic.FormActivate(Sender: TObject); -begin - pnVersao.Caption := 'Versão: ' + objCacic.getVersionInfo(ParamStr(0)); - strFrmAtual := 'Principal'; -end; - -procedure TfrmMapaCacic.btCombosUpdateClick(Sender: TObject); -begin - cbIdUnidOrganizacionalNivel1.Enabled := false; - cbIdUnidOrganizacionalNivel1a.Enabled := false; - cbIdUnidOrganizacionalNivel2.Enabled := false; - - getConfigs; - MontaInterface; - MontaCombos; - RecuperaValoresAnteriores; -end; - -procedure TfrmMapaCacic.timerMessageShowTimeTimer(Sender: TObject); -begin - timerMessageShowTime.Enabled := false; - timerMessageShowTime.Interval := 0; - strShowOrHide := 'Hide'; - timerMessageBoxShowOrHide.Enabled := true; -end; - -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1DrawItem( - Control: TWinControl; Index: Integer; Rect: TRect; - State: TOwnerDrawState); -var sText : String; -begin - sText := cbIdUnidOrganizacionalNivel1.Items[index]; - cbIdUnidOrganizacionalNivel1.Height := 30; - cbIdUnidOrganizacionalNivel1.Canvas.FillRect(Rect); - DrawText(cbIdUnidOrganizacionalNivel1.Canvas.Handle,PChar(sText),Length(sText),Rect,DT_VCENTER + DT_SINGLELINE + DT_CENTER); -end; - -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel1aDrawItem( - Control: TWinControl; Index: Integer; Rect: TRect; - State: TOwnerDrawState); -var sText : String; -begin - sText := cbIdUnidOrganizacionalNivel1a.Items[index]; - cbIdUnidOrganizacionalNivel1a.Height := 30; - cbIdUnidOrganizacionalNivel1a.Canvas.FillRect(Rect); - DrawText(cbIdUnidOrganizacionalNivel1a.Canvas.Handle,PChar(sText),Length(sText),Rect,DT_VCENTER + DT_SINGLELINE + DT_CENTER); -end; - -procedure TfrmMapaCacic.cbIdUnidOrganizacionalNivel2DrawItem( - Control: TWinControl; Index: Integer; Rect: TRect; - State: TOwnerDrawState); -var sText : String; -begin - sText := cbIdUnidOrganizacionalNivel2.Items[index]; - cbIdUnidOrganizacionalNivel2.Height := 30; - cbIdUnidOrganizacionalNivel2.Canvas.FillRect(Rect); - DrawText(cbIdUnidOrganizacionalNivel2.Canvas.Handle,PChar(sText),Length(sText),Rect,DT_VCENTER + DT_SINGLELINE + DT_CENTER); -end; - -procedure TfrmMapaCacic.timerMessageBoxShowOrHideTimer(Sender: TObject); -begin - if (strShowOrHide = 'Show') then - if (strFrmAtual = 'Acesso') then - frmAcesso.pnMessageBox.Height := frmAcesso.pnMessageBox.Height + 1 - else - frmMapaCacic.pnMessageBox.Height := frmMapaCacic.pnMessageBox.Height + 1; - else - if (strFrmAtual = 'Acesso') then - frmAcesso.pnMessageBox.Height := frmAcesso.pnMessageBox.Height - 1 - else - frmMapaCacic.pnMessageBox.Height := frmMapaCacic.pnMessageBox.Height - 1; - - if (strFrmAtual = 'Acesso' and frmAcesso.pnMessageBox.Height = 0) or - (strFrmAtual = 'Acesso' and frmAcesso.pnMessageBox.Height = 45) or - (strFrmAtual = 'Principal' and frmMapaCacic.pnMessageBox.Height = 0) or - (strFrmAtual = 'Principal' and frmMapaCacic.pnMessageBox.Height = 45) then - Begin - timerMessageBoxShowOrHide.Enabled := false; - if timerMessageShowTime.Interval > 0 then - timerMessageShowTime.Enabled := true; - End; -end; - -end. diff --git a/xml.pas b/xml.pas deleted file mode 100755 index a3bf951..0000000 --- a/xml.pas +++ /dev/null @@ -1,9 +0,0 @@ -unit XML; - - -interface - -Uses LibXmlParser, SysUtils; - - -end. -- libgit2 0.21.2