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

Al descargar cuestionarios, que los parse y los meta a la tabla Cuestionario

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-25 11:46:52 -06:00
parent 162514aff7
commit 40de9f3010
4 changed files with 27 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
B4A/C_Principal.bas
View File

@@ -256,6 +256,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' DateTime.DateFormat = "MM/dd/yyyy"
' fecha=DateTime.Date(DateTime.Now)
B4XPages.MainPage.skmt.Initialize(ruta,"kmt.db", True)
Subs.guardaAppInfo
' b=B4XPages.MainPage.skmt.ExecQuery("Select count(*) as CUANTOS from pedido_cliente")
' b.Position=0
' Cuantos = b.GetString("CUANTOS")
@@ -625,7 +626,22 @@ Sub JobDone(Job As HttpJob)
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_ENVIO_PENDIENTE, CAT_CL_GIRO, NUEVO, CAT_CL_FECHA_CAPTURA) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?,0,?,0,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_GIRO, CAT_CL_FECHA_CAPTURA))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
l_ruta.Text = records(RESULT.Columns.Get(("CAT_CL_RUTA")))
' 20240117|1|¿Se puede acceder al negocio o está enrejado?|2|Si se pude acceder|2|¿Tiene al menos 2 pasillos con acceso directo a la mercancía?|1|Si tiene al menos 2 pasillos con acceso directo a la mercancía|6|¿Cuenta con caja de salida para cobro con sistema de computo?|1|Si, tiene sistema de computo para cobro - 2, 0
' LogColor($"${CAT_CL_CODIGO}, ${CAT_CL_NOMBRE}"$, Colors.Magenta)
If records(RESULT.Columns.Get("CAT_CL_CUESTIONARIO")).As(String).Length > 8 Then
Private cuest0 As String = records(RESULT.Columns.Get("CAT_CL_CUESTIONARIO"))
Private cuestionario() As String = Regex.split("\|", cuest0)
Private qFecha As String = cuestionario(0)
B4XPages.MainPage.skmt.ExecNonQuery($"delete from cuestionario where Q_IDCLIENTE = '${CAT_CL_CODIGO}'"$)
Log(records(RESULT.Columns.Get("CAT_CL_CUESTIONARIO")))
Log($"${CAT_CL_CODIGO}"$)
For i = 1 To cuestionario.Length - 1 Step 4
B4XPages.MainPage.skmt.ExecNonQuery($"insert into cuestionario (Q_IDCLIENTE, Q_IDPREGUNTA, Q_PREGUNTA, Q_IDRESPUESTA, Q_RESPUESTA, Q_FECHA) values ('${CAT_CL_CODIGO}', '${cuestionario(i)}', '${cuestionario(i+1)}', '${cuestionario(i+2)}', '${cuestionario(i+3)}', '${qFecha}')"$)
Log($"${i} - ${qFecha}, ${cuestionario(i)}, ${cuestionario(i+1)}, ${cuestionario(i+2)}, ${cuestionario(i+3)}"$)
Next
End If
Next
Listo1 = 1
' S_CC.Text = "LISTO"

2
B4A/Mariana Censos.b4a
View File

@@ -753,7 +753,7 @@ Version=12.5
#Region Project Attributes
#ApplicationLabel: Mariana Censos
#VersionCode: 1
#VersionName: 4.01.16
#VersionName: 4.01.25
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

6
B4A/Mariana Censos.b4a.meta
View File

@@ -41,14 +41,14 @@ ModuleClosedNodes13=3,5
ModuleClosedNodes14=
ModuleClosedNodes15=
ModuleClosedNodes16=4,5,6,10,13,17,18,19
ModuleClosedNodes2=
ModuleClosedNodes2=2
ModuleClosedNodes3=
ModuleClosedNodes4=6,7,10,11,14,15,16,17,18,20,21,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44
ModuleClosedNodes5=
ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=6,9,11,12,13,14,16,17
ModuleClosedNodes9=3,5
NavigationStack=Subs,logJobDoneResultados,1234,0,Subs,hayPedido,1224,0,Visual Designer,principal.bal,-100,4,C_NuevoCliente,b_guardar_Click,232,0,Subs,traeTotalesClienteActual,1181,0,Subs,revisaMaxPromosProdsVariablesPorInventario,1103,0,Subs,traeRuta,665,6,Subs,traeAlmacen,660,0,C_Cliente,mandaPendientes,409,5,Starter,JobDone,131,1,Starter,Application_Error,111,0
ModuleClosedNodes9=1,5
NavigationStack=B4XMainPage,Class_Globals,17,0,Subs,logJobDoneResultados,1234,0,Subs,list2string,1308,0,Subs,traeGirosLista,1270,0,Subs,guardaAppInfo,1311,0,B4XMainPage,B4XPage_Created,124,3,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Created,251,0,C_Principal,CARGA_Click,1040,0,C_Principal,cargar_Click,505,0,C_Principal,JobDone,634,6
SelectedBuild=0
VisibleModules=2,14,6,9,4,8,5,15,7,16

7
B4A/Subs.bas
View File

@@ -1312,4 +1312,11 @@ Sub list2string(laLista As List) As String
If i = 0 Then elString = laLista.Get(i) Else elString = $"${elString},${laLista.Get(i)}"$
Next
Return elString
End Sub
'Guarda el nombre y version de la app en CAT_VARIABLES.
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