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
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC ERROR EN UNA FUNCION
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.
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
Manuel,
Del ejemplo client.prg del directorio samples\client:
Usa ese ejemplo como modelo a seguir.
Del ejemplo client.prg del directorio samples\client:
*---------------------------
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 nRecnoUsa ese ejemplo como modelo a seguir.