点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中) SPAN { 字体家族: C...
点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中) SPAN { 字体家族: C...
加入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)
嗨,安托万,
我只粘贴了该代码仅供参考,即使您可以在附加的png文件下面获取实际的转储快照,但现在错误已得到解决。
感谢您的建议。
致谢
Ashok
一周热门 更多>