La Cofradía Digital » Perl

Plática sobre facturación electrónica en Campus Party 2011

El Pop — Fri, 22 Jul 2011 16:52:15 +0000

El día de ayer, Mauricio Baeza y un servidor, impartimos una plática titulada “Facturación electrónica para programadores y mortales”. Les dejo la liga a la presentación, así como las ligas relacionadas:

http://www.youtube.com/watch?v=XnXV1ZGgW04

La presentación en PDF y algunas ligas de interes:

How-To de facturación electrónica para unixeros (generación de sellos)

How-To de facturación electrónica (verificación de facturas)

Convirtiendo facturas electrónicas del XML a PDF

Error en XSLT del SAT provoca errores en la generación/validación de factura electrónica

Castrosidades del SAT para la factura electrónica: Ahora necesitas BOM

Código de barras de 2D QR (Quick Response)

Oferta de trabajo para programadores

Nayanasaxsa — Thu, 21 Jul 2011 19:35:27 +0000

Oferta de trabajo para programadores de aplicaciones

requisitos: programar en cualquier lenguaje, interesado en desarrollo e innovación
de aplicaciones en todo tipo de arquitectura windows, linux, dispositivos moviles, …

Oferta económica base de cálculo por tiempo completo (10am-7pm):

$ 9,000 sin titulo con estudios al 100%

$ 12,000 con titulo con menos de 2 años de antigüedad

A negociar con otras características superiores.

También se ofrece una posibilidad de beca para aquellos estudiantes que aún no terminan pero que deseen realizar prácticas.

Personas interesadas, favor de mandar CV a: nayanasaxsa@gmail.com

¡Saludos!

Castrosidades del SAT para la factura electrónica: Ahora necesitas BOM

El Pop — Mon, 11 Jul 2011 23:55:14 +0000

Pues ahora el programa validador del SAT (un applet de Java) para factura electrónica, invalida los archivos que emites y los que has emitido ya que busca que los archivos de XML tengan un BOM (Byte order mark) que especifica que el archivo está en UTF-8 y así pueda procesarlo.

Pero no entren en pánico, la solución es sencilla (BOM.pl):

#!/usr/bin/perl
#===================================================================#
# Program => BOM.pl (In Perl 5.0)                     version 0.0.1 #
#===================================================================#
# Autor         => Fernando "El Pop" Romo        (pop@cofradia.org) #
# Creation date => 11/jul/2011                                      #
#-------------------------------------------------------------------#
# Info => This program take a XML file and put a Byte order mark to #
#         indicate UTF-8 is the encode of the data                  #
#-------------------------------------------------------------------#
#                    (c) 2011 - Fernando Romo                       #
#-------------------------------------------------------------------#
#              Release under the GNU/GPL License v3.0               #
#===================================================================#
 
use UTF8BOM;
 
UTF8BOM->insert_into_file($ARGV[0]);
 
print "BOM en UTF8 $ARGV[0]\n";

Con este script en Perl usando el módulo de CPAN UTF8BOM solucionamos el problema. No necesitan re-hacer la factura solo hacer lo siguiente:

$ ./BOM.pl Fac_INC101109Q36_A0054_MCM960926B49_20110711.xml
BOM en UTF8 Fac_INC101109Q36_A0054_MCM960926B49_20110711.xml

Adicionalmente podemos usar un script en bash para corregir todas las facturas electrónicas en XML que esten en un directorio:

#!/bin/bash
for a in *.xml
do
  ./BOM.pl `echo $a` 
done

y ya esta

Hack para el AirPlay en Perl

El Pop — Mon, 11 Apr 2011 22:34:57 +0000

En la página de mafipulation.org leo la liberación del ShairPort 0.03. Este es un programa en Perl que permite emular el protocolo de AirPlay de Apple en cualquier computadora.

Convirtiendo facturas electrónicas del XML a PDF

El Pop — Mon, 28 Mar 2011 00:49:22 +0000

Pues hemos mencionado la generación de sellos para las facturas electrónicas del SAT, su validación y ahora vamos a dar cierre al ciclo de la emisión, con lo que se le conoce como la representación impresa del comprobante fiscal digital.

Me dí a la tarea de hacer un pequeño script en Perl que convierte el XML de la factura electrónica a su versión en PDF, tomando en cuenta que yo lo hago por Medios Propios (versión 2.0).

Este utiliza varios módulos para Perl de CPAN:

PDF::Reuse para la manipulación de PDF’s

Lingua::ES::Numeros para convertir números a leyenda en letra

XML::Simple para la manipulación del XML de la factura electrónica

Text::Wrap::Smart para poner bonito el texto

Para instalar estos módulos sigan la guía de instalación de CPAN.

Es necesario para el manejo de la cadena original tener instalado el xsltproc y el archivo descriptor de xslt del SAT para usarlo: cadenaoriginal_2_0.xslt (liga al ftp del SAT).

Mis ejemplos los pueden bajar aquí (archivo CFD_PDF.tar.gz, mide 285 Kb).

El programa usa un machote de PDF previamente hecho con alguna herramienta o procesador de texto. En mi caso use un programa para Mac llamado Omnigraffle y generé un template (factura.pdf).

Tomé un logo de prueba y lo dejé en formato jpeg (logo.jpg) y deje un ejemplo de un XML de factura electrónica para transformalo a PDF (Fac_Sample.xml).

El programa es este (que esta contenido en el archivo de ejemplos mencionados anteriormente):

CFD_to_PDF.pl

#!/usr/bin/perl
#===================================================================#
# Program => CFD_to_PDF.pl (In Perl 5.0)              version 0.0.1 #
#===================================================================#
# Autor         => Fernando "El Pop" Romo        (pop@cofradia.org) #
# Creation date => 06/feb/2011                                      #
#-------------------------------------------------------------------#
# Info => This program take a CFD file in xml format and convert to #
#         PDF using a template                                      #
#-------------------------------------------------------------------#
#                    (c) 2011 - Fernando Romo                       #
#-------------------------------------------------------------------#
#              Release under the GNU/GPL License v3.0               #
#===================================================================#
 
# Load Modules
use strict;
use PDF::Reuse;
use Lingua::ES::Numeros ":constants";
use XML::Simple;
use Text::Wrap::Smart qw(wrap_smart);
 
my $file = $ARGV[0];
 
my $Fac = XMLin($file);
 
$file =~ s/.xml$//g;
 
prFile ( { Name         => "$file.pdf",
           HideToolbar  => 1,          # 1 or 0
           HideMenubar  => 1,          # 1 or 0
           HideWindowUI => 1,          # 1 or 0
           FitWindow    => 1,          # 1 or 0
           CenterWindow => 1   } );    # 1 or 0
 
prForm ( { file     => 'factura.pdf', # template file
           page     => 1,             # page number (of imported template)
           adjust   => 0,             # try to fill the media box
           effect   => 0,             # action to be taken
           tolerant => 1,             # continue even with an invalid form
           x        => -13,           # $x points from the left
           y        => 50,            # $y points from the bottom
           rotate   => 0,             # rotate 
           size     => 1,             # multiply everything by $size
           xsize    => 1,             # multiply horizontally by $xsize
           ysize    => 1, } );        # multiply vertically by $ysize
 
prFont('Helvetica');
 
# ejemplo insertando Logo
 
my $intName = prJpeg("logo.jpg", 300, 104);
my $str = "q\n";
   $str   .= "110 0 0 38 430 773 cm\n";
   $str   .= "/$intName Do\n";
   $str   .= "Q\n";
prAdd($str);
 
# Moneda
 
my $Sufijo = 'PESOS';
my $Moneda = 'M.N.';
if (exists($Fac->{Moneda})) {
    if ($Fac->{Moneda} eq 'MXN') {
        $Sufijo = 'PESOS';
        $Moneda = 'M.N.';
    }
    else {
        $Moneda = "$Fac->{Moneda}";
        $Sufijo = '';
    }
}
 
