Page 1 of 1

Cómo escribir en la pantalla principal.

PostPosted: Thu Nov 24, 2005 1:22 pm
by Fernando Morales
Hola a todos.

Pues lo dicho, ¿cómo puedo escribir en la pantalla principal de mi programa? Es una ventana MDI en la que hasta ahora mostraba un bitmap, pero quisiera mostrar los datos de la empresa, los cuales tengo en un archivo. Se que debe haber algún ejemplo en SAMPLES, pero como que no doy con él.

Gracias por adelantado y un saludo.
Fernando Morales del Rosario

PostPosted: Thu Nov 24, 2005 8:08 pm
by Willi Quintana
Hola Fernando,,,
Yo hago asi:
DEFINE WINDOW oWPpal MDI ........
...
...
ACTIVATE WINDOW oWPpal MAXIMIZED ;
ON INIT ResumCtas(oWPpal).....
...
..

Function ResumCtas(oWPpal)
local oSay, vSay
vSay := ""

If ChequePendiente()
vSay := vSay + "Existen Cheques Girados a Pagar Hoy Día" + CRLF EndIf

If CtasPorCobrar()
vSay := vSay + "Existen Créditos por Cobrar Hoy Día" + CRLF
EndIf

If CtasPorPagar()
vSay := vSay + "Existen Cuentas por Cobrar Hoy Día" + CRLF
EndIf

If !Empty(vSay)
@ 90, 30 SENSITIVE SAY vSay SIZE 375,28 PIXEL OF oWPPal;
COLOR CLR_BLUE COLOROVER CLR_HBLUE;
TRANSPARENT
EndIf

Return(Nil)
....
...


Espero te sirva el ejemplito..

Salu2
Willi Quintana