QA32中的出口 “STATTEXT”
*&---------------------------------------------------------------------*
*& 包括 ZXBS1U01 *
*&---------------------------------------------------------------------*
DATA: PRUEFLOS LIKE ZQM18-PRUEFLOS.
DATA: P_PRUEFLOS LIKE ZQM18-PRUEFLOS.
DATA: P_ACTIVE LIKE ZQM18-ACTIVE.
DATA: P_PATH LIKE RLGRAP-FILENAME,
P_FPATH(60) TYPE C,
P_FILE(10) TYPE C,
P_NAME(11) TYPE C.
* P_NAME LIKE QALS-PRUEFLOS.
DATA: BEGIN OF T_DATA OCCURS 0,
TEXT(8) TYPE C,
END OF T_DATA.
DATA: BEGIN OF IT_ZQM18 OCCURS 0.
INCLUDE STRUCTURE ZQM18.
DATA: END OF IT_ZQM18.
**--截取批号
PRUEFLOS = OBJECT_NUMBER+3(11).
**--读取服务器的txt文档路径-*
P_NAME = PRUEFLOS+1(11).
*P_FPATH = 'C:临时TEST'.
*P_FPATH = 'LABSRVSAPLINKLIMS'.
P_FPATH = 'labsrvSAPlinkTESTLIMS'.
P_FILE = '.TXT'.
CONCATENATE P_FPATH P_NAME P_FILE INTO P_PATH.
**---测试数据
*P_ACTIVE = 'HG'.
*P_ACTIVE = 'BHG'.
**--该资料是否已经读取过txt文档,如果已经读取过文档,则从表里面读取
**状态,如果没有读取过,则读取服务器上的txt文档
SELECT SINGLE ACTIVE PRUEFLOS
INTO (P_ACTIVE, P_PRUEFLOS)
FROM ZQM18
WHERE PRUEFLOS = PRUEFLOS.
IF P_ACTIVE = ''.
REFRESH T_DATA.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
CODEPAGE = 'TIBM'
FILENAME = P_PATH
FILETYPE = 'DAT'
TABLES
DATA_TAB = T_DATA
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
NO_AUTHORITY = 10
OTHERS = 11.
**--读取LIMS返回的 合格或不合格
IF NOT T_DATA[] IS INITIAL.
LOOP AT T_DATA.
IF T_DATA-TEXT = '合格'.
P_ACTIVE = 'HG'.
ELSEIF T_DATA-TEXT = '不合格'.
P_ACTIVE = 'BHG'.
ELSE.
P_ACTIVE = ''.
ENDIF.
CLEAR T_DATA.
ENDLOOP.
ENDIF.
REFRESH IT_ZQM18.
IF P_ACTIVE ''.
MOVE: PRUEFLOS TO IT_ZQM18-PRUEFLOS,
P_ACTIVE TO IT_ZQM18-ACTIVE.
APPEND IT_ZQM18.
ENDIF.
CLEAR IT_ZQM18.
**--插入数据库
IF NOT IT_ZQM18[] IS INITIAL.
IF P_PRUEFLOS ''.
MODIFY ZQM18 FROM TABLE IT_ZQM18.
ELSE.
INSERT ZQM18 FROM TABLE IT_ZQM18.
ENDIF.
ENDIF.
**--删除该文件
CALL FUNCTION 'GUI_DELETE_FILE'
EXPORTING
FILE_NAME = P_PATH
EXCEPTIONS
FAILED = 1
OTHERS = 2.
**---合并状态
CONCATENATE P_ACTIVE SYSTEM_STATUS_LINE INTO SYSTEM_STATUS_LINE_EXP
SEPARATED BY SPACE.
ELSE.
**--删除该文件
CALL FUNCTION 'GUI_DELETE_FILE'
EXPORTING
FILE_NAME = P_PATH
EXCEPTIONS
FAILED = 1
OTHERS = 2.
**---合并状态
CONCATENATE P_ACTIVE SYSTEM_STATUS_LINE INTO SYSTEM_STATUS_LINE_EXP
SEPARATED BY SPACE.
ENDIF.
QA32中的出口 “STATTEXT”相关推荐
- 企业网络中广域网出口介绍及业务办理
这次我给大家来介绍一下,企业网络中的广域网出口,说起企业(单位)的组网建设,设备调试之类的工作,我想只要是有工作经验的网工,或者系统管理员都不会陌生,核心交换机,划分VLAN ,起三层路由功能,防火墙 ...
- SAP系统中设备管理模块的主要增强出口
一.sap系统增强出口 什么是出口?就是系统中的一段程序执行过程中必须运行的另一段程序.出口的作用为:当正常的系统程序不能满足实际的业务需求,此时又需要系统程序完成特定的功能,这时可以在出口中增加一 ...
- LeetCode 1926. 迷宫中离入口最近的出口(BFS)
文章目录 1. 题目 2. 解题 1. 题目 给你一个 m x n 的迷宫矩阵 maze (下标从 0 开始),矩阵中有空格子(用 '.' 表示)和墙(用 '+' 表示). 同时给你迷宫的入口 ent ...
- C语言中的输入输出函数
----------------------------- //键盘缓存区(按enter送入)==>输入缓存区 ==>scanf ----------------------------- ...
- Tor 出口节点将运行在图书馆的电脑上
Tor 匿名网络项目宣布与 Library Freedom Project合作,在图书馆的电脑上运行 Tor 出口节点.在Tor匿名网络中,出口节点是Tor用户访问目标网站的最后一个中继,也是法律风险 ...
- 如何在Node.js中退出
用于退出的命令是什么? (即终止Node.js进程) #1楼 从命令行, .exit就是你想要的: $ node > .exit $ 它在REPL文档中有记录 . REPL(Read-Eval- ...
- SD--如何在输出控制中增加自定义字段
在sap的输出控制中,我们有时需要增加系统未定义的字段作为条件表的字段,为了实现该需求我们就需要修改增强. 输出控制用到的通讯结构 KOMKBK1 (Output Determination Comm ...
- abap 创建出口历程_SAP abap 需找出口(BADI)的几种方法
现在给出一些比较简单的方法 首先,大家要知道,一个程序的出口不会太多,需找出口,很多的时候都是在尝试 第二,方法:首先会给出事务码,然后通过SE93找出对应的程序Y 第三,se16里面,找到MODSA ...
- 那些以玩笑说出口的话,往往是最真的表达
有人说世上从来没有所谓的玩笑,所有的玩笑都有认真的成分,多少真心话在玩笑中说出口,只是不想让懂的人,怎么都不会懂. 是啊,有多少想要真心表达的话却因为各种各样的原因无奈说不出口. 很想念一个人,清醒的 ...
最新文章
- 『中级篇』docker容器安装wordpress(37)
- 【测试点4】基础实验4-2.8 部落 (25 分)
- Django从理论到实战(part44)--JsonResponse类
- 电话光端机的电话接口类型有哪些?
- python方向键控制角色_python方向键控制上下左右代码
- java表达式语句_Java基础知识笔记第三章:运算符表达式语句
- 产生信号的代码10分类
- 当年叱咤风云的框架Struts2,你可知Struts2内功如何修炼之体系结构
- JavaScript多继承(转载)
- gnuplot读取mysql数据库_Tpcc-MySQL测试并使用gnuplot生成图表
- Linux 中 的 vi 编辑模式 直接对文件进行修改~
- 面向对象编程(二):继承
- 如何优雅地计算多变量
- GitLab oauth2.0 第三方登录 单点登录
- Redis详细使用文档记录
- 00_51入门知识积累__焊接器件
- Ubuntu 16.04升级Openssh7.8p1
- 由“c++链接错误:未定义的引用“引发的思考
- docker命令大全英文版在线手册
- ubuntu下实现和windows共享文档
热门文章
- 三、CXF对Interceptor拦截器的支持
- 大专生如何报考MBA
- 菜鸟学算法一基础知识篇
- 2059-authentication plugin 'caching_sha2_passwordcnnot bt loaded :mysql8.0数据库链接不上:
- 一篇文章带你了解https是如何做到客户端与服务端之间安全通信
- [LUOGU] P2330 [SCOI2005]繁忙的都市
- 【iCore4 双核心板_FPGA】例程八:乘法器实验——乘法器使用
- elasticsearch实现按天翻滚索引
- android 小知识点
- IBM发布迄今最强的量子处理器,面向商业和科研用途