Page 1 of 1
ERROR EN UNA FUNCION
Posted: Thu Apr 13, 2006 11:08 am
by mjcc
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
Posted: Thu Apr 13, 2006 12:19 pm
by Antonio Linares
Manuel,
No uses FROM ... en la definición de la ventana. En FWPPC no es preciso, ya que por defecto se usa toda el area disponible del Pocket PC.
Ventana para mostrar clientes e impresiones.
Posted: Thu Apr 13, 2006 1:05 pm
by mjcc
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
Posted: Thu Apr 13, 2006 8:55 pm
by Antonio Linares
Manuel,
Del ejemplo client.prg del directorio samples\client:
Code: Select all
*---------------------------
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.