| 過去の桐井戸端ＢＢＳ （桐ver.８） |
| 14732 | 複数の桐のＦＡＸ番号データへＦＡＸ自動送信を行いたい | 小松亀一 | 2002/01/14-15:00 |
|
いつもお世話様です。仙台の小松と申します。 メガソフト社のスターファックス２０００を利用して、複数宛先へのモデム自動送信実現に向けて悪戦苦闘中です。 具体的には、サラ金整理事件の受任通知用レポートデータを、 債権者であるサラ金各社の桐データに登録されたＦＡＸ番号へ自動送信することです。 各顧客毎の債権者一覧表を作成しており、債権者欄には、住所、電話番号、ＦＡＸ番号を金融機関データから、 名称を比較値として表引き関数で表引き表示しています。 一顧客当たり平均して１０社位のサラ金各社のこのＦＡＸ番号宛に イベントを使用してスターファックス自動送信が出来ればと思っております。 これまで印刷した紙でいちいち手で入力してＦＡＸ送付しており面倒を感じているからです。 事業倒産通知書の場合、債権者が１００社近くなることもあり、 この受任通知を桐ＦＡＸ番号データに自動送信できるようになると 通知書送付作業が、飛躍的に省力化されます。 単独の相手方への送付は、以前、hidetakeさんからご教示を受けたレポートファイル名を 一時的に相手方ファックス番号に変更する方法で実現しております。 以下のようなイベントです。ＦＡＸ番号を変数に入れて、 これをファイル名とするだけの単純なものです。 手続き定義開始 モデム送信() プリンタ "MEGASOFT STARFAX",終了状態=&OK 絞り込み 行数=1 代入 &FAX番号=[FAX番号] ファイル複写 "FAX通知.rpt","FAX通知1.rpt",終了状態=&OK ファイル名変更 "FAX通知1.rpt","FAX["+&FAX番号+"]"+".rpt",終了状態=&OK メッセージボックス "印刷確認","モデム送信しますか",アイコン=?,ボタン 指定=5,制御文字展開=しない,&確認 ケース開始 ケース (&確認=6) レポート印刷 "FAX["+&FAX番号+"]"+".rpt"\ ,開始ページ=1,終了ページ=3,部数=1,強制改行文字="／" ファイル削除 "FAX["+&FAX番号+"]"+".rpt",終了状態=&OK ファイル削除 "FAX通知1.rpt",終了状態=&OK ケース終了 手続き定義終了 債権者一覧表に入力された複数の相手方への自動送信は次のように出来ればと思っております。 債権者一覧表を印刷対象表としたレポートに宛先とＦＡＸ番号を表示し （ＦＡＸ番号は、金融機関データからの表引き表示）、 事件ＩＤで絞り込んだ複数の債権者宛のＦＡＸ番号に連続して自動的にスターファックスで送信する。 仮に１０社のサラ金に送信する場合、ＦＡＸ番号をファイル名とする １０個のレポートを作成する必要がありますが、この実現方法が判りません。 前述の通り、ＦＡＸ番号の項目は、債権者一覧表には作っておりませんが、 モデム自動送信のために、ＦＡＸ番号を項目として作り、 絞り込んだ１０個のＦＡＸ番号データ全部について、受任通知用レポートを繰り返しコピーし、 ファイル名をＦＡＸ番号にリネームし、 送信後、全てを削除するとの流れになるのでしょうが、 具体的にどのように記述するのかサッパリ見当がつきません。 やりたいことを上手く説明できず、恐縮ですが、考え方のヒント等ご教示頂ければ幸いです。 私は、文書の授受は出来る限りＦＡＸモデムで行いたいと考えております。 封筒も切手も不要で綺麗な表示の文書を送ることが出来るからです。 桐に入力してある複数相手方ＦＡＸ番号へ自動送信が出来るようになると色々な場面で応用が出来ます。 何とか実現できればと熱望しており、ご指導の程、宜しくお願い申し上げます。 多遊さんの掲示板に上げましたが、同じような希望を持っている方が 他にもいるのではと思い、ここにも投稿しました。 | |||
| 14761 | Re:複数桐ＦＡＸ番号データへのＦＡＸ自動送信 | 小松亀一 | 2002/01/17-07:59 |
| 記事番号14732へのコメント 仙台の小松の自己レスです。 >メガソフト社のスターファックス２０００を利用して、複数宛先 >へのモデム自動送信実現に向けて悪戦苦闘中です。 その後、多遊さんや、このＢＢＳの愛読者の方のＤＭでのアドバイスを得て、 ほぼ目的を達成する記述が出来ましたのでご紹介申し上げます。 手続き定義開始 破産受任通知ＦＡＸ送付() メッセージボックス "ＦＡＸ送付確認","破産受任通知を債権者にＦＡＸ送付しますか"\ ,アイコン=?,ボタン指定=5,制御文字展開=しない,&確認 ケース開始 ケース (&確認=6) 変数 文字列{&FAX} 変数 整数{&確認,&F,&債権者数,&OK,&番号} 代入 &事件ＩＤ=[事件ＩＤ] 代入 &番号=1 絞り込み [事件ＩＤ]{&事件ＩＤ} /*ここまで当該顧客の債権者に絞り込み*/ 代入 &債権者数＝&選択件数 /*絞り込んだ行数を取得して代入*/ 繰り返し &F=1,&債権者数,1 プリンタ "MEGASOFT STARFAX",終了状態=&OK 絞り込み [№]{&番号} /*当該番号の行に絞り込み*/ 代入 &FAX=[FAX] /*当該番号の行のFAX番号を代入*/ ファイル複写 "破産受理通知.rpt","破産受理通知1.rpt",終了状態=&OK ファイル名変更 "破産受理通知1.rpt","FAX["+&FAX+"]"+".rpt",終了状態=&OK レポート印刷 "FAX["+&FAX+"]"+".rpt"\ ,開始ページ=1,終了ページ=2,部数=1,強制改行文字="／" ファイル削除 "FAX["+&FAX+"]"+".rpt",終了状態=&OK ファイル削除 "破産受理通知1.rpt",終了状態=&OK 絞り込み解除 1 /*ここまで当該顧客の債権者全行に戻す*/ 代入 &番号=&番号+1 /*ここで番号を一つ加える*/ 繰り返し終了 ジャンプ 行番号=先頭 ケース終了 手続き定義終了 | |||