Cita:
Empezado por nincillo
Lo probaré... Gracias.
Pero de momento, pocas pruebas de envío se pueden hacer porque no tienen definida la url. ¿Verdad?.
|
Me funcionó el "truco" que me sugeriste. Muchas gracias de nuevo.
Ahora he atascado en otro punto.
A ver si alguien me puede ayudar.
Estoy empezando a rellenar los diferentes apartados de la factura antes de enviarla y he atascado al llegar al punto "Desglose", que se supone que es un Array of Detail.
Este es el código que llevo desarrollado hasta ahora.
Código:
procedure TForm2.BtnEnvioFacturaClick(Sender: TObject);
var
regFactura : FacturasEmitidasType;
result : Array_Of_RespuestaExpedidaType;
arrayFacturas : Array_Of_FacturasEmitidasType;
arrayDetalles : array of DetalleType;
detalle : DetalleType;
begin
regFactura := FacturasEmitidasType.Create;
regFactura.DatosControl := DatosControlType.Create;
regFactura.RegistroFacturacion := RegistroFacturacionType.Create;
regFactura.RegistroFacturacion.PeriodoLiquidacion := PeriodoLiquidacion.Create;
regFactura.RegistroFacturacion.PeriodoLiquidacion.Ejercicio := '23';
regFactura.RegistroFacturacion.PeriodoLiquidacion.Periodo := TipoPeriodoType(1); // Empieza a contar desde 0
regFactura.RegistroFacturacion.IDFactura := IDFacturaExpedidaType.Create;
regFactura.RegistroFacturacion.IDFactura.NumSerieFacturaEmisor := '23/123456';
regFactura.RegistroFacturacion.IDFactura.FechaExpedicionFacturaEmisor := '31/12/23';
regFactura.RegistroFacturacion.IDFactura.IDEmisorFactura := IDEmisorFactura2.Create;
regFactura.RegistroFacturacion.IDFactura.IDEmisorFactura.NIF := '3333333';
regFactura.RegistroFacturacion.DescripcionOperacion := 'vneta de mercaderías';
regFactura.RegistroFacturacion.Desglose := DesgloseType.Create();
detalle:= DetalleType.Create;
detalle.CuotaRepercutida := '100';
detalle.TipoImpositivo := '21';
SetLength(arrayDetalles, 1);
arrayDetalles[0] := detalle;
regFactura.RegistroFacturacion.Desglose[0] := detalle;
try
SetLength(arrayFacturas, 1);
arrayFacturas[0] := regFactura;
result := GetsfSOAP(true, '', HTTPRIO1).AltaFactuSistemaFacturacion(arrayFacturas);
finally
regFactura.Destroy;
end;
end;