投稿者「wt」のアーカイブ

4D プロジェクトフォームとテーブルフォーム、イベントプロパティが違う その2

以前のブログで間違いがあったので修正するとともに、印刷用フォームについて再考した。プロジェクトフォームとテーブルフォームで制御できるイベントプロパティが違うのは「テーブルのレコードセレクションを前提としたイベントがプロジェクトフォームではサポートされていない」ということだった。以前ブログを書いた時の理解が足りていなかっただけで、考えてみればプロジェクトフォームには帰属するテーブルがないから、セレクションを前提としたプロパティが設定できないのは当たり前だ。

たとえばプロジェクトフォームのプロパティには「On Printing Detail」などの印刷時に発生しそうなプロパティがない。これはPrint selectionの時に有効で、セレクションが必要なのでテーブルに帰属していることが前提になるためにテーブルフォームにしかないプロパティなのだ。

たとえば、印刷時に「文字列が多くて印字領域に収まらなかった時に文字フォントを小さくして印刷する」という技を使っているのだが、これは印字しようとしている文字列長によって適用するかしないかが異なる。「On Printing Detail」が発生した時、文字列を一度配置してみて文字列オブジェクトの矩形の長さを評価して、所定の幅に収まりきらなかったら小さいフォントサイズを再設定するという仕様だ。それで「On Printing Detail」にコードを記述することになる。この実装がプロジェクトフォームでもテーブルフォームでも動いてしまう。あれっ、と思って調べたらどちらのフォームにも「On Printing Detail」イベント(Form event = 23)が発生していたのだ。では、テーブルフォームで「On Printing Detail」チェックを外したらどうなるか。これでも「On Printing Detail」イベントは発生していた。

印刷時に使っているコマンドは次。

Print form([Z_PrintForm];”PP11_PrintList”;Form detail)

ここで印刷するフォームオブジェクトに配置されているのは配列要素またはプロセス変数でありテーブルのセレクションは無関係。

Print formではフォームプロパティのイベント「On Printing Detail」のチェックオフが無視される。Print formでForm detailを直接印刷しているため、4Dが内部的に「On Printing Detail」イベントを発生させているように見える。よく見たらPrint formの説明に書いてあった。つまり、Print formを使うということは、印刷イベント「On Printing Detail」を強制的に発生させるという意味であり、フォームのプロパティ設定は無視される、ようだ。しかしヘッダーを印刷するとき、つまりPrint formの指定領域が「Form header」でも同じイベント「On Printing Detail」が発生するのはわかりにくい。どうやら指定領域ごとに異なるイベントを発生させる必要はない、と考えているようだ。まあ実用上は問題ないかもしれない。次のコードはいずれも「On Printing Detail」が発生した。

Print form([Z_PrintForm];”PP11_PrintList”;Form header)
Print form([Z_PrintForm];”PP11_PrintList”;Form detail)
Print form([Z_PrintForm];”PP11_PrintList”;Form footer)

以前のブログは次のように補足しよう。

1)Print formを使う場合、「On Printing Detail」イベントプロパティのチェックは印刷時に影響しない。

2)配列を印刷する場合のフォームはプロジェクトフォームでもテーブルフォームでもよい。

Print formで配列を印刷する場合はセレクションが関係しないため、どちらにフォームを作っても問題はない。テーブルフォームに作ることもできるがテーブルに帰属させる必要性はない。フォームを整理するという側面からは、テーブルの内容を一覧する(配列に転送したとしても)ものはそのテーブルのフォームに作る、ことは意味があるかもしれない。

しばらくは、印刷用フォーム専用テーブル[Z_PrintForm]に印刷フォームを作成して、プロジェクトに印刷フォームがどのくらいあるかを把握できるようにしたい。フォーム名は出力するデータの元のテーブルのプレフィックスをつけて、10番代から始める。たとえば上記であれば、PPというお売りフィックスのテーブルの1番目の印刷フォーム「PP11_」をつけてフォーム名を続ける。「PP11_SiharaiIchiran」とか。

以前のブログはこちら
4D プロジェクトフォームとテーブルフォーム、イベントプロパティが違う その1

