Linha de Produto: | Protheus |
Segmento: | Manufatura |
Módulo: | SIGAPCP |
Rotina: | MATA098 - Codificação |
Ponto de Entrada: | A098CPCJ - Inclusão de Campos Específicos no Array de Conjuntos |
País(es): | Todos |
Banco(s) de Dados: | Todos |
Sistema(s) Operacional(is): | Todos |
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 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
