SAPLab-SAP Tips! ABAP Tips! » ABAP Program

SAP Tips: Retrieve Deleted Programs in SAP

Jack — Tue, 29 Nov 2011 11:38:10 +0000

SAP has a limited provision for retrieving deleted programs. Let us have a look into the steps for the retrieval.

OPTION 1:

1. Check in table VRSD if there is an entry with OBJTYPE = ‘REPS’ and OBJNAME = name of the deleted program.

Retrieve Deleted Programs

2. If yes, then create a new program in SE80 / SE38 with the exact same name as the deleted one.
3. Click on Utilities – > Version – > Version Management.
4. Click on the earlier version of your program and click display.
Your earlier program will get displayed, just copy – paste to the existing program.

via ABAP Tutorials

SAP ABAP Programs for Beginners

Jack — Tue, 29 Nov 2011 11:00:56 +0000

The code book contain the beginners level programs for new ABAPers. The book covers almost every basic aspect that a programer in this domain should know.

Some of the programs that the book covers are:

How to define types and data objects
A Few Simple Examples
Working with database tables and internal tables
Designing a report
Three approaches to define data objects
Complex Non-Elementary Types and Data Objects
Type-Specific Output Options
External flow of control (events)
Using internal tables as snapshots of database tables
Working with get events
Dynamic sort command with several sort criteria
Working with Field Symbols
Transferring data to a file
Reading data from a file

Download Link: ABAP Code Book

via ABAP Tutorials

SAP ABAP Pending Purchase Recquisition (PR) Report

Jack — Fri, 25 Nov 2011 16:54:12 +0000

This sample report shows the basic structure for getting the report for the Pending Purchase Requisition based on various selection options on screen.

The report loops throgh the required Tables of Purchase Requisition and based on the data entered on screen, displays the desired data. The report is to be modified/tweaked as per the custom need.

The basic purpose of the report is to develop a pragmatical flow of the language, the way normally ABAP programs are written.

Download Source Code : Z_PENDING_PRS_REPORT

Via http://www.abap-tutorials.com/2011/10/30/abap-pending-purchase-recquisition-pr-report/

SAP Press Official ABAP™ Programming Guidelines(PDF version)

Jack — Thu, 29 Oct 2009 02:56:06 +0000

There is a very good ABAP Programming Guidelines, it’s pdf version. If you want to download it,pls refer below link.

Official ABAP™ Programming Guidelines

ABAP Tips: Get local printer information

Jack — Fri, 23 Oct 2009 07:37:30 +0000

How to get local print machine information? Pls check below program.

DATA: PRDEFAULT LIKE  FRPRLIST-PRNAME ,
      IS_FRONTEND LIKE  RSPOTYPE-MODE .
DATA: LIST LIKE FRPRLIST OCCURS 0 WITH HEADER LINE.
 
CALL FUNCTION 'RSPO_FRONTEND_PRINTERS_FOR_DEV'
  EXPORTING
    DEVICE               = 'LP01'
 IMPORTING
   PRDEFAULT            = PRDEFAULT
   IS_FRONTEND          = IS_FRONTEND
*   IS_MAIL              =
*   NO_CHOICE            =
 TABLES
   LIST                 = LIST[]
 EXCEPTIONS
   NO_LIST              = 1
   LIST_TRUNCATED       = 2
   NAME_NOT_FOUND       = 3
   OTHERS               = 4 .
 
WRITE: / 'DEFAULT PRINTER:' , PRDEFAULT.
SKIP.
WRITE: / 'Printer List:'.
LOOP AT LIST.
  WRITE AT /4 LIST .
ENDLOOP.

via http://blog.chinaunix.net/u1/40527/showart_1989847.html

ABAP Tips-ebook

Jack — Tue, 28 Jul 2009 05:05:52 +0000

There is ABAP Tips(eBook version) for you, if you need it , pls download it.

abap-tips

ABAP Tips download(MS Word version)

Jack — Fri, 17 Jul 2009 01:42:41 +0000

There is an ABAP program tips document(157 pages) to download. I think it is very useful for ABAP developer.

Download abap program tips-v3

BAPI to Copy Materials from one Plant to Another

Jack — Thu, 11 Jun 2009 03:21:21 +0000

