SII -Nuevo sistema de la Agencia Tributaria española de envío de datos vía Webservice

[Neftali [Germán.Estévez]]

Ahí va de vuelta...

[dimony]

Empezado por Neftali [Germán.Estévez]

Ahí va de vuelta...

Muchas gracias chato, que dios te lo pague . Me has salvado la vida.

[dimony]

Haciendo pruebas de suministro no tengo "eggs" a suministrarlo.


Este es mi código:

function suministra_cobros: string;
var
  v_SuministroLRCobrosEmitidas: SuministroCobrosEmitidas.SuministroLRCobrosEmitidas;
  v_RegistroLRCobrosEmitidas: SuministroCobrosEmitidas.Array_Of_LRCobrosEmitidasType;
  v_RegistroCobros: SuministroCobrosEmitidas.CobrosType;
  v_RespuestaLRCobrosEmitidas: SuministroCobrosEmitidas.RespuestaLRCobrosEmitidas;
  
  
  v_registros_cobros: smallint;
  v_dummy: smallint;
  V_NIF : SuministroCobrosEmitidas.IDEmisorFactura7;

begin

  (* -------------- BEGIN CABECERA -------------- *)
  v_SuministroLRCobrosEmitidas := SuministroCobrosEmitidas.SuministroLRCobrosEmitidas.Create;
  v_SuministroLRCobrosEmitidas.Cabecera := SuministroCobrosEmitidas.CabeceraSiiCobrosPagos.Create;
  v_SuministroLRCobrosEmitidas.Cabecera.IDVersionSii := SuministroCobrosEmitidas.VersionSiiType(0);
  v_SuministroLRCobrosEmitidas.Cabecera.Titular := SuministroCobrosEmitidas.PersonaFisicaJuridicaESType.Create;
  v_SuministroLRCobrosEmitidas.Cabecera.Titular.NombreRazon := Main.g_name;
  v_SuministroLRCobrosEmitidas.Cabecera.Titular.NIFRepresentante := Main.g_nif_representative;
  v_SuministroLRCobrosEmitidas.Cabecera.Titular.NIF := Main.g_nif;
  (* -------------- END CABECERA -------------- *)

  v_RegistroLRCobrosEmitidas[0] := SuministroCobrosEmitidas.LRCobrosEmitidasType.Create;
  v_RegistroLRCobrosEmitidas[0].IDFactura := SuministroCobrosEmitidas.IDFacturaExpedidaBCType.Create;
  v_RegistroLRCobrosEmitidas[0].IDFactura.IdEmisorFactura := SuministroCobrosEmitidas.IDEmisorFactura7.Create;
  v_RegistroLRCobrosEmitidas[0].IDFactura.IDEmisorFactura.nif := 'B00000000';
  v_RegistroLRCobrosEmitidas[0].IDFactura.NumSerieFacturaEmisor := '3302';
  v_RegistroLRCobrosEmitidas[0].IDFactura.FechaExpedicionFacturaEmisor := formatdatetime('dd-mm-yyyy',data.LibrosRegistros.FieldByName('fec_fra').AsDateTime);

  SetLength(v_RegistroCobros,1);
  v_RegistroCobros[0].Fecha := formatdatetime('dd-mm-yyyy',data.LibrosRegistros.FieldByName('fec_fra').AsDateTime);
  v_RegistroCobros[0].Importe := '12.1'
  v_RegistroCobros[0].Medio := SuministroCobrosEmitidas.MedioPagoType(00);
  v_RegistroCobros[0].Cuenta_O_Medio := 'Al contado';

  v_RegistroLRCobrosEmitidas[v_registros_cobros - 1].Cobros := v_RegistroCobros;

  v_RespuestaLRCobrosEmitidas := SuministroCobrosEmitidas.GetsiiSOAP(true, '', Main.g_co_wsdl_localitation, Main.g_co_wsdl_port, Main.g_co_wsdl_service, data.HTTPRIO6).SuministroLRCobrosEmitidas(v_SuministroLRCobrosEmitidas);

end;

Este es el XML que crea:

<?xml version="1.0"?>
<SOAP-ENV:Envelope xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
  <SOAP-ENV:Body>
    <SuministroLRCobrosEmitidas xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd">
      <Cabecera xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">
        <IDVersionSii>1.1</IDVersionSii>
        <Titular>
          <NombreRazon>Empresa</NombreRazon>
          <NIFRepresentante/>
          <NIF>B0000000</NIF>
        </Titular>
      </Cabecera>
      <RegistroLRCobros>
        <IDFactura>
          <IDEmisorFactura xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">
            <NIF>B00000000</NIF>
          </IDEmisorFactura>
          <NumSerieFacturaEmisor xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">3302</NumSerieFacturaEmisor>
          <FechaExpedicionFacturaEmisor xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">19-06-2023</FechaExpedicionFacturaEmisor>
        </IDFactura>
        <Cobros>
          <Cobro>
            <Fecha xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">23-06-2023</Fecha>
            <Importe xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">12.1</Importe>
            <Medio xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">01</Medio>
            <Cuenta_O_Medio xmlns="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">Al contado</Cuenta_O_Medio>
          </Cobro>
        </Cobros>
      </RegistroLRCobros>
    </SuministroLRCobrosEmitidas>
  </SOAP-ENV:Body>
</SOAP-ENV:Envelope>

y me devuelve el siguiente código de error:

Codigo[4102].El XML no cumple el esquema. Falta informar campo obligatorio.: Cobro

Creo que no tengo bien definidas las variables o algo por el estilo o algo por ahí se me escapa, me podríais poner un ejemplo de suministro de cobros / pagos, please.

[dimony]

He descubierto que si en la etiqueta <cobro> se le pone


"https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd"

Funciona. en el cliente web service de la la AEAT.


Pero no logro hacer que se ponga al generarlo yo, ¿Algún alma caritativa, por favor?

[keys]

Empezado por dimony

He descubierto que si en la etiqueta <cobro> se le pone


"https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd"

Funciona. en el cliente web service de la la AEAT.


Pero no logro hacer que se ponga al generarlo yo, ¿Algún alma caritativa, por favor?

No se si es un problema de delphi o del fichero xsd de hacienda. Para solucionarlo tienes que capturar el evento OnBeforeExecute el objeto THTTPPRIO y hacer le cambio. Te pongo un ejemplo

Código Delphi [-]
     NficheroTemp :=  'c:\temp\LCFTemporal.Xml';

     //Cargas todo el Tstream que te pasa el evento en un fichero
     if FileExists(NficheroTemp) then
        DeleteFile(NficheroTemp);

     ss := TFileStream.Create(NficheroTemp, fmCreate);
     SOAPRequest.Position := 0;
     ss.CopyFrom(SOAPRequest, SOAPRequest.size);
     ss.Free;
     SOAPRequest.Position := 0;

    //Reemplazas lo que necesitas
     Fichero := TStringList.Create;
     Fichero.LoadFromFile(NficheroTemp);
     for i := 0 to Fichero.Count - 1 do
     
       Fichero.Strings[i] := //Reemplazas lo que quieras;
     
     
     Sleep(1000);
     Fichero.SaveToFile(NficheroTemp);
     


    //lo vuelves a cargar en el TStream
     SOAPRequest.Size:=0;
     ss := TFileStream.Create(NficheroTemp, fmOpenRead);
     SOAPRequest.Position := 0;
     SOAPRequest.CopyFrom( ss, ss.Size);
     ss.Free;

     SOAPRequest.Position := 0;

Lo mismo pasa con los pagos.

[dimony]

Ha funcionado muuu bien keys, siguiendo la idea he hecho lo siguiente, por si le sirve a alguien:

Código Delphi [-]
procedure TData.HTTPRIO6BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var
  Document: IXMLDocument;
  registro:integer;
  ss:TFileStream;
  Cadena: TStringList;
begin
SOAPRequest.Position := 0;
Document := TXMLDocument.Create(nil);
Document.Options := [];
Document.LoadFromStream(SOAPRequest);
Document.XML.Text := xmlDoc.FormatXMLData(Document.XML.Text);
main.richedit1.Lines.Add(StringReplace(Document.XML.Text,'','',[rfReplaceAll, rfIgnoreCase]));
Cadena := TStringList.Create;
Cadena.Add(Main.RichEdit1.Lines.Text);
Cadena.SaveToFile('c:\tmp\1.xml');
ss := TFileStream.Create('c:\tmp\1.xml',fmOpenRead);
SOAPRequest.Position := 0;
SOAPRequest.CopyFrom(ss,ss.Size);
ss.Free;
SOAPRequest.Position := 0;
end;

Que es lo que ha sugerido KEYS pero a mi modo.
Grache Mille

[[newtron]]

Buenos días a tod@s.

Ayer intenté subir una factura al entorno de preproducción y me dio un error "Unauthorized (401)". Pensando que sería algún problema del servidor me he esperado a hoy pero sigo teniendo el mismo problema.

¿Alguien me puede decir si funciona el servidor de pruebas?

Gracias y un saludo.