CarregaRevisoes

Função utilizada para carregar na memória os dados das Revisões a partir das abrangências passadas como parâmetros.

No Gerador de Relatórios é utilizada no modelo SMMA002.

Sintaxe: CarregaRevisoes (xnumemp, abreqp, abrcod, abrsvc, xdatini, xdatfim, xRevAnt, xqtdrev);

Parâmetros:

Nome Tipo Descrição
xnumemp

Numérica

Número da empresa (geralmente é a empresa ativa).
abreqp

Alfanumérica

Abrangência do Tipo de Equipamento (R098EQP.TipEqp).
abrcod Alfanumérica Abrangência do Código de Equipamento (R098EQP.CodEqp).
abrsvc Alfanumérica Abrangência do Tipo de Serviço (R098SVC.TipSvc).
xdatini Numérica Data inicial das revisões (tela de entrada).
xdatfim Numérica Data final das revisões (tela de entrada).
xRevAnt Alfanumérica Indica se a função deve retornar todas as revisões previstas (não efetuadas) no período informado ("S") ou somente as revisões previstas (não efetuadas) após a última revisão efetuada no período.
xqtdrev Numérica Retorna a quantidade da Revisões encontradas.

Tipo de Retorno: xqtdrev = total de revisões.

Exemplo: Carregando todas as Revisões da empresa ativa.

Definir Numero xnumemp;

Definir Numero xqtdrev;

Definir Alfa EAbrEqp; (tela de entrada)

Definir Alfa EAbrCod; (tela de entrada)

Definir Alfa EAbrSvc; (tela de entrada)

xnumemp = EmpAtu; (variável de sistema)

CarregaRevisoes( xnumemp, EAbrEqp, EAbrCod, EAbrSvc, EDatIni, EDatFim, xRevAnt, xqtdrev );

Utilização: Gerador de relatórios e editor de regras.

Disponível para o módulo: SM.

Este artigo ajudou você?