Codigo Fuente en Delphi para Timbrar

[EJSG]

De hecho puedes abrir el PEM en el bloc de notas (recomendado) para que veas la diferencia. Convertir de base64 a PEM y viceversa es simple.

Perfecto, pero entonces, con mi archivo PEM, que string voy a generar, el Certificado o la Llave en base 64? Y no voy a necesitar la otra string?

[EJSG]

Perfecto, pero entonces, con mi archivo PEM, que string voy a generar, el Certificado o la Llave en base 64? Y no voy a necesitar la otra string?

Sorry, ya lo revise y si tengo lo necesario para generar las 2 strings base 64. Muchas gracias.

[poliman]

Hola DADO.

En el codigo que vendes de Delphi, ¿ hay alguna funcion que permita obtener la cadena con la que se formara el contenido de el CBB una vez obtenido el XML timbrado ?.

Me refiero a esta:

?re=XAXX010101000&rr=XAXX010101000&tt=1234567890.123456&id=ad662d33-6934-459c-a128-BDf0393f0f44


Muchas gracias.

[Dado]

Hola DADO.

En el codigo que vendes de Delphi, ¿ hay alguna funcion que permita obtener la cadena con la que se formara el contenido de el CBB una vez obtenido el XML timbrado ?.

Me refiero a esta:

?re=XAXX010101000&rr=XAXX010101000&tt=1234567890.123456&id=ad662d33-6934-459c-a128-BDf0393f0f44


Muchas gracias.

No tengo una funcion tal cual.

Tengo la funcion que va "mas alla", le pasas los RFC, el total y el UUID y te devuelve el codigo de barras QRCode

La funcion se encuentra en la unidad cfdQRCode que es parte del Modulo Opcional de PDF que se vende por separado del Modulo Basico

Código: Seleccionar todo

procedure TCodigoDeBarras.QRCodeBMP(RFCEmisor,RFCReceptor,Total,UUID : string);

Si tienes solo el modulo basico es facil crear una funcion como la pides :

Código: Seleccionar todo

if CFD.TieneTimbre then //Importante primero revisar si tiene timbre
cadena := '?re=' + CFD.Datos.Emisor.RFC ...+CFD.Datos.Receptor.RFC.....+...Timbre.Datos.UUID +......etc

[poliman]

Muchas gracias por tu informacion.

[EJSG]

Hola Dado, avanzando con la implementacion de la version Febrero 2011, me encontre que anteriormente usabamos el Modulus para daterminar si el certificado y la llave eran pareja... existe algo en esta version para este fin? Muchas gracias y saludos.

[Dado]

Hola Dado, avanzando con la implementacion de la version Febrero 2011, me encontre que anteriormente usabamos el Modulus para daterminar si el certificado y la llave eran pareja... existe algo en esta version para este fin? Muchas gracias y saludos.

Aqui hay varios puntos interesantes.

El "modulus" no es otra cosa que la "Llave publica", son lo mismo*

En la unidad cfdCore, en el procedimiento de sellado se hace esa validacion :

Código: Seleccionar todo

		if Cer.PublicKeyTxt <> Key.PublicKeyTxt then
		begin Result := 'El Certificado y la Llave no se corresponden'; exit; end;

Como ves es muy facil revisar si son pareja, solo comparas la propiedad PublicKey


*solo por comentarte, tarde facil como una semana en descubrir esto de que modulus=public key, OpenSSL no tiene precisamente la mejor documentacion.......y despues de descubrirlo tarde otro par de dias en IMPLEMENTAR la propiedad PublicKeyTxt para el certificado y la llave.....disculpa el comentario, pero solo de acordarme....

[poliman]

Hola Dado.

Tengo Delphi 2010 y Windows 7 64 bits.

Por alguna extraña razon solo puedo guardar el CFD una vez timbrado de la siguiente forma, utilizando un dialogo para guardarlo:

Código: Seleccionar todo

// Insertamos el timbre en el CFD
      Timbre.InsertaComplemento(CFD);



     if dlgSave.Execute then
      begin
        CFD.SaveToFile(dlgSave.FileName);
      end;

No me funciona de la forma que tu lo tienes y me gustaria ver si se puede utilizar solo indicando la ruta:

Código: Seleccionar todo

        CFD.SaveToFile('C:\Factura timbrada.xml');

He intentado de diferentes formas (no funcionaron):

Código: Seleccionar todo

          cfd.savetofile('C:1.xml'); 

Código: Seleccionar todo

cfd.savetofile('C:\1.xml');

Cambiando el tipo de datos de String a AnsiString en el procedimiento de Guardar en cfdcore (tampoco funciona):

Código: Seleccionar todo

procedure SaveToFile(FileName: AnsiString);
procedure TCFD.SaveToFile(FileName: AnsiString);
begin
  XMLDoc.SaveToFile(FileName);
end;

Y solo funciona utilizando el SaveDialog.

Muchas gracias.

[EJSG]

Como ves es muy facil revisar si son pareja, solo comparas la propiedad PublicKey

Excelente Dado, muchas gracias. Aprovecho para felicitarte por esta nueva version, pues realmente esta muy elegante y bien estructurada, valio la pena el esfuerzo que realizaste para desarrollarla y ahora el mio en implementarla. Saludos.

[spaniaguag]

Poliman:

Tu problema para guardar podría ser windows 7, ya que no permite guardar en raiz de C:, intentalo en otra ruta.