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). |
Requisito (informe o requisito relacionado): | 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 |
Descrição
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 | Função: | Informe o Nome do(s) produto(s) a ser utilizado ou “Todos” | |||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function CN120ALT()
Local aCabExemplo:
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]
If cTipo == '1'
aCab[4][2]aRet[nCnt,SBS->(FieldPos("BS_NOVO" ))] := '
NFNOVO'
//Validações do usuárioEndIf
Return aCabreturn aRet