mirror of
https://github.com/KeymonSoft/Durakelo.git
synced 2026-04-17 19:36:12 +00:00
- Correcciones en la encuesta.
This commit is contained in:
@@ -151,6 +151,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS RUTA_GPS(FECHA INTEGER, LAT TEXT, LON TEXT)")
|
||||
Starter.skmt.ExecNonQuery("CREATE TABLE IF NOT EXISTS CLIENTE_IMPRESO (CI_CUENTA TEXT)")
|
||||
kh.agregaColumna(Starter.skmt, "kmt_info", "impresion", "TEXT")
|
||||
kh.agregaColumna(Starter.skmt, "kmt_info", "CAT_CL_CLASIFICADOR1", "TEXT")
|
||||
|
||||
If sDate = "20190523" Then
|
||||
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("SERVER"))
|
||||
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("SERVER",Starter.skmt))
|
||||
|
||||
@@ -164,6 +164,7 @@ Sub Class_Globals
|
||||
Private botonPresionado As Int
|
||||
Private encuestaRes As String
|
||||
Dim TOMAR_FOTO As String
|
||||
Private l_segmentoK2 As Label
|
||||
End Sub
|
||||
|
||||
Sub initialize
|
||||
@@ -201,7 +202,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
|
||||
If s.RowCount > 0 Then
|
||||
s.Position = 0
|
||||
l_total.Text = s.GetString("TOTAL_CLIE")
|
||||
total_cliente = s.GetString("TOTAL_CLIE")
|
||||
total_cliente = s.GetString("TOTAL_CLIE")
|
||||
End If
|
||||
' c = Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("MACIMP"))
|
||||
' If c.RowCount > 0 Then
|
||||
@@ -248,7 +249,7 @@ Sub B4XPage_Appear
|
||||
Else
|
||||
g.Start(0,0)
|
||||
End If
|
||||
c=Starter.skmt.ExecQuery("select 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_BFACTURA,CAT_CL_BCREDITO from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
c=Starter.skmt.ExecQuery("select * from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa)")
|
||||
s=Starter.skmt.ExecQuery("select sum(pe_costo_tot) as TOTAL_CLIE, SUM(PE_CANT) AS CANT_CLIE FROM PEDIDO WHERE PE_CLIENTE IN (Select CUENTA from cuentaa)")
|
||||
s.Position=0
|
||||
c.Position=0
|
||||
@@ -270,11 +271,12 @@ Sub B4XPage_Appear
|
||||
m_lon =c.GetString("CAT_CL_LONG")
|
||||
FACTURA = c.GetString("CAT_CL_BFACTURA")
|
||||
CREDITO = c.GetString("CAT_CL_BCREDITO")
|
||||
l_segmentoK2.Text = c.GetString("CAT_CL_CLASIFICADOR1")
|
||||
'####################################################################################
|
||||
'######## Ponemos CREDITO en CERO porque ahora se esta usando para #################
|
||||
'######## INFO en el TICKET y no para restringir venta #################
|
||||
'####################################################################################
|
||||
CREDITO = 0
|
||||
CREDITO = 0
|
||||
'####################################################################################
|
||||
|
||||
If l_total.Text <> Null Then
|
||||
@@ -314,9 +316,9 @@ Sub B4XPage_Appear
|
||||
End If
|
||||
If META2 = 0 Then
|
||||
META2 = "CUBIERTO"
|
||||
Else
|
||||
Else
|
||||
|
||||
la_saldooper.Text = NumberFormat2(META2, 1, 3, 2, False)
|
||||
la_saldooper.Text = NumberFormat2(META2, 1, 3, 2, False)
|
||||
End If
|
||||
|
||||
If Printer1.IsConnected = False Then
|
||||
@@ -382,11 +384,11 @@ Sub B4XPage_Appear
|
||||
If perfil = "V-ESPECIAL" Then
|
||||
c= Starter.skmt.ExecQuery("SELECT CAT_GP_PRECIO, CAT_GP_ID FROM CAT_PRECIOS")
|
||||
If c.RowCount > 0 Then
|
||||
For i = 0 To c.RowCount -1
|
||||
c.Position = i
|
||||
Starter.skmt.ExecNonQuery2("Update PEDIDO SET PE_PRECIO2 = ? WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String(c.GetString("CAT_GP_PRECIO"),c.GetString("CAT_GP_ID")))
|
||||
Starter.skmt.ExecNonQuery("Update PEDIDO SET PE_TIPO = 'VENTA' WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Next
|
||||
For i = 0 To c.RowCount -1
|
||||
c.Position = i
|
||||
Starter.skmt.ExecNonQuery2("Update PEDIDO SET PE_PRECIO2 = ? WHERE PE_PROID = ? AND PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)",Array As String(c.GetString("CAT_GP_PRECIO"),c.GetString("CAT_GP_ID")))
|
||||
Starter.skmt.ExecNonQuery("Update PEDIDO SET PE_TIPO = 'VENTA' WHERE PE_CLIENTE IN (SELECT CUENTA FROM CUENTAA)")
|
||||
Next
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
@@ -425,7 +427,7 @@ Sub gest_Click
|
||||
' If B4XPages.MainPage.principal.ALMACEN = "5" Then queenc = "6"
|
||||
' c2 = Starter.skmt.ExecQuery2("SELECT HE_CLIE FROM HIST_ENCUESTA3 WHERE HE_TIPO = ? AND HE_CLIE IN (SELECT CUENTA FROM CUENTAA) ",Array As String(queenc))
|
||||
' If c2.RowCount = 0 Then
|
||||
'' 2=2 ----> si no esta en el historico local mostrar encuesta
|
||||
'' 2=2 ----> si no esta en el historico local mostrar encuesta
|
||||
' c = Starter.skmt.ExecQuery("SELECT DISTINCT HE_CLIE FROM HIST_ENCUESTA4 WHERE HE_CLIE IN(SELECT CUENTA FROM CUENTAA)")
|
||||
' If c.RowCount = 0 Then
|
||||
' b_factura.Visible = False
|
||||
@@ -611,13 +613,13 @@ Sub B_IMP_Click
|
||||
c.Close
|
||||
|
||||
' If perfil > 0 Then
|
||||
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
|
||||
If c.RowCount > 0 Then
|
||||
c=Starter.skmt.ExecQuery2("select CAT_VA_VALOR from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("PERFIL"))
|
||||
If c.RowCount > 0 Then
|
||||
c.Position =0
|
||||
perfil = c.GetString("CAT_VA_VALOR")
|
||||
c.Close
|
||||
End If
|
||||
LogColor(perfil,Colors.Magenta)
|
||||
End If
|
||||
LogColor(perfil,Colors.Magenta)
|
||||
' End If
|
||||
|
||||
|
||||
@@ -1059,10 +1061,10 @@ Sub B_IMP2_Click
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL, SUM(PE_PRECIO2 * PE_CANT) AS TOTAL2 FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
s.Position =0
|
||||
If perfil = "V-ESPECIAL" Then
|
||||
If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
||||
Dim totaltotaltoal As Float = s.GetString("TOTAL2") - s.GetString("TOTAL")
|
||||
Printer1.WriteString("Descuento: $" & NumberFormat2(totaltotaltoal, 1, 3, 2, False) & CRLF)
|
||||
End If
|
||||
If s.GetString("TOTAL") - s.GetString("TOTAL2") <> 0 Then
|
||||
Dim totaltotaltoal As Float = s.GetString("TOTAL2") - s.GetString("TOTAL")
|
||||
Printer1.WriteString("Descuento: $" & NumberFormat2(totaltotaltoal, 1, 3, 2, False) & CRLF)
|
||||
End If
|
||||
End If
|
||||
s.Close
|
||||
s=Starter.skmt.ExecQuery2("select SUM(PE_COSTO_TOT) AS TOTAL FROM PEDIDO WHERE PE_TIPO = ? AND PE_CLIENTE IN (Select CUENTA from cuentaa)", Array As String("VENTA"))
|
||||
@@ -1099,7 +1101,7 @@ Sub B_IMP2_Click
|
||||
End Sub
|
||||
|
||||
Sub B_INV_Click
|
||||
'' Printer1.Connect2
|
||||
'' Printer1.Connect2
|
||||
c=Starter.skmt.ExecQuery("select USUARIO from usuarioa")
|
||||
c.Position=0
|
||||
usuario = c.GetString("USUARIO")
|
||||
@@ -1876,12 +1878,14 @@ Sub Cuestionario
|
||||
' If logger Then Log($"ROWCOUNT: ${enc.RowCount}"$)
|
||||
' If logger Then Log($"tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}"$)
|
||||
If logger Then Log($"Tipo: ${enc.GetString("CAT_EP_IDTIPOPREGUNTA")}, CAT_EP_ID=${enc.GetString("CAT_EP_ID")}, CAT_EP_PREGUNTA=${enc.GetString("CAT_EP_PREGUNTA")}"$)
|
||||
If enc.GetString("CAT_EP_IDTIPOPREGUNTA") <> 4 And indicePregunta <> 0 Then
|
||||
|
||||
If enc.GetInt("CAT_EP_IDTIPOPREGUNTA") <> 4 And indicePregunta <> 0 Then
|
||||
Log(333)
|
||||
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) + 1 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
|
||||
i = indicePregunta
|
||||
Log($"i = ${i}"$)
|
||||
End If
|
||||
|
||||
If logger Then Log($"i = ${i}, indicePregunta: "$ & indicePregunta & ", TIPO: " & enc.GetString("CAT_EP_IDTIPOPREGUNTA"))
|
||||
' Log($"Tomar_Foto = ${TOMAR_FOTO}"$)
|
||||
If logger Then Log($"EncuestaRes = ${encuestaRes}"$)
|
||||
@@ -1903,13 +1907,51 @@ Sub Cuestionario
|
||||
|
||||
enc.Position = i
|
||||
' Log($"POSICION = ${enc.Position}"$)
|
||||
If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then
|
||||
If logger Then Log("Pregunta tipo 5")
|
||||
id_encuesta = enc.GetString("CAT_EP_ID")
|
||||
TOMAR_FOTO = 1
|
||||
CURSOR_FOTO = i
|
||||
Exit
|
||||
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo SI/NO
|
||||
If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 1 Then ' Tipo Abierta
|
||||
Log("Pregunta tipo 1")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
If logger Then Log(enc.GetString("CAT_EP_PREGUNTA") &"|"&enc.GetString("CAT_EP_ORDEN_PREGUNTA"))
|
||||
Subs.centraEditText(et_encuesta, Root.Width)
|
||||
et_encuesta.Visible = True
|
||||
b_encuesta_continuar.Enabled = False
|
||||
Private bTop = et_encuesta.Top + 130
|
||||
muestraBoton(b_encuesta_continuar,"Continuar", enc.GetString("CAT_EP_ID"), centroPantalla-250, bTop, 500, 160)
|
||||
muestraEncuesta
|
||||
Log("Esperamos respuesta")
|
||||
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
|
||||
Sleep(0)
|
||||
Loop
|
||||
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) + 1 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
|
||||
Log($"Respuesta: ${encuestaRes}"$)
|
||||
If logger Then LogColor($"Guardamos tipo 1 : ${encuestaRes}"$, Colors.Green)
|
||||
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
ocultaPanelEncuesta
|
||||
i = 0
|
||||
else If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 2 Then ' Tipo Opcion Multiple
|
||||
Log("Pregunta tipo 2")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta.
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
If logger Then Log(enc.GetString("CAT_EP_PREGUNTA"))
|
||||
muestraBoton(b_encuesta_1, enc.GetString("CAT_EP_RES1_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 580, 500, 160)
|
||||
muestraBoton(b_encuesta_2, enc.GetString("CAT_EP_RES2_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 740, 500, 160)
|
||||
muestraBoton(b_encuesta_3, enc.GetString("CAT_EP_RES3_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 900, 500, 160)
|
||||
muestraEncuesta
|
||||
Log("Esperamos respuesta")
|
||||
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta.
|
||||
Sleep(0)
|
||||
Loop
|
||||
Log("encuestaRes: " & encuestaRes)
|
||||
If logger Then LogColor($"Guardamos tipo 2 : ${encuestaRes}"$, Colors.Green)
|
||||
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
Log($"CAT_EP_ID: ${enc.GetString("CAT_EP_ID")}, listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) = ${listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID"))} "$)
|
||||
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) + 1 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
|
||||
i = 0 ' indicePregunta
|
||||
Log($"i = ${i}"$)
|
||||
ocultaPanelEncuesta
|
||||
else if enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 3 Then ' Tipo Verdadero/Falso
|
||||
If logger Then Log("Pregunta tipo 3")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
@@ -1926,7 +1968,8 @@ Sub Cuestionario
|
||||
If logger Then LogColor($"Guardamos tipo 3 : ${encuestaRes}"$, Colors.Green)
|
||||
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
ocultaPanelEncuesta
|
||||
ELSE IF enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then
|
||||
i = 0
|
||||
else if enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 4 Then ' Tipo Decision
|
||||
If logger Then Log("Pregunta tipo 4")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
@@ -1945,40 +1988,24 @@ Sub Cuestionario
|
||||
If encuestaRes = "SI" Then
|
||||
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, "SI", fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_RES1_PRED")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
|
||||
i = indicePregunta
|
||||
i = 0 'indicePregunta
|
||||
Log($"i = ${i}, IndicePreg = ${indicePregunta}"$)
|
||||
else if encuestaRes = "NO" Then
|
||||
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, "NO", fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_RES2_PRED")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
|
||||
i = indicePregunta
|
||||
i = 0 'indicePregunta
|
||||
Log($"i = ${i}, IndicePreg = ${indicePregunta}"$)
|
||||
End If
|
||||
If i = enc.RowCount - 1 Then
|
||||
i = i - 1
|
||||
i = 0 'i - 1
|
||||
End If
|
||||
ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 2 Then ' Tipo 3 opciones.
|
||||
Log("Pregunta tipo 2")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta.
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
If logger Then Log(enc.GetString("CAT_EP_PREGUNTA"))
|
||||
muestraBoton(b_encuesta_1, enc.GetString("CAT_EP_RES1_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 580, 500, 160)
|
||||
muestraBoton(b_encuesta_2, enc.GetString("CAT_EP_RES2_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 740, 500, 160)
|
||||
muestraBoton(b_encuesta_3, enc.GetString("CAT_EP_RES3_PRED"), enc.GetString("CAT_EP_ID"), centroPantalla-250, 900, 500, 160)
|
||||
muestraEncuesta
|
||||
Log("Esperamos respuesta")
|
||||
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta.
|
||||
Sleep(0)
|
||||
Loop
|
||||
Log("encuestaRes: " & encuestaRes)
|
||||
If logger Then LogColor($"Guardamos tipo 2 : ${encuestaRes}"$, Colors.Green)
|
||||
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
Log($"CAT_EP_ID: ${enc.GetString("CAT_EP_ID")}, listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) = ${listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID"))} "$)
|
||||
indicePregunta = listaPreguntas.IndexOf(enc.GetString("CAT_EP_ID")) 'Nos movemos a la posicion especificada por la respuesta, en las preguntas de tipo desicion, la respuesta nos indica a que pregunta movernos.
|
||||
i = indicePregunta
|
||||
Log($"i = ${i}"$)
|
||||
ocultaPanelEncuesta
|
||||
ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then
|
||||
else If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 5 Then ' Tipo Foto
|
||||
If logger Then Log("Pregunta tipo 5")
|
||||
id_encuesta = enc.GetString("CAT_EP_ID")
|
||||
TOMAR_FOTO = 1
|
||||
CURSOR_FOTO = i
|
||||
Exit
|
||||
else If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 6 Then ' Tipo Multi-Seleccion
|
||||
If logger Then Log("Pregunta tipo 6")
|
||||
Panel10.Visible = True
|
||||
l_chk_e.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
@@ -1996,27 +2023,8 @@ Sub Cuestionario
|
||||
chk_3.Tag = enc.GetString("CAT_EP_ID")
|
||||
TOMAR_FOTO = 1
|
||||
CURSOR_FOTO = i
|
||||
Exit
|
||||
ELSE If enc.GetString("CAT_EP_IDTIPOPREGUNTA") = 1 Then
|
||||
Log("Pregunta tipo 1")
|
||||
botonPresionado = 0 ' Bandera para que espere a que se conteste la pregunta
|
||||
l_titEncuesta.Text = enc.GetString("CAT_CE_DESCRIPCION")
|
||||
l_txtEncuesta.Text = enc.GetString("CAT_EP_PREGUNTA")
|
||||
If logger Then Log(enc.GetString("CAT_EP_PREGUNTA") &"|"&enc.GetString("CAT_EP_ORDEN_PREGUNTA"))
|
||||
Subs.centraEditText(et_encuesta, Root.Width)
|
||||
et_encuesta.Visible = True
|
||||
b_encuesta_continuar.Enabled = False
|
||||
Private bTop = et_encuesta.Top + 130
|
||||
muestraBoton(b_encuesta_continuar,"Continuar", enc.GetString("CAT_EP_ID"), centroPantalla-250, bTop, 500, 160)
|
||||
muestraEncuesta
|
||||
Log("Esperamos respuesta")
|
||||
Do Until botonPresionado = 1 'Esperamos que respondan la pregunta
|
||||
Sleep(0)
|
||||
Loop
|
||||
Log($"Respuesta: ${encuestaRes}"$)
|
||||
If logger Then LogColor($"Guardamos tipo 1 : ${encuestaRes}"$, Colors.Green)
|
||||
Starter.skmt.ExecNonQuery2("insert into HIST_ENCUESTA(HE_CLIE, HE_RES, HE_FECHA, HE_TIPO, HE_LAT, HE_LON) VALUES (?,?,?,?,?,?)", Array As Object(la_cuenta.Text, encuestaRes, fecha, enc.GetString("CAT_EP_ID"), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
|
||||
ocultaPanelEncuesta
|
||||
i = 0
|
||||
' Exit
|
||||
Else
|
||||
' Starter.tipov = "VENTA"
|
||||
B4XPages.ShowPage("productos")
|
||||
@@ -2067,7 +2075,7 @@ Sub centroPantalla As Int
|
||||
End Sub
|
||||
|
||||
Private Sub b_encuesta_1_Click
|
||||
Log("BOTON 1 CLICK")
|
||||
' Log("BOTON 1 CLICK")
|
||||
Dim btn As Button = Sender
|
||||
Log("BOTON 1 CLICKED "& " clicked - " & btn.Text & " - " & btn.Tag)
|
||||
encuestaRes = btn.Text
|
||||
|
||||
@@ -1133,7 +1133,8 @@ Sub JobDone(Job As HttpJob)
|
||||
Dim CAT_CL_NUM_SERIEFISICO As String = records(RESULT.Columns.Get("CAT_CL_NUM_SERIEFISICO"))
|
||||
Dim CAT_CL_BFACTURA As String = records(RESULT.Columns.Get("CAT_CL_BFACTURA"))
|
||||
Dim CAT_CL_BCREDITO As String = records(RESULT.Columns.Get("CAT_CL_BBLOQUEOCRED"))
|
||||
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,CAT_CL_BFACTURA,CAT_CL_BCREDITO, gestion) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,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_BFACTURA,CAT_CL_BCREDITO))
|
||||
Dim CAT_CL_CLASIFICADOR1 As String = records(RESULT.Columns.Get("CAT_CL_CLASIFICADOR1"))
|
||||
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,CAT_CL_BFACTURA,CAT_CL_BCREDITO, gestion, CAT_CL_CLASIFICADOR1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,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_BFACTURA,CAT_CL_BCREDITO,CAT_CL_CLASIFICADOR1))
|
||||
' Log(">>>>>>>> " & CAT_CL_BCREDITO)
|
||||
Next
|
||||
skmt.TransactionSuccessful
|
||||
|
||||
@@ -1398,7 +1398,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Durakelo
|
||||
#VersionCode: 1
|
||||
#VersionName: 4.05.16
|
||||
#VersionName: 4.05.21
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -60,19 +60,19 @@ ModuleClosedNodes16=
|
||||
ModuleClosedNodes17=
|
||||
ModuleClosedNodes18=
|
||||
ModuleClosedNodes19=
|
||||
ModuleClosedNodes2=4
|
||||
ModuleClosedNodes2=
|
||||
ModuleClosedNodes20=
|
||||
ModuleClosedNodes21=
|
||||
ModuleClosedNodes22=1
|
||||
ModuleClosedNodes23=
|
||||
ModuleClosedNodes24=
|
||||
ModuleClosedNodes3=
|
||||
ModuleClosedNodes4=3,41
|
||||
ModuleClosedNodes4=
|
||||
ModuleClosedNodes5=
|
||||
ModuleClosedNodes6=
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=kms_helperSubs,CheckNotificationAccess,446,0,kms_helperSubs,traeUsarIntentBDWA,457,0,kms_helperSubs,Class_Globals,18,0,B4XMainPage,ocultaProgreso,526,0,B4XMainPage,cb_importarBDWA_CheckedChange,529,0,B4XMainPage,ImageView4_Click,429,0,B4XMainPage,B4XPage_Created,103,0,B4XMainPage,B4XPage_Appear,208,0,Visual Designer,login.bal,-100,6,kms_helperSubs,importaBDDesdeWhatsApp,472,3,B4XMainPage,b_envioBD_Click,514,6
|
||||
NavigationStack=C_Cliente,Class_Globals,1,0,C_Principal,cargar_Click,939,0,C_Principal,JobDone,1132,0,C_Cliente,B4XPage_Created,174,0,C_Cliente,B4XPage_Appear,234,6,Main,Globals,25,0,Main,Process_Globals,21,0,C_Cliente,muestraEncuesta,2033,0,C_Cliente,b_encuesta_1_Click,2069,0,C_Cliente,GPS_LocationChanged,397,0,C_Cliente,Cuestionario,1900,6
|
||||
SelectedBuild=0
|
||||
VisibleModules=2,10,4,19,5,6,8,9,11,24,7
|
||||
VisibleModules=2,10,4,19,5,6,8,9,11,24
|
||||
|
||||
Binary file not shown.
Reference in New Issue
Block a user