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")
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
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=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
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
l_precio.Text = c.GetDouble("CAT_GP_PRECIO")