1_account_defaults.sql

Java写的ERP系统

/**
 *	Account Defaults *** DANGEROUS ***
 *
DECLARE
	--	Accounting Defaults for all clients
	CURSOR Cur_Clients	IS
		SELECT AD_Client_ID FROM AD_Client;
	--	All Bus Groups
	CURSOR Cur_BP	IS
		SELECT C_BP_Group_ID FROM C_BP_Group;
	--	All Product Categories
	CURSOR Cur_PC	IS
		SELECT M_Product_Category_ID FROM M_Product_Category;
	--
BEGIN
	--	Accounting Defaults
	FOR cc IN Cur_Clients LOOP
		DBMS_OUTPUT.PUT_LINE('------------------------');
	--	C_AcctSchema_Default_Copy(0, cc.AD_Client_ID);	--	DANGEROUS !!!
	END LOOP;
	--	BPartner  Defaults
	FOR bp IN Cur_BP LOOP
		DBMS_OUTPUT.PUT_LINE('------------------------');
		C_BP_Group_Acct_Copy(0, bp.C_BP_Group_ID);
	END LOOP;
	--	Accounting Defaults
	FOR pc IN Cur_PC LOOP
		DBMS_OUTPUT.PUT_LINE('------------------------');
		M_Product_Category_Acct_Copy(0, pc.M_Product_Category_ID);
	END LOOP;
END;