FORM vkdfs_fcode_sams
USING
r_ucomm LIKE sy-ucomm "SAMS-->模拟开票
rs_selfield TYPE slis_selfield
p_gd_default_data LIKE rv60a
ld_invoice_list.
DATA : ac_code LIKE sy-subrc.
DATA : rv60a LIKE rv60a.
DATA : ok-code(5) TYPE c.
DATA : BEGIN OF postab OCCURS 50.
INCLUDE STRUCTURE vkdfi.
DATA : v_fkdat LIKE vkdfi-fkdat,
v_fkart LIKE vkdfi-fkart,
activ(1) TYPE n.
DATA : END OF postab.
PERFORM authority_check USING '19' 'X' CHANGING ac_code.
ok-code = r_ucomm.
CLEAR postab.
REFRESH postab.
postab-fkdat = gt_fvkdfi-fkdat.
postab-fkart = gt_fvkdfi-fkart.
rv60a-fkart = p_gd_default_data-fkart.
rv60a-fkdat = p_gd_default_data-fkdat.
rv60a-fbuda = p_gd_default_data-fbuda.
rv60a-prsdt = p_gd_default_data-prsdt.
REFRESH postab.
LOOP AT gt_fvkdfi WHERE selkz = 'X'.
MOVE-CORRESPONDING gt_fvkdfi TO postab.
APPEND postab.
ENDLOOP.
SET PARAMETER ID 'VFR' FIELD gt_fvkdfi-vbeln.
EXPORT OK-CODE
POSTAB-FKDAT
POSTAB-FKART
RV60A-FKART
RV60A-FKDAT
RV60A-FBUDA
RV60A-PRSDT
POSTAB
TO MEMORY ID 'VF04'.
CALL TRANSACTION 'VF01' AND SKIP FIRST SCREEN.
IMPORT OK-CODE
POSTAB-FKDAT
POSTAB-FKART
RV60A-FKART
RV60A-FKDAT
RV60A-FBUDA
RV60A-PRSDT
POSTAB
FROM MEMORY ID 'VF04'.
FREE MEMORY ID 'VF04'.
ENDFORM.
VF01 模拟开票
最新推荐文章于 2022-05-30 10:54:46 发布