diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 0f859956c..80424468e 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -3450,9 +3450,16 @@ Partial Class Bancos_IE
                                             Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
                                             Dim CveCuentaIVAxAcreditarDevDinC = 0
                                             Dim CveCuentaIVAAcreditableDevDinC = 0
-                                            Dim IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
-                                            Dim IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
 
+                                            Dim IdCtaIVAXAcreditarDevDinC As Integer
+                                            Dim IdCtaIVAAcreditableDevDinC As Integer
+
+                                            If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then
+                                                IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                                                IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                                            Else
+                                                MsgError = "Sin Registros de porcentaje impuesto"
+                                            End If
 
                                             Dim IVADevMN As Decimal = 0
                                             Dim IEPSDevMN As Decimal = 0
@@ -4508,7 +4515,8 @@ Partial Class Bancos_IE
             End If
 
             If UsuarioActual.Empresa.Funcionalidad(200).ToString = "1" Then
-                If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaCancelacion, UsuarioActual.CveUsuario, UsuarioActual.Empresa, ObjConta:=ObjAC) Then
+
+                If Not ObjConta.ContabilizarPrePoliza(CvePrePolizaCancelacion, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IDPoliza > 0, IDPoliza, -1), ObjConta:=ObjAC) Then
                     ErrorCancelar = True
                     MensajeError = "Error al contabilizar poliza"
                 End If