Histórico da Página

...

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:

Nome	Tipo	Pode Alterar	Descrição
ParamIXB[1]	Caracter	Não	Filial Campo TJ_FILIAL da ordem de serviço
ParamIXB[2]	Caracter	Não	Campo TJ_ORDEM da ordem de serviço
ParamIXB[3]	Caracter	Não	Campo TJ_PLANO da ordem de serviço

Retorno:

NomeTipoDescriçãoObrigatório
lRetLógicoRetorna o conteúdo da verificação.Sim

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

Árvore de páginas

Versões comparadas

Versão antiga 6

Nova versão Atual

Chave