20170411 F110初始界面-建议清单
功能块代码 F110
开发类 FIBP
事务说明 自动付款参数
程序 SAPF110V
屏幕号码 200
权限对象 F_REGU_BUK
1.F110 标准界面记录
PROCESS BEFORE OUTPUT.
MODULE INIT_0200.
*
CALL SUBSCREEN SUBSCREEN_BODY INCLUDING 'SAPF110V' TABSTRIP_DYNNR.
MODULE STATUS_0200.
PROCESS AFTER INPUT.
MODULE EXIT AT EXIT-COMMAND.
CALL SUBSCREEN SUBSCREEN_BODY.
CHAIN.
FIELD F110V-LAUFD.
FIELD F110V-LAUFI.
MODULE INPUT_0200.
ENDCHAIN.
PROCESS ON VALUE-REQUEST.
FIELD F110V-LAUFD MODULE F4_LAUFD_0200.
FIELD F110V-LAUFI MODULE F4_LAUFI_0200.
*&1.F4_LAUFD_0200
MODULE F4_LAUFD_0200.
REFRESH TLAUFK.
TLAUFK-LAUFK = SPACE.
TLAUFK-SIGN = 'I'.
APPEND TLAUFK.
CALL FUNCTION 'F4_ZAHLLAUF'
EXPORTING
F1TYP = 'D'
F2NME = 'F110V-LAUFI'
IMPORTING
LAUFD = F110V-LAUFD
LAUFI = F110V-LAUFI
NOTHING_SELECTED = xf4_c1
TABLES
LAUFK = TLAUFK.
IF xf4_c1 IS INITIAL.
LEAVE TO SCREEN 200.
ENDIF.
ENDMODULE. "f4_laufd_0200
*&2.FIELD F110V-LAUFI
MODULE F4_LAUFI_0200
MODULE F4_LAUFI_0200.
REFRESH TLAUFK.
TLAUFK-LAUFK = SPACE.
TLAUFK-SIGN = 'I'.
APPEND TLAUFK.
CALL FUNCTION 'F4_ZAHLLAUF'
EXPORTING
F1TYP = 'I'
F2NME = 'F110V-LAUFD'
IMPORTING
LAUFD = F110V-LAUFD
LAUFI = F110V-LAUFI
NOTHING_SELECTED = xf4_c1
TABLES
LAUFK = TLAUFK.
IF xf4_c1 IS INITIAL.
LEAVE TO SCREEN 200.
ENDIF.
ENDMODULE. "f4_laufi_0200
2.付款建议清单修改
F0082
报表 ZFIR_001 在这里不能用; 请改正
消息号
F0082
诊断
此报表不评估任何付款数据或付款建议数据。
步骤
请输入一个允许的报表名称。
SAPF110V
/ F110VFL0
FORM
/ LISTPROGRAMM_PRUEFEN
CALL FUNCTION 'SELOPTS_AND_PARAMS'
EXPORTING
program = f110v-lprog
TABLES
selpars = lt_selpars
EXCEPTIONS
program_non_existent =
subroutine_pool =
load_problems =
OTHERS = .
1.当:F110V-LPROG = ZFIR_001
检查选择条件:
READ TABLE lt_selpars WITH KEY name = 'ZW_LAUFD'.
IF sy-subrc eq 0.
READ TABLE lt_selpars WITH KEY name = 'ZW_LAUFI'.
ENDIF.
2.当:F110V-LPROG = RFZALI20
3.得到F110 调用建议清单标准信息:
SAPF110V / F110VFO0
FORM: OKCOD_STA
WHEN 'VOLI'
LISTTYP = OK-CODE.
PERFORM VARIANTEN_WINDOW.
SUBMIT (F110V-LPROG) AND RETURN USING SELECTION-SET F110V-VARL1
WITH ZW_LAUFD INCL F110V-LAUFD
WITH ZW_LAUFI INCL F110V-LAUFI
WITH ZW_XVORL INCL 'X'.
F110V-LAUFD = 2017.03.20
F110V-LAUFI = WX000
包括
F110VFL0
FORM listprogramm_pruefen using f110v-lprog like f110v-lprog
changing ld_error_message type c.
DATA lt_selpars LIKE TABLE OF rsel_paras WITH HEADER LINE.
SELECT SINGLE * FROM trdir WHERE name = f110v-lprog.
IF sy-subrc ne 0.
IF ld_error_message = 'X'.
MESSAGE e081 WITH f110v-lprog.
ENDIF.
ld_error_message = 'X'.
EXIT.
ENDIF.
IF trdir-ldbname ne 'PYF'.
CALL FUNCTION 'SELOPTS_AND_PARAMS'
EXPORTING
program = f110v-lprog
TABLES
selpars = lt_selpars
EXCEPTIONS
program_non_existent = 1
subroutine_pool = 2
load_problems = 3
OTHERS = 4.
IF sy-subrc ne 0.
IF ld_error_message = 'X'.
MESSAGE e081 WITH f110v-lprog.
ENDIF.
ld_error_message = 'X'.
EXIT.
ENDIF.
READ TABLE lt_selpars WITH KEY name = 'ZW_LAUFD'.
IF sy-subrc eq 0.
READ TABLE lt_selpars WITH KEY name = 'ZW_LAUFI'.
ENDIF.
IF sy-subrc ne 0.
IF ld_error_message = 'X'.
MESSAGE e082 WITH f110v-lprog.
ENDIF.
ld_error_message = 'X'.
EXIT.
ENDIF.
ENDIF.
ENDFORM.
20170411 F110初始界面-建议清单的更多相关文章
- Eclipse恢复初始界面&打开视图
恢复初始界面: 单击菜单栏的windows主菜单,在子菜单里选择 Reset Perspective 会弹出各对话框 ,点 ok就可以了 打开视图:Windows->Show View 其中Ot ...
- Application类-欢迎页(初始界面)
在程序界面显示前,如果我们处理了很多耗时操作,这个时候给用户提示一个欢迎页便是十分友好的.WPF为我们提供了这个特性: 第一种方法:通过设置图片资源的生成操作 粘贴一个图片到我们的项目中 在解决方案管 ...
- OO ALV事件里使用E消息,下一步会退出到系统初始界面
在OO ALV data_change事件时(选中行),锁定KEY值, 继续,取消选择,退出到系统初始界面 改成 pv_status = 'E'. pv_msg = '采购订单' && ...
- wpf利用线程制作初始界面和关闭窗体特效
1.首先定义初始窗体,和主窗体. 初始窗体(StartWindow) 主窗体(MainWindow): 2.在主窗体界面中,加载初始窗体.注意在线程中操作UI元素需要使用BeginInvoke或者In ...
- 20170228 ALV method中用E消息,会退出到初始界面;STOP 会dump;
再回车就处理界面了, 所以,Handel_data_change 做数据检查时,如果需要报错要用到, CALL METHOD er_data_changed->add_protocol_entr ...
- WPF 启动初始界面
不经意间发现了wpf的这个小玩意,感觉蛮有意思的.我在项目中添加了一张图片 如图: wpf-1.JPG(10.73 K) 2010-6-6 17:04:47 然后再这张图片的属性中设置它的生成操作为S ...
- React中如何实现模态框每次打开都是初始界面
问题描述如下 解决方案:每次点击打开模态框的时候为,当前模态框设置一个独立的key值,代码如下: /* * 上传文件的模块框控制 * */ showFileModal = () => { thi ...
- F110 参数保存和重新运行录屏
**初始界面回车 PERFORM frm_dynpro USING ' 'X'. PERFORM frm_dynpro USING '' 'BDC_CURSOR' 'F110V-LAUFD'. PER ...
- Github上关于iOS的各种开源项目集合(强烈建议大家收藏,查看,总有一款你需要)
下拉刷新 EGOTableViewPullRefresh - 最早的下拉刷新控件. SVPullToRefresh - 下拉刷新控件. MJRefresh - 仅需一行代码就可以为UITableVie ...
随机推荐
- 批量分发SSH秘钥
#!/usr/bin/expect # filename: distribute_key.expif [ $argc != 2 ]{ send_user "usage: expect exp ...
- C++语言基础(17)-运算符重载
运算符重载的格式为: 返回值类型 operator 运算符名称 (形参表列){ //TODO: } 一.在类里面实例运行符重载 #include <iostream> using name ...
- symbol lookup error
今天编译代码时出现这样的错误提示: “./test: symbol lookup error: ./test: undefined symbol: ……” 问题原因是:test使用的动态库和makef ...
- hive 添加UDF(user define function) hive的insert语句
add JAR /home/hadoop/study/study2/utf.jar; package my.bigdata.udf; import org.apache.hadoop.hive.ql. ...
- libubox组件(3)——uloop
一:uloop概述 uloop有三个功能: 文件描述符触发事件的监控, timeout定时器处理, 当前进程的子进程的维护 二: uloop的整体框架 1: /** 2: * 初始化事件循环 3: ...
- ubuntu 12.10 apt-get 源
更改apt-get源配置文件/etc/apt/sources.list 用一下内容替换掉 deb http://mirrors.163.com/ubuntu/ precise main restric ...
- Swoole系列(三):建立TCP服务器并发送数据测试
<?php // 建立tcp服务器下 $host = '0.0.0.0'; $port = 9501; $serv = new swoole_server($host,$port); $serv ...
- 第二百零二节,jQuery EasyUI,Layout(布局)组件
jQuery EasyUI,Layout(布局)组件 学习要点: 1.加载方式 2.布局属性 3.区域面板属性 4.方法列表 本节课重点了解 EasyUI 中 Layout(布局)组件的使用方法,这个 ...
- postgresql学习文档
字符串函数: http://www.php100.com/manual/PostgreSQL8/functions-string.html http://gavin-chen.iteye.com/bl ...
- 用MathType可以编辑n元乘积吗
在学习数学过程中很多的用户朋友会发现需要接触到各种数学符号.但是在编辑文档的时候很多的文档自带的符号往往不够全面,这个时候就需要专业的数学公式编辑器来解决这个问题.MathType就是在这种情况下诞生 ...