–日記賬沖銷分為 紅字沖銷 和 借貸相反 兩種，下例為紅字沖銷日記賬。
declare
l_request_id number;
--等待請求字段
l_bl_result boolean
; l_phase varchar2(
240)
; l_status varchar2(
240)
; l_dev_phase varchar2(
240)
; l_dev_status varchar2(
240)
; l_message varchar2(
240);
l_period_status varchar2(1)
; l_start_date date
; l_end_date date
; l_period_num number;
l_period_year number;
cursor chk_sec_header_status is
select
1from gl_ledgers gl
,gl_je_headers gh
where gl.ledger_id = gh.ledger_id
and gh.je_header_id =
2and gl.ledger_category_code =
'primary'
andexists
(select
1from gl_je_headers gh1
,gl_ledgers gl1
where gh1.parent_je_header_id = gh.je_header_id
and gl1.ledger_id = gh1.ledger_id
and gl1.ledger_category_code =
'secondary'
and gl1.automate_sec_jrnl_rev_flag in
('y'
,'a'
)and gh1.
status
!='p');
l_has_sec_unpost_hdr_jrnl number;
begin
>
1110
,resp_id =
>
50719
>
20007);
--校驗期間
gl_period_statuses_pkg.select_columns(
101,
2023
,'2018-07'
,l_period_status
,l_start_date
,l_end_date
,l_period_num
,l_period_year);if
(nvl(l_period_status
,'x')
notin
('o'
,'f'))
then
>
'sqlgl'
,name =
>
'gl_je_no_rev_header_bad_period');
dbms_output.put_line(
'error message = '
|| fnd_message.get)
;endif;
open chk_sec_header_status;
fetch chk_sec_header_status
into l_has_sec_unpost_hdr_jrnl;
if chk_sec_header_status%found then
l_has_sec_unpost_hdr_jrnl :=1;
endif
;close chk_sec_header_status;
if nvl(l_has_sec_unpost_hdr_jrnl
,0)=1
then
>
'sqlgl'
,name =
>
'gl_cor_sec_unposted_error');
dbms_output.put_line(
'error message = '
|| fnd_message.get)
;endif;
update gl_je_headers b
set b.accrual_rev_flag =
'y',b.accrual_rev_change_sign_flag =
'y',b.accrual_rev_period_name =
'2018-07'
where b.je_header_id =2;
commit;
>
'sqlgl'
--應用簡稱
,program =
>
'glprev'
--併發簡稱:日記帳匯入
,description =
>
''--說明
,start_time =
>
''--請求開始時間，格式為標準日期格式，為空表示立即開始
,sub_request =
>
false
--是否子請求
,argument1 =
> fnd_profile.
value
('gl_access_set_id'
)--帳套標識或者資料訪問許可權集
,argument2 =
> to_char(2)
--日記賬頭id
,argument3 =
> chr(0)
--引數結束);
if l_request_id <=
0then
dbms_output.put_line(
'提交沖銷日記賬請求失敗 ！');
else
commit
; dbms_output.put_line(
'請求編號：'
|| l_request_id)
;
l_bl_result := fnd_concurrent.wait_for_request(request_id =
> l_request_id
,interval
=>
1-- interval second for check
,max_wait =
>
360-- max_wait, max amount of time to wait (in seconds)
,phase =
> l_phase
,status
=> l_status
,dev_phase =
> l_dev_phase
,dev_status =
> l_dev_status
,message =
> l_message)
;
dbms_output.put_line(
' l_phase = '
|| l_phase)
; dbms_output.put_line(
' l_status = '
|| l_status)
; dbms_output.put_line(
' l_dev_phase = '
|| l_dev_phase)
; dbms_output.put_line(
' l_dev_status = '
|| l_dev_status)
; dbms_output.put_line(
' l_message = '
|| l_message)
;--請求的狀態為完成並且為正常
if l_dev_phase <>
'complete'
or l_dev_status <>
'normal'
then
dbms_output.put_line(
'reverse journal : 沖銷日記賬出現異常錯誤，檢視請求： '
|| l_request_id)
; dbms_output.put_line(
'reverse journal : 沖銷日記賬出現異常錯誤，錯誤訊息： '
|| l_message)
;else
dbms_output.put_line(
'------>03.reverse journal : 沖銷日記賬成功');
endif
;endif;
end;
20171108日記賬流水
體會 史布博羅市集 靜謐夏夜裡數漫天繁星，風吹過莎莎作響，樹影婆娑 目標 上週工作總結 1.日常工作追蹤管理。模板管理 進行中，計畫本周一上線 運營位工作跟進 已完成，已上線 大屏機工作 進行中，進度延遲，本周一發布測試版本 資料埋點使用者型別工作跟進 進行中 2.資料對接工作。3.解決測試環境ka...
Dynamics AX 盤點日記賬行
需求 根據使用者輸入時間段 過賬日期 查詢盤點日記賬行。要求顯示一下字段 日記賬 journalid 日期，物料編號，尺寸，顏色，站點，倉庫，庫位，現有量，盤點數量，實際成本額。設計 建立窗體 inventcountedtable 新增資料來源 data sources inventjournalt...
Dynamics AX 盤點日記賬行 筆記
在grid中若要顯示display方法的字段，將該方法拖拽至grid控制項，設定datasource為資料來源表，設定datamethod為該display方法名。若在datasource資料來源中新增了display方法，並要求顯示該欄位，可將該方法拖拽到grid控制項，設定datasource為...