- 浏览: 54603 次
- 性别:
- 来自: 北京
最近访客 更多访客>>
最新评论
-
harry_2013:
不能运行
Upload excel file 到 INTERNAL TABLE 的方法 -
dan001:
function dsn()
{
ddd
}
ABAP Standard Report -
linginfanta:
推荐文泉驿
推荐下载WindowsXP字体增强补丁 -
tapestry:
显示InformalParameter只要加入个Mixin就可 ...
Tapstry5.0.5升级到5.0.6中注意的问题
REPORT YGJH003 NO STANDARD PAGE HEADING LINE-SIZE 120 MESSAGE-ID WA.
***************************************************************
***REPNAME: 批量下载程序和表结构 ***
***AUTHOR : ***
***************************************************************
TABLES:TADIR,TRDIRT,TSTC,DD03L,DD02L,DD04L,DD02T,DD03T,DD04T.
DATA: BEGIN OF YTADIR OCCURS 0.
INCLUDE STRUCTURE TADIR. "资源库对象的目录
INCLUDE STRUCTURE TRDIRT.
DATA: END OF YTADIR.
DATA:PROG(72) TYPE C OCCURS 0 WITH HEADER LINE.
*表结构
DATA:BEGIN OF TAB OCCURS 0.
INCLUDE STRUCTURE DD03L.
DATA:TEXT(40).
DATA:END OF TAB.
DATA:BEGIN OF T1 OCCURS 0,
TABNAME LIKE DD02L-TABNAME,
DDTEXT LIKE DD02T-DDTEXT,
END OF T1.
DATA:BEGIN OF ITAB OCCURS 0,
FIELD(15), "字段
KEY(6), "关键字
ELMENT(15), "字段类型
TYPE(10), "数据类型
LENG(8) , "长度
DECIMALS(8) , "小数
CHK(10), "表检查
CAN(10), "参考表
CFI(10), "参考字段
TEXT(40), "字段描述
END OF ITAB.
DATA: YYNAME(128) TYPE C.
DATA: TT TYPE STRING OCCURS 0 WITH HEADER LINE.
DATA: RN(72).
DATA: COUNT TYPE I.
DATA: CCOUNT TYPE C.
DATA:FIELDS(40),
LIN TYPE I,
VAL(30),
REP(40).
SELECTION-SCREEN BEGIN OF BLOCK BLK1 WITH FRAME .
PARAMETERS:DOW AS CHECKBOX. "是否下载
PARAMETERS:P_DIR(50) DEFAULT 'D:SAP ABAP'. "下载路径
PARAMETERS:STYPE(6) DEFAULT 'RTF'.
PARAMETERS:R1 RADIOBUTTON GROUP R DEFAULT 'X', "不下载表
R2 RADIOBUTTON GROUP R. "下载表
SELECTION-SCREEN END OF BLOCK BLK1.
SELECTION-SCREEN BEGIN OF BLOCK BLK2 WITH FRAME.
SELECT-OPTIONS:AUTHOR FOR TADIR-AUTHOR DEFAULT 'JUNQIU'. "开发人
SELECT-OPTIONS:DEVCLASS FOR TADIR-DEVCLASS. "开发类
SELECT-OPTIONS:OBJ FOR TADIR-OBJ_NAME. "下载程序名称
SELECT-OPTIONS:TABNAME FOR DD02L-TABNAME. "下载表名称
SELECTION-SCREEN END OF BLOCK BLK2.
INITIALIZATION .
START-OF-SELECTION .
IF R1 = 'X'.
PERFORM GET_DATA.
ENDIF.
IF R2 = 'X'.
IF TABNAME IS INITIAL. "检查下载表名是否为空
MESSAGE I009 WITH '请输入要下载的表名!'.
ELSE.
PERFORM GET_TABLE_DATA.
ENDIF.
ENDIF.
AT LINE-SELECTION.
CLEAR: FIELDS, LIN.
GET CURSOR FIELD FIELDS LINE LIN VALUE VAL.
LIN = LIN - 1.
IF LIN >= 1.
READ TABLE YTADIR INDEX LIN.
IF SY-SUBRC = 0.
CLEAR REP.
CLEAR PROG.
REP = YTADIR-OBJ_NAME.
READ REPORT REP INTO PROG.
EDITOR-CALL FOR PROG.
* SET PARAMETER ID 'RID' FIELD REP.
* CALL TRANSACTION 'SE38' AND SKIP FIRST SCREEN.
ENDIF.
ENDIF.
END-OF-SELECTION.
*---------------------------------------------------------------------*
* FORM GET_DATA *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM GET_DATA.
SELECT * INTO CORRESPONDING FIELDS OF TABLE YTADIR
FROM TADIR
INNER JOIN TRDIRT
ON TADIR~OBJ_NAME = TRDIRT~NAME
WHERE OBJECT = 'PROG'
AND OBJ_NAME IN OBJ
AND DEVCLASS IN DEVCLASS
AND AUTHOR IN AUTHOR.
SORT YTADIR BY OBJ_NAME.
FORMAT COLOR 1.
WRITE:/3(10)'开发类', (15) '开发人', (30) '程序名称', (58) '程序标题'.
ULINE .
FORMAT COLOR OFF.
LOOP AT YTADIR.
IF DOW = 'X'.
REFRESH TT.
RN = YTADIR-OBJ_NAME.
READ REPORT RN INTO TT.
* CCOUNT = CCOUNT + 1.
* CONCATENATE YTADIR-AUTHOR '_' CCOUNT '.' STYPE
* INTO YYNAME.
CONCATENATE P_DIR YTADIR-AUTHOR '_' YTADIR-OBJ_NAME
'_' YTADIR-TEXT '.' STYPE
INTO YYNAME.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
FILENAME = YYNAME
FILETYPE = 'ASC'
TABLES
DATA_TAB = TT
EXCEPTIONS
FILE_OPEN_ERROR = 1
FILE_WRITE_ERROR = 2
INVALID_FILESIZE = 3
INVALID_TABLE_WIDTH = 4
INVALID_TYPE = 5
NO_BATCH = 6
UNKNOWN_ERROR = 7.
IF SY-SUBRC = 0.
WRITE:/3(10) YTADIR-DEVCLASS, (15) YTADIR-AUTHOR, (30) YTADIR-OBJ_NAME, (50) YTADIR-TEXT.
FORMAT COLOR 5.
WRITE: '已下载'.
FORMAT COLOR OFF.
ELSE.
WRITE:/3(10) YTADIR-DEVCLASS, (15) YTADIR-AUTHOR, (30) YTADIR-OBJ_NAME, (50) YTADIR-TEXT.
FORMAT COLOR 4.
WRITE: '无法下载'.
FORMAT COLOR OFF.
ENDIF.
ELSE.
WRITE:/3(10) YTADIR-DEVCLASS, (15) YTADIR-AUTHOR, (30) YTADIR-OBJ_NAME, (50) YTADIR-TEXT.
ENDIF.
ENDLOOP.
ENDFORM. "GET_DATA
*---------------------------------------------------------------------*
* FORM GET_TABLE_DATA *
*---------------------------------------------------------------------*
* ........ *
*---------------------------------------------------------------------*
FORM GET_TABLE_DATA.
SELECT DISTINCT * INTO CORRESPONDING FIELDS OF TABLE T1
FROM DD02T WHERE TABNAME IN TABNAME
AND DDLANGUAGE EQ '1'.
SELECT * INTO CORRESPONDING FIELDS OF TABLE TAB FROM DD03L AS A
WHERE A~TABNAME IN TABNAME.
SORT TAB BY TABNAME POSITION.
WRITE:/'字段名','关键字','数据元素','数据类型','长度','小数',
'表检查','参考表','参考字段','字段描述'.
ULINE.
LOOP AT T1.
REFRESH ITAB.
CLEAR YYNAME.
IF DOW = 'X'.
ITAB-FIELD = '字段名'.
ITAB-KEY = '关键字'.
ITAB-ELMENT = '数据元素'.
ITAB-TYPE = '数据类型'.
ITAB-LENG = '长度'.
ITAB-DECIMALS = '小数'.
ITAB-TEXT = '字段描述'.
ITAB-CHK = '表检查'.
ITAB-CAN = '参考表'.
ITAB-CFI = '参考字段'.
APPEND ITAB.
CLEAR ITAB.
ENDIF.
CONCATENATE T1-TABNAME '_' T1-DDTEXT '的表结构如下:'
INTO YYNAME.
FORMAT COLOR 3.
WRITE:/ YYNAME.
FORMAT COLOR OFF.
LOOP AT TAB WHERE TABNAME = T1-TABNAME.
ITAB-FIELD = TAB-FIELDNAME.
ITAB-KEY = TAB-KEYFLAG.
ITAB-ELMENT = TAB-ROLLNAME.
ITAB-TYPE = TAB-DATATYPE.
ITAB-LENG = TAB-LENG.
ITAB-CHK = TAB-CHECKTABLE.
ITAB-CAN = TAB-REFTABLE.
ITAB-CFI = TAB-REFFIELD.
ITAB-DECIMALS = TAB-DECIMALS.
IF TAB-ROLLNAME NE SPACE.
SELECT SINGLE * FROM DD04T WHERE ROLLNAME = TAB-ROLLNAME
AND DDLANGUAGE = '1'.
IF SY-SUBRC = 0.
ITAB-TEXT = DD04T-DDTEXT.
ELSE.
CLEAR ITAB-TEXT.
ENDIF.
ELSE.
SELECT SINGLE * FROM DD03T WHERE TABNAME = TAB-TABNAME
AND DDLANGUAGE = '1'
AND FIELDNAME = TAB-FIELDNAME.
IF SY-SUBRC = 0.
ITAB-TEXT = DD03T-DDTEXT.
ELSE.
CLEAR ITAB-TEXT.
ENDIF.
ENDIF.
APPEND ITAB.
WRITE:/ ITAB-FIELD,ITAB-KEY,ITAB-ELMENT,ITAB-TYPE,ITAB-LENG,
ITAB-DECIMALS,ITAB-CHK,ITAB-CAN,ITAB-CFI,ITAB-TEXT.
CLEAR ITAB.
ENDLOOP.
IF DOW = 'X'.
CONCATENATE P_DIR T1-TABNAME '_' T1-DDTEXT '.' STYPE
INTO YYNAME.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
FILENAME = YYNAME
FILETYPE = 'ASC'
TABLES
DATA_TAB = ITAB.
ELSE.
ULINE.
ENDIF.
ENDLOOP.
ENDFORM. "GET_TABLE_DATA
发表评论
-
SAP 中如何寻找增强
2008-08-16 19:55 1686方法一、利用TCODE寻找增强(第二代的增强) 执行一个程序( ... -
SAP-R/3出口(增强)
2008-08-15 20:53 2007首先来讲解一下什么是 ... -
两内表关联删除操作
2008-06-17 13:23 1302有两个内部表:IT_TAB1 ... -
BAPI_GOODSMVT_CREATE --mb01,mb1A
2008-06-17 13:22 1887* BAPI TO Upload Inventory ... -
System Fields for Current Date and Time
2008-06-11 10:47 926The following system fields are ... -
ABAP 表格控制(Table Control)和步循环
2008-06-05 08:04 4703表格控制(Table Control)和步循环 ... -
如何动态改变Table Control的列抬头
2008-06-05 08:00 15051、In the screen painter use Inp ... -
SAP常用的function(转)
2008-06-05 07:59 18881. 获取每个月的最后一天 CALL FUNCTI ... -
程序调用——submit的用法
2008-05-21 18:45 2352ABAP程序的启动方式有两种。一种是直接运行,即在事务代码SE ... -
如何限制自己开发的耗时报表在sap系统中运行的个数,以保证正常业务的进行
2008-05-05 13:02 1087在SAP 系统中经常有许多用户自行开发的报表,有些报表运行很 ... -
ABAP/4编程中用到的系统函数
2008-04-23 07:56 1227sy-index:做无条件循环是的次数值. sy-subrc ... -
sap 函数小结
2008-04-23 07:55 1510函数名 描述 SD_VBAP_READ_WITH_VBELN ... -
获取SAP系统用户出口列表
2008-04-23 07:47 920REPORT Y_FIND_USEREXIT ... -
根据事务代码找User exit
2008-04-23 07:45 926TABLES : tstc, "SAP Tr ... -
Upload excel file 到 INTERNAL TABLE 的方法
2008-04-23 07:43 1620FORM upload_data . DATA:w_tab ... -
自定义BAPI的基本资料
2008-04-23 07:28 1601BAPI的简单实现步骤 一,创建Function Modu ... -
SAP BDC技术
2008-04-23 07:18 1247在SAP系统里,重复输入数据时,(数据不同,但是操作是相同的, ... -
SAP系统常用变量
2008-04-11 07:28 2377系统内部有一个专门存放系统变量的结构SYST,其中最常用的系统 ... -
Users Dialogs: Lists
2008-03-26 13:50 775data: wa_spfli type spfli, ... -
SAP SUBROUTINES SAP子程序
2008-03-25 14:24 981SAP子程序 是PROGRAM 内部模块单元。用 FORM 开 ...
相关推荐
目录结构: 目录/文件 |- 悦读-数据库().sql - 54.00 kB |- 悦读-后端代码及图片().zip - 45.00 MB |- 悦读-uniApp源码().zip - 1.90 MB |- 随堂教案().txt - 55 B |- zfdev_tree().txt - 2.00 kB |- graceUI...
cc实例237 利用查询语句复制表结构 9.2 查询控件 cc实例238 查询指定控件内字符串 cc实例239 查询日期控件内数据 cc实例240 控件作为字段.c操作符和内容进行查询 cc实例241 巧妙获取年龄 cc实例242 ...
项目中使用了hibernate,表结构可以自动生成,但前提得先有mysql数据库环境且创建好数据库,数据库连接信息可以在hibernate.hbm.xml中修改。 对应上面模板实例中的${pid}值,在对应数据库中选择题目写入。 3.运行程序...
基于JAVA的UDP服务器模型源代码,内含UDP服务器端模型和UDP客户端模型两个小程序,向JAVA初学者演示UDP C/S结构的原理。 简单聊天软件CS模式 2个目标文件 一个简单的CS模式的聊天软件,用socket实现,比较简单。 ...
易语言~模块~批量~下载 2008-11-08 14:41 文件夹 文件夹 易语言模块大全 2005-10-21 15:30 14489 3100 易语言模块大全\24位转单色位图模块.ec 2007-01-18 07:00 7110 2339 易语言模块大全\69msn.ec 2005-05-26 02:18...
2012-06-11 21:09 1,553,768 数据结构算法Visual.C.6.0程序集_源码.rar 2012-06-11 21:42 87,040 时域卷积定理的证明.ppt 2012-06-11 21:10 4,371 更改网关IP.rar 2012-06-11 20:57 1,419 栈的实现.txt 2012-06-11 ...
基于JAVA的UDP服务器模型源代码,内含UDP服务器端模型和UDP客户端模型两个小程序,向JAVA初学者演示UDP C/S结构的原理。 简单聊天软件CS模式 2个目标文件 一个简单的CS模式的聊天软件,用socket实现,比较简单。 ...
需要生成的数据库必须有完整的备注和库表注释,不然程序无法是识别 项目支持word、excel文件格式下载 项目支持批量生成代码,加快编程效率 项目支持自定义修改 类创建的作者名、包路径、去除表路径。 项目在使用...
3、在您修改了程序或数据库结构以后我们不能保证升级能够完全成功。 升级方法 ------------------------------------------------ 1. 将 upload 下所有的文件上传至网站根目录覆盖。 2. 访问upgrade目录...
批量整理多个Excel文件中的工作表结构,如合并单元格、调整行高和列宽等。批量生成多个Excel文件中的汇总报告,如计算总和、平均值等。优势:节省时间:相比于手动逐个修改Excel文件,使用这个工具可以大大提高工作...
NetSNS是基于Asp.Net开发的社交...请在SQL数据库查询分析器中执行database/sql/1.sql(表结构),database/sql/2.sql(初始值),SQL脚本也可以在这里单独下载(最后更新 2008年12月08日) 帐号:admin 密码:admin888
实例092 读取数据库中的数据表结构 324 实例093 对数据库进行分离、附加、备份及还原操作 331 实例094 综合查询职工详细信息 338 实例095 使用二进制存取用户头像 342 实例096 使用交叉表实现商品销售...
本站程序来源于琪琪贴吧3.5sp2(感谢),在原有功能基础上,在人性化管理和设置的方面,增加了不少功能,修改了不少细节。 1 只有管理人员才能看到管理项目,前台不能删除帖子,只能屏蔽,保证信息不会损失。 2 ...
自定义工资表结构 无限量工资数据 服务器端一键更新 客户端无需更新 满足小至几人,多达上万人的机构使用 工资发布短信提醒 工资查询人、工资管理员、系统管理三权分离 巧妙的用户系统,工资条通过手机号与...
特色功能:产品、新闻内容图片可以批量上传(免去一张张上传的烦恼),全站伪静态(优化SEO,对搜索引擎更友好),全站关键词可自动设置(每个页面关键词都有针对性),文章内容可以分页,图片渐显载入(优化显示速度...
系统安装程序合并入panel模块3.模块设置和模块许可合并为模块管理4.发布文章等页面加入了快速上传插入图片的功能5.优化调整模板标签辅助工具6.模板管理默认显示全部模板,解决新用户找不到模板7.栏目模板标签加入...
易语言淘宝助手1.0源码系统结构:取中间内容,读出宝贝信息, ======窗口程序集1 || ||------_按钮1_被单击 || ||------_超级列表框1_右键单击表项 || ||------_按钮2_被单击 || || ======程序集1 || ||--