Hola a todos.
¿Alguien a obtenido ya el certificado o a realizado el proceso de firmar el software? Estoy un poco pez en los sistemas para firmar la aplicación.

Busca información sobre la herramienta SignTool. Viene con Visualstudio, pero me imagino que también se puede descargar por separado de MSDN.
https://docs.microsoft.com/es-es/dot...s/signtool-exe

Aquí mismo en el club tienes mensajes sobre el tema. Aquí puedes ver un código de ejemplo para firmar.

AÑADO: SignTool forma parte de este SDK.

Gracias.

Ya me había leido todo ese tema del foro. Más que nada era por si alguien ha firmado ya sus programas para TicketBai y que sistemas ha utilizado. Yo estoy hablando con izenpe que parece que ellos también ofrecen alguna solución.

Cuando termine el proceso comentaré mi experiencia. Que por cierto creo que esto de firmar el software solo es para vender certificados de izenpe :cool:

Te lo digo porque nosotros firmamos nuestros programas con signtool.exe.
Todos, Tanto los EXE, como las DLL's/BPL's. Incluído el módulo de TickecBAI (BPL).

¿Y el certificado donde lo habéis obtenido de https://www.ssl247.es/?
¿Estos luego los van a aceptar en las haciendas?

Bueno, de esto se encarga otro departamento, pero en "Emitido por:" pone:
Symantec Class 3 SHA256 Code Signing CA

Declaración del emisor: https://d.symcb.com/rpa
que lleva a esta página: https://www.digicert.com/legal-repository/

Y en la descripción pone lo siguiente:


A ver si esto te sirve.

Hola a todos.

Me han dicho en hacienda que izenpe no tiene certificados de aplicación y me remiten al mercado internacional para obtenerlo. Probaré con los de sectigo que parecen los más económicos y fáciles de usar.

Un Saludo y gracias.

NetHTTPRequest
 

Buenos días

Quisiera pediros un poco de ayuda con los envíos del 140 y 240. Quisiera usar NetHTTPRequest y NetHTTPClient para los envíos, vosotros me diréis que opináis del tema. De momento he realizado pruebas con otros sitios https para comprender el funcionamiento. Estaba montado una prueba, con los ejemplos del Batuz, y pienso que quedaría así.

Código Delphi [-]
var
  Url: string;
  ss: TStringStream;
begin
  Url := 'https://sarrerak.bizkaia.eus/aurkezpena';

  NetHTTPRequest1.CustomHeaders['Accept-Encoding'] := 'gzip';
  NetHTTPRequest1.CustomHeaders['Content-Encoding'] := 'gzip';
  NetHTTPRequest1.CustomHeaders['Content-Type'] := 'application/octet-stream';
  NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-version'] := '1.0';
  NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-content-type'] := 'application/xml';
  NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-data'] := '{"con": "LROE", "apa": "1.1", "inte": {"nif": "79732487C","nrs": "ANE","ap1": "ARRIOLA","ap2": "LEJARDI"},"drs": {"mode": "140","ejer": "2022"}}'; //Edit1.text;

  ss := TStringStream.Create('', TEncoding.UTF8);
  ss.Position := 0;
  ss.LoadFromFile('Ejemplo_1_LROE_PF_140_IngresosConFacturaConSG_79732487C.gz');

  NetHTTPRequest1.MethodString := 'POST';
  Memo1.Text := NetHTTPClient1.Post(url, ss).ContentAsString(tencoding.UTF8);
end;

Como es un tema totalmente novedoso para mí, quisiera preguntaros si voy por el buen camino, o si me recomendáis otro distinto.

Gracias por vuestra comprensión.

No olvides usar los tags cuando pongas código. Gracias.

Yo hace años que utilizo los de esta gente: https://www.ksoftware.net/code-signing-certificates/. Tienen su propia herramienta de firma, y es muy fácil de usar; en la generación del instalador con InnoSetup tengo que se firma todo

Yo utilizo OV; no sé si en hacienda les valdrá o te requerirán EV

Gracias. Al final nos hemos decidido por los que tu comentas.

Hola a tod@s, ¿Se sabe donde se pueden hacer la pruebas? O todavía no ha salido nada.
Saludos a todos.

Hola a todos.

Han sacado una nueva versión del fichero de TicketBai la 1.2.

¿Alguien la puede importar con el xml Data Binding?. Da un error que falta una clase.

Esta en batuz.eus

¿A mi me ha llegado, pero no encuentro link ni documentos?
¿Puedes añadirlos aquí?

A mi también me da error.

Ahi los dejo, de todas formas están en la web de batuz

Gracias.
Actualizo el mensaje inicial y los subo al FTP.

Hola a todos. Ya he descubierto por que falla el xml data binding. Es porque en el fichero xsd hay un espacio delante de la definición de "IDVersionTicketBaiType".

<simpleType name=" IDVersionTicketBaiType">
<restriction base="string">
<enumeration value="1.2"/>
</restriction>
</simpleType>


Correcto

<simpleType name="IDVersionTicketBaiType">
<restriction base="string">
<enumeration value="1.2"/>
</restriction>
</simpleType>


esto hay que corregirlo tanto en el de ticketbai como en el de anulación.

Adjunto los ficheros modificados.

Gracias Majo

Y sise usan las etiquetas para código, se lee mucho mejor, que para eso están ;)
Saludos.

Gracias.
Luego actualizo los ficheros en el FTP.

Perdón lo intente con la etiqueta para código en delphi pero no salia bien, no había visto la de php.

:D

Hola a todos, me imagino que ya os habéis enterado.

Las haciendas de Bizkaia y Gipuzkoa van a empezar un periodo de pruebas. Gipuzkoa hoy día 13 y Bizkaia en breve.

https://www.batuz.eus/es/inicio

https://www.gipuzkoa.eus/es/web/ogas...e-fiscal/t-bai

Un Saludo.

Tienes razón, tuve que probar otros para ver cómo se veía y el de php parece que es el más idóneo.
Saludos.

Hola a todos.

Bizkaia a publicado nuevos ficheros para el envío del 140/240 www.batuz.eus por cierto les he comentado lo del espacio en el xsd que da error al importarlos en el xml databinding y me han dicho que es un error y que lo van a corregir. No se si en lo subido esta corregido ya que sus xsd de envio del 140/240 da el mismo error.

Por otra parte. Al importar los ficheros xsd con el xml databindig y generar los xml con delphi no añade el espacio de nombres. Es decir pone

y ellos quieren que ponga

Yo lo que estoy haciendo una vez generado el fichero cambiarlo a pelo. ¿Pero hay alguna forma que la clase IXMLDocument lo genere asi directamente?.

Un Saludo.

Buenas a todos,
¿Alguien ha podido enviar alguna factura/ticket al servidor de Gipuzkoa? Es que a mi siempre me esta retornando esto:

Yo tambien lo estoy cambiando a mano, pero solo estoy añadiendo esto:

Puede ser que valga solo con eso.
Yo he cogido lo que viene en un fichero de ejemplo de la hacienda de gipuzkoa que me han mandado.

Hola a todos,
hoy me han mandado esto los de la diputación de Gipuzkoa. Les mandé un email. porque el servicio web siempre me respondía con el mensaje "Error: El servicio de recepción no está disponible. Repita la operación más tarde".
Por si os sirve de ayuda.

Petición al servicio
 

Buenas tardes,

Os pido ayuda para el envío del fichero LROE, siempre me da error desconocido.
Estoy usando los componente TNetHTTPRequest y TNetHTTPClient, pero si alguien me da otra opción más sencilla y que funcione, estoy dispuesto a cambiar.

Os expongo el código a ver si alguien puede ayudarme, que hago mal.

en TNetHTTPClient cargo el cerificado:

Código Delphi [-]
procedure TfrmEnvelm.NetHTTPClient1NeedClientCertificate(const Sender: TObject; const ARequest: TURLRequest; const ACertificateList: TCertificateList; var AnIndex: Integer);
var
  i: Integer;
begin
  for i := 0 to ACertificateList.Count - 1 do
  begin

    if SameText(ACertificateList[i].Subject, mi_certificado.Caption) then
    begin
      AnIndex := i;
      break;
    end;
  end;
end;

Genero el fichero XML y lo comprimo en formato gzip.

Código Delphi [-]
    

function TfrmEnvelm.f_cabecera_LROE(mi_con, mi_apa, mi_nif, mi_nrs, mi_ap1, mi_ap2, mi_mode, mi_eje : string): string;
begin
  result := Format('{"con": "%s", "apa": "%s", "inte": {"nif": "%s","nrs": "%s","ap1": "%s","ap2": "%s"},"drs": {"mode": "%s","ejer": "%s"}}', [mi_con, mi_apa, mi_nif, mi_nrs, mi_ap1, mi_ap2, mi_mode, mi_eje]);
end;


var
  Src, Dst: TFileStream;
  ResponseContent: TMemoryStream;
  Encoding: TEncoding;
  ss: TStringStream;
....
    SaveAsUTF8(DMBatu.CDSEnvc.FieldByName('EN050').AsString, el_xml.XML);
    Src := TFileStream.Create(DMBatu.CDSEnvc.FieldByName('EN050').AsString, fmOpenRead);
    try
      Dst := TFileStream.Create(DMBatu.CDSEnvc.FieldByName('EN050').AsString + '.gz', fmCreate);
      try
        MakeGZ(Src, Dst);
      finally
        Dst.Free;
      end;
    finally
      Src.Free;
    end;

Cargo cabecera y cuerpo de https, y realizo la llamada.

Código Delphi [-]
   
      if FileExists(DMBatu.CDSEnvc.FieldByName('EN050').AsString + '.gz') then
      begin
        NetHTTPRequest1.CustomHeaders['Accept-Encoding'] := el_accept_Encoding;
        NetHTTPRequest1.CustomHeaders['Content-Encoding'] := el_Content_Encoding;
        NetHTTPRequest1.CustomHeaders['Content-Type'] := el_Content_Type;
        NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-version'] := el_eus_bizkaia_n3_version;
        NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-content-type'] := el_eus_bizkaia_n3_content_type;
        el_eus_bizkaia_n3_data :=  f_cabecera_LROE(el_concepto,
                                                   el_subcapitulo,
                                                   DMBatu.CDSPres.FieldByName('PR020').AsString,
                                                   DMBatu.CDSPres.FieldByName('PR040').AsString,
                                                   DMBatu.CDSPres.FieldByName('PR090').AsString,
                                                   DMBatu.CDSPres.FieldByName('PR100').AsString,
                                                   DMBatu.CDSPres.FieldByName('PR080').AsString,
                                                   txtEjer.Text);
        NetHTTPRequest1.CustomHeaders['eus-bizkaia-n3-data'] := el_eus_bizkaia_n3_data;
        ss := TStringStream.Create('', TEncoding.UTF8);
        ss.Position := 0;
        ss.LoadFromFile(DMBatu.CDSEnvc.FieldByName('EN050').AsString + '.gz');

        NetHTTPRequest1.MethodString := 'POST';
        Memo1.Text := NetHTTPClient1.Post(la_url, ss).ContentAsString(tencoding.UTF8);

Las variables siguientes, se leen de un fichero de configuración:

Código Delphi [-]
    la_url := 'https://sarrerak.bizkaia.eus/aurkezpena';
    el_accept_Encoding := 'gzip';
    el_Content_Encoding := 'gzip';
    el_Content_Type := 'application/octet-stream';
    el_eus_bizkaia_n3_version := '1.0';
    el_eus_bizkaia_n3_content_type := 'application/xml';
    el_Concepto := 'LROE';
   el_subcapitulo := '1.1';

Tengo dudas si el cuerpo debe de estar en hexadecimal.

Estoy abierto a todo, ya no se por donde seguir,
Gracias

Hola a todos.

No te he revisado todo pero vas por buen camino.

El problemaes es que en Bizkaia no han empezado el periodo de prueba de los envíos. Site fijas en la url https://sarrerak.bizkaia.eus/aurkezpena y pinchas te dice que el servidor no esta disponible.

Esa es la dirección de producción, es decir la definitiva. Tienen que publicar la dirección del entorno de pruebas que me imagino que será distinta.

Si tienes que hacer también Gipuzkoa, puedes empezar por ellos que ya tienen el periodo de pruebas de envíos en marcha y es más sencillo.

Un Saludo.

Gracias,

Me quitas un gran peso de encima. Estoy mirando Gipuzkoa, no se me da el caso, y es totalmente distinto. En esta hacienda mandan directamente el XML del ticketbai. De todas formas sabes si Bizkaia, ¿ va a habilitar portal de pruebas?. Si no les pongo una consulta, a ver que responden.

Saludos

Si van a habilitar entorno de pruebas. Se supone que en unos días.

Buenos días hice la consulta en relación al entorno de pruebas antes de que me respondiera keys, y esta es la respuesta:

Entorno de pruebas
 

Buenas tardes
Ya se ha puesto en marcha el entorno de pruebas LROE en Bizkaia, estoy probando, y en:

Código Delphi [-]
unit System.Net.HttpClient.Win;

procedure TWinHTTPClient.DoGetClientCertificates(const ARequest: THTTPRequest;
  const ACertificateList: TList);

la aplicación casca, da el terrorífico 'Access violation .....'. Uso uso Delphi 10 Seattle y los componentes TNetHTTPClient y TNetHTTPRequest.
La selección del certificado la realizo en el evento OnNeedClientCertificate,

Código Delphi [-]
procedure Tfrm140CTB.NetHTTPClient1NeedClientCertificate(const Sender: TObject; const ARequest: TURLRequest; const ACertificateList: TCertificateList; var AnIndex: Integer);
var
  i: Integer;
