OA290DOK Ponto de Entrada utilizado para customizações após o OK da tela de Entrada por Compra

Ponto de Entrada

Descrição:

Ponto de Entrada após OK da tela da rotina de Entrada por Compra (MATA103), utilizado para customizações após o OK da tela de Entrada por Compra.

Localização:

Atualizações / Movimentos / Documento Entrada (MATA103)

Eventos:

// Apos Ok da Tela - Verifica Conferencia de Entrada - Se houver Divergencia, faz movimentacao do Item

If ExistBlock("OA290DOK")

lRetorno := ExecBlock("OA290DOK",.f.,.f.,{ aParametros[1] ,; // nOpc ( 3-Inclusao / 4-Alteracao / 5-Exclusao )

aParametros[2] ,; // Opcao OK ( Confirmou a Tela )

aParametros[3] ,; // Numero da NF

aParametros[4] ,; // Serie da NF

aParametros[5] ,; // Fornecedor

aParametros[6] }) // Loja

Else

lRetorno := OM3900151_AposOkMATA103(aParametros[1] ,; // nOpc ( 3-Inclusao / 4-Alteracao / 5-Exclusao )

aParametros[2] ,; // Opcao OK ( Confirmou a Tela )

aParametros[3] ,; // Numero da NF

aParametros[4] ,; // Serie da NF

aParametros[5] ,; // Fornecedor

aParametros[6] ) // Loja

EndIf

Programa Fonte:

OFIA290.PRW

Função:

OA2900021_A103NFISCAL_APOSOK()

Parâmetros:

Nome	Tipo	Descrição
aParametros[1]	Numérico	nOpc ( 3-Inclusao / 4-Alteracao / 5-Exclusao )
aParametros[2]	Caracter	Opcao OK ( Confirmou a Tela )
aParametros[3]	Caracter	Numero da NF
aParametros[4]	Caracter	Serie da NF
aParametros[5]	Caracter	Fornecedor
aParametros[6]	Caracter	Loja

Retorno:

Nome	Tipo	Descrição
lRetorno	Lógico	.t. = continua o processo após OK no MATA103 / .f. = não continua o processo após OK no MATA103

Exemplo:

// Ponto de Entrada Executado após OK da Tela de Entrada por Compra ( MATA103 )

User Function OA290DOK()

Local lRet := .t.

Local nOpcMTA := ParamIXB[1] // nOpc ( 3-Inclusao / 4-Alteracao / 5-Exclusao )

Local cOpcMTA := ParamIXB[2] // Opcao OK ( Confirmou a Tela )

Local cNNFMTA := ParamIXB[3] // Numero da NF

Local cSNFMTA := ParamIXB[4] // Serie da NF

Local cForMTA := ParamIXB[5] // Fornecedor

Local cLojMTA := ParamIXB[6] // Loja

MsgAlert("Ponto de Entrada OA290DOK executado com sucesso!")

Return lRet