xbrowse

[Alain da Silva]

boa tarde pessoal, é possível através de uma variável por exemplo via rádio, que eu mude as colunas no meu xbrowse em tempo de execução

exemplo:

  @45,05  RADIO oRad VAR vRad  OF ODLG1 SIZE 100,12;
               ITEMS "NOTA DE COMPRA ESTOQUE" pixel COLOR AZULF5,CINZA ON CHANGE ATUALIZABRW(vRAD,aBtnP[4],aBtnP[5],aBtnP[6],aBtnP[7],aBtnP[8],aBtnP[9])
  @45,110  RADIOITEM "NOTA DE ATIVO"                COLOR AZULF5,CINZA  RADIOMENU oRad OF oDlg1 pixel UPDATE
  @45,180  RADIOITEM "NOTA DE COMBUSTÍVEL"          COLOR AZULF5,CINZA  RADIOMENU oRad OF oDlg1 pixel UPDATE
  @45,280  RADIOITEM "NOTA DE MATERIAL OU CONSUMO"  COLOR AZULF5,CINZA  RADIOMENU oRad OF oDlg1 pixel UPDATE
 

  @10,10 XBROWSE OBRWF SIZE 610,150 PIXEL OF oFld:aDialogs[1]  ALIAS "ARQNFEC" FASTEDIT AUTOSORT  font FNORMAL14 

        if vrad=1

            ADD COLUMN TO XBROWSE OBRWF DATA estoque       HEADER "estoque"        SIZE 30 CENTER

        else

            ADD COLUMN TO XBROWSE OBRWF DATA produto       HEADER "estoque"        SIZE 30 CENTER

         endif

         OBRWF:CreateFromCode()

 

seria mais ou menos isso, conforme eu mudo meu radio ele atualiza as colunas no meu browse
 

[joaosolution]

Alain

Boa tarde

Na pasta samples da FiveWin o exemplo testxbr3.prg pode ser que tenha como você pode fazer isto.

 

[aferra]

if vrad=1

oBrw:aCols[1]:bStrdata := {|| estoque}

Else

oBrw:aCols[1]:bStrdata := {|| produto}

Endif

[Alain da Silva]

obrigado aferra, era isso  mesmo.