sub Escape_UTF8 {
    my @out = @_;
    for (@out) {
        s/á/\x{e1}/g;
        s/é/\x{e9}/g;
        s/í/\x{ed}/g;
        s/ó/\x{f3}/g;
        s/ú/\x{fa}/g;
        s/Á/\x{c1}/g;
        s/É/\x{c9}/g;
        s/Í/\x{cd}/g;
        s/Ó/\x{d3}/g;
        s/Ú/\x{da}/g;
        s/ñ/\x{f1}/g;
        s/Ñ/\x{d1}/g;
    }
    return wantarray ? @out : $out[0];
}
 
sub Wrap_Text {
    my ($ref_string, $col, $row, $width, $font_size, $space, $split) = @_;
    my @text = wrap_smart($$ref_string, { no_split => $split, max_msg_size => $width,} );
    prFontSize ($font_size);
    foreach my $linea (@text) {
        prText( $col, $row, $linea, 'left');
        $row = $row - $space;
    }
    return $row + $space;
}
 
sub Dinero {
    my $number = sprintf "%.2f", shift @_;
    1 while $number =~ s/^(-?\d+)(\d\d\d)/$1,$2/;
    $number =~ s/^(-?)/$1\$/;
    return $number;
}
 
sub Cantidad {
    my $number = sprintf "%.2f", shift @_;
    1 while $number =~ s/^(-?\d+)(\d\d\d)/$1,$2/;
    return $number;
}
 
sub Parte {
    my ($ref_parte, $row) = @_;
    my %Pedimentos = ();
    my @SinPedimento = ();
    my $parte_aux = 'N.S.: ';
    if (ref($$ref_parte) eq 'ARRAY') {
        for (my $i=0; $i <= (@{ $$ref_parte } - 1) ; $i++) {
            if (exists($$ref_parte->[$i]->{InformacionAduanera})) {
                $Pedimentos{ $$ref_parte->[$i]->{InformacionAduanera}{numero} }{aduana} = 
                    $$ref_parte->[$i]->{InformacionAduanera}{aduana};
                $Pedimentos{ $$ref_parte->[$i]->{InformacionAduanera}{numero} }{fecha} =
                    $$ref_parte->[$i]->{InformacionAduanera}{fecha};
                push @{ $Pedimentos{ $$ref_parte->[$i]->{InformacionAduanera}{numero} }{serie} },
                    $$ref_parte->[$i]->{noIdentificacion};
            } 
            else {
                push @SinPedimento, $$ref_parte->[$i]->{noIdentificacion};
            }
        }
        foreach my $numero (sort keys %Pedimentos) {
            $parte_aux = 'N.S.: ';
            $row = $row - 8;
            $row = Wrap_Text(\"Pedimento: $numero, Aduana: $Pedimentos{$numero}{aduana}, Fecha: $Pedimentos{$numero}{fecha}",85,$row,70,6,8,1);
            for (my $x=0; $x <= (@{ $Pedimentos{$numero}{serie} } - 1) ; $x++) {
                $parte_aux .= "$Pedimentos{$numero}{serie}[$x], ";
            }
            $parte_aux =~ s/, $//;
            $row = $row - 8;
            $row = Wrap_Text(\$parte_aux,85,$row,70,6,8,1);
        }
        if ($#SinPedimento >= 0) {
            $parte_aux = 'N.S.: ';
            foreach my $serie (sort @SinPedimento) {
                $parte_aux .= $serie . ', ';
            }
            $parte_aux =~ s/, $//;
            $row = $row - 8;
            $row = Wrap_Text(\$parte_aux,85,$row,70,6,8,1);
        }
    }
    else {
        if (exists($$ref_parte->{InformacionAduanera})) {
            $row = $row - 8;
            my $aduana_aux = 'Pedimento: ' . $$ref_parte->{InformacionAduanera}{numero} .
                             ', Aduana: ' . $$ref_parte->{InformacionAduanera}{aduana} .
                             ', fecha: ' . $$ref_parte->{InformacionAduanera}{fecha};
            $row = Wrap_Text(\$aduana_aux,85,$row,70,6,8,1);
        }
        $row = $row - 8;
        $parte_aux .= $$ref_parte->{noIdentificacion};
        $row = Wrap_Text(\$parte_aux,85,$row,70,6,8,1);
    }
 
    return $row;
}
 
