Histórico da Página

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