SAP:SD VA05修改程序 性质增强 V05TZZMO .

***INCLUDE V05TZZMO .
* This form is called in the include LV05TFMO.
FORM MOVE_USERFIELDS  USING ZP.
   CASE ZP.
     WHEN  'VBAK'.
*     header
*     MOVE LVBAK-XXXXX TO LVBMTV-ZZXXXXX.
*{   INSERT         ECDK900327                                        2
      DATA: ls_tvaut   TYPE tvaut,
            ls_tvfst   TYPE tvfst,
            ls_tvlst   TYPE tvlst.
      data: ls_TVV1T   type TVV1T,
            ls_TVV2T   type TVV2T,
            ls_TVV3T   type TVV3T,
            ls_T005U   type T005U,
            ls_kna1    type kna1.

      CLEAR: ls_tvaut, ls_tvfst, ls_tvlst.

      DATA: l_tdname     TYPE thead-tdname,
            lt_lines     TYPE  TABLE  OF tline,
            ls_lines     TYPE tline.

      CLEAR: lvbmtv-zaugrut.
       SELECT  SINGLE *  INTO ls_tvaut
       FROM tvaut
       WHERE augru = lvbak-augru
         AND spras =  '1'.
       IF sy-subrc =  0.
         MOVE ls_tvaut-bezei  TO lvbmtv-zaugrut.
      ENDIF.
*
*      CLEAR: lvbmtv-zfakskt.
*      SELECT SINGLE * INTO ls_tvfst
*      FROM tvfst
*      WHERE faksp = lvbak-faksk
*        AND spras = '1'.
*      IF sy-subrc = 0.
*        MOVE ls_tvfst-vtext TO lvbmtv-zfakskt.
*      ENDIF.

*      CLEAR: lvbmtv-zlifskt.
*      SELECT SINGLE * INTO ls_tvlst
*      FROM tvlst
*      WHERE lifsp = lvbak-lifsk
*        AND spras = '1'.
*      IF sy-subrc = 0.
*        MOVE ls_tvlst-vtext TO lvbmtv-zlifskt.
*      ENDIF.
*
       MOVE lvbak-submi  TO lvbmtv-submi.

*      MOVE LVBAK-KVGR1 TO LVBMTV-KVGR1.
*      CLEAR: lvbmtv-ZKVGR1.
*      select single * into ls_TVV1T
*      from TVV1T
*      where spras = '1'
*        and KVGR1 = LVBAK-KVGR1.
*      if sy-subrc = 0.
*        move ls_TVV1T-BEZEI to LVBMTV-ZKVGR1.
*      endif.
*
*      MOVE LVBAK-KVGR2 TO LVBMTV-KVGR2.
*      CLEAR: lvbmtv-ZKVGR2.
*      select single * into ls_TVV2T
*      from TVV2T
*      where spras = '1'
*        and KVGR2 = LVBAK-KVGR2.
*      if sy-subrc = 0.
*        move ls_TVV2T-BEZEI to LVBMTV-ZKVGR2.
*      endif.
*
*      MOVE LVBAK-KVGR3 TO LVBMTV-KVGR3.
*      CLEAR: lvbmtv-ZKVGR3.
*      select single * into ls_TVV3T
*      from TVV3T
*      where spras = '1'
*        and KVGR3 = LVBAK-KVGR3.
*      if sy-subrc = 0.
*        move ls_TVV3T-BEZEI to LVBMTV-ZKVGR3.
*      endif.

      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zddyq.
      l_tdname = lvbak-vbeln.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                      =  'ZV01'
           language                = sy-langu
          name                    = l_tdname
          object                  =  'VBBK'
         TABLES
           lines                   = lt_lines
         EXCEPTIONS
           id                      =  1
           language                =  2
          name                    =  3
          not_found               =  4
          object                  =  5
          reference_check         =  6
          wrong_access_to_archive =  7
           OTHERS                  =  8.
       IF sy-subrc =  0.
         LOOP  AT lt_lines  INTO ls_lines.
           CONCATENATE lvbmtv-zddyq ls_lines-tdline  INTO lvbmtv-zddyq.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zbzyq.
      l_tdname = lvbak-vbeln.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                      =  'ZV02'
           language                = sy-langu
          name                    = l_tdname
          object                  =  'VBBK'
         TABLES
           lines                   = lt_lines
         EXCEPTIONS
           id                      =  1
           language                =  2
          name                    =  3
          not_found               =  4
          object                  =  5
          reference_check         =  6
          wrong_access_to_archive =  7
           OTHERS                  =  8.
       IF sy-subrc =  0.
         LOOP  AT lt_lines  INTO ls_lines.
           CONCATENATE lvbmtv-zbzyq ls_lines-tdline  INTO lvbmtv-zbzyq.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zfpyq.
      l_tdname = lvbak-vbeln.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                      =  'ZV03'
           language                = sy-langu
          name                    = l_tdname
          object                  =  'VBBK'
         TABLES
           lines                   = lt_lines
         EXCEPTIONS
           id                      =  1
           language                =  2
          name                    =  3
          not_found               =  4
          object                  =  5
          reference_check         =  6
          wrong_access_to_archive =  7
           OTHERS                  =  8.
       IF sy-subrc =  0.
         LOOP  AT lt_lines  INTO ls_lines.
           CONCATENATE lvbmtv-zfpyq ls_lines-tdline  INTO lvbmtv-zfpyq.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zkpyq.
      l_tdname = lvbak-vbeln.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                      =  'ZV04'
           language                = sy-langu
          name                    = l_tdname
          object                  =  'VBBK'
         TABLES
           lines                   = lt_lines
         EXCEPTIONS
           id                      =  1
           language                =  2
          name                    =  3
          not_found               =  4
          object                  =  5
          reference_check         =  6
          wrong_access_to_archive =  7
           OTHERS                  =  8.
       IF sy-subrc =  0.
         LOOP  AT lt_lines  INTO ls_lines.
           CONCATENATE lvbmtv-zkpyq ls_lines-tdline  INTO lvbmtv-zkpyq.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zkhqtyq.
      l_tdname = lvbak-vbeln.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                      =  'ZV05'
           language                = sy-langu
          name                    = l_tdname
          object                  =  'VBBK'
         TABLES
           lines                   = lt_lines
         EXCEPTIONS
           id                      =  1
           language                =  2
          name                    =  3
          not_found               =  4
          object                  =  5
          reference_check         =  6
          wrong_access_to_archive =  7
           OTHERS                  =  8.
       IF sy-subrc =  0.
         LOOP  AT lt_lines  INTO ls_lines.
           CONCATENATE lvbmtv-zkhqtyq ls_lines-tdline  INTO lvbmtv-zkhqtyq.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-ztsyq.
      l_tdname = lvbak-vbeln.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                      =  'ZV06'
           language                = sy-langu
          name                    = l_tdname
          object                  =  'VBBK'
         TABLES
           lines                   = lt_lines
         EXCEPTIONS
           id                      =  1
           language                =  2
          name                    =  3
          not_found               =  4
          object                  =  5
          reference_check         =  6
          wrong_access_to_archive =  7
           OTHERS                  =  8.
       IF sy-subrc =  0.
         LOOP  AT lt_lines  INTO ls_lines.
           CONCATENATE lvbmtv-ztsyq ls_lines-tdline  INTO lvbmtv-ztsyq.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zlgrq.
      l_tdname = lvbak-vbeln.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                      =  'ZV07'
           language                = sy-langu
          name                    = l_tdname
          object                  =  'VBBK'
         TABLES
           lines                   = lt_lines
         EXCEPTIONS
           id                      =  1
           language                =  2
          name                    =  3
          not_found               =  4
          object                  =  5
          reference_check         =  6
          wrong_access_to_archive =  7
           OTHERS                  =  8.
       IF sy-subrc =  0.
         LOOP  AT lt_lines  INTO ls_lines.
           CONCATENATE lvbmtv-zlgrq ls_lines-tdline  INTO lvbmtv-zlgrq.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zyqdhrq.
      l_tdname = lvbak-vbeln.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                      =  'ZV08'
           language                = sy-langu
          name                    = l_tdname
          object                  =  'VBBK'
         TABLES
           lines                   = lt_lines
         EXCEPTIONS
           id                      =  1
           language                =  2
          name                    =  3
          not_found               =  4
          object                  =  5
          reference_check         =  6
          wrong_access_to_archive =  7
           OTHERS                  =  8.
       IF sy-subrc =  0.
         LOOP  AT lt_lines  INTO ls_lines.
           CONCATENATE lvbmtv-zyqdhrq ls_lines-tdline  INTO lvbmtv-zyqdhrq.
        ENDLOOP.
      ENDIF.

*      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zqrrq1.'事业部要求入库时间
*      l_tdname = lvbak-vbeln.
*      CALL FUNCTION 'READ_TEXT'
*        EXPORTING
*          id                      = 'ZV09'
*          language                = sy-langu
*          name                    = l_tdname
*          object                  = 'VBBK'
*        TABLES
*          lines                   = lt_lines
*        EXCEPTIONS
*          id                      = 1
*          language                = 2
*          name                    = 3
*          not_found               = 4
*          object                  = 5
*          reference_check         = 6
*          wrong_access_to_archive = 7
*          OTHERS                  = 8.
*      IF sy-subrc = 0.
*        LOOP AT lt_lines INTO ls_lines.
*          CONCATENATE lvbmtv-zqrrq1 ls_lines-tdline INTO lvbmtv-zqrrq1.
*        ENDLOOP.
*      ENDIF.
*
*      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zqrrq2.
*      l_tdname = lvbak-vbeln.
*      CALL FUNCTION 'READ_TEXT'
*        EXPORTING
*          id                      = 'ZV10'
*          language                = sy-langu
*          name                    = l_tdname
*          object                  = 'VBBK'
*        TABLES
*          lines                   = lt_lines
*        EXCEPTIONS
*          id                      = 1
*          language                = 2
*          name                    = 3
*          not_found               = 4
*          object                  = 5
*          reference_check         = 6
*          wrong_access_to_archive = 7
*          OTHERS                  = 8.
*      IF sy-subrc = 0.
*        LOOP AT lt_lines INTO ls_lines.
*          CONCATENATE lvbmtv-zqrrq2 ls_lines-tdline INTO lvbmtv-zqrrq2.
*        ENDLOOP.
*      ENDIF.
*
*      CLEAR: l_tdname, lt_lines, ls_lines, lvbmtv-zqrrq3.
*      l_tdname = lvbak-vbeln.
*      CALL FUNCTION 'READ_TEXT'
*        EXPORTING
*          id                      = 'ZV11'
*          language                = sy-langu
*          name                    = l_tdname
*          object                  = 'VBBK'
*        TABLES
*          lines                   = lt_lines
*        EXCEPTIONS
*          id                      = 1
*          language                = 2
*          name                    = 3
*          not_found               = 4
*          object                  = 5
*          reference_check         = 6
*          wrong_access_to_archive = 7
*          OTHERS                  = 8.
*      IF sy-subrc = 0.
*        LOOP AT lt_lines INTO ls_lines.
*          CONCATENATE lvbmtv-zqrrq3 ls_lines-tdline INTO lvbmtv-zqrrq3.
*        ENDLOOP.
*      ENDIF.

      clear: lvbmtv-zREGIO.
       select  single *  into ls_kna1
       from kna1
       where KUNNR = lvbak-kunnr.
       if sy-subrc =  0.
         select  single *  into ls_T005U
         from T005U
         where SPRAS = '1'
           and LAND1 = ls_kna1-LAND1
           and BLAND = ls_kna1-REGIO.
         if sy-subrc =  0.
             move ls_t005u-BEZEI  to lvbmtv-zREGIO.
        endif.

*        select single VTEXT into lvbmtv-ZVTEXT1
*        from TVK1T
*        where KATR1 = ls_kna1-KATR1
*          and SPRAS = '1'.
*
*        select single VTEXT into lvbmtv-ZVTEXT2
*        from TVK2T
*        where KATR2 = ls_kna1-KATR2
*          and SPRAS = '1'.
*
*        select single VTEXT into lvbmtv-ZVTEXT3     客户属性
*        from TVK3T
*        where KATR3 = ls_kna1-KATR3
*          and SPRAS = '1'.
*
*        select single VTEXT into lvbmtv-ZVTEXT4
*        from TVK4T
*        where KATR4 = ls_kna1-KATR4
*          and SPRAS = '1'.
*
*        select single VTEXT into lvbmtv-ZVTEXT5
*        from TVK5T
*        where KATR5 = ls_kna1-KATR5
*          and SPRAS = '1'.
*
*        select single VTEXT into lvbmtv-ZVTEXT6
*        from TVK6T
*        where KATR6 = ls_kna1-KATR6
*          and SPRAS = '1'.
*
*        select single VTEXT into lvbmtv-ZVTEXT7
*        from TVK7T
*        where KATR7 = ls_kna1-KATR7
*          and SPRAS = '1'.


*        move ls_kna1-KATR1 to lvbmtv-KATR1.
*        move ls_kna1-KATR2 to lvbmtv-KATR2.
*        move ls_kna1-KATR3 to lvbmtv-KATR3.
*        move ls_kna1-KATR4 to lvbmtv-KATR4.
*        move ls_kna1-KATR5 to lvbmtv-KATR5.
*        move ls_kna1-KATR6 to lvbmtv-KATR6.
*        move ls_kna1-KATR7 to lvbmtv-KATR7.
      endif.

*}   INSERT

     WHEN  'VBAP'.
