1
Download as
Browse Code »

Commit 84174701da53fef25c85806002d98f3f5e8a0394

Authored by José Maria Villac Pinheiro
1 parent 305ebe1f
Exists in master

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.
Showing 6 changed files with 13 additions and 9 deletions   Show diff stats
trunk/Controles/variaveisGlobais.txt
View file @8417470
No preview for this file type
trunk/Forms/frmIndicProdutRamaisAgua.frm
  Diff comments   View file @8417470
@@ -157,6 +157,12 @@ Private Sub cmdGerar_Click() @@ -157,6 +157,12 @@ Private Sub cmdGerar_Click()
157 dataOld = rs!data 157 dataOld = rs!data
158 rs.MoveNext 158 rs.MoveNext
159 Loop 159 Loop
  160 + 'Imprime o último total do dia até a data do relatório
  161 + Print #2, "========================================================"
  162 + Print #2, dataOld; Tab(15); "Total do Dia"; Tab(30); CStr(TotalLigacoesDoDia)
  163 + Print #2, ""
  164 + Print #2, ""
  165 + 'Imprime o total geral de todos os dias
160 Print #2, "========================================================" 166 Print #2, "========================================================"
161 Print #2, "" 167 Print #2, ""
162 Print #2, dataOld; Tab(15); "Total geral de ligações cadastradas"; Tab(30); CStr(Trim(TotalHistoricoLicacoes)) 168 Print #2, dataOld; Tab(15); "Total geral de ligações cadastradas"; Tab(30); CStr(Trim(TotalHistoricoLicacoes))
@@ -275,7 +281,7 @@ Private Sub cmdGerar_Click() @@ -275,7 +281,7 @@ Private Sub cmdGerar_Click()
275 If rsMeta!data <> strDataR Then 281 If rsMeta!data <> strDataR Then
276 'IMPRIME O TOTAL GERAL DIA 282 'IMPRIME O TOTAL GERAL DIA
277 Set rs = Conn.execute("SELECT COUNT(NRO_LIGACAO) AS LINHAS FROM RAMAIS_AGUA_LIGACAO WHERE LEFT(DATA_LOG,10) = '" & strDataR & "'") 283 Set rs = Conn.execute("SELECT COUNT(NRO_LIGACAO) AS LINHAS FROM RAMAIS_AGUA_LIGACAO WHERE LEFT(DATA_LOG,10) = '" & strDataR & "'")
278 - Print #2, strDataR & ";" & "Total Data" & ";" & rs!linhas 284 + Print #2, strDataR & ";" & "Total do Dia" & ";" & rs!linhas
279 strDataR = rsMeta!data 285 strDataR = rsMeta!data
280 End If 286 End If
281 strUserR = rsMeta!USUARIO_LOG 287 strUserR = rsMeta!USUARIO_LOG
@@ -284,10 +290,8 @@ Private Sub cmdGerar_Click() @@ -284,10 +290,8 @@ Private Sub cmdGerar_Click()
284 Set rs = Conn.execute("SELECT COUNT(NRO_LIGACAO) AS LINHAS FROM RAMAIS_AGUA_LIGACAO WHERE LEFT(DATA_LOG,10) = '" & strDataR & "'") 290 Set rs = Conn.execute("SELECT COUNT(NRO_LIGACAO) AS LINHAS FROM RAMAIS_AGUA_LIGACAO WHERE LEFT(DATA_LOG,10) = '" & strDataR & "'")
285 Print #2, strDataR & ";Total do dia;" & rs!linhas 291 Print #2, strDataR & ";Total do dia;" & rs!linhas
286 Print #2, "" 292 Print #2, ""
287 - Print #2, "Obs. Este relatório não representa necessáriamente o"  
288 - Print #2, "número total de ligações, uma vez que contabiliza"  
289 - Print #2, "apenas os ramais cadastrados."  
290 - Print #2, "Ele considera as ligações adicionais feita a um " 293 + Print #2, "Obs: este relatório apresenta apenas as ligações de água"
  294 + Print #2, "cadastradas a partir do GeoSan versão 7.5.0"
291 Print #2, "" 295 Print #2, ""
292 End If 296 End If
293 Loop 297 Loop
trunk/GeoSan.exe
View file @8417470
No preview for this file type
trunk/GeoSan.vbp
  Diff comments   View file @8417470
@@ -152,7 +152,7 @@ HelpContextID=&quot;0&quot; @@ -152,7 +152,7 @@ HelpContextID=&quot;0&quot;
152 CompatibleMode="0" 152 CompatibleMode="0"
153 MajorVer=7 153 MajorVer=7
154 MinorVer=5 154 MinorVer=5
155 -RevisionVer=2 155 +RevisionVer=3
156 AutoIncrementVer=0 156 AutoIncrementVer=0
157 ServerSupportFiles=0 157 ServerSupportFiles=0
158 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda." 158 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda."
trunk/GeoSan.vbw
  Diff comments   View file @8417470
@@ -3,7 +3,7 @@ calcDetecta = 0, 0, 0, 0, C @@ -3,7 +3,7 @@ calcDetecta = 0, 0, 0, 0, C
3 FrmCreatTextForLayer = 0, 0, 0, 0, C, 132, 132, 1251, 864, C 3 FrmCreatTextForLayer = 0, 0, 0, 0, C, 132, 132, 1251, 864, C
4 frmAbout = 0, 0, 0, 0, C, 154, 154, 1273, 886, C 4 frmAbout = 0, 0, 0, 0, C, 154, 154, 1273, 886, C
5 FrmTypes = 0, 0, 0, 0, C, 176, 176, 1295, 908, C 5 FrmTypes = 0, 0, 0, 0, C, 176, 176, 1295, 908, C
6 -FrmMain = 16, 71, 1246, 591, , 139, 12, 1258, 744, C 6 +FrmMain = 16, 71, 1246, 591, C, 139, 12, 1258, 744, C
7 FrmAssociation = 35, 68, 1273, 637, C, 220, 220, 1339, 952, C 7 FrmAssociation = 35, 68, 1273, 637, C, 220, 220, 1339, 952, C
8 FrmCadastroRamal = 63, 13, 1453, 742, C, 45, 39, 1164, 771, C 8 FrmCadastroRamal = 63, 13, 1453, 742, C, 45, 39, 1164, 771, C
9 frmCadastroRamalFiltro = 100, 100, 1246, 731, C, 264, 264, 1383, 996, C 9 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 @@ -46,7 +46,7 @@ frmUserControle = 0, 0, 0, 0, C, 132, 132, 1251, 864, C
46 frmConfSenha = 0, 0, 0, 0, C, 154, 154, 1273, 886, C 46 frmConfSenha = 0, 0, 0, 0, C, 154, 154, 1273, 886, C
47 frmTrocaSenha = 0, 0, 0, 0, C, 176, 176, 1295, 908, C 47 frmTrocaSenha = 0, 0, 0, 0, C, 176, 176, 1295, 908, C
48 frmIndicProdutRedesDeAgua = 93, 38, 1476, 747, C, 198, 198, 1317, 930, C 48 frmIndicProdutRedesDeAgua = 93, 38, 1476, 747, C, 198, 198, 1317, 930, C
49 -frmIndicProdutRamaisAgua = 45, 75, 1464, 808, Z, 220, 220, 1339, 952, C 49 +frmIndicProdutRamaisAgua = 45, 75, 1464, 808, C, 220, 220, 1339, 952, C
50 frmEncontraTexto = 0, 0, 0, 0, C, 242, 242, 1361, 974, C 50 frmEncontraTexto = 0, 0, 0, 0, C, 242, 242, 1361, 974, C
51 frmAtualizarSetores = 0, 0, 0, 0, C, 264, 264, 1383, 996, C 51 frmAtualizarSetores = 0, 0, 0, 0, C, 264, 264, 1383, 996, C
52 frmImportarCotas = 0, 0, 0, 0, C, 286, 286, 1405, 1018, C 52 frmImportarCotas = 0, 0, 0, 0, C, 286, 286, 1405, 1018, C
trunk/Modules/Global.bas
  Diff comments   View file @8417470
@@ -200,7 +200,7 @@ Public Sub Main() @@ -200,7 +200,7 @@ Public Sub Main()
200 End If 200 End If
201 'Configura a versão atual do GeoSan 201 'Configura a versão atual do GeoSan
202 Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision 202 Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision
203 - Versao_Geo = "07.05.02" 203 + Versao_Geo = "07.05.03"
204 glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe 204 glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe
205 SaveLoadGlobalData glo.diretorioGeoSan + "/controles/variaveisGlobais.txt", True 'salva em um arquivo todas as variáveis globais para poderem ser acessadas por outras aplicações 205 SaveLoadGlobalData glo.diretorioGeoSan + "/controles/variaveisGlobais.txt", True 'salva em um arquivo todas as variáveis globais para poderem ser acessadas por outras aplicações
206 connn = "" 206 connn = ""