Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin

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:

#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