Attendance System for check in & check out

[azzamnizam]

Dear All PowerApps Dev.

I am looking for someone can help me to build an attendance system using PowerApps, I'm really need help for this apps that will make all progress run smoothly.
Function Required:-

• Have a list all staff,
• Every morning each staff will click check in to represent the staff arrive in certain time and date, when time to go back the staff will check out in certain time and date,
• Every thing need to be recorded,
• For staff with no check in and check out for that day means the staff was absense,
• Admin can monitor all staff IN and OUT everyday.

Thank You

AzzamNizam

[chudson002]

This was an awesome starting  point as I am creating the same process.  Struggled getting started (new to PowerApps) and came across this solution.  It gets me 60% completed,  instructions were easy to follow and shaved off 3 days of development time.... ahead of schedule for deployment...Thanks!!!! 

[rafaelbenicio]

I'll share all the details if I get it working. 😄 But it has been tuff days trying to get the right logic and compare geolocations. 

Good luck!

[chudson002]

@v-xida-msft 

When adding - Comments.TextInput1.Text...(Pulled Comments column from system columns in SharePoint) red lines appear from Patch down to the last parenthesis.   Without it, code works perfectly.  Additionally,  there is a Choice column selection that needs to flow back to SharePoint as well.  Any advice?  Results needs to be when Sign-in button is clicked, it will also send to SharePoint any Comments and selected choice from drop down.

Set(
      CurrentCheckedInRecord,
      Patch(
        Telework,  
         Defaults(Telework),
         {
         Employee1: User().FullName,
         SignIn: Now()
         Comments: TextInput1.Text
         }
     )
);
Navigate(CheckInSuccess,ScreenTransition.Cover)

[rafaelbenicio]

Does anyone know why my check out button keeps adding another line on SharePoint while checking out? Is there anything wrong with the expression?

Refresh(CheckInCheckOut);
If(
    !IsBlank(LookUp(CheckInCheckOut,PersonalEmail=Office365Users.MyProfile().Mail && Text(Created,"[$-en-US]mm/dd/yyyy")=Text(Now(),"[$-en-US]mm/dd/yyyy"))) 
    &&
     Abs(Value(FALatLabel.Text)- Value(DeviceLatLabel.Text)) <= 0.0005000
    && 
    Abs(Value(FALongLabel.Text) - Value(DeviceLogLabel.Text)) <= 0.0005000,

    Patch(
      CheckInCheckOut,
       LookUp(CheckInCheckOut,PersonalEmail=Office365Users.MyProfile().Mail && Text(Created,"[$-en-US]mm/dd/yyyy")=Text(Now(),"[$-en-US]mm/dd/yyyy")),
       {
        Check_x0020_Out: Now()
       }
     );Navigate(Screen3,ScreenTransition.Fade)
,Notify("You are not at the destination location, please go the destination location and check out", NotificationType.Error)
)

Here is an example of the issue:

 

Thank you!

[Benmo33]

is it possible to add user location? @WarrenBelz 

[Benmo33]

Very helpful information, would it possible to collect user Location as well? 

Your help is greatly appreciated!

[rafaelbenicio]

@Benmo33 , definitely man! Here is what I have for both options Check-in and Check-out button. 

Check-In 'On Select'

If(
       Abs(Value(FALatLabel.Text)- Value(DeviceLatLabel.Text)) <= 0.0005000
    && 
    Abs(Value(FALongLabel.Text) - Value(DeviceLogLabel.Text)) <= 0.0005000,
        
        Patch(
         CheckInCheckOut,
         Defaults(CheckInCheckOut),
        {
         Title: "Check In&Out",
         PersonalName: User().FullName,
         PersonalEmail: User().Email,
         Check_x0020_In: Now()
        }
   );Navigate(Screen2,ScreenTransition.Fade),
Notify("You are not at the destination location, please go the destination location and check in",NotificationType.Error)
)

Check-Out 'On Select'

Refresh(CheckInCheckOut);
If(
    !IsBlank(LookUp(CheckInCheckOut,PersonalEmail=Office365Users.MyProfile().Mail && Text(Created,"[$-en-US]mm/dd/yyyy")=Text(Now(),"[$-en-US]mm/dd/yyyy"))) 
    &&
     Abs(Value(FALatLabel.Text)- Value(DeviceLatLabel.Text)) <= 0.0005000
    && 
    Abs(Value(FALongLabel.Text) - Value(DeviceLogLabel.Text)) <= 0.0005000,

    Patch(
      CheckInCheckOut,
       LookUp(CheckInCheckOut,PersonalEmail=Office365Users.MyProfile().Mail && Text(Created,"[$-en-US]mm/dd/yyyy")=Text(Now(),"[$-en-US]mm/dd/yyyy")),
       {
        Check_x0020_Out: Now()
       }
     );Navigate(Screen3,ScreenTransition.Fade)
,Notify("You are not at the destination location, please go the destination location and check out", NotificationType.Error)
)

You can replace the number 0.0005000 to anything you want depending on your location range.  Remember that I might be using different field names and labels than you.  

Hope that makes sense. 

Cheers!

[Benmo33]

Thanks a lot for you quick response, is it possible just to collect their GPS location data?

[Benmo33]

@rafaelbenicio thanks a lot for your quick response, my goal is to collect User's GPS data Location. thank you

[rafaelbenicio]

Have you tried to use expressions like Location.Latitude and Location.Longitude?