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

--FIX validacion bdh

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-25 09:21:25 -07:00
parent 7f237bec64
commit d5fb7bb02f
2 changed files with 19 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
App_Code/Modelos.vb
View File

@@ -1689,9 +1689,16 @@ 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.FormadePago = Me.ClaveFormaPagoSAT
Timbre.Comprobante.MetodoPago = Me.ClaveMetodoPagoSAT '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.SubTotal = Me.SubTotal
Timbre.Comprobante.Descuentos = Me.Descuento Timbre.Comprobante.Descuentos = Me.Descuento
Timbre.Comprobante.Moneda = Me.MonedaSAT Timbre.Comprobante.Moneda = Me.MonedaSAT
@@ -1720,7 +1727,7 @@ Namespace Modelos
Timbre.Receptor.ResidenciaFiscal = "" Timbre.Receptor.ResidenciaFiscal = ""
Timbre.Receptor.NumeroRegistroTributario = "" Timbre.Receptor.NumeroRegistroTributario = ""
Timbre.Receptor.UsoCFDI = Me.ClaveUsoCFDISAT 'Timbre.Receptor.UsoCFDI = Me.ClaveUsoCFDISAT
Dim totSubTotal As Decimal = Me.SubTotal Dim totSubTotal As Decimal = Me.SubTotal
Dim totIVA As Decimal = Me.IVA Dim totIVA As Decimal = Me.IVA

11
Ventas/Ventas.aspx.vb
View File

@@ -10590,10 +10590,15 @@ Partial Class Ventas
Dim PU As Decimal = Row("PU").ToString().ToDecimal() Dim PU As Decimal = Row("PU").ToString().ToDecimal()
Dim Descuento As Decimal = Row("Descuento").ToString().ToDecimal() Dim Descuento As Decimal = Row("Descuento").ToString().ToDecimal()
If Not ValidaPorcentajeMarcas(CvePS, Cantidad, PU, Descuento) Then Dim EsGarantia As Boolean = Me.EsGarantia OrElse Row("Obs").ToString().Contains("Descuento por garantía")
ValidoDescuentos = False
Exit For If Not EsGarantia Then
If Not ValidaPorcentajeMarcas(CvePS, Cantidad, PU, Descuento) Then
ValidoDescuentos = False
Exit For
End If
End If End If
Next Next
End If End If