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): |
| |||||||||||||||||||||||||||||||||||||||
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: 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