- mensaje
This commit is contained in:
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user