[by_HT]

хм....помоему дело в том, что после:
PurchOrderLine."Shortcut Dimension 1 Code" := "Shortcut Dimension 1 Code";
PurchOrderLine."Shortcut Dimension 2 Code" := "Shortcut Dimension 2 Code";
стоит MODIFY;

а я поставил эти значения после MOdiFY;