- ベストアンサー
ＲＰＧについて
morisyu42の回答
- morisyu42
- ベストアンサー率40% (4/10)
こんにちわ。 ＃１のfreesiaさんの回答であっていますが、ＭＯＶＥＬは標識がＯＦＦ（対象レコードがある） 時だけにしましょう。何が入るかわからないので・・・＾＾； 標識の聞き方はいろいろ有るので、また聞いてください。 また、キーが複数の時はキーフィールドを切らないと行けません。
関連するQ&A
- ＩＢＭ ＡＳ／４００ ＲＰＧ
プログラミング歴1週間、ＲＰＧ歴１週間の初心者です。 ＲＰＧについての本やサイトが少なく、サンプルコードも数えるほどしかわからない私にどうか救いの手を・・・。 今困っているのは初歩的なものなのですが、Ｅ仕様書のテーブル定義の仕方とＣ仕様書で検索キーを宣言してマスタファイルから検索をかける方法がわかりません。 たとえば受注明細ファイル（トランザクションファイル）を出力するのに商品コードしか記載されてないとします。 そこで商品マスタの商品コードをキーにして、検索をかけ、該当レコードが会った場合はその商品名称を出力し、なければブランクにする・・・という感じです。 文章がおかしいので理解しずらいとは思いますが、わかる方はサンプルコードをお願いします；；
- ベストアンサー
- その他（プログラミング・開発）
- 度々ＲＰＧについて
いったい一つのプログラムを組むのに何日かかって何度皆様にご迷惑をおかけしているのやら・・・。 内容は受注明細ファイルから１レコード読み、前のレコードと商品コードが一致しなかった場合、受注明細ファイルの商品コードをキーにし、商品マスタを検索。 該当レコードがあった場合商品マスタの商品名称（シフトコード含まないで）２０桁を１６桁に編集し、シフトコードの編集もしてから出力ファイルの商品名称にいれる。 もし商品マスタに該当レコードが無ければ、出力ファイルの商品名称に’未登録’を表示・・・ というものです。１６桁編集はＳＵＢプログラムとして補足資料に以下のものが書かれていました。 C P#010 PLIST C PARM P#LEN 2 桁数 C PARM P#DATA 80 文字列 C PARM P#OPT 1 オプション 以上パラメーターの定義 C MOVEL'16' P#LEN C MOVEL*BLANK P#DATA C MOVEL****** P#DATA C MOVEL*BLANK P#OPT C CALL 'SUB0010R' 以上パラメーターにデータをセットして、サブプログラムの実行（ＣＡＬＬ） ＣＡＬＬ終了後、P#DATAに１６桁に編集された文字列が返ってくる。 ＊オプションは、サブプログラム側で何かしらのエラーが発生した場合、’１’を返してくる。 以上です。 この場合どのようなプログラムになるのでしょうか？ お助けください；；
- ベストアンサー
- その他（プログラミング・開発）
- ＲＰＧについて
やりたいことなのですがまず一つは、前レコードの受注ＣＤ、得意先ＣＤ11桁と新しいレコードの受注ＣＤ、得意先ＣＤ１１桁が違った場合何か処理を起こすようにしたいのですが・・・ この場合新しいレコードの11桁も前のレコードの１１桁のようにｉ仕様書で設定しなければいけないのでしょうか？ 前レコード11桁は以下のような形で行いました。 例）受注コード（６桁数字） 得意先コード（５桁数字） （Ｉ仕様書） ＤＳ １ １１０ ＯＬＤＣＤ ←(1) １ ６０ Ｏ＠ＪＨＣＤ ←(2)受注コード ７ １１０ Ｏ＠ＴＯＣＤ ←(3)得意先コード －－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－ （Ｃ仕様書） Ｚ－ＡＤＤ受注コード Ｏ＠ＪＨＣＤ Ｚ－ＡＤＤ得意先コード Ｏ＠ＴＯＣＤ もう一つはCHAIN命令で検索した場合、該当レコードがあった場合サブルーチン￥ＣＡＬＬへいき、該当レコードがなかった場合サブルーチン￥ＣＡＬＬ２を行いたい場合どのように組めばいいのか教えてください。
- ベストアンサー
- その他（プログラミング・開発）
- Weｂ入力画面の即時表示について
VisualWebDeveloper2005とSql-Server2005で Web受注入力画面を作成しています。 受注明細のなかで商品コードを入力して 該当の商品名称と単価をSql-Serverから 検索し即時表示する方法を教えてください。 Sql-server 商品マスタ データ件数25000件 商品CD int型 商品名 nvarchar型(50) 商品単価 int型 サーバーやクライアントに追加アプリをインストール しないで、一般的なローカルプログラムのように、 商品コード入力後名称・単価が表示したい。 多少のレスポンスは覚悟しています。 どうかよろしくお願い致します。
- ベストアンサー
- その他([技術者向] コンピューター)
- データシート形式のサブフォームでコンボボックスでの入力がうまくいかない
サブフォームはデータシート形式です。 メインフォームは受注フォーム。サブフォームは受注明細フォームです。 サブフォームのソースは受注明細テーブルです。 サブフォームに商品コードのコンボボックスがあって選択すると 該当する商品名、販売価格を商品マスタテーブルから検索して表示 したいので以下のようにためしてみました。 Private Sub 商品コード_AfterUpdate() ' ' 商品名 = DLookup("商品名", "T_商品マスタ", "商品コード='" & 商品コード & "'") ' 販売価格 = DLookup("販売価格", "T_商品マスタ", "商品コード='" & 商品コード & "'") 商品名 = 商品コード.Column(1) 販売価格 = 商品コード.Column(2) End Sub そうすると、商品コードを選択すると商品名と販売価格が 全行同じものに変わってしまいます。 どうすればよいでしょうか？ ご教示していただけませんでしょうか？ よろしくお願い致します。
- ベストアンサー
- オフィス系ソフト
- RPGのデータベースについて
マスタファイルを作りました。 作ったデータベースのレコード設計書を出力したいのですが、 やり方を忘れてしまいました。 どなたか教えてくださいTT
- ベストアンサー
- その他（プログラミング・開発）
- ACCESSのデータシート形式のフォームでのDLookupについて
お世話になります。 以下の様なコードでフォーム上の「bikou」という項目に商品マスタテーブル内の該当する商品コードの「商品名称」を代入しようと思います。 Private Sub 商品コードNo_BeforeUpdate(Cancel As Integer) Me!bikou = DLookup("商品名称", "商品マスタ", "商品コード='" & Me!商品コードNo & "'") End Sub これは単票形式のフォームではうまくいくのですが、データーシート形式ですと商品コードを入力する度にフォーム上に表示されている「bikou」がすべて塗り換わってしまいます。結果として最後に入力して商品コードの商品名称が、表示中のすべてのレコードの「bikou」に代入されてしまいます。そこで、「現在編集中のレコードの項目「bikou」のみに値を代入する（商品名称を代入する）」という指定を 行うプログラムの書き方はあるのでしょうか。 よろしくお願い致します。
- ベストアンサー
- その他(データベース)
- アクセスの自動入力フォームに手動で入力したい
初心者ですが、ネットで調べながらaccess2013で、納品書フォームを作りました。 納品書明細テーブルと商品マスタテーブル（商品コード、品番、単位）を納品書明細クエリで紐づけしてフォームを作成しました。商品コードを入力すると、自動的に品番と単位が入るようになっています。 ここで、商品コードがついていない商品（商品マスタに含まれず、今後登録する予定もない）も品番と単位の欄に手動で入力できるようにしたいのですが、可能でしょうか。 今手動で入力すると「フィールド'商品コード'とキーが一致しているレコードをテーブル'商品マスタ'で探すことができません」とエラーが出てしまいます。 ご教示いただけましたら幸いです。よろしくお願いいたします。
- 締切済み
- Access（アクセス）
- Access 選択クエリで計算結果を出したいのですが
お世話になっております。 Accessの選択クエリを使って、 「仕入マスタの仕入数」-「受注マスタの受注数」=「現在庫数」 を求めたいのですが、 この場合、仕入マスタにも受注マスタにも両方ともにレコードがないと、クエリで結果が求められませんよね？。 仕入マスタをベースに、仕入マスタにしかないレコードは「受注数＝０」とみなして、クエリに全件出力させることってできないのでしょうか？ 基本的な質問でごめんなさい。 宜しくお願いします。
- 締切済み
- その他(データベース)
- エクセルのフィルタオプションについて
エクセルのフィルタオプションを使用して、以下のことを行いたいです。 可能でしょうか？可能な場合、方法を教えていただけると助かります。 【やりたいこと】 商品マスタ.csvにある「商品コード」を、受注データ一覧.xlsに転記したい。 【条件】 ・商品マスタ.csv マスタには、「商品コード」「商品番号」「カラー」「色」が含まれています。 ・受注データ一覧.xls 受注データには、「商品番号」「カラー」「色」のデータはありますが、 「商品コード」がありません。 ※受注データの「商品番号」「カラー」「色」がマスタのデータと一致する場合のみ 「商品コード」を転記したいです。 CSVファイルのデータが30万件以上あるため、間違いがないようどうしても 手作業ですることを防ぎたいです。 急ぎの作業のため、何卒お力を貸してください。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 またよろしくお願いします。