应付暂估科目是不挂供应商的,但是期初需要导入,发票的时候需要手工清账。因此对暂估的取数需要三部分。
1 正常的,可以直接取到供应商
2 期初导入的,供应商代码维护在分配的地方。
3 手工MIRO 做发票,通过对方科目取供应商。
*&---------------------------------------------------------------------*
*& Report ZFI023
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zfi024.
TABLES : acdoca .
SELECT-OPTIONS : s_budat FOR acdoca-budat .
SELECT-OPTIONS : s_racct FOR acdoca-racct .
SELECT-OPTIONS : s_lifnr FOR acdoca-lifnr .
PARAMETERS : p_rbukrs TYPE acdoca-rbukrs OBLIGATORY .
PARAMETERS : p_gjahr TYPE acdoca-gjahr OBLIGATORY .
PARAMETERS: r_01 RADIOBUTTON GROUP g1 DEFAULT 'X' .
PARAMETERS: r_02 RADIOBUTTON GROUP g1 .
*PARAMETERS: cb_02 AS CHECKBOX DEFAULT 'X' .
DATA :BEGIN OF gs_out ,
rbukrs LIKE acdoca-rbukrs,
gjahr LIKE acdoca-gjahr,
belnr LIKE acdoca-belnr,
budat LIKE acdoca-budat,
docln LIKE acdoca-docln,
racct LIKE acdoca-racct,
tsl LIKE acdoca-tsl,
lifnr LIKE acdoca-lifnr,
zuonr LIKE acdoca-zuonr,
txt20 LIKE SKAt-txt20,
name1 LIKE lfa1-name1,
END OF gs_out .
DATA : gt_out LIKE TABLE OF gs_out .
DATA: ls_out LIKE gs_out .
DATA: lt_out LIKE TABLE OF gs_out .
DATA: ls_out2 LIKE gs_out .
DATA: lt_out2 LIKE TABLE OF gs_out .
DATA: ls_out3 LIKE gs_out .
DATA: lt_out3 LIKE TABLE OF gs_out .
DATA: ls_out4 LIKE gs_out .
DATA: lt_out4 LIKE TABLE OF gs_out .
DATA: gt_fieldcat TYPE lvc_t_fcat .
DATA: gs_fieldcat TYPE lvc_s_fcat .
DATA: gs_layout TYPE lvc_s_layo .
"1正常的
SELECT acdoca~rbukrs,acdoca~gjahr ,