Nesse vídeo demonstraremos a utilização da função F_Opcoes, que serve para abrir uma tela com marcação de registros.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe261
Função que abre uma tela para seleção de registros conforme um Array
@type  Function
@author Atilio
@since 21/02/2023
@obs 

    Função F_Opcoes
    Parâmetros
        + Define a variável de retorno
        + Define o texto do título da janela
        + Define o array de linhas da grid
        + Define os códigos das linhas da grid
        + Mantido por compatibilidade
        + Mantido por compatibilidade
        + Define se será a seleção de apenas 1 linha por vez
        + Tamanho da string da chave
        + Número máximo de elementos
        + Inclui botões para múltipla seleção
        + Define se será montado através de um X3_CBOX
        + Qual é o campo para montagem das opções
        + Não permite ordenação
        + Não permite pesquisar
        + Força o retorno como Array
        + Acionado em consulta F3
    Retorno
        Retorna .T. se foi confirmado ou .F. se foi cancelado
    
    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe261()
    Local aArea      := FWGetArea()
    Local aRet       := {}
    Local cTitulo    := "Regiões do Brasil"
    Local aOpc       := {}
    Local cRet       := ""

    //Define as opções que serão exibidas
    aAdd(aOpc, "Norte")
    aAdd(aOpc, "Nordeste")
    aAdd(aOpc, "Centro Oeste")
    aAdd(aOpc, "Sudeste")
    aAdd(aOpc, "Sul")

    //Define as opções de retorno (conforme o aOpc acima)
    cRet := "000000001000000002000000003000000004000000005"

    //Abre a tela para a seleção
    If F_Opcoes(@aRet       ,;    //uVarRet
                cTitulo     ,;    //cTitulo
                aOpc        ,;    //aOpcoes
                cRet        ,;    //cOpcoes
                12          ,;    //nLin1
                49          ,;    //nCol1
                .T.         ,;    //l1Elem
                9           ,;    //nTam
                999         ,;    //nElemRet
                .F.         ,;    //lMultSelect
                .F.         ,;    //lComboBox
                Nil         ,;    //cCampo
                .F.         ,;    //lNotOrdena
                .F.         ,;    //lNotPesq
                .T.         ,;    //lForceRe
                Nil          ;    //cF3
        )

        FWAlertInfo("A opção marcada foi " + aRet[1], "Teste F_Opcoes")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++