Download as
Browse Code »

Commit 2de33eed098fcf8feec99655a0fa757dd8f1e350

Authored by Eric Menezes Noronha
1 parent 5432b3ba
Exists in master

Configuração para patrimônio, mudança de versão, atualização do timer de 10 minu… 

…tos para 1 hora, ativado dailylog no mapa, adicionado mapa ao chksis, etc.
Showing 13 changed files with 110 additions and 39 deletions   Show diff stats
MapaTesteProj/MapaCACIC.dpr
  Diff comments   View file @2de33ee
... ... @@ -49,7 +49,7 @@ begin
49 49 Application.Initialize;
50 50 Application.Title := 'Mapa Cacic';
51 51 Application.CreateForm(TfrmMapaCacic, frmMapaCacic);
52   - Application.Run;
  52 + Application.Run;
53 53 end;
54 54 oCacic.Free();
55 55 end.
... ...
MapaTesteProj/MapaCACIC.dproj
  Diff comments   View file @2de33ee
... ... @@ -24,7 +24,7 @@
24 24 <Borland.Personality>Delphi.Personality</Borland.Personality>
25 25 <Borland.ProjectType />
26 26 <BorlandProject>
27   -<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">5</VersionInfo><VersionInfo Name="Debug">True</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">Dataprev - Emp. de TI da Prev Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.5</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 Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">mapacacic.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
  27 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">7</VersionInfo><VersionInfo Name="Debug">True</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">Dataprev - Emp. de TI da Prev Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.7</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 Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">mapacacic.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
28 28 </ProjectExtensions>
29 29 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
30 30 <ItemGroup>
... ...
MapaTesteProj/MapaCACIC.res
View file @2de33ee
No preview for this file type
MapaTesteProj/MapaTeste.dcu
View file @2de33ee
No preview for this file type
MapaTesteProj/MapaTeste.pas
  Diff comments   View file @2de33ee
... ... @@ -143,7 +143,7 @@ type
143 143 strChkSisInfFileName,
144 144 strGerColsInfFileName : String;
145 145  
146   - procedure Finalizar(p_pausa:boolean);
  146 + procedure Finalizar;
147 147  
148 148 end;
149 149  
... ... @@ -161,10 +161,13 @@ Begin
161 161 Application.Terminate;
162 162 End;
163 163  
164   -procedure TfrmMapaCacic.Finalizar(p_pausa:boolean);
  164 +procedure TfrmMapaCacic.Finalizar;
165 165 Begin
166 166 Visible := false;
167 167  
  168 + reset(textFileAguarde);
  169 + objCACIC.deleteFileOrFolder(objCacic.getLocalFolderName +
  170 + '\temp\aguarde_MAPACACIC.txt');
168 171 Application.ProcessMessages;
169 172  
170 173 Sair;
... ... @@ -296,7 +299,7 @@ var
296 299 teste : string;
297 300 Begin
298 301 btCombosUpdate.Enabled := false;
299   -
  302 + objCACIC.writeDailyLog('getConfigs: Invocando getConfigs...');
300 303 Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/config', strFieldsAndValuesToRequest, objCacic.getLocalFolderName);
301 304  
302 305 objCacic.setBoolCipher(not objCacic.isInDebugMode);
... ... @@ -304,6 +307,7 @@ Begin
304 307  
305 308 if (Result <> '0') then
306 309 Begin
  310 + objCACIC.writeDailyLog('getConfigs: Comunicação realizada com sucesso!');
307 311 objCacic.setValueToFile('Configs' ,'modulo_patr' , objCacic.getValueFromTags('modPatrimonio' , Result, '<>'), strGerColsInfFileName);
308 312 objCacic.setValueToFile('Configs' ,'servidor_autenticacao', objCacic.getValueFromTags('dados_ldap' , Result), strGerColsInfFileName);
309 313 objCacic.setValueToFile('Configs' ,'Patrimonio_Combos' , objCacic.getValueFromTags('Configs_Patrimonio_Combos' , Result), strGerColsInfFileName);
... ... @@ -323,6 +327,7 @@ End;
323 327 procedure TfrmMapaCacic.RecuperaValoresAnteriores;
324 328 var strCollectsPatrimonioLast : String;
325 329 begin
  330 + objCACIC.writeDailyLog('RecuperaValoresAnteriores: Início.');
