DEPREATF - Depreciação do Ativo
Descrição: | Retorna a Depreciação do Ativo Fixo |
Localização: | Informe o Submenu em que estará localizada a rotina |
Eventos: |
ExecBlock("DEPREATF",.f.,.f.,{cAliasTMP,cAliasTMP, "F120"}) |
Programa Fonte: | FISXATF.PRW |
Função: |
_DeprecAtivo |
Retorno: | Nome | Tipo | Descrição | Obrigatório | nMeses | Numerico | Base de Credito |
|
|
Exemplo:
#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)
