Delphi/400自社開発ソフトで業務課題解決　写真管理とスプールファイルのPDF化

Size: px

Start display at page:

Download "Delphi/400自社開発ソフトで業務課題解決　写真管理とスプールファイルのPDF化"

としはるあさま
5 years ago
Views:

会社概要社名 : 日綜産業株式会社本社 : 東京都中央区日本橋蛎殻町 1-10-1 代表者 : 代表取締役小野辰雄設立 : 1968 年 ( 昭和 43 年 )6 月資本金 : 6 億 8,606 万円

4 会社概要社名 : 日綜産業株式会社本社 : 東京都中央区日本橋蛎殻町代表者 : 代表取締役小野辰雄設立 : 1968 年 ( 昭和 43 年 )6 月資本金 : 6 億 8,606 万円事業所 : 東京大阪その他北海道から九州まで全国に展開日綜産業は仮設足場の安全性を追及していきます 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 4

製品に起因する労働災害ゼロ件を継続中取り扱い製品 ( 例 ) 3S システム 3S システム ( 使用例 ) 法面

6 事業概要建築土木造船プラントなどの建設用仮設機材の開発設計製造販売レンタル理念仮設機材のパイオニアとして現場で働く人々の尊い命を守るため安全で安心感のある様々な製品群を提供創業以来製品に起因する労働災害ゼロ件を継続中取り扱い製品 ( 例 ) 3S システム 3S システム ( 使用例 ) 法面 2 号法面 2 号 ( 使用例 ) 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 6

9 レンタル機材の修理における業務概要 IBM i PC サーハー ( ファイルサーハー ) 1. レンタル契約営業店検収情報参照顧客 7. 代金回収レンタル機材発送 4. レンタル機材返却検収情報登録機材センター 3. 機材の使用返却された製品の検収を行い損傷等があればデジカメで撮影する ( 検収写真 ) 多い日で 300 枚位修理代として顧客へ請求する ( 検収写真を添付 ) 5. 機材の検収検収情報の登録検収情報 = 写真データ + 修理全損情報 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 9

11 検収業務の課題点 PC サーハー連携無し! IBM i 写真データの印刷検収写真検収データ課題 3 検収写真の印刷は写真管理ソフトが必要写真の仕訳 1ページ4 枚ずつレイアウト作成など印刷の手間がかかる課題 4 検収写真データとIBM i の検収データがリンクされておらず目視で付き合わせが必要リンクが無いため写真の信憑性が弱く回収時に不利なケースも 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 11

13 工夫 1 IBM i データと JPEG ファイル連携の仕組み検収写真 (JPEG) のEXIF 情報 1にIBM i マッチング用キーを持たせた Delphi/400でEXIF 情報を読み込み IBM i 上のキーデータとマッチング JPEGとIBM i の検収データを連携できるようにした 1) デジタルカメラで保存する記録の形式情報 IBM i 検収データ PC サーハー検収画像マッチング EXIF 情報 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 13

14 工夫 2 INI ファイルの利用営業店や担当者毎に使用方法や保存方法が異なる INIファイルにより対応 PC 毎にカスタマイズした設定を保存 INI ファイル情報保存フォルダのカテゴリや階層 4 枚印刷 / 8 枚印刷の選択保存機能の可 / 不可過去のフォルダを記憶保存フォルダのカテゴリ ( 営業担当者得意先現場返却日等 ) や階層を任意の組み合わせで自動作成できるようにした 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 14

工夫 3 サムネイルによる写真管理画像をサムネイル形式で管理できるように工夫! Shift キーやポップアップ操作も採用!

工夫 4 検収写真一覧の出力 VB-Report3.0 を利用して自動レイアウトでの検収写真印刷を実現!

課題 3 検収写真の印刷は写真管理ソフトが必要写真の仕訳 1 ページ 4 枚ずつレイアウト作成など印刷の手間がかかる検収写真くんで思い通りのレイアウトで印刷が可能に!

17 導入効果課題 1 検収写真データをメール送付のためメールサーバーの容量とネットワークトラフィックを圧迫検収写真くんで検収データと写真データを照会メールは不要に! 課題 2 検収写真データの保存やメール添付作業が大変検収写真データの保存場所が適切でないことが多く後から検索が困難に保存フォルダの場所は自動化写真のメール添付作業は廃止! 課題 3 検収写真の印刷は写真管理ソフトが必要写真の仕訳 1 ページ 4 枚ずつレイアウト作成など印刷の手間がかかる検収写真くんで思い通りのレイアウトで印刷が可能に! 課題 4 検収写真データと IBM i の検収データがリンクされておらず目視で付き合わせが必要リンクが無いため写真の信憑性が弱く回収時に不利なケースも機材センターで JPEG を検収データとリンク営業店の手間は解消! 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 17

21 スプール PDF 化ソフトスプールくんを開発スプールくんのソフト概要スプール帳票を PDF に変換 - 通常の Windows プリンターで印刷が可能 - テキスト検索できる PDF なので保存しておけばデスクトップ検索で印刷項目まで検索可能 198 桁のスプール帳票 1 ページが 1 画面で全て見れる IBM i のデータ IBM i のデータ 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 21

22 工夫 1 アプリケーションの仕組み 1OUTQ のリストを TListSpool400 で TDBGrid へ表示 2 スプールをダブルクリックすると TSpool400 から TMemo へ表示 3PDF 出力で AdobePDF や PrimoPDF を利用して PDF 印刷最初 {************************************************************************** 目的 : ListSpool 実行 (DBGridに出力待ち行列を表示) 引数 : 戻値 : ***************************************************************************} procedure TfrmSPL0010.pListSpoolActive; begin // List Spool 実行 with ListSpool4001 do begin Active := False; LibraryName := plibraryname; //INIファイルのライブラリ名 OutQName := poutqname; //INIファイルのOUTQ 名 end; end; Active := True; DBGridのDblClickイベントで下記を実行 {************************************************************************** 目的 : スプール表示引数 : 戻値 : ***************************************************************************} procedure TfrmSPL0010.acSpoolViewExecute(Sender: TObject); begin inherited; //Spool400 実行 with Spool4001 do begin Active := False; WorkFile := ''; SpoolName := ListSpool4001.FieldByName('Name').AsString; SpoolNumber := ListSpool4001.FieldByName('SpoolFileNumber').AsString; JobName := ListSpool4001.FieldByName('jobName').AsString; JobNumber := ListSpool4001.FieldByName('jobNumber').AsString; User := ListSpool4001.FieldByName('UserName').AsString; Active := True; // ページ数算出 pmaxpage := StrToIntDef(ListSpool4001.FieldByName('TotalPages').AsString,0); // 桁 132 or 198 ppagewidth := StrToIntDef(ListSpool4001.FieldByName('PageWidth').AsString,0); pnowpage := 1; mepage.text := IntToStr(pNowPage) + ' / ' + IntToStr(pMaxPage); end; // スプールの内容をMEMOにセット Memo1.Clear; // クリア //Spool400 Memo with Spool4001 do begin memo1.visible := False; First; while not eof do begin Memo1.Lines.Add(Fields[0].AsString); Next; end; // 先頭行に Memo1.SelStart:=SendMessage(Memo1.Handle,EM_LineIndex,0,0); Memo1.Perform(EM_SCROLLCARET, 0, 0); memo1.visible := True; end; end; 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 22

工夫 2 スプールに応じて Excel フォーマットを 2 種類で対応出力するスプールの固定幅にあわせて VB-Report3.

24 工夫 3 ファンクションキーの実装各スプール操作の機能を使い易くファンクション割り当てページ送り始 :F8) Spool4001.FirstPage 前 :F10) Spool4001.PriorPage 次 :F11) Spool4001.NextPage 終 :F12) Spool4001.LastPage ページ No も算出して制御! フォントサイズ変更大 :F1)memo1.Font.Size := memo1.font.size + 1; 小 :F2)memo1.Font.Size := memo1.font.size - 1; 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 24

25 導入効果課題 1 印刷コスト削減のため印刷物を減らしたい運用スタートからまだ間もないが印刷コストは少しずつ減少! 課題 2 スプール帳票をメールに添付したいスプールくんで PDF を出力してそのまま添付ができる! 課題 3 帳票を紙に印刷せず画面上でチェックしたい感想画面上でのチェックはもちろん保存済みの PDF もテキスト検索できる! Delphi/400 により市販の BI ツールや電子帳票ツールを購入することなく自社に特化したツールの構築が可能ミガロ. のテクニカルサポートは非常に有効だった 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 25

28 今後の計画今後の新規案件のユーザーインターフェイスは Delphi で構築予定自動 PDF 化 : あるスプール先に出力するだけでファイルサーバー上の共有フォルダーに自動に PDF を作成させるスプールを介さず 5250 から直接プレビュー画面を表示 Delphi/400 で自社に特化した BI ツールのような経営上の意思決定に役立てることを目的としてデータの視覚化 ( グラフ化 ) 業務フローでのメールの配信現場コード単位での文書の共有化課題 : 社内でプログラミングできる人間が自分一人しかいない 100% IBM i Company 本文書の一部または全部の転載を禁止します本文書の著作権は著作者に帰属します 28

やってみようINFINITY-WingFan 編-

やってみようINFINITY-WingFan 編- 目次やってみよう for Wingneo INFINITY WingFan! 編やってみよう for Wingneo INFINITY WingFan! 編... 1 目次... 1 システムの起動... 2 WingFan! から現場に入る方法... 2 WingFan! を起動した時に表示される画面の設定... 2 WingneoINFINITY スケジュール管理... 3 現場の切り替え...

Delphi/400自社開発ソフトで業務課題解決 写真管理とスプールファイルのPDF化

Delphi/400自社開発ソフトで業務課題解決　写真管理とスプールファイルのPDF化