/************************************************************/
/*										/*
/*	xxxxxx テーブルへのINSERT　
/*										/*
/*任意：Copyright (C) 2001 Mayson System. All Rights Reserved	
/************************************************************/

/*** プロシージャーの作成 ***/

/* ----- ファンクションを作成する -----
/* create or replace function ファンクション名

create or replace function insert_mtl_disb

/* 変数を宣言する。ここに、VBで指定した変数の値を格納する
/* 変数名と、データ型を示す

(
    s_gdisb_no				IN	varchar2,
    s_gOrder_no				IN	varchar2,
    s_gItem_no				IN	varchar2,
    s_gdisb_Qty				IN	number,
    s_gdisb_flg				IN	number

)return number
as

/*** メイン処理 ***/
/*　begin から始まり、end で終わる

begin

/* INSRET 文は、普通のSQLと一緒
/* INSERT INTO テーブル名　((テーブル内の)変数名1,変数名2......変数名n)
/* VALUES ((VBから値を格納する、宣言した)変数名1,変数名2......変数名n)


		INSERT INTO mtl_disb (
			disb_no,
			order_no,
			item_no,
			disb_qty,
			disb_flg
		) VALUES (
		s_gdisb_no,
    		s_gOrder_no,
    		s_gItem_no,
    		s_gdisb_Qty,
    		s_gdisb_flg
		);
/* 正常に終わった場合に返す値を設定。この場合は、ゼロを返す

RETURN 0;

/**** 例外処理部 ***

exception 
when  others  then

/* もし正常に終了しない場合は、999999を返す

	return 999999;
end;
/