Histórico da Página

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

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

Rotina:

Rotina	Nome Técnico
MNTA260	Cancelamento de OS

Rotina(s) envolvida(s)	Nome Técnico
MNTA2602	Ponto de Entrada

País(es):

Todos

Banco(s) de Dados:

Todos

Sistema(s) Operacional(is):

Todos

Descrição:	Ponto de Entrada chamado no programa MNTA260.prw, chamado na hora de filtrar as Ordens que devem ser exibidas.
Observação:

MNTA2602.od t

ObservaçõesMNTA260.PRX

Descrição

O ponto de entrada gera um filtro customizado pelo usuário e retorna uma variável lógica caso se encaixe ou não no filtro estabelecido.

O ponto de entrada vai verificar todas as ordens uma a uma, e retornar um valor lógico que indica se o registro deve ou não ser exibido

Exemplos

O exemplo do ponto de entrada encontra-se em anexo no topo da página.

Preview

Veja também

Localização:

SIGAMNT: Atualizações/Controle de Oficina/Plano manutenção/Cancelamento de os.

Programa Fonte:

MNTA260.prw

Função:

MNTA2602()

Parâmetros:

Nome	Tipo	Pode Alterar	Descrição
ParamIXB[1]	Caracter	Não	Campo TJ_FILIAL

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

ParamIXB[1] → Carrega a filial

da ordem de serviço

ParamIXB[2]

→ Carrega o campo

	Caracter	Não	Campo TJ_ORDEM da ordem de serviço
ParamIXB[3]

→ Carrega o campo

Caracter

Não

Campo TJ_PLANO da ordem de serviço

Retorno:

lRet

Eventos de chamada do Ponto de Entrada

Variáveis

cPerg, lRet

NomeTipoDescriçãoObrigatório
lRetLógicoRetorna o conteúdo da verificação.Sim

Programa Fonte

Bloco de código

firstline	1
title	Exemplo do código do ponto de entrada
linenumbers	true

User Function MNTA2602()

	Local aArea   := STJ->(GetArea()) // Como abaixo vamos realizar um dbseek na STJ, antes vamos salvar o ponto em que ela está agora
                                      // dessa forma evitamos problemas por desposicionamento da tabela
	Local lRet    := .F.
	Local cFilial := ParamIXB[1]
	Local cOrdem  := ParamIXB[2]
	Local cPlano  := ParamIXB[3]
	
     DbSelectArea DbSelectArea( "STJ" )
	DbSetOrder( 1 )
	If dbSeek(ParamIXB[1]+ParamIXB[2]+ParamIXB[3] // TJ_FILIAL+TJ_ORDEM+TJ_PLANO+TJ_TIPOOS+TJ_CODBEM+TJ_SERVICO+TJ_SEQRELA
    If dbSeek(cFilial+cOrdem+cPlano)

        If TJSTJ->TJ_TIPO == '001' // Vamos filtrar e exibir apenas as Ordens de Serviço de tipo Corretiva

            lRet := .T.
        
        EndIf

    EndIf

    RestArea(aArea) // Aqui usamos o save que fizemos da tabela, para posicionar novamente no ponto que estava antes do dbseek
		
Return lRet  //Retorno Lógico, se verdadeiro o sistema considera o registro, se falso, pula o registro.

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave