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,6 +830,8 @@ End Function
830 ' 830 '
831 Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean) 831 Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean)
832 On Error GoTo Trata_Erro 832 On Error GoTo Trata_Erro
  833 + Dim posicaoErro as String
  834 + Dim strErro as String
833 Dim str As String 835 Dim str As String
834 Dim itmx As ListItem 836 Dim itmx As ListItem
835 Dim strIni As String 837 Dim strIni As String
@@ -913,6 +915,8 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean) @@ -913,6 +915,8 @@ Private Function Carrega_PreFiltro(ByVal ComLotes As Boolean)
913 Me.lblResultado.Caption = "Localizadas " & i & " referencias" 915 Me.lblResultado.Caption = "Localizadas " & i & " referencias"
914 If str <> "" Then 916 If str <> "" Then
915 Set rs = New ADODB.Recordset 917 Set rs = New ADODB.Recordset
  918 + posicaoErro = "01"
  919 + strErro = str
916 rs.Open str, Conn, adOpenForwardOnly, adLockOptimistic 920 rs.Open str, Conn, adOpenForwardOnly, adLockOptimistic
917 If rs.EOF = False Then 921 If rs.EOF = False Then
918 'CARREGA NO FORM TODAS AS LIGAÇÕES DISPONIVEIS COM BASE NO PRÉ FILTRO 922 'CARREGA NO FORM TODAS AS LIGAÇÕES DISPONIVEIS COM BASE NO PRÉ FILTRO
@@ -962,6 +966,8 @@ saida: @@ -962,6 +966,8 @@ saida:
962 str = "SELECT " & iniREF_NROLIGACAO & " AS " + """" + "NRO_LIGACAO" + """" + " FROM " & iniTabela 966 str = "SELECT " & iniREF_NROLIGACAO & " AS " + """" + "NRO_LIGACAO" + """" + " FROM " & iniTabela
963 str = str & " WHERE LOTE_ID = '" & idAutoLote & "' AND " & iniREF_NROLIGACAO & " <> '0'" 967 str = str & " WHERE LOTE_ID = '" & idAutoLote & "' AND " & iniREF_NROLIGACAO & " <> '0'"
964 Set rs = New ADODB.Recordset 968 Set rs = New ADODB.Recordset
  969 + posicaoErro = "02"
  970 + strErro = str
965 rs.Open str, Conn, adOpenKeyset, adLockOptimistic 971 rs.Open str, Conn, adOpenKeyset, adLockOptimistic
966 str = "" 972 str = ""
967 strLigacoes = "" 973 strLigacoes = ""
@@ -980,6 +986,8 @@ saida: @@ -980,6 +986,8 @@ saida:
980 str = strIni & " WHERE " + """" + ma + """" + " IN ('" & strLigacoes & "') AND " + """" + ma + """" + " NOT IN (SELECT " + """" + ma + """" + " FROM " + """" + TB_Ligacoes + """" + ")" 986 str = strIni & " WHERE " + """" + ma + """" + " IN ('" & strLigacoes & "') AND " + """" + ma + """" + " NOT IN (SELECT " + """" + ma + """" + " FROM " + """" + TB_Ligacoes + """" + ")"
981 End If 987 End If
982 Set rs = New ADODB.Recordset 988 Set rs = New ADODB.Recordset
  989 + posicaoErro = "03"
  990 + strErro = str
983 rs.Open str, Conn, ReadOnly, adLockOptimistic 991 rs.Open str, Conn, ReadOnly, adLockOptimistic
984 If rs.EOF = False Then 992 If rs.EOF = False Then
985 Do While Not rs.EOF And blnCancelar = False 993 Do While Not rs.EOF And blnCancelar = False
@@ -1017,9 +1025,9 @@ Trata_Erro: @@ -1017,9 +1025,9 @@ Trata_Erro:
1017 If Err.Number = 0 Or Err.Number = 20 Then 1025 If Err.Number = 0 Or Err.Number = 20 Then
1018 Resume Next 1026 Resume Next
1019 ElseIf Err.Number = -2147467259 Then 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 Else 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 End If 1031 End If
1024 1032
1025 End Function 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,7 +152,7 @@ HelpContextID=&quot;0&quot;
152 CompatibleMode="0" 152 CompatibleMode="0"
153 MajorVer=8 153 MajorVer=8
154 MinorVer=1 154 MinorVer=1
155 -RevisionVer=0 155 +RevisionVer=1
156 AutoIncrementVer=0 156 AutoIncrementVer=0
157 ServerSupportFiles=0 157 ServerSupportFiles=0
158 VersionCompanyName="NEXUS GeoEngenharia e Com. Ltda." 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,7 +5,7 @@ frmAbout = 0, 0, 0, 0, C, 154, 154, 1273, 886, C
5 FrmTypes = 0, 0, 0, 0, C, 176, 176, 1295, 908, C 5 FrmTypes = 0, 0, 0, 0, C, 176, 176, 1295, 908, C
6 FrmMain = 16, 71, 1497, 969, C, 139, 12, 1258, 744, C 6 FrmMain = 16, 71, 1497, 969, C, 139, 12, 1258, 744, C
7 FrmAssociation = 35, 68, 1273, 637, C, 220, 220, 1339, 952, C 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 frmCadastroRamalFiltro = 100, 100, 1246, 731, C, 264, 264, 1383, 996, C 9 frmCadastroRamalFiltro = 100, 100, 1246, 731, C, 264, 264, 1383, 996, C
10 frmCanvas = 12, 33, 1492, 898, C, 110, 110, 1229, 842, C 10 frmCanvas = 12, 33, 1492, 898, C, 110, 110, 1229, 842, C
11 frmConsumidoresDesabastecidos = 110, 110, 1229, 842, C, 308, 308, 1427, 1040, C 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,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.01.00" 204 + Versao_Geo = "08.01.01"
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 = ""