Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 6

changes.mady.by.user Cristiano Kair

Gravado em

comparado com

Nova versão 7

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

Deck of Cards
startHiddenfalse
effectDuration0.5
historyfalse
idsamples
effectTypefade
Card
defaulttrue
id1
labelAtual
Aviso
titleDisponibilidade

Data do fonte MNTA231 posterior a 31/05/2021

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 'TOTVS.CH'

User Function MNTA231V()

    // 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
]
Card
Anterior a [
labelAntigo
Aviso
titleDisponibilidade

Data do fonte MNTA231 anterior a 31/05/2021

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
cProdAntCaracterCódigo anterior do produto, encontrado na base
cProdAtuCaracterCódigo atual do produto, inserido pelo usuário
cAlmoAntCaracterCódigo anterior do almoxarifado, encontrado na base
cAlmoAtuCaracterCódigo atual do almoxarifado, inserido pelo usuário
cStatusCaracterCó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.
 
    // 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