- Se agrego codigo para guardar el cuestionario

B4A/C_Principal.bas

@@ -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