Histórico da Página

MNTA2602.od t

Observações
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.

Preview
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.
Veja também

Updates

Idioma	Português(Brasil)
Versões	Microsiga_Protheus11
Sistemas Operacionais Suportados	Todos
Compatível com as Bases de Dados	Todas

Parâmetros

ParamIXB[1] → Carrega a filial da ordem de serviço

ParamIXB[2] → Carrega o campo TJ_ORDEM da ordem de serviço

ParamIXB[3] → Carrega o campo TJ_PLANO da ordem de serviço

Parâmetros

Eventos de chamada do Ponto de Entrada

Retorno	lRet


Variáveis	cPerg, lRet
Programa Fonte	MNTA260.PRX

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

        If 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 2

Nova versão 3

Chave