32 lines
886 B
SQL
32 lines
886 B
SQL
/**
|
|
* 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;
|