"我仅纠正代码的语法，但使用带有动态声明的新方法并重新执行程序，

 TYPE-POOLS：slis。

 表格：vbak，vbap。

 类型：ty_vbak的开头，"将所有选择字段并入内部关节
         vbeln TYPE vbak-vbeln，
         posnr TYPE vbap-posnr，
         auart TYPE vbak-auart，
         matnr TYPE vbap-matnr，
 ty_vbak结束。

 类型：开始于ty_vbap，
         vbeln TYPE vbeln_va，"销售文档
         posnr TYPE posnr_va，"销售凭证项目
         matnr TYPE matnr，"材料编号
 ty_vbap结束。


 数据：ty_vbak的gt_vbak类型表，
        st_vbak类型ty_vbak。

 数据：ty_vbap的gt_vbap类型表，
 st_vbap类型ty_vbap。

 参数：p_vbeln TYPE vbeln。

 选择开始。
   SELECT vbeln
   posnr
   物质
   从vbap
   表gt_vbap的对应字段。  "当您选择不带顺序进入内部表时，必须是表的对应字段
   选择vbak〜vbeln
          vbak〜auart
          vbap〜vbeln
          vbap〜posnr
          vbap〜matnr
   进入表gt_vbak的对应字段"必须在不对内部表进行序列选择的情况下选择表的对应字段
   来自vbak
   内联接vbap ON vbak〜vbeln = vbap〜vbeln
                     在哪里vbak〜auart EQ'ZQPC'"您错过了vbak〜auart
                     和vbak〜vbeln GE'0030000000'。


     如果sy-subrc = 0。
       在gt_vbak处循环进入st_vbak。
         附加st_vbak至gt_vbak。

         首先。
           写：/10'销售文档'，
           35"销售单据类型"，
           65'Sales Document Item'，
           100'材料编号'。
         ENDAT。

         写：/13 st_vbak-vbeln，
         43 st_vbak-auart，
         72 st_vbap-posnr，
         90 st_vbap-matnr。

       结局。

       排序gt_vbap。
       从gt_vbap删除相邻的重复项。
     万一。