cheveguerra/Android_durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Android_durakelo.git synced 2026-04-17 19:37:03 +00:00
Code Issues Packages Projects Releases Wiki Activity

Ruta Super-Q

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-14 17:03:38 -06:00
parent 939499cea2
commit d80f1d8831
3 changed files with 29 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
colonia2.bas
View File

@@ -351,17 +351,36 @@ Sub HACER_PEDIDO
l_desc.Text = c.GetString("CAT_GP_NOMBRE") l_desc.Text = c.GetString("CAT_GP_NOMBRE")
If PERFIL = "V-SUPER" Then If PERFIL = "V-SUPER" Then
c2=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '10' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC")
c2.Position=0
l_precio.Text = c2.GetString("PRECIO")
c2.Close c2=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '10' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC")
Else IF ALMACEN = "6" And cl_ruta = "16" Then
c2=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '11' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC")
c2.Position=0 c2.Position=0
l_precio.Text = c2.GetString("PRECIO") l_precio.Text = c2.GetString("PRECIO")
c2.Close c2.Close
Else IF ALMACEN = "6" And cl_ruta = "16" Then
' c2=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '11' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC")
' c2.Position=0
' l_precio.Text = c2.GetString("PRECIO")
' c2.Close
c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('1','10') AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC")
LV_PRECIOS.Clear
Dim label1 As Label
label1 = LV_PRECIOS.TwoLinesLayout.Label
label1.TextSize = 10
label1.TextColor = Colors.Black
Dim label2 As Label
label2 = LV_PRECIOS.TwoLinesLayout.SecondLabel
label2.TextSize = 10
label2.TextColor = Colors.Black
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
LV_PRECIOS.AddTwoLines(c.GetString("NLISTA"),c.GetString("PRECIO"))
Next
End If
Else Else
l_precio.Text = c.GetDouble("CAT_GP_PRECIO") l_precio.Text = c.GetDouble("CAT_GP_PRECIO")

2
durakelo.b4a
View File

@@ -1079,7 +1079,7 @@ Version=12.5
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Durakelo-Venta #ApplicationLabel: Durakelo-Venta
#VersionCode: 1 #VersionCode: 1
#VersionName: 3.11.24 #VersionName: 3.12.12
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

4
durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37 ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37
NavigationStack=Visual Designer,seleccion.bal,-100,6,seleccion,Activity_Create,236,0,seleccion,Resumen_Click,2483,2,seleccion,traeVenta,2771,3,seleccion,b_e_resumen_Click,2758,0,seleccion,SUBIR_P_Click,2750,0,seleccion,JobDone,1110,6,seleccion,cargar_Click,1101,0,MAPA_RUTAS,MapFragment1_Ready,109,0,MAPA_RUTAS,Activity_Create,106,0 NavigationStack=MAPA_RUTAS,Activity_Create,106,0,Visual Designer,productos.bal,-100,1,seleccion,Resumen_Click,2483,2,seleccion,traeVenta,2771,3,seleccion,b_e_resumen_Click,2758,0,seleccion,SUBIR_P_Click,2750,0,seleccion,JobDone,1110,6,MAPA_RUTAS,MapFragment1_Ready,109,0,seleccion,cargar_Click,1101,0,colonia2,HACER_PEDIDO,360,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=21,20,24,14 VisibleModules=21,20,24,14,5