From ce781016459d2bdaeeeb7782a7d6e97363df89ae Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 22 Jan 2021 11:54:07 -0700 Subject: [PATCH] =?UTF-8?q?codigo=20para=20mejorar=20devoluci=C3=B3n=20de?= =?UTF-8?q?=20nc,=20de=20proveedor?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) 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