⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 pkg_zengin_body.sql

📁 日本pjman公司erp系统 银行支付的DB和VB代码 BASE
💻 SQL
📖 第 1 页 / 共 2 页
字号:
CREATE OR REPLACE PACKAGE BODY PKG_ZENGIN IS 
--####################################################  
--#---------------------------------------------------
--# 慡嬧僨乕僞僩儔儞偍傛傃堷悢偱梌偊傜傟偨嬧峴忣曬偐傜僨乕僞傪拪弌偟丄
--# 慡嬧僿僢僟乕僩儔儞偵僨乕僞傪憓擖偡傞
--#---------------------------------------------------
--# 娭丂悢丂柤丗FUNC_SET_ZENGIN_HED
--# 僶乕僕儑儞丗1.0.0                                   
--# 堷丂偒丂悢丗vcFURIKOMI_NO		- 怳崬No
--#             vcGINKOU_CD	    	- 嬧峴僐乕僪
--#             vcGINKOU_BUNRUI_KBN	- 嬧峴暘椶僐乕僪
--#				vcFURIKOMI_MON		- 怳崬擔偺寧
--#				vcFURIKOMI_DAY		- 怳崬擔偺擔
--#             vcINS_RECORD		- 嶌惉婰榐
--#             vcUPD_RECORD		- 嵟怴峏怴婰榐
--# 栠丂傝丂抣丗 惓忢廔椆	0
--#			  丗 堎忢廔椆	SQLCODE
--#
--# 奣丂丂丂梫丗慡嬧僨乕僞僩儔儞偍傛傃堷悢偱梌偊傜傟偨嬧峴忣曬偐傜
--#				慡嬧僿僢僟乕僩儔儞傪嶌惉偡傞
--#				
--# 嶌丂惉丂幰丗Yamazaki(NHT)
--# 嶌丂惉丂擔丗2002/08/28
--# 嵟廔廋惓擔丗
--####################################################
	FUNCTION FUNC_SET_ZENGIN_HED(
		vcFURIKOMI_NO		VARCHAR2,
		vcGINKOU_CD			VARCHAR2,
		vcGINKOU_BUNRUI_KBN	VARCHAR2,
		vcFURIKOMI_MON		VARCHAR2,
		vcFURIKOMI_DAY		VARCHAR2,
		vcINS_RECORD		VARCHAR2,
		vcUPD_RECORD		VARCHAR2
	)
	RETURN NUMBER
	IS
	BEGIN
		INSERT INTO	APT_ZENGIN_HED
			(	HED_DATA_KBN,
				SHUBETU_CD,
				CD_KBN,
				KAISHA_CD,
				KAISHA_NAME,
				FURIKOMI_MON,
				FURIKOMI_DAY,
				GINKOU_CD,
				GINKOU_NAME,
				SITEN_CD,
				SITEN_NAME,
				YOKIN_SHUMOKU,
				KOUZA_NO,
				HED_DMY,
				TOL_DATA_KBN,
				GOUKEI_KENSU,
				GOUKEI_GAKU,
				TOL_DMY,
				END_DATA_KBN,
				END_DMY,
				FURIKOMI_NO,
				SHIHARAI_BUNRUI,
				DEL_FLG,
				INS_RECORD,
				UPD_RECORD
			) 
		(SELECT
				'1'							AS	HED_DATA_KBN,
				'21'						AS	SHUBETU_CD,
				'0'							AS	CD_KBN,
				GINKOU.KAISHA_CD			AS	KAISHA_CD,
				GINKOU.KOUZA_KANA			AS	KOUZA_KANA,
				vcFURIKOMI_MON				AS	FURIKOMI_MON,
				vcFURIKOMI_DAY				AS	FURIKOMI_DAY,
				GINKOU.GINKOU_CD			AS	GINKOU_CD,
-- 2003/01/15 upd TOMIZAWA
--				GINKOU.KOUZA_KANA			AS	GINKOU_NAME,
				GINKOU.GINKOU_KANA			AS	GINKOU_NAME,
-- 2003/01/15 end TOMIZAWA
				GINKOU.SITEN_CD				AS	SITEN_NO,
				GINKOU.SHITEN_KANA			AS	SITEN_NAME,
				GINKOU.YOKIN_SHUMOKU		AS	YOKIN_SHUMOKU,
				GINKOU.KOUZA_NO				AS	KOUZA_NO,
				''							AS	HED_DMY,
				'8'							AS	TOL_DATA_KBN,
				SUM_ZENGIN_DATA.GOUKEI_KENSU	AS	GOUKEI_KENSU,
				SUM_ZENGIN_DATA.GOUKEI_GAKU	AS	GOUKEI_GAKU,
				''							AS	TOL_DMY,
				'9'							AS	END_DATA_KBN,
				''							AS	END_DMY,
				vcFURIKOMI_NO				AS	FURIKOMI_NO,
				''							AS	SHIHARAI_BUNRUI,
				'0'							AS	DEL_FLG,
				vcINS_RECORD				AS	INS_RECORD,
				vcUPD_RECORD				AS	UPD_RECORD
		FROM
				(SELECT
						FURIKOMI_NO		AS	FURIKOMI_NO,
						COUNT(*)		AS	GOUKEI_KENSU,
						SUM(KINGAKU)	AS	GOUKEI_GAKU
				FROM
						APT_ZENGIN_DATA
				WHERE
						FURIKOMI_NO = vcFURIKOMI_NO
				GROUP BY
						FURIKOMI_NO
				) SUM_ZENGIN_DATA,
				(SELECT 
						APM_GINKOU.KOUZA_KANA 			AS KOUZA_KANA, 
						APM_GINKOU.KOUZA_NO 			AS KOUZA_NO, 
						APM_GINKOU.YOKIN_SHUMOKU 		AS YOKIN_SHUMOKU, 
						SUBSTR(APM_GINKOU.ZENGIN_CD, 1, 4) 			AS GINKOU_CD,
						SUBSTR(APM_GINKOU.ZENGIN_CD, 6, 3)			AS SITEN_CD, 
						APT_KAISHA_CD.KAISHA_CD 		AS KAISHA_CD, 
						APT_KAISHA_CD.GINKOU_KANA 		AS GINKOU_KANA, 
						APT_KAISHA_CD.SHITEN_KANA 		AS SHITEN_KANA 
				FROM 
						APM_GINKOU, 
						APT_KAISHA_CD 
				WHERE 
						APM_GINKOU.GINKOU_CD 			= APT_KAISHA_CD.GINKOU_CD (+) 
					AND APM_GINKOU.GINKOU_BUNRUI_KBN 	= APT_KAISHA_CD.GINKOU_BUNRUI_KBN (+) 
					AND APM_GINKOU.DEL_FLG 	= 0 
					AND	APM_GINKOU.GINKOU_CD			=	vcGINKOU_CD
					AND	APM_GINKOU.GINKOU_BUNRUI_KBN	=	vcGINKOU_BUNRUI_KBN
				) GINKOU
			);

		RETURN 0;

	EXCEPTION
		WHEN OTHERS THEN
		--偦偺懠僄儔乕偑敪惗偟偨帪
		RETURN SQLCODE;
	END FUNC_SET_ZENGIN_HED;

