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

2020-09-24 21:41发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中) SPAN { 字体家族: C...

         点击此处--->   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条回答
clasier
2020-09-24 22:10

嗨,安托万,

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

感谢您的建议。

致谢

Ashok

一周热门 更多>