*     item
*     MOVE LVBAP-XXXXX TO LVBMTV-ZZXXXXX.
*{   INSERT         ECDK900327                                        1
      if lvbap  is  not initial.
        move LVBAP-KDMAT  to LVBMTV-ZKDMAT.
       endif.

      DATA: ls_tvagt   TYPE tvagt,
            ls_mara    TYPE mara,
            ls_t023t   TYPE t023t,
            ls_vbkd    type vbkd,
            LS_T151T   TYPE T151T,
            LT_KONV    TYPE  TABLE  OF KONV,
            LS_KONV    TYPE KONV,
            ls_vbak    type vbak,
            ls_vbuk    type vbuk,
            ls_vbup    type vbup,
            LT_VBUP    TYPE  TABLE  OF VBUP,
            LS_LIPS    TYPE LIPS,
            LT_LIPS    TYPE  TABLE  OF LIPS,
             LS_VBRK   TYPE VBRK,
            LT_VBRK    TYPE  TABLE  OF VBRK,
            LT_VBRP    TYPE  TABLE  OF VBRP,
            LS_VBRP    TYPE VBRP,
            LT_VBUK_T    TYPE  TABLE  OF VBUK,
            LS_VBUK_T    TYPE VBUK.
*              LT_ce11000   TYPE TABLE OF ce11000,
*            LS_ce11000   TYPE ce11000.

      CLEAR: ls_tvagt, ls_mara, ls_t023t, ls_vbkd.

      DATA: l_tdname_p     TYPE thead-tdname,
            lt_lines_p     TYPE  TABLE  OF tline,
            ls_lines_p     TYPE tline.


      CLEAR: lvbmtv-zabgrut.
       SELECT  SINGLE *  INTO ls_tvagt
       FROM tvagt
       WHERE abgru = lvbap-abgru
         AND spras =  '1'.
       IF sy-subrc =  0.
         MOVE ls_tvagt-bezei  TO lvbmtv-zabgrut.
      ENDIF.

      CLEAR: lvbmtv-znormt.
      CLEAR: lvbmtv-zgroes.
      CLEAR: lvbmtv-zwgbez.
       SELECT  SINGLE *  INTO ls_mara
       FROM mara
       WHERE matnr = lvbap-matnr.
       IF sy-subrc =  0.
*        MOVE ls_mara-normt TO lvbmtv-znormt.
         MOVE ls_mara-groes  TO lvbmtv-zgroes.

         SELECT  SINGLE *  INTO ls_t023t
         FROM t023t
         WHERE matkl = ls_mara-matkl
           AND spras =  '1'.
         IF sy-subrc =  0.
           MOVE ls_t023t-wgbez  TO lvbmtv-zwgbez.
        ENDIF.
      ENDIF.

      CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zkmxx.

       CONCATENATE lvbap-vbeln  lvbap-posnr  INTO l_tdname_p.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                            =  'Z001'
           language                      = sy-langu
          name                          = l_tdname_p
          object                        =  'VBBP'
         TABLES
           lines                         = lt_lines_p
        EXCEPTIONS
          id                            =  1
          language                      =  2
         name                          =  3
         not_found                     =  4
         object                        =  5
         reference_check               =  6
         wrong_access_to_archive       =  7
          OTHERS                        =  8
                .
       IF sy-subrc =  0.
         LOOP  AT lt_lines_p  INTO ls_lines_p.
           CONCATENATE lvbmtv-zkmxx ls_lines_p-tdline  INTO lvbmtv-zkmxx.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zhxmbz.

       CONCATENATE lvbap-vbeln  lvbap-posnr  INTO l_tdname_p.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                            =  'Z002'
           language                      = sy-langu
          name                          = l_tdname_p
          object                        =  'VBBP'
         TABLES
           lines                         = lt_lines_p
        EXCEPTIONS
          id                            =  1
          language                      =  2
         name                          =  3
         not_found                     =  4
         object                        =  5
         reference_check               =  6
         wrong_access_to_archive       =  7
          OTHERS                        =  8
                .
       IF sy-subrc =  0.
         LOOP  AT lt_lines_p  INTO ls_lines_p.
           CONCATENATE lvbmtv-zhxmbz ls_lines_p-tdline  INTO lvbmtv-zhxmbz.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zdydj.

       CONCATENATE lvbap-vbeln  lvbap-posnr  INTO l_tdname_p.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                            =  'Z003'
           language                      = sy-langu
          name                          = l_tdname_p
          object                        =  'VBBP'
         TABLES
           lines                         = lt_lines_p
        EXCEPTIONS
          id                            =  1
          language                      =  2
         name                          =  3
         not_found                     =  4
         object                        =  5
         reference_check               =  6
         wrong_access_to_archive       =  7
          OTHERS                        =  8
                .
       IF sy-subrc =  0.
         LOOP  AT lt_lines_p  INTO ls_lines_p.
           CONCATENATE lvbmtv-zdydj ls_lines_p-tdline  INTO lvbmtv-zdydj.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zyyzsb.

       CONCATENATE lvbap-vbeln  lvbap-posnr  INTO l_tdname_p.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                            =  'Z004'
           language                      = sy-langu
          name                          = l_tdname_p
          object                        =  'VBBP'
         TABLES
           lines                         = lt_lines_p
        EXCEPTIONS
          id                            =  1
          language                      =  2
         name                          =  3
         not_found                     =  4
         object                        =  5
         reference_check               =  6
         wrong_access_to_archive       =  7
          OTHERS                        =  8
                .
       IF sy-subrc =  0.
         LOOP  AT lt_lines_p  INTO ls_lines_p.
           CONCATENATE lvbmtv-zyyzsb ls_lines_p-tdline  INTO lvbmtv-zyyzsb.
        ENDLOOP.
      ENDIF.

      CLEAR: l_tdname_p, lt_lines_p, ls_lines_p, lvbmtv-zjyjz.

       CONCATENATE lvbap-vbeln  lvbap-posnr  INTO l_tdname_p.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                            =  'Z005'
           language                      = sy-langu
          name                          = l_tdname_p
          object                        =  'VBBP'
         TABLES
           lines                         = lt_lines_p
        EXCEPTIONS
          id                            =  1
          language                      =  2
         name                          =  3
         not_found                     =  4
         object                        =  5
         reference_check               =  6
         wrong_access_to_archive       =  7
          OTHERS                        =  8
                .
       IF sy-subrc =  0.
         LOOP  AT lt_lines_p  INTO ls_lines_p.
           CONCATENATE lvbmtv-zjyjz ls_lines_p-tdline  INTO lvbmtv-zjyjz.
        ENDLOOP.
      ENDIF.

       MOVE LVBAP-MATKL  TO LVBMTV-MATKL.
      CLEAR: lvbmtv-KDGRP.
      CLEAR: lvbmtv-ZKDGRP.
*      SELECT SINGLE * INTO LS_VBKD
*      FROM VBKD
*      WHERE VBELN = LVBAP-VBELN.
*      IF SY-SUBRC = 0.
*        MOVE LS_VBKD-KDGRP TO LVBMTV-KDGRP.
         select  single *  into ls_T151T
         from T151T
         where spras =  '1'
           and KDGRP = LS_VBKD-KDGRP.
         if sy-subrc =  0.
           move ls_T151T-KTEXT  to LVBMTV-ZKDGRP.
        endif.


*      MOVE LVBAP-UEBTO TO LVBMTV-UEBTO.'过量交货限度
*      MOVE LVBAP-UNTTO TO LVBMTV-UNTTO.交货不足限度
       MOVE LVBAP-KZWI1  TO LVBMTV-ZKZWI1.
       MOVE LVBAP-KZWI2  TO LVBMTV-ZKZWI2.
       MOVE LVBAP-KZWI3  TO LVBMTV-ZKZWI3.
       MOVE LVBAP-KZWI5  TO LVBMTV-ZKZWI5.
       MOVE LVBAP-KZWI6  TO LVBMTV-ZKZWI6.

       select  single *  into ls_vbak
       from vbak
       where vbeln = lvbap-vbeln.
       if sy-subrc =  0.
         SELECT *  INTO CORRESPONDING  FIELDS  OF  TABLE LT_KONV
         FROM KONV
         WHERE KNUMV = ls_vbak-KNUMV
           AND KPOSN = LVBAP-POSNR.
         IF SY-SUBRC =  0.
           READ  TABLE LT_KONV  INTO LS_KONV  WITH  KEY KSCHL =  'ZF40'.
           IF SY-SUBRC =  0.
             MOVE LS_KONV-KBETR  TO LVBMTV-ZF40.
          ENDIF.

           READ  TABLE LT_KONV  INTO LS_KONV  WITH  KEY KSCHL =  'ZJY0'.
           IF SY-SUBRC =  0.
             MOVE LS_KONV-KBETR  TO LVBMTV-ZJY0.
          ENDIF.

           READ  TABLE LT_KONV  INTO LS_KONV  WITH  KEY KSCHL =  'PR00'.
           IF SY-SUBRC =  0.
             MOVE LS_KONV-KBETR  TO LVBMTV-ZPR00.
          ENDIF.

           READ  TABLE LT_KONV  INTO LS_KONV  WITH  KEY KSCHL =  'PR01'.
           IF SY-SUBRC =  0.
             MOVE LS_KONV-KBETR  TO LVBMTV-ZPR01.
          ENDIF.
        ENDIF.
      endif.
      clear:LVBMTV-zVSNMR,LVBMTV-ztext8.
move ls_vbak-VSNMR_V  to LVBMTV-zVSNMR.
       move lvbap-VRKME  to lvbmtv-zVRKME.

"处理出口地区
      CLEAR: l_tdname, lt_lines, ls_lines.
      l_tdname = lvbak-vbeln.
       CALL  FUNCTION  'READ_TEXT'
         EXPORTING
           id                      =  'ZV10'
           language                = sy-langu
          name                    = l_tdname
          object                  =  'VBBK'
         TABLES
           lines                   = lt_lines
         EXCEPTIONS
           id                      =  1
           language                =  2
          name                    =  3
          not_found               =  4
          object                  =  5
          reference_check         =  6
          wrong_access_to_archive =  7
           OTHERS                  =  8.
       IF sy-subrc =  0.
         LOOP  AT lt_lines  INTO ls_lines.
           CONCATENATE lvbmtv-ztext8 ls_lines-tdline  INTO lvbmtv-ztext8.
        ENDLOOP.
      ENDIF.
"处理出口地区



      CLEAR: LT_LIPS, LS_LIPS, LT_VBUP, LS_VBUP, lvbmtv-ZLFIMG,lvbmtv-zfkimg.
       select *  INTO CORRESPONDING  FIELDS  OF  TABLE LT_LIPS
       FROM LIPS
       WHERE VGBEL = LVBAP-VBELN
         AND VGPOS = LVBAP-POSNR.
       IF SY-SUBRC =  0.
         SELECT *  INTO CORRESPONDING  FIELDS  OF  TABLE LT_VBUP
         FROM VBUP
         for  all entries  in LT_LIPS
         WHERE VBELN = LT_LIPS-VBELN
           AND POSNR = LT_LIPS-POSNR.
         IF SY-SUBRC =  0.
             LOOP  AT LT_VBUP  INTO LS_VBUP  WHERE WBSTA =  'C'.
                READ  TABLE LT_LIPS  INTO LS_LIPS  WITH  KEY VBELN = LS_VBUP-VBELN
                                                        POSNR = LS_VBUP-POSNR.
                IF SY-SUBRC =  0.
*                 LS_LIPS-LFIMG =  LS_LIPS-LFIMG + lvbmtv-ZLFIMG.
                lvbmtv-ZLFIMG = lvbmtv-ZLFIMG + LS_LIPS-LFIMG.
*
                 ENDIF.
         ENDLOOP.

        ENDIF.
      ENDIF.

* MOVE LS_LIPS-LFIMG TO lvbmtv-ZLFIMG.
       MOVE LVBAP-POSEX  TO LVBMTV-ZPOSEX.
       MOVE LVBAP-KDMAT  TO LVBMTV-ZKDMAT.
*      MOVE LVBAP-FKIMG TO LVBMTV-ZFKIMG.

*      CLEAR: LVBMTV-ZWKPSL.
       SELECT *  INTO CORRESPONDING  FIELDS  OF  TABLE LT_VBRP
       FROM VBRP
       WHERE AUBEL = LVBAP-VBELN
         AND AUPOS = LVBAP-POSNR.
*         SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_VBRK
*        FROM VBUP
*        for all entries in LT_LIPS
*        WHERE VBELN = LT_LIPS-VBELN
*        AND LVBRK-VBTYP = 'M'
*        AND LVBRK-FKSTO = ''.
*
*      IF SY-SUBRC = 0.
*        CLEAR: LT_VBRK.

         SELECT *  INTO CORRESPONDING  FIELDS  OF  TABLE LT_VBRK
         FROM VBRK
         FOR  ALL ENTRIES  IN LT_VBRP
         WHERE VBELN = LT_VBRP-VBELN.

*           SELECT * INTO CORRESPONDING FIELDS OF TABLE LT_CE11000
*        FROM CE11000
*        FOR ALL ENTRIES IN LT_VBRP
*        WHERE rbeln = LT_VBRP-VBELN
*             .


        IF SY-SUBRC =  0.

         LOOP  AT LT_VBRP  INTO LS_VBRP  WHERE aubel = lvbap-vbeln  AND aupos = lvbap-posnr .
           READ  TABLE LT_VBRK  INTO LS_VBRK  WITH  KEY VBELN = LS_VBRP-VBELN
                                                   VBTYP =  'M'
                                                   FKSTO =  ''.
*          READ TABLE LT_CE11000 INTO LS_CE11000 WITH KEY rbeln = LS_VBRP-VBELN
*                                                            PALEDGER = '02'
*                                                            VRGAR = 'A'.
IF SY-SUBRC =  0 .
   LVBMTv-ZFKIMG = LVBMTV-ZFKIMG + ls_vbrp-fkimg.
endif.
        ENDLOOP.
         ENDIF.
*          MOVE LS_CE11000-ERLOS TO LVBMTV-ZERLOS.

*          MOVE LS_VBRP-FKIMG TO LVBMTV-ZFKIMG.

*      ENDIF.

*      LVBMTV-ZWKPSL = LVBAP-KWMENG - LVBMTV-ZWKPSL.

*}   INSERT
     WHEN  'VBEP'.
*     schedule line
*     MOVE LVBEP-XXXXX TO LVBMTV-ZZXXXXX.


  ENDCASE.
ENDFORM.