Howdy, Stranger!
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.5K Microsoft Dynamics NAV
- 18.5K NAV Three Tier
- 38.4K NAV/Navision Classic Client
- 3.6K Navision Attain
- 2.4K Navision Financials
- 115 Navision DOS
- 854 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 615 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 269 Dynamics CRM
- 109 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 992 SQL General
- 384 SQL Performance
- 33 SQL Tips & Tricks
- 34 Design Patterns (General & Best Practices)
- Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.7K General
- 1.1K General Chat
- 1.6K Website
- 79 Testing
- 1.2K Download section
- 23 How Tos section
- 259 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions
Options
Problem with loop
foerster
Member Posts: 11
Hi,
I am having a problem with loops. Hope someone can help.
I am writing a dataport to import General Journal Line entries. Every entry is divided into several journal lines. All lines of an entry are identified by the document no. As for some entries I have a VAT difference, I would like the OnPostDataItem trigger to go through every document and to sum up the amounts of all lines referring to a G/L account and to compare the sum with the amount in the line referring to the customer account. If I have a VAT difference the highest of the G/L amounts should be adjusted. Therefore I tried the following:
I am glad for every hint. Thanx already!
Jens
I am having a problem with loops. Hope someone can help.
I am writing a dataport to import General Journal Line entries. Every entry is divided into several journal lines. All lines of an entry are identified by the document no. As for some entries I have a VAT difference, I would like the OnPostDataItem trigger to go through every document and to sum up the amounts of all lines referring to a G/L account and to compare the sum with the amount in the line referring to the customer account. If I have a VAT difference the highest of the G/L amounts should be adjusted. Therefore I tried the following:
FIND('-');
Comparer:='x';
REPEAT
LineNo:="Line No.";
IF "Document No."<>Comparer THEN BEGIN
Comparer:="Document No.";
Max:=0;
Summe:=0;
WHILE "Document No."=Comparer DO BEGIN
IF "Account Type"="Account Type"::Customer THEN BEGIN
InvoiceAmount:=Amount;
END ELSE BEGIN
Summe:=Summe+Amount;
IF ABS(Amount)>Max THEN BEGIN
Max:=ABS(Amount);
MaxLine:="Line No.";
END;
END;
NEXT;
END;
IF InvoiceAmount+Summe<>0 THEN BEGIN
GET('ALLGEMEIN','STANDARD',MaxZeile);
Amount:=Amount-Summe-InvoiceAmount;
VALIDATE(Amount);
"VAT Amount":="VAT Amount"-Summe-InvoiceAmount;
VALIDATE("VAT Amount");
MODIFY;
END;
GET('ALLGEMEIN','STANDARD',LineNo);
END;
UNTIL NEXT=0;
I am glad for every hint. Thanx already!
Jens
0
Comments
FIND('-'); Comparer := "Document No."; Max := 0; MaxLine := 0; Summe := 0; InvoiceAmount := 0; REPEAT IF "Document No." <> Comparer THEN BEGIN IF InvoiceAmount + Summe <> 0 THEN BEGIN LineNo := "Line No."; GET("Journal Template Name","Journal Batch Name",MaxLine); Amount := Amount - Summe - InvoiceAmount; VALIDATE(Amount); "VAT Amount":="VAT Amount" - Summe - InvoiceAmount; VALIDATE("VAT Amount"); MODIFY; GET("Journal Template Name","Journal Batch Name",LineNo); END; Comparer := "Document No."; Max := 0; MaxLine := 0; Summe := 0; InvoiceAmount := 0; END; IF "Account Type" = "Account Type"::Customer THEN InvoiceAmount := Amount; ELSE BEGIN Summe := Summe + Amount; IF ABS(Amount) > Max THEN BEGIN Max := ABS(Amount); MaxLine := "Line No."; END; END; UNTIL NEXT = 0; IF InvoiceAmount + Summe <> 0 THEN BEGIN GET("Journal Template Name","Journal Batch Name",MaxLine); Amount := Amount - Summe - InvoiceAmount; VALIDATE(Amount); "VAT Amount" := "VAT Amount" - Summe - InvoiceAmount; VALIDATE("VAT Amount"); MODIFY; END;works perfect! Many, many thanks. You saved my day!!!
I kept on thinking about that problem all day. ](*,)
Jens