Commit da75e3ed33f0836f27772b2e7e4c9922509e0317

Authored by José Maria Villac Pinheiro
1 parent f8c5460f
Exists in main

Modificada apresentação dos logs de erro para identificar claramente quando acon…

…tercer um erro em ramal e ligação.
.gitignore
... ... @@ -4,5 +4,10 @@ VerificaDlls
4 4  
5 5 # Arquivos específicos
6 6 isetup-5.4.2.exe
7   -trunk\GeoSan.exe
  7 +GeoSan.exe
  8 +install/GeraSetupGeoSan/ArquivosInstGeoSan/GeoSan.exe
  9 +trunk/GeoSan.exe
  10 +install/GeraSetupGeoSan/Output
8 11 install\GeraSetupGeoSan\ArquivosInstGeoSan\GeoSan.exe
  12 +trunk\GeoSan.exe
  13 +install\GeraSetupGeoSan\Output
9 14 \ No newline at end of file
... ...
install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss
1 1 #define SetupBaseName "SetupGeoSan-v."
2   -#define AppVersionFile "08.02.01"
  2 +#define AppVersionFile "08.02.02"
3 3  
4 4 [Setup]
5 5 AppName=GeoSan
... ...
trunk/GeoSan.vbp
... ... @@ -139,8 +139,8 @@ Class=clsRamalController; classes\clsRamalController.cls
139 139 Class=clsConsumidorModel; classes\clsConsumidorModel.cls
140 140 Class=clsConsumidorControler; classes\clsConsumidorControler.cls
141 141 Object={F03ABD98-7B60-43E4-9934-DA5F0D19FDAC}#1.0#0; TeComViewManager.dll
142   -ResFile32="GeoSan.RES"
143 142 Class=CAcertaZsDosNosEsgoto; classes\CAcertaZsDosNosEsgoto.cls
  143 +ResFile32="GeoSan.RES"
144 144 IconForm="FrmMain"
145 145 Startup="Sub Main"
146 146 HelpFile=""
... ... @@ -152,8 +152,8 @@ Name="GeoSan"
152 152 HelpContextID="0"
153 153 CompatibleMode="0"
154 154 MajorVer=8
155   -MinorVer=1
156   -RevisionVer=1
  155 +MinorVer=2
  156 +RevisionVer=2
157 157 AutoIncrementVer=0
158 158 ServerSupportFiles=0
159 159 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda."
... ...
trunk/Modules/Global.bas
... ... @@ -201,7 +201,7 @@ Public Sub Main()
201 201 End If
202 202 'Configura a versão atual do GeoSan
203 203 Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision
204   - Versao_Geo = "08.02.01"
  204 + Versao_Geo = "08.02.02"
205 205 glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe
206 206 SaveLoadGlobalData glo.diretorioGeoSan + "/controles/variaveisGlobais.txt", True 'salva em um arquivo todas as variáveis globais para poderem ser acessadas por outras aplicações
207 207 connn = ""
... ...
trunk/classes/CDistRamalInicioTrecho.cls
... ... @@ -49,6 +49,6 @@ Trata_Erro:
49 49 If Err.Number = 0 Or Err.Number = 20 Then
50 50 Resume Next
51 51 Else
52   - ErroUsuario.Registra "CDistRamalInicioTrecho", "Distancia", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails
  52 + ErroUsuario.Registra "CDistRamalInicioTrecho", "Distancia", CStr(Err.Number), CStr(Err.Description) + " objIdTrecho: " + objIdTrecho + " objIdRamal: " + objIdRamal, True, glo.enviaEmails
53 53 End If
54 54 End Function
... ...
trunk/classes/clsTerraLib.cls
... ... @@ -164,7 +164,7 @@ Trata_Erro:
164 164 End Function
165 165 ' Entra neste evento logo após selecionado um nó da rede para ser movido para uma nova posição.
166 166 ' Ele checa se foi selecionado mais de um nó pois é permitido mover somente um nó por vez
167   -' Se estiver tudo OK então adiciona o layer de snap, referência e ativa o comendo de mover nó de uma rede
  167 +' Se estiver tudo OK então adiciona o layer de snap, referência e ativa o comando de mover nó de uma rede
168 168 ' Entra neste evento antes de salvar no banco, com os dados originais
169 169 '
170 170 '
... ... @@ -250,7 +250,7 @@ Trata_Erro:
250 250 If Err.Number = 0 Or Err.Number = 20 Then
251 251 Resume Next
252 252 Else
253   - ErroUsuario.Registra "clsTerralib", "MoveNetWorkNode", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails
  253 + ErroUsuario.Registra "clsTerralib", "MoveNetWorkNode", CStr(Err.Number), CStr(Err.Description) + " objIdTrecho: " + objIdTrecho + " objIdRamal: " + objIdRamal, True, glo.enviaEmails
254 254 End If
255 255  
256 256 End Function
... ...