Facturas electrónicas [España]

[elcharlie]

A ver si alguien me puede ayudar, porque ya no sé que esto haciendo mal.
Esto es lo que hago, firmo con secure black box

Código Delphi [-]
procedure TFrMain.ButtonEjecutarClick(Sender: TObject);
var
  SoapHeader: TSOAPHeader;
  SOAPRequester: FacturaSSPPWebServiceProxyPort;
  I: Integer;
  DatoEntrada: string;

  ConsultarUnidadesRespuesta: ConsultarRelacionesResponse;
  ConsultarRelacionesPorAdministracionRespuesta: ConsultarRelacionesPorAdministracionResponse;
  ConsultarNIFsRespuesta: ConsultarNIFsResponse;
  ConsultarNIFsPorAdministracionRespuesta: ConsultarNIFsPorAdministracionResponse;
  ConsultarEstadoRespuesta: ConsultarEstadosResponse;

  ReceiverEnviarFactura: EnviarFacturaResponse;
  SenderEnviarFactura: EnviarFacturaRequest;
  Anexos: ArrayOfAnexoFile;
  Anexo: AnexoFile;
  SelecFile: TOpenDialog;

  ConsultarFacturaRespuesta: ConsultarFacturaResponse;
begin
  try
    TxtResult.Lines.Clear;

    GD_HTT_PRIO := THTTPRIO.Create(nil);

    GD_HTT_PRIO.WSDLLocation := DEF_FWSDL_PRUEBAS;
    GD_HTT_PRIO.URL := DEF_URL_PRUEBAS;
    GD_HTT_PRIO.Service := DEF_SERVICE_PRUEBAS;
    GD_HTT_PRIO.Port := DEF_PORT_PRUEBAS;

    SoapHeader := TSOAPHEADER.create;
    GD_HTT_PRIO.SOAPHeaders.Send(SoapHeader);

    TCustomProcedureFACE.NumSerial := BinToStr((ComboBoxCertificadosEnvio.Items.Objects[ComboBoxCertificadosEnvio.ItemIndex] as TsbxCertificate).SerialNumber);
    TCustomProcedureFACE.RutaResultado := EdtRutaRespuesta.Text;

    GD_HTT_PRIO.HTTPWebNode.ClientCertificate.SerialNum := BinToStr((ComboBoxCertificadosEnvio.Items.Objects[ComboBoxCertificadosEnvio.ItemIndex] as TsbxCertificate).SerialNumber);

    GD_HTT_PRIO.OnBeforeExecute := TCustomProcedureFACE.BeforeExecute;
    GD_HTT_PRIO.OnAfterExecute := TCustomProcedureFACE.AfterExecute;

    SOAPRequester := (GD_HTT_PRIO as FacturaSSPPWebServiceProxyPort);

    case ComboBoxFunciion.ItemIndex of
      0: begin //Consultar Unidades
        ConsultarUnidadesRespuesta := SOAPRequester.consultarUnidades;

        if (Trim(ConsultarUnidadesRespuesta.resultado.codigo) = '0') then
        begin
          for I := Low(ConsultarUnidadesRespuesta.relaciones) to High(ConsultarUnidadesRespuesta.relaciones) do
          begin
            TxtResult.Lines.Add('Oficina Contable: ' + ConsultarUnidadesRespuesta.relaciones[i].oficinaContable.codigo +
              ' ' + ConsultarUnidadesRespuesta.relaciones[i].oficinaContable.nombre);
            TxtResult.Lines.Add('Organo Gestor: ' + ConsultarUnidadesRespuesta.relaciones[i].organoGestor.codigo +
              ' ' + ConsultarUnidadesRespuesta.relaciones[i].organoGestor.nombre);
            TxtResult.Lines.Add('Unidad Tramitadora: ' + ConsultarUnidadesRespuesta.relaciones[i].unidadTramitadora.codigo +
              ' ' + ConsultarUnidadesRespuesta.relaciones[i].unidadTramitadora.nombre);
            TxtResult.Lines.Add('');
          end;
        end
        else
        begin
          TxtResult.Lines.Add('ERROR:');
          TxtResult.Lines.Add(ConsultarUnidadesRespuesta.resultado.codigo + '-' +
            ConsultarUnidadesRespuesta.resultado.descripcion + ' (' +
            ConsultarUnidadesRespuesta.resultado.codigoSeguimiento + ')');
        end;
      end;

      1: begin //Consultar Unidades por Administracion
       .......

  SOAPRequester := nil;
    SoapHeader.Free;
    GD_HTT_PRIO := nil;

  except on E: Exception do
    ShowMessage('ButtonEjecutarClick: ' + e.ToString);
  end;
