提问
SAP Interactive Forms by Adobe SAPUI5

在智能表单驱动程序中获取Short Dump。

2020-09-24 21:41发布

站内问答 / ABAP
1277 2 6

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

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


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

 报告zr_voucher_fi。



 表格：bkpf，bseg，kna1，t005u，mvkt，bset。



 选择屏幕：b1块的开始。



 参数：kunnr TYPE kna1-kunnr强制性，

                 bukrs TYPE bkpf-bukrs义务，

                 gjahr类型bkpf-gjahr强制性，

                 umskz TYPE bseg-umskz。



 选择屏幕：块结尾b1。



 类型：开始于ty_bset，



          hwbas TYPE bset-hwbas，

          kbetr TYPE bset-kbetr，

          hwste TYPE bset-hwste，

          kschl TYPE bset-kschl，

          s_hwste TYPE bset-hwste，

          p_hwste TYPE bset-hwste，

          p_kbetr TYPE bset-kbetr，

          s_kbetr TYPE bset-kbetr，





        结束于ty_bset。



 数据：带有标题行的ty_bset的it_bset类型标准表，

       wa_bset TYPE ty_bset。



 类型：开始于ty_bseg，

          belnr TYPE bseg-belnr，

          TYPE BSEG-BURKS，

          gjahr TYPE bseg-gjahr，

          umskz TYPE bseg-umskz，

          plc_sup TYPE bseg-plc_sup，

          hsn_sac类型bseg-hsn_sac，

          dmbtr TYPE bseg-dmbtr，

        结束于ty_bseg。



 数据：带有标题行的ty_bseg的it_bseg类型标准表，

       wa_bseg类型ty_bseg。



 类型：始于ty_kna1，



          name1 TYPE kna1-name1，

          ort01 TYPE kna1-ort01，

          kunnr TYPE kna1-kunnr，

          STRAS TYPE kna1-stras，

          adrnr TYPE kna1-adrnr，

          mcod3 TYPE kna1-mcod3，

          stcd3 TYPE kna1-stcd3，

          区域类型kna1-区域，



        ty_kna1结束。



 数据：带有标题行的ty_kna1的it_kna1类型标准表，

       wa_kna1类型ty_kna1。



 类型：开始于ty_final，

          belnr TYPE bseg-belnr，

          name1 TYPE kna1-name1，

          ort01 TYPE kna1-ort01，

          kunnr TYPE kna1-kunnr，

          STRAS TYPE kna1-stras，

          adrnr TYPE kna1-adrnr，

          mcod3 TYPE kna1-mcod3，

          stcd3 TYPE kna1-stcd3，

          区域类型kna1-区域，

          平淡的t005u型，

          matnr TYPE mvkt-matnr，

          hwbas TYPE bset-hwbas，

          kbetr TYPE bset-kbetr，

          s_kbetr TYPE bset-kbetr，

          s_ktosl TYPE bset-ktosl，

          hwste TYPE bset-hwste，

          s_hwste TYPE bset-hwste，

          p_hwste TYPE bset-hwste，

          p_kbetr TYPE bset-kbetr，

          plc_sup TYPE bseg-plc_sup，

          hsn_sac类型bseg-hsn_sac，

          dmbtr TYPE bseg-dmbtr，

        ty_final结束。



 DATA：fm_name TYPE rs38l_fnam，"功能模块名称

        fp_docparams TYPE sfpdocparams，

        fp_outputparams TYPE sfpoutputparams。





 数据：带有标题行的ty_final的it_final类型标准表，

       wa_final TYPE ty_final。



 数据：带有标题行的t005u的it_t005u类型标准表，

       wa_t005u类型t005u。

 数据：带有标题行的mvkt的it_mvkt类型标准表，

       wa_mvkt类型mvkt。



 选择开始。



   选择贝尔

           plc_sup

           hsn_sac

           dmbtr

           nn

     从bseg到表的相应字段it_bseg

     在哪里kunnr EQ kunnr和

           均衡器均衡器AND

           均衡器gjahr。



   如果it_bseg []不是INITIAL。



     选择hwbas

             bet

             ste

        从bset到表it_bset的对应字段

        对于it_bseg中的所有条目

        belnr = it_bseg-belnr。



     选择名称1

            ort01

            斯特拉斯

            adrnr

            mcod3

            stcd3

            雷焦

       从kna1到表的相应字段it_kna1

      在哪里kunnr EQ kunnr。



     从t005u中选择一个无味到wa_t005u中。



     从mvkt中选择单个matnr到wa_mvkt中。







     使用键kschl ='JISG'将表it_bset读入wa_bset。



     wa_bset-hwste = wa_bset-hwste。  CGST

     wa_bset-kbetr = wa_bset-kbetr。



     使用键kschl ='JICG'将表it_bset读入wa_bset。



     wa_bset-s_hwste = wa_bset-hwste。  " sgst

     wa_bset-s_kbetr = wa_bset-kbetr。



     使用键kschl ='JIIG'将表it_bset读入wa_bset。



     wa_bset-p_hwste = wa_bset-hwste。  "伊格斯特

     wa_bset-p_kbetr = wa_bset-kbetr。





     附录：wa_bset至it_bset。



     清除：wa_bset。

   万一。



   通话功能" SSF_FUNCTION_MODULE_NAME"

     出口

       表格名称='ZR_VOUCHER_FI'

 * VARIANT =''

 * DIRECT_CALL =''

     输入

       fm_name = fm_name

     例外情况

       no_form = 1

       no_function_module = 2

       其他= 3。

   如果sy-subrc <> 0。

 *在这里实施适当的错误处理

   万一。



 通话功能fm_name

   出口

 * ARCHIVE_INDEX =

 * ARCHIVE_INDEX_TAB =

 * ARCHIVE_PARAMETERS =

 * CONTROL_PARAMETERS =

 * MAIL_APPL_OBJ =

 * MAIL_RECIPIENT =

 * MAIL_SENDER =

 * OUTPUT_OPTIONS =

 * USER_SETTINGS ='X'

     mm_it_bset = it_bset

     mm_it_bseg = it_bseg

     mm_it_kna1 = it_kna1

     mm_wa_t005u = wa_t005u

     mm_wa_mvkt = wa_mvkt

 *重要

 * DOCUMENT_OUTPUT_INFO =

 * JOB_OUTPUT_INFO =

 * JOB_OUTPUT_OPTIONS =

 *例外情况

 * FORMATTING_ERROR = 1

 * INTERNAL_ERROR = 2

 * SEND_ERROR = 3

 * USER_CANCELED = 4

 *其他= 5

           。

 如果sy-subrc <> 0。

 *在这里实施适当的错误处理

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

 报告zr_voucher_fi。



 表格：bkpf，bseg，kna1，t005u，mvkt，bset。



 选择屏幕：b1块的开始。



 参数：kunnr TYPE kna1-kunnr强制性，

                 bukrs TYPE bkpf-bukrs义务，

                 gjahr类型bkpf-gjahr强制性，

                 umskz TYPE bseg-umskz。



 选择屏幕：块结尾b1。



 类型：开始于ty_bset，



          hwbas TYPE bset-hwbas，

          kbetr TYPE bset-kbetr，

          hwste TYPE bset-hwste，

          kschl TYPE bset-kschl，

          s_hwste TYPE bset-hwste，

          p_hwste TYPE bset-hwste，

          p_kbetr TYPE bset-kbetr，

          s_kbetr TYPE bset-kbetr，





        结束于ty_bset。



 数据：带有标题行的ty_bset的it_bset类型标准表，

       wa_bset TYPE ty_bset。



 类型：开始于ty_bseg，

          belnr TYPE bseg-belnr，

          TYPE BSEG-BURKS，

          gjahr TYPE bseg-gjahr，

          umskz TYPE bseg-umskz，

          plc_sup TYPE bseg-plc_sup，

          hsn_sac类型bseg-hsn_sac，

          dmbtr TYPE bseg-dmbtr，

        结束于ty_bseg。



 数据：带有标题行的ty_bseg的it_bseg类型标准表，

       wa_bseg类型ty_bseg。



 类型：始于ty_kna1，



          name1 TYPE kna1-name1，

          ort01 TYPE kna1-ort01，

          kunnr TYPE kna1-kunnr，

          STRAS TYPE kna1-stras，

          adrnr TYPE kna1-adrnr，

          mcod3 TYPE kna1-mcod3，

          stcd3 TYPE kna1-stcd3，

          区域类型kna1-区域，



        ty_kna1结束。



 数据：带有标题行的ty_kna1的it_kna1类型标准表，

       wa_kna1类型ty_kna1。



 类型：开始于ty_final，

          belnr TYPE bseg-belnr，

          name1 TYPE kna1-name1，

          ort01 TYPE kna1-ort01，

          kunnr TYPE kna1-kunnr，

          STRAS TYPE kna1-stras，

          adrnr TYPE kna1-adrnr，

          mcod3 TYPE kna1-mcod3，

          stcd3 TYPE kna1-stcd3，

          区域类型kna1-区域，

          平淡的t005u型，

          matnr TYPE mvkt-matnr，

          hwbas TYPE bset-hwbas，

          kbetr TYPE bset-kbetr，

          s_kbetr TYPE bset-kbetr，

          s_ktosl TYPE bset-ktosl，

          hwste TYPE bset-hwste，

          s_hwste TYPE bset-hwste，

          p_hwste TYPE bset-hwste，

          p_kbetr TYPE bset-kbetr，

          plc_sup TYPE bseg-plc_sup，

          hsn_sac类型bseg-hsn_sac，

          dmbtr TYPE bseg-dmbtr，

        ty_final结束。



 DATA：fm_name TYPE rs38l_fnam，"功能模块名称

        fp_docparams TYPE sfpdocparams，

        fp_outputparams TYPE sfpoutputparams。





 数据：带有标题行的ty_final的it_final类型标准表，

       wa_final TYPE ty_final。



 数据：带有标题行的t005u的it_t005u类型标准表，

       wa_t005u类型t005u。

 数据：带有标题行的mvkt的it_mvkt类型标准表，

       wa_mvkt类型mvkt。



 选择开始。



   选择贝尔

           plc_sup

           hsn_sac

           dmbtr

           nn

     从bseg到表的相应字段it_bseg

     在哪里kunnr EQ kunnr和

           均衡器均衡器AND

           均衡器gjahr。



   如果it_bseg []不是INITIAL。



     选择hwbas

             bet

             ste

        从bset到表it_bset的对应字段

        对于it_bseg中的所有条目

        belnr = it_bseg-belnr。



     选择名称1

            ort01

            斯特拉斯

            adrnr

            mcod3

            stcd3

            雷焦

       从kna1到表的相应字段it_kna1

      在哪里kunnr EQ kunnr。



     从t005u中选择一个无味到wa_t005u中。



     从mvkt中选择单个matnr到wa_mvkt中。







     使用键kschl ='JISG'将表it_bset读入wa_bset。



     wa_bset-hwste = wa_bset-hwste。  CGST

     wa_bset-kbetr = wa_bset-kbetr。



     使用键kschl ='JICG'将表it_bset读入wa_bset。



     wa_bset-s_hwste = wa_bset-hwste。  " sgst

     wa_bset-s_kbetr = wa_bset-kbetr。



     使用键kschl ='JIIG'将表it_bset读入wa_bset。



     wa_bset-p_hwste = wa_bset-hwste。  "伊格斯特

     wa_bset-p_kbetr = wa_bset-kbetr。





     附录：wa_bset至it_bset。



     清除：wa_bset。

   万一。



   通话功能" SSF_FUNCTION_MODULE_NAME"

     出口

       表格名称='ZR_VOUCHER_FI'

 * VARIANT =''

 * DIRECT_CALL =''

     输入

       fm_name = fm_name

     例外情况

       no_form = 1

       no_function_module = 2

       其他= 3。

   如果sy-subrc <> 0。

 *在这里实施适当的错误处理

   万一。



 通话功能fm_name

   出口

 * ARCHIVE_INDEX =

 * ARCHIVE_INDEX_TAB =

 * ARCHIVE_PARAMETERS =

 * CONTROL_PARAMETERS =

 * MAIL_APPL_OBJ =

 * MAIL_RECIPIENT =

 * MAIL_SENDER =

 * OUTPUT_OPTIONS =

 * USER_SETTINGS ='X'

     mm_it_bset = it_bset

     mm_it_bseg = it_bseg

     mm_it_kna1 = it_kna1

     mm_wa_t005u = wa_t005u

     mm_wa_mvkt = wa_mvkt

 *重要

 * DOCUMENT_OUTPUT_INFO =

 * JOB_OUTPUT_INFO =

 * JOB_OUTPUT_OPTIONS =

 *例外情况

 * FORMATTING_ERROR = 1

 * INTERNAL_ERROR = 2

 * SEND_ERROR = 3

 * USER_CANCELED = 4

 *其他= 5

           。

 如果sy-subrc <> 0。

 *在这里实施适当的错误处理

 ENDIF。

