SAP ABAP 常用代码-数据处理

阳光穿透心脏的1/2处 2022-05-25 04:42 293阅读 0赞

![70][]![70 1][]

SELECTION-SCREEN BEGIN OF BLOCK blk02 WITH FRAME TITLE TEXT\-005.

PARAMETERS p\_file  LIKE rlgrap \-filename .  
SELECTION-SCREEN  END  OF  BLOCK blk02 .  
  
PARAMETERS  : r\_1  RADIOBUTTON  GROUP g1  .  
PARAMETERS  : r\_2  RADIOBUTTON  GROUP g1  .  
  
PARAMETERS  : cb\_1  AS  CHECKBOX  .

PARAMETERS : cb\_2 AS CHECKBOX .

数据库取值赋单值

SELECT SINGLE ernam erdat vtweg INTO (gs\_out\-ernam,gs\_out\-erdat, gs\_out\-vtweg)  
    FROM vbak  
    WHERE vbeln = gs\_out\-vgbel.

SELECT SINGLE maktx INTO gs\_out\-maktx  
    FROM makt

WHERE matnr = gs\_out\-matnr .

删除符合条件的某一行

DATA lv\_tabix TYPE sy\-tabix .  
  LOOP AT gt\_mard INTO gs\_mard .  
    CLEAR lv\_tabix .  
    lv\_tabix =  sy\-tabix  .  
    " 如果有批次从表中去除  
    READ TABLE gt\_mchb WITH KEY matnr = gs\_mard\-matnr  
                                werks = gs\_mard\-werks  
                                lgort = gs\_mard\-lgort  
                        BINARY SEARCH  
                       TRANSPORTING NO FIELDS .  
    IF sy\-subrc EQ   0 .  
      DELETE gt\_mard INDEX lv\_tabix .  
    ENDIF .

ENDLOOP .

修改内表数据  
  LOOP AT  gt\_out  INTO gs\_out .  
  
    " 获取打印次数  
    CLEAR gs\_zmmt001p  .  
    READ TABLE gt\_zmmt001p INTO  gs\_zmmt001p WITH KEY zdh = gs\_out\-ebeln  
                                             BINARY SEARCH .  
    IF sy\-subrc EQ 0 .  
      gs\_out\-zprt\_cnt = gs\_zmmt001p\-zprt\_cnt .  
      MODIFY gt\_out FROM gs\_out .  
  
    ENDIF .  
  
  
  
  
  ENDLOOP.

*\*除重复数据*

SORT lt\_makt BY matnr maktx."排序

DELETE ADJACENT DUPLICATES FROM lt\_makt COMPARING matnr maktx.

FOR ALL ENTRIES IN 用法

1、结果会去除-----------------注意很容易出错

2、 要排序？？？？---平时没注意

FORM frm\_get\_matnr .  
  SELECT matnr ersda  
     INTO TABLE gt\_mara  
     FROM mara  
     WHERE matnr IN s\_matnr  
       AND ersda IN s\_ersda.  
  
  SORT gt\_mara BY matnr.  
  
  IF gt\_mara\[\] IS NOT INITIAL.  
    SELECT matnr werks  
     INTO TABLE gt\_marc  
     FROM marc  
     FOR ALL ENTRIES IN gt\_mara  
     WHERE matnr = gt\_mara\-matnr  
       AND werks IN s\_werks.  
  
    SELECT ebeln ebelp matnr  
      INTO TABLE gt\_ekpo  
      FROM ekpo  
      FOR ALL ENTRIES IN gt\_mara  
       WHERE ebeln IN s\_ebeln  
         AND matnr = gt\_mara\-matnr.  
  ENDIF.  
  
  SORT gt\_marc BY matnr werks.  
  IF gt\_marc\[\] IS NOT INITIAL.  
    SELECT   matnr  
             werks  
             lgort  
             labst  
      INTO TABLE gt\_mard  
      FROM mard  
      FOR ALL ENTRIES IN gt\_marc  
       WHERE matnr = gt\_marc\-matnr  
         AND werks = gt\_marc\-werks.  
  ENDIF.  
ENDFORM.

汇总：

交货单据汇总

DATA: BEGIN OF ls\_lips ,  
        matnr LIKE lips\-matnr,  
        lfimg LIKE lips\-lfimg,  
        vgbel LIKE lips\-vgbel,  
        vgpos TYPE c LENGTH 6,  
      END OF ls\_lips .  
  
DATA: lt\_lips LIKE TABLE OF ls\_lips .  
  
LOOP AT gt\_lips INTO gs\_lips .  
  ls\_lips\-matnr = gs\_lips\-matnr .  
  ls\_lips\-lfimg = gs\_lips\-lfimg .  
  ls\_lips\-vgbel = gs\_lips\-vgbel.  
  ls\_lips\-vgpos = gs\_lips\-vgpos.  
  
  COLLECT ls\_lips INTO lt\_lips .  
  CLEAR gs\_lips .  
  
ENDLOOP .

[70]: https://img-blog.csdn.net/20180508112358297?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L2l0eWFuZ2ppYQ==/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70
[70 1]: /images/20220525/8b55ce5fff124f29944399607edcaa0c.png