How to insert a 2nd line in the salesline table

mgerhartz

Hi again,

I've created some new invoices through a report. Now I want to change the content of the salesline in that way, that I will have a text on two lines instead of one line. I wrote the following code:

  SalesLine_Rec.INIT;
  SalesLine_Rec."Document Type" := SalesLine_Rec."Document Type"::Invoice;
  SalesLine_Rec."Gen. Bus. Posting Group" := Customer_Rec."Gen. Bus. Posting Group";
  SalesLine_Rec."Document No." := SalesHeader_Rec."No.";
  SalesLine_Rec."Line No." := 10000;
  SalesLine_Rec.VALIDATE(Description, BuHaPauschale2005.Beschreibung);
  SalesLine_Rec.Type := SalesLine_Rec.Type::"G/L Account";
  SalesHeader_Rec.VALIDATE("No.",BuHaPauschale2005.Konto);
  //SalesLine_Rec.VALIDATE("No.", FORMAT(1370));
  SalesLine_Rec.VALIDATE(Quantity, 1);
  SalesLine_Rec.VALIDATE("Unit Price", BuHaPauschale2005.Betrag);
  SalesLine_Rec.INSERT; 

What kind of code do I have to insert to write text in the 2nd line?
Thanks for your help!

kriki

// Line 1
  CLEAR(SalesLine_Rec); // Clear clears also filters and keyfields
  SalesLine_Rec."Document Type" := SalesLine_Rec."Document Type"::Invoice;
  SalesLine_Rec."Document No." := SalesHeader_Rec."No.";
  SalesLine_Rec."Line No." := 10000;
  SalesLine_Rec.VALIDATE(Type,SalesLine_Rec.Type::"G/L Account");
  SalesLine_Rec.VALIDATE("No.",BuHaPauschale2005.Konto);
  SalesLine_Rec.VALIDATE(Description, BuHaPauschale2005.Beschreibung);
// NO NEED. it is taken from the header    SalesLine_Rec."Gen. Bus. Posting Group" := Customer_Rec."Gen. Bus. Posting Group";
  SalesLine_Rec.VALIDATE(Quantity, 1);
  SalesLine_Rec.VALIDATE("Unit Price", BuHaPauschale2005.Betrag);
  SalesLine_Rec.INSERT(TRUE); 

  // Line 2
  SalesLine_Rec.INIT // INIT does NOT clear keyfields
  SalesLine_Rec."Line No." += 10000;
  SalesLine_Rec.VALIDATE(Type,SalesLine_Rec.Type::" ");
  SalesLine_Rec.VALIDATE(Description, BuHaPauschale2005."Beschreibung 2");
  SalesLine_Rec.INSERT(TRUE);

mgerhartz

Thanks again, I will check this out.