...

B4A/C_Cliente.bas

@@ -413,11 +413,11 @@ End Sub
 
 Sub gest_Click
 	Log("GEST CLIC")
-	Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
-	If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
-		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
-		Return False
-	End If
+'	Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
+'	If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
+'		cuest.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
+'		Return False
+'	End If
 '	If la_cuenta.Text <> "0" Then
 '		Dim queenc As String
 '		'		1=1 ----> si no esta en el historico que se descargue del web ver si esta contestada de manera local

B4A/C_Principal.bas

@@ -162,6 +162,7 @@ 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
@@ -2386,6 +2387,16 @@ 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")

B4A/C_Productos.bas

@@ -1342,7 +1342,7 @@ Sub LlenaProdsLL(p As ResultSet, extra As String)
 	Else
 		Log("NO HAY RESULTSET")
 '		Dim p As ResultSet = Starter.skmt.ExecQuery($"select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD from ${Subs.traeTablaProds(Starter.tipov)} where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
-		Dim p As ResultSet = Starter.skmt.ExecQuery($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
+		Dim p As ResultSet = Starter.skmt.ExecQuery($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt, CAT_GP_CLASIF from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_CLASIF, CAT_GP_NOMBRE"$)
 		Log("|" & Starter.tipov & "|")
 		Log($"Select distinct ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO, CAT_GP_TIPOPROD, LISTA_PRECIOS.CAT_GP_ID as precioAlt from ${Subs.traeTablaProds(Starter.tipov)} left join LISTA_PRECIOS on LISTA_PRECIOS.CAT_GP_ID = ${Subs.traeTablaProds(Starter.tipov)}.CAT_GP_ID where CAT_GP_PRECIO > 0 And CAT_GP_CLASIF <> 'PROMOS' order by CAT_GP_NOMBRE"$)
 	End If

B4A/Durakelo.b4a

@@ -572,67 +572,68 @@ File611=celltitle.bal
 File612=Cliente.bal
 File613=Clientes.bal
 File614=colgate.png
-File615=detalle_promo.bal
-File616=durakelo.png
-File617=durakelo_192x192.png
-File618=durakelo1.png
-File619=encuesta.bal
+File615=conagra.jpg
+File616=detalle_promo.bal
+File617=durakelo.png
+File618=durakelo_192x192.png
+File619=durakelo1.png
 File62=117marker-verde.png
-File620=engrane.jpg
-File621=engrane3.png
-File622=espera.gif
-File623=fondo_kmt.jpg
-File624=foto.bal
-File625=guardagestion.bal
-File626=guna_viejo.png
-File627=infonavit1.jpg
-File628=itembuttonblue.png
-File629=k.png
+File620=encuesta.bal
+File621=engrane.jpg
+File622=engrane3.png
+File623=espera.gif
+File624=fondo_kmt.jpg
+File625=foto.bal
+File626=guardagestion.bal
+File627=guna_viejo.png
+File628=infonavit1.jpg
+File629=itembuttonblue.png
 File63=118.png
-File630=K-b27c0809.png
-File631=kelloggs.png
-File632=keymon_logo.png
-File633=kmt.db
-File634=login.bal
-File635=logo sanfer.jpg
-File636=Logo_durakelo_192xx192.jpeg
-File637=logo_exitus1.jpg
-File638=MainPage.bal
-File639=Malo.jpg
+File630=k.png
+File631=K-b27c0809.png
+File632=kelloggs.png
+File633=keymon_logo.png
+File634=kmt.db
+File635=login.bal
+File636=logo sanfer.jpg
+File637=Logo_durakelo_192xx192.jpeg
+File638=logo_exitus1.jpg
+File639=MainPage.bal
 File64=118marker-rojo.png
-File640=mapa.bal
-File641=mapa_rutas.bal
-File642=nestle.png
-File643=nota.bal
-File644=NoVenta.bal
-File645=nuevocliente.bal
-File646=palomita_verde.png
-File647=pedido.bal
-File648=pedidoitem.bal
-File649=planfia_logo.png
+File640=Malo.jpg
+File641=mapa.bal
+File642=mapa_rutas.bal
+File643=nestle.png
+File644=nota.bal
+File645=NoVenta.bal
+File646=nuevocliente.bal
+File647=palomita_verde.png
+File648=pedido.bal
+File649=pedidoitem.bal
 File65=118marker-verde.png
-File650=planfia_logo_old.png
-File651=planfia_logo_old2.png
-File652=principal.bal
-File653=proditem.bal
-File654=productos.bal
-File655=productos.bal.old
-File656=promociones.bal
-File657=qr.bal
-File658=rechazo.jpg
-File659=rojo.png
+File650=planfia_logo.png
+File651=planfia_logo_old.png
+File652=planfia_logo_old2.png
+File653=principal.bal
+File654=proditem.bal
+File655=productos.bal
+File656=productos.bal.old
+File657=promociones.bal
+File658=qr.bal
+File659=rechazo.jpg
 File66=119.png
-File660=salma.jpg
-File661=salma.png
-File662=senial.jpg
-File663=sync.png
-File664=tache_rojo.png
-File665=telefonos.bal
-File666=ticketsDia.bal
-File667=Tiendita.jpg
-File668=unilever.jpg
-File669=verde.png
+File660=rojo.png
+File661=salma.jpg
+File662=salma.png
+File663=senial.jpg
+File664=sync.png
+File665=tache_rojo.png
+File666=telefonos.bal
+File667=ticketsDia.bal
+File668=Tiendita.jpg
+File669=unilever.jpg
 File67=119marker-rojo.png
+File670=verde.png
 File68=119marker-verde.png
 File69=11marker-rojo.png
 File7=100marker-rojo.png
@@ -1302,6 +1303,7 @@ FileGroup667=Default Group
 FileGroup668=Default Group
 FileGroup669=Default Group
 FileGroup67=Default Group
+FileGroup670=Default Group
 FileGroup68=Default Group
 FileGroup69=Default Group
 FileGroup7=Default Group
@@ -1394,7 +1396,7 @@ Module6=C_Cuestionario
 Module7=C_Historico
 Module8=C_Nota
 Module9=C_NoVenta
-NumberOfFiles=669
+NumberOfFiles=670
 NumberOfLibraries=31
 NumberOfModules=24
 Version=12.8
@@ -1402,7 +1404,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Durakelo
 	#VersionCode: 1
-	#VersionName: 4.07.25
+	#VersionName: 4.09.06
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False

B4A/Durakelo.b4a.meta

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Productos,clv_prods_ll_ItemLongClick,1090,0,Diseñador Visual,productos.bal,-100,5,C_Principal,cargar_Click,814,0,B4XMainPage,Entrar_Click,303,0,C_Principal,connecta_Click,1993,6,C_Principal,JobDone,1195,6,C_Productos,l_prodX_Click,1136,0,C_Productos,l_prodX_LongClick,1145,6,B4XMainPage,B4XPage_Created,108,0,B4XMainPage,Class_Globals,94,0,B4XMainPage,Initialize,101,0
+NavigationStack=B4XMainPage,Class_Globals,94,0,C_Productos,Class_Globals,0,0,C_Productos,B4XPage_Appear,265,0,C_Productos,Busca_TextChanged,1299,0,C_Productos,LlenaProdsLL,1338,1,Diseñador Visual,principal.bal,-100,6,B4XMainPage,Initialize,101,0,C_Principal,Class_Globals,158,0,C_Principal,Resumen_Click,2384,2,C_Cliente,Class_Globals,0,0,C_Cliente,gest_Click,407,0
 SelectedBuild=0
 VisibleModules=2,10,4,19,5,6,8,9,11,24