diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 0b4caf6..7d84a4a 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -160,6 +160,8 @@ Sub Class_Globals Private l_monto_kc As Label Private l_version As Label Private l_montoColgateResumen As Label + Private l_nes_humedos As Label + Private l_nes_secos As Label End Sub Sub initialize @@ -2366,6 +2368,21 @@ Sub Resumen_Click cRes = cRes + r.GetString("PE_COSTO_TOT") Loop l_montoColgateResumen.Text = NumberFormat2(cRes, 1, 2, 2, True) + + Private r2 As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_GP_CLASIF, PEDIDO.* FROM PEDIDO JOIN CAT_GUNAPROD WHERE CAT_GP_CLASIF = 'NESTLE' AND CAT_GP_TIPO LIKE '%HUMEDOS%' AND PE_PROID = CAT_GP_ID"$) + Private cRes2 As String = 0 + Do While r2.NextRow + cRes2 = cRes2 + r2.GetString("PE_COSTO_TOT") + Loop + l_nes_humedos.Text = NumberFormat2(cRes2, 1, 2, 2, True) + + Private r3 As ResultSet = Starter.skmt.ExecQuery($"SELECT CAT_GP_CLASIF, PEDIDO.* FROM PEDIDO JOIN CAT_GUNAPROD WHERE CAT_GP_CLASIF = 'NESTLE' AND CAT_GP_TIPO LIKE '%SECOS%' AND PE_PROID = CAT_GP_ID"$) + Private cRes3 As String = 0 + Do While r3.NextRow + cRes3 = cRes3 + r3.GetString("PE_COSTO_TOT") + Loop + l_nes_secos.Text = NumberFormat2(cRes3, 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") diff --git a/B4A/Durakelo.b4a b/B4A/Durakelo.b4a index 157f04a..1f193f8 100644 --- a/B4A/Durakelo.b4a +++ b/B4A/Durakelo.b4a @@ -589,47 +589,49 @@ File627=infonavit1.jpg File628=itembuttonblue.png File629=k.png File63=118.png -File630=kelloggs.png -File631=keymon_logo.png -File632=kmt.db -File633=login.bal -File634=logo sanfer.jpg -File635=Logo_durakelo_192xx192.jpeg -File636=logo_exitus1.jpg -File637=MainPage.bal -File638=Malo.jpg -File639=mapa.bal +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 File64=118marker-rojo.png -File640=mapa_rutas.bal -File641=nota.bal -File642=NoVenta.bal -File643=nuevocliente.bal -File644=palomita_verde.png -File645=pedido.bal -File646=pedidoitem.bal -File647=planfia_logo.png -File648=planfia_logo_old.png -File649=planfia_logo_old2.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 File65=118marker-verde.png -File650=principal.bal -File651=proditem.bal -File652=productos.bal -File653=productos.bal.old -File654=promociones.bal -File655=qr.bal -File656=rechazo.jpg -File657=rojo.png -File658=salma.jpg -File659=salma.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 File66=119.png -File660=senial.jpg -File661=sync.png -File662=tache_rojo.png -File663=telefonos.bal -File664=ticketsDia.bal -File665=Tiendita.jpg -File666=unilever.jpg -File667=verde.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 File67=119marker-rojo.png File68=119marker-verde.png File69=11marker-rojo.png @@ -1297,6 +1299,8 @@ FileGroup664=Default Group FileGroup665=Default Group FileGroup666=Default Group FileGroup667=Default Group +FileGroup668=Default Group +FileGroup669=Default Group FileGroup67=Default Group FileGroup68=Default Group FileGroup69=Default Group @@ -1390,7 +1394,7 @@ Module6=C_Cuestionario Module7=C_Historico Module8=C_Nota Module9=C_NoVenta -NumberOfFiles=667 +NumberOfFiles=669 NumberOfLibraries=31 NumberOfModules=24 Version=12.8 @@ -1398,7 +1402,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Durakelo #VersionCode: 1 - #VersionName: 4.06.08 + #VersionName: 4.06.16 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 803eb71..616b79c 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -73,6 +73,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Cliente,initialize,167,0,C_Cliente,Class_Globals,163,0,C_Cliente,B4XPage_Created,174,0,C_Cliente,B4XPage_CloseRequest,497,0,C_Cliente,rb_p7no_CheckedChange,1768,0,C_Cliente,cuest_preguntaContestada,1784,0,C_Cliente,B_VENTA_Click,1243,0,C_Principal,Class_Globals,1,0,C_Principal,connecta_Click,1991,3,C_Principal,JobDone,1218,2 +NavigationStack=C_Cliente,rb_p7no_CheckedChange,1768,0,C_Cliente,cuest_preguntaContestada,1784,0,C_Cliente,B_VENTA_Click,1243,0,C_Principal,JobDone,1193,2,C_Principal,connecta_Click,1991,3,C_Principal,Resumen_Click,2349,4,Diseñador Visual,Cliente.bal,-100,1,Diseñador Visual,principal.bal,-100,6,Subs,traePromosVendidas,997,0,Subs,traeMaxPromos,983,0 SelectedBuild=0 -VisibleModules=2,10,4,19,5,6,8,9,11,24 +VisibleModules=2,10,4,19,5,6,8,9,11,24,23 diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal index 9af6432..dc8587c 100644 Binary files a/B4A/Files/cliente.bal and b/B4A/Files/cliente.bal differ diff --git a/B4A/Files/nestle.png b/B4A/Files/nestle.png new file mode 100644 index 0000000..50c2c05 Binary files /dev/null and b/B4A/Files/nestle.png differ diff --git a/B4A/Files/principal.bal b/B4A/Files/principal.bal index b5a91dd..e38b189 100644 Binary files a/B4A/Files/principal.bal and b/B4A/Files/principal.bal differ