AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- impuestos omplementos de pago, cuando es por prepoliza

Browse Source
This commit is contained in:
rrene
2024-04-19 19:24:20 -07:00
parent 1d4af940a1
commit ecd5438db0
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
App_Code/ClsBancos.vb
View File

@@ -1099,7 +1099,7 @@ Public Class ClsBancos
Dim Timbrado As New Timbrado Dim Timbrado As New Timbrado
Dim CFDIVersion As String = "4.0" Dim CFDIVersion As String = "4.0"
If GetComplementoPagosImpuestos(CveIE, UsuarioActual.CveEmpresa) Then If GetComplementoPagosImpuestos(CveIE, UsuarioActual.CveEmpresa, CvePrePoliza:=CvePrePoliza) Then
dttpagosimpuestos = DtResultados dttpagosimpuestos = DtResultados
End If End If
@@ -1386,7 +1386,7 @@ Public Class ClsBancos
Return Retorno Return Retorno
End Function 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 Dim Retorno As Boolean = False
DataAdapter("PA_Banc_ComplementoPagoImpuestosGet") DataAdapter("PA_Banc_ComplementoPagoImpuestosGet")
@@ -1394,6 +1394,7 @@ Public Class ClsBancos
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@CveIE", SqlDbType.Int).Value = CveIE .Add("@CveIE", SqlDbType.Int).Value = CveIE
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@CvePrePoliza", SqlDbType.Int).Value = CvePrePoliza
End With End With
Try Try
SqlAdapter.Fill(Data) SqlAdapter.Fill(Data)