cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

Se agrega que pueda abrir app de encuestas del pelon

Browse Source
This commit is contained in:
cvaldes1201
2025-02-06 13:24:54 -06:00
parent bc254524b5
commit af1491b254
7 changed files with 137 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
B4A/B4XMainPage.bas
View File

@@ -95,6 +95,8 @@ Sub Class_Globals
Dim intentUsado As Boolean = False
Private p_importarBDWA As Panel
Private cb_importarBDWA As CheckBox
Dim pkg As PackageManager
End Sub
Public Sub Initialize
@@ -184,6 +186,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
Subs.agregaColumna("PEDIDO", "PE_RECALCULO", "TEXT")
Subs.agregaColumna("PEDIDO", "PE_RECALCULOTOT", "TEXT")
Subs.agregaColumna("HIST_ENCUESTA", "HE_LON", "TEXT")
Subs.agregaColumna("kmt_info2", "encuesta", "TEXT")
Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "P10" en la tabla
c=skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('ENCUESTA_MODULO3') WHERE name='P10'")
c.Position = 0
@@ -512,6 +515,26 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim result1 As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If result1.Tag = "CHECAENCUESTA" Then 'query tag
For Each records() As Object In result1.Rows
Dim CUANTOSENCUESTA As String = records(result1.Columns.Get("CUANTOS"))
Log(CUANTOSENCUESTA)
Next
Dim sDate,sTime As String
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
If CUANTOSENCUESTA = "0" Then
cmd.Initialize
cmd.Name ="insert_drop_GV2_4"
cmd.Parameters = Array As Object(usuario,Subs.traeRuta,sDate,"",sTime,"","","","","ENCUESTA",almacen,Application.VersionName,Starter.encuesta)
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop")
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "fecha" Then 'query tag
@@ -812,9 +835,9 @@ Sub b_regesar_Click
Starter.reqManager.Initialize(Me, et_server.Text)
End Sub
Sub i_engrane_LongClick
copiaDB
End Sub
'Sub i_engrane_LongClick
' copiaDB
'End Sub
Private Sub lv_server_ItemClick (Position As Int, Value As Object)
Starter.server = Value
@@ -1028,3 +1051,15 @@ Private Sub cb_importarBDWA_CheckedChange(Checked As Boolean)
Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'IMPORTAR_BD_WA'")
Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('IMPORTAR_BD_WA', '${Checked}')"$)
End Sub
Private Sub i_engrane_LongClick
Dim Intent1 As Intent
Intent1.Initialize(Intent1.ACTION_VIEW, "guna://tienda360/config?clienteId=12&almacen=45&ruta=143")
Try
StartActivity(Intent1)
Catch
' Log(LastException)
ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
End Try
End Sub

69
B4A/C_Cliente.bas
View File

@@ -1231,6 +1231,26 @@ Sub JobDone(Job As HttpJob)
Next
End If
End If
' If Job.JobName = "DBRequest" Then
' Dim result1 As DBResult = reqManager.HandleJob(Job)
' If result1.Tag = "CHECAENCUESTA" Then 'query tag
' Log("SIN REGISTROS " & result1.Rows.Size)
'
' For Each records() As Object In result1.Rows
' Dim CUANTOSENCUESTA As String = records(result1.Columns.Get("CUANTOS"))
' Log(CUANTOSENCUESTA)
' If CUANTOSENCUESTA = "0" Then
' cmd.Initialize
' cmd.Name ="insert_drop_GV2_4"
' cmd.Parameters = Array As Object(usuario,B4XPages.MainPage.principal.e_ruta.text,sDate,"",sTime,"","","","","ENCUESTA",ALMACEN,Application.VersionName,Starter.encuesta)
' B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop")
' End If
' Next
' End If
' End If
End If
Job.Release
End Sub
@@ -1240,6 +1260,52 @@ Sub ListView1_ItemLongClick (Position As Int, Value As Object)
End Sub
Sub gest_Click
c=B4XPages.MainPage.skmt.ExecQuery("select IFNULL(encuesta,0) AS encuesta from kmt_info2 where CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)")
c.Position = 0
If c.GetString("encuesta") = "0" Then
Dim Intent1 As Intent
Dim enviorutas As String = "guna://tienda360/config?clienteId="&la_cuenta.Text&"&almacen="&ALMACEN&"&ruta="&Subs.traeRuta
Log(enviorutas)
Intent1.Initialize(Intent1.ACTION_VIEW, enviorutas)
Try
Starter.encuesta = 1
Dim cmd As DBCommand
skmt.ExecNonQuery2("UPDATE kmt_info2 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(1))
StartActivity(Intent1)
compra
Catch
Starter.encuesta = 0
Dim cmd As DBCommand
skmt.ExecNonQuery2("UPDATE kmt_info2 SET encuesta = (?) WHERE CAT_CL_CODIGO IN (SELECT CUENTA FROM CUENTAA)",Array As Object(2))
ToastMessageShow("La aplicación Tienda 360 no está instalada o no puede manejar la URL.", True)
compra
End Try
cmd.Initialize
cmd.Name = "SELECT_TMP_DROP_ENCUESTA_GUNA"
cmd.Parameters = Array As Object(usuario, B4XPages.MainPage.principal.e_ruta.text, ALMACEN, "ENCUESTA")
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "CHECAENCUESTA")
Else
compra
End If
End Sub
Sub compra
' If ALMACEN = "4" Or ALMACEN = "36" Then
' Log(Subs.traeAlmacen)
@@ -1409,6 +1475,9 @@ Sub gest_Click
'Else
' B4XPages.ShowPage("productos")
'End If
End Sub

