cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-17 19:36:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-30 16:57:53 -06:00
parent 5289bb7051
commit c69ef55fb3
2 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
B4A/C_Principal.bas
View File

@@ -626,7 +626,7 @@ Sub Subir_Click
End If
'ENCUESTAS
c=skmt.ExecQuery("SELECT CAT_EP_IDGRUPO, HIST_ENCUESTA.* FROM HIST_ENCUESTA join CAT_ENCUESTA_PREGUNTA on CAT_EP_ID = HE_TIPO")
c=skmt.ExecQuery("SELECT CAT_EP_IDGRUPO, CAT_EP_IDTIPOPREGUNTA, HIST_ENCUESTA.* FROM HIST_ENCUESTA join CAT_ENCUESTA_PREGUNTA on CAT_EP_ID = HE_TIPO")
' S_CP.Text = "Envio Encuesta"
' PB2.Progress = 1
If c.RowCount>0 Then
@@ -635,8 +635,8 @@ Sub Subir_Click
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "insert_encuesta2_DUR"
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"), C.GetString("HE_RES"), C.GetString("HE_FECHA"), c.GetString("HE_TIPO"), l_ruta.Text, c.GetString("CAT_EP_IDGRUPO"), Subs.traeAlmacen)
Log($"${C.GetString("HE_RES")}, ${C.GetString("HE_FECHA")}, ${c.GetString("HE_TIPO")}, ${l_ruta.Text}, ${c.GetString("CAT_EP_IDGRUPO")}, ${Subs.traeAlmacen}"$)
cmd.Parameters = Array As Object(C.GetString("HE_CLIE"), C.GetString("HE_RES"), C.GetString("HE_FECHA"), c.GetString("HE_TIPO"), l_ruta.Text, c.GetString("CAT_EP_IDGRUPO"), Subs.traeAlmacen, c.GetString("CAT_EP_IDTIPOPREGUNTA"))
Log($"${C.GetString("HE_RES")}, ${C.GetString("HE_FECHA")}, ${c.GetString("HE_TIPO")}, ${l_ruta.Text}, ${c.GetString("CAT_EP_IDGRUPO")}, ${Subs.traeAlmacen}, ${c.GetString("CAT_EP_IDTIPOPREGUNTA")}"$)
reqManager.ExecuteCommand(cmd , "ins_encuesta")
Next
End If

2
B4A/Durakelo.b4a.meta
View File

@@ -73,6 +73,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=B4XMainPage,JobDone,366,0,Main,Process_Globals,21,0,B4XMainPage,B4XPage_Created,161,0,C_Cliente,cuestionario2,1511,6,C_Cliente,Cuestionario,1843,6,Main,Activity_Create,27,0,Main,Globals,23,0,C_Principal,Subir_Click,483,6,C_Principal,connecta_Click,1958,6,C_Principal,JobDone,1770,0
NavigationStack=B4XMainPage,JobDone,366,0,Main,Process_Globals,21,0,B4XMainPage,B4XPage_Created,161,0,C_Cliente,cuestionario2,1511,6,C_Cliente,Cuestionario,1843,6,Main,Activity_Create,27,0,Main,Globals,23,0,C_Principal,connecta_Click,1958,6,C_Principal,JobDone,1749,0,C_Principal,Subir_Click,632,6,C_Cuestionario,r_CheckedChange,118,0
SelectedBuild=0
VisibleModules=2,10,4,19,5,6,8,9,11,24