La Cofradía Digital » Tips técnicos

Estudio de sistemas ERP open source

zodman — Mon, 30 May 2011 20:00:49 +0000

Me llego este documento muy interesante (en versión PDF) sobre proyectos de ERP (Enterprise resource planning) libres.

Por cierto la comunidad de tryton en mexico esta en http://code.google.com/p/tryton-mx

Mejores prácticas para obtener fondeo de Kickstarter

solrac — Fri, 15 Apr 2011 04:17:10 +0000

Nos mandan nuestros amigos de IBM una guía de consejos para poder obtener fondos para proyectos presentados a la comunidad en Kickstarter:

Startups fail often because they create a product or service that no one really wants in mass. To mitigate Startup failure you can test your Idea at Kickstarter – A cool place to not only test interest in your idea, but also a great place tp obtain croudsourced funding for your Startup. A good idea, communicated well on KickStarter can spread fast and wide, and the large Kickstarter community can be a tremendous source of money and encouragement.

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.

The Open Enchilada Project en el marco del COSIT

El Pop — Sun, 03 Apr 2011 04:17:49 +0000

Les dejamos la liga al stream del último video del programa de Open Enchilada.

En el cual se habla del COSIT, ACTA, e-voto, Blender y miscelaneos. con @el_pop @tacvbo @casyopea @octagesimal y mas banda, conducido por @gnuowned

Liga al podcast.

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

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

El Pop — Tue, 04 Jan 2011 08:14:11 +0000

Pues nuestros amigos del Sistema de Administración Tributaria (SAT), cambiaron o borraron una dependencia que se encuentra en los archivos de transformación de los XSLT’s que producen la cadena original que sirve para generar el “sello” de la factura electrónica.

Esta error produce que facturas previamente validadas y que aparecían como correctas ahora se vean como inválidas en su propio validador.

La dependencia que no se puede resolver es esta liga referenciada en el archivo cadenaorigina_2_0.xslt:

http://www.sat.gob.mx/sitio_internet/cfd/terceros/terceros.xslt

un work-around para que puedan seguir produciendo sus cadenas originales es este:

         href="http://www.sat.gob.mx/sitio_internet/cfd/ecc/ecc.xslt"/>
         href="http://www.sat.gob.mx/sitio_internet/cfd/psgecfd/psgecfd.xslt"/>
         href="http://www.sat.gob.mx/sitio_internet/cfd/donat/donat.xslt"/>
         href="http://www.sat.gob.mx/sitio_internet/cfd/divisas/divisas.xslt"/>
         href="http://www.sat.gob.mx/sitio_internet/cfd/ecb/ecb.xslt"/>
         href="http://www.sat.gob.mx/sitio_internet/cfd/detallista/detallista.xslt"/>
         href="http://www.sat.gob.mx/sitio_internet/cfd/implocal/implocal.xslt"/>
        
        
        
         method="text" version="1.0" encoding="UTF-8" indent="no"/>
        
         href="/Users/pop/SAT/xslt/include/utilerias.xslt"/>
        
         href="/Users/pop/SAT/xslt/include/ecc.xslt"/>
         href="/Users/pop/SAT/xslt/include/psgecfd.xslt"/>
         href="/Users/pop/SAT/xslt/include/donat.xslt"/>
         href="/Users/pop/SAT/xslt/include/divisas.xslt"/>
         href="/Users/pop/SAT/xslt/include/ecb.xslt"/>
         href="/Users/pop/SAT/xslt/include/detallista.xslt"/>
         href="/Users/pop/SAT/xslt/include/implocal.xslt"/>
         href="/Users/pop/SAT/xslt/include/terceros.xslt"/>

En mi caso use el path “/Users/pop/”, pero aquí lo cambian a lo que necesiten.

Otro cambio en el validador es que ya no recibe facturas que usaban MD5, ahora solo revisa SHA1, aunque las facturas anteriores al 1o de enero son válidas con este algoritmo.

Sin embargo el mismo validador del SAT esta afectado por este descuido y esperemos que resuelvan a la brevedad esta problema.

Intenté contactarlos vía el portal del SAT, pero este también esta de vacaciones:

Gracias al cofrade tmsanchez por hacernos notar este error en el sistema del SAT.

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

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

El Pop — Wed, 29 Dec 2010 07:58:19 +0000

En el artículo anterior comentábamos del proceso de el firmado o “sellado” de documentos. En esta entrega, veremos brevemente el proceso de validación de las facturas que recibimos por parte de nuestros proveedores.

De acuerdo a las reglas del Servicio de Administración Tributaria (SAT), el que recibe una factura electrónica es responsable de validar su autenticidad, por lo cual tenemos que idear mecanismos que aseguren este requisito.

Veamos un ejemplo en el cual me dan una factura a validar para saberl si cumple con los criterios mínimos para ser aceptada, en este caso recibo un documento (v.g. “NEO0303288Z1FAA9.xml”) en formato XML que contiene la siguiente información relevante:

