Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: A093ACOD - Validação de Código Inteligente
Versões: Microsiga Protheus 8.11 , Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
LOCALIZAÇÃO : Function A093VldCod - Valida se um codigo 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
Sintaxe

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

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
ParamIXB[1] Caracter Código do produto a ser gerado X
ParamIXB[2] Caracter Descrição padrão para o produto gerado X
ParamIXB[3] Array of Record Array com informações das caracateristicas selecionadas: (Vide Observações) X
ParamIXB[4] Array of Record Array com os IDs de caracteristicas tipo grade. X
ParamIXB[5] Lógico Verifica se gera SB1 e SG1 do codigo fornecido X
Retorno
    cRet(caracter)
  • Novo código do produto.
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

Exemplos 
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
Nome Tipo Escopo Pode Alterar descrição
Array of Record Global Não