- VERSION 5.05.07

- Se quito del ticket de venta el header de las promos
- Se agregó a Resumen Dia el monto y piezas de abordo

B4A/C_Principal.bas

@@ -163,6 +163,8 @@ Sub Class_Globals
 	Private l_nes_humedos As Label
 	Private l_nes_secos As Label
 	Private l_conagra As Label
+	Private l_montoAbordo As Label
+	Private l_pzasAbordo As Label
 End Sub
 
 Sub initialize
@@ -257,6 +259,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	P1.Top = 0 : P1.left = 0
 	P_RESUMEN.Top = 0 : P_RESUMEN.left = 0
 	P_RESUMEN.Width = Root.Width
+	P_RESUMEN.Left = 0 : P_RESUMEN.top = 0
+	P_RESUMEN.Width = Root.Width : P_RESUMEN.Height = Root.Height
+	B_OK_RES.Left = Round(Root.Width/2)-(B_OK_RES.Width/2)
 End Sub
 
 Sub IsConnectedToInternet As Boolean
@@ -430,9 +435,6 @@ Sub B4XPage_Appear
 		B4XPage_Appear
 	End If
 	CallSub(Starter,"ENVIA_ULTIMA_GPS")
-	
-	
-	
 End Sub
 
 'Sub Activity_Pause (UserClosed As Boolean)
@@ -2485,7 +2487,7 @@ Sub Resumen_Click
 		If E1.GetString("CUANTOS") > 0 Then
 			c=skmt.ExecQuery2("Select  sum(PE_COSTO_TOT) As MONTO_DIA from pedido where PE_TIPO = ?", Array As String("VENTA"))
 			c.Position = 0
-			L_VENTA.Text = numberformat2(c.GetString("MONTO_DIA"), 1, 2, 2, true)
+			L_VENTA.Text = NumberFormat2(c.GetString("MONTO_DIA"), 1, 2, 2, True)
 			c.Close
 		Else
 			L_VENTA.Text = 0
@@ -2551,6 +2553,18 @@ Sub Resumen_Click
 		c.Close
 		b.Close
 	End If
+	Private pzasAbordo As String = 0
+	Private montoAbordo As String = 0
+	Private px As Cursor = Starter.skmt.ExecQuery("select cat_gp_almacen, cat_gp_precio from cat_gunaprod2 where cat_gp_tipo <> 'PROMOS'")
+	If px.RowCount > 0 Then
+		px.Position = 0
+		pzasAbordo = pzasAbordo + px.GetString("CAT_GP_ALMACEN")
+		montoAbordo = montoAbordo + (px.GetString("CAT_GP_PRECIO") * px.GetInt("CAT_GP_ALMACEN"))
+	End If
+	Log(pzasAbordo)
+	Log(montoAbordo)
+	l_pzasAbordo.Text = pzasAbordo
+	l_montoAbordo.Text = NumberFormat2(montoAbordo, 1, 2, 2, True)
 End Sub
 
 Sub B_PROXIMA_Click