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

--fix tipos venta

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-03-20 17:08:52 -07:00
parent 356e97ad36
commit b3944d2f11
2 changed files with 17 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/Ventas.aspx.vb
View File

@@ -14649,7 +14649,7 @@ Partial Class Ventas
'VERIFICA SI BONIFICACION
If ListaNCDescuento.Any(Function(RNC) (RNC.Num1 = 2)) Then
CveTipoVentaGuardar = 7 ' BONIFICACION
ElseIf ListaNCDescuento.Any(Function(RNC) (Not RNC.Num1 = 2)) Then
ElseIf ListaNCDescuento.Any(Function(RNC) (RNC.Num1 = 1)) Then
CveTipoVentaGuardar = 9 ' CANCELACION DE USADOS
End If
End If
@@ -14658,7 +14658,7 @@ Partial Class Ventas
'VERIFICA SI BONIFICACION
If ListaRemisionesNC.Any(Function(RNC) (RNC.Num1 = 2)) Then
CveTipoVentaGuardar = 7 ' BONIFICACION
ElseIf ListaRemisionesNC.Any(Function(RNC) (Not RNC.Num1 = 2)) Then
ElseIf ListaRemisionesNC.Any(Function(RNC) (RNC.Num1 = 1)) Then
CveTipoVentaGuardar = 9 ' CANCELACION DE USADOS
End If
End If
@@ -37929,6 +37929,7 @@ Partial Class Ventas
ObjFacturaProntoPago.DtVentasNC = DtVentasNC
ObjFacturaProntoPago.Timbre = PreParaTimbre(ObjFacturaProntoPago)
ObjFacturaProntoPago.CveTipoVenta = 8
Resp = ObjFacturaProntoPago.EmitirFactura(False, Transac:=SqlTransaccion)