POPUP_TO_CONFIRM
SAP İşlem Kodlarını Tutar.
CALL FUNCTION 'POPUP_TO_CONFIRM'
EXPORTING
text_question = 'Seçilen kayıtlar silinecek'
text_button_1 = 'Evet'
icon_button_1 = 'ICON_OKAY '
text_button_2 = 'Hayır'
icon_button_2 = 'ICON_CANCEL'
display_cancel_button = ' '
popup_type = 'ICON_MESSAGE_QUESTION'
* IMPORTING
* answer = lv_mind
EXCEPTIONS
text_not_found = 1
OTHERS = 2.
|
FIRST / LAST_DAY_IN_PERIOD_GET
Belli bir tarih aralığının ilk veya son gününü döner.
CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
EXPORTING
i_gjahr = p_gjahr
i_periv = p_periv
i_poper = p_poper
IMPORTING
e_date = s_islemt-low
EXCEPTIONS
input_false = 1
t009_notfound = 2
t009b_notfound = 3
OTHERS = 4.
CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET'
EXPORTING
i_gjahr = p_gjahr
i_periv = p_periv
i_poper = p_poper
IMPORTING
e_date = s_islemt-high
EXCEPTIONS
input_false = 1
t009_notfound = 2
t009b_notfound = 3
OTHERS = 4.
|
NUMBER GET NEXT
Belli bir aralıktaki sıradaki sayıyı almaya yarar.
Örnek Program:
CALL FUNCTION 'NUMBER_GET_NEXT'
EXPORTING
nr_range_nr = '01'
object = 'ZYAV_DENE'
* QUANTITY = '1'
* SUBOBJECT = ' '
* TOYEAR = '0000'
* IGNORE_BUFFER = ' '
IMPORTING
NUMBER = FIRMANO
* QUANTITY =
* RETURNCODE =
EXCEPTIONS
INTERVAL_NOT_FOUND = 1
NUMBER_RANGE_NOT_INTERN = 2
OBJECT_NOT_FOUND = 3
QUANTITY_IS_0 = 4
QUANTITY_IS_NOT_1 = 5
INTERVAL_OVERFLOW = 6
BUFFER_OVERFLOW = 7
OTHERS = 8.
|
TH POPUP
Online kullanıcıya mesaj atmak için kullanılır.
Örnek Program:
CALL FUNCTION 'TH_POPUP'
EXPORTING
client = '100'
user = 'YKOMUT'
message = 'Selam Ben Hasan'
* MESSAGE_LEN = 0
* CUT_BLANKS = ' '
* EXCEPTIONS
* USER_NOT_FOUND = 1
* OTHERS = 2.
|
CONVERT TO LOCAL / FOREIGN CURRENCY
Para birimi değişimlerinde kullanılırlar.
Örnek Program:
FORM convert_currency USING p_tarih
p_netwr_from
p_waers_from
p_waers_to
p_kurst
p_lcl_waers "TRY
CHANGING p_netwr_to.
IF p_waers_from NE p_waers_to.
IF p_waers_from NE p_lcl_waers.
CALL FUNCTION 'CONVERT_TO_LOCAL_CURRENCY'
EXPORTING
date = p_tarih
foreign_amount = p_netwr_from
foreign_currency = p_waers_from
local_currency = p_lcl_waers
type_of_rate = p_kurst
IMPORTING
local_amount = p_netwr_to
EXCEPTIONS
no_rate_found = 1
overflow = 2
no_factors_found = 3
no_spread_found = 4
derived_2_times = 5
OTHERS = 6.
ENDIF.
IF p_waers_to NE p_lcl_waers.
IF p_netwr_to EQ 0.
p_netwr_to = p_netwr_from.
ENDIF.
CALL FUNCTION 'CONVERT_TO_FOREIGN_CURRENCY'
EXPORTING
date = p_tarih
foreign_currency = p_waers_to
local_amount = p_netwr_to
local_currency = p_lcl_waers
type_of_rate = p_kurst
IMPORTING
foreign_amount = p_netwr_to
EXCEPTIONS
no_rate_found = 1
overflow = 2
no_factors_found = 3
no_spread_found = 4
derived_2_times = 5
OTHERS = 6.
ENDIF.
ELSE.
p_netwr_to = p_netwr_from.
ENDIF.
ENDFORM. " convert_currency
|
MD CONVERT MATERIAL UNIT
Bir malzemenin miktarının başka bir ölçü birimine çevrilmesinde kullanılır.
Örnek Program:
CALL FUNCTION 'MD_CONVERT_MATERIAL_UNIT'
EXPORTING
i_matnr = gv_matnr
i_in_me = mlgn-lhme1
i_out_me = gv_meins
i_menge = mlgn-lhmg1
IMPORTING
e_menge = mlgn-lhmg1
EXCEPTIONS
error_in_application = 1
error = 2
OTHERS = 3.
|
MESSAGES SHOW
Kullanıcıdan onay almak için kullanılır.
Örnek Program:
DATA : lt_messtab LIKE bdcmsgcoll OCCURS 100 WITH HEADER LINE.
CLEAR: lt_messtab[], lt_messtab.
lt_messtab-msgid = 'YZAPM_PR'.
lt_messtab-msgtyp = 'S'.
lt_messtab-msgnr = '061'.
lt_messtab-msgv1 = operation_table-vornr. "operation_table-sakto.
lt_messtab-msgv2 = lt_zz-sakto.
lt_messtab-msgv3 = ''.
lt_messtab-msgv4 = ''.
APPEND lt_messtab.
IF lt_messtab[] IS NOT INITIAL.
CALL FUNCTION 'MESSAGES_INITIALIZE'.
LOOP AT lt_messtab.
CALL FUNCTION 'MESSAGE_STORE'
EXPORTING
arbgb = lt_messtab-msgid
msgty = lt_messtab-msgtyp
msgv1 = lt_messtab-msgv1
msgv2 = lt_messtab-msgv2
msgv3 = lt_messtab-msgv3
msgv4 = lt_messtab-msgv4
txtnr = lt_messtab-msgnr.
ENDLOOP.
CALL FUNCTION 'MESSAGES_SHOW'.
CLEAR : lt_messtab, lt_messtab[].
ENDIF.
|
PROGRESS INDICATOR
Programın belli bir bölümünün çalışması esnasında programın donmadığını göstermek için status bar da programın çalışmaya devam ettiğini gösterir.
Örnek Program:
*&---------------------------------------------------------------------*
*& Form PROGRESS_INDICATOR
*&---------------------------------------------------------------------*
FORM progress_indicator USING p_text.
** Monitors Progress of Report of Run in Foreground
IF sy-batch NE 'X'.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
EXPORTING
text = p_text.
ENDIF.
ENDFORM. " PROGRESS_INDICATOR
|
| |