end;

y luego el onbefore y onafter

Código Delphi [-]
class procedure TCustomProcedureFACE.BeforeExecute(const MethodName: string;
  SOAPRequest: TStream);
var
  SS: TStringStream;
  FSOAPSigner: TsbxSOAPSigner;
  OutPut: TBytes;

  Cert : TsbxCertificate;
  I: Integer;

  function StreamToBytes(Stream: TStream): TBytes;
  begin
    SetLength(Result, Stream.Size);
    Stream.Position := 0;
    Stream.ReadBuffer(Result[0], Stream.Size);
  end;

 
begin
  try
    FSOAPSigner := TsbxSOAPSigner.Create(nil);
    FSOAPSigner.InputBytes := StreamToBytes(SOAPRequest);
    FSOAPSigner.OutputFile := RutaResultado + PathDelim + FILE_TEMP_OUTPUT;

    if trim(NumSerial) = EmptyStr then
    begin
      ShowMessage('Error SignXML: ' + 'No existe el Certificado');
      Exit;
    end;

    for I := 0 to GD_ListaCertificados.Count-1 do
    begin
      if BinToStr(GD_ListaCertificados[i].SerialNumber) = NumSerial then
      begin
        Cert := GD_ListaCertificados[i];
        Break;
      end;
    end;

    if not Assigned(Cert) then
    begin
      ShowMessage('Error SignXML: ' + 'No se encuentra el Certificado');
      Exit;
    end;

    FSOAPSigner.SigningCertificate := Cert;

    FSOAPSigner.NewSignature.SignatureType := sstWSSSignature;
    FSOAPSigner.NewSignature.HashAlgorithm := 'SHA1';
    FSOAPSigner.EmbedCertificateMethod := cwecInBinarySecurityToken;
    FSOAPSigner.Config('XMLFormatting=auto');

    //FSOAPSigner.AddBodyReference('', true);
    FSOAPSigner.Sign();

    if FileExists(RutaResultado + PathDelim + FILE_TEMP_OUTPUT) then
    begin
      SS := TStringStream.Create;
      SS.LoadFromFile(RutaResultado + PathDelim + FILE_TEMP_OUTPUT);

      FrMain.TxtRequest.Lines.Clear;
      FrMain.TxtRequest.Lines.Add(SS.DataString);
      FrMain.TxtRequest.Lines.Add('');

      SOAPRequest.Position := 0;
      SOAPRequest.CopyFrom(SS,SS.Size);

      SS.Free;
    end;

  except on E: Exception do
    ShowMessage('Error en BeforeExecute: ' + e.ToString);
  end;

end;


class procedure TCustomProcedureFACE.AfterExecute(const MethodName: string;
  SOAPResponse: TStream);
var
  SS: TStringStream;
begin
  try
    if FileExists(RutaResultado + PathDelim + FILE_RESULT_NAME) then
      DeleteFile(RutaResultado + PathDelim + FILE_RESULT_NAME);

    SS := TStringStream.Create('', TEncoding.UTF8);
    SOAPResponse.Position := 0;
    SS.CopyFrom(SOAPResponse, SOAPResponse.Size);
    FrMain.TxtResponse.Lines.Clear;
    FrMain.TxtResponse.Text := SS.DataString;
    SS.SaveToFile(RutaResultado + PathDelim + FILE_RESULT_NAME);
    SS.Free;
  except on E: Exception do
    ShowMessage('Error en AfterExecute: ' + e.ToString);
  end;
end;

A ver si alguien me puede echar una mano, porque esto da error "La petición no esta firmada"

[elcharlie]

Bueno, pues ya está solucionado. No me digas el por qué, pero si lo compilo desde una version mas antigua de delphi, me funciona perfectamente, Pero en cambio desde Delphi 12.1, da error.
No sé si es un error del objeto THTTPRIO o, probablemente, algo que haya que configurar en las versiones nuevas. No sé. Si alguien se le ocurre algo, pues se agradeceria.

