- Se agrego codigo para guardar el cuestionario

This commit is contained in:
2024-01-08 18:48:08 -06:00
parent 05b32b3e43
commit d1cea02c44
4 changed files with 41 additions and 8 deletions

View File

@@ -631,6 +631,15 @@ Sub JobDone(Job As HttpJob)
' S_CC.Text = "LISTO"
If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)
l_dia.Text = L_CARGARDIA.text
If f.RowCount > 0 Then
cs.Initialize
f.Position = 0
l_ruta.Text = cs.Append("RUTA ").Color(Colors.RGB(165, 42, 42)).Append(CAT_CL_RUTA).pop.Append(" CARGADA").popall
cs.Initialize
l_dia.Text = cs.Append("DÍA CARGADO: ").Bold.Append(CAT_CL_DIASEMANA).PopAll
End If
' If Listo1 = 1 And Listo2 = 1 And Listo3 = 1 And Listo4 = 1 Then
' B4XPage_Appear
' img2.Visible=False