Linha Microsiga Protheus

Árvore de páginas

Carregando...

Versões comparadas

Versão antiga 4

changes.mady.by.user Michele Lais Girardi

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Michele Lais Girardi

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

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:


Bloco de código
languagec#
firstline1
titleExemplo
linenumberstrue
#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)

...