326 331 btCombosUpdate.Enabled := false;
327 332  
328 333 strCollectsPatrimonioLast := objCacic.deCrypt( objCacic.GetValueFromFile
... ... @@ -362,6 +367,7 @@ begin
362 367 End;
363 368 btCombosUpdate.Enabled := true;
364 369 Application.ProcessMessages;
  370 + objCACIC.writeDailyLog('RecuperaValoresAnteriores: Fim.');
365 371 end;
366 372  
367 373 procedure TfrmMapaCacic.AtualizaPatrimonio(Sender: TObject);
... ... @@ -372,6 +378,7 @@ if edTeInfoPatrimonio5.text &lt;&gt; &#39;&#39; then
372 378 begin
373 379 btGravarInformacoes.Enabled := false;
374 380 btGravarInformacoes.Caption := 'Enviando informações...';
  381 + objCACIC.writeDailyLog('Preparando para o envio das informações...');
375 382 strFieldsAndValuesToRequest := 'CollectType=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt('col_patr')) ;
376 383  
377 384 strColetaAtual := StringReplace('[IDPatrimonio]' + edTeInfoPatrimonio1.Text + '[/IDPatrimonio]' +
... ... @@ -396,11 +403,12 @@ if edTeInfoPatrimonio5.text &lt;&gt; &#39;&#39; then
396 403 if (strRetorno = '0') then
397 404 begin
398 405 btGravarInformacoes.caption := 'Problema ao enviar informações...';
399   - MessageDLG(#13#10+'Atenção!'+ #13#10 + 'Problema ao enviar as informações!'
400   - + #13#10 + 'Se o problema persistir contate o adminsitrador.',mtError,[mbOK],0);
  406 + Application.messagebox(Pchar('Atenção!'+ #13#10 + 'Problema ao enviar as informações!'
  407 + + #13#10 + 'Se o problema persistir contate o adminsitrador.'), 'Erro!',MB_ICONERROR + mb_ok);
401 408 end
402 409 else
403 410 Begin
  411 + objCACIC.writeDailyLog('Envio realizado com sucesso.');
404 412 btGravarInformacoes.Caption := 'Informações enviadas com sucesso...';
405 413 objCacic.setValueToFile('Collects','col_patr_last' ,
406 414 objCacic.enCrypt(strColetaAtual), strGerColsInfFileName);
... ... @@ -414,7 +422,7 @@ if edTeInfoPatrimonio5.text &lt;&gt; &#39;&#39; then
414 422 objCacic.writeDebugLog(#13#10 + 'AtualizaPatrimonio: Dados Enviados ao Servidor!');
415 423 Application.ProcessMessages;
416 424  
417   - Finalizar(true);
  425 + Finalizar;
418 426 end
419 427 else
420 428 Application.messagebox(Pchar('Por favor, é necessário digitar seu nome!'), 'Atenção!',MB_ICONEXCLAMATION + mb_ok);
... ... @@ -481,7 +489,6 @@ Begin
481 489 // end;
482 490  
483 491 //-------------------------------NOME USUARIO-----------------------------------
484   - strNomeLDAP := LDAPName;
485 492 strNomeLDAP := getLastValue(LDAPName, 'Attribute:', 'cn'+#$D#$A);
486 493  
487 494  
... ... @@ -552,6 +559,7 @@ Begin
552 559 btGravarInformacoes.Visible := true;
553 560 btCombosUpdate.Enabled := true;
554 561 Application.ProcessMessages;
  562 + objCACIC.writeDailyLog('Interface criada com sucesso.');
555 563 end;
556 564  
557 565 procedure TfrmMapaCacic.FormClose(Sender: TObject; var Action: TCloseAction);
... ... @@ -563,7 +571,7 @@ begin
563 571 Action := caFree;
564 572 formSecondMonitor:=nil;
565 573 objCacic.writeDebugLog('FormClose: ' + Sender.ClassName);
566   - Finalizar(true);
  574 + Finalizar;
567 575 end;
568 576 end;
569 577  
... ... @@ -576,10 +584,10 @@ begin
576 584 Except
577 585 on E:Exception do
578 586 Begin
579   - MessageDlg(#13#13+'Problemas ao gerar formulário.',mtError, [mbOK], 0);
  587 + Application.messagebox(Pchar('Problemas ao gerar formulário.'), 'Erro!',MB_ICONERROR + mb_ok);
580 588 // EstadoBarraTarefa(TRUE);
581 589 objCacic.writeExceptionLog(E.Message,e.ClassName);
582   - Sair;
  590 + Finalizar;
583 591 End;
584 592 End;
585 593 End;
... ... @@ -657,26 +665,30 @@ begin
657 665  
658 666 if getConfigs <> '0' then
659 667 begin
  668 + objCACIC.writeDailyLog('Iniciando formulário.');
660 669 mapa;
661 670 FormSetFocus(foco)
662 671 end
663 672 else
664   - Sair;
665   - end
666   - else
667   - Begin
668   - frmMapaCacic.boolAcessoOK := false;
669   - MessageDLG(#13#10+'Atenção! É necessário reinstalar o CACIC nesta estação.' + #13#10 + #13#10 +
670   - 'A escctrutura encontra-se corrompida.' + #13#10,mtError,[mbOK],0);
671   - Application.ProcessMessages;
672   - frmMapaCacic.Finalizar(false);
673   - End;
  673 + begin
  674 + objCACIC.writeDailyLog('Falha!!!!.');
  675 + Finalizar;
  676 + end;
  677 + end
  678 + else
  679 + Begin
  680 + frmMapaCacic.boolAcessoOK := false;
  681 + MessageDLG(#13#10+'Atenção! É necessário reinstalar o CACIC nesta estação.' + #13#10 + #13#10 +
  682 + 'A escctrutura encontra-se corrompida.' + #13#10,mtError,[mbOK],0);
  683 + Application.ProcessMessages;
  684 + frmMapaCacic.Finalizar;
  685 + End;
674 686 end
675 687 else
676 688 Begin // Se NT/2000/XP/...
677   - MessageDLG(#13#10+'ATENÇÃO! Essa aplicação requer execução com nível administrativo.',mtError,[mbOK],0);
  689 + Application.messagebox(Pchar('ATENÇÃO! Essa aplicação requer execução com nível administrativo.'), 'Erro!',MB_ICONERROR + mb_ok);
678 690 objCacic.writeDailyLog('SEM PRIVILÉGIOS: Necessário ser administrador "local" ou de Domínio!');
679   - Sair
  691 + Finalizar;
680 692 End;
681 693 Finally
682 694 End;
... ... @@ -704,7 +716,7 @@ end;
704 716  
705 717 procedure TfrmMapaCacic.btKonamiCodeClick(Sender: TObject);
706 718 begin
707   - sair;
  719 + finalizar;
708 720 end;
709 721  
710 722 //------------------------------------------------------------------------------
... ... @@ -752,7 +764,7 @@ begin
752 764  
753 765 end;
754 766  
755   -//CODE PRA FECHAR O MAPA SEM PRESSIONAR NADA. (/\ + /\ + V + V + <- + -> + <- + -> + A + B)
  767 +//CODE PRA FECHAR O MAPA SEM PRESSIONAR NADA. (up + up + down + down + <- + -> + <- + -> + B + A)
756 768 procedure TfrmMapaCacic.FormKeyDown(Sender: TObject; var Key: Word;
757 769 Shift: TShiftState);
758 770  
... ... @@ -899,14 +911,18 @@ begin
899 911 begin
900 912 try
901 913 try
  914 + objCACIC.writeDailyLog('Nome Usuário: Estabelecendo conexão.');
902 915 ldap.TargetHost := host;
903 916 ldap.UserName := username;
904 917 ldap.Password := psswd;
905 918 ldap.Timeout := 5000;
906 919 if ldap.Login and ldap.Bind then //Loga no LDAP e autentica no LDAP com Usuário e senha repassado. (BindSasl é mais seguro que Bind)
907 920 begin
  921 + // 41680200020
  922 +
908 923 ldap.Search(base, False, identificador+ '=' + strTeInfoPatrimonio2, retorno); //Faz a pesquisa, com o CPF repassado.
909 924 result := LDAPResultdump(ldap.SearchResult);
  925 + objCACIC.writeDailyLog('Nome Usuário: Conexão estabelecida, pesquisa realizada.');
910 926 ldap.Logout;
911 927 end;
912 928 finally
... ... @@ -919,10 +935,13 @@ begin
919 935 MessageDlg(#13#13+'Problemas para pegar nome do usuário.'+#13#13+
920 936 'Por favor, digite seu nome no campo solicitado',mtError, [mbOK], 0);
921 937 objCacic.writeExceptionLog(E.Message,e.ClassName);
  938 + objCACIC.writeDailyLog('Nome Usuário: Falha ao tentar recuperar o nome.');
922 939 End; //on E:Exception do
923 940 end; // Try
924 941 end; // if (host<>'') or (base<>'') or (retorno.count=0) then
925   - end; //if strDadosLDAP<>'' then
  942 + end //if strDadosLDAP<>'' then
  943 + else
  944 + objCACIC.writeDailyLog('Nome Usuário: Dados do servidor de autenticação inexistentes.');
926 945 end;
927 946  
928 947  
... ...
cacic280.dproj
  Diff comments   View file @2de33ee
... ... @@ -40,7 +40,7 @@
40 40 <Borland.Personality>Delphi.Personality</Borland.Personality>
41 41 <Borland.ProjectType>VCLApplication</Borland.ProjectType>
42 42 <BorlandProject>
43   -<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">6</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">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Agente Principal</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.6</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Baseado na licença GNU/LGPL</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Cacic - Configurador Automático e Coletor de Informações Computacionais</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">cacic280.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  43 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">2</VersionInfo><VersionInfo Name="MinorVer">8</VersionInfo><VersionInfo Name="Release">1</VersionInfo><VersionInfo Name="Build">8</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">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Agente Principal</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.8</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Baseado na licença GNU/LGPL</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">Cacic - Configurador Automático e Coletor de Informações Computacionais</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">cacic280.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
44 44 </ProjectExtensions>
45 45 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
46 46 <ItemGroup>
... ...
cacic280.res
View file @2de33ee
No preview for this file type
chksis/chksis.dpr
  Diff comments   View file @2de33ee
... ... @@ -118,6 +118,7 @@ begin
118 118 objCacic.setValueToFile('Hash-Codes','CACICSERVICE.EXE' , objCacic.getValueFromTags('CACICSERVICE.EXE_HASH' , strCommResponse, '<>'), strChkSisInfFileName);
119 119 objCacic.setValueToFile('Hash-Codes','CHKSIS.EXE' , objCacic.getValueFromTags('CHKSIS.EXE_HASH' , strCommResponse, '<>'), strChkSisInfFileName);
120 120 objCacic.setValueToFile('Hash-Codes','GERCOLS.EXE' , objCacic.getValueFromTags('GERCOLS.EXE_HASH' , strCommResponse, '<>'), strChkSisInfFileName);
  121 + objCacic.setValueToFile('Hash-Codes','MAPACACIC.EXE' , objCacic.getValueFromTags('MAPACACIC.EXE_HASH' , strCommResponse, '<>'), strChkSisInfFileName);
121 122 objCacic.setValueToFile('Hash-Codes',objCacic.getMainProgramName, objCacic.getValueFromTags(objCacic.getMainProgramName + '_HASH', strCommResponse, '<>'), strChkSisInfFileName);
122 123  
123 124 // Crio/Recrio/Atualizo o arquivo de configurações do Agente Principal
... ... @@ -174,6 +175,14 @@ begin
174 175 objCacic,
175 176 strChkSisInfFileName);
176 177  
  178 + // Verificação de versão do Mapa Cacic
  179 + verifyAndGetModules('mapacacic.exe',
  180 + objCacic.deCrypt(objCacic.getValueFromTags('MAPACACIC.EXE_HASH', strCommResponse, '<>'),true,true),
  181 + objCacic.getLocalFolderName + 'Modules',
  182 + objCacic.getLocalFolderName,
  183 + objCacic,
  184 + strChkSisInfFileName);
  185 +
177 186 // 5 segundos para espera de possível FTP em andamento...
178 187 Sleep(5000);
179 188 End;
... ...
chksis/chksis.dproj
  Diff comments   View file @2de33ee
... ... @@ -29,7 +29,7 @@
29 29 <Borland.Personality>Delphi.Personality</Borland.Personality>
30 30 <Borland.ProjectType>VCLApplication</Borland.ProjectType>
31 31 <BorlandProject>
32   -<BorlandProject><Delphi.Personality><Parameters><Parameters Name="DebugSourceDirs">C:\Arquivos de programas\Borland\Delphi7\Mitec\D7</Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</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">1</VersionInfo><VersionInfo Name="Build">5</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">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Verificador de Integridade</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.5</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">ChkSIS</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">chksis.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
  32 +<BorlandProject><Delphi.Personality><Parameters><Parameters Name="DebugSourceDirs">C:\Arquivos de programas\Borland\Delphi7\Mitec\D7</Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Arquivos de programas\Borland\Delphi7\Bin\</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">1</VersionInfo><VersionInfo Name="Build">7</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">Dataprev - Emp. de TI da Prev.Social - URES/SESS</VersionInfoKeys><VersionInfoKeys Name="FileDescription">Sistema CACIC - Módulo Verificador de Integridade</VersionInfoKeys><VersionInfoKeys Name="FileVersion">2.8.1.7</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">ChkSIS</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0</VersionInfoKeys><VersionInfoKeys Name="Comments">Licença: GNU/LGPL</VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">chksis.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
33 33 </ProjectExtensions>
34 34 <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
35 35 <ItemGroup>
... ...
chksis/chksis.res
View file @2de33ee
No preview for this file type
gercols/gercols.dpr
  Diff comments   View file @2de33ee
... ... @@ -348,6 +348,7 @@ Begin
348 348 objCacic.setValueToFile('Hash-Codes','GERCOLS.EXE' ,objCacic.getValueFromTags('GERCOLS.EXE_HASH' , strRetorno, '<>'), strChkSisInfFileName);
349 349 objCacic.setValueToFile('Hash-Codes','SRCACICSRV.EXE' ,objCacic.getValueFromTags('SRCACICSRV.EXE_HASH' , strRetorno, '<>'), strChkSisInfFileName);
350 350 objCacic.setValueToFile('Hash-Codes','CACICSERVICE.EXE' ,objCacic.getValueFromTags('CACICSERVICE.EXE_HASH' , strRetorno, '<>'), strChkSisInfFileName);
  351 + objCacic.setValueToFile('Hash-Codes','MAPACACIC.EXE' ,objCacic.getValueFromTags('MAPACACIC.EXE_HASH' , strRetorno, '<>'), strChkSisInfFileName);
351 352 objCacic.setValueToFile('Configs' ,'InExibeErrosCriticos' ,objCacic.getValueFromTags('in_exibe_erros_criticos' , strRetorno, '<>'), strMainProgramInfFileName);
352 353 objCacic.setValueToFile('Configs' ,'TeSenhaAdmAgente' ,objCacic.getValueFromTags('te_senha_adm_agente' , strRetorno, '<>'), strMainProgramInfFileName);
353 354 objCacic.setValueToFile('Configs' ,'NuIntervaloExec' ,objCacic.getValueFromTags('nu_intervalo_exec' , strRetorno, '<>'), strMainProgramInfFileName);
... ...
main.dfm
  Diff comments   View file @2de33ee
... ... @@ -1771,7 +1771,7 @@ object FormularioGeral: TFormularioGeral
1771 1771 Top = 568
1772 1772 end
1773 1773 object CheckForcaColeta: TTimer
1774   - Interval = 60000
  1774 + Interval = 3600000
1775 1775 OnTimer = CheckForcaColetaTimer
1776 1776 Left = 392
1777 1777 Top = 568
... ...
main.pas
  Diff comments   View file @2de33ee
... ... @@ -194,6 +194,7 @@ type
194 194 procedure Bt_Fechar_InfosGeraisClick(Sender: TObject);
195 195  
196 196 function ChecaGERCOLS : boolean;
  197 + function ChecaMAPACACIC : boolean;
197 198 function FindWindowByTitle(WindowTitle: string): Hwnd;
198 199 function ActualActivity : integer;
199 200 function Posso_Rodar : boolean;
... ... @@ -797,6 +798,44 @@ begin
797 798 end;
798 799  
799 800 // Verifico a existência do Gerente de Coletas, caso não exista, o chksis.exe fará download!
  801 +function TFormularioGeral.ChecaMAPACACIC : boolean;
  802 +var strFileSize : String;
  803 +Begin
  804 + Result := true;
  805 +
  806 + objCACIC.writeDebugLog('ChecaMAPA: Verificando existência e tamanho do Gerente de Coletas...');
  807 +
  808 + strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe',true);
  809 +
  810 + Result := false;
  811 +
  812 + objCACIC.deleteFileOrFolder(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe');
  813 +
  814 + InicializaTray;
  815 +
  816 + objCACIC.writeDailyLog('Acionando Recuperador de Mapa Cacic.');
  817 + objCACIC.writeDebugLog('ChecaMAPACACIC: Acionando Recuperador de Módulo Gerente de Coletas: '+objCACIC.getWinDir + 'chksis.exe');
  818 + objCACIC.createOneProcess(objCACIC.getWinDir + 'chksis.exe',false,SW_HIDE);
  819 +
  820 + sleep(30000); // 30 segundos de espera para download do gercols.exe
  821 + objCacic.setBoolCipher(not objCacic.isInDebugMode);
  822 + strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + '\Modules\mapacacic.exe',true);
  823 + if not(strFileSize = '0') and not(strFileSize = '-1') then
  824 + Begin
  825 + objCACIC.writeDailyLog('Módulo Mapa Cacic RECUPERADO COM SUCESSO!');
  826 + objCACIC.writeDebugLog('ChecaMAPACACIC: Módulo Gerente de Coletas RECUPERADO COM SUCESSO!');
  827 + InicializaTray;
  828 + Result := True;
  829 + End
  830 + else
  831 + Begin
  832 + objCACIC.writeDailyLog('Módulo Mapa Cacic NÃO RECUPERADO!');
  833 + objCACIC.writeDebugLog('ChecaMAPACACIC: Módulo Gerente de Coletas NÃO RECUPERADO!');
  834 + End;
  835 + objCACIC.writeDebugLog('ChecaMAPACACIC: ' + DupeString('=',100));
  836 +End;
  837 +
  838 +// Verifico a existência do Gerente de Coletas, caso não exista, o chksis.exe fará download!
800 839 function TFormularioGeral.ChecaGERCOLS : boolean;
801 840 var strFileSize : String;
802 841 Begin
... ... @@ -1207,7 +1246,7 @@ begin
1207 1246 objCACIC.writeDebugLog('Invoca_GerCols: Invocando Gerente de Coletas com ação: "'+p_acao+'"');
1208 1247  
1209 1248 if boolShowInfo and not (p_acao = 'getTest') then
1210   - objCACIC.writeDailyLog('Invocando Gerente de Coletas com ação: "'+p_acao+'"');
  1249 + objCACIC.writeDebugLog('Invocando Gerente de Coletas com ação: "'+p_acao+'"');
1211 1250  
1212 1251 timerNuExecApos.Enabled := False;
1213 1252 objCACIC.writeDebugLog('Invoca_GerCols: Criando Processo GerCols => "'+objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + '"');
... ... @@ -1239,19 +1278,23 @@ procedure TFormularioGeral.Invoca_MapaCacic;
1239 1278 begin
1240 1279 if ActualActivity = 0 then
1241 1280 Begin
  1281 + if ChecaMAPACACIC then
  1282 + begin
1242 1283 // Caso exista o Mapa Cacic será verificada a versão e excluída caso antiga(Uma forma de ação pró-ativa)
1243 1284 if FileExists(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe') then
1244 1285 Begin
1245 1286 ChecaCONFIGS;
1246 1287  
1247 1288 timerNuExecApos.Enabled := False;
  1289 + objCacic.writeDailyLog('Invoca_MapaCacic: Criando processo mapa.');
1248 1290 objCACIC.writeDebugLog('Invoca_MapaCacic: Criando Processo Mapa => "'+objCACIC.getLocalFolderName + 'Modules\MapaCACIC.exe');
1249   - objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe',true,SW_SHOW);
  1291 + objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe',false,SW_SHOW);
1250 1292 g_intStatus := 1;
1251 1293 objCacic.setBoolCipher(not objCacic.isInDebugMode);
1252 1294 End
1253 1295 else
1254 1296 objCACIC.writeDailyLog('Não foi possível invocar o Mapa Cacic!');
  1297 + End;
1255 1298 End;
1256 1299 end;
1257 1300  
... ... @@ -1320,22 +1363,21 @@ begin
1320 1363 objCACIC.writeDebugLog('ExecutaCACIC: Primeira chamada ao Gerente de Coletas...');
1321 1364 Invoca_GerCols('getConfigs');
1322 1365  
  1366 + sleep(3000); // Pausa para início do Gerente de Coletas e criação do arquivo temp\aguarde_GER.txt
  1367 +
  1368 + Application.ProcessMessages;
  1369 + InicializaTray;
  1370 +
1323 1371 ////////////////////////////////////////////////////////////////////////////////
1324 1372 // CRIADO PARA TESTAR A CHAMADA DO MAPA CACIC //
1325 1373 ////////////////////////////////////////////////////////////////////////////////
1326 1374 if (trim(objCACIC.getValueFromFile('Configs','col_patr_exe', strGerColsInfFileName))<>'s')
1327   - and (ActualActivity<>4)
  1375 + and not (FileExists(objCacic.getLocalFolderName + 'Temp\aguarde_MAPACACIC.txt'))
1328 1376 and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) = 'S') then begin
1329 1377 objCACIC.writeDebugLog('ExecutaCACIC: Executa chamada ao Mapa Cacic...');
1330 1378 Invoca_MapaCacic;
1331 1379 end;
1332 1380  
1333   - sleep(3000); // Pausa para início do Gerente de Coletas e criação do arquivo temp\aguarde_GER.txt
1334   -
1335   -
1336   - Application.ProcessMessages;
1337   - InicializaTray;
1338   -
1339 1381 // Pausas de 15 segundos para o caso de ser(em) baixada(s) nova(s) versão(ões) de GerCols e/ou Cacic280.
1340 1382 // Serão 4 tentativas por minuto
1341 1383 // Serão 30 minutos no máximo de tentativas, totalizando 120
... ...