Try Microsoft Edge
A fast and secure browser that's designed for Windows 10
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.
Complete code are below:
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 BEGINLotno:= recWhsEntry."Lot No.";IF Lotno='' THEN Lotno:=recWhsEntry."Serial No.";END;
Posted Whse. Receipt Line - OnPostDataItem()
If you guys have some any idea, please help me to resolve it.
Hello! Try to add one more dataitem for Warehouse Entry instead of cicle inside Posted Whse Receipt Line. It should help