sub Concepto {
    my ($ref_concepto, $row) = @_;
    if (ref($$ref_concepto) eq 'ARRAY') {
        for (my $i=0; $i <= (@{ $$ref_concepto } - 1) ; $i++) {
            prFontSize (8);
            prText( 18,  $row, $$ref_concepto->[$i]->{noIdentificacion}, 'left');
            prText( 375, $row, Cantidad($$ref_concepto->[$i]->{cantidad}), 'right');
            prText( 477, $row, Dinero($$ref_concepto->[$i]->{valorUnitario}) . " $Moneda", 'right');
            prText( 580, $row, Dinero($$ref_concepto->[$i]->{importe}) . " $Moneda", 'right');
            $row = Wrap_Text(\$$ref_concepto->[$i]->{descripcion},85,$row,55,8,10,1);
            if (exists($$ref_concepto->[$i]->{Parte})) {
                $row = Parte(\$$ref_concepto->[$i]->{Parte},$row);
            }
            $row = $row - 10;
        }
    }
    else {
        prFontSize (8);
        prText( 18,  $row, $$ref_concepto->{noIdentificacion}, 'left');
        prText( 375, $row, Cantidad($$ref_concepto->{cantidad}), 'right');
        prText( 477, $row, Dinero($$ref_concepto->{valorUnitario}) . " $Moneda", 'right');
        prText( 580, $row, Dinero($$ref_concepto->{importe}) . " $Moneda", 'right');
        $row = Wrap_Text(\$$ref_concepto->{descripcion},85,$row,55,8,10,1);
        if (exists($$ref_concepto->{Parte})) {
            $row = Parte(\$$ref_concepto->{Parte},$row);
        }
        $row = $row - 10;
    }
    return $row; 
}
 
# Datos del CSD
 
prFontSize (10);
prText( 140, 790, "$Fac->{noCertificado}", 'left');
prText( 140, 778, "$Fac->{noAprobacion}", 'left');
prText( 300, 778, "$Fac->{anoAprobacion}", 'left');
prText( 140, 766, "$Fac->{tipoDeComprobante}",, 'left');
prText( 275, 766, "$Fac->{fecha}",, 'left');
prText( 140, 754, "$Fac->{formaDePago}", 'left');
prFontSize (16);
prText( 140, 736, "$Fac->{serie}-$Fac->{folio}", 'left');
 
# Emisor
 
prFontSize (10);
prFont('Helvetica-Bold');
prText( 402, 768, "$Fac->{Emisor}{nombre}", 'left');
prFont('Helvetica');
prFontSize (8);
prText( 402, 756, "$Fac->{Emisor}{DomicilioFiscal}{calle} $Fac->{Emisor}{DomicilioFiscal}{noExterior} $Fac->{Emisor}{DomicilioFiscal}{noInterior}", 'left');
prText( 402, 746, "Col. $Fac->{Emisor}{DomicilioFiscal}{colonia} C.P. $Fac->{Emisor}{DomicilioFiscal}{codigoPostal}", 'left');
prText( 402, 736, "$Fac->{Emisor}{DomicilioFiscal}{municipio}, $Fac->{Emisor}{DomicilioFiscal}{estado}", 'left');
prText( 402, 726, "$Fac->{Emisor}{DomicilioFiscal}{localidad}, $Fac->{Emisor}{DomicilioFiscal}{pais}", 'left');
prFontSize (10);
prText( 402, 684, "R.F.C.:", 'left');
prFont('Helvetica-Bold');
prText( 437, 684, "$Fac->{Emisor}{rfc}", 'left');
prFont('Helvetica');
 
# Lugar de emision
 
prFontSize (8);
prText( 402, 650, "$Fac->{Emisor}{ExpedidoEn}{calle} $Fac->{Emisor}{ExpedidoEn}{noExterior} $Fac->{Emisor}{ExpedidoEn}{noInterior}", 'left');
prText( 402, 640, "$Fac->{Emisor}{ExpedidoEn}{colonia}, C.P. $Fac->{Emisor}{ExpedidoEn}{codigoPostal}", 'left');
prText( 402, 630, "$Fac->{Emisor}{ExpedidoEn}{municipio}, $Fac->{Emisor}{ExpedidoEn}{estado}", 'left');
prText( 402, 620, "$Fac->{Emisor}{ExpedidoEn}{localidad}, $Fac->{Emisor}{ExpedidoEn}{pais}", 'left');
 
