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

@@ -62,7 +62,7 @@ Sub Class_Globals
 	Private IMEN As EditText
 	Private Entrar As Button
 	Private Panel1 As Panel
-	Private ImageView4 As ImageView
+	Private i_engranes As ImageView
 	Private E_SERVER As EditText
 	Private B_SERVER As Button
 	Private B_MACIMP As Button
@@ -600,7 +600,7 @@ Sub user_EnterPressed
 	If existe = 1 Then Subs.iniciaActividad("Principal")
 End Sub
 
-Sub ImageView4_Click
+Sub i_engranes_Click
 	Entrar.Visible = False
 '	Starter.server = "http://201.99.139.28:1782"
 '	Starter.server = "http://177.244.63.54:1782"
@@ -624,7 +624,7 @@ Sub ImageView4_Click
 	If user.Text = "KMTS1" Then b_importarBD.Visible = True Else b_importarBD.Visible = False
 End Sub
 
-Private Sub ImageView4_LongClick
+Private Sub i_engranes_LongClick
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 '	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 '	Subs.copiaDB(Result)