YHMMR003 农户基本信息的维护程序

***********************************************************************
* Title           :                                           *
* Application     : MM                                     　         *
* Subject         : 农户基本信息的维护程序                            *
* Requested by    :        (YH_MM)                                    *
* Execution       : Online when required                              *
* Ref no:         :                                          *
* Author          :                                          *
* Req Date        : 20120709                                          *
***********************************************************************
*          　　　　农户信息及商品关系维护程序                         *
***********************************************************************
*          　　　　设计主要逻辑与原理说明   ：：：                    *
***********************************************************************
* 1.程序流程及功能：自建农户基表创建农户基本信息的新增，修改，及查询  *
* 2,取数：从自建农户基本信息表中取得需要展示的数据用ALV显示.          *
* 3.输入：农户名称，身份证号码。                                      *
* 4.输出：农户编码， 农户名称，身份证号码，状态。                     *
* 5.事件：用Tabel Control实现自建表的新增功能用ALV实现自建表的修改功能*
***********************************************************************
***********************************************************************
* MODIFICATIONS (latest entry at the top)                             *
* ------------------------------------------------------------------- *
* REL  DATE    NAME (COMPANY)   DESCRIPTION               TASK-NO     *
* ---  ----    ---- ---------     -----------             -------     *
*                                                                     *
***********************************************************************
REPORT  YHMMR003 NO STANDARD PAGE HEADING
                 LINE-SIZE  132
                 LINE-COUNT 65(1)
                 MESSAGE-ID YH_MM1.



*---------------------------------------------------------------------------------
*---------------------- 声明类型池----------------------*
*---------------------------------------------------------------------------------
TYPE-POOLS: SLIS,
            VRM.

*---------------------------------------------------------------------------------
*----------------------声明数据字典---------------------*
*---------------------------------------------------------------------------------
TABLES: YTNAH,
        YTNHCG.

*---------------------------------------------------------------------------------
*--------------------- 结构定义-------------------------*
*---------------------------------------------------------------------------------
TYPES: BEGIN OF TY_YTNAH,
       NHBM  TYPE YTNAH-NHBM,
       NHMC  TYPE YTNAH-NHMC,
       SFZHM TYPE YTNAH-SFZHM,
       ZHTA  TYPE YTNAH-ZHTA,
       CPUTM TYPE YTNAH-CPUTM,
       AEDAT TYPE YTNAH-AEDAT,
       USNAM TYPE YTNAH-USNAM,
       END OF TY_YTNAH.
TYPES: TY_TAB_YTNAH TYPE TY_YTNAH OCCURS 0.
DATA: G_LINE TYPE I.
DATA :BEGIN OF GT_ITAB OCCURS 0.
        INCLUDE STRUCTURE YTNAH.
DATA:  SEL TYPE C,
       UPD.
DATA: END OF GT_ITAB.

DATA: WA_TAB LIKE GT_ITAB.
DATA: WA_TAB1 LIKE GT_ITAB.

DATA :BEGIN OF GT_ITAB1 OCCURS 0.
        INCLUDE STRUCTURE YTNAH.
DATA:  SEL TYPE C,
       UPD.
DATA: END OF GT_ITAB1.

*---------------------------------------------------------------------------------
*----------------------- 内表定义 -----------------------*
*---------------------------------------------------------------------------------

DATA: BEGIN OF GT_DATA OCCURS 0.
        INCLUDE STRUCTURE YTNAH.
DATA: ROWCOLOR(4) TYPE C,
      CELLCOLOR TYPE LVC_T_SCOL,
      PEYPE_DD_HNDL TYPE INT4.
DATA: END OF GT_DATA.
DATA: WA_DATA LIKE GT_DATA.

DATA: GT_CHANGE    TYPE TABLE OF YTNAH WITH HEADER LINE,
      GT_CH  TYPE TABLE OF YTNAH WITH HEADER LINE,
      WA_CHANGE    TYPE YTNAH.
DATA: GT_YTNAH   TYPE TABLE OF YTNAH WITH HEADER LINE,
      WA_YTNAH   TYPE YTNAH.

*---------------------------------------------------------------------------------
*---------------------- ALV参数定义 ---------------------*
*---------------------------------------------------------------------------------
DATA: G_PROGRAM    TYPE SY-REPID,
      GW_LAYOUT    TYPE SLIS_LAYOUT_ALV,
      GT_FIELDCAT  TYPE SLIS_T_FIELDCAT_ALV,
      WA_FIELDCAT  TYPE SLIS_FIELDCAT_ALV,
      GT_EVENT     TYPE SLIS_T_EVENT,
      WA_EVENT     TYPE SLIS_ALV_EVENT.
DATA: G_GRID  TYPE REF TO CL_GUI_ALV_GRID.
*---------------------------------------------------------------------------------
*--------------------- 常量定义 -------------------------*
*---------------------------------------------------------------------------------
DATA: G_LINNO  LIKE SY-TABIX,
      G_LINES  TYPE I,
      G_LINES1 TYPE I,
      G_CREA   TYPE C,
      G_COUNT  TYPE I.

