SAPLab-SAP Tips! ABAP Tips! » Program

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.

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.

ABAP Tips Block Input Area Tip

Jack — Thu, 16 Apr 2009 08:37:34 +0000

How to block input area? You can check below method.

PARAMETERS: p_werks LIKE mseg-werks OBLIGATORY DEFAULT ‘PHAS’ MODIF ID bl2.
AT SELECTION-SCREEN OUTPUT.
LOOP AT SCREEN.
IF screen-name = ‘P_WERKS’ .
screen-input = ‘0′.
screen-output = ‘1′.
MODIFY SCREEN.
ENDIF.
ENDLOOP.

ABAP ALV Double Click CO03

Jack — Thu, 16 Apr 2009 08:33:55 +0000

My client asks me to add a function that when he double click order column, he wants to see CO03.
Below is the ABAP code.

*&———————————————————————*
*&      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 ‘AUFNR’.
SET PARAMETER ID ‘ANR’ FIELD rs_selfield-value.
CALL TRANSACTION ‘CO03′ AND SKIP FIRST SCREEN.
ENDCASE.
ENDFORM.                    ” LINE_SELECTION

ABAP Create Excel Download button at Selection Screen

Jack — Thu, 16 Apr 2009 08:30:35 +0000

If you want to create Excel download button at selection screen, you can check below method.

TABLES: sscrfields.
 
INITIALIZATION.
 
PERFORM init_data.
 
PERFORM file_download.
 
*&———————————————————————*
*&      Form  INIT_DATA
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM INIT_DATA .
 
sscrfields-functxt_01 = text-f01.
 
ENDFORM.                    ” INIT_DATA
*&———————————————————————*
*&      Form  FILE_DOWNLOAD
*&———————————————————————*
*       text
*———————————————————————-*
*  –>  p1        text
*  <–  p2        text
*———————————————————————-*
FORM FILE_DOWNLOAD .
 
DATA : t_dfname   TYPE rlgrap-filename VALUE ‘C:\’,
t_filename TYPE string.
 
* download file name
CALL FUNCTION ‘F4_FILENAME’
EXPORTING
program_name  = sy-repid
dynpro_number = sy-dynnr
IMPORTING
file_name     = t_dfname.
 
* file name
t_filename = t_dfname.
 
IF t_filename IS INITIAL OR
t_filename = ‘C:\’.
MESSAGE ‘파일 경로를 입력해 주세요.’ TYPE ‘I’.
STOP.
ENDIF.
 
* download template
CALL FUNCTION ‘GUI_DOWNLOAD’
EXPORTING
filename = t_filename
filetype = ‘DAT’
TABLES
data_tab = <gt_table>.
 
CALL FUNCTION ‘MS_EXCEL_OLE_STANDARD_DAT’
EXPORTING
file_name                 = t_dfname
TABLES
data_tab                  = <gt_table>
fieldnames                = it_head
EXCEPTIONS
file_not_exist            = 1
filename_expected         = 2
communication_error       = 3
ole_object_method_error   = 4
ole_object_property_error = 5
invalid_pivot_fields      = 6
download_problem          = 7
OTHERS                    = 8.
 
IF sy-subrc <> 0.
MESSAGE ‘Excel Open Error’ TYPE ‘I’.                   “#EC NOTEXT
STOP.
ENDIF.
 
ENDFORM.                    ” FILE_DOWNLOAD

SAPLab-SAP Tips! ABAP Tips! » Program

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

ABAP Tips Block Input Area Tip

Related Posts

ABAP ALV Double Click CO03

Related Posts

ABAP Create Excel Download button at Selection Screen

Related Posts