/* 
--####################################################  
--#---------------------------------------------------
--# 巟暐僩儔儞偍傛傃枹暐僩儔儞偐傜僨乕僞傪拪弌偟丄
--# 慡嬧僨乕僞娭楢僩儔儞偵僨乕僞傪憓擖偡傞
--#---------------------------------------------------
--# 娭丂悢丂柤丗FUNC_SET_ZENGIN_DATA_KANREN
--# 僶乕僕儑儞丗1.0.0                                   
--# 堷丂偒丂悢丗vcFURIKOMI_NO		- 怳崬No
--#				vcGINKOU_CD	    	- 嬧峴僐乕僪
--#             vcDateFrom			- 巟暐擔奐巒擔
--#             vcDateTo			- 巟暐擔廔椆擔
--#             vcSHIHARAISAKI_CD	- 巟暐愭僐乕僪
--#				vcINS_RECORD		- 嶌惉婰榐
--#				vcUPD_RECORD		- 峏怴婰榐
--# 栠丂傝丂抣丗 惓忢廔椆			張棟審悢
--#				 懳徾僨乕僞側偟		0
--#				 堎忢廔椆			SQLCODE
--#
--# 奣丂丂丂梫丗巟暐僩儔儞偍傛傃枹暐僩儔儞偐傜
--#				慡嬧僨乕僞娭楢僩儔儞傪嶌惉偡傞
--#				(巟暐丄枹暐僩儔儞偵僨乕僞偑偁偭偰傕
--#				嬧峴怳崬夛幮僐乕僪僩儔儞偵僨乕僞偑
--#				側偗傟偽拪弌偟側偄)
--# 嶌丂惉丂幰丗Yamazaki(NHT)
--# 嶌丂惉丂擔丗2002/09/09
--# 嵟廔廋惓擔丗2002/09/25
--####################################################
*/
	FUNCTION FUNC_SET_ZENGIN_DATA_KANREN(
		vcFURIKOMI_NO		IN	VARCHAR2,
		vcGINKOU_CD			IN 	VARCHAR2, 
		vcDateFrom			IN 	VARCHAR2,
		vcDateTo			IN 	VARCHAR2,
		vcSHIHARAISAKI_CD	IN 	VARCHAR2,
		vcINS_RECORD		IN	VARCHAR2,
		vcUPD_RECORD		IN	VARCHAR2
	) 
	RETURN NUMBER
	IS
		--FUNCTION偱巊梡偡傞曄悢
		numRET					NUMBER;
		numFURIKOMI_GYO_NO		NUMBER 		:= 1;
		vcPrevSHIHARAISAKI_CD	VARCHAR2(7) := '';
		vcPrevSHIHARAI_YMD		VARCHAR2(8) := '';

		--屌掕暥帤楍曄悢
		DEL_FLG					VARCHAR2(1) := '0';

		--栠傝抣梡
		numDATA_COUNT			NUMBER := 0;

	
		--僇乕僜儖掕媊
		CURSOR	SHIHARAI_CURSOR(vcGINKOU_CD VARCHAR2,
								vcDateFrom	VARCHAR2,
								vcDateTo	VARCHAR2)	IS
			(SELECT
					APT_SHIHARAI.SHIHARAI_NO		AS	SHIHARAI_NO,
					APT_SHIHARAI.GYO_NO			AS	SHIHARAI_GYO_NO	,
					APT_SHIHARAI.SHIHARAISAKI_CD	AS	SHIHARAI_CD,
					APT_SHIHARAI.SHIHARAI_YMD	AS	SHIHARAI_YMD,
					'0'				AS	SHIHARAI_BUNRUI,
					APT_SHIHARAI.GINKOU_CD		AS	GINKOU_CD,
					NVL(FUNC_GET_SHIHARAI_SEIKYU_MEMO(APT_SHIHARAI.SHIHARAI_NO,APT_SHIHARAI.SHIHARAI_BUNRUI),' ') AS SHIHARAI_SEIKYU_MEMO
			FROM
					APT_SHIHARAI,
					APM_KINSHU
			WHERE
					APT_SHIHARAI.KINSHU_CD = APM_KINSHU.KINSHU_CD
				AND	APT_SHIHARAI.DEL_FLG					=	'0'
				AND	APT_SHIHARAI.SHIHARAI_BUNRUI 		=	'0'
				AND	APM_KINSHU.KINSHU_BUNRUI_KBN 	=	'2' 
				AND	APT_SHIHARAI.SHIHARAI_YMD	BETWEEN	TO_DATE(vcDateFrom,'YYYYMMDD') AND TO_DATE(vcDateTo,'YYYYMMDD') 
				AND	APT_SHIHARAI.GINKOU_CD				=	vcGINKOU_CD
				AND EXISTS	(	SELECT
										*
								FROM
										APM_ZENGIN
								WHERE
										APT_SHIHARAI.SHIHARAISAKI_CD	=	APM_ZENGIN.TORI_CD
									AND	APM_ZENGIN.DEL_FLG				=	'0'
							)
			) UNION
			(SELECT
					APT_MIBARAI.SHIHARAI_NO		AS	SHIHARAI_NO,
					APT_MIBARAI.GYO_NO			AS	SHIHARAI_GYO_NO	,
					APT_MIBARAI.SHIHARAISAKI_CD	AS	SHIHARAI_CD,
					APT_MIBARAI.SHIHARAI_YMD	AS	SHIHARAI_YMD,
					'1'				AS	SHIHARAI_BUNRUI,
					APT_MIBARAI.GINKOU_CD		AS	GINKOU_CD,
					NVL(FUNC_GET_SHIHARAI_SEIKYU_MEMO(APT_MIBARAI.SHIHARAI_NO,APT_MIBARAI.SHIHARAI_BUNRUI),' ') AS SHIHARAI_SEIKYU_MEMO
			FROM
					APT_MIBARAI,
					APM_KINSHU
			WHERE
					APT_MIBARAI.DEL_FLG					=	'0'
				AND	APT_MIBARAI.KINSHU_CD = APM_KINSHU.KINSHU_CD
				AND	APT_MIBARAI.SHIHARAI_BUNRUI 		=	'1'
				AND	APT_MIBARAI.KINSHU_CD 	=	APM_KINSHU.KINSHU_CD
				AND	APM_KINSHU.KINSHU_BUNRUI_KBN 	=	'2' 
				AND	APT_MIBARAI.SHIHARAI_YMD	BETWEEN	TO_DATE(vcDateFrom,'YYYYMMDD') AND TO_DATE(vcDateTo,'YYYYMMDD') 
				AND	APT_MIBARAI.GINKOU_CD				=	vcGINKOU_CD
				AND EXISTS	(	SELECT
										*
								FROM
										APM_ZENGIN
								WHERE
										APT_MIBARAI.SHIHARAISAKI_CD	=	APM_ZENGIN.TORI_CD
									AND	APM_ZENGIN.DEL_FLG				=	'0'
							)
			)
			ORDER BY
					GINKOU_CD,
					SHIHARAI_CD
			;
		
	BEGIN
		--巟暐僩儔儞偍傛傃枹暐僩儔儞偐傜慡嬧僨乕僞娭楢僩儔儞偵僨乕僞傪憓擖偡傞
		FOR v_SHIHARAI_DATA IN SHIHARAI_CURSOR(vcGINKOU_CD, vcDateFrom, vcDateTo) LOOP
			IF (vcSHIHARAISAKI_CD IS NULL) OR (v_SHIHARAI_DATA.SHIHARAI_CD = vcSHIHARAISAKI_CD) THEN
				--峴No張棟
				IF vcPrevSHIHARAISAKI_CD <> v_SHIHARAI_DATA.SHIHARAI_CD THEN
					numFURIKOMI_GYO_NO := numFURIKOMI_GYO_NO + 1;
				END IF;
				
				INSERT INTO APT_ZENGIN_DATA_KANREN
					(	FURIKOMI_NO,
						FURIKOMI_GYO_NO,
						SHIHARAI_NO,
						SHIHARAI_GYO_NO,
						SHIHARAI_CD,
						--捛壛 2002/09/25 by 嶳嶈(NHT)
						SHIHARAI_YMD,
						--廔椆 2002/09/25 by 嶳嶈(NHT) 
						GINKOU_CD,
						SHIHARAI_BUNRUI,
						SHIHARAI_SEIKYU_MEMO,
						DEL_FLG,
						INS_RECORD,
						UPD_RECORD
					) VALUES
					(	vcFURIKOMI_NO,
						TO_CHAR(numFURIKOMI_GYO_NO, 'FM099999'),
						v_SHIHARAI_DATA.SHIHARAI_NO,
						v_SHIHARAI_DATA.SHIHARAI_GYO_NO,
						v_SHIHARAI_DATA.SHIHARAI_CD,
						--捛壛 2002/09/25 by 嶳嶈(NHT)
						v_SHIHARAI_DATA.SHIHARAI_YMD,
						--廔椆 2002/09/25 by 嶳嶈(NHT)
						v_SHIHARAI_DATA.GINKOU_CD,
						v_SHIHARAI_DATA.SHIHARAI_BUNRUI,
						v_SHIHARAI_DATA.SHIHARAI_SEIKYU_MEMO,
						DEL_FLG,
						vcINS_RECORD,
						vcUPD_RECORD
					);
					
					numDATA_COUNT := numDATA_COUNT + 1;
					vcPrevSHIHARAISAKI_CD := v_SHIHARAI_DATA.SHIHARAI_CD;
					vcPrevSHIHARAI_YMD	:= TO_CHAR(v_SHIHARAI_DATA.SHIHARAI_YMD, 'YYYYMMDD');
			END IF; 
		
		END LOOP;

		numRET := numDATA_COUNT;
		
		RETURN numRET;

	--僄儔乕張棟
	EXCEPTION

		WHEN OTHERS THEN
		--偦偺懠僄儔乕偑敪惗偟偨帪
		RETURN SQLCODE;

	END FUNC_SET_ZENGIN_DATA_KANREN;

