mirror of
https://github.com/KeymonSoft/Android_durakelo.git
synced 2026-04-17 19:37:03 +00:00
..
This commit is contained in:
272
colonia2.bas
272
colonia2.bas
@@ -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,13 +90,13 @@ 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
|
||||||
Panel1.Visible= False
|
Panel1.Visible= False
|
||||||
' se crea o no el archivo de la base de ddatos de kmt
|
' 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
|
'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.
|
'SI SE REGRESA A ESTE ACTIVIDAD.
|
||||||
If File.Exists(ruta, "kmt.db") = False Then
|
If File.Exists(ruta, "kmt.db") = False Then
|
||||||
@@ -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
|
End If
|
||||||
c.Close
|
c.Close
|
||||||
|
|
||||||
Next
|
Next
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
f.Close
|
f.Close
|
||||||
End If
|
End If
|
||||||
e.Close
|
e.Close
|
||||||
End If
|
End If
|
||||||
'' ESTO ES PARA NO PASAR DE LAS PROMOS ABORDO Y MANDARLAS AL MINIMO FIN
|
'' 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")
|
||||||
|
|
||||||
@@ -673,11 +673,11 @@ Sub guardar_Click
|
|||||||
cl_ruta = c.GetString("CAT_CL_RUTA")
|
cl_ruta = c.GetString("CAT_CL_RUTA")
|
||||||
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
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@@ -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
|
||||||
|
|||||||
Reference in New Issue
Block a user