-- impuestos omplementos de pago, cuando es por prepoliza

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)