- Se corrigió que no se enviaba el ID de grupo de la encuesta.

- Se corrigió que no caia la primera pregunta de la encuesta en web.
- Se corrigió queno se enviaba el id de almacen a TMP_ENCUESTA.
- Se corrigió el formato de la fecha de la encuesta.
- Se cambio el query de conexión para poder deshablilitar versiones viejas.

B4A/C_Cliente.bas

@@ -1499,7 +1499,7 @@ Sub StartPrinter
 End Sub
 
 Sub cuestionario2
-	DateTime.DateFormat = "MM/dd/yyyy"
+	DateTime.DateFormat = "MM/dd/yyyy HH:mm:ss"
 	sDate=DateTime.Date(DateTime.Now)
 	sTime=DateTime.Time(DateTime.Now)
 	
@@ -1511,9 +1511,12 @@ Sub cuestionario2
 		CUANTOS = 0
 	End If
 	If CUANTOS = 0 Then
-		c=Starter.skmt.ExecQuery("SELECT CAT_EP_ID ,CAT_EP_IDTIPOPREGUNTA ,CAT_CE_DESCRIPCION ,CAT_EP_PREGUNTA ,CAT_EP_RES1_PRED ,CAT_EP_RES2_PRED ,CAT_EP_RES3_PRED ,CAT_EP_ORDEN_PREGUNTA FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
+		c=Starter.skmt.ExecQuery("SELECT * FROM CAT_ENCUESTA_PREGUNTA ORDER BY CAT_CE_DESCRIPCION, CAST(CAT_EP_ORDEN_PREGUNTA AS DECIMAL)")
 		If c.RowCount>0 Then
 			For i=0 To c.RowCount -1
+				
+				Log($"####     |${sDate}|${sTime}| ######"$)
+				
 				If TOMAR_FOTO = 1 Then
 					If CURSOR_FOTO + 1 > c.RowCount -1 Then
 						TOMAR_FOTO = 0
@@ -1845,6 +1848,7 @@ Sub Cuestionario
 	b_encuesta_continuar.Visible = False
 	et_encuesta.Visible = False
 	DateTime.DateFormat = "MM/dd/yyyy"
+	DateTime.TimeFormat = "HH:mm:ss"
 	sDate = DateTime.Date(DateTime.Now)
 	sTime = DateTime.Time(DateTime.Now)
 	Private fecha As String = $"${DateTime.Date(DateTime.Now)} ${DateTime.Time(DateTime.Now)}"$
@@ -1872,6 +1876,7 @@ Sub Cuestionario
 			enc.position = 0
 			For i = 0 To enc.RowCount - 1
 				Log($"SALIR DE ENCUESTA = ${salirDeEncuesta}"$)
+				Log($"|${sDate}|${sTime}|"$)
 				i = indicePregunta
 				Log("####################################################")
 				Log($"i = ${i}, indicePregunta = ${indicePregunta}"$)