[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.