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

272
colonia2.bas
View File

@@ -26,7 +26,7 @@ Sub Globals
Dim ListView1 As ListView
Dim entro As String
Dim lfila As Label
Dim marca As String
Dim marca As String
Dim tipo As String
Private BUSCA As EditText
Dim ya_entro As String
@@ -90,13 +90,13 @@ Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
'Activity.LoadLayout("Layout1")
Activity.RemoveAllViews
Activity.LoadLayout("PRODUCTOS")
Activity.LoadLayout("PRODUCTOS")
'Dim ruta As String
' valido donde escribo el archivo de la base de datos de kmt
ruta = File.DirInternal
Panel1.Visible= False
' se crea o no el archivo de la base de ddatos de kmt
'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
'NOTAS SI SE MODIFICA LA ESTRUCTURA SE QUITA EL IF Y SE VA DIRECTO A LA SENTENCIA FILE.COPY PARA QUE
'TOME LA NUEVA ESTRUCTURA ES MUY IMPORTANTE TENER EL IF DE LO CONTRARIO SOLO LO ESCRIBE UNA VEZ Y LO BORRA
'SI SE REGRESA A ESTE ACTIVIDAD.
If File.Exists(ruta, "kmt.db") = False Then
@@ -148,7 +148,7 @@ Sub Activity_Resume
If c.RowCount>0 Then
For i=0 To c.RowCount -1
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"))
@@ -165,9 +165,9 @@ Sub Activity_Resume
End If
c.Close
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
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 Sub
Sub Activity_Pause (UserClosed As Boolean)
@@ -246,56 +246,56 @@ Sub ListView1_ItemClick (Position As Int, Value As Object)
End Sub
Sub Activity_KeyPress (key As Int) As Boolean
' BACK key pressed
If key=KeyCodes.KEYCODE_BACK Then
ya_entro ="0"
' BACK key pressed
If key=KeyCodes.KEYCODE_BACK Then
ya_entro ="0"
If entro = "4" Then
entro = "3"
Activity_Resume
Return True
Else If entro = "3" Then
' entro = "2"
' Activity_Resume
' Return True
' Else If entro = "2" Then
' entro = "1"
' Activity_Resume
' Return True
'Else If entro = "1" Then
If entro = "4" Then
entro = "3"
Activity_Resume
Return True
Else If entro = "3" Then
' entro = "2"
' Activity_Resume
' Return True
' Else If entro = "2" Then
' entro = "1"
' Activity_Resume
' Return True
'Else If entro = "1" Then
' I want to capture the key here so I return True
StartActivity(fila)
Return False
End If
End If
' Returning False signals the system to handle the key
Return False
End If
End If
' Returning False signals the system to handle the key
End Sub
Sub BUSCA_TextChanged (Old As String, New As String)
q_buscar = "%" & BUSCA.Text & "%"
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"))
'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 bmp As Bitmap
Dim jpeg() As Byte
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
jpeg = c.GetBlob("CAT_GP_IMG")
ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
bmp.Initialize2(ins)
Dim ins As InputStream
Dim bmp As Bitmap
Dim jpeg() As Byte
If c.RowCount>0 Then
For i=0 To c.RowCount -1
c.Position=i
jpeg = c.GetBlob("CAT_GP_IMG")
ins.InitializeFromBytesArray(jpeg, 0, jpeg.Length)
bmp.Initialize2(ins)
ListView1.AddTwoLines(c.GetString("CAT_GP_NOMBRE"),"Existencia " & c.GetString("CAT_GP_ALMACEN") & " Precio $" & c.GetString("CAT_GP_PRECIO"))
Next
End If
ListView1.AddTwoLines(c.GetString("CAT_GP_NOMBRE"),"Existencia " & c.GetString("CAT_GP_ALMACEN") & " Precio $" & c.GetString("CAT_GP_PRECIO"))
Next
End If
@@ -383,7 +383,7 @@ Sub HACER_PEDIDO
End If
Else
l_precio.Text = c.GetDouble("CAT_GP_PRECIO")
l_precio.Text = c.GetDouble("CAT_GP_PRECIO")
End If
l_bodega.Text = c.GetString("CAT_GP_ALMACEN")
PROMOS_VENTAS = c.GetString("CAT_GP_ALMACEN")
@@ -475,49 +475,49 @@ 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
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
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
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
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 IF PERFIL = "V-MINI" Then
t_precio.Visible = False
LV_PRECIOS.Visible = False
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 IF PERFIL = "V-MINI" Then
t_precio.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.Position=0
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=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
l_precio.Text = c.GetString("PRECIO")
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
LV_PRECIOS.Visible = False
@@ -527,59 +527,59 @@ 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
l_bodega.Text = PROMOS_VENTAS
If query = "cat_gunaprod2" Then
l_bodega.Text = PROMOS_VENTAS
' 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.Position = 0
e.Position = 0
If e.GetString("CUANTOS") > 0 Then
If e.GetString("CUANTOS") > 0 Then
' 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) )
'se coloco el if por la mala promocion.
'se coloco el if por la mala promocion.
For i=0 To F.RowCount -1
F.Position=i
' Msgbox(f.GetString("CAT_DP_IDPROD"),"alerta")
For i=0 To F.RowCount -1
F.Position=i
' 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.Position=0
If c.GetString("CUANTOS") > 0 Then
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
If c.GetString("CUANTOS") > 0 Then
' 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.Position=0
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
If h.GetString("CAT_GP_ALMACEN") < l_bodega.Text * f.GetString("CAT_DP_PZAS") Then
l_bodega.Text = "1"
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))
h.Close
else if c.GetString("CUANTOS") = 0 Then
If h.GetString("CAT_GP_ALMACEN") < l_bodega.Text * f.GetString("CAT_DP_PZAS") Then
l_bodega.Text = "1"
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))
h.Close
else if c.GetString("CUANTOS") = 0 Then
l_bodega.Text = "0"
End If
c.Close
l_bodega.Text = "0"
End If
c.Close
Next
Next
f.Close
End If
e.Close
End If
'' 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
If clie_id="0" 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")
@@ -673,11 +673,11 @@ Sub guardar_Click
cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close
Else
c=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position=0
cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close
Else
c=skmt.ExecQuery("select CAT_CL_RUTA from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
c.Position=0
cl_ruta = c.GetString("CAT_CL_RUTA")
c.Close
End If
c=skmt.ExecQuery("select USUARIO from usuarioa")
@@ -856,7 +856,7 @@ Sub guardar_Click
If Main.tipov <> "ABORDO" Then
skmt.ExecNonQuery("UPDATE kmt_info set gestion = 2 where CAT_CL_CODIGO In (select cuenta from cuentaa)")
End If
End If
Panel1.Visible= False
skmt.ExecNonQuery("delete from pedido3")
@@ -1152,13 +1152,13 @@ Sub Terminar_Click
End If
End Sub
Sub i_fotol_Click
i_fotol.Visible = False
i_fotol.Visible = False
End Sub
Sub DESC_PROMO_Click
skmt.ExecNonQuery("delete from PROIDID")
skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
skmt.ExecNonQuery("delete from PROIDID")
skmt.ExecNonQuery2("INSERT INTO PROIDID VALUES (?)", Array As Object(L_PROID.text))
StartActivity(detalle_promo)
End Sub
@@ -1168,30 +1168,30 @@ Sub nopromo_Click
CAMBIOS = c.GetString("CAT_VA_VALOR")
c.Close
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.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=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
EXISTE_CAMBIO = c.GetString("CUANTOS")
c.Close
End If
If EXISTE_CAMBIO = 0 Then
Msgbox("NO SE VENDIO ESTE PRODUCTO, NO SE PUEDE CAMBIAR","ALERTA")
ELSE If cantidad.Text = "" Then
Msgbox("Cantidad no puede ser 0","Cantidad")
Else If cantidad.Text > EXISTE_CAMBIO Then
End If
If EXISTE_CAMBIO = 0 Then
Msgbox("NO SE VENDIO ESTE PRODUCTO, NO SE PUEDE CAMBIAR","ALERTA")
ELSE If cantidad.Text = "" Then
Msgbox("Cantidad no puede ser 0","Cantidad")
Else If cantidad.Text > EXISTE_CAMBIO Then
Msgbox("Exede la existencia", "ADVERTENCIA")
Else
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
c=skmt.ExecQuery("Select CUENTA from cuentaa")
c=skmt.ExecQuery("Select CUENTA from cuentaa")
c.Position=0
clie_id = c.GetString("CUENTA")
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))
cantidad.Text = ""
cantidad.Text = ""
Panel1.Visible= False

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