Se agregaron mensajes, para cuando al cargar día, si no hay clientes, te avise, o si al entar al cliente, no hay catalogo de giros, avise que hay que cargar nuevamwnte dia!

B4A/C_Principal.bas

@@ -641,6 +641,15 @@ Sub JobDone(Job As HttpJob)
 						Next
 					End If
 				Next
+				
+				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(Starter.dia_semana).PopAll
+				l_dia.Tag = Starter.dia_semana
+				
+				If RESULT.Rows.Size = 0 Then Msgbox("¡La ruta cargada NO tiene clientes asignados, FAVOR DE REPORTARLO!","AVISO") 'ignore
 				Listo1 = 1
 '				S_CC.Text = "LISTO"
 				If Starter.marcaCel <> "Sony" Then ToastMessageShow("Catalogo Clientes Actualizados." , True)