mirror of
https://github.com/KeymonSoft/Kelloggs_v4.git
synced 2026-04-21 11:59:13 +00:00
30/11/23 - Cambios para limite abordo.
- Se agregó codigo para que si se modifica la cantidad diractamente (sin botones de mas/menos) se respete el limite de abordo
This commit is contained in:
@@ -715,14 +715,14 @@ End Sub
|
||||
|
||||
'Regresa el total de la venta de abordo en la tabla pedido.
|
||||
Sub traeVentaAbordo As Double
|
||||
Log("Venta abordo")
|
||||
' Log("Venta abordo")
|
||||
Private va As Double = 0
|
||||
Private c As Cursor = khdb.ExecQuery("select sum(PE_COSTO_TOT) as ventaAbordo from pedido where PE_TIPO = 'ABORDO'")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
va = c.GetDouble("ventaAbordo")
|
||||
End If
|
||||
Log("VENTA ABORDO: " & va)
|
||||
' Log("VENTA ABORDO: " & va)
|
||||
Return va
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user