Ver Mensaje Individual
  #7  
Antiguo 26-07-2022
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.293
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
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
  // Pedir autorización
  r := GetAutorizacionComprobantesOffline.autorizacionComprobante('INCORRECTA');
  // Acceder a los datos de respuesta
  s := 'Consultada: ' + r.claveAccesoConsultada + ' - ' +
       'Comprobantes: ' + r.numeroComprobantes + ' - ' +
       'Autorizaciones: ' + Length(r.autorizaciones).ToString;

  Memo1.Lines.Add(s);
  Memo1.Lines.Add('------------------------------------------');

  // Te puede devolver N autorizaciones (accedo directamente a la primera)
  s := 'Autorizacion: ' + sLineBreak +
       'Estado: ' + r.autorizaciones[0].estado + sLineBreak +
       'Número: ' + r.autorizaciones[0].numeroAutorizacion + sLineBreak +
      //  'Fecha: ' + r.autorizaciones[0].fechaAutorizacion.ToString + sLineBreak +   // nil
       'Comprobante: ' + r.autorizaciones[0].comprobante + sLineBreak +
       'Mensajes: ' + Length(r.autorizaciones[0].mensajes).ToString + sLineBreak;

  Memo1.Lines.Add(s);
  Memo1.Lines.Add('------------------------------------------');

  // Igual que antes, accedo sólo al primer mensaje
  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:
------------------------------------------
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita