Correciones de rutas de inventarios

This commit is contained in:
2021-08-04 10:23:04 -07:00
parent af53c90208
commit f31ebb44bf
3 changed files with 6 additions and 3 deletions

View File

@@ -17073,6 +17073,10 @@ Partial Class Ventas
End If
End If
If NuevaFactura <> 1 Then
End If
'verifica si tiene ventaminima
If Cantidad > 0 AndAlso DrPS("VentaMinima").ToString().ToDecimal > 0 Then
'verifico que la cantidad sea multiplo de venta minima, es decir ventaminima =5, solo puede vender 5,10,15...
@@ -17081,7 +17085,6 @@ Partial Class Ventas
Return False
End If
End If
'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))