Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Activo Fijo (SIGAATF) - Personalizar Tipo de Activo, Tipo de Saldo y Tipo de Depreciación (ATF012SAL)

Duda
¿Cómo alterar las opciones de tipo de activo, tipo de saldo y tipo de depreciación en la rutina de Activos (ATFA012)?

Ambiente
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Activo Fijo (SIGAATF) - A partir de la versión 11

Solución
Existe el punto de entrada ATF012SAL, el cual fue habilitado con el objetivo de permitir utilizar las opciones disponibles para el Tipo de Activo, Tipo de Saldo y Tipo de Depreciación. 

Este punto de entrada altera las validaciones que detona la rutina ATFA012.

Ejemplo de la función de usuario:

#include "rwmake.ch"
#include "protheus.ch" 

User Function ATF012SAL()
Local aConfig := aClone(ParamIxb[1])
Local aNewConf := {}
 
 aAdd(aNewConf, {"10|12|13|14|15|16|17" ,"*" ,"*" })
 aAdd(aNewConf, {"01|02|03|04|05|06|07|11" ,"1|" ,"1|7|5" })
 aAdd(aNewConf, {"09|08" ,"1|" ,"1|" })
 
Return aClone(aNewConf)

Las posiciones del arreglo aConfig o aNewConf, son las siguientes:

aConfig[1][1] = Tipo de Activo
aConfig[1][2] = Tipo de Saldo
aConfig[1][3] = Método de Depreciación

aConfig[2][1] = Tipo de Activo
aConfig[2][2] = Tipo de Saldo
aConfig[2][3] = Método de Depreciación

aConfig[3][1] = Tipo de Activo
aConfig[3][2] = Tipo de Saldo
aConfig[3][3] = Método de Depreciación

Para permitir todas las combinaciones se sugiere asignar el valor "*" en las posiciones 2 y 3 del arreglo aNewConf. Ejemplo:

aAdd(aNewConf, {"10|12|13|14|15|16|17" , "*" , "*"})
aAdd(aNewConf, {"01|02|03|04|05|06|07|11" , "*" , "*"})
aAdd(aNewConf, {"09|08" , "*" ,"*" })

El punto de entrada se detona en la función ATFSALDEPR dentro del fuente ATFXVLD.