Import flat file to create invoices in BC

samantha73

Hi Guys
I have looked at below NAV thread to get ideas on how to import a flat file and create invoices to BC
https://forum.mibuso.com/discussion/52828/xmlport-flat-file-import-header-line-on-one-line

So my file is imported to a staging table and external number is used as unique key since auto numbering of invoices

Ext_No Cust_No Item_No
123 Cust1 Item1
123 Cust1 Item2
124 Cust2 Item3

Now I want to loop through the records and create one invoice per ext doc no combining items

This is the code I tried but goes into an endless loop
var
SalesHeader: Record "Sales Header";
SalesLine: Record "Sales Line";
SalesImportLine: record U_ImportStagingLine;

Begin
if SalesImportLine.FindSet() then
repeat
SalesImportLine.Setfilter(U_ExternalDocumentNo, '<>%1', SalesHeader."External Document No.");//check exist
if SalesImportLine.FindFirst() then begin
Clear(SalesHeader);
SalesHeader.Init;
SalesHeader.VALIDATE("Document Type", SalesHeader."Document Type"::Invoice);
SalesHeader.validate("Sell-to Customer No.", SalesImportLine.U_BillToCustomerNo);
SalesHeader.INSERT(TRUE);
end;
until SalesImportLine.Next() = 0;
end;