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

--FIX condiciones de pago en timbrado

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-11 11:48:11 -07:00
parent 7107f9420c
commit 9e38d452f9
2 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
Ventas/PVCobranza.aspx.vb
View File

@@ -1089,6 +1089,13 @@ Partial Class Ventas_PVCobranza
End Sub
Private Sub AjustarTimbreFactura(ByRef ObjFactura As Modelos.Factura)
'TEMPORAL DEBE ESTAR EN EL PREPARA TIMBRE
ObjFactura.Timbre.Comprobante.MetodoPago = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjFactura.CveMetodoPago}")
ObjFactura.Timbre.Comprobante.FormadePago = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjFactura.CveFormaPago}")
ObjFactura.Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjFactura.CveUsoCFDI}")
ObjFactura.Timbre.Comprobante.CondicionesdePago = GlobalDTVtaFormaPago().FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjFactura.CveFormaPago}")
ObjFactura.Timbre.CFDIRelacionados.UUID.Clear()
If ListaAnticiposAplicados IsNot Nothing Then
@@ -1131,9 +1138,11 @@ Partial Class Ventas_PVCobranza
ObjNC.Timbre.CFDIRelacionados.TipoRelacion = "07"
ObjNC.Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo"
'TEMPORAL DEBE ESTAR EN EL PREPARA TIMBRE
ObjNC.Timbre.Comprobante.MetodoPago = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjNC.CveMetodoPago}") ' Obj.ClaveMetodoPagoSAT
ObjNC.Timbre.Comprobante.FormadePago = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjNC.CveFormaPago}") 'Obj.ClaveFormaPagoSAT
ObjNC.Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjNC.CveUsoCFDI}")
ObjNC.Timbre.Comprobante.CondicionesdePago = GlobalDTVtaFormaPago().FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjNC.CveFormaPago}")
End Sub
Private Function ActualizaAnticipos(CveIE As Integer, CveVenta As Integer, Tipo As String, Folio As String, ByRef ObjVentas As ClsVentas, ByRef ObjEventoBitacora As ClsOIEventos) As Boolean