Stacked Calendar

Id                  TEXT(6)/UPPERCASE
PersonName          TEXT(200)
StartOfWeek         NUMBER(1)
WeekLength          NUMBER(1)
MinutesIncrements   NUMBER(3)

ForDay              DATE
PersonId            TEXT(6)/UPPERCASE
ScheduleDuration    NUMBER(4)
RemainingJob        NUMBER(4)
RemainingWage       NUMBER(4)
Status              TEXT(200)
Note                TEXT(2000)

ForDay              DATE
PersonId            TEXT(6)/UPPERCASE
JobMinutes          NUMBER(4)
Project             TEXT(10)/UPPERCASE
SubProject          TEXT(10)/UPPERCASE
Activity            TEXT(10)/UPPERCASE
Description         TEXT(2000)

ForDay              DATE
PersonId            TEXT(6)/UPPERCASE
WageMinutes         NUMBER(4)
WageType            ENUMERATION(WageType)
Description         TEXT(2000)

Overtime
ExtraTime
Increment
Absence
BalanceAccural
BalanceWithdrawal
Information
Normal

----------------------------- MAIN ENTRY POINTS -----------------------------
entityset Persons for Person;
entityset DayInfos for DayInfo;
entityset AttendanceItems for AttendanceItem;
entityset ReportItems for ReportItem;
------------------------------ ENTITY DETAILS -------------------------------
@Override
entity Person {
   array ReportItemsArray(Id) to ReportItem(PersonId);
   array DayInfosArray(Id) to DayInfo(PersonId);
   array AttendanceItemsArray(Id) to AttendanceItem(PersonId);
}

stackedcalendar TimeReporting for Person {
    ...
    daysinfo for DayInfo using DayInfosArray {
        ...
    }
    reports for ReportItem using ReportItemsArray {
        ...
    }
    attendance for AttendanceItem using AttendanceItemsArray {
        ...
    }
    progressarea for AttendanceItem using AttendanceItemsArray {

    }
    ...
}

statuses {
         status "" {
            label = "Authorized";
            expression = [Status = "Authorized"];
            color = Complementary1;
         }
         status "" {
            label = "Confirmed";
            expression = [Status = "Confirmed"];
            color = Complementary2;
         }
         status "" {
            label = "Completed";
            expression = [Status = "Completed"];
            color = Complementary3;
         }
         status "" {
            label = "Not Completed";
            expression = [true];
         }
      }

edit command {
    icon = "document";
    label = "Edit Note";
    enabled = [Status = "Not Confirmed"];
    visible = [Status != "Authorized"];

    execute {
        dialog ModifyNoteDialog(PersonId, ForDay, Note) into(PersonId, ForDay, Note) {
            when OK {
                call ModifyNote(PersonId, ForDay, Note);
            }
        }
    }
}

indication {
    emphasis Complementary3 = [Activity = "TIMEREP"];
    emphasis Complementary4 = [Activity = "A1"];
    emphasis Complementary5 = [true];
}

grouping {
    primary Project {
        emphasis Complementary1 = [Project = "Project1"];
        emphasis Complementary2 = [Project = "Project2"];
    }
    secondary SubProject {
        emphasis Complementary3 = [SubProject = "Sub1"];
        emphasis Complementary4 = [SubProject = "Sub2"];
        emphasis Complementary5 = [true];
    }
}

types {
    controlling WageType;
    report Absence, BalanceWithdrawal;
    wage Absence, BalanceWithdrawal, Normal, Overtime, ExtraTime, BalanceAccural {
        emphasis Neutral = [Attendance.WageType = "Absence" or Attendance.WageType = "BalanceWithdrawal"];
        emphasis Complementary5 = [Attendance.WageType = "Normal"];
        emphasis Complementary9 = [Attendance.WageType = "Overtime" or Attendance.WageType = "ExtraTime" or Attendance.WageType = "BalanceAccural"];
    }
    info BalanceWithdrawal, Overtime, ExtraTime, BalanceAccural, Information, Increment;
}

progressarea for AttendanceItem using AttendanceItemsArray {
      label = "Reported hours for week";
      controlling WageType;
      value Normal {
         label = "Normal";
         emphasis Complementary3 = [true];
      }
      value ExtraTime, Overtime {
         label = "Overtime";
         emphasis Complementary9 = [true];
      }
      value Absence, BalanceWithdrawal {
         label = "Absence";
         emphasis Default = [true];
      }
      value MissingWage {
         label = "Missing Wage";
         emphasis Complementary1 = [true];
      }
      value LeftToReport {
         label = "Left To Report";
         emphasis Complementary2 = [true];
      }
   }

singleton SummarySingleton for SummaryData {
}

page StackedCalendarPage using Persons {
   selector PersonSelector;
   singleton SummarySingleton using GetSummaryData(component.TimeReporting.Date);
   group SummaryGroup bind SummarySingleton;
   stackedcalendar TimeReporting;
}

group SummaryGroup for SummaryData {
    field Attribute1;
    ...
}

function GetSummaryData List<Structure(SummaryData)> {
   parameter DateFrom Date;
}

structure SummaryData {
   attribute Attribute1 Text;
   ...
}

FUNCTION Get_Summary_Data___(
   date_from_ IN DATE )  RETURN Summary_Data_Arr
IS
   rec_arr_ Summary_Data_Arr := Summary_Data_Arr();
   rec_ Summary_Data_Rec;
BEGIN
   -- Use date_from_ variable to fill rec_ with the needed values

   rec_arr_.extend;
   rec_arr_(rec_arr_.last):=rec_;
   RETURN rec_arr_;
END Get_In_Out_Date_Str___;