# Facturado A
 
prFontSize (10);
prFont('Helvetica-Bold');
prText( 20, 690, "$Fac->{Receptor}{nombre}", 'left');
prFont('Helvetica');
prText( 20, 678, "$Fac->{Receptor}{Domicilio}{calle} $Fac->{Receptor}{Domicilio}{noExterior} $Fac->{Receptor}{Domicilio}{noInterior}" , 'left');
prText( 20, 666, "$Fac->{Receptor}{Domicilio}{colonia}, C.P. $Fac->{Receptor}{Domicilio}{codigoPostal}", 'left');
prText( 20, 654, "$Fac->{Receptor}{Domicilio}{municipio}, $Fac->{Receptor}{Domicilio}{localidad}", 'left');
prText( 20, 642, "$Fac->{Receptor}{Domicilio}{estado}, $Fac->{Receptor}{Domicilio}{pais}", 'left');
prText( 20, 620, "R.F.C.:", 'left');
prFont('Helvetica-Bold');
prText( 56, 620, "$Fac->{Receptor}{rfc}", 'left');
prFont('Helvetica');
 
# partidas
 
my $row = Concepto(\$Fac->{Conceptos}{Concepto},575);
 
# Addenda
 
if (exists($Fac->{Addenda}{Incuvox}{Note})) {
    prFont('Helvetica-Oblique');
    my $nota = 'Nota: ' .  $Fac->{Addenda}{Incuvox}{Note};
    Wrap_Text(\$nota,85,($row - 10),80,8,10,1);
    prFont('Helvetica');
}
 
# Numero en letras
 
my ( $pesos, $centavos ) = split( /\./, $Fac->{total} );
$pesos = 0 unless( $pesos );
$centavos = 0 unless( $centavos );
my $obj = new Lingua::ES::Numeros ('MAYUSCULAS' => 1, ACENTOS => 0);
my $letrero = $obj->cardinal($pesos) . " $Sufijo " . "$centavos/100 $Moneda\n";
 
Wrap_Text(\$letrero,65,334,70,8,10,1);
 
# Totales
 
prFontSize (8);
prText( 580, 334, Dinero($Fac->{descuento}) . " $Moneda", 'right');
prText( 580, 323, Dinero($Fac->{subTotal}) . " $Moneda", 'right');
prText( 458, 312, '16', 'right');
prText( 580, 312, Dinero($Fac->{Impuestos}{totalImpuestosTrasladados}) . " $Moneda", 'right');
prFont('Helvetica-Bold');
prText( 580, 301, Dinero($Fac->{total}) . " $Moneda", 'right');
prFont('Helvetica');
 
# Cadena Original
 
prFont('Courier');
my $cadena = Escape_UTF8(qx(xsltproc ~/SAT/xslt/cadenaoriginal_2_0.xslt $file.xml));
Wrap_Text(\$cadena,20,269,155,6,8,0);
 
# Sello
 
Wrap_Text(\$Fac->{sello},75,124,130,8,10,0);
 
prEnd();

Para utilizarlo (instalando mis scripts y las dependencias de CPAN previamente) solo tendran que hacer esto:

./CFD_to_PDF.pl Fac_Sample.xml

El XML que procesamos para este ejemplo:

Fac_Sample.xml

 version="1.0"
      encoding="UTF-8"?>
 

    xmlns="http://www.sat.gob.mx/cfd/2"
    xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
    xsi:schemaLocation="http://www.sat.gob.mx/cfd/2
                        http://www.sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd
                        http://incuvox.com/cfd/incuvox.xsd"
    version="2.0"
    serie="AA"
    folio="1619"
    fecha="2011-03-27T18:20:36"
    sello="rVoq96VkMeQ6gt993DnVuaWiAXwjNSeJKT27gJ8pOuC/tHo9SzvB6t0zM0hj03ivHC/gWvC2kK9nQ5JxCiJ96f08pyGP00jSD4z0/LCplTxb3nASc7/gDV5L42RW0drh7dtV2UWMfrrZE7Xfj9l38kigH5+cvo8/V8IiJLBKmLc="
    noAprobacion="263844"
    anoAprobacion="2010"
    tipoDeComprobante="ingreso"
    formaDePago="Contado en una sola exibición"
    noCertificado="00001000000102302081"
    certificado="
MIIE/TCCA+WgAwIBAgIUMzAwMDEwMDAwMDAxMDAwMDA4MDcwDQYJKoZIhvcNAQEFBQAwggFvMRgwFgYDVQQDDA9BLkMuIGRlIHBydWViYXMxLzAtBgNVBAoMJlNlcnZpY2lvIGRlIEFkbWluaXN0cmFjacOzbiBUcmlidXRhcmlhMTgwNgYDVQQLDC9BZG1pbmlzdHJhY2nDs24gZGUgU2VndXJpZGFkIGRlIGxhIEluZm9ybWFjacOzbjEpMCcGCSqGSIb3DQEJARYaYXNpc25ldEBwcnVlYmFzLnNhdC5nb2IubXgxJjAkBgNVBAkMHUF2LiBIaWRhbGdvIDc3LCBDb2wuIEd1ZXJyZXJvMQ4wDAYDVQQRDAUwNjMwMDELMAkGA1UEBhMCTVgxGTAXBgNVBAgMEERpc3RyaXRvIEZlZGVyYWwxEjAQBgNVBAcMCUNveW9hY8OhbjEVMBMGA1UELRMMU0FUOTcwNzAxTk4zMTIwMAYJKoZIhvcNAQkCDCNSZXNwb25zYWJsZTogSMOpY3RvciBPcm5lbGFzIEFyY2lnYTAeFw0xMDA3MzAxNjU4NDZaFw0xMjA3MjkxNjU4NDZaMIGWMRIwEAYDVQQDDAlNYXRyaXogU0ExEjAQBgNVBCkMCU1hdHJpeiBTQTESMBAGA1UECgwJTWF0cml6IFNBMSUwIwYDVQQtExxBQUEwMTAxMDFBQUEgLyBBQUFBMDEwMTAxQUFBMR4wHAYDVQQFExUgLyBBQUFBMDEwMTAxSERGUlhYMDExETAPBgNVBAsMCFVuaWRhZCA4MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDVvLjg4dC8rIWzeRV6v+ZxYTpzgiK11bHLeYRYF8Pho+1fTeRn7oOUdGfYSUEsqXV8s99F+rdJeA9Ma9iAt5zYBW+qkWlr8NDkkxQyMiOv8oEoJiXFsNWekAhnniyFoPn9pbA1FVBfBsaIe82HKi+Vq0Nd0QKh28afj2f6yhwZnwIDAQABo4HqMIHnMAwGA1UdEwEB/wQCMAAwCwYDVR0PBAQDAgbAMB0GA1UdDgQWBBSXXSAB98HZaYvKFyKXq5u8z4SG+zAuBgNVHR8EJzAlMCOgIaAfhh1odHRwOi8vcGtpLnNhdC5nb2IubXgvc2F0LmNybDAzBggrBgEFBQcBAQQnMCUwIwYIKwYBBQUHMAGGF2h0dHA6Ly9vY3NwLnNhdC5nb2IubXgvMB8GA1UdIwQYMBaAFOtZfQQimlONnnEaoFiWKfU54KDFMBAGA1UdIAQJMAcwBQYDKgMEMBMGA1UdJQQMMAoGCCsGAQUFBwMCMA0GCSqGSIb3DQEBBQUAA4IBAQAlyBvfqLEsWYW11levSQLbsvCpaWmIqtbhfM65Ly+b3848+S3WF9qZJLbH6NkViGUKy9WtTOwegicPSY/dihx1ZDOplARutbrscpLGqwfKsg/qh7ppK7CwqZv5rvrjnaflI8KDV9b+2hsyI0oGY9kVnZb0GgpNZMAKvUmvqXq5Z4ehoNWJmvixV7MgnX/heCZEcKZbR1pIoropUgiR5M8TUF9SUQlPPyRHgNA/v6vNwwZT+JYa62x65IrguUgLCg3DJgo4hk4zADM81Irn3jiTLBZcF2LTQageqxYxSj8MCWz7vGoB8Kv70CLY+Xin/IscCmZ2ohbG636sFNi6so4T"
    subTotal="1450.50"
    descuento="0"
    Moneda="USD"
    TipoCambio="12.13"
    total="1682.58">
 
     rfc="COS101109Q36"
            nombre="Cofradia Software, S.A. de C.V.">
             calle="Av. División del Norte"
                             noExterior="1354"
                             noInterior="202"
                             colonia="Letrán-Valle"
                             localidad="Distrito Federal"
                             referencia="Esquina con Miguel Laurent"
                             municipio="Benito Juárez"
                             estado="Distrito Federal"
                             pais="México"
                             codigoPostal="03650"/>
             calle="Av. División del Norte"
                        noExterior="1354"
                        noInterior="202"
                        colonia="Letrán-Valle"
                        localidad="Distrito Federal"
                        municipio="Benito Juárez"
                        estado="Distrito Federal"
                        pais="México"
                        codigoPostal="03650"/>
    >
 
     rfc="JCC960111P76"
              nombre="Juan Camanei Company, S.A. de C.V.">
               calle="Av. Insurgentes Sur"
                         noExterior="1600"
                         noInterior="301"
                         colonia="Guadalupe Inn"
                         localidad="Distrito Federal"
                         municipio="Álvaro Obregón"
                         estado="Distrito Federal"
                         pais="México"
                         codigoPostal="01020"/>
    >
 
    >
         cantidad="10"
                  unidad="Hora"
                  noIdentificacion="SPREDV"
                  descripcion="hora de servicios profesionales en análisis de Redes y VoIP"
                  valorUnitario="120.00"
                  importe="1200.00"/> 
         cantidad="3"
                  unidad="pz"
                  noIdentificacion="6731i"
                  descripcion="TELEFONO AASTRA MOD. 6731i SIP"
                  valorUnitario="83.50"
                  importe="250.50">
                   cantidad="1.00"
                         noIdentificacion="0D10361C9D"
                         descripcion="TELEFONO AASTRA MOD. 6731i SIP">
                          numero="37780005637"
                                              fecha="2010-11-05"
                                              aduana="LAREDO">
                        >
                  >
                   cantidad="1.00" 
                         noIdentificacion="0D10361C91"
                         descripcion="TELEFONO AASTRA MOD. 6731i SIP">
                          numero="37780005637" 
                                              fecha="2010-11-05"
                                              aduana="LAREDO">
                         >
                 >
                   cantidad="1.00" 
                         noIdentificacion="0D10361CAF"
                         descripcion="TELEFONO AASTRA MOD. 6731i SIP">
                          numero="37780005699" 
                                              fecha="2010-11-08"
                                              aduana="LAREDO">
                         >
                 >
          >
    > 
 
     totalImpuestosTrasladados="232.08">
               >
                    impuesto="IVA"
                             tasa="16.00"
                             importe="232.08"/>
               >
    >
 
    >
         Note="Servicios solicitadas por la gente que quiere hacer facturas"/>
    >
 
