Factura Electronica México

[mirokiszel]

gracias por estas aclaraciones. si me ayudan a entender el proceso....pero todavia no se porque recibo los errores.

Tienes que descargar un programa llamado SOLCEDI de la pagina del SAT, con ese programa y tu Certificado FIEL vas a solicitar (pon atencion) UN CERTIFICADO DE SELLOS DIGITALES....hasta aqui todo claro!
tambien consequimos la contrasena de clave privada.


al generar el archivo PSE recibimos este error:

ERROR: Incomplete certification path -- NEED certificate
of "unstructuredName=Responsable: Fernando MartÝnez Coss,
L=Cuauhtemoc,
SP=Distrito Federal, C=MX, postalCode=06300, ST="Av. Hidalgo 77, Col.
Guerrero", EMAIL=acods@sat.gob.mx, O=Servicio de Administraci¾n

Tributaria, CN=A.C. del Servicio de Administraci¾n Tri"!

SAP Mexico nos dijo que buscamos los certificados raiz en pagina de SAT.

Certificados raíz de los certificados que emite el SAT es el archivo. y los encontramos.

despues de tener estos archivos recibimos un nuevo error:

Test signature
Signature ERROR - Unknown signer or recipient
Test encryption

Encryption ERROR - Unknown signer or recipient

y de aqui no sabemos como ir adelante....no sabemos que falta, que hicimos mal?

[[AzidRain]]

No es por nada mirokiszel pero SAP sabe de este tema lo mismo que todos los que andamos en el hilo y creo que hasta menos. El problema con SAP fue que se metieron a diestra y siniestra con su producto y nunca contemplaron a fondo la legislación vigente, resulta paradójico que empresas mexicanas mas pequeñas ya tengan productos que funcionan perfectamente mientras SAP deja a sus usuarios "a la buena de Dios" practicamente para que ellos mismos busquen la solución. Sobre todo si tomamos en cuenta que no es un producto nada barato (ni siquiera en us versión "light" Bussiness One). Revisa lo que te comenta dado porque ahí te lo explico bastante bien. De cualquier forma como mencionaba posts atrás, les conviene más esperar al nuevo esquema precisamente porque te evitas hacer todo este circo con los certificados ya que no tienes que solicitar ya folios ni nada.

[dado]

AzidRain tiene toda la razon del mundo, SAP tengo entendido se desarrolla en Alemania, pues seran muy chin... muy buenos, pero cuando se trata de hacer las cosas como se hacen en Mexico pues simplemente fallan.

Porque para empezar dices :

"Al generar el archivo PSE" ....y eso que es?

Y bueno, no es presuncion, solo por comentarte que he estudiado mucho acerca de la factura electronica y nunca he visto un archivo "PSE", he visto (y te puedo definir cada uno) archivos "CER", archivos "KEY", archivos "PEM" archivos "DER" archivos "X509" y archivos "PKCS8" pero nunca un "PSE",

Te sugiero que contactes con soporte tecnico de SAP porque aparentemente tienen un oscuro y complejo sistema de factura electronica

[mirokiszel]

Hicimos pruebas en sistema de pruebas con archivos Cer_Sellos_2010_12.sda y Root_Cer_Sellos_2010-12.zip. Aqui estos ROOT Certificate/Certificatos de raiz funcionaron.

Quisimos despues hacer todo en sistema productivo.
Con programa SOLCEDI generamos un archivo .req, .key. Estos 2 los mandamos a SAT y recibimos otros archivo .cer. Con este archivo .cer generamos un nuevo .key y .sdg archivo. Nos faltaba contrasena de clave privada que nosotros mismos creamos. Despues de esto quisimos crear el archivo PME…. Y salio el primer error….

ERROR: Incomplete certification path -- NEED certificate
of "unstructuredName=Responsable: Fernando MartÝnez Coss,
L=Cuauhtemoc,
SP=Distrito Federal, C=MX, postalCode=06300, ST="Av. Hidalgo 77, Col.
Guerrero", EMAIL=acods@sat.gob.mx, O=Servicio de Administraci¾n
Tributaria, CN=A.C. del Servicio de Administraci¾n Tri"!

