- SAP Managed Tags
report zsd12085.
tables : zsd_mobil_aktr_b,zsd24011,mara,zsd24001,qmih,iloa,
makt,t024i.
**********************************************************************
type-pools: slis.
data: lt_fldcat type slis_t_fieldcat_alv with header line,
alv_layout type slis_layout_alv,
gt_header type slis_t_listheader with header line,
ls_fldcat type slis_fieldcat_alv,
gs_grid type lvc_s_glay,
gv_repid like sy-repid,
ok_code like sy-ucomm.
data : gs_grid_settings type lvc_s_glay.
data : begin of itab occurs 0.
include structure zsd24001.
data: ekipkodu type zsd_mobil_aktr_b-ekipkodu,
name1 type zsd_mobil_aktr_b-name1,
name2 type zsd_mobil_aktr_b-name2,
cagritarih type zsd_mobil_aktr_b-cagritarih,
adres type zsd_mobil_aktr_b-adres,
aktvaciklama type zsd_mobil_aktr_b-aktvaciklama,
telf1 type zsd_mobil_aktr_b-telf1,
telfx type zsd_mobil_aktr_b-telfx,
zzcagritipifyt type zsd24011-zzcagritipifyt,
iloan type qmih-iloan,
LV_CAGRI TYPE CHAR10,
LV_CAGRI1 TYPE P DECIMALS 2 ,
end of itab,
begin of lt_qmfe occurs 0,
qmnum type qmfe-qmnum,
fegrp type qmfe-fegrp,
fecod type qmfe-fecod,
end of lt_qmfe,
begin of lt_qmma occurs 0,
qmnum type qmma-qmnum,
mngrp type qmma-mngrp,
mncod type qmma-mncod,
end of lt_qmma.
********************************************************************
data: gt_fieldcat type slis_fieldcat_alv occurs 1 with header line.
********************************************************************
selection-screen: begin of block itab1 with frame title text-001.
select-options : s_bukrs for zsd24001-bukrs obligatory ,
s_iwerk for zsd24001-iwerk obligatory,
s_ekip for qmih-ingrp ,
s_aktr for zsd24001-aktrmtarih,
s_qmart for zsd24001-qmart,
s_qmnum for zsd24001-qmnum,
s_blds for zsd24001-bldrmstatu,
s_mobs for zsd24001-mobilstatu.
selection-screen:end of block itab1 .
start-of-selection .
perform getdata .
perform goster .
end-of-selection .
*&---------------------------------------------------------------------*
*& FORM GETDATA
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
* --> P1 TEXT
* <-- P2 TEXT
*----------------------------------------------------------------------*
form getdata.
select
zsd_mobil_aktr_b~aktrmtarih
zsd_mobil_aktr_b~ekipkodu
zsd_mobil_aktr_b~qmart
zsd_mobil_aktr_b~qmnum
zsd_mobil_aktr_b~bldrmstatu
zsd_mobil_aktr_b~mobilstatu
zsd_mobil_aktr_b~zzcagritipi
zsd_mobil_aktr_b~tuketici
zsd_mobil_aktr_b~name1
zsd_mobil_aktr_b~name2
zsd_mobil_aktr_b~strmn
zsd_mobil_aktr_b~guzergahtxt
zsd_mobil_aktr_b~bldrmstatu
zsd_mobil_aktr_b~cagritarih
zsd_mobil_aktr_b~adres
zsd_mobil_aktr_b~aktvaciklama
zsd_mobil_aktr_b~matnr
zsd_mobil_aktr_b~telf1
zsd_mobil_aktr_b~telfx
zsd_mobil_aktr_b~iwerk
zsd_mobil_aktr_b~bayino
* qmih~iloan
* qmih~ingrp
* iloa~bukrs
zsd24011~zzcagritipifyt
makt~maktx
qmel~qmcod
into corresponding fields of table itab from zsd_mobil_aktr_b
INNER JOIN qmel on zsd_mobil_aktr_b~qmnum eq qmel~qmnum
"INNER JOIN qmih on qmel~qmnum eq qmih~qmnum
"NNER JOIN iloa on qmih~iloan eq iloa~iloan
INNER JOIN zsd24011 on zsd_mobil_aktr_b~zzcagritipi eq
zsd24011~zzcagritipi
INNER JOIN makt on zsd_mobil_aktr_b~matnr eq makt~matnr
where
" iloa~bukrs in s_bukrs and
zsd_mobil_aktr_b~iwerk in s_iwerk and
zsd_mobil_aktr_b~ekipkodu in s_ekip and
zsd_mobil_aktr_b~aktrmtarih in s_aktr and
zsd_mobil_aktr_b~qmart in s_qmart and
qmel~qmnum in s_qmnum and
zsd_mobil_aktr_b~bldrmstatu in s_blds and
zsd_mobil_aktr_b~mobilstatu in s_mobs.
loop at itab .
CLEAR : ITAB-LV_CAGRI.
WRITE ITAB-ZZCAGRITIPIFYT TO ITAB-LV_CAGRI DECIMALS 2.
CALL FUNCTION 'MOVE_CHAR_TO_NUM'
EXPORTING
CHR = ITAB-LV_CAGRI
IMPORTING
NUM = ITAB-LV_CAGRI1
EXCEPTIONS
CONVT_NO_NUMBER = 1
CONVT_OVERFLOW = 2
OTHERS = 3.
select iloan from qmih into
itab-iloan
where qmnum eq itab-qmnum .
endselect.
select bukrs from iloa into
itab-bukrs
where iloan eq itab-iloan and
bukrs in s_bukrs .
endselect.
select qmnum fegrp fecod into table lt_qmfe
from qmfe for all entries in itab
where qmnum eq itab-qmnum.
sort lt_qmfe by qmnum.
select qmnum mngrp mncod into table lt_qmma
from qmma for all entries in itab
where qmnum eq itab-qmnum.
sort lt_qmma by qmnum.
read table lt_qmfe with key qmnum = itab-qmnum
binary search.
read table lt_qmma with key qmnum = itab-qmnum
binary search.
itab-fecod = lt_qmfe-fegrp.
itab-fprblm = lt_qmfe-fecod."lt_qmsm-mncod.
itab-czcode = lt_qmma-mncod.
select single name1 ort01 into (itab-bayi_ad,itab-ilce)
from kna1
where kunnr eq itab-bayino.
if itab-qmcod is not initial.
select single kurztext into itab-bp_text
from qpct where katalogart eq 'x'
and code eq itab-qmcod
and sprache eq 't'.
endif.
if itab-fecod is not initial.
select single kurztext into itab-hk_text
from qpgt where katalogart eq 'y'
and codegruppe eq itab-fecod
and sprache eq 't'.
endif.
if itab-fprblm is not initial.
select fegrp fecod from viqmfe into
(itab-fecod, itab-fprblm)
where qmnum eq itab-qmnum
order by qmnum descending.
perform f_get_code_text using 'y'
itab-fecod
itab-fprblm
changing itab-fp_text.
endselect.
endif.
if itab-czcode is not initial.
select single kurztext into itab-ck_text
from qpct where katalogart eq 'z'
and code eq itab-czcode
and sprache eq 't'.
endif.
select single innam into itab-ingrp_t from t024i
where iwerk eq itab-iwerk
and ingrp eq itab-ingrp.
select matxt from viqmma into itab-matxt
where qmnum eq itab-qmnum
order by qmnum descending .
endselect.
data : lv_mngrp like viqmma-mngrp,
lv_mncod like viqmma-mncod.
select mngrp mncod from viqmma into
(lv_mngrp, lv_mncod)
where qmnum eq itab-qmnum
order by qmnum descending.
endselect.
select single kurztext from qpct into itab-bp_text_islem
where codegruppe eq lv_mngrp and
code eq lv_mncod and
sprache eq 'tr' .
modify itab.
endloop.
endform. " getdata
*&---------------------------------------------------------------------*
*& form f_get_code_text
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->p_katalogart text
* -->p_codegruppe text
* -->p_code text
* -->p_text text
*----------------------------------------------------------------------*
form f_get_code_text using p_katalogart type qpct-katalogart
p_codegruppe type qpct-codegruppe
p_code type qpct-code
changing p_text type qpct-kurztext.
select single kurztext into p_text
from qpct where katalogart eq p_katalogart
and codegruppe eq p_codegruppe
and code eq p_code
and sprache eq 't'.
endform. " f_get_code_text
*&---------------------------------------------------------------------*
*& form goster
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form goster .
DATA: GV_COL_POS TYPE I.
DEFINE ADD-FIELDCAT.
GT_FIELDCAT-FIELDNAME = &1.
GT_FIELDCAT-REF_TABNAME = &2.
GT_FIELDCAT-REF_FIELDNAME = &3.
GT_FIELDCAT-SELTEXT_S = &4.
GT_FIELDCAT-SELTEXT_M = &4.
GT_FIELDCAT-SELTEXT_L = &4.
GT_FIELDCAT-REPTEXT_DDIC = &4.
GT_FIELDCAT-DDICTXT = 'L'.
" GT_FIELDCAT-no_out = &5.
GT_FIELDCAT-COL_POS = GV_COL_POS.
ADD 1 TO GV_COL_POS.
APPEND GT_FIELDCAT. CLEAR GT_FIELDCAT.
END-OF-DEFINITION.
********************************************************************
add-fieldcat 'ZZCAGRITIPI' 'ZSD_MOBIL_AKTR_B' 'ZZCAGRITIPI' 'Çağrı Tipi Tanımı'.
add-fieldcat 'EKIPKODU' 'ZSD_MOBIL_AKTR_B' 'EKIPKODU' 'Ekip Kodu'.
add-fieldcat 'BUKRS' 'ILOA' 'BUKRS' 'Şirket Kodu'.
add-fieldcat 'LV_CAGRI1' ' ' ' ' 'Çağrı Tipi Fiyatı'.
add-fieldcat 'TUKETICI' 'ZSD_MOBIL_AKTR_B' 'TUKETICI' 'Tüketici No'.
add-fieldcat 'QMNUM' 'ZSD_MOBIL_AKTR_B' 'QMNUM' 'Bildirim'.
add-fieldcat 'NAME1' 'ZSD_MOBIL_AKTR_B' 'NAME1' 'Tüketici Adı'.
add-fieldcat 'NAME2' 'ZSD_MOBIL_AKTR_B' 'NAME2' 'Tüketici Soyadı'.
add-fieldcat 'STRMN' 'ZSD_MOBIL_AKTR_B' 'STRMN' 'İstenen Başlangıç Termini'.
add-fieldcat 'GUZERGAHTXT' 'ZSD_MOBIL_AKTR_B' 'GUZERGAHTXT' 'Güzergah Tanımı'.
add-fieldcat 'BLDRMSTATU' 'ZSD_MOBIL_AKTR_B' 'BLDRMSTATU' 'Bildirim Statü Açıklama'.
add-fieldcat 'CAGRITARIH' 'ZSD_MOBIL_AKTR_B' 'CAGRITARIH' 'Çağrı Oluşturma Tarihi'.
add-fieldcat 'ADRES' 'ZSD_MOBIL_AKTR_B' 'ADRES' 'Adres'.
add-fieldcat 'MAKTX' 'ZSD_MOBIL_AKTR_B' 'MAKTX' 'Malzeme Tanımı'.
add-fieldcat 'AKTVACIKLAMA' 'ZSD_MOBIL_AKTR_B' 'AKTVACIKLAMA' 'Tanım'.
add-fieldcat 'MATNR' 'ZSD_MOBIL_AKTR_B' 'MATNR' 'Malzeme'.
add-fieldcat 'MOBILSTATU' 'ZSD_MOBIL_AKTR_B' 'MOBILSTATU' 'Mobil Statü'.
add-fieldcat 'QMART' 'ZSD_MOBIL_AKTR_B' 'QMART' 'Bildirim Türü'.
add-fieldcat 'TELF1' 'ZSD_MOBIL_AKTR_B' 'TELF1' 'Telefon'.
add-fieldcat 'TELFX' 'ZSD_MOBIL_AKTR_B' 'TELFX' 'Mobil Telefon'.
add-fieldcat 'BLDRMSTATU' 'ZSD_MOBIL_AKTR_B' 'BLDRMSTATU' 'Bildirim Statü'.
add-fieldcat 'BAYI_AD' 'KNA1' 'NAME1' 'Bayi Adı'.
add-fieldcat 'ILCE' 'KNA1' 'ort01' 'İlçe'.
add-fieldcat 'bp_text' 'QPCT' 'kurztext' 'Bildirilen Prb.Tanım'.
add-fieldcat 'IWERK' 'ZSD_MOBIL_AKTR_B' 'IWERK' 'Planlama Üretim Yeri'.
add-fieldcat 'AKTRMTARIH' 'ZSD_MOBIL_AKTR_B' 'AKTRMTARIH' 'Aktarım Tarihi'.
add-fieldcat 'INGRP_T' 'T024I' 'INNAM' 'Planlama Grubu Metni'.
add-fieldcat 'FECOD' 'QMFE' 'FECOD' 'Hata Kaynağı'.
add-fieldcat 'HK_TEXT' 'QPCT' 'KURZTEXT' 'Hata Kaynağı Tanımı'.
add-fieldcat 'FPRBLM' 'QMFE' 'FECOD' 'Fiili Problem'.
add-fieldcat 'FP_TEXT' 'QPCT' 'KURZTEXT' 'Fiili Problem Tanımı'.
add-fieldcat 'CZCODE' 'QMMA' 'MNCOD' 'Fiili Çözüm Kodu'.
add-fieldcat 'CK_TEXT' 'QPCT' 'KURZTEXT' 'Fiili Çözüm Tanımı'.
add-fieldcat 'BP_TEXT_ISLEM' 'QPCT' 'KURZTEXT' 'Exper İşlem Kodu Metni'.
add-fieldcat 'MATXT' 'VIQMMA' 'MATXT' 'Exper İşlem Metni'.
********************************************************************
alv_layout-zebra = 'X'.
alv_layout-colwidth_optimize = 'X'.
alv_layout-detail_popup = 'X'.
alv_layout-expand_fieldname = 'CHK'.
gs_grid_settings-edt_cll_cb = 'X'.
********************************************************************
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_callback_program = sy-repid
it_fieldcat = GT_FIELDCAT[]
is_layout = alv_layout
i_callback_pf_status_set = 'SET_PF_STATUS'
i_grid_settings = gs_grid_settings
i_default = 'X'
i_save = 'A'
" i_callback_user_command = 'USER_COMMAND'
tables
t_outtab = itab[].
endform. "goster
*&---------------------------------------------------------------------*
*& FORM TOP_OF_PAGE
*&---------------------------------------------------------------------*
* TEXT
*----------------------------------------------------------------------*
form top_of_page.
perform build_header.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING " i_logo = 'z_ech_logo'
" i_background_id = 'z_ech_logo'
it_list_commentary = gt_header[].
endform. "top_of_page
*&---------------------------------------------------------------------*
*& Form BUILD_HEADER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
form set_pf_status using rt_extab type slis_t_extab.
set pf-status 'Z100'.
endform.
form build_header .
clear: gt_header[].
gt_header-typ = 'H'.
gt_header-info = ' Raporu'.
append gt_header.
endform. "
Bluesky
