Abrindo uma tela MVC com FWExecView – Maratona AdvPL e TL++ 216

Nesse vídeo demonstraremos a utilização da função FWExecView, que serve para abrir uma tela em MVC.

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

//Bibliotecas
#Include "TOTVS.ch"
#Include "FWMVCDef.ch"

/*/{Protheus.doc} User Function zExe216
Exemplo de função que abre uma tela em MVC
@type Function
@author Atilio
@since 20/02/2023
@see https://tdn.totvs.com/display/public/framework/FWExecView
@obs 

    Função FWExecView
    Parâmetros
        + cTitulo        , Caractere       , Título da Janela
        + cPrograma      , Caractere       , Nome do programa em MVC
        + nOperation     , Numérico        , Indica a operação se é inclusão (3); alteração (4) ou exclusão (5)
        + oDlg           , Objeto          , Parâmetro descontinuado
        + bCloseOnOK     , Bloco de Código , Bloco de código acionado no fechamento da janela
        + bOk            , Bloco de Código , Bloco de código acionado na validação ao clicar em Confirmar
        + nPercReducao   , Numérico        , Percentual de redução do tamanho da Janela
        + aEnableButtons , Array           , Botões que serão habilitados na Janela
        + bCancel        , Bloco de Código , Bloco de código na validação ao clicar em Cancelar / Fechar
        + cOperatId      , Caractere       , Identificação da operação (usado quando tem mais de um 4 no nOperation no programa MVC)
        + cToolBar       , Caractere       , Indica o relacionamento dos botões com a tela
        + oModelAct      , Objeto          , Model instanciado que será usado pela View
    Retorno
        + nValor        , Numérico  , 0 se foi clicado em Ok e 1 se foi clicado em Cancelar

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe216()
    Local aArea := FWGetArea()
    Local cFunBkp := FunName()
     
    DbSelectArea('SA2')
    SA2->(DbSetOrder(1)) //Filial + Código + Loja
     
    //Se conseguir posicionar
    If SA2->(DbSeek(FWxFilial('SA2') + "F00002"))
        SetFunName("MATA020")
        FWExecView('Visualizacao Teste', 'MATA020', MODEL_OPERATION_VIEW)
        SetFunName(cFunBkp)
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Dan (Daniel Atilio)
Cristão de ramificação protestante. Especialista em Engenharia de Software pela FIB, graduado em Banco de Dados pela FATEC Bauru e técnico em informática pelo CTI da Unesp. Entusiasta de soluções Open Source e blogueiro nas horas vagas. Autor e mantenedor do portal Terminal de Informação.

Deixe uma resposta

Terminal de Informação