Linha Microsiga Protheus

Árvore de páginas

Produto:

Protheus.

Ocorrência:

A093ACOD: Validação de Código Inteligente.

Passo a passo:

Localização: Function A093VldCod - Valida se um código inteligente é valido.

Em que ponto: O ponto se encontra após a validação do código inteligente e /ou inclusão de código não padrão. Este PE 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 não existe mais nenhuma validação do código informado.

Programa fonte: MATA093.PRW

Parâmetros:

NomeTipoDescriçãoDefaultObrigatórioReferência
ParamIXB[1]CaracterCódigo do produto a ser gerado
X
ParamIXB[2]CaracterDescrição padrão para o produto gerado
X
ParamIXB[3]Array of RecordArray com informações das caracateristicas selecionadas: (Vide Observações)
X
ParamIXB[4]Array of RecordArray com os IDs de caracteristicas tipo grade.
X
ParamIXB[5]LógicoVerifica se gera SB1 e SG1 do codigo fornecido
X

Sintaxe: A093ACOD - Validação de Código Inteligente ( < ParamIXB[1]> , < ParamIXB[2]> , < ParamIXB[3]> , < ParamIXB[4]> , < ParamIXB[5]> ) --> cRet

Retorno:

cRet(caracter)

  • Novo código do produto.

Exemplo:

User Function A093ACOD()Local cCodPrd := PARAMIXB[1]Local cDesPrd := PARAMIXB[2]Local aCod    := PARAMIXB[3]Local aCodGrd := PARAMIXB[4]Local lGera   := PARAMIXB[5]Local aArea   := GetArea()Local cNewCod := Nil              
If Substr(cCodPrd,1,3)=='MIC' cNewCod := cCodPrd + '090'Else cNewCod := cCodPrd + '001'EndIf       RestArea(aArea)Return (cNewCod)

Variáveis:

NomeTipoEscopoPode AlterarDescrição

Array of RecordGlobalNão

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