$ cat NEO0303288Z1FAA9.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"
             version="2.0"
             serie="AA"
             folio="9"
             fecha="2010-12-27T14:03:21"
             sello="KgWheSp62N9E18uRA1EcC1tdAPuWA0Q0z6h+TbZLYgkc6IRA+TAWk6KBDPcn/euKePfXhcSPtEqjp6RsA1k2EUldBMmClQadjGfxjTO14oO+RzSInckAwfrGL/W0BO9OizkNNS+PDswduIquczZqXDfuPNHqOnLgwhdiyYH7LLU="
             noAprobacion="353857"
             anoAprobacion="2010"
             formaDePago="Pago en una sola exhibición"
             noCertificado="00001000000102436855"
             certificado="MIIEDzCCAvegAwIBAgIUMD...

vean los campos “version” y “noCertificado”, estos nos dan información importante para el proceso de validación del documento.

El campo version nos indica con que archivo de transformación debemos procesar la factura. Si el valor del campo es “2.0″ entonces debemos aplicar el archivo cadenaoriginal_2_0.xslt, en caso de que el valor sea “3.0″, debemos aplicar el archivo cadenaoriginal_3_0.xslt.

El campo noCertificado nos da el número del Certificado del Sello Digital (CSD) que necesitamos para validar el “sello” del documeto.

el archivo XML puede tener un certificado embebido, pero este puede llegar a ser apócrifo, y según la ley es “opcional”, por lo cual tenemos que buscar el certificado emitido por el SAT de alguna manera.

Obteniendo los certificados del SAT

Note que la aplicación CertiSAT Web, al buscar recuperar certificados me daba una información interesante:

Las ligas a los certificados tienen una estructura predecible, por lo cual puedo armar una regla de extracción del certificado (el cual es público) y obtenerlo directo del SAT para corroborar la información de la factura.

Si tenemos en nuestra factura en XML el valor “00001000000102436855″ en el campo de “noCertificado”, entonces podemos inferir el siguiente comando para obtenerlo:

$ wget ftp://ftp2.sat.gob.mx/Certificados/FEA/000010/000001/02/43/68/00001000000102436855.cer

Si se fijan, la ruta de los directorios del FTP del SAT utilizan “ftp://ftp2.sat.gob.mx/Certificados/FEA/”, seguido por los 6 digitos del inicio del nombre del certificado, despues los siguientes 6 y lo siguiente en 3 pares de digitos que componen el nombre del mismo, despreciando los 2 últimos caracteres.

Validando la factura por medio del certificado y el “sello”

Necesitamos una pequeña regla de transformación que llamaremos “saca_sello.xslt” que contiene lo siguiente:

Obtenemos el sello y lo dejamos en el archivo de trabajo “sello.enc”, con el siguiente comando:

$ xsltproc saca_sello.xslt NEO0303288Z1FAA9.xml | openssl enc -base64 -d -A -out sello.enc

Ahora obtenemos la llave pública, del emisor de la factura, contenido en el certificado emitido por el SAT:

$ openssl x509 -inform DER -outform PEM -in 00001000000102436855.cer -pubkey > 00001000000102436855.cer.pem

Ahora podemos usar la llave pública para validar el documento:

$ xsltproc cadenaoriginal_2_0.xslt NEO0303288Z1FAA9.xml | openssl dgst -md5 -verify 00001000000102436855.cer.pem -signature sello.enc

A partir del 1o de enero del 2011, los documentos generados deberan usar SHA1 en lugar de MD5, aunque hay que validar con MD5 los documentos generados anteriormente a la mencionada fecha. La validación de cadena original versión 2.0 (medios propios), quedaría así:

$ xsltproc cadenaoriginal_2_0.xslt NEO0303288Z1FAA9.xml | openssl dgst -sha1 -verify 00001000000102436855.cer.pem -signature sello.enc

En el caso de que nuestra factura en XML diga en el campo de versión el valor “3.0″, deberemos usar esta variante del comando:

$ xsltproc cadenaoriginal_3_0.xslt NEO0303288Z1FAA9.xml | openssl dgst -sha1 -verify 00001000000102436855.cer.pem -signature sello.enc

Esto dara algunos “warnings” y si pasa la validación dara la leyenda “Verified OK” en caso contrario debemos rechazar la factura.

Finalmente, con ayuda de OpenSSL, obtenemos información importante para la validación con este comando:

$ openssl x509 -inform DER -in 00001000000102436855.cer -noout -issuer -subject -startdate -enddate -serial
 
