if not %dbcursor is initial.
close cursor %dbcursor.
endif.
"打开游标
open cursor with hold %dbcursor for
select VDARL~BUKRS VDARL~GSART VDARL~RANL VDARL~RERF VDARL~STITEL VDARL~ZZBH_BZJZH VDARL~BZUSAGE VDARL~SANTWHR VDARL~REFER
VDARL~DABTR VDARL~ZUOND BUT000~PARTNER BUT000~NAME_ORG1 VZZKOKO~DBLFZ VZZKOKO~DELFZ VZZKOKO~RKEY1
from ( VDARL
inner join BUT000
on BUT000~PARTNER = VDARL~RDARNEHM
inner join VZZKOKO
on VZZKOKO~RKEY1 = VDARL~RANL )
where VDARL~BUKRS in SP$00001
and VDARL~GSART in SP$00002
and VDARL~RANL in SP$00003
and VDARL~RERF in SP$00004
and BUT000~PARTNER in SP$00005
and VZZKOKO~DBLFZ in SP$00008
and VZZKOKO~DELFZ in SP$00009 .
if %dbcursor is initial.
raise cursor_not_open.
endif.
"遍历游标
while %l_no_further_fetch = space.
fetch next cursor %dbcursor
into (VDARL-BUKRS , VDARL-GSART , VDARL-RANL , VDARL-RERF , VDARL-STITEL , VDARL-ZZBH_BZJZH , VDARL-BZUSAGE , VDARL-SANTWHR
, VDARL-REFER , VDARL-DABTR , VDARL-ZUOND , BUT000-PARTNER , BUT000-NAME_ORG1 , VZZKOKO-DBLFZ , VZZKOKO-DELFZ
, VZZKOKO-RKEY1 ).
if ( ( %rtmode-acc_check = 'X' and
sy-dbcnt > %rtmode-acc_number )
or sy-subrc <> 0 ).
%l_no_further_fetch = 'X'.
else.
check SP$00001.
check SP$00002.
check SP$00003.
check SP$00004.
check SP$00005.
check SP$00008.
check SP$00009.
call function 'RSAQRT_TEXTFIELD_REFRESH'.
*** additional coding:
ZDONGJIEJINE = VDARL-BZUSAGE * VDARL-zuond / 100.
%dtab-BUKRS = VDARL-BUKRS .
%dtab-GSART = VDARL-GSART .
%dtab-PARTNER = BUT000-PARTNER .
%dtab-NAME_ORG1 = BUT000-NAME_ORG1 .
%dtab-RANL = VDARL-RANL .
%dtab-RERF = VDARL-RERF .
%dtab-STITEL = VDARL-STITEL .
%dtab-ZZBH_BZJZH = VDARL-ZZBH_BZJZH .
%dtab-BZUSAGE = VDARL-BZUSAGE .
%dtab-SANTWHR = VDARL-SANTWHR .
%dtab-REFER = VDARL-REFER .
%dtab-DABTR = VDARL-DABTR .
%dtab-SANTWHR001 = VDARL-SANTWHR .
%dtab-DBLFZ = VZZKOKO-DBLFZ .
%dtab-DELFZ = VZZKOKO-DELFZ .
%dtab-ZDONGJIEJINE = ZDONGJIEJINE .
%dtab-SANTWHR002 = VDARL-SANTWHR .
%dtab-ZUOND = VDARL-ZUOND .
append %dtab.
%l_hits_cnt = %l_hits_cnt + 1.
if %rtmode-pack_on = 'X'
and %l_hits_cnt >= %rtmode-pack_size.
%l_no_further_fetch = 'X'.
endif.
endif.
endwhile.
"关闭游标
if %l_hits_cnt = 0.
if not %dbcursor is initial.
close cursor %dbcursor.
endif.
raise no_data.
endif.
"关闭游标
if %rtmode-pack_on <> 'X'.
close cursor %dbcursor.
endif.
分享到:
相关推荐
资源名称:sap abap开发从入门到精通 内容简介: 《SAP ABAP开发从入门到精通》以应用实例的形式,讲解了SAPABAP开发的相关知识点,详细介绍了SAPABAP开发者必须掌握的包与变更传输系统(CTS)、数据类型、数据库...
SAP ABAP 数据库操作,快速学会ABAP!
从实例学sap abap编程,从实例学sap abap编程,从实例学sap abap编程
《SAP ABAP开发技术详解(实例篇)(第二版) [1] 》除了对对SAP ...全书操作讲解精练,采用大量的实例,重要技术点附有附录,除了可作为投身SAP职业人士的自修秘籍外,还可作为从业者用于查阅SAP ABAP开发技术的字典。
SAP ABAP开发学习——第9课:ALV2(视频教程) 1.SAP ABAP开发入门学习 2.含视频教程学习、PPT、作业 3.视频非常清晰
SAP ABAP OLE 操作EXCEL小结SAP ABAP OLE 操作EXCEL小结SAP ABAP OLE 操作EXCEL小结SAP ABAP OLE 操作EXCEL小结
SAP ABAP SE11创建表操作步骤
《SAP ABAP开发从入门到精通》以应用实例的形式,讲解了SAP ABAP开发的相关知识点,详细介绍了SAP ABAP开发者必须掌握的包与变更传输系统(CTS)、数据类型、数据库、模块化程序、内表、调试、ABAP数据字典、锁对象...
sap abap catt 操作手册 介绍sap中catt操作的详细步骤,不错的资源
SAP ABAP程序性能调优介绍.pptx
从零开始,教授如何配置 Eclipse 开发 SAP ABAP 程序环境。2020 年最新版本操作笔记。对于初学者十分友好。 ABAP Development Tool的Java端实现就是Eclipse的一个扩展,使用JCO(Java Connector)连接ABAP后台的adt...
ABAP开发从入门到精通_高清自学版 SAP+ABAP开发从入门到精通 SAP开发自学必读 SAP SAP开发自学入门到精通完整版HANA开发
SAP ABAP 代码备份下载到本地程序代码
SAP ABAP开发详解与高端应用,想学习ABAP开发的可以看一下。
[SAP ABAP开发技术总结]ALV详解(Fuction ALV 和OO ALV) 图文并茂,详细介绍了Fuction ALV 和OO ALV的相关开发 [SAP ABAP开发技术总结]ALV详解:Function ALV(一) [SAP ABAP开发技术总结]ALV详解:Function ALV...
sap abap经典中文帮助 sap abap经典中文帮助
网上收集整理的SAP abap PA 试题2,还有部分资料
SAP ABAP 常用T-CODE SAP ABAP
全面介绍SAP ABAP语言编程与开发(SAP官方文档)
SAP ABAP开发学习——第10课:OOALV(视频教程) 1.SAP ABAP开发入门学习 2.含视频教程学习、PPT、作业 3.视频非常清晰