[Васыо]

Вот подозреваемый код (из кодюнита 12451 Item Document-Post):

ItemJnlLine.SETRANGE("Document No.",PostedItemDocHeader."No.");
IF ItemJnlLine.FIND('-') THEN REPEAT
  ItemJnlLine.TESTFIELD(Quantity);
  PostedItemDocLine.INIT;
  PostedItemDocLine.TRANSFERFIELDS(ItemJnlLine);
  PostedItemDocLine."Journal Batch Name" := PostedItemDocHeader."No.";
  PostedItemDocLine."Document No." := PostedItemDocHeader."No.";
  PostedItemDocLine.INSERT;

  JnlDim.RESET;
  JnlDim.SETRANGE("Table ID",83);
  JnlDim.SETRANGE("Journal Batch Name",ItemJnlLine."Document No.");
  JnlDim.SETRANGE("Journal Line No.",ItemJnlLine."Line No.");
  IF JnlDim.FIND('-') THEN
  REPEAT
    PostedDocDim.INIT;
    PostedDocDim."Table ID" := 12452;
    PostedDocDim."Document No." := PostedItemDocHeader."No.";
    PostedDocDim."Line No." := PostedItemDocLine."Line No.";
    PostedDocDim."Dimension Code" := JnlDim."Dimension Code";
    PostedDocDim."Dimension Value Code" := JnlDim."Dimension Value Code";
    PostedDocDim."New Dimension Value Code" := JnlDim."New Dimension Value Code";
    PostedDocDim.INSERT;
  UNTIL JnlDim.NEXT = 0;

  IF JnlDim.FIND('-') THEN;
  ItemJnlPostLine.RunWithCheck(ItemJnlLine,JnlDim);

  PostedItemDocLine."Item Shpt. Entry No." := ItemJnlLine."Item Shpt. Entry No.";
  PostedItemDocLine.MODIFY;

  JnlDim.DELETEALL;
UNTIL ItemJnlLine.NEXT = 0;

В функцию ItemJnlPostLine.RunWithCheck не передаётся параметр JnlDim. Если не вспомните - может так что посоветуете?