Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Contabilidad de Gestión (SIGACTB) - Punto de entrada CT102BTO

Tiempo aproximado de lectura 01:00 min 

Duda
¿Cómo personalizar la inclusión de asientos contables mediante el punto de entrada CT102BTO?

Entorno
Cross Segmentos - TOTVS BackOffice (Línea Protheus) - MI - Contabilidad de Gestión (SIGACTB) -  A partir de la versión 12.1.2410

Solución
El punto de entrada CT102BTO permite personalizar funcionalidades específicas durante la inclusión de asientos contables, tanto manuales como automatizados.

Mediante este punto de entrada, es posible intervenir en el proceso de creación de asientos, agregando funcionalidades adicionales como botones u opciones personalizadas en la interfaz, conforme a las reglas de negocio del cliente.

El punto de entrada retorna un arreglo (array) con las nuevas funcionalidades que se desean incorporar. Estas serán integradas al arreglo estándar de botones del sistema.

Implementación en el sistema:

aButBrowse := ExecBlock("CT102BTO", .F., .F., {aButton})

IF ValType(aButBrowse) == "A" .AND. Len(aButBrowse) > 0
   FOR nX := 1 TO Len(aButBrowse)
       aAdd(aButton, aButBrowse[nX])
   NEXT
ENDIF

Ejemplo de punto de entrada:

User Function CT102BTO()
    
   Local aButton    := PARAMIXB[1]
   Local aButtonAux := {}  

   AAdd(aButtonAux, {"example", { || U_EJEMPLO() }, "Details example", "example"})

Return aButtonAux

Información adicional

• El retorno esperado es un array con las funcionalidades a agregar (por ejemplo, botones)
• Permite extender la interfaz estándar del sistema durante la inclusión de asientos
• El uso del punto de entrada y sus impactos son responsabilidad del cliente
• Los ejemplos proporcionados son únicamente ilustrativos
• Cada cliente debe definir la lógica de acuerdo con sus necesidades de negocio