Correccion del envio del cuestionario para clientes nuevos.

This commit is contained in:
2024-01-30 18:54:49 -06:00
parent c272afe218
commit 58d00b9a7a
3 changed files with 3 additions and 2 deletions

View File

@@ -456,6 +456,7 @@ Sub mandaPendientesNuevosClientes
cuest.Position = 0
cuestionarioTexto = cuest.GetString("Q_FECHA")
For cu = 0 To cuest.RowCount - 1
cuest.Position = cu
cuestionarioTexto = $"${cuestionarioTexto}|${cuest.GetString("Q_IDPREGUNTA")}|${cuest.GetString("Q_PREGUNTA")}|${cuest.GetString("Q_IDRESPUESTA")}|${cuest.GetString("Q_RESPUESTA")}"$
Next
End If