获利能力分析 (开发)

- 日理万妓 2022-12-24 02:52 190阅读 0赞

*\*&---------------------------------------------------------------------\**  
*\*& 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,  *"**售达方*  
         mat\_kdauf TYPE acdoca\-mat\_kdauf,  *"**库存的销售和分销凭证*  
         vgpos2    LIKE  lips\-vgpos,  
         HSL       TYPE acdoca\-HSL,  *"**以余额交易货币计金额*  
       END OF ls\_out  .  
  
  
DATA:lt\_out LIKE TABLE OF ls\_out.  
  
DATA: ls\_out2 LIKE ls\_out .  
DATA: lt\_out2 LIKE TABLE OF ls\_out .  
  
  
  
DATA: lt\_out9 LIKE TABLE OF ls\_out .  
  
cl\_salv\_bs\_runtime\_info=>set( EXPORTING     display  = abap\_false  
                                            metadata = abap\_false  
                                            data     = abap\_true ).  
  
SUBMIT zfi028a  
WITH p\_gjahr    =  p\_gjahr *"**年份*  
WITH p\_rbukrs  =  p\_rbukrs *"**公司代码*  
WITH s\_budat  IN    s\_budat       *"**过账日期*  
AND RETURN.  
  
  
CLEAR lr\_pay\_data.  
UNASSIGN <lt\_pay\_data>.  
  
TRY.  
    cl\_salv\_bs\_runtime\_info=>get\_data\_ref(  
      IMPORTING r\_data = lr\_pay\_data ).  
    ASSIGN lr\_pay\_data\->\* TO <lt\_pay\_data>.  
  
  CATCH cx\_salv\_bs\_sc\_runtime\_info.  
ENDTRY.  
  
  
cl\_salv\_bs\_runtime\_info=>clear\_all( ).  
  
IF <lt\_pay\_data> IS ASSIGNED.  
  LOOP AT <lt\_pay\_data> ASSIGNING <ls\_data>.  
    MOVE-CORRESPONDING <ls\_data> TO ls\_out .  
*\*    MOVE-CORRESPONDING <ls\_data> TO ls\_out9 .*  
*\*    APPEND ls\_out9  TO lt\_out9.*  
    COLLECT : ls\_out INTO lt\_out .  
    CLEAR :   ls\_out  .  
  ENDLOOP .  
ENDIF .  
  
*"**获取成本价格*  
LOOP AT lt\_out INTO ls\_out .  
  IF ls\_out\-HSL < 0 AND  ls\_out\-mat\_kdauf <> '' . *"**为空的恰好相反*  
    ls\_out\-HSL = ls\_out\-HSL \* \-1 .  *"**发货、冲销* *再发货，**ZFI028A **成本为正的，冲销金额为负数。*  
    *"**如果仅冲销，**ZFI028A **成本为负数* *，以为冲销和退货借贷标识一样，成本为负数，逻辑不对**,**所以价格全部变成正数（合并后）*  
  ENDIF .  
  MODIFY  lt\_out FROM ls\_out .  
  CLEAR : ls\_out .  
ENDLOOP .  
  
*"**更新价格*  
DATA: lv\_bwtar LIKE lips\-bwtar .  
SORT lt\_out BY  mat\_kdauf vgpos2 .  *"**库存的销售和分销凭证*  
  
LOOP AT gt\_out INTO gs\_out .  
  SELECT SINGLE name1 INTO gs\_Out\-name1  
   FROM kna1  
    WHERE kunnr = gs\_out\-kunag\_ana  .  
  SELECT SINGLE maktx INTO gs\_out\-arktx  
    FROM makt  
    WHERE matnr = gs\_out\-matnr  
    AND spras = '1'.  
  
  SELECT SINGLE bwtar INTO lv\_bwtar  
    FROM lips  
   WHERE vbeln = gs\_out\-vgbel AND matnr = gs\_out\-matnr .  
  
  *"**取**CKM3 **实际价格*  
