Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Vitor Emanuel Batista

Gravado em

comparado com

Nova versão Atual

changes.mady.by.user Tainã Alberto Cardoso

Gravado em

Chave

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

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:

...

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.

Observações

 

Exemplos

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

Preview

Veja também

 

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

 

Parâmetros

 

Retorno

lRet

Eventos de chamada do Ponto de Entrada

 

Variáveis

cPerg, lRet

Programa Fonte

MNTA260.PRX
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

Localização:

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

Programa Fonte:

MNTA260.prw

Função:

MNTA2602()

Parâmetros:

NomeTipoPode AlterarDescrição
ParamIXB[1]
CaracterNão

Campo TJ_FILIAL da ordem de serviço

ParamIXB[2]
CaracterNãoCampo TJ_ORDEM da ordem de serviço
ParamIXB[3]
CaracterNãoCampo TJ_PLANO da ordem de serviço
Retorno:
NomeTipoDescriçãoObrigatório
lRet
LógicoRetorna o conteúdo da verificação.Sim
Bloco de código
firstline1
titleExemplo do código do ponto de entrada
linenumberstrue
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( "STJ" )
	DbSetOrder( 1 ) // TJ_FILIAL+TJ_ORDEM+TJ_PLANO+TJ_TIPOOS+TJ_CODBEM+TJ_SERVICO+TJ_SEQRELA
    If dbSeek(cFilial+cOrdem+cPlano)

        If STJ->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.