diff --git a/Mapa/Mapa.dfm b/Mapa/Mapa.dfm
index eac7fa1..3f74522 100644
--- a/Mapa/Mapa.dfm
+++ b/Mapa/Mapa.dfm
@@ -445,7 +445,7 @@ object frmMapaCacic: TfrmMapaCacic
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
- MaxLength = 20
+ MaxLength = 34
ParentFont = False
ParentShowHint = False
ShowHint = True
diff --git a/Mapa/Source/synsock.pas b/Mapa/Source/synsock.pas
index ca576af..6e851a8 100644
--- a/Mapa/Source/synsock.pas
+++ b/Mapa/Source/synsock.pas
@@ -53,7 +53,7 @@ unit synsock;
{$ENDIF}
{$IFDEF WIN32}
- {$I sswin32q.inc}
+ {$I sswin32.inc}
{$ELSE}
{$IFDEF FPC}
{$I ssfpc.pas}
diff --git a/Mapa/mapacacic.dproj b/Mapa/mapacacic.dproj
index c8d7b64..02a9f5a 100644
--- a/Mapa/mapacacic.dproj
+++ b/Mapa/mapacacic.dproj
@@ -24,7 +24,7 @@
Delphi.Personality
-FalseTrueFalseTrueFalse2818TrueFalseFalseFalseFalse10461252Dataprev - 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.83.0Licença: GNU/LGPLmapacacic.dprFalse
+FalseTrueFalseTrueFalse2819TrueFalseFalseFalseFalse10461252Dataprev - 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.93.0Licença: GNU/LGPLmapacacic.dprFalse
diff --git a/Mapa/mapacacic.res b/Mapa/mapacacic.res
index 2509e0c..2bb35e2 100644
Binary files a/Mapa/mapacacic.res and b/Mapa/mapacacic.res differ
diff --git a/cacic280.dproj b/cacic280.dproj
index 74d2234..b02adbc 100644
--- a/cacic280.dproj
+++ b/cacic280.dproj
@@ -40,7 +40,7 @@
Delphi.Personality
VCLApplication
-FalseTrueFalseTrueFalse28111FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Agente Principal2.8.1.11Baseado na licença GNU/LGPLCacic - Configurador Automático e Coletor de Informações Computacionais3.0cacic280.dpr
+FalseTrueFalseTrueFalse28112FalseFalseFalseFalseFalse10461252Dataprev - Emp. de TI da Prev.Social - URES/SESSSistema CACIC - Módulo Agente Principal2.8.1.12Baseado 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 6cb2f31..16ace17 100644
Binary files a/cacic280.res and b/cacic280.res differ
diff --git a/main.pas b/main.pas
index bd056b7..45c41a2 100755
--- a/main.pas
+++ b/main.pas
@@ -1378,7 +1378,6 @@ var v_mensagem,
intTentativas : integer;
begin
try
- primeira_execucao := FormatDateTime('yyyymmdd', Now);
if FindCmdLineSwitch('execute', True) or
FindCmdLineSwitch('atualizacao', True) or
@@ -1425,9 +1424,7 @@ begin
(trim(objCACIC.getValueFromFile('Configs','col_patr_exe', strGerColsInfFileName))<>'s')
and not (FileExists(objCacic.getLocalFolderName + 'Temp\aguarde_MAPACACIC.txt'))
and (objCACIC.getValueFromFile('Configs', 'modulo_patr', strGerColsInfFileName) = 'S')
- and ((objCACIC.getValueFromFile('Configs','primeira_execucao',
- objCacic.getLocalFolderName + 'cacic280.inf') <>
- primeira_execucao) and bl_primeira_execucao) then
+ and bl_primeira_execucao then
begin
objCACIC.writeDebugLog('ExecutaCACIC: Executa chamada ao Mapa Cacic...');
Invoca_MapaCacic;
@@ -1533,8 +1530,7 @@ begin
objCACIC.writeExceptionLog(E.Message,E.ClassName,'PROBLEMAS AO TENTAR ATIVAR COLETAS.');
end;
objCACIC.writeDebugLog('ExecutaCACIC: ' + DupeString('=',100));
- objCacic.setValueToFile('Configs','primeira_execucao', primeira_execucao,
- objCacic.getLocalFolderName + 'cacic280.inf');
+
bl_primeira_execucao := false;
end;
--
libgit2 0.21.2