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

Tiempo aproximado de lectura 01:00 min 

Duda
¿Cómo personalizar la captura de lote y sublote en la rutina CTBA102 mediante el punto de entrada CT102ACAP?

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 CT102ACAP() permite personalizar la captura de los valores de lote y sublote en la rutina CTBA102.

Este punto de entrada funciona mediante la validación de la existencia de un bloque ejecutable previamente registrado en el sistema. En caso de existir, se ejecuta utilizando la función ExecBlock(), permitiendo sobrescribir el comportamiento estándar de captura.

El bloque ejecutable debe retornar un array con los valores de lote y sublote:

• Posición 1: cLote (valor del lote)
• Posición 2: cSubLote (valor del sublote, si aplica)

Si el bloque no existe o no retorna información válida, el sistema mantiene el comportamiento estándar.

Ejemplo de implementación:

If ExistBlock("CT102ACAP")
  aCT102ACAP := ExecBlock("CT102ACAP", .F., .F.)

  If ValType(aCT102ACAP) == "A" .and. Len(aCT102ACAP) > 0
     If !Empty(aCT102ACAP[1])
        cLote := aCT102ACAP[1]
     Endif
  Endif

  If Len(aCT102ACAP) > 1
     If !Empty(aCT102ACAP[2])
        cSubLote := aCT102ACAP[2]
     Endif
  Endif
Endif