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

[brincola]

Empezado por javipes

buff! tengo un lío tremendo... si he conseguido generar el suministro de facturas emitidas, siguiendo lo que he visto en el hilo,
¿como puedo ver el contenido del xml ANTES de llamar a GetsiiSOAP(true,'',HTTPRIO1).SuministroLRFacturasEmitidas(ASumLRFacturasEmitidas); ?

seguro que es muy sencillo

Quítate 1300 (o sea, mira la entrada 53). Allí habla de introducir este evento:

procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
ss:TFileStream;
begin
SOAPRequest.Size:=0;
ss:=TFileStream.Create('C:\1.xml', fmOpenRead);
SOAPRequest.Position := 0;
SOAPRequest.CopyFrom( ss, ss.Size);
ss.Free;
SOAPRequest.Position := 0;
end;

No lo he probado aún, pero tiene sentido.

[CMB]

Y ya van más de 86.000 vistas!!! Y 1.363 respuestas.

[RubenMon]

Hola.

Un pequeño aporte.
Me he liado bastante para pasar de texto al indice de las enumeraciones de los XMLNS que genera Delphi. Por ejemplo para saber el índice del país a partir del código del país en texto.
He visto algunas soluciones en otras respuestas pero hacía falta declarar listas o arrays auxiliares.

Una pequeña función puede ayudar en estos casos:

function IndiceEnum(Info: PTypeInfo; const Name: string): Integer;
var
  InternalName: string;
begin
  InternalName := RemClassRegistry.GetInternalPropName(Info, Name);
  Result := GetEnumValue(Info, InternalName);
  if Result < 0 then
    raise Exception.CreateFmt('Valor %s no encontrado en enumeracion %s', [Name, Info^.Name]);
end;

y en el código se puede colocar

FacturaExpedida.Contraparte.IDOtro.CodigoPais := CountryType2(IndiceEnum(TypeInfo(CountryType2), Pais));

Donde "Pais" es una variable de tipo "string" que contiene el código del país ('FR', 'IT', etc);

La misma función se puede utilizar con otras enumeraciones que estén declaradas en los XLMNS.

Rubén.

[barnarasta]

Sobre el tema de los NIF censados o NO CENSADOS yo tengo un caso curioso:

IBRAHIMI EL BABANI RACHID 54677557W
El la busqueda por nif https://www1.agenciatributaria.gob.e...BUGC-JDIT/Cnec
da como correcto y al realizar el envio de EMITIDAS la rechaza como NO CENSADO.

[AlSan]

Empezado por barnarasta

Sobre el tema de los NIF censados o NO CENSADOS yo tengo un caso curioso:

IBRAHIMI EL BABANI RACHID 54677557W
El la busqueda por nif https://www1.agenciatributaria.gob.e...BUGC-JDIT/Cnec
da como correcto y al realizar el envio de EMITIDAS la rechaza como NO CENSADO.

A mí me pasa CASI lo mismo que a tí. En ese enlace de la AEAT me da OK ("La persona consultada ha sido identificada en el censo de la AEAT").

Pero en el alta de facturas emitidas, enviando el nombre completo en la forma "Apellidos Nombre" (esta vez sin comas ni nada):

               <sii:Contraparte>
                  <sii:NombreRazon>APELLIDO1 APELLIDO2 NOMBRE</sii:NombreRazon>
                  <sii:NIF>42******R</sii:NIF>
               </sii:Contraparte>

me rechazan la factura dando error de NO IDENTIFICADO (error 1117), que es diferente de "no censado" (error 2011).


Entonces hago un intento reenviándolo como no censado, tal como está documentado:

               <sii:Contraparte>
                  <sii:NombreRazon>APELLIDO1 APELLIDO2 NOMBRE</sii:NombreRazon>
                  <sii:IDOtro>
                     <sii:CodigoPais>ES</sii:CodigoPais>
                     <sii:IDType>07</sii:IDType>
                     <sii:ID>42******R</sii:ID>
                  </sii:IDOtro>
               </sii:Contraparte>

y entonces es cuando me la acepta con errores, como no censado.

Entiendo que a partir de este punto ya no podemos hacer nada más (no tengo manera de averiguar y por tanto corregir nada más de la contraparte). Nosotros ya habremos cumplido con nuestra obligación de informar a la AEAT de la factura, con toda la información de que disponíamos.

Supongo que si en el futuro algún día conseguimos saber algo más de ese NIF y/o el nombre correcto de su titular, siempre podremos emitir una modificación de esa factura ("A1")...

P.D. - En casi todos los casos que me estoy encontrando, los nombres corresponden claramente a personas extranjeras...

[brincola]

Interesante, RubenMon.

[brincola]

Empezado por brincola

Quítate 1300 (o sea, mira la entrada 53). Allí habla de introducir este evento:

procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
ss:TFileStream;
begin
SOAPRequest.Size:=0;
ss:=TFileStream.Create('C:\1.xml', fmOpenRead);
SOAPRequest.Position := 0;
SOAPRequest.CopyFrom( ss, ss.Size);
ss.Free;
SOAPRequest.Position := 0;
end;

No lo he probado aún, pero tiene sentido.

Ahora, ya probándolo, yo haría la siguiente corrección:

procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
ss:TFileStream;
begin
ss:=TFileStream.Create('C:\1.xml', fmOpenWrite);
SOAPRequest.Position := 0;
ss.CopyFrom(SOAPRequest,SOAPRequest.Size);
ss.Free;
SOAPRequest.Position := 0;
end;

Pero esto aún da un problema: no genera el fichero. Hay que crearlo previamente (copy con 1.xml y terminarlo con Ctrl Z si lo quieres vacío).


Los TFileStream son un poco tozudos a veces con los share y demás permisos (Read, Write, etc).
Con paciencia y un poco de tiempo acabar de perfilar para corregir este problema.

[brincola]

Empezado por brincola

Ahora, ya probándolo, yo haría la siguiente corrección:

procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
ss:TFileStream;
begin
ss:=TFileStream.Create('C:\1.xml', fmCreate);
SOAPRequest.Position := 0;
ss.CopyFrom(SOAPRequest,SOAPRequest.Size);
ss.Free;
SOAPRequest.Position := 0;
end;

Pero esto aún da un problema: no genera el fichero. Hay que crearlo previamente (copy con 1.xml y terminarlo con Ctrl Z si lo quieres vacío).


Los TFileStream son un poco tozudos a veces con los share y demás permisos (Read, Write, etc).
Con paciencia y un poco de tiempo acabar de perfilar para corregir este problema.

Con esto como definitivo:

procedure TForm1.HTTPRIO1BeforeExecute(const MethodName: string; SOAPRequest: TStream);
var
ss:TFileStream;
begin
ss:=TFileStream.Create('C:\1.xml', fmCreate);
SOAPRequest.Position := 0;
ss.CopyFrom(SOAPRequest,SOAPRequest.Size);
ss.Free;
SOAPRequest.Position := 0;
end;

... ya vale.

[javipes]

Brincola. Muchas gracias.
Tambien al resto de foreros.