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 157 dataOld = rs!data
158 158 rs.MoveNext
159 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 166 Print #2, "========================================================"
161 167 Print #2, ""
162 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 281 If rsMeta!data <> strDataR Then
276 282 'IMPRIME O TOTAL GERAL DIA
277 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 285 strDataR = rsMeta!data
280 286 End If
281 287 strUserR = rsMeta!USUARIO_LOG
... ... @@ -284,10 +290,8 @@ Private Sub cmdGerar_Click()
284 290 Set rs = Conn.execute("SELECT COUNT(NRO_LIGACAO) AS LINHAS FROM RAMAIS_AGUA_LIGACAO WHERE LEFT(DATA_LOG,10) = '" & strDataR & "'")
285 291 Print #2, strDataR & ";Total do dia;" & rs!linhas
286 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 295 Print #2, ""
292 296 End If
293 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 152 CompatibleMode="0"
153 153 MajorVer=7
154 154 MinorVer=5
155   -RevisionVer=2
  155 +RevisionVer=3
156 156 AutoIncrementVer=0
157 157 ServerSupportFiles=0
158 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 3 FrmCreatTextForLayer = 0, 0, 0, 0, C, 132, 132, 1251, 864, C
4 4 frmAbout = 0, 0, 0, 0, C, 154, 154, 1273, 886, C
5 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 7 FrmAssociation = 35, 68, 1273, 637, C, 220, 220, 1339, 952, C
8 8 FrmCadastroRamal = 63, 13, 1453, 742, C, 45, 39, 1164, 771, C
9 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 46 frmConfSenha = 0, 0, 0, 0, C, 154, 154, 1273, 886, C
47 47 frmTrocaSenha = 0, 0, 0, 0, C, 176, 176, 1295, 908, C
48 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 50 frmEncontraTexto = 0, 0, 0, 0, C, 242, 242, 1361, 974, C
51 51 frmAtualizarSetores = 0, 0, 0, 0, C, 264, 264, 1383, 996, C
52 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 200 End If
201 201 'Configura a versão atual do GeoSan
202 202 Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision
203   - Versao_Geo = "07.05.02"
  203 + Versao_Geo = "07.05.03"
204 204 glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe
205 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 206 connn = ""
... ...