Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Mônica Amélia Nunho Giandoni

Gravado em

comparado com

Nova versão 2

changes.mady.by.user admin

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
MNTA231V - Validação do Código do Produto
MNTA231V - Validação do Código do Produto

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:
NomeTipoDescriçãoDefaultObrigatórioReferência
cProdAntCaracterCódigo anterior do produto, encontrado na base.X
cProdAtuCaracterCódigo atual do produto, inserido pelo usuário.X
cAlmoAntCaracterCódigo anterior do almoxarifado, encontrado na base.X
cAlmoAtuCaracterCódigo atual do almoxarifado, inserido pelo usuário.X
cStatusCaracterCó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
NomeTipoEscopoPode Alterardescrição
lRetLógicoLocalSim