Producto: | TOTVS Backoffice |
---|---|
Línea de producto: | Línea Protheus |
Segmento: | Servicios |
Módulo: | TOTVS Backoffice (Línea Protheus) - Activo fijo (SIGAATF) |
Función: | ATFXVLD |
País: | Brasil |
Ticket: | Interno |
Requisito/Story/Issue | DSERCTR1-46829 |
El punto de entrada AFCLDEPR se utiliza para manejar la clasificación estándar de los activos que tendrán depreciación. Este permite definir qué activos tendrán o no depreciación, determinando si los valores totalizados en el informe Lista de los bienes adquiridos (ATFR110) serán positivos o negativos.
Este punto de entrada ofrece flexibilidad para personalizaciones específicas en el comportamiento de clasificación de activos en el contexto de depreciación.
If ExistBlock("AFCLDEPR") lAtClssVer := ExecBlock("AFCLDEPR",.F.,.F.,{cClassif}) EndIf
User Function AFCLDEPR() Local cClassif := Paramixb[1] Local cTpDepr := "N|D|A|O|T|E" //incluye clasificación de activos depreciables Local cTpNDepr := "V|S|I|C|P|R" //incluye clasificación de activos no depreciables Local lRet := .F. /* * Clasificación de activos - SN1->N1_PATRIM * "N" -> Activo fijo * "S" -> Patrimonio neto * "A" -> Amortización * "C" -> Capital social * "P" -> Patrimonio (Perjuicio) * "I" -> Activo intangible * "D" -> Activo diferido * "O" -> Presupuesto * "V" -> Provisión * "T" -> Costos de transacción */ // Clasificaciones de bienes que tienen el proceso de depreciación If cClassif $ cTpDepr lRet := .T. // Sí, deprecia // Clasificación de bienes que NO tienen el proceso de depreciación ElseIf cClassif $ cTpNDepr lRet := .F. // No, NO deprecia EndIf Return (lRet)
Importante