Download as
Browse Code »

Commit 58dcc587e49a698422ff87dc9de4b40d54181067

Authored by anderson.peterle@previdencia.gov.br
1 parent c52c6d6f
Exists in master

Ajuste na funcao de Decriptografia para aplicacao de TRIM no retorno; Ajuste no … 

…menu de contexto, que habilitara a opcao de Suporte Remoto apenas se o modulo estiver disponivel. Correcoes no MapaCACIC. Melhorias no ChkCACIC. Faxina de codigo.

git-svn-id: http://svn.softwarepublico.gov.br/svn/cacic/cacic/trunk/agente-windows@778 fecfc0c7-e812-0410-ae72-849f08638ee7
Showing 10 changed files with 182 additions and 182 deletions   Show diff stats
CACIC_Library.pas
  Diff comments   View file @58dcc58
... ... @@ -845,7 +845,7 @@ begin
845 845 FillChar(l_Key[1],Length(l_Key),0);
846 846  
847 847 // Return the result (unCrypted)
848   - Result := l_Data
  848 + Result := trim(l_Data);
849 849 End
850 850 Else
851 851 // Return the original value
... ...
cacic2.res
View file @58dcc58
No preview for this file type
chkcacic/chkcacic.res
View file @58dcc58
No preview for this file type
chkcacic/main.pas
  Diff comments   View file @58dcc58
... ... @@ -1624,6 +1624,7 @@ begin
1624 1624 LogDebug('Abrindo Arquivo de Configurações do ChkSis');
1625 1625 CipherOpen(g_oCacic.getWinDir + 'chksis.dat');
1626 1626 SetValorDatMemoria('Cacic2.ip_serv_cacic', v_ip_serv_cacic);
  1627 + SetValorDatMemoria('Cacic2.cacic_dir' , g_oCacic.getCacicPath);
1627 1628 CipherClose(g_oCacic.getWinDir + 'chksis.dat');
1628 1629  
1629 1630 // Volto a gravar o chksis.ini para o difícil caso de leitura por versões antigas
... ...
ger_cols/ger_cols.dpr
  Diff comments   View file @58dcc58
... ... @@ -3268,7 +3268,6 @@ begin
3268 3268 if ParamCount > 0 then
3269 3269 Begin
3270 3270 strAux := '';
3271   - v_Debugs := true;
3272 3271  
3273 3272 For intAux := 1 to ParamCount do
3274 3273 Begin
... ... @@ -3286,7 +3285,7 @@ begin
3286 3285 Try
3287 3286 v_Debugs := false;
3288 3287 if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
3289   - if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
  3288 + if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
