Lo que Comentan aqui es cierto el MessageBox NO es para escribir tanto tiene sus limitaciones..
Bueno tenia un proceso similiar mira como lo resolvi a ver si te ayuda :
1) Genere un Cursor
Ej create cursor msgerrs ( numero_reg n(5),;
mensaje c(40),;
Observacion c(40))
2) Creas un Form que contiene un Grid de Tres Columnas
donde asocias cada campo del cursor
3) ejecuto la Validacion de cada registro y lleno el cursor
con los errores en el Mensaje y la observacion de la accion a tomar
ej = nreg = recno()
msg = "Error en Fecha ..."
obs = "Verificar la fecha de xxxx , No corresponde al mes de transaccionesss"
insert into msgerrs (numero_reg,mensaje,observacio) values (nreg,msg,obs)
4) Al finalizar la validacion
select msgerrs
GO TOP
if !EOF()
do form forma_de_errores
else
messagebox("Validacion O.K, proceso Sin errores",48,"Atencionn ...")
endif
select msgerrs
use
*****
Es mas si no quieres crear un form lo puedes enviar a EXCEL
pero ese cursor te aguanta cualquier cantidad de errores
por que en un momento dado NO sabes cuantos errores se van a generar
Define el cursor de la forma mas conveniente para mostrar los mensajes
Espero te sirva esta idea ..