| 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: | PCOA463 |
| País: | Brasil |
| Ticket: | Interno |
| Requisito/Story/Issue | DSERCTR1-46030 |
O ponto de entrada PCOA4633 é utilizado para adicionar campos ao cabeçalho de uma tabela de dados na tela de Relacionamento entre Grupos de Grupos de Verbas. Ele permite que o usuário defina campos adicionais que devem ser incluídos na exibição do cabeçalho para manipulação de dados.
If ExistBlock( "PCOA4633" )
//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 PCOA4633 ³
//P_E³ Return {"AM7_FIELD1","AM7_FIELD2"} ³
//P_EÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
If ValType( aUsField := ExecBlock( "PCOA4633", .F., .F. ) ) == "A"
AEval( aUsField, { |x| AAdd( aCposEnch, x ) } )
EndIf
EndIf
User Function PCOA4633()
Local aCampos := {}
// Exemplo de inclusão de campos customizados ao cabeçalho
AAdd(aCampos, "AM7_FIELD1")
AAdd(aCampos, "AM7_FIELD2")
Return aCampos
Importante !!