获得业务实体的账薄信息:
1.会计科目键弹性结构标识
2.帐薄名称
3.本位币
参考SQL如下
DECLARE
Ln_Org_Id NUMBER := 101;
Ln_Ledger_Id NUMBER;
Ln_Coa_Id NUMBER;
Lv_Ledger_Name VARCHAR2(80);
Ln_Currency_Code VARCHAR2(30);
Lv_Errbuf VARCHAR2(2000);
BEGIN
--获得帐薄标识
SELECT Hou.Set_Of_Books_Id
INTO Ln_Ledger_Id
FROM Hr_Operating_Units Hou
WHERE Hou.Organization_Id = Ln_Org_Id;
Dbms_Output.Put_Line('Ln_Ledger_Id:' || Ln_Ledger_Id);
--获得会计科目键弹性结构标识、帐薄名称和本位币
Gl_Info.Gl_Get_Ledger_Info(Ledid => Ln_Ledger_Id
,Coaid => Ln_Coa_Id
,Ledname => Lv_Ledger_Name
,Func_Curr => Ln_