Por que me da error esta linea esta funcion cuando coloco en la
definicion de la ventana la clausula FROM
FUNCTION browse_clientes()
DEFINE WINDOW oclie TITLE "Clientes" FROM 2,0 TO 24,240
SELECT CLIENTE
@ 2,0 LISTBOX oBrw FIELDS FIRST, LAST COLSIZES 180,180;
HEADERS "Nombre","Teléfono" SIZE 240,175
*FONT ofont
*ON DBLCLICK Eligefichacli();
ACTIVATE WINDOW oclie
RETURN 0
ERROR EN UNA FUNCION
- Antonio Linares
- Site Admin
- Posts: 42581
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 36 times
- Been thanked: 86 times
- Contact:
Ventana para mostrar clientes e impresiones.
Como puedo definir de otra forma una ventana para mostrar un browser de clientes y que empieza en la posicion x,y que a mi me interese, existe alguna otra funcion para poder definir otro tipo de ventana para que empieze por ejemplo en la posicion 2,5
gracias
gracias
- Antonio Linares
- Site Admin
- Posts: 42581
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Has thanked: 36 times
- Been thanked: 86 times
- Contact:
Manuel,
Del ejemplo client.prg del directorio samples\client:
Usa ese ejemplo como modelo a seguir.
Del ejemplo client.prg del directorio samples\client:
Code: Select all | Expand
*---------------------------STATIC FUNCTION Sel_Client()*--------------------------- LOCAL oDlg, oFont, oLbx LOCAL nRecno := 0 LOCAL cAlias := aDbf[ DBF_CUSTOMER ] HideKeyboard() DEFINE FONT oFont NAME "Arial" SIZE 0, -12 DEFINE DIALOG oDlg RESOURCE "Sel_Client" REDEFINE LISTBOX oLbx ; FIELDS (cAlias)->first, (cAlias)->last ; HEADERS "First", "Last" ; ID 500 OF oDlg ALIAS cAlias oLbx:aColSizes := { 100, 100 } oLbx:blDblClick := {|| ( nRecno := (cAlias)->( Recno() ),; oDlg:End() ) } REDEFINE BUTTON ID 100 OF oDlg ACTION oDlg:End() REDEFINE BUTTON ID 110 OF oDlg ; ACTION ( nRecno := (cAlias)->( Recno() ) , oDlg:End() ) ACTIVATE DIALOG oDlg CENTERED ShowKeyboard()RETU nRecno
Usa ese ejemplo como modelo a seguir.