4D ローカル変数名にコロンが含まれていた

4Dでは、メソッド間で、たとえば呼び出す側が2つ引数を渡す時、呼び出される側のメソッドは第1引数を$1で、第2引数を$2で参照する。しかし引数名のまま$1や$2で参照すると、渡される値が何かがわかりにくいし、後で引数の順番が変わった時に不具合の元になるため、次のように記述して、引数をローカル変数に代入してから使うことにしている。こうしておけばREAD ONLY以降のコードを再利用しやすくなる、というオマケも期待できる。

C_LONGINT($1;$tr_id)
$tr_id::=$1
C_OBJECT($2;$objTR)
$objTR:=$2
C_TEXT($0;$numOfRecs)
READ ONLY([TRADEMARK])
QUERY([TRADEMARK];[TRADEMARK]TR_ID=$tr_id)
$numOfRecs:=Records in selection([TRADEMARK])
If ($numOfRecs=1)
  //オブジェクトで値を返す
$objTR.bikou:=[TRADEMARK]TR_BIKOU
End if 
$0:=$numOfRecs

上記のコードをよくみて欲しい。一つ目のローカル変数名にコロンが含まれていたのだ。これが不具合の原因だったのにしばらく気付かなかった。4Dは変数名にコロンを含んでていても構文エラーにならない。

たとえば「$tr_id:」をダブルクリックすると、「$tr_id」部分(コロンなし)が選択される。コピーして検索ダイアログを表示してペーストして検索実行すると、以下のコードの「$tr_id」は検索にヒットするため検索条件は正しく記述されているように見えて誤りに気付きにくい。ダブルクリック時に「$tr_id:」(コロンつき)を選択できていれば、検索実行で以下のコードにコロンつきの変数名がヒットしないことがわかったはず。そこで、変数名のタイプミスに気づくはずだ。

実行時のエラーにもならない。「$tr_id:」という変数に$1の内容を代入、QUERYでは未代入の「$tr_id」(値はゼロ)でクエリーしているだけだからだ。デバッガーで見ると呼び出した側は正しい値を与えているのに、なぜか期待した値がヒットしない、という結果になる。

「変数名にコロンを使える」という4Dの仕様に問題があるような気がする。「=」とか「-」を変数名に含めると構文エラーになるのに。

コロンを変数名に含めて良いのであれば、コロンが含まれた変数名をダブルクリックして選択した場合にコロンも選択範囲に含めてほしい。誤りに気づきにくい仕様になっていると思う。今回たまたま画面解像度が高くて文字が小さくなっていて、さらに焦ってコーディングしていたという事情はある。それにしてもこれまでこの事故が起こらなかったことが不思議だ。目視ですぐに気づいていたのか、こんなところでタイプミスはしなかったのか、老眼が進んでいなかっただけなのか?

試してみたらプロセス変数名も同様にセミコロンを含めることができた。見れば分かるだろというコーディングミスではあるけど要注意、というお話。

今回のハマりレベルは3、一人では抜け出せなかった。ハマりレベルとは、1:自力解決、2:ドキュメントで解決、3:他者によるサポートにより解決、4:翌日以降に解決、5:未解決。

2020は干し柿好調

2020 干し柿についてのメモ

10月になって庭の渋柿にオレンジ色が差してきた。早めと思ったが、たくさん生っているので順次収穫していかないと後工程が押してくるため収穫開始。今年は熟すのが早い印象。グズグズしているとヒヨドリに突っつかれてしまう。まずは30個くらいとってみて皮むき。

10日くらい干したら食べれた。いつも通り甘く、相変わらずタネは多い。

皮むき

水につけると乾きが悪くなるため洗わない。鉄の包丁は黒くなるのでセラミックを使う。スズラン紐で結んで、一本の干し竿に15個から20個引っ掛けて吊るす。

外干し

干し柿は戸外の物干しに引っ掛けておいて乾かす(外干し)。ずっと部屋干ししていると風が当たらないので乾きが悪く、室温が高いため腐りやすい。理想的には昼も夜も外干しが良い。くれぐれも雨に当てないように。濡らすと台無しになる。

2020.10.24

台風被害、鳥獣被害

思えば一昨年は台風被害、昨年は10個くらいしか取れなくて、干している最中にヒヨドリに全部食べられてしまって...

今年は台風被害は免れた。なぜかヒヨドリの被害がない。よしよしと思っていたら干している最中にやられた。おそらくアライグマだ。干して甘くなったやつだけ10個以上食べてった。竿を引き摺り下ろして、まだ乾いていないのも被害。夜中の12時ごろから1時間くらい目を離していた、その15分くらいの間に。

夜ぼしはNG

猫のかごを出してきて、これなら取られないだろうと、夜も外干ししておいたら、再びやられた。檻の中に手を伸ばしたのだろう、干し柿に届くようだ。12個くらい食べられている。夜はヤバイ。毎晩取り込むようにした。昼間はやられない、これで大丈夫だ。


11月に全量収穫

もうオレンジ色を通り越して赤みが出てきている。これ以上木の上においておくと熟してユルユルになって、皮むきができずに干し柿にならなくなる。大量に収穫、皮むいて、吊るす。朝外に出して、夕方家の中に引き込む。

夜このままにしておくと、下の方の甘くなったのを取られる


熟柿(ジュクシ)

皮むきを先送りにしていると柿は熟してくる。熟すと身がユルくなって干し柿にはできない。そのうち熟柿という状態になる。これはもう中身がユルユル。皮はブドウの皮のように薄くなって、見た目は赤みが出てきている。渋は、完全に抜けている時もあればまだ少し残っている時もあるがいずれも食べた直後は甘い。渋は後味にやってきて舌に残る。食べ終わるまでわからない。

11月12日、皮むき完了。この時点で330個。すでに食べちゃった分、クマに食べられた分、鳥にやられた分を考慮すると400個近く収穫できた事になる。10年くらい前に300個、という記録があったが、今年は記録更新。

柿の木1本から330個収穫

来年も豊作でありますように。

何年か収穫が思うようにならなかったため、鉢で育てていた2本の若い木(7、8年もの)を2年ほど前に庭植えした。タネから実生で増やしたやつだ。今年1個だけ花をつけたので来年あたり実がなるかもしれない。

notarizeで失敗 20201022


notarizeで、またもや失敗、1048エラー。9月にはできたのに...。おそらく契約関係の承認が必要になったのだろうと、Apple Developer Connectionにアサインして、Membershipを見ると、一つあったので承認。それでもまだ1048エラー。次のようなメッセージが返された。

Package Summary:

1 package(s) were not uploaded because they had problems:

/var/folders/7n/535dkwvn2hs_kttq4x17npg40000gr/T/6FA147A3-542B-4559-B2EA-7F446BA71777/Untitled.itmsp – Error Messages:

You must first sign the relevant contracts online. (1048)

2020-10-22 21:05:09.976 altool[8484:1281657] *** Error: You must first sign the relevant contracts online. (1048)

このエラーメッセージにはいつもパニックになる。気を取り直して、ネットで検索したらApple のサポートページがあった。

Notarization error 1048

よく見ると、developerサイトと、appstoreconnectサイトにペンディングのアグリーメントがあるかチェックしろ、と書いてある。appstoreconnectに行ったらペンディングがあったので承認したらnotarizeは成功。

あとでメーラーを見てみたら、次のようなメッセージが来ていた。

このメールに反応していれば問題は起きなかった、はず。

4Dのプロセス変数にゲッターセッターを記述するのはもう古い?v18で提供されたClassesのFunctionが使えそう。

プロセス変数とはプロセス内で参照可能な変数のこと。プロセスというのは同じマシンならNew Processなどで区切られたメモリー上の作業空間とでも言えばいいか。Client/Server環境ではサーバサイドで実行などにより実行マシンが違えば作業空間は異なるので別プロセスだ。別のプロセスの変数はそれ用のコマンドを使わないと参照できない。

人それぞれ違うと思うが、ウチの開発スタイルではプロセス変数は次の2種類がある。

(1)フォームオブジェクトに割り当てるためのプロセス変数
(2)プロセス内でグローバルに参照するために用意する主として制御用のプロセス変数

(1)は4Dの仕様上必要な変数。フォームが表示されている間はメソッドからフォームオブジェクトを参照したくなるはずで、メソッドが終わってもフォームがある限り解放されないプロセス変数であることが合理的だ。個人的に、次のように名前を付けている。

・ vPL01_btnOK:PL01というフォーム上の「OK」ボタンという意味。ボタンの場合はプロセス変数に代入することはない。オブジェクト名を参照しているだけ。

・ vPL01_lstPL:PL01というフォーム上の「lstPL」リストボックスという意味。vPL01_lstPL_IDやvPL01_lstPL_NAMEなどを列として定義、DBのPLというテーブルから持ってきた値を表示する。プロセス変数はプロセス開始時に領域が確保されるが、リストボックスはOnload前は参照できないので注意。

・ vPL01_txtPL_NAME:PL01というフォーム上の「PL_NAME」フィールドで、DBのPL_NAMEから持ってきた値を表示するためのプロセス変数という意味。

変数名とオブジェクト名は別の名前をつけることもできる。どちらもプロセス開始時に領域を確保されてしまう。特に困ったこともないので「オブジェクト名と変数名はいつも同じ」にしている。同じ値のオブジェクトには同じ変数名をつければどちらも同じ値が表示される。が、別々の名前をつけて値はコードで代入し直す方が主流だ。

(2)は、フォーム上に表示されない、プロセス内の制御用の変数。例えばよく使う変数としては、ダイアログを表示するメソッドの場合にどのフォームから呼ばれたかを示すモードのような変数「vPL01_varMode」とか、一覧で選択されていたIDを詳細画面で保持するための変数「vPL_varPL_ID」とか、印刷時に現在のページ数を印字するための変数「vP01_varPageNr」など、がある。

このような変数にはいわゆるゲッター/セッターを用意して直接参照はしないようにする。フォームオブジェクト以外は、基本的に変数はローカル変数にすべきで必要な関数に引数で渡して使う、という考え方がまずあって、オブジェクト型の変数が無かった時代は多くの引数が必要になってしまって面倒すぎるのでグローバル変数を使いたい、という時代背景がある。例えば「vPL01_varMode_get」と「vPL01_varMode_set」である。次のように使う。

//PL01_DefInit
・・・
C_TEXT(vPL01_varMode)
・・・

//vPL01_varMode_get
C_TEXT($0)
$0:=vPL01_varMode

//vPL01_varMode_set
C_TEXT($1)
vPL01_varMode:=$1

//PL01_SetContorolsValues
・・・
//新規追加モードの場合、削除ボタンは非表示にする
C_TEXT($mode)
$mode:= vPL01_varMode_get
if ($mode=“add”)
 OBJECT SET VISIBLE(*;”vPL01_btnDelete”;False)
end if
・・・

このように記述していると、メソッド内にはフォームオブジェクト以外のプロセス変数が現れなくなる。このやり方は、まだ4Dに不慣れな頃に師匠から伝授されたものだ。初めはなんでこんな面倒なことをするのだろうと思っていたが、今でもこのやり方を踏襲している。実はこの種のプロセス変数はそんなに多くない。メソッド数が増えてしまうが、たいして手間ではないし、このようにすることでデバッグタイムが少なくなっていると感じている。教えてくださった先輩に感謝!

この方法の欠点としてメソッド数が増えてしまうと書いた。わずか2行のコードのために新しいメソッドを作る手間も感じていたがv18で改善された。ClassesのFunctionを使えば、オブジェクト表記の延長で「vPL01_varMode.get」などとメンバー関数を記述できる。そしてなんと一つのメソッドエディタ内に複数のFunctionを定義してゲッターとセッターを記述できるようになるのだ。

Laurent Esnault氏のセッション。今年の4D Summit 2020はオンラインで無料。英語がダメでも画面見てれば大体わかる素晴らしいデモに感謝。その内容に感激!4Dライフが大きく変わること必至。

まだv13のプロジェクトもあるが、コーディング規約を改訂するときがきたようだ。