JCL_tbl_InitValue

JCL_method_GenerateOneから呼ばれる。データ型に合わせてデータの初期値を返す。

使い方
JCL_method_GenerateOneから呼ばれる。

  //JCL_tbl_InitValue
  //JCL_tbl_GetInitValue
  //20130507 wat
  //メソッド生成時、テンプレートの INITVALUE を得る

C_TEXT($1;$fieldType)
$fieldType:=$1  //フィールド型
C_TEXT($0;$initValue)

$initValue:=""
Case of 
	: ($fieldType="Is Alpha Field")
		$initValue:="\"\""
		
	: ($fieldType="Is Text")
		$initValue:="\"\""
		
	: ($fieldType="Is Real")
		$initValue:="0.0"
		
	: ($fieldType="Is Integer")
		$initValue:="0"
		
	: ($fieldType="Is LongInt")
		$initValue:="0"
		
	: ($fieldType="Is Date")
		$initValue:="Current date"
		
	: ($fieldType="Is Time")
		$initValue:="Current time"
		
	: ($fieldType="Is Boolean")
		$initValue:="false"
		
	: ($fieldType="Is Picture")
		$initValue:=""
		
	: ($fieldType="Is Subtable")
		$initValue:=""
		
	: ($fieldType="Is BLOB")
		$initValue:=""
End case 

$0:=$initValue

関連メソッド：JCL_method_GenerateOne