*&---------------------------------------------------------------------*

*& Report  YDEMO_013

*&

*&---------------------------------------------------------------------*

*&

*&

*&---------------------------------------------------------------------*

REPORT  YDEMO_013 MESSAGE-ID ZTEST_001.

TABLES:AUFK.

DATA:LT_STATUS LIKE TABLE OF JSTAT WITH HEADER LINE.

DATA:GS_LAYOUT TYPE LVC_S_LAYO.

*PARAMETERS:P_CLIENT LIKE

PARAMETERS:P_AUFNR LIKE AFKO-AUFNR,

           P_OBJNR LIKE JSTO-OBJNR,

           P_ONLY  LIKE JEST-INACT.

PARAMETERS:RB_01 RADIOBUTTON GROUP G1 DEFAULT 'X',

           RB_02 RADIOBUTTON GROUP G1.

PARAMETERS:P_OBTYP LIKE JSTO-OBTYP,

           P_STSMA LIKE JSTO-STSMA,

           P_STONR LIKE TJ30-STONR.

INITIALIZATION.

*IF

START-OF-SELECTION.

  SELECT SINGLE OBJNR INTO P_OBJNR

    FROM AUFK

   WHERE AUFNR = P_AUFNR.

  IF SY-SUBRC NE .

    MESSAGE I002."WITH '没有找到对象号！'.

    CALL TRANSACTION 'ABAPDOCU'.

    STOP.

  ELSE.

    CLEAR:LT_STATUS,LT_STATUS[].

    CALL FUNCTION 'STATUS_READ'

      EXPORTING

*   CLIENT                 = SY-MANDT

        OBJNR                  = P_OBJNR

*   ONLY_ACTIVE            = ' '

     IMPORTING

       OBTYP                  = P_OBTYP

       STSMA                  = P_STSMA

       STONR                  = P_STONR

     TABLES

       STATUS                 = LT_STATUS

* EXCEPTIONS

*   OBJECT_NOT_FOUND       =

*   OTHERS                 =

              .

    IF SY-SUBRC <> .

* Implement suitable error handling here

    ENDIF.

  ENDIF.

  IF RB_02 EQ 'X'.

    LOOP AT LT_STATUS.

      WRITE:/() LT_STATUS-STAT,

            () LT_STATUS-INACT.

    ENDLOOP.

  ELSE.

    GS_LAYOUT-CWIDTH_OPT   = 'X'.

    GS_LAYOUT-SEL_MODE     = 'A'.

    CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'

      EXPORTING

        I_STRUCTURE_NAME         = 'JSTAT'

        I_CALLBACK_PROGRAM       = SY-REPID

        I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'

        I_CALLBACK_USER_COMMAND  = 'ALV_USER_COMMAND'

*       IS_LAYOUT_LVC            = GS_LAYOUT

      TABLES

        T_OUTTAB                 = LT_STATUS.

  ENDIF.

*&---------------------------------------------------------------------*

*&      Form  SET_PF_STATUS

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM SET_PF_STATUS USING UT_EXCLUDE TYPE SLIS_T_EXTAB.

  SET PF-STATUS 'ALV_STATUS'.

ENDFORM.                    "SET_PF_STATUS

*&---------------------------------------------------------------------*

*&      Form  ALV_USER_COMMAND

*&---------------------------------------------------------------------*

*       text

*----------------------------------------------------------------------*

FORM ALV_USER_COMMAND USING UV_UCOMM TYPE SYUCOMM US_SELFIELD TYPE SLIS_SELFIELD.

  DATA:LO_GRID TYPE REF TO CL_GUI_ALV_GRID.

  CASE UV_UCOMM.

    WHEN 'ADD'.

      INSERT INITIAL LINE INTO LT_STATUS INDEX .

      CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

        IMPORTING

          E_GRID = LO_GRID.

      CALL METHOD LO_GRID->REFRESH_TABLE_DISPLAY .

    WHEN 'EXIT'.

      LEAVE TO LIST-PROCESSING.

    WHEN '&F03' OR '&F12' OR '&F15'.

      LEAVE TO SCREEN .

    WHEN OTHERS.

  ENDCASE.

ENDFORM.                    "ALV_USER_COMMAND

*  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'

*   EXPORTING

**   I_INTERFACE_CHECK                 = ' '

**   I_BYPASSING_BUFFER                =

**   I_BUFFER_ACTIVE                   =

**    I_CALLBACK_PROGRAM                = ' '

**   I_CALLBACK_PF_STATUS_SET          = ' '

**   I_CALLBACK_USER_COMMAND           = ' '

**   I_CALLBACK_TOP_OF_PAGE            = ' '

**   I_CALLBACK_HTML_TOP_OF_PAGE       = ' '

**   I_CALLBACK_HTML_END_OF_LIST       = ' '

**   I_STRUCTURE_NAME                  =

**   I_BACKGROUND_ID                   = ' '

**   I_GRID_TITLE                      =

**   I_GRID_SETTINGS                   =

**   IS_LAYOUT_LVC                     =

**   IT_FIELDCAT_LVC                   =

**   IT_EXCLUDING                      =

**   IT_SPECIAL_GROUPS_LVC             =

**   IT_SORT_LVC                       =

**   IT_FILTER_LVC                     =

**   IT_HYPERLINK                      =

**   IS_SEL_HIDE                       =

**   I_DEFAULT                         = 'X'

**   I_SAVE                            = ' '

**   IS_VARIANT                        =

**   IT_EVENTS                         =

**   IT_EVENT_EXIT                     =

**   IS_PRINT_LVC                      =

**   IS_REPREP_ID_LVC                  =

**   I_SCREEN_START_COLUMN             =

**   I_SCREEN_START_LINE               =

**   I_SCREEN_END_COLUMN               =

**   I_SCREEN_END_LINE                 =

**   I_HTML_HEIGHT_TOP                 =

**   I_HTML_HEIGHT_END                 =

**   IT_ALV_GRAPHICS                   =

**   IT_EXCEPT_QINFO_LVC               =

**   IR_SALV_FULLSCREEN_ADAPTER        =

** IMPORTING

**   E_EXIT_CAUSED_BY_CALLER           =

**   ES_EXIT_CAUSED_BY_USER            =

*    TABLES

*      T_OUTTAB                          =

** EXCEPTIONS

**   PROGRAM_ERROR                     =

**   OTHERS                            =

*            .

*  IF SY-SUBRC <> .

** Implement suitable error handling here

*  ENDIF.

ABAP读取工单状态 STATUS_READ的更多相关文章

  1. Oracle EBS - 工单状态

    Job status update 1. Job的几种状态 unreleased --未核发 released--已核发 complete --完成 complete no charges--完成不计 ...

  2. abp加DDD开发：低耦合、可复用、可扩展的【工单】业务模块-简介和集成

    前言 很多场景[单体+模块化]比微服务更合适,开发难度低.代码可复用性强.可扩展性强.模块化开发有些难点,模块启动与卸载.模块之间的依赖和通讯.asp.net core abp为我们提供了模块化开发能 ...

  3. 【ABAP系列】SAP 获取工单和工序的状态

    公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[ABAP系列]SAP 获取工单和工序的状态   ...

  4. 【ABAP系列】SAP ABAP 工单增强

    公众号:SAP Technical 本文作者:matinal 原文出处:http://www.cnblogs.com/SAPmatinal/ 原文链接:[ABAP系列]SAP ABAP 工单增强   ...

  5. PP读取生产订单状态

    转自http://blog.csdn.net/heng0757/article/details/6656089 传递订单号码,可以返回该订单的状态 REPORT  ZCMH2.TABLES : JES ...

  6. CRTD模拟MFG工单进行绑定优化

    需求:按单按库生产的CRTD状态半成品工单重复创建问题 绑定成功案例: SELECT DEMANDLINEID,SUPPLYORDERID,DEMANDORDERID,QTYALLOCATED,ITE ...

  7. SQL更新派工单数量=任务数量的

    select b.FCommitQty '任务数量',a.FQty '派工数量',a.FSourceBillNo '派工单号',b.FBillNo '任务单号',a.FStatus '派工状态' fr ...

  8. iDempiere 使用指南 BOM及工单流程

    Created by 蓝色布鲁斯,QQ32876341,blog http://www.cnblogs.com/zzyan/ iDempiere官方中文wiki主页 http://wiki.idemp ...

  9. loonflow 工单系统

    该项目是基于django的工作流引擎,工单.项目托管在 Github 一.安装基础环境 1.1 安装python 和 pip yum install -y epel-release yum insta ...

随机推荐

  1. 关于TS返回　Can't use function return value in write context 问题

    在项目开发过程中,出现某一接口文件间歇性出现500错误,间歇性出现说明是有条件才会产生,查看错误日志显示:Fatal error: Can't use function return value in ...

  2. Python基础数据类型补充及深浅拷贝

    本节主要内容:1. 基础数据类型补充2. set集合3. 深浅拷贝主要内容:一. 基础数据类型补充首先关于int和str在之前的学习中已经讲了80%以上了. 所以剩下的自己看一看就可以了.我们补充给一 ...

  3. es6 export、import

    一.输出变量 1.export var a = 0; 2.var a = 0'; export {a}; 3.var a =0 ; export {a as rename}; //使用as重命名的对外 ...

  4. Codeforces 599E Sandy and Nuts（状压DP）

    题目链接 Sandy and Nuts 题意大概就是给出限制条件求出在该限制条件下树的种数. #include <bits/stdc++.h> using namespace std; # ...

  5. CentOS6.7安装部署LNMP(nginx1.8.0+php5.6.10+mysql5.6.12)

    IP-10.0.0.8 1.安装nginx mkdir -p /server/tools cd /server/tools yum install -y pcre pcre-devel openssl ...

  6. FileChannel指南

    推荐关注公众号:锅外的大佬 每日推送国外技术好文,帮助每位开发者更优秀地成长 原文链接:https://www.baeldung.com/java-filechannel 作者:baeldung 译者 ...

  7. servlet跳转页面后图片不显示

    我是用图片的相对路径,原先直接打开jsp的话图片是可以正常显示的,通过servlet跳转之后图片就显示不出来了 后来发现是图片路径的问题, 我是将图片放在WebRoot里面自己创建的img中,原先图片 ...

  8. IOS开发之----两种保存用户名和密码实现记住密码库

    使用Keychain存储用户敏感信息 iOS的keychain服务提供了一种安全的保存私密信息(密码,序列号,证书等)的方式,每个ios程序都有一个独立的keychain存储.相对于 NSUserDe ...

  9. 算法题1+2+...+N

    题目:求1+2+-+n,要求不能使用乘除法.for.while.if.else.switch.case等关键字以及条件判断语句(A?B:C). int solve(int n) { int i = 1 ...

  10. 【spring data jpa】repository中使用@Query注解使用hql查询，使用@Param引用参数，报错：For queries with named parameters you need to use provide names for method parameters. Use @Param for query method parameters, or when on

    在spring boot中, repository中使用@Query注解使用hql查询,使用@Param引用参数 如题报错: For queries with named parameters you ...