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
| @@ -49,7 +49,7 @@ begin | @@ -49,7 +49,7 @@ begin | ||
| 49 | Application.Initialize; | 49 | Application.Initialize; |
| 50 | Application.Title := 'Mapa Cacic'; | 50 | Application.Title := 'Mapa Cacic'; |
| 51 | Application.CreateForm(TfrmMapaCacic, frmMapaCacic); | 51 | Application.CreateForm(TfrmMapaCacic, frmMapaCacic); |
| 52 | - Application.Run; | 52 | + Application.Run; |
| 53 | end; | 53 | end; |
| 54 | oCacic.Free(); | 54 | oCacic.Free(); |
| 55 | end. | 55 | end. |
MapaTesteProj/MapaCACIC.dproj
| @@ -24,7 +24,7 @@ | @@ -24,7 +24,7 @@ | ||
| 24 | <Borland.Personality>Delphi.Personality</Borland.Personality> | 24 | <Borland.Personality>Delphi.Personality</Borland.Personality> |
| 25 | <Borland.ProjectType /> | 25 | <Borland.ProjectType /> |
| 26 | <BorlandProject> | 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 | </ProjectExtensions> | 28 | </ProjectExtensions> |
| 29 | <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> | 29 | <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> |
| 30 | <ItemGroup> | 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,7 +143,7 @@ type | ||
| 143 | strChkSisInfFileName, | 143 | strChkSisInfFileName, |
| 144 | strGerColsInfFileName : String; | 144 | strGerColsInfFileName : String; |
| 145 | 145 | ||
| 146 | - procedure Finalizar(p_pausa:boolean); | 146 | + procedure Finalizar; |
| 147 | 147 | ||
| 148 | end; | 148 | end; |
| 149 | 149 | ||
| @@ -161,10 +161,13 @@ Begin | @@ -161,10 +161,13 @@ Begin | ||
| 161 | Application.Terminate; | 161 | Application.Terminate; |
| 162 | End; | 162 | End; |
| 163 | 163 | ||
| 164 | -procedure TfrmMapaCacic.Finalizar(p_pausa:boolean); | 164 | +procedure TfrmMapaCacic.Finalizar; |
| 165 | Begin | 165 | Begin |
| 166 | Visible := false; | 166 | Visible := false; |
| 167 | 167 | ||
| 168 | + reset(textFileAguarde); | ||
| 169 | + objCACIC.deleteFileOrFolder(objCacic.getLocalFolderName + | ||
| 170 | + '\temp\aguarde_MAPACACIC.txt'); | ||
| 168 | Application.ProcessMessages; | 171 | Application.ProcessMessages; |
| 169 | 172 | ||
| 170 | Sair; | 173 | Sair; |
| @@ -296,7 +299,7 @@ var | @@ -296,7 +299,7 @@ var | ||
| 296 | teste : string; | 299 | teste : string; |
| 297 | Begin | 300 | Begin |
| 298 | btCombosUpdate.Enabled := false; | 301 | btCombosUpdate.Enabled := false; |
| 299 | - | 302 | + objCACIC.writeDailyLog('getConfigs: Invocando getConfigs...'); |
| 300 | Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/config', strFieldsAndValuesToRequest, objCacic.getLocalFolderName); | 303 | Result := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/config', strFieldsAndValuesToRequest, objCacic.getLocalFolderName); |
| 301 | 304 | ||
| 302 | objCacic.setBoolCipher(not objCacic.isInDebugMode); | 305 | objCacic.setBoolCipher(not objCacic.isInDebugMode); |
| @@ -304,6 +307,7 @@ Begin | @@ -304,6 +307,7 @@ Begin | ||
| 304 | 307 | ||
| 305 | if (Result <> '0') then | 308 | if (Result <> '0') then |
| 306 | Begin | 309 | Begin |
| 310 | + objCACIC.writeDailyLog('getConfigs: Comunicação realizada com sucesso!'); | ||
| 307 | objCacic.setValueToFile('Configs' ,'modulo_patr' , objCacic.getValueFromTags('modPatrimonio' , Result, '<>'), strGerColsInfFileName); | 311 | objCacic.setValueToFile('Configs' ,'modulo_patr' , objCacic.getValueFromTags('modPatrimonio' , Result, '<>'), strGerColsInfFileName); |
| 308 | objCacic.setValueToFile('Configs' ,'servidor_autenticacao', objCacic.getValueFromTags('dados_ldap' , Result), strGerColsInfFileName); | 312 | objCacic.setValueToFile('Configs' ,'servidor_autenticacao', objCacic.getValueFromTags('dados_ldap' , Result), strGerColsInfFileName); |
| 309 | objCacic.setValueToFile('Configs' ,'Patrimonio_Combos' , objCacic.getValueFromTags('Configs_Patrimonio_Combos' , Result), strGerColsInfFileName); | 313 | objCacic.setValueToFile('Configs' ,'Patrimonio_Combos' , objCacic.getValueFromTags('Configs_Patrimonio_Combos' , Result), strGerColsInfFileName); |
| @@ -323,6 +327,7 @@ End; | @@ -323,6 +327,7 @@ End; | ||
| 323 | procedure TfrmMapaCacic.RecuperaValoresAnteriores; | 327 | procedure TfrmMapaCacic.RecuperaValoresAnteriores; |
| 324 | var strCollectsPatrimonioLast : String; | 328 | var strCollectsPatrimonioLast : String; |
| 325 | begin | 329 | begin |
| 330 | + objCACIC.writeDailyLog('RecuperaValoresAnteriores: Início.'); | ||
| 326 | btCombosUpdate.Enabled := false; | 331 | btCombosUpdate.Enabled := false; |
| 327 | 332 | ||
| 328 | strCollectsPatrimonioLast := objCacic.deCrypt( objCacic.GetValueFromFile | 333 | strCollectsPatrimonioLast := objCacic.deCrypt( objCacic.GetValueFromFile |
| @@ -362,6 +367,7 @@ begin | @@ -362,6 +367,7 @@ begin | ||
| 362 | End; | 367 | End; |
| 363 | btCombosUpdate.Enabled := true; | 368 | btCombosUpdate.Enabled := true; |
| 364 | Application.ProcessMessages; | 369 | Application.ProcessMessages; |
| 370 | + objCACIC.writeDailyLog('RecuperaValoresAnteriores: Fim.'); | ||
| 365 | end; | 371 | end; |
| 366 | 372 | ||
| 367 | procedure TfrmMapaCacic.AtualizaPatrimonio(Sender: TObject); | 373 | procedure TfrmMapaCacic.AtualizaPatrimonio(Sender: TObject); |
| @@ -372,6 +378,7 @@ if edTeInfoPatrimonio5.text <> '' then | @@ -372,6 +378,7 @@ if edTeInfoPatrimonio5.text <> '' then | ||
| 372 | begin | 378 | begin |
| 373 | btGravarInformacoes.Enabled := false; | 379 | btGravarInformacoes.Enabled := false; |
| 374 | btGravarInformacoes.Caption := 'Enviando informações...'; | 380 | btGravarInformacoes.Caption := 'Enviando informações...'; |
| 381 | + objCACIC.writeDailyLog('Preparando para o envio das informações...'); | ||
| 375 | strFieldsAndValuesToRequest := 'CollectType=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt('col_patr')) ; | 382 | strFieldsAndValuesToRequest := 'CollectType=' + objCacic.replaceInvalidHTTPChars(objCacic.enCrypt('col_patr')) ; |
| 376 | 383 | ||
| 377 | strColetaAtual := StringReplace('[IDPatrimonio]' + edTeInfoPatrimonio1.Text + '[/IDPatrimonio]' + | 384 | strColetaAtual := StringReplace('[IDPatrimonio]' + edTeInfoPatrimonio1.Text + '[/IDPatrimonio]' + |
| @@ -396,11 +403,12 @@ if edTeInfoPatrimonio5.text <> '' then | @@ -396,11 +403,12 @@ if edTeInfoPatrimonio5.text <> '' then | ||
| 396 | if (strRetorno = '0') then | 403 | if (strRetorno = '0') then |
| 397 | begin | 404 | begin |
| 398 | btGravarInformacoes.caption := 'Problema ao enviar informações...'; | 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 | end | 408 | end |
| 402 | else | 409 | else |
| 403 | Begin | 410 | Begin |
| 411 | + objCACIC.writeDailyLog('Envio realizado com sucesso.'); | ||
| 404 | btGravarInformacoes.Caption := 'Informações enviadas com sucesso...'; | 412 | btGravarInformacoes.Caption := 'Informações enviadas com sucesso...'; |
| 405 | objCacic.setValueToFile('Collects','col_patr_last' , | 413 | objCacic.setValueToFile('Collects','col_patr_last' , |
| 406 | objCacic.enCrypt(strColetaAtual), strGerColsInfFileName); | 414 | objCacic.enCrypt(strColetaAtual), strGerColsInfFileName); |
| @@ -414,7 +422,7 @@ if edTeInfoPatrimonio5.text <> '' then | @@ -414,7 +422,7 @@ if edTeInfoPatrimonio5.text <> '' then | ||
| 414 | objCacic.writeDebugLog(#13#10 + 'AtualizaPatrimonio: Dados Enviados ao Servidor!'); | 422 | objCacic.writeDebugLog(#13#10 + 'AtualizaPatrimonio: Dados Enviados ao Servidor!'); |
| 415 | Application.ProcessMessages; | 423 | Application.ProcessMessages; |
| 416 | 424 | ||
| 417 | - Finalizar(true); | 425 | + Finalizar; |
| 418 | end | 426 | end |
| 419 | else | 427 | else |
| 420 | Application.messagebox(Pchar('Por favor, é necessário digitar seu nome!'), 'Atenção!',MB_ICONEXCLAMATION + mb_ok); | 428 | Application.messagebox(Pchar('Por favor, é necessário digitar seu nome!'), 'Atenção!',MB_ICONEXCLAMATION + mb_ok); |
| @@ -481,7 +489,6 @@ Begin | @@ -481,7 +489,6 @@ Begin | ||
| 481 | // end; | 489 | // end; |
| 482 | 490 | ||
| 483 | //-------------------------------NOME USUARIO----------------------------------- | 491 | //-------------------------------NOME USUARIO----------------------------------- |
| 484 | - strNomeLDAP := LDAPName; | ||
| 485 | strNomeLDAP := getLastValue(LDAPName, 'Attribute:', 'cn'+#$D#$A); | 492 | strNomeLDAP := getLastValue(LDAPName, 'Attribute:', 'cn'+#$D#$A); |
| 486 | 493 | ||
| 487 | 494 | ||
| @@ -552,6 +559,7 @@ Begin | @@ -552,6 +559,7 @@ Begin | ||
| 552 | btGravarInformacoes.Visible := true; | 559 | btGravarInformacoes.Visible := true; |
| 553 | btCombosUpdate.Enabled := true; | 560 | btCombosUpdate.Enabled := true; |
| 554 | Application.ProcessMessages; | 561 | Application.ProcessMessages; |
| 562 | + objCACIC.writeDailyLog('Interface criada com sucesso.'); | ||
| 555 | end; | 563 | end; |
| 556 | 564 | ||
| 557 | procedure TfrmMapaCacic.FormClose(Sender: TObject; var Action: TCloseAction); | 565 | procedure TfrmMapaCacic.FormClose(Sender: TObject; var Action: TCloseAction); |
| @@ -563,7 +571,7 @@ begin | @@ -563,7 +571,7 @@ begin | ||
| 563 | Action := caFree; | 571 | Action := caFree; |
| 564 | formSecondMonitor:=nil; | 572 | formSecondMonitor:=nil; |
| 565 | objCacic.writeDebugLog('FormClose: ' + Sender.ClassName); | 573 | objCacic.writeDebugLog('FormClose: ' + Sender.ClassName); |
| 566 | - Finalizar(true); | 574 | + Finalizar; |
| 567 | end; | 575 | end; |
| 568 | end; | 576 | end; |
| 569 | 577 | ||
| @@ -576,10 +584,10 @@ begin | @@ -576,10 +584,10 @@ begin | ||
| 576 | Except | 584 | Except |
| 577 | on E:Exception do | 585 | on E:Exception do |
| 578 | Begin | 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 | // EstadoBarraTarefa(TRUE); | 588 | // EstadoBarraTarefa(TRUE); |
| 581 | objCacic.writeExceptionLog(E.Message,e.ClassName); | 589 | objCacic.writeExceptionLog(E.Message,e.ClassName); |
| 582 | - Sair; | 590 | + Finalizar; |
| 583 | End; | 591 | End; |
| 584 | End; | 592 | End; |
| 585 | End; | 593 | End; |
| @@ -657,26 +665,30 @@ begin | @@ -657,26 +665,30 @@ begin | ||
| 657 | 665 | ||
| 658 | if getConfigs <> '0' then | 666 | if getConfigs <> '0' then |
| 659 | begin | 667 | begin |
| 668 | + objCACIC.writeDailyLog('Iniciando formulário.'); | ||
| 660 | mapa; | 669 | mapa; |
| 661 | FormSetFocus(foco) | 670 | FormSetFocus(foco) |
| 662 | end | 671 | end |
| 663 | else | 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 | end | 686 | end |
| 675 | else | 687 | else |
| 676 | Begin // Se NT/2000/XP/... | 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 | objCacic.writeDailyLog('SEM PRIVILÉGIOS: Necessário ser administrador "local" ou de Domínio!'); | 690 | objCacic.writeDailyLog('SEM PRIVILÉGIOS: Necessário ser administrador "local" ou de Domínio!'); |
| 679 | - Sair | 691 | + Finalizar; |
| 680 | End; | 692 | End; |
| 681 | Finally | 693 | Finally |
| 682 | End; | 694 | End; |
| @@ -704,7 +716,7 @@ end; | @@ -704,7 +716,7 @@ end; | ||
| 704 | 716 | ||
| 705 | procedure TfrmMapaCacic.btKonamiCodeClick(Sender: TObject); | 717 | procedure TfrmMapaCacic.btKonamiCodeClick(Sender: TObject); |
| 706 | begin | 718 | begin |
| 707 | - sair; | 719 | + finalizar; |
| 708 | end; | 720 | end; |
| 709 | 721 | ||
| 710 | //------------------------------------------------------------------------------ | 722 | //------------------------------------------------------------------------------ |
| @@ -752,7 +764,7 @@ begin | @@ -752,7 +764,7 @@ begin | ||
| 752 | 764 | ||
| 753 | end; | 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 | procedure TfrmMapaCacic.FormKeyDown(Sender: TObject; var Key: Word; | 768 | procedure TfrmMapaCacic.FormKeyDown(Sender: TObject; var Key: Word; |
| 757 | Shift: TShiftState); | 769 | Shift: TShiftState); |
| 758 | 770 | ||
| @@ -899,14 +911,18 @@ begin | @@ -899,14 +911,18 @@ begin | ||
| 899 | begin | 911 | begin |
| 900 | try | 912 | try |
| 901 | try | 913 | try |
| 914 | + objCACIC.writeDailyLog('Nome Usuário: Estabelecendo conexão.'); | ||
| 902 | ldap.TargetHost := host; | 915 | ldap.TargetHost := host; |
| 903 | ldap.UserName := username; | 916 | ldap.UserName := username; |
| 904 | ldap.Password := psswd; | 917 | ldap.Password := psswd; |
| 905 | ldap.Timeout := 5000; | 918 | ldap.Timeout := 5000; |
| 906 | 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) | 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 | begin | 920 | begin |
| 921 | + // 41680200020 | ||
| 922 | + | ||
| 908 | ldap.Search(base, False, identificador+ '=' + strTeInfoPatrimonio2, retorno); //Faz a pesquisa, com o CPF repassado. | 923 | ldap.Search(base, False, identificador+ '=' + strTeInfoPatrimonio2, retorno); //Faz a pesquisa, com o CPF repassado. |
| 909 | result := LDAPResultdump(ldap.SearchResult); | 924 | result := LDAPResultdump(ldap.SearchResult); |
| 925 | + objCACIC.writeDailyLog('Nome Usuário: Conexão estabelecida, pesquisa realizada.'); | ||
| 910 | ldap.Logout; | 926 | ldap.Logout; |
| 911 | end; | 927 | end; |
| 912 | finally | 928 | finally |
| @@ -919,10 +935,13 @@ begin | @@ -919,10 +935,13 @@ begin | ||
| 919 | MessageDlg(#13#13+'Problemas para pegar nome do usuário.'+#13#13+ | 935 | MessageDlg(#13#13+'Problemas para pegar nome do usuário.'+#13#13+ |
| 920 | 'Por favor, digite seu nome no campo solicitado',mtError, [mbOK], 0); | 936 | 'Por favor, digite seu nome no campo solicitado',mtError, [mbOK], 0); |
| 921 | objCacic.writeExceptionLog(E.Message,e.ClassName); | 937 | objCacic.writeExceptionLog(E.Message,e.ClassName); |
| 938 | + objCACIC.writeDailyLog('Nome Usuário: Falha ao tentar recuperar o nome.'); | ||
| 922 | End; //on E:Exception do | 939 | End; //on E:Exception do |
| 923 | end; // Try | 940 | end; // Try |
| 924 | end; // if (host<>'') or (base<>'') or (retorno.count=0) then | 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 | end; | 945 | end; |
| 927 | 946 | ||
| 928 | 947 |
cacic280.dproj
| @@ -40,7 +40,7 @@ | @@ -40,7 +40,7 @@ | ||
| 40 | <Borland.Personality>Delphi.Personality</Borland.Personality> | 40 | <Borland.Personality>Delphi.Personality</Borland.Personality> |
| 41 | <Borland.ProjectType>VCLApplication</Borland.ProjectType> | 41 | <Borland.ProjectType>VCLApplication</Borland.ProjectType> |
| 42 | <BorlandProject> | 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 | </ProjectExtensions> | 44 | </ProjectExtensions> |
| 45 | <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> | 45 | <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> |
| 46 | <ItemGroup> | 46 | <ItemGroup> |
cacic280.res
No preview for this file type
chksis/chksis.dpr
| @@ -118,6 +118,7 @@ begin | @@ -118,6 +118,7 @@ begin | ||
| 118 | objCacic.setValueToFile('Hash-Codes','CACICSERVICE.EXE' , objCacic.getValueFromTags('CACICSERVICE.EXE_HASH' , strCommResponse, '<>'), strChkSisInfFileName); | 118 | objCacic.setValueToFile('Hash-Codes','CACICSERVICE.EXE' , objCacic.getValueFromTags('CACICSERVICE.EXE_HASH' , strCommResponse, '<>'), strChkSisInfFileName); |
| 119 | objCacic.setValueToFile('Hash-Codes','CHKSIS.EXE' , objCacic.getValueFromTags('CHKSIS.EXE_HASH' , strCommResponse, '<>'), strChkSisInfFileName); | 119 | objCacic.setValueToFile('Hash-Codes','CHKSIS.EXE' , objCacic.getValueFromTags('CHKSIS.EXE_HASH' , strCommResponse, '<>'), strChkSisInfFileName); |
| 120 | objCacic.setValueToFile('Hash-Codes','GERCOLS.EXE' , objCacic.getValueFromTags('GERCOLS.EXE_HASH' , strCommResponse, '<>'), strChkSisInfFileName); | 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 | objCacic.setValueToFile('Hash-Codes',objCacic.getMainProgramName, objCacic.getValueFromTags(objCacic.getMainProgramName + '_HASH', strCommResponse, '<>'), strChkSisInfFileName); | 122 | objCacic.setValueToFile('Hash-Codes',objCacic.getMainProgramName, objCacic.getValueFromTags(objCacic.getMainProgramName + '_HASH', strCommResponse, '<>'), strChkSisInfFileName); |
| 122 | 123 | ||
| 123 | // Crio/Recrio/Atualizo o arquivo de configurações do Agente Principal | 124 | // Crio/Recrio/Atualizo o arquivo de configurações do Agente Principal |
| @@ -174,6 +175,14 @@ begin | @@ -174,6 +175,14 @@ begin | ||
| 174 | objCacic, | 175 | objCacic, |
| 175 | strChkSisInfFileName); | 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 | // 5 segundos para espera de possível FTP em andamento... | 186 | // 5 segundos para espera de possível FTP em andamento... |
| 178 | Sleep(5000); | 187 | Sleep(5000); |
| 179 | End; | 188 | End; |
chksis/chksis.dproj
| @@ -29,7 +29,7 @@ | @@ -29,7 +29,7 @@ | ||
| 29 | <Borland.Personality>Delphi.Personality</Borland.Personality> | 29 | <Borland.Personality>Delphi.Personality</Borland.Personality> |
| 30 | <Borland.ProjectType>VCLApplication</Borland.ProjectType> | 30 | <Borland.ProjectType>VCLApplication</Borland.ProjectType> |
| 31 | <BorlandProject> | 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 | </ProjectExtensions> | 33 | </ProjectExtensions> |
| 34 | <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> | 34 | <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" /> |
| 35 | <ItemGroup> | 35 | <ItemGroup> |
chksis/chksis.res
No preview for this file type
gercols/gercols.dpr
| @@ -348,6 +348,7 @@ Begin | @@ -348,6 +348,7 @@ Begin | ||
| 348 | objCacic.setValueToFile('Hash-Codes','GERCOLS.EXE' ,objCacic.getValueFromTags('GERCOLS.EXE_HASH' , strRetorno, '<>'), strChkSisInfFileName); | 348 | objCacic.setValueToFile('Hash-Codes','GERCOLS.EXE' ,objCacic.getValueFromTags('GERCOLS.EXE_HASH' , strRetorno, '<>'), strChkSisInfFileName); |
| 349 | objCacic.setValueToFile('Hash-Codes','SRCACICSRV.EXE' ,objCacic.getValueFromTags('SRCACICSRV.EXE_HASH' , strRetorno, '<>'), strChkSisInfFileName); | 349 | objCacic.setValueToFile('Hash-Codes','SRCACICSRV.EXE' ,objCacic.getValueFromTags('SRCACICSRV.EXE_HASH' , strRetorno, '<>'), strChkSisInfFileName); |
| 350 | objCacic.setValueToFile('Hash-Codes','CACICSERVICE.EXE' ,objCacic.getValueFromTags('CACICSERVICE.EXE_HASH' , strRetorno, '<>'), strChkSisInfFileName); | 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 | objCacic.setValueToFile('Configs' ,'InExibeErrosCriticos' ,objCacic.getValueFromTags('in_exibe_erros_criticos' , strRetorno, '<>'), strMainProgramInfFileName); | 352 | objCacic.setValueToFile('Configs' ,'InExibeErrosCriticos' ,objCacic.getValueFromTags('in_exibe_erros_criticos' , strRetorno, '<>'), strMainProgramInfFileName); |
| 352 | objCacic.setValueToFile('Configs' ,'TeSenhaAdmAgente' ,objCacic.getValueFromTags('te_senha_adm_agente' , strRetorno, '<>'), strMainProgramInfFileName); | 353 | objCacic.setValueToFile('Configs' ,'TeSenhaAdmAgente' ,objCacic.getValueFromTags('te_senha_adm_agente' , strRetorno, '<>'), strMainProgramInfFileName); |
| 353 | objCacic.setValueToFile('Configs' ,'NuIntervaloExec' ,objCacic.getValueFromTags('nu_intervalo_exec' , strRetorno, '<>'), strMainProgramInfFileName); | 354 | objCacic.setValueToFile('Configs' ,'NuIntervaloExec' ,objCacic.getValueFromTags('nu_intervalo_exec' , strRetorno, '<>'), strMainProgramInfFileName); |
main.dfm
| @@ -1771,7 +1771,7 @@ object FormularioGeral: TFormularioGeral | @@ -1771,7 +1771,7 @@ object FormularioGeral: TFormularioGeral | ||
| 1771 | Top = 568 | 1771 | Top = 568 |
| 1772 | end | 1772 | end |
| 1773 | object CheckForcaColeta: TTimer | 1773 | object CheckForcaColeta: TTimer |
| 1774 | - Interval = 60000 | 1774 | + Interval = 3600000 |
| 1775 | OnTimer = CheckForcaColetaTimer | 1775 | OnTimer = CheckForcaColetaTimer |
| 1776 | Left = 392 | 1776 | Left = 392 |
| 1777 | Top = 568 | 1777 | Top = 568 |
main.pas
| @@ -194,6 +194,7 @@ type | @@ -194,6 +194,7 @@ type | ||
| 194 | procedure Bt_Fechar_InfosGeraisClick(Sender: TObject); | 194 | procedure Bt_Fechar_InfosGeraisClick(Sender: TObject); |
| 195 | 195 | ||
| 196 | function ChecaGERCOLS : boolean; | 196 | function ChecaGERCOLS : boolean; |
| 197 | + function ChecaMAPACACIC : boolean; | ||
| 197 | function FindWindowByTitle(WindowTitle: string): Hwnd; | 198 | function FindWindowByTitle(WindowTitle: string): Hwnd; |
| 198 | function ActualActivity : integer; | 199 | function ActualActivity : integer; |
| 199 | function Posso_Rodar : boolean; | 200 | function Posso_Rodar : boolean; |
| @@ -797,6 +798,44 @@ begin | @@ -797,6 +798,44 @@ begin | ||
| 797 | end; | 798 | end; |
| 798 | 799 | ||
| 799 | // Verifico a existência do Gerente de Coletas, caso não exista, o chksis.exe fará download! | 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 | function TFormularioGeral.ChecaGERCOLS : boolean; | 839 | function TFormularioGeral.ChecaGERCOLS : boolean; |
| 801 | var strFileSize : String; | 840 | var strFileSize : String; |
| 802 | Begin | 841 | Begin |
| @@ -1207,7 +1246,7 @@ begin | @@ -1207,7 +1246,7 @@ begin | ||
| 1207 | objCACIC.writeDebugLog('Invoca_GerCols: Invocando Gerente de Coletas com ação: "'+p_acao+'"'); | 1246 | objCACIC.writeDebugLog('Invoca_GerCols: Invocando Gerente de Coletas com ação: "'+p_acao+'"'); |
| 1208 | 1247 | ||
| 1209 | if boolShowInfo and not (p_acao = 'getTest') then | 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 | timerNuExecApos.Enabled := False; | 1251 | timerNuExecApos.Enabled := False; |
| 1213 | objCACIC.writeDebugLog('Invoca_GerCols: Criando Processo GerCols => "'+objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + '"'); | 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,19 +1278,23 @@ procedure TFormularioGeral.Invoca_MapaCacic; | ||
| 1239 | begin | 1278 | begin |
| 1240 | if ActualActivity = 0 then | 1279 | if ActualActivity = 0 then |
| 1241 | Begin | 1280 | Begin |
| 1281 | + if ChecaMAPACACIC then | ||
| 1282 | + begin | ||
| 1242 | // Caso exista o Mapa Cacic será verificada a versão e excluída caso antiga(Uma forma de ação pró-ativa) | 1283 | // Caso exista o Mapa Cacic será verificada a versão e excluída caso antiga(Uma forma de ação pró-ativa) |
| 1243 | if FileExists(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe') then | 1284 | if FileExists(objCACIC.getLocalFolderName + 'Modules\mapacacic.exe') then |
| 1244 | Begin | 1285 | Begin |
| 1245 | ChecaCONFIGS; | 1286 | ChecaCONFIGS; |
| 1246 | 1287 | ||
| 1247 | timerNuExecApos.Enabled := False; | 1288 | timerNuExecApos.Enabled := False; |
| 1289 | + objCacic.writeDailyLog('Invoca_MapaCacic: Criando processo mapa.'); | ||
| 1248 | objCACIC.writeDebugLog('Invoca_MapaCacic: Criando Processo Mapa => "'+objCACIC.getLocalFolderName + 'Modules\MapaCACIC.exe'); | 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 | g_intStatus := 1; | 1292 | g_intStatus := 1; |
| 1251 | objCacic.setBoolCipher(not objCacic.isInDebugMode); | 1293 | objCacic.setBoolCipher(not objCacic.isInDebugMode); |
| 1252 | End | 1294 | End |
| 1253 | else | 1295 | else |
| 1254 | objCACIC.writeDailyLog('Não foi possível invocar o Mapa Cacic!'); | 1296 | objCACIC.writeDailyLog('Não foi possível invocar o Mapa Cacic!'); |
| 1297 | + End; | ||
| 1255 | End; | 1298 | End; |
| 1256 | end; | 1299 | end; |
| 1257 | 1300 | ||
| @@ -1320,22 +1363,21 @@ begin | @@ -1320,22 +1363,21 @@ begin | ||
| 1320 | objCACIC.writeDebugLog('ExecutaCACIC: Primeira chamada ao Gerente de Coletas...'); | 1363 | objCACIC.writeDebugLog('ExecutaCACIC: Primeira chamada ao Gerente de Coletas...'); |
| 1321 | Invoca_GerCols('getConfigs'); | 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 | // CRIADO PARA TESTAR A CHAMADA DO MAPA CACIC // | 1372 | // CRIADO PARA TESTAR A CHAMADA DO MAPA CACIC // |
| 1325 | //////////////////////////////////////////////////////////////////////////////// | 1373 | //////////////////////////////////////////////////////////////////////////////// |
| 1326 | if (trim(objCACIC.getValueFromFile('Configs','col_patr_exe', strGerColsInfFileName))<>'s') | 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 | and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) = 'S') then begin | 1376 | and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) = 'S') then begin |
| 1329 | objCACIC.writeDebugLog('ExecutaCACIC: Executa chamada ao Mapa Cacic...'); | 1377 | objCACIC.writeDebugLog('ExecutaCACIC: Executa chamada ao Mapa Cacic...'); |
| 1330 | Invoca_MapaCacic; | 1378 | Invoca_MapaCacic; |
| 1331 | end; | 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 | // Pausas de 15 segundos para o caso de ser(em) baixada(s) nova(s) versão(ões) de GerCols e/ou Cacic280. | 1381 | // Pausas de 15 segundos para o caso de ser(em) baixada(s) nova(s) versão(ões) de GerCols e/ou Cacic280. |
| 1340 | // Serão 4 tentativas por minuto | 1382 | // Serão 4 tentativas por minuto |
| 1341 | // Serão 30 minutos no máximo de tentativas, totalizando 120 | 1383 | // Serão 30 minutos no máximo de tentativas, totalizando 120 |