ABAP 客户报表

*&---------------------------------------------------------------------*
*& Report  ZSDR014
*&
*&---------------------------------------------------------------------*
*&程序名称：
*&事物代码：
*&导入模板：无
*&作者：
*&时间：
*&更新时间：
*&-------
REPORT zsdr014.
TABLES:kna1,knvv,knkk ,t001l.

DATA: gs_fcat TYPE lvc_s_fcat,
      gt_fcat TYPE lvc_t_fcat,
      gs_layo TYPE lvc_s_layo,
      gs_grid TYPE lvc_s_glay.
DATA: gt_event      TYPE slis_t_event WITH HEADER LINE,
      gt_event_exit TYPE slis_t_event_exit WITH HEADER LINE.

DATA:  ref_grid TYPE REF TO cl_gui_alv_grid .
DATA stbl TYPE lvc_s_stbl."ALV稳定刷新

TYPES: BEGIN OF ty_all,
         kunnr      LIKE  kna1-kunnr, "客户代码
         kunnr_name LIKE  kna1-name1, "客户名称
         bukrs      LIKE  knb1-bukrs, "公司
         bukrs_name LIKE  t001-butxt, "公司描述
         knkli      LIKE  knkk-knkli, "信贷账户

ktokd      LIKE  kna1-ktokd, "客户账目组
         ktokd_txt  LIKE  t077x-txt30, "客户账目组描述
         akont      LIKE  knb1-akont, "统驭科目
         akont_txt  LIKE  skat-txt50, "统驭科目描述
         stras      LIKE  kna1-stras, "地址
         tel_number LIKE  adr2-tel_number, "电话

ort01      LIKE  kna1-ort01, "城市
         stceg      LIKE  kna1-stceg, "增值税号
         vkorg      LIKE  knvv-vkorg, "销售组织
         vkorg_txt  LIKE  tvkot-vtext, "销售组织描述
         vtweg      LIKE  knvv-vtweg, "分销渠道
         vtweg_txt  LIKE  tvtwt-vtext, "分销渠道描述
         spart      LIKE  knvv-spart, "产品组
         spart_txt  LIKE  tspat-vtext, "产品组描述
         kukla      LIKE  kna1-kukla, "客户分类
         kukla_txt  LIKE  tkukt-vtext, "客户分类描述
         vkbur      LIKE  knvv-vkbur, "销售部门

vkbur_txt  LIKE  tvkbt-bezei, "销售部门描述
         vkgrp      LIKE  knvv-vkgrp, "销售组
         vkgrp_txt  LIKE  tvgrt-bezei, "销售组描述
         konda      LIKE  knvv-konda, "价格组
         konda_txt  LIKE  t188t-vtext, "价格组描述

kalks      LIKE  knvv-kalks, "定价过程
         kalks_txt  LIKE  tvkdt-vtext, "定价过程描述
         lprio      LIKE  knvv-lprio, "交货优先权
         lprio_txt  LIKE  tprit-bezei, "交货优先权描述

lzone      LIKE  kna1-lzone, "运输区域
         lzone_txt  LIKE  tzont-vtext, "运输区域描述
         kdgrp      LIKE  knvv-kdgrp, "客户组
         bzirk      LIKE  knvv-bzirk, "销售地区
         bzirk_txt  LIKE  t171t-bztxt, "销售地区描述

vwerk      LIKE  knvv-vwerk, "交货工厂
         vwerk_txt  LIKE  t001w-name1, "交货工厂描述
         lgort      LIKE  kna1-lgort, "交货仓库
         lgort_txt  LIKE  t001l-lgobe, "交换仓库描述
         zbatch     LIKE  kna1-zbatch, "客户批次

erdat_knvv LIKE  knvv-erdat, "客户系统创建日期
         erdat_vbak LIKE vbak-erdat, "最后下单日期
         vbeln      LIKE  vbak-vbeln, "最后下单号
         oeikw      LIKE  s066-oeikw, "未清销售订单

olikw      LIKE  s067-olikw, "未清交货单
         ofakw      LIKE  s067-ofakw, "未清开票

skfor      LIKE  knkk-skfor, "客户往来余额
         klimk      LIKE  knkk-klimk, "客户信用额度
         keyong     LIKE  s066-oeikw, "目前可用金额
         beizhu(30) TYPE c,
       END OF ty_all.

*TYPES:BEGIN OF ty_header,
*
*      END OF ty_header.
**单据抬头结束
*
**单据明细开始
*TYPES:BEGIN OF ty_items,
*
*      END OF ty_items.
**单据明细结束

DATA:wa_all TYPE ty_all,
     gt_all TYPE ty_all OCCURS 0.

*定义传入到smartforms的变量开始
DATA:fm_name TYPE rs38l_fnam.
DATA:itemsname(32) TYPE c.
DATA:headername(32) TYPE c.
*定义传入到smartforms的变量结束

"控制smartforms参数声明开始
DATA :control_parameters TYPE ssfctrlop.
"控制smartforms参数声明结束
SELECT-OPTIONS:
        p_kunnr FOR kna1-kunnr,
        p_ktokd FOR kna1-ktokd,
        p_vkorg FOR knvv-vkorg,
        p_vtweg FOR knvv-vtweg,
        p_bzirk FOR knvv-bzirk,
        p_vkbur FOR knvv-vkbur,
        p_vkgrp FOR knvv-vkgrp,
        p_konda FOR knvv-konda,
        p_lgort FOR t001l-lgort,
        p_zbatch FOR kna1-zbatch.

INITIALIZATION.

START-OF-SELECTION.

PERFORM getdata.
  PERFORM outdata.
FORM getdata.

TYPES: BEGIN OF ty_col ,"
           knkli LIKE  s066-knkli , "客户代码
           oeikw LIKE  s066-oeikw, "未清订单
         END OF ty_col.
  TYPES: BEGIN OF ty_col2 ,"
           knkli LIKE  s066-knkli , "客户代码

END OF ty_col2.

DATA : hs_col TYPE HASHED TABLE OF ty_col WITH UNIQUE KEY knkli WITH HEADER LINE .
  DATA:  hs_item TYPE STANDARD TABLE OF ty_col WITH HEADER LINE.
  DATA : hs_col2 TYPE HASHED TABLE OF ty_col2 WITH UNIQUE KEY knkli WITH HEADER LINE .
  DATA:BEGIN OF vbeln_erdat OCCURS 0 ,
         vbeln TYPE vbak-vbeln,
         erdat LIKE vbak-erdat,
       END OF vbeln_erdat.
  DATA: wa_vbeln_erdat LIKE LINE OF vbeln_erdat.
  SELECT *
    INTO CORRESPONDING FIELDS OF TABLE gt_all
    FROM kna1 AS ka1
    INNER JOIN knb1 AS kb
    ON  kb~kunnr = ka1~kunnr
    INNER JOIN knkk AS kk
    ON  ka1~kunnr = kk~kunnr
    INNER JOIN knvv AS kv
    ON  ka1~kunnr = kv~kunnr
    INNER JOIN s066 AS s6
    ON  s6~knkli = ka1~kunnr
    INNER JOIN s067 AS s7
    ON ka1~kunnr = s7~knkli
    INNER JOIN adr2 AS ad
    ON ad~addrnumber = ka1~adrnr AND ad~r3_user = '3'
    WHERE ka1~kunnr IN p_kunnr AND
          ka1~ktokd IN p_ktokd AND
          kv~vkorg IN p_vkorg AND
          kv~vtweg IN p_vtweg AND
          kv~bzirk IN p_bzirk AND
          kv~vkbur IN p_vkbur AND
          kv~vkgrp IN p_vkgrp AND
          kv~konda IN p_konda AND
          ka1
~lgort IN p_lgort AND
  ka1
~zbatch IN p_zbatch.

.
  
CLEAR wa_all.
  
LOOP AT gt_all INTO wa_all.

hs_col2

-knkli = wa_all-knkli.

COLLECT hs_col2.

ENDLOOP.

SELECT * INTO CORRESPONDING FIELDS OF TABLE hs_item
  
FROM s066.
  
LOOP AT hs_item.
    hs_col
-knkli = hs_item-knkli.
    hs_col
-oeikw = hs_item-oeikw.
    
COLLECT hs_col.
  
ENDLOOP.

CLEAR wa_all.
  
LOOP AT gt_all INTO wa_all.

"检查用户销售区域与分销渠道的权限
    
AUTHORITY-CHECK OBJECT 'V_VBAK_VKO'
    
ID 'VKORG' FIELD wa_all-vkorg
    
ID 'VTWEG' FIELD wa_all-vtweg
    
