Factura Electronica - Afip Argentina

[hagsoft]

Sera q lo pueden subir el codigo por favor me da error base64 estoy usando delphi berlin

Código Delphi [-]
procedure TForm1.EnviaTicket(ta: widestring);
var
  WS: LoginCMS;
  s: widestring;
begin
 //s := (HTTPRIO1 as LoginCms).loginCms(memo1.Text);
  WS := GetLoginCMS;
  s := WS.loginCms(ta);
  memo1.Text :=(s); //Da error en esta linea
  memo1.Lines.SaveToFile(ruta + 'TA.XML');
end;

[Casimiro Notevi]

¿Y el error es...?

[DeG]

Empezado por hagsoft

Sera q lo pueden subir el codigo por favor me da error base64 estoy usando delphi berlin

Código Delphi [-]
procedure TForm1.EnviaTicket(ta: widestring);
var
  WS: LoginCMS;
  s: widestring;
begin
 //s := (HTTPRIO1 as LoginCms).loginCms(memo1.Text);
  WS := GetLoginCMS;
  s := WS.loginCms(ta);
  memo1.Text :=(s); //Da error en esta linea
  memo1.Lines.SaveToFile(ruta + 'TA.XML');
end;

Buenas, me puse a debuguear y lo solucione, hay que cambiar ticketsf por ticketf en la linea:

TA:= LimpiaTicket(ruta+'ticketsf.xml','-----BEGIN PKCS7-----','-----END PKCS7-----');

por

TA:= LimpiaTicket(ruta+'ticketf.xml','-----BEGIN PKCS7-----','-----END PKCS7-----');

y no olvidar de instalar OpenSSL-Win32(yo lo olvide).
Saludos.

[chiche_s]

Hola gente del foro, estoy viendo el trabajo de adripugliesso pero no consigo avanzar para obtener los benditos TOKEN y SIGN. El problema específico es que no se me genera el archivo "ticketf.xml" y no sé por qué. Si alguien me puede dar una mano, o tienen la guía para generar cert y key.doc, se lo voy a agradecer.

PD: estoy usando Delphi 10.2 CE.

[aledieb]

Hola, estas usando openssl.exe si es así puede ser un tema de entorno, yo tuve que agregar una linea al .bat

 set OPENSSL_CONF=E:\camino_a\Ssl\openssl.cfg
E:\camino_a\Ssl\openssl smime -sign -in E:\ticketsf.xml -out E:\ticketf.xml -inkey E:\certificados\ClavePriv.txt -signer E:\certificados\Certificado.crt -outform PEM -nodetach

A mi me dio problemas la instalación de openssl por lo que solo descomprimi en un directorio de la app y lo uso desde alli. El openssl.cfg lo tuve que copiar de la página de openssl.