Certificado en XML

[icebergdelphi]

Hola , lei que en la version 2 del CFd es opcional meter el Certificado ya digerido, pero se supone que el 1ro de Enero del 2011 entra la version 3 y esta si tiene que ir en el XML , como hago para que me genere el Certificado en el codigo que nos vendistes?

Saludos y gracias.

[Dado]

Cuando exportas el XML con las rutinas ya tiene incluido el certificado, ya no tienes que hacer nada adicional.

[icebergdelphi]

Gracias pero lo unico que veo que sale en el XML es el Nocertificado: noCertificado="10001200000000022517"
mas no el certificado ya en forma de codigo asi como lo hace sello sello="PTUpEgYNmXqxKNUGWsUdt9OAtLpd4nslyp97p0KqqP1

o no se si yo estoy equivocado, pero he visto otros ejemplos en Delphi y si sacan en el XML el nocertificado y a parte el certificado ya en cadenas de caracteres.

noCertificado="10001200000000022517"
certificado="PTUpEgYNmXqxKNUGWsUdt9OAtLpd4nslyp97p0KqqP1..................................................

o yo tengo una version vieja de tu codigo ?

Saludos.

[Dado]

Gracias pero lo unico que veo que sale en el XML es el Nocertificado: noCertificado="10001200000000022517"
mas no el certificado ya en forma de codigo asi como lo hace sello sello="PTUpEgYNmXqxKNUGWsUdt9OAtLpd4nslyp97p0KqqP1

o no se si yo estoy equivocado, pero he visto otros ejemplos en Delphi y si sacan en el XML el nocertificado y a parte el certificado ya en cadenas de caracteres.

noCertificado="10001200000000022517"
certificado="PTUpEgYNmXqxKNUGWsUdt9OAtLpd4nslyp97p0KqqP1..................................................

o yo tengo una version vieja de tu codigo ?

Saludos.

Desde la version cero las rutinas exportaban con certificado, revisa la unidad FacturaE.pas el procedimiento siguiente:

Código: Seleccionar todo

procedure TFacturaEForm.ExportaXML(FName : string);
var temp : TStringList;
	cadaux : string;
begin
	if FileExists(OpcC('FacturaE','CertPath') + CFD.NoCertificado + '.txt') then
	begin
		temp := TStringList.Create;
		temp.LoadFromFile(OpcC('FacturaE','CertPath') + CFD.NoCertificado + '.txt');
		cadaux := temp.Text; 
		temp.Free;

		cadaux := RemplazaCad('','-----BEGIN CERTIFICATE-----',cadaux);
		cadaux := RemplazaCad('','-----END CERTIFICATE-----',cadaux);
		cadaux := RemplazaCad('',#13,cadaux);
		cadaux := RemplazaCad('',#10,cadaux);
		CFD.Certificado := cadaux;
	end;

	XMLDoc.SaveToFile(FName);
end;

Ahi puedes ver que antes de exportar el XML las rutinas tratan de cargar el certificado y despues pegarlo (CFD.Certificado := cadaux;) checa paso a paso porque no encuentra tu certificado......(talvez lo borraste?)

El certificado se graba como 10001200000000022517.txt o algo similar usando el numero de serie y con extension txt

[icebergdelphi]

Oki gracias efectivamente ya revise esa parte del codigo y no encuentro ese archivo que mencionas. volvere a ajar el codigo.

[icebergdelphi]

Hola de nuevo ese archivo Txt quien lo Genera? ya vez que efectivamente si lo tenia eliminado de mi directorio, no se supone que si no esta se deberia de crear solo? gracias nuevamente.

[Dado]

Hola de nuevo ese archivo Txt quien lo Genera? ya vez que efectivamente si lo tenia eliminado de mi directorio, no se supone que si no esta se deberia de crear solo? gracias nuevamente.

Ese se genera en el procedimiento ProcesaCertificado, tambien en la unidad FacturaE.pas

Ese procedimiento (o metodo) se manda llamar en el "Paso 1" precisamente cuando seleccionas tu archivo *.cer y lo procesa