Hola Que tal ,,,
Como te lo habia dicho te escribiria un ejemplo de como podias hacer esto ,,, y perdon que sea hasta hoy pero estaba de viaje y acabo de regresar.
Clarion 5.5 ABC Templates
Local Data
Generated Declaration
Windows Structure
Win_Proceso WINDOW,AT(,,180,40),FONT('MS Sans Serif',8,,FONT:regular,CHARSET:ANSI),COLOR(COLOR:Silver),CENTER,GRAY,DOUBLE,MDI
PANEL,AT(2,2,175,35),USE(?pan_cuadro),FILL(COLOR:Blue),BEVEL(-1)
PANEL,AT(4,4,170,30),USE(?pan_recuadro),FILL(COLOR:Silver),BEVEL(1)
STRING('Espere por favor ...'),AT(49,8,81,10),USE(?str_perame),CENTER,FONT('Times New Roman',8,COLOR:Navy,FONT:bold,CHARSET:ANSI)
STRING('Iniciando Transaccion'),AT(7,21,163,10),USE(?str_mensa),CENTER,FONT('Courier New',8,COLOR:Purple,FONT:bold,CHARSET:ANSI)
END
De esa manera tienes declarada la ventana .... Ahora para mandarla llamar desde tu proceso es solo con
Open(Win_Proceso)
Y para Actualizar el despliegue
! Mensaje
?str_mensa{Prop:Text} = 'Partida ' & Format(AFIDETA:Partida, @N05)
Display(?str_mensa)
Por Ultimo la cierras solo con
Close(Win_Proceso)
Puedes hacer cosas mas interesantes como lo desees ,,, por ejemplo poner una barra de progreso y demas
Espero y te sirva
Saludos y cuidate