14/12/23 - Corrección en el calclulo del limite de abordo y etiqueta de info en pedido.

- Se corrigió la subrutina que calcula el limite de abordo disponible.
- Se agregó que se muestre el total del pedido actual cuando se agregan productos al pedido.

B4A/kms_helperSubs.bas

@@ -615,7 +615,7 @@ Sub traeRuta(db As SQL) As String 'ignore
 	Return r
 End Sub
 
-'Regresa el cliente actual de la base de dtos (CUENTAA).
+'Regresa el cliente actual de la base de datos (CUENTAA).
 Sub traeCliente As String 'ignore
 	Private c As Cursor
 	Private cl As String
@@ -653,6 +653,21 @@ Sub traeTotalCliente As Double
 	Return sumaTotal
 End Sub
 
+'Regresa el TOTAL de la venta del cliente DOE.
+Sub traeTotalClienteDOE As Double
+	Private sumaTotal As Double = 0
+	Private cursorprueba As Cursor = khdb.ExecQuery2("select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente in (Select CUENTA from cuentaa) AND PE_CEDIS = ?", Array As String("DOE"))
+	For i= 0 To cursorprueba.RowCount -1
+		cursorprueba.Position = i
+'		LogColor(cursorprueba.GetString("PE_COSTO_TOT"),Colors.Red)
+		sumaTotal =  sumaTotal +  cursorprueba.GetString("PE_COSTO_TOT")
+		sumaTotal = NumberFormat2(sumaTotal, 0, 2, 2, False)
+'		Log(NumberFormat2(sumaTotal, 0, 2, 2, False))
+	Next
+	cursorprueba.Close
+	Return sumaTotal
+End Sub
+
 'Regresa la venta de la ruta desde pedido.
 Sub traeVenta As Double 'ignore
 	Private sumatotal As Double = 0
@@ -746,6 +761,15 @@ Sub traeVentaAbordo As Double
 	Return va
 End Sub
 
+'Regresa el monto disponible para el abordo.
+Sub traeDisponibleAbordo As Double
+'	Log("Venta abordo")
+	Private disp As Double = 0
+	Log($"${traeLimiteAbordoWeb} - ${traeLimiteAbordoXInventario} - ${traeVentaAbordo}"$)
+	disp = NumberFormat2((traeLimiteAbordoWeb - (traeLimiteAbordoXInventario) - traeVentaAbordo), 0, 2, 2, False)
+	Return disp
+End Sub
+
 Sub string2date(fecha As String) 'ignore
 	Log(fecha)
 	DateTime.DateFormat = "MM/dd/yyyy"