Displaying Serial numbers of Items

vikki

Hi,

While creating items I have assigned serial numbers to all items,

my question is How to display these serial numbers in the invoice,

Eg: An item "Ball" with serial numbers code "BALL"(Starting Num BL0001)
while invoicing when I select this item with quantity as 2 I should also get serial nos BL001,BL002.

Please tell me How to display these Nos in the invoice

Belias

I didn't understand you very well...you want serial nos in the printout or in the form while you are inserting lines?

vikki

Hi Belias,

Actually I was looking on Inserting lines on the form, tell me is there any way to display on printout.

themave

vikki wrote:

Hi Belias,

Actually I was looking on Inserting lines on the form, tell me is there any way to display on printout.

we had this programmed for us,

on the sales invoice report

interger section


//BT03.13 Display serial numbers below Item Lines

Integer - OnPreDataItem()
//BT03.13 Start
TempItemLedgerEntry.DELETEALL;
CLEAR(NumberOfTrackLines);
IF (TempSalesInvoiceLine.Type = TempSalesInvoiceLine.Type::Item) AND
(TempSalesInvoiceLine."No." <> '')
THEN
ItemTrackingMgt.CollectItemEntries(
DATABASE::"Sales Invoice Line",
0,TempSalesInvoiceLine."Document No.",'',0,
TempSalesInvoiceLine."Line No.",TempItemLedgerEntry);

NumberOfTrackLines := TempItemLedgerEntry.COUNT;
SETRANGE(Number,1,NumberOfTrackLines);
OnTrackLineNumber := 0;
//BT03.13 Finish

Integer - OnAfterGetRecord()
//BT03.13 Start
OnTrackLineNumber := OnTrackLineNumber + 1;

WITH TempItemLedgerEntry DO BEGIN
IF OnTrackLineNumber = 1 THEN
FIND('-')
ELSE
NEXT;
END;

IF TempItemLedgerEntry."Serial No." = '' THEN CurrReport.SKIP;
//BT03.13 Finish

then on the report section put the field with the source expression

'Serial No.' + ' ' + TempItemLedgerEntry."Serial No."