cancel
Showing results for 
Search instead for 
Did you mean: 
Reply
Anonymous
Not applicable

Leave Template - Include half day option

I have modified the Leave Template for a team within my company and this is working successfully. However, they require the ability to be able to book a half day's leave. I have looked at several posts within here asking the same question and have tried some of the recommended solutions but absolutely none of them work! This is the most recent one I tried but see that the person that raised it never got any further response when it didn't work for them either:

 

https://powerusers.microsoft.com/t5/Building-Power-Apps/My-leave-request-template-Balance-Add-Select...

 

I understand that the calculation will need to be added under the start date picker but just cannot get anything to work.

 

I would really appreciate some guidance as I've spent hours on trying to find a solution.

 

Thank you in anticipation.

20 REPLIES 20

Yes

 5.JPG

4.JPG

 

but i have problem same you

 

6.JPG

Hi there @ofmano89 

Did you get it right? I am also facing the same issue.

Total time requested values are staying the same.

If you had a breakthrough, may you kindly assist?

 

Thanks

Anonymous
Not applicable

Thank you to everyone who took the time to respond to my post. I had to give up in the end as I could not get the half day option to work and have spent so much time trying to find a solution.

In the end I created a very simple app based on 2 Sharepoint lists and which is connected to a workflow which deals with approval and also cancellation of leave to update entitlement balances.

 

The annual leave template was nice on the face of it but sometimes less is more and what I have done is working so far for the team that required it.

On top of code suggested by @v-bofeng-msft , you will have to make a few more modifications. I managed to get it working fully. Below are the changes needed:

1. Add 2 more columns to the list: StartDateMeridian, & EndDateMeridian. Both of type string

 

2. HomeScreen: GalleryRequests ->OnSelect

Set(_selectedLeaveItem, ThisItem);

If(_managerView,
//If manager view, get user's leave balance record and determine any overlaps this request has from other people I manage
Set(_requesterBalanceRecord, LookUp(Balance, Year = Text(Year(Now())) && EmployeeEmail = ThisItem.Requester));
ClearCollect(RequestOverlaps, Filter(Leave, EndDate >= _selectedLeaveItem.StartDate && StartDate <= _selectedLeaveItem.EndDate
&& Requester <>_selectedLeaveItem.Requester));

If(CountRows(RequestOverlaps) > 0, Set(_requestOverlapMessage, Concat(Distinct(RequestOverlaps, Requester), Result, ", ")))
);

Concurrent(
//gather requester or approver info depending on view
If(_managerView,
Set(_requester, Office365Users.UserProfile(ThisItem.Requester)),
Set(_selectedApprover, Office365Users.UserProfile(ThisItem.Approver)); If(Office365Users.UserPhotoMetadata(_selectedApprover.Id).HasPhoto, Set(_selectedApproverPhoto, Office365Users.UserPhoto(_selectedApprover.Id)))),
//**** CALCULATION USED TO DETERMINE TOTAL WORK DAYS REQUESTED ****
Set(_inclusiveTotalDaysRequested, DateDiff(ThisItem.StartDate, ThisItem.EndDate, Days) + 1);
Set(_numFullWeeks, RoundDown(_inclusiveTotalDaysRequested / 7, 0));
Set(_numFullDaysPartialWeek, _inclusiveTotalDaysRequested - _numFullWeeks * 7);
Set(_startWeekday, Weekday(ThisItem.StartDate));
Set(_endWeekday, Weekday(ThisItem.EndDate));


//calculates the number of business days in the partial week left over after whole weeks are subtracted out of total days requested
If(_numFullDaysPartialWeek = 6,
If(_startWeekday <= 2, Set(_numPartialWeekdays, 5), Set(_numPartialWeekdays, 4)
),
_numFullDaysPartialWeek = 5,
If(_startWeekday = 2, Set(_numPartialWeekdays, 5), _startWeekday = 1 || _startWeekday = 3 || _startWeekday = 4, Set(_numPartialWeekdays, 4), Set(_numPartialWeekdays, 3)
),
_numFullDaysPartialWeek = 4,
If(_startWeekday = 2 || _startWeekday = 3, Set(_numPartialWeekdays, 4), _startWeekday = 1 || _startWeekday = 4, Set(_numPartialWeekdays, 3), Set(_numPartialWeekdays, 2)
),
_numFullDaysPartialWeek = 3,
If(_startWeekday = 6 || _startWeekday = 7, Set(_numPartialWeekdays, 1), _startWeekday = 1 || _startWeekday = 5, Set(_numPartialWeekdays, 2), Set(_numPartialWeekdays, 3)
),
_numFullDaysPartialWeek = 2,
If(_startWeekday = 7, Set(_numPartialWeekdays, 0), _startWeekday = 1 || _startWeekday = 6, Set(_numPartialWeekdays, 1), Set(_numPartialWeekdays, 2)),
_numFullDaysPartialWeek = 1,
If(_startWeekday = 1 || _startWeekday = 7, Set(_numPartialWeekdays, 0), Set(_numPartialWeekdays, 1)
),
_numFullDaysPartialWeek = 0, Set(_numPartialWeekdays, 0)
);
Set(_workDaysInRequest, _numFullWeeks * 5 + _numPartialWeekdays),
Set(_holidaysInRequest, CountIf(Holidays, StartDate >= ThisItem.StartDate, StartDate <= ThisItem.EndDate)),
Set(_isHalfDay,If(ThisItem.StartDateMeridian = ThisItem.EndDateMeridian, true, false))
);
Set(_requestedDays,If(_isHalfDay, _workDaysInRequest - _holidaysInRequest-0.5,_workDaysInRequest - _holidaysInRequest));
//**** END CALCULATION ****
Set(_showDetails, true);

 

3. NewRequestScreen->OnVisible

Reset(Radio1ForLeaveStartDatePicker);
Reset(Radio2ForLeaveEndDatePicker);
Concurrent(
Select(LeaveStartDatePicker),
Set(_navMenuSelect, ""),
If(!_editingRequest && !_changingApprover,
Set(_leaveStart, Today());
Set(_leaveEnd, Today());
Set(_leaveTitle, "");
Set(_leaveDetail, "");
Reset(LeaveEndDatePicker);
Reset(LeaveStartDatePicker);
Reset(TextInput1);
Reset(TextInput1_1);
Set(_selectedApprover, Office365Users.Manager(_myProfile.Id));
Set(_leaveStartMeridian,"AM");
Set(_leaveEndMeridian,"AM");
Set(_selectedApproverPhoto,
If(Office365Users.UserPhotoMetadata(_selectedApprover.Id).HasPhoto, Office365Users.UserPhoto(_selectedApprover.Id))
)
,
_editingRequest && !_changingApprover,
Set(_selectedApprover, Office365Users.UserProfile(GalleryRequests.Selected.Approver));
Set(_selectedApproverPhoto, Office365Users.UserPhoto(GalleryRequests.Selected.Approver));
Set(_leaveStart, GalleryRequests.Selected.StartDate);
Set(_leaveEnd, GalleryRequests.Selected.EndDate);
If(_leaveEnd < Today(), Notify("This event occurred in the past and cannot be resubmitted without first changing the dates", NotificationType.Warning));
Set(_selectedLeaveType, GalleryRequests.Selected.LeaveType);
Set(_leaveTitle, GalleryRequests.Selected.Title);
Set(_leaveDetail, GalleryRequests.Selected.Detail);
Set(_leaveStartMeridian, GalleryRequests.Selected.StartDateMeridian);
Set(_leaveEndMeridian, GalleryRequests.Selected.EndDateMeridian);
)
);
Set(_changingApprover, false)

 

4. ConfirmationScreen-> OnVisible

 

If(
_submittingRequest,
Concurrent(
Set(
_navMenuSelect,
""
),
//if editing a request, revise the record that is being edited, otherwise create a new one
Patch(
Leave,
If(
_editingRequest,
LookUp(
Leave,
LeaveID = GalleryRequests.Selected.LeaveID
),
Defaults(Leave)
),
{
Title: TextInput1.Text,
Detail: TextInput1_1.Text,
StartDate: LeaveStartDatePicker.SelectedDate,
EndDate: LeaveEndDatePicker.SelectedDate,
LeaveType: _selectedLeaveType,
Approver: _selectedApprover.UserPrincipalName,
Status: "Pending",
Requester: _myProfile.UserPrincipalName,
StartDateMeridian:Radio1ForLeaveStartDatePicker.Selected.Value,
EndDateMeridian:Radio2ForLeaveEndDatePicker.Selected.Value,
LeaveID: If(
_editingRequest,
GalleryRequests.Selected.LeaveID,
Text(
Now(),
DateTimeFormat.LongDateTime24
) & _myProfile.UserPrincipalName
)
}
),
//create email template data specific to the request
ClearCollect(
TemplateData,
{
Field: "{SubmitterName}",
Data: _myProfile.DisplayName
},
{
Field: "{LeaveType}",
Data: _selectedLeaveType
},
{
Field: "{LeaveTitle}",
Data: TextInput1.Text
},
{
Field: "{LeaveDescript}",
Data: TextInput1_1.Text
},
{
Field: "{LeaveStart}",
Data: Text(
LeaveStartDatePicker.SelectedDate,
"[$-en-US]mmm. dd, yyyy"
)
},
{
Field: "{LeaveEnd}",
Data: Text(
LeaveEndDatePicker.SelectedDate,
"[$-en-US]mmm. dd, yyyy"
)
}
)
);
//substitute template data values for placeholder
ForAll(
TemplateData,
Patch(
EmailTemplate,
First(EmailTemplate),
{
Value: Substitute(
First(EmailTemplate).Value,
Field,
Data
)
}
)
);
//send email with email template
Office365Outlook.SendEmailV2(
_selectedApprover.UserPrincipalName,
"New Leave Request",
First(EmailTemplate).Value,
{Importance: "Normal"}
);

//reset all user nput fields
Set(
_submittingRequest,
false
);
Set(
_leaveStart,
Today()
);
Set(
_leaveEnd,
Today()
);
Set(
_leaveTitle,
""
);
Set(
_leaveDetail,
""
);
Set(
_selectedLeaveType,
Blank()
);
Reset(TextInput1);
Reset(TextInput1_1);
//reset email template to placeholder values when finished (see phone version for an alternate method of doing this)
ClearCollect(
EmailTemplate,
"<html>
<head>
<meta http-equiv=""Content-Type"" content=""text/html; charset=us-ascii"">
</head>
<body>
<p>
There is a leave request from: {SubmitterName} pending your approval. <ul><li>Type: {LeaveType}</li><li>Title: {LeaveTitle}</li><li>Description: {LeaveDescript}</li><li>Start Date: {LeaveStart}</li><li>End Date: {LeaveEnd}</li>" & "</p>
</body>
</html>"
);

)

 

 

