Purch. Lines Combine based on No. And Type

kenjes

Hi

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

Thanks




Regards Kenneth

mohana_cse06

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

kenjes

On a page

mohana_cse06

as I said, there is no such function

kenjes

Okay, can you send me in the right direction...
Some code ideas

Thanks

postsaurav

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

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

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

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