cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-19 21:59:15 +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
@@ -511,6 +514,26 @@ Sub JobDone(Job As HttpJob)
Next
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)
@@ -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
@@ -1027,4 +1050,16 @@ Private Sub cb_importarBDWA_CheckedChange(Checked As Boolean)
' LogColor($"cb_importarBDWA_CheckedChange = ${Checked}"$, Colors.Red)
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