O ponto de entrada MT120RES tem como finalidade permitir ou não a exclusão de pedido de compras associados a itens de solicitação de compras que possuem eliminação por resíduos, que por padrão não é permitido.
Localização:
Função principal de Manutenção de Pedidos de Compra.
Eventos:
Permitir ou não a exclusão de pedidos de compra associados a itens de solicitação que possuem eliminação por resíduo.
Programa Fonte:
MATA120
Função:
A120PEDIDO
Observações:
Este ponto de entrada somente será acionado:
O pedido de compra estiver sendo excluído;
O pedido de compras possuir associação com solicitação de compras
Alguns dos itens associados a solicitação de compras estiver com eliminação de resíduo.
Parâmetros:
Nome
Tipo
Descrição
Obrigatório
PARAMIXB[1]
Numérico
Operação escolhida no Menu Principal da rotina de Pedido de Compras (nOpc)
X
Retorno:
Nome
Tipo
Descrição
Obrigatório
lRet
Lógico
.T. = Permite exclusão
.F. = Não permite exclusão
X
Exemplo:
Bloco de código
language
cpp
theme
Midnight
firstline
1
title
Exemplo de utilização
linenumbers
true
#INCLUDE "PROTHEUS.CH"
User Function MT120RES()
Local lRet := .F.
Local aArea := GetArea()
Local aAreaSC1 := SC1->(GetArea())
Local nOpc := PARAMIXB[1]
//-- Início das validações de usuário
If !lRet .And. nOpc == 5
lRet := .T.
Endif
//-- Fim das validações de usuário
SC1->(RestArea(aAreaSC1))
RestArea(aArea)
Return lRet