*\*  SELECT  SINGLE pvprs b~peinh INTO ( gs\_Out-pvprs,gs\_Out-peinh )*  
*\*        FROM mbew AS a*  
*\*       JOIN ckmlcr AS b ON a~kaln1  = b~kalnr*  
*\*       WHERE a~matnr = gs\_out-matnr*  
*\*        AND  a~bwtar =  lv\_bwtar*  
*\*        AND  bdatj = gs\_out-fkdat+0(4)  AND    poper =  gs\_out-fkdat+4(2)  .*  
  
  READ TABLE lt\_out INTO ls\_out WITH KEY   mat\_kdauf = gs\_out\-vgbel  
                                           vgpos2    = gs\_out\-vgpos  
                                           BINARY SEARCH .  
  IF sy\-subrc EQ  0 .  
*\*    gs\_out-cb  = ls\_out-HSL  .  "**冲销会重复计算*  
    IF  gs\_out\-drcrk  EQ  'S' .  
      gs\_out\-cb  = ls\_out\-HSL \* \-1  .  
    ELSE .  
      gs\_out\-cb  = ls\_out\-HSL   .  
    ENDIF .  
  
  
  
  
  ENDIF .  
  
  
  
*\*  gs\_out-dj =  gs\_Out-pvprs / gs\_Out-peinh .*  
*\*  gs\_out-cb = gs\_out-dj \* gs\_out-msl .*  
  IF gs\_out\-msl EQ 0 .  
    gs\_out\-msl = 1 .  
  ENDIF .  
  gs\_out\-dj = gs\_out\-cb /  gs\_out\-msl  .  
  
  MODIFY gt\_out FROM gs\_out .  
  CLEAR : gs\_out .  
  CLEAR : lv\_bwtar.  
  
ENDLOOP .  
  
  
  
  
*"**追加有发票收入，被冲销掉了，合累加后为**0 **，但成本还有的（这个追加要放到前面）*  
  
DATA : BEGIN OF gs\_out2 ,  
         vgbel LIKE vbrp\-vgbel, *" VBRP**的参考凭证交货单*  
         vgpos LIKE vbrp\-vgpos,    *" VBRP**的参考凭证交货单行项目*  
         HSL   LIKE acdoca\-HSL,  
       END OF gs\_out2 .  
  
DATA: gt\_out2 LIKE TABLE OF gs\_out2 .  
  
*"*  
LOOP AT gt\_out INTO gs\_out .  
  MOVE-CORRESPONDING gs\_out TO gs\_out2 .  
  COLLECT gs\_out2 INTO gt\_out2 .  
  CLEAR: gs\_out ,gs\_out2 .  
ENDLOOP .  
  
  
DELETE gt\_out2 WHERE HSL <> 0 .  
  
*"**追加收入为**0**，单手成本的*  
LOOP AT lt\_out INTO ls\_out .  
  READ TABLE gt\_out2 INTO gs\_out2 WITH KEY vgbel =  ls\_out\-mat\_kdauf  
                                           vgpos =  ls\_out\-vgpos2 .  
  
  IF sy\-subrc EQ  0 .  
    CLEAR:gs\_out .  
    gs\_out\-kunag\_ana    = ls\_out2\-kunag\_ana .  
    gs\_out\-name1        = ls\_out2\-name1 .  
    gs\_out\-vgbel        = ls\_out\-mat\_kdauf .  
    gs\_out\-vgpos        = ls\_out\-vgpos2 .  
    gs\_out\-cb           = ls\_out\-HSL.  
    APPEND : gs\_out TO gt\_out .  
    CLEAR :  ls\_out,gs\_out .  
  ENDIF .  
  
ENDLOOP .  
  
*\*"**追加从收入查询成本查不到的（没有收入记录的）*  
*"**先放到临时表，然后一次性追加**(**可以用二维查分法**)**，避免边追加边* *到** GT\_oUT ,**边**read table gt\_out*  
LOOP AT lt\_out INTO ls\_out .  
  READ TABLE gt\_out INTO gs\_out WITH KEY vgbel =  ls\_out\-mat\_kdauf  
                                         vgpos =  ls\_out\-vgpos2 .  
  IF sy\-subrc NE 0 .  
    APPEND ls\_out TO lt\_out2 .  
    CLEAR :ls\_out .  
  ENDIF .  
  
ENDLOOP .  
  
