From da75e3ed33f0836f27772b2e7e4c9922509e0317 Mon Sep 17 00:00:00 2001 From: José Maria Villac Pinheiro Date: Fri, 3 Jun 2022 09:48:29 -0300 Subject: [PATCH] Modificada apresentação dos logs de erro para identificar claramente quando acontercer um erro em ramal e ligação. --- .gitignore | 7 ++++++- install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss | 2 +- trunk/GeoSan.vbp | 6 +++--- trunk/Modules/Global.bas | 2 +- trunk/classes/CDistRamalInicioTrecho.cls | 2 +- trunk/classes/clsTerraLib.cls | 4 ++-- 6 files changed, 14 insertions(+), 9 deletions(-) diff --git a/.gitignore b/.gitignore index 5bd581e..77d64ad 100644 --- a/.gitignore +++ b/.gitignore @@ -4,5 +4,10 @@ VerificaDlls # Arquivos específicos isetup-5.4.2.exe -trunk\GeoSan.exe +GeoSan.exe +install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe +trunk/GeoSan.exe +install/GeraSetupGeoSan/Output install\GeraSetupGeoSan\ArquivosInstGeoSan\GeoSan.exe +trunk\GeoSan.exe +install\GeraSetupGeoSan\Output \ No newline at end of file diff --git a/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss b/install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss index aee5cc4..68ada1c 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.02.01" +#define AppVersionFile "08.02.02" [Setup] AppName=GeoSan diff --git a/trunk/GeoSan.vbp b/trunk/GeoSan.vbp index f81ffcc..48fa82b 100644 --- a/trunk/GeoSan.vbp +++ b/trunk/GeoSan.vbp @@ -139,8 +139,8 @@ Class=clsRamalController; classes\clsRamalController.cls Class=clsConsumidorModel; classes\clsConsumidorModel.cls Class=clsConsumidorControler; classes\clsConsumidorControler.cls Object={F03ABD98-7B60-43E4-9934-DA5F0D19FDAC}#1.0#0; TeComViewManager.dll -ResFile32="GeoSan.RES" Class=CAcertaZsDosNosEsgoto; classes\CAcertaZsDosNosEsgoto.cls +ResFile32="GeoSan.RES" IconForm="FrmMain" Startup="Sub Main" HelpFile="" @@ -152,8 +152,8 @@ Name="GeoSan" HelpContextID="0" CompatibleMode="0" MajorVer=8 -MinorVer=1 -RevisionVer=1 +MinorVer=2 +RevisionVer=2 AutoIncrementVer=0 ServerSupportFiles=0 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda." diff --git a/trunk/Modules/Global.bas b/trunk/Modules/Global.bas index 62b2b34..6acc606 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 = "08.02.01" + Versao_Geo = "08.02.02" 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 = "" diff --git a/trunk/classes/CDistRamalInicioTrecho.cls b/trunk/classes/CDistRamalInicioTrecho.cls index bef1511..e5c2193 100644 --- a/trunk/classes/CDistRamalInicioTrecho.cls +++ b/trunk/classes/CDistRamalInicioTrecho.cls @@ -49,6 +49,6 @@ Trata_Erro: If Err.Number = 0 Or Err.Number = 20 Then Resume Next Else - ErroUsuario.Registra "CDistRamalInicioTrecho", "Distancia", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails + ErroUsuario.Registra "CDistRamalInicioTrecho", "Distancia", CStr(Err.Number), CStr(Err.Description) + " objIdTrecho: " + objIdTrecho + " objIdRamal: " + objIdRamal, True, glo.enviaEmails End If End Function diff --git a/trunk/classes/clsTerraLib.cls b/trunk/classes/clsTerraLib.cls index 9f0a30c..a5cb4d2 100644 --- a/trunk/classes/clsTerraLib.cls +++ b/trunk/classes/clsTerraLib.cls @@ -164,7 +164,7 @@ Trata_Erro: End Function ' Entra neste evento logo após selecionado um nó da rede para ser movido para uma nova posição. ' Ele checa se foi selecionado mais de um nó pois é permitido mover somente um nó por vez -' Se estiver tudo OK então adiciona o layer de snap, referência e ativa o comendo de mover nó de uma rede +' Se estiver tudo OK então adiciona o layer de snap, referência e ativa o comando de mover nó de uma rede ' Entra neste evento antes de salvar no banco, com os dados originais ' ' @@ -250,7 +250,7 @@ Trata_Erro: If Err.Number = 0 Or Err.Number = 20 Then Resume Next Else - ErroUsuario.Registra "clsTerralib", "MoveNetWorkNode", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails + ErroUsuario.Registra "clsTerralib", "MoveNetWorkNode", CStr(Err.Number), CStr(Err.Description) + " objIdTrecho: " + objIdTrecho + " objIdRamal: " + objIdRamal, True, glo.enviaEmails End If End Function -- libgit2 0.21.2