4. November 2010 12:04
GenJnlLine.RESET;
GenJnlLine.SETRANGE("Journal Template Name",'ALLGEMEIN');
GenJnlLine.SETRANGE("Journal Batch Name",'BANK');
i := 0;
j := 0;
FOR i := 2157 DOWNTO 1 DO BEGIN
  GenJnlLine.GET('ALLGEMEIN','BANK',i);
  j := i;
  GenJnlLine."Line No." := j + 1000;
  GenJnlLine.MODIFY;
END;
4. November 2010 12:09
4. November 2010 12:09
4. November 2010 12:15
McClane hat geschrieben:Eine Änderung auf dem PK erfordert rename, nicht modify.
Aber mit deinem Code verschiebst du Zeilen doch nur. Der Abstand zwischen den Zeilen bleibt gleich.
GenJnlLine.RESET;
GenJnlLine.SETRANGE("Journal Template Name",'ALLGEMEIN');
GenJnlLine.SETRANGE("Journal Batch Name",'BANK');
i := 0;
j := 0;
FOR i := 2157 DOWNTO 1 DO BEGIN
  GenJnlLine.GET('ALLGEMEIN','BANK',i);
  j := i * 10000;
  GenJnlLine.RENAME('ALLGEMEIN','BANK',j);
END;