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

..

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

274
colonia2.bas
View File

@@ -26,7 +26,7 @@ Sub Globals
Dim ListView1 As ListView Dim ListView1 As ListView
Dim entro As String Dim entro As String
Dim lfila As Label Dim lfila As Label
Dim marca As String Dim marca As String
Dim tipo As String Dim tipo As String
Private BUSCA As EditText Private BUSCA As EditText
Dim ya_entro As String Dim ya_entro As String
@@ -90,7 +90,7 @@ Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example: 'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1") 'Activity.LoadLayout("Layout1")
Activity.RemoveAllViews Activity.RemoveAllViews
Activity.LoadLayout("PRODUCTOS") Activity.LoadLayout("PRODUCTOS")
'Dim ruta As String 'Dim ruta As String
' valido donde escribo el archivo de la base de datos de kmt ' valido donde escribo el archivo de la base de datos de kmt
ruta = File.DirInternal ruta = File.DirInternal
@@ -148,7 +148,7 @@ Sub Activity_Resume
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
' bmp = LoadBitmap(File.DirAssets, "palomita_verde.png") ' bmp = LoadBitmap(File.DirAssets, "palomita_verde.png")
ListView1.AddTwoLines(c.GetString("CAT_GP_CLASIF"),c.GetString("CUANTOS")) ListView1.AddTwoLines(c.GetString("CAT_GP_CLASIF"),c.GetString("CUANTOS"))
@@ -165,9 +165,9 @@ Sub Activity_Resume
End If End If
c.Close 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')") 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 End Sub
Sub Activity_Pause (UserClosed As Boolean) Sub Activity_Pause (UserClosed As Boolean)
@@ -246,56 +246,56 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
End Sub End Sub
Sub Activity_KeyPress (key As Int) As Boolean Sub Activity_KeyPress (key As Int) As Boolean
' BACK key pressed ' BACK key pressed
If key=KeyCodes.KEYCODE_BACK Then If key=KeyCodes.KEYCODE_BACK Then
ya_entro ="0" ya_entro ="0"
If entro = "4" Then If entro = "4" Then
entro = "3" entro = "3"
Activity_Resume Activity_Resume
Return True Return True
Else If entro = "3" Then Else If entro = "3" Then
' entro = "2" ' entro = "2"
' Activity_Resume ' Activity_Resume
' Return True ' Return True
' Else If entro = "2" Then ' Else If entro = "2" Then
' entro = "1" ' entro = "1"
' Activity_Resume ' Activity_Resume
' Return True ' Return True
'Else If entro = "1" Then 'Else If entro = "1" Then
' I want to capture the key here so I return True ' I want to capture the key here so I return True
StartActivity(fila) StartActivity(fila)
Return False Return False
End If End If
End If End If
' Returning False signals the system to handle the key ' Returning False signals the system to handle the key
End Sub End Sub
Sub BUSCA_TextChanged (Old As String, New As String) Sub BUSCA_TextChanged (Old As String, New As String)
q_buscar = "%" & BUSCA.Text & "%" q_buscar = "%" & BUSCA.Text & "%"
skmt.Initialize(ruta,"kmt.db", True) skmt.Initialize(ruta,"kmt.db", True)
' c=skmt.ExecQuery2("select CAT_GP_NOMBRE from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? AND cat_gp_clasif NOT IN (?,?,?,?,?,?,?,?,?,?) order by CAT_GP_NOMBRE asc", Array As String(q_buscar, "PROCTER","PROMOS","TRES MONTES","CAMPARI","CAMPARI-PRO","CLOROX DE MEXICO","MARS","CONAGRA","VERDE VALLE","MEAD JOHNSON")) ' c=skmt.ExecQuery2("select CAT_GP_NOMBRE from cat_gunaprod where CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? AND cat_gp_clasif NOT IN (?,?,?,?,?,?,?,?,?,?) order by CAT_GP_NOMBRE asc", Array As String(q_buscar, "PROCTER","PROMOS","TRES MONTES","CAMPARI","CAMPARI-PRO","CLOROX DE MEXICO","MARS","CONAGRA","VERDE VALLE","MEAD JOHNSON"))
c=skmt.ExecQuery2("select CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO,CAT_GP_IMG from " & query & " where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? and CAT_GP_CLASIF <> ? and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) order by CAT_GP_NOMBRE asc", Array As String(q_buscar,"PROMOS")) c=skmt.ExecQuery2("select CAT_GP_NOMBRE, CAT_GP_ALMACEN, CAT_GP_PRECIO,CAT_GP_IMG from " & query & " where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_NOMBRE like ? and CAT_GP_CLASIF <> ? and (length(CAT_GP_CODPROMO) = 1 OR CAT_GP_CODPROMO = CAT_GP_ID) order by CAT_GP_NOMBRE asc", Array As String(q_buscar,"PROMOS"))
'and CAT_GP_CLASIF <> ? group by CAT_GP_CLASIF order by CAT_GP_CLASIF asc", Array As String("PROMOS") ) 'and CAT_GP_CLASIF <> ? group by CAT_GP_CLASIF order by CAT_GP_CLASIF asc", Array As String("PROMOS") )
ListView1.Clear ListView1.Clear
Dim ins As InputStream Dim ins As InputStream
Dim bmp As Bitmap Dim bmp As Bitmap
Dim jpeg() As Byte Dim jpeg() As Byte
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
jpeg = c.GetBlob("CAT_GP_IMG") jpeg = c.GetBlob("CAT_GP_IMG")
ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length) ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
bmp.Initialize2(ins) bmp.Initialize2(ins)
ListView1.AddTwoLines(c.GetString("CAT_GP_NOMBRE"),"Existencia " & c.GetString("CAT_GP_ALMACEN") & " Precio $" & c.GetString("CAT_GP_PRECIO")) ListView1.AddTwoLines(c.GetString("CAT_GP_NOMBRE"),"Existencia " & c.GetString("CAT_GP_ALMACEN") & " Precio $" & c.GetString("CAT_GP_PRECIO"))
Next Next
End If End If
@@ -383,7 +383,7 @@ Sub HACER_PEDIDO
End If End If
Else Else
l_precio.Text = c.GetDouble("CAT_GP_PRECIO") l_precio.Text = c.GetDouble("CAT_GP_PRECIO")
End If End If
l_bodega.Text = c.GetString("CAT_GP_ALMACEN") l_bodega.Text = c.GetString("CAT_GP_ALMACEN")
PROMOS_VENTAS = c.GetString("CAT_GP_ALMACEN") PROMOS_VENTAS = c.GetString("CAT_GP_ALMACEN")
@@ -475,49 +475,49 @@ Sub HACER_PEDIDO
End If End If
If marca <> "PROMOS" Then If marca <> "PROMOS" Then
If PERFIL = "PREVENTA" Then If PERFIL = "PREVENTA" Then
t_precio.Visible = False t_precio.Visible = False
LV_PRECIOS.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") 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 LV_PRECIOS.Clear
Dim label1 As Label Dim label1 As Label
label1 = LV_PRECIOS.TwoLinesLayout.Label label1 = LV_PRECIOS.TwoLinesLayout.Label
label1.TextSize = 10 label1.TextSize = 10
label1.TextColor = Colors.Black label1.TextColor = Colors.Black
Dim label2 As Label Dim label2 As Label
label2 = LV_PRECIOS.TwoLinesLayout.SecondLabel label2 = LV_PRECIOS.TwoLinesLayout.SecondLabel
label2.TextSize = 10 label2.TextSize = 10
label2.TextColor = Colors.Black label2.TextColor = Colors.Black
If c.RowCount>0 Then If c.RowCount>0 Then
For i=0 To c.RowCount -1 For i=0 To c.RowCount -1
c.Position=i c.Position=i
LV_PRECIOS.AddTwoLines(c.GetString("NLISTA"),c.GetString("PRECIO")) LV_PRECIOS.AddTwoLines(c.GetString("NLISTA"),c.GetString("PRECIO"))
Next Next
End If End If
ELSE IF PERFIL = "V-MINI" Then ELSE IF PERFIL = "V-MINI" Then
t_precio.Visible = False t_precio.Visible = False
LV_PRECIOS.Visible = False LV_PRECIOS.Visible = False
c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '2' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC") c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '2' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC")
c.Position=0 c.Position=0
l_precio.Text = c.GetString("PRECIO") l_precio.Text = c.GetString("PRECIO")
c.Close
ELSE IF PERFIL = "V-COSTO" Then
t_precio.Visible = False
LV_PRECIOS.Visible = False
c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '9' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC")
c.Position=0
l_precio.Text = c.GetString("PRECIO")
c.Close c.Close
ELSE IF PERFIL = "V-SUPER" Then ELSE IF PERFIL = "V-COSTO" Then
t_precio.Visible = False
LV_PRECIOS.Visible = False
c=skmt.ExecQuery("select PRECIO, NLISTA FROM LISTA_PRECIOS WHERE NLISTA = '9' AND CAT_GP_ID =" & "'" &L_PROID.TEXT&"' ORDER BY NLISTA ASC")
c.Position=0
l_precio.Text = c.GetString("PRECIO")
c.Close
ELSE IF PERFIL = "V-SUPER" Then
t_precio.Visible = False t_precio.Visible = False
LV_PRECIOS.Visible = False LV_PRECIOS.Visible = False
@@ -527,59 +527,59 @@ ELSE IF PERFIL = "V-SUPER" Then
l_precio.Text = c.GetString("PRECIO") l_precio.Text = c.GetString("PRECIO")
c.Close 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 l_marca.text = "PROMOS" And l_tipo.Text ="PROMOS" Then
If query = "cat_gunaprod2" Then If query = "cat_gunaprod2" Then
l_bodega.Text = PROMOS_VENTAS l_bodega.Text = PROMOS_VENTAS
' Msgbox("1","alerta") ' Msgbox("1","alerta")
e=skmt.ExecQuery2("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID = ? ", Array As String(L_PROID.Text) ) e=skmt.ExecQuery2("select count(*) as CUANTOS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID = ? ", Array As String(L_PROID.Text) )
e.Position = 0 e.Position = 0
If e.GetString("CUANTOS") > 0 Then If e.GetString("CUANTOS") > 0 Then
' Msgbox("2","alerta") ' Msgbox("2","alerta")
F=skmt.ExecQuery2("select CAT_DP_IDPROD, CAT_DP_PZAS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID = ? ", Array As String(L_PROID.Text) ) F=skmt.ExecQuery2("select CAT_DP_IDPROD, CAT_DP_PZAS FROM CAT_DETALLES_PAQ WHERE CAT_DP_ID = ? ", Array As String(L_PROID.Text) )
'se coloco el if por la mala promocion. 'se coloco el if por la mala promocion.
For i=0 To F.RowCount -1 For i=0 To F.RowCount -1
F.Position=i F.Position=i
' Msgbox(f.GetString("CAT_DP_IDPROD"),"alerta") ' Msgbox(f.GetString("CAT_DP_IDPROD"),"alerta")
c=skmt.ExecQuery2("select count(*) as CUANTOS from cat_gunaprod2 where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD"))) c=skmt.ExecQuery2("select count(*) as CUANTOS from cat_gunaprod2 where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
c.Position=0 c.Position=0
If c.GetString("CUANTOS") > 0 Then If c.GetString("CUANTOS") > 0 Then
' Msgbox("4","alerta") ' Msgbox("4","alerta")
h=skmt.ExecQuery2("select CAT_GP_NOMBRE, CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD"))) h=skmt.ExecQuery2("select CAT_GP_NOMBRE, CAT_GP_ALMACEN from cat_gunaprod2 where CAT_GP_ID = ? ", Array As String(f.GetString("CAT_DP_IDPROD")))
h.Position=0 h.Position=0
If h.GetString("CAT_GP_ALMACEN") < l_bodega.Text * f.GetString("CAT_DP_PZAS") Then If h.GetString("CAT_GP_ALMACEN") < l_bodega.Text * f.GetString("CAT_DP_PZAS") Then
l_bodega.Text = "1" l_bodega.Text = "1"
End If End If
'skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta,Main.tipov,precio2)) 'skmt.ExecNonQuery2("INSERT INTO PEDIDO (PE_CEDIS,PE_COSTO_TOT,PE_COSTOU,PE_CANT,PE_PRONOMBRE,PE_PROID,PE_CLIENTE,PE_FECHA,PE_USUARIO,PE_RUTA,PE_TIPO,PE_PRECIO2) VALUES(?,?,?,?,?,?,?,?,?,?,?,?) ", Array As Object (L_PROID.text,0, 0, f.GetString("CAT_DP_PZAS") * cantidad.text, h.GetString("CAT_GP_NOMBRE"), f.GetString("CAT_DP_IDPROD"),clie_id, sDate & sTime, usuario,cl_ruta,Main.tipov,precio2))
h.Close h.Close
else if c.GetString("CUANTOS") = 0 Then else if c.GetString("CUANTOS") = 0 Then
l_bodega.Text = "0" l_bodega.Text = "0"
End If
c.Close
Next
f.Close
End If End If
c.Close e.Close
End If
Next '' ESTO ES PARA NO PASAR DE LAS PROMOS ABORDO Y MANDARLAS AL MINIMO FIN
f.Close
End If
e.Close
End If
'' ESTO ES PARA NO PASAR DE LAS PROMOS ABORDO Y MANDARLAS AL MINIMO FIN
End If End If
If clie_id="0" Then If clie_id="0" Then
@@ -596,7 +596,7 @@ Sub guardar_Click
ELSE If cantidad.Text > l_bodega.Text Then 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 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") skmt.ExecNonQuery("delete from PROIDID")
@@ -674,10 +674,10 @@ Sub guardar_Click
c.Close c.Close
Else Else
c=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)") c=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position=0 c.Position=0
cl_ruta = c.GetString("CAT_CL_RUTA") cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close c.Close
End If End If
c=skmt.ExecQuery("select USUARIO from usuarioa") c=skmt.ExecQuery("select USUARIO from usuarioa")
@@ -856,7 +856,7 @@ Sub guardar_Click
If Main.tipov <> "ABORDO" Then If Main.tipov <> "ABORDO" Then
skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)") skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If End If
Panel1.Visible= False Panel1.Visible= False
skmt.ExecNonQuery("delete from pedido3") skmt.ExecNonQuery("delete from pedido3")
@@ -1152,13 +1152,13 @@ Sub Terminar_Click
End If End If
End Sub End Sub
Sub i_fotol_Click Sub i_fotol_Click
i_fotol.Visible = False i_fotol.Visible = False
End Sub End Sub
Sub DESC_PROMO_Click Sub DESC_PROMO_Click
skmt.ExecNonQuery("delete from PROIDID") skmt.ExecNonQuery("delete from PROIDID")
skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text)) skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
StartActivity(detalle_promo) StartActivity(detalle_promo)
End Sub End Sub
@@ -1168,30 +1168,30 @@ Sub nopromo_Click
CAMBIOS = c.GetString("CAT_VA_VALOR") CAMBIOS = c.GetString("CAT_VA_VALOR")
c.Close c.Close
If CAMBIOS = "1" Then If CAMBIOS = "1" Then
c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa) and HR_PROID = '" & L_PROID.Text & "'") c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa) and HR_PROID = '" & L_PROID.Text & "'")
c.Position =0
EXISTE_CAMBIO = c.GetString("CUANTOS")
c.Close
If EXISTE_CAMBIO = 0 Then
EXISTE_CAMBIO = 0
Else
c=skmt.ExecQuery("select SUM(HR_CANT) AS CUANTOS from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa) and HR_PROID = '" & L_PROID.Text & "'")
c.Position =0 c.Position =0
EXISTE_CAMBIO = c.GetString("CUANTOS") EXISTE_CAMBIO = c.GetString("CUANTOS")
c.Close c.Close
If EXISTE_CAMBIO = 0 Then
EXISTE_CAMBIO = 0
Else
c=skmt.ExecQuery("select SUM(HR_CANT) AS CUANTOS from HIST_RMI WHERE HR_CLIENTE IN (Select CUENTA from cuentaa) and HR_PROID = '" & L_PROID.Text & "'")
c.Position =0
EXISTE_CAMBIO = c.GetString("CUANTOS")
c.Close
End If End If
If EXISTE_CAMBIO = 0 Then If EXISTE_CAMBIO = 0 Then
Msgbox("NO SE VENDIO ESTE PRODUCTO, NO SE PUEDE CAMBIAR","ALERTA") Msgbox("NO SE VENDIO ESTE PRODUCTO, NO SE PUEDE CAMBIAR","ALERTA")
ELSE If cantidad.Text = "" Then ELSE If cantidad.Text = "" Then
Msgbox("Cantidad no puede ser 0","Cantidad") Msgbox("Cantidad no puede ser 0","Cantidad")
Else If cantidad.Text > EXISTE_CAMBIO Then Else If cantidad.Text > EXISTE_CAMBIO Then
Msgbox("Exede la existencia", "ADVERTENCIA") Msgbox("Exede la existencia", "ADVERTENCIA")
Else Else
DateTime.DateFormat = "MM/dd/yyyy" DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now) sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now) sTime=DateTime.Time(DateTime.Now)
c=skmt.ExecQuery("Select CUENTA from cuentaa") c=skmt.ExecQuery("Select CUENTA from cuentaa")
c.Position=0 c.Position=0
clie_id = c.GetString("CUENTA") clie_id = c.GetString("CUENTA")
c=skmt.ExecQuery("select USUARIO from usuarioa") c=skmt.ExecQuery("select USUARIO from usuarioa")
@@ -1202,7 +1202,7 @@ Sub nopromo_Click
skmt.ExecNonQuery2("update " & query & " set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text)) skmt.ExecNonQuery2("update " & query & " set cat_gp_almacen = cat_gp_almacen - ? where cat_gp_id = ? ", Array As Object(cantidad.Text, L_PROID.Text))
cantidad.Text = "" cantidad.Text = ""
Panel1.Visible= False Panel1.Visible= False

4
durakelo.b4a.meta
View File

@@ -68,11 +68,11 @@ ModuleClosedNodes23=
ModuleClosedNodes24= ModuleClosedNodes24=
ModuleClosedNodes3= ModuleClosedNodes3=
ModuleClosedNodes4= ModuleClosedNodes4=
ModuleClosedNodes5=2,3,6,7,8,9 ModuleClosedNodes5=
ModuleClosedNodes6= 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=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 SelectedBuild=0
VisibleModules=21,20,24,14,5,6 VisibleModules=21,20,24,14,5,6