From f2745c944b09e25c1afc1d880ba50c332a4a9f74 Mon Sep 17 00:00:00 2001 From: José Maria Villac Pinheiro Date: Tue, 27 Apr 2021 11:03:04 -0300 Subject: [PATCH] Em cadastro de ramais, ao procurar um ramal, alterado para poder apresentar o número e complemento do endereço. --- .gitignore | 6 ++++++ install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe | Bin 3985408 -> 0 bytes install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss | 2 +- install/GeraSetupGeoSan/Output/SetupGeoSan-v.07.05.06.exe | Bin 25308843 -> 0 bytes install/GeraSetupGeoSan/Output/SetupGeoSan-v.08.00.01.exe | Bin 25308552 -> 0 bytes trunk/Controles/GEOSAN.INI | 2 +- trunk/Forms/frmCadastroRamal.frm | 16 ++++++++++++---- trunk/GeoSan.exe | Bin 3985408 -> 0 bytes trunk/GeoSan.vbp | 4 ++-- trunk/Modules/Global.bas | 2 +- 10 files changed, 23 insertions(+), 9 deletions(-) create mode 100644 .gitignore delete mode 100644 install/GeraSetupGeoSan/Output/SetupGeoSan-v.07.05.06.exe delete mode 100644 install/GeraSetupGeoSan/Output/SetupGeoSan-v.08.00.01.exe diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..44f5e2b --- /dev/null +++ b/.gitignore @@ -0,0 +1,6 @@ +# Diretórios +Output +VerificaDlls + +# Arquivos específicos +isetup-5.4.2.exe diff --git a/install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe b/install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe index b8db4ce..83783e7 100644 Binary files a/install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe and b/install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe differ diff --git a/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss b/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss index f7fc3d5..eed0e9c 100644 --- a/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss +++ b/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss @@ -1,5 +1,5 @@ #define SetupBaseName "SetupGeoSan-v." -#define AppVersionFile "08.00.01" +#define AppVersionFile "08.01.00" [Setup] AppName=GeoSan diff --git a/install/GeraSetupGeoSan/Output/SetupGeoSan-v.07.05.06.exe b/install/GeraSetupGeoSan/Output/SetupGeoSan-v.07.05.06.exe deleted file mode 100644 index ca48278..0000000 Binary files a/install/GeraSetupGeoSan/Output/SetupGeoSan-v.07.05.06.exe and /dev/null differ diff --git a/install/GeraSetupGeoSan/Output/SetupGeoSan-v.08.00.01.exe b/install/GeraSetupGeoSan/Output/SetupGeoSan-v.08.00.01.exe deleted file mode 100644 index 2845516..0000000 Binary files a/install/GeraSetupGeoSan/Output/SetupGeoSan-v.08.00.01.exe and /dev/null differ diff --git a/trunk/Controles/GEOSAN.INI b/trunk/Controles/GEOSAN.INI index 03af4a3..0e0bd3f 100644 --- a/trunk/Controles/GEOSAN.INI +++ b/trunk/Controles/GEOSAN.INI @@ -11,7 +11,7 @@ CONSULTAR_LIGAÇÕES=NÃO [RAMAISFILTRO] PESQUISA=INSCRIÇÃO ATIVADO=SIM -VALOR=12269 +VALOR=123 [EMAIL] EMAILDESTINATARIO=tec@nexusbr.com EMAILREMETENTE=NEXUS diff --git a/trunk/Forms/frmCadastroRamal.frm b/trunk/Forms/frmCadastroRamal.frm index c307ff0..ea9a80a 100644 --- a/trunk/Forms/frmCadastroRamal.frm +++ b/trunk/Forms/frmCadastroRamal.frm @@ -837,6 +837,10 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean) Dim TIPO_R As String Dim TB_Ligacao As String Dim strLigacoes As String + Dim enderecoCompleto As String + Dim enderecoStr As String + Dim numeroImovel As String + Dim complementoImovel As String 'HIDROMETRADAS E FICTÍCIAS Dim RS_NRO_LIGACAO As New ADODB.Recordset Dim ma As String @@ -861,18 +865,18 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean) mf = "HIDROMETRADO" mg = "NXGS_V_LIG_COMERCIAL" mh = "NXGS_V_LIG_COMERCIAL_E" - mj = "RAMAIS_ESGOTO_LIGACAO" Set rs = New ADODB.Recordset If tcs.getCurrentLayer = "RAMAIS_AGUA" Then 'SELECIONA A TABELA OU VIEW QUE POSSUI DADOS DOS CONSUMIDORES DE AGUA TIPO_R = "AGUA" TB_Ligacoes = "RAMAIS_AGUA_LIGACAO" - 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" + mj = "RAMAIS_ESGOTO_LIGACAO" + strIni = "SELECT CONVERT(nvarchar(50), NRO_LIGACAO) as NRO_LIGACAO, CLASSIFICACAO_FISCAL, ENDERECO, NUM_CASA, COMPL_LOGRADOURO, CONSUMIDOR, COD_LOGRADOURO as " + """" + "CODLOGRAD" + """" + ", TIPO, ECONOMIAS, HIDROMETRADO FROM NXGS_V_LIG_COMERCIAL" Else 'SELECIONA A TABELA OU VIEW QUE POSSUI DADOS DOS CONSUMIDORES DE ESGOTO TIPO_R = "ESGOTO" TB_Ligacoes = "RAMAIS_ESGOTO_LIGACAO" - strIni = "SELECT NRO_LIGACAO, CLASSIFICACAO_FISCAL, ENDERECO, CONSUMIDOR, COD_LOGRADOURO as " + """" + "CODLOGRAD" + """" + ", TIPO, ECONOMIAS, HIDROMETRADO FROM NXGS_V_LIG_COMERCIAL_E" + strIni = "SELECT NRO_LIGACAO, CLASSIFICACAO_FISCAL, ENDERECO, NUM_CASA, COMPL_LOGRADOURO, CONSUMIDOR, COD_LOGRADOURO as " + """" + "CODLOGRAD" + """" + ", TIPO, ECONOMIAS, HIDROMETRADO FROM NXGS_V_LIG_COMERCIAL_E" End If str = "" 'LIMPA A STRING DE COMANDO If Me.optNumLigacao.value = True And Trim(Me.txtNumLigacao) <> "" Then @@ -917,8 +921,12 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean) DoEvents 'Set itmx = lvLigacoes.ListItems.Add(, , rs.Fields("NRO_LIGACAO").value) Set itmx = lvLigacoes.ListItems.Add(, , rs.Fields("CLASSIFICACAO_FISCAL").value) + numeroImovel = IIf(IsNull(rs.Fields("NUM_CASA").value), "", rs.Fields("NUM_CASA").value) + complementoImovel = IIf(IsNull(rs.Fields("COMPL_LOGRADOURO").value), "", rs.Fields("COMPL_LOGRADOURO").value) + enderecoStr = IIf(IsNull(rs.Fields("ENDERECO").value), "", rs.Fields("ENDERECO").value) + enderecoCompleto = enderecoStr + ", " + numeroImovel + " - " + complementoImovel itmx.SubItems(1) = IIf(IsNull(rs.Fields("NRO_LIGACAO").value), "", rs.Fields("NRO_LIGACAO").value) - itmx.SubItems(2) = IIf(IsNull(rs.Fields("ENDERECO").value), "", rs.Fields("ENDERECO").value) + itmx.SubItems(2) = enderecoCompleto itmx.SubItems(3) = IIf(IsNull(rs.Fields("CONSUMIDOR").value), "", rs.Fields("CONSUMIDOR").value) 'incluído para mostrar o tipo da ligação itmx.SubItems(4) = IIf(IsNull(rs.Fields("TIPO").value), "", rs.Fields("TIPO").value) diff --git a/trunk/GeoSan.exe b/trunk/GeoSan.exe index b8db4ce..83783e7 100644 Binary files a/trunk/GeoSan.exe and b/trunk/GeoSan.exe differ diff --git a/trunk/GeoSan.vbp b/trunk/GeoSan.vbp index c01579c..7e4d41b 100644 --- a/trunk/GeoSan.vbp +++ b/trunk/GeoSan.vbp @@ -151,8 +151,8 @@ Name="GeoSan" HelpContextID="0" CompatibleMode="0" MajorVer=8 -MinorVer=0 -RevisionVer=1 +MinorVer=1 +RevisionVer=0 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda." diff --git a/trunk/Modules/Global.bas b/trunk/Modules/Global.bas index 78e8d62..cdef6e6 100644 --- a/trunk/Modules/Global.bas +++ b/trunk/Modules/Global.bas @@ -201,7 +201,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.06" + Versao_Geo = "08.01.00" 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