//--------------------------- EXEMPLO 1  ----------------------------------------------------------------------------------//
User Function MT650PISC 
Local lRet  

//...customização do cliente 

Return lRet

//--------------------------- EXEMPLO 2  ----------------------------------------------------------------------------------//
User Function MT650PISC()
Local lRet     := .F.
Local aArea    := GetArea()

cOp      := M->D3_OP
cProdPai := SC2->C2_PRODUTO

//Se entrou no PE indica que não existe empenho para a OP

//Verifica se existe algum produto que não seja fantasma
//Se existir algum produto que não seja fantasma deverá apresentar mensagem
SG1->(dbSetOrder(1))
SG1->(dbSeek(xFilial("SG1")+cProdPai))
Do While SG1->(!Eof()) .And. SG1->(G1_FILIAL+G1_COD) == xFilial("SG1")+cProdPai

	SB1->(dbSetOrder(1))
   If SB1->(dbSeek(xFilial("SB1")+SG1->G1_COMP)) 
      If SB1->B1_FANTASM == 'N' .Or. Empty(SB1->B1_FANTASM)
         lRet := .T.
         Exit
      EndIf
   EndIf

   SG1->(dbSkip())
EndDo

//Este é um exemplo simples.

//É possível implementar outras regras, por exemplo:
//- Explodir a estrutura e verificar se existe algum componente não fantasma abaixo do fantasma.
//  Neste caso deveria gerar o empenho para esse produto.
//- Validar revisão e data de validade da estrutura.

// Lembrando que este PE é chamado a cada apontamento, dependendo das validações pode afetar a performance.

RestArea(aArea)

Return lRet