Histórico da Página

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:

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: