From 1fd3c042c559525817ee55dd5e44086890a0e210 Mon Sep 17 00:00:00 2001 From: Eric Menezes Noronha Date: Tue, 9 Sep 2014 14:39:18 -0300 Subject: [PATCH] Modificações para execução do mapa ser de total controle do gerente. --- Mapa/Mapa.pas | 13 +++++++------ Mapa/mapacacic.dproj | 2 +- Mapa/mapacacic.res | Bin 4192 -> 0 bytes cacic280.dproj | 2 +- cacic280.res | Bin 4876 -> 0 bytes cacicservice/cacicservice.dproj | 2 +- cacicservice/cacicservice.res | Bin 5296 -> 0 bytes chksis/chksis.dproj | 2 +- chksis/chksis.res | Bin 5088 -> 0 bytes gercols/gercols.dpr | 49 ++++++++++++++++++++++++++++++++++++++++++++++--- gercols/gercols.dproj | 2 +- gercols/gercols.res | Bin 4760 -> 0 bytes installcacic/installcacic.dproj | 2 +- installcacic/installcacic.res | Bin 3308 -> 0 bytes main.pas | 17 +++++++---------- 15 files changed, 66 insertions(+), 25 deletions(-) diff --git a/Mapa/Mapa.pas b/Mapa/Mapa.pas index 8ac427a..d23880d 100644 --- a/Mapa/Mapa.pas +++ b/Mapa/Mapa.pas @@ -311,7 +311,6 @@ Begin if (Result <> '0') then Begin objCACIC.writeDailyLog('getConfigs: Comunicação realizada com sucesso!'); - objCacic.setValueToFile('Configs' ,'modulo_patr' , objCacic.getValueFromTags('modPatrimonio' , Result, '<>'), strGerColsInfFileName); objCacic.setValueToFile('Configs' ,'servidor_autenticacao', objCacic.getValueFromTags('dados_ldap' , Result), strGerColsInfFileName); objCacic.setValueToFile('Configs' ,'Patrimonio_Combos' , objCacic.getValueFromTags('Configs_Patrimonio_Combos' , Result), strGerColsInfFileName); objCacic.setValueToFile('Configs' ,'Patrimonio_Interface' , objCacic.getValueFromTags('Configs_Patrimonio_Interface', Result), strGerColsInfFileName); @@ -421,12 +420,9 @@ if edTeInfoPatrimonio5.text <> '' then btGravarInformacoes.Caption := 'Informações enviadas com sucesso...'; objCacic.setValueToFile('Collects','col_patr_last' , objCacic.enCrypt(strColetaAtual), strGerColsInfFileName); - objCacic.setValueToFile('Configs','col_patr_exe', 's', strGerColsInfFileName); - End; objCacic.writeDebugLog(#13#10 + 'AtualizaPatrimonio: Dados Enviados ao Servidor!'); Application.ProcessMessages; - Finalizar; end else @@ -436,6 +432,7 @@ end; procedure TfrmMapaCacic.MontaInterface; var strConfigsPatrimonioInterface, + termosPatrimonio, strNomeLDAP : String; count : integer; Begin @@ -445,6 +442,7 @@ Begin strConfigsPatrimonioInterface := objCacic.deCrypt(objCacic.getValueFromFile ('Configs','Patrimonio_Interface', strGerColsInfFileName)); + termosPatrimonio := objCacic.getValueFromFile('Configs', 'termos_patrimonio', strGercolsInfFileName); //-------------------------PATRIMONIO DA MAQUINA-------------------------------- { edTePatrimonioPc.Text := SetPatrimonioPc; @@ -566,6 +564,9 @@ Begin edTeInfoPatrimonio10.Visible := true; end; + if termosPatrimonio <> '' then + rdConcordaTermos.Caption := termosPatrimonio; + btGravarInformacoes.Visible := true; btCombosUpdate.Enabled := true; Application.ProcessMessages; @@ -676,8 +677,8 @@ begin if getConfigs <> '0' then begin if (objCACIC.getValueFromFile('Configs', - 'modulo_patr', - strGerColsInfFileName) = 'S') then + 'Patrimonio', + strGerColsInfFileName) = 'true') then begin objCACIC.writeDailyLog('Iniciando formulário.'); mapa; diff --git a/Mapa/mapacacic.dproj b/Mapa/mapacacic.dproj index b3e5ee4..cfa9517 100644 --- a/Mapa/mapacacic.dproj +++ b/Mapa/mapacacic.dproj @@ -24,7 +24,7 @@ Delphi.Personality -FalseTrueFalseTrueFalse28116TrueFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC2.8.1.163.0Licença: GNU/LGPLmapacacic.dprFalse +FalseTrueFalseTrueFalse28117TrueFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC2.8.1.173.0Licença: GNU/LGPLmapacacic.dprFalse diff --git a/Mapa/mapacacic.res b/Mapa/mapacacic.res index 7e72423..bfd0d30 100644 Binary files a/Mapa/mapacacic.res and b/Mapa/mapacacic.res differ diff --git a/cacic280.dproj b/cacic280.dproj index 8e37712..4796ec0 100644 --- a/cacic280.dproj +++ b/cacic280.dproj @@ -40,7 +40,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseTrueFalse28116FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Agente Principal2.8.1.16Baseado na licença GNU/LGPLCacic - Configurador Automático e Coletor de Informações Computacionais3.0cacic280.dpr +FalseTrueFalseTrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Agente Principal2.8.1.17Baseado na licença GNU/LGPLCacic - Configurador Automático e Coletor de Informações Computacionais3.0cacic280.dpr diff --git a/cacic280.res b/cacic280.res index 3ef3216..10740d9 100644 Binary files a/cacic280.res and b/cacic280.res differ diff --git a/cacicservice/cacicservice.dproj b/cacicservice/cacicservice.dproj index 32deec4..742f9ef 100644 --- a/cacicservice/cacicservice.dproj +++ b/cacicservice/cacicservice.dproj @@ -37,7 +37,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseE:\NTService\TrueFalse28116FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Sustentação do Agente Principal2.8.1.163.0Licença: GNU/LGPLcacicservice.dpr +FalseTrueFalseE:\NTService\TrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Sustentação do Agente Principal2.8.1.173.0Licença: GNU/LGPLcacicservice.dpr diff --git a/cacicservice/cacicservice.res b/cacicservice/cacicservice.res index c25ac6e..2db64d3 100755 Binary files a/cacicservice/cacicservice.res and b/cacicservice/cacicservice.res differ diff --git a/chksis/chksis.dproj b/chksis/chksis.dproj index 54abf3a..92d2697 100755 --- a/chksis/chksis.dproj +++ b/chksis/chksis.dproj @@ -29,7 +29,7 @@ Delphi.Personality VCLApplication -C:\Arquivos de programas\Borland\Delphi7\Mitec\D7FalseTrueFalseC:\Arquivos de programas\Borland\Delphi7\Bin\TrueFalse28116FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Verificador de Integridade2.8.1.16ChkSIS3.0Licença: GNU/LGPLchksis.dpr +C:\Arquivos de programas\Borland\Delphi7\Mitec\D7FalseTrueFalseC:\Arquivos de programas\Borland\Delphi7\Bin\TrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Verificador de Integridade2.8.1.17ChkSIS3.0Licença: GNU/LGPLchksis.dpr diff --git a/chksis/chksis.res b/chksis/chksis.res index bae1b9e..a63ec15 100755 Binary files a/chksis/chksis.res and b/chksis/chksis.res differ diff --git a/gercols/gercols.dpr b/gercols/gercols.dpr index 9ec52f6..db97e77 100644 --- a/gercols/gercols.dpr +++ b/gercols/gercols.dpr @@ -343,7 +343,6 @@ Begin ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //Gravação no DatFileName dos valores de REDE, COMPUTADOR e EXECUÇÃO obtidos, para consulta pelos outros módulos... ////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// - objCacic.setValueToFile('Configs' ,'modulo_patr' ,objCacic.getValueFromTags('modPatrimonio' , strRetorno, '<>'), strGerColsInfFileName); objCacic.setValueToFile('Configs' ,'CollectsDefinitions' ,objCacic.getValueFromTags('CollectsDefinitions' , strRetorno, '<>'), strGerColsInfFileName); objCacic.setValueToFile('Configs' ,'TeServUpdates' ,objCacic.getValueFromTags('te_serv_updates' , strRetorno, '<>'), strChkSisInfFileName); objCacic.setValueToFile('Configs' ,'NuPortaServUpdates' ,objCacic.getValueFromTags('nu_porta_serv_updates' , strRetorno, '<>'), strChkSisInfFileName); @@ -378,6 +377,45 @@ Begin End; end; +procedure getMapa(); +var strRetorno: string; +Begin + Try + strAcaoGerCols := 'Preparando teste de comunicação com Módulo Gerente WEB ('+objCacic.getWebManagerAddress+').'; + + objCacic.writeDebugLog('getMapa: Recebendo informações do módulo de patrimônio.'); + + Try + strRetorno := Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/mapa', strFieldsAndValuesToRequest, objCacic.getLocalFolderName, 'Pegando informações do módulo de patrimônio. ('+objCacic.getWebManagerAddress+').'); + + if (strRetorno <> '0') Then + Begin + objCacic.setBoolCipher(not objCacic.isInDebugMode); + if (objCacic.getValueFromTags('Comm_Status', strRetorno,'<>') = 'OK') then + Begin + objCacic.setValueToFile('Configs','Patrimonio', + objCacic.getValueFromTags('Patrimonio', strRetorno, '<>'), + strGerColsInfFileName); + objCacic.setValueToFile('Configs','termos_patrimonio' ,objCacic.getValueFromTags('Mensagem' , strRetorno,'<>'), strGerColsInfFileName); + End; + End; + except + on E : Exception do + Begin + objCacic.writeDebugLog('getTest: Lançando Exceção #2'); + objCacic.writeExceptionLog(E.Message,E.ClassName,'Exceção #2 - Insucesso na comunicação com o Módulo Gerente WEB ('+objCacic.getWebManagerAddress+').'); + objCacic.writeDailyLog('Insucesso na comunicação com o Módulo Gerente WEB ('+objCacic.getWebManagerAddress+').'); + End; + End; + Except + on E : Exception do + Begin + objCacic.writeDebugLog('getMapa: Lançando Exceção #5'); + objCacic.writeExceptionLog(E.Message,E.ClassName,'getMapa: Exceção #5'); + End; + End; +end; + procedure getTest(); var strRetorno: string; Begin @@ -1762,8 +1800,13 @@ begin Finalizar(true); halt(0); end - else - Comm(objCacic.getWebManagerAddress + objCacic.getWebServicesFolderName + 'get/test', strFieldsAndValuesToRequest, objCacic.getLocalFolderName, strAcaoGerCols); + else if FindCmdLineSwitch ('getMapa', True) then + begin + getConfigs(true); + getMapa(); + Finalizar(true); + halt(0); + end; objCacic.setBoolCipher(not objCacic.isInDebugMode); diff --git a/gercols/gercols.dproj b/gercols/gercols.dproj index 74abbe2..accce89 100644 --- a/gercols/gercols.dproj +++ b/gercols/gercols.dproj @@ -38,7 +38,7 @@ Delphi.Personality VCLApplication -C:\vendors_lib\JVCL345CompleteJCL231-Build4197\jcl\lib\d7\debugFalseTrueFalseTrueFalse28116FalseFalseFalseFalseFalse10461252Dataprev-Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo Gerente de Coletas2.8.1.16Ger_COLS3.0Licença: GNU/LGPLgercols.dpr +C:\vendors_lib\JVCL345CompleteJCL231-Build4197\jcl\lib\d7\debugFalseTrueFalseTrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev-Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo Gerente de Coletas2.8.1.17Ger_COLS3.0Licença: GNU/LGPLgercols.dpr diff --git a/gercols/gercols.res b/gercols/gercols.res index 2398358..1482fb5 100644 Binary files a/gercols/gercols.res and b/gercols/gercols.res differ diff --git a/installcacic/installcacic.dproj b/installcacic/installcacic.dproj index b900e01..2c54289 100644 --- a/installcacic/installcacic.dproj +++ b/installcacic/installcacic.dproj @@ -32,7 +32,7 @@ Delphi.Personality VCLApplication -FalseTrueFalseTrueFalse28116FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC2.8.1.163.0Licença: GNU/LGPLinstallcacic.dpr +FalseTrueFalseTrueFalse28117FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev Social - URES/SESSSistema CACIC - Módulo para Verificação e Instalação de Estrutura Básica do Sistema CACIC2.8.1.173.0Licença: GNU/LGPLinstallcacic.dpr diff --git a/installcacic/installcacic.res b/installcacic/installcacic.res index 2c88c4f..f28fd90 100644 Binary files a/installcacic/installcacic.res and b/installcacic/installcacic.res differ diff --git a/main.pas b/main.pas index 7ef1f44..6b2f891 100755 --- a/main.pas +++ b/main.pas @@ -819,9 +819,8 @@ Begin objCACIC.writeDailyLog('Acionando Recuperador de Mapa Cacic.'); objCACIC.writeDebugLog('ChecaMAPACACIC: Acionando Recuperador de M�dulo Gerente de Coletas: '+objCACIC.getWinDir + 'chksis.exe'); - objCACIC.createOneProcess(objCACIC.getWinDir + 'chksis.exe',false,SW_HIDE); + objCACIC.createOneProcess(objCACIC.getWinDir + 'chksis.exe',true,SW_HIDE); - sleep(30000); // 30 segundos de espera para download do gercols.exe objCacic.setBoolCipher(not objCacic.isInDebugMode); strFileSize := objCACIC.getFileSize(objCACIC.getLocalFolderName + '\Modules\mapacacic.exe',true); if not(strFileSize = '0') and not(strFileSize = '-1') then @@ -1124,6 +1123,7 @@ begin objCACIC.writeDebugLog('FormCreate: Op��o /execute recebida...'); objCACIC.writeDailyLog('Op��o para execu��o imediata encontrada...'); end; + Invoca_GerCols('getMapa'); ExecutaCACIC(nil); end; @@ -1299,10 +1299,9 @@ begin timerNuExecApos.Enabled := False; objCACIC.writeDebugLog('Invoca_GerCols: Criando Processo GerCols => "'+objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + '"'); - if ((p_acao = 'getTest') or (p_acao = 'getConfigs')) then //se for getTest, esperar a aplica��o finalizar. - objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,true,SW_HIDE) - else - objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,true,SW_HIDE); + + objCACIC.createOneProcess(objCACIC.getLocalFolderName + 'Modules\gercols.exe /'+p_acao+' /WebServicesFolderName='+objCACIC.getWebServicesFolderName +' /LocalFolderName='+objCACIC.getLocalFolderName + ' /WebManagerAddress=' + objCACIC.getWebManagerAddress + ' /MainProgramName=' + objCACIC.getMainProgramName + ' /MainProgramHash=' + objCACIC.getMainProgramHash,true,SW_HIDE); + g_intStatus := 1; objCacic.setBoolCipher(not objCacic.isInDebugMode); End @@ -1428,11 +1427,9 @@ begin //////////////////////////////////////////////////////////////////////////////// // CRIADO PARA TESTAR A CHAMADA DO MAPA CACIC // //////////////////////////////////////////////////////////////////////////////// - if not FindCmdLineSwitch('atualizacao', True) and - (trim(objCACIC.getValueFromFile('Configs','col_patr_exe', strGerColsInfFileName))<>'s') + if not FindCmdLineSwitch('atualizacao', True) and not (FileExists(objCacic.getLocalFolderName + 'Temp\aguarde_MAPACACIC.txt')) - and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) = 'S') - and bl_primeira_execucao then + and (objCACIC.getValueFromFile('Configs', 'Patrimonio', strGerColsInfFileName) = 'true') then begin objCACIC.writeDebugLog('ExecutaCACIC: Executa chamada ao Mapa Cacic...'); Invoca_MapaCacic; -- libgit2 0.21.2