ZCMM01-3

最新推荐文章于 2019-12-17 15:50:14 发布
最新推荐文章于 2019-12-17 15:50:14 发布
阅读量232 收藏
点赞数

*&--------------------------------------------------------------
*&      Module  get_header_data_text  OUTPUT
*&--------------------------------------------------------------
*       text
*---------------------------------------------------------------
MODULE GET_HEADER_DATA_TEXT OUTPUT.

  PERFORM. GET_DOMMAIN_VALUE_TEXT(ZRMM_CSD_0015) USING 'ZCSDTYPE'
                                                 ZCM03-DOCTYPE
                                                 DOCTYPETEXT.
  SELECT ADRNR INTO LFA1-ADRNR FROM LFA1
                               WHERE LIFNR EQ ZCM03-EMPLOYID.
    EXIT.
  ENDSELECT.
  SELECT NAME1 INTO ADRC-NAME1 FROM ADRC
                               WHERE ADDRNUMBER EQ LFA1-ADRNR.
    EXIT.
  ENDSELECT.
  IF SY-SUBRC NE 0.
    CLEAR ADRC-NAME1.
  ENDIF.
  SELECT KTEXT INTO CSKT-KTEXT FROM CSKT WHERE SPRAS EQ SY-LANGU
                                           AND KOSTL EQ
ZCM03-KOSTL.
    EXIT.
  ENDSELECT.
  IF SY-SUBRC NE 0.
    CLEAR CSKT-KTEXT.
  ENDIF.
**lbg200804100906.add.sn
  CLEAR G_OBJECT.
  CONCATENATE 'DOCTYPE' ZCM03-DOCTYPE INTO G_OBJECT.
  CONDENSE G_OBJECT.
  CLEAR REASON_TXT.
  PERFORM. GET_DOMMAIN_VALUE_TEXT(ZRMM_CSD_0015) USING 'ZREASON'
                                                 ZCM03-RESON
                                                 REASON_TXT.
  CLEAR REALEASE_TXT.
  IF ZCM03-RELSTATUS NE SPACE.
    PERFORM. GET_DOMMAIN_VALUE_TEXT(ZRMM_CSD_0015) USING
'ZRELEASE'

 ZCM03-RELSTATUS
                                                  REALEASE_TXT.
  ELSE.
    REALEASE_TXT = ''.
  ENDIF.
**lbg200804100907.add.en
ENDMODULE.                 " get_header_data_text  OUTPUT

*&--------------------------------------------------------------
*&      Module  modify_header_screen_attrib  OUTPUT
*&--------------------------------------------------------------
MODULE MODIFY_HEADER_SCREEN_ATTRIB OUTPUT.
  DATA: L_CNT TYPE I.
  DATA: ORDERNO(15) TYPE C.
  DATA: COMMENT(15) TYPE C.
  LOOP AT SCREEN.
    IF TRANSACTION EQ 'D' .
**LBG20080414.ADD.SN
*Modified by royzhang 20100311 Adj.Doc. send release. begin
*      if ( zcm03-doctype = '5' or zcm03-doctype = '6'
*    or zcm03-doctype = 'C' or zcm03-doctype = 'D'
*    or zcm03-doctype = 'I' or zcm03-doctype = 'J' ).
      IF ( ZCM03-DOCTYPE = '5' OR ZCM03-DOCTYPE = '6'
                               OR ZCM03-DOCTYPE = '8'
    OR ZCM03-DOCTYPE = 'C' OR ZCM03-DOCTYPE = 'D'
    OR ZCM03-DOCTYPE = 'I' OR ZCM03-DOCTYPE = 'J'
    OR ZCM03-DOCTYPE = 'E' ).
*Modified by royzhang 20100311 Adj.Doc. send release. end
        "rena modify 12292009
        CLEAR P_REASON.
        CLEAR P_REALEASE.
        P_REASON = 'Reason'.
        P_REALEASE = 'Realease'.
        IF SCREEN-GROUP1 = 'REA'.
          SCREEN-INVISIBLE = 0.
        ENDIF.
*       IF SCREEN-GROUP2 = 'SON'.
*          SCREEN-INPUT = 1.
*       ENDIF.
      ELSE.
        IF SCREEN-GROUP1 = 'TTT'.
          SCREEN-INVISIBLE = 1.
        ENDIF.
      ENDIF.
***LBG20080414.ADD.EN

***Aiking 20080505 add.
      IF ZCM03-DOCTYPE ='14' OR ZCM03-DOCTYPE ='15'.
        IF SCREEN-GROUP1 ='CUS'.
          SCREEN-INVISIBLE = 0.
        ENDIF.
      ENDIF.
***Aiking 20080505 add end.
***Aiking 20080704 add.
      IF ZCM03-DOCTYPE ='16' OR ZCM03-DOCTYPE ='17'.
        IF SCREEN-GROUP1 ='VDR'.
          SCREEN-INVISIBLE = 0.
        ENDIF.
      ENDIF.
***Aiking 20080704 add end.
      SCREEN-INPUT = 0.

*ECHO ADD.0623.SN
      IF ZCM03-DOCTYPE = 'K' OR ZCM03-DOCTYPE = 'L'.    "ECHO100619
        IF SCREEN-NAME = 'ORDERNO'.
          RDERNO = 'RMA#'.
        ENDIF.
        IF SCREEN-NAME = 'COMMENT'.
          COMMENT = 'Serial#'.
        ENDIF.
      ELSE.
        IF SCREEN-NAME = 'ORDERNO'.
          RDERNO = 'Order'.
        ENDIF.
        IF SCREEN-NAME = 'COMMENT'.
          COMMENT = 'Comment'.
        ENDIF.
      ENDIF.
*ECHO ADD.0623.EN
    ELSE.

      IF TRANSACTION EQ SPACE AND '123913AHKL' CS ZCM03-DOCTYPE.
        IF SCREEN-GROUP1 EQ 'POD'.
          SCREEN-INPUT = 1.
          SCREEN-REQUIRED = 1.
*       *Elven add for Production order
*        else.
*          screen-input = 0.
*          screen-required = 0.
*        *Elven add for Production order input 20070106end
        ENDIF.
      ENDIF.
****LBG200804100937.add.sn
*Modified by royzhang 20100311 Adj.Doc. send release. begin
*      if ( zcm03-doctype = '5' or zcm03-doctype = '6'
*          or zcm03-doctype = 'C' or zcm03-doctype = 'D'
*          or zcm03-doctype = 'I' or zcm03-doctype = 'J' ).
      IF ( ZCM03-DOCTYPE = '5' OR ZCM03-DOCTYPE = '6'
                               OR ZCM03-DOCTYPE = '8'
          OR ZCM03-DOCTYPE = 'C' OR ZCM03-DOCTYPE = 'D'
          OR ZCM03-DOCTYPE = 'I' OR ZCM03-DOCTYPE = 'J'
          OR ZCM03-DOCTYPE = 'E' ).
*Modified by royzhang 20100311 Adj.Doc. send release. begin

        CLEAR P_REASON.
        CLEAR P_REALEASE.
        P_REASON = 'Reason'.
        P_REALEASE = 'Realease'.
        IF SCREEN-GROUP1 = 'REA'.
          SCREEN-INVISIBLE = 0.
        ENDIF.
        IF SCREEN-GROUP2 = 'SON'.
          SCREEN-INPUT = 1.
        ENDIF.
      ELSE.
        IF SCREEN-GROUP1 = 'TTT'.
          SCREEN-INVISIBLE = 1.
        ENDIF.
      ENDIF.
****lbg200804100937.add.en

*      Elven add for Production order to Goods Transfer
      IF ZCM03-DOCTYPE ='4' .
        IF SCREEN-GROUP1 ='P2T'.
          SCREEN-INVISIBLE = 0.
        ENDIF.
        IF SCREEN-GROUP1 ='POD'.
          SCREEN-INPUT = 1.
        ENDIF.
      ELSEIF ZCM03-DOCTYPE = '1' OR ZCM03-DOCTYPE = '2' OR
             ZCM03-DOCTYPE = '3' OR ZCM03-DOCTYPE = 'A' OR"ariel add 'A'
             ZCM03-DOCTYPE = 'H'.
        IF SCREEN-GROUP1 = 'QTY'.
          SCREEN-INVISIBLE = 0.
        ENDIF.
      ELSEIF ZCM03-DOCTYPE = 'K' OR ZCM03-DOCTYPE = 'L'.    "ECHO100619
        IF TRANSACTION EQ 'U' AND SCREEN-NAME = 'ZCM03-COMMENTTEXT'.
          SCREEN-INPUT = 0.
          SCREEN-REQUIRED = 0.
        ENDIF.
      ENDIF.

      IF ZCM03-DOCTYPE = 'K' OR ZCM03-DOCTYPE = 'L'.
        IF SCREEN-NAME = 'ORDERNO'.
          RDERNO = 'RMA#'.
        ENDIF.
        IF SCREEN-NAME = 'COMMENT'.
          COMMENT = 'Serial#'.
        ENDIF.
      ELSE.
        IF SCREEN-NAME = 'ORDERNO'.
          RDERNO = 'Order'.
        ENDIF.
        IF SCREEN-NAME = 'COMMENT'.
          COMMENT = 'Comment'.
        ENDIF.
      ENDIF.

* Elven add for Production order to GoodsTRANSFER20070106END

*Elven 20070106 add.
      IF SCREEN-GROUP1 = 'KOS'.
*Ting 090715 begin
        IF ZCM03-DOCTYPE <> '5' AND ZCM03-DOCTYPE <> '6'
         AND ZCM03-DOCTYPE <> '7' AND ZCM03-DOCTYPE <> '8' AND
ZCM03-DOCTYPE <> 'B'
*Ting 090715 end
*Echo 20091112.add.sn
         AND ZCM03-DOCTYPE <> 'E'
*Echo 20091112.add.en
*Echo 20090812.add.SN
         AND ZCM03-DOCTYPE <> 'C' AND ZCM03-DOCTYPE <> 'D'
*Echo 20090812.add.EN
*         and zcm03-doctype <> '14' and zcm03-doctype <> '15'.
*Rena 20091230 add
         AND ZCM03-DOCTYPE <> 'I' AND ZCM03-DOCTYPE <> 'J'.

          SCREEN-INPUT = '0'.
        ELSE.

          SCREEN-INPUT = '1'.
          SCREEN-REQUIRED = '1'.
        ENDIF.

      ENDIF.
*Elven 20070106 add end.
***LBG20080411.ADD.SN
***lbg200903131738.edit.sn
      DATA:L_PLANT LIKE ZCM04-WERKS.
      IF G_OBJECT EQ SPACE.
        CONCATENATE 'DOCTYPE' ZCM03-DOCTYPE INTO G_OBJECT.
        CONDENSE G_OBJECT.
      ENDIF.
      L_CNT = 0.
      SELECT SINGLE WERKS INTO L_PLANT FROM ZCM04
       WHERE DOCNUMBER = ZCM03-DOCNUMBER.
      SELECT COUNT(*) INTO L_CNT FROM ZMM048
      WHERE WERKS = L_PLANT AND BJECT = G_OBJECT
       AND VALUE = 'ACTIVE'.
      IF L_CNT > 0 AND " EQ 'Y' edit->NE '' AND NE 'R'
          ( ZCM03-RELSTATUS NE '' AND ZCM03-RELSTATUS NE 'R' ).
        IF SCREEN-GROUP2 = 'SON' OR SCREEN-GROUP3 = 'SON'.
          SCREEN-INPUT = 0.
        ENDIF.
      ENDIF.
***LBG20080411.ADD.EN
***Aiking 20080505 add.
      IF ZCM03-DOCTYPE ='14' OR ZCM03-DOCTYPE ='15'.
        IF SCREEN-GROUP3 ='CUS'.
*          screen-input = '1'."JACK MARK 081017
*          SCREEN-REQUIRED = '1'.
*          screen-VALUES_IN_COMBO = '1'.
        ENDIF.
        IF SCREEN-GROUP1 ='CUS'.
*          screen-invisible = 0.
        ENDIF.
      ELSE.
        IF SCREEN-GROUP1 ='CUS'.
          SCREEN-INVISIBLE = 1.
        ENDIF.
      ENDIF.
***Aiking 20080505 add end.
***Aiking 20080704 add.
      IF ZCM03-DOCTYPE ='16' OR ZCM03-DOCTYPE ='17'.
        IF SCREEN-GROUP3 ='VDR'.
          SCREEN-INPUT = '1'.
          SCREEN-REQUIRED = '1'.
        ENDIF.
        IF SCREEN-GROUP1 ='VDR'.
          SCREEN-INVISIBLE = 0.
        ENDIF.
      ELSE.
        IF SCREEN-GROUP1 ='VDR'.
          SCREEN-INVISIBLE = 1.
          SCREEN-VALUES_IN_COMBO = '1'.
        ENDIF.
      ENDIF.
***Aiking 20080704 add end.
    ENDIF.

*Candy 20090922 control password field appear
    IF F_PWD = 'Y' AND  SCREEN-GROUP1 ='PWD'.
      IF SCREEN-NAME = 'S_PWD'.
        SCREEN-INPUT = 1.
        SCREEN-INVISIBLE = 1.
      ELSE.
        SCREEN-INVISIBLE = 0.
      ENDIF.
    ELSEIF F_PWD = 'N' AND  SCREEN-GROUP1 ='PWD'.
      IF SCREEN-NAME = 'S_PWD'.
        SCREEN-INPUT = 0.
      ENDIF.
      SCREEN-INVISIBLE = 1.
    ENDIF.

    IF F_PWD = 'Y' AND  SCREEN-GROUP1 ='PWD' AND TRANSACTION = 'D'.
      IF SCREEN-NAME = 'S_PWD'.
        SCREEN-INPUT = 0.
      ENDIF.
      SCREEN-INVISIBLE = 1.
    ENDIF.
    MODIFY SCREEN.
  ENDLOOP.
ENDMODULE.                 " modify_header_screen_attrib  OUTPUT

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/14397246/viewspace-666150/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/14397246/viewspace-666150/

cssp2014
关注
音乐系统完整版
weixin_45494167的博客
08-21 1289
说好要给完整版的 一份完整代码请签收 这是
用户管理系统实现增删改查
zrzcsl的博客
08-19 4539
8.16 package com.zhongruan.bean; public class User { private int id; private String username; private String password; private int type; public int getId() { return id; } public void setId(int i...
ZCMM01-10
cssp2014的博客
06-24 94
*"Ariel add end 100114 SELECT SUM( ZCM04~ERFMG ) INTO L_NOPOSTISSUE FROM ZCM04 I...
ZCMM01-21
cssp2014的博客
06-24 103
CASE ZCM03-DOCTYPE. WHEN '1' OR '2' OR 'A' OR 'H'. IF ZCM03-ENMNG IS INITIAL....
ZCMM01-30
cssp2014的博客
06-24 87
*&-------------------------------------------------------------- *& Module check_SLOC_E INPUT*&amp...
ZCMM01-5
cssp2014的博客
06-24 107
*&--------------------------------------------------------------*& Module modify_item_screen_attrib...
<script> function zc(event){ var zh=document.querySelector("#zczh") var mm=document.querySelector("#zcmm") var obj={} var a=0 obj.name=zh.value, obj.password=mm.value event.preventDefault() var arr=JSON.parse(localStorage.getItem("arr"))||[] for(let i=0;i<arr.length;i++){ if(arr[i].name==zh.value){ a=1 } } if(nan.checked==false&&nv.checked==false){ alert("请选择性别") return } if(zh.value==""||zcmm.value==""){ alert("账号或密码不能为空") return }else if(a==1){ alert("用户名已经被注册了") return } arr.push(obj) localStorage.setItem("arr",JSON.stringify(arr)) console.log(arr) alert("恭喜你注册成功") location.href="./index.html" } </script>解释代码
06-08
这段代码是一个 JavaScript 函数，用于注册账号。...如果没有选择性别，它会提示用户选择性别。...如果一切都符合要求，它会将新的用户对象添加到 "arr" 数组中，将该数组存储在本地存储中，然后跳转到首页。
ZCMU—1603
jnxxhzz的博客
09-06 472
1603: 卡斯丁狗的战舰帝国 Time Limit: 1 Sec  Memory Limit: 128 MB Submit: 8  Solved: 5 [Submit][Status][Web Board] Description         卡斯丁狗看到一位欧吉桑在玩一款名曰 《战舰帝国》的游戏，于是他自己也想试试。游戏对战双方各有n艘战舰。敌方第i艘战舰的生命值为ai。
ZCMU—1623
jnxxhzz的博客
12-08 317
1623: 翻转序列 Time Limit: 1 Sec  Memory Limit: 128 MB [Submit][Status][Web Board] Description 给你一串01序列，每次翻转连续k长度的序列(0变1，1变0)，使所有的字符都变成0，要求翻转最小的次数，如果不存在输出T T. Input 输入一个01串， 第二行输入一个k 01串
8.15java上课内容：Music项目系统(未完整版本1.0.0.0)
zlc2351951436的博客
08-16 247
首先我们需要新建一个项目。 1.File-New-Project. 2.next-next-改名字-finish. 到这里，我们的新项目建立完成，会出现一个灰色空界面。 1.接下来将老师给的资源copy进去。（右击music文件夹，建一个新的包，命名为jar,将图中划红线的文件拷贝进去并且解压。） 2.新建包的步骤：对src包右击-new-package. 3.建四个包。（再放一遍图） ...
ZCMU-1553
Rrrrya
12-17 166
Description 定义函数 f(1)= F(2)= +++ f(n)= f(n-1) f(n-1) f(n-1) f(n-1) f(n-1) 你的目标就是输出f(n) Input 输入包含多组数据每组数据有一个正整数n(0<n<7) Output 每组数据输出f(n),每个案例之间用空行隔开,没个案例的结尾没有多余空格 S...
OPPO 推搜广多业务多场景的统一预估引擎实践 (1).pdf
11-16
OPPO 推搜广多业务多场景的统一预估引擎实践 (1).pdf
C#HR人事管理系统源码数据库 MySQL源码类型 WebForm
最新发布
11-16
HR人事管理系统源码 项目描述 人事管理，对用户，部门，职位，进行管理 运行环境：jdk7+tomcat7+mysql+IntelliJ IDEA+maven 使用技术：spring+spring mvc+mybatis+ligerUI+jquery+metronic+jsp
量化投资技术实验报告指导-实验任务与评估标准解析
11-16
内容概要：本文档详细介绍了《量化投资与风险管理》课程的背景、学习目标、课堂规则和课程考核方式。特别关注理论课程的学习，其中包括三次课后作业，主要考察学生的格式规范、内容全面性和答案正确性。实验部分则由多次作业组成，重点考查因子的有效性、数据处理能力和实验报告的质量，还要求学生能够独立设计因子并对其进行详尽分析。此外，实验课程还包括最终的成绩验收答辩。 适合人群：适用于正在参加《量化投资与风险管理》课程的学生或希望深入理解和掌握量化投资方法的研究者。 使用场景及目标：帮助参与者明确每个教学环节的任务指标及评判准则，提高实验技能，确保能按时按质完成各项任务。 阅读建议：建议仔细研读每条考核细则，注意实验报告的具体要求（如数据处理流程）和最终答辩所需材料。同时关注实验过程中可能出现的问题及其解决思路，有助于提升实践能力并获取更好的评价结果。
ioDraw-v3.1.0-mac-x64.dmg，流程图、思维导图、甘特图绘制软件，macOS x64版
11-16
1、ioDraw 是免费的在线作图软件，用于制作流程图、思维导图、甘特图、白板手绘图、mermaid流程图、海报设计、折线图、柱状图、拓扑图、组织结构图、UML、ER和时序图、平面设计图、电子电路图等，无需注册即可使用 2、替代Visio的免费软件，无使用限制 3、适合程序员、白领、系统架构师、项目经理、平面设计师、产品经理使用 4、v3.1.0变更日志： 新增将文件保存到百度网盘。 新增对macOS的支持。 修复第三方平台文件列表页显示问题。
计算机网络 - 思科模拟器 - Cisco Packet Tracer 令牌.zip
11-16
资源简介：计算机网络 - 思科模拟器 - Cisco Packet Tracer 令牌.zip 一、资源概述 本资源是一个压缩包（.zip格式），内含用于注册或激活思科（Cisco）Packet Tracer模拟器的令牌（Token）。Cisco Packet Tracer是一款由思科公司开发的网络模拟软件，它允许用户在没有实际硬件的情况下，通过模拟的网络环境进行网络配置、故障排除和实验。这款软件是学习计算机网络技术、CCNA（思科认证网络工程师）考试备考等不可或缺的工具。 二、资源用途 激活Packet Tracer：对于需要从思科官网下载或更新Packet Tracer软件的用户来说，有效的令牌是完成注册和激活流程的关键。本资源提供的令牌旨在帮助用户顺利完成这一过程，从而享受Packet Tracer提供的全部功能。 学习与实践：Packet Tracer为用户提供了一个直观且易于操作的模拟网络环境，用户可以在其中创建自定义网络拓扑、配置设备参数、模拟网络流量等。通过这一平台，用户可以深入学习网络协议、路由与交换技术、网络安全等领域的知识，并通过实践加深理解。
电力信号分离中的新型DNN-HMM监督方法
11-16
内容概要：本文提出了一种基于深度神经网络（DNN）与隐马尔科夫模型（HMM）相结合的新方法，用于非侵入性负载监测系统（NILM）中的单通道聚合功率信号拆解。传统FHMM方法需要每个负载的HMM模型，计算复杂度高，不适用于大型建筑。新方法为每个待提取负载训练一个带两种发射概率的HMM，一种模拟单个负载的高斯分布，另一种利用DNN建模聚合计量信号。该方法仅需聚合信号即可推断特定负载的状态序列。 适用人群：从事机器学习、智能电网、信号处理的研究人员和技术人员。 使用场景及目标：①从单通道聚合功率信号中提取个别电器设备的能耗情况；②优化能源管理和智能家居系统的能效。 其他说明：该方法通过实验验证了对不同类型的电器设备的有效性和准确性，尤其适用于低频数据集，如REDD数据集。
java校园跑腿综合服务网平台小程序源码带部署搭建教程数据库 MySQL源码类型 WebForm
11-16
Java校园跑腿综合服务网平台小程序源码带部署搭建教程 源码包含：client 客户端+server 服务端+wxapp小程序 一款基于JAVA开发的多校综合服务平台源码，支持第三方跑腿，代拿代买一些东西等服务，支持多校区使用，源码分为前端和后台服务等 需要工具：linux系统宝塔面板，环境nginx、mysql、pm2管理器（它自带nodejs）安装部署搭建请参考源码里面的教程文档
电子通讯领域中达锂电子UART/485通讯协议详解与应用
11-16
内容概要：本文档详细介绍东莞市达锂电子有限公司UART/485通讯协议，包括协议的基本时序、地址分配、物理层参数以及各数据段的内容及其作用，旨在为嵌入式系统设计、通讯协议开发者提供全面的技术指导。文档内容涵盖了不同设备间的指令集定义、传输方式和具体的实施步骤，同时提供了详细的版本变更记录。文档还强调了各数据字段的具体格式和意义，并列举了几种常见数据包的构建方法。文档还介绍了故障状态的诊断编码以及各种异常情况的具体含义。 适合人群：硬件工程师、通讯协议工程师、电子系统集成师以及对UART/485通讯协议感兴趣的科研和技术人员。 使用场景及目标：①嵌入式系统的设计与开发；②硬件之间的通信测试与故障排除；③深入了解通讯协议的工作机制，提升产品稳定性。 阅读建议：本手册详细阐述了各项通讯参数和数据格式，因此在阅读过程中，需要特别关注具体的通讯参数设置、地址分配规则和数据校验方法，同时可以结合实际应用场景进行理解和测试。
复杂业务场景下的 Flutter 混合开发技术实践.pdf
11-16
复杂业务场景下的 Flutter 混合开发技术实践.pdf
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值