Se agregó la clase y codigo para el cuestionario

B4A/C_Principal.bas

@@ -581,7 +581,7 @@ Sub Subir_Click
 	'ELSE IF c.GetString("DESCUENTO") = 0 Then
 	PASO = 1
 	'End If
-	If PASO =1 Then
+	If PASO = 1 Then
 		B4XPages.MainPage.skmt.ExecNonQuery2("delete from PEDIDO WHERE PE_PRONOMBRE = ? ", Array As Object("N/A") )
 		B4XPages.MainPage.skmt.ExecNonQuery("delete from pedido_cliente where PC_CLIENTE not In (select PE_CLIENTE from pedido)")
 		c=B4XPages.MainPage.skmt.ExecQuery("select usuario from usuarioa")
@@ -745,6 +745,23 @@ Sub Subir_Click
 		img2.Visible =True
 		PORCENTAJE = Round(100/ (cuantos_noventa + cuantos_pedido + cuantos_pedidosc + 1))
 		If Starter.marcaCel <> "Sony" Then ToastMessageShow("Se Actualizaran los datos, Este proceso podria tardar hasta un minuto, gracias "& l_ruta.text , True)
+		
+				
+		'CUESTIONARIOS
+		c = B4XPages.MainPage.skmt.ExecQuery($"select * from cuestionario"$)
+		Private rutaActual As String = Subs.traeRuta
+		If c.RowCount > 0 Then
+			For x = 0 To c.RowCount - 1
+				c.Position = x
+				Dim cmd As DBCommand
+				cmd.Initialize
+				cmd.Name = "insert_CUESTIONARIO_DUR"
+				cmd.Parameters = Array As Object(c.GetString("Q_IDCLIENTE"), rutaActual, ALMACEN, c.GetString("Q_FECHA"), c.GetString("Q_IDPREGUNTA"), c.GetString("Q_PREGUNTA"), c.GetString("Q_IDRESPUESTA"), C.GetString("Q_RESPUESTA"))
+				B4XPages.MainPage.reqManager.ExecuteCommand(cmd , "ins_cuestionario")
+			Next
+		End If
+		c.Close
+		
 		End If
 End Sub
 
@@ -1720,8 +1737,12 @@ Sub JobDone(Job As HttpJob)
 				Next
 			End If
 		End If
-		
 	End If
+	
+	If RESULT.Tag = "ins_cuestionario" Then 'query tag
+		Subs.logJobDoneResultados(RESULT)
+	End If
+	
 	Job.Release
 End Sub