begin
  for i := 0 to ACertificateList.Count - 1 do
  begin

    if  (SameText(ACertificateList[i].Subject, mi_certificado.Caption)) then
    begin
      AnIndex := i;
      break;
    end;
  end;
end;

He puesto una traza al comienzo de este procedimiento, y ni siquiera llega
Si alguien utiliza este sistema, y le funciona, agradecido me eche una mano.

Buenos dias!
yo lo hago mas o menos así, y de momento, ningún problema. No sé cual será tu problema, eso sí, lo estoy haciendo con Delphi 10.3 Rio. Pero yo creo que el problema no está en ese evento, tiene que ser en otra parte

Gracias elcharlie,
El error se da en el siguiente procedimiento de la unit System.Net.HttpClient.Win, marco la instrucción en rojo;

Código Delphi [-]
procedure TWinHTTPClient.DoGetClientCertificates(const ARequest: THTTPRequest;
  const ACertificateList: TList);
var
  LRequest: TWinHTTPRequest;
  LStore: HCERTSTORE;
  LIssuerList: PSecPkgContext_IssuerListInfoEx;
  LClientCert: PCCERT_CONTEXT;
  LSearchCriteria: CERT_CHAIN_FIND_BY_ISSUER_PARA;
  LIssuerListSize: DWORD;
  LPrevChainContext, LClientCertChain: PCCERT_CHAIN_CONTEXT;
  LCertificate: TCertificate;
begin
  inherited;

  if FWinCertList.Count = 0 then
  begin
    LRequest := TWinHTTPRequest(ARequest);

    LIssuerList := nil;
    LIssuerListSize := SizeOf(LIssuerList);

    if WinHttpQueryOption(LRequest.FWRequest, WINHTTP_OPTION_CLIENT_CERT_ISSUER_LIST, LIssuerList, LIssuerListSize) = TRUE then
    begin
      FillChar(LSearchCriteria, SizeOf(LSearchCriteria), 0);
      LSearchCriteria.cbSize := SizeOf(LSearchCriteria);
      LSearchCriteria.cIssuer := LIssuerList.cIssuers;
      LSearchCriteria.rgIssuer := LIssuerList.aIssuers;

      LStore := TCertificateStore.Store;
      if LStore <> nil then
      begin
        LPrevChainContext := nil;
        while True do
        begin
          LClientCertChain := CertFindChainInStore(LStore, X509_ASN_ENCODING,
            CERT_CHAIN_FIND_BY_ISSUER_CACHE_ONLY_URL_FLAG or CERT_CHAIN_FIND_BY_ISSUER_CACHE_ONLY_FLAG,
            CERT_CHAIN_FIND_BY_ISSUER, @LSearchCriteria, LPrevChainContext);

          if LClientCertChain <> nil then
          begin
            LPrevChainContext := LClientCertChain;
            LClientCert := LClientCertChain.rgpChain^.rgpElement^.pCertContext;
            CertDuplicateCertificateContext(LClientCert); // Need to be released (CertFreeCertificateContext)
            CryptCertToTCertificate(LClientCert, LCertificate);
            FCertificateList.Add(LCertificate);
            FWinCertList.Add(LClientCert);
          end
          else
            Break;
        end;
      end;
      GlobalFree(HGLOBAL(LIssuerList));
    end;
  end;
  ACertificateList.Clear;
  ACertificateList.AddRange(FCertificateList);
end;

¿Serías tan amable de mandarme ese procedimiento en la versión Rio?. Viéndolo, parece que es un problema al cargar la lista de los certificados presentes en el ordenador.
¿Tal vez hay una orden previa para la carga de los certificados y que yo no la esté realizando?

Gracias.

Hola a todos.

En el componente TNetHttpClient tienes un evento OnRequestError, intenta capturar el error que te da.

Un Saludo

Hola
keys, da lo siguiente, yo la verdad con esos errores nunca he podido saber nada, y da como he dicho al cargar la lista de certificados. Vosotros cargáis dicha lista antes, o le dices como cargarla antes de ejecutar

Código Delphi [-]
NetHTTPClient1.Post(la_url, ss).ContentAsString(tencoding.UTF8);

Código Delphi [-]
---------------------------
BATUZ
---------------------------
Access violation at address 00B19045 in module 'BATUZ.exe'. Read of address 00000004
---------------------------
OK   
---------------------------

Gracias

Prueba primero a poner un certificado sin hacer nada en ese evento.

AnIndex := 0; //o el que tu tengas.

Yo tampoco creo que sea del certificado. ¿No te pasa por el evento OnRequestError que te he comentado ?