--####################################################  
--#---------------------------------------------------
--# 巟暐僩儔儞丄枹暐僩儔儞偍傛傃慡嬧僨乕僞娭楢僩儔儞
--# 偐傜僨乕僞傪拪弌偟丄慡嬧僨乕僞僩儔儞偵僨乕僞傪憓擖偡傞
--#---------------------------------------------------
--# 娭丂悢丂柤丗FUNC_SET_ZENGIN_DATA
--# 僶乕僕儑儞丗1.0.0                                   
--# 堷丂偒丂悢丗vcFURIKOMI_NO	    	- 怳崬No
--#             vcINS_RECORD			- 嶌惉婰榐
--#             vcUPD_RECORD			- 嵟怴峏怴婰榐
--# 栠丂傝丂抣丗惓忢廔椆	0
--#				堎忢廔椆	SQLCODE
--#			  
--# 奣丂丂丂梫丗巟暐僩儔儞丄枹暐僩儔儞偍傛傃慡嬧僨乕僞娭楢僩儔儞偐傜
--#				慡嬧僨乕僞僩儔儞傪嶌惉偡傞丅怳崬愭嬧峴忣曬偼
--#				慡嬧儅僗僞偐傜庢摼偡傞丅
--#				
--# 嶌丂惉丂幰丗Yamazaki(NHT)
--# 嶌丂惉丂擔丗2002/08/24
--# 嵟廔廋惓擔丗
--####################################################
	FUNCTION FUNC_SET_ZENGIN_DATA(
		vcFURIKOMI_NO	VARCHAR2,
		vcINS_RECORD	VARCHAR2,
		vcUPD_RECORD	VARCHAR2
	)
	RETURN NUMBER IS
	BEGIN
		INSERT	INTO	APT_ZENGIN_DATA
			(	DATA_DATA_KBN,
				GINKOU_NO,
				GINKOU_NAME,
				SITEN_NO,
				SITEN_NAME,
				TEGATA_KOUKAN_NO,
				YOKIN_SHUMOKU,
				KOUZA_NO,
				YOKINSHA_NAME,
				KINGAKU,
				TESUURYOU,
				SHIHARAI_GAKU,
				SHINKI_CD,
				TEKIYOU_CD,
				FURIKOMI_SHITEI_KBN,
				DATA_DMY,
				FURIKOMI_NO,
				FURIKOMI_GYO_NO,
				SHIHARAI_NO,
				SHIHARAI_GYO_NO,
				SHIHARAI_CD,
				SHIHARAI_YMD,
				GINKOU_CD,
				SHIHARAI_BUNRUI,
				SHIHARAI_SEIKYU_MEMO,
				DEL_FLG,
				INS_RECORD,
				UPD_RECORD
			) 
		(SELECT
				'2'							AS	DATA_DATA_KBN,
				APM_ZENGIN.GINKOU_CD		AS	GINKOU_CD,
				APM_ZENGIN.GINKOU_NAME		AS	GINKOU_NAME,
				APM_ZENGIN.SITEN_CD			AS	SITEN_NO,
				APM_ZENGIN.SITEN_NAME		AS	SITEN_NAME,
				APM_ZENGIN.TEGATA_KOUKAN_NO	AS	TEGATA_KOUKAN_NO,
				APM_ZENGIN.YOKIN_SHUMOKU	AS	YOKIN_SHUMOKU,
				APM_ZENGIN.KOUZA_NO			AS	KOUZA_NO,
				APM_ZENGIN.YOKINSHA_NAME	AS	YOKINSHA_NAME,
				SUM_DATA.SHIHARAI_GAKU		AS	KINGAKU,
				0							AS	TESUURYOU,
				SUM_DATA.SHIHARAI_GAKU		AS	SHIHARAI_GAKU,
				'1'							AS	SHINKI_CD,
				''							AS	TEKIYOU_CD,
				'7'							AS	FURIKOMI_SHITEI_KBN,
				''							AS	DATA_DMY,
				SUM_DATA.FURIKOMI_NO		AS	FURIKOMI_NO,
				SUM_DATA.FURIKOMI_GYO_NO	AS	FURIKOMI_GYO_NO,
				''							AS	SHIHARAI_NO,
				''							AS	SHIHARAI_GYO_NO,
				SUM_DATA.SHIHARAI_CD		AS	SHIHARAI_CD,
				''							AS	SHIHARAI_YMD,
				SUM_DATA.GINKOU_CD			AS	GINKOU_CD,
				''							AS	SHIHARAI_BUNRUI,
				''							AS	SHIHARAI_SEIKYU_MEMO,
				'0'							AS	DEL_FLG,
				vcINS_RECORD				AS	INS_RECORD,
				vcUPD_RECORD				AS	UPD_RECORD
		FROM
				(SELECT
							APT_ZENGIN_DATA_KANREN.FURIKOMI_NO		AS	FURIKOMI_NO,
							APT_ZENGIN_DATA_KANREN.FURIKOMI_GYO_NO	AS	FURIKOMI_GYO_NO,
							APT_ZENGIN_DATA_KANREN.SHIHARAI_CD		AS	SHIHARAI_CD,
							APT_ZENGIN_DATA_KANREN.GINKOU_CD		AS	GINKOU_CD,
							SUM(SHIHARAI_GAKU)						AS	SHIHARAI_GAKU
				FROM
						APT_ZENGIN_DATA_KANREN,
						(SELECT
						 			APT_SHIHARAI.SHIHARAI_NO		AS	SHIHARAI_NO,
									APT_SHIHARAI.GYO_NO			AS	SHIHARAI_GYO_NO	,
									APT_SHIHARAI.SHIHARAI_GAKU	AS	SHIHARAI_GAKU ,
									APT_SHIHARAI.SHIHARAI_BUNRUI	AS SHIHARAI_BUNRUI
							FROM
									APT_SHIHARAI,
									APM_KINSHU
							WHERE
									APT_SHIHARAI.DEL_FLG					=	'0'
								AND	APT_SHIHARAI.KINSHU_CD = APM_KINSHU.KINSHU_CD
								AND	APT_SHIHARAI.SHIHARAI_BUNRUI 		=	'0'
								AND	APT_SHIHARAI.KINSHU_CD 	=	APM_KINSHU.KINSHU_CD
								AND	APM_KINSHU.KINSHU_BUNRUI_KBN 	=	'2'
							UNION
							SELECT
									APT_MIBARAI.SHIHARAI_NO		AS	SHIHARAI_NO,
									APT_MIBARAI.GYO_NO			AS	SHIHARAI_GYO_NO	,
									APT_MIBARAI.SHIHARAI_GAKU	AS	SHIHARAI_GAKU ,
									APT_MIBARAI.SHIHARAI_BUNRUI	AS SHIHARAI_BUNRUI
							FROM
									APT_MIBARAI,
									APM_KINSHU
							WHERE
									APT_MIBARAI.DEL_FLG					=	'0'
								AND	APT_MIBARAI.SHIHARAI_BUNRUI 		=	'1'
								AND	APT_MIBARAI.KINSHU_CD = APM_KINSHU.KINSHU_CD
								AND	APT_MIBARAI.KINSHU_CD 	=	APM_KINSHU.KINSHU_CD
								AND	APM_KINSHU.KINSHU_BUNRUI_KBN 	=	'2'
						)	HARAI_DATA
				WHERE	
						APT_ZENGIN_DATA_KANREN.SHIHARAI_NO		=	HARAI_DATA.SHIHARAI_NO
					AND	APT_ZENGIN_DATA_KANREN.SHIHARAI_GYO_NO	=	HARAI_DATA.SHIHARAI_GYO_NO
					AND APT_ZENGIN_DATA_KANREN.DEL_FLG			=	'0'
					AND APT_ZENGIN_DATA_KANREN.SHIHARAI_BUNRUI	=	HARAI_DATA.SHIHARAI_BUNRUI
				GROUP BY
						FURIKOMI_NO,
						GINKOU_CD,
						FURIKOMI_GYO_NO,
						SHIHARAI_CD
				)	SUM_DATA,
				APM_ZENGIN
		WHERE
				SUM_DATA.SHIHARAI_CD	=	APM_ZENGIN.TORI_CD
			AND	SUM_DATA.FURIKOMI_NO	=	vcFURIKOMI_NO
		);

		RETURN 0;

	EXCEPTION
		WHEN OTHERS THEN
		--偦偺懠僄儔乕偑敪惗偟偨帪
		RETURN SQLCODE;
	END FUNC_SET_ZENGIN_DATA;


