Histórico da Página

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:	aCust := IIF(ExistBlock('VCLSAT1'), ExecBlock("VCLSAT1",.f.,.f.), {}) for nIdxC := 1 to LEN(aCust) VS1->&(aCust[nIdxC][1]) := aCust[nIdxC][2] next // oLogger:LogToTable({; {'VQL_AGROUP', "DPMXFER" },; {'VQL_TIPO' , "ORC" },; {'VQL_DADOS' , VS1->VS1_NUMORC } ; }) // VS1->(msUnlock()) // // Validação de dados necessários para transferencia // Pergunte("OFM430",.F.) If ExistBlock("VCLSAT3") // PE para manipulação manipulao das Respostas da Pergunte OFM430 Transferência 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:

// 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