From ecd5438db0d8cf3bfdc2ebfe66d60e57a599c321 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 19 Apr 2024 19:24:20 -0700 Subject: [PATCH] -- impuestos omplementos de pago, cuando es por prepoliza --- App_Code/ClsBancos.vb | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index 9e1e30aa8..d01135057 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -1099,7 +1099,7 @@ Public Class ClsBancos Dim Timbrado As New Timbrado Dim CFDIVersion As String = "4.0" - If GetComplementoPagosImpuestos(CveIE, UsuarioActual.CveEmpresa) Then + If GetComplementoPagosImpuestos(CveIE, UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then dttpagosimpuestos = DtResultados End If @@ -1386,7 +1386,7 @@ Public Class ClsBancos Return Retorno End Function - Public Function GetComplementoPagosImpuestos(CveIE As Integer, CveEmpresa As Integer) As Boolean + Public Function GetComplementoPagosImpuestos(CveIE As Integer, CveEmpresa As Integer, Optional CvePrePoliza As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Banc_ComplementoPagoImpuestosGet") @@ -1394,6 +1394,7 @@ Public Class ClsBancos With SqlAdapter.SelectCommand.Parameters .Add("@CveIE", SqlDbType.Int).Value = CveIE .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza End With Try SqlAdapter.Fill(Data)