01. DADOS GERAIS

• Linha de Produto: Microsiga Protheus®
• Segmento: Backoffice
• Módulo: SIGACTB
• Função: CTBA102
• Nome do Ponto de Entrada: CT102ACAP
• Tipo: Ponto de Entrada (Bloco Executável)
• Objetivo: Permite a personalização do processo de captura de lote e sublote em funcionalidades específicas do sistema.

02. DESCRIÇÃO

O ponto de entrada CT102ACAP() possibilita que desenvolvedores personalizem a captura dos valores de lote e sublote, modificando o comportamento padrão do sistema. Isso é realizado através da avaliação da existência de um bloco executável previamente registrado, utilizando a função ExecBlock().

03. PARÂMETROS 

Nenhum parâmetro de entrada é diretamente requerido pelo ponto de entrada CT102ACAP(). Ele é chamado internamente pelo sistema e utiliza o resultado do bloco executável (se existente) para definir os valores de lote e sublote.

04. RETORNO

• Retorno Principal:
  • Um array contendo os valores capturados, com as seguintes posições:
    1. cLote - Valor do lote
    2. cSubLote - Valor do sublote (se aplicável)

Se o bloco não existir ou não retornar os valores esperados, o comportamento padrão do sistema é mantido.

05. EXEMPLO DE UTILIZAÇÃO

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