FiveTech Software tech support forums

Posted: **Tue Apr 11, 2006 9:01 pm**

He realizado la siguiente aplicacion.

#include "FWCE.ch"

function Main()

local oWnd, oBmp

DEFINE BITMAP oBmp FILE CurDir() + "\inicio.bmp"
DEFINE WINDOW oWnd TITLE "MJCC"

@ 25, 20 BTNBMP FILE CurDir() + "\users.bmp" SIZE 60, 60
@ 25, 90 BTNBMP FILE CurDir() + "\open.bmp" SIZE 60, 60
@ 25, 160 BTNBMP FILE CurDir() + "\search.bmp" SIZE 60, 60
@ 96, 20 BTNBMP FILE CurDir() + "\print.bmp" SIZE 60, 60
@ 96, 90 BTNBMP FILE CurDir() + "\setup.bmp" SIZE 60, 60
@ 96, 160 BTNBMP FILE CurDir() + "\star.bmp" SIZE 60, 60
@ 171, 20 BTNBMP FILE CurDir() + "\print.bmp" SIZE 60, 60
@ 171, 90 BTNBMP FILE CurDir() + "\setup.bmp" SIZE 60, 60
@ 171, 160 BTNBMP FILE CurDir() + "\star.bmp" SIZE 60, 60

ACTIVATE WINDOW oWnd ;
ON PAINT oWnd:SayBitmap( 10, 10, oBmp ) ;
ON CLICK MsgInfo("MJCC" + CHR(13) + "Bembibre" + chr(13) +;
"La Coru¤a"+ chr(13)+;
"Telefono 902234568")

oBmp:End()

return 0
*************************************************************
Como puedo hacer ahora para haciendo un click en un boton me salga por ejemplo una pantalla de clientes, para cubrir los datos del cliente, o para mostrame un listado con los datos de los clientes para seleccionar uno y que directamente se vaya a la pantalla de ver ficha de cliente.
Teneis algun tutor de ejemplo.
Gracias por vuestra colaboracion.
[/b]

Posted: **Tue Apr 11, 2006 11:29 pm**

Manuel,

Revisa el ejemplo samples\clients\client.zip

Usalo como modelo sobre el que construir tu aplicación.

Posted: **Wed Apr 12, 2006 7:08 am**

en resumen seria :

Code: Select all

 @ 25, 20 BTNBMP FILE CurDir() + "\users.bmp" SIZE 60, 60 ACTION misclientes()
....
......
....
...


Function misclientes()
 ..........la pantalla de datos de clientes.
...........
Return

De todas maneras lo mas faciles mirar el ejemplo que Antonio te indica

FiveTech Software tech support forums

Como seguir con mi aplicacion

Como seguir con mi aplicacion