fangkailove
fangkailove

SAP笔记-abap 银行对账功能开发

前一段时间花了几天重新设计了一下银行对账功能,其中用到了 abap 的 OO 事件处理方法,及alv 的一些用法和大家分享一下,这次的修改更贴合实际业务操作.

  doc 档下载:  http://fangkailove.download.csdn.net/银行对账功能-开发.doc

银行对账功能:

   功能简价:基本功能,导入银行对账单,企业明细账和银行明细账核对,打印余额调节表.

                 增加了一些辅助功能:对于第一次对账的科目允许单边确认,对账过程中调整银行对账单等...

  基本操作流程:

  • 1. 选择公司代码和对账科目
  • SAP笔记-abap 银行对账功能开发_第1张图片
  • 2. 新建或打开一个对账事务.
  • 3. 导入银行对账单(银行出具的科目明细账)
  • 4. 进行勾选对账,或自动逻辑对账

开发设计:

1.数据模型

 SAP笔记-abap 银行对账功能开发_第2张图片

 

程序源代码(不包含屏幕的设计)

 

 

 

*&------------------------------------------------------------------
*& PROGRAM NAME: Z_FI_ENH_003_V2 ( old name : Z_FI_ENH_003)
*& T-CODE:  (ZFIE003)
*& PORGRAM TYPE: REPORT
*& DESCRIPTION: 银行对帐功能
*&------------------------------------------------------------------
*& AUTHOR:  LONGXU
*& EMAIL:   [email protected]
*& DATE:    2009.03.12
*&------------------------------------------------------------------
*&
*&-------------------------------------------------------------------
*& Modification Log:
*& Version   Date        Author       DESCRIPTION     CHANGE REQUEST
*& -------- ----------  -----------  -------------  -----------------
*& V1.0      2008.3.15   longxu       初始设计
*& V1.1      2008.4.14   longxu       增加打印余调节表功能
*& V1.2      2008.4.23   longxu       修改自动对账逻辑(  按 票号 金额 全等 且不能为空 ).
*& V2.0      2009.3.12   longxu       重构功能并从命名 Z_FI_ENH_003_V2
*&
*&-------------------------------------------------------------------
*& REFRENCE OBJECT :
*& NAME                   TYPE                DESC
*& ---------------------  -----------------   -----------------------
*& ZFIE003_ACT            table               对账事务表
*& ZFIE003_BKDOC          table               银行对账单明细账
*& ZFIE003_EMAT           table               银行对账单已匹配
*& ZFIE003_BMAT           table               企业明细账已匹配
*& ZFIE003_ENMAT          table               银行对账单未匹配
*& ZFIE003_BNMAT          table               企业明细账未匹配
*& ZFIE003_ACTNO          号码对象             对账事务号
*& ZFIE003_DOCNO          号码对象             银行对账单行项号
*& ZFIE003_MATNO          号码对象             对账匹配确认号
*& ZFIE003_S_NMAT         structure            余额调节表结构
*& ZFIE003_SM_NMAT        smartforms           余额调节表报表
*&
*&-------------------------------------------------------------------

Report  Z_FI_ENH_003_V2.

* ALV
TYPE-POOLS: slis.

CONSTANTS startDate type D VALUE '20090101'.

TABLES:ZFIE003_ENMAT,ZFIE003_BNMAT,ZFIE003_ACT,ZFIE003_BKDOC,ZFIE003_EMAT,ZFIE003_BMAT,SKB1,BSIS.


*Select Screen
PARAMETERS: p_BUKRS LIKE ZFIE003_ACT-BUKRS OBLIGATORY MEMORY ID buk ,"  CHAR  4 0 公司代码
            p_SAKNR LIKE ZFIE003_ACT-SAKNR OBLIGATORY.  " CHAR  10  0 总帐科目编号


"###############################

CLASS lcl_event_receiver DEFINITION DEFERRED.

DATA:i_ZFIE003_ACT LIKE TABLE OF ZFIE003_ACT WITH HEADER LINE.
DATA:wa_CurrentAct LIKE  LINE OF  i_ZFIE003_ACT.
DATA:wa_PreAct LIKE  LINE OF  i_ZFIE003_ACT.

DATA:i_ZFIE003_BKDOC LIKE TABLE OF ZFIE003_BKDOC WITH HEADER LINE.

"=======================
"Screen 150 variable
"=======================
DATA:FCODE_150 LIKE SY-UCOMM.

data: grid_150_1 type  ref to cl_gui_alv_grid,
      con_150_1 type ref to   cl_gui_custom_container.
"=============================================================

"=======================
"Screen 250 varialbe
"=======================
DATA:FCODE_250 LIKE SY-UCOMM.
data: grid_250_1 type  ref to cl_gui_alv_grid,
      grid_250_2 type  ref to cl_gui_alv_grid,
      con_250_1 type ref to   cl_gui_custom_container.

DATA splitter TYPE REF TO cl_gui_splitter_container.
DATA container_1 TYPE REF TO cl_gui_container.
DATA container_2 TYPE REF TO cl_gui_container.

DATA: TBX_250_1 type  P  DECIMALS 2,
      TBX_250_2 TYPE   P  DECIMALS 2.
"=============================================================




data event_receiver type ref to lcl_event_receiver.

DATA: BEGIN OF I_BSIS OCCURS 0 .
      INCLUDE STRUCTURE  bsis.
DATA:   SELEC(1),
      END OF I_BSIS.



DATA:BEGIN OF I_EMAT OCCURS 0,
      MATNO LIKE  ZFIE003_EMAT-MATNO,
      ACTNO LIKE  ZFIE003_EMAT-ACTNO,

      BUKRS LIKE  ZFIE003_EMAT-BUKRS,
      GJAHR LIKE  ZFIE003_EMAT-GJAHR,
      BELNR LIKE  ZFIE003_EMAT-BELNR,
      BUZEI LIKE  ZFIE003_EMAT-BUZEI,

      MONAT LIKE  BSIS-MONAT,
      BLDAT LIKE  BSIS-BLDAT,
      BUDAT LIKE  BSIS-BUDAT,
      SHKZG LIKE  BSIS-SHKZG,
      DMBTR LIKE  BSIS-DMBTR,
      WAERS LIKE  BSIS-WAERS,
      WRBTR LIKE  BSIS-WRBTR,
      SGTXT LIKE  BSIS-SGTXT,
      ZUONR LIKE  BSIS-ZUONR,

      SELEC LIKE  ZFIE003_BKDOC-SELEC,
     END OF I_EMAT.


DATA:BEGIN OF I_BMAT OCCURS 0,
      MATNO LIKE  ZFIE003_BMAT-MATNO,

      ACTNO LIKE  ZFIE003_BMAT-ACTNO,
      DOCNO LIKE  ZFIE003_BMAT-DOCNO,

      BLDAT LIKE  ZFIE003_BKDOC-BLDAT,
      SHKZG LIKE  ZFIE003_BKDOC-SHKZG,
      DMBTR LIKE  ZFIE003_BKDOC-DMBTR,
      BALAC LIKE  ZFIE003_BKDOC-BALAC,
      WAERS LIKE  ZFIE003_BKDOC-WAERS,
      BKITM LIKE  ZFIE003_BKDOC-BKITM,
      PINFO LIKE  ZFIE003_BKDOC-PINFO,
      SDOCNO  LIKE  ZFIE003_BKDOC-SDOCNO,

      SELEC LIKE  ZFIE003_BKDOC-SELEC,

     END OF I_BMAT.





"$ Region Class Definition and implementation

****************************************************************
* LOCAL CLASSES: Definition
****************************************************************
*===============================================================
* class lcl_event_receiver: local class to
*                         define and handle own functions.
*
* Definition:
* ~~~~~~~~~~~
CLASS lcl_event_receiver DEFINITION.

  PUBLIC SECTION.

    CLASS-METHODS  grid_250_1_toolbar     FOR EVENT toolbar OF cl_gui_alv_grid
        IMPORTING e_object e_interactive.

    CLASS-METHODS  grid_250_1_user_command  FOR EVENT user_command OF cl_gui_alv_grid
              IMPORTING e_ucomm.


    CLASS-METHODS  grid_250_2_toolbar  FOR EVENT toolbar OF cl_gui_alv_grid
            IMPORTING e_object e_interactive.

    CLASS-METHODS  grid_250_2_user_command  FOR EVENT user_command OF cl_gui_alv_grid
              IMPORTING e_ucomm.





    CLASS-METHODS  handle_menu_button   FOR EVENT menu_button OF cl_gui_alv_grid
            IMPORTING e_object e_ucomm.

    CLASS-METHODS  handle_user_after_user_command   FOR EVENT after_user_command OF cl_gui_alv_grid.

    CLASS-METHODS  handle_user_befor_user_command   FOR EVENT before_user_command OF cl_gui_alv_grid.

    CLASS-METHODS  Handle_data_changed  FOR EVENT data_changed OF cl_gui_alv_grid
         IMPORTING er_data_changed.



  PRIVATE SECTION.

ENDCLASS.
*
* lcl_event_receiver (Definition)
*===============================================================

****************************************************************
* LOCAL CLASSES: Implementation
****************************************************************
*===============================================================
* class lcl_event_receiver (Implementation)
*
*
CLASS lcl_event_receiver IMPLEMENTATION.


METHOD grid_250_1_toolbar.
    data:gs_toolbar  TYPE stb_button.
    data:icount type i.

    IF wa_CurrentAct-EDDAT <> '00000000'.
          "MESSAGE '当前事务已经被关账过,不可再修改！' type 'E'.
          EXIT.
    ENDIF.

    DESCRIBE TABLE i_ZFIE003_ACT LINES icount.
    IF icount > 1.
      "MESSAGE '当前不是第一次对账,不能无条件单边确认' type 'E'.
      EXIT.
    ENDIF.


    CLEAR gs_toolbar.
    MOVE 'IniMat' TO gs_toolbar-function.

    MOVE ICON_TRANSPORT TO gs_toolbar-icon.
    MOVE '无条件企业单边确认'(200) TO gs_toolbar-quickinfo.

    MOVE space TO gs_toolbar-disabled.
    APPEND gs_toolbar TO e_object->mt_toolbar.



  ENDMETHOD.

 METHOD grid_250_1_user_command.
   CASE e_ucomm.
      WHEN 'IniMat'.

      data: f_MATNO like ZFIE003_EMAT-MATNO.
      data: wa_BSIS LIKE LINE OF I_BSIS.

      CALL  FUNCTION 'NUMBER_GET_NEXT'
        EXPORTING
          NR_RANGE_NR         = '01'
          OBJECT          = 'ZSN_MATNO'
          QUANTITY          = '1'
        IMPORTING
          NUMBER          = f_MATNO
        EXCEPTIONS
          INTERVAL_NOT_FOUND    = 1
          NUMBER_RANGE_NOT_INTERN = 2
          OBJECT_NOT_FOUND      = 3
          QUANTITY_IS_0       = 4
          QUANTITY_IS_NOT_1     = 5
          INTERVAL_OVERFLOW     = 6
          BUFFER_OVERFLOW       = 7
          OTHERS          = 8.
      IF SY-SUBRC NE 0.
         MESSAGE '取对账成功确认号错误！' type 'E'.
        EXIT.
      ENDIF.

      LOOP AT I_BSIS INTO wa_BSIS WHERE SELEC = 'X'.
         ZFIE003_EMAT-MATNO = f_MATNO.
         ZFIE003_EMAT-ACTNO = wa_CurrentAct-ACTNO.
         ZFIE003_EMAT-BUKRS = wa_BSIS-BUKRS.
         ZFIE003_EMAT-GJAHR = wa_BSIS-GJAHR.
         ZFIE003_EMAT-BELNR = wa_BSIS-BELNR.
         ZFIE003_EMAT-BUZEI = wa_BSIS-BUZEI.
         INSERT INTO ZFIE003_EMAT VALUES ZFIE003_EMAT .
      ENDLOOP.


      IF sy-subrc <> 0.
         ROLLBACK WORK.
         exit.
       else.
         COMMIT WORK.
         PERFORM GetBsisFromDb.
         clear tbx_250_1.
         CALL METHOD grid_250_1->refresh_table_display.
      ENDIF.

    ENDCASE.
  ENDMETHOD.



  METHOD grid_250_2_toolbar.
** § 2.At event TOOLBAR define a toolbar element of type 1 by using
**     event paramenter E_OBJECT. Remember its function code.
**.......
** Part I: Define a menu button including a function code that
**         is evaluated in 'handle_MENU_BUTTON
**.......
*
*
** append a separator to normal toolbar
*    CLEAR gs_toolbar.
*    MOVE 3 TO gs_toolbar-butn_type.
*    APPEND gs_toolbar TO e_object->mt_toolbar.
*
**...................
** append a menu with default button (Type 1)
** The function code of the default button is the same as
** the one for the menu.
** If the user klicks on the default button ALV raises
** directly event BEFORE_USER_COMMAND
** (then USER_COMMAND, AFTER_USER_COMMAND).
** If the user klicks on the menu button ALV raises event MENU_BUTTON.
*

    data:gs_toolbar  TYPE stb_button.

    IF wa_CurrentAct-EDDAT <> '00000000'.
          "MESSAGE '当前事务已经被关账过,不可再修改！' type 'E'.
          EXIT.
    ENDIF.

    CLEAR gs_toolbar.
    MOVE 'DELETE' TO gs_toolbar-function.
* --> This function code is evaluated in 'handle_menu_button'
    MOVE ICON_DELETE_ROW TO gs_toolbar-icon.
    MOVE '删除选取中行'(200) TO gs_toolbar-quickinfo.
    "MOVE 1 TO gs_toolbar-butn_type.
    MOVE space TO gs_toolbar-disabled.
    APPEND gs_toolbar TO e_object->mt_toolbar.
  ENDMETHOD.

 METHOD grid_250_2_user_command.
   CASE e_ucomm.
      WHEN 'DELETE'.

        data: wa_ZFIE003_BKDOC like LINE OF i_ZFIE003_BKDOC.

        LOOP AT i_ZFIE003_BKDOC INTO wa_ZFIE003_BKDOC.
          IF wa_ZFIE003_BKDOC-selec = 'X'.
             DELETE FROM ZFIE003_BKDOC where docno = wa_ZFIE003_BKDOC-DocNO.
             "delete TABLE i_ZFIE003_BKDOC FROM wa_ZFIE003_BKDOC.
          ENDIF.
        ENDLOOP.

        PERFORM GetBKDocFromDb.
        clear tbx_250_2.
        CALL METHOD grid_250_2->refresh_table_display.

    ENDCASE.
  ENDMETHOD.                           "grid_250_2_user_command


*--------------------------------------------------------------------
  METHOD handle_user_after_user_command .
      "BREAK-POINT.
  ENDMETHOD.

  METHOD handle_user_befor_user_command .
      "BREAK-POINT.
  ENDMETHOD.

  METHOD handle_menu_button.
** § 3.At event MENU_BUTTON query your function code and define a
**     menu in the same way as a context menu.
**..........
** Part II: Evaluate 'e_ucomm' to see which menu button of the toolbar
**          has been clicked on.
**          Define then the corresponding menu.
**          The menu contains function codes that are evaluated
**          in 'grid_250_2_user_command'.
**...........
*
**  query e_ucomm to find out which menu button has been clicked on
*    IF e_ucomm = 'TO_SFLIGHT'.
*      CALL METHOD e_object->add_function
*                  EXPORTING fcode   = 'TO_SPFLI'
*                            text    = text-100. "Overview
**  § 3a.) choose a default function and define the same function code
**         as used for the menu.
*      CALL METHOD e_object->add_function
*                  EXPORTING fcode   = 'TO_SFLIGHT'
*                            text    = text-200. "Flights
*
*    ENDIF.
  ENDMETHOD.


 METHOD  handle_data_changed.
  "BREAK-POINT.
 ENDMETHOD.

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









ENDCLASS.
*
* lcl_event_receiver (Implementation)
*===================================================================
"$ Endregion Class Definition and implementation






"$ Region Main proc
START-OF-SELECTION.
 IF sy-UNAME = 'HS014'.
   data: clear(5).
   "重新初始化对账系统可以进入调试模式 将 clear 值设为 'HS014'.
   BREAK-POINT.
   IF clear = 'HS014'.
     PERFORM ClearAllUserTableData.
   ENDIF.
 ENDIF.
 SELECT SINGLE * FROM SKB1 WHERE BUKRS =  p_BUKRS AND SAKNR = p_SAKNR .

 IF sy-subrc <> 0.
    MESSAGE '科目不存在!' type 'I'.
 else.
   call screen '0150'.
 ENDIF.
"$ Endregion Main proc




"###############################
FORM ClearAllUserTableData.
*& ZFIE003_ACT            table               对账事务表
  delete from ZFIE003_ACT.
*& ZFIE003_BKDOC          table               银行对账单明细账
  delete from ZFIE003_BKDOC.
*& ZFIE003_EMAT           table               银行对账单已匹配
  delete from ZFIE003_EMAT.
*& ZFIE003_BMAT           table               企业明细账已匹配
  delete from ZFIE003_BMAT.
*& ZFIE003_ENMAT          table               银行对账单未匹配
  delete from ZFIE003_ENMAT.
*& ZFIE003_BNMAT          table               企业明细账未匹配
  delete from ZFIE003_BNMAT.
ENDFORM.




"###############################
"$ region screen 150
*********************************************

FORM S150_ALV_INI.

data: gt_fieldcat  type lvc_t_fcat.
data: gs_layout type lvc_s_layo.
data: gs_variant type disvariant.



  if con_150_1 is initial.
   create object con_150_1
   exporting container_name = 'CON_150_1'.
   create object grid_150_1
   exporting
   i_parent = con_150_1.
  endif.



  "定义grid格式
  clear gs_layout.
  gs_layout-smalltitle  = ''.
  gs_layout-grid_title  = ''.
  gs_layout-detailtitl  = '细节信息'(003).
  gs_layout-zebra   =  'X'."定义GRID的样式如斑马条式
  gs_layout-sel_mode  = 'B'.
  gs_layout-cwidth_opt  = 'X'.
  gs_layout-no_toolbar  = ''.
  "gs_layout-BOX_FNAME = 'MARK'.

  "定义列
  DATA: ls_fieldcat like line of gt_fieldcat.
  CLEAR gt_fieldcat[].

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ACTNO'.
  ls_fieldcat-coltext = 'ID'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BUKRS'.
  ls_fieldcat-coltext = '公司代码'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SAKNR'.
  ls_fieldcat-coltext = '总帐科目编号'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'STEXT'.
  ls_fieldcat-coltext = '科目描述'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BEDAT'.
  ls_fieldcat-coltext = '开启事务时间'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'EDDAT'.
  ls_fieldcat-coltext = '结束事务时间'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BUDAT'.
  ls_fieldcat-coltext = '对账截止日期'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ETBLC'.
  ls_fieldcat-coltext = '企业余额'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BKBLC'.
  ls_fieldcat-coltext = '银行余额'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'WAERS'.
  ls_fieldcat-coltext = '科目币别'.
  APPEND ls_fieldcat TO gt_fieldcat.

  gs_variant-report = sy-repid. "指定保存变式的程序名.
  call  method grid_150_1->set_table_for_first_display
     exporting
      is_variant    = gs_variant
      is_layout      =  gs_layout"采用自定义的格式
      I_SAVE = 'A'
      I_DEFAULT = 'X'

     changing
      it_outtab      =  i_ZFIE003_ACT[]
      it_fieldcatalog  = gt_fieldcat[].

ENDFORM.





FORM UpdateCurrentActToDB.

  UPDATE ZFIE003_ACT
    SET BUDAT = wa_CurrentAct-BUDAT
        EDDAT = wa_CurrentAct-EDDAT
        ETBLC = wa_CurrentAct-ETBLC
        BKBLC = wa_CurrentAct-BKBLC
  WHERE ACTNO = wa_CurrentAct-ACTNO.

ENDFORM.

FORM GetActorFromDB.
  SELECT * INTO TABLE I_ZFIE003_ACT FROM ZFIE003_ACT WHERE BUKRS = p_BUKRS AND SAKNR = p_SAKNR.
ENDFORM.

FORM CreateActor.

  "DATA: FACTNO LIKE I_ZFIE003_ACT-ACTNO.

  SELECT SINGLE *  FROM ZFIE003_ACT WHERE BUKRS = p_BUKRS AND SAKNR = p_SAKNR AND EDDAT = '00000000'.
  IF sy-subrc = 0.
    MESSAGE '科目已开启了一个对账事务' type 'E'.
    exit.
  ENDIF.

  data: l_answer.
    CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
      EXPORTING
        defaultoption = 'N'
        diagnosetext1 = '开启一个新的对账事物,'
        textline1     = '确定继续?'
        titel         = '询问'
      IMPORTING
        answer        = l_answer.

    IF l_answer <> 'J'.
      EXIT.
    ENDIF.

  CLEAR wa_CurrentAct.

  CALL  FUNCTION 'NUMBER_GET_NEXT'
   EXPORTING
     NR_RANGE_NR         = '01'
     OBJECT          = 'ZSN_ACTNO'
     QUANTITY          = '1'
   IMPORTING
     NUMBER          = wa_CurrentAct-ACTNO
   EXCEPTIONS
     INTERVAL_NOT_FOUND    = 1
     NUMBER_RANGE_NOT_INTERN = 2
     OBJECT_NOT_FOUND      = 3
     QUANTITY_IS_0       = 4
     QUANTITY_IS_NOT_1     = 5
     INTERVAL_OVERFLOW     = 6
     BUFFER_OVERFLOW       = 7
     OTHERS          = 8.
  IF SY-SUBRC NE 0.
    MESSAGE '取对账事务号错误！' type 'E'.
   EXIT.
  ENDIF.

  wa_CurrentAct-BUKRS = p_BUKRS.
  wa_CurrentAct-SAKNR = p_SAKNR.
  wa_CurrentAct-BUDAT = sy-datum.
  wa_CurrentAct-BEDAT = sy-datum.
  wa_CurrentAct-WAERS = SKB1-WAERS.

  select SINGLE TXT50 INTO wa_CurrentAct-STEXT from skat inner join t001 on t001~BUKRS = p_BUKRS and t001~KTOPL = skat~KTOPL where SAKNR = p_SAKNR AND skat~SPRAS = '1'.

  SELECT SINGLE * FROM SKB1 WHERE BUKRS =  p_BUKRS AND SAKNR = p_SAKNR .

  PERFORM GetAccountBalance USING wa_CurrentAct-bukrs
                                  wa_CurrentAct-SAKNR
                                  wa_CurrentAct-BUDAT
                                  wa_CurrentAct-WAERS
                         CHANGING wa_CurrentAct-ETBLC.

  MOVE wa_CurrentAct to ZFIE003_ACT.
  INSERT  ZFIE003_ACT.


  IF SY-SUBRC NE 0.
    ROLLBACK work.
  else.
    commit work.
  ENDIF.



  "todo 将上期未匹配数据 copy 到本次银行对账明细表中....
  DATA: preActNo like ZFIE003_ACT-ACTNO.
  data: lc type i.
  preActNo = 0.
  DESCRIBE TABLE i_ZFIE003_ACT lines lc.
  IF lc > 0.
    LOOP AT i_ZFIE003_ACT.
      IF preActNo < i_ZFIE003_ACT-ACTNO .
        preActNo = i_ZFIE003_ACT-ACTNO .
      ENDIF.
    ENDLOOP.
  ENDIF.

  CLEAR I_ZFIE003_BKDOC[].
  IF preActNo > 0.
    SELECT
      *
    INTO CORRESPONDING FIELDS OF TABLE I_ZFIE003_BKDOC
    FROM ZFIE003_BKDOC
    INNER JOIN ZFIE003_BNMAT ON ZFIE003_BKDOC~DOCNO = ZFIE003_BNMAT~DOCNO
    WHERE ZFIE003_BKDOC~ACTNO = preActNo.

    IF sy-subrc = 0.
      LOOP AT I_ZFIE003_BKDOC.
        I_ZFIE003_BKDOC-ACTNO = wa_CurrentAct-ACTNO.
         "取序号码
        CALL  FUNCTION 'NUMBER_GET_NEXT'
         EXPORTING
           NR_RANGE_NR         = '01'
           OBJECT          = 'ZSN_DOCNO'
           QUANTITY          = '1'
         IMPORTING
           NUMBER          = I_ZFIE003_BKDOC-DOCNO
         EXCEPTIONS
           INTERVAL_NOT_FOUND    = 1
           NUMBER_RANGE_NOT_INTERN = 2
           OBJECT_NOT_FOUND      = 3
           QUANTITY_IS_0       = 4
           QUANTITY_IS_NOT_1     = 5
           INTERVAL_OVERFLOW     = 6
           BUFFER_OVERFLOW       = 7
           OTHERS          = 8.
        IF SY-SUBRC NE 0.
          MESSAGE '取银行对账行号码错误！' type 'I'.
         EXIT.
        ENDIF.
        INSERT INTO ZFIE003_BKDOC VALUES I_ZFIE003_BKDOC.
      ENDLOOP.
    ENDIF.
  ENDIF.

  IF SY-SUBRC NE 0.
    ROLLBACK work.
  else.
    commit work.
  ENDIF.

ENDFORM.



FORM OpenActor.
  DATA:gi_index_rows TYPE lvc_t_row WITH HEADER LINE.
  DATA:l_lines type i.

  CALL METHOD grid_150_1->get_selected_rows
    IMPORTING
      et_index_rows = gi_index_rows[].
  DESCRIBE TABLE gi_index_rows LINES l_lines.
  IF l_lines = 0.
    MESSAGE '请选中一个对账事务！' type 'E'.
    EXIT.
  ENDIF.

  CLEAR wa_CurrentAct .
  READ TABLE gi_index_rows INDEX 1.
  READ TABLE I_ZFIE003_ACT INDEX  gi_index_rows-index into wa_CurrentAct .

  PERFORM GetBKDocFromDb.

  PERFORM GetBsisFromDb.

  IF wa_CurrentAct-EDDAT = '00000000'. "没结账前更新余额.
    PERFORM GetAccountBalance USING wa_CurrentAct-bukrs
                                    wa_CurrentAct-SAKNR
                                    wa_CurrentAct-BUDAT
                                    wa_CurrentAct-WAERS
                           CHANGING wa_CurrentAct-ETBLC.
    PERFORM UpdateCurrentActToDB.
  ENDIF.


ENDFORM.



FORM GetAccountBalance USING bukrs like i_ZFIE003_ACT-BUKRS
                             saknr like i_ZFIE003_ACT-SAKNR
                             budat like i_ZFIE003_ACT-BUDAT
                             WAERS like i_ZFIE003_ACT-WAERS
                       CHANGING rlt like i_ZFIE003_ACT-ETBLC.
  DATA: i_ACCOUNT_BALANCES  LIKE  BAPI3006_4 OCCURS 0.
  DATA: i_line LIKE LINE OF i_ACCOUNT_BALANCES.
  DATA: i_bsis like bsis OCCURS 0 WITH HEADER LINE.
  DATA: CURR LIKE BAPI3006_5-CURR_TYPE.
  DATA: count type i.
*
*
*  CALL FUNCTION 'BAPI_GL_ACC_GETPERIODBALANCES'
*     EXPORTING
*
*      COMPANYCODE   =  bukrs
*      GLACCT        =  saknr
*      FISCALYEAR    =  budat(4)
*      CURRENCYTYPE  =  '00'
*     TABLES
*      ACCOUNT_BALANCES = i_ACCOUNT_BALANCES.
*
*     DESCRIBE TABLE i_ACCOUNT_BALANCES LINES  count.
*
*     IF count = 0.
*        CALL FUNCTION 'BAPI_GL_ACC_GETPERIODBALANCES'
*           EXPORTING
*
*            COMPANYCODE   =  bukrs
*            GLACCT        =  saknr
*            FISCALYEAR    =  budat(4)
*            CURRENCYTYPE  =  '10'
*           TABLES
*            ACCOUNT_BALANCES = i_ACCOUNT_BALANCES.
*     ENDIF.
*
*
*     READ TABLE i_ACCOUNT_BALANCES INDEX  budat+4(2) INTO  i_line   .
*
*     IF sy-subrc <> 0.
*       exit.
*     ENDIF.
*
*     rlt = i_line-BALANCE.

     DATA: SPSWBT like bsis-PSWBT,
           HPSWBT LIKE bsis-PSWBT.

     IF WAERS = 'RMB'.
       select sum( dmbtr ) into SPSWBT  FROM bsis where bsis~bukrs = bukrs and bsis~HKONT = SAKNR and bsis~budat <= budat and bsis~SHKZG = 'S'.
       select sum( dmbtr ) into HPSWBT  FROM bsis where bsis~bukrs = bukrs and bsis~HKONT = SAKNR and bsis~budat <= budat and bsis~SHKZG = 'H'.
     ELSE.
       select sum( wrbtr ) into SPSWBT  FROM bsis where bsis~bukrs = bukrs and bsis~HKONT = SAKNR and bsis~budat <= budat and bsis~SHKZG = 'S'.
       select sum( wrbtr ) into HPSWBT  FROM bsis where bsis~bukrs = bukrs and bsis~HKONT = SAKNR and bsis~budat <= budat and bsis~SHKZG = 'H'.
     ENDIF.

*     LOOP AT i_bsis.
*       IF i_bsis-SHKZG = 'S'.
*         rlt = rlt - i_bsis-PSWBT .
*       ELSE.
*         rlt = rlt + i_bsis-PSWBT .
*       ENDIF.
*     ENDLOOP.

      rlt =  SPSWBT - HPSWBT .

ENDFORM.




DATA: f_bsis like bsis."  OCCURS 0 WITH HEADER LINE.
FORM LOOP_OUTPUT.

  MOVE-CORRESPONDING f_bsis to I_BSIS.
  IF I_BSIS-SHKZG = 'H'.
        I_BSIS-dmbtr = - I_BSIS-dmbtr.
        I_BSIS-wrbtr = - I_BSIS-wrbtr.
        modify table I_BSIS.
  ENDIF.
  APPEND I_BSIS.
ENDFORM.
FORM GetBsisFromDb.
  CLEAR I_BSIS[].

  IF wa_CurrentAct-EDDAT = '00000000'. "没结账前从bsis取数
    "对当前表检索出不存于另一表的数据 , 用open sql 效率较低,采用 native sql (oracle)
    EXEC SQL PERFORMING LOOP_OUTPUT.
      SELECT *
      INTO  :f_bsis
      FROM BSIS
      WHERE bsis.bukrs = :wa_CurrentAct-bukrs
        and bsis.HKONT = :wa_CurrentAct-SAKNR
        and bsis.budat <= :wa_CurrentAct-budat
        and bsis.budat >= :startDate
        and bsis.MANDT = :SY-MANDT
        and NOT EXISTS (select *
                        from ZFIE003_EMAT
                        where ZFIE003_EMAT.BUKRS = bsis.bukrs
                          and ZFIE003_EMAT.GJAHR = bsis.GJAHR
                          and ZFIE003_EMAT.BELNR = bsis.BELNR
                          and ZFIE003_EMAT.BUZEI = bsis.BUZEI
                          and ZFIE003_EMAT.MANDT = :SY-MANDT )
    ENDEXEC.
  ELSE.   " 关账后只取未核对数据表 zfie003_enmat
    "BREAK-POINT.
    EXEC SQL PERFORMING LOOP_OUTPUT.
      SELECT
        bsis.*
      INTO  :f_bsis
      FROM BSIS
      INNER JOIN ZFIE003_ENMAT ON ZFIE003_ENMAT.BUKRS = bsis.bukrs
                              and ZFIE003_ENMAT.GJAHR = bsis.GJAHR
                              and ZFIE003_ENMAT.BELNR = bsis.BELNR
                              and ZFIE003_ENMAT.BUZEI = bsis.BUZEI
                              and ZFIE003_ENMAT.MANDT = bsis.MANDT
                              and ZFIE003_ENMAT.ACTNO = :wa_CurrentAct-ActNO
                              and bsis.MANDT = :SY-MANDT

    ENDEXEC.

  ENDIF.
ENDFORM.



"DATA: f_bsis like bsis."  OCCURS 0 WITH HEADER LINE.
FORM LOOP_BKDOC.
  APPEND I_ZFIE003_BKDOC.
ENDFORM.
FORM GetBKDocFromDb.
  CLEAR I_ZFIE003_BKDOC[].
  "对当前表检索出不存于另一表的数据 , 用open sql 效率较低,采用 native sql (oracle)
  EXEC SQL PERFORMING LOOP_BKDOC.
    SELECT *
    INTO :I_ZFIE003_BKDOC
    FROM ZFIE003_BKDOC
    WHERE ZFIE003_BKDOC.ACTNO = :wa_CurrentAct-ACTNO
      and ZFIE003_BKDOC.MANDT = :SY-MANDT
      and NOT EXISTS (select *
                      from ZFIE003_BMAT
                      where ZFIE003_BMAT.ACTNO = :wa_CurrentAct-ACTNO
                        and ZFIE003_BMAT.DOCNO = ZFIE003_BKDOC.DOCNO
                        and ZFIE003_BMAT.MANDT = :SY-MANDT )
  ENDEXEC.

ENDFORM.



"PROCESS BEFORE OUTPUT.
 MODULE STATUS_0150 OUTPUT.
   set pf-status 'G150'.
   set TITLEBAR  'T150'.

   PERFORM GetActorFromDB .

   PERFORM S150_ALV_INI.



 ENDMODULE.






"PROCESS AFTER INPUT.
 MODULE USER_COMMAND_0150 INPUT.
  " BREAK-POINT.
  case  FCODE_150.
   when 'BACK'.
     Clear FCODE_150.
     LEAVE to screen 0 .
   when 'EXIT'.
     Clear FCODE_150.
     LEAVE PROGRAM.
   when 'CANCEL'.
     Clear FCODE_150.
     leave to screen 0 .
   WHEN 'NEW'.
     Clear FCODE_150.



     PERFORM CreateActor .
     PERFORM GetActorFromDB .
     CALL METHOD grid_150_1->refresh_table_display.


   When 'OPEN'.
     "BREAK-POINT.
     Clear FCODE_150.
     PERFORM OpenActor.

     call SCREEN '0250'.
     CALL METHOD grid_150_1->refresh_table_display.

  endcase.

 ENDMODULE.





"$ endregion  screen 150.
"###############################

"###############################
"$ Region screen 250

FORM RefreshSelectAmont.
    CALL METHOD grid_250_1->check_changed_data.
    CALL METHOD grid_250_2->check_changed_data.

    TBX_250_1 = 0.
    DATA: wa_BSIS LIKE LINE OF I_BSIS,
          wa_ZFIE003_BKDOC LIKE LINE OF I_ZFIE003_BKDOC.

    IF wa_CurrentAct-WAERS = 'RMB'.
      LOOP AT I_BSIS INTO wa_BSIS WHERE SELEC = 'X'.
        TBX_250_1 = TBX_250_1 + wa_BSIS-dmbtr.
      ENDLOOP.
    ELSE.
      LOOP AT I_BSIS INTO wa_BSIS WHERE SELEC = 'X'.
        TBX_250_1 = TBX_250_1 + wa_BSIS-wrbtr.
      ENDLOOP.
    ENDIF.

    TBX_250_2 = 0.
    LOOP AT  I_ZFIE003_BKDOC INTO wa_ZFIE003_BKDOC WHERE SELEC = 'X'.
       TBX_250_2 = TBX_250_2 + wa_ZFIE003_BKDOC-DMBTR.
    ENDLOOP.
ENDFORM.

"检查余额调节表是否平衡。
FORM CheckBalance CHANGING IsOK TYPE C.
    DATA: wa_BSIS LIKE LINE OF I_BSIS,
          wa_ZFIE003_BKDOC LIKE LINE OF I_ZFIE003_BKDOC.

    DATA: b1 type  P  DECIMALS 2, "企业余额
      b2 TYPE   P  DECIMALS 2.    "银行余额

    IF wa_CurrentAct-WAERS = 'RMB'.
      LOOP AT I_BSIS INTO wa_BSIS .
        b1 = b1 + wa_BSIS-dmbtr.
      ENDLOOP.
    ELSE.
      LOOP AT I_BSIS INTO wa_BSIS .
        b1 = b1 + wa_BSIS-wrbtr.
      ENDLOOP.
    ENDIF.

    b2 = 0.
    LOOP AT  I_ZFIE003_BKDOC INTO wa_ZFIE003_BKDOC .
       b2 = b2 + wa_ZFIE003_BKDOC-DMBTR.
    ENDLOOP.


    b1 = b1 + wa_CurrentAct-BKBLC. " 余业余额+企业未达
    b2 = b2 + wa_CurrentAct-ETBLC. " 银行余额_银行未达

    IsOK = ''.
    IF b1 = b2.
      IsOK = 'X'.
    ENDIF.
ENDFORM.





FORM S250_ALV_INI.

data: gt_fieldcat  type lvc_t_fcat.
data: gs_layout type lvc_s_layo.
data: gs_variant type disvariant.
data:gt_toolbar_excluding   Type  UI_FUNCTIONS.



  if con_250_1 is initial.
   create object con_250_1
   exporting container_name = 'CON_250_1'.

   CREATE OBJECT splitter
                  EXPORTING parent = con_250_1
                            rows    = 1
                            ALIGN = 15
                            columns = 2.

   CALL METHOD splitter->get_container
                      EXPORTING row      = 1
                                column   = 1
                      RECEIVING container = container_1.

   CALL METHOD splitter->get_container
                  EXPORTING row      = 1
                            column   = 2
                  RECEIVING container = container_2.


   create object grid_250_1
   exporting
   i_parent = container_1.

   create object grid_250_2
   exporting
   i_parent = container_2.





  "$ "$ Region grid1

  "定义 gird toolbar
  CLEAR gt_toolbar_excluding.
  APPEND:
          cl_gui_alv_grid=>MC_FC_PRINT               to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_LYSTYLE_DRAG_DROP_ROWS to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_LYSTYLE_NO_DELETE_ROWS to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_LYSTYLE_NO_INSERT_ROWS to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_TO_OFFICE to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_ABC    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_CHAIN    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_CRBATCH    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_CRWEB    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_LINEITEMS    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_MASTER_DATA    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_MORE    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_REPORT    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_XINT    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_XXL    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CHECK    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_MB_EXPORT    to gt_toolbar_excluding,

          cl_gui_alv_grid=>MC_FC_GRAPH     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_HELP     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_HTML     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_INFO     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_PC_FILE   to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_VIEWS   to gt_toolbar_excluding,

          cl_gui_alv_grid=>MC_FC_LOC_APPEND_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_COPY     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_COPY_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_CUT     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_DELETE_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_INSERT_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_MOVE_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_PASTE     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_PASTE_NEW_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_REFRESH    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_UNDO     to gt_toolbar_excluding
          .


 "定义grid格式
  clear gs_layout.
  gs_layout-smalltitle  = ''.
  gs_layout-grid_title  = ''.
  gs_layout-zebra   =  'X'."定义GRID的样式如斑马条式
  gs_layout-sel_mode  = 'B'.
  gs_layout-no_toolbar  = ''.
  gs_layout-NO_ROWMARK = 'X'.
  gs_layout-EDIT_MODE = ''.

  "定义列
  DATA: ls_fieldcat like line of gt_fieldcat.
  CLEAR gt_fieldcat[].

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SELEC'.
  ls_fieldcat-coltext = '选择'.
  ls_fieldcat-outputlen = 2.
  ls_fieldcat-checkbox = 'X'.
  "ls_fieldcat-input = 'X'.
  ls_fieldcat-edit = 'X'.

  APPEND ls_fieldcat TO gt_fieldcat.



  CONCATENATE sy-repid 'left' into   gs_variant-report  . "指定保存变式的程序名.
  call  method grid_250_1->set_table_for_first_display
     exporting
      is_variant    = gs_variant
      is_layout      =  gs_layout"采用自定义的格式
      it_toolbar_excluding = gt_toolbar_excluding
      i_structure_name = 'BSIS'
      I_SAVE = 'A'
      I_DEFAULT = 'X'

     changing
      it_outtab      =  i_bsis[]
      it_fieldcatalog  = gt_fieldcat[].
      .

 "$ Endregion grid1




  "$ "$ Region grid2

  "定义 gird toolbar
  CLEAR gt_toolbar_excluding.
  APPEND:
          cl_gui_alv_grid=>MC_FC_PRINT               to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_LYSTYLE_DRAG_DROP_ROWS to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_LYSTYLE_NO_DELETE_ROWS to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_LYSTYLE_NO_INSERT_ROWS to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_TO_OFFICE to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_ABC    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_CHAIN    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_CRBATCH    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_CRWEB    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_LINEITEMS    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_MASTER_DATA    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_MORE    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_REPORT    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_XINT    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_XXL    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CHECK    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_MB_EXPORT    to gt_toolbar_excluding,

          cl_gui_alv_grid=>MC_FC_GRAPH     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_HELP     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_HTML     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_INFO     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_PC_FILE   to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_VIEWS   to gt_toolbar_excluding,

          cl_gui_alv_grid=>MC_FC_LOC_APPEND_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_COPY     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_COPY_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_CUT     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_DELETE_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_INSERT_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_MOVE_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_PASTE     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_PASTE_NEW_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_REFRESH    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_UNDO     to gt_toolbar_excluding
          .



  "定义grid格式
  clear gs_layout.
  gs_layout-smalltitle  = ''.
  gs_layout-grid_title  = ''.
  gs_layout-zebra   =  'X'."定义GRID的样式如斑马条式
  gs_layout-sel_mode  = 'B'.
  gs_layout-no_toolbar  = ''.
  gs_layout-NO_ROWMARK = 'X'.
  gs_layout-EDIT_MODE = ''.


  "定义列


  CLEAR gt_fieldcat[].

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SELEC'.
  ls_fieldcat-coltext = '选择'.
  ls_fieldcat-outputlen = 2.
  ls_fieldcat-checkbox = 'X'.
  "ls_fieldcat-input = 'X'.
  ls_fieldcat-edit = 'X'.

  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'DOCNO'.
  ls_fieldcat-coltext = '行号'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ACTNO'.
  ls_fieldcat-coltext = '事务ID'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BLDAT'.
  ls_fieldcat-coltext = '日期'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SHKZG'.
  ls_fieldcat-coltext = '借方/贷方标识'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'DMBTR'.
  ls_fieldcat-coltext = '发生金额'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BALAC'.
  ls_fieldcat-coltext = '余额'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'WAERS'.
  ls_fieldcat-coltext = '货币'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BKITM'.
  ls_fieldcat-coltext = '传票号'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'PINFO'.
  ls_fieldcat-coltext = '对方信息'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SDOCNO'.
  ls_fieldcat-coltext = '复制行号'.
  APPEND ls_fieldcat TO gt_fieldcat.






  CONCATENATE sy-repid 'right' into   gs_variant-report  . "指定保存变式的程序名.
  call  method grid_250_2->set_table_for_first_display
     exporting
      is_variant    = gs_variant
      is_layout      =  gs_layout"采用自定义的格式
      it_toolbar_excluding = gt_toolbar_excluding

      I_SAVE = 'A'
      I_DEFAULT = 'X'


     changing
      it_outtab      =  i_ZFIE003_BKDOC[]
      it_fieldcatalog  = gt_fieldcat[].




  SET HANDLER event_receiver->grid_250_1_user_command
              event_receiver->grid_250_1_toolbar FOR  grid_250_1 .
  CALL METHOD grid_250_1->set_toolbar_interactive.

  SET HANDLER event_receiver->grid_250_2_user_command
              event_receiver->grid_250_2_toolbar FOR  grid_250_2 .
  CALL METHOD grid_250_2->set_toolbar_interactive.


 "$ Endregion grid2
  endif.

  IF sy-ucomm = 'OPEN'.
        clear tbx_250_1.
        clear tbx_250_2.
        CALL METHOD grid_250_1->refresh_table_display.
        CALL METHOD grid_250_2->refresh_table_display.
*    else.
*
*    DATA: l_valid(1) TYPE c.
*
*    CALL METHOD grid_250_1->check_changed_data
*      CHANGING
*            c_refresh = l_valid.
*    IF l_valid = 'X'.
*      CALL METHOD grid_250_1->refresh_table_display.
*    ENDIF.
*
*    CALL METHOD grid_250_2->check_changed_data
*      CHANGING
*            c_refresh = l_valid.
*    IF l_valid = 'X'.
*      CALL METHOD grid_250_2->refresh_table_display.
*    ENDIF.

    clear sy-ucomm.
  ENDIF.
ENDFORM.




*PROCESS BEFORE OUTPUT.
 MODULE STATUS_0250 OUTPUT.
   set pf-status 'G250'.
   set TITLEBAR  'T250'.
   PERFORM S250_ALV_INI.
 ENDMODULE.


*PROCESS AFTER INPUT.
 MODULE USER_COMMAND_0250 INPUT.

  "BREAK-POINT.

  case  FCODE_250.
   when 'BACK'.
     CLEAR FCODE_250.
     LEAVE to screen  0 .
   when 'EXIT'.
     CLEAR FCODE_250.
     LEAVE PROGRAM.
   when 'CANCEL'.
     CLEAR FCODE_250.
     LEAVE to screen  0 .

   when 'REFRESH'.
     CLEAR FCODE_250.
     PERFORM RefreshSelectAmont.

   when 'MAT'.
     CLEAR FCODE_250.
     IF wa_CurrentAct-EDDAT <> '00000000'.
        MESSAGE '当前事务已经被关账过,不可再修改！' type 'E'.
        EXIT.
     ENDIF.

     PERFORM RefreshSelectAmont.
     IF TBX_250_1 <> TBX_250_2.
       MESSAGE '选择的金额不匹配！' type 'E'.
     ELSE.
      data: f_MATNO like ZFIE003_EMAT-MATNO.
      data: wa_BSIS LIKE LINE OF I_BSIS.
      data: wa_ZFIE003_BKDOC LIKE LINE OF I_ZFIE003_BKDOC.

      CALL  FUNCTION 'NUMBER_GET_NEXT'
        EXPORTING
          NR_RANGE_NR         = '01'
          OBJECT          = 'ZSN_MATNO'
          QUANTITY          = '1'
        IMPORTING
          NUMBER          = f_MATNO
        EXCEPTIONS
          INTERVAL_NOT_FOUND    = 1
          NUMBER_RANGE_NOT_INTERN = 2
          OBJECT_NOT_FOUND      = 3
          QUANTITY_IS_0       = 4
          QUANTITY_IS_NOT_1     = 5
          INTERVAL_OVERFLOW     = 6
          BUFFER_OVERFLOW       = 7
          OTHERS          = 8.
      IF SY-SUBRC NE 0.
         MESSAGE '取对账成功确认号错误！' type 'E'.
        EXIT.
      ENDIF.

      LOOP AT I_BSIS INTO wa_BSIS WHERE SELEC = 'X'.
         ZFIE003_EMAT-MATNO = f_MATNO.
         ZFIE003_EMAT-ACTNO = wa_CurrentAct-ACTNO.
         ZFIE003_EMAT-BUKRS = wa_BSIS-BUKRS.
         ZFIE003_EMAT-GJAHR = wa_BSIS-GJAHR.
         ZFIE003_EMAT-BELNR = wa_BSIS-BELNR.
         ZFIE003_EMAT-BUZEI = wa_BSIS-BUZEI.
         insert ZFIE003_EMAT.
      ENDLOOP.

      LOOP AT I_ZFIE003_BKDOC INTO wa_ZFIE003_BKDOC.
         if wa_ZFIE003_BKDOC-SELEC = 'X'.
           ZFIE003_BMAT-MATNO = f_MATNO.
           ZFIE003_BMAT-ACTNO = wa_CurrentAct-ACTNO.
           ZFIE003_BMAT-DOCNO = wa_ZFIE003_BKDOC-DOCNO.
           insert ZFIE003_BMAT.
         endif.
      ENDLOOP.


      IF sy-subrc <> 0.
         ROLLBACK WORK.
         exit.
       else.
         COMMIT WORK.
         PERFORM GetBsisFromDb.
         PERFORM GetBKDocFromDb.
         clear tbx_250_1.
         clear tbx_250_2.
         CALL METHOD grid_250_1->refresh_table_display.
         CALL METHOD grid_250_2->refresh_table_display.
      ENDIF.
     ENDIF.

   when 'SMAT'.
     CLEAR FCODE_250.

     PERFORM GetMatFromDb.

     CALL SCREEN '0350'.

     PERFORM GetBsisFromDb.
     PERFORM GetBKDocFromDb.
     CALL METHOD grid_250_1->refresh_table_display.
     CALL METHOD grid_250_2->refresh_table_display.


   when 'UPL'.
     CLEAR FCODE_250.

     IF wa_CurrentAct-EDDAT <> '00000000'.
        MESSAGE '当前事务已经被关账过,不可再修改！' type 'E'.
        EXIT.
     ENDIF.

     call screen '0010' starting at 30 5 ending at 80 10.

     PERFORM GetBKDocFromDb.
     clear tbx_250_2.
     CALL METHOD grid_250_2->refresh_table_display.

  when 'SNMAT'.
    CLEAR FCODE_250.
    DATA: I_ZFIE003_S_NMAT LIKE ZFIE003_S_NMAT OCCURS 0 WITH HEADER LINE.
    DATA: wa_ZFIE003_S_NMAT LIKE LINE OF I_ZFIE003_S_NMAT,
          wa2_ZFIE003_S_NMAT LIKE LINE OF I_ZFIE003_S_NMAT.
    DATA: ln like ZFIE003_S_NMAT-LINNO,
          ln2 like ZFIE003_S_NMAT-LINNO.



    ln = 1.
*    IF wa_CurrentAct-EDDAT = '00000000'.
*        MESSAGE '当前事务未关账,最终打印余额调节表！' type 'W'.
*        "EXIT.
*    ENDIF.


    CLEAR I_ZFIE003_S_NMAT[].

    CLEAR wa2_ZFIE003_S_NMAT.
    wa2_ZFIE003_S_NMAT-TEXT_A = '调整后(银行存款)余额'.
    wa2_ZFIE003_S_NMAT-TEXT_B = '调整后(银行对账单)余额'.
    wa2_ZFIE003_S_NMAT-DMBTR_A = wa_CurrentAct-ETBLC.
    wa2_ZFIE003_S_NMAT-DMBTR_B = wa_CurrentAct-BKBLC.



    CLEAR I_ZFIE003_S_NMAT.
    I_ZFIE003_S_NMAT-LINNO = ln.
    I_ZFIE003_S_NMAT-TEXT_A = '银行存款日记账余额'.
    I_ZFIE003_S_NMAT-BLDAT  = wa_CurrentAct-BUDAT.
    I_ZFIE003_S_NMAT-DMBTR_A = wa_CurrentAct-ETBLC.
    I_ZFIE003_S_NMAT-TEXT_B = '银行对账单余额'.
    I_ZFIE003_S_NMAT-BUDAT  = wa_CurrentAct-BLDAT.
    I_ZFIE003_S_NMAT-DMBTR_B = wa_CurrentAct-BKBLC.
    APPEND I_ZFIE003_S_NMAT.
    ln = ln + 1.


    CLEAR I_ZFIE003_S_NMAT.
    CLEAR wa_ZFIE003_S_NMAT.
    I_ZFIE003_S_NMAT-LINNO = ln.
    I_ZFIE003_S_NMAT-TEXT_A = '  加：银行已收,企业未收'.
    "I_ZFIE003_S_NMAT-BLDAT  = ''.
    I_ZFIE003_S_NMAT-DMBTR_A = 0.
    I_ZFIE003_S_NMAT-TEXT_B = '  加：企业已收,银行未收'.
    "I_ZFIE003_S_NMAT-BUDAT  = ''.
    I_ZFIE003_S_NMAT-DMBTR_B = 0.
    MOVE I_ZFIE003_S_NMAT to wa_ZFIE003_S_NMAT. "暂存,求了汇总后再添加

    ln = ln + 1.
    ln2 = ln.

    LOOP AT I_ZFIE003_BKDOC WHERE SHKZG = 'S'.
      CLEAR I_ZFIE003_S_NMAT.
      I_ZFIE003_S_NMAT-LINNO = ln.
      I_ZFIE003_S_NMAT-TEXT_A = I_ZFIE003_BKDOC-PINFO.
      I_ZFIE003_S_NMAT-BLDAT  = I_ZFIE003_BKDOC-BLDAT .
      I_ZFIE003_S_NMAT-DMBTR_A = I_ZFIE003_BKDOC-DMBTR.
      wa_ZFIE003_S_NMAT-DMBTR_A = wa_ZFIE003_S_NMAT-DMBTR_A + I_ZFIE003_S_NMAT-DMBTR_A.
      APPEND I_ZFIE003_S_NMAT.
      ln = ln + 1.
    ENDLOOP.

    LOOP AT I_BSIS WHERE SHKZG = 'S'.
      CLEAR I_ZFIE003_S_NMAT.
      IF ln2 < ln.
        READ TABLE I_ZFIE003_S_NMAT with key LINNO = ln2.
        "I_ZFIE003_S_NMAT-LINNO = ln2.
        I_ZFIE003_S_NMAT-TEXT_B = I_BSIS-SGTXT.
        I_ZFIE003_S_NMAT-BUDAT  = I_BSIS-BLDAT .
        I_ZFIE003_S_NMAT-DMBTR_B = I_BSIS-DMBTR.
        I_ZFIE003_S_NMAT-BELNR = I_BSIS-BELNR.
        I_ZFIE003_S_NMAT-BUZEI = I_BSIS-BUZEI.

        wa_ZFIE003_S_NMAT-DMBTR_B = wa_ZFIE003_S_NMAT-DMBTR_B + I_ZFIE003_S_NMAT-DMBTR_B.
        modify  I_ZFIE003_S_NMAT  TRANSPORTING TEXT_B BUDAT DMBTR_B BELNR BUZEI where LINNO = ln2 .
        ln2 = ln2 + 1.

      ELSE.
        I_ZFIE003_S_NMAT-LINNO = ln.
        I_ZFIE003_S_NMAT-TEXT_B = I_BSIS-SGTXT.
        I_ZFIE003_S_NMAT-BUDAT  = I_BSIS-BLDAT .
        I_ZFIE003_S_NMAT-DMBTR_B = I_BSIS-DMBTR.
        I_ZFIE003_S_NMAT-BELNR = I_BSIS-BELNR.
        I_ZFIE003_S_NMAT-BUZEI = I_BSIS-BUZEI.
        wa_ZFIE003_S_NMAT-DMBTR_B = wa_ZFIE003_S_NMAT-DMBTR_B + I_ZFIE003_S_NMAT-DMBTR_B.
        APPEND I_ZFIE003_S_NMAT.
        ln = ln + 1.
      ENDIF.

    ENDLOOP.

    wa2_ZFIE003_S_NMAT-DMBTR_A = wa2_ZFIE003_S_NMAT-DMBTR_A + wa_ZFIE003_S_NMAT-DMBTR_A.
    wa2_ZFIE003_S_NMAT-DMBTR_B = wa2_ZFIE003_S_NMAT-DMBTR_B + wa_ZFIE003_S_NMAT-DMBTR_B.
    move wa_ZFIE003_S_NMAT to I_ZFIE003_S_NMAT.
    APPEND I_ZFIE003_S_NMAT. "添加汇总行





    CLEAR I_ZFIE003_S_NMAT.
    CLEAR wa_ZFIE003_S_NMAT.
    I_ZFIE003_S_NMAT-LINNO = ln.
    I_ZFIE003_S_NMAT-TEXT_A = '  减：银行已付,企业未付'.
    "I_ZFIE003_S_NMAT-BLDAT  = ''.
    I_ZFIE003_S_NMAT-DMBTR_A = 0.
    I_ZFIE003_S_NMAT-TEXT_B = '  减：企业已付,银行未付'.
    "I_ZFIE003_S_NMAT-BUDAT  = ''.
    I_ZFIE003_S_NMAT-DMBTR_B = 0.
    MOVE I_ZFIE003_S_NMAT to wa_ZFIE003_S_NMAT. "暂存,求了汇总后再添加

    ln = ln + 1.
    ln2 = ln.

    LOOP AT I_ZFIE003_BKDOC WHERE SHKZG = 'H'.
      CLEAR I_ZFIE003_S_NMAT.
      I_ZFIE003_S_NMAT-LINNO = ln.
      I_ZFIE003_S_NMAT-TEXT_A = I_ZFIE003_BKDOC-PINFO.
      I_ZFIE003_S_NMAT-BLDAT  = I_ZFIE003_BKDOC-BLDAT .
      I_ZFIE003_S_NMAT-DMBTR_A = I_ZFIE003_BKDOC-DMBTR.
      wa_ZFIE003_S_NMAT-DMBTR_A = wa_ZFIE003_S_NMAT-DMBTR_A + I_ZFIE003_S_NMAT-DMBTR_A.
      APPEND I_ZFIE003_S_NMAT.
      ln = ln + 1.
    ENDLOOP.

    LOOP AT I_BSIS WHERE SHKZG = 'H'.
      CLEAR I_ZFIE003_S_NMAT.
      IF ln2 < ln.
        READ TABLE I_ZFIE003_S_NMAT with key LINNO = ln2.
        "I_ZFIE003_S_NMAT-LINNO = ln2.
        I_ZFIE003_S_NMAT-TEXT_B = I_BSIS-SGTXT.
        I_ZFIE003_S_NMAT-BUDAT  = I_BSIS-BLDAT .
        I_ZFIE003_S_NMAT-DMBTR_B = I_BSIS-DMBTR.
        I_ZFIE003_S_NMAT-BELNR = I_BSIS-BELNR.
        I_ZFIE003_S_NMAT-BUZEI = I_BSIS-BUZEI.

        wa_ZFIE003_S_NMAT-DMBTR_B = wa_ZFIE003_S_NMAT-DMBTR_B + I_ZFIE003_S_NMAT-DMBTR_B.
        modify  I_ZFIE003_S_NMAT  TRANSPORTING TEXT_B BUDAT DMBTR_B BELNR BUZEI where LINNO = ln2 .
        ln2 = ln2 + 1.

      ELSE.
        I_ZFIE003_S_NMAT-LINNO = ln.
        I_ZFIE003_S_NMAT-TEXT_B = I_BSIS-SGTXT.
        I_ZFIE003_S_NMAT-BUDAT  = I_BSIS-BLDAT .
        I_ZFIE003_S_NMAT-DMBTR_B = I_BSIS-DMBTR.
        I_ZFIE003_S_NMAT-BELNR = I_BSIS-BELNR.
        I_ZFIE003_S_NMAT-BUZEI = I_BSIS-BUZEI.
        wa_ZFIE003_S_NMAT-DMBTR_B = wa_ZFIE003_S_NMAT-DMBTR_B + I_ZFIE003_S_NMAT-DMBTR_B.
        APPEND I_ZFIE003_S_NMAT.
        ln = ln + 1.
      ENDIF.

    ENDLOOP.

    wa2_ZFIE003_S_NMAT-DMBTR_A = wa2_ZFIE003_S_NMAT-DMBTR_A + wa_ZFIE003_S_NMAT-DMBTR_A.
    wa2_ZFIE003_S_NMAT-DMBTR_B = wa2_ZFIE003_S_NMAT-DMBTR_B + wa_ZFIE003_S_NMAT-DMBTR_B.

    move wa_ZFIE003_S_NMAT to I_ZFIE003_S_NMAT.
    APPEND I_ZFIE003_S_NMAT. "添加汇总行

    wa2_ZFIE003_S_NMAT-LINNO = ln .
    move wa2_ZFIE003_S_NMAT to I_ZFIE003_S_NMAT.
    APPEND I_ZFIE003_S_NMAT. "添加汇总行

    sort I_ZFIE003_S_NMAT by LINNO.



    data:BUTXT like t001-BUTXT.

    select SINGLE BUTXT INTO BUTXT From T001 Where BUKRS = p_BUKRS.


*    DATA: FYEAR LIKE  BKPF-GJAHR,
*          FMONT LIKE BKPF-MONAT,
    data:       FM_NAME TYPE TDSFNAME.

*    FYEAR = p_BLDAT-HIGH+0(4).
*    FMONT = p_BLDAT-HIGH+4(2).

    CALL  FUNCTION 'SSF_FUNCTION_MODULE_NAME'
     EXPORTING
       FORMNAME       = 'ZFIE003_SM_NMAT'
     IMPORTING
       FM_NAME        = FM_NAME
     EXCEPTIONS
       NO_FORM        = 1
       NO_FUNCTION_MODULE = 2
       OTHERS       = 3.
    CASE  SY-SUBRC.
     WHEN 0.
       CALL FUNCTION FM_NAME
       EXPORTING
         STEXT      = wa_CurrentAct-STEXT
         MT         = wa_CurrentAct-BUDAT(6)
         BUTXT      = BUTXT
       TABLES
         NMAT      = I_ZFIE003_S_NMAT
       EXCEPTIONS
         FORMATTING_ERROR   = 1
         INTERVAL_ERROR   = 2
         SEND_ERROR     = 3
         USER_CANCELED    = 4
         MY_EXCEPTION     = 5
         OTHERS       = 6.
     WHEN OTHERS.
       MESSAGE  '窗体调用错误!' type 'E'.
    ENDCASE.

  when 'FINI'.
    CLEAR FCODE_250.


    IF wa_CurrentAct-EDDAT <> '00000000'.
      MESSAGE '当前事务已经被关账过,不可再关账！' type 'E'.
      EXIT.
    ENDIF.

    Data isok(1).
    PERFORM CheckBalance CHANGING isok.

    IF isok = ''.
      MESSAGE '余额调节表不平，请检查...！' type 'E'.
      EXIT.
    ENDIF.


    data:l_answer .
    CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE'
      EXPORTING
        defaultoption = 'N'
        diagnosetext1 = '对当前事务关账,'
        textline1     = '确定继续?'
        titel         = '询问'
      IMPORTING
        answer        = l_answer.

    IF l_answer <> 'J'.
      EXIT.
    ENDIF.

    LOOP AT I_BSIS.
      CLEAR ZFIE003_ENMAT.

      ZFIE003_ENMAT-ACTNO = wa_CurrentAct-ACTNO.
      ZFIE003_ENMAT-BUKRS = I_BSIS-BUKRS.
      ZFIE003_ENMAT-GJAHR = I_BSIS-GJAHR.
      ZFIE003_ENMAT-BELNR = I_BSIS-BELNR.
      ZFIE003_ENMAT-BUZEI = I_BSIS-BUZEI.

      insert ZFIE003_ENMAT.

    ENDLOOP.

    LOOP AT I_ZFIE003_BKDOC.
      CLEAR ZFIE003_BNMAT.
      ZFIE003_BNMAT-ACTNO = wa_CurrentAct-ACTNO.
      ZFIE003_BNMAT-DOCNO = I_ZFIE003_BKDOC-DOCNO.
      INSERT ZFIE003_BNMAT.
    ENDLOOP.

    wa_CurrentAct-EDDAT = sy-datum.
    PERFORM  UpdateCurrentActToDB.

    IF sy-subrc = 0.
      COMMIT WORK.
    else.
      ROLLBACK WORK.
    ENDIF.
    CALL METHOD grid_250_1->refresh_table_display.
    CALL METHOD grid_250_2->refresh_table_display.

  ENDCASE.



 ENDMODULE.


 MODULE OnBudatChanged_0250 INPUT .

  IF FCODE_250 = 'OK'.
    CLEAR FCODE_250.


     IF wa_CurrentAct-EDDAT <> '00000000'.
        MESSAGE '当前事务已经被关账过,不可再修改！' type 'E'.
        EXIT.
     ENDIF.

    PERFORM GetAccountBalance USING wa_CurrentAct-bukrs
                                    wa_CurrentAct-SAKNR
                                    wa_CurrentAct-BUDAT
                                    wa_CurrentAct-WAERS
                           CHANGING wa_CurrentAct-ETBLC.


    PERFORM GetBsisFromDb.

    clear tbx_250_1.
    CALL METHOD grid_250_1->refresh_table_display.
    TBX_250_1 = 0.
    PERFORM UpdateCurrentActToDB.
  ENDIF.
 ENDMODULE.






"$ Endregion screen 250
"###############################


"###############################
"$ Region screen 0010
DATA:FCODE_010 LIKE SY-UCOMM.
DATA:TXT_FILEPATH TYPE  STRING.

FORM UpLoadBankDoc USING fileName TYPE STRING.
  data: sign(1) type c.
  data: isifr type  i value 0,
     zname(40) type c,
     kawrt_e like konv-kawrt,
     g_lfilename type string,
     isdel(1) type c.

  data: begin of I_BKDOC occurs  0,
      BLDAT   like ZFIE003_BKDOC-bldat,   " 日期
      DMBTR1  like ZFIE003_BKDOC-DMBTR,   " 借记金额
      DMBTR2  like ZFIE003_BKDOC-DMBTR,   " 贷记金额
      BALAC   like ZFIE003_BKDOC-BALAC,   " 余额
      WAERS   like ZFIE003_BKDOC-WAERS,   " 货币
      BKITM   like ZFIE003_BKDOC-BKITM,   " 传票号
      PINFO   like ZFIE003_BKDOC-PINFO,   " 对方信息
    end of I_BKDOC.

  data:  wa_ZFIE003_BKDOC  LIKE ZFIE003_BKDOC.



  call  function 'GUI_UPLOAD'
   exporting
     filename            = filename
     filetype            = 'ASC'
     has_field_separator       = 'X'
     ignore_cerr           = abap_false
   tables
     data_tab            =  I_BKDOC
   exceptions
     file_open_error         = 1
     file_read_error         = 2
     no_batch            = 3
     gui_refuse_filetransfer     = 4
     invalid_type          = 5
     no_authority          = 6
     unknown_error         = 7
     bad_data_format         = 8
     header_not_allowed      = 9
     separator_not_allowed     = 10
     header_too_long         = 11
     unknown_dp_error        = 12
     access_denied         = 13
     dp_out_of_memory        = 14
     disk_full           = 15
     dp_timeout          = 16
     others            = 17.
  if sy-subrc <> 0.
   message e899(bd) with
     '不能打开文件' fileName '.错误代码:' sy-subrc.
   EXIT.
  ENDIF.

"BREAK-POINT.
  LOOP  AT I_BKDOC.
   MOVE-CORRESPONDING I_BKDOC TO wa_ZFIE003_BKDOC.

   "取序号码
  CALL  FUNCTION 'NUMBER_GET_NEXT'
   EXPORTING
     NR_RANGE_NR         = '01'
     OBJECT          = 'ZSN_DOCNO'
     QUANTITY          = '1'
   IMPORTING
     NUMBER          = wa_ZFIE003_BKDOC-DOCNO
   EXCEPTIONS
     INTERVAL_NOT_FOUND    = 1
     NUMBER_RANGE_NOT_INTERN = 2
     OBJECT_NOT_FOUND      = 3
     QUANTITY_IS_0       = 4
     QUANTITY_IS_NOT_1     = 5
     INTERVAL_OVERFLOW     = 6
     BUFFER_OVERFLOW       = 7
     OTHERS          = 8.
  IF SY-SUBRC NE 0.
    MESSAGE '取银行对账行号码错误！' type 'E'.
   EXIT.
  ENDIF.

  wa_ZFIE003_BKDOC-SDOCNO = wa_ZFIE003_BKDOC-DOCNO.
  wa_ZFIE003_BKDOC-ACTNO  = wa_CurrentAct-ACTNO.


   IF I_BKDOC-DMBTR1 IS INITIAL AND NOT I_BKDOC-DMBTR2 IS INITIAL.
     wa_ZFIE003_BKDOC-DMBTR = I_BKDOC-DMBTR2.
     wa_ZFIE003_BKDOC-SHKZG = 'S'.
   ENDIF.
   IF I_BKDOC-DMBTR2 IS INITIAL AND NOT I_BKDOC-DMBTR1 IS INITIAL.
     wa_ZFIE003_BKDOC-DMBTR = I_BKDOC-DMBTR1 * ( -1 ).
     wa_ZFIE003_BKDOC-SHKZG = 'H'.
   ENDIF.



   MOVE wa_ZFIE003_BKDOC to ZFIE003_BKDOC.
   INSERT ZFIE003_BKDOC.

   AT LAST.
     wa_CurrentAct-BKBLC = wa_ZFIE003_BKDOC-BALAC.
     wa_CurrentAct-BLDAT = wa_ZFIE003_BKDOC-BLDAT.
     PERFORM UpdateCurrentActToDB.
   ENDAT.
  ENDLOOP.


  if sy-subrc = 0.

   commit work.
   free:wa_ZFIE003_BKDOC,ZFIE003_BKDOC,I_BKDOC,I_BKDOC[].
   MESSAGE '银行对账单导入成功！' type 'I'.
  else.
   rollback work.
  endif.
endform.




*PROCESS BEFORE OUTPUT.
 MODULE STATUS_0010 OUTPUT.
   set pf-status 'G010'.
 ENDMODULE.
*
*PROCESS AFTER INPUT.
 MODULE USER_COMMAND_0010 INPUT.
 "BREAK-POINT.
  case  FCODE_010.
   when 'OK'.
     PERFORM UpLoadBankDoc USING TXT_FILEPATH.
     CLEAR FCODE_010.
     LEAVE to screen  0 .
   when 'CANCEL'.
     CLEAR FCODE_010.
     LEAVE to screen  0 .
  ENDCASE.

 ENDMODULE.

module FilePath_F4_0010  input.
*将本地文件上载到服务器
  call  function 'WS_FILENAME_GET'
   exporting
     def_filename = ' '
     def_path   = ' '
     mask     = ',*.TXT.'
     mode     = 'O'
     title    = '银行对账单导入文件(txt)'
   importing
     filename   = TXT_FILEPATH
   exceptions
     others   = 1.
  check sy-subrc is initial.
endmodule.                 " FilePath_F4   INPUT








"$ Endregion screen 0010
"###############################


"###############################
"$ Region Screen 350

DATA:FCODE_350 like sy-ucomm.

data: grid_350_1 type  ref to cl_gui_alv_grid,
      grid_350_2 type  ref to cl_gui_alv_grid,
      con_350_1 type ref to   cl_gui_custom_container.

DATA splitter_350 TYPE REF TO cl_gui_splitter_container.
DATA container_350_1 TYPE REF TO cl_gui_container.
DATA container_350_2 TYPE REF TO cl_gui_container.



form GetMatFromDb .
     SELECT
      ZFIE003_EMAT~MATNO
      ZFIE003_EMAT~ACTNO
      ZFIE003_EMAT~BUKRS
      ZFIE003_EMAT~GJAHR
      ZFIE003_EMAT~BELNR
      ZFIE003_EMAT~BUZEI

      BSIS~MONAT
      BSIS~BLDAT
      BSIS~BUDAT
      BSIS~SHKZG
      BSIS~DMBTR
      BSIS~WAERS
      BSIS~WRBTR
      BSIS~SGTXT
      BSIS~ZUONR

     INTO CORRESPONDING FIELDS OF TABLE I_EMAT

     FROM BSIS
     INNER JOIN ZFIE003_EMAT ON  ZFIE003_EMAT~BUKRS = BSIS~BUKRS
                             AND ZFIE003_EMAT~GJAHR = BSIS~GJAHR
                             AND ZFIE003_EMAT~BELNR = BSIS~BELNR
                             AND ZFIE003_EMAT~BUZEI = BSIS~BUZEI
     WHERE ZFIE003_EMAT~ACTNO = wa_CurrentAct-ACTNO.


     LOOP AT I_EMAT.
        IF I_EMAT-SHKZG = 'H'.
          I_EMAT-dmbtr = - I_EMAT-dmbtr.
          I_EMAT-wrbtr = - I_EMAT-wrbtr.
          modify table I_EMAT.
        ENDIF.
     ENDLOOP.

     SELECT
      ZFIE003_BMAT~MATNO
      ZFIE003_BMAT~ACTNO
      ZFIE003_BMAT~DOCNO
      ZFIE003_BKDOC~BLDAT
      ZFIE003_BKDOC~SHKZG
      ZFIE003_BKDOC~DMBTR
      ZFIE003_BKDOC~BALAC
      ZFIE003_BKDOC~WAERS
      ZFIE003_BKDOC~BKITM
      ZFIE003_BKDOC~PINFO
      ZFIE003_BKDOC~SDOCNO
      ZFIE003_BKDOC~SELEC

     INTO CORRESPONDING FIELDS OF TABLE I_BMAT
     FROM ZFIE003_BMAT
     INNER JOIN ZFIE003_BKDOC ON ZFIE003_BMAT~ACTNO = ZFIE003_BKDOC~ACTNO
                         AND    ZFIE003_BMAT~DOCNO = ZFIE003_BKDOC~DOCNO
     WHERE ZFIE003_BMAT~ACTNO = wa_CurrentAct-ACTNO.



endform.                    " GetMatFromDb



FORM S350_ALV_INI.

data: gt_fieldcat  type lvc_t_fcat.
data: gs_layout type lvc_s_layo.
data: gs_variant type disvariant.
data: gt_toolbar_excluding   Type  UI_FUNCTIONS.



  if con_350_1 is initial.
   create object con_350_1
   exporting container_name = 'CON_350_1'.

   CREATE OBJECT splitter_350
                  EXPORTING parent = con_350_1
                            rows    = 1
                            columns = 2.
   CALL METHOD splitter_350->get_container
                      EXPORTING row      = 1
                                column   = 1
                      RECEIVING container = container_350_1.

   CALL METHOD splitter_350->get_container
                  EXPORTING row      = 1
                            column   = 2
                  RECEIVING container = container_350_2.


   create object grid_350_1
   exporting
   i_parent = container_350_1.

   create object grid_350_2
   exporting
   i_parent = container_350_2.

CLEAR gt_toolbar_excluding.
  APPEND:
          cl_gui_alv_grid=>MC_FC_PRINT               to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_LYSTYLE_DRAG_DROP_ROWS to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_LYSTYLE_NO_DELETE_ROWS to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_LYSTYLE_NO_INSERT_ROWS to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_TO_OFFICE to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_ABC    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_CHAIN    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_CRBATCH    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_CRWEB    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_LINEITEMS    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_MASTER_DATA    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_MORE    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_REPORT    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_XINT    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CALL_XXL    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_CHECK    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_MB_EXPORT    to gt_toolbar_excluding,

          cl_gui_alv_grid=>MC_FC_GRAPH     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_HELP     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_HTML     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_INFO     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_PC_FILE   to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_VIEWS   to gt_toolbar_excluding,

          cl_gui_alv_grid=>MC_FC_LOC_APPEND_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_COPY     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_COPY_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_CUT     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_DELETE_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_INSERT_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_MOVE_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_PASTE     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_PASTE_NEW_ROW     to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_REFRESH    to gt_toolbar_excluding,
          cl_gui_alv_grid=>MC_FC_LOC_UNDO     to gt_toolbar_excluding
          .




  "$ "$ Region grid1


 "定义grid格式
  clear gs_layout.
  gs_layout-smalltitle  = ''.
  gs_layout-grid_title  = ''.
  gs_layout-zebra   =  'X'."定义GRID的样式如斑马条式
  gs_layout-sel_mode  = 'B'.


  gs_layout-no_toolbar  = ''.


  gs_layout-NO_ROWMARK = 'X'.
  gs_layout-EDIT_MODE = ''.

  "定义列
  DATA: ls_fieldcat like line of gt_fieldcat.
  CLEAR gt_fieldcat[].

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SELEC'.
  ls_fieldcat-coltext = '选择'.
  ls_fieldcat-outputlen = 2.
  ls_fieldcat-checkbox = 'X'.
  "ls_fieldcat-input = 'X'.
  ls_fieldcat-edit = 'X'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'MATNO'.
  ls_fieldcat-coltext = '对账号'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BELNR'.
  ls_fieldcat-coltext = '凭证号'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BUZEI'.
  ls_fieldcat-coltext = '凭证行'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BLDAT'.
  ls_fieldcat-coltext = '凭证日期'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  IF wa_CurrentAct-WAERS = 'RMB'.
    ls_fieldcat-fieldname    = 'DMBTR'.
  ELSE.
    ls_fieldcat-fieldname    = 'WRBTR'.
  ENDIF.
  ls_fieldcat-coltext = '金额'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SGTXT'.
  ls_fieldcat-coltext = '文本'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ZUONR'.
  ls_fieldcat-coltext = '分配'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ACTNO'.
  ls_fieldcat-coltext = '事务号'.
  APPEND ls_fieldcat TO gt_fieldcat.

    CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BUKRS'.
  ls_fieldcat-coltext = '公司代码'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'GJAHR'.
  ls_fieldcat-coltext = '会计年度'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'MONAT'.
  ls_fieldcat-coltext = '期间'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BUDAT'.
  ls_fieldcat-coltext = '过账日期'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SHKZG'.
  ls_fieldcat-coltext = '借贷标识'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CONCATENATE sy-repid '350_left' into   gs_variant-report  . "指定保存变式的程序名.
  call  method grid_350_1->set_table_for_first_display
     exporting
      is_variant    = gs_variant
      is_layout      =  gs_layout"采用自定义的格式
      it_toolbar_excluding = gt_toolbar_excluding
      "i_structure_name = 'BSIS'
      I_SAVE = 'A'
      I_DEFAULT = 'X'

     changing
      it_outtab      =  I_EMAT[]
      it_fieldcatalog  = gt_fieldcat[].
      .

 "$ Endregion grid1




  "$ "$ Region grid2


  "定义grid格式
  clear gs_layout.
  gs_layout-smalltitle  = ''.
  gs_layout-grid_title  = ''.
  gs_layout-zebra   =  'X'."定义GRID的样式如斑马条式
  gs_layout-sel_mode  = 'B'.

  gs_layout-no_toolbar  = ''.

  gs_layout-NO_ROWMARK = 'X'.
  gs_layout-EDIT_MODE = ''.


  "定义列


  CLEAR gt_fieldcat[].

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SELEC'.
  ls_fieldcat-coltext = '选择'.
  ls_fieldcat-outputlen = 2.
  ls_fieldcat-checkbox = 'X'.
  "ls_fieldcat-input = 'X'.
  ls_fieldcat-edit = 'X'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'MATNO'.
  ls_fieldcat-coltext = '对账号'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BLDAT'.
  ls_fieldcat-coltext = '日期'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'DMBTR'.
  ls_fieldcat-coltext = '发生金额'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BKITM'.
  ls_fieldcat-coltext = '传票号'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'PINFO'.
  ls_fieldcat-coltext = '对方信息'.
  APPEND ls_fieldcat TO gt_fieldcat.



    CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'DOCNO'.
  ls_fieldcat-coltext = '行号'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'ACTNO'.
  ls_fieldcat-coltext = '事务ID'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'BALAC'.
  ls_fieldcat-coltext = '余额'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'WAERS'.
  ls_fieldcat-coltext = '货币'.
  APPEND ls_fieldcat TO gt_fieldcat.

  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SHKZG'.
  ls_fieldcat-coltext = '借方/贷方标识'.
  APPEND ls_fieldcat TO gt_fieldcat.


  CLEAR ls_fieldcat.
  ls_fieldcat-fieldname    = 'SDOCNO'.
  ls_fieldcat-coltext = '复制行号'.
  APPEND ls_fieldcat TO gt_fieldcat.






  CONCATENATE sy-repid '350_right' into   gs_variant-report  . "指定保存变式的程序名.
  call  method grid_350_2->set_table_for_first_display
     exporting
      is_variant    = gs_variant
      is_layout      =  gs_layout"采用自定义的格式
      it_toolbar_excluding = gt_toolbar_excluding

      I_SAVE = 'A'
      I_DEFAULT = 'X'


     changing
      it_outtab      =  I_BMAT[]
      it_fieldcatalog  = gt_fieldcat[].

 "$ Endregion grid2
  else.

   CALL METHOD grid_350_1->refresh_table_display.
  CALL METHOD grid_350_2->refresh_table_display.

  endif.




ENDFORM.



"PROCESS BEFORE OUTPUT.
 MODULE STATUS_0350 OUTPUT.
   set pf-status 'G350'.
   set TITLEBAR  'T350'.
   PERFORM S350_ALV_INI.
 ENDMODULE.


"PROCESS AFTER INPUT.
 MODULE USER_COMMAND_0350 INPUT.
  case  FCODE_350.
   when 'BACK'.
     Clear FCODE_350.
     LEAVE to screen 0 .
   when 'EXIT'.
     Clear FCODE_350.
     LEAVE PROGRAM.
   when 'CANCEL'.
     Clear FCODE_350.
     leave to screen 0 .
   WHEN 'DEMAT'.

      IF wa_CurrentAct-EDDAT <> '00000000'.
        MESSAGE '当前事务已经被关账过,不可再修改！' type 'E'.
        EXIT.
      ENDIF.

     CALL METHOD grid_350_1->check_changed_data.
     CALL METHOD grid_350_2->check_changed_data.

     LOOP AT I_BMAT WHERE SELEC = 'X'.
       delete from zfie003_bmat where matno = I_BMAT-MATNO.
       delete from zfie003_emat where matno = I_BMAT-MATNO.
     ENDLOOP.

     LOOP AT I_EMAT WHERE SELEC = 'X'.
       delete from zfie003_bmat where matno = I_EMAT-MATNO.
       delete from zfie003_emat where matno = I_EMAT-MATNO.
     ENDLOOP.


     PERFORM GetMatFromDb.
     CALL METHOD grid_350_1->refresh_table_display.
     CALL METHOD grid_350_2->refresh_table_display.


  endcase.
 ENDMODULE.


"$ Endregion Screen 350
"###############################

你可能感兴趣的:(command,user,layout,table,delete,SAP)

  • mysql连接池 persist_gd 数据库
    先建表createtableusers(idintnotnullauto_increment,namevarchar(50)notnull,primarykey(id))engine=innodbdefaultcharset=utf8;连接池importtimeimportpymysqlimportthreadingfromDBUtils.PooledDBimportPooledDB,Shared
  • 应学短视频App数据库表设计文档 2401_89285805 数据库
    |:-:|:-:|:-:|:-:|:-:|:-:|:-:|:-:|:-:||1|id|int|10|0|N|Y||||2|username|varchar|20|0|N|N||||3|password|varchar|20|0|N|N|||ROPTABLEIFEXISTSadmin;CREATETABLEadmin(idintNOTNULLAUTO_INCREMENT,usernamevarcha
  • Vue3项目el-table表格动态合并相同数据单元格(可指定列+自定义合并) KT553 vue.jsjavascript前端elementuihtml前端框架typescript
    一、先看效果：二、完整代码：import{reactive,onMounted}from'vue';//存放所有的表头一定要与tableData一致constcolFields=reactive(["city","name","life","ind","agr","eco"]);//存储合并单元格的开始位置constspanArr=reactive([]);//表格数据consttableData
  • 数据库管理语句分类 旦沐已成舟 数据库的日子数据库
    1.SQL语句概述它是一种对关系型数据库中的数据进行定义和操作的语言，是大多数关系数据库管理系统所支持的工业标准语言。1.2SQL语句的分类分类说明涉及语句DDL数据定义语言create(创建)，alter（修改），delete（删除）等DCL数据控制语言grant（授权），revoke（权限回收），commit（提交），rollback（回滚）DML数据操作语言insert，delete，upd
  • Linux下passwd、shadow各字段含义 weixin_33924220 操作系统shell
    /etc/passwd新建test用户[root@centos1~]#getentpasswdtest#getent查看passwd某个用户test:x:1015:1015:userinfo:/home/test:/bin/bash12345671、loginname：登录用名（test)2、passwd：密码(x)密码字段为x表示密码存在于shadow中可用pwunconv、pwconv修改，p
  • 后端学习1.4： Mybatis-plus配置多租户 Congee_porridge 后端开发学习mybatisjavaspringboot后端
    功能要求Mybatis-plus配置多租户。从header中的token获取租户信息；所有userController的数据库操作*不要*配置多租户，所有工作计划相关的数据库操作*需要*配置多租户，达成数据隔离。开发工具：IDEA技术：Springboot+MabtisPlus+Postman1、什么是多租户？多租户技术（多重租赁技术，简称saas），是一种软件架构技术；可以实现同一套程序下用户数
  • CMD批处理命令入门（7）——if 条件语句 跑不了的你 Windows驱动windowsddosmicrosoft
    CMD批处理命令入门（7）——if条件语句本章主要内容判断两个字符串是否相等判断两个数值是否相等判断判断驱动器，文件或文件夹是否存在，判断变量是否已经定义，判断上个命令的反回值，本章主要内容5种if语句的基本语法：判断两个字符串是否相等，if"字符串1"=="字符串2"command语句;判断两个数值是否相等，if数值1equ数值2command语句；判断判断驱动器，文件或文件夹是否存在，ifex
  • IDEA+Java+JSP+Mysql+Tomcat实现Web图书管理系统-添加管理员增删改查功能 omofun5541 javaintellij-ideamysql
    图书名称：图书价格：图书作者：出版公司：添加重置admin_delete.jsp删除图书欢迎您：安全退出admin_detail.jsp图书详情欢迎您：安全退出图书详情返回上一级图书编号图书名称图书价格图书作者图书封皮图书出版社图书列表admin_do_addbook.jsp处理新增图书欢迎您：安全退出admin_do_info.jsp书籍信息”);System.out.println(bookC
  • GaussDB数据库SQL系列-LOCK TABLE 关沵什么柿 数据库gaussdbsql
    一、前言GaussDB是一款高性能、高可用的分布式数据库，广泛应用于各类行业和场景。在GaussDB中，锁是实现并发控制的关键机制之一，用于协调多个事务之间的数据访问，确保数据的一致性和完整性。本文将围绕GaussDB数据库的LOCKTABLE做一简单介绍。二、GaussDB数据库的锁GaussDB提供了多种锁模式用于控制对表中数据的并发访问。这些模式可以用在MVCC（多版本并发控制）无法给出期望
  • postgrel执行VACUUM报VACUUM cannot run inside a transaction block dianzufa9403 数据库golangjava
    在python脚本里执行：1sql_gp1="VACUUMdwd_access_record_inout_temp"2sql_gp2="deletefromdwd_access_record_inout_temptwheret.indate>(selectnow()::timestamp-interval'36hour')"3conn=gputil.connect(logger,target_ho
  • MySQL面试题 2024 金九银十 最新 C# 高级 资深 DB 八股文 云草桑 .net面试sql数据库mysqlsqlnetc#
    最新mysql八股文chatgpt都能回答的问题，就没必要螺丝是往那边扭了。目录一、数据库知识（通用）篇1.说说drop、truncate、delete区别2.说说主键、外键、超键、候选键3.varchar和char的使用场景?4.什么叫视图？游标是什么？5.说说like%和-的区别6.为什么用自增列作为主键？7.说说非关系型数据库和关系型数据库区别，优势比较?8.说说存储过程的优缺点？9.什么是
  • 使用kubeadm搭建kubernetes单机master，亲测无异常(1) 2301_76238237 程序员kubernetes容器云原生
    sudocat/sys/class/dmi/id/product_uuid//每台机器的uuid不能相同ifconfig-a//ip不能相同2.开放端口|协议|方向|端口范围|作用|使用者||—|—|—|—|—||TCP|入站|6443|KubernetesAPI服务器|所有组件||TCP|入站|2379-2380|etcd服务器客户端API|kube-apiserver,etcd||TCP|入站
  • 25.01.15 SpringSecurity 授权 2401_87910368 笔记
    //准备工作在登录通过username查询用户时，把用户对应的角色即角色对应的菜单查出，//根据用户的角色rolerid来查询对应的菜单publicinterfaceAdminMenuDaoextendsBaseMapper{@Select("SELECTm.*FROMadmin_menum,rel_role_menurelWHEREm.mid=rel.midANDrel.rid=#{id}")L
  • 渗透测试之webshell 蚁剑 流量分析 特性分析 抓包分析 浩浩测试一下 网络安全安全系统安全web安全安全架构网络攻击模型
    目录蚁剑是什么特性简介：蚁剑流量特征两大特征流量分析分析UserAgent数据内容解码分析总结蚁剑是什么蚁剑(AntSword)是一款开源的跨平台WebShell管理工具特性简介：AntSword（蚁剑）是一款开源的网络安全工具，常用于网络渗透测试和攻击。它可以远程连接并控制被攻击计算机，执行命令、上传下载文件等操作。蚁剑与网站进行数据交互的过程中发送的数据是经过编码器编码后再发送支持的编码方式有
  • Vue Router 中如何获取路由传递过来的参数？ 晚夜微雨问海棠呀 面试题整理专题vue.jsjavascript前端
    在VueRouter中，可以通过多种方式获取路由传递过来的参数。以下是几种常见的方法：使用this.$route.params在组件中，可以通过this.$route.params来访问路由参数。例如，假设你有一个路由配置如下：constroutes=[{path:'/user/:id',component:UserComponent}];在UserComponent组件中，你可以这样获取id参数
  • Linux 如何使用parted进行磁盘分区？ linux
    简介Linux中的parted命令是一个用于创建、修改和管理磁盘分区的多功能工具。它支持传统的MBR（MasterBootRecord：主引导记录）和现代的GPT（GUIDPartitionTable：GUID分区表）分区方案。磁盘分区的主要原因最佳性能：正确管理分区可以提高系统的速度和响应性。例如，将操作系统文件从用户数据中分离出来，或者将频繁访问的数据放在磁盘上更快的部分上，都可以提高性能。数
  • MySql场景面试题：满意度调查分组去除最高最低求平均分 码到三十五 mysql高手mysqlspringbootspringcloud分布式数据分析数据挖掘
    ❃博主首页：「码到三十五」，同名公众号:「码到三十五」，wx号:「liwu0213」☠博主专栏：♝博主的话：搬的每块砖，皆为峰峦之基；公众号搜索「码到三十五」关注这个爱发技术干货的coder，一起筑基场景描述我们有一个员工满意度调查系统，数据库中有一张表：survey_scores表：存储员工对公司的满意度打分。表结构如下：--调查打分表CREATETABLEsurvey_scores(score
  • mybatis xml sql 媤纹琴獣 mybatisxmlsql
    1.mybatis根据某一个字段根据以及集合中的列表进行模糊匹配mapperListselectByLinkList(@Param("userId")StringuserId,@Param("messageName")StringmessageName,@Param("anJinGoodsNameList")ListanJinGoodsNameList,@Param("sjDate")Datesj
  • 使用Python开发SolidWorks API SolidWorksAPI SolidWorks二次开发SolidworksAPIpython
    使用Python开发SolidWorksAPI介绍本文介绍了如何使用Python与SolidWorksAPI进行交互，创建零件草图、特征及插入文本。我们将通过一个简单的示例，展示如何在SolidWorks中进行自动化操作，利用Python脚本创建一个带有矩形特征的零件，并向草图中插入文本。前提条件安装了SolidWorks和Python。配置了pywin32库来与SolidWorks进行交互。可以
  • Stable Diffusion 3(SD 3)模型分享 szboy2003 stablediffusion图像处理视觉检测AI作画
    整理了StableDiffusion3(SD3)模型，分享如下：sd3_medium.safetensors链接:https://pan.baidu.com/s/1aYq0MTmKj0U9fBNexV-7sw?pwd=5566提取码:5566sd3_medium_incl_clips_t5xxlfp8.safetensors链接:https://pan.baidu.com/s/1cg3zESBk0
  • 【shell脚本练习——判断文件是否存在、批量创建有规律用户并设置密码、判断文件大小并更改路径位置】 怎么昵称都被占用啊 练习RHCElinux运维
    shell脚本练习练习要求：练习一：判断文件是否存在练习二：批量创建有规律用户并设置密码随机字符部分内容解释：练习三：判断文件大小并更改路径位置练习要求：shell脚本写出检测/tmp/size.log文件如果存在显示它的内容，不存在则创建一个文件将创建时间写入写一个shell脚本,实现批量添加20个用户,用户名为user01-20,密码为user后面跟5个随机字符编写个shell脚本将/usr/
  • mysql开启gtid主从切换_Mysql 基于GTID的主从复制及切换 蕲艾唉啊 mysql开启gtid主从切换
    参考http://imysql.com/tag/gtidhttp://mysqllover.com/?p=594Mysql基于GTID的主从复制及切换一、主从复制配置两个mysql服务的my.cnf中相关内容配置[mysqld]#从复制数据库表设置replicate-wild-ignore-table=mysql.%,information_schema.%,innodb.%,innodb_log
  • MySQL 很重要的库 - 信息字典 shenghuiping2001 网络安全mysqladbandroidinformation
    在做owaspSQL注入的时候，有个很重要的库，那就是信息库:这个库就是:information_schema;（准确的说，数据字典)mysql>showdatabases;+--------------------+|Database|+--------------------+|information_schema|下面区这个库里面看看table：mysql>select*fromTABLES
  • javamail发( 收)邮件 sageparadise Javajavamailstringexception邮件服务器emailproperties
    MyAuthenticator.javapackagecn.com.vetc.survey.mail;importjavax.mail.Authenticator;importjavax.mail.PasswordAuthentication;publicclassMyAuthenticatorextendsAuthenticator{privateStringuserName=null;priv
  • MySQL备份还原（多种不同的方式备份还原） obboda 数据库
    一、mysqldump+binlog实现完全+增量备份1）素材准备：mysql>createdatabaseschool;QueryOK,1rowaffected(0.01sec)mysql>useschoolDatabasechangedmysql>CREATETABLE`Student`(->`Sno`int(10)NOTNULLCOMMENT'学号',`Sname`varchar(16)NO
  • Spring @Transactional注解失效场景重现 轻尘× SpringJava基础MysQL后端mysqljavaspring
    环境jdk1.8+springboot2.1.0.RELEASE+mysql8innerDB存储引擎正常在数据插入一条数据抛出checked异常@TransactionalpublicApiResultupdateUser(@RequestBodyUserParamsuser)throwsException{SysUsersysUser=newSysUser();sysUser.setUserNa
  • 《CPython Internals》阅读笔记：p177-p220 codists 读书笔记python
    《CPythonInternals》学习第11天，p177-p220总结，总计44页。一、技术总结1.memoryallocationinC(1)staticmemeoryallocationMemoryrequirementsarecalculatedatcompiletimeandallocatedbytheexecutablewhenitstarts.(2)automaticmemeorya
  • deepin下载mysql教程 deepinmysql
    官方下载Mysql8.2支持here解压到需要的文件夹去(建议放到/opt/mysql/mysql8)建立mysql的用户与组（groupaddmysql&&useradd-r-gmysqlmysql）创建软链接到系统中,后继服务与配置中会使用到cd/usr/local&&sudoln-s/opt/mysql/mysql8mysql8cd/usr/bin&&sudoln-s/opt/mysql/m
  • C++网络程序设计 0zxm c++网络stm32linux
    在C++网络编程中，使用BerkeleySocketsAPI是一种常见的方法来实现跨平台的TCP通信。BerkeleySocketsAPI最初是在UNIX系统上开发的，但它已经被广泛移植到其他操作系统，包括Windows。示例代码client.cpp#include#include#ifdef_WIN32#include#pragmacomment(lib,"ws2_32.lib")//Winso
  • rds mysql 8.0_新功能初探 | RDS MySQL 8.0 支持 DML 语句 returning 伊瓦的战士莱曼 rdsmysql8.0
    背景MySQL对于statement执行结果报文通常分为两类Resultset和OK/ERR，针对DML语句则返回OK/ERR报文，其中包括几个影响记录，扫描记录等属性。但在很多业务场景下，通常INSERT/UPDATE/DELETE这样的DML语句后，都会跟随SELECT查询当前记录内容，以进行接下来的业务处理，为了减少一次ClientDBServer交互，类似PostgreSQL/Oracle
  • HQL之投影查询 归来朝歌 HQLHibernate查询语句投影查询
            在HQL查询中，常常面临这样一个场景，对于多表查询，是要将一个表的对象查出来还是要只需要每个表中的几个字段，最后放在一起显示？ 针对上面的场景，如果需要将一个对象查出来： HQL语句写“from 对象”即可 Session session = HibernateUtil.openSession();
  • Spring整合redis bylijinnan redis
    pom.xml <dependencies> <!-- Spring Data - Redis Library --> <dependency> <groupId>org.springframework.data</groupId> <artifactId>spring-data-redi
  • org.hibernate.NonUniqueResultException: query did not return a unique result: 2 0624chenhong Hibernate
    参考：http://blog.csdn.net/qingfeilee/article/details/7052736 org.hibernate.NonUniqueResultException: query did not return a unique result: 2         在项目中出现了org.hiber
  • android动画效果 不懂事的小屁孩 android动画
    前几天弄alertdialog和popupwindow的时候，用到了android的动画效果，今天专门研究了一下关于android的动画效果，列出来，方便以后使用。 Android 平台提供了两类动画。 一类是Tween动画，就是对场景里的对象不断的进行图像变化来产生动画效果（旋转、平移、放缩和渐变）。 第二类就是 Frame动画，即顺序的播放事先做好的图像，与gif图片原理类似。
  • js delete 删除机理以及它的内存泄露问题的解决方案 换个号韩国红果果 JavaScript
    delete删除属性时只是解除了属性与对象的绑定，故当属性值为一个对象时，删除时会造成内存泄露  （其实还未删除） 举例： var person={name:{firstname:'bob'}} var p=person.name delete person.name p.firstname -->'bob' // 依然可以访问p.firstname，存在内存泄露
  • Oracle将零干预分析加入网络即服务计划 蓝儿唯美 oracle
    由Oracle通信技术部门主导的演示项目并没有在本月较早前法国南斯举行的行业集团TM论坛大会中获得嘉奖。但是，Oracle通信官员解雇致力于打造一个支持零干预分配和编制功能的网络即服务（NaaS）平台，帮助企业以更灵活和更适合云的方式实现通信服务提供商（CSP）的连接产品。这个Oracle主导的项目属于TM Forum Live!活动上展示的Catalyst计划的19个项目之一。Catalyst计
  • spring学习——springmvc（二） a-john springMVC
    Spring MVC提供了非常方便的文件上传功能。 1，配置Spring支持文件上传： DispatcherServlet本身并不知道如何处理multipart的表单数据，需要一个multipart解析器把POST请求的multipart数据中抽取出来，这样DispatcherServlet就能将其传递给我们的控制器了。为了在Spring中注册multipart解析器，需要声明一个实现了Mul
  • POJ-2828-Buy Tickets aijuans ACM_POJ
    POJ-2828-Buy Tickets http://poj.org/problem?id=2828 线段树，逆序插入 #include<iostream>#include<cstdio>#include<cstring>#include<cstdlib>using namespace std;#define N 200010struct
  • Java Ant build.xml详解 asia007 build.xml
    1,什么是antant是构建工具2,什么是构建概念到处可查到，形象来说，你要把代码从某个地方拿来，编译，再拷贝到某个地方去等等操作，当然不仅与此，但是主要用来干这个3,ant的好处跨平台   --因为ant是使用java实现的，所以它跨平台使用简单--与ant的兄弟make比起来语法清晰--同样是和make相比功能强大--ant能做的事情很多，可能你用了很久，你仍然不知道它能有
  • android按钮监听器的四种技术 百合不是茶 androidxml配置监听器实现接口
    android开发中经常会用到各种各样的监听器,android监听器的写法与java又有不同的地方;    1,activity中使用内部类实现接口 ,创建内部类实例  使用add方法  与java类似   创建监听器的实例 myLis lis = new myLis();   使用add方法给按钮添加监听器  
  • 软件架构师不等同于资深程序员 bijian1013 程序员架构师架构设计
            本文的作者Armel Nene是ETAPIX Global公司的首席架构师，他居住在伦敦，他参与过的开源项目包括 Apache Lucene,，Apache Nutch， Liferay 和 Pentaho等。         如今很多的公司
  • TeamForge Wiki Syntax & CollabNet User Information Center sunjing TeamForgeHow doAttachementAnchorWiki Syntax
    the CollabNet user information center http://help.collab.net/   How do I create a new Wiki page? A CollabNet TeamForge project can have any number of Wiki pages. All Wiki pages are linked, and
  • 【Redis四】Redis数据类型 bit1129 redis
    概述 Redis是一个高性能的数据结构服务器，称之为数据结构服务器的原因是，它提供了丰富的数据类型以满足不同的应用场景，本文对Redis的数据类型以及对这些类型可能的操作进行总结。 Redis常用的数据类型包括string、set、list、hash以及sorted set.Redis本身是K/V系统，这里的数据类型指的是value的类型，而不是key的类型，key的类型只有一种即string
  • SSH2整合-附源码 白糖_ eclipsespringtomcatHibernateGoogle
    今天用eclipse终于整合出了struts2+hibernate+spring框架。 我创建的是tomcat项目，需要有tomcat插件。导入项目以后，鼠标右键选择属性，然后再找到“tomcat”项，勾选一下“Is a tomcat project”即可。具体方法见源码里的jsp图片，sql也在源码里。     补充1：项目中部分jar包不是最新版的，可能导
  • [转]开源项目代码的学习方法 braveCS 学习方法
    转自： http://blog.sina.com.cn/s/blog_693458530100lk5m.html http://www.cnblogs.com/west-link/archive/2011/06/07/2074466.html   1）阅读features。以此来搞清楚该项目有哪些特性2）思考。想想如果自己来做有这些features的项目该如何构架3）下载并安装d
  • 编程之美-子数组的最大和（二维） bylijinnan 编程之美
    package beautyOfCoding; import java.util.Arrays; import java.util.Random; public class MaxSubArraySum2 { /** * 编程之美 子数组之和的最大值（二维） */ private static final int ROW = 5; private stat
  • 读书笔记-3 chengxuyuancsdn jquery笔记resultMap配置ibatis一对多配置
    1、resultMap配置 2、ibatis一对多配置 3、jquery笔记 1、resultMap配置 当<select resultMap="topic_data"> <resultMap id="topic_data">必须一一对应。 (1)<resultMap class="tblTopic&q
  • [物理与天文]物理学新进展 comsci
          如果我们必须获得某种地球上没有的矿石,才能够进行某些能量输出装置的设计和建造,而要获得这种矿石,又必须首先进行深空探测,而要进行深空探测,又必须获得这种能量输出装置,这个矛盾的循环,会导致地球联盟在与宇宙文明建立关系的时候,陷入困境       怎么办呢?  
  • Oracle 11g新特性:Automatic Diagnostic Repository daizj oracleADR
    Oracle Database 11g的FDI（Fault Diagnosability Infrastructure）是自动化诊断方面的又一增强。 FDI的一个关键组件是自动诊断库（Automatic Diagnostic Repository-ADR）。 在oracle 11g中，alert文件的信息是以xml的文件格式存在的，另外提供了普通文本格式的alert文件。 这两份log文
  • 简单排序:选择排序 dieslrae 选择排序
    public void selectSort(int[] array){ int select; for(int i=0;i<array.length;i++){ select = i; for(int k=i+1;k<array.leng
  • C语言学习六指针的经典程序，互换两个数字 dcj3sjt126com c
    示例程序，swap_1和swap_2都是错误的，推理从1开始推到2，2没完成，推到3就完成了 # include <stdio.h> void swap_1(int, int); void swap_2(int *, int *); void swap_3(int *, int *); int main(void) { int a = 3; int b =
  • php 5.4中php-fpm 的重启、终止操作命令 dcj3sjt126com PHP
    php 5.4中php-fpm 的重启、终止操作命令: 查看php运行目录命令：which php/usr/bin/php 查看php-fpm进程数：ps aux | grep -c php-fpm 查看运行内存/usr/bin/php  -i|grep mem 重启php-fpm/etc/init.d/php-fpm restart 在phpinfo()输出内容可以看到php
  • 线程同步工具类 shuizhaosi888 同步工具类
    同步工具类包括信号量（Semaphore）、栅栏（barrier）、闭锁（CountDownLatch）   闭锁（CountDownLatch） public class RunMain { public long timeTasks(int nThreads, final Runnable task) throws InterruptedException { fin
  • bleeding edge是什么意思 haojinghua DI
    不止一次，看到很多讲技术的文章里面出现过这个词语。今天终于弄懂了——通过朋友给的浏览软件，上了wiki。  我再一次感到，没有辞典能像WiKi一样，给出这样体贴人心、一清二楚的解释了。为了表达我对WiKi的喜爱，只好在此一一中英对照，给大家上次课。   In computer science, bleeding edge is a term that
  • c中实现utf8和gbk的互转 jimmee ciconvutf8&gbk编码
    #include <iconv.h> #include <stdlib.h> #include <stdio.h> #include <unistd.h> #include <fcntl.h> #include <string.h> #include <sys/stat.h> int code_c
  • 大型分布式网站架构设计与实践 lilin530 应用服务器搜索引擎
    1.大型网站软件系统的特点？ a.高并发，大流量。 b.高可用。 c.海量数据。 d.用户分布广泛，网络情况复杂。 e.安全环境恶劣。 f.需求快速变更，发布频繁。 g.渐进式发展。 2.大型网站架构演化发展历程？ a.初始阶段的网站架构。 应用程序，数据库，文件等所有的资源都在一台服务器上。 b.应用服务器和数据服务器分离。 c.使用缓存改善网站性能。 d.使用应用
  • 在代码中获取Android theme中的attr属性值 OliveExcel androidtheme
    Android的Theme是由各种attr组合而成, 每个attr对应了这个属性的一个引用, 这个引用又可以是各种东西.   在某些情况下, 我们需要获取非自定义的主题下某个属性的内容 (比如拿到系统默认的配色colorAccent), 操作方式举例一则: int defaultColor = 0xFF000000; int[] attrsArray = { andorid.r.
  • 基于Zookeeper的分布式共享锁 roadrunners zookeeper分布式共享锁
    首先，说说我们的场景，订单服务是做成集群的，当两个以上结点同时收到一个相同订单的创建指令，这时并发就产生了，系统就会重复创建订单。等等......场景。这时，分布式共享锁就闪亮登场了。   共享锁在同一个进程中是很容易实现的，但在跨进程或者在不同Server之间就不好实现了。Zookeeper就很容易实现。具体的实现原理官网和其它网站也有翻译，这里就不在赘述了。   官
  • 两个容易被忽略的MySQL知识 tomcat_oracle mysql
    1、varchar(5)可以存储多少个汉字，多少个字母数字？ 　　相信有好多人应该跟我一样，对这个已经很熟悉了，根据经验我们能很快的做出决定，比如说用varchar(200)去存储url等等，但是，即使你用了很多次也很熟悉了，也有可能对上面的问题做出错误的回答。 　　这个问题我查了好多资料，有的人说是可以存储5个字符，2.5个汉字（每个汉字占用两个字节的话），有的人说这个要区分版本，5.0
  • zoj 3827 Information Entropy(水题) 阿尔萨斯 format
    题目链接：zoj 3827 Information Entropy 题目大意：三种底，计算和。 解题思路：调用库函数就可以直接算了，不过要注意Pi = 0的时候，不过它题目里居然也讲了。。。limp→0+plogb(p)=0，因为p是logp的高阶。 #include <cstdio> #include <cstring> #include <cmath&
按字母分类： ABCDEFGHIJKLMNOPQRSTUVWXYZ其他