Árvore de páginas

Ponto de Entrada

Descrição:

Este ponto de entrada será executado na rotina Config JDPRISM DPM (OFINJD35) e permite que o usuário manipule as respostas da pergunte OFM430 (Transferência de Peças entre filiais) ao realizar o processamento de Transfers do JDPRISM.

Localização:

Atualizações \ DPM JD \ Config JDPRISM DPM (OFINJD35)

Eventos:

//

Pergunte("OFM430",.F.)

If ExistBlock("VCLSAT3") // PE para manipulao das Respostas da Pergunte OFM430 Transferncia JDPrism

ExecBlock("VCLSAT3",.f.,.f., {self:cOrigem, self:cDestino})

EndIf

cPVS3_OPER := MV_PAR07

cPVS3_FORMU := MV_PAR08

Programa Fonte:

VEICLSAT.PRW

Função:

Efetivar()


Exemplo:

#Include 'Protheus.ch'

// Ponto de Entrada para manipulação das Respostas da Pergunte OFM430 Transferência JDPrism

// Autor: MIL

User Function VCLSAT3()

Local cFilOri := ParamIxb[1]

Local cFilDes := ParamIxb[2]

MV_Par07Ant := MV_Par07

MV_Par07 := "51"

MsgInfo("O Ponto de entrada VCLSAT3 alterou o conteúdo do Parâmetro 07 de "+MV_Par07Ant+" para "+MV_Par07)

Return