Linha Microsiga Protheus

Árvore de páginas

Ponto-de-Entrada: MNTA231V - Validação do Código do Produto
Abrangências: Microsiga Protheus 10
Versões: Microsiga Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Idiomas: Espanhol , Inglês
Descrição: 
Ponto de Entrada utilizado para adicionar validação do código do produto inserido na movimentação de rodados através das rotinas MNTA231 (Movimentação do Esquema de Pneus) e MNTA232 (Novo Esquema de Rodados Gráfico), chamadas pela rotina MNTA420 (Programa para O.S. Corretivas).
Programa Fonte 
MNTA231
Sintaxe

MNTA231V - Validação do Código do Produto ( < cProdAnt> , < cProdAtu> , < cAlmoAnt> , < cAlmoAtu> , < cStatus> ) --> lRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cProdAnt Caracter Código anterior do produto, encontrado na base. X
cProdAtu Caracter Código atual do produto, inserido pelo usuário. X
cAlmoAnt Caracter Código anterior do almoxarifado, encontrado na base. X
cAlmoAtu Caracter Código atual do almoxarifado, inserido pelo usuário. X
cStatus Caracter Código do status do produto, definido através da movimentação. X
Retorno
    lRet(logico)
  • Retorna o valor lógico da validação, True ou False.
Exemplos 
User Function MNTA231V(cProdAnt,cProdAtu,cAlmoAnt,cAlmoAtu,cStatus)// Retorno da validação deve ser .T. ou .F.Local lRet := .F.// Chamada da validaçãoIf MsgYesNo("Produto Anterior: "+cProdAnt+Chr(13)+;				"Produto Atual: "+cProdAtu+Chr(13)+Chr(13)+;				"--------------------"+Chr(13)+Chr(13)+;				"Almoxarifado Anterior: "+cAlmoAnt+Chr(13)+;				"Almoxarifado Atual: "+cAlmoAtu+Chr(13)+Chr(13)+;				"--------------------"+Chr(13)+Chr(13)+;				"Status: "+cStatus,;				"MNTA231V")	lRet := .T.Else	lRet := .F.EndIfReturn lRet
Variáveis
Nome Tipo Escopo Pode Alterar descrição
lRet Lógico Local Sim