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