获利能力分析 (开发)

 

*&---------------------------------------------------------------------*
*& Report ZFI028
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT zfi028.
TABLES acdoca .

PARAMETERS : p_rbukrs TYPE acdoca-rbukrs OBLIGATORY  .
PARAMETERS : p_gjahr TYPE acdoca-gjahr OBLIGATORY  .
SELECT-OPTIONS : s_BUDAT FOR acdoca-budat  .
SELECT-OPTIONS : s_belnr FOR acdoca-belnr  .




DATA : BEGIN OF gs_out ,
         rbukrs    LIKE acdoca-rbukrs,
         gjahr     LIKE acdoca-gjahr, "年份
         budat     LIKE acdoca-budat, "过账日期
         belnr     LIKE acdoca-belnr, "会计凭证
         docln     LIKE acdoca-docln, " 快进凭证行项目
         racct     LIKE acdoca-racct,
         HSL       LIKE acdoca-HSL,
         awref     LIKE acdoca-awref,  "参考凭证VF03
         awitem    LIKE acdoca-awitem, "参考凭证行项目VF03
         msl       LIKE acdoca-msl, "出货数量1
         matnr     LIKE vbrp-matnr,
         arktx     LIKE vbrp-arktx, "物料名称
         spart     LIKE vbrp-spart ,  "产品组
         vkorg_ana LIKE vbrp-vkorg_ana, "销售组织
         vtweg_ana LIKE vbrp-vtweg_ana , "分销渠道
         kdgrp_ana LIKE vbrp-kdgrp_ana,  "客户组
         kunag_ana LIKE vbrp-kunag_ana , "收货方
         vgbel     LIKE vbrp-vgbel, " VBRP的参考凭证交货单
         vgpos     LIKE vbrp-vgpos,    " VBRP的参考凭证交货单行项目
         aubel     LIKE vbrp-aubel, "销售凭证
         aupos     LIKE vbrp-aupos, "销售凭证行
         fkdat     LIKE vbrk-fkdat, "开票日期
         fkart     LIKE vbrk-fkart, "开票类型 S1代表取消
         fksto     LIKE vbrk-fksto , " X  表示已取消
         drcrk     LIKE acdoca-drcrk  , "借贷标识

         name1     LIKE kna1-name1,
         pvprs     LIKE ckmlcr-pvprs, "周期价格
         peinh     LIKE ckmlcr-peinh,  "价格单位
         dj        TYPE  p DECIMALS 6, "单价
         cb        LIKE ckmlcr-pvprs,


       END OF gs_Out .
DATA gt_Out LIKE TABLE OF gs_out .

DATA: gt_fieldcat TYPE   lvc_t_fcat .
DATA: gs_fieldcat TYPE   lvc_s_fcat .
DATA: gs_layout   TYPE   lvc_s_layo .

FIELD-SYMBOLS: <lt_pay_data> TYPE ANY TABLE,
               <lt_temp>     TYPE ANY TABLE,
               <ls_data>.

DATA : lr_pay_data              TYPE REF TO data.


SELECT

  rbukrs
  a~gjahr    "年份
  budat
  a~belnr   "会计凭证
  docln
  racct
  HSL
  awref    "参考凭证
  awitem    "参考凭证行项目
  msl     "出货数量1
  b~matnr
  arktx       "物料名称
  b~spart        "产品组
  vkorg_ana  "销售组织
  vtweg_ana   "分销渠道
  kdgrp_ana    "客户组
  kunag_ana   "售达方
  vgbel       " VBRP的参考凭证交货单
  vgpos          " VBRP的参考凭证交货单行项目
  aubel      "销售凭证
  aupos       "销售凭证行
  fkdat      "开票日期
  c~fkart       "开票类型 S1代表取消
  c~fksto       " X  表示已取消
  a~drcrk    "借贷标识 H S


 INTO TABLE gt_out
 FROM acdoca AS a
 JOIN vbrp AS b  ON a~awref = b~vbeln  AND a~awitem = b~posnr
 JOIN vbrk AS c ON b~vbeln = c~vbeln
 WHERE (   ( racct >=  '6001000000' AND  racct   <= '6001999999' )
 OR  ( racct >= '6051000000' AND  racct   <=  '6051999999' )    )
 AND  rbukrs  =  p_rbukrs
 AND a~gjahr = p_gjahr
 AND a~budat IN s_budat
 AND a~belnr IN s_belnr .


"delete gt_out where  fkart = 'S1' OR  fksto = 'X' .



"取成本

DATA : BEGIN OF ls_out ,
         kunag_ana TYPE vbrp-kunag_ana,  "售达方
         name1     TYPE kna1-name1