>

y el resultado queda así:

Queda al lector ajustar su PDF de template y la salida deseada.

Autor: Fernando “El Pop” Romo (pop at cofradia.org), twitter @El_Pop

Educar para explotar

El Pop — Tue, 08 Mar 2011 15:39:57 +0000

Puede que suene un tanto cínico, pero esto lo pongo como una reflexión y una invitación para crear nuevos cuadros de gente que le interese temas de tecnología.

A manera de reflexión y vivencia, nuestra empresa se ha dedicado en los últimos 6 años al desarrollo de plataformas de Call center usando Asterisk, Freeswitch y otras herramientas, en lo cual hemos formado un equipo de gente bien preparada y certificada, pero con el paso del tiempo, esta busca nuevos retos.

La gente necesita mas ingreso, eso lo entendemos y estamos contentos de apoyar en su crecimiento, ellos nos abrirán nuevos negocios a futuro.

Por lo cual estamos emprendiendo algo que creo puede ser llamativo:

Educar para explotar

Les pongo a manera de FAQ en que consiste:

¿En que consiste esta idea?

El programa busca gente que quiera aprender de tecnologías de VoIP, Redes y desarrollo de Software

¿A quien va dirijido?

A cualquier persona que quiera aprender a crear software bajo plataformas de Open Source

¿Que gano en esto?

Solo conocimiento, si vemos que destacan los orientaremos a proyectos que pueden dejar un ingreso

¿Que necesito para entrarle?

Saber algo de Linux y que no les tiemble la mano para compilar código

¿Cuando empieza esto?

prentendemos ser flexibles pero tentativo a finales de marzo

¿Tiene un costo?

Estamos viendo la viabilidad de que sea gratuito, pero pensamos en una cuota de recuperación que será usada para café, cerveza y pizzas

¿Que aprendo al final?

A programar en Perl, C, a usar frameworks de desarrollo, a usar PostgreSQL, Asterisk, Apache y varios componentes de Open Source

¿Hasta que nivel llegaré?

Esto depende de cada uno, pero queremos al menos que las personas interesadas puedan tener el nivel para presentar al menos una certificación de Asterisk como el DCap (Digium-Certified Asterisk Professional)

¿Y ustedes que ganan?

Muchas cosas: Conocer gente nueva, buscar nuevos talentos, obtener fuerza laboral para posibles proyectos y crear una comunidad de gente comprometida con tecnologías abiertas.

¿A quien contacto para entarle?

manda tu mail a esclavos@cofradia.org, con tus datos generales (nombre, teléfono, escolaridad, Twitter, Facebook, etc.)

¿Que mas necesito?

Pues el tiempo y la entereza de aprender a la espartana, no seremos paternalistas, los humillaremos hasta la ignominia (como el Dr. House) pero podemos decirles que aprenderan mucho.

¿En donde será esto?

Pues inicialmente en la ciudad de México (DeFectuoso para los cuates), en zona sur y centro.

¿Solo es para tu empresa?

No, estamos buscando hacer un esfuerzo conjunto con mas empresas orientadas al desarrollo de Open Source que buscan talento al igual que nosotros

¿Por qué le llaman así?

Pues vemos que la única manera de explotar el talento de la gente es formandolo, por lo cual el slogan se vuelve adecuado para esto.

Código de barras de 2D QR (Quick Response)

El Pop — Thu, 23 Dec 2010 07:25:39 +0000

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");

Timbre Fiscal para el SAT

Y listo

Facebook Hacker Cup 2011

El Pop — Thu, 16 Dec 2010 04:49:41 +0000

Facebook convoca al Hacker Cup 2011, es una competencia internacional.

Las inscripciones se abrirán el día 20 de diciembre del 2010. Se harán varias rondas por internet y los 25 semi-finalistas concursarán en Palo Alto California por las rondas finales. Facebook pagará el viaje y estancia de los finalistas y dará un premio de $5,000 USD al ganador.

Los detalles aquí.

Programador de Perl en Guadalajara

carlos.alberto — Wed, 06 Oct 2010 23:46:23 +0000

Hola,

Tengo un proyecto web en Perl para el cual necesito ayuda de un desarrollador, si alguien está disponible en Guadalajara, podría por favor comunicarse conmigo respondiendo a este post?

Gracias

Ing. Carlos Alberto Kassab

Consultor

Técnicas para portar código de Perl a Python

solrac — Sat, 11 Sep 2010 03:09:48 +0000

Nos mandan un artículo sobre como portar programas escritos en Perl a Python:

Python programmers shouldn’t get too smug. While many people agree that Python is designed in a way that makes it a highly readable language, there can still be problems with legacy, untested Python code too. Porting legacy Perl to Python can be a daunting task. In this article, learn some of the theory behind dealing with legacy code, including what not to do.