O ponto de entrada MT120PCOL é utilizado para validar a inclusão do pedido de compra (MATA120) antes da validação do módulo SIGAPCO (validação de bloqueio).
Localização:
Linha a linha dos itens do pedido.
Eventos:
Não permitir a inclusão de linha invalidada.
Programa Fonte:
MATA120
Função:
A120LINOK
Observações:
Esse ponto de entrada possui os mesmos primeiros 8 caracteres do MT120PCOK - Valida Pedido de Compra, fazendo com que ambos sejam executados em pontos distintos. Para tratar esse problema sem afetar validações do legado, foi criado o parâmetro abaixo onde é possível identificar a partir de qual ponto está sendo executada a chamada do ponto de entrada.
Parâmetros:
Nome
Tipo
Descrição
Obrigatório
PARAMIXB[1]
Numérico
Chamada em Execução (1 = A120LINOK, 2 = A120TUDOK)
X
Retorno:
Nome
Tipo
Descrição
Obrigatório
lRet
Logico
.T. = Linha validada
.F. = Linha invalidada
X
Exemplo:
Bloco de código
language
cpp
theme
Midnight
firstline
1
title
Exemplo de utilização
linenumbers
true
#INCLUDE "PROTHEUS.CH"
User Function MT120PCOL()
Local lRet := .T.
Local nOper := PARAMIXB[1]
If nOper == 1 //-- 1 = Chamada via A120LINOK, 2 = Chamada via A120TUDOK
//-- Validações de usuário
lRet := .F.
EndIf
Return lRet
