みんなに優しく、解りやすくをモットーに開設しています。 以下のルールを守りみんなで助け合いましょう。
1.ファイルメーカーで解らない事があればここで質問して下さい。 何方でも、ご質問・ご回答お願いします。 （優しく回答しましょう）
You are not logged in.
Pages: 1
FMPro,Go 12,Win7
マスタと入力の二つのファイルがあります。
二つは商品コードでリレーションしています。
入力で商品コードと判定ｺｰﾄﾞを入力し、マスタの判定ｺｰﾄﾞと同じであれば結果に〇、異なれば×で「間違っています」とカスタムダイヤログの表示、未入力は結果に未と表示させる方法をご指導お願い致します。
マスタ
商品コード 判定ｺｰﾄﾞ
１００ １０
２００ １１
３００ １２
入力
商品コード 判定ｺｰﾄﾞ 結果
１００ １０ ○
２００ ２０ ×
３００ 空白 未
以上
結果の計算式
Case ( IsEmpty ( 判定コード ) ; "未" ; 判定コード = マスタ::判定コード ; "◯" ; "×" )
でいいでしょう。
Offline
結果の計算式
Case ( IsEmpty ( 判定コード ) ; "未" ; 判定コード = マスタ::判定コード ; "◯" ; "×" )
でいいでしょう。
有難うございます。
解決しましたが、上司の指示でフローが変わりましたので、問い合わせさせていただきます。
入力ファイルの判定ｺｰﾄﾞと結果の入力は入力ファイルの検査結果フィールド入力のタイミングで、自動で別のレイアウト又はタブを切り替わり、そこで入力します。
自動切り替えの判断はマスタファイルの判定ｺｰﾄﾞに入力していることが条件です。
判定ｺｰﾄﾞが空白の場合は切り替わりません。
現在使用しておりますシステムからFMProに切り替えるためですが、使い慣れている同じフローにするためです。
宜しくお願い致します。
スクリプト
If [ not IsEmpty ( マスタ::判定コード )]
レイアウト切り替え
（タブの場合は、タブパネルごとにオブジェクト名を付けて、オブジェクトへ移動）
End If
このスクリプトを検査結果フィールドのスクリプトトリガ
OnObjectExit
で実行すればいいでしょう。
Offline
スクリプト
If [ not IsEmpty ( マスタ::判定コード )]
レイアウト切り替え
（タブの場合は、タブパネルごとにオブジェクト名を付けて、オブジェクトへ移動）
End Ifこのスクリプトを検査結果フィールドのスクリプトトリガ
OnObjectExit
で実行すればいいでしょう。
タブの場合はタブパネル毎にオブジェクト名を付けてとのことですが、
タブコントロール設定のタブ名のことでしょうか？
色々試してみましたが、駄目でした。
チポ wrote:スクリプト
If [ not IsEmpty ( マスタ::判定コード )]
レイアウト切り替え
（タブの場合は、タブパネルごとにオブジェクト名を付けて、オブジェクトへ移動）
End Ifこのスクリプトを検査結果フィールドのスクリプトトリガ
OnObjectExit
で実行すればいいでしょう。タブの場合はタブパネル毎にオブジェクト名を付けてとのことですが、
タブコントロール設定のタブ名のことでしょうか？
色々試してみましたが、駄目でした。
タブの移動につきましてはタブ内のフィールドへ移動で解決しました。
この仕組みが大幅に変わることになりました。
終了し新規案件でご相談いたしますので宜しくお願い致します。
テストには上手く行ったつもりですが、本番では出来ませんでした。
何度も申し訳ありませんが本番と同じ内容で改めて相談致します。
FMPro,Go 12,Win7
マスタと入力の二つのファイルがあります。
二つは商品コードでリレーションしています。
入力ファイルの商品コードと検査結果はタブ名１、判定ｺｰﾄﾞと結果はタブ名２、シリアルＮｏ１はタブ名３、ｼﾘｱﾙＮｏ２はタブ名４にあります。
マスタ
商品コード 判定ｺｰﾄﾞ 入力１ 入力２
１００ １０ ○
２００ １１ ○ ○
３００ １２ ○
４００ １３ ○
入力
商品コード 検査結果 判定ｺｰﾄﾞ 結果 シリアルＮｏ１ シリアルＮｏ２
１００ 合格 １０ ○ １２３
２００ 合格 １１ ○ ２２２ ３３３
３００ 合格 ２０ ×
４００ 合格 空白 未
５００ 合格
①入力の商品コード１００の説明です。
入力ファイルの結果結果が合格の場合はタブ2の判定ｺｰﾄﾞに自動で移動しバーコード入力。
その値がマスタの判定ｺｰﾄﾞと同じであれ結果にば〇表示。
入力１が○なのでタブ名３のｼﾘｱﾙＮｏ１に自動移動しバーコード入力。
②入力の商品コード２００の説明です。
①と同じ動作と入力２が○なのでタブ名４のｼﾘｱﾙＮｏ２に自動移動しバーコード入力。
③入力の商品コード３００の説明です。
判定ｺｰﾄﾞがマスタと異なれば、カスタムダイヤログの表示と結果×表示。
④入力の商品コード４００の説明です。
判定ｺｰﾄﾞが未入力であれば、結果が未表示です。
⑤入力の商品コード５００の説明です。
マスタに商品コードがなければ、タブ２に移動しません。
条件がよく分からないのですが、、
タブに固有のフィールドへ移動するのなら、
フィールド移動
でそのフィールドが有るタブが開きます。
スクリプト
フィールドへ移動（指定のフィールド）
現在のスクリプト終了[結果:0]
これをフィールドのスクリプトトリガ
OnObjectExit
で実行すると、指定のフィールドへ移動できます。
Ifステップで条件を作ってお試し下さい。
Offline
説明が上手に出来なく大変申し訳ありません。
①の途中のスクリプトと計算式までできましたが、
判定ｺｰﾄﾞにバーコード入力しても、タブ名３のｼﾘｱﾙＮｏ１に自動移動する方法がわかりません。
又、OnObjectExitでは上手く動作しません。
宜しくお願い致します。
①入力の商品コード１００の説明です。
入力ファイルの結果結果が合格の場合はタブ2の判定ｺｰﾄﾞに自動で移動しバーコード入力。
検査結果ﾌｨｰﾙﾄﾞにOnObectModifc
If[not IsEmpty(マスタ：：入力１）]
ﾌｨｰﾙﾄﾞへ移動[入力：：判定ｺｰﾄﾞ]
現在のスクリプト終了
End If
その値がマスタの判定ｺｰﾄﾞと同じであれ結果にば〇表示。
Case (IsEmpty (判定ｺｰﾄﾞ ); "未入力";判定ｺｰﾄﾞ =マスタ::判定ｺｰﾄﾞ;"○"; "×")
以上
検査結果ﾌｨｰﾙﾄﾞにOnObectModifc
OnObjectExit
でいいと思いますよ。
If[not IsEmpty(マスタ：：入力１）]
これでは条件が足りないでしょう。
ﾌｨｰﾙﾄﾞへ移動[入力：：判定ｺｰﾄﾞ]
現在のスクリプト終了
オプションの結果の値を
0
とします。
条件がよく分かりません。。
Offline
Pages: 1
[ Generated in 0.005 seconds, 9 queries executed - Memory usage: 544.33 KiB (Peak: 564.87 KiB) ]