Displaying Serial numbers of Items

vikki
vikki Member Posts: 28
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
Thanks

Comments

  • Belias
    Belias Member Posts: 2,998
    I didn't understand you very well...you want serial nos in the printout or in the form while you are inserting lines?
    -Mirko-
    "Never memorize what you can easily find in a book".....Or Mibuso
    My Blog
  • vikki
    vikki Member Posts: 28
    Hi Belias,

    Actually I was looking on Inserting lines on the form, tell me is there any way to display on printout.
    Thanks
  • themave
    themave Member Posts: 1,058
    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."