Birgün herkes abapçı olacak...

[feroabap-blog]

Uzun metin kaydetme.

FORM f_save_long_texts .

  DATA : lv_tdobject LIKE thead-tdobject ,          lv_tdid     LIKE thead-tdid .

  DATA : ls_header LIKE  thead                        ,          lv_tdname LIKE thead-tdname                  ,          lv_function                                  ,          lt_lines TYPE TABLE OF tline WITH HEADER LINE,          lt_lines_tmp TYPE TABLE OF tline WITH HEADER LINE,          lv_commit_count LIKE  sy-index               .

  lv_tdid     = '0001'   .   lv_tdobject = 'ZNPNOT' .

*--------------------------------------------------------------------* *save   LOOP AT gt_longt .

    CONCATENATE gt_longt-talepno gt_longt-posnr                 gt_longt-svktar            INTO lv_tdname .

    CALL FUNCTION 'INIT_TEXT'       EXPORTING         id       = lv_tdid         language = sy-langu         name     = lv_tdname         object   = lv_tdobject       IMPORTING         header   = ls_header       TABLES         lines    = lt_lines       EXCEPTIONS         id       = 1         language = 2         name     = 3         object   = 4.

    DATA : lv_x TYPE c VALUE 'X' .

    lt_lines[] = gt_longt-tlines[] .

    CALL FUNCTION 'SAVE_TEXT'       EXPORTING         header          = ls_header         savemode_direct = lv_x       IMPORTING         newheader       = ls_header         function        = lv_function       TABLES         lines           = lt_lines[]       EXCEPTIONS         object          = 1         id              = 2         language        = 3         name            = 4.     IF  lv_function = 'I' OR         lv_function = 'U'.       CALL FUNCTION 'COMMIT_TEXT'         IMPORTING           commit_count = lv_commit_count.     ENDIF.   ENDLOOP .

ENDFORM .

[feroabap-blog]

OO ALV'de araç çubuğundaki butona basıldığında yakalamak kod yazmak için.

METHOD handle_toolbar. * define local data   DATA: ls_button    TYPE stb_button.   " Redefine function code   LOOP AT e_object->mt_toolbar INTO ls_button                   WHERE ( function = cl_gui_alv_grid=>MC_FC_LOC_INSERT_ROW ).     ls_button-function = 'MY_FCODE'.  " triggers USER_COMMAND     MODIFY e_object->mt_toolbar FROM ls_button INDEX syst-tabix.   ENDLOOP.   ENDMETHOD.

  method handle_user_command .

    CASE e_ucomm.       WHEN 'MY_FCODE'.         PERFORM f_proc_fcode .

    ENDCASE.

  endmethod.

[feroabap-blog]

Table maintenance event kontrol

Bakım ekranından giriş yaptığınız bir tabloda tarih aralığı girişi daha önceden girilmiş bir aralığı kapsadığında hata versin isteniyorsa “05″ numaralı eventi kullanmalısınız. ilgili kod aşağıdadır. Bu evente enter yapıldığında düşüyor.

*&---------------------------------------------------------------------* *&      Form  check_data2 *&---------------------------------------------------------------------* *       text *----------------------------------------------------------------------* FORM check_data .

 DATA : lt_durus_ist TYPE TABLE OF zpp_durus_ist ,         ls_durus_ist TYPE zpp_durus_ist .

 LOOP AT total .    MOVE-CORRESPONDING <vim_total_struc> TO ls_durus_ist .    APPEND ls_durus_ist TO lt_durus_ist .  ENDLOOP .

 RANGES : r_datum FOR sy-datum .

 DATA : lv_err TYPE c .

 CLEAR lv_err  .

 LOOP AT lt_durus_ist INTO ls_durus_ist    WHERE werks  = zpp_durus_ist-werks      AND urhat  = zpp_durus_ist-urhat .

   REFRESH r_datum . CLEAR r_datum .

   r_datum-sign   = 'I'  .    r_datum-option = 'BT' .    r_datum-low    = ls_durus_ist-zbasla .    r_datum-high   = ls_durus_ist-zbitis .    APPEND r_datum .

   IF zpp_durus_ist-zbasla IN r_datum    OR zpp_durus_ist-zbitis IN r_datum .      lv_err = 'X' .      EXIT .    ENDIF .  ENDLOOP .

 IF lv_err = 'X' .    MESSAGE e000(zsd)     WITH 'Daha önce bu girişi kapsayan bir giriş yapılmış!'.  ENDIF .

ENDFORM .                    "check_data