对不起，您不明白

是这样吗？ 请纠正我

 value（IT_ZHEADER）TYPE ZEKKO03_TT PO标头表类型
 值（IT_ZITEMS）TYPE ZEKPO03_TT PO项目表类型
 IV_SAVE TYPE BOOLEAN布尔变量（X =真，-=假，空格=未知）
 值（ES_BAPIRET2）TYPE BAPIRET2返回参数




   方法UPDATE_PURCHASE_ORDERS。

 数据：ls_zheader喜欢it_zheader的行，
       lv_ebeln TYPE zekko03-ebeln。

 如果it_zheader不是INITIAL。

         从表it_zheader修改zekko03。
         如果SY-SUBRC = 0。
           提交工作。
           ES_BAPIRET2-TYPE ='S'。
           ES_BAPIRET2-MESSAGE ='已成功更新表ZEKKO03'。

         其他。
           回滚工作。
           ES_BAPIRET2-TYPE ='E'。
           ES_BAPIRET2-MESSAGE ='更新表ZEKKO03时出错。
         万一。

         从表it_zitems修改zekpo03。
         如果SY-SUBRC = 0。
           提交工作。
           ES_BAPIRET2-TYPE ='S'。
           ES_BAPIRET2-MESSAGE ='已成功更新表ZEKKO03'。

         其他。
           回滚工作。
           ES_BAPIRET2-TYPE ='E'。
           ES_BAPIRET2-MESSAGE ='更新表ZEKKO03时出错。
         万一。

 万一。



 循环到it_zheader并进入ls_zheader。

   如果lv_ebeln是INITIAL。

     如果iv_save ='-'。
       消息"请输入采购订单号" TYPE" E"。

     elseif iv_save ='X'。


     万一。

   万一。

 ENDLOOP。