*
* Copy Materials from one Plant to Another
* First run   GETDATA AS CHECKBOX, "Tick to download materials data to local harddisk
* Second run  UPDDATA AS CHECKBOX. "Tick to update date to Materials Master
* Check data in Excel before Second run
* 
REPORT ZBAPIMM01 LINE-SIZE 255 NO STANDARD PAGE HEADING
                 LINE-COUNT 065(001).
 
TABLES: T001L, "Storage Locations
        MARA,  "General Material Data
        MAKT,  "Material Descriptions
        MBEW,  "Material Valuation
        MARC.  "Plant Data for Material
 
DATA: BAPI_HEAD   LIKE BAPIMATHEAD,
      BAPI_MAKT   LIKE BAPI_MAKT,    "Material Description
      BAPI_MARA1  LIKE BAPI_MARA,    "Client Data
      BAPI_MARAX  LIKE BAPI_MARAX,
      BAPI_MARC1  LIKE BAPI_MARC,    "Plant View
      BAPI_MARCX  LIKE BAPI_MARCX,
      BAPI_MBEW1  LIKE BAPI_MBEW,    "Accounting View
      BAPI_MBEWX  LIKE BAPI_MBEWX,
      BAPI_RETURN LIKE BAPIRET2.
 
DATA: BEGIN OF INT_MAKT OCCURS 100.
        INCLUDE STRUCTURE BAPI_MAKT.
DATA: END OF INT_MAKT.
 
DATA: BEGIN OF INT_MAT OCCURS 100,
         WERKS(4),     "Plant
         MTART(4),     "Material type
         MATNR(18),    "Material number
         MATKL(9) ,    "Material group
         MBRSH(1),     "Industry sector
         MEINS(3),     "Base unit of measure
         GEWEI(3),     "Weight Unit
         SPART(2),     "Division
         EKGRP(3),     "Purchasing group
         VPRSV(1),     "Price control indicator
         STPRS(12),    "Standard price
         PEINH(3),     "Price unit
         SPRAS(2),     "Language key
         MAKTX(40),     "Material description
       END OF INT_MAT.
 
SELECT-OPTIONS:
            PLANT    FOR  MARC-WERKS OBLIGATORY MEMORY ID PLT,
            MATERIAL FOR  MARA-MATNR MEMORY ID MAT,
            MATLTYPE FOR  MARA-MTART MEMORY ID MTY,
            DIVISION FOR  MARA-SPART MEMORY ID DIV.
PARAMETERS:  F_FILE LIKE RLGRAP-FILENAME
             DEFAULT 'C:\DATA\ZMATERIAL.XLS' MEMORY ID F_FILE,
             GETDATA AS CHECKBOX, "Tick to download materials data to local harddisk
             UPDDATA AS CHECKBOX. "Tick to update date to Materials Master
 
IF GETDATA = 'X'.
   PERFORM DOWNLOAD_DATA.
   PERFORM DOWNLOAD_FILE.
ENDIF.
IF UPDDATA = 'X'.
   PERFORM UPLOAD_FILE.
   PERFORM UPDATE_MM.
ENDIF.
 