issuer= /CN=A.C. del Servicio de Administraci\xC3\xB3n Tributaria/O=Servicio de Administraci\xC3\xB3n Tributaria/emailAddress=acods@sat.gob.mx/streetAddress=Av. Hidalgo 77, Col. Guerrero/postalCode=06300/C=MX/ST=Distrito Federal/L=Cuauhtemoc/unstructuredName=Responsable: Fernando Mart\xC3\xADnez Coss
subject= /CN=NEOCENTER SA DE CV/name=NEOCENTER SA DE CV/O=NEOCENTER SA DE CV/x500UniqueIdentifier=NEO0303288Z1 / AAWA630919KZ5/serialNumber= / AAWA630919HDFPNL07/OU=UNIDAD
notBefore=Dec 20 19:42:36 2010 GMT
notAfter=Dec 19 19:42:36 2012 GMT
serial=3030303031303030303030313032343336383535

La información que nos da es la del SAT, la del emisor, la fecha de vigencia del certificado con la que se “sello” la factura y el número de serie del certificado, este esta en formato Hexadecimal, que al convertirlo a decimal nos da el número de certificado que obtuvimos previamente.

Si la fecha de la factura en XML no esta entre las cotas de tiempo definidas en el certificado, o el número de certificado y nombre no coincide con el del emisor, debemos rechazar esta factura.

Validando las series y folios del documento

Es fácil recibir facturas que pasan por los validadores del SAT, pero que no son emitidas por la persona u empresa reales, por lo cual hay que prestar atención al proceso de validación. de CSD y folios

Nuevamente recurrimos al FTP del SAT para obtener dos archivos (que se actualizan diario y miden varios megas) donde estan la relación de CSD’s otorgados y las series de facturas:

wget ftp://ftp2.sat.gob.mx/agti_servicio_ftp/verifica_comprobante_ftp/CSD.txt
 
wget ftp://ftp2.sat.gob.mx/agti_servicio_ftp/verifica_comprobante_ftp/FoliosCFD.txt

Queda al lector subir esta información a una Base de datos para agilizar las consultas, pero en este caso ejemplificare la busqueda con comandos de bash.

$ grep "00001000000102436855" CSD.txt 
00001000000102436855|2010-12-20 19:42:36|2012-12-19 19:42:36|NEO0303288Z1|A

Aquí buscamos si el número de CSD corresponde al R.F.C. del emisor, noten que el último caracter de la linea nos indica si el CSD esta activo o revocado, en este caso esta activo. Esto tambíen nos muestra las fechas de vigencia contenidas en el certifcado.

Si el número de certificado no nos da nada en la busqueda, aun teniendo las últimas versiones de los archivos de CSD y folios, quiere decir que es un certificado de FIEL y no uno de sellos autorizados, por lo que deberán rechazar el documento.

Ahora busquemos si la serie de facturas es válida:

grep "NEO0303288Z1" FoliosCFD.txt 
NEO0303288Z1|353857|2010|AA|1|5000
NEO0303288Z1|353857|2010|CC|1|500

Hacemos las busquedas por R.F.C., ya que las facturas estan asociadas al emisor y no al sello. Vemos que la factura emitida es una serie válida.

Esto es una muestra de un proceso que debe automatizarse, tomando en cuanta que los archivos de “CSD.txt” y “FoliosCFD.txt” aumentan diario, no se si el SAT tenga algún formato no acumulativo sino diario de las diferencias de los cambios.

Con esto concluimos el proceso de validación y en otra artículo hablaremos de como usar las transformaciones de XSLT para emitir documentos impresos a partir del XML de la factura electrónica ya sellada.

También hablaremos de un proyecto que queremos compartir con ustedes llamadao “SAT-O-Matic”, que pretende hacer un sistema Open Source y GPL para la emisión, validación e impresión de documentos orientado a usuarios no iniciados. Enfocaremos esfuerzos para ayudar a la iniciativa de Mauricio Baeza (de Universo Libre), que esta haciendo una excelente herramienta de facturación electrónica utilizando OpenOffice/LibreOffice, para que ademas de soportar “Medios Propios” (versión 2.0) pueda soportar el esquema de “Proveedor Autorizado de Certificación” (versión 3.0)

Agradecimientos

Agradezco la ayuda de Salvador Ortíz de Matías Software Group, Fernando Ortíz y de Mauricio Baeza de Universo Libre por la ayuda y orientación prestada con sus opiniones y artículos.

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

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

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

El Pop — Sun, 19 Dec 2010 00:36:32 +0000

Importante

Esta guía esta enfocada a generación de facturas electrónicas por “medios propios”, por favor leanla completa, así como los enlaces recomendados, antes de ensayar con sus certificados.

Entendiendo el requerimiento

La factura electrónica no es tan solo un sello que se pone a un documento, es un mecanismo completo de fiscalización que empezará a operar obligatoriamente a partir del 1o de enero del 2011.

Este consiste en el firmado e información por medios digitales a la Secretaría de Hacienda y Crédito Público (SHCP) por medio de su entidad de control conocida como Sistema de Administración Tributaria (SAT) de las facturas que emitimos y recibimos.

El mecanismo incluye a saber dos versiones en su operación, una conocida como “facturación por medios propios” (versión 2.0) y una que utiliza un intermediario o “proveedor autorizado de certificación” (versión 3.0), esta última forma es donde la fiscalización es total.

