cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-20 22:29:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se corrigio el codigo de la encuesta para que guarde almacen y ruta en la base de datos.

Browse Source 
- Se puso una validacion al salir de cliente, para que si hay campos modificados y no se han guardado, mande un aviso.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-02-26 15:32:40 -06:00
parent c600d9e044
commit 20fee54acb
9 changed files with 69 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
B4A/C_NuevoCliente.bas
View File

@@ -84,7 +84,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
' skmt.Initialize(ruta,"kmt.db", True)
' p_camara.Height = Root.Height
' p_camara.Width = Root.Width
q.Initialize(Me, "q", Root, B4XPages.MainPage.skmt)
q.Initialize(Me, "q", Root, Starter.skmt)
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
@@ -108,7 +108,7 @@ Sub B4XPage_Appear
et_telefono.Text = ""
et_email.Text = ""
Log($"CargarCliente: ${cargarCliente}"$)
' Log($"CargarCliente: ${cargarCliente}"$)
reqManager.Initialize(Me, Starter.server)
If Not(Starter.gps.GPSEnabled) Then
ToastMessageShow("Es necesario tener el GPS encendido", True)
@@ -143,8 +143,9 @@ Sub B4XPage_Appear
cb_giro.SelectedIndex = losGiros.IndexOf(cc.GetString("CAT_CL_GIRO"))
End If
Else
DateTime.DateFormat = "HH:mm:ss"
sTime=DateTime.Time(DateTime.Now)
no_cliente= "NC" & sTime & no_ruta
no_cliente= "NC" & sTime & ":" & Subs.traeRuta
B4XPages.MainPage.skmt.ExecNonQuery("delete from CUENTAA")
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?)", Array As Object(no_cliente))
Log(no_cliente)
@@ -201,7 +202,7 @@ Sub B4XPage_Appear
l_cuestionario.Height = su.MeasureMultilineTextHeight(l_cuestionario, l_cuestionario.Text)
End If
End If
Log($"${(Not(q.encuestaIniciada) And Not(cargarCliente))} | ${Not(hayCuestionario)}"$)
' Log($"${(Not(q.encuestaIniciada) And Not(cargarCliente))} | ${Not(hayCuestionario)}"$)
If (Not(q.encuestaIniciada) And Not(cargarCliente)) Or (Not(hayCuestionario)) Then
Log("Mostramos encuesta")
q.agregaPregunta("1", "¿Se puede acceder al negocio o está enrejado?", Array As String("No, está enrejado o no se tiene acceso", "Si se pude acceder"))
@@ -535,9 +536,10 @@ Sub q_preguntaContestada(m As Map)
' If q.IsInitialized Then Log($"${q.encuestaIniciada}|${q.preguntaActual}"$)
' m.Get("panel").As(Panel).Visible = False 'Ocultamos el panel de la pregunta.
m.Get("panel").As(Panel).RemoveView 'Quitamos le panel de la pregunta
DateTime.DateFormat = "yyyyMMdd"
DateTime.DateFormat = "dd/MM/yyyy"
DateTime.TimeFormat = "HH:mm:ss"
B4XPages.MainPage.skmt.ExecNonQuery($"delete from CUESTIONARIO where Q_IDCLIENTE = '${Subs.traeCliente}' and Q_IDPREGUNTA = '${m.Get("idPregunta")}'"$)
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CUESTIONARIO (Q_IDCLIENTE, Q_IDPREGUNTA, Q_PREGUNTA, Q_IDRESPUESTA, Q_RESPUESTA, Q_FECHA) values ('${no_cliente}', '${m.Get("idPregunta")}', '${m.Get("pregunta")}', '${m.Get("idRespuesta")}', '${m.Get("respuesta")}', '${DateTime.Date(DateTime.now)}')"$)
B4XPages.MainPage.skmt.ExecNonQuery($"insert into CUESTIONARIO (Q_RUTA, Q_ALMACEN, Q_IDCLIENTE, Q_IDPREGUNTA, Q_PREGUNTA, Q_IDRESPUESTA, Q_RESPUESTA, Q_FECHA) values ('${Subs.traeRuta}', '${Subs.traeAlmacen}', '${Subs.traeCliente}', '${m.Get("idPregunta")}', '${m.Get("pregunta")}', '${m.Get("idRespuesta")}', '${m.Get("respuesta")}', '${DateTime.Date(DateTime.now)} ${DateTime.time(DateTime.now)}')"$)
Select Case m.Get("idPregunta")
Case "1"
If m.Get("respuesta") = "No, está enrejado o no se tiene acceso" Then
@@ -596,10 +598,10 @@ Sub ajustaTamano
' Log("xx: " & sv_clientesDatos.Panel.Height)
' Log($"${b_guardaCambios.Top} + 350"$)
If l_cuestionario.Visible Then
Log("visible")
' Log("visible")
p_botones.Top = l_cuestionario.Top + l_cuestionario.Height + 20
Else
Log("INVisible")
' Log("INVisible")
p_botones.Top = b_ubicacion.Top + b_ubicacion.Height + 20
End If
p_nuevoCliente.Height = p_botones.Top + 350