[ermendalenda]

Empezado por elcharlie

Bueno, pues ya está solucionado. No me digas el por qué, pero si lo compilo desde una version mas antigua de delphi, me funciona perfectamente, Pero en cambio desde Delphi 12.1, da error.
No sé si es un error del objeto THTTPRIO o, probablemente, algo que haya que configurar en las versiones nuevas. No sé. Si alguien se le ocurre algo, pues se agradeceria.

Pues se me ocurre que es algo que no está correctamente registrado para el nuevo compilador. No creo que sea configuración de parámetros. Si nl más bien componentes dll, ocx... que tienen problemas

[ermendalenda]

Hola, he visto que esto se está apagando un poco
Eso quiere decir que teneis poco curro con esto de la fiscalidad.
Pues hay novedades, con los ivas.
El aceite pasa al 0% y al grupo d eiva súper reducido. Eso es lo de menos

El 1 de octubre todo lo que esté al 0% por el Real decreto pasará al 2.5% de iva lo del 5% al 7.5% con sus correspondientes recargos de equivalencia aún por definir. Y a final de año se acaban los descuentos. Menos el aceite que se queda en iva súper reducido al 4%.
Lo mejor de todo esto es que tendremos que poner abajo de la factura el descuento que se esta obteniendo y mencion al Real decreto
Ánimo chavales.

Postdata:
Traspaso licencia de desarrollador

[antoine0]

Empezado por ermendalenda

El 1 de octubre todo lo que esté al 0% por el Real decreto pasará al 2.5% de iva

En un gran esfuerza para animarte, el gobierno ha decidido redondear y dejar el IVA superreducido en octubre al 2%.

[ermendalenda]

Empezado por antoine0

En un gran esfuerza para animarte, el gobierno ha decidido redondear y dejar el IVA superreducido en octubre al 2%.

Se me ha puesto la piel de gallina.
Más bien alguien ha usado la calculadora para ver qué entre el 0 y el 4 sale el 2 para ir en 2 pasos
Al igual que entre el 5 y el 10 el 7.5
Los matemáticos que desarrollan las propuestas de las órdenes ministeriales deben ser becarios.

[Casimiro Noteví]

[elcharlie]

Empezado por ermendalenda

Pues se me ocurre que es algo que no está correctamente registrado para el nuevo compilador. No creo que sea configuración de parámetros. Si nl más bien componentes dll, ocx... que tienen problemas

Si, es como que las modificaciones que se hagan el evento BeforeExecute, no las aplique en el envio. Da igual lo que modifiques que envia el SOAPRequest original.
Supongo que será un error que arreglaran en un futuro.

[keys]

Y sus consiguientes cambios en los modelos de iva 390 y 303.

[ermendalenda]

Ayuda please.
1 cliente de Face se me ha quejado por mandarle una factura sustitutiva de un tiquet por face. Me dice que quiere factura ordinaria.
En face está la opción factura completa u ordinaria, que es la que marcó para la factura sustitutiva, estoy haciendo algo mal?

[elcharlie]

Empezado por ermendalenda

Ayuda please.
1 cliente de Face se me ha quejado por mandarle una factura sustitutiva de un tiquet por face. Me dice que quiere factura ordinaria.
En face está la opción factura completa u ordinaria, que es la que marcó para la factura sustitutiva, estoy haciendo algo mal?

Yo creo que a FACE solo se puede enviar Facturas, no Facturas simplificadas.

[sglorka]

Empezado por ermendalenda

Ayuda please.
1 cliente de Face se me ha quejado por mandarle una factura sustitutiva de un tiquet por face. Me dice que quiere factura ordinaria.
En face está la opción factura completa u ordinaria, que es la que marcó para la factura sustitutiva, estoy haciendo algo mal?

Nunca he tenido ese caso, pero siguiendo la lógica, debes enviarla como una factura ordinaria ya que no tienes más opciones, las otras 2 dos son Factura simplificada y Factura emitida por destinatario.
Extraído del manual "3.1.1.3. InvoiceDocumentType Tipo documento factura. Puede tomar 3 valores (FC, FA y AF), que se describen como “Factura completa u ordinaria”,
“Factura simplificada” y “Código sin uso desde la entrada en vigor del RD 1789/2010. Se mantiene por compatibilidad hacia atrás. Antes significaba autofactura"