En ambos mecanismos debes contar con tu Firma Electrónica Avanzada (FIEL) que es un manejo de Public Key Infrastructure (PKI) en la que el SAT es el organismo certificador (Certificate authority o CA) que emite Certificados digitales que avalan al emisor, en este caso al contribuyente.

Es muy importante saber que las llaves privadas de la FIEL, la de los sellos y los paswords de las mismas NUNCA se deben proporcionar a terceros, según la ley es responsabilidad total del contribuyente el manejo y seguridad de estas llaves. Si a una empresa que emite facturas electrónicas les delegas tus passwords (para facilitar el proceso de su sistema hacia tí), le estas dando un cheque al portador con el cual pueden emitir una factura de la compra venta de tu empresa, coche, casa, etc, y legalmente dejarte en la calle. BAJO NINGUNA CIRCUNSTANCIA DES TUS CLAVES. Si ya hiciste esta soberana estupides, revoca tus certificados y acude al SAT.

Todo esto esta basado en el Famoso Anexo 20 publicado en el diario Oficial (en formato PDF). Es importante que lean el artículo 29 del Código Fiscal de la Federación

Aquí esta un comunicado de prensa del SAT en el que anuncia y explica el proceso de transición hacia la Facturación Electrónica (en formato pdf).

Obteniendo tus certificados

Si ya cuentas con la FIEL, los pasos a seguir para obtener tus Certificados de Sello Digital (CSD) son sencillos, pero pueden llegar a ser algo confusos.

Tienes que obtener el Programa SOLCEDI que es una aplicación windows, pero que opera perfectamente con WINE con una instalación base del mismo. En mi caso lo hice en una Mac utilizando un virtualizador llamado Parallels.

El SOLCEDI es un generador de llaves privadas y públicas que nos permite, a partir de la FIEL, crear las llaves de los sellos digitales, así como el archivo de requerimiento (.req) para que el SAT emita un certificado al mismo (.cer).

Una vez obtenido el archivo de requerimiento (.req) hay que “ensobretarlo” para generar un archivo con terminación .sdg, esto se hace también con la aplicación SOLCEDI

Ya con nuestro archivo .sdg tenemos que enviarlo a una aplicación llamada CertiSAT Web en la que mandaremos el archivo .sdg y obtendremos el certificado de nuestros sellos digitales.

Despues debemos pedir los folios por medio de otra aplicación conocida como SICOFI donde a partir de la FIEL pediremos los folios.

Nota: Tanto el CertiSAT como el SICOFI usan aplicaciones de Java que no necesariamente operan bien con algunos navegadores. Queda al lector buscar como hacer que operen para completar su proceso. en mi caso use el Explorer de MS con el virtualizador de Parallels.

Puedes pedir múltiples Sellos a partir de una FIEL, por ejemplo para que cada sucursal o unidad de negocio maneje su firma de facturas.

Aquí esta un video en Youtube (cortesía de My$uite Services)que explica paso a paso esto:

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

Jugando con los certificados

Todo el manejo de certificados se hace utilizando OpenSSL y la conversión de facturas y manejo de cadena original se hace con xsltproc, ambas herramientas estan disponibles en las distribuciones de Unix/Linux mas populares y en MacOS X

Esto ya lo hice con mis llaves, pero para fines didácticos, vamos a mostrar el esquema de manejo de llaves y firmado con uno de los certificados de prueba del SAT:

$ wget ftp://ftp2.sat.gob.mx/asistencia_servicio_ftp/publicaciones/solcedi/Cer_Sellos.zip

También los certificados raíz y padres para posteriormente hacer verificaciones:

$ wget ftp://ftp2.sat.gob.mx/asistencia_servicio_ftp/publicaciones/solcedi/Cert_Prod.zip
$ wget ftp://ftp2.sat.gob.mx/asistencia_servicio_ftp/publicaciones/solcedi/Certificados_P.zip

Desempacamos el contenido y utilizamos alguno de los certificados de prueba al azar:

$ unzip Cer_Sellos.zip 
Archive:  Cer_Sellos.zip
 extracting: aaa010101aaa_csd_09.key  
  inflating: aaa010101aaa_csd_10.cer  
 extracting: aaa010101aaa_csd_10.key  
  inflating: aaa010101aaa_csd_01.cer  
 extracting: aaa010101aaa_csd_01.key  
  inflating: aaa010101aaa_csd_02.cer  
 extracting: aaa010101aaa_csd_02.key  
  inflating: aaa010101aaa_csd_03.cer  
 extracting: aaa010101aaa_csd_03.key  
  inflating: aaa010101aaa_csd_04.cer  
 extracting: aaa010101aaa_csd_04.key  
  inflating: aaa010101aaa_csd_05.cer  
 extracting: aaa010101aaa_csd_05.key  
  inflating: aaa010101aaa_csd_06.cer  
 extracting: aaa010101aaa_csd_06.key  
  inflating: aaa010101aaa_csd_07.cer  
 extracting: aaa010101aaa_csd_07.key  
  inflating: aaa010101aaa_csd_08.cer  
 extracting: aaa010101aaa_csd_08.key  
  inflating: aaa010101aaa_csd_09.cer  
 extracting: Contrase?a de Clave Privada.txt  
  inflating: aaa010101aaa_FIEL.cer   
 extracting: aaa010101aaa_FIEL.key

Vamos a usar el CSD “aaa010101aaa_csd_08″ para generar los componentes que necesitamos para firmar los documentos. es necesario manejar el certificado (.cer) y la llave privadad (.key) del CSD.

La llaves se manejan bajo una norma conocido como ASN1 en sus variantes de Basic Encoding Rules (BER) y Distinguished Encoding Rules (DER), pero para manejar las llaves con OpenSSL las transformaremos a formato Privacy-enhanced Electronic Mail (PEM).

Ahora vamos a transformar a formato PEM el archivo de llave privada del CSD:

$ openssl pkcs8 -inform DER -in aaa010101aaa_csd_08.key -out aaa010101aaa_csd_08.key.pem -passin pass:a0123456789

El archivo resultante se ve así:

Pero en este paso la llave privada esta expuesta, ya que al transformalo en formato PEM, esta quedo con el password embebido y en este momento es un “cheque al portador”, con el cual pueden firmar sellos de facturas indiscriminadamente.

Se recomienda proteger de la siguiente manera:

$ openssl rsa -in aaa010101aaa_csd_08.key.pem -des3 -out aaa010101aaa_csd_08.key.pem.secure
writing RSA key
Enter PEM pass phrase:
Verifying - Enter PEM pass phrase:
 
$ mv aaa010101aaa_csd_08.key.pem.secure aaa010101aaa_csd_08.key.pem

El “Pass Phrase” puede ser cualquier cosa que queramos, no tiene que ser ni el password del CSD o de la FIEL, digamos que es una firma para esta chequera en especifico.

Ahora el certificado se vera así:

Este archivo dejenlo en alguna ruta (path) seguro en el servidor que utilizarán para generar sus facturas.

Ahora tenemos que trabajar en el certificado del CSD, este es público y debe estar a la disposición de nuestros clientes para que verifiquen la autenticidad de nuestros documentos.

$ openssl enc -base64 -in aaa010101aaa_csd_08.cer | tr -d "\n" > aaa010101aaa_csd_08.cer.txt

El Resultado lo guardamos para usarlo posteriormente. Normalmente se embebe en el XML que utilizaremos como machote de la factura a procesar. El contenido debe verse así (pero sin retornos de carro o cambios de linea):

MIIE/TCCA+WgAwIBAgIUMzAwMDEwMDAwMDAxMDAwMDA4MDcwDQYJKoZIhvcNAQEF
BQAwggFvMRgwFgYDVQQDDA9BLkMuIGRlIHBydWViYXMxLzAtBgNVBAoMJlNlcnZp
Y2lvIGRlIEFkbWluaXN0cmFjacOzbiBUcmlidXRhcmlhMTgwNgYDVQQLDC9BZG1p
bmlzdHJhY2nDs24gZGUgU2VndXJpZGFkIGRlIGxhIEluZm9ybWFjacOzbjEpMCcG
CSqGSIb3DQEJARYaYXNpc25ldEBwcnVlYmFzLnNhdC5nb2IubXgxJjAkBgNVBAkM
HUF2LiBIaWRhbGdvIDc3LCBDb2wuIEd1ZXJyZXJvMQ4wDAYDVQQRDAUwNjMwMDEL
MAkGA1UEBhMCTVgxGTAXBgNVBAgMEERpc3RyaXRvIEZlZGVyYWwxEjAQBgNVBAcM
CUNveW9hY8OhbjEVMBMGA1UELRMMU0FUOTcwNzAxTk4zMTIwMAYJKoZIhvcNAQkC
DCNSZXNwb25zYWJsZTogSMOpY3RvciBPcm5lbGFzIEFyY2lnYTAeFw0xMDA3MzAx
NjU4NDZaFw0xMjA3MjkxNjU4NDZaMIGWMRIwEAYDVQQDDAlNYXRyaXogU0ExEjAQ
BgNVBCkMCU1hdHJpeiBTQTESMBAGA1UECgwJTWF0cml6IFNBMSUwIwYDVQQtExxB
QUEwMTAxMDFBQUEgLyBBQUFBMDEwMTAxQUFBMR4wHAYDVQQFExUgLyBBQUFBMDEw
MTAxSERGUlhYMDExETAPBgNVBAsMCFVuaWRhZCA4MIGfMA0GCSqGSIb3DQEBAQUA
A4GNADCBiQKBgQDVvLjg4dC8rIWzeRV6v+ZxYTpzgiK11bHLeYRYF8Pho+1fTeRn
7oOUdGfYSUEsqXV8s99F+rdJeA9Ma9iAt5zYBW+qkWlr8NDkkxQyMiOv8oEoJiXF
sNWekAhnniyFoPn9pbA1FVBfBsaIe82HKi+Vq0Nd0QKh28afj2f6yhwZnwIDAQAB
o4HqMIHnMAwGA1UdEwEB/wQCMAAwCwYDVR0PBAQDAgbAMB0GA1UdDgQWBBSXXSAB
98HZaYvKFyKXq5u8z4SG+zAuBgNVHR8EJzAlMCOgIaAfhh1odHRwOi8vcGtpLnNh
dC5nb2IubXgvc2F0LmNybDAzBggrBgEFBQcBAQQnMCUwIwYIKwYBBQUHMAGGF2h0
dHA6Ly9vY3NwLnNhdC5nb2IubXgvMB8GA1UdIwQYMBaAFOtZfQQimlONnnEaoFiW
KfU54KDFMBAGA1UdIAQJMAcwBQYDKgMEMBMGA1UdJQQMMAoGCCsGAQUFBwMCMA0G
CSqGSIb3DQEBBQUAA4IBAQAlyBvfqLEsWYW11levSQLbsvCpaWmIqtbhfM65Ly+b
3848+S3WF9qZJLbH6NkViGUKy9WtTOwegicPSY/dihx1ZDOplARutbrscpLGqwfK
sg/qh7ppK7CwqZv5rvrjnaflI8KDV9b+2hsyI0oGY9kVnZb0GgpNZMAKvUmvqXq5
Z4ehoNWJmvixV7MgnX/heCZEcKZbR1pIoropUgiR5M8TUF9SUQlPPyRHgNA/v6vN
wwZT+JYa62x65IrguUgLCg3DJgo4hk4zADM81Irn3jiTLBZcF2LTQageqxYxSj8M
CWz7vGoB8Kv70CLY+Xin/IscCmZ2ohbG636sFNi6so4T

