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
main.pas
  Diff comments   View file @8e821bd
... ... @@ -1225,14 +1225,14 @@ end;
1225 1225  
1226 1226 procedure TFormularioGeral.InvocaMapa1Click(Sender: TObject);
1227 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 1229 Invoca_MapaCacic
1230 1230 else
1231 1231 MessageDlg(#13#13+'Módulo desabilitado!',mtError, [mbOK], 0);
1232 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 1238 procedure TFormularioGeral.Invoca_MapaCacic;
... ... @@ -1296,13 +1296,12 @@ begin
1296 1296 ////////////////////////////////////////////////////////////////////////////////
1297 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 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 1302 objCACIC.writeDebugLog('ExecutaCACIC: Executa chamada ao Mapa Cacic...');
1303 1303 Invoca_MapaCacic;
1304   - end;
1305   -
  1304 + end;
1306 1305 timerCheckNoMinuto.Enabled := false;
1307 1306 objCACIC.writeDebugLog('ExecutaCACIC: Preparando chamada ao Gerente de Coletas...');
1308 1307  
... ... @@ -1424,6 +1423,7 @@ begin
1424 1423 Invoca_GerCols('collect');
1425 1424 End;
1426 1425 End;
  1426 +
1427 1427 timerCheckNoMinuto.Enabled := true;
1428 1428 End;
1429 1429  
... ...