Linha Microsiga Protheus

Árvore de páginas

A650VALEST - Validação da Estrutura na Geração do Empenho

Linha de Produto:

Protheus

Segmento:

Manufatura

Módulo:

SIGAPCP - Planejamento e Controle da Produção

Parâmetro(s):


Nome
Tipo
Descrição
Default
Obrigatório Referência

PARAMIXB[1]
Caracter
String contendo o código do produto pai da estrutura.







PARAMIXB[2]
Caracter
String contendo o código do produto componente da estrutura.






Idiomas:

Português, Espanhol, Inglês

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Validação da Estrutura na Geração do Empenho

Localização:

Function A650ACols() - Função recursiva que monta a lista de componentes para geração dos empenhos e SC's.

Em que ponto:

Executado após a leitura da estrutura, será chamado para cada componente da estrutura.

Programa Fonte:MATA650.PRX

Sintaxe:

A650VALEST - Validação da Estrutura na Geração do Empenho ( [ PARAMIXB[1] ], [ PARAMIXB[2 ] ) --> Nil

Retorno:

Nil(nulo)

Observações:

Este ponto de entrada pode ser utilizado para realizar validações na estrutura que está sendo utilizada para gerar os empenhos. 

Um exemplo de validação é produtos fantasmas que estão bloqueados, neste caso não são gerados os empenhos e não é apresentada nenhuma mensagem de alerta.


Exemplo:
Exemplo:

Validação de produtos fantasmas que estão bloqueados.
Neste exemplo será apresentado um alerta ao usuário para que o mesmo possa realizar os devidos ajustes na OP e empenhos após a geração dos empenhos.
O PE não permite o cancelamento da geração dos empenhos.

USER FUNCTION A650VALEST()
Local cPai   := PARAMIXB[1]
Local cComp  := PARAMIXB[2]

SB1->(MsSeek(xFilial("SB1")+cComp))
cFant := SB1->B1_FANTASM
cBloq := SB1->B1_MSBLQL
cOp := SC2->C2_NUM + SC2->C2_ITEM + SC2->C2_SEQUEN

If cFant == 'S' .And. cBloq == '1'
   cMsg := 'Produto Fantasma ' + ALLTRIM(cComp) + ' está bloqueado e consequentemente não serão gerados os empenhos. Produto Pai: ' + ALLTRIM(cPai) + 'OP: ' + ALLTRIM(cOp)
   MsgAlert(cMsg, 'Validação PE A650VALEST')
EndIf

Return nil