Guardamos este resultado para empezar a manejar las facturas

Las facturas y la “Cadena Original”

La cadena original se obtiene de la transformación del formato XML que define la factura y el hash de esta es la que se firma

Hay dos cosas importantes en la generación de documentos y sus diferencias:

Medios Propios se le conoce como versión 2.0 y utiliza una regla de transformación de XML que utiliza el archivo cadenaoriginal_2_0.xslt, la cadena original se procesa con MD5 y el resultado de esto es el que se firma con la llave privada para generar el sello digital. En esta modalidad nosotros controlamos el número de folio a emitir. el SAT debe tener acceso a todos nuestras facturas emitidas y recibidas por algún medio (página WEB, FTP, etc.). Esta solo es válida si emites comprobantes antes del 1o de enero del 2011 y estas excento de la obligación de la regla de intermediario (PSCFDI).

Proveedor Autorizado de Certificación, tambien conocidos como PSCFDI, utilizan la versión de cadenaoriginal_3_0.xslt (en el ftp del SAT). Usa SHA1 para generar el hash a firmar. Cuando se usa esta modalidad, los folios de la factura son definidos por el proveedor del servicio, no por nosotros y debe llevar la firma digital de este proveedor en el documento sellado. El SAT recibe en linea cada factura emitida, ya que el PSCFDI debe informar a la SHCP cada movimiento que efectue en nuestro nombre. Esta forma es obligatoria a partir del 1o de enero del 2011 si no has facturado previamente por medios propios (versión 2.0).

Ya que tenemos el achivo de transformación de la cadena original, en mi caso uso medios propios y yo genero mi sello (versión 2.0), necesito definir un machote de factura en XML (“factura.xml”) con la siguiente información mínima:

 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"
    version="2.0"
    serie="A"
    folio="1"
    fecha="2010-12-18T15:27:13"
    sello=""
    noAprobacion="1"
    anoAprobacion="2006"
    tipoDeComprobante="ingreso"
    formaDePago="Contado en una sola exibicion"
    noCertificado="00001000000100000001"
