期初暂估导入报表查看

拼搏现实的明天。 2022-12-27 07:19 83阅读 0赞

应付暂估科目是不挂供应商的，但是期初需要导入，发票的时候需要手工清账。因此对暂估的取数需要三部分。

1 正常的，可以直接取到供应商

2 期初导入的，供应商代码维护在分配的地方。

3 手工MIRO 做发票，通过对方科目取供应商。

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70][]

![watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1][]

*\*&---------------------------------------------------------------------\**  
*\*& Report ZFI023*  
*\*&---------------------------------------------------------------------\**  
*\*&*  
*\*&---------------------------------------------------------------------\**  
REPORT zfi024.  
  
TABLES : acdoca .  
  
  
  
  
SELECT-OPTIONS : s\_budat FOR acdoca\-budat  .  
  
SELECT-OPTIONS : s\_racct FOR acdoca\-racct  .  
SELECT-OPTIONS : s\_lifnr FOR acdoca\-lifnr  .  
  
PARAMETERS : p\_rbukrs TYPE acdoca\-rbukrs OBLIGATORY  .  
PARAMETERS : p\_gjahr TYPE acdoca\-gjahr OBLIGATORY  .  
  
  
PARAMETERS:  r\_01 RADIOBUTTON GROUP g1 DEFAULT 'X'  .  
PARAMETERS:  r\_02 RADIOBUTTON GROUP g1  .  
  
*\*PARAMETERS: cb\_02 AS CHECKBOX DEFAULT 'X'  .*  
  
  
  
DATA :BEGIN OF gs\_out ,  
        rbukrs LIKE acdoca\-rbukrs,  
        gjahr  LIKE acdoca\-gjahr,  
        belnr  LIKE acdoca\-belnr,  
        budat  LIKE acdoca\-budat,  
        docln  LIKE acdoca\-docln,  
        racct  LIKE acdoca\-racct,  
        tsl    LIKE acdoca\-tsl,  
        lifnr  LIKE acdoca\-lifnr,  
        zuonr  LIKE acdoca\-zuonr,  
        txt20  LIKE SKAt\-txt20,  
        name1  LIKE lfa1\-name1,  
  
  
  
  
      END OF gs\_out .  
DATA : gt\_out LIKE TABLE OF gs\_out  .  
  
  
DATA: ls\_out LIKE gs\_out .  
DATA: lt\_out LIKE TABLE OF gs\_out .  
  
DATA: ls\_out2 LIKE gs\_out .  
DATA: lt\_out2 LIKE TABLE OF gs\_out .  
  
DATA: ls\_out3 LIKE gs\_out .  
DATA: lt\_out3 LIKE TABLE OF gs\_out .  
  
  
DATA: ls\_out4 LIKE gs\_out .  
DATA: lt\_out4 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 .  
  
  
  
*"1**正常的*  
SELECT  acdoca~rbukrs,acdoca~gjahr ,  acdoca~belnr , acdoca~budat ,docln ,racct,  tsl , lifnr  
  
  FROM acdoca  *" JOIN BSIS\_view ON  acdoca~gjahr = BSIS\_view~gjahr AND  acdoca~belnr = BSIS\_view~belnr  AND  substring( docln , 4, 3 ) =  BSIS\_view~buzei*  
  
   WHERE racct IN @s\_racct  
  AND acdoca~gjahr  = @p\_gjahr  
  AND acdoca~budat IN @s\_BUDAT  
  AND lifnr IN @s\_lifnr  
  AND rbukrs  = @p\_rbukrs  
  INTO TABLE @lt\_out.  
  
  
  
DELETE lt\_out WHERE lifnr IS INITIAL .  
  
  
  
*"2**期初*  
  
  
*"**获取供应商信息*  
  
DATA: BEGIN OF ls\_lfa1 ,  
        lifnr LIKE lfa1\-lifnr,  
        zuonr LIKE acdoca\-zuonr,  
      END OF ls\_lfa1 .  
  
DATA lt\_lfa1 LIKE TABLE OF ls\_lfa1 .  
  
SELECT lifnr INTO  
  TABLE LT\_lfa1  
 FROM  lfa1  
 WHERE lifnr IN s\_lifnr .  
  
