Hola Amigo, gracias por el aporte.
Estoy interesado en ver como llamas al webservices "logincms", yo estoy haciendo lo siguiente , pero obtengo siempre el mensaje de error "El CMS es inválido".
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject);
var
vService:uLogincms.LoginCMS;
vCms:String;
begin
Memo1.Clear;
Memo1.Lines.LoadFromFile('C:\Afip\myProject\manual\tra.xml.firmado');
vcms:=Memo1.Lines.Text;
vService:=ulogincms.GetLoginCMS();
Memo1.lines.text:=vService.loginCms(vcms);
La unit uLogincms es el wdsl importado de
https://wsaahomo.afip.gov.ar/ws/services/LoginCms?wsdl
Podrías darme una mano con esto por favor? , no encontré en el FTP el código que habias dicho que lo subirías .
Gracias
Cita:
Empezado por adripugliesso
Sin ocx, sin componentes 100% codigo delphi
Tengo el codigo en delphi para solicitar cae y demas funciones del webservice de Afip funcionando 100% codigo puro de delphi sin OCX ni Componentes Raros.
Saludos..
PD: Enseguida pondré enlace al código, que lo subiré al FTP.
.
|