Problem in Creating Delivery Note using DI API

Question

i am using DI Api with Delphi Language to Create a Sales Delivery Note based on the sales Order.
But Each time when i add, a new Record gets Created rather than the new Line.
      Document:= IDocuments(FCompany.GetBusinessObject(oDeliveryNotes));
      Document.CardCode         := 'A001'
      Document.Lines.BaseType   := 17;
      Document.Lines.BaseEntry  := 84;
      Document.Lines.BaseLine   := 4;
      Document.Lines.ItemCode := '001A';
      Document.Lines.Quantity := 10;
      Result := FODLN.Add;
In this case,new rows are added each time in the tables ODLN and RDR1.
How to avoid this.As this creates a individual Delivery Note for each time i add than to the Order Number.

Answer 1

HI,
The problem : Do not specify ItemCode if you specify Base document.
So
1st case
Document:= IDocuments(FCompany.GetBusinessObject(oDeliveryNotes));
Document.CardCode := 'A001'
Document.Lines.BaseType := 17;
Document.Lines.BaseEntry := 84;
Document.Lines.BaseLine := 4;
Document.Lines.Quantity := 10;
Result := FODLN.Add;
or
2nd case
Document:= IDocuments(FCompany.GetBusinessObject(oDeliveryNotes));
Document.CardCode := 'A001'
Document.Lines.ItemCode := '001A';
Document.Lines.Quantity := 10;
Result := FODLN.Add;
1st case creates delivery note with only one row with reference to Sales Order
Take care: BaseLine comes from 0
2dn case creates delivery note with only one row WITHOUT reference.
if you have more than one rows, use the
Document.Lines.Add to enter another row
Regards,
J.