FORM DOWNLOAD_DATA.
SELECT * FROM MARC  WHERE LVORM EQ ' '
                      AND WERKS IN PLANT
                      AND MATNR IN MATERIAL.
    CLEAR MARA.
    SELECT SINGLE * FROM MARA WHERE MATNR =  MARC-MATNR.
    CHECK MATLTYPE.
    CHECK DIVISION.
 
    CLEAR MBEW.
    SELECT SINGLE * FROM MBEW WHERE MATNR =  MARC-MATNR
                                AND BWKEY =  MARC-WERKS.
 
    CLEAR MAKT.
    SELECT SINGLE * FROM MAKT WHERE SPRAS =  'EN'
                                AND MATNR =  MARC-MATNR.
 
    WRITE:/ MARC-WERKS,    "Plant
            MARA-MTART,    "Material type
            MARA-MATNR,    "Material number
            MARA-MATKL,    "Material group
            MARA-MBRSH,    "Industry sector
            MARA-MEINS,    "Base unit of measure
            MARA-GEWEI,    "Weight Unit
            MARA-SPART,    "Division
            MARC-EKGRP,    "Purchasing group
            MBEW-VPRSV,    "Price control indicator
            MBEW-STPRS,    "Standard price
            MBEW-PEINH,    "Price unit
            MAKT-SPRAS,    "Language key
            MAKT-MAKTX.    "Material description
 
            INT_MAT-WERKS = MARC-WERKS.    "Plant
            INT_MAT-MTART = MARA-MTART.    "Material type
            INT_MAT-MATNR = MARA-MATNR.    "Material number
            INT_MAT-MATKL = MARA-MATKL.    "Material group
            INT_MAT-MBRSH = MARA-MBRSH.    "Industry sector
            INT_MAT-MEINS = MARA-MEINS.    "Base unit of measure
            INT_MAT-GEWEI = MARA-GEWEI.    "Weight Unit
            INT_MAT-SPART = MARA-SPART.    "Division
            INT_MAT-EKGRP = MARC-EKGRP.    "Purchasing group
            INT_MAT-VPRSV = MBEW-VPRSV.    "Price control indicator
            INT_MAT-STPRS = MBEW-STPRS.    "Standard price
            INT_MAT-PEINH = MBEW-PEINH.    "Price unit
            INT_MAT-SPRAS = MAKT-SPRAS.    "Language key
            INT_MAT-MAKTX = MAKT-MAKTX.    "Material description
 
            APPEND INT_MAT.
            CLEAR  INT_MAT.
ENDSELECT.
ENDFORM.
 
FORM DOWNLOAD_FILE.
call function 'WS_DOWNLOAD'
  EXPORTING
    FILENAME                      = F_FILE
    FILETYPE                      = 'DAT'
*   FILETYPE                      = 'WK1'
  tables
    data_tab                      = INT_MAT
  EXCEPTIONS
    FILE_OPEN_ERROR               = 1
    FILE_WRITE_ERROR              = 2
    INVALID_FILESIZE              = 3
    INVALID_TYPE                  = 4
    NO_BATCH                      = 5
    UNKNOWN_ERROR                 = 6
    INVALID_TABLE_WIDTH           = 7
    GUI_REFUSE_FILETRANSFER       = 8
    CUSTOMER_ERROR                = 9
    OTHERS                        = 10.
 
IF SY-SUBRC = 0.
   FORMAT COLOR COL_GROUP.
   WRITE:/ 'Data Download Successfully to your local harddisk'.
   SKIP.
ENDIF.
ENDFORM.
 
FORM UPLOAD_FILE.
call function 'WS_UPLOAD'
  EXPORTING
    FILENAME                      = F_FILE
    FILETYPE                      = 'DAT'
*   FILETYPE                      = 'WK1'
  tables
    data_tab                      = INT_MAT
  EXCEPTIONS
    FILE_OPEN_ERROR               = 1
    FILE_WRITE_ERROR              = 2
    INVALID_FILESIZE              = 3
    INVALID_TYPE                  = 4
    NO_BATCH                      = 5
    UNKNOWN_ERROR                 = 6
    INVALID_TABLE_WIDTH           = 7
    GUI_REFUSE_FILETRANSFER       = 8
    CUSTOMER_ERROR                = 9
    OTHERS                        = 10.
 
IF SY-SUBRC = 0.
   FORMAT COLOR COL_GROUP.
   WRITE:/ 'Data Upload Successfully from your local harddisk'.
   SKIP.
ENDIF.
ENDFORM.
 
FORM UPDATE_MM.
LOOP AT INT_MAT.
* Header
    BAPI_HEAD-MATERIAL        = INT_MAT-MATNR.
    BAPI_HEAD-IND_SECTOR      = INT_MAT-MBRSH.
    BAPI_HEAD-MATL_TYPE       = INT_MAT-MTART.
    BAPI_HEAD-BASIC_VIEW      = 'X'.
    BAPI_HEAD-PURCHASE_VIEW   = 'X'.
    BAPI_HEAD-ACCOUNT_VIEW    = 'X'.
* Material Description
    REFRESH INT_MAKT.
    INT_MAKT-LANGU           = INT_MAT-SPRAS.
    INT_MAKT-MATL_DESC       = INT_MAT-MAKTX.
    APPEND INT_MAKT.
* Client Data - Basic
    BAPI_MARA1-MATL_GROUP     = INT_MAT-MATKL.
    BAPI_MARA1-BASE_UOM       = INT_MAT-MEINS.
    BAPI_MARA1-UNIT_OF_WT     = INT_MAT-GEWEI.
    BAPI_MARA1-DIVISION       = INT_MAT-SPART.
 
    BAPI_MARAX-MATL_GROUP = 'X'.
    BAPI_MARAX-BASE_UOM   = 'X'.
    BAPI_MARAX-UNIT_OF_WT = 'X'.
    BAPI_MARAX-DIVISION   = 'X'.
* Plant - Purchasing
    BAPI_MARC1-PLANT      = INT_MAT-WERKS.
    BAPI_MARC1-PUR_GROUP  = INT_MAT-EKGRP.
 
    BAPI_MARCX-PLANT      = INT_MAT-WERKS.
    BAPI_MARCX-PUR_GROUP  = 'X'.
* Accounting
    BAPI_MBEW1-VAL_AREA   = INT_MAT-WERKS.
    BAPI_MBEW1-PRICE_CTRL = INT_MAT-VPRSV.
    BAPI_MBEW1-STD_PRICE  = INT_MAT-STPRS.
    BAPI_MBEW1-PRICE_UNIT = INT_MAT-PEINH.
 
    BAPI_MBEWX-VAL_AREA   = INT_MAT-WERKS.
    BAPI_MBEWX-PRICE_CTRL = 'X'.
    BAPI_MBEWX-STD_PRICE  = 'X'.
    BAPI_MBEWX-PRICE_UNIT = 'X'.
 
    WRITE:/ BAPI_HEAD, BAPI_MARC1.
 
    call function 'BAPI_MATERIAL_SAVEDATA'
      exporting
        HEADDATA                   = BAPI_HEAD
        CLIENTDATA                 = BAPI_MARA1
        CLIENTDATAX                = BAPI_MARAX
        PLANTDATA                  = BAPI_MARC1
        PLANTDATAX                 = BAPI_MARCX
*       FORECASTPARAMETERS         =
*       FORECASTPARAMETERSX        =
*       PLANNINGDATA               =
*       PLANNINGDATAX              =
*       STORAGELOCATIONDATA        =
*       STORAGELOCATIONDATAX       =
        VALUATIONDATA              = BAPI_MBEW1
        VALUATIONDATAX             = BAPI_MBEWX
*       WAREHOUSENUMBERDATA        =
*       WAREHOUSENUMBERDATAX       =
*       SALESDATA                  = BAPI_MVKE1
*       SALESDATAX                 = BAPI_MVKEX
*       STORAGETYPEDATA            =
*       STORAGETYPEDATAX           =
      IMPORTING
        RETURN                     = BAPI_RETURN
      TABLES
        MATERIALDESCRIPTION        = INT_MAKT
*       UNITSOFMEASURE             =
*       UNITSOFMEASUREX            =
*       INTERNATIONALARTNOS        =
*       MATERIALLONGTEXT           =
*       TAXCLASSIFICATIONS         =
*       RETURNMESSAGES             =
*       PRTDATA                    =
*       PRTDATAX                   =
*       EXTENSIONIN                =
*       EXTENSIONINX               =
          .
 
IF BAPI_RETURN-TYPE = 'E'.
   WRITE:/ 'Error Message ', BAPI_RETURN.
ENDIF.
 
ENDLOOP.
ENDFORM.
*---End of Program

via http://www.sap-img.com/abap/bapi-to-copy-materials-from-one-plant-to-another.htm

ABAP Program-Upload and download HR photo

Jack — Fri, 24 Apr 2009 07:22:12 +0000

Below is ABAP upload and download HR photo program.(via web)

REPORT  z_barry_hr_photo_upload.
 
DATA: sapobjid LIKE sapb-sapobjid,
      sappfad LIKE sapb-sappfad.
DATA: gd_path TYPE string ,
      filetab TYPE TABLE OF file_info WITH HEADER LINE,
      count TYPE i.
DATA: filename(40) TYPE c ,
      fileext(10) TYPE c ,
      len TYPE i .
 
PARAMETERS: filepath LIKE rlgrap-filename.
 
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filepath.
  CALL METHOD cl_gui_frontend_services=>directory_browse
    EXPORTING
      window_title    = 'File Directory'
      initial_folder  = 'C:\'
    CHANGING
      selected_folder = gd_path.
  CALL METHOD cl_gui_cfw=>flush.
  CONCATENATE gd_path '' INTO filepath.
 
START-OF-SELECTION.
  gd_path = filepath .
  CALL METHOD cl_gui_frontend_services=>directory_list_files
    EXPORTING
      directory                   = gd_path
      filter                      = '*.jpg'
    CHANGING
      file_table                  = filetab[]
      count                       = count
    EXCEPTIONS
      cntl_error                  = 1
      directory_list_files_failed = 2
      wrong_parameter             = 3
      error_no_gui                = 4
      not_supported_by_gui        = 5
      OTHERS                      = 6.
 
  LOOP AT filetab.
    SPLIT filetab-filename AT '.' INTO filename fileext.
    len = STRLEN( filename ) .
    IF len <> 8 .
      MESSAGE e000(oo) WITH '文件名长度必须等于8位'.
    ENDIF.
  ENDLOOP.
 
  LOOP AT filetab.
    CONCATENATE gd_path '\' filetab-filename INTO sappfad.
    CONCATENATE filetab-filename+0(8) '0002' INTO sapobjid.
    CALL FUNCTION 'ARCHIV_CREATE_FILE'
      EXPORTING
        ar_object               = 'HRICOLFOTO'
        object_id               = sapobjid
        sap_object              = 'PREL'
        doc_type                = 'JPG'
        path                    = sappfad
      EXCEPTIONS
        error_conectiontable    = 1
        error_parameter         = 2
        error_archiv            = 3
        error_upload            = 4
        error_kernel            = 5
        no_entry_possible       = 6
        error_comunicationtable = 7
        OTHERS                  = 8.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ELSE.
      WRITE : / 'Upload ',sappfad,'To pernr ',filetab-filename+0(8),'Sccuess!'.
    ENDIF.
  ENDLOOP.
 
 
 
REPORT  z_barry_hr_photo_down.
 
DATA: comps2 TYPE STANDARD TABLE OF scms_doinf WITH HEADER LINE,
      comp_names TYPE STANDARD TABLE OF scms_donam WITH HEADER LINE.
 
PARAMETERS p_pernr LIKE pa0001-pernr.
 
PERFORM photo_down USING p_pernr 'A' '18000101' '99991231' 'D:\abc.jpg'  .
 
*&---------------------------------------------------------------------*
*&      Form  URL_GET
*&---------------------------------------------------------------------*
FORM photo_down USING p_pernr LIKE pernr-pernr
                      p_tclas LIKE pspar-tclas
                      p_begda LIKE prelp-begda
                      p_endda LIKE prelp-endda
                      path TYPE c .
  DATA: l_connect_info LIKE toav0,
        l_exists(1) TYPE c .
  CALL FUNCTION 'HR_IMAGE_EXISTS'
    EXPORTING
      p_pernr        = p_pernr
      p_tclas        = p_tclas
      p_begda        = p_begda
      p_endda        = p_endda
    IMPORTING
      p_exists       = l_exists
      p_connect_info = l_connect_info
    EXCEPTIONS
      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 .
    EXIT.
  ENDIF.
  CALL FUNCTION 'SCMS_DOC_READ_FILES'
    EXPORTING
      stor_cat              = space
      crep_id               = l_connect_info-archiv_id
      doc_id                = l_connect_info-arc_doc_id
      path                  = path
      frontend              = 'X'
    TABLES
      comps                 = comps2
      comp_names            = comp_names
    EXCEPTIONS
      bad_storage_type      = 1
      bad_request           = 2
      unauthorized          = 3
      not_found             = 4
      conflict              = 5
      internal_server_error = 6
      error_http            = 7
      error_signature       = 8
      error_config          = 9
      error_hierarchy       = 10
      error_download        = 11
      error_open            = 12
      error_parameter       = 13
      error                 = 14
      OTHERS                = 15.
  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.                    "photo_down

