- VERSION 5.02.08

- Se agregó Conagra al resumen dia.
- Se puso la versión en el titulo de Principal y Cliente

B4A/C_Principal.bas

@@ -162,13 +162,13 @@ Sub Class_Globals
 	Private l_montoColgateResumen As Label
 	Private l_nes_humedos As Label
 	Private l_nes_secos As Label
+	Private l_conagra As Label
 End Sub
 
 Sub initialize
 	
 End Sub
 
-
 Private Sub B4XPage_Created (Root1 As B4XView)
 	EJECUTANDO=1
 	SERVER = Starter.DBReqServer
@@ -177,7 +177,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	Root = Root1
 	Root.LoadLayout("principal")
 	img2.Visible =False
-
+	B4XPages.SetTitle(Me, "Principal - " & Application.VersionName)
 	' valido donde escribo el archivo de la base de datos de kmt
 	ruta = File.DirInternal
 	Log(SERVER)
@@ -2388,6 +2388,13 @@ Sub Resumen_Click
 	Loop
 	l_nes_secos.Text = NumberFormat2(cRes3, 1, 2, 2, True)
 	
+	Private r9 As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_GP_CLASIF, PEDIDO.* FROM PEDIDO JOIN CAT_GUNAPROD WHERE CAT_GP_CLASIF LIKE '%CONAGRA%' AND PE_PROID = CAT_GP_ID"$)
+	Private cRes4 As String = 0
+	Do While r9.NextRow
+		cRes4 = cRes4 + r9.GetString("PE_COSTO_TOT")
+	Loop
+	l_conagra.Text = NumberFormat2(cRes4, 1, 2, 2, True)
+	
 	b=skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente where pc_cliente <> 0")
 	b.Position=0
 	Cuantos = b.GetString("CUANTOS")