ERROR EN UNA FUNCION

[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

[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.

[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

[Antonio Linares]

Manuel,

Del ejemplo client.prg del directorio samples\client:

Code: Select all  Expand view

*---------------------------
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.