nBaseItem		:= ExecBlock("DEPREATF",.f.,.f.,{cAliasTMP,cAliasTMP, "F120"})

nVlrBCPIS :=nVlrBCCOF := ExecBlock("DEPREATF",.f.,.f.,{cAliasSN1,cAliasSN1, "F130"})

#Include 'Protheus.ch'

User Function DEPREATF()

Local nRetorno    := 0

Local cArqTmp   := ParamIXB[1]

Local cAliasTmp := ParamIXB[2]

Local cTipReg    := ParamIXB[3]



If cTipReg == "F120"

  Alert("Exemplo do ponto de entrada DEPREATF para Registro F120")

  nRetorno := 15000

ElseIf  cTipReg == "F130"

  Alert("Exemplo do ponto de entrada DEPREATF para Registro F130")

  nRetorno := 25000

Else

  Alert("Exemplo do ponto de entrada DEPREATF ")

  nRetorno := 45000

EndIf



Return(nRetorno)

• Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
• Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.