Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada para Controle de exibição de Campos no Cadastro de Clientes

Características do Requisito

Linha de Produto:

Microsiga Protheus®

Segmento:

Jurídico

Módulo:

SIGAJURI

Rotina:

Rotina

Nome Técnico

JURA148

Clientes

Ponto de Entrada:

JA148FLDS

País(es):

Todos

Ponto de Entrada

Descrição:

O ponto de entrada permite a inclusão, remoção e reordenação de campos da tela de cadastro de clientes ( campos obrigatórios não são contemplados )

Localização:

Módulo 76 - SIGAJURI > Atualizações / Administrativo / Clientes

Eventos:

O ponto de entrada é executado durante a montagem da View do modelo.

Programa Fonte:

JURA148 - Clientes

Retorno
PosiçãoValorTipoExemplo
1Uma das Tabelas da View : SA1 / NUH / NUB / NUC / NUA / NU9 / NUD / AC8 / NZBCaracter

AAdd( aCampos, 'SA1' )

2Campos a serem incluídosArray de Caracteres

AAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )

3Campos a serem removidosArray de CaracteresAAdd ( aCampos, { 'A1_XYZ' , 'A1_XXY' } )
4Campos a trocar sua ordem ( independente da tabela SX3 )Arrays de Arrays de CaracteresAAdd ( aCampos,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )

Exemplo:

Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )


Campos da Tabela NUH
AAdd( aCamposNUH, 'NUH' )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH,{ { 'NUH_XCASO' , '01'},{ 'NUH_XTEST' , '02' } } )

Retorno :

AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)

Exemplo prático:

 

Com uma tabela SA1Com duas Tabelas SA1 / NUH

#INCLUDE "rwmake.ch"

#INCLUDE "PROTHEUS.ch"

User Function JA148FLDS()

Local aRetorno := {}
Local aCamposSA1 := {}

// Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )

// Retorno :

AAdd(aRetorno, aCamposSA1)

Return aRetorno

 

#INCLUDE "rwmake.ch"

#INCLUDE "PROTHEUS.ch"

User Function JA148FLDS()

Local aRetorno := {}
Local aCamposSA1 := {}
Local aCamposNUH := {}

// Campos da Tabela SA1
AAdd( aCamposSA1, 'SA1' )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1, { 'A1_XYZ' , 'A1_XXY' } )
AAdd ( aCamposSA1,{ { 'A1_LOJA' , '01'},{ 'A1_CEP' , '02' } } )

// Campos da Tabela NUH
AAdd( aCamposNUH, 'NUH' )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH, { 'NUH_XYZ' , 'NUH_XXY' } )
AAdd ( aCamposNUH,{ { 'NUH_XCASO' , '01'},{ 'NUH_XTEST' , '02' } } )

// Retorno :
AAdd(aRetorno, aCamposSA1)
AAdd(aRetorno, aCamposNUH)
Return aRetorno