diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index b71c4f47d..55eea8a87 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -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 diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 74d0ff9d5..66b7cecbb 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -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