Coloca el componente y configura las propiedades: WSDLLocatoin,
Service y
Port (por ese orden). Si lo haces en orden, a partir de la primera, las otras puedes seleccionarlas en el desplegable.
Luego para hacer una prueba puedes hacer la siguiente llamada (coloca el componente y un TMemo en el form):
Código Delphi
[-]
var
r:respuestaComprobante;
s:String;
begin
r := GetAutorizacionComprobantesOffline.autorizacionComprobante('INCORRECTA');
s := 'Consultada: ' + r.claveAccesoConsultada + ' - ' +
'Comprobantes: ' + r.numeroComprobantes + ' - ' +
'Autorizaciones: ' + Length(r.autorizaciones).ToString;
Memo1.Lines.Add(s);
Memo1.Lines.Add('------------------------------------------');
s := 'Autorizacion: ' + sLineBreak +
'Estado: ' + r.autorizaciones[0].estado + sLineBreak +
'Número: ' + r.autorizaciones[0].numeroAutorizacion + sLineBreak +
'Comprobante: ' + r.autorizaciones[0].comprobante + sLineBreak +
'Mensajes: ' + Length(r.autorizaciones[0].mensajes).ToString + sLineBreak;
Memo1.Lines.Add(s);
Memo1.Lines.Add('------------------------------------------');
s := 'Mensaje: ' + sLineBreak +
'Identificador: ' + r.autorizaciones[0].mensajes[0].identificador + sLineBreak +
'Mensaje: ' + r.autorizaciones[0].mensajes[0].mensaje + sLineBreak +
'Info adicional: ' + r.autorizaciones[0].mensajes[0].informacionAdicional + sLineBreak +
'Tipo: ' + r.autorizaciones[0].mensajes[0].tipo;
Memo1.Lines.Add(s);
Memo1.Lines.Add('------------------------------------------');
Con esta prueba (yo he utilizado una clave errónea), ya puedes comprobar que el WebService responde "cosas".
El resultado es este:
Consultada: INCORRECTA - Comprobantes: - Autorizaciones: 1
------------------------------------------
Autorizacion:
Estado: RECHAZADA
Número:
Comprobante:
Mensajes: 1
------------------------------------------
Mensaje:
Identificador: 80
Mensaje: ERROR EN LA ESTRUCTURA DE LA CLAVE DE ACCESO
Info adicional:
Tipo:
------------------------------------------