No vídeo de hoje, vamos demonstrar em como criar um preenchimento de um parâmetro no Pergunte() conforme digitação em outro (como se fosse um gatilho).

A dúvida de hoje, nos perguntaram, se seria possível criar algum tipo de gatilho, onde ao preencher um parâmetro de uma tela com Pergunte() ele disparasse e “populasse” a informação em outro parâmetro.

Pensando nisso, montamos esse exemplo, onde vamos demonstrar em como fazer isso criando uma função customizada e colocando no X1_VALID dos parâmetros de origem.

Segue abaixo o vídeo exemplificando:

E abaixo o código fonte desenvolvido:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zVid0120
Função criada para ser acionada na validação dos parâmetros de Data no relatório MATR120
@type  Function
@author Atilio
@since 13/03/2024
@obs Editar o X1_VALID colocando u_zVid0120() dos parâmetros 03 e 04 do grupo MTR120
/*/

User Function zVid0120()
    Local aArea       := FWGetArea()
    Local dDtEmisDe   := MV_PAR03
    Local dDtEmisAte  := MV_PAR04
    Local lContinua   := .T.

    //Atualiza os parâmetros de data de entrega conforme a emissão que foi digitada
    MV_PAR05 := MonthSum(dDtEmisDe,  2)
    MV_PAR06 := MonthSum(dDtEmisAte, 5)

    FWRestArea(aArea)
Return lContinua

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLProtheusTLPP