点击此处--->   群内免费提供SAP练习系统（在群公告中）

加入QQ群：457200227（SAP S4 HANA技术交流） 群内免费提供SAP练习系统（在群公告中）

报告zmanoj3。
 表格：vbap，makt。

 类型：ty开始，
           vbeln TYPE vbeln，
           posnr TYPE posnr，
           matnr TYPE matnr，
           麦芽类型麦芽，
         ty of ty。
 数据：它的类型表，
        wa TYPE TY。
 数据：num TYPE vbap-vbeln。

 带有标题标题文本001的b块的选择屏幕开始。
 SELECT-OPTIONS num1 FOR num。
 选择屏幕的结尾b。
 数据：it_fieldcat类型slis_t_fieldcat_alv，
       wa_fieldcat TYPE slis_fieldcat_alv，
       布局类型slis_layout_alv。


 DATA repid TYPE sy-repid。

 选择开始。

   SELECT vbeln，
          posnr，
          从vbap到表@DATA（gt_vbap）中的matnr
          在vbeln IN @ num1中。

   如果sy-subrc EQ 0。

     SELECT matnr，
            maktx从makt到@gt_vbap中所有条目的表@DATA（gt_makt）
            matnr EQ @ gt_vbap-matnr在哪里。
     将gt_vbap循环到INTO DATA（wa_vbap）中。
       使用键matnr = wa_vbap-matnr将表gt_makt读入DATA（wa_makt）。
     结局。

   万一。


   wa_fieldcat-fieldname ='vbeln'。
   wa_fieldcat-ref_tabname ='vbap'。
   wa_fieldcat-seltext_m ='会计凭证编号'。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。

   wa_fieldcat-fieldname ='posnr'。
   wa_fieldcat-ref_tabname ='vbap'。
   wa_fieldcat-seltext_m ='文件编号'。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。

   wa_fieldcat-fieldname ='matnr'。
   wa_fieldcat-ref_tabname ='vbap'。
   wa_fieldcat-seltext_m ='数字'。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。

   wa_fieldcat-fieldname ='maktx'。
   wa_fieldcat-ref_tabname ='makt'。
   wa_fieldcat-seltext_m ='Accoun编号'。
   将wa_fieldcat附加到it_fieldcat。
   清除wa_fieldcat。

     通话功能'REUSE_ALV_GRID_DISPLAY'
     出口
       i_callback_program =快速
       i_grid_title ='会计凭证详细信息'
       it_fieldcat = it_fieldcat
     桌子
       t_outtab =它。