From 84174701da53fef25c85806002d98f3f5e8a0394 Mon Sep 17 00:00:00 2001 From: José Maria Villac Pinheiro Date: Tue, 22 Nov 2016 07:14:57 -0200 Subject: [PATCH] 22-11-2016 - GeoSan 7.5.3 - Corrigido relatório de produtividade de cadastro de ligações. Não foi gerado o executável de instalação desta versão, será gerado na próxima. --- trunk/Controles/variaveisGlobais.txt | Bin 32 -> 0 bytes trunk/Forms/frmIndicProdutRamaisAgua.frm | 14 +++++++++----- trunk/GeoSan.exe | Bin 3981312 -> 0 bytes trunk/GeoSan.vbp | 2 +- trunk/GeoSan.vbw | 4 ++-- trunk/Modules/Global.bas | 2 +- 6 files changed, 13 insertions(+), 9 deletions(-) diff --git a/trunk/Controles/variaveisGlobais.txt b/trunk/Controles/variaveisGlobais.txt index 064f992..1aa4634 100644 Binary files a/trunk/Controles/variaveisGlobais.txt and b/trunk/Controles/variaveisGlobais.txt differ diff --git a/trunk/Forms/frmIndicProdutRamaisAgua.frm b/trunk/Forms/frmIndicProdutRamaisAgua.frm index 4c7c304..c0562d1 100644 --- a/trunk/Forms/frmIndicProdutRamaisAgua.frm +++ b/trunk/Forms/frmIndicProdutRamaisAgua.frm @@ -157,6 +157,12 @@ Private Sub cmdGerar_Click() dataOld = rs!data rs.MoveNext Loop + 'Imprime o último total do dia até a data do relatório + Print #2, "========================================================" + Print #2, dataOld; Tab(15); "Total do Dia"; Tab(30); CStr(TotalLigacoesDoDia) + Print #2, "" + Print #2, "" + 'Imprime o total geral de todos os dias Print #2, "========================================================" Print #2, "" Print #2, dataOld; Tab(15); "Total geral de ligações cadastradas"; Tab(30); CStr(Trim(TotalHistoricoLicacoes)) @@ -275,7 +281,7 @@ Private Sub cmdGerar_Click() If rsMeta!data <> strDataR Then 'IMPRIME O TOTAL GERAL DIA Set rs = Conn.execute("SELECT COUNT(NRO_LIGACAO) AS LINHAS FROM RAMAIS_AGUA_LIGACAO WHERE LEFT(DATA_LOG,10) = '" & strDataR & "'") - Print #2, strDataR & ";" & "Total Data" & ";" & rs!linhas + Print #2, strDataR & ";" & "Total do Dia" & ";" & rs!linhas strDataR = rsMeta!data End If strUserR = rsMeta!USUARIO_LOG @@ -284,10 +290,8 @@ Private Sub cmdGerar_Click() Set rs = Conn.execute("SELECT COUNT(NRO_LIGACAO) AS LINHAS FROM RAMAIS_AGUA_LIGACAO WHERE LEFT(DATA_LOG,10) = '" & strDataR & "'") Print #2, strDataR & ";Total do dia;" & rs!linhas Print #2, "" - Print #2, "Obs. Este relatório não representa necessáriamente o" - Print #2, "número total de ligações, uma vez que contabiliza" - Print #2, "apenas os ramais cadastrados." - Print #2, "Ele considera as ligações adicionais feita a um " + Print #2, "Obs: este relatório apresenta apenas as ligações de água" + Print #2, "cadastradas a partir do GeoSan versão 7.5.0" Print #2, "" End If Loop diff --git a/trunk/GeoSan.exe b/trunk/GeoSan.exe index 7447172..5998454 100644 Binary files a/trunk/GeoSan.exe and b/trunk/GeoSan.exe differ diff --git a/trunk/GeoSan.vbp b/trunk/GeoSan.vbp index 9faddd7..f043fcd 100644 --- a/trunk/GeoSan.vbp +++ b/trunk/GeoSan.vbp @@ -152,7 +152,7 @@ HelpContextID="0" CompatibleMode="0" MajorVer=7 MinorVer=5 -RevisionVer=2 +RevisionVer=3 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda." diff --git a/trunk/GeoSan.vbw b/trunk/GeoSan.vbw index 313c96d..02ea4ce 100644 --- a/trunk/GeoSan.vbw +++ b/trunk/GeoSan.vbw @@ -3,7 +3,7 @@ calcDetecta = 0, 0, 0, 0, C FrmCreatTextForLayer = 0, 0, 0, 0, C, 132, 132, 1251, 864, C frmAbout = 0, 0, 0, 0, C, 154, 154, 1273, 886, C FrmTypes = 0, 0, 0, 0, C, 176, 176, 1295, 908, C -FrmMain = 16, 71, 1246, 591, , 139, 12, 1258, 744, C +FrmMain = 16, 71, 1246, 591, C, 139, 12, 1258, 744, C FrmAssociation = 35, 68, 1273, 637, C, 220, 220, 1339, 952, C FrmCadastroRamal = 63, 13, 1453, 742, C, 45, 39, 1164, 771, C frmCadastroRamalFiltro = 100, 100, 1246, 731, C, 264, 264, 1383, 996, C @@ -46,7 +46,7 @@ frmUserControle = 0, 0, 0, 0, C, 132, 132, 1251, 864, C frmConfSenha = 0, 0, 0, 0, C, 154, 154, 1273, 886, C frmTrocaSenha = 0, 0, 0, 0, C, 176, 176, 1295, 908, C frmIndicProdutRedesDeAgua = 93, 38, 1476, 747, C, 198, 198, 1317, 930, C -frmIndicProdutRamaisAgua = 45, 75, 1464, 808, Z, 220, 220, 1339, 952, C +frmIndicProdutRamaisAgua = 45, 75, 1464, 808, C, 220, 220, 1339, 952, C frmEncontraTexto = 0, 0, 0, 0, C, 242, 242, 1361, 974, C frmAtualizarSetores = 0, 0, 0, 0, C, 264, 264, 1383, 996, C frmImportarCotas = 0, 0, 0, 0, C, 286, 286, 1405, 1018, C diff --git a/trunk/Modules/Global.bas b/trunk/Modules/Global.bas index e754520..235e2f4 100644 --- a/trunk/Modules/Global.bas +++ b/trunk/Modules/Global.bas @@ -200,7 +200,7 @@ Public Sub Main() End If 'Configura a versão atual do GeoSan Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision - Versao_Geo = "07.05.02" + Versao_Geo = "07.05.03" glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe SaveLoadGlobalData glo.diretorioGeoSan + "/controles/variaveisGlobais.txt", True 'salva em um arquivo todas as variáveis globais para poderem ser acessadas por outras aplicações connn = "" -- libgit2 0.21.2