Pues siguiendo la investigación de la mentada factura electrónica del SAT, me encuentro que hay un requerimiento para las facturas impresas de usar un código de Barras Bi-dimensional con un formato QR (Quick Response).
Esto para poner información en la factura del RFC que emite y recibe la misma, así que me dí a la tarea de buscar como hacerlo…
Pues yo que soy amante de Perl, encontré en CPAN una librería llamada Imager::QrCode que hace la talacha.
Esta depende (y debe estar instalada) del módulo Imager.
Aunque deben instalar previamente la librería de libpng (en su versión 1.2, aunque ya esta la rama 1.4) y la librería libqrencode (versión 3.1.1 o mayor). En Mac OS X necesite tener la última versión de pkg-config
Ya con estos pre-requisitos hacemos un programa sencillo en Perl que genera lo que queramos:
#!/usr/bin/perl
use Imager::QRCode;
my $qrcode = Imager::QRCode->new(
size => 4,
margin => 1,
version => 1,
level => 'M',
casesensitive => 1,
lightcolor => Imager::Color->new(255, 255, 255),
darkcolor => Imager::Color->new(0, 0, 0),
);
my $img = $qrcode->plot("Las hormigas en Francia siempre se visten con elegancia");
$img->write(file => "2d_qr_demo.png");
$img = $qrcode->plot("?re=ROAF641217K94&rr=INC101109Q36&tt=1234567890.123456&id=ad662d33-6934-459c-a128-BDf0393f0f44");
$img->write(file => "timbre_Fiscal_SAT.png");

Y listo 🙂

Leave a Reply
You must be logged in to post a comment.