Commit da75e3ed33f0836f27772b2e7e4c9922509e0317
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
.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
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 | ... | ... |