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.           
	
    DbSelectArea( "STJ" )
	DbSetOrder( 1 )
	If dbSeek(ParamIXB[1]+ParamIXB[2]+ParamIXB[3])

        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.