21
B4A/C_Principal.bas
View File

@@ -1224,6 +1224,26 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim result1 As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If result1.Tag = "CHECAENCUESTA" Then 'query tag
For Each records() As Object In result1.Rows
Dim CUANTOSENCUESTA As String = records(result1.Columns.Get("CUANTOS"))
Log(CUANTOSENCUESTA)
Next
Dim sDate,sTime As String
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)
If CUANTOSENCUESTA = "0" Then
cmd.Initialize
cmd.Name ="insert_drop_GV2_4"
cmd.Parameters = Array As Object(usuario,B4XPages.MainPage.principal.e_ruta.text,sDate,"",sTime,"","","","","ENCUESTA",ALMACEN,Application.VersionName,Starter.encuesta)
B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "inst_drop")
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = B4XPages.MainPage.reqManager.HandleJob(Job)
If RESULT.Tag = "kmt_datos" Then 'query tag
@@ -2892,3 +2912,4 @@ Private Sub b_abordo_Click
Starter.skmt.ExecNonQuery($"insert into cuentaa (cuenta) values ('0')"$)
B4XPages.ShowPage("Cliente")
End Sub

BIN
B4A/Files/login.bal
View File

Binary file not shown.

2
B4A/Guna Vistas V3.1.b4a
View File

@@ -255,7 +255,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Guna Preventa
#VersionCode: 1
#VersionName: 5.01.28
#VersionName: 5.01.30
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

6
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -69,7 +69,7 @@ ModuleClosedNodes20=
ModuleClosedNodes21=
ModuleClosedNodes22=
ModuleClosedNodes23=3,4
ModuleClosedNodes24=4,6,7,8,9,10
ModuleClosedNodes24=4,6,7,8,9
ModuleClosedNodes25=
ModuleClosedNodes26=
ModuleClosedNodes3=
@@ -79,6 +79,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=5,6,8,9,10,11
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=C_Promos,b_terminar1_Click,339,2,Visual Designer,cliente.bal,-100,3,C_Principal,Class_Globals,223,0,Visual Designer,principal.bal,-100,4,C_Principal,B4XPage_Created,253,4,C_Principal,Initialize,242,0,B4XMainPage,Class_Globals,21,0,C_Principal,B4XPage_Appear,442,0,C_Principal,Subir_Click,651,4,DBRequestManager,WriteObject,144,0,C_Cliente,gest_Click,1243,0
NavigationStack=DBRequestManager,HandleJob,250,0,C_Principal,JobDone,1230,0,C_Principal,Class_Globals,44,0,C_Principal,B4XPage_Created,273,0,B4XMainPage,B4XPage_Created,100,2,B4XMainPage,JobDone,525,4,Starter,Process_Globals,34,0,C_Cliente,JobDone,1236,6,Starter,ENVIA_ULTIMA_GPS,107,0,C_Cliente,gest_Click,1261,6
SelectedBuild=0
VisibleModules=24,2,14,25,4,5,7,6,15,12,16,20
VisibleModules=24,2,14,25,4,5,7,6,15,12,20

5
B4A/Starter.bas
View File

@@ -38,6 +38,7 @@ Sub Process_Globals
Public newApp As mNewVersion 'Parte de la funcionalidad "appUpdater"
Dim nuevoLink As String
Dim idCliente As String = ""
Dim encuesta As String = 0
End Sub
Sub Service_Create
@@ -109,8 +110,8 @@ Sub ENVIA_ULTIMA_GPS
' B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "fechat")
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "UPDATE_GUNA_ACTUAL2_GPS"
cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, 0, 0,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
cmd.Name = "UPDATE_GUNA_ACTUAL2_GPS2"
cmd.Parameters = Array As Object(B4XPages.MainPage.montoActual, B4XPages.MainPage.clientestotal, B4XPages.MainPage.clientesventa,B4XPages.MainPage.clientesvisitados,B4XPages.MainPage.lat_gps,B4XPages.MainPage.lon_gps,B4XPages.MainPage.batt,0, 0, 0,encuesta,B4XPages.MainPage.ALMACEN,B4XPages.MainPage.rutapreventa)
' Log($"montoActual: ${B4XPages.MainPage.montoActual}, cTotal: ${B4XPages.MainPage.clientestotal}, cVenta: ${B4XPages.MainPage.clientesventa}, cVisitados: ${B4XPages.MainPage.clientesvisitados}, ${B4XPages.MainPage.lat_gps}, ${B4XPages.MainPage.lon_gps}, Batt: ${B4XPages.MainPage.batt}, 0, 0, 0, Almacen: ${B4XPages.MainPage.ALMACEN}, Ruta: ${B4XPages.MainPage.rutapreventa}"$)
reqManager.ExecuteCommand(cmd, "actualizaUltimaGPS")
skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))