From 4cc217d68048ab7fe8200cf18220a82b6fd480a3 Mon Sep 17 00:00:00 2001
From: Eric Menezes Noronha <ericmenezesn@gmail.com>
Date: Thu, 8 May 2014 18:13:22 -0300
Subject: [PATCH] -Últimos acertos para força coleta.

---
 gercols/gercols.dpr | 2 ++
 1 file changed, 2 insertions(+), 0 deletions(-)

diff --git a/gercols/gercols.dpr b/gercols/gercols.dpr
index ac40522..75da3ae 100644
--- a/gercols/gercols.dpr
+++ b/gercols/gercols.dpr
@@ -245,6 +245,7 @@ Begin
               objCacic.setValueToFile('Configs','ConexaoOK','S', strGerColsInfFileName);
               if (objCacic.getValueFromTags('WebManagerAddress', strRetorno,'<>') <> '') then
                 Begin
+                  objCacic.setValueToFile('Configs','forca_coleta', objCacic.getValueFromTags('ForcaColeta', strRetorno,'<>'), strGerColsInfFileName);
                   objCacic.setValueToFile('Configs','WebManagerAddress'    ,objCacic.getValueFromTags('WebManagerAddress'    , strRetorno,'<>'), strChkSisInfFileName);
                   objCacic.setValueToFile('Configs','WebServicesFolderName',objCacic.getValueFromTags('WebServicesFolderName', strRetorno,'<>'), strChkSisInfFileName);
                   objCacic.setWebManagerAddress(objCacic.getValueFromTags('WebManagerAddress', strRetorno,'<>'));
@@ -387,6 +388,7 @@ Begin
           objCacic.setValueToFile('Configs','ConexaoOK','S', strGerColsInfFileName);
           if (objCacic.getValueFromTags('WebManagerAddress', strRetorno,'<>') <> '') then
           Begin
+            objCacic.setValueToFile('Configs','forca_coleta', objCacic.getValueFromTags('ForcaColeta', strRetorno,'<>'), strGerColsInfFileName);
             objCacic.setValueToFile('Configs','WebManagerAddress'    ,objCacic.getValueFromTags('WebManagerAddress'    , strRetorno,'<>'), strChkSisInfFileName);
             objCacic.setValueToFile('Configs','WebServicesFolderName',objCacic.getValueFromTags('WebServicesFolderName', strRetorno,'<>'), strChkSisInfFileName);
             objCacic.setWebManagerAddress(objCacic.getValueFromTags('WebManagerAddress', strRetorno,'<>'));
--
libgit2 0.21.2