Duvida com a xBrowse

[Valdir]

Boas...

Pessoal, desculpem a minha Santa Ignorância em perguntar algo aparentemente tão simples, porém o fato é que realmente não sei fazer.

Procurei exemplos na pasta Samples e também não achei. 

No meu Sistema em Dbf, venho usando a wBrowse sem problemas.

Estou migrando para Sql (Mariadb) e deparei com um problema ao usar a xBrowse.

No meu Bd tenho o campo "Status" que recebe os valores 1,2,3,0

Com a wBrowse sempre fiz assim para representar esse Status :

 @ 2.30, 0 LISTBOX oBrw ;
      FIELDS;
      STR(OCO->CODIGO,10),;
      OCO->NOMEFOR,;
      DTOC(OCO->DATA),;
      IIF(OCO->STATUS=1,"Pendente  ",;
      IIF(OCO->STATUS=2,"Comunicado",;
      IIF(OCO->STATUS=3,"Resolvido ","Indefinido")));
      HEADERS ;
      OemToAnsi("C¢digo"),;
      OemToAnsi("Nome do Fornecedor"),;
      OemToAnsi("Data da Ocorrência"),;
      OemToAnsi("Status") ;
      FIELDSIZES 70, 450, 150, 120 ;
      ON DBLCLICK EditGestao( oBrw ) ;
      FONT oFontLbx SIZE 475, 240 ;
      OF oWndBrw
      oBrw:nClrBackHead := CLR_LGREEN // Cor do Fundo do Cabe‡alho
      oBrw:nClrBackFocus := CLR_BLUE // Cor do Cursor Em Cima do Ötem
      oBrw:nClrForeFocus := CLR_AMARELO // cor da letra da barra ativa
      oBrw:nClrForeHead := CLR_HRED // Cor nos Headers - Cabe‡alhos
      // Cor no Pano de Fundo da Browse() Listbox-Legal - abaixo o comando
      oBrw:nClrPane := { || IIF( ( oBrw:cAlias )->( OrdKeyNo() ) %2 == 0, ;
      CLR_LGREEN, CLR_LGRAY ) } // Verde e Branco Ok ?
      // Justifica As Colunas dos Campos Esq. .T. = Centro
      oBrw:aJustify := { .F., .F., .F., .F. }
      oBrw:lMChange := .F. // Desabilita Mousemove
      oBrw:SetFocus() // Refocus on The Browse
      oBrw:Refresh() // Estabiliza o Browse/Listbox
 

Tem como fazer a mesma coisa com a xBrowse ?

  @ 30, 0 XBROWSE oBrw OF oDlg OBJECT oQry FONT oFontLbx AUTOSORT ;
            COLUMNS "CODIGO", "NOMEFOR", "DATA", "STATUS" ;
            PICTURES "@!","@!", "@D", "@!" ;
            COLSIZES 100, 500, 70, 100 ;
            HEADERS;
            OemToAnsi("C¢digo"),;
            OemToAnsi("Fornecedor"),;
            OemToAnsi("Data"),;
            OemToAnsi("Status");
            PIXEL SIZE 475, 230 LINES ;
            UPDATE

Obrigado.

[cnavarro]

oBrw:aCols[ 4 ]:bStrData := { ||  IIF(OCO->STATUS=1,"Pendente  ",;
      IIF(OCO->STATUS=2,"Comunicado",;
      IIF(OCO->STATUS=3,"Resolvido ","Indefinido"))) }

 

Prueba asi

 

[Valdir]

 

oBrw:aCols[ 4 ]:bStrData := { ||  IIF(OCO->STATUS=1,"Pendente  ",;
      IIF(OCO->STATUS=2,"Comunicado",;
      IIF(OCO->STATUS=3,"Resolvido ","Indefinido"))) }

 

Prueba asi

 

cnavarro...

Obrigado por responder.

Funcionou certinho.

Muito Obrigado.

Abraços.