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

Refacturaciones con venta minima

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-08-04 10:24:33 -07:00
parent f31ebb44bf
commit c854843992
1 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Ventas/Ventas.aspx.vb
View File

@@ -17073,18 +17073,17 @@ Partial Class Ventas
End If End If
End If End If
'SI NO ES REFACTURACION verifica si tiene ventaminima
If NuevaFactura <> 1 Then If NuevaFactura <> 1 Then
If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then
End If 'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
'verifica si tiene ventaminima If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then
If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString()))
'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15... Return False
If Cantidad Mod DrPS("VentaMinima").ToString().ToDecimal <> 0 Then End If
Alert(String.Format("El producto se vende solo en cantidades de {0}", DrPS("VentaMinima").ToString()))
Return False
End If End If
End If End If
'VERIFICA SI EN LA FACTURA PADRE SE DESGLOSO EL IEPS 'VERIFICA SI EN LA FACTURA PADRE SE DESGLOSO EL IEPS
Dim FacturaDesglosoIEPS As Boolean = ((CveDevolucion > 0 AndAlso NuevaFactura = 1) AndAlso (Me.ObjFacturaNC IsNot Nothing AndAlso Not Me.ObjFacturaNC.VentaDesglosaIEPS)) Dim FacturaDesglosoIEPS As Boolean = ((CveDevolucion > 0 AndAlso NuevaFactura = 1) AndAlso (Me.ObjFacturaNC IsNot Nothing AndAlso Not Me.ObjFacturaNC.VentaDesglosaIEPS))