Artigos Automação Comercial / NFe / PAF-ECF Preenchendo digitos a esquerda ou a direita Nfe Firebird 3/3
Olá pessoal neste artigo, vou mostrar como preencher digitos a esquerda e a direita e o simbolo que você quer preencher e a quantidade de vezes, tem alguns campos da Nfe que é necessário este preenchimento onde se entra com a Código que é o numero a ser preenchido, o numero de vezes a se repetir o preenchimento o simbolo se é um numero ou uma letra etc.. e o type é de que lado E esquerda e D direita espero que gostem pois não serve somente para a NFe




CREATE PROCEDURE P_S_NFE_PREENCHENUMERO (
    codigo varchar(100),
    vezes integer,
    simbolo varchar(100),
    "TYPE" char(1))
returns (
    result varchar(100))
as
declare variable tamanho integer;
begin
if (type='E') then
begin
while (char_length(:codigo) < :vezes) do
 begin
  codigo = simbolo||codigo ;
 end
 result = :codigo ;
end
if (type='D') then
begin
while (char_length(:codigo) < :vezes) do
 begin
  codigo = codigo||simbolo ;
 end
 result = :codigo ;
end


   suspend;
end