ABAP ALV Report- SD FLOW ALV

Jack — Thu, 16 Apr 2009 08:41:25 +0000

ABAP ALV Report- SD FLOW ALV

*&———————————————————————*
*& Report  ZJACKTEST
*&
*&———————————————————————*
*&
*&
*&———————————————————————*
 
REPORT  ZJACKTEST.
 
TYPE-POOLS: slis.
TABLES: vbak,vbap, knvv, kna1, mara ,lips, vbrp.
TYPES: BEGIN OF record,
        sdoc LIKE vbak-vbeln,
        sitem LIKE vbap-posnr,
        mcode LIKE mara-matnr,
        mname LIKE vbap-arktx,
        oquanti LIKE vbap-kwmeng,
        ovalue LIKE vbap-netwr,
        ocurrency LIKE vbap-waerk,
        ddoc LIKE lips-vbeln,
        ditem LIKE lips-posnr,
        idoc LIKE vbrp-vbeln,
        iitem LIKE vbrp-posnr,
      END OF record.
 
DATA: itab TYPE STANDARD TABLE OF record WITH HEADER LINE.
DATA:  name1 LIKE kna1-name1,
       name2 LIKE kna1-name2.
DATA: i_fieldcat_alv TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      it_events TYPE slis_alv_event OCCURS 1 WITH HEADER LINE,
      alv_event        TYPE slis_t_event,
      I_layout TYPE slis_layout_alv,
      i_fieldcat TYPE slis_fieldcat_alv,
      pos        TYPE i VALUE 1,
      w_repid LIKE sy-repid.
*———————————————————————-*
* Selection-screen design                                              *
*———————————————————————-*
 
SELECT-OPTIONS: o_date FOR vbak-erdat OBLIGATORY.     "sales docu date
 
PARAMETERS: customer LIKE vbak-kunnr OBLIGATORY
            DEFAULT ‘GCN00010′,                      "customer code
            material LIKE mara-matnr OBLIGATORY
            DEFAULT ‘000000000280012001′.            "material number
*———————————————————————-*
* Start of selection event                                             *
*———————————————————————-*
 
*START-OF-SELECTION.
 
  PERFORM data_selection.
  perform layout_build.
  PERFORM fields.
  PERFORM append_alv_event CHANGING alv_event.
  PERFORM display_data.
*———————————————————————-*
*form data_selection
**
*———————————————————————-*
 
FORM data_selection.
SELECT a~vbeln b~posnr c~matnr b~arktx b~kwmeng b~netwr b~waerk
        c~vbeln c~posnr d~vbeln d~posnr
INTO (itab-sdoc, itab-sitem, itab-mcode, itab-mname,
       itab-oquanti,itab-ovalue,itab-ocurrency, itab-ddoc,
       itab-ditem, itab-idoc, itab-iitem)
FROM ( ( lips AS c
        INNER JOIN vbrp AS d ON c~vbeln = d~vgbel
                            AND c~posnr = d~vgpos
        INNER JOIN vbap AS b  ON c~vgbel = b~vbeln
                            AND  c~vgpos = b~posnr )
        INNER JOIN vbak AS a ON a~vbeln = b~vbeln )
WHERE a~erdat IN o_date AND a~kunnr = customer AND b~matnr = material.
    APPEND itab.
  ENDSELECT.
 
  IF sy-subrc NE 0.
    MESSAGE ‘No Corresponding Record!’ TYPE ‘I’.
  ENDIF.
