FiveTech Software tech support forums

Code: Select all

REDEFINE LISTBOX aoLbx[01];
        FIELDS;
        iif( !lanc->( eof() ), apago[iif( !empty( lanc->data_pag ), 2, iif( lanc->data_ven<date(), 3, 1 ) )], '' ),;
        iif( !lanc->( eof() ), lanc->docto, '' ),;
        iif( !lanc->( eof() ), lanc->clifor, '' ),;
        iif( !lanc->( eof() ), lanc->conta, '' ),;
        iif( !lanc->( eof() ), lanc->bcoagecc, '' ),;
        iif( !lanc->( eof() ), lanc->tipo, '' ),;
        iif( !lanc->( eof() ), lanc->empresa, '' ),;
        iif( !lanc->( eof() ), Caracter( lanc->aceite ), '' ),;
        iif( !lanc->( eof() ), lanc->historico, '' ),;
        iif( !lanc->( eof() ), iif( empty( lanc->data_pag ),;
        iif( ascan( aMarcador, lanc->( recno() ) )>0, aMarca[1], aMarca[2] ), aMarca[3] ), '' ),;
        iif( !lanc->( eof() ), transform( lanc->valor_pre, '@E 99,999,999.99' ), '' ),;
        iif( !lanc->( eof() ), dtoc( lanc->data_emi ), '' ),;
        iif( !lanc->( eof() ), dtoc( lanc->data_ven ), '' ),;
        iif( !lanc->( eof() ), dtoc( lanc->data_pag ), '' ),;
        ' ';
        HEADERS &( cHeaders );
        ALIAS 'lanc';
        ID 102 OF oDlg UPDATE;
        ON CHANGE( { eval( aRefresh[01] ) } )
        aoLbx[01]:nClrPane:={ || iif( lanc->( OrdKeyNo() )%2==0,COR_1PANE,COR_2PANE ) }
        aoLbx[01]:aJustify:=aJustifica
        aoLbx[01]:bKeyChar:={ |tecla1, tecla2| {;
        iif( tecla1==32 .and. empty( lanc->data_pag ),;
        { VerMarcados( lanc->( recno() ), aoLbx, @aMarcador ), iif( ascan( aMarcador, lanc->( recno() ) )>0, aMarca[1], aMarca[2] ) }, .t. ) } }