- mensaje

This commit is contained in:
2022-08-01 20:30:26 -07:00
parent d3879c9318
commit 8a84d04ed9

View File

@@ -4303,6 +4303,7 @@ Partial Class Bancos_IE
Dim MensajeError = "" Dim MensajeError = ""
Dim IdPolizaNueva = -1 Dim IdPolizaNueva = -1
Dim FolioPolizaNueva = -1 Dim FolioPolizaNueva = -1
Dim MensajeLog As String = ""
Dim Banc As New ClsBancos Dim Banc As New ClsBancos
Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL()) Dim ObjConta As New ClsContabilidad(Banc.IniciaTransacSQL())
@@ -4427,7 +4428,7 @@ Partial Class Bancos_IE
End If End If
End If End If
MensajeLog += "GeneraCancelacionEnCero:" & GeneraCancelacionEnCero
Dim CvePrePolizaCancelacion As Integer = 0 Dim CvePrePolizaCancelacion As Integer = 0
If Not GeneraCancelacionEnCero Then If Not GeneraCancelacionEnCero Then