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/Subs.bas

@@ -1599,7 +1599,7 @@ End Sub
 'Trae la sumatoria del pedido del cliente especificado de la tabla PEDIDO.
 'A veces hace el SUM() REDONDEA el monto, con esta función no se redondea nada.
 Sub sumaPedido(cliente As String) As String 'ignore
-	Dim x As Cursor = Starter.skmt.ExecQuery($"select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and pe_cliente = '${cliente}' and PE_CEDIS <> "DOE""$)
+	Dim x As Cursor = Starter.skmt.ExecQuery($"select PE_COSTO_TOT from pedido where PE_CEDIS <> PE_PROID and PE_CEDIS <> "DOE" and PE_CLIENTE <> 0"$)
 	Private total As String = 0
 	For i = 0 To x.RowCount - 1
 		x.Position = i
@@ -1609,5 +1609,5 @@ Sub sumaPedido(cliente As String) As String 'ignore
 '		LogColor(total, Colors.Blue)
 	Next
 	x.Close
-	Return NumberFormat2(total, 0, 2, 2, False)
+	Return NumberFormat2(total, 1, 2, 2, False)
 End Sub