Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada M120FGCT

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:

M120FGCT

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 M120FGCT tem como finalidade customizar a validação do vínculo entre solicitação de compras com o pedido de compras oriundo de medição de contratos.

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:

Este ponto de entrada somente será acionado:

  1. Para os itens do pedido que possuam solicitação de compras vinculadas;
  2. Quando o pedido de compra for gerado via rotina automática (ExecAuto) da MATA120 chamada pela medição de contratos (CNTA120/CNTA121/CNTA260).

Parâmetros:

Nome

Tipo

Descrição

Obrigatório

PARAMIXB[1]

Caractere

Código da filial que o sistema definiu para busca da solicitação 

X

PARAMIXB[2]CaractereNúmero da Solicitação de Compra vinculada ao item do PedidoX

PARAMIXB[3]

Caractere

Item da Solicitação de Compra vinculada ao item do Pedido

X

 Retorno:

Nome

Tipo

Descrição

Obrigatório

lRetLógico

.T. = Linha válida

.F. = Linha inválida

 X
Exemplo:
Exemplo de utilização
#INCLUDE "PROTHEUS.CH"

User Function M120FGCT()
	
	Local lRet 		 := .T.
	Local aArea		 := GetArea()
	Local aAreaSC1   := SC1->(GetArea())
	Local cFilSeekC1 := PARAMIXB[1]
	Local cNumSC 	 := PARAMIXB[2]
	Local cItemSC 	 := PARAMIXB[3]

	//-- Início das validações de usuário

		If !Empty(cFilSeekC1) .And. !Empty(cNumSC) .And. !Empty(cItemSC)
			SC1->(DbSetOrder(2)) //-- C1_FILIAL, C1_NUM, C1_ITEM, C1_ITEMGRD
			lRet := SC1->(MsSeek(cFilSeekC1 + cNumSC + cItemSC))
		EndIf
	
		If !lRet
			Help("", 1, "M120FGCT", , "Solicitação de compra não encontrada!")
		EndIf

	//-- Fim das validações de usuário

	SC1->(RestArea(aAreaSC1))
	RestArea(aArea)

Return lRet