SAP nos dijo que sacamos los certificados raiz de pagina de SAT, parte de comprobantes fiscales, archivos con nombres de certificados de raiz…y ahora tuvimos otro error.

Test signature
Signature ERROR - Unknown signer or recipient
Test encryption
Encryption ERROR - Unknown signer or recipient

De lo que nosotros entendemos y comparando con lo que paso en sistema de prueba….nos faltan certificados raiz que SAT uso para generar el ultimo archivo .cer que nos mando.

Este es el proceso completo. cual paso el incorrecto? si necesito los certificados raiz como los necesitabamos en sistema de prueba? Es que esos certificados de prueba si no los proporciono SAP, pero para el uso productivo solo los puede proporcionar SAT de lo que yo entiendo....

[mirokiszel]

Voy a hacer una coreccion>>>
Hicimos pruebas en sistema de pruebas con archivos Cer_Sellos_2010_12.sda y Root_Cer_Sellos_2010-12.zip. Aqui estos ROOT Certificate/Certificatos de raiz funcionaron.

Quisimos despues hacer todo en sistema productivo.
Con programa SOLCEDI generamos un archivo .req, .key. Estos 2 los mandamos a SAT y recibimos otros archivo .cer. Con este archivo .cer generamos un nuevo .key y .reg y al final el .sdg. mandamos el archivo .sdg a SAT y recibimos un nuevo archivo .cer ( el de cellos) Nos faltaba contrasena de clave privada que nosotros mismos creamos. Despues de esto quisimos crear el archivo PME…. Y salio el primer error….

ERROR: Incomplete certification path -- NEED certificate
of "unstructuredName=Responsable: Fernando MartÝnez Coss,
L=Cuauhtemoc,
SP=Distrito Federal, C=MX, postalCode=06300, ST="Av. Hidalgo 77, Col.
Guerrero", EMAIL=acods@sat.gob.mx, O=Servicio de Administraci¾n
Tributaria, CN=A.C. del Servicio de Administraci¾n Tri"!

SAP nos dijo que sacamos los certificados raiz de pagina de SAT, parte de comprobantes fiscales, archivos con nombres de certificados de raiz…y ahora tuvimos otro error.

Test signature
Signature ERROR - Unknown signer or recipient
Test encryption
Encryption ERROR - Unknown signer or recipient

De lo que nosotros entendemos y comparando con lo que paso en sistema de prueba….nos faltan certificados raiz que SAT uso para generar el ultimo archivo .cer que nos mando.

Este es el proceso completo. cual paso el incorrecto? si necesito los certificados raiz como los necesitabamos en sistema de prueba? Es que esos certificados de prueba si no los proporciono SAP, pero para el uso productivo solo los puede proporcionar SAT de lo que yo entiendo....

[Roberto_Garcia]

Saludos
He comenzado a trabajar con esto de los CFD para el sistema Aspel SAE 3.0 ya genere el archivo cfdv2.pas con XML Data Binding y ya redacte la carga de los datos pero al probarlo en esta instruccion

Código Delphi [-]
CFD := GetComprobante( XMLDoc );

me vota este error "Interface not supported" nunca habia usado XMLDocument a si que no tengo ni idea de donde revisar.

Código Delphi [-]

procedure TfpRUEBAS.CargarDatosCFD( TipoDocu, SaeFolio: string; DatosDb: T_ConfigDbSae;
  DatosEmisor: T_ConfigCFDEmisor );
