Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - Ponto de Entrada FT300D1ST

Tempo aproximado para leitura: 00:03:00 min

Dúvida
Exemplo de utilização do Ponto de Entrada FT300D1ST - Inclusão de novos status para o campo AD1_STATUS

Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) - SIGAFAT - A partir da release 12.

Solução

Ponto de entrada para incluir mais status para o campo AD1_STATUS.

O campo AD1_STATUS possui tamanho 1, e consequentemente o status a ser inserido não pode ser maior que 9.

Exemplo

#Include 'Protheus.ch'

User Function Ft300D1St()

    Local aStatus := {}

    MSGAlert("O Ponto de entrada FT300D1ST foi executado!")

    aAdd(aStatus,"5=Novo Status")
    aAdd(aStatus,"6=Outro Status")
    aAdd(aStatus,"7=Status Final")

Return aStatus