Creating a Transfer Order with item tracking in code

JlT

Hello!

I'm trying to create a Transfer Order with direct transfer in code. I use these functions for handling item tracking (Lot and Serial no.)

TrackingSpecification.InitFromTransLine(.....
TransferLineReserve.CreateReservationSetFrom(.......
TransferLineReserve.CreateReservation(.......

When I try to post the Transfer Order I get an error message like this.


When I look at the transfer header and line table they look identical to a manual created order wich works to post.

Any help to solve this problem would be much appriciated.

JlT

vijay_g

you need to also compare the reservation entries with which you have assigned manually.

try with the below code.


CreateReservEntry.SetDates(0D,0D);
CreateReservEntry.CreateReservEntryFor(DATABASE::"Transfer Line", 0, TransferLine."Document No.",'', 0,
TransferLine."Line No.", TransferLine."Qty. per Unit of Measure", Sale_Qty, Sale_Qty * TransferLine."Qty. per Unit of Measure", '', Lot_No);

CreateReservEntry.CreateEntry(TransferLine."Item No.", TransferLine."Variant Code",
TransferLine."Transfer-from Code", TransferLine.Description, TODAY, TODAY, 0, 2); // 2 - surplus

CurrentSourceRowID := ItemTrackingMgt.ComposeRowID(5741,0,TransferLine."Document No.",'',0,TransferLine."Line No.");

SecondSourceRowID := ItemTrackingMgt.ComposeRowID(5741,1,TransferLine."Document No.",'',0,TransferLine."Line No.");

ItemTrackingMgt.SynchronizeItemTracking(CurrentSourceRowID,SecondSourceRowID,'');

vijay_g

you need to also compare the reservation entries with which you have assigned manually.

try with the below code.


CreateReservEntry.SetDates(0D,0D);
CreateReservEntry.CreateReservEntryFor(DATABASE::"Transfer Line", 0, TransferLine."Document No.",'', 0,
TransferLine."Line No.", TransferLine."Qty. per Unit of Measure", Sale_Qty, Sale_Qty * TransferLine."Qty. per Unit of Measure", '', Lot_No);

CreateReservEntry.CreateEntry(TransferLine."Item No.", TransferLine."Variant Code",
TransferLine."Transfer-from Code", TransferLine.Description, TODAY, TODAY, 0, 2); // 2 - surplus

CurrentSourceRowID := ItemTrackingMgt.ComposeRowID(5741,0,TransferLine."Document No.",'',0,TransferLine."Line No.");

SecondSourceRowID := ItemTrackingMgt.ComposeRowID(5741,1,TransferLine."Document No.",'',0,TransferLine."Line No.");

ItemTrackingMgt.SynchronizeItemTracking(CurrentSourceRowID,SecondSourceRowID,'');

JlT

I still get the same error when trying to use direct transfer, but it works now with a transit location wich is fine by me/us.

Thank you!