Purch. Lines Combine based on No. And Type

kenjes · 2016-01-13

Hi

Is there a function or a simple way to combine purchase lines based on "No." and "Type" values.

Thanks

Regards Kenneth

mohana_cse06 · 2016-01-13

in report or page itself?
There is no such function.

kenjes · 2016-01-13

On a page

mohana_cse06 · 2016-01-13

as I said, there is no such function

kenjes · 2016-01-13

Okay, can you send me in the right direction...

Some code ideas

Thanks

postsaurav · 2016-01-14

Hi,
purchase lines based on "No." and "Type"

Just a thought -
Create a Text Variable Say - NoandType on Purchase Order Subform.

Add That in Page Designer and remove No. and Type.

In OnAfterGetRecord you can write -

NoandType := Format(Type) + ' ' + Format("No.");

Hope this gives an Idea

kenjes · 2016-01-14

Hi - and thanks for your feedback

I have done this code for the purpose :

PurchaseLineOrg.SETCURRENTKEY("Document No.","Document Type","No.");
PurchaseLineOrg.SETFILTER(PurchaseLineOrg."Document No.", Rec."No.");
tmpItemNo       := '';
tmpLineNo       := 10000000;

IF PurchaseLineOrg.FINDSET THEN BEGIN
  REPEAT 
    IF PurchaseLineOrg.Type <> PurchaseLineOrg.Type::" " THEN BEGIN
      IF tmpItemNo <> PurchaseLineOrg."No." THEN BEGIN
        tmpItemNo := PurchaseLineOrg."No.";
        tmpLineNo := tmpLineNo + 10;
        PurchaseLineCombined := PurchaseLineOrg; 
        PurchaseLineCombined."Line No."           := tmpLineNo;
        PurchaseLineCombined.Quantity             := 1;
        PurchaseLineCombined."Line Amount"        := PurchaseLineOrg."Line Amount";
        PurchaseLineCombined."Direct Unit Cost"   := PurchaseLineOrg."Line Amount";
        IF PurchaseLineCombined.INSERT THEN;
      END ELSE BEGIN
          PurchaseLineCombined."Direct Unit Cost" := PurchaseLineCombined."Direct Unit Cost" + (PurchaseLineOrg."Line Amount");      
          PurchaseLineCombined."Line Amount"      := PurchaseLineCombined."Line Amount" + (PurchaseLineOrg."Line Amount");   
          PurchaseLineCombined.MODIFY;
      END;
    END;
  UNTIL PurchaseLineOrg.NEXT = 0 ;
END;

PurchaseLineOrg.SETFILTER(PurchaseLineOrg."Document No.", Rec."No.");
IF PurchaseLineOrg.FINDSET(TRUE) THEN BEGIN
  REPEAT
    PurchaseLineOrg.DELETE;  
  UNTIL PurchaseLineOrg.NEXT = 0;
END;

PurchaseLineCombined.SETFILTER(PurchaseLineCombined."Document No.", Rec."No.");
IF PurchaseLineCombined.FINDSET(TRUE) THEN BEGIN
  REPEAT 
    PurchaseLineOrg := PurchaseLineCombined;
    PurchaseLineOrg.VALIDATE(PurchaseLineOrg."Direct Unit Cost");
    IF PurchaseLineOrg.INSERT THEN;
  UNTIL PurchaseLineCombined.NEXT = 0 ;
END;

Local Variables :
PurchaseLineOrg Record Purchase Line
PurchaseLineCombined Record Purchase Line
tmpItemNo Text
tmpLineNo Integer

I am a little newbie into NAV C/al.
Does this code seem to be okay - or can it be compressed more, or done in another way ?

THANKS

mohana_cse06 · 2016-01-14

PurchaseLineCombined."Direct Unit Cost" := PurchaseLineCombined."Direct Unit Cost" + (PurchaseLineOrg."Line Amount");
PurchaseLineCombined."Line Amount" := PurchaseLineCombined."Line Amount" + (PurchaseLineOrg."Line Amount");
PurchaseLineCombined.MODIFY;

It seems you have added only few fields and what about other fields like Quantity and discounts etc.?

kenjes · 2016-01-14

Quantity is set to 1.
Thats why adding Amount to lines with same ItemNo.
All other fields is not nessecarry for now - the purpose is to have 1 line per Item, that kan be modified manually with job no, job task and so on

Purch. Lines Combine based on No. And Type

Answers

Categories