LOOP AT LT\_lfa1 INTO LS\_lfa1 .  
  LS\_lfa1\-zuonr = |\{ LS\_lfa1\-lifnr ALPHA = OUT \}| .  
  MODIFY LT\_lfa1 FROM LS\_lfa1 .  
ENDLOOP .  
  
*"**获取期初*  
  
SELECT acdoca~rbukrs acdoca~gjahr   acdoca~belnr acdoca~budat  docln racct  tsl lifnr acdoca~zuonr  
  APPENDING TABLE lt\_out2  
  FROM acdoca  
  FOR ALL ENTRIES IN lt\_lfa1  
  WHERE  acdoca~zuonr = lt\_lfa1\-zuonr  
  AND racct IN s\_racct  
  AND acdoca~gjahr  = p\_gjahr  
  AND acdoca~budat IN s\_BUDAT  
  AND acdoca~rbukrs  = p\_rbukrs  .  
  
  
LOOP AT lt\_out2 INTO ls\_out2 .  
  READ TABLE lt\_lfa1 INTO ls\_lfa1 WITH KEY zuonr = ls\_out2\-zuonr .  
  IF sy\-subrc EQ 0 .  
    ls\_out2\-lifnr = ls\_lfa1\-lifnr .  
  ENDIF .  
  MODIFY lt\_out2 FROM ls\_out2 .  
  
ENDLOOP .  
  
  
*"**通过对方科目* *找供应商*  
  
*"3**找到暂估供应商为空的行*  
SELECT acdoca~rbukrs , acdoca~gjahr , acdoca~belnr , acdoca~budat ,  docln ,racct , tsl  
  
*\*  FROM acdoca JOIN BSIS ON  acdoca~GJAHR = BSIS~GJAHR AND  ACDOCA~BELNR = BSIS~BELNR AND ACDOCA~DOCLN = BSIS~BUZEI*  
  
  FROM acdoca  *" JOIN BSIS\_view ON  acdoca~gjahr = BSIS\_view~gjahr AND  acdoca~belnr = BSIS\_view~belnr  AND  substring( docln , 3, 3 ) =  BSIS\_view~buzei*  
  
  WHERE racct IN @s\_racct  
  AND acdoca~gjahr  = @p\_gjahr  
  AND acdoca~budat IN @s\_BUDAT  
  AND lifnr   EQ ''  
  AND acdoca~rbukrs  = @p\_rbukrs  
   INTO TABLE @lt\_out3  
   .  
  
*"**删除期初分配字段有值的行*  
DATA lv\_tabix TYPE sy\-tabix .  
LOOP AT lt\_out3 INTO ls\_out3 .  
  CLEAR lv\_tabix .  
  lv\_tabix =  sy\-tabix  .  
  READ TABLE lt\_out2 WITH KEY belnr = ls\_out3\-belnr  
                              docln = ls\_out3\-docln  
                             TRANSPORTING NO FIELDS                              .  
  IF sy\-subrc EQ 0 .  
    DELETE lt\_out3  INDEX lv\_tabix .  
  ENDIF .  
  
ENDLOOP .  
  
*"**对方科目（供应商）*  
IF lt\_out3 IS NOT INITIAL .  
  SELECT acdoca~rbukrs acdoca~gjahr acdoca~belnr acdoca~budat   docln racct  tsl  lifnr  
    INTO TABLE lt\_out4  
    FROM acdoca  
    FOR ALL ENTRIES IN lt\_out3  
    WHERE acdoca~gjahr  = lt\_out3\-gjahr  
    AND acdoca~belnr = lt\_out3\-belnr  
    AND lifnr <> ''  
    AND acdoca~rbukrs  = p\_rbukrs  ..  
ENDIF .  
  
*" **从对方科目获取供应商*  
LOOP AT lt\_out3 INTO ls\_out3 .  
  CLEAR  ls\_out4 .  
  READ TABLE lt\_out4 INTO ls\_out4 WITH KEY  belnr = ls\_out3\-belnr .  
  IF sy\-subrc EQ 0 .  
    ls\_out3\-lifnr = ls\_out4\-lifnr .  
  ENDIF .  
  MODIFY lt\_Out3 FROM ls\_out3 .  
ENDLOOP .  
  
  
  
APPEND LINES OF lt\_out TO gt\_out .  
APPEND LINES OF lt\_out2 TO gt\_out .  
APPEND LINES OF lt\_out3 TO gt\_out .  
  
LOOP AT gt\_out INTO gs\_out .  
  SELECT SINGLE  txt20 INTO  gs\_out\-txt20  
   FROM  SKAt  
   WHERE saknr  = gs\_out\-racct .  
  
  SELECT  SINGLE name1 INTO gs\_out\-name1  
    FROM lfa1  
    WHERE lifnr = gs\_out\-lifnr .  
  
  gs\_out\-lifnr =   |\{ gs\_out\-lifnr ALPHA = OUT \}| .  
  
  MODIFY gt\_out FROM gs\_out .  
  
ENDLOOP .  
  
  
  
*"**删除已经请项目*  
  
  
DATA: BEGIN OF gs\_bsis,  
        bukrs LIKE bsis\-bukrs,  
        gjahr LIKE bsis\-gjahr,  
        belnr LIKE bsis\-belnr,  
        buzei LIKE bsis\-buzei,  
      END OF gs\_bsis .  
DATA : gt\_bsis LIKE TABLE OF gs\_bsis .  
  
SELECT    bukrs  
    gjahr  
    belnr  
    buzei  
  INTO TABLE gt\_bsis  
  FROM bsis  
  FOR ALL ENTRIES IN gt\_out  
  WHERE bukrs  = gt\_out\-rbukrs  
  AND gjahr = gt\_out\-gjahr  
  AND belnr = gt\_out\-belnr .  
  
SORT gt\_bsis BY bukrs gjahr belnr buzei   .  
  
DATA: gt\_out2 LIKE  TABLE OF gs\_out .  
  
DATA lv\_tabix2 TYPE sy\-tabix .  
LOOP AT gt\_out INTO gs\_out .*" where belnr = '5000006318' and docln = '000002' .*  
  CLEAR lv\_tabix2 .  
  lv\_tabix2 =  sy\-tabix  .  
  READ TABLE gt\_bsis INTO gs\_bsis  WITH KEY bukrs = gs\_out\-rbukrs  
                                            gjahr = gs\_out\-gjahr  
                                            belnr = gs\_out\-belnr  
                                            buzei = gs\_out\-docln+3(3)  
                                            BINARY SEARCH .  
  IF sy\-subrc EQ 0 .  
  
  ELSE .  
    IF r\_02 EQ 'X'.  
      APPEND gs\_out TO gt\_out2 .  
    ENDIF .  
    DELETE gt\_out  INDEX lv\_tabix2 .  
  
  ENDIF .  
  
ENDLOOP .  
  
  
  
DEFINE append\_field.  
  gs\_fieldcat\-fieldname = &1.  
  gs\_fieldcat\-coltext = &2.  
 gs\_fieldcat\-ref\_field = &3.  
 gs\_fieldcat\-ref\_table =  &4.  
  
  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: 'BELNR' '凭证编号'  '' ''  .  
append\_field: 'BUDAT' '凭证日期'  '' '' .  
append\_field: 'DOCLN' '行项目'  '' '' .  
append\_field: 'RACCT' '会计科目'  '' '' .  
append\_field: 'TXT20' '科目名称'  '' '' .  
append\_field: 'TSL' '金额'  '' '' .  
append\_field: 'LIFNR' '供应商代码'  '' '' .  
append\_field: 'NAME1' '供应商名称'  '' '' .  
  
  
IF r\_01 EQ 'X'.  
  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.  
  
ELSE .  
  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\_out2  
    EXCEPTIONS  
      program\_error           = 1  
      OTHERS                  = 2.  
  IF sy\-subrc <> 0.  
*\* Implement suitable error handling here*  
  ENDIF.  
  
ENDIF .  
  
FORM frm\_user\_command  USING r\_ucomm LIKE sy\-ucomm  
                         rs\_selfield TYPE slis\_selfield.  
  
  
  IF rs\_selfield\-fieldname EQ 'BELNR'.  
  
    SET PARAMETER ID 'BLN' FIELD gs\_out\-belnr .  
    SET PARAMETER ID 'BUK' FIELD  p\_rbukrs .  
    SET PARAMETER ID 'GJR' FIELD gs\_out\-gjahr .  
    CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.  
  
  ENDIF .  
  
ENDFORM .

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20221120/57a10671164e4bc4b01321c51b34a4db.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20221120/ee15d133ba5b47d7a018391ec13158a3.png