Dynamics Community Forum Thread Details

Report Printing Problems.

Dear All,

I have develop the report for barcode printing. In this report if in line section have 5 different item then 5 different print will come. It is working fine as well as with no. of copies option.

Now, my new requirement is if in any item have multiple lot like 5 or 6 lot. How it will be possible to print the same item with different lot no.(5 copy/6 copy.) I have attached the screenshots.

1212.uu.png

Complete code are below:

Documentation()

OnInitReport()

OnPreReport()

OnPostReport()

Posted Whse. Receipt Header - OnPreDataItem()

Posted Whse. Receipt Header - OnAfterGetRecord()
NoOfLoops :=0;
IF "Posted Whse. Receipt Header"."Location Code"='101' THEN
Bottom := 4.5;

Posted Whse. Receipt Header - OnPostDataItem()

CopyLoop - OnPreDataItem()
SETRANGE(Number, 1, NoOfCopies);

CopyLoop - OnAfterGetRecord()

CopyLoop - OnPostDataItem()

Posted Whse. Receipt Line - OnPreDataItem()

Posted Whse. Receipt Line - OnAfterGetRecord()
RecItem.RESET;
RecItem.SETRANGE("No.","Posted Whse. Receipt Line"."Item No.");
IF RecItem.FIND('-') THEN BEGIN
txtItem:=RecItem.Description;
END;

recWhsEntry.RESET;
recWhsEntry.SETRANGE("Entry Type",recWhsEntry."Entry Type"::"Positive Adjmt.");
recWhsEntry.SETRANGE("Whse. Document No.","Posted Whse. Receipt Line"."No.");
recWhsEntry.SETRANGE("Source Line No.","Posted Whse. Receipt Line"."Source Line No.");
recWhsEntry.SETRANGE("Source No.","Posted Whse. Receipt Line"."Source No.");

IF recWhsEntry.FINDFIRST THEN BEGIN
Lotno:= recWhsEntry."Lot No.";
IF Lotno='' THEN
Lotno:=recWhsEntry."Serial No.";
END;

Posted Whse. Receipt Line - OnPostDataItem()

Layout is