ENDFORM.                    "data_selection
*———————————————————————-*
*form fields
**
*———————————————————————-*
FORM fields.
  REFRESH i_fieldcat_alv.
  pos = 1.
  CLEAR i_fieldcat.
 
  i_fieldcat-col_pos = pos.
  i_fieldcat-fieldname = ‘SDOC’.
  i_fieldcat-seltext_l = ‘주문번호’.
  APPEND i_fieldcat TO i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘SITEM’.
  i_fieldcat-seltext_l     = ‘아이템번호’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘MCODE’.
  i_fieldcat-seltext_l     = ‘제품코드’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘MNAME’.
  i_fieldcat-seltext_l     = ‘제품명’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘OQUANTI’.
  i_fieldcat-seltext_l     = ‘주문수량’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘OVALUE’.
  i_fieldcat-seltext_l     = ‘주문실적’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘OCURRENCY’.
  i_fieldcat-seltext_l     = ‘단위’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘DDOC’.
  i_fieldcat-seltext_l     = ‘납품문서번호’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘DITEM’.
  i_fieldcat-seltext_l     = ‘아이템’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘IDOC’.
  i_fieldcat-seltext_l     = ‘대금청구번호’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  pos = pos + 1.
  i_fieldcat-col_pos       =  pos.
  i_fieldcat-fieldname     = ‘IITEM’.
  i_fieldcat-seltext_l     = ‘아이템번호’.
  APPEND i_fieldcat TO  i_fieldcat_alv.
 
  CLEAR i_fieldcat.
ENDFORM.                    "fields
 
*———————————————————————-*
*form display_data
**
*———————————————————————-*
FORM display_data.
  w_repid = sy-repid.
  CALL FUNCTION ‘REUSE_ALV_LIST_DISPLAY’
    EXPORTING
      i_callback_program = w_repid
      i_callback_user_command = ‘USER_COMMAND’
   is_layout = i_layout
   it_events = alv_event[]
*      i_save             = ‘ ‘
      it_fieldcat        = i_fieldcat_alv[]
    TABLES
      t_outtab           = itab.
ENDFORM.                    "display_data
*———————————————————————-*
*form layout_build
**
*———————————————————————-*
Form layout_build.
*   I_layout-detail_popup      = ‘X’.  " Display row in popup
   I_layout-get_selinfos      = ‘X’.  " Read selection screen in
   i_layout-colwidth_optimize = ‘X’.
*   layout-zebra             = ‘X’.  "striped pattern
*   I_layout-f2code            = ‘&ETA’.
 
endform.                    " BUILD_LAYOUT
 
*———————————————————————-*
*      <–P_ALV_EVENT  text
*———————————————————————-*
FORM append_alv_event CHANGING p_alv_event TYPE slis_t_event.
  DATA ls_events TYPE slis_alv_event.
  ls_events-name = ‘USER_COMMAND’.
  ls_events-form = ‘USER_COMMAND’.
  APPEND ls_events TO p_alv_event.
*  ls_events-name = ‘TOP_OF_PAGE’.
*  ls_events-form = ‘TOP_OF_PAGE’.
*  APPEND ls_events TO p_alv_event.
ENDFORM.                    " append_alv_event
*&———————————————————————*
*&      Form  LINE_SELECTION
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM user_command USING r_ucomm LIKE sy-ucomm
                        rs_selfield TYPE slis_selfield.
  CHECK r_ucomm EQ ‘&amp;IC1′ AND NOT rs_selfield-value IS INITIAL.
  CASE rs_selfield-fieldname.
    WHEN ‘ITAB-SDOC’.
      SET PARAMETER ID ‘AUN’ FIELD rs_selfield-valuE.
      CALL TRANSACTION ‘VA03′ AND SKIP FIRST SCREEN.
    WHEN ‘ITAB-DDOC’.
      SET PARAMETER ID ‘VL’ FIELD rs_selfield-value.
      CALL TRANSACTION ‘VL03N’ AND SKIP FIRST SCREEN.
 
    WHEN ‘ITAB-IDOC’.
      SET PARAMETER ID ‘VF’ FIELD rs_selfield-value.
      CALL TRANSACTION ‘VF03′ AND SKIP FIRST SCREEN.
  ENDCASE.

SAPLab-SAP Tips! ABAP Tips! » ABAP Program

SAP Tips: Retrieve Deleted Programs in SAP

Related Posts

SAP ABAP Programs for Beginners

Related Posts

SAP ABAP Pending Purchase Recquisition (PR) Report

Related Posts

SAP Press Official ABAP™ Programming Guidelines(PDF version)

Related Posts

ABAP Tips: Get local printer information

Related Posts

ABAP Tips-ebook

Related Posts

ABAP Tips download(MS Word version)

Related Posts

BAPI to Copy Materials from one Plant to Another

Related Posts

ABAP Program-Upload and download HR photo

Related Posts

ABAP ALV Report- SD FLOW ALV

Related Posts