*"**一次插入*  
LOOP AT lt\_out2 INTO ls\_out2 .  
  CLEAR:gs\_out .*"**必要的，不然收入会带过去出现错误*  
  gs\_out\-kunag\_ana    = ls\_out2\-kunag\_ana .  
  gs\_out\-name1        = ls\_out2\-name1 .  
  gs\_out\-vgbel        = ls\_out2\-mat\_kdauf .  
  gs\_out\-vgpos        = ls\_out2\-vgpos2 .  
  gs\_out\-cb           = ls\_out2\-HSL.  
  APPEND : gs\_out TO gt\_out .  
  CLEAR :ls\_out2,gs\_out .  
  
ENDLOOP .  
  
  
  
*"10101010013 CKMLCR*  
  
*"100000293 MBEW*  
  
DEFINE append\_field.  
  gs\_fieldcat\-fieldname = &1.  
  gs\_fieldcat\-coltext = &2.  
  gs\_fieldcat\-ref\_field = &3.  
  gs\_fieldcat\-ref\_table =  &4.  
  gs\_fieldcat\-no\_zero = 'X'.  *"**去**0*  
  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  CLEAR: gs\_fieldcat.  
END-OF-DEFINITION.  
  
  
  
*\*    gs\_layout-box\_fname = 'MARK'.*  
*\*  gs\_layout-coltab\_fieldname = 'CLR' . "**列颜色*  
*\*gs\_layout-ctab\_fname = 'CELLCOLOR' .   "**单元格颜色*  
gs\_layout\-cwidth\_opt = 'X'.   *"**列宽自适应*  
gs\_layout\-zebra      = 'X'.      *"**斑马线*  
  
  
  
  
append\_field: 'GJAHR' '会计年度'  '' '' .  
append\_field: 'AWREF' '发票凭证'  'VBELN' 'VBRP' .  
append\_field: 'BELNR' '凭证编号'  'BELNR' 'ACDOCA'  .  
append\_field: 'DOCLN' '行项目'  '' '' .  
  
  
append\_field: 'RACCT' '会计科目'  '' '' .  
*"append\_field: 'TXT20' '**科目名称**'  '' '' .*  
append\_field: 'HSL' '收入'  '' '' . *"**发票金额*  
append\_field: 'DJ' '单价'  '' '' . *"**发票金额*  
append\_field: 'CB' '成本'  '' '' . *"**发票金额*  
*"append\_field: 'LIFNR' '**供应商代码**'  '' '' .*  
*"append\_field: 'NAME1' '**供应商名称**'  '' '' .*  
append\_field: 'AWREF' '参考凭证VF03'  'AWREF' 'ACDOCA' .  
append\_field: 'AWITEM' '参考凭证行项目'  '' '' .  
append\_field: 'MSL' '出货数量1'  '' '' .  
append\_field: 'MATNR' '物料代码'  'MATNR' 'MARA' .  
append\_field: 'ARKTX' '物料名称'  '' '' .  
append\_field: 'SPART' '产品组'  '' '' .  
append\_field: 'VKORG\_ANA ' '销售组织'  '' '' .  
append\_field: 'VTWEG\_ANA' '分销渠道'  '' '' .  
append\_field: 'KUNAG\_ANA' '售达方'  'KUNNR' 'KNA1' .  
append\_field: 'NAME1' '客户名称'  '' '' .  
append\_field: 'VGBEL' '交货单号'  'LIPS' 'VBELN' .  
append\_field: 'VGPOS' '交货单行项目'  '' '' .  
  
  
  
CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
  EXPORTING  
    i\_callback\_program = sy\-repid  
*\*   i\_callback\_pf\_status\_set = 'FRM\_STATUS\_SET'*  
*\*   i\_callback\_user\_command  = 'FRM\_USER\_COMMAND'*  
*\*\**  
*\*   I\_GRID\_SETTINGS    =*  
    is\_layout\_lvc      = gs\_layout  
    it\_fieldcat\_lvc    = gt\_fieldcat  
    i\_save             = 'A'  
*\*   i\_grid\_settings    = ls\_grid\_settings*  
*\*   it\_events          = lt\_events*  
*\*   is\_variant         = ls\_variant*  
*\*   ES\_EXIT\_CAUSED\_BY\_USER   =*  
  TABLES  
    t\_outtab           = gt\_out  
  EXCEPTIONS  
    program\_error      = 1  
    OTHERS             = 2.  
IF sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
ENDIF.

*\*&---------------------------------------------------------------------\**  
*\*& Report ZFI028A*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zfi028a.  
  
TABLES:acdoca.  
  
TYPES:BEGIN OF ty\_acdoca,  
        gjahr     TYPE acdoca\-gjahr,  *"**会计年度*  
        belnr     TYPE acdoca\-belnr,  *"**凭证编号*  
        docln     TYPE acdoca\-docln,  *"**行项目*  
        racct     TYPE acdoca\-racct,  *"**科目号*  
        hsl       TYPE acdoca\-hsl,  *"**以余额交易货币计金额*  
        budat     TYPE acdoca\-budat,  *"**过账日期*  
        awref     TYPE acdoca\-awref,  *"**参考凭证*  
        awitem    TYPE acdoca\-awitem,  *"**参考凭证项目*  
        mat\_kdauf TYPE acdoca\-mat\_kdauf,  *"**库存的销售和分销凭证*  
        mat\_kdpos TYPE acdoca\-mat\_kdpos,  *"**库存的销售凭证项目*  
  
*\*        VBELN     TYPE VBRP-VBELN,  "**开票凭证*  
*\*        POSNR     TYPE VBRP-POSNR,  "**项目*  
        fkimg     TYPE vbrp\-fkimg,  *"**开票数量*  
*\*        VGBEL     TYPE VBRP-VGBEL,  "**参考凭证*  
*\*        VGPOS     TYPE VBRP-VGPOS,  "**参考项目*  
        kunag\_ana TYPE vbrp\-kunag\_ana,  *"**售达方*  
        name1     TYPE kna1\-name1,  *"**售达方*  
        vgpos2    LIKE  lips\-vgpos,  
        matnr     like lips\-matnr,  
        maktx     like makt\-maktx,  
        box(1)    TYPE c,  
      END OF ty\_acdoca.  
  
DATA:gt\_acdoca TYPE TABLE OF ty\_acdoca WITH HEADER LINE.  
  
TYPES:BEGIN OF ty\_vbrp,  
        vbeln     TYPE vbrp\-vbeln,  *"**开票凭证*  
        posnr     TYPE vbrp\-posnr,  *"**项目*  
        fkimg     TYPE vbrp\-fkimg,  *"**开票数量*  
        vgbel     TYPE vbrp\-vgbel,  *"**参考凭证*  
        vgpos     TYPE vbrp\-vgpos,  *"**参考项目*  
        kunag\_ana TYPE vbrp\-kunag\_ana,  *"**售达方*  
      END OF ty\_vbrp.  
  
DATA:gt\_vbrp TYPE TABLE OF ty\_vbrp WITH HEADER LINE.  
  
TYPES:BEGIN OF ty\_lips,  
        vbeln TYPE lips\-vbeln,  
        posnr TYPE lips\-posnr,  
        kunag TYPE likp\-kunag,  
      END OF ty\_lips.  
  
DATA:gt\_lips TYPE TABLE OF ty\_lips WITH HEADER LINE.  
  
  
*\*\***定义**ALV**需要的表、结构、字段*  
DATA: gt\_fieldcat TYPE lvc\_t\_fcat ,         *"ALV**列信息（内表）*  
      gs\_fieldcat LIKE LINE OF gt\_fieldcat, *"ALV**列信息**(**结构）*  
      gs\_layout   TYPE lvc\_s\_layo,          *"ALV**布局参数**(**结构）*  
      gt\_sort     TYPE lvc\_t\_sort,          *"ALV**字段排序表（内表）*  
      gs\_sort     LIKE LINE OF gt\_sort.  *"ALV**字段排序表（结构）*  
  
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT\-001.  
  PARAMETERS : p\_rbukrs TYPE acdoca\-rbukrs OBLIGATORY  .  
  PARAMETERS : p\_gjahr TYPE acdoca\-gjahr OBLIGATORY  .  
  SELECT-OPTIONS : s\_budat FOR acdoca\-budat  .  
SELECTION-SCREEN END OF BLOCK b1.  
  
INITIALIZATION .  
  
  
START-OF-SELECTION.  
  
  PERFORM frm\_get\_data.  
  PERFORM frm\_dele\_data.  
  PERFORM frm\_process\_data.  
  
END-OF-SELECTION.  
  
  PERFORM frm\_alv\_display.  
*\*&---------------------------------------------------------------------\**  
*\*& Form FRM\_GET\_DATA*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_get\_data .  
  SELECT gjahr belnr docln racct hsl budat awref awitem mat\_kdauf mat\_kdpos  
    kunnr AS kunag\_ana  
    INTO CORRESPONDING FIELDS OF TABLE gt\_acdoca  
    FROM acdoca  
    WHERE gjahr = p\_gjahr  
    AND budat IN s\_budat  
    AND rbukrs =  p\_rbukrs  
    AND ( ( racct >=  '6401000000' AND  racct   <= '6401999999' ) OR ( racct >= '6402000000' AND  racct   <=  '6402999999' ) ).  
  
  IF gt\_acdoca\[\] IS NOT INITIAL.  
    SELECT vbeln posnr fkimg vgbel vgpos kunag\_ana  
      FROM vbrp  
      INTO TABLE gt\_vbrp  
      FOR ALL ENTRIES IN gt\_acdoca  
      WHERE vbeln = gt\_acdoca\-awref  
      AND posnr = gt\_acdoca\-awitem  
      AND vkorg\_auft = p\_rbukrs.  
  ENDIF.  
  SORT gt\_vbrp BY vbeln posnr.  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form FRM\_DELE\_DATA*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_dele\_data .  
  SORT gt\_acdoca BY awref awitem.  
  LOOP AT gt\_acdoca.  
    IF gt\_acdoca\-mat\_kdauf IS INITIAL.  
      IF gt\_acdoca\-belnr(2) = '49' AND gt\_acdoca\-mat\_kdauf IS INITIAL.  
        SELECT SINGLE vbeln\_im vbelp\_im  
          INTO (gt\_acdoca\-mat\_kdauf,gt\_acdoca\-mat\_kdpos)  
          FROM mseg  
          WHERE mblnr = gt\_acdoca\-awref  
          AND zeile = gt\_acdoca\-awitem  
          AND bukrs = p\_rbukrs.  
      ELSE.  
        READ TABLE gt\_vbrp WITH KEY vbeln = gt\_acdoca\-awref posnr = gt\_acdoca\-awitem BINARY SEARCH.  
        IF sy\-subrc = 0.  
          gt\_acdoca\-mat\_kdauf = gt\_vbrp\-vgbel.  
          gt\_acdoca\-mat\_kdpos = gt\_vbrp\-vgpos.  
          gt\_acdoca\-kunag\_ana = gt\_vbrp\-kunag\_ana.  
          gt\_acdoca\-fkimg = gt\_vbrp\-fkimg.  
        ENDIF.  
      ENDIF.  
  
    ENDIF.  
    IF gt\_acdoca\-mat\_kdauf IS NOT INITIAL AND gt\_acdoca\-mat\_kdpos IS NOT INITIAL.  
      SELECT SINGLE  
         kunag  
         INTO gt\_acdoca\-kunag\_ana  
        FROM likp  
        WHERE vbeln = gt\_acdoca\-mat\_kdauf  
        AND   vkorg = p\_rbukrs .  
  
      SELECT SINGLE lfimg  
        INTO gt\_acdoca\-fkimg  
        FROM lips  
        WHERE vbeln = gt\_acdoca\-mat\_kdauf  
        AND posnr = gt\_acdoca\-mat\_kdpos  
         .  
    ENDIF.  
    SELECT SINGLE  
      name1  
      INTO gt\_acdoca\-name1  
      FROM kna1  
      WHERE kunnr = gt\_acdoca\-kunag\_ana.  
  
    MODIFY gt\_acdoca.  
      CLEAR: gt\_acdoca .  
  
  ENDLOOP.  
  
  SORT gt\_acdoca BY belnr docln.  
  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form FRM\_ALV\_DISPLAY*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_alv\_display .  
  CLEAR gt\_fieldcat\[\].  
  PERFORM get\_fieldcat USING:       'GJAHR' '会计年度',  
                                    'BELNR' '凭证编号',  
                                    'DOCLN' '行项目',  
                                    'RACCT' '科目号',  
                                    'HSL' '以余额交易货币计金额',  
                                    'BUDAT' '过账日期',  
                                    'AWREF' '参考凭证',  
                                    'AWITEM' '参考凭证项目',  
                                    'MAT\_KDAUF' '交货单号',  
                                    'VGPOS2' '交货单行项目'  ,  
                                    'MAT\_KDPOS' '库存的销售凭证项目',  
                                    'FKIMG' '开票数量',  
                                    'KUNAG\_ANA' '售达方',  
                                    'NAME1' '售达方描述',  
                                    'MATNR' '物料号',  
                                    'MAKTX' '物料描述'.  
  
  gs\_layout\-cwidth\_opt = 'X'.    *"**优化列宽度*  
  gs\_layout\-box\_fname = 'BOX'.   *"**定义选择行*  
  
  CALL FUNCTION 'REUSE\_ALV\_GRID\_DISPLAY\_LVC'  
    EXPORTING  
      i\_callback\_program       = sy\-repid            *"**当前程序名*  
      is\_layout\_lvc            = gs\_layout           *"**输出样式*  
      it\_fieldcat\_lvc          = gt\_fieldcat         *"**输出字段定义描述表*  
      i\_save                   = 'A'  
*\*     I\_CALLBACK\_USER\_COMMAND  = 'USER\_COMMAND'  "**自定义命令行*  
      i\_callback\_pf\_status\_set = 'PF\_STATUS\_SET' *"**自定义按钮*  
    TABLES  
      t\_outtab                 = gt\_acdoca  
    EXCEPTIONS  
      program\_error            = 1  
      OTHERS                   = 2.  
  
  IF sy\-subrc <> 0.  
    MESSAGE ID sy\-msgid TYPE sy\-msgty NUMBER sy\-msgno  
    WITH sy\-msgv1 sy\-msgv2 sy\-msgv3 sy\-msgv4.  
  ENDIF.  
ENDFORM.  
*\*&---------------------------------------------------------------------\**  
*\*& Form GET\_FIELDCAT*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*&      --> P\_*  
*\*&      --> P\_*  
*\*&---------------------------------------------------------------------\**  
FORM get\_fieldcat  USING p1 p2.  
  CLEAR gs\_fieldcat.  
  gs\_fieldcat\-fieldname     = p1.  
  gs\_fieldcat\-scrtext\_m     = p2.  
  gs\_fieldcat\-no\_zero = 'X'.  *"**去**0*  
  APPEND gs\_fieldcat TO gt\_fieldcat.  
  
ENDFORM.  
FORM pf\_status\_set USING extab TYPE slis\_t\_extab.  
  
  SET PF-STATUS '1000'.  
  
ENDFORM.                    *"set\_pf\_status*  
*\*&---------------------------------------------------------------------\**  
*\*& Form frm\_process\_data*  
*\*&---------------------------------------------------------------------\**  
*\*& text*  
*\*&---------------------------------------------------------------------\**  
*\*& -->  p1        text*  
*\*& <--  p2        text*  
*\*&---------------------------------------------------------------------\**  
FORM frm\_process\_data .  
  
  LOOP AT gt\_acdoca .  
    SELECT SINGLE uecha matnr  INTO ( gt\_acdoca\-vgpos2 , gt\_acdoca\-matnr )  
 FROM lips  
 WHERE vbeln = gt\_acdoca\-mat\_kdauf  
 AND   posnr = gt\_acdoca\-mat\_kdpos .  
  
      IF gt\_acdoca\-matnr is INITIAL .  
           select SINGLE   matnr into  gt\_acdoca\-matnr  from acdoca where belnr = gt\_acdoca\-belnr and docln = gt\_acdoca\-docln .  
      ENDIF .  
    select SINGLE maktx into  gt\_acdoca\-maktx from makt where matnr = gt\_acdoca\-matnr  and  SPRAS  = SY\-LANGU .  
  
    MODIFY gt\_acdoca .  
  ENDLOOP .  
  
  
ENDFORM.