ハンモック ホーム

株式会社ハンモックは、IT資産管理、情報漏洩対策、名刺管理、営業支援、
データエントリー業務の効率化を実現する法人向けソフトウェアメーカーです。


TeleForm Ver.8 以前のユーザー様向け FAQ

[ BasicScript|自動エクスポート(DB) ]


Q124. 未記入だったフィールドに対し、特定の値をエクスポートするには どのような方法がありますか。
バージョン7、8   タイプすべて 最終更新日2006年07月24日

TeleForm での基本機能の範囲では、フィールドのプロパティ画面での「デフォルト値」においてエクスポートしたい値を設定する方法となります。ただし、フィールドのプロパティ画面での「デフォルト値」の設定は、ReaderでのOCR処理時に"未記入"と判断されたフィールドに対してのみ適用されるため、OCR処理時にノイズやズレ等の原因により不要なデータを認識してしまった場合、 不要なデータはVerifierの修正画面上で削除することは可能ですが、OCR処理時にセットされなかったデフォルト値が自動でセットされることはありません。

そのため、処理状況によっては、フィールドのプロパティ画面での「デフォルト値」の設定ではデフォルト値がデータベースに格納されないという現象が発生してしまいます。

OCR処理時に"未記入"だったフィールドはもちろん、Verifierの修正画面でデータが削除されたフィールドに対しても データベースに格納される値をセットするためには、OCR処理時ではなく、データをデータベースにエクスポートするタイミングで"未記入(データがない)"フィールドに値をセットするようなスクリプトを組み込む必要があります。


■ フォーム上に1つ1つ作成しているデータ入力フィールドの場合

このスクリプトはフィールドごとに記述します。値をセットしたいフィールドが多い場合には、最初に各フィールドのリストを定義しておく方法が有効です。 たとえば、次の1~5のデータ入力フィールドにエクスポート時にデータがなかった場合に"0"をセットするには、以下のようなスクリプトを組み込みます。

  1. A商品の注文数:A_Suryou
  2. B商品の注文数:B_Suryou
  3. C商品の注文数:C_Suryou
  4. D商品の注文数:D_Suryou
  5. E商品の注文数:E_Suryou

≪Scriptのサンプル≫

Sub Form_Export
  Dim field(6) As String
  field(1) = " A_Suryou"
  field(2) = "B_Suryou"
  field(3) = "C_Suryou"
  field(4) = "D_Suryou"
  field(5) = "E_Suryou"
  Dim i As Integer
     For i = 1 to 5
      If Fields(field(i)).Text = "" then
       Fields(field(i)).Text = 0
      End If
     Next i
End Sub

※ご注意
弊社では、スクリプトのサポートは行っておりません。上記のスクリプトはあくまでもサンプルです。
お客様の責任範囲でご活用いただきますようお願い致します。
なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。


■ 詳細グループ内のデータ入力フィールドの場合

詳細グループ(Detail)内の「注文数(Suryou)」フィールドに記入がなかった場合に"0"をセットするには、以下のようなスクリプトを組み込みます。

≪Scriptのサンプル≫

Sub Form_Export
  Dim i As Integer
   For i = 0 to Detail.Count-1
    If Detail(i). Suryou.Text = "" then
     Detail(i). Suryou.Text = 0
    End If
   Next I
End Sub

※ご注意
弊社では、スクリプトのサポートは行っておりません。上記のスクリプトはあくまでもサンプルです。
お客様の責任範囲でご活用いただきますようお願い致します。
なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。

詳細グループ(Detail)内のすべてのデータ入力フィールドに記入がなかった場合に"0"を
セットするには、以下のようなスクリプトを組み込みます。

≪Scriptのサンプル≫

Sub Form_Export
  Dim i As Integer
  Dim j As Integer
    For i = 0 to Detail.Count-1
     For j = 0 to Detail(i).Fields.Count-1
      If Detail(i).Fields(j).Text = "" then
       Detail(i).Fields(j).Text = 0
      End If
     Next j
    Next I
End Sub

※ご注意
弊社では、スクリプトのサポートは行っておりません。上記のスクリプトはあくまでもサンプルです。
お客様の責任範囲でご活用いただきますようお願い致します。
なお、上記サンプルに関してのサポートもお受け致しかねますので、あらかじめご了承下さい。


ページ先頭へ

ページ先頭へ

sp 
gray
<Q124. 未記入だったフィールドに対し、特定の値をエクスポートするには どのような方法がありますか。 - OCRソフト「TeleForm」 v8 ユーザー向けFAQ|ハンモック>
法人向けソフトウェアメーカー【ハンモック】のWebサイトをご覧のみなさま

株式会社ハンモックは、IT資産管理、情報漏洩対策、名刺管理、営業支援、データエントリー業務の効率化を実現する法人向けソフトウェアメーカーです。パッケージソフトウェアおよびその組み合わせによるソリューションを、目的別、悩み別にご提案します。実際に導入した企業様の事例もご紹介。オフィスの業務効率化をハンモックがサポートいたします。
法人向けソフトウェアメーカー
株式会社ハンモック
マイナンバー  プライバシーマーク   ISO
ハンモック ホーム | 個人情報保護方針について | 情報セキュリティ基本方針および特定個人情報保護基本方針について | 本Webサイトについて | お問い合わせ | サイトマップ
株式会社ハンモック © 2016 Hammock Corporation