Necesito leer ficheros de tipo X12

[[duilioisola]]

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

Transmission Explanation
ST*270*1234*005010X279A1~
Transaction Set ID Code = 270 (Eligibility, Coverage or Benefit Inquiry)
Transaction Set Control Number = 1234
Implementation Convention Reference = 005010X279A1
BHT*0022*13*10001234*20060501*1319~
Hierarchical Structure Code = 0022 (Information Source, Information Receiver, Subscriber, Dependent)
Transaction Set Purpose Code = 13 (Request) Identification
Reference Identification = 10001234
Date = 20060501 (May 1, 2006)
Time = 1:19 PM
HL*1**20*1~
Hierarchical ID Number = 1
Hierarchical Parent ID Number = * not used
Hierarchical Level Code = 20 (Information Source)
Hierarchical Child Code = 1

[[duilioisola]]

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/

ANSI X12 Message Type

The following Figure 2 provides an overview of the main ANSI X12 messages.
Each Message type is identified by a 3 digits code number:
Figure 2: ANSI X12 Message TypesEDI 810 Invoice What is an ANSI X12 EDI 810 Message?
EDI 820 Payment order (EFT) What is an ANSI X12 EDI 820 Message?
EDI 830 Delivery forecast What is an ANSI X12 EDI 830 Message?
EDI 832 Price/sales catalogue What is an ANSI X12 EDI 832 Message?
EDI 846 Inventory Inquiry/Advice What is an ANSI X12 EDI 846 Message?
EDI 850 Purchase order What is an ANSI X12 EDI 850 Message?
EDI 855 Purchase order acknowledgement What is an ANSI X12 EDI 855 Message?
EDI 856 Ship Notice/manifest (ASN) What is an ANSI X12 EDI 856 Message?
EDI 860 Purchase order change What is an ANSI X12 EDI 860 Message?
EDI 862 Delivery Just-in-Time What is an ANSI X12 EDI 862 Message?
EDI 997 Functional Acknowledgement What is an ANSI X12 EDI 997 Message?

[Badillo]

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.

[Badillo]

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.

[Casimiro Noteví]