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

@@ -130,7 +130,7 @@ Sub Class_Globals
 	Private l_monto_c3 As Label
 	Private B_BOLETA As Button
 	Private B_MAPA_RUTA As Button
-	Private Panel5 As Panel
+	Private p_resumenAcumulado As Panel
 	Private L_CUOTA1 As Label
 	Private L_CUOTA2 As Label
 	Private L_CUOTA3 As Label
@@ -278,7 +278,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	kh.centraPanel(PNL_ACCESO, Root.Width)
 	
 	P_RESUMEN.Top = 0 : P_RESUMEN.Left = 0 'Panel Resumen
-	Panel5.Top = 0 : Panel5.Left = 0 ' Panel Resumen Acumualado
+'	p_resumenAcumulado.Top = 0 : p_resumenAcumulado.Left = 0 ' Panel Resumen Acumualado
 	p_downloadPDF.Top = 0 : p_downloadPDF.left = 0
 	P1.Width = GetDeviceLayoutValues.Width
 	P1.Height = GetDeviceLayoutValues.Height
@@ -2389,7 +2389,7 @@ Sub Resumen_Click
 		L_MONTOD.Text = c.GetString("MONTO_DIA")
 		L_MONTOD.Text = Subs.sumaPedido(Subs.traeCliente) 'Trae el monto sin el redondeo que a veces hace el SUM().
 '		Log(Subs.sumaPedido(Subs.traeCliente) & " - " & L_MONTOD.Text)
-		Subs.sumaPedido(Subs.traeCliente)
+'		Subs.sumaPedido(Subs.traeCliente)
 		l_cuantosc.Text = c.GetString("CLIENTES_DIA")
 		l_cuantosn.Text = b.GetString("CUANTOS")
 		L_CUANTOST.Text = NumberFormat2((l_cuantosc.Text + l_cuantosn.Text), 1, 0, 0, False)
@@ -2398,8 +2398,7 @@ Sub Resumen_Click
 		l_efectiva.text = Round2(efectiva*100,2)
 		l_ctast.Text = d.GetString("TOTAL_VISITAR")
 		'l_porvisitar.Text = e.GetString("POR_VISITAR")
-		drop = (c.GetString("CLIENTES_DIA") + b.GetString("CUANTOS"))/ d.GetString("TOTAL_VISITAR")
-		l_drop.Text = Round(drop * 100)
+		l_drop.Text = Round((L_CUANTOST.Text / l_porvisitar.text) * 100)
 		If l_drop.Text + l_efectiva.Text < 100 Then
 			ImageView3.Bitmap = LoadBitmap(File.DirAssets, "tache_rojo.png")
 		Else If l_drop.Text + l_efectiva.Text > =  100 And l_drop.Text + l_efectiva.Text < 130 Then
@@ -2543,14 +2542,14 @@ Sub b_cuotas_Click
 		L_META6.Text = 0
 	End If
 	DDD.Close
-	Panel5.BringToFront
-	Panel5.Visible = True
+	p_resumenAcumulado.BringToFront
+	p_resumenAcumulado.Visible = True
 	Panel2.Visible = False
 	Panel1.Visible = False
 End Sub
 
 Sub B_CUOATA_C_Click
-	Panel5.Visible = False
+	p_resumenAcumulado.Visible = False
 	Panel2.Visible = True
 	Panel1.Visible = True
 End Sub
@@ -3265,4 +3264,8 @@ End Sub
 
 Private Sub P_RESUMEN_Click
 	
+End Sub
+
+Private Sub p_resumenAcumulado_Click
+	
 End Sub