Histórico da Página
A098CPCJ - Inclusão de Campos Específicos no Array de Conjuntos
Linha de Produto: | Protheus | ||
Segmento: | Manufatura | ||
Módulo: | SIGAPCP | ||
Rotina: | MATA098 - Codificação | ||
Cadastros Iniciais: | Relacione os cadastros necessários que precisam ser preenchidos antes da utilização desse requisito. | ||
Parâmetro(s): | Informe os parâmetros utilizados. | ||
Ponto de Entrada: | A098CPCJ - Inclusão de Campos Específicos no Array de Conjuntos | ||
Tickets relacionados | Informe o(s) chamado(s) relacionado(s). | ||
Informe o requisito relacionado (Issue). | |||
País(es): | Todos | ||
Banco(s) de Dados: | Todos | Tabelas Utilizadas: | Informe as tabelas utilizadas.|
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | No MATA098 (Codificação) ao definir a forma de cadastro, selecionar a opção 'Copia' e copiar da origem de um 'Conjunto', é possível executar o ponto de entrada 'A098CpCj'. Ao efetuar a copia onde cópia em que a origem é um conjunto, é carregado um array conforme a estrutura da tabela SBS (Opções para Características) com as informações da SBX (Opções dos Conjuntos) do conjunto selecionado. Neste momento é possível incluir um novo campo específico da SBS no array. | ||||||||||||||||
Localização: | Função: A098LeCjt - Retorna um array com as opções definidas num conjunto | ||||||||||||||||
Eventos: | N/A | ||||||||||||||||
Programa Fonte: | MATA098 - Codificação | ||||||||||||||||
Parâmetros: | PARAMIXB -> Array | ||||||||||||||||
Retorno: |
|
|
Exemplo:
Na tabela SBS foi incluído um novo campo específico 'BS_NOVO'.
Parar carregar a informação deste campo específico deve ser utilizado o ponto de entrada 'A098CpCj'
No MATA098, a carga do array aRet para os campos padrões é feita da seguinte maneira:
Aadd(aRet, Array(SBS->(FCount())))
aRet[nCnt,SBS->(FieldPos("BS_CODIGO" ))] := SBX->BX_CODOP
aRet[nCnt,SBS->(FieldPos("BS_DESCR" ))] := SBX->BX_DESC
aRet[nCnt,SBS->(FieldPos("BS_DESCPRD"))] := SBX->BX_DESCPR
aRet[nCnt,SBS->(FieldPos("BS_ATIVO" ))] := SBX->BX_ATIVO
Este array é passado como parâmetro para o PE e o PE retorna o array com o valor do novo campo específico.
user function A098CpCj()
Local nCnt := PARAMIXB[1]
Local aRet := PARAMIXB[2]
aRet[nCnt,SBS->(FieldPos("BS_NOVO" ))] := 'NOVO'
return aRet