Producto: |
TOTVS Backoffice
|
Línea de producto: | Línea Protheus |
Segmento: | Serviços |
Módulo: | TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF)
|
Función: | FISXATF |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46748 |
El punto de entrada DEPREATF devuelve la depreciación del activo fijo
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("Ejemplo del punto de entrada DEPREATF para Registro F120")
nRetorno := 15000
ElseIf cTipReg == "F130"
Alert("Ejemplo del punto de entrada DEPREATF para Registro F130")
nRetorno := 25000
Else
Alert("Ejemplo del punto de entrada DEPREATF ")
nRetorno := 45000
EndIf
Return(nRetorno)
Importante !!