/*Set(resetimgUpd1, false);
Set(resetimgUpd2, false);
Set(resetimgUpd3, false);
If(
IsBlank(TxtTitle.Text) ||
IsBlank(TxtWeek.Text) ||
IsBlank(TxtOverview.Text) ||
IsBlank(TxtBefore.Text) ||
IsBlank(TxtAfter.Text) ||
IsBlank(TxtHOD.Text) ||
IsBlank(CmbDept.Selected),
Notify("Please fill in the fields", NotificationType.Error, 3000),
Patch(
KaizenCreate,
Defaults(KaizenCreate),
{
Title: GenID,
UserName: User().FullName,
UserMail: User().Email,
InDate: Now(),
KaizenName: TxtTitle.Text,
WeekNo: TxtWeek.Text,
PointKaizen: Txtpoint.Text,
Department: CmbDept.Selected.Title,
HOD: TxtHOD.Text,
Overview: TxtOverview.Text,
KaizenBeforeImg: UploadedImage1.Image,
KaizenAfterImg: UploadedImage2.Image,
KaizenBef: TxtBefore.Text,
KaizenAft: TxtAfter.Text,
FutureImprovement: TxtFuture.Text,
TeamMemberImg: UploadedImage3.Image,
TeamMemberName: TxtTM.Text,
DateImplemented: DatePicker1.SelectedDate,
SQDCMImpact: [
{Value: If(Checkbox1_1.Value = true, "Safety")},
{Value: If(Checkbox1_2.Value = true, "Quality")},
{Value: If(Checkbox1_3.Value = true, "Delivery")},
{Value: If(Checkbox1_4.Value = true, "Cost")},
{Value: If(Checkbox1_5.Value = true, "Moral")} ],
Inventory: TextInput3_2.Text,
FloorSpace: TextInput3_8.Text,
NoOfOperators: TextInput3_11.Text,
TravelDistance: TextInput3_14.Text,
MachineDowntime: TextInput3_17.Text,
Safety: TextInput3_20.Text,
DTD: TextInput3_5.Text,
ValueAdd: TextInput3_23.Text,
FTT: TextInput3_26.Text,
YearlyCostSaving: TextInput3_29.Text,
CycleTime: TextInput3_32.Text,
Changeover: TextInput3_35.Text,
BeforeInventory:TextInput3.Text,
BeforeFloorSpace:TextInput3_6.Text,
BeforeOperator:TextInput3_9.Text,
BeforeDistance:TextInput3_12.Text,
BeforeDowntime:TextInput3_15.Text,
BeforeSafety:TextInput3_15.Text,
BeforeDTD:TextInput3_3.Text,
BeforeValue:TextInput3_21.Text,
BeforeFTT:TextInput3_24.Text,
BeforeYCS:TextInput3_27.Text,
BeforeCycleTime:TextInput3_30.Text,
BeforeChangeover:TextInput3_33.Text,
AfterInventory:TextInput3_1.Text,
AfterFloorSpace:TextInput3_7.Text,
AfterOperator:TextInput3_10.Text,
AfterDistance:TextInput3_13.Text,
AfterDowntime:TextInput3_16.Text,
AfterSafety:TextInput3_19.Text,
AfterDTD:TextInput3_4.Text,
AfterValue:TextInput3_22.Text,
AfterFTT:TextInput3_25.Text,
AfterYCS:TextInput3_28.Text,
AfterCycleTime:TextInput3_31.Text,
AfterChangeover:TextInput3_34.Text
},Form7.Updates
);
Notify("Your request has been saved.", NotificationType.Success, 3000);
If(IsBlank(Checkbox1_4.Value),
KaizenFinanceApproval.Run(
User().FullName,
User().Email,
GenID,
ComboBox3.Selected.'Carder Reduction',
ComboBox3_1.Selected.'SMV Improvement',
ComboBox3_2.Selected.'Material Saving',
ComboBox3_3.Selected.'Supplier material Price negotiation',
TextInput1_1.Text,
attName,
{file: {contentBytes: First(AttachmentSubmit.Attachments).Value, name: First(AttachmentSubmit.Attachments).Name}}
//{file_1: {name: "Kaizen Sheet Capture -" & GenID & ".pdf",contentBytes: PDF(KaizenCreate, {ExpandContainers:true})}}
;)*/
/*"",
Office365Outlook.SendEmailV2(
"thejar@masholdings.com;nethmid@masholdings.com",
"Kizan Updates",
"
<!DOCTYPE html>
<html lang='en'>
<head>
<meta charset='UTF-8'>
<meta name='viewport' content='width=device-width, initial-scale=1.0'>
</head>
<body style='margin: 0; padding: 0; text-align: center; Font-size: 20px; font-family: Roboto, Tahoma, Verdana, Segoe, sans-serif; mso-line-height-alt: 16.8px; color: #34495e; line-height: 1.2;'>
<div style='width: 100%; height: auto; background-color: rgb(190, 255, 209); box-shadow: 2px 5px 50px rgb(111, 233, 255); padding-top: 20px; padding-bottom: 100px;'>
<p style='padding: 10px; font-size: 20px; font-weight: bold;'>
Waiting for your approval
<hr>
</p>
<p style='padding: 10px; font-size: 20px; font-weight: bold;'>
Please login to the system and update approval
<hr>
</p>
<div style='border-radius: 30px; margin: auto; padding: 10px; width: 90%; background-color: aquamarine; box-shadow: 2px 5px 50px rgb(2, 32, 61); padding-top: 20px; '>
<p style=''>
Kizan ID :: " & GenID & "
</p><br>
<p style=''>
Comment :: Waiting for your approval
</p>
<p>
<a href='https://apps.powerapps.com/play/e/default-852c5799-8134-4f15-9d38-eba4296cc76f/a/d626efea-e961-4597-9094-1d30de5159b2?tenantId=852c5799-8134-4f15-9d38-eba4296cc76f&hint=f753fe80-3c99-4afa-bccf-a8260370b99c&sourcetime=1711017484454'> Launch Application </a>
</p>
<p style='font-family: system-ui, -apple-system, BlinkMacSystemFont, 'Segoe UI', Roboto, Oxygen, Ubuntu, Cantarell, 'Open Sans', 'Helvetica Neue', sans-serif;'>You can reply on this mail for future verification and updates.</p>
</div>
</div>
</body>
</html>"
,
{
Cc: "srimaleew@masholdings.com"
}
);); *//*
Set(res, true);
Reset(TxtTitle);
Reset(TxtWeek);
Reset(Txtpoint);
Reset(TxtOverview);
Reset(TxtBefore);
Reset(TxtAfter);
Reset(TxtFuture);
Reset(TxtHOD);
Reset(CmbDept);
Reset(TxtTM);
Reset(DatePicker1);
Reset(Checkbox1_1);
Reset(Checkbox1_2);
Reset(Checkbox1_3);
Reset(Checkbox1_4);
Reset(Checkbox1_5);
Reset(ComboBox3);
Reset(ComboBox3_1);
Reset(ComboBox3_2);
Reset(ComboBox3_3);
Reset(TextInput1_1);
Reset(AttachmentSubmit);
UpdateContext(
{
GenID: "Kaizen-" & Left(Text(Today(), "mmmm"), 3) & "-0000" & Right(Last(Sort( KaizenCreate,ID,SortOrder.Ascending)).Title,5) + 1
}
);
Set(resetimgUpd1, true);
Set(resetimgUpd2, true);
Set(resetimgUpd3, true);
Refresh(KaizenCreate);
);
);
*/
Set(resetimgUpd1, false);
Set(resetimgUpd2, false);
Set(resetimgUpd3, false);
If(
IsBlank(TxtTitle.Text) ||
IsBlank(TxtWeek.Text) ||
IsBlank(TxtOverview.Text) ||
IsBlank(TxtBefore.Text) ||
IsBlank(TxtAfter.Text) ||
IsBlank(TxtHOD.Text) ||
(IsBlank(TextInput3.Text) && IsBlank(TextInput3_3.Text) && IsBlank(TextInput3_6.Text) && IsBlank(TextInput3_9.Text) && IsBlank(TextInput3_12.Text) && IsBlank(TextInput3_15.Text) && IsBlank(TextInput3_18.Text) && IsBlank(TextInput3_21.Text) && IsBlank(TextInput3_24.Text) && IsBlank(TextInput3_27.Text) && IsBlank(TextInput3_30.Text) && IsBlank(TextInput3_33.Text)) ||
(!Checkbox1_1.Value && !Checkbox1_2.Value && !Checkbox1_3.Value && !Checkbox1_4.Value && !Checkbox1_5.Value),
Notify("Please fill in the fields", NotificationType.Error, 3000),
KaizenHOD.Run(
User().FullName,
User().Email,
Office365Users.Manager(User().Email).DisplayName,
Office365Users.Manager(User().Email).Mail,
GenID
);
Patch(
KaizenCreate,
Defaults(KaizenCreate),
{
Title: GenID,
UserName: User().FullName,
UserMail: User().Email,
InDate: Now(),
KaizenName: TxtTitle.Text,
WeekNo: TxtWeek.Text,
PointKaizen: Txtpoint.Text,
Department: Office365Users.MyProfileV2().department,
HOD: Office365Users.Manager(User().Email).DisplayName,
HODMail:Office365Users.Manager(User().Email).Mail,
Section:{Value:Radio1.Selected.Value},
Countery:{Value:Radio1_1.Selected.Value},
Overview: TxtOverview.Text,
KaizenBeforeImg: UploadedImage1.Image,
KaizenAfterImg: UploadedImage2.Image,
KaizenBef: TxtBefore.Text,
KaizenAft: TxtAfter.Text,
FutureImprovement: TxtFuture.Text,
TeamMemberImg: UploadedImage3.Image,
TeamMemberName: TxtTM.Text,
DateImplemented: DatePicker1.SelectedDate,
SQDCMImpact: [
{Value: If(Checkbox1_1.Value, "Safety")},
{Value: If(Checkbox1_2.Value, "Quality")},
{Value: If(Checkbox1_3.Value, "Delivery")},
{Value: If(Checkbox1_4.Value, "Cost")},
{Value: If(Checkbox1_5.Value, "Moral")}
],
SafetyVal: {Value: If(Checkbox1_1.Value, "Yes")},
QualityVal:{Value: If(Checkbox1_2.Value, "Yes")},
IEval:{Value: If(Checkbox1_3.Value, "Yes")},
FinanceVal:{Value: If(Checkbox1_4.Value, "Yes")},
MoralVal:{Value: If(Checkbox1_5.Value, "Yes")},
Inventory: TextInput3_2.Text,
FloorSpace: TextInput3_8.Text,
NoOfOperators: TextInput3_11.Text,
TravelDistance: TextInput3_14.Text,
MachineDowntime: TextInput3_17.Text,
Safety: TextInput3_20.Text,
DTD: TextInput3_5.Text,
ValueAdd: TextInput3_23.Text,
FTT: TextInput3_26.Text,
YearlyCostSaving: TextInput3_29.Text,
CycleTime: TextInput3_32.Text,
Changeover: TextInput3_35.Text,
BeforeInventory: TextInput3.Text,
BeforeFloorSpace: TextInput3_6.Text,
BeforeOperator: TextInput3_9.Text,
BeforeDistance: TextInput3_12.Text,
BeforeDowntime: TextInput3_15.Text,
BeforeSafety: TextInput3_18.Text,
BeforeDTD: TextInput3_3.Text,
BeforeValue: TextInput3_21.Text,
BeforeFTT: TextInput3_24.Text,
BeforeYCS: TextInput3_27.Text,
BeforeCycleTime: TextInput3_30.Text,
BeforeChangeover: TextInput3_33.Text,
AfterInventory: TextInput3_1.Text,
AfterFloorSpace: TextInput3_7.Text,
AfterOperator: TextInput3_10.Text,
AfterDistance: TextInput3_13.Text,
AfterDowntime: TextInput3_16.Text,
AfterSafety: TextInput3_19.Text,
AfterDTD: TextInput3_4.Text,
AfterValue: TextInput3_22.Text,
AfterFTT: TextInput3_25.Text,
AfterYCS: TextInput3_28.Text,
AfterCycleTime: TextInput3_31.Text,
AfterChangeover: TextInput3_34.Text,
'Carder Reduction':[
{Value: If(chkBxBudgtCardr.Value, "Budgeted Carder")},
{Value: If(MonthOnMntActCdr.Value, "Month on month Actual carder")},
{Value: If(Checkbox1_7.Value, "No of employees reduced -category wise")}
],
'SMV Improvement':[
{Value: If(Checkbox1_8.Value, "Style wise SMV's before and after the improvement")},
{Value: If(Checkbox1_9.Value, "Stylewise Budgted Pieces")},
{Value: If(Checkbox1_10.Value, "Stylewise Actual Pieces")},
{Value: If(Checkbox1_11.Value, "Considered CPH")}
],
'Supplier material Price negotiation':[
{Value: If(Checkbox1_12.Value, "Material Number")},
{Value: If(Checkbox1_13.Value, "Unit price before and after the improvement")},
{Value: If(Checkbox1_14.Value, "MM60 screenshots")}
],
'Material Saving':[
{Value: If(Checkbox1_15.Value, "Material Number")},
{Value: If(Checkbox1_16.Value, "BOM required quantity before and after the improvement")},
{Value: If(Checkbox1_17.Value, "Month on month Purchased quantity")},
{Value: If(Checkbox1_18.Value, "Month on month issued quantity")},
{Value: If(Checkbox1_19.Value, "Considered Unit Price")},
{Value: If(Checkbox1_20.Value, "BOM Screenshot")}
],
Comment:TextInput1_1.Text
},
Form7.Updates
);
Notify("Your request has been saved.", NotificationType.Success, 3000);
/*KaizenHodApproval.Run(
GenID,
User().FullName,
User().Email,
Office365Users.Manager(User().Email).Mail,
Office365Users.Manager(User().Email).DisplayName
/*{file: {
name: "KAIZEN -" & GenID & ".jpg",
contentBytes: image(CreateKaizen, {ExpandContainers:true})
}}
);
If(
!IsBlank(Checkbox1_4.Value),
KaizenFinanceApproval.Run(
If(chkBxBudgtCardr.Value=true,chkBxBudgtCardr.Text,""),
If(MonthOnMntActCdr.Value=true,MonthOnMntActCdr.Text,""),
If(Checkbox1_7.Value=true,Checkbox1_7.Text,""),
If(Checkbox1_8.Value=true,Checkbox1_8.Text,""),
If(Checkbox1_9.Value=true,Checkbox1_9.Text,""),
If(Checkbox1_10.Value=true,Checkbox1_10.Text,""),
If(Checkbox1_11.Value=true,Checkbox1_11.Text,""),
If(Checkbox1_15.Value=true,Checkbox1_15.Text,""),
If(Checkbox1_16.Value=true,Checkbox1_16.Text,""),
If(Checkbox1_17.Value=true,Checkbox1_17.Text,""),
If(Checkbox1_18.Value=true,Checkbox1_18.Text,""),
If(Checkbox1_19.Value=true,Checkbox1_19.Text,""),
If(Checkbox1_20.Value=true,Checkbox1_20.Text,""),
If(Checkbox1_12.Value=true,Checkbox1_12.Text,""),
If(Checkbox1_13.Value=true,Checkbox1_13.Text,""),
If(Checkbox1_14.Value=true,Checkbox1_14.Text,""),
TextInput1_1.Text,
User().Email,
GenID,
{file: {contentBytes: First(AttachmentSubmit.Attachments).Value, name: First(AttachmentSubmit.Attachments).Name}}
)
);*/
Set(res, false);
Set(res, true);
Reset(TxtTitle);
Reset(TxtWeek);
Reset(Txtpoint);
Reset(TxtOverview);
Reset(TxtBefore);
Reset(TxtAfter);
Reset(TxtFuture);
Reset(TxtHOD);
Reset(CmbDept);
Reset(TxtTM);
Reset(DatePicker1);
Reset(Checkbox1_1);
Reset(Checkbox1_2);
Reset(Checkbox1_3);
Reset(Checkbox1_4);
Reset(Checkbox1_5);
Reset(ComboBox3);
Reset(ComboBox3_1);
Reset(ComboBox3_2);
Reset(ComboBox3_3);
Reset(TextInput1_1);
Reset(Radio1);
Reset(Radio1_1);
Set(attReset, false);
Set(attReset, true);
UpdateContext({
GenID: "Kaizen-" & Left(Text(Today(), "mmmm"), 3) & "-0000" & Right(Last(Sort(KaizenCreate, ID, SortOrder.Ascending)).Title, 5) + 1
});
Set(resetimgUpd1, true);
Set(resetimgUpd2, true);
Set(resetimgUpd3, true);
Refresh(KaizenCreate);
);