【No.5-MicrosoftTeamsとPowerAppsとPowerAutomateを使ってスケジュールのステータス変更】を実装してみた。その後(5)。
どうもこんにちわ。
皆さんはもうワクチン接種されましたか？
僕ですか？
全っ然まだですね。
予約開始日も８月に入ってからですし。
注射嫌いですし。
よく利用していた回転寿司屋さんが、
コロナのせいなのか
緊急事態やら蔓延防止やらのせいなのか
まあ何かしらの影響で
閉店されたので、すごいショックを受けてま寿司。
そう。
あれは忘れもしない。
１８歳くらいの頃。
（全然覚えてないね）
夏の暑い日差しに照らされ、
女子との初デートの時
と、同じレベルの心臓の鼓動の速さを伴い、
駅へ向かって歩いていた。
なけなしのお金（５０００円札）を握りしめて。
今や若者にはYouTubeよりも人気が少なそうだが、
当時はテレビくらいしか情報の取得元が無かったんだよね。
そんな時代に、もはや惰性で付けていたテレビを見ていたら
とあるテレビ番組で、駅前の回転寿司屋さんが放送されていた。
それはそれは美味しいお寿司が激安で提供されているというではないか。
･･･ゴクリ。
（普通にコーラを飲んだ音）
丁度引っ越しのバイトをして現金収入が入ったところだったので、
お財布の状況的には乗り越えられる。
ただし、金額次第では１日分くらいのバイト代が吹っ飛ぶ。
くわえて、最近はYouTube見てたら急に
「日本のスマホ代はた・か・す・ぎる！」
なんて某天モバイル広告で言ってるけど、なんなら当時は
携帯電話のインターネットの通信量（パケット通信）に
定額制なんて存在しなかったため、
「パケ死」というワードが飛び交うくらい、
当時の方が今よりもっと高額だったんじゃないかという気すらする。
スマホでもないのにだよ？
スマートフォンなんて当時は存在しねぇよ。
ＨＴＣってとこのWindowsMobileがあったくらいだよ。
知らねぇべ？
後輩君よ。
俺もよく知らないけど。
でまあ、スマホでもないのに
下手すると気付いた時にはパケット通信料が超高額になり、
携帯代が払えなくなってしまう若者たちがあふれた時代なのだ。
そんな時代。
そんな時代にだ。
人生初。
人生初の寿司屋ソロデビュー。
齢１８（多分）にして、だ。
入ったこともないお店に。
入ったよ。
そんで払ったよ。
ちょうど５０００円くらい。
いやあ正直、何年何月何日の事だったかは覚えてないんだけど、
お寿司を食い終えた後の、
お会計までの道のりは５メートルにも満たないだろう距離が、
とても長く感じたよね。
ドッキドキで。
そりゃもうドッキンドッキンで。
何故かって？
お寿司の値段が「時価」だったからとかではない。
ちゃんと明記してあった。
当時の俺もそこまで馬鹿じゃないし、
予算（握りしめた５０００円以内）に収まるように、
金額を計算して注文したからね。
実際５０００円くらいだったし。
じゃあ何で？
・・・
割っちゃったから。
お皿を。
ついでにコップもセットで落として割っちゃったからさ。
お店の人というか、店主的な人からは
「大丈夫ですか？お怪我ありませんか？」
とか当時の僕みたいな若造にもお気遣いいただいたものの、
「お皿弁償代」とかで、
しれっとお会計の時に請求されたらどうしよう
という緊張があったからさ。
そんな初のソロデビューでした。
あの日の事は忘れない。
なんでこんなこと書いてるかって？
コレ ↓ だよ！
はてなブログからの要求。どんどん要求が増えてってない？
「今週のお題」の他に２つも。３つとも書いてやんよ。
↓ はてなブログからの要求事項
・今週のお題「寿司」
・はてなインターネット文学賞「記憶に残っている、あの日」
・はてなインターネット文学賞「わたしとインターネット」
どうだ。
全部クリアしたったやろ。
じゃ、本題いくべ。
本題。
～～～ 本題 ～～～
※注※
本内容は私個人の意見や見解等であり、大変恐縮ですが記載内容に関して
誤りがある可能性がございます。
そのような場合、御連絡いただけましたら早急に訂正いたしますので、
よろしくお願いいたします。
その１ ー 前々々々回。作りたいシステムを発表。
その２ ー 前々々世。PowerAppsのロジックの作りこみは別にするかもしれないけど
とりあえず画面周りをそれっぽくする。
ここまではノーコードで出来たね！
その３ ー 前々回。PowerAutomateでの色々。
PowerAppsと、PowerAutomateでの色々。
ここが下手すると２週にわたるかもしれないね。
軽く考えてみても条件分岐とかややこしそう。
このあたりが一番のハード回。ローコードが必要な部分。
その４ ー 前回。大変だったね。
ログインユーザーのスケジュール取得までは前回でやったから、
管理者用画面と、実際にスケジュール情報を更新するやつ。
前回で･･･終わらなかったね！
その５ ー 今回。みそパ。
とか言ってる場合じゃなかったね。
いざ最終局面へ！
フォーム画面の設定と、
PowerAutomateでスケジュールの変更ロジック実装！
前回までで、最後のフォーム画面のとこ以外は終わりましたね。
いやはやお疲れ様。
今一度、今回のロジック実装手順を振り返ってみようね。
１．ログインユーザー情報取得
（PowerAppsの機能を使って、ログインしてるユーザーの情報をゲット）
１－１．PowerAppsのホーム画面でユーザー情報を取得
１－２．取得したユーザー情報からユーザー名（表示名）を表示させる。
２．スケジュールの取得
（PowerAppsのホーム画面のボタンで、PowerAutomateを起動。
ログインユーザーの２４時間以内のスケジュールを３件ゲットして、
またPowerAppsちゃんにデータを連携してあげる。）
２－１．PowerAutomateを作成
２－２．PowerAppsからPowerAutomateに渡す情報を決める
２－３．PowerAutomateをガッツリ作りこむ
２－４．PowerAppsのボタンにPowerAutomateを起動する様にしてあげる
２－５．PowerAutomateから受け取った情報を、そのままだと使いづらいから
色々加工して、PowerAppsのビュー画面に表示させる。
３．管理者用画面
（管理者画面を加工して、凡例の色を指定出来る様にする）
３－１．DataVerseに新しいテーブルを作る
３－２．Screen1の画面にDataVerseの各フィールドの値を指定する
４．ビュー画面
（DataVerseにある凡例の情報をギャラリーに表示させて、
２－３のPowerAutomateでとってきた情報をギャラリーに表示）
４－１．DataVerseにある凡例のテーブル情報をギャラリー１に表示
４－２．PowerAutomateで取得したスケジュール情報の値をギャラリー２に指定する
５．フォーム画面
（ビュー画面で選択した情報を表示して、
変更させたい凡例の色を選択させる。）
５－１．ビュー画面で選択された情報を、加工してフォーム画面に表示
５－２．凡例のギャラリーに、PowerAutomate起動用の四角形を付ける
５－３．データ加工用のPowerAutomateを作る（最初の方だけ）
５－４．ギャラリーに追加した四角形のOnSelectかなんかに、
PowerAutomate起動用のロジックを書く
５－５．PowerAutomateをめちゃくちゃする
５－６．PowerAutomateで変更した内容を、DataVerseに保存ぬ
５－７．DataVerseに保存した値をフォーム画面に表示させる
この実装手順の ４．ビュー画面 まで終わって、
今回は ５．フォーム画面 を残すだけだね。
頑張っていきましょう。
えーまあ「頑張っていきましょう」言うてやってますけどもね。
まあ正直ここも鬼。
コード書いたことのない方々には苦痛を伴う恐れがあります。
そういった方々は、是非ともゆっくり時間をかけて、
一歩一歩進んでいってもらいたい。
僕としても心が痛い。
こんなことを君たちに強いるなんて。
だから、暇でしょうがない時でなければ、
基本的にはサラッと読み流してくれると良い。
え？
もともとこのブログを本気では読み込んでないって？
そいつぁ話が違ってくるぜ！
前言撤回だ！
しっかりと一言一句逃さずに読みやがれ！
オラいくぞこらぁ！
５．フォーム画面
（ビュー画面で選択した情報を表示して、
変更させたい凡例の色を選択させる。）
５－１．ビュー画面で選択された情報を、加工してフォーム画面に表示
早速だがTeamsの中でPowerAppsの開発画面を開こう。
#### 2021/08/12 追記
#### 以下の手順だと、どうもPowerAppsがうまく動くときと
#### うまく動いてくれないときがある（笑）ので、
#### 次回のブログ内で別の手法で選択した情報を取得する実装を
#### 記載しています。
####
ここはね、サッと済ますところ。
ここまでついてきてくれた君達なら余裕。
今は画面こんな感じだよね、たしか。
良い大人は「ピョン」とか言ってないで、サッと画面作ろう。
表示用のフォームを追加していく。
「表示フォーム」っていうくらいだから、
何を表示させればいいのか指定しないとだよね。
ここでは UserDataCol を選択。
で、ビュー画面で選択したギャラリーの情報が欲しいので、
Item の値に ＜ギャラリー名＞.Selected って指定する。
表示フォームの「Item」に ギャラリー名.Selected と指定する。
ところで最近、僕だけなのかよくわからないんだけど、
PowerAppsの開発中にScreen切り替えると、 ↑ みたいに
画面がグレーで覆われるんだけど、なんなの？
いやがらせなの？
え？僕だけなの？
なんなの？
ねぇ。
教えてよ！
本当の幸せ教えてよ！
壊れかけのレディオー！
はい。次はデータカードを追加。
表示フォームの中に、追加してあげる。
表示フォームの中に直接ラベルを配置出来たらよかったんだけど、
僕は出来なかった。
（だから、仕方なくこんな感じにしてみたんだけど、
もっと良いやり方があるような気もしている。）
カスタムカード追加できたら、事前に作っておいた
「件名」「日時」「分類」のラベルを
・・・切り取る！
切り取ったら無くさないうちに、さっきのデータカードん中にペーストる。
すると、こうなる。
じゃあ、それぞれのラベルの中をこんな感じで書いてみよう。
＝＝＝＝＝＝＝＝＝＝＝＝
・LabelTitle
"◆件名：" & ThisItem.Title
・LabelTime
"◆日時：" & Left(Text(DateTimeValue(ThisItem.StartTime, "ja"),"[$-ja]yyyy年mm月dd日"),12) &
" " & Mid(Text(DateTimeValue(ThisItem.StartTime, "ja"),"[$-ja]yyyy年mm月dd日 HH時mm分"),12) & " ～ " & Mid(Text(DateTimeValue(ThisItem.EndTime, "ja"),"[$-ja]yyyy年mm月dd日 HH時mm分"),12)
・LabelCategory
"◆分類：" & If(ThisItem.Categories = "" ,"[未設定]", Substitute( Left(ThisItem.Categories,Len(ThisItem.Categories)-1), "$", ","))
＝＝＝＝＝＝＝＝＝＝＝＝
ああ、自分の好みで好きにカスタマイズすると良いよ。
見た目は大事だから！
全部ピンクで統一しちゃうかい？
それもいいね。
否定はしない。
否定はしないが、
どこを目指してるんだい君は。
選べよ。名古屋か？
それとも君の家か？
どっちだ。
オレは行くぞ。
パイが腐らねぇうちに！
脱線しました。
つい、ね。
アツくなりすぎると出ちゃうよね、大泉洋が。
さっきのラベルの設定終わったら、
HomeScreenから流れに沿ってアプリ動かしてみよう。
動かしてみ洋。
どうだい？
うまく情報が表示されたかい？
そいつぁよかった。
５－２．凡例のギャラリーに、PowerAutomate起動用の四角形を付ける
ここではまず、前回やった様にギャラリーに凡例の情報を表示してあげよう。
詳しくは前回のブログを見てね。
前回と違うのは、
このギャラリーに表示されたデータを選択すると
PowerAutomateを動かして実際のスケジュール情報を変更させるってわけ。
だから、前回の時のスケジュールを表示させて四角形をかぶせた感じで、
このギャラリーにも四角形をかぶせてもらいたい。
色とかはお好みのセンスでどうぞ。
で、ひとまずはOnSelectに何も書かないでいいです。
まずはPowerAutomate作りましょ。
５－３．データ加工用のPowerAutomateを作る（最初の方だけ）
はい。
前々回のブログで作った時と同様、
最初と最後にPowerAppsと連携させるように指定します。
詳しくは記事を読んでね。
で。
今回のPowerAutomateでは、ユーザーの情報の他に、
選択されたスケジュールに対して、
選択された分類の情報を「追加」or「置換」するから、
色んな情報を渡してあげなきゃならない。
考えてみてほしい。
けど、めんどいよね。
そんな人の為に、書き出してあげた。
感謝してほしい。
＊＊ PowerAutomateに渡す情報 ＊＊
JSON(
{
item1DocID: 'PA-DocIDLabel'.Text,
item2Title: 'PA-Title'.Text,
item3Category: 'PA-Legends'.Text,
item4StartTime: 'PA-StartTime'.Text,
item5EndTime: 'PA-EndTime'.Text,
item6NewLegend: ThisItem.'Condition-Category',
item7UserID: UserID.Text,
item8UserEMail: UserMailAddress.Text,
item9Toggle: ToggleTEXT.Text,
item10LegendChangeTimeID: LegendChangeTimeIDLabel.Text
}
),
JSON(
{
item11Toggle2: Toggle2TEXT.Text,
item12ChangeResult: ChangeResultLabel.Text,
item13UserNameDisp: UserName.Text,
item14ChangeResultDispMainLabel: ChangeResultDispMainLabel.Text
}
),
JSON(
{
itemCategoriesTable: UserDataCol,
itemCategoriesTable2Dummy: UserDataCol,
item10Dummy4: UserID.Text,
item10Dummy5: UserMailAddress.Text
}
＊＊＊ ここまで ＊＊＊
これくらいあれば大丈夫！（のはず）
他にもあれば、あとで追加したらいいよ。
JSON形式で渡せば、JSONの中身を変えればいいだけだから！
５－４．ギャラリーに追加した四角形のOnSelectかなんかに、
PowerAutomate起動用のロジックを書く
ここも以前やったヤツだね。
OnSelectで、まずはさっき作ったPowerAutomateを選択する。
選択したら、あとはこんな感じで色々付け加えたりする。
それぞれ、当然PowerAutomateで利用する情報を持ったフィールドを
準備する必要はあるよ。
＝＝ OnSelectの中身 ＝＝
Set(DialogFLG , "1");
Set(
ChangeAutomateResult,
{
StringData: 'Ver1-LegendChangeFromPowerApps'.Run(
JSON(
{
item1DocID: 'PA-DocIDLabel'.Text,
item2Title: 'PA-Title'.Text,
item3Category: 'PA-Legends'.Text,
item4StartTime: 'PA-StartTime'.Text,
item5EndTime: 'PA-EndTime'.Text,
item6NewLegend: ThisItem.'Condition-Category',
item7UserID: UserID.Text,
item8UserEMail: UserMailAddress.Text,
item9Toggle: ToggleTEXT.Text,
item10LegendChangeTimeID: LegendChangeTimeIDLabel.Text
}
),
JSON(
{
item11Toggle2: Toggle2TEXT.Text,
item12ChangeResult: ChangeResultLabel.Text,
item13UserNameDisp: UserName.Text,
item14ChangeResultDispMainLabel: ChangeResultDispMainLabel.Text
}
),
JSON(
{
itemCategoriesTable: UserDataCol,
itemCategoriesTable2Dummy: UserDataCol,
item10Dummy4: UserID.Text,
item10Dummy5: UserMailAddress.Text
}
)
)
}
);
Set(
UserSchedDataStr,
{
StringData: 'Ver1-24H以内のスケジュール取得'.Run(
JSON (
{
item1UserDisplayName: UserDisplayName.Text,
item2USerID: UserIDStr.Text,
item3UserID2: UserIDStr.Text,
item4EMail: UserEMail.Text
}
),
JSON (
{
item11UserDisplayName: UserDisplayName.Text,
item12USerID: UserIDStr.Text,
item13UserID2: UserIDStr.Text,
item14EMail: UserEMail.Text
}
)
)
}
);
ClearCollect(
UserSchedDataForView,
Split(
AutomateOutPut.Text,
"`"
)
);
//UserSchedDataForViewを`で区切り
Remove(
UserSchedDataForView,
Last(UserSchedDataForView.Result)
);
//最後にできてしまう、不要な空白データを削除
ClearCollect(
UserDataCol,
{
No: "1",
Title: '1stSched-Title1'.Text,
StartTime: '1stSched-StartTime1'.Text,
EndTime: '1stSched-EndTime1'.Text,
DocID: '1stSched-SchedID1'.Text,
Categories: '1stSched-Categories1'.Text
},
{
No: "2",
Title: '2ndSched-Title1'.Text,
StartTime: '2ndSched-StartTime1'.Text,
EndTime: '2ndSched-EndTime1'.Text,
DocID: '2ndSched-SchedID1'.Text,
Categories: '2ndSched-Categories1'.Text
},
{
No: "3",
Title: '3rdSched-Title1'.Text,
StartTime: '3rdSched-StartTime1'.Text,
EndTime: '3rdSched-EndTime1'.Text,
DocID: '3rdSched-SchedID1'.Text,
Categories: '3rdSched-Categories1'.Text
}
);
Navigate(ScheduleView);
Set(DialogFLG , "0");
＝＝＝ ここまで ＝＝＝
で、
ここでアレなんだけど、続きはまた次回にまわさせてもらいたい。
何故かって？
僕が作っていたアプリが、
何故かうまく動いたり動かなかったりしているからなんだ。
申し訳ねぇ。
その問題をまずは解決したいので、次回も若干遅れると思う。
問題の明確化と、対処法が判明したら、
それも次回のブログに書くね。
まあ、残り３項目くらいだから、次回までのお楽しみとして
期待しておいてもらいたい。
５－５．PowerAutomateをめちゃくちゃする
５－６．PowerAutomateで変更した内容を、DataVerseに保存ぬ
５－７．DataVerseに保存した値をフォーム画面に表示させる
（５－８）おまけ
～～ お・ま・け ～～
大丈夫。
別に無理してやらなくても大丈夫。
見た目的なアレを、ちょっと小洒落た感じにしてみよう
ってなもんだから。
余力があったらやってみてほしい。
見た目。
（意外と機能よりも見た目の方が重視されるんだけどね）
～～～ おまけ終わり ～～～
お疲れ様で寿司た！
～～～ 本 題 終 了 ～～～
その１ ー 前々々々回。作りたいシステムを発表。
その２ ー 前々々世。PowerAppsのロジックの作りこみは別にするかもしれないけど
とりあえず画面周りをそれっぽくする。
ここまではノーコードで出来たね！
その３ ー 前々回。PowerAutomateでの色々。
PowerAppsと、PowerAutomateでの色々。
ここが下手すると２週にわたるかもしれないね。
軽く考えてみても条件分岐とかややこしそう。
このあたりが一番のハード回。ローコードが必要な部分。
その４ ー 前回。大変だったね。
ログインユーザーのスケジュール取得までは前回でやったから、
管理者用画面と、実際にスケジュール情報を更新するやつ。
今回で･･･終わらなかったね！
その５ ー 今回。みそパ。
とか言ってる場合じゃなかったね。
いざ最終局面へ！
フォーム画面の設定と、
PowerAutomateでスケジュールの変更ロジック実装！
その６ ー 次回。いざ、最終回。（このアプリ開発の最終号）
６回にわけて実装を完了させます。
ちょっとしたおまけなんかも添えて。
さてさて、次回は今回のPowerApps開発の最終号として、
その次は何を書こうかね。
けっこうOnTimeも新しくなってるし、
最近Domino界で発表された「consentflow」という
ケートリックさんの製品についても、少し興味が湧いてる状態です。
Microsoft界でもPowerAutomateDesktopあたりも気になるし･･･
誰かまとめて情報くれないかね。
Domino12もあるんだよなぁ。
あ、そういや世間はオリンピックみたいなのやってるんでしたっけ？
僕はまったく興味ない人間なんだけど、
誰かが優勝したりして喜んでる瞬間を見るのは
ちょっとした感動もしたりするんだけど、
誰かしら泣いてるんだよ その栄光と美談の裏で
って思う様になってから、世の中ってのは大変だよなぁと思っちゃうんで、
切なくなってしまうので、あまり見ない様にしてますね。
いや、超絶スーパープレー集とかなら全然喜んで見るけどね。
サッカーボール、そんなに曲がるモンだっけ！？ とか
え？そのパス何！どうやったん！？ とか、
そういうのは、好き。
じゃ、また。
