Ver Mensaje Individual
  #3047  
Antiguo 08-11-2019
espinete espinete is offline
Miembro
 
Registrado: mar 2009
Posts: 233
Reputación: 16
espinete Va camino a la fama
¿Alguien sabe por qué el CSV me viene en blanco tras hacer el envío, aunque efectivamente está enviada?

Si la vuelvo a enviar me dice "duplicada" (y aquí sí obtengo el CSV), pero en el primer envío el CSV está en blanco.

Este es el código que uso para el envío:

Código:
   try
      result := GetsiiSOAP(true,'',HTTPRIO1).SuministroLRFacturasEmitidas(ASuministroLRFacturasEmitidas);

      for i := low(result.RespuestaLinea) to High(result.RespuestaLinea) do
      begin
          with result.RespuestaLinea[i] do
          begin
              Memo1.lines.add('factura: ' + IDFactura.NumSerieFacturaEmisor + ' ' + IDFactura.NumSerieFacturaEmisorResumenFin + ' ' + IDFactura.FechaExpedicionFacturaEmisor);
              Memo1.lines.add('CSV: ' + CSV);
              if EstadoRegistro <> EstadoRegistroType(0) then
              begin
                  Memo1.lines.add('Error no.: ' + InttoStr(CodigoErrorRegistro));
                  Memo1.lines.add(DescripcionErrorRegistro);
              end;
          end;
      end;
   except
       On E:Exception do
           MessageDlg(E.Message, mtError, [mbOK], 0);
   end;
Y esto es lo que obtengo:

factura: A-451260 06/11/2019
CSV:
Responder Con Cita