Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
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. |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas