| ご参考までに当方でトレース用に改変したコードを提示します。
名札 メイン 変数宣言 共通,整数,{&発年,&発月,&発日} *
手続き定義開始 フォーム::フォーム開始(長整数 &表番号) 変数宣言 自動,文字列{ &icon, &title = "フォーム::フォーム開始( )", &msg } トレース出力 _&title
if ( 1 ) グループ検索 {[伝票番号]=&年月日},終了状態=&秒 トレース出力 _&title, " ", _&秒, " ", "グループ検索 {[伝票番号]=&年月日}"
トレース出力 _&title, " ", _&分 条件 (&分=0) グループ追加 {[伝票番号]=&年月日},終了状態=&秒 条件 (&分=0) トレース出力 _&title, " ", _&秒, " ", "グループ追加 {[伝票番号]=&年月日}"
行追加 [品名]="" 位置指定 行番号=b end
手続き定義終了
手続き定義開始 t品名::フォーカス取得(文字列 &喪失オブジェクト名) 変数宣言 自動,文字列{ &icon, &title = "t品名::フォーカス取得( )", &msg } トレース出力 _&title
if ( 1 ) メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(0) トレース出力 _&title, " ", _&分, " ", "フォーム.更新モード設定(0)"
メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード設定(2)" end
手続き定義終了
手続き定義開始 t数量::フォーカス取得(文字列 &喪失オブジェクト名) 変数宣言 自動,文字列{ &icon, &title = "t数量::フォーカス取得( )", &msg }
メソッド呼び出し 戻り値 = &分,@フォーム.更新モード取得(&秒) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード取得(&秒)"
トレース出力 _&title, " ", _&秒, " ", "条件 (&秒=0) メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2)" 条件 (&秒=0) メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2) 条件 (&秒=0) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード設定(2))" *メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2)
手続き定義終了
手続き定義開始 t単位::フォーカス取得(文字列 &喪失オブジェクト名) 変数宣言 自動,文字列{ &icon, &title = "t単位::フォーカス取得( )", &msg }
メソッド呼び出し 戻り値 = &分,@フォーム.更新モード取得(&秒) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード取得(&秒)"
トレース出力 _&title, " ", _&秒, " ", "条件 (&秒=0) メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2)" 条件 (&秒=0) メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2) 条件 (&秒=0) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード設定(2)" *メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2)
手続き定義終了
手続き定義開始 t単価::フォーカス取得(文字列 &喪失オブジェクト名) 変数宣言 自動,文字列{ &icon, &title = "t単価::フォーカス取得( )", &msg }
メソッド呼び出し 戻り値 = &分,@フォーム.更新モード取得(&秒) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード取得(&秒)"
トレース出力 _&title, " ", _&秒, " ", "条件 (&秒=0) メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2)" 条件 (&秒=0) メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2) 条件 (&秒=0) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード設定(2)"
*メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(2)
手続き定義終了
手続き定義開始 t品名::ソース値更新() 変数宣言 自動,文字列{ &icon, &title = "t品名::ソース値更新( )", &msg }
メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(0) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード設定(0) "
手続き定義終了
手続き定義開始 t数量::ソース値更新() 変数宣言 自動,文字列{ &icon, &title = "t数量::ソース値更新( )", &msg } 変数宣言 自動,整数 { &return }
メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(0) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード設定(0)"
*メソッド呼び出し @t単位.フォーカス設定() メソッド呼び出し 戻り値 = &return, @t単価.フォーカス設定() トレース出力 _&title, " ", _&return, " ", "@t単価.フォーカス設定( )"
手続き定義終了
手続き定義開始 t単位::ソース値更新() 変数宣言 自動,文字列{ &icon, &title = "t単位::ソース値更新( )", &msg } 変数宣言 自動,整数 { &return }
メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(0) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード設定(0)"
*メソッド呼び出し @t単価.フォーカス設定() メソッド呼び出し 戻り値 = &return, @t単価.フォーカス設定() トレース出力 _&title, " ", _&return, " ", "@t単価.フォーカス設定( )"
手続き定義終了
手続き定義開始 t単価::ソース値更新() 変数宣言 自動,文字列{ &icon, &title = "t単価::ソース値更新( )", &msg } 変数宣言 自動,整数 { &return }
メソッド呼び出し 戻り値 = &分,@フォーム.更新モード設定(0) トレース出力 _&title, " ", _&分, " ", "@フォーム.更新モード設定(0)"
*メソッド呼び出し @中止.フォーカス設定() メソッド呼び出し 戻り値 = &return, @中止.フォーカス設定() トレース出力 _&title, " ", _&return, " ", "@中止.フォーカス設定( )"
手続き定義終了
|