Linha Microsiga Protheus

Árvore de páginas

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


Para o módulo de Ativo Fixo o ponto de entrada Altera valores na depreciação:

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)