跨度 {
 字体家族：" Courier New"；
 字体大小：10pt；
 颜色：#000000;
 背景：#FFFFFF;
 }
 .L0S32 {
 颜色：#3399FF;
 }
 .L0S33 {
 颜色：#4DA619;
 }
 .L0S52 {
 颜色：#0000FF;
 }
 .L0S55 {
 颜色：#800080;
 }
 .L0S70 {
 颜色：#808080;
 }

 表格：EBAN，EKPO。

  类型：开始于TY_EBAN，

            银行类型EBAN-BANFN，

            MATNR型EBAN-MATNR，

            EBELP TYPE EBAN-EBELP，

            MENGE型EBAN-MENGE，

          TY_EBAN结束。



  类型：开始于TY_EKPO，

           BANFN型EKPO-BANFN，

           MENGE型EKPO-MENGE，

         TY_EKPO结束。



  类型：开始于TY_EKPO_1，

           BANFN型EKPO-BANFN，

           MENGE型EKPO-MENGE，

         END OF TY_EKPO_1。



  数据：IT_EKPO_1 TY_EKPO_1的类型表，

        WA_EKPO_1类型TY_EKPO_1。

  数据：TY_EKPO的IT_EKPO类型表，

        WA_EKPO类型TY_EKPO。



  数据：TY_EBAN的IT_EBAN类型表，

        WA_EBAN TYPE TY_EBAN，

        WEKPO TYPE BEKPO。

  数据：LV_FLAG TYPE FLAG，

        LV_ITEM TYPE STRING。

  数据：LV_TOTAL TYPEI。



  如果TEKPO是初始的。

    选择BANFN MATNR EBELP MENGE

    从EBAN

    进入表IT_EBAN

    对于TEKPO中的所有人员

    BANFN = TEKPO-BANFN。





    选择班恩·曼格

    从EKPO

    表IT_EKPO的相应字段

     对于TEKPO中的所有人员

    BANFN = TEKPO-BANFN。

  万一。



  在IT_EKPO处进入WA_EKPO。

    WA_EKPO_1-BANFN = WA_EKPO-BANFN。

    WA_EKPO_1-MENGE = WA_EKPO-MENGE。

    将WA_EKPO_1收集到IT_EKPO_1中。

  结局。



  清除：LV_FLAG，LV_ITEM。



  将TEKPO环入WEKPO。

    如果WEKPO-KNTTP ='Q'。

      使用键BANFN = WA_EKPO-BANFN将表IT_EKPO_1读入WA_EKPO_1。

      如果SY-SUBRC = 0。

        LV_TOTAL = WEKPO-MENGE + WA_EKPO_1-MENGE。

        使用键BANFN = WEKPO-BANFN将表IT_EBAN读入WA_EBAN。

        如果SY-SUBRC = 0。

          如果LV_TOTAL