Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Giovana Niehues

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Cristiano Kair

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

Ponto de entrada que permite adicionar validações nas rotinas de Movimentação de Rodados (MNTA231/MNTA232)

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAMNT - Manutenção de Ativos e Gestão de Frotas

Rotina:

Rotina

Nome Técnico

MNTA420

O.S. Corretiva

Rotina(s) envolvida(s)

Nome Técnico

MNTA231

Movimentação do Esquema de Pneus

 MNTA232

Novo Esquema de Rodados Gráfico

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Ponto de Entrada

Descrição:

Ponto de entrada executado nas rotinas de Movimentação do Esquema de Pneus (MNTA231) e Novo Esquema de Rodados Gráfico (MNTA232), chamadas pela rotina de O.S. Corretiva (MNTA420), que permite adicionar validações do código de produto. 

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Ordem de Serviço/Corretiva. Outras Ações: Rodados

Programa Fonte:

MNTA420.prx

Função:

MNTA231V()

Parâmetros:
NomeTipoDescrição
ParamIXB[1]CaracterCódigo anterior do produto, encontrado na base
ParamIXB[2]CaracterCódigo atual do produto, inserido pelo usuário
ParamIXB[3]CaracterCódigo anterior do almoxarifado, encontrado na base
ParamIXB[4]CaracterCódigo atual do almoxarifado, inserido pelo usuário
ParamIXB[5]CaracterCódigo do status do produto, definido através da movimentação

Retorno:

Nome

Tipo

Descrição

Obrigatório

lRet

Lógico

Retorna verdadeiro ( .T. ) caso a validação seja confirmada

X

 

Bloco de código
titleExemplo do Ponto de Entrada MNTA231V()
#INCLUDE 'PROTHEUS.CH'

User Function MNTA231V(cProdAnt,cProdAtu,cAlmoAnt,cAlmoAtu,cStatus)

	    // Retorno da validação deve ser .T. ou .F.
	    Local lRet := .F.
	Local cProdAnt := ParamIXB[1]
	Local cProdAtu := ParamIXB[2]
	Local cAlmoAnt := ParamIXB[3]
	Local cAlmoAtu := ParamIXB[4]
	Local cStatus  := ParamIXB[5]

    // Chamada da validação
	    If 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.

	    EndIf

Return lRet