--####################################################  
--#---------------------------------------------------
--# 慡嬧僨乕僞娭楢僩儔儞丄慡嬧僨乕僞僩儔儞丄慡嬧僿僢僟乕僩儔儞偺
--# 壖怳崬No傪惓婯怳崬No偵峏怴偡傞
--#---------------------------------------------------
--# 娭丂悢丂柤丗FUNC_UPD_FURIKOMI_NO
--# 僶乕僕儑儞丗1.0.0                                   
--# 堷丂偒丂悢丗壖怳崬No		VARCHAR2(6)
--#				怳崬No			VARCHAR2(6)
--#				嵟怴峏怴婰榐	VARCHAR2(6)
--#
--# 栠丂傝丂抣丗惓忢廔椆 0
--#			  丗堎忢廔椆 SQLCODE
--#
--# 奣丂丂丂梫丗慡嬧僨乕僞娭楢僩儔儞丄慡嬧僨乕僞僩儔儞丄
--#				慡嬧僿僢僟乕僩儔儞偺壖怳崬No傪惓婯怳崬偺偵
--#				峏怴偡傞
--#				
--# 嶌丂惉丂幰丗Yamazaki(NHT)
--# 嶌丂惉丂擔丗2002/08/29
--# 嵟廔廋惓擔丗2002/09/25
--####################################################
	FUNCTION FUNC_UPD_FURIKOMI_NO(
		vcKARI_FURIKOMI_NO	VARCHAR2,
		vcFURIKOMI_NO		VARCHAR2,
		--捛壛 2002/09/25 by 嶳嶈(NHT)
		vcFURIKOMI_YMD		VARCHAR2,
		--廔椆 2002/09/25 by 嶳嶈(NHT)
		vcUPD_RECORD		VARCHAR2
	)
	RETURN NUMBER IS
		CURSOR	KANREN_CURSOR(vcKARI_FURIKOMI_NO IN APT_ZENGIN_DATA_KANREN.FURIKOMI_NO%TYPE)
		IS
		SELECT
				*
		FROM
				APT_ZENGIN_DATA_KANREN
		WHERE
				FURIKOMI_NO		=	vcKARI_FURIKOMI_NO
		FOR UPDATE 
				NOWAIT
		;

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -