Commit 2de33eed098fcf8feec99655a0fa757dd8f1e350
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
MapaTesteProj/MapaCACIC.dproj
... | ... | @@ -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
No preview for this file type
MapaTesteProj/MapaTeste.dcu
No preview for this file type
MapaTesteProj/MapaTeste.pas
... | ... | @@ -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 <> '' 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 <> '' 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 <> '' 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
... | ... | @@ -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
No preview for this file type
chksis/chksis.dpr
... | ... | @@ -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
... | ... | @@ -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
No preview for this file type
gercols/gercols.dpr
... | ... | @@ -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
main.pas
... | ... | @@ -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 | ... | ... |