Preenchendo com zeros a esquerda de um valor com Firebird

Olá, estes dias um novo cliente, precisava cadastrar seus produtos e me falou que nem todos tinham código de barras, então eu falei a ele, deixa eu branco que eu gero depois de forma automatizada. Até ai tudo simples, contudo alguns produtos tinham os referidos códigos e orientei que fossem inseridos no programa via leitor.
Após a finalização da etapa destes cadastros o cliente queria imprimir etiquetas para seus produtos sem código. Bom, nada de mais, vamos lá.
Primeiro tive a brilhante ideia de gerar valores simples baseado no código de chave primaria da tabela de produtos, claro que somente estes valores não seriam muito legais por serem poucos algarismos nos registros iniciais, então pensei em pegar o ano corrente e o código de chave primaria para compor o código de barras. 
No entanto ainda era necessário preencher com zeros a esquerda do valor do código de barras pois o leitor ia retornar um algarismos com 13 caracteres devido o padrão utilizado ser EAM13. Então utilizei a seguinte string SQL para formatar o valor conforme desejado.

update produto set codigobarras = lpad(extract(year from current_date) || produtos.codigo, 13, '0') 
where char_length(produto.codigobarras) < 13

Duas coisas pode-se notar na string acima, o uso da função lpad que serve pra formatar valores, tendo seus parâmetros sendo o primeiro o inteiro a ser formatado, o tamanho do campo já formatado e o caracteres que será utilizado na formatação. O outro ponto de destaque é a utilização do extract para obtermos o valor do ano corrente sendo concatenado com o código da chave primaria da tabela.

Como resultado temos os códigos da tabela no campo código de barras no seguinte formato:

0000002017223
0000002017224
0000002017225

Ah, mas será que existe um formato padrão para termos os campos com código de barras válido?, talvez, mas o que vale aqui é a intensão de gerar valores para o campos código de barras.

Simples, não?


Comentários

Postar um comentário

Postagens mais visitadas deste blog

AWS para Desenvolvedores - Dominando S3 com Delphi

Imagem
Olá, Neste post vamos falar de Amazon S3 um serviço de armazenamento de dados na nuvem da AWS altamente escalável e confiável. É amplamente utilizado no mundo inclusive em soluções bem conhecidas como DropBox.  Pode ser acessado através do console de gerenciamento, desde que tenha uma conta é claro. http://console.aws.amazon.com No S3 alguns conceitos são importantes na hora de utilizar o serviço, por exemplo lá tudo que é armazenado são objetos, não importa o arquivo que você mandar pra lá, ele sempre sera tratado como objeto. Este objeto pode ter tamanho entre 1 byte e 5 Terabytes. Por lá também não existem pastas, apenas buckets, sendo o número de buckets limitados a 100 e sendo ilimitado o numero de objetos que pode ser armazenado. No Delphi XE 10.2 temos um componente nativo muito interessante que nos permite conectar com os serviços da Amazon de forma muito simplória. O componente destacado na figura acima é o TAmazonConnectionInfo basta apenas adiciona-...
Leia mais

Selecionando apenas o ultimo registro inserido com SQLite

Olá. Não é muito difícil surgir a necessidade de se buscar apenas o ultimo registro em bases de dados. Em todos os casos é muito simples de ser feito. O SQLite a exemplo do MySQL também possui um parâmetro chamado LIMIT que determina quantos registros a query deve retornar. Bem diversas são as formas de ser fazer isso e utilizando o poder da própria engine do banco de dados podemos ter sucesso utilizando a seguinte instrução.: SELECT * FROM SUATABELA ORDER BY SEUCAMPO DESC LIMIT 1 Exemplo: select * from secretarias order by codigo desc limit 1 Simples não?
Leia mais