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

[vboloradito]

Empezado por kaly999

Buenos días, Me presento Soy Luis Miguel y soy nuevo en este foro.
Gracias a vosotros he conseguido generar y enviar correctamente el XML de Alta de Factura Emitida. Ahora estoy intentando generar el XML de Baja de factura, pero me da el siguiente error: No se esperaba <BajaLRFacturasEmitidas xmlns='https://www2.agenciatribu.....
Adjunto los XML de alta(que funciona) y modificación para ver si me podéis decir que estoy haciendo mal.

Gracias.

has probado a lanzarlo contra la web de la AEAT a mano. Porque parece que estan bien .
Si les añade la parte de SOAP al xml que has adjutnado no da problemas contra la web

<?xml version="1.0" encoding="utf-8"?>
<soapenv:Envelope xmlns:soapenv="http://schemas.xmlsoap.org/soap/envelope/" xmlns:siiLR="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroLR.xsd" xmlns:sii="https://www2.agenciatributaria.gob.es/static_files/common/internet/dep/aplicaciones/es/aeat/ssii/fact/ws/SuministroInformacion.xsd">
<soapenv:Header />
<soapenv:Body>

...

</soapenv:Body>
</soapenv:Envelope>

[seccion_31]

al final lo de enviar mas de 12 facturas se soluciono:

procedure TfEmitidas.emitidasHTTPWebNode1BeforePost(
  const HTTPReqResp: THTTPReqResp; Data: Pointer);
var
     Store : IStore;
     Certs : ICertificates;
     Cert : ICertificate2;
     CertContext : ICertContext;
     PCertContext : PCCERT_CONTEXT;
     V : OleVariant;
 const
     INTERNET_OPTION_CLIENT_CERT_CONTEXT = 84;
 begin

     V:=comboBox1.Text;

     Store := CoStore.Create;
     Store.Open(CAPICOM_CURRENT_USER_STORE, 'MY',CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED );
     Certs:=Store.Certificates.Find(CAPICOM_CERTIFICATE_FIND_SUBJECT_NAME,V,False ); { Buscar certificado por nombre }
     if Certs.Count > 0 then
     begin
         Cert:=IInterface(Certs.Item[1]) as ICertificate2;
         CertContext:=Cert as ICertContext;
         CertContext.Get_CertContext(Integer(PCertContext));
         if InternetSetOption(Data,INTERNET_OPTION_CLIENT_CERT_CONTEXT,PCertContext,Sizeof(CERT_CONTEXT)) = False then
         begin
             ShowMessage( 'Internet SSL certificate. Something went wrong' );
         end;
     end;
 end;

(en comboBox1 tengo el nombre del certificado)