FwFormBrowse - Descrição do índice.

Senhores, boa tarde! Fiz uma rotina utilizado o recurso FwFormBrowse com base na tabela SA1, no entanto, percebo que o campo de pesquisa não trouxe a descrição do índice, trouxe a chave do índice. Tem como trabalhar visualmente com a descrição do índice da tabela, sendo toda essa estrutura padrão?

    DbSelectArea('SA1')
    SA1->(DbSetOrder(1))

    aCoors := FWGetDialogSize(oMainWnd)
    DEFINE MSDIALOG oDlg TITLE "" FROM aCoors[1],aCoors[2] TO aCoors[3],aCoors[4] STYLE nOR(WS_VISIBLE,WS_POPUP) PIXEL
        oDlg:lEscClose := .F.

        DEFINE FWFORMBROWSE oBrowse;
            DATA TABLE ALIAS "SA1";
            FILTER;
            FILTER FILTERTOPBOT "A1_FILIAL",xFilial("SA1"),xFilial("SA1");
            DOUBLECLICK {|oBrowse| FwAlertWarning("Clicou...",cTitulo) };
            DESCRIPTION cTitulo;
            NO CONFIG;
            NO REPORT;
            NO DETAILS OF oDlg

            ADD LEGEND DATA 'Empty(SA1->A1_MSBLQL) .OR. SA1->A1_MSBLQL=="2"';
                COLOR "GREEN";
                TITLE "Cliente ativo" OF oBrowse

            ADD LEGEND DATA 'SA1->A1_MSBLQL=="1"';
                 COLOR "RED";
                 TITLE "Cliente bloqueado" OF oBrowse

            ADD COLUMN oColumn DATA {|| SA1->A1_COD}    TITLE "Código"        SIZE  6 OF oBrowse
            ADD COLUMN oColumn DATA {|| SA1->A1_LOJA}   TITLE "Loja"          SIZE  2 OF oBrowse
            ADD COLUMN oColumn DATA {|| SA1->A1_NOME}   TITLE "Razão social"  SIZE 60 OF oBrowse
            ADD COLUMN oColumn DATA {|| SA1->A1_NREDUZ} TITLE "Nome fantasia" SIZE 40 OF oBrowse
            ADD COLUMN oColumn DATA {|| SA1->A1_CGC}    TITLE "CNPJ"          PICTURE Iif(SA1->A1_PESSOA=="F","@R 999.999.999-99","@R 99.999.999/9999-99") SIZE 14 OF oBrowse
            ADD COLUMN oColumn DATA {|| SA1->A1_LC}     TITLE "Lim. Crédito"  PICTURE "@E 999,999,999,999.99" SIZE 20 OF oBrowse
            ADD COLUMN oColumn DATA {|| SA1->A1_VENCLC} TITLE "Venc.Lim.Cré"  SIZE 10 OF oBrowse
            ADD COLUMN oColumn DATA {|| SA1->A1_REGIAO} TITLE "Região"        SIZE  6 OF oBrowse
            ADD COLUMN oColumn DATA {|| SA1->A1_EST}    TITLE "Estado"        SIZE  6 OF oBrowse
            ADD COLUMN oColumn DATA {|| SA1->A1_MUN}    TITLE "Município"     SIZE 60 OF oBrowse

            ADD BUTTON oButton TITLE "Sair" ACTION {|| Iif(FWAlertYesNo('Deseja realmente sair da rotina?',cTitulo),(oDlg:End()),NIl) } OF oBrowse

            If FWIsAdmin(RetCodUsr())
                ADD BUTTON oButton TITLE "Auditoria" ACTION {|| FwAlertWarning("Clicou...",cTitulo) } OF oBrowse
            Endif
        ACTIVATE FWBROWSE oBrowse
    ACTIVATE MSDIALOG oDlg CENTERED

Obrigado! Robson.

compartilhar
  1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
  2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
  3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
  4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
  5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

0 resposta

Não é a resposta que estava procurando? Procure outras perguntas com as tags fwformbrowse ou faça a sua própria pergunta.