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.