var
  _FacD, _FacP, _Clie, _Inve: TTable;
  _DFacD: TDataSource;
  procedure _ConfigDb;
  begin
    _FacD := TTable.Create( nil );
    _FacP := TTable.Create( nil );
    _Clie := TTable.Create( nil );
    _Inve := TTable.Create( nil );
    _DFacD := TDataSource.Create( nil );
    DatosDb.TrasfiereDatos( tiFact0x, _FacD );
    DatosDb.TrasfiereDatos( tiFa0tyx, _FacP );
    DatosDb.TrasfiereDatos( tiClie0x, _Clie );
    DatosDb.TrasfiereDatos( tiInve0x, _Inve );
    _DFacD.DataSet := _FacD;
    _FacD.IndexName := 'FACT01';
    _FacP.IndexName := 'iTip_Doc';
    _Clie.IndexName := 'CCLIE';
    _Inve.IndexName := 'Clv_Art';
    _FacP.MasterSource := _DFacD;
    _FacP.MasterFields := 'TIP_DOC;CVE_DOC';
    _FacD.Open;
    _FacP.Open;
    _Clie.Open;
    _Inve.Open;
    if not _FacD.FindKey( [ TipoDocu, SaeFolio ] ) then begin
      MessageDlg( 'No se encontro el documento', mtWarning, [ mbOk ], 0 );
      XMLDoc.Active := False;
      Abort;
    end;
    if not _Clie.FindKey( [ _FacD.FieldByName( 'Cve_ClPv' ).Value ] ) then begin
      MessageDlg( 'No se encontro el Cliente', mtWarning, [ mbOk ], 0 );
      XMLDoc.Active := False;
      Abort;
    end;
  end;
begin
  XMLDoc.XML.Text := '<? xml version="1.0" encoding="UTF-8" ?> <Comprobante xmlns="---sat.gob.mx/cfd"> </Comprobante >';
  XMLDoc.Active := True;
  CFD := GetComprobante( XMLDoc ); // *** al ejecutar esta instruccion me vota el error
  CFD.SetAttribute( 'xmlns:xsi', '---w3.org/2001/XMLSchema-instance' );
  CFD.SetAttribute( 'xsi:schemaLocation', '---sat.gob.mx/cfd ---sat.gob.mx/sitio_internet/cfd/2/cfdv2.xsd' );
  _ConfigDb;
  with CFD do begin
    Version := '2.0';
    Serie := 'A';
    Folio := '1';
    Fecha := DateTimeToStr( Now );
    { TODO : Falta especifcar "Sello" }
    { TODO : Falta especifcar "NoAprobacion" }
    { TODO : Falta especifcar "AnoAprobacion" }
    FormaDePago := 'Pago en una sola exhibición';
    { TODO : Falta especifcar "NoCertificado" }
    { TODO : Falta especifcar "Certificado" }
    CondicionesDePago := IntToStr( _Clie.FieldValues[ 'Dias_Cred' ] ) + ' Dias';
    SubTotal := FloatToStrF( _FacD.FieldValues[ 'Can_tot' ], ffNumber, 14, 2 );
    Descuento := FloatToStrF( _FacD.FieldValues[ 'Des_tot' ], ffNumber, 14, 2 );
//  MotivoDescuento // Opcional
    Total := FloatToStrF(
      ( _FacD.FieldValues[ 'Can_tot' ] - _FacD.FieldValues[ 'Des_Tot' ] ) +
      _FacD.FieldValues[ 'Imp_Tot4' ], ffNumber, 14, 2 );
