| Produto: |
TOTVS Backoffice
|
|---|---|
| Linha de Produto: | Linha Protheus |
| Segmento: | Serviços |
| Módulo: | TOTVS Backoffice (Linha Protheus) - Planejamento e Controle Orçamentário (SIGAPCO)
|
| Função: | PCOA500 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46030 |
O ponto de entrada PCOA500CAB permite que o usuário adicione campos extras ao cabeçalho da tela de manutenção de contingências orçamentárias. Ele é executado durante a montagem da interface e retorna um array com os nomes dos campos adicionais que devem ser incluídos na tela.
Isso é útil quando há a necessidade de adicionar informações específicas do usuário que não fazem parte da estrutura padrão do sistema, oferecendo maior flexibilidade na personalização da interface.
If ExistBlock( "PCOA500CAB" )
//P_EÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
//P_E³ Ponto de entrada utilizado para adicionar campos no cabecalho ³
//P_E³ Parametros : Nenhum ³
//P_E³ Retorno : Array contendo as os campos a serem adicionados ³
//P_E³ Ex. : User Function PCOA500CAB ³
//P_E³ Return {"ALI_FIELD1","ALI_FIELD2"} ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ValType( aUsField := ExecBlock( "PCOA500CAB", .F., .F. ) ) == "A"
AEval( aUsField, { |x| AAdd( aCposEnch, x ) } )
EndIf
EndIf
User Function PCOA500CAB()
Local aCampos := {}
// Exemplo de campos adicionais
AAdd(aCampos, "ALI_FIELD1")
AAdd(aCampos, "ALI_FIELD2")
// Retorna os campos que serão adicionados ao cabeçalho
Return aCampos
Importante !!