1
Download as
Browse Code »

Commit 345a5b78182b06b8f22661424acfca400a73ed46

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

29-10-2016 - GeoSan 7.4.4 - Correção onde em alguns casos, onde não adicionava um consumidor 

a um ramal existente.
Showing 8 changed files with 7 additions and 7 deletions   Show diff stats
install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe
View file @345a5b7
No preview for this file type
install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss
  Diff comments   View file @345a5b7
1 #define SetupBaseName "SetupGeoSan-v." 1 #define SetupBaseName "SetupGeoSan-v."
2 -#define AppVersionFile "07.04.03" 2 +#define AppVersionFile "07.04.04"
3 3
4 [Setup] 4 [Setup]
5 AppName=GeoSan 5 AppName=GeoSan
install/GeraSetupGeoSan/Output/SetupGeoSan-v.07.04.04.exe 0 → 100644
View file @345a5b7
No preview for this file type
trunk/Forms/frmCadastroRamal.frm
  Diff comments   View file @345a5b7
@@ -867,7 +867,7 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean) @@ -867,7 +867,7 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean)
867 'SELECIONA A TABELA OU VIEW QUE POSSUI DADOS DOS CONSUMIDORES DE AGUA 867 'SELECIONA A TABELA OU VIEW QUE POSSUI DADOS DOS CONSUMIDORES DE AGUA
868 TIPO_R = "AGUA" 868 TIPO_R = "AGUA"
869 TB_Ligacoes = "RAMAIS_AGUA_LIGACAO" 869 TB_Ligacoes = "RAMAIS_AGUA_LIGACAO"
870 - strIni = "SELECT NRO_LIGACAO, CLASSIFICACAO_FISCAL, ENDERECO, CONSUMIDOR, COD_LOGRADOURO as " + """" + "CODLOGRAD" + """" + ", TIPO, ECONOMIAS, HIDROMETRADO FROM NXGS_V_LIG_COMERCIAL" 870 + strIni = "SELECT CONVERT(nvarchar(50), NRO_LIGACAO) as NRO_LIGACAO, CLASSIFICACAO_FISCAL, ENDERECO, CONSUMIDOR, COD_LOGRADOURO as " + """" + "CODLOGRAD" + """" + ", TIPO, ECONOMIAS, HIDROMETRADO FROM NXGS_V_LIG_COMERCIAL"
871 Else 871 Else
872 'SELECIONA A TABELA OU VIEW QUE POSSUI DADOS DOS CONSUMIDORES DE ESGOTO 872 'SELECIONA A TABELA OU VIEW QUE POSSUI DADOS DOS CONSUMIDORES DE ESGOTO
873 TIPO_R = "ESGOTO" 873 TIPO_R = "ESGOTO"
@@ -881,7 +881,7 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean) @@ -881,7 +881,7 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean)
881 ElseIf Me.optInscricao.value = True And Trim(Me.txtInscricao) <> "" Then 'Aqui vai procurar para a segunda coluna 881 ElseIf Me.optInscricao.value = True And Trim(Me.txtInscricao) <> "" Then 'Aqui vai procurar para a segunda coluna
882 'Me.lvLigacoes.SortKey = 1 'SETA O SORT PARA A SEGUNDA COLUNA E TIRA O ORDER BY DO SELECT 882 'Me.lvLigacoes.SortKey = 1 'SETA O SORT PARA A SEGUNDA COLUNA E TIRA O ORDER BY DO SELECT
883 'tem que testar ainda para ver se fica mais rápido str = strIni & " WHERE NRO_LIGACAO/10 LIKE '%" & Left$(Me.txtInscricao.Text, Len(Me.txtInscricao.Text) - 1) & "%' AND NRO_LIGACAO/10 NOT IN (SELECT NRO_LIGACAO/10 FROM " & TB_Ligacoes & ")" 883 'tem que testar ainda para ver se fica mais rápido str = strIni & " WHERE NRO_LIGACAO/10 LIKE '%" & Left$(Me.txtInscricao.Text, Len(Me.txtInscricao.Text) - 1) & "%' AND NRO_LIGACAO/10 NOT IN (SELECT NRO_LIGACAO/10 FROM " & TB_Ligacoes & ")"
884 - str = strIni & " WHERE NRO_LIGACAO LIKE '%" & Me.txtInscricao.Text & "%' AND NRO_LIGACAO NOT IN (SELECT NRO_LIGACAO FROM " & TB_Ligacoes & ")" 884 + str = strIni & " WHERE CONVERT(nvarchar(50), NRO_LIGACAO) LIKE '%" & Me.txtInscricao.Text & "%' AND CONVERT(nvarchar(50), NRO_LIGACAO) NOT IN (SELECT NRO_LIGACAO FROM " & TB_Ligacoes & ")"
885 ElseIf Me.optEndereço.value = True And Trim(Me.txtEndereco) <> "" Then 885 ElseIf Me.optEndereço.value = True And Trim(Me.txtEndereco) <> "" Then
886 'Me.lvLigacoes.SortKey = 2 'SETA O SORT PARA A TERCEIRA COLUNA E TIRA O ORDER BY DO SELECT 886 'Me.lvLigacoes.SortKey = 2 'SETA O SORT PARA A TERCEIRA COLUNA E TIRA O ORDER BY DO SELECT
887 str = strIni & " WHERE upper(ENDERECO) LIKE '%" & (Me.txtEndereco.Text) & "%' AND NRO_LIGACAO NOT IN (SELECT NRO_LIGACAO FROM " & TB_Ligacoes & ")" ' ORDER BY TAM ASC, ENDERECO ASC" 887 str = strIni & " WHERE upper(ENDERECO) LIKE '%" & (Me.txtEndereco.Text) & "%' AND NRO_LIGACAO NOT IN (SELECT NRO_LIGACAO FROM " & TB_Ligacoes & ")" ' ORDER BY TAM ASC, ENDERECO ASC"
trunk/GeoSan.exe
View file @345a5b7
No preview for this file type
trunk/GeoSan.vbp
  Diff comments   View file @345a5b7
@@ -151,7 +151,7 @@ HelpContextID=&quot;0&quot; @@ -151,7 +151,7 @@ HelpContextID=&quot;0&quot;
151 CompatibleMode="0" 151 CompatibleMode="0"
152 MajorVer=7 152 MajorVer=7
153 MinorVer=4 153 MinorVer=4
154 -RevisionVer=3 154 +RevisionVer=4
155 AutoIncrementVer=0 155 AutoIncrementVer=0
156 ServerSupportFiles=0 156 ServerSupportFiles=0
157 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda." 157 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda."
trunk/GeoSan.vbw
  Diff comments   View file @345a5b7
1 -Global = 78, 7, 979, 602, 1 +Global = 78, 7, 1036, 696, C
2 calcDetecta = 0, 0, 0, 0, C 2 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, C, 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 = -55, 4, 1335, 733, C, 45, 39, 1164, 771, C 8 +FrmCadastroRamal = 63, 13, 1453, 742, , 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
10 frmCanvas = 12, 33, 1452, 829, C, 110, 110, 1229, 842, C 10 frmCanvas = 12, 33, 1452, 829, C, 110, 110, 1229, 842, C
11 frmConsumidoresDesabastecidos = 110, 110, 1229, 842, C, 308, 308, 1427, 1040, C 11 frmConsumidoresDesabastecidos = 110, 110, 1229, 842, C, 308, 308, 1427, 1040, C
trunk/Modules/Global.bas
  Diff comments   View file @345a5b7
@@ -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.04.03" 203 + Versao_Geo = "07.04.04"
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 = ""