Download as
Browse Code »

Commit 48e64d72e190f703d4c405babc75be4322d7d798

Authored by José Maria Villac Pinheiro
1 parent f2745c94
Exists in textosRedesEsgoto and in 1 other branch main

Colocado flag para detectar localização de possíveis erros, informando a querie onde foi o erro.

Showing 6 changed files with 13 additions and 5 deletions   Show diff stats
trunk/Controles/variaveisGlobais.txt
View file @48e64d7
No preview for this file type
trunk/Forms/frmCadastroRamal.frm
  Diff comments   View file @48e64d7
... ... @@ -830,6 +830,8 @@ End Function
830 830 '
831 831 Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean)
832 832 On Error GoTo Trata_Erro
  833 + Dim posicaoErro as String
  834 + Dim strErro as String
833 835 Dim str As String
834 836 Dim itmx As ListItem
835 837 Dim strIni As String
... ... @@ -913,6 +915,8 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean)
913 915 Me.lblResultado.Caption = "Localizadas " & i & " referencias"
914 916 If str <> "" Then
915 917 Set rs = New ADODB.Recordset
  918 + posicaoErro = "01"
  919 + strErro = str
916 920 rs.Open str, Conn, adOpenForwardOnly, adLockOptimistic
917 921 If rs.EOF = False Then
918 922 'CARREGA NO FORM TODAS AS LIGAÇÕES DISPONIVEIS COM BASE NO PRÉ FILTRO
... ... @@ -962,6 +966,8 @@ saida:
962 966 str = "SELECT " & iniREF_NROLIGACAO & " AS " + """" + "NRO_LIGACAO" + """" + " FROM " & iniTabela
963 967 str = str & " WHERE LOTE_ID = '" & idAutoLote & "' AND " & iniREF_NROLIGACAO & " <> '0'"
964 968 Set rs = New ADODB.Recordset
  969 + posicaoErro = "02"
  970 + strErro = str
965 971 rs.Open str, Conn, adOpenKeyset, adLockOptimistic
966 972 str = ""
967 973 strLigacoes = ""
... ... @@ -980,6 +986,8 @@ saida:
980 986 str = strIni & " WHERE " + """" + ma + """" + " IN ('" & strLigacoes & "') AND " + """" + ma + """" + " NOT IN (SELECT " + """" + ma + """" + " FROM " + """" + TB_Ligacoes + """" + ")"
981 987 End If
982 988 Set rs = New ADODB.Recordset
  989 + posicaoErro = "03"
  990 + strErro = str
983 991 rs.Open str, Conn, ReadOnly, adLockOptimistic
984 992 If rs.EOF = False Then
985 993 Do While Not rs.EOF And blnCancelar = False
... ... @@ -1017,9 +1025,9 @@ Trata_Erro:
1017 1025 If Err.Number = 0 Or Err.Number = 20 Then
1018 1026 Resume Next
1019 1027 ElseIf Err.Number = -2147467259 Then
1020   - ErroUsuario.Registra "FrmCadastroRamal", "Carrega_PreFiltro (-2147467259)", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails
  1028 + ErroUsuario.Registra "FrmCadastroRamal", "Carrega_PreFiltro (-2147467259)", CStr(Err.Number), "Posição erro: " + posicaoErro + " String erro: " + strErro + " - " + CStr(Err.Description), True, glo.enviaEmails
1021 1029 Else
1022   - ErroUsuario.Registra "FrmCadastroRamal", "Carrega_PreFiltro", CStr(Err.Number), CStr(Err.Description), True, glo.enviaEmails
  1030 + ErroUsuario.Registra "FrmCadastroRamal", "Carrega_PreFiltro", CStr(Err.Number), CStr(Err.Number), "Posição erro: " + posicaoErro + " String erro: " + strErro + " - " + CStr(Err.Description), True, glo.enviaEmails
1023 1031 End If
1024 1032  
1025 1033 End Function
... ...
trunk/GeoSan.exe
View file @48e64d7
No preview for this file type
trunk/GeoSan.vbp
  Diff comments   View file @48e64d7
... ... @@ -152,7 +152,7 @@ HelpContextID=&quot;0&quot;
152 152 CompatibleMode="0"
153 153 MajorVer=8
154 154 MinorVer=1
155   -RevisionVer=0
  155 +RevisionVer=1
156 156 AutoIncrementVer=0
157 157 ServerSupportFiles=0
158 158 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda."
... ...
trunk/GeoSan.vbw
  Diff comments   View file @48e64d7
... ... @@ -5,7 +5,7 @@ frmAbout = 0, 0, 0, 0, C, 154, 154, 1273, 886, C
5 5 FrmTypes = 0, 0, 0, 0, C, 176, 176, 1295, 908, C
6 6 FrmMain = 16, 71, 1497, 969, C, 139, 12, 1258, 744, C
7 7 FrmAssociation = 35, 68, 1273, 637, C, 220, 220, 1339, 952, C
8   -FrmCadastroRamal = 63, 13, 1453, 868, C, 45, 39, 1164, 771, C
  8 +FrmCadastroRamal = 63, 13, 1453, 868, , 45, 39, 1164, 771, C
9 9 frmCadastroRamalFiltro = 100, 100, 1246, 731, C, 264, 264, 1383, 996, C
10 10 frmCanvas = 12, 33, 1492, 898, C, 110, 110, 1229, 842, C
11 11 frmConsumidoresDesabastecidos = 110, 110, 1229, 842, C, 308, 308, 1427, 1040, C
... ...
trunk/Modules/Global.bas
  Diff comments   View file @48e64d7
... ... @@ -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.01.00"
  204 + Versao_Geo = "08.01.01"
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 = ""
... ...