Histórico da Página

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("ExemploEjemplo dodel pontopunto de entrada DEPREATF para Registro F120")

  nRetorno := 15000

ElseIf  cTipReg == "F130"

  Alert("ExemploEjemplo dodel pontopunto de entrada DEPREATF para Registro F130")

  nRetorno := 25000

Else

  Alert("ExemploEjemplo dodel pontopunto de entrada DEPREATF ")

  nRetorno := 45000

EndIf



Return(nRetorno)

• Se observa que la utilización del PE y sus impactos en el sistema son de responsabilidad del cliente.
• Los ejemplos utilizados en esta documentación solamente son para fines de demostración, cada cliente debe verificar qué comportamiento desea realizar de acuerdo con el alcance del punto
• 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.