Calculate date time and show Ranges

tazzy30
Member Posts: 52
Hello everyone,
I am trying to create a report to show the status of orders at different scanning stations (i.e. order raised, despatched etc) this includes Scan Time, Scan Date, Time Out, Date Range, Time Lapsed, Range of Time Lapses. I have calculated the time lapsed however this does not take into account the days (scan date) if the order had left previous scanning station on a different date.
I have also inserted the following code in order to show a range of dates and times lapsed it works for the Scan date but not for the time lapsed any ideas?
NextTimeFound := FALSE;
orderTrack.SETRANGE("Order No.","Order No.");
IF orderTrack.FIND('-') THEN REPEAT
IF orderTrack."Station No." = "Station No." THEN BEGIN
orderTrack.NEXT(1);
TimeOut := orderTrack."Scan Time";
NextTimeFound := TRUE;
END;
UNTIL (orderTrack.NEXT = 0) OR (NextTimeFound);
TimeLapsed := TimeOut - "Scan Time";
TLapsed := 000000T + TimeLapsed;
IF orderTrack.FIND('-') THEN
FirstDate := orderTrack."Scan Date";
FirstTime := TLapsed;
IF orderTrack.FIND('+') THEN
LastDate := orderTrack."Scan Date";
LastTime := TLapsed;
dateRange := FORMAT(FirstDate)+'..'+FORMAT(LastDate);
LapsedTimeRange := FORMAT(FirstTime)+'..'+FORMAT(LastTime);
I am trying to create a report to show the status of orders at different scanning stations (i.e. order raised, despatched etc) this includes Scan Time, Scan Date, Time Out, Date Range, Time Lapsed, Range of Time Lapses. I have calculated the time lapsed however this does not take into account the days (scan date) if the order had left previous scanning station on a different date.
I have also inserted the following code in order to show a range of dates and times lapsed it works for the Scan date but not for the time lapsed any ideas?
NextTimeFound := FALSE;
orderTrack.SETRANGE("Order No.","Order No.");
IF orderTrack.FIND('-') THEN REPEAT
IF orderTrack."Station No." = "Station No." THEN BEGIN
orderTrack.NEXT(1);
TimeOut := orderTrack."Scan Time";
NextTimeFound := TRUE;
END;
UNTIL (orderTrack.NEXT = 0) OR (NextTimeFound);
TimeLapsed := TimeOut - "Scan Time";
TLapsed := 000000T + TimeLapsed;
IF orderTrack.FIND('-') THEN
FirstDate := orderTrack."Scan Date";
FirstTime := TLapsed;
IF orderTrack.FIND('+') THEN
LastDate := orderTrack."Scan Date";
LastTime := TLapsed;
dateRange := FORMAT(FirstDate)+'..'+FORMAT(LastDate);
LapsedTimeRange := FORMAT(FirstTime)+'..'+FORMAT(LastTime);
0
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
- 116 Navision DOS
- 851 Navision e-Commerce
- 1K NAV Tips & Tricks
- 772 NAV Dutch speaking only
- 617 NAV Courses, Exams & Certification
- 2K Microsoft Dynamics-Other
- 1.5K Dynamics AX
- 320 Dynamics CRM
- 111 Dynamics GP
- 10 Dynamics SL
- 1.5K Other
- 990 SQL General
- 383 SQL Performance
- 34 SQL Tips & Tricks
- 35 Design Patterns (General & Best Practices)
- 1 Architectural Patterns
- 10 Design Patterns
- 5 Implementation Patterns
- 53 3rd Party Products, Services & Events
- 1.6K General
- 1.1K General Chat
- 1.6K Website
- 83 Testing
- 1.2K Download section
- 23 How Tos section
- 252 Feedback
- 12 NAV TechDays 2013 Sessions
- 13 NAV TechDays 2012 Sessions