Download as
Browse Code »

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.
Showing 6 changed files with 14 additions and 9 deletions   Show diff stats
@@ -4,5 +4,10 @@ VerificaDlls @@ -4,5 +4,10 @@ VerificaDlls
4 4
5 # Arquivos específicos 5 # Arquivos específicos
6 isetup-5.4.2.exe 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 install\GeraSetupGeoSan\ArquivosInstGeoSan\GeoSan.exe 11 install\GeraSetupGeoSan\ArquivosInstGeoSan\GeoSan.exe
  12 +trunk\GeoSan.exe
  13 +install\GeraSetupGeoSan\Output
9 \ No newline at end of file 14 \ No newline at end of file
install/GeraSetupGeoSan/Codigo Gerador Instalador Geosan com TerraComponents.iss
  Diff comments   View file @da75e3e
1 #define SetupBaseName "SetupGeoSan-v." 1 #define SetupBaseName "SetupGeoSan-v."
2 -#define AppVersionFile "08.02.01" 2 +#define AppVersionFile "08.02.02"
3 3
4 [Setup] 4 [Setup]
5 AppName=GeoSan 5 AppName=GeoSan
trunk/GeoSan.vbp
  Diff comments   View file @da75e3e
@@ -139,8 +139,8 @@ Class=clsRamalController; classes\clsRamalController.cls @@ -139,8 +139,8 @@ Class=clsRamalController; classes\clsRamalController.cls
139 Class=clsConsumidorModel; classes\clsConsumidorModel.cls 139 Class=clsConsumidorModel; classes\clsConsumidorModel.cls
140 Class=clsConsumidorControler; classes\clsConsumidorControler.cls 140 Class=clsConsumidorControler; classes\clsConsumidorControler.cls
141 Object={F03ABD98-7B60-43E4-9934-DA5F0D19FDAC}#1.0#0; TeComViewManager.dll 141 Object={F03ABD98-7B60-43E4-9934-DA5F0D19FDAC}#1.0#0; TeComViewManager.dll
142 -ResFile32="GeoSan.RES"  
143 Class=CAcertaZsDosNosEsgoto; classes\CAcertaZsDosNosEsgoto.cls 142 Class=CAcertaZsDosNosEsgoto; classes\CAcertaZsDosNosEsgoto.cls
  143 +ResFile32="GeoSan.RES"
144 IconForm="FrmMain" 144 IconForm="FrmMain"
145 Startup="Sub Main" 145 Startup="Sub Main"
146 HelpFile="" 146 HelpFile=""
@@ -152,8 +152,8 @@ Name="GeoSan" @@ -152,8 +152,8 @@ Name="GeoSan"
152 HelpContextID="0" 152 HelpContextID="0"
153 CompatibleMode="0" 153 CompatibleMode="0"
154 MajorVer=8 154 MajorVer=8
155 -MinorVer=1  
156 -RevisionVer=1 155 +MinorVer=2
  156 +RevisionVer=2
157 AutoIncrementVer=0 157 AutoIncrementVer=0
158 ServerSupportFiles=0 158 ServerSupportFiles=0
159 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda." 159 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda."
trunk/Modules/Global.bas
  Diff comments   View file @da75e3e
@@ -201,7 +201,7 @@ Public Sub Main() @@ -201,7 +201,7 @@ Public Sub Main()
201 End If 201 End If
202 'Configura a versão atual do GeoSan 202 'Configura a versão atual do GeoSan
203 Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision 203 Versao_Geo = App.Major & "." & App.Minor & "." & App.Revision
204 - Versao_Geo = "08.02.01" 204 + Versao_Geo = "08.02.02"
205 glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe 205 glo.diretorioGeoSan = App.path 'salva globalmente o caminho onde encontra-se o GeoSan.exe
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 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 connn = "" 207 connn = ""
trunk/classes/CDistRamalInicioTrecho.cls
  Diff comments   View file @da75e3e
@@ -49,6 +49,6 @@ Trata_Erro: @@ -49,6 +49,6 @@ Trata_Erro:
49 If Err.Number = 0 Or Err.Number = 20 Then 49 If Err.Number = 0 Or Err.Number = 20 Then
50 Resume Next 50 Resume Next
51 Else 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 End If 53 End If
54 End Function 54 End Function
trunk/classes/clsTerraLib.cls
  Diff comments   View file @da75e3e
@@ -164,7 +164,7 @@ Trata_Erro: @@ -164,7 +164,7 @@ Trata_Erro:
164 End Function 164 End Function
165 ' Entra neste evento logo após selecionado um nó da rede para ser movido para uma nova posição. 165 ' Entra neste evento logo após selecionado um nó da rede para ser movido para uma nova posição.
166 ' Ele checa se foi selecionado mais de um nó pois é permitido mover somente um nó por vez 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 ' Entra neste evento antes de salvar no banco, com os dados originais 168 ' Entra neste evento antes de salvar no banco, com os dados originais
169 ' 169 '
170 ' 170 '
@@ -250,7 +250,7 @@ Trata_Erro: @@ -250,7 +250,7 @@ Trata_Erro:
250 If Err.Number = 0 Or Err.Number = 20 Then 250 If Err.Number = 0 Or Err.Number = 20 Then
251 Resume Next 251 Resume Next
252 Else 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 End If 254 End If
255 255
256 End Function 256 End Function