English
Español
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.
English
Español
