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 1 #define SetupBaseName "SetupGeoSan-v."
2   -#define AppVersionFile "07.04.03"
  2 +#define AppVersionFile "07.04.04"
3 3  
4 4 [Setup]
5 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 867 'SELECIONA A TABELA OU VIEW QUE POSSUI DADOS DOS CONSUMIDORES DE AGUA
868 868 TIPO_R = "AGUA"
869 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 871 Else
872 872 'SELECIONA A TABELA OU VIEW QUE POSSUI DADOS DOS CONSUMIDORES DE ESGOTO
873 873 TIPO_R = "ESGOTO"
... ... @@ -881,7 +881,7 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean)
881 881 ElseIf Me.optInscricao.value = True And Trim(Me.txtInscricao) <> "" Then 'Aqui vai procurar para a segunda coluna
882 882 'Me.lvLigacoes.SortKey = 1 'SETA O SORT PARA A SEGUNDA COLUNA E TIRA O ORDER BY DO SELECT
883 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 885 ElseIf Me.optEndereço.value = True And Trim(Me.txtEndereco) <> "" Then
886 886 'Me.lvLigacoes.SortKey = 2 'SETA O SORT PARA A TERCEIRA COLUNA E TIRA O ORDER BY DO SELECT
887 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 151 CompatibleMode="0"
152 152 MajorVer=7
153 153 MinorVer=4
154   -RevisionVer=3
  154 +RevisionVer=4
155 155 AutoIncrementVer=0
156 156 ServerSupportFiles=0
157 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 2 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 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   -FrmCadastroRamal = -55, 4, 1335, 733, C, 45, 39, 1164, 771, C
  8 +FrmCadastroRamal = 63, 13, 1453, 742, , 45, 39, 1164, 771, C
9 9 frmCadastroRamalFiltro = 100, 100, 1246, 731, C, 264, 264, 1383, 996, C
10 10 frmCanvas = 12, 33, 1452, 829, C, 110, 110, 1229, 842, C
11 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 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.04.03"
  203 + Versao_Geo = "07.04.04"
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 = ""
... ...