ID 'SPART' DUMMY
    
ID 'ACTVT' DUMMY."FIELD '03'.
    
IF sy-subrc NE 0.
      
"MESSAGE i001(00) WITH '没有销售组织' && wa_all-vkorg && '和分销渠道' && wa_all-vtweg && '的权限'.
      
DELETE TABLE gt_all FROM wa_all.
      
CONTINUE.
    
ENDIF.

SELECT SINGLE erdat INTO wa_all-erdat_knvv
      
FROM knvv
      
WHERE kunnr EQ wa_all-kunnr AND vkorg EQ wa_all-vkorg
    
AND  vtweg EQ wa_all-vtweg AND spart EQ wa_all-spart.
    
SELECT SINGLE name1 INTO wa_all-kunnr_name
      
FROM kna1
    
WHERE kunnr EQ wa_all-kunnr.

SELECT SINGLE butxt INTO wa_all-bukrs_name
      
FROM t001
    
WHERE bukrs EQ wa_all-bukrs.
    
SELECT SINGLE txt50 INTO wa_all-akont_txt
      
FROM skat
    
WHERE saknr EQ wa_all-akont.

SELECT SINGLE txt30 INTO wa_all-ktokd_txt
      
FROM t077x
    
WHERE ktokd EQ wa_all-ktokd.

SELECT SINGLE bztxt INTO wa_all-bzirk_txt
      
FROM t171t
    
WHERE bzirk EQ wa_all-bzirk.
    
SELECT SINGLE bezei INTO wa_all-vkbur_txt
      
FROM tvkbt
    
WHERE vkbur EQ wa_all-vkbur.

SELECT SINGLE bezei INTO wa_all-vkgrp_txt
      
FROM tvgrt
    
WHERE vkgrp EQ wa_all-vkgrp.

SELECT SINGLE vtext INTO wa_all-vkorg_txt
      
FROM tvkot
    
WHERE vkorg EQ wa_all-vkorg.

SELECT SINGLE vtext INTO wa_all-vtweg_txt
     
FROM tvtwt
    
WHERE vtweg EQ wa_all-vtweg.

SELECT SINGLE vtext INTO wa_all-spart_txt
     
FROM tspat
    
WHERE spart EQ wa_all-spart.

SELECT SINGLE vtext INTO wa_all-kukla_txt
     
FROM tkukt
    
WHERE kukla EQ wa_all-kukla.

SELECT SINGLE vtext INTO wa_all-konda_txt
      
FROM t188t
    
WHERE konda EQ wa_all-konda.

SELECT SINGLE vtext INTO wa_all-kalks_txt
      
FROM tvkdt
    
WHERE kalks EQ wa_all-kalks.

SELECT SINGLE bezei INTO wa_all-lprio_txt
      
FROM tprit
    
WHERE lprio EQ wa_all-lprio.

SELECT SINGLE vtext INTO wa_all-lzone_txt
      
FROM tzont
    
WHERE zone1 EQ wa_all-lzone.
    
SELECT SINGLE name1 INTO wa_all-vwerk_txt
      
FROM t001w
    
WHERE werks EQ wa_all-vwerk.

SELECT SINGLE lgobe INTO wa_all-lgort_txt
      
FROM t001l
    
WHERE werks EQ wa_all-vwerk AND lgort EQ wa_all-lgort.

SELECT vbeln   erdat INTO CORRESPONDING FIELDS OF TABLE vbeln_erdat
      
FROM vbak
    
WHERE kunnr EQ wa_all-kunnr   .
    
SORT vbeln_erdat DESCENDING BY erdat.
    
READ TABLE vbeln_erdat INTO wa_vbeln_erdat INDEX 1.

wa_all

-vbeln = wa_vbeln_erdat-vbeln.
    wa_all
-erdat_vbak = wa_vbeln_erdat-erdat.
    
CLEAR wa_vbeln_erdat.
    
CLEAR vbeln_erdat[].

READ TABLE hs_col  WITH KEY knkli = wa_all-kunnr.
    wa_all
-oeikw = hs_col-oeikw.
    wa_all
-keyong = wa_all-klimk - wa_all-skfor - wa_all-oeikw
                   
- wa_all-ofakw - wa_all-olikw.
    
MODIFY gt_all FROM wa_all.

ENDLOOP.

ENDFORM. " GETDATA

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

*& Form FIXDATA

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

FORM frm_catlg_set USING p_field p_text  p_key p_edit p_no_out
                      p_f4availabl   p_ref_table   p_ref_field  p_no_zero 
.
  gs_fcat
-fieldname   = p_field.
  gs_fcat
-reptext     = p_text.
  gs_fcat
-key         = p_key.
  gs_fcat
-edit        = p_edit.
  gs_fcat
-no_out      = p_no_out.
  gs_fcat
-ref_field   = p_ref_field.
  gs_fcat
-ref_table   = p_ref_table.
  gs_fcat
-f4availabl  = p_f4availabl.
  gs_fcat
-no_zero       = p_no_zero.

APPEND gs_fcat TO gt_fcat .
  
CLEAR gs_fcat .

ENDFORM. "frm_catlg_set

FORM fieldcat_init .
  
DATA: c(2)    TYPE n,txt(20) TYPE c .
  
PERFORM frm_catlg_set USING:
   
'kunnr' '客户代码' 'X' '' '' '' '' '' 'X',
    
'kunnr_name' '客户名称' 'X' '' '' '' '' '' '',
    
'bukrs' '公司' 'X' '' '' '' '' '' '',
    
'bukrs_name' '公司描述' 'X' '' '' '' '' '' '',
    
'knkli' '信贷账户' '' '' '' '' '' '' 'X',
    
'ktokd' '客户账目组' '' '' '' '' '' '' '',
    
'ktokd_txt' '客户账目组描述' '' '' '' '' '' '' '',
    
'akont' '统驭科目' '' '' '' '' '' '' '',
    
'akont_txt' '统驭科目描述' '' '' '' '' '' '' '',
    
'stras' '地址' '' '' '' '' '' '' '',
    
'tel_number' '电话' '' '' '' '' '' '' '',
    
'ort01' '城市' '' '' '' '' '' '' '',
    
'stceg' '增值税号' '' '' '' '' '' '' '',
    
'vkorg' '销售组织' '' '' '' '' '' '' '',
    
'vkorg_txt' '销售组织描述' '' '' '' '' '' '' '',
    
'vtweg' '分销渠道' '' '' '' '' '' '' '',
    
'vtweg_txt' '分销渠道描述' '' '' '' '' '' '' '',
    
'spart' '产品组' '' '' '' '' '' '' '',
    
'spart_txt' '产品组描述' '' '' '' '' '' '' '',
    
'kukla' '客户分类' '' '' '' '' '' '' '',
    
'kukla_txt' '客户分类描述' '' '' '' '' '' '' '',

'vkbur' '销售部门' '' '' '' '' '' '' '',
    
'vkbur_txt' '销售部门描述' '' '' '' '' '' '' '',
    
'vkgrp' '销售组' '' '' '' '' '' '' '',
    
'vkgrp_txt' '销售组描述' '' '' '' '' '' '' '',
    
'konda' '价格组' '' '' '' '' '' '' '',
    
'konda_txt' '价格组描述' '' '' '' '' '' '' '',
    
'kalks' '定价过程' '' '' '' '' '' '' '',
  
'kalks_txt' '定价过程描述' '' '' '' '' '' '' '',
  
'lprio' '交货优先权' '' '' '' '' '' '' '',
  
'lprio_txt' '交货优先权描述' '' '' '' '' '' '' '',
  
'lzone' '运输区域' '' '' '' '' '' '' '',
  
'lzone_txt' '运输区域描述' '' '' '' '' '' '' '',
  
'kdgrp' '客户组' '' '' '' '' '' '' '',
  
'bzirk' '销售地区' '' '' '' '' '' '' '',
  
'bzirk_txt' '销售地区描述' '' '' '' '' '' '' '',
  
'vwerk' '交货工厂' '' '' '' '' '' '' '',
  
'vwerk_txt' '交货工厂描述' '' '' '' '' '' '' '',
  
'lgort' '交货仓库' '' '' '' '' '' '' '',
  
'lgort_txt' '交换仓库描述' '' '' '' '' '' '' '',
  
'zbatch' '客户批次' '' '' '' '' '' '' '',
  
'erdat_knvv' '客户系统创建日期' '' '' '' '' '' '' '',
  
'erdat_vbak' '最后下单日期' '' '' '' '' '' '' '',
  
'vbeln' '最后下单号' '' '' '' '' '' '' 'X',
  
'oeikw' '未清销售订单' '' '' '' '' '' '' '',
  
'olikw' '未清交货单' '' '' '' '' '' '' '',
  
'ofakw' '未清开票' '' '' '' '' '' '' '',
  
'skfor' '客户往来余额' '' '' '' '' '' '' '',
  
'klimk' '客户信用额度' '' '' '' '' '' '' '',
  
'keyong' '客户信用额度' '' '' '' '' '' '' ''.

gs_layo

-zebra             = 'X'.
  gs_layo
-cwidth_opt        = 'X'.

*  gs_layo-grid_title        = 'dongdong'.

*  gs_layo-smalltitle        = 'X'.

ENDFORM. "fieldcat_init

FORM outdata .
  
PERFORM fieldcat_init .
  
PERFORM show_alv  TABLES gt_fcat  gt_all[]
  
USING  gs_layo.

ENDFORM. " outdata

FORM show_alv TABLES  pt_fcat pt_tab USING   ps_layout.

gs_grid

-edt_cll_cb = 'X'."当屏幕失去焦点时，自动刷新
  gt_event
-name = 'CALLER_EXIT'.   "slis_ev_caller_exit_at_start事件
  gt_event
-form = 'FM_BUTTON'.
  
APPEND gt_event .

CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY_LVC'
    
EXPORTING
      i_callback_program       
= sy-repid
      i_callback_user_command  
= 'USER_COMMAND'
      i_grid_settings          
= gs_grid
      i_callback_pf_status_set 
= 'SET_PF_STATUS'
      is_layout_lvc            
= ps_layout
      it_fieldcat_lvc          
= pt_fcat[]
      it_events                
= gt_event[]
      i_save                   
= 'X'

*     it_event_exit            = gt_event_exit[]
    
TABLES
      t_outtab                 
= pt_tab
    
EXCEPTIONS
      program_error            
= 1
      
OTHERS                   = 2.
  
"PERFORM frm_fresh_alv.

ENDFORM.                    "csalv_set_fcat

FORM user_command USING r_ucomm LIKE sy-ucomm  rs_selfield TYPE slis_selfield.

CASE r_ucomm.
    
WHEN '&DATA_SAVE'.
    
WHEN '&XSL' OR '&EXPORT' .

WHEN '&BACK' OR '&UP' OR '&EXIT'.
      
LEAVE TO SCREEN 0.
  
ENDCASE.

ENDFORM.                    "user_command

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

*&      Form  SET_PF_STATUS

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

*       text

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

*      -->RT_EXTAB   text

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

FORM set_pf_status USING rt_extab TYPE slis_t_extab..
  
SET PF-STATUS 'STANDARD'.

ENDFORM.                    "SET_PF_STATUS

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

*&      Form  fm_button

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

*       text

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

*      -->E_GRID     text

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

FORM fm_button USING e_grid TYPE slis_data_caller_exit.

CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'

*   EXPORTING

*     IR_SALV_FULLSCREEN_ADAPTER       =
    
IMPORTING

*     ET_EXCLUDING                     =

*     E_REPID   =

*     E_CALLBACK_PROGRAM               =

*     E_CALLBACK_ROUTINE               =
      e_grid 
= ref_grid

*     ET_FIELDCAT_LVC                  =

*     ER_TRACE  =

*     E_FLG_NO_HTML                    =

*     ES_LAYOUT_KKBLO                  =

*     ES_SEL_HIDE                      =

*     ET_EVENT_EXIT                    =

*     ER_FORM_TOL                      =

*     ER_FORM_EOL                      =
    
.

*   CALL METHOD ref_grid->check_changed_data.

* 设置enter事件
  
CALL METHOD ref_grid->register_edit_event
    
EXPORTING
      i_event_id 
= cl_gui_alv_grid=>mc_evt_enter
    
EXCEPTIONS
      error      
= 1
      
OTHERS     = 2.

"CREATE OBJECT gt_event_receiver.
  
"SET HANDLER   gt_event_receiver->handle_modify FOR ref_grid.

ENDFORM.                    "FM_BUTTON

FORM frm_fresh_alv.
  stbl
-row = 'X'." 基于行的稳定刷新
  stbl
-col = 'X'." 基于列稳定刷新
  
CALL METHOD ref_grid->refresh_table_display
    
EXPORTING
      is_stable 
= stbl.

ENDFORM.