3290 3289 Begin
3291 3290 v_Debugs := true;
3292 3291 log_DEBUG('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
... ...
ger_cols/ger_cols.res
View file @58dcc58
No preview for this file type
main.pas
  Diff comments   View file @58dcc58
... ... @@ -969,7 +969,9 @@ procedure TFormularioGeral.HabilitaSuporteRemoto;
969 969 Begin
970 970 // Desabilita/Habilita a opção de Suporte Remoto
971 971 Mnu_SuporteRemoto.Enabled := False;
972   - if (getValorDatMemoria('Configs.CS_SUPORTE_REMOTO',v_tstrCipherOpened) = 'S') then Mnu_SuporteRemoto.Enabled := True;
  972 + if (getValorDatMemoria('Configs.CS_SUPORTE_REMOTO',v_tstrCipherOpened) = 'S') and
  973 + (FileExists(g_oCacic.getCacicPath + 'modulos\srcacicsrv.exe')) then
  974 + Mnu_SuporteRemoto.Enabled := True;
973 975 End;
974 976  
975 977  
... ... @@ -2245,7 +2247,7 @@ begin
2245 2247 else
2246 2248 Begin
2247 2249 Mnu_SuporteRemoto.Caption := 'Ativar Suporte Remoto';
2248   - Mnu_SuporteRemoto.Enabled := true;
  2250 + HabilitaSuporteRemoto;
2249 2251 End;
2250 2252  
2251 2253 end;
... ...
mapa/acesso.pas
  Diff comments   View file @58dcc58
... ... @@ -155,18 +155,9 @@ procedure TfrmAcesso.FormCreate(Sender: TObject);
155 155 begin
156 156 intPausaPadrao := 3000; //(3 mil milisegundos = 3 segundos)
157 157 frmAcesso.lbVersao.Caption := 'Versão: ' + frmMapaCacic.GetVersionInfo(ParamStr(0));
158   - frmMapaCacic.tStringsCipherOpened := frmMapaCacic.CipherOpen(frmMapaCacic.g_oCacic.getDatFileName);
  158 +// frmMapaCacic.tStringsCipherOpened := frmMapaCacic.CipherOpen(frmMapaCacic.g_oCacic.getCacicPath + frmMapaCacic.g_oCacic.getDatFileName);
159 159 frmMapaCacic.lbNomeServidorWEB.Caption := 'Servidor: '+frmMapaCacic.GetValorDatMemoria('Configs.EnderecoServidor', frmMapaCacic.tStringsCipherOpened);
160 160 frmMapaCacic.lbMensagens.Caption := 'Entrada de Dados para Autenticação no Módulo Gerente WEB Cacic';
161   - if (frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS' , frmMapaCacic.tStringsCipherOpened)='') then
162   - Begin
163   - frmMapaCacic.boolAcessoOK := false;
164   - MessageDLG(#13#10+'Atenção! É necessário executar as coletas do Sistema Cacic.' + #13#10 + #13#10 +
165   - 'Caso o Sistema Cacic já esteja instalado, clique com botão direito' + #13#10 +
166   - 'sobre o ícone da bandeja, escolha a opção "Executar Agora" e aguarde' + #13#10 +
167   - 'o fim do processo.',mtError,[mbOK],0);
168   - frmMapaCacic.Finalizar(false);
169   - End;
170 161 end;
171 162  
172 163 procedure TfrmAcesso.edNomeUsuarioAcessoKeyUp(Sender: TObject;
... ...
mapa/main_mapa.pas
  Diff comments   View file @58dcc58
... ... @@ -224,6 +224,7 @@ end;
224 224  
225 225 procedure TfrmMapaCacic.Mensagem(p_strMsg : String; p_boolAlerta : boolean; p_intPausaSegundos : integer);
226 226 Begin
  227 + log_DEBUG(p_strMsg);
227 228 if p_boolAlerta then
228 229 lbMensagens.Font.Color := clRed
229 230 else
... ... @@ -408,7 +409,7 @@ procedure TfrmMapaCacic.Finalizar(p_pausa:boolean);
408 409 Begin
409 410 Mensagem('Finalizando MapaCacic...',false,0);
410 411  
411   - CipherClose(g_oCacic.getDatFileName, tStringsCipherOpened);
  412 + CipherClose(g_oCacic.getCacicPath + g_oCacic.getDatFileName, tStringsCipherOpened);
412 413 Apaga_Temps;
413 414 if p_pausa then sleep(2000); // Pausa de 2 segundos para conclusão de operações de arquivos.
414 415 Sair;
... ... @@ -644,9 +645,9 @@ begin
644 645 Append(txtFileDatFile);
645 646  
646 647 strCipherOpenImploded := g_oCacic.implode(p_tstrCipherOpened,'=CacicIsFree=');
647   - log_DEBUG('Rotina de Fechamento do cacic2.dat ATIVANDO criptografia.');
  648 + log_DEBUG('Rotina de Fechamento do arquivo DAT ATIVANDO criptografia.');
648 649 strCipherClosed := g_oCacic.enCrypt(strCipherOpenImploded);
649   - log_DEBUG('Rotina de Fechamento do cacic2.dat RESTAURANDO estado da criptografia.');
  650 + log_DEBUG('Rotina de Fechamento do arquivo DAT RESTAURANDO estado da criptografia.');
650 651  
651 652 Writeln(txtFileDatFile,strCipherClosed); {Grava a string Texto no arquivo texto}
652 653  
... ... @@ -708,12 +709,11 @@ begin
708 709 end;
709 710 Function TfrmMapaCacic.GetValorDatMemoria(p_Chave : String; p_tstrCipherOpened : TStrings) : String;
710 711 begin
711   -
  712 + log_DEBUG('Resgatando Chave: "'+p_Chave+ '" => "'+Result+'"');
712 713 if (p_tstrCipherOpened.IndexOf(p_Chave)<>-1) then
713 714 Result := trim(p_tstrCipherOpened[p_tstrCipherOpened.IndexOf(p_Chave)+1])
714 715 else
715 716 Result := '';
716   - log_DEBUG('Resgatando Chave: "'+p_Chave+ '" => "'+Result+'"');
717 717 end;
718 718  
719 719 function TfrmMapaCacic.SetValorChaveRegEdit(Chave: String; Dado: Variant): Variant;
... ... @@ -911,6 +911,7 @@ begin
911 911 Parser.StartScan;
912 912 strTagName := '';
913 913 strAux1 := '';
  914 +
914 915 i := -1;
915 916 While Parser.Scan DO
916 917 Begin
... ... @@ -958,6 +959,7 @@ begin
958 959 Parser.StartScan;
959 960 strTagName := '';
960 961 i := -1;
  962 +
961 963 While Parser.Scan DO
962 964 Begin
963 965 strItemName := UpperCase(Parser.CurName);
... ... @@ -996,6 +998,7 @@ begin
996 998 End;
997 999 end;
998 1000 Parser.Free;
  1001 +
999 1002 // Como os itens do combo1 nunca mudam durante a execução do programa (ao contrario dos combo2 e 3), posso colocar o seu preenchimento aqui mesmo.
1000 1003 cb_id_unid_organizacional_nivel1.Items.Clear;
1001 1004 For i := 0 to Length(VetorUON1) - 1 Do
... ... @@ -1085,6 +1088,7 @@ begin
1085 1088 intAux := cb_id_unid_organizacional_nivel1a.ItemIndex;
1086 1089 Log_debug('cb_id_unid_organizacional_nivel1a.ItemIndex = '+intToStr(cb_id_unid_organizacional_nivel1a.ItemIndex));
1087 1090  
  1091 + Log_debug('VetorUON1aFiltrado['+intToStr(cb_id_unid_organizacional_nivel1a.ItemIndex)+'] => '+VetorUON1aFiltrado[cb_id_unid_organizacional_nivel1a.ItemIndex]);
1088 1092 tstrAux := TStrings.Create;
1089 1093 tstrAux := g_oCacic.explode(VetorUON1aFiltrado[cb_id_unid_organizacional_nivel1a.ItemIndex],'#');
1090 1094  
... ... @@ -1140,82 +1144,76 @@ begin
1140 1144 'Para o envio das informações, é necessário finalizar o Agente Principal do CACIC.',mtError,[mbOK],0)
1141 1145 else
1142 1146 Begin
1143   - tstrAux := TStrings.Create;
1144   - tstrAux := g_oCacic.explode(VetorUON2Filtrado[cb_id_unid_organizacional_nivel2.ItemIndex],'#');
1145   - Try
1146   - strIdUON1 := VetorUON1[cb_id_unid_organizacional_nivel1.ItemIndex].id1;
1147   - strIdUON2 := tstrAux[0];
1148   - strIdLocal := tstrAux[1];
1149   - Except
1150   - end;
1151   -
1152   - tstrAux := g_oCacic.explode(VetorUON1aFiltrado[cb_id_unid_organizacional_nivel1a.ItemIndex],'#');
1153   - Try
1154   - strIdUON1a := tstrAux[0];
1155   - Except
1156   - end;
1157   -
1158   - tstrAux.Free;
1159   -
1160   - Mensagem('Enviando Informações Coletadas ao Banco de Dados...',false,intPausaPadrao div 3);
1161   -
1162   - // Envio dos Dados Coletados ao Banco de Dados
1163   - tstrListAux := TStringList.Create;
1164   - tstrListAux.Values['te_node_address'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS' , frmMapaCacic.tStringsCipherOpened));
1165   - tstrListAux.Values['id_so'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('Configs.ID_SO' , frmMapaCacic.tStringsCipherOpened));
1166   - tstrListAux.Values['te_so'] := g_oCacic.enCrypt(g_oCacic.getWindowsStrId());
1167   - tstrListAux.Values['id_ip_rede'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.ID_IP_REDE' , frmMapaCacic.tStringsCipherOpened));
1168   - tstrListAux.Values['te_ip'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_IP' , frmMapaCacic.tStringsCipherOpened));
1169   - tstrListAux.Values['te_nome_computador'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NOME_COMPUTADOR' , frmMapaCacic.tStringsCipherOpened));
1170   - tstrListAux.Values['te_workgroup'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_WORKGROUP' , frmMapaCacic.tStringsCipherOpened));
1171   - tstrListAux.Values['id_usuario'] := g_oCacic.enCrypt(frmMapaCacic.strId_usuario);
1172   -
1173   - tstrListAux.Values['id_unid_organizacional_nivel1'] := g_oCacic.enCrypt(strIdUON1);
1174   - tstrListAux.Values['id_unid_organizacional_nivel1a']:= g_oCacic.enCrypt(strIdUON1A);
1175   - tstrListAux.Values['id_unid_organizacional_nivel2'] := g_oCacic.enCrypt(strIdUON2);
1176   - tstrListAux.Values['te_localizacao_complementar' ] := g_oCacic.enCrypt(ed_te_localizacao_complementar.Text);
1177   - tstrListAux.Values['te_info_patrimonio1' ] := g_oCacic.enCrypt(ed_te_info_patrimonio1.Text);
1178   - tstrListAux.Values['te_info_patrimonio2' ] := g_oCacic.enCrypt(ed_te_info_patrimonio2.Text);
1179   - tstrListAux.Values['te_info_patrimonio3' ] := g_oCacic.enCrypt(ed_te_info_patrimonio3.Text);
1180   - tstrListAux.Values['te_info_patrimonio4' ] := g_oCacic.enCrypt(ed_te_info_patrimonio4.Text);
1181   - tstrListAux.Values['te_info_patrimonio5' ] := g_oCacic.enCrypt(ed_te_info_patrimonio5.Text);
1182   - tstrListAux.Values['te_info_patrimonio6' ] := g_oCacic.enCrypt(ed_te_info_patrimonio6.Text);
1183   -
1184   - log_DEBUG('Informações para contato com mapa_set_patrimonio:');
1185   - log_DEBUG('te_node_address: '+tstrListAux.Values['te_node_address']);
1186   - log_DEBUG('id_so: '+tstrListAux.Values['id_so']);
1187   - log_DEBUG('te_so: '+tstrListAux.Values['te_so']);
1188   - log_DEBUG('id_ip_rede: '+tstrListAux.Values['id_ip_rede']);
1189   - log_DEBUG('te_ip: '+tstrListAux.Values['te_ip']);
1190   - log_DEBUG('te_nome_computador: '+tstrListAux.Values['te_nome_computador']);
1191   - log_DEBUG('te_workgroup: '+tstrListAux.Values['te_workgroup']);
1192   -
1193   - strRetorno := frmMapaCacic.ComunicaServidor('mapa_set_patrimonio.php', tstrListAux, '');
1194   - tstrListAux.Free;
1195   -
1196   - if not (frmMapaCacic.XML_RetornaValor('STATUS', strRetorno)='OK') then
1197   - Mensagem('ATENÇÃO: PROBLEMAS NO ENVIO DAS INFORMAÇÕES COLETADAS AO BANCO DE DADOS...',true,intPausaPadrao);
1198   - // else
1199   - // Begin
1200   - Mensagem('Salvando Informações Coletadas em Base Local...',false,intPausaPadrao div 3);
1201   - SetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel1', strIdUON1, tStringsCipherOpened);
1202   - SetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel1a', strIdUON1a, tStringsCipherOpened);
1203   - SetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel2' , strIdUON2, tStringsCipherOpened);
1204   - SetValorDatMemoria('Patrimonio.id_local' , strIdLocal, tStringsCipherOpened);
1205   - SetValorDatMemoria('Patrimonio.te_localizacao_complementar' , ed_te_localizacao_complementar.Text, tStringsCipherOpened);
1206   - SetValorDatMemoria('Patrimonio.te_info_patrimonio1' , ed_te_info_patrimonio1.Text, tStringsCipherOpened);
1207   - SetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1', ed_te_info_patrimonio1.Text);
1208   - SetValorDatMemoria('Patrimonio.te_info_patrimonio2' , ed_te_info_patrimonio2.Text, tStringsCipherOpened);
1209   - SetValorDatMemoria('Patrimonio.te_info_patrimonio3' , ed_te_info_patrimonio3.Text, tStringsCipherOpened);
1210   - SetValorDatMemoria('Patrimonio.te_info_patrimonio4' , ed_te_info_patrimonio4.Text, tStringsCipherOpened);
1211   - SetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4', ed_te_info_patrimonio4.Text);
1212   - SetValorDatMemoria('Patrimonio.te_info_patrimonio5' , ed_te_info_patrimonio5.Text, tStringsCipherOpened);
1213   - SetValorDatMemoria('Patrimonio.te_info_patrimonio6' , ed_te_info_patrimonio6.Text, tStringsCipherOpened);
1214   - SetValorDatMemoria('Patrimonio.ultima_rede_obtida' , GetValorDatMemoria('TcpIp.ID_IP_REDE',frmMapaCacic.tStringsCipherOpened),tStringsCipherOpened);
1215   - // End;
1216   - // end
1217   - // else
1218   - // Mensagem('NÃO HÁ COLETA ATENÇÃO: PROBLEMAS NO ENVIO DAS INFORMAÇÕES COLETADAS AO BANCO DE DADOS...',true);
  1147 + tstrAux := TStrings.Create;
  1148 + tstrAux := g_oCacic.explode(VetorUON2Filtrado[cb_id_unid_organizacional_nivel2.ItemIndex],'#');
  1149 + Try
  1150 + strIdUON1 := VetorUON1[cb_id_unid_organizacional_nivel1.ItemIndex].id1;
  1151 + strIdUON2 := tstrAux[0];
  1152 + strIdLocal := tstrAux[1];
  1153 + Except
  1154 + end;
  1155 +
  1156 + tstrAux := g_oCacic.explode(VetorUON1aFiltrado[cb_id_unid_organizacional_nivel1a.ItemIndex],'#');
  1157 + Try
  1158 + strIdUON1a := tstrAux[0];
  1159 + Except
  1160 + end;
  1161 +
  1162 + tstrAux.Free;
  1163 + Mensagem('Enviando Informações Coletadas ao Banco de Dados...',false,intPausaPadrao div 3);
  1164 + // Envio dos Dados Coletados ao Banco de Dados
  1165 + tstrListAux := TStringList.Create;
  1166 + tstrListAux.Values['te_node_address'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS' , frmMapaCacic.tStringsCipherOpened));
  1167 + tstrListAux.Values['id_so'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('Configs.ID_SO' , frmMapaCacic.tStringsCipherOpened));
  1168 + tstrListAux.Values['te_so'] := g_oCacic.enCrypt(g_oCacic.getWindowsStrId());
  1169 + tstrListAux.Values['id_ip_rede'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.ID_IP_REDE' , frmMapaCacic.tStringsCipherOpened));
  1170 + tstrListAux.Values['te_ip'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_IP' , frmMapaCacic.tStringsCipherOpened));
  1171 + tstrListAux.Values['te_nome_computador'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NOME_COMPUTADOR' , frmMapaCacic.tStringsCipherOpened));
  1172 + tstrListAux.Values['te_workgroup'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_WORKGROUP' , frmMapaCacic.tStringsCipherOpened));
  1173 + tstrListAux.Values['id_usuario'] := g_oCacic.enCrypt(frmMapaCacic.strId_usuario);
  1174 + tstrListAux.Values['id_unid_organizacional_nivel1'] := g_oCacic.enCrypt(strIdUON1);
  1175 + tstrListAux.Values['id_unid_organizacional_nivel1a']:= g_oCacic.enCrypt(strIdUON1A);
  1176 + tstrListAux.Values['id_unid_organizacional_nivel2'] := g_oCacic.enCrypt(strIdUON2);
  1177 + tstrListAux.Values['te_localizacao_complementar' ] := g_oCacic.enCrypt(ed_te_localizacao_complementar.Text);
  1178 + tstrListAux.Values['te_info_patrimonio1' ] := g_oCacic.enCrypt(ed_te_info_patrimonio1.Text);
  1179 + tstrListAux.Values['te_info_patrimonio2' ] := g_oCacic.enCrypt(ed_te_info_patrimonio2.Text);
  1180 + tstrListAux.Values['te_info_patrimonio3' ] := g_oCacic.enCrypt(ed_te_info_patrimonio3.Text);
  1181 + tstrListAux.Values['te_info_patrimonio4' ] := g_oCacic.enCrypt(ed_te_info_patrimonio4.Text);
  1182 + tstrListAux.Values['te_info_patrimonio5' ] := g_oCacic.enCrypt(ed_te_info_patrimonio5.Text);
  1183 + tstrListAux.Values['te_info_patrimonio6' ] := g_oCacic.enCrypt(ed_te_info_patrimonio6.Text);
  1184 +
  1185 + log_DEBUG('Informações para contato com mapa_set_patrimonio:');
  1186 + log_DEBUG('te_node_address: '+tstrListAux.Values['te_node_address']);
  1187 + log_DEBUG('id_so: '+tstrListAux.Values['id_so']);
  1188 + log_DEBUG('te_so: '+tstrListAux.Values['te_so']);
  1189 + log_DEBUG('id_ip_rede: '+tstrListAux.Values['id_ip_rede']);
  1190 + log_DEBUG('te_ip: '+tstrListAux.Values['te_ip']);
  1191 + log_DEBUG('te_nome_computador: '+tstrListAux.Values['te_nome_computador']);
  1192 + log_DEBUG('te_workgroup: '+tstrListAux.Values['te_workgroup']);
  1193 +
  1194 + strRetorno := frmMapaCacic.ComunicaServidor('mapa_set_patrimonio.php', tstrListAux, '');
  1195 + tstrListAux.Free;
  1196 +
  1197 + if not (frmMapaCacic.XML_RetornaValor('STATUS', strRetorno)='OK') then
  1198 + Mensagem('ATENÇÃO: PROBLEMAS NO ENVIO DAS INFORMAÇÕES COLETADAS AO BANCO DE DADOS...',true,intPausaPadrao)
  1199 + else
  1200 + Begin
  1201 + Mensagem('Salvando Informações Coletadas em Base Local...',false,intPausaPadrao div 3);
  1202 + SetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel1', strIdUON1, tStringsCipherOpened);
  1203 + SetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel1a', strIdUON1a, tStringsCipherOpened);
  1204 + SetValorDatMemoria('Patrimonio.id_unid_organizacional_nivel2' , strIdUON2, tStringsCipherOpened);
  1205 + SetValorDatMemoria('Patrimonio.id_local' , strIdLocal, tStringsCipherOpened);
  1206 + SetValorDatMemoria('Patrimonio.te_localizacao_complementar' , ed_te_localizacao_complementar.Text, tStringsCipherOpened);
  1207 + SetValorDatMemoria('Patrimonio.te_info_patrimonio1' , ed_te_info_patrimonio1.Text, tStringsCipherOpened);
  1208 + SetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio1', ed_te_info_patrimonio1.Text);
  1209 + SetValorDatMemoria('Patrimonio.te_info_patrimonio2' , ed_te_info_patrimonio2.Text, tStringsCipherOpened);
  1210 + SetValorDatMemoria('Patrimonio.te_info_patrimonio3' , ed_te_info_patrimonio3.Text, tStringsCipherOpened);
  1211 + SetValorDatMemoria('Patrimonio.te_info_patrimonio4' , ed_te_info_patrimonio4.Text, tStringsCipherOpened);
  1212 + SetValorChaveRegEdit('HKEY_LOCAL_MACHINE\SOFTWARE\Dataprev\Patrimonio\te_info_patrimonio4', ed_te_info_patrimonio4.Text);
  1213 + SetValorDatMemoria('Patrimonio.te_info_patrimonio5' , ed_te_info_patrimonio5.Text, tStringsCipherOpened);
  1214 + SetValorDatMemoria('Patrimonio.te_info_patrimonio6' , ed_te_info_patrimonio6.Text, tStringsCipherOpened);
  1215 + SetValorDatMemoria('Patrimonio.ultima_rede_obtida' , GetValorDatMemoria('TcpIp.ID_IP_REDE',frmMapaCacic.tStringsCipherOpened),tStringsCipherOpened);
  1216 + End;
1219 1217 Finalizar(true);
1220 1218 End;
1221 1219 end;
... ... @@ -1244,7 +1242,8 @@ Begin
1244 1242 ed_te_localizacao_complementar.Text := strTe_localizacao_complementar;
1245 1243 ed_te_localizacao_complementar.Visible := true;
1246 1244  
1247   - if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta4', p_strConfigs)) = 'S') then
  1245 + log_DEBUG('in_exibir_etiqueta4 -> "'+g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta4', p_strConfigs))+'"');
  1246 + if (trim(g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta4', p_strConfigs))) = 'S') then
1248 1247 begin
1249 1248 lbEtiqueta4.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta4', p_strConfigs));
1250 1249 lbEtiqueta4.Visible := true;
... ... @@ -1253,7 +1252,8 @@ Begin
1253 1252 ed_te_info_patrimonio1.visible := True;
1254 1253 end;
1255 1254  
1256   - if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta5', p_strConfigs)) = 'S') then
  1255 + log_DEBUG('in_exibir_etiqueta5 -> "'+g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta5', p_strConfigs))+'"');
  1256 + if (trim(g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta5', p_strConfigs))) = 'S') then
1257 1257 begin
1258 1258 lbEtiqueta5.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta5', p_strConfigs));
1259 1259 lbEtiqueta5.Visible := true;
... ... @@ -1262,7 +1262,8 @@ Begin
1262 1262 ed_te_info_patrimonio2.visible := True;
1263 1263 end;
1264 1264  
1265   - if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta6', p_strConfigs)) = 'S') then
  1265 + log_DEBUG('in_exibir_etiqueta6 -> "'+g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta6', p_strConfigs))+'"');
  1266 + if (trim(g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta6', p_strConfigs))) = 'S') then
1266 1267 begin
1267 1268 lbEtiqueta6.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta6', p_strConfigs));
1268 1269 lbEtiqueta6.Visible := true;
... ... @@ -1271,7 +1272,8 @@ Begin
1271 1272 ed_te_info_patrimonio3.visible := True;
1272 1273 end;
1273 1274  
1274   - if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta7', p_strConfigs)) = 'S') then
  1275 + log_DEBUG('in_exibir_etiqueta7 -> "'+g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta7', p_strConfigs))+'"');
  1276 + if (trim(g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta7', p_strConfigs))) = 'S') then
1275 1277 begin
1276 1278 lbEtiqueta7.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta7', p_strConfigs));
1277 1279 lbEtiqueta7.Visible := true;
... ... @@ -1280,7 +1282,8 @@ Begin
1280 1282 ed_te_info_patrimonio4.visible := True;
1281 1283 end;
1282 1284  
1283   - if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta8', p_strConfigs)) = 'S') then
  1285 + log_DEBUG('in_exibir_etiqueta8 -> "'+g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta8', p_strConfigs))+'"');
  1286 + if (trim(g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta8', p_strConfigs))) = 'S') then
1284 1287 begin
1285 1288 lbEtiqueta8.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta8', p_strConfigs));
1286 1289 lbEtiqueta8.Visible := true;
... ... @@ -1289,14 +1292,17 @@ Begin
1289 1292 ed_te_info_patrimonio5.visible := True;
1290 1293 end;
1291 1294  
1292   - if (g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta9', p_strConfigs)) = 'S') then
1293   - begin
1294   - lbEtiqueta9.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta9', p_strConfigs));
1295   - lbEtiqueta9.Visible := true;
1296   - ed_te_info_patrimonio6.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta9', p_strConfigs));
1297   - ed_te_info_patrimonio6.Text := strTe_info_patrimonio6;
1298   - ed_te_info_patrimonio6.visible := True;
1299   - end;
  1295 + log_DEBUG('in_exibir_etiqueta9 -> "'+g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta9', p_strConfigs))+'"');
  1296 + if (trim(g_oCacic.deCrypt(XML.XML_RetornaValor('in_exibir_etiqueta9', p_strConfigs))) = 'S') then
  1297 + begin
  1298 + lbEtiqueta9.Caption := g_oCacic.deCrypt(XML.XML_RetornaValor('te_etiqueta9', p_strConfigs));
  1299 + lbEtiqueta9.Visible := true;
  1300 + ed_te_info_patrimonio6.Hint := g_oCacic.deCrypt(XML.XML_RetornaValor('te_help_etiqueta9', p_strConfigs));
  1301 + ed_te_info_patrimonio6.Text := strTe_info_patrimonio6;
  1302 + ed_te_info_patrimonio6.visible := True;
  1303 + end;
  1304 +
  1305 + Application.ProcessMessages;
1300 1306 Mensagem('',false,0);
1301 1307 btGravarInformacoes.Visible := true;
1302 1308 end;
... ... @@ -1471,6 +1477,7 @@ begin
1471 1477 g_oCacic.setBoolCipher(true);
1472 1478 frmMapaCacic.lbVersao.Caption := 'Versão: ' + frmMapaCacic.GetVersionInfo(ParamStr(0));
1473 1479 log_DEBUG('Versão do MapaCacic: '+frmMapaCacic.lbVersao.Caption);
  1480 +
1474 1481 if (g_oCacic.isWindowsNTPlataform()) and (not g_oCacic.isWindowsAdmin()) then
1475 1482 Begin
1476 1483 MessageDLG(#13#10+'ATENÇÃO! Essa aplicação requer execução com nível administrativo.',mtError,[mbOK],0);
... ... @@ -1478,98 +1485,98 @@ begin
1478 1485 End
1479 1486 else
1480 1487 Begin
1481   - // Varrer unidades C:\, D:\ e E:\ ... em busca da estrutura Cacic\cacic2.dat
1482   - strLetrasDrives := LetrasDrives;
  1488 + frmMapaCacic.tStringsCipherOpened := TStrings.Create;
1483 1489  
1484   - v_strCacicPath := '';
1485   - for intAux := 1 to length(strLetrasDrives) do
1486   - Begin
1487   - lbMensagens.Caption := 'Procurando Estrutura do Sistema CACIC em "'+strLetrasDrives[intAux] + ':\"';
1488   -
1489   - Log_Debug('Testando "'+strLetrasDrives[intAux] + ':\Cacic\cacic2.dat'+'"');
1490   - if (v_strCacicPath='') and (SearchFile(strLetrasDrives[intAux] + ':','\Cacic\cacic2.dat')) then
1491   - Begin
1492   - v_strCacicPath := strLetrasDrives[intAux] + ':\Cacic\';
1493   - lbMensagens.Caption := 'Estrutura Encontrada!';
1494   - Log_Debug('Validado "'+strLetrasDrives[intAux] + ':\Cacic\cacic2.dat'+'"');
1495   - End
1496   - else
1497   - Log_Debug('Não Validado em "'+strLetrasDrives[intAux] + ':\Cacic\cacic2.dat'+'"');
1498   - application.ProcessMessages;
1499   - End;
  1490 + // Buscarei o caminho do Sistema em \WinDIR\chkSIS.DAT
  1491 + frmMapaCacic.tStringsCipherOpened := CipherOpen(g_oCacic.getWinDir + 'chksis.dat');
  1492 + v_strCacicPath := GetValorDatMemoria('cacic2.cacic_dir',frmMapaCacic.tStringsCipherOpened);
1500 1493  
1501 1494 if not (v_strCacicPath = '') then
1502 1495 Begin
1503 1496 g_oCacic.setCacicPath(v_strCacicPath);
1504   - Matar(g_oCacic.getCacicPath,'aguarde_CACIC.txt');
1505   -
1506   - if FileExists(g_oCacic.getCacicPath + 'aguarde_CACIC.txt') then
  1497 + frmMapaCacic.tStringsCipherOpened := frmMapaCacic.CipherOpen(frmMapaCacic.g_oCacic.getCacicPath + frmMapaCacic.g_oCacic.getDatFileName);
  1498 + frmMapaCacic.lbNomeServidorWEB.Caption := 'Servidor: '+frmMapaCacic.GetValorDatMemoria('Configs.EnderecoServidor', frmMapaCacic.tStringsCipherOpened);
  1499 + frmMapaCacic.lbMensagens.Caption := 'Entrada de Dados para Autenticação no Módulo Gerente WEB Cacic';
  1500 + if (frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS' , frmMapaCacic.tStringsCipherOpened)='') then
1507 1501 Begin
1508   - MessageDLG(#13#10+'ATENÇÃO! É necessário finalizar o Agente Principal do CACIC.',mtError,[mbOK],0);
1509   - Sair;
1510   - End;
1511   -
1512   - boolDebugs := false;
1513   - if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
  1502 + frmMapaCacic.boolAcessoOK := false;
  1503 + MessageDLG(#13#10+'Atenção! É necessário executar as coletas do Sistema Cacic.' + #13#10 + #13#10 +
  1504 + 'Caso o Sistema Cacic já esteja instalado, clique com botão direito' + #13#10 +
  1505 + 'sobre o ícone da bandeja, escolha a opção "Executar Agora" e aguarde' + #13#10 +
  1506 + 'o fim do processo.',mtError,[mbOK],0);
  1507 + frmMapaCacic.Finalizar(false);
  1508 + End
  1509 + else
1514 1510 Begin
1515   - if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
  1511 + Matar(g_oCacic.getCacicPath,'aguarde_CACIC.txt');
  1512 +
  1513 + if FileExists(g_oCacic.getCacicPath + 'aguarde_CACIC.txt') then
1516 1514 Begin
1517   - boolDebugs := true;
1518   - log_DEBUG('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
  1515 + MessageDLG(#13#10+'ATENÇÃO! É necessário finalizar o Agente Principal do CACIC.',mtError,[mbOK],0);
  1516 + Sair;
1519 1517 End;
1520   - End;
1521 1518  
1522   - // Acessar...
1523   - CriaFormSenha(nil);
1524   - frmAcesso.ShowModal;
1525   -
1526   - if not (boolAcessoOK) then
1527   - Finalizar(true)
1528   - else
1529   - Begin
1530   - pnMensagens.Visible := true;
1531   - Mensagem('Efetuando Comunicação com o Módulo Gerente WEB em "'+GetValorDatMemoria('Configs.EnderecoServidor', tStringsCipherOpened)+'"...',false,intPausaPadrao div 3);
1532   - frmAcesso.Free;
1533   -
1534   - // Povoamento com dados de configurações da interface patrimonial
1535   - // Solicita ao servidor as configurações para a Coleta de Informações de Patrimônio
1536   - Request_mapa := TStringList.Create;
1537   - Request_mapa.Values['te_node_address'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS' , frmMapaCacic.tStringsCipherOpened));
1538   - Request_mapa.Values['id_so'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('Configs.ID_SO' , frmMapaCacic.tStringsCipherOpened));
1539   - Request_mapa.Values['te_so'] := g_oCacic.enCrypt(g_oCacic.getWindowsStrId());
1540   - Request_mapa.Values['id_ip_rede'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.ID_IP_REDE' , frmMapaCacic.tStringsCipherOpened));
1541   - Request_mapa.Values['te_ip'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_IP' , frmMapaCacic.tStringsCipherOpened));
1542   - Request_mapa.Values['te_nome_computador']:= g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NOME_COMPUTADOR', frmMapaCacic.tStringsCipherOpened));
1543   - Request_mapa.Values['te_workgroup'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_WORKGROUP' , frmMapaCacic.tStringsCipherOpened));
1544   - Request_mapa.Values['id_usuario'] := g_oCacic.enCrypt(frmMapaCacic.strId_usuario);
1545   -
1546   - strRetorno := frmMapaCacic.ComunicaServidor('mapa_get_patrimonio.php', Request_mapa, '.');
1547   -
1548   - log_DEBUG('Retorno: "'+strRetorno+'"');
1549   -
1550   - if (frmMapaCacic.XML_RetornaValor('STATUS', strRetorno)='OK') then
  1519 + boolDebugs := false;
  1520 + if DirectoryExists(g_oCacic.getCacicPath + 'Temp\Debugs') then
1551 1521 Begin
1552   - Mensagem('Comunicação Efetuada com Sucesso! Salvando Configurações Obtidas...',false,intPausaPadrao div 3);
1553   - frmMapaCacic.SetValorDatMemoria('Patrimonio.Configs', strRetorno, frmMapaCacic.tStringsCipherOpened)
1554   - End
  1522 + if (FormatDateTime('ddmmyyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs')) = FormatDateTime('ddmmyyyy', date)) then
  1523 + Begin
  1524 + boolDebugs := true;
  1525 + log_DEBUG('Pasta "' + g_oCacic.getCacicPath + 'Temp\Debugs" com data '+FormatDateTime('dd-mm-yyyy', GetFolderDate(g_oCacic.getCacicPath + 'Temp\Debugs'))+' encontrada. DEBUG ativado.');
  1526 + End;
  1527 + End;
  1528 +
  1529 + // Acessar...
  1530 + CriaFormSenha(nil);
  1531 + frmAcesso.ShowModal;
  1532 +
  1533 + if not (boolAcessoOK) then
  1534 + Finalizar(true)
1555 1535 else
1556 1536 Begin
1557   - Mensagem('PROBLEMAS NA COMUNICAÇÃO COM O MÓDULO GERENTE WEB...',true,intPausaPadrao);
1558   - Finalizar(true);
1559   - End;
  1537 + pnMensagens.Visible := true;
  1538 + Mensagem('Efetuando Comunicação com o Módulo Gerente WEB em "'+GetValorDatMemoria('Configs.EnderecoServidor', tStringsCipherOpened)+'"...',false,intPausaPadrao div 3);
  1539 + frmAcesso.Free;
  1540 +
  1541 + // Povoamento com dados de configurações da interface patrimonial
  1542 + // Solicita ao servidor as configurações para a Coleta de Informações de Patrimônio
  1543 + Request_mapa := TStringList.Create;
  1544 + Request_mapa.Values['te_node_address'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NODE_ADDRESS' , frmMapaCacic.tStringsCipherOpened));
  1545 + Request_mapa.Values['id_so'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('Configs.ID_SO' , frmMapaCacic.tStringsCipherOpened));
  1546 + Request_mapa.Values['te_so'] := g_oCacic.enCrypt(g_oCacic.getWindowsStrId());
  1547 + Request_mapa.Values['id_ip_rede'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.ID_IP_REDE' , frmMapaCacic.tStringsCipherOpened));
  1548 + Request_mapa.Values['te_ip'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_IP' , frmMapaCacic.tStringsCipherOpened));
  1549 + Request_mapa.Values['te_nome_computador']:= g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_NOME_COMPUTADOR', frmMapaCacic.tStringsCipherOpened));
  1550 + Request_mapa.Values['te_workgroup'] := g_oCacic.enCrypt(frmMapaCacic.GetValorDatMemoria('TcpIp.TE_WORKGROUP' , frmMapaCacic.tStringsCipherOpened));
  1551 + Request_mapa.Values['id_usuario'] := g_oCacic.enCrypt(frmMapaCacic.strId_usuario);
  1552 +
  1553 + strRetorno := frmMapaCacic.ComunicaServidor('mapa_get_patrimonio.php', Request_mapa, '.');
  1554 +
  1555 + log_DEBUG('Retorno: "'+strRetorno+'"');
  1556 +
  1557 + if (frmMapaCacic.XML_RetornaValor('STATUS', strRetorno)='OK') then
  1558 + Begin
  1559 + Mensagem('Comunicação Efetuada com Sucesso! Salvando Configurações Obtidas...',false,intPausaPadrao div 3);
  1560 + frmMapaCacic.SetValorDatMemoria('Patrimonio.Configs', strRetorno, frmMapaCacic.tStringsCipherOpened)
  1561 + End
  1562 + else
  1563 + Begin
  1564 + Mensagem('PROBLEMAS NA COMUNICAÇÃO COM O MÓDULO GERENTE WEB...',true,intPausaPadrao);
  1565 + Finalizar(true);
  1566 + End;
1560 1567  
1561   - Request_mapa.Free;
  1568 + Request_mapa.Free;
1562 1569  
1563   - mapa;
  1570 + mapa;
  1571 + End;
1564 1572 End;
1565 1573 End
1566 1574 else
1567 1575 Begin
1568   - lbMensagens.Caption := 'Estrutura CACIC não Encontrada!';
1569   - application.ProcessMessages;
1570   - MessageDLG(#13#10+'Não Encontrei a Estrutura do Sistema CACIC!'+#13#10#13#10+
1571   - 'Operação Abortada!',mtError,[mbOK],0);
1572   - Sair;
  1576 + frmMapaCacic.boolAcessoOK := false;
  1577 + MessageDLG(#13#10+'Atenção! É necessário reinstalar o CACIC nesta estação.' + #13#10 + #13#10 +
  1578 + 'A estrutura encontra-se corrompida.' + #13#10,mtError,[mbOK],0);
  1579 + frmMapaCacic.Finalizar(false);
1573 1580 End;
1574 1581 End;
1575 1582  
... ...
mapa/mapacacic.res
View file @58dcc58
No preview for this file type