AT END OF 用法以及星号处理

矫情吗；* 2021-10-15 21:36 369阅读 0赞

合并前

![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][]

DATA: lt\_out LIKE TABLE OF gs\_out .  
      DATA: ls\_out LIKE gs\_out .  
      DATA: ls\_out2 LIKE gs\_out .  
      DATA lv\_tabix TYPE sy\-tabix .  
      LOOP AT gt\_out INTO gs\_out WHERE mark EQ 'X' .  
        CLEAR lv\_tabix .  
        lv\_tabix =  sy\-tabix   .  
*\*      IF gs\_out-blart = 'AF'*  
*\*         AND  (*  
        IF  
         gs\_out\-hkont     = '0016020001'  
         OR gs\_out\-hkont  = '0016020002'  
         OR gs\_out\-hkont  = '0016020003'  
         OR gs\_out\-hkont  = '0016020004'  
         OR gs\_out\-hkont  = '0016020005'  
         OR gs\_out\-hkont  = '0016020006'  
         OR gs\_out\-hkont  = '0017020000'  
         OR gs\_out\-hkont  = '0066010020'  
         OR gs\_out\-hkont  = '0066020003' .  
  
*\*        ) .*  
  
          APPEND gs\_out TO lt\_out .  
          DELETE gt\_out INDEX lv\_tabix .  
  
        ENDIF .  
  
      ENDLOOP .  
  
  
      SORT lt\_out BY bukrs budat belnr blart belnr blart bschl hkont .  
      DATA:  lv\_dmbtr     LIKE bseg\-dmbtr .  
      DATA:  lv\_dmbtr1    LIKE bseg\-dmbtr .  
      DATA:  lv\_txt20     LIKE skat\-txt20 .  
      DATA:  lv\_txt50     LIKE skat\-txt50 .  
      LOOP AT lt\_out INTO ls\_out .  
        lv\_dmbtr =  lv\_dmbtr + ls\_out\-dmbtr .  
        lv\_dmbtr1 =  lv\_dmbtr1 + ls\_out\-dmbtr1 .  
        ls\_out2 = ls\_out .  
        AT END OF hkont .  
          ls\_out  = ls\_out2 . *"**在**end of **里面非* *数值会变成**\*\*\*\*\*\*\*\*\*\**  
          ls\_out\-dmbtr = lv\_dmbtr .  
          ls\_out\-dmbtr1 = lv\_dmbtr1 .  
          APPEND ls\_out TO gt\_out .  
          CLEAR  : lv\_dmbtr ,lv\_dmbtr1 .  
        ENDAT .  
      ENDLOOP .

[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70]: /images/20211015/390057eac9a54cbebd11ccffa4a21bf0.png
[watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ_size_16_color_FFFFFF_t_70 1]: /images/20211015/cc49fdd997e64978b2bf2d124a9d2519.png