Linha Microsiga Protheus

Árvore de páginas

Carregando...
Tempo aproximado para leitura: 3 minutos


01. DADOS GERAIS

Produto:

TOTVS Manufatura

Linha de Produto:

Linha Protheus

Segmento:

Manufatura

Módulo:

TOTVS Manufatura (Linha Protheus) - Planejamento e controle da produção (SIGAPCP)

Função:MATA093 - Código Inteligente
País:Todos


02. DESCRIÇÃO

Permite que o código do produto informado pelo operador seja manipulado, porém esta alteração deve se executada com muita cautela, pois após a execução deste ponto de entrada não existe mais  validação do código informado.


Localização

Validação se o código inteligente é válido, na função A093VldCod.


Parâmetro

Nome

Tipo

Descrição

Default

Obrigatório

ParamIXB[1]CaracterCódigo do produto a ser gerado
Sim
ParamIXB[2]CaracterDescrição padrão para o produto gerado
Sim
ParamIXB[3]Array of RecordArray com informações das características selecionadas: (Vide Observações)
Sim
ParamIXB[4]Array of RecordArray com os IDs de características tipo grade.
Sim
ParamIXB[5]LógicoVerifica se gera SB1 e SG1 do código fornecido
Sim

Observações:

ParamIXB[3] = Array contendo:

  • ID da característica
  • Código da opção selecionada
  • Descrição da opção
  • Descrição da opção a ser usada na descrição do produto


Retorno

Nome

Tipo

Descrição

Obrigatório

cRet Caracter

Novo código do produto.

Sim

.


03. DEMAIS INFORMAÇÕES


Exemplo
#INCLUDE 'Protheus.ch'

User Function A093ACOD()

Local cCodPrd := PARAMIXB[1]
Local cDesPrd := PARAMIXB[2]
Local aCod    := PARAMIXB[3]
Local aCodGrd := PARAMIXB[4]
Local aArea   := GetArea()
Local cNewCod := Nil

If Substr(cCodPrd,1,3)=='305'
	cNewCod := cCodPrd + '32'
Else
	cNewCod := cCodPrd + '001'
EndIf

Help( ,, 'PE A093ACOD',, "TESTE P.E. A093ACOD - Novo código do produto: "+cNewCod , 1, 0 )

RestArea(aArea)

Return (cNewCod)


04. ASSUNTOS RELACIONADOS

  • Não se aplica.