Necesito leer ficheros de tipo X12
 

Saludos, Necesito ayuda para leer el contenido de los ficheros de tipo X12 837 para guardarlo en Sql server.

Nota: El 837 tiene que ver con la salud.

Adjunto:
Fichero fuente: source.x12
Fichero basicmssql.dbs que utilizan para generar la tabla en la BD
Fichero qadbt2a.cfg que imagino que sea para hacer parser

Si conocen alguna función o biblioteca que al menos permita parsearlo, les agradecería

Como siempre muchas gracias de antemano.

Parece un simple "csv" separados por asteriscos.
De todas formas se supone que debes tener por algún sitio la estructura de la cabecera y las líneas para saber a qué corresponde cada dato.

Saludos
 

Uno de los problemas es que no encuentro sitio que me explique o detalle como está conformada la estructura de este tipo de archivos, lo publiqué por si alguien del grupo había visto algo como esto antes.

Gracias

Se supone que si te han pedido que hagas algo con eso entonces te deberían facilitar la estructura y demás, porque no puedes adivinarlo.
¿No sabes si pertenece a algún intercambio de datos, o es una máquina, o son de otro programa, o a qué pertenece?

Buenos días
 

Estoy en la busqueda de información sobre este tipo de fichero de intercambio, por el momento esto es lo que interpreto:

X12 es un estándar de formato de mensajes que se utiliza con documentos de intercambio electrónico de datos (EDI) para que los socios comerciales compartan documentos comerciales electrónicos en un formato estándar y acordado . Es el estándar EDI más común utilizado en los Estados Unidos.

Saludos

Parece un mensaje EDI y luego el mapeo de campos EDI a campos de una base de datos.

Ten en cuenta que EDI tiene muchos tipos de mensaje (pedido, albaran, factura, reportes, etc.)
Las primeras dos o tres letras identifican al tipo de registro y luego están los datos.
Dependiendo del registro los campos representan un dato u otro.

Mira el ejemplo de factura:
http://smartcustomblocks.com/edi-edi...o-edifact.html

Esto se parece bastante a lo que envías como ejemplo:
https://x12.org/examples/005010x279/...er-eligibility

Mira esto de la página 13 en adelante:
https://www.cgsmedicare.com/pdf/edi/837p_compguide.pdf

Después de ver que se trataba de EDI he buscado
"EDI 837 standards" en Google.



De aquí me enteré que cada aplicación tiene su tipo de mensaje.
https://www.seeburger.com/info/what-is-ansi-x12/

Muchísimas gracias
 

La información está muy buena, con esto puedo preparar un parseo e incluso profundizar un poco más y el resultado lo comparto acá.

Muchísimas gracias.

Les comparto los resultados del parse para ficheros X12 835 File
 

Saludos,

Les adjuntaré lo que ya logré con el parser de los ficheros X12 para el tipo de archivo 835. Cualquier comentario o mejora que me recomienden será como siempre acaptada.

Ejemplo:

Código Delphi [-]
procedure TForm1.ProcessFile;
begin
  if FileExists(FFileName) then
  begin
    scMemoSource.Lines.LoadFromFile(FFileName);

    F835File := T835File.Create(FFileName);
    F835File.Parse;

    LabelLoop0000.Caption := IntToStr(F835File.Loop0000MaxId);
    LabelLoop1000.Caption := IntToStr(F835File.Loop1000MaxId);
    LabelLoop2000.Caption := IntToStr(F835File.Loop2000MaxId);
    LabelLoop2100.Caption := IntToStr(F835File.Loop2100MaxId);
    LabelLoop2105.Caption := IntToStr(F835File.Loop2105MaxId);
    LabelLoop2110.Caption := IntToStr(F835File.Loop2110MaxId);

    if F835File <> nil then
    begin
      scMemoSchema.Lines.AddStrings(F835File.getSqlSchema);
      scMemoDelete.Lines.AddStrings(F835File.getSqlDelete);
      scMemoInsert.Lines.AddStrings(F835File.SqlData);
      scMemoFileParser.Lines.AddStrings(F835File.ParsedFile);
      scMemoLogError.Lines.AddStrings(F835File.LogError);
    end;

  end;
end;

Gracias a todos.

^\||/^\||/^\||/