Página 1 de 1
Certificado en XML
Publicado: Jue Dic 02, 2010 1:30 pm
por 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.
Re: Certificado en XML
Publicado: Jue Dic 02, 2010 1:42 pm
por Dado
Cuando exportas el XML con las rutinas ya tiene incluido el certificado, ya no tienes que hacer nada adicional.
Re: Certificado en XML
Publicado: Jue Dic 02, 2010 2:05 pm
por 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.
Re: Certificado en XML
Publicado: Jue Dic 02, 2010 2:19 pm
por Dado
icebergdelphi escribió: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
Re: Certificado en XML
Publicado: Jue Dic 02, 2010 2:25 pm
por icebergdelphi
Oki gracias efectivamente ya revise esa parte del codigo y no encuentro ese archivo que mencionas. volvere a ajar el codigo.
Re: Certificado en XML
Publicado: Jue Dic 02, 2010 3:12 pm
por 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.
Re: Certificado en XML
Publicado: Jue Dic 02, 2010 3:52 pm
por Dado
icebergdelphi escribió: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