PegaUltimoNum

Pega o Ultimo Numero de Formulário impresso. Se o usuário já tiver informado na tela de entrada, permanece o que  ele informou, porém chama a função para verificar se já existe um registro na tabela E078Ult para o CAMBAS = "NUMFCC". Se não existe então cria um

Sintaxe: PegaUltimoNum(Numero CodEmp, Numero CodFil, Alfa CamBas,Alfa DesCam,Numero End NumFcc, Numero End FlagFim).

Parâmetros:

Nome Tipo Descrição
CodEmp Numero Código da empresa.
CodFil Numero Código da filial.
CamBas Alfa  
DesCam Alfa  
NumFcc Numero Retorna o último número gravado para esta chave, e CAMBAS = 'NUMFCC' (Certificado de Classificação).
FlagFim Numero Retorna 1 quando o usuário respodeu que não quer iniciar a impressão do número de certificado sugerido(quando não é informado o último número, sugere o próximo do que está gravado na tabela E078ULT para o CamBas 'NUMFCC').

Parâmetros: Chave da tabela E078ULT(CodEmp, CodFil, CamBas) DesCam: Descrição do Campo Base

Tipo de retorno: De acordo com as variáveis NumFcc e FlagFim acima.

Exemplo: 

Flag = 0; @Se retornar 1 cancela o relatório, se retornar 2, continua imprimindo@

VNumFcc = ENumFcc;

PegaUltimoNum(VCodEmp, VCodFil,"NUMFCC","Últ.Form.Cert.Class.",VNumFcc,Flag);

PrimVez = 0;

Fim;

Utilização da Função (dependentes):   Nenhuma.

Observações: Utilizada em modelos que fazem Atualização Certificado de Classificação.

Este artigo ajudou você?