Ver Mensaje Individual
  #3048  
Antiguo 08-11-2019
Avatar de newtron
[newtron] newtron is offline
Membrillo Premium
 
Registrado: abr 2007
Ubicación: Motril, Granada
Posts: 3.471
Reputación: 21
newtron Va camino a la fama
Cita:
Empezado por espinete Ver Mensaje
¿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:

Y... ¿dónde asignas el valor a la variable CSV?
__________________
Be water my friend.
Responder Con Cita