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

10
App_Code/Modelos.vb
View File

@@ -1718,9 +1718,12 @@ Namespace Modelos
Timbre.Comprobante.Folio = Me.Folio.ToString()
Timbre.Comprobante.Serie = Me.Serie
Timbre.Comprobante.Fecha = Me.FechaCP
Timbre.Comprobante.FormadePago = Me.ClaveFormaPagoSAT
Timbre.Comprobante.CondicionesdePago = Me.FormaPago
Timbre.Comprobante.MetodoPago = Me.ClaveMetodoPagoSAT
Timbre.Comprobante.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago().FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {Me.CveMetodoPago}")
Timbre.Comprobante.FormadePago = ClsPaginas.GlobalDTVtaFormaPago().FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {Me.CveFormaPago}")
Timbre.Receptor.UsoCFDI = ClsPaginas.GlobalDTSATUsosCFDI().FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {Me.CveUsoCFDI}")
Timbre.Comprobante.CondicionesdePago = ClsPaginas.GlobalDTVtaFormaPago().FiltroPrimeroValor("FormaPago", $"CveFormaPago = {Me.CveFormaPago}")
Timbre.Comprobante.SubTotal = Me.SubTotal
Timbre.Comprobante.Descuentos = Me.Descuento
Timbre.Comprobante.Moneda = Me.MonedaSAT
@@ -1846,7 +1849,6 @@ Namespace Modelos
}
End If
Me.FemsaFactura = New Modelos.FemsaFactura
Me.Timbre = Timbre
End Sub

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