mirror of
https://github.com/KeymonSoft/Guna_Preventa_Diseno_Viejo.git
synced 2026-04-17 21:06:08 +00:00
promocion
This commit is contained in:
cvaldes1201
@@ -154,6 +154,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
skmt.Initialize(ruta,"kmt.db", True)
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS IMPRESORA (HABILITADA)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS GPS (HABILITADO)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CAT_PROMO_ESP(CAT_PE_ID TEXT,CAT_PE_IDPROMO TEXT,CAT_PE_MONTO TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_CUOTAS (HC_META6 TEXT, HC_META5 TEXT, HC_META4 TEXT, HC_META3 TEXT, HC_META2 TEXT, HC_META1 TEXT, HC_RUTA TEXT, HC_CUOTA1 TEXT, HC_CUOTA2 TEXT, HC_CUOTA3 TEXT, HC_CUOTA4 TEXT, HC_CUOTA5 TEXT, HC_CUOTA6 TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_GPS (HGDATE TEXT, HGLAT TEXT, HGLON TEXT)")
|
||||
skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS HIST_STAY_STORE (HSS_CODIGO TEXT, HSS_IN TEXT, HSS_OUT TEXT, HSS_TOT TEXT)")
|
||||
|
||||
@@ -687,7 +687,37 @@ Sub B4XPage_Appear
|
||||
' ToastMessageShow("aaa", False)
|
||||
End If
|
||||
|
||||
|
||||
' Log(Subs.InvSuficientePromoEsp)
|
||||
' Log(Subs.traemontoprod)
|
||||
|
||||
If Subs.traemontoprod And Subs.InvSuficientePromoEsp And Not(Subs.vendidoPromoEsp) Then
|
||||
Msgbox2Async("El cliente tiene derecho a una promo por la compra de mas de $120 en productos Helmanns, Maizena y/o Knorr" , "Promo disponible", "Aceptar", "", "", LoadBitmap(File.DirAssets,"alert2.png"), False)
|
||||
Wait For Msgbox_Result (resultado As Int)
|
||||
If resultado = DialogResponse.POSITIVE Then
|
||||
B4XPages.MainPage.productos.terminarpromoesp
|
||||
End If
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
If Not(Subs.traemontoprod) And Subs.vendidoPromoEsp Then
|
||||
Private j3 As Cursor
|
||||
j3 = B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS, PE_CANT,PE_PROID, PE_PRONOMBRE FROM PEDIDO WHERE PE_CEDIS IN (SELECT PE_CEDIS FROM PEDIDO WHERE PE_PROID = ?)",Array As String("PROUNI01"))
|
||||
Log(j3.RowCount)
|
||||
If j3.RowCount > 0 Then
|
||||
Log("estoy aqui")
|
||||
For i = 0 To j3.RowCount -1
|
||||
Log("aqui tronare?")
|
||||
j3.Position = i
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen + ${j3.GetString("PE_CANT")} where cat_gp_id = '${j3.Getstring("PE_PROID")}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(j3.GetString("PE_PRONOMBRE"), "PREVENTA"))
|
||||
Next
|
||||
End If
|
||||
j3.Close
|
||||
Log("BOR")
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -932,11 +962,11 @@ Sub gest_Click
|
||||
' If ALMACEN = "4" Or ALMACEN = "36" Then
|
||||
' Log(Subs.traeAlmacen)
|
||||
|
||||
Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
|
||||
If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
|
||||
cuest.agregaPreguntaCheckbox("1", "¿Qué productos de Kileo Perro encuentras en esta tienda?", Array As String("Pedigree Adulto", "Pedigree Cachorro", "Pedigree Razas Pequeñas", "Champ", "PAL","DOG CHOW ADULTO","DOG CHOW CACHORRO","DOG CHOW RAZAS PEQUEÑAS","Campeon","Ganador","Poder canino","Perron","Silverkan","Woow","Chapetes","Dyno","Beriscan","Nogacan","Nutrescan","Fidus","Amigo Gourmet","Otros","Ninguno de los anteriores"))
|
||||
Return False
|
||||
End If
|
||||
' Log($"${cuest.encuestaIniciada} - ${cuest.clienteConCuestionario(Subs.traeCliente)}"$)
|
||||
' If Not(cuest.encuestaIniciada) And Not(cuest.clienteConCuestionario(Subs.traeCliente)) Then
|
||||
' cuest.agregaPreguntaCheckbox("1", "¿Qué productos de Kileo Perro encuentras en esta tienda?", Array As String("Pedigree Adulto", "Pedigree Cachorro", "Pedigree Razas Pequeñas", "Champ", "PAL","DOG CHOW ADULTO","DOG CHOW CACHORRO","DOG CHOW RAZAS PEQUEÑAS","Campeon","Ganador","Poder canino","Perron","Silverkan","Woow","Chapetes","Dyno","Beriscan","Nogacan","Nutrescan","Fidus","Amigo Gourmet","Otros","Ninguno de los anteriores"))
|
||||
' Return False
|
||||
' End If
|
||||
|
||||
If TOMAR_FOTO = 0 Then
|
||||
Cuestionario
|
||||
@@ -4056,14 +4086,14 @@ Sub cuest_preguntaContestada(m As Map)
|
||||
If m.Get("respuesta") = "Ninguno de los anteriores" Then
|
||||
' Log("Ninguno de los anteriores")
|
||||
' ToastMessageShow("Ninguno de los anteriores", False)
|
||||
cuest.agregaPreguntaCheckbox("3", "¿Qué productos de Kileo Gato encuentras en esta tienda?", Array As String("Whiskas","KITEKAT","PAL GATO","CAT CHOW","GATINA","MININO","MI MISHI","Ninguno de los anteriores"))
|
||||
cuest.agregaPreguntaCheckbox("3", "¿Qué productos de Kileo Gato encuentras en esta tienda?", Array As String("Whiskas","KITEKAT","PAL GATO","CAT CHOW","GATINA","MININO","MI MISHI","OTROS","Ninguno de los anteriores"))
|
||||
Else
|
||||
' Log(m.Get("idRespuesta"))
|
||||
cuest.agregaPreguntaAbierta("2", "Captura el precio por kilo de los articulos seleccionados anteriormente", cuest.strToList(m.Get("idRespuesta")), cuest.strToList(m.Get("respuesta")))
|
||||
End If
|
||||
Case "2"
|
||||
' Log(m.Get("respuesta"))
|
||||
cuest.agregaPreguntaCheckbox("3", "¿Qué productos de Kileo Gato encuentras en esta tienda?", Array As String("Whiskas","KITEKAT","PAL GATO","CAT CHOW","GATINA","MININO","MI MISHI","Ninguno de los anteriores"))
|
||||
cuest.agregaPreguntaCheckbox("3", "¿Qué productos de Kileo Gato encuentras en esta tienda?", Array As String("Whiskas","KITEKAT","PAL GATO","CAT CHOW","GATINA","MININO","MI MISHI","OTROS","Ninguno de los anteriores"))
|
||||
Case "3"
|
||||
' Log(m.Get("respuesta"))
|
||||
If m.Get("respuesta") = "Ninguno de los anteriores" Then
|
||||
|
||||
@@ -26,7 +26,7 @@ Sub Class_Globals
|
||||
Dim result As String
|
||||
' Dim lat_gps, lon_gps As String
|
||||
Dim DESC As String
|
||||
|
||||
Dim c2, j3 As Cursor
|
||||
Private Titulo As Label
|
||||
Private b_desc As Button
|
||||
Dim DESCUENTO As String
|
||||
@@ -153,18 +153,32 @@ End Sub
|
||||
Sub ListView1_ItemLongClick (Position As Int, Value As Object)
|
||||
result = Msgbox2("Seguro que desea borrar este articulo?","Borrar Articulo", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png")) 'ignore
|
||||
If result = DialogResponse.POSITIVE Then
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("select PE_PROID,PE_CANT, PE_FOLIO FROM PEDIDO where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) ", Array As String(Value))
|
||||
c.Position=0
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||
' B4XPages.MainPage.skmt.ExecNonQuery2("update cat_gunaprod set cat_gp_almacen = cat_gp_almacen + ? where cat_gp_id = ?", Array As Object(c.GetString("PE_CANT"),c.GetString("PE_PROID")))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO INVENT_X_ENVIAR (ALMACEN , PROID , CANTIDAD ) VALUES(?,?,?) ", Array As Object (almacen,c.GetString("PE_PROID"),c.GetString("PE_CANT")* -1))
|
||||
c.Close
|
||||
c=B4XPages.MainPage.skmt.ExecQuery2("select count(*) AS CUANTOS from cat_gunaprod where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'", Array As String(Value))
|
||||
c.Position=0
|
||||
If c.GetString("CUANTOS") > 0 Then
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||
c2=B4XPages.MainPage.skmt.ExecQuery2($"select count(*) AS CUANTOS from CAT_GUNAPROD where CAT_GP_ID in (select pe_cedis from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)) and CAT_GP_CLASIF = 'PROMOS' AND CAT_GP_TIPO = 'PROMOS' AND CAT_GP_SUBTIPO = 'PROMOS'"$, Array As String(Value))
|
||||
c2.Position=0
|
||||
Log(c2.GetString("CUANTOS"))
|
||||
If c2.GetString("CUANTOS") > 0 Then
|
||||
j3 = B4XPages.MainPage.skmt.ExecQuery2("SELECT PE_CEDIS, PE_CANT,PE_PROID, PE_PRONOMBRE FROM PEDIDO WHERE PE_CEDIS IN (SELECT PE_CEDIS FROM PEDIDO WHERE PE_PRONOMBRE = ?)",Array As String(Value))
|
||||
Log(j3.RowCount)
|
||||
If j3.RowCount > 0 Then
|
||||
Log("estoy aqui")
|
||||
For i = 0 To j3.RowCount -1
|
||||
Log("aqui tronare?")
|
||||
j3.Position = i
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen + ${j3.GetString("PE_CANT")} where cat_gp_id = '${j3.Getstring("PE_PROID")}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_cedis in (select pe_cedis from pedido where pe_pronombre = ?) and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(j3.GetString("PE_PRONOMBRE"), c.GetString("PE_FOLIO")))
|
||||
Next
|
||||
End If
|
||||
j3.Close
|
||||
Else
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa)", Array As Object(Value))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"update CAT_GUNAPROD set cat_gp_almacen = cat_gp_almacen + ${c.GetString("PE_CANT")} where cat_gp_id = '${c.Getstring("PE_PROID")}'"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("delete from pedido where pe_pronombre = ? and pe_cliente in (Select CUENTA from cuentaa) AND PE_FOLIO = ?", Array As Object(Value, c.GetString("PE_FOLIO")))
|
||||
End If
|
||||
c.Close
|
||||
c2.Close
|
||||
DateTime.DateFormat = "MM/dd/yyyy"
|
||||
sDate=DateTime.Date(DateTime.Now)
|
||||
sTime=DateTime.Time(DateTime.Now)
|
||||
|
||||
@@ -835,16 +835,30 @@ Sub cargar_Click
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprod")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_HIST_ESPECIAL_GUNA"
|
||||
' cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "histespecial")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_resum_apk_guna" ''' va el nombre de archivo de config
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "resum_apk") ''' donde regresa la info ver job_done
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_paquetes_GV3"
|
||||
cmd.Name = "select_cat_paquetes_GV4"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "gunaprodp")
|
||||
|
||||
If ALMACEN = 32 Or ALMACEN = 6 Then
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_promoesp_GUNA"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "promoesp")
|
||||
|
||||
End If
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_cat_paquetess_GV2"
|
||||
cmd.Parameters = Array As Object(ALMACEN)
|
||||
@@ -1089,6 +1103,8 @@ Sub JobDone(Job As HttpJob)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
@@ -1169,6 +1185,27 @@ Sub JobDone(Job As HttpJob)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "histespecial" Then 'query tag
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CLIENTE As String = records(RESULT.Columns.Get("CLIENTE"))
|
||||
Dim PROMOCION As String = records(RESULT.Columns.Get("PRMOCION"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_PROMOS(HP_CLIENTE, HP_CODIGO_PROMOCION) VALUES (?,?)", Array As Object (CLIENTE, PROMOCION))
|
||||
Next
|
||||
' If Starter.marcaCel <> "Sony" Then ToastMessageShow("Historico Promociones Actualizado." , True)
|
||||
If PB1.Progress = 0 Then
|
||||
PB1.Progress = 30
|
||||
S_CH.Text = "CARGANDO"
|
||||
ELSE If PB1.Progress = 30 Then
|
||||
PB1.Progress = 60
|
||||
ELSE IF PB1.Progress = 60 Then
|
||||
PB1.Progress = 100
|
||||
S_CH.Text = "LISTO"
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
@@ -1312,6 +1349,19 @@ Sub JobDone(Job As HttpJob)
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
|
||||
If RESULT.Tag = "promoesp" Then 'query tag
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_PROMO_ESP")
|
||||
For Each records() As Object In RESULT.Rows
|
||||
Dim CAT_PE_ID As String = records(RESULT.Columns.Get("CAT_PE_ID"))
|
||||
Dim CAT_PE_IDPROMO As String = records(RESULT.Columns.Get("CAT_PE_IDPROMO"))
|
||||
Dim CAT_PE_MONTO As String = records(RESULT.Columns.Get("CAT_PE_MONTO"))
|
||||
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CAT_PROMO_ESP(CAT_PE_ID, CAT_PE_IDPROMO, CAT_PE_MONTO) VALUES (?,?,?)", Array As Object (CAT_PE_ID , CAT_PE_IDPROMO,CAT_PE_MONTO))
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
|
||||
'HIST_ENCUESTA2
|
||||
If Job.JobName = "DBRequest" Then
|
||||
|
||||
@@ -148,8 +148,12 @@ Sub lv_catalogos_ItemClick (Position As Int, Value As Object)
|
||||
B4XPages.ShowPage("Cliente")
|
||||
End If
|
||||
If Value = "PROMOS" Then
|
||||
' If Subs.traemontoprod Then
|
||||
' c2 = B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, marca, tipo))
|
||||
' Else
|
||||
LogColor("Promos" & " | " & marca & " | " & tipo, Colors.red)
|
||||
c2=B4XPages.MainPage.skmt.ExecQuery2("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD = ? AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa) )", Array As String(Value, marca, tipo))
|
||||
c2 = B4XPages.MainPage.skmt.ExecQuery2("Select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG from cat_gunaprod where CAT_GP_PRECIO > 0 And CAT_GP_ALMACEN > 0 And CAT_GP_TIPOPROD = ? AND CAT_GP_ID NOT IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP) AND CAT_GP_TIPO = ? AND CAT_GP_SUBTIPO = ? AND CAT_GP_ID NOT IN (SELECT PE_PROID FROM PEDIDO WHERE PE_CLIENTE IN (Select cuenta from cuentaa))", Array As String(Value, marca, tipo))
|
||||
' End If
|
||||
Else
|
||||
LogColor("Catalogo", Colors.red)
|
||||
c2=B4XPages.MainPage.skmt.ExecQuery("select CAT_GP_ID, CAT_GP_NOMBRE, CAT_GP_PRECIO, CAT_GP_ALMACEN, CAT_GP_IMG, CAT_GP_TIPOPROD, CAT_GP_INICIATIVA from cat_gunaprod where CAT_GP_PRECIO > 0 AND CAT_GP_ALMACEN > 0 and CAT_GP_TIPOPROD <> 'PROMOS' ")
|
||||
@@ -598,6 +602,25 @@ Private Sub b_terminar1_Click
|
||||
B4XPages.ShowPage("Cliente")
|
||||
End Sub
|
||||
|
||||
'Inserta la promo especial en pedido
|
||||
Sub terminarpromoesp
|
||||
c2 = B4XPages.MainPage.skmt.ExecQuery("select * from CAT_GUNAPROD WHERE CAT_GP_ID IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP)")
|
||||
If c2.RowCount > 0 Then
|
||||
c2.Position = 0
|
||||
Subs.guardaProducto(c2.GetString("CAT_GP_ID"), "0", 1,c2.GetString("CAT_GP_NOMBRE"), c2.GetString("CAT_GP_ID"), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
|
||||
c = B4XPages.MainPage.skmt.ExecQuery("select * from CAT_DETALLES_PAQ WHERE CAT_DP_ID IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP)")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
Private pn As String = Subs.traeProdNombre(c.GetString("CAT_DP_IDPROD"))
|
||||
Subs.guardaProducto(c2.GetString("CAT_GP_ID"), c.GetString("CAT_DP_PRECIO"), c.GetString("CAT_DP_PZAS"), pn, c.GetString("CAT_DP_IDPROD"), Subs.traeCliente, Subs.traeFecha, Subs.traeUsuarioDeBD, Subs.traeRuta, 0, B4XPages.MainPage.tipo_venta)
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
End If
|
||||
c2.Close
|
||||
End Sub
|
||||
|
||||
Private Sub b_continuar_Click
|
||||
Log("b_continuar_Click")
|
||||
cuentaProds
|
||||
|
||||
@@ -190,7 +190,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Guna V3.1
|
||||
#VersionCode: 1
|
||||
#VersionName: 4.06.11 ENC Geo
|
||||
#VersionName: 4.06.17 ENC Geo
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -54,7 +54,7 @@ ModuleClosedNodes10=
|
||||
ModuleClosedNodes11=
|
||||
ModuleClosedNodes12=6
|
||||
ModuleClosedNodes13=2,3,8,10,14
|
||||
ModuleClosedNodes14=6,10,11,13,14,16,17,20,21,22,23
|
||||
ModuleClosedNodes14=
|
||||
ModuleClosedNodes15=
|
||||
ModuleClosedNodes16=
|
||||
ModuleClosedNodes17=
|
||||
@@ -73,6 +73,6 @@ ModuleClosedNodes6=6,8,9,10
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=C_Cuestionario,strToList,385,0,C_Cuestionario,agregaPreguntaRadio,158,0,C_Principal,cargar_Click,936,0,C_Principal,JobDone,1531,0,C_Principal,Subir_Click,588,6,C_Cuestionario,agregaPreguntaAbierta,197,6,C_Cuestionario,et_TextChanged,310,6,C_Cuestionario,cb_CheckedChange,281,0,C_Cliente,cuest_preguntaContestada,4048,6,C_Cliente,p_encuesta_Click,4034,0,Visual Designer,login.bal,-100,1
|
||||
NavigationStack=C_Cliente,Class_Globals,0,0,C_Cliente,B4XPage_Appear,618,6,C_Principal,B4XPage_Appear,322,0,C_Principal,CARGA_Click,2049,0,C_Principal,cargar_Click,841,0,C_Cliente,GPS_LocationChanged,717,0,C_Principal,Class_Globals,0,0,C_Productos,Class_Globals,0,0,C_Cliente,cuest_preguntaContestada,4089,3,C_Cliente,gest_Click,958,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=22,2,23,13,14,4,6,9,12,5
|
||||
|
||||
63
B4A/Subs.bas
63
B4A/Subs.bas
@@ -1139,4 +1139,65 @@ Sub guardaAppInfo 'ignore
|
||||
B4XPages.MainPage.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'EMPRESA' or CAT_VA_DESCRIPCION = 'APP_NAME' or CAT_VA_DESCRIPCION = 'APP_VERSION'")
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_NAME', '${Application.LabelName}')"$)
|
||||
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('APP_VERSION', '${Application.VersionName}')"$)
|
||||
End Sub
|
||||
End Sub
|
||||
|
||||
Sub TraeMontoProd As Boolean
|
||||
Private x As Boolean = False
|
||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT ifnull( SUM (PE_COSTO_TOT),0) As suma FROM PEDIDO JOIN CAT_PROMO_ESP ON CAT_PE_ID = PE_PROID WHERE PE_CLIENTE IN (Select CUENTA FROM CUENTAA)")
|
||||
If c.RowCount > 0 Then
|
||||
c.Position = 0
|
||||
Private c2 As Cursor = B4XPages.MainPage.skmt.ExecQuery("SELECT DISTINCT CAT_PE_MONTO FROM CAT_PROMO_ESP")
|
||||
If c2.RowCount > 0 Then
|
||||
c2.Position = 0
|
||||
|
||||
If c.GetString("suma") >= c2.GetString("CAT_PE_MONTO") Then
|
||||
x = True
|
||||
Log("verdadero")
|
||||
Else
|
||||
x = False
|
||||
Log("Falso")
|
||||
End If
|
||||
|
||||
End If
|
||||
End If
|
||||
Return x
|
||||
End Sub
|
||||
|
||||
Sub InvSuficientePromoEsp As Boolean
|
||||
Private y As Boolean = False
|
||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("select CAT_DP_IDPROD, CAT_DP_PZAS, ifnull(CAT_GP_ALMACEN, 0) As CAT_GP_ALMACEN from CAT_DETALLES_PAQ left JOIN CAT_GUNAPROD ON CAT_DP_IDPROD = CAT_GP_ID WHERE CAT_DP_ID IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP)")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount - 1
|
||||
c.Position = i
|
||||
If c.GetString("CAT_GP_ALMACEN") >= c.GetString("CAT_DP_PZAS") Then
|
||||
y = True
|
||||
' Log("verdadero "& c.GetString("CAT_DP_IDPROD"))
|
||||
' Log(c.GetString("CAT_GP_ALMACEN") &" "& c.GetString("CAT_DP_PZAS"))
|
||||
Else
|
||||
y = False
|
||||
' Log("falso "& c.GetString("CAT_DP_IDPROD"))
|
||||
' Log(c.GetString("CAT_GP_ALMACEN") &" "& c.GetString("CAT_DP_PZAS"))
|
||||
Exit
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
c.Close
|
||||
Return y
|
||||
End Sub
|
||||
|
||||
Sub vendidoPromoEsp As Boolean
|
||||
Private w As Boolean = False
|
||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("select HP_CLIENTE, HP_CODIGO_PROMOCION from HIST_PROMOS WHERE HP_CODIGO_PROMOCION IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP) AND HP_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c.RowCount > 0 Then
|
||||
w = True
|
||||
End If
|
||||
Log(w)
|
||||
c.Close
|
||||
Private c As Cursor = B4XPages.MainPage.skmt.ExecQuery("select PE_PROID from PEDIDO WHERE PE_PROID IN (SELECT DISTINCT CAT_PE_IDPROMO FROM CAT_PROMO_ESP) AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
If c.RowCount > 0 Then
|
||||
w = True
|
||||
End If
|
||||
c.Close
|
||||
Log(w)
|
||||
Return w
|
||||
End Sub
|
||||
|
||||
Reference in New Issue
Block a user