Linha Microsiga Protheus

Árvore de páginas

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: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

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
Exemplo do código do ponto de entrada
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.