| 当方では見積書をメールに添付ファイルする場合に活用しています。 見積書.TBLに別途項目(ファイル名称)を設けて計算式には[お客様名]+[見積書番号] +[見積書日付]を連結し、連結したデータをファイル名称とし、そのファイル名を変数に取り込んでいます。但し、お客様名はアルファベットにて登録済み) PDF変換したデータは見積書作成データと同じホルダー内にPDF書庫ホルダーを 設けてその書庫保存しています。
なお、メール送信は桐に付属しているメールソフトを活用しています。 一覧用見積形式・詳細印刷とも同様にイベントを組んでいて 印刷と同時にPDF形式にてテータバックアップも兼ねています。 (桐データが飛んだ時の予防策)
サウンドファイルはファックスソフトに使用されいてるファイルを使っています。
*************************************************************************************** *************************************************************************************** ***** // 見積書 メール送信用 一覧表 PDF印刷 システム // ****************************************** 手続き定義開始 メールPDF一覧表保存() プリンタ "LBP-1420",終了状態=&OK
*****// PDFファイル出力 メッセージ内容 //***** * d05.wav=電話番号がありません。 * d03.wav=OKを押すと送信を開始します。 * a11.wav=終了します。 * a05.wav=FAXデータを送信しています。 * a12.wav=強制的に終了します。 * n01.wav=原稿がセットされました。 代入 &ファイル名称=[ファイル名称] 条件 (&ファイル名称="") サウンド 再生,"b27.wav",非同期, 終了状態=&OK * b27.wav=ファィルを作成できません? 条件 (&ファイル名称="") メッセージボックス "ファィルが作成できませんので排出を中止します。",アイコン=?,ボタン指定=2,制御文字展開=しない,&確認 条件 (&ファイル名称=[ファイル名称]) サウンド 再生,"d03.wav",非同期, 終了状態=&OK * d03.wav=OKを押すと送信を開始します。 条件 (&確認=2) サウンド 再生,"a12.wav",非同期, 終了状態=&OK * a12.wav=強制的に終了しました。 条件 (&ファイル名称="") プリンタ "LBP-1420", 終了状態=&OK 条件 (&ファイル名称="") 手続き終了
メッセージボックス "『 見積書をPDFファイルで排出します 』確認 ☆☆☆ 印刷プレビューは、しません!!。☆☆☆"," § 排出する場合は[ OK ]を 中止する場合は[ キャンセル ]を押して下さい。§ ",アイコン=?,ボタン指定=2,制御文字展開=しない,&確認 ケース開始 ケース (&確認=1) 条件 (&確認=1)サウンド 再生,"n01.wav",非同期, 終了状態=&確認 * n01.wav=原稿がセットされました。 代入 &pdf=[ファイル名称]+".pdf" レポート印刷 "見積印刷.rpt",文書ファイル=&ファイル名称
ファイル複写 &pdf,"見積書庫\",終了状態=&OK ファイル移動 &pdf, "Mail\送信箱\", 上書き, 終了状態=&OK サウンド 再生,"a11.wav",非同期, 終了状態=&OK * a11.wav=終了します。 ケース (&確認=2) 条件 (&確認=2) サウンド 再生,"a12.wav",非同期, 終了状態=&OK * a12.wav=強制的に終了します。 ケース終了 プリンタ "LBP-1420",終了状態=&OK 手続き定義終了
|