Item Charge

Comments

• Options

  james_cs Member Posts: 39

  2015-03-24

  Item charges are great and sadly under-implemented. As standard, you can only post item charges from sales or purchase documents. However, it is possible to post an item charge with a well crafted item journal line in code. Here's one I made earlier..

      ItemJnlLine.INIT;
      ItemJnlLine."Item No.":=<"Item No.">;
      ItemJnlLine."Location Code":=ItemEntry."Location Code";
      ItemJnlLine."Inventory Posting Group":=ValueEntry."Inventory Posting Group";
      ItemJnlLine."Source Posting Group":=ValueEntry."Source Posting Group";
      ItemJnlLine."Gen. Bus. Posting Group":=ValueEntry."Gen. Bus. Posting Group";
      ItemJnlLine."Gen. Prod. Posting Group":=ValueEntry."Gen. Prod. Posting Group";
      ItemJnlLine."Item Charge No.":=<"Item Charge">;
      ItemJnlLine."Posting Date":=<"Posting Date">;
      ItemJnlLine."Entry Type":= ItemJnlLine."Entry Type"::Purchase;
      //ItemJnlLine."Source No.":=
      ItemJnlLine."Document No.":= DocNo;
      ItemJnlLine.Quantity:=0;
      ItemJnlLine."Invoiced Quantity":=-<Quantity>;
      ItemJnlLine."Quantity (Base)":=0;
      ItemJnlLine."Invoiced Qty. (Base)":=-<Quantity>;
      ItemJnlLine."Unit Cost":=-<"Purchase Value (LCY)">/<Quantity>;
      ItemJnlLine.Amount := -ROUND(<"Purchase Value (LCY)">,GLSetup."Amount Rounding Precision");
      ItemJnlLine."Applies-to Entry":=ItemEntry."Entry No.";
      ItemJnlLine."Item Shpt. Entry No.":=ItemEntry."Entry No.";
      ItemJnlLine."Shortcut Dimension 1 Code":=ItemEntry."Global Dimension 1 Code";
      ItemJnlLine."Shortcut Dimension 2 Code":=ItemEntry."Global Dimension 2 Code";
      ItemJnlLine."Dimension Set ID":=ItemEntry."Dimension Set ID";
  
      ItenJnlPost.RUN(ItemJnlLine);
  

  
  I also have implementations where we are posting expected item charges but that requires quite a lot more work.
  
  Good luck, and let me know if you have any questions.

  0