Popup olarak veri okuma
call function `POPUP_GET_VALUES` Örneği
form f_get_date changing chn_date type ZZNCR_E_PLANLANAN_TARIH.
data: ivals type table of sval.
data: xvals type sval.
data: lv_date type ZZNCR_E_PLANLANAN_TARIH.
data: lv_return type c.
clear chn_date.
xvals-tabname = `ZZNCR_YUKLEME`.
xvals-fieldname = `PLANLANANTARIH`.
lv_date = sy-datum + 1.
xvals-value = lv_date.
*write lv_date to xvals-value dd/mm/yyyy.
*call function `CONVERSION_EXIT_PDATE_OUTPUT`
* exporting
* input = lv_date
* IMPORTING
* OUTPUT = xvals-value
*
*call function `CONVERSION_EXIT_PDATE_OUTPUT`
* exporting
* input = lv_date
* IMPORTING
* OUTPUT = xvals-value
*
append xvals to ivals.
call function `POPUP_GET_VALUES`
exporting
popup_title = `Planlanan tarihi giriniz`
importing
RETURNCODE = lv_return
tables
fields = ivals
exceptions
error_in_fields = 1
others = 2.
check sy-subrc eq 0.
check LV_RETURN ne `A`.
read table ivals into xvals with key fieldname = `PLANLANANTARIH`.
if sy-subrc = 0.
chn_date = xvals-value.
* call function `CONVERSION_EXIT_PDATE_INPUT`
* exporting
* input = xvals-value
* IMPORTING
* OUTPUT = chn_date
* EXCEPTIONS
* INVALID_DATE = 1
* OTHERS = 2
* .
* if sy-subrc <> 0.
** Implement suitable error handling here
* clear chn_date.
* endif.
* exporting
* input = xvals-value
* IMPORTING
* OUTPUT = chn_date
* EXCEPTIONS
* INVALID_DATE = 1
* OTHERS = 2
* .
* if sy-subrc <> 0.
** Implement suitable error handling here
* clear chn_date.
* endif.
endif.
endform. SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; }.L0S32 { color: #3399FF; }.L0S33 { color: #4DA619; }.L0S52 { color: #0000FF; }SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; }.L0S31 { font-style: italic; color: #808080; }SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; }.L0S32 { color: #3399FF; }.L0S33 { color: #4DA619; }.L0S52 { color: #0000FF; }