traurig aber wahr... (müll im standard)

aus dem report zum verkaufsangebot (standard entrepreneuer):

Code:

  IF ExtTextLine.FIND('-') THEN BEGIN
    REPEAT
      IF ExtTextLine."Line No." = 10000 THEN
        HeaderText[1] := ExtTextLine.Text;
      IF ExtTextLine."Line No." = 20000 THEN
        HeaderText[1] := HeaderText[1] + ' ' + ExtTextLine.Text;
      IF ExtTextLine."Line No." = 30000 THEN
        HeaderText[2] := ExtTextLine.Text;
      IF ExtTextLine."Line No." = 40000 THEN
        HeaderText[2] := HeaderText[2] + ' ' + ExtTextLine.Text;
      IF ExtTextLine."Line No." = 50000 THEN
        HeaderText[3] := ExtTextLine.Text;
      IF ExtTextLine."Line No." = 60000 THEN
        HeaderText[3] := HeaderText[3] + ' ' + ExtTextLine.Text;
    UNTIL ExtTextLine.NEXT = 0;
  END;


beschwerde wahr, dass eine manuell eingefügte zeile in einem textbaustein nicht angedruckt wird. ja kein wunder... eine mittendrin (statt am ende) eingefügte zeile bekommt zb die ID 2500 und was wird hier hardcodiert!?! unglaublich...