Necesito leer ficheros de tipo X12

[[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í]