Histórico da Página
A712CNTSC1 - Manipulação de campos customizados na criação da tabela SC1 pelo MRP
Características do Requisito
Linha de Produto: | Protheus | ||||
Segmento: | Manufatura | ||||
Módulo: | SIGAPCP - Planejamento e Controle da Produção | ||||
Rotina: |
| ||||
Ponto de Entrada: | A712CNTSC1 - Manipulação de campos customizados na criação da tabela SC1 pelo MRP | ||||
Tickets relacionados | 1044221 | ||||
Requisito/Story/Issue (informe o requisito relacionado): | DMANSMARTSQUAD1-1684 | ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Tabelas Utilizadas: | SC1; SC7 | ||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de entrada para manipular as informações de campos customizados, quando a SC é criada pelo MRP. Este ponto de entrada é utilizado apenas quando o produto possui Contrato de parceria (B1_CONTRAT). | ||||||||||||||||||||||||
Localização: | Função A712GeraSC, antes de ser executada a função do módulo de Compras para gerar as ordens de compra quando o produto possui contrato de parceria. | ||||||||||||||||||||||||
Parâmetros |
| ||||||||||||||||||||||||
Programa Fonte: | MATA712 - MRP | ||||||||||||||||||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'
User Function A712CNTSC1()
Local cProd := PARAMIXB[1] //Código do produto que será criada a SC.
Local nQtd := PARAMIXB[2] //Quantidade
Local aCampos := PARAMIXB[3]
/*
aCampos:
Campos enviados pelo MRP para a criação da SC;
São enviados apenas os campos DATPRF, SEQMRP, TPOP e USER. Sem utilizar o prefixo de tabela.
*/
Local aFldCustom := {}
/*
aFldCustom:
Array com os campos customizados que serão preenchidos na criação das tabelas SC1/SC7.
Este array deve possuir a seguinte estrutura:
aFldCustom[1]:Array
aFldCustom[1][1]: Nome do campo que será preenchido, sem utilizar o prefixo da tabela.
Exemplo: Para preencher o campo C1_FORNECE, esta posição do array deve ser "FORNECE".
aFldCustom[1][2]: Valor que será preenchido no campo.
Exemplo de adição de um elemento no array aFldCustom:
aAdd(aFldCustom,{"FORNECE","000001"})
Obs: As informações que são recebidas pelo array aCampos, não poderão ser alteradas.
*/
Local nPos := 0
nPos := aScan(aCampos,{|x| x[1] == "SEQMRP"})
aAdd(aFldCustom,{"OBSERVA","SC gerada pelo MRP." + Iif(nPos>0," Sequência " + aCampos[nPos,2],"")}) //Adiciona o valor para um campo customizado.
Return aFldCustom