|
CLEAR(NewILE)
NewILE.COPY(OldILE); (NewILE := OldILE или NewILE.TRANSFERFIELD(OldILE)к чему больше душа лежит)
NewILE."Entry No" := NewEntryNo;
UpdateValueEntry(OldILE."Entry No.", NewEntryNo);
UpdateReservationEntry(OldILE."Entry No.", NewEntryNo);
UpdateItemApplication(OldILE."Entry No.", NewEntryNo);
...
NewILE.INSERT;
OldILE.DELETE;
где NewILE и OldILE - реки 32
)))
изврат какой-то
|