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;