topic-3246

Posts: 92

Joined: Fri Nov 18, 2005 11:15 PM

Problema con TsBrowse 7.1 y Postedit
Posted: Fri Jun 09, 2006 08:34 PM

Hola amigos:

Uso Tsbrowse 6.0 y estoy actualizando mi aplicacion con la ultima version 7.1 que descargue de este foro (Utilidades), pero me aparece un problema: la clausula POSTEDIT se evalua antes de abrir el dialogo, cuando aun no se han definido algunas variables y me da error de ejecucion. Esto no pasa con la version anterior.

Este es parte de mi codigo:

Code: Select all Collapse

    REDEFINE BROWSE oBrw FONT oFont ID 201 OF oDlg GRID;
             COLOR CLR_BLACK, RGB(255,255,240) ALIAS "OBLX"

    ADD COLUMN TO BROWSE oBrw DATA ;
        FieldWBlock("SELECT", Select("OBLX") ) ;
        CHECKBOX SIZE 22 EDITABLE MOVE DT_MOVE_DOWN ;
        POSTEDIT ( fCambios() )            // <--- este es el problema

    ADD COLUMN TO BROWSE oBrw            ;
     DATA OBLX->CODDOC                   ;
     HEAD "Doc"    OEM

    ADD COLUMN TO BROWSE oBrw            ;
     DATA OBLX->NUMDOC                   ;
     HEAD "N£mero" OEM SIZE 80

    ......

    ACTIVATE DIALOG oDlg CENTER;
        ON INIT ( SetBtnBar( oDlg, oBrw), ;
                  oBrw:Setfocus(), ;
                  CursorArrow() )

Code: Select all Collapse

//-------------------
Static Function fCambios()
//-------------------
if lCanModify
   zCambios := .t.
   AEVAL(oBtnBar:aControls , {|x,y| x:ForWhen()} )   
  // aqui da el error porque oBtnBar recien se define en el INIT del  dialogo
   oBtnBar:Refresh()
endif
Return .T.

Alguien sabe como solucionarlo ?

Saludos

Ralph

Ralph del Castillo

Lima PERU

Fwh 24.07, xHb123_10193, MySQL 8.x, BCC 7.3

FiveTech Support Forums

Continue the discussion