Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada MT120PCOL 

Linha de Produto:

Microsiga Protheus

Segmento:

Backoffice

Módulo:

Compras (SIGACOM)

Rotina:

Rotina

Nome Técnico

Pedidos de Compra / Autorizações de Entrega

MATA120

Ponto de Entrada:

MT120PCOL

País(es):

Brasil

Banco(s) de Dados:

Todos

Tabelas utilizadas:

SC7

Sistema(s) operacional(is):

Windows/Linux

Ponto de Entrada

Descrição:

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 disponibilizado no MATA120 com data maior ou igual a 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

lRetLogico

.T. = Linha validada

.F. = Linha invalidada

 X
Exemplo:
Exemplo de utilização
#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