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.Folio = Me.Folio.ToString()
Timbre.Comprobante.Serie = Me.Serie Timbre.Comprobante.Serie = Me.Serie
Timbre.Comprobante.Fecha = Me.FechaCP Timbre.Comprobante.Fecha = Me.FechaCP
Timbre.Comprobante.FormadePago = Me.ClaveFormaPagoSAT
Timbre.Comprobante.CondicionesdePago = Me.FormaPago Timbre.Comprobante.MetodoPago = ClsPaginas.GlobalDTVtaMetodoPago().FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {Me.CveMetodoPago}")
Timbre.Comprobante.MetodoPago = Me.ClaveMetodoPagoSAT 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.SubTotal = Me.SubTotal
Timbre.Comprobante.Descuentos = Me.Descuento Timbre.Comprobante.Descuentos = Me.Descuento
Timbre.Comprobante.Moneda = Me.MonedaSAT Timbre.Comprobante.Moneda = Me.MonedaSAT
@@ -1846,7 +1849,6 @@ Namespace Modelos
} }
End If End If
Me.FemsaFactura = New Modelos.FemsaFactura Me.FemsaFactura = New Modelos.FemsaFactura
Me.Timbre = Timbre Me.Timbre = Timbre
End Sub End Sub

9
Ventas/PVCobranza.aspx.vb
View File

@@ -1089,6 +1089,13 @@ Partial Class Ventas_PVCobranza
End Sub End Sub
Private Sub AjustarTimbreFactura(ByRef ObjFactura As Modelos.Factura) 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() ObjFactura.Timbre.CFDIRelacionados.UUID.Clear()
If ListaAnticiposAplicados IsNot Nothing Then If ListaAnticiposAplicados IsNot Nothing Then
@@ -1131,9 +1138,11 @@ Partial Class Ventas_PVCobranza
ObjNC.Timbre.CFDIRelacionados.TipoRelacion = "07" ObjNC.Timbre.CFDIRelacionados.TipoRelacion = "07"
ObjNC.Timbre.CFDIRelacionados.TipoRelacionTexto = "07-CFDI por aplicación de anticipo" 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.MetodoPago = GlobalDTVtaMetodoPago.FiltroPrimeroValor("ClaveMetodoPagoSAT", $"CveMetodoPago = {ObjNC.CveMetodoPago}") ' Obj.ClaveMetodoPagoSAT
ObjNC.Timbre.Comprobante.FormadePago = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjNC.CveFormaPago}") 'Obj.ClaveFormaPagoSAT ObjNC.Timbre.Comprobante.FormadePago = GlobalDTVtaFormaPago.FiltroPrimeroValor("ClaveFormaPagoSAT", $"CveFormaPago = {ObjNC.CveFormaPago}") 'Obj.ClaveFormaPagoSAT
ObjNC.Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjNC.CveUsoCFDI}") ObjNC.Timbre.Receptor.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", $"CveUsoCFDI = {ObjNC.CveUsoCFDI}")
ObjNC.Timbre.Comprobante.CondicionesdePago = GlobalDTVtaFormaPago().FiltroPrimeroValor("FormaPago", $"CveFormaPago = {ObjNC.CveFormaPago}")
End Sub 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 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