Howdy, Stranger!
Categories
- All Categories
- 73 General
- 73 Announcements
- 66.6K Microsoft Dynamics NAV
- 18.7K 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
- 305 Dynamics CRM
- 109 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 993 SQL General
- 384 SQL Performance
- 34 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
- 260 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions
Display calculated data in report but getting last value in every row
Mubasher
Member Posts: 25
Hi i am trying to calculate the sync duration but issue is that its display last value in every row.
IF "WMS Activity Log".FIND('-') THEN REPEAT
IF "WMS Activity Log"."Action Type" = 'SyncStart' THEN BEGIN
CurrentUser := "WMS Activity Log"."User ID";
StartTime := "WMS Activity Log"."Date Time";
IF "WMS Activity Log".FIND('>') THEN
IF "WMS Activity Log"."Action Type" = 'SyncEnd'THEN
If NextUser = CurrentUser then
NextUser := "WMS Activity Log"."User ID";
EndTime := "WMS Activity Log"."Date Time";
TotalDuration := EndTime - StartTime;
END;
UNTIL ("WMS Activity Log".NEXT =0);
IF "WMS Activity Log".FIND('-') THEN REPEAT
IF "WMS Activity Log"."Action Type" = 'SyncStart' THEN BEGIN
CurrentUser := "WMS Activity Log"."User ID";
StartTime := "WMS Activity Log"."Date Time";
IF "WMS Activity Log".FIND('>') THEN
IF "WMS Activity Log"."Action Type" = 'SyncEnd'THEN
If NextUser = CurrentUser then
NextUser := "WMS Activity Log"."User ID";
EndTime := "WMS Activity Log"."Date Time";
TotalDuration := EndTime - StartTime;
END;
UNTIL ("WMS Activity Log".NEXT =0);
0
Best Answers
-
lubost
Member Posts: 627
It is not a good idea to change "WMS Activity Log" pointer inside repeat-until block. Use another record variable or try to change logic.5 -
Mubasher
Member Posts: 25
IF ( "WMS Activity Log"."Action Type" = 'SyncStart') AND (CurrentUser <> "WMS Activity Log"."User ID" ) THEN BEGIN
CLEAR(StartTime);
CLEAR(TotalDuration);
CurrentUser := "WMS Activity Log"."User ID";
StartTime := "WMS Activity Log"."Date Time";
WMSActivityTemp.INIT;
WMSActivityTemp.ID := "WMS Activity Log".ID;
WMSActivityTemp."User ID" := "WMS Activity Log"."User ID";
WMSActivityTemp.TotalDuration := TotalDuration;
WMSActivityTemp."Action Type" := "WMS Activity Log"."Action Type";
WMSActivityTemp.INSERT;
END;
IF ("WMS Activity Log"."Action Type" = 'SyncEnd') AND ("WMS Activity Log"."User ID" = CurrentUser) THEN BEGIN
WMSActivityTemp.INIT;
WMSActivityTemp.ID := "WMS Activity Log".ID;
WMSActivityTemp."User ID" := "WMS Activity Log"."User ID";
WMSActivityTemp.TotalDuration := "WMS Activity Log"."Date Time" - StartTime;
WMSActivityTemp."Action Type" := "WMS Activity Log"."Action Type";
WMSActivityTemp."Device ID" := "WMS Activity Log"."Device ID";
WMSActivityTemp."Date Time" := StartTime;
WMSActivityTemp.Value := "WMS Activity Log".Value;
WMSActivityTemp.INSERT;
CLEAR(CurrentUser);
END;0
Answers
IF ( "WMS Activity Log"."Action Type" = 'SyncStart') AND (CurrentUser <> "WMS Activity Log"."User ID" ) THEN BEGIN
CLEAR(StartTime);
CLEAR(TotalDuration);
CurrentUser := "WMS Activity Log"."User ID";
StartTime := "WMS Activity Log"."Date Time";
WMSActivityTemp.INIT;
WMSActivityTemp.ID := "WMS Activity Log".ID;
WMSActivityTemp."User ID" := "WMS Activity Log"."User ID";
WMSActivityTemp.TotalDuration := TotalDuration;
WMSActivityTemp."Action Type" := "WMS Activity Log"."Action Type";
WMSActivityTemp.INSERT;
END;
IF ("WMS Activity Log"."Action Type" = 'SyncEnd') AND ("WMS Activity Log"."User ID" = CurrentUser) THEN BEGIN
WMSActivityTemp.INIT;
WMSActivityTemp.ID := "WMS Activity Log".ID;
WMSActivityTemp."User ID" := "WMS Activity Log"."User ID";
WMSActivityTemp.TotalDuration := "WMS Activity Log"."Date Time" - StartTime;
WMSActivityTemp."Action Type" := "WMS Activity Log"."Action Type";
WMSActivityTemp."Device ID" := "WMS Activity Log"."Device ID";
WMSActivityTemp."Date Time" := StartTime;
WMSActivityTemp.Value := "WMS Activity Log".Value;
WMSActivityTemp.INSERT;
CLEAR(CurrentUser);
END;