Smartfor不存在程序ZRVADIN0111中的处理例程ENTRY

2020-08-16 04:25发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨, 这是日志,我正在进入v...

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

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


嗨,

这是日志,我正在进入vf02 ..

===========日志============

消息文本

程序ZRVADIN0111中的处理例程ENTRY不存在

技术数据

消息类型__________ E(错误)

消息类别_________ VN(输出控制)

消息号________ 068

消息变量1____进入

消息变量2____ ZRVADIN0111

消息变量3____

消息变量4____

消息属性

详细程度_______

问题类别_________ 0

排序标准________

Number ________________ 1

======================================结束日志======= =================

我的驱动程序与下面相同,形式为ZSUNDRY_INVOICES_VENU'

================我的驱动程序==================

&----


*&报告ZRVADIN0111

*&

&----


*&

*&

报告ZRVADIN0111。

TABLES:很不错

* TYPES:开始为ty_header,

  • vbeln TYPE vbeln_vf,

  • fkdat TYPE fkdat,

  • XBLNR类型XBLNR_V1,

  • STCEG TYPE STCEG,

  • kunrg TYPE KUNRG,

  • name1 TYPE AD_NAME1,

  • city1 TYPE AD_CITY1,

  • post_code1类型AD_PSTCD1,

  • 街道TYPE AD_STREET,

  • 总共TYPE NETWR_FP,

  • ty_header的结尾。

数据:总和类型i值'0'。

*

* TYPES:开始为ty_item,

  • matnr TYPE matnr,

  • arktx类型arktx,

  • fkimg TYPE fkimg,

  • VRKME TYPE VRKME,

  • netwr TYPE NETWR_FP,

  • MWSBP TYPE MWSBP,

  • unipr TYPE NETWR_FP,

*

*

  • ty_item结束。

DATA:gs_header类型zsd_inv_header,

zsd_inv_items的it_item类型标准表。

FIELD-SYMBOLS: TYPE zsd_inv_items。

DATA:gv_adrnr TYPE adrnr。

*数据:s_vbeln类型为vbeln_vf。

*

* select-options:s_vbeln的so_vbeln。

*开始选择。

*表单条目。

*-获取标头

选择单个vbeln fkdat xblnr stceg kunrg bukrs

从vbrk导入gs_header

vbeln = nast-objky。

SELECT matnr arktx fkimg vrkme netwr mwsbp

进入表it_item的对应字段

从vbrp所在的位置vbeln = gs_header-vbeln。

环聊it_item分配

-unipr = -netwr/ -fkimg。

sum = sum + -netwr。

ENDLOOP。

gs_header-total =总和。

清除:gv_adrnr。

从kna1中选择单个adrnr到gv_adrnr,其中kunnr = gs_header-kunrg。

选择单个name1 city1 post_code1 street from adrc

INTO(gs_header-name1,gs_header-city1,gs_header-post_code1,gs_header-street)

地址在哪里= gv_adrnr。

*选择结束。

数据:fm_name类型为rs38l_fnam。

***********

****呼叫进入例程

**

*使用return_code us_screen输入表单。

*

  • 清除密码。

  • xscreen = us_screen。

  • 使用us_screen执行处理。

  • CASE密码。

  • 何时为0。

  • return_code = 0。

  • 何时3。

  • return_code = 3。

  • 与其他人在一起。

  • return_code = 1

  • 结束。

*

* ENDFORM。 "进入

*

  • 从ABAP呼叫smart

*

调用函数" SSF_FUNCTION_MODULE_NAME"

导出

formname ='ZSUNDRY_INVOICES_VENU'

  • VARIANT =''

  • DIRECT_CALL =''

导入

FM_NAME = FM_NAME

例外情况

NO_FORM = 1

NO_FUNCTION_MODULE = 2

其他= 3。

如果sy-subrc <> 0。

写:/"错误1"。

  • 消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO

  • 与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。

endif。

CALL FUNCTION fm_name

导出

  • ARCHIVE_INDEX =

  • ARCHIVE_INDEX_TAB =

  • ARCHIVE_PARAMETERS =

  • CONTROL_PARAMETERS =

  • MAIL_APPL_OBJ =

  • MAIL_RECIPIENT =

  • MAIL_SENDER =

  • OUTPUT_OPTIONS =

  • USER_SETTINGS ='X'

IS_HEADER = gs_header

  • 导入

  • DOCUMENT_OUTPUT_INFO =

  • JOB_OUTPUT_INFO =

  • JOB_OUTPUT_OPTIONS =

表格

IT_ITEMS = it_item

  • 例外

  • FORMATTING_ERROR = 1

  • INTERNAL_ERROR = 2

  • SEND_ERROR = 3

  • USER_CANCELED = 4

  • 其他= 5

如果SY-SUBRC <> 0。

消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO

使用SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。

ENDIF。

*

*呼叫功能FM_NAME

  • 导出

  • ARCHIVE_INDEX =

  • ARCHIVE_INDEX_TAB =

  • ARCHIVE_PARAMETERS =

  • CONTROL_PARAMETERS =

  • MAIL_APPL_OBJ =

  • MAIL_RECIPIENT =

  • MAIL_SENDER =

  • OUTPUT_OPTIONS =

  • USER_SETTINGS ='X'

  • 导入

  • DOCUMENT_OUTPUT_INFO =

  • JOB_OUTPUT_INFO =

  • JOB_OUTPUT_OPTIONS =

  • 表格

  • GS_MKPF = INT_MKPF

  • 例外情况

  • FORMATTING_ERROR = 1

  • INTERNAL_ERROR = 2

  • SEND_ERROR = 3

  • USER_CANCELED = 4

  • 其他= 5。

  • *

    *如果sy-subrc <> 0。

    • 消息ID SY-MSGID类型SY-MSGTY编号SY-MSGNO

    • 与SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4。

    * endif。

    • 从头开始调用功能模块结束

    *终端格式。

    ++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++++++++++++++

    任何人都可以通过正确的代码帮助我,我必须在驱动程序中插入..以纠正错误...

    谢谢

    此致

    维纳。