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 !!