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