*&SPWIZARD: LINES OF TABLECONTROL 'TC_ITEM'
DATA:     G_TC_ITEM_LINES  LIKE SY-LOOPC.
*&SPWIZARD: LINES OF TABLECONTROL 'TC_ITEM1'
DATA:     G_TC_ITEM1_LINES  LIKE SY-LOOPC.
*---------------------------------------------------------------------------------
*--------------------- 全局变量定义 ----------------------*
*---------------------------------------------------------------------------------
DATA: G_INDEX    TYPE SY-TABIX.
DATA: OK_CODE    TYPE SY-UCOMM,
      G_DUP_FLAG TYPE C.
DATA  G_ANSWER   TYPE C.
DATA: VID        TYPE VRM_ID,
      VLIST      TYPE VRM_VALUES,
      WA_VALUE   LIKE LINE OF VLIST.
*---------------------------------------------------------------------------------
*--------------------- 屏幕定义 --------------------------*
*---------------------------------------------------------------------------------
*&SPWIZARD: DECLARATION OF TABLECONTROL 'TC_ITEM' ITSELF
CONTROLS: TC_ITEM TYPE TABLEVIEW USING SCREEN 0100.
*&SPWIZARD: DECLARATION OF TABLECONTROL 'TC_ITEM1' ITSELF
CONTROLS: TC_ITEM1 TYPE TABLEVIEW USING SCREEN 0200.


*=================================================================================
*                                SELECTION-SCREEN
*=================================================================================
SELECTION-SCREEN BEGIN OF BLOCK BLK0 WITH FRAME TITLE TEXT-001.
SELECTION-SCREEN SKIP 1.
*& 农户编码
*& 身份证号码
SELECT-OPTIONS: S_NHBM   FOR YTNAH-NHBM  MATCHCODE OBJECT YH_NHBM NO-EXTENSION NO INTERVALS,
                S_SFZHM  FOR YTNAH-SFZHM MATCHCODE OBJECT YH_SFZHM ,
*& 农户采购组织区分标识：
                S_NHSIG  FOR YTNHCG-NHSIG NO INTERVALS NO-EXTENSION
                MATCHCODE OBJECT YH_NHSIG ." OBLIGATORY. "农户对应的采购组织信息。

*& 查询
*& 修改
*& 新增
PARAMETERS:     RB_QUERY  RADIOBUTTON GROUP G1,
                RB_CHANG  RADIOBUTTON GROUP G1,
                RB_ADD    RADIOBUTTON GROUP G1. " DEFAULT 'X'.

SELECTION-SCREEN END OF BLOCK BLK0.

*----------------------------------------------------------------------
*  INITIALIZATION
*----------------------------------------------------------------------
INITIALIZATION.

* 初始化数据
*  PERFORM frm_initial.

*----------------------------------------------------------------------
*  AT SELECTION-SCREEN
*----------------------------------------------------------------------
AT SELECTION-SCREEN.

  PERFORM FRM_INIT_DATA.
* 权限检查部分
  PERFORM FRM_CHECK_AUTHOR.

*=================================================================================
*                                MAIN PROGRAM
*=================================================================================
*---------------------------------------------------------------------------------
*  START-OF-SELECTION
*---------------------------------------------------------------------------------
START-OF-SELECTION.
*&S1 查询时
  IF RB_QUERY IS NOT INITIAL.
*&S1.1取数
    PERFORM FRM_GET_DATA.
*&S1.2ALV显示
    PERFORM FRM_OUTPUT_DATA.
  ENDIF.

*&S2 修改时
  IF RB_CHANG IS NOT INITIAL.
    CLEAR: GT_DATA, WA_DATA.
*&S2.1获取修改数据
    PERFORM GET_DATA_MODIFY.
*&S2.2数据修改操作
    PERFORM FRM_MODIFY_DATA.
  ENDIF.



*&S3 TB维护农户表
  IF RB_ADD NE SPACE.
*& 以采购组织对农户进行区分：
    IF S_NHSIG IS INITIAL.
      MESSAGE I006 WITH  '请选择创建农户对应的采购组织！！！'.
      STOP.
    ENDIF.

    TC_ITEM-LINES = 0 .
    TC_ITEM-TOP_LINE = 1.

*& 进行维护的时候，锁定数据表。
    PERFORM FRM_LOCK_YTNAH USING SY-MANDT.
    CALL SCREEN 0100.
  ENDIF.
*---------------------------------------------------------------------------------
*  END-OF-SELECTION
*---------------------------------------------------------------------------------


*&---------------------------------------------------------------------*
*&      Form  FRM_INIT_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_INIT_DATA .
*& 查询时候的必输条件：
  IF RB_QUERY IS NOT INITIAL.
    IF S_NHBM IS INITIAL.
      MESSAGE I006 WITH '请输入农户编码作为查询条件！'.
      STOP.
    ENDIF.
  ENDIF.

*& 修改时候的必输条件：
  IF RB_CHANG IS NOT INITIAL.
    IF S_NHBM IS INITIAL.
      MESSAGE I006 WITH '请输入农户编码作为查询条件！'.
      STOP.
    ENDIF.
  ENDIF.

ENDFORM.                    " FRM_INIT_DATA


*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_AUTHOR
*&---------------------------------------------------------------------*
*  *& 权限检查
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_CHECK_AUTHOR .

*    AUTHORITY-CHECK OBJECT 'M_MATE_WGR'
*                 ID 'ADD' FIELD RB_ADD
*                 ID 'ACTVT' FIELD '01'.
*  IF SY-SUBRC <> 0.
*    MESSAGE i012 with '没有农户信息' RB_ADD '创建的权限!'.
*    stop.
*  ENDIF.

ENDFORM.                    " FRM_CHECK_AUTHOR

*&---------------------------------------------------------------------*
*&      Form  frm_get_data
*&---------------------------------------------------------------------*
*       从数据表中取数（从自建表ytnah中取数到gt_data）
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_GET_DATA .

*&S1.1.1从农户表中取得数据
  SELECT NHBM
         NHMC
         SFZHM
         ZHTA
         CPUTM
         AEDAT
         USNAM
    INTO CORRESPONDING FIELDS OF  TABLE GT_DATA
    FROM YTNAH
   WHERE NHBM  IN S_NHBM
     AND SFZHM IN S_SFZHM.

*&S1.1.2检查有没有数据
  DESCRIBE TABLE GT_DATA LINES G_LINES.
  IF G_LINES = 0.
    MESSAGE I001 WITH '根据查询条件未找到数据!'.
    STOP.
  ENDIF.

*&S1.1.3内表排序：
  SORT GT_DATA BY NHBM.

ENDFORM.                    " frm_get_data



*&---------------------------------------------------------------------*
*&      Form  FRM_OUTPUT_DATA
*&---------------------------------------------------------------------*
*        ALV显示
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_OUTPUT_DATA .

  DEFINE ADD_FIELDCAT.
    CLEAR WA_FIELDCAT.

    WA_FIELDCAT-FIELDNAME    =  &1.
    WA_FIELDCAT-SELTEXT_L    =  &2.
    WA_FIELDCAT-COL_POS      =  &3.
    WA_FIELDCAT-JUST         =  &4.
    WA_FIELDCAT-OUTPUTLEN    =  &5.
    WA_FIELDCAT-FIX_COLUMN   =  &6.
    WA_FIELDCAT-CHECKBOX     =  &7.

    APPEND WA_FIELDCAT TO GT_FIELDCAT.
  END-OF-DEFINITION.

  CLEAR GT_FIELDCAT.

  ADD_FIELDCAT  'NHBM'       '农户编码'    1  'L'  7  ''  ''.
  ADD_FIELDCAT  'NHMC'       '农户名称'    2  'L'  40 ''  ''.
  ADD_FIELDCAT  'SFZHM'      '身份证号码'  3  'L'  18 ''  ''.
  ADD_FIELDCAT  'ZHTA'       '状态'        4  'R'  3  ''  ''.
  ADD_FIELDCAT  'CPUTM'      '输入时间'    5  'L'  6  ''  ''.
  ADD_FIELDCAT  'AEDAT'      '更改时间'    6  'L'  8  ''  ''.
  ADD_FIELDCAT  'USNAM'      '用户名'      7  'L'  12 ''  ''.


  GW_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.  "优化列

  G_PROGRAM = SY-REPID.


  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = G_PROGRAM
      IS_LAYOUT          = GW_LAYOUT
      IT_FIELDCAT        = GT_FIELDCAT[]
      I_SAVE             = 'A'
    TABLES
      T_OUTTAB           = GT_DATA.


ENDFORM.                    " FRM_OUTPUT_DATA

*&---------------------------------------------------------------------*
*&      Form  GET_DATA_MODIFY
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM GET_DATA_MODIFY .


*&S2.1.1从农户表中取得数据
  SELECT NHBM
         NHMC
         SFZHM
         ZHTA
         CPUTM
         AEDAT
         USNAM
    INTO CORRESPONDING FIELDS OF  TABLE GT_CHANGE
    FROM YTNAH
   WHERE NHBM  IN S_NHBM
     AND SFZHM IN S_SFZHM.

*&2.1.2检查有没有数据
  DESCRIBE TABLE GT_CHANGE LINES G_LINES.
  IF G_LINES = 0.
    MESSAGE E001 WITH '根据查询条件未找到数据!'.
    STOP.
  ENDIF.
*&2.1.3内表排序：
  SORT GT_CHANGE BY NHBM.

ENDFORM.                    " GET_DATA_MODIFY


*&---------------------------------------------------------------------*
*&      Form  FRM_MODIFY_DATA
*&---------------------------------------------------------------------*
*       ALV显示，然后用ALV界面进行修改
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_MODIFY_DATA .

  CLEAR WA_EVENT.
  MOVE 'PF_STATUS_SET' TO WA_EVENT-NAME.
  MOVE 'F_PF_STATUS_SET' TO WA_EVENT-FORM.
  APPEND WA_EVENT TO GT_EVENT.

  CLEAR WA_EVENT.
  MOVE 'USER_COMMAND' TO WA_EVENT-NAME.
  MOVE 'F_USER_COMMAND' TO WA_EVENT-FORM.
  APPEND WA_EVENT TO GT_EVENT.

  DEFINE ADD_FIELDCAT.
    CLEAR WA_FIELDCAT.
    WA_FIELDCAT-FIELDNAME    =  &1.
    WA_FIELDCAT-SELTEXT_L    =  &2.
    WA_FIELDCAT-COL_POS      =  &3.
    WA_FIELDCAT-JUST         =  &4.
    WA_FIELDCAT-OUTPUTLEN    =  &5.
    WA_FIELDCAT-FIX_COLUMN   =  &6.
    WA_FIELDCAT-CHECKBOX     =  &7.
    WA_FIELDCAT-EDIT         =  &8.
    WA_FIELDCAT-EDIT_MASK    =  &9.
*    wa_fieldcat-datatype     =  &10.

    APPEND WA_FIELDCAT TO GT_FIELDCAT.
  END-OF-DEFINITION.

  CLEAR GT_FIELDCAT.

  ADD_FIELDCAT  'NHBM'       '农户编码'    1  'L'  7  ''  '' ''   '' .
  ADD_FIELDCAT  'NHMC'       '农户名称'    2  'L'  40 ''  '' 'X'  '' .
  ADD_FIELDCAT  'SFZHM'      '身份证号码'  3  'L'  18 ''  '' 'X'  '' .
  ADD_FIELDCAT  'ZHTA'       '状态'        4  'R'  3  ''  '' 'X'  '' .
  ADD_FIELDCAT  'CPUTM'      '输入时间'    5  'L'  6  ''  ''  ''  '' .
  ADD_FIELDCAT  'AEDAT'      '更改时间'    6  'L'  8  ''  ''  ''  '' .
  ADD_FIELDCAT  'USNAM'      '用户名'      7  'L'  12 ''  ''  ''  ' '.


  GW_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.  "优化列
  GW_LAYOUT-BOX_FIELDNAME = 'ZSEL'.
  G_PROGRAM = SY-REPID.

  CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM       = G_PROGRAM
      I_CALLBACK_USER_COMMAND  = 'USER_COMMAND'
      I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
      IS_LAYOUT                = GW_LAYOUT
      IT_FIELDCAT              = GT_FIELDCAT
      I_SAVE                   = 'A'
      IT_EVENTS                = GT_EVENT
    TABLES
      T_OUTTAB                 = GT_CHANGE
    EXCEPTIONS
      PROGRAM_ERROR            = 1
      OTHERS                   = 2.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                     "FRM_MODIFY_DATA


*&---------------------------------------------------------------------*
*&      ALV EVENT Form  FRM_SET_LAYOUT
*&      ALV状态栏事件  状态：STATUS
*&---------------------------------------------------------------------*
FORM F_PF_STATUS_SET  USING EXTAB TYPE SLIS_T_EXTAB.

  SET PF-STATUS '0200' EXCLUDING EXTAB.

ENDFORM.                     "f_pf_status_set


*&---------------------------------------------------------------------*
*&      ALV EVENT Form f_user_command
*&---------------------------------------------------------------------*
FORM F_USER_COMMAND USING RF_UCOMM LIKE SY-UCOMM
                   RS_SELFIELD TYPE SLIS_SELFIELD.


  DATA: LR_GRID TYPE REF TO CL_GUI_ALV_GRID.

  CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      E_GRID = LR_GRID.
  CALL METHOD LR_GRID->CHECK_CHANGED_DATA.
  CALL METHOD LR_GRID->REFRESH_TABLE_DISPLAY.

  RS_SELFIELD-REFRESH = 'X'.

  CASE RF_UCOMM.

**& 删除操作
*    WHEN 'DELETE'.
*      CLEAR OK_CODE.
*      PERFORM FRM_DELETE_DATA_ALV.

*& 保存操作
    WHEN 'SAVE'.
      CLEAR OK_CODE.
      PERFORM FRM_SAVE_DATA_ALV.

*& 退出操作
    WHEN 'BACK'.
      CLEAR OK_CODE.
      PERFORM FRM_UNLOCK  USING SY-MANDT.
      LEAVE TO SCREEN 0.

    WHEN OTHERS.

      CLEAR OK_CODE.

  ENDCASE.
ENDFORM.                    " f_user_command

*&---------------------------------------------------------------------*
*&      Form  FRM_DELETE_DATA_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DELETE_DATA_ALV .
  DATA: L_INDEX  TYPE SY-TABIX.
*& 检查数据是否存在：
    PERFORM FRM_CHECK_YTNAM.

  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      TITLEBAR              = '确认'
      TEXT_QUESTION         = '确定删除此信息吗?'
      TEXT_BUTTON_1         = '是'
      TEXT_BUTTON_2         = '否'
      DEFAULT_BUTTON        = '1'
      DISPLAY_CANCEL_BUTTON = ' '
      START_COLUMN          = 25
      START_ROW             = 6
      POPUP_TYPE            = 'ICON_MESSAGE_WARNING'
    IMPORTING
      ANSWER                = G_ANSWER
    EXCEPTIONS
      TEXT_NOT_FOUND        = 1
      OTHERS                = 2.
  CHECK G_ANSWER EQ  '1'.

*& 修改时候删除记录操作：
  LOOP AT GT_CHANGE INTO WA_CHANGE WHERE ZSEL <> SPACE.
    L_INDEX = SY-TABIX.
*    DELETE GT_CHANGE INDEX L_INDEX.
    DELETE ytnah FROM GT_CHANGE.
   IF SY-SUBRC EQ 0.
      DELETE GT_CHANGE INDEX L_INDEX.
   ENDIF.

  ENDLOOP.

ENDFORM.                    " FRM_DELETE_DATA_ALV

*&---------------------------------------------------------------------*
*&      Form  FRM_SAVE_DATA_ALV
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_SAVE_DATA_ALV .
  PERFORM FRM_LOCK_YTNAH USING SY-MANDT.


  PERFORM FRM_CHECK_ZHTA.

  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      TITLEBAR              = '确认'
      TEXT_QUESTION         = '你真的要保存修改农户信息吗?'
      TEXT_BUTTON_1         = '是'
      TEXT_BUTTON_2         = '否'
      DEFAULT_BUTTON        = '1'
      DISPLAY_CANCEL_BUTTON = ' '
      START_COLUMN          = 25
      START_ROW             = 6
      POPUP_TYPE            = 'ICON_MESSAGE_WARNING'
    IMPORTING
      ANSWER                = G_ANSWER
    EXCEPTIONS
      TEXT_NOT_FOUND        = 1
      OTHERS                = 2.
  CHECK G_ANSWER EQ  '1'.

*& 时间，日期，用户赋值：
  LOOP AT GT_CHANGE WHERE NHBM IS NOT INITIAL.
    MOVE: SY-UZEIT TO GT_CHANGE-CPUTM,
          SY-DATUM TO GT_CHANGE-AEDAT,
          SY-UNAME TO GT_CHANGE-USNAM.
    MODIFY  GT_CHANGE.
  ENDLOOP.

*&888：通过内表更新数据表：
  MODIFY YTNAH FROM TABLE GT_CHANGE.
  IF SY-SUBRC EQ 0.
    COMMIT WORK.
    MESSAGE S006 WITH '数据保存成功！'.
  ELSE.
    ROLLBACK WORK.
    MESSAGE S006 WITH '数据保存失败！'.
  ENDIF.


ENDFORM.                    " FRM_SAVE_DATA_ALV

*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_ZHTA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_CHECK_ZHTA .

  DATA: BEGIN OF LT_NHBM OCCURS 0,
        NHBM LIKE YTNAH-NHBM,
        END OF LT_NHBM.

  DATA: L_NHBM LIKE YTNAH-NHBM,
        L_NHMC LIKE YTNAH-NHMC.

  DATA: L_LINES TYPE I.
*& 身份证重复性检查
  IF   GT_CHANGE-NHMC  NE SPACE
   AND GT_CHANGE-SFZHM NE SPACE
   AND GT_CHANGE-ZHTA  NE SPACE.

*& 取得内表
    GT_CH[] = GT_CHANGE[].
    DESCRIBE TABLE GT_CHANGE LINES G_LINES.

    SORT GT_CH BY SFZHM."  NHBM.

    DELETE ADJACENT DUPLICATES FROM GT_CH COMPARING SFZHM.
    DESCRIBE TABLE GT_CH LINES L_LINES.

*&判定记录是否存在：
    IF G_LINES NE L_LINES.
      MESSAGE E012 WITH '身份证号码重复输入,请检查！'.
      CLEAR G_LINES.
      STOP.
    ENDIF.

*&---检查身份证位数是否正常：
    G_LINE = STRLEN( GT_CHANGE-SFZHM ).
    IF G_LINE <> 18." AND G_LINE <> 15.
      MESSAGE E012 WITH '请输入18位身份证号码！' GT_CHANGE-SFZHM.
    ENDIF.

  DATA: BEGIN OF LT_YTNAH OCCURS 0,
         NHBM LIKE YTNAH-NHBM,
        END OF LT_YTNAH.

 BREAK AD_CAIXIANG.
*&---输入状态值进行检查
  LOOP AT GT_CHANGE INTO WA_CHANGE.
   CLEAR: LT_YTNAH, LT_YTNAH[].
   IF WA_CHANGE-ZHTA NE 'A' AND WA_CHANGE-ZHTA NE 'B'.
    MESSAGE E006 WITH '请输入合适的状态，A代表正常，B代表不正常！'.
    LEAVE TO SCREEN 0100 .
   ENDIF.

  IF WA_CHANGE-ZHTA EQ 'B'.
*& 修改农户状态时，先要检查农户商品对应关系信息：
    SELECT NHBM
      INTO TABLE LT_YTNAH
      FROM YTNAM
     WHERE NHBM EQ WA_CHANGE-NHBM
       AND ZHTA EQ 'A'.

    IF SY-SUBRC EQ 0.
     MESSAGE E012 WITH '此农户正常商品对应关系信息记录存在,请检查!' WA_CHANGE-NHBM.
    ENDIF.
  ENDIF.
 ENDLOOP.

  ELSE.
    MESSAGE I013 WITH '请保持农户基本信息的完整！'.
    STOP.
  ENDIF.

ENDFORM.                    " FRM_CHECK_ZHTA

*&---------------------------------------------------------------------*
*&      Form  FRM_UNLOCK_YTNAh
*&---------------------------------------------------------------------*
*       *&对自建表ytanh进行解锁
*----------------------------------------------------------------------*
*      -->P_SY_MANDT  text
*----------------------------------------------------------------------*
FORM FRM_UNLOCK_YTNAH  USING    P_SY_MANDT.

*& -解锁表YTNAH
  CALL FUNCTION 'DEQUEUE_EYTNAH'
    EXPORTING
      MODE_YTNAH     = 'E'
      MANDT          = SY-MANDT
    EXCEPTIONS
      FOREIGN_LOCK   = 1
      SYSTEM_FAILURE = 2
      OTHERS         = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                    " FRM_UNLOCK_YTNAh

*&---------------------------------------------------------------------*
*&      Form  FRM_LOCK_YTNAH
*&---------------------------------------------------------------------*
*       *&对自建表ytanh进行锁定
*----------------------------------------------------------------------*
*      -->P_SY_MANDT  text
*----------------------------------------------------------------------*
FORM FRM_LOCK_YTNAH  USING    P_SY_MANDT.

*& -锁表YTNAH
  CALL FUNCTION 'ENQUEUE_EYTNAH'
    EXPORTING
      MODE_YTNAH     = 'E'
      MANDT          = SY-MANDT
    EXCEPTIONS
      FOREIGN_LOCK   = 1
      SYSTEM_FAILURE = 2
      OTHERS         = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                    " FRM_LOCK_YTNAH

*&---------------------------------------------------------------------*
*&      Module  STATUS_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE STATUS_0100 OUTPUT.
  SET PF-STATUS '0100'.
ENDMODULE.                 " STATUS_0100  OUTPUT

*&---------------------------------------------------------------------*
*&      Module  USER_COMMAND_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE USER_COMMAND_0100 INPUT.

  CASE OK_CODE.
*& 删除
      WHEN'DELETE'.
      CLEAR OK_CODE.
      PERFORM FRM_DELETE_DATA.

*& 保存操作处理
    WHEN 'SAVE'.
      CLEAR OK_CODE.
      PERFORM FMR_CREA_DATA.

*& 返回，删除，退出处理
    WHEN 'BACK' OR 'CANC' OR 'EXIT'.
      CLEAR OK_CODE.
      CLEAR: GT_ITAB.
      REFRESH: GT_ITAB.
      PERFORM FRM_UNLOCK USING SY-MANDT.
      LEAVE TO SCREEN 0.

*& 全选处理
    WHEN 'ALL'.
      CLEAR OK_CODE.
      WA_TAB-SEL = 'X'.
      MODIFY GT_ITAB FROM WA_TAB TRANSPORTING SEL
                                  WHERE SEL = ' '.

*& 取消全选处理
    WHEN 'RSAL'.
      CLEAR OK_CODE.
      WA_TAB-SEL = ' '.
      MODIFY GT_ITAB FROM WA_TAB TRANSPORTING SEL
                                  WHERE SEL = 'X'.

    WHEN 'P-' OR 'P--'  OR 'P+' OR 'P++'.
      CLEAR OK_CODE.
      PERFORM FRM_TURN_PAGE_100.

    WHEN OTHERS.
      CLEAR OK_CODE.

  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0100  INPUT

*&---------------------------------------------------------------------*
*&      Module  PAI_MODIFY_DATA_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE PAI_MODIFY_DATA_0100 INPUT.

*&---数据改变处理逻辑流
  DESCRIBE TABLE GT_ITAB LINES G_LINES.
  G_COUNT = SY-LOOPC.
  TC_ITEM-LINES = G_LINES + 1.
  CLEAR GT_ITAB.
ENDMODULE.                 " PAI_MODIFY_DATA_0100  INPUT

*&---------------------------------------------------------------------*
*&      Module  PAI_EXIT_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE PAI_EXIT_0100 INPUT.

  CASE OK_CODE.
    WHEN 'EXIT' OR 'CANC'.
      CLEAR OK_CODE.
      LEAVE TO SCREEN 0.

*&解锁数据表：
      PERFORM FRM_UNLOCK USING SY-MANDT.

  ENDCASE.
ENDMODULE.                 " PAI_EXIT_0100  INPUT

*&---------------------------------------------------------------------*
*&      Module  PAI_CHECK_DATA_0100  INPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE PAI_CHECK_DATA_0100 INPUT.
  DATA L_NHBM LIKE YTNAH-NHBM.
  DATA WA_ITAB LIKE GT_ITAB.

  IF GT_ITAB-NHMC  NE SPACE
     AND  GT_ITAB-SFZHM NE SPACE
     AND  GT_ITAB-ZHTA  NE SPACE.

*&G1 身份证重复性检查
    SELECT SINGLE  NHBM INTO L_NHBM
            FROM YTNAH
            WHERE SFZHM EQ GT_ITAB-SFZHM.
    IF SY-SUBRC EQ 0.
      MESSAGE E014 WITH '此身份证:' GT_ITAB-SFZHM '已对应农户:' L_NHBM.
      LEAVE TO SCREEN 0100.
    ENDIF.

* BREAK AD_CAIXIANG.
*&G2 身份证长度检查
    G_LINE = STRLEN( GT_ITAB-SFZHM ).
    IF G_LINE <> 18." AND G_LINE <> 15.
      MESSAGE E012 WITH '请输入18位身份证号码！' GT_ITAB-SFZHM.
    ENDIF.

    CHECK SY-SUBRC <> 0.

*&G3 身份证号码重复性检查：
    READ TABLE GT_ITAB INTO WA_TAB1 WITH KEY SFZHM = GT_ITAB-SFZHM.
    IF SY-SUBRC = 0.
      MESSAGE E012 WITH '身份证号码重复输入,请检查输入的身份证号码！' GT_ITAB-SFZHM.
    ENDIF.

   IF GT_ITAB-ZHTA NE 'A' AND GT_ITAB-ZHTA NE 'B'.
        MESSAGE E006 WITH '请输入农户状态信息，A代表正常，B代表不正常！'.

        "LEAVE TO SCREEN 0100 .
   ENDIF.

    CHECK SY-SUBRC <> 0.

    COLLECT GT_ITAB.

  ELSE.
    MESSAGE I006 WITH ' 请输入完整的农户信息进行保存！！！'.

  ENDIF.


  CHECK GT_ITAB-SFZHM  NE SPACE.
ENDMODULE.                 " PAI_CHECK_DATA_0100  INPUT


*&---------------------------------------------------------------------*
*&      Module  INIT_LISTBOX_0100  OUTPUT
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
MODULE INIT_LISTBOX_0100 OUTPUT.
  CLEAR VID.
  CLEAR VLIST.
  CLEAR WA_VALUE.
*&---下拉框设置
  MOVE 'GT_ITAB-ZHTA'  TO  VID.
  MOVE 'A'   TO   WA_VALUE-KEY.
  MOVE 'A' TO   WA_VALUE-TEXT.
  APPEND  WA_VALUE TO VLIST .

  MOVE 'GT_ITAB-ZHTA'  TO  VID.
  MOVE 'B'    TO   WA_VALUE-KEY.
  MOVE 'B' TO   WA_VALUE-TEXT.
  APPEND  WA_VALUE TO VLIST .

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = VID
      VALUES = VLIST.

ENDMODULE.                 " INIT_LISTBOX_0100  OUTPUT
**&---------------------------------------------------------------------*
**&      Module  INIT_LISTBOX_0100  OUTPUT
**&---------------------------------------------------------------------*
**       text
**----------------------------------------------------------------------*
*MODULE init_listbox_0100 OUTPUT.

*ENDMODULE.                 " INIT_LISTBOX_0100  OUTPUT

*&---------------------------------------------------------------------*
*&      Form  frm_delete_data
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_DELETE_DATA .

  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      TITLEBAR              = '确认'
      TEXT_QUESTION         = '要删除准备创建的农户信息吗？'
      TEXT_BUTTON_1         = '是'
      TEXT_BUTTON_2         = '否'
      DEFAULT_BUTTON        = '1'
      DISPLAY_CANCEL_BUTTON = ' '
      START_COLUMN          = 25
      START_ROW             = 6
      POPUP_TYPE            = 'ICON_MESSAGE_WARNING'
    IMPORTING
      ANSWER                = G_ANSWER
    EXCEPTIONS
      TEXT_NOT_FOUND        = 1
      OTHERS                = 2.
*& 维护时候农户信息的删除操作：
  CHECK G_ANSWER EQ  '1'.

 LOOP AT GT_ITAB INTO WA_TAB WHERE SEL = 'X'.

*& 删除内表数据：
    DELETE GT_ITAB WHERE "NHBM EQ WA_TAB-NHBM
                         SFZHM EQ WA_TAB-SFZHM
                     AND NHMC EQ WA_TAB-NHMC.
    IF SY-SUBRC EQ 0.
      MESSAGE S011 WITH '成功删除记录！'.
    ELSE.
      MESSAGE S011 WITH '删除记录失败！'.
    ENDIF.

  ENDLOOP.

*  stop.
  LEAVE TO SCREEN 0100.

ENDFORM.                    " frm_delete_data

*&---------------------------------------------------------------------*
*&      Form  FMR_CREA_DATA
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FMR_CREA_DATA .
  DATA: L_NUMBER(8).
  DATA :BEGIN OF LT_YTNAH OCCURS 0.
          INCLUDE STRUCTURE YTNAH.
  DATA: END OF LT_YTNAH.

  CLEAR: G_ANSWER.
  CALL FUNCTION 'POPUP_TO_CONFIRM'
    EXPORTING
      TITLEBAR              = '确认'
      TEXT_QUESTION         = '需要进行农户信息保存吗?'
      TEXT_BUTTON_1         = '是'
      TEXT_BUTTON_2         = '否'
      DEFAULT_BUTTON        = '1'
      DISPLAY_CANCEL_BUTTON = ' '
      START_COLUMN          = 25
      START_ROW             = 6
      POPUP_TYPE            = 'ICON_MESSAGE_WARNING'
    IMPORTING
      ANSWER                = G_ANSWER
    EXCEPTIONS
      TEXT_NOT_FOUND        = 1
      OTHERS                = 2.
  CHECK G_ANSWER EQ  '1'.

*&准备数据：
  LOOP AT GT_ITAB WHERE NHBM EQ SPACE OR NHBM EQ ' ' .

    CLEAR L_NUMBER.
*& 生成农户编码流水号：
    PERFORM FRM_NHBM_NO CHANGING L_NUMBER.
    MOVE: L_NUMBER TO GT_ITAB-NHBM,
          SY-MANDT TO GT_ITAB-MANDT.
    MOVE: SY-UZEIT TO GT_ITAB-CPUTM,
          SY-DATUM TO GT_ITAB-AEDAT,
          SY-UNAME TO GT_ITAB-USNAM.
    MOVE GT_ITAB TO LT_YTNAH.
    MODIFY GT_ITAB .
    APPEND LT_YTNAH.
    CLEAR GT_ITAB.

  ENDLOOP.

  MODIFY YTNAH FROM TABLE LT_YTNAH.

  IF SY-SUBRC EQ 0.
    COMMIT WORK.
    MESSAGE S012 WITH '成功更新记录:' G_LINES.
    LEAVE TO SCREEN 100.
  ELSE.
    ROLLBACK WORK.
    MESSAGE I011 WITH '更新失败!'.
    PERFORM FRM_UNLOCK USING  SY-MANDT.
    LEAVE TO SCREEN 0.
  ENDIF.

ENDFORM.                    " FMR_CREA_DATA

*&---------------------------------------------------------------------*
*&      Form  FRM_NAHU_NO
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_NHBM_NO  CHANGING H_NUMBER.

*&---获取农户编码流水号
  DATA: L_NUMBER(5).

  CALL FUNCTION 'NUMBER_GET_NEXT'
    EXPORTING
      NR_RANGE_NR             = '01'
      OBJECT                  = 'YH_MM_03'
    IMPORTING
      NUMBER                  = L_NUMBER
    EXCEPTIONS
      INTERVAL_NOT_FOUND      = 01
      NUMBER_RANGE_NOT_INTERN = 02
      OBJECT_NOT_FOUND        = 03
      QUANTITY_IS_0           = 04.

  IF SY-SUBRC NE 0.
    MESSAGE I011 WITH '产生对账流水吗失败!'.
    EXIT.
  ELSE.
    CONCATENATE S_NHSIG+3(3) L_NUMBER INTO H_NUMBER.
  ENDIF.

ENDFORM.                    " FRM_NAHU_NO

*&---------------------------------------------------------------------*
*&      Form  FRM_turn_page_300
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_TURN_PAGE_100 .

  CALL FUNCTION 'FI_CUST_SCROLL'
    EXPORTING
      I_INPUT = '1'
      I_LNFIR = TC_ITEM-TOP_LINE
      I_LNMAX = G_LINES
      I_LOOPC = G_COUNT
      I_OKCOD = SY-UCOMM
    IMPORTING
      E_LNFIR = TC_ITEM-TOP_LINE
    EXCEPTIONS
      OTHERS  = 1.

ENDFORM.                    " FRM_turn_page_300

*&---------------------------------------------------------------------*
*&      Form  FRM_UNLOCK
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_SY_MANDT  text
*----------------------------------------------------------------------*
FORM FRM_UNLOCK  USING H_MANDT.

  CALL FUNCTION 'DEQUEUE_EYTNAH'
    EXPORTING
      MODE_YTNAH     = 'E'
      MANDT          = H_MANDT
    EXCEPTIONS
      FOREIGN_LOCK   = 1
      SYSTEM_FAILURE = 2
      OTHERS         = 3.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

ENDFORM.                    " FRM_UNLOCK

*&---------------------------------------------------------------------*
*&      Form  FRM_CHECK_YTNAM
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM FRM_CHECK_YTNAM .

  DATA: BEGIN OF LT_YTNAM OCCURS 0,
        NHBM LIKE YTNAM-NHBM,
        END OF LT_YTNAM.

*& 删除数据时，需要检查要删除的数据在YTNAM表里面是否有条目：有的话，不允许删除：
 LOOP AT GT_CHANGE WHERE ZSEL <> SPACE.
    SELECT NHBM
           INTO TABLE LT_YTNAM
           FROM YTNAM
           WHERE NHBM = GT_CHANGE-NHBM.

   IF SY-SUBRC EQ 0.
     MESSAGE I012 WITH '此农户的商品对应关系信息已经存在,请检查!' GT_CHANGE-NHBM.
    " STOP.
   ENDIF.

ENDLOOP.

ENDFORM.                    " FRM_CHECK_YTNAM