Download as
Browse Code »

Commit 8e821bdce0fa4df7cf075bfc4c6f0c09bfe912e0

Authored by Eric Menezes Noronha
1 parent 230a925a
Exists in master

Correção chamada mapacacic

Showing 2 changed files with 6 additions and 6 deletions   Show diff stats
MapaTesteProj/MapaCACIC.identcache
View file @8e821bd
No preview for this file type
@@ -1225,14 +1225,14 @@ end; @@ -1225,14 +1225,14 @@ end;
1225 1225
1226 procedure TFormularioGeral.InvocaMapa1Click(Sender: TObject); 1226 procedure TFormularioGeral.InvocaMapa1Click(Sender: TObject);
1227 begin 1227 begin
1228 - if (ActualActivity<>4) and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) <> 'N') then 1228 + if (ActualActivity<>4) and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) = 'S') then
1229 Invoca_MapaCacic 1229 Invoca_MapaCacic
1230 else 1230 else
1231 MessageDlg(#13#13+'Módulo desabilitado!',mtError, [mbOK], 0); 1231 MessageDlg(#13#13+'Módulo desabilitado!',mtError, [mbOK], 0);
1232 end; 1232 end;
1233 1233
1234 //////////////////////////////////////////////////////////////////////////////// 1234 ////////////////////////////////////////////////////////////////////////////////
1235 -// CRIADO PARA TESTAR A CHAMADA DO MAPA CACIC // 1235 +// CRIADO PARA A CHAMADA DO MAPA CACIC //
1236 //////////////////////////////////////////////////////////////////////////////// 1236 ////////////////////////////////////////////////////////////////////////////////
1237 1237
1238 procedure TFormularioGeral.Invoca_MapaCacic; 1238 procedure TFormularioGeral.Invoca_MapaCacic;
@@ -1296,13 +1296,12 @@ begin @@ -1296,13 +1296,12 @@ begin
1296 //////////////////////////////////////////////////////////////////////////////// 1296 ////////////////////////////////////////////////////////////////////////////////
1297 // CRIADO PARA TESTAR A CHAMADA DO MAPA CACIC // 1297 // CRIADO PARA TESTAR A CHAMADA DO MAPA CACIC //
1298 //////////////////////////////////////////////////////////////////////////////// 1298 ////////////////////////////////////////////////////////////////////////////////
1299 - if (trim(objCACIC.getValueFromFile('Configs','col_patr_exe', strGerColsInfFileName))<>'s') 1299 + if (trim(objCACIC.getValueFromFile('Configs','col_patr_exe', strGerColsInfFileName))<>'s')
1300 and (ActualActivity<>4) 1300 and (ActualActivity<>4)
1301 - and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) <> 'N') then begin 1301 + and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) = 'S') then begin
1302 objCACIC.writeDebugLog('ExecutaCACIC: Executa chamada ao Mapa Cacic...'); 1302 objCACIC.writeDebugLog('ExecutaCACIC: Executa chamada ao Mapa Cacic...');
1303 Invoca_MapaCacic; 1303 Invoca_MapaCacic;
1304 - end;  
1305 - 1304 + end;
1306 timerCheckNoMinuto.Enabled := false; 1305 timerCheckNoMinuto.Enabled := false;
1307 objCACIC.writeDebugLog('ExecutaCACIC: Preparando chamada ao Gerente de Coletas...'); 1306 objCACIC.writeDebugLog('ExecutaCACIC: Preparando chamada ao Gerente de Coletas...');
1308 1307
@@ -1424,6 +1423,7 @@ begin @@ -1424,6 +1423,7 @@ begin
1424 Invoca_GerCols('collect'); 1423 Invoca_GerCols('collect');
1425 End; 1424 End;
1426 End; 1425 End;
  1426 +
1427 timerCheckNoMinuto.Enabled := true; 1427 timerCheckNoMinuto.Enabled := true;
1428 End; 1428 End;
1429 1429