（27.4 kB）

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

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


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

 报告zr_voucher_fi。



 表格：bkpf，bseg，kna1，t005u，mvkt，bset。



 选择屏幕：b1块的开始。



 参数：kunnr TYPE kna1-kunnr强制性，

                 bukrs TYPE bkpf-bukrs义务，

                 gjahr类型bkpf-gjahr强制性，

                 umskz TYPE bseg-umskz。



 选择屏幕：块结尾b1。



 类型：开始于ty_bset，



          hwbas TYPE bset-hwbas，

          kbetr TYPE bset-kbetr，

          hwste TYPE bset-hwste，

          kschl TYPE bset-kschl，

          s_hwste TYPE bset-hwste，

          p_hwste TYPE bset-hwste，

          p_kbetr TYPE bset-kbetr，

          s_kbetr TYPE bset-kbetr，





        结束于ty_bset。



 数据：带有标题行的ty_bset的it_bset类型标准表，

       wa_bset TYPE ty_bset。



 类型：开始于ty_bseg，

          belnr TYPE bseg-belnr，

          TYPE BSEG-BURKS，

          gjahr TYPE bseg-gjahr，

          umskz TYPE bseg-umskz，

          plc_sup TYPE bseg-plc_sup，

          hsn_sac类型bseg-hsn_sac，

          dmbtr TYPE bseg-dmbtr，

        结束于ty_bseg。



 数据：带有标题行的ty_bseg的it_bseg类型标准表，

       wa_bseg类型ty_bseg。



 类型：始于ty_kna1，



          name1 TYPE kna1-name1，

          ort01 TYPE kna1-ort01，

          kunnr TYPE kna1-kunnr，

          STRAS TYPE kna1-stras，

          adrnr TYPE kna1-adrnr，

          mcod3 TYPE kna1-mcod3，

          stcd3 TYPE kna1-stcd3，

          区域类型kna1-区域，



        ty_kna1结束。



 数据：带有标题行的ty_kna1的it_kna1类型标准表，

       wa_kna1类型ty_kna1。



 类型：开始于ty_final，

          belnr TYPE bseg-belnr，

          name1 TYPE kna1-name1，

          ort01 TYPE kna1-ort01，

          kunnr TYPE kna1-kunnr，

          STRAS TYPE kna1-stras，

          adrnr TYPE kna1-adrnr，

          mcod3 TYPE kna1-mcod3，

          stcd3 TYPE kna1-stcd3，

          区域类型kna1-区域，

          平淡的t005u型，

          matnr TYPE mvkt-matnr，

          hwbas TYPE bset-hwbas，

          kbetr TYPE bset-kbetr，

          s_kbetr TYPE bset-kbetr，

          s_ktosl TYPE bset-ktosl，

          hwste TYPE bset-hwste，

          s_hwste TYPE bset-hwste，

          p_hwste TYPE bset-hwste，

          p_kbetr TYPE bset-kbetr，

          plc_sup TYPE bseg-plc_sup，

          hsn_sac类型bseg-hsn_sac，

          dmbtr TYPE bseg-dmbtr，

        ty_final结束。



 DATA：fm_name TYPE rs38l_fnam，"功能模块名称

        fp_docparams TYPE sfpdocparams，

        fp_outputparams TYPE sfpoutputparams。





 数据：带有标题行的ty_final的it_final类型标准表，

       wa_final TYPE ty_final。



 数据：带有标题行的t005u的it_t005u类型标准表，

       wa_t005u类型t005u。

 数据：带有标题行的mvkt的it_mvkt类型标准表，

       wa_mvkt类型mvkt。



 选择开始。



   选择贝尔

           plc_sup

           hsn_sac

           dmbtr

           nn

     从bseg到表的相应字段it_bseg

     在哪里kunnr EQ kunnr和

           均衡器均衡器AND

           均衡器gjahr。



   如果it_bseg []不是INITIAL。



     选择hwbas

             bet

             ste

        从bset到表it_bset的对应字段

        对于it_bseg中的所有条目

        belnr = it_bseg-belnr。



     选择名称1

            ort01

            斯特拉斯

            adrnr

            mcod3

            stcd3

            雷焦

       从kna1到表的相应字段it_kna1

      在哪里kunnr EQ kunnr。



     从t005u中选择一个无味到wa_t005u中。



     从mvkt中选择单个matnr到wa_mvkt中。







     使用键kschl ='JISG'将表it_bset读入wa_bset。



     wa_bset-hwste = wa_bset-hwste。  CGST

     wa_bset-kbetr = wa_bset-kbetr。



     使用键kschl ='JICG'将表it_bset读入wa_bset。



     wa_bset-s_hwste = wa_bset-hwste。  " sgst

     wa_bset-s_kbetr = wa_bset-kbetr。



     使用键kschl ='JIIG'将表it_bset读入wa_bset。



     wa_bset-p_hwste = wa_bset-hwste。  "伊格斯特

     wa_bset-p_kbetr = wa_bset-kbetr。





     附录：wa_bset至it_bset。



     清除：wa_bset。

   万一。



   通话功能" SSF_FUNCTION_MODULE_NAME"

     出口

       表格名称='ZR_VOUCHER_FI'

 * VARIANT =''

 * DIRECT_CALL =''

     输入

       fm_name = fm_name

     例外情况

       no_form = 1

       no_function_module = 2

       其他= 3。

   如果sy-subrc <> 0。

 *在这里实施适当的错误处理

   万一。



 通话功能fm_name

   出口

 * ARCHIVE_INDEX =

 * ARCHIVE_INDEX_TAB =

 * ARCHIVE_PARAMETERS =

 * CONTROL_PARAMETERS =

 * MAIL_APPL_OBJ =

 * MAIL_RECIPIENT =

 * MAIL_SENDER =

 * OUTPUT_OPTIONS =

 * USER_SETTINGS ='X'

     mm_it_bset = it_bset

     mm_it_bseg = it_bseg

     mm_it_kna1 = it_kna1

     mm_wa_t005u = wa_t005u

     mm_wa_mvkt = wa_mvkt

 *重要

 * DOCUMENT_OUTPUT_INFO =

 * JOB_OUTPUT_INFO =

 * JOB_OUTPUT_OPTIONS =

 *例外情况

 * FORMATTING_ERROR = 1

 * INTERNAL_ERROR = 2

 * SEND_ERROR = 3

 * USER_CANCELED = 4

 *其他= 5

           。

 如果sy-subrc <> 0。

 *在这里实施适当的错误处理

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

 报告zr_voucher_fi。



 表格：bkpf，bseg，kna1，t005u，mvkt，bset。



 选择屏幕：b1块的开始。



 参数：kunnr TYPE kna1-kunnr强制性，

                 bukrs TYPE bkpf-bukrs义务，

                 gjahr类型bkpf-gjahr强制性，

                 umskz TYPE bseg-umskz。



 选择屏幕：块结尾b1。



 类型：开始于ty_bset，



          hwbas TYPE bset-hwbas，

          kbetr TYPE bset-kbetr，

          hwste TYPE bset-hwste，

          kschl TYPE bset-kschl，

          s_hwste TYPE bset-hwste，

          p_hwste TYPE bset-hwste，

          p_kbetr TYPE bset-kbetr，

          s_kbetr TYPE bset-kbetr，





        结束于ty_bset。



 数据：带有标题行的ty_bset的it_bset类型标准表，

       wa_bset TYPE ty_bset。



 类型：开始于ty_bseg，

          belnr TYPE bseg-belnr，

          TYPE BSEG-BURKS，

          gjahr TYPE bseg-gjahr，

          umskz TYPE bseg-umskz，

          plc_sup TYPE bseg-plc_sup，

          hsn_sac类型bseg-hsn_sac，

          dmbtr TYPE bseg-dmbtr，

        结束于ty_bseg。



 数据：带有标题行的ty_bseg的it_bseg类型标准表，

       wa_bseg类型ty_bseg。



 类型：始于ty_kna1，



          name1 TYPE kna1-name1，

          ort01 TYPE kna1-ort01，

          kunnr TYPE kna1-kunnr，

          STRAS TYPE kna1-stras，

          adrnr TYPE kna1-adrnr，

          mcod3 TYPE kna1-mcod3，

          stcd3 TYPE kna1-stcd3，

          区域类型kna1-区域，



        ty_kna1结束。



 数据：带有标题行的ty_kna1的it_kna1类型标准表，

       wa_kna1类型ty_kna1。



 类型：开始于ty_final，

          belnr TYPE bseg-belnr，

          name1 TYPE kna1-name1，

          ort01 TYPE kna1-ort01，

          kunnr TYPE kna1-kunnr，

          STRAS TYPE kna1-stras，

          adrnr TYPE kna1-adrnr，

          mcod3 TYPE kna1-mcod3，

          stcd3 TYPE kna1-stcd3，

          区域类型kna1-区域，

          平淡的t005u型，

          matnr TYPE mvkt-matnr，

          hwbas TYPE bset-hwbas，

          kbetr TYPE bset-kbetr，

          s_kbetr TYPE bset-kbetr，

          s_ktosl TYPE bset-ktosl，

          hwste TYPE bset-hwste，

          s_hwste TYPE bset-hwste，

          p_hwste TYPE bset-hwste，

          p_kbetr TYPE bset-kbetr，

          plc_sup TYPE bseg-plc_sup，

          hsn_sac类型bseg-hsn_sac，

          dmbtr TYPE bseg-dmbtr，

        ty_final结束。



 DATA：fm_name TYPE rs38l_fnam，"功能模块名称

        fp_docparams TYPE sfpdocparams，

        fp_outputparams TYPE sfpoutputparams。





 数据：带有标题行的ty_final的it_final类型标准表，

       wa_final TYPE ty_final。



 数据：带有标题行的t005u的it_t005u类型标准表，

       wa_t005u类型t005u。

 数据：带有标题行的mvkt的it_mvkt类型标准表，

       wa_mvkt类型mvkt。



 选择开始。



   选择贝尔

           plc_sup

           hsn_sac

           dmbtr

           nn

     从bseg到表的相应字段it_bseg

     在哪里kunnr EQ kunnr和

           均衡器均衡器AND

           均衡器gjahr。



   如果it_bseg []不是INITIAL。



     选择hwbas

             bet

             ste

        从bset到表it_bset的对应字段

        对于it_bseg中的所有条目

        belnr = it_bseg-belnr。



     选择名称1

            ort01

            斯特拉斯

            adrnr

            mcod3

            stcd3

            雷焦

       从kna1到表的相应字段it_kna1

      在哪里kunnr EQ kunnr。



     从t005u中选择一个无味到wa_t005u中。



     从mvkt中选择单个matnr到wa_mvkt中。







     使用键kschl ='JISG'将表it_bset读入wa_bset。



     wa_bset-hwste = wa_bset-hwste。  CGST

     wa_bset-kbetr = wa_bset-kbetr。



     使用键kschl ='JICG'将表it_bset读入wa_bset。



     wa_bset-s_hwste = wa_bset-hwste。  " sgst

     wa_bset-s_kbetr = wa_bset-kbetr。



     使用键kschl ='JIIG'将表it_bset读入wa_bset。



     wa_bset-p_hwste = wa_bset-hwste。  "伊格斯特

     wa_bset-p_kbetr = wa_bset-kbetr。





     附录：wa_bset至it_bset。



     清除：wa_bset。

   万一。



   通话功能" SSF_FUNCTION_MODULE_NAME"

     出口

       表格名称='ZR_VOUCHER_FI'

 * VARIANT =''

 * DIRECT_CALL =''

     输入

       fm_name = fm_name

     例外情况

       no_form = 1

       no_function_module = 2

       其他= 3。

   如果sy-subrc <> 0。

 *在这里实施适当的错误处理

   万一。



 通话功能fm_name

   出口

 * ARCHIVE_INDEX =

 * ARCHIVE_INDEX_TAB =

 * ARCHIVE_PARAMETERS =

 * CONTROL_PARAMETERS =

 * MAIL_APPL_OBJ =

 * MAIL_RECIPIENT =

 * MAIL_SENDER =

 * OUTPUT_OPTIONS =

 * USER_SETTINGS ='X'

     mm_it_bset = it_bset

     mm_it_bseg = it_bseg

     mm_it_kna1 = it_kna1

     mm_wa_t005u = wa_t005u

     mm_wa_mvkt = wa_mvkt

 *重要

 * DOCUMENT_OUTPUT_INFO =

 * JOB_OUTPUT_INFO =

 * JOB_OUTPUT_OPTIONS =

 *例外情况

 * FORMATTING_ERROR = 1

 * INTERNAL_ERROR = 2

 * SEND_ERROR = 3

 * USER_CANCELED = 4

 *其他= 5

           。

 如果sy-subrc <> 0。

 *在这里实施适当的错误处理

 ENDIF。

（27.4 kB）
付费偷看设置
发送
2条回答
haha101010
1楼 · 2020-09-24 22:16.采纳回答

在没有实际转储的情况下粘贴所有代码或多或少都没用...。 我们应该怎么办？

clasier
2楼-- · 2020-09-24 22:10

嗨，安托万，

我只粘贴了该代码仅供参考，即使您可以在附加的png文件下面获取实际的转储快照，但现在错误已得到解决。

感谢您的建议。

致谢

Ashok

一周热门 更多>

点击此处---> EasySAP.com 一起学习S4 HANA ...