zmm14
Helper III
Helper III

Hi I did all this and cant get it to work

zmm14_0-1624955238069.png

 

zmm14_1-1624955316706.png

 

After adding the 2 columns to datasource, refresh it and the error will go.

Hello there,

The patch function on number 4 of the provided code is throwing an error:

"This type of argument 'LeaveType' does not match the expected type 'Text'. Found type error"

Dovetail_1-1626379998805.png

May you please assist on how to get rid of this error.

 

Thank you

HI Moreshwar, On what sheet of the datasourse do I add the twocolumns?

Hello SHewson - Add the columns in Leave worksheet.

Hello Dovetail - Check your _leaveTypeVariable, it should be of type text. For testing you may want to hardcode values and tryout.

Helpful resources

Announcements

Community will be READ ONLY July 16th, 5p PDT -July 22nd

Dear Community Members,   We'd like to let you know of an upcoming change to the community platform: starting July 16th, the platform will transition to a READ ONLY mode until July 22nd.   During this period, members will not be able to Kudo, Comment, or Reply to any posts.   On July 22nd, please be on the lookout for a message sent to the email address registered on your community profile. This email is crucial as it will contain your unique code and link to register for the new platform encompassing all of the communities.   What to Expect in the New Community: A more unified experience where all products, including Power Apps, Power Automate, Copilot Studio, and Power Pages, will be accessible from one community.Community Blogs that you can syndicate and link to for automatic updates. We appreciate your understanding and cooperation during this transition. Stay tuned for the exciting new features and a seamless community experience ahead!

Summer of Solutions | Week 4 Results | Results posted on July 24th

We are excited to announce the Summer of Solutions Challenge!   This challenge is kicking off on Monday, June 17th and will run for (4) weeks.  The challenge is open to all Power Platform (Power Apps, Power Automate, Copilot Studio & Power Pages) community members. We invite you to participate in a quest to provide solutions in the Forums to as many questions as you can. Answers can be provided in all the communities.    Entry Period: This Challenge will consist of four weekly Entry Periods as follows (each an “Entry Period”)   - 12:00 a.m. PT on June 17, 2024 – 11:59 p.m. PT on June 23, 2024 - 12:00 a.m. PT on June 24, 2024 – 11:59 p.m. PT on June 30, 2024 - 12:00 a.m. PT on July 1, 2024 – 11:59 p.m. PT on July 7, 2024 - 12:00 a.m. PT on July 8, 2024 – 11:59 p.m. PT on July 14, 2024   Entries will be eligible for the Entry Period in which they are received and will not carryover to subsequent weekly entry periods.  You must enter into each weekly Entry Period separately.   How to Enter: We invite you to participate in a quest to provide "Accepted Solutions" to as many questions as you can. Answers can be provided in all the communities. Users must provide a solution which can be an “Accepted Solution” in the Forums in all of the communities and there are no limits to the number of “Accepted Solutions” that a member can provide for entries in this challenge, but each entry must be substantially unique and different.    Winner Selection and Prizes: At the end of each week, we will list the top ten (10) Community users which will consist of: 5 Community Members & 5 Super Users and they will advance to the final drawing. We will post each week in the News & Announcements the top 10 Solution providers.  At the end of the challenge, we will add all of the top 10 weekly names and enter them into a random drawing.  Then we will randomly select ten (10) winners (5 Community Members & 5 Super Users) from among all eligible entrants received across all weekly Entry Periods to receive the prize listed below. If a winner declines, we will draw again at random for the next winner.  A user will only be able to win once overall. If they are drawn multiple times, another user will be drawn at random.  Individuals will be contacted before the announcement with the opportunity to claim or deny the prize.  Once all of the winners have been notified, we will post in the News & Announcements of each community with the list of winners.   Each winner will receive one (1) Pass to the Power Platform Conference in Las Vegas, Sep. 18-20, 2024 ($1800 value). NOTE: Prize is for conference attendance only and any other costs such as airfare, lodging, transportation, and food are the sole responsibility of the winner. Tickets are not transferable to any other party or to next year’s event.   ** PLEASE SEE THE ATTACHED RULES for this CHALLENGE**   Week 1 Results: Congratulations to the Week 1 qualifiers, you are being entered in the random drawing that will take place at the end of the challenge. Community MembersNumber of SolutionsSuper UsersNumber of Solutions @anandm08  23 @WarrenBelz  31 @DBO_DV  10 @Amik  19 AmínAA 6 @mmbr1606  12 @rzuber  4 @happyume  7 @Giraldoj  3@ANB 6 (tie)   @SpongYe  6 (tie)     Week 2 Results: Congratulations to the Week 2 qualifiers, you are being entered in the random drawing that will take place at the end of the challenge. Community MembersSolutionsSuper UsersSolutions @anandm08  10@WarrenBelz 25 @DBO_DV  6@mmbr1606 14 @AmínAA 4 @Amik  12 @royg  3 @ANB  10 @AllanDeCastro  2 @SunilPashikanti  5 @Michaelfp  2 @FLMike  5 @eduardo_izzo  2   Meekou 2   @rzuber  2   @Velegandla  2     @PowerPlatform-P  2   @Micaiah  2     Week 3 Results: Congratulations to the Week 3 qualifiers, you are being entered in the random drawing that will take place at the end of the challenge.   Week 3:Community MembersSolutionsSuper UsersSolutionsPower Apps anandm0861WarrenBelz86DBO_DV25Amik66Michaelfp13mmbr160647Giraldoj13FLMike31AmínAA13SpongYe27     Week 4 Results: Congratulations to the Week 4 qualifiers, you are being entered in the random drawing that will take place at the end of the challenge.   Week 4:Community MembersSolutionsSuper UsersSolutionsPower Apps DBO-DV21WarranBelz26Giraldoj7mmbr160618Muzammmil_0695067Amik14samfawzi_acml6FLMike12tzuber6ANB8   SunilPashikanti8

Check Out | 2024 Release Wave 2 Plans for Microsoft Dynamics 365 and Microsoft Power Platform

On July 16, 2024, we published the 2024 release wave 2 plans for Microsoft Dynamics 365 and Microsoft Power Platform. These plans are a compilation of the new capabilities planned to be released between October 2024 to March 2025. This release introduces a wealth of new features designed to enhance customer understanding and improve overall user experience, showcasing our dedication to driving digital transformation for our customers and partners.    The upcoming wave is centered around utilizing advanced AI and Microsoft Copilot technologies to enhance user productivity and streamline operations across diverse business applications. These enhancements include intelligent automation, AI-powered insights, and immersive user experiences that are designed to break down barriers between data, insights, and individuals. Watch a summary of the release highlights.    Discover the latest features that empower organizations to operate more efficiently and adaptively. From AI-driven sales insights and customer service enhancements to predictive analytics in supply chain management and autonomous financial processes, the new capabilities enable businesses to proactively address challenges and capitalize on opportunities.    

Updates to Transitions in the Power Platform Communities

We're embarking on a journey to enhance your experience by transitioning to a new community platform. Our team has been diligently working to create a fresh community site, leveraging the very Dynamics 365 and Power Platform tools our community advocates for.  We started this journey with transitioning Copilot Studio forums and blogs in June. The move marks the beginning of a new chapter, and we're eager for you to be a part of it. The rest of the Power Platform product sites will be moving over this summer.   Stay tuned for more updates as we get closer to the launch. We can't wait to welcome you to our new community space, designed with you in mind. Let's connect, learn, and grow together.   Here's to new beginnings and endless possibilities!   If you have any questions, observations or concerns throughout this process please go to https://aka.ms/PPCommSupport.   To stay up to date on the latest details of this migration and other important Community updates subscribe to our News and Announcements forums: Copilot Studio, Power Apps, Power Automate, Power Pages

Top Solution Authors
Top Kudoed Authors
Users online (3,576)