Histórico da Página
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. |
---|---|
Observações |
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. |
---|---|
Preview | |
Veja também |
Idioma | Português(Brasil) |
---|---|
Versões | Microsiga_Protheus11 |
Sistemas Operacionais Suportados | Todos |
Compatível com as Bases de Dados | Todas |
Updates |
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
Retorno | lRet |
---|---|
Eventos de chamada do Ponto de Entrada |
Variáveis | cPerg, lRet |
---|---|
Programa Fonte | MNTA260.PRX |
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.
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.
|
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas