FICO销售获利分析表

根据事务码tcode ke30

text symbol

B01 查询
B02 计算
T02 条件

selection text

P_ARTNR 产品号
P_CX ?...
P_HZ 汇总查询
P_JS ?...
P_KTGRD 客户分配帐户组别
P_LJ 累计
P_PERIO 期间/年度
P_SPART 产品组
P_VKORG 销售组织

source code
________ ______________________________

*&---------------------------------------------------------------------*
*& Report  YFIR0044
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  yfir0049  NO STANDARD PAGE HEADING
MESSAGE-ID 1000 LINE-SIZE 120 LINE-COUNT 65.
TABLES:   ce1hl00, mbew, yfilob08, csks,mara,keph,keko.
INCLUDE y_alv_func.
INCLUDE zabap_public.
INCLUDE <icon>.

DATA:BEGIN OF it_show OCCURS 0.
        INCLUDE STRUCTURE yfilob08.
*DATA icon(4) TYPE c.
DATA END OF it_show.
DATA:it_ce1hl00 TYPE   TABLE OF ce1hl00  WITH HEADER LINE
 .
*"Sales Revenue
*销售收入" "Standard RM
*标准材料单价" "Standard MC
*标准制造成本" "Total COGS
*总成本(C3+D3)" "%
*(总成本/总收入)"
DATA:BEGIN OF it_show1 OCCURS 0,
prctr LIKE yfilob08-prctr,
region LIKE yfilob08-region,

absmg LIKE yfilob08-absmg,
erlos LIKE yfilob08-erlos,
cm LIKE yfilob08-cm,
rm LIKE yfilob08-rm,
zcogs LIKE yfilob08-zcogs,
bl TYPE p  LENGTH 15 DECIMALS 2 ,
END OF it_show1.

*DATA:it_ce1hl00 TYPE  HASHED TABLE OF ce1hl00 WITH UNIQUE  KEY mandt
*paledger
*vrgar
*versi
*perio
*paobjnr
*pasubnr
*belnr
*posnr.
DATA:wa_ce1hl00 TYPE   ce1hl00 .
SELECTION-SCREEN BEGIN OF LINE.
*查询
PARAMETERS:p_cx TYPE c RADIOBUTTON GROUP g1 USER-COMMAND g2 .
SELECTION-SCREEN COMMENT 3(15) text-b01 FOR FIELD p_cx.
SELECTION-SCREEN POSITION 20.
*计算
PARAMETERS:p_js TYPE c RADIOBUTTON GROUP g1     .
SELECTION-SCREEN COMMENT 23(15) text-b02 FOR FIELD p_js.
SELECTION-SCREEN POSITION 40.
SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-t02  .
PARAMETERS:p_perio LIKE  yfilob08-perio   .
SELECT-OPTIONS:p_spart FOR yfilob08-spart ,
p_vkorg FOR yfilob08-vkorg ,
p_ktgrd FOR ce1hl00-ktgrd ,
p_artnr FOR yfilob08-artnr.
PARAMETERS:p_hz TYPE c AS CHECKBOX.
PARAMETERS:p_lj TYPE c AS CHECKBOX.
SELECTION-SCREEN END OF BLOCK b1.

AT SELECTION-SCREEN.

AT SELECTION-SCREEN OUTPUT.

INITIALIZATION.
  CONCATENATE sy-datum(4) '0' sy-datum+4(2) INTO p_perio.
*  CONCATENATE '2008' '0' sy-datum+4(2) INTO p_perio.

START-OF-SELECTION.
  CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
    EXPORTING
      percentage = 1
      text       = '开始读取数据'.

  PERFORM ini.

  IF p_cx = 'X'.
    PERFORM get_data.
  ELSE.
    PERFORM select_data.
  ENDIF.
  IF p_hz IS INITIAL.
    PERFORM show_data.
  ELSE.
    PERFORM show_data1.