certificado="MIIE/TCCA+WgAwIBAgIUMzAwMDEwMDAwMDAxMDAwMDA4MDcwDQYJKoZIhvcNAQEFBQAwggFvMRgwFgYDVQQDDA9BLkMuIGRlIHBydWViYXMxLzAtBgNVBAoMJlNlcnZpY2lvIGRlIEFkbWluaXN0cmFjacOzbiBUcmlidXRhcmlhMTgwNgYDVQQLDC9BZG1pbmlzdHJhY2nDs24gZGUgU2VndXJpZGFkIGRlIGxhIEluZm9ybWFjacOzbjEpMCcGCSqGSIb3DQEJARYaYXNpc25ldEBwcnVlYmFzLnNhdC5nb2IubXgxJjAkBgNVBAkMHUF2LiBIaWRhbGdvIDc3LCBDb2wuIEd1ZXJyZXJvMQ4wDAYDVQQRDAUwNjMwMDELMAkGA1UEBhMCTVgxGTAXBgNVBAgMEERpc3RyaXRvIEZlZGVyYWwxEjAQBgNVBAcMCUNveW9hY8OhbjEVMBMGA1UELRMMU0FUOTcwNzAxTk4zMTIwMAYJKoZIhvcNAQkCDCNSZXNwb25zYWJsZTogSMOpY3RvciBPcm5lbGFzIEFyY2lnYTAeFw0xMDA3MzAxNjU4NDZaFw0xMjA3MjkxNjU4NDZaMIGWMRIwEAYDVQQDDAlNYXRyaXogU0ExEjAQBgNVBCkMCU1hdHJpeiBTQTESMBAGA1UECgwJTWF0cml6IFNBMSUwIwYDVQQtExxBQUEwMTAxMDFBQUEgLyBBQUFBMDEwMTAxQUFBMR4wHAYDVQQFExUgLyBBQUFBMDEwMTAxSERGUlhYMDExETAPBgNVBAsMCFVuaWRhZCA4MIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQDVvLjg4dC8rIWzeRV6v+ZxYTpzgiK11bHLeYRYF8Pho+1fTeRn7oOUdGfYSUEsqXV8s99F+rdJeA9Ma9iAt5zYBW+qkWlr8NDkkxQyMiOv8oEoJiXFsNWekAhnniyFoPn9pbA1FVBfBsaIe82HKi+Vq0Nd0QKh28afj2f6yhwZnwIDAQABo4HqMIHnMAwGA1UdEwEB/wQCMAAwCwYDVR0PBAQDAgbAMB0GA1UdDgQWBBSXXSAB98HZaYvKFyKXq5u8z4SG+zAuBgNVHR8EJzAlMCOgIaAfhh1odHRwOi8vcGtpLnNhdC5nb2IubXgvc2F0LmNybDAzBggrBgEFBQcBAQQnMCUwIwYIKwYBBQUHMAGGF2h0dHA6Ly9vY3NwLnNhdC5nb2IubXgvMB8GA1UdIwQYMBaAFOtZfQQimlONnnEaoFiWKfU54KDFMBAGA1UdIAQJMAcwBQYDKgMEMBMGA1UdJQQMMAoGCCsGAQUFBwMCMA0GCSqGSIb3DQEBBQUAA4IBAQAlyBvfqLEsWYW11levSQLbsvCpaWmIqtbhfM65Ly+b3848+S3WF9qZJLbH6NkViGUKy9WtTOwegicPSY/dihx1ZDOplARutbrscpLGqwfKsg/qh7ppK7CwqZv5rvrjnaflI8KDV9b+2hsyI0oGY9kVnZb0GgpNZMAKvUmvqXq5Z4ehoNWJmvixV7MgnX/heCZEcKZbR1pIoropUgiR5M8TUF9SUQlPPyRHgNA/v6vNwwZT+JYa62x65IrguUgLCg3DJgo4hk4zADM81Irn3jiTLBZcF2LTQageqxYxSj8MCWz7vGoB8Kv70CLY+Xin/IscCmZ2ohbG636sFNi6so4T"
    subTotal="21500.00"
    descuento="0"
    total="24940.00">
 
   rfc="CAJU010166K67"
    nombre="Juan Cama Nei">
      calle="Av. Sal Si Puedes"
    noExterior="13"
    noInterior="666"
    colonia="Morelos"
    localidad="Distrito Federal"
    municipio="Cuauhtemoc"
    estado="Distrito Federal"
    pais="Mexico"
    codigoPostal="06000"/>
      calle="Av. Sal Si Puedes 13"
    localidad="Distrito Federal"
    municipio="Cuauhtemoc"
    estado="Distrito Federal"
    pais="Mexico"
    codigoPostal="06000"/>
   >
 
   rfc="ROAF641217Q94"
    nombre="Fernando -El Pop-">
      calle="Av. Division del Norte"
    noExterior="69"
    noInterior="1"
    colonia="Letran-Valle"
    localidad="Distrito Federal"
    municipio="Benito Juarez"
    estado="Distrito Federal"
    pais="Mexico"
    codigoPostal="03650"/> 
  >
 
  >
      cantidad="1"
    descripcion="Servicios Profesionales"
    valorUnitario="21500.00"
    importe="3440.00"/> 
  > 
 
   totalImpuestosTrasladados="3440.00"> 
    > 
       impuesto="IVA"
    tasa="16.00"
    importe="3440.00"/> 
    > 
  > 
>

Este documento en xml (“factura.xml”) puede ser facilmente generado a partir de una base de datos, queda al lector la generación de este documento base.

Ahora en el campo que dice certificado=”" pusimos lo que guardamos en el archivo “aaa010101aaa_csd_08.cer.txt”, ya que este es el que vamos a informar a nuestro cliente.

Creando el “sello”

Ahora creamos el sello digital en un solo paso:

sed -i -e 's:sello=\"\":sello=\"'$(xsltproc cadenaoriginal_2_0.xslt factura.xml | openssl dgst -md5 -sign aaa010101aaa_csd_08.key.pem | openssl enc -base64 -A)'":' factura.xml

[UPDATE]: A partir del 1o de enero del 2011, aun utilizando “medios propios”, tendremos que usar SHA1 en lugar de MD5:

sed -i -e 's:sello=\"\":sello=\"'$(xsltproc cadenaoriginal_2_0.xslt factura.xml | openssl dgst -sha1 -sign aaa010101aaa_csd_08.key.pem | openssl enc -base64 -A)'":' factura.xml

Solo recuerden que para verificar una factura electrónica anterior al 1o de enero deberemos usar MD5.

Manda algunos warnings y espera la entrada del password que definimos cuando aplicamos criptografía al archivo “aaa010101aaa_csd_08.key.pem”.

Si revisan el documento “factura.xml” veran que el campo de sello tiene este valor (ejemplo calculado con MD5):

sello="YPVa00DkxogixDyLeU515SfkIo4c8ZlErSmQtutMgS2HV7xyuyckDQGUmatucV7T2J1AE5wm44LhKIbnAt6hpJR16H8bdZhGaDaIZyFnvnH1GDTJ94EXaF5kYC9KgUpcJcmmfmaQUYHjQS63EXEQusZqRfNehvaHbvhyIxbqSJQ="

Entendiendo este comando “todo en uno”

Si quieren obtener la cadena original le dan:

xsltproc cadenaoriginal_2_0.xslt factura.xml

y obtienen:

||2.0|A|1|2010-12-18T15:27:13|1|2006|ingreso|Contado en una sola exibicion|21500.00|0|24940.00|CAJU010166K67|Juan Cama Nei|Av. Sal Si Puedes|13|666|Morelos|Distrito Federal|Cuauhtemoc|Distrito Federal|Mexico|06000|Av. Sal Si Puedes 13|Distrito Federal|Cuauhtemoc|Distrito Federal|Mexico|06000|ROAF641217Q94|Fernando -El Pop-|Av. Division del Norte|69|1|Letran-Valle|Distrito Federal|Benito Juarez|Distrito Federal|Mexico|03650|1|Servicios Profesionales|21500.00|3440.00|IVA|16.00|3440.00|3440.00||

El MD5 de la cadena original es:

ece01145d293b01640ea296115f2af75

Lo que se firma es el MD5 de la cadena original y el resultado es el “sello”.

Validación de la factura

Ahora vamos a probar el archivo resultante (“factura.xml”) en el Validador de forma y sintaxis de Comprobantes Fiscales Digitales del SAT (otra aplicación en Java), y verán esta salida:

Aquí nosotros embebimos el Certificado, pero este por ley es “opcional”, en caso de que este campo de certificado no tenga nada, el validador preguntará por el archivo de certificado para poder validar, en este caso el archivo “aaa010101aaa_csd_08.cer”.

Con esto ya generaron una factura válida, pero en el siguiente artículo pondré una de las partes mas importantes en el ciclo de la factura electrónica: La validación, ya que por ley, el que recibe una factura electrónica, es responsable de validarla.

[UPDATE]: Por cambios en el SAT ahora es necesario marcar los archivos con algo conocido como BOM (Byte order mark). Para ver como corregir esto lea Castrosidades del SAT para la factura electrónica: Ahora necesitas BOM.

Problemas en la veracidad de los comprobantes

Los verificadores del SAT solo comprueban la validez del certificado a partir de la llave, de hecho, generé certificados que pasaron el validador de hacienda a partir de mi FIEL. Esto quiere decir que personas que no se han dado de alta en el trámite de generación de sellos por medios propios, pueden mandar facturas válidas para la SHCP, aunque no lo sean. de allí que hay que hacer mecanismos de verificación en la recepción del documento.

De hecho, usando los certificados de un web server (como Apache) con OpenSSL, podrías generar certificados válidos para los validadores del SAT.

La continuación de este artículo esta aquí (verificación de facturas).

Referencias

Anexo 20 de la ley publicada el el Diario Oficial de la Federación el 15 de junio de 2010.

artículo 29 del Código Fiscal de la Federación

Uso de XSL para transformar la factura electronica XML

Implantación de la Factura Electrónica Libre 2

Referencia de XLS para transformaciones de XML

FAQ sobre Factura Electrónica(en PDF) cortesía de Factura electrónica (CFD / CFDI)

Agradecimientos

Agradezco la ayuda de Salvador Ortíz de Matías Software Group, Fernando Ortíz y de Mauricio Baeza de Universo Libre por la ayuda y orientación prestada con sus opiniones y artículos.

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

Guía introductoria a GnuPG

El Pop — Thu, 21 Oct 2010 19:35:47 +0000

Leo en DevelopersWorks de IBM un artículo que es una guía básica del uso de GnuPG: Using Open PGP.