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

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-12 03:21:22 -06:00
parent 1cb12be8e7
commit 900fb1b41f
2 changed files with 138 additions and 138 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
colonia2.bas
View File

@@ -165,9 +165,9 @@ Sub Activity_Resume
End If
c.Close
If PERFIL = "V-COSTO" Then
If PERFIL = "V-COSTO" Then
skmt.ExecNonQuery("DELETE FROM CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT CAT_GP_ID FROM LISTA_PRECIOS WHERE NLISTA = '9' AND PRECIO = '0')")
End If
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
@@ -475,14 +475,14 @@ Sub HACER_PEDIDO
End If
If marca <> "PROMOS" Then
If marca <> "PROMOS" Then
If PERFIL = "PREVENTA" Then
If PERFIL = "PREVENTA" Then
t_precio.Visible = False
LV_PRECIOS.Visible = False
t_precio.Visible = False
LV_PRECIOS.Visible = False
ELSE IF PERFIL = "V-ESPECIAL" Then
ELSE IF PERFIL = "V-ESPECIAL" Then
c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA IN ('5','6','7','8','10') AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC")
LV_PRECIOS.Clear
Dim label1 As Label
@@ -500,7 +500,7 @@ ELSE IF PERFIL = "V-ESPECIAL" Then
LV_PRECIOS.AddTwoLines(c.GetString("NLISTA"),c.GetString("PRECIO"))
Next
End If
ELSE IF PERFIL = "V-MINI" Then
ELSE IF PERFIL = "V-MINI" Then
t_precio.Visible = False
LV_PRECIOS.Visible = False
@@ -508,7 +508,7 @@ ELSE IF PERFIL = "V-MINI" Then
c.Position=0
l_precio.Text = c.GetString("PRECIO")
c.Close
ELSE IF PERFIL = "V-COSTO" Then
ELSE IF PERFIL = "V-COSTO" Then
t_precio.Visible = False
LV_PRECIOS.Visible = False
@@ -517,7 +517,7 @@ ELSE IF PERFIL = "V-COSTO" Then
c.Position=0
l_precio.Text = c.GetString("PRECIO")
c.Close
ELSE IF PERFIL = "V-SUPER" Then
ELSE IF PERFIL = "V-SUPER" Then
t_precio.Visible = False
LV_PRECIOS.Visible = False
@@ -527,12 +527,12 @@ ELSE IF PERFIL = "V-SUPER" Then
l_precio.Text = c.GetString("PRECIO")
c.Close
End If
End If
End If
End If
'' ESTO ES PARA NO PASAR DE LAS PROMOS ABORDO Y MANDARLAS AL MINIMO INICIO
'' ESTO ES PARA NO PASAR DE LAS PROMOS ABORDO Y MANDARLAS AL MINIMO INICIO
If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" Then
If query = "cat_gunaprod2" Then
@@ -596,7 +596,7 @@ Sub guardar_Click
ELSE If cantidad.Text > l_bodega.Text Then
Msgbox("Exede la existencia", "ADVERTENCIA")
Msgbox("Excede la existencia", "ADVERTENCIA")
Else If l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" And PROMO_C > 0 And cantidad.Text > 0 Then
skmt.ExecNonQuery("delete from PROIDID")
@@ -1152,7 +1152,7 @@ Sub Terminar_Click
End If
End Sub
Sub i_fotol_Click
i_fotol.Visible = False
i_fotol.Visible = False
End Sub

4
durakelo.b4a.meta
View File

@@ -68,11 +68,11 @@ ModuleClosedNodes23=
ModuleClosedNodes24=
ModuleClosedNodes3=
ModuleClosedNodes4=
ModuleClosedNodes5=2,3,6,7,8,9
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=2,5,6,8,10,11,12,13,24,36,37
NavigationStack=DBRequestManager,HandleJob,197,0,DBRequestManager,WriteObject,119,0,DBRequestManager,requestTimes,294,0,colonia2,Activity_Create,94,0,colonia2,Globals,78,0,Main,Activity_Create,88,0,Main,Activity_Pause,282,0,seleccion,Globals,25,0,seleccion,cargar_Click,1055,5,seleccion,JobDone,1204,0
NavigationStack=colonia2,Activity_Create,94,0,colonia2,Globals,78,0,Main,Activity_Create,88,0,Main,Activity_Pause,282,0,seleccion,Globals,25,0,seleccion,cargar_Click,1055,5,seleccion,JobDone,1210,0,colonia2,guardar_Click,632,0,Visual Designer,productos.bal,-100,3,colonia2,HACER_PEDIDO,394,0
SelectedBuild=0
VisibleModules=21,20,24,14,5,6