//  MetodoDePago // Opcional
    if TipoDocu = 'F' then
      TipoDeComprobante := 'ingreso' // ingreso egreso traslado
    else if TipoDocu = 'D' then
      TipoDeComprobante := 'egreso';
    with Emisor do begin
      Rfc := DatosEmisor.Rfc; // SIN ESPACIOS O GUIONES
      Nombre := DatosEmisor.Nombre;
      with DomicilioFiscal do begin
        Calle := DatosEmisor.DomFisCalle;
        NoExterior := DatosEmisor.DomFisNoExterior;
        NoInterior := DatosEmisor.DomFisNoInterior;
        Colonia := DatosEmisor.DomFisColonia;
        Localidad := DatosEmisor.DomFisLocalidad;
        Referencia := DatosEmisor.DomFisReferencia;
        Municipio := DatosEmisor.DomFisMunicipio;
        Estado := DatosEmisor.DomFisEstado;
        Pais := DatosEmisor.DomFisPais;
        CodigoPostal := DatosEmisor.DomFisCodigoPostal;
      end;
      with ExpedidoEn do begin
        Calle := DatosEmisor.ExpEnCalle;
        NoExterior := DatosEmisor.ExpEnNoExterior;
        NoInterior := DatosEmisor.ExpEnNoInterior;
        Colonia := DatosEmisor.ExpEnColonia;
        Localidad := DatosEmisor.ExpEnLocalidad;
        Referencia := DatosEmisor.ExpEnReferencia;
        Municipio := DatosEmisor.ExpEnMunicipio;
        Estado := DatosEmisor.ExpEnEstado;
        Pais := DatosEmisor.ExpEnPais;
        CodigoPostal := DatosEmisor.ExpEnCodigoPostal;
      end;
    end; // with emisor
    with Receptor do begin
      Rfc := _Clie.FieldValues[ 'Rfc' ];
      Nombre := _Clie.FieldValues[ 'Nombre' ];
      with Domicilio do begin
        Calle := _Clie.FieldValues[ 'Dir' ];
        //NoExterior := ; //opcional
        //NoInterior := ; //opcional
        Colonia := _Clie.FieldValues[ 'Colonia' ];
        //Localidad := //opcional
        //Referencia :=  //opcional
        Municipio := _Clie.FieldValues[ 'Pob' ];
        //Estado := //opcional
        Pais := _Clie.FieldValues[ 'Campostru2' ];
        CodigoPostal := _Clie.FieldValues[ 'Codigo' ];
      end;
    end; //With Receptor
    while not _FacP.Eof do begin
      with cfd.conceptos.add do begin
        Cantidad := FloatToStr( _FacP.FieldValues[ 'Cant' ] );
        Unidad := _FacP.FieldValues[ 'UNI_VENTA' ];
        //NoIdentificacion // opcional
        if _Inve.FindKey( [ _FacP.FieldValues[ 'Cve_Art' ] ] ) then
          Descripcion := _Inve.FieldValues[ 'Descr' ]
        else
          Descripcion := _FacP.FieldValues[ 'Cve_Art' ];
        ValorUnitario := FloatToStrF( _FacP.FieldValues[ 'Prec' ], ffNumber, 14, 2 );
        Importe := FloatToStrF( _FacP.FieldValues[ 'Prec' ] * _FacP.FieldValues[ 'Cant' ],
          ffNumber, 14, 2 );
        //InformacionAduanera  // no aplica
        //CuentaPredial // no aplica
        //ComplementoConcepto // no aplica
        //Parte // no aplica
      end;
      _FacP.Next;
    end;
    with Impuestos do begin
      //TotalImpuestosRetenidos  // no aplica
      TotalImpuestosTrasladados := _FacD.FieldValues[ 'Tot_Imp4' ];
      //Retenciones     // no aplica
      with Traslados.Add do begin
        Impuesto := 'IVA';
        Tasa := '16';
        Importe := FloatToStrF( _FacD.FieldValues[ 'Tot_Imp4' ],
          ffNumber, 14, 2 );
      end; //With Traslados
    end; //With Impuestos
    //Complemento
    //Addenda
  end; // with CFD
end;

[dado]

Empezado por Roberto_Garcia

XMLDoc.XML.Text := '<? xml version="1.0" encoding="UTF-8" ?> <Comprobante xmlns="---sat.gob.mx/cfd"> </Comprobante >';

En algun punto estas formando mal tu XML.

Intenta XMLDoc.XML.Text = ''; por el momento, para que no truene, luego empieza a agregarle encabezados, mi sospecha es que tienes un espacio en blanco en el ultimo tag </Comprobante___>

Nos comentas como quedo al final