*&---------------------------------------------------------------------*

*& Include ZXRSAU01 *

*&---------------------------------------------------------------------*
*"----------------------------------------------------------------------
*"----------------------------------------------------------------------
*----------------------------------------------------------------------*
* MODIFICATION LOGS *
*----------------------------------------------------------------------*
* Date Modified by Description *
* ==== =========== ======================================= *
*25.04.2014 SULEO Customer Exit created. *
*----------------------------------------------------------------------*

*============================================================================

*"*"Lokale Schnittstelle:
*" IMPORTING
*" VALUE(I_DATASOURCE) TYPE RSAOT_OLTPSOURCEf
*" VALUE(I_ISOURCE) TYPE SBIWA_S_INTERFACE-ISOURCE
*" VALUE(I_UPDMODE) TYPE SBIWA_S_INTERFACE-UPDMODE
*" TABLES
*" I_T_SELECT TYPE SBIWA_T_SELECT
*" I_T_FIELDS TYPE SBIWA_T_FIELDS
*" C_T_DATA
*" C_T_MESSAGES STRUCTURE BALMI OPTIONAL
*" EXCEPTIONS
*" RSAP_CUSTOMER_EXIT_ERROR

DATA: l_s_crmt_bw_oppt_h LIKE crmt_bw_oppt_h.

DATA: l_s_crmt_bw_ds_activity LIKE crmt_bw_ds_activity.
DATA: l_s_crmt_bw_lead_h LIKE crmt_bw_lead_h.
DATA: l_tabix LIKE sy-tabix.
DATA zilgarac TYPE zdtel0000bb.
DATA z_neden TYPE qcode.
DATA z_alt_ned TYPE zdtel0000cg.
DATA zcmmusteri TYPE crmt_end_customer.
DATA z_ssuresi TYPE zdtel0000cn.
DATA z_cvp TYPE sc_tstfro.
DATA z_atanma TYPE sc_tstfro.
DATA: l_s_zoxccd0184 LIKE zoxccd0184 .
DATA: partner_no_guid2 TYPE bu_partner_guid,
ls_partner TYPE ibap_part1,
ls_zoxccd0188 TYPE zoxccd0188,
et_comp_tab TYPE ibap_comp4_tab,
es_comp_tab TYPE ibap_comp4,
lt_but_mktperm TYPE crmt_but_mktperm_all_t,
ls_but_mktperm TYPE crmt_but_mktperm_all,
chardate1(14),
chardate2(14),
lv_startdate TYPE crmt_wty_sdate,
lv_enddate TYPE crmt_wty_edate.

* Begin of Changes:0917R277797-CCDK914974-Soumya Pattanaik-IBMCICDEV1-04/10/2017

* Begin of Changes:0917R277797-CCDK914891-Soumya Pattanaik-IBMCICDEV1-13/09/2017
* Additions of fields in 'CRMT_BW_LEAD_H' structure of DataSource '0CRM_LEAD_H'
* to display bank name in BW Report
* BW
TYPES : BEGIN OF ty_objguid_b_sel,
 objguid_b_sel TYPE crmt_object_guid,
END OF ty_objguid_b_sel.
TYPES : BEGIN OF ty_guid,
guid TYPE crmt_object_guid,
END OF ty_guid.
DATA : lt_objguid_b_sel TYPE TABLE OF ty_objguid_b_sel.
DATA : lt_guid TYPE TABLE OF ty_guid,
ls_guid LIKE LINE OF lt_guid.
DATA: lv_zzfld0000aw TYPE zdtel0000vr,
lv_bank_name TYPE zbankname.
CONSTANTS : lc_ptype TYPE crmt_process_type_db VALUE 'ZKIT'.
* End of Changes:0917R277797-CCDK914891-Soumya Pattanaik-IBMCICDEV1-13/09/2017

TABLES: crmd_mktpl_tggrp, crmd_mkttg_tg_h.

CASE i_datasource.

WHEN '0CRM_OPPT_H'. "Opportunity Header

LOOP AT c_t_data INTO l_s_crmt_bw_oppt_h.

l_tabix = sy-tabix.

DATA partner_no_guid TYPE crmt_partner_no.

DATA partner_no TYPE bu_partner.
DATA guidd TYPE crmt_object_guid.
DATA bayi TYPE objektid.

CLEAR partner_no_guid.
CLEAR partner_no.
CLEAR guidd.
CLEAR bayi.

SELECT SINGLE guid_set INTO guidd

FROM crmd_link
WHERE guid_hi EQ l_s_crmt_bw_oppt_h-guid
AND objtype_hi = '05'
AND objtype_set = '07'.

IF sy-subrc = 0.

SELECT SINGLE partner_no

INTO partner_no_guid
FROM crmd_partner
WHERE guid EQ guidd
AND partner_fct EQ 'Z0000004'.

ENDIF.

IF sy-subrc = 0.

SELECT SINGLE partner

INTO partner_no
FROM but000
WHERE partner_guid = partner_no_guid .

ENDIF.

IF sy-subrc = 0.

SELECT SINGLE objid

 INTO bayi
FROM hrp1001
WHERE plvar = '01'
AND rsign = 'B'
AND relat = '207'
AND sclas = 'BP'
AND sobid = partner_no.

ENDIF.

IF sy-subrc = 0.
l_s_crmt_bw_oppt_h-z_bayii = bayi.
ENDIF.

"UFUK
"----------------------------------------------------

** elik Motor Msterisi ( BPARTNER zerinde / Burdan kaldirilabilir )

*
* select single partner1
* into zcmmusteri
* from but050
* where partner2 = l_s_crmt_bw_oppt_h-prospect
* and reltyp = 'ZBYMUS'
* and date_to = '99991231'.
*
* if sy-subrc = 0.
* l_s_crmt_bw_oppt_h-zcmmusteri = zcmmusteri.
* else.
* l_s_crmt_bw_oppt_h-zcmmusteri = l_s_crmt_bw_oppt_h-prospect.
* endif.
* """""
CLEAR: zcmmusteri.
SELECT SINGLE partner1
INTO zcmmusteri
FROM but050
WHERE partner2 = l_s_crmt_bw_oppt_h-prospect
AND reltyp = 'ZBYMUS'
AND date_to = '99991231'.
IF sy-subrc = 0.
l_s_crmt_bw_oppt_h-zcmmusteri = zcmmusteri.
ELSE.
SELECT SINGLE partner2
INTO zcmmusteri
FROM but050
WHERE partner1 = l_s_crmt_bw_oppt_h-prospect
AND reltyp = 'ZBYMUS'
AND date_to = '99991231'.
IF sy-subrc = 0.
l_s_crmt_bw_oppt_h-zcmmusteri = zcmmusteri.
ENDIF.
ENDIF.
"----------------------------------------------------
SELECT SINGLE code_opp
INTO z_neden
FROM crmd_dhr_headopp
WHERE guid EQ l_s_crmt_bw_oppt_h-guid.

l_s_crmt_bw_oppt_h-z_neden = z_neden.
 SELECT SINGLE zzfld00004a
FROM crmd_dhr_headopp
INTO z_alt_ned
WHERE guid EQ l_s_crmt_bw_oppt_h-guid.

l_s_crmt_bw_oppt_h-z_alt_ned = z_alt_ned.

""""""

* Ilgili Ara ( Aktivite zerinden aliniyor ) ?

SELECT SINGLE zzfld00003y zzfld00004t zzfld00004u zzfld00004v

FROM crmd_orderadm_h
INTO (zilgarac, l_s_crmt_bw_oppt_h-zzfld00004t, l_s_crmt_bw_oppt_h-
zzfld00004u, l_s_crmt_bw_oppt_h-zzfld00004v)
WHERE guid EQ l_s_crmt_bw_oppt_h-guid.

l_s_crmt_bw_oppt_h-zilgarac = zilgarac.

SELECT SINGLE stat

FROM crm_jest
INTO (l_s_crmt_bw_oppt_h-z_opp_s)
WHERE objnr = l_s_crmt_bw_oppt_h-guid
AND stat LIKE 'E%' AND inact = ''.

SELECT SINGLE zzfld00004p

FROM crmd_orderadm_h
INTO z_ssuresi
WHERE guid EQ l_s_crmt_bw_oppt_h-guid.

l_s_crmt_bw_oppt_h-z_ssuresi = z_ssuresi.

SELECT SINGLE zzfld00005t zzfld00005u zzfld00005v

FROM crmd_opport_h
INTO (l_s_crmt_bw_oppt_h-zzfld00005t, l_s_crmt_bw_oppt_h-zzfld00005u,
l_s_crmt_bw_oppt_h-zzfld00005v)
WHERE guid = l_s_crmt_bw_oppt_h-guid.

SELECT SINGLE zzfld00004t zzfld00004u zzfld00004v

FROM crmd_orderadm_h
INTO (l_s_crmt_bw_oppt_h-zzfld00004t, l_s_crmt_bw_oppt_h-
zzfld00004u, l_s_crmt_bw_oppt_h-zzfld00004v)
WHERE guid EQ l_s_crmt_bw_oppt_h-guid.

MODIFY c_t_data FROM l_s_crmt_bw_oppt_h INDEX l_tabix.

ENDLOOP.
DATA: l_s_zoxccd0177 TYPE zoxccd0177.

WHEN '0CRM_LEAD_H'. "Lead Header

"""""""""""""""""""""""""" 14.07.2014

DATA:BEGIN OF t_lead OCCURS 0,

guid TYPE crmt_object_guid,
tst_from TYPE sc_tstfro,
 process_type TYPE crmt_process_type_db,
appt_type TYPE sc_appttyp,
END OF t_lead.

DATA acilis TYPE sc_tstfro.

DATA kapanis TYPE sc_tstfro.

DATA l_t_crmt_bw_lead_h TYPE TABLE OF crmt_bw_lead_h WITH HEADER LINE.

"DATA l_s_CRMT_BW_LEAD_H LIKE CRMT_BW_LEAD_H.

CLEAR :l_t_crmt_bw_lead_h,l_t_crmt_bw_lead_h[].

l_t_crmt_bw_lead_h[] = c_t_data[].

CLEAR : t_lead,t_lead[].

CLEAR t_lead.
CLEAR : l_s_crmt_bw_lead_h.

LOOP AT c_t_data INTO l_s_crmt_bw_lead_h.

l_tabix = sy-tabix.
* IF l_s_crmt_bw_lead_h-process_type = 'ZEA1'.
SELECT SINGLE a~tst_from
INTO z_cvp
FROM scapptseg AS a
INNER JOIN crmd_link AS b
ON a~appl_guid = b~guid_set
INNER JOIN crmd_orderadm_h AS c
ON b~guid_hi = c~guid
WHERE c~guid EQ l_s_crmt_bw_lead_h-guid
AND c~process_type = l_s_crmt_bw_lead_h-process_type
AND b~objtype_hi = '05'
AND b~objtype_set = '30'
AND a~appt_type = 'ZEA100000002'.

IF sy-subrc = 0.
l_s_crmt_bw_lead_h-z_cevap = z_cvp.
ENDIF.

SELECT SINGLE a~tst_from

INTO z_cvp
FROM scapptseg AS a
INNER JOIN crmd_link AS b
ON a~appl_guid = b~guid_set
INNER JOIN crmd_orderadm_h AS c
ON b~guid_hi = c~guid
WHERE c~guid EQ l_s_crmt_bw_lead_h-guid
AND c~process_type = l_s_crmt_bw_lead_h-process_type
AND b~objtype_hi = '05'
AND b~objtype_set = '30'
AND a~appt_type = 'ZEA100000001'.

IF sy-subrc = 0.
l_s_crmt_bw_lead_h-z_atanma = z_cvp.
ENDIF.

* satis mdr tarafindan satis danismanina atanma zamani

SELECT SINGLE a~tst_from

 INTO z_cvp
FROM scapptseg AS a
INNER JOIN crmd_link AS b
ON a~appl_guid = b~guid_set
INNER JOIN crmd_orderadm_h AS c
ON b~guid_hi = c~guid
WHERE c~guid EQ l_s_crmt_bw_lead_h-guid
AND c~process_type = l_s_crmt_bw_lead_h-process_type
AND b~objtype_hi = '05'
AND b~objtype_set = '30'
AND a~appt_type = 'ZEA100000005'.

IF sy-subrc = 0.
l_s_crmt_bw_lead_h-zea15 = z_cvp.
ENDIF.

*LEAD ACILIS TARIHI

SELECT SINGLE created_at

FROM crmd_orderadm_h
INTO acilis
WHERE guid EQ l_s_crmt_bw_lead_h-guid.

IF sy-subrc = 0.
l_s_crmt_bw_lead_h-z_acilis = acilis.
ENDIF.

*LEAD KAPANIS TARIHI

SELECT SINGLE a~tst_from

INTO kapanis
FROM scapptseg AS a
INNER JOIN crmd_link AS b
ON a~appl_guid = b~guid_set
INNER JOIN crmd_orderadm_h AS c
ON b~guid_hi = c~guid
WHERE c~guid EQ l_s_crmt_bw_lead_h-guid
AND c~process_type = l_s_crmt_bw_lead_h-process_type
AND b~objtype_hi = '05'
AND b~objtype_set = '30'
AND a~appt_type = 'ZEA100000003'.

IF sy-subrc = 0.
l_s_crmt_bw_lead_h-z_kapanis = kapanis.
ENDIF.
* ENDIF.

* IF l_s_crmt_bw_lead_h-process_type = 'ZTKS'.
* SELECT SINGLE a~tst_from
* INTO z_cvp
* FROM scapptseg AS a
* INNER JOIN crmd_link AS b
* ON a~appl_guid = b~guid_set
* INNER JOIN crmd_orderadm_h AS c
* ON b~guid_hi = c~guid
* WHERE c~guid EQ l_s_crmt_bw_lead_h-guid
* AND c~process_type = 'ZTKS'
* AND b~objtype_hi = '05'
* AND b~objtype_set = '30'
* AND a~appt_type = 'ZEA100000002'.
*
* IF sy-subrc = 0.
* l_s_crmt_bw_lead_h-z_cevap = z_cvp.
* ENDIF.
*
* SELECT SINGLE a~tst_from
* INTO z_cvp
* FROM scapptseg AS a
* INNER JOIN crmd_link AS b
* ON a~appl_guid = b~guid_set
* INNER JOIN crmd_orderadm_h AS c
* ON b~guid_hi = c~guid
* WHERE c~guid EQ l_s_crmt_bw_lead_h-guid
* AND c~process_type = 'ZTKS'
* AND b~objtype_hi = '05'
* AND b~objtype_set = '30'
* AND a~appt_type = 'ZEA100000001'.
*
* IF sy-subrc = 0.
* l_s_crmt_bw_lead_h-z_atanma = z_cvp.
* ENDIF.
*
** satis mdr tarafindan satis danismanina atanma zamani
*
* SELECT SINGLE a~tst_from
* INTO z_cvp
* FROM scapptseg AS a
* INNER JOIN crmd_link AS b
* ON a~appl_guid = b~guid_set
* INNER JOIN crmd_orderadm_h AS c
* ON b~guid_hi = c~guid
* WHERE c~guid EQ l_s_crmt_bw_lead_h-guid
* AND c~process_type = 'ZTKS'
* AND b~objtype_hi = '05'
* AND b~objtype_set = '30'
* AND a~appt_type = 'ZEA100000005'.
*
* IF sy-subrc = 0.
* l_s_crmt_bw_lead_h-zea15 = z_cvp.
* ENDIF.
*
**LEAD ACILIS TARIHI
*
* SELECT SINGLE created_at
* FROM crmd_orderadm_h
* INTO acilis
* WHERE guid EQ l_s_crmt_bw_lead_h-guid.
*
* IF sy-subrc = 0.
* l_s_crmt_bw_lead_h-z_acilis = acilis.
* ENDIF.
*
**LEAD KAPANIS TARIHI
*
* SELECT SINGLE a~tst_from
* INTO kapanis
* FROM scapptseg AS a
* INNER JOIN crmd_link AS b
* ON a~appl_guid = b~guid_set
* INNER JOIN crmd_orderadm_h AS c
* ON b~guid_hi = c~guid
* WHERE c~guid EQ l_s_crmt_bw_lead_h-guid
* AND c~process_type = 'ZTKS'
* AND b~objtype_hi = '05'
* AND b~objtype_set = '30'
* AND a~appt_type = 'ZEA100000003'.
*
* IF sy-subrc = 0.
* l_s_crmt_bw_lead_h-z_kapanis = kapanis.
* ENDIF.
* ENDIF.

l_tabix = sy-tabix.

CLEAR partner_no_guid.
CLEAR partner_no.
CLEAR guidd.
CLEAR bayi.

SELECT SINGLE guid_set

INTO guidd
FROM crmd_link
WHERE guid_hi EQ l_s_crmt_bw_lead_h-guid
AND objtype_hi = '05'
AND objtype_set = '07'.

IF sy-subrc = 0.
SELECT SINGLE partner_no
INTO partner_no_guid
FROM crmd_partner
WHERE guid EQ guidd
AND partner_fct EQ 'Z0000004'.
ENDIF.

IF sy-subrc = 0.
SELECT SINGLE partner
INTO partner_no
FROM but000
WHERE partner_guid = partner_no_guid .
ENDIF.

IF sy-subrc = 0.
SELECT SINGLE objid
INTO bayi
FROM hrp1001
WHERE plvar = '01'
AND rsign = 'B'
AND relat = '207'
AND sclas = 'BP'
AND sobid = partner_no.
ENDIF.
 IF sy-subrc = 0.
l_s_crmt_bw_lead_h-z_bayii = bayi.
ENDIF.

SELECT SINGLE zzfld00004p zzfld00004t zzfld00004u zzfld00004v

FROM crmd_orderadm_h
INTO (z_ssuresi, l_s_crmt_bw_lead_h-zzfld00004t, l_s_crmt_bw_lead_h-
zzfld00004u, l_s_crmt_bw_lead_h-zzfld00004v)
WHERE guid EQ l_s_crmt_bw_lead_h-guid.

l_s_crmt_bw_lead_h-z_ssuresi = z_ssuresi.

"UFUK
"-----------------------------------------------------
* select single partner1
* into zcmmusteri
* from but050
* where partner2 = l_s_crmt_bw_lead_h-prospect
* and reltyp = 'ZBYMUS'
* and date_to = '99991231'.
*
* if sy-subrc = 0.
* l_s_crmt_bw_lead_h-zcmmusteri = zcmmusteri.
* else.
* l_s_crmt_bw_lead_h-zcmmusteri = l_s_crmt_bw_lead_h-prospect.
* endif.

* CLEAR: zcmmusteri.
* select single partner1
* into zcmmusteri
* from but050
* where partner2 = l_s_crmt_bw_lead_h-prospect
* and reltyp = 'ZBYMUS'
* and date_to = '99991231'.
* if sy-subrc = 0.
* l_s_crmt_bw_lead_h-zcmmusteri = zcmmusteri.
* else.
* select single partner2
* into zcmmusteri
* from but050
* where partner1 = l_s_crmt_bw_lead_h-prospect
* and reltyp = 'ZBYMUS'
* and date_to = '99991231'.
* if sy-subrc = 0.
* l_s_crmt_bw_lead_h-zcmmusteri = zcmmusteri.
* ENDIF.
* ENDIF.

"UFUK
"----------------------------------------------------------

SELECT SINGLE zzfld00003y

FROM crmd_orderadm_h
INTO zilgarac
WHERE guid EQ l_s_crmt_bw_lead_h-guid.

l_s_crmt_bw_lead_h-zilgarac = zilgarac.
 SELECT SINGLE stat
FROM crm_jest
INTO (l_s_crmt_bw_lead_h-lead_s)
WHERE objnr = l_s_crmt_bw_lead_h-guid
AND stat LIKE 'E%' AND inact = ''.

SELECT SINGLE source

FROM crmd_lead_h
INTO (l_s_crmt_bw_lead_h-z_source)
WHERE guid = l_s_crmt_bw_lead_h-guid.

SELECT SINGLE head_changed_at FROM crmd_orderadm_h INTO

l_s_crmt_bw_lead_h-zchanged_ts
WHERE guid = l_s_crmt_bw_lead_h-guid AND ( process_type = 'ZEA1' OR
process_type = 'ZTKS' or process_type = 'ZKRN' ) .
* Begin of Changes:0917R277797-CCDK914891-Soumya Pattanaik-IBMCICDEV1-13/09/2017
* Additions of fields in 'CRMT_BW_LEAD_H' structure of DataSource '0CRM_LEAD_H'
* to display bank name in BW Report
* BW
IF sy-subrc = 0.
CLEAR : lv_zzfld0000aw, lv_bank_name, ls_guid.
REFRESH : lt_objguid_b_sel, lt_guid.
* Selecting objguid_b_sel from crmd_brelvonae by passing l_s_crmt_bw_lead_h-guid
objguid_a_sel in objguid_a_sel
SELECT objguid_b_sel
FROM crmd_brelvonae
INTO TABLE lt_objguid_b_sel
WHERE objguid_a_sel = l_s_crmt_bw_lead_h-guid.
IF sy-subrc = 0 AND lt_objguid_b_sel IS NOT INITIAL.
* Selecting guid from crmd_brelvonae by passing l_s_crmt_bw_lead_h-guid
objguid_a_sel in guid.
SELECT guid
FROM crmd_orderadm_h
INTO TABLE lt_guid
FOR ALL ENTRIES IN lt_objguid_b_sel
WHERE guid = lt_objguid_b_sel-objguid_b_sel
AND process_type = lc_ptype.
IF lt_guid IS NOT INITIAL.
* Read table lt_guid for ZKIT document to get desired Guid.
READ TABLE lt_guid INTO ls_guid INDEX 1.
IF sy-subrc = 0.
* Get bank Id from crmd_customer_h by passing guid.
SELECT SINGLE zzfld0000aw
INTO lv_zzfld0000aw
FROM crmd_customer_h
WHERE guid = ls_guid-guid.
IF lv_zzfld0000aw IS NOT INITIAL.
* Get bank name from zmrk_bank by passing zmrk_bank(bank id).
SELECT SINGLE bank_name
INTO lv_bank_name
FROM zmrk_bank
WHERE id = lv_zzfld0000aw.
IF lv_bank_name IS NOT INITIAL.
l_s_crmt_bw_lead_h-zzfld0000aw = lv_zzfld0000aw.
l_s_crmt_bw_lead_h-zzbank_name = lv_bank_name.
ENDIF.
ENDIF.
ENDIF.
 ENDIF.
ENDIF.
MODIFY c_t_data FROM l_s_crmt_bw_lead_h INDEX l_tabix.
CLEAR : l_s_crmt_bw_lead_h.
ENDIF.

* End of Changes:0917R277797-CCDK914891-Soumya Pattanaik-IBMCICDEV1-13/09/2017

ENDLOOP.

WHEN '0CRM_SALES_ACT_1'. "Aktivite

DATA:BEGIN OF t_crmt OCCURS 0,

guid TYPE crmt_object_guid,
tst_from TYPE sc_tstfro,
process_type TYPE crmt_process_type_db,
appt_type TYPE sc_appttyp,
END OF t_crmt.

DATA created TYPE comt_created_at_usr.

DATA changed TYPE comt_changed_at_usr.
DATA ztarih TYPE sc_tstfro.
DATA zappt_type TYPE sc_appttyp.

DATA lt_crmt_bw_ds_activity TYPE TABLE OF crmt_bw_ds_activity WITH HEADER

LINE.
DATA ls_crmt_bw_ds_activity LIKE crmt_bw_ds_activity.

CLEAR : lt_crmt_bw_ds_activity,lt_crmt_bw_ds_activity[].

lt_crmt_bw_ds_activity[] = c_t_data[].

CLEAR : t_crmt,t_crmt[].

LOOP AT c_t_data INTO ls_crmt_bw_ds_activity.

CLEAR partner_no_guid.
CLEAR partner_no.
CLEAR guidd.
CLEAR bayi.
CLEAR ztarih.
CLEAR zappt_type.

SELECT SINGLE guid_set

INTO guidd
FROM crmd_link
WHERE guid_hi EQ ls_crmt_bw_ds_activity-guid
AND objtype_hi EQ '05'
AND objtype_set EQ '07'.

IF sy-subrc = 0.
SELECT SINGLE partner_no
INTO partner_no_guid
FROM crmd_partner
WHERE guid EQ guidd
AND partner_fct EQ 'Z0000004'.
ENDIF.
 IF sy-subrc = 0.
SELECT SINGLE partner
INTO partner_no
FROM but000
WHERE partner_guid EQ partner_no_guid .
ENDIF.

IF sy-subrc = 0.
SELECT SINGLE objid
INTO bayi
FROM hrp1001
WHERE plvar EQ '01' AND
rsign EQ 'B' AND
relat EQ '207' AND
sclas EQ 'BP' AND
sobid EQ partner_no.
ENDIF.

IF sy-subrc = 0.
ls_crmt_bw_ds_activity-z_bayii = bayi.
ENDIF.

* SELECT SINGLE ZZFLD00004P FROM CRMD_ORDERADM_H INTO Z_SSURESI

* WHERE GUID EQ LS_CRMT_BW_DS_ACTIVITY-GUID.
*
*
* LS_CRMT_BW_DS_ACTIVITY-Z_SSURESI = Z_SSURESI.

SELECT SINGLE stat

FROM crm_jest
INTO (ls_crmt_bw_ds_activity-activity_s)
WHERE objnr = ls_crmt_bw_ds_activity-guid
AND stat LIKE 'E%'.

SELECT SINGLE a~tst_from a~appt_type

INTO (ztarih, zappt_type)
FROM scapptseg AS a
INNER JOIN crmd_link AS b
ON a~appl_guid = b~guid_set
INNER JOIN crmd_orderadm_h AS c
ON b~guid_hi = c~guid
WHERE c~guid EQ ls_crmt_bw_ds_activity-guid
AND c~process_type = 'ZEA3'
AND b~objtype_hi = '05'
AND b~objtype_set = '30'
AND a~appt_type = 'ZEA300000001'.

IF sy-subrc = 0.
ls_crmt_bw_ds_activity-zrandevutarih = ztarih.
ENDIF.

CLEAR ztarih.
CLEAR zappt_type.

SELECT SINGLE a~tst_from a~appt_type

INTO (ztarih, zappt_type)
 FROM scapptseg AS a
INNER JOIN crmd_link AS b
ON a~appl_guid = b~guid_set
INNER JOIN crmd_orderadm_h AS c
ON b~guid_hi = c~guid
WHERE c~guid EQ ls_crmt_bw_ds_activity-guid
AND c~process_type = 'ZEA3'
AND b~objtype_hi = '05'
AND b~objtype_set = '30'
AND a~appt_type = 'ZEA300000002'.

IF sy-subrc = 0.
ls_crmt_bw_ds_activity-ztestsurustarih = ztarih.
ENDIF.

SELECT SINGLE zzfld00003y zzfld00004t zzfld00004u zzfld00004v

FROM crmd_orderadm_h INTO (zilgarac, ls_crmt_bw_ds_activity-
zzfld00004t, ls_crmt_bw_ds_activity-zzfld00004u, ls_crmt_bw_ds_activity-
zzfld00004v)
WHERE guid EQ ls_crmt_bw_ds_activity-guid.

ls_crmt_bw_ds_activity-zilgarac = zilgarac.

* elik motor msterisi

SELECT SINGLE partner1

INTO zcmmusteri
FROM but050 WHERE partner2 = ls_crmt_bw_ds_activity-activity_partner
AND reltyp = 'ZBYMUS'
AND date_to = '99991231'.

IF sy-subrc = 0.
ls_crmt_bw_ds_activity-zcmmusteri = zcmmusteri.
ELSE.
ls_crmt_bw_ds_activity-zcmmusteri = ls_crmt_bw_ds_activity-
activity_partner.
ENDIF.

MODIFY c_t_data FROM ls_crmt_bw_ds_activity.

ENDLOOP.

CLEAR t_crmt.
CLEAR ls_crmt_bw_ds_activity.

LOOP AT c_t_data INTO ls_crmt_bw_ds_activity.

SELECT SINGLE created_at changed_at INTO (created, changed) FROM

crmd_orderadm_h WHERE guid EQ ls_crmt_bw_ds_activity-guid.

DATA created1 LIKE ccupeaka-timestamp.

DATA changed1 LIKE ccupeaka-timestamp.
DATA zdifference TYPE i.

created1 = created.
changed1 = changed.

CALL FUNCTION 'CCU_TIMESTAMP_DIFFERENCE'

EXPORTING
 timestamp1 = created1
timestamp2 = changed1
IMPORTING
difference = zdifference.
IF sy-subrc = 0.
ls_crmt_bw_ds_activity-zcevap_sure = zdifference / 3600.
ELSE.
ls_crmt_bw_ds_activity-zcevap_sure = 0.
ENDIF.

MODIFY c_t_data FROM ls_crmt_bw_ds_activity.

ENDLOOP.

WHEN 'ZBW_PROJECT'.
TYPES:
BEGIN OF ztakip,
takip_no TYPE ztakip_no,
END OF ztakip.
DATA: it_ztakip TYPE TABLE OF ztakip,
wa_ztakip TYPE ztakip,
it_takip TYPE TABLE OF zsms_activite,
wa_takip TYPE zsms_activite,
zcount TYPE i.

LOOP AT c_t_data INTO l_s_zoxccd0184.

SELECT SINGLE camp_type INTO l_s_zoxccd0184-camp_type FROM crm_mktpl_attr
WHERE guid = l_s_zoxccd0184-guid.
SELECT SINGLE stat INTO l_s_zoxccd0184-stat FROM crm_jest
WHERE objnr = l_s_zoxccd0184-guid AND stat LIKE 'E%' AND inact = '' .

*SELECT TAKIP_NO INTO CORRESPONDING FIELDS OF wa_ztakip

* FROM ZSMS_TAKIP WHERE PROJECT_GUID = l_s_zoxccd0184-guid.
* append wa_ztakip to it_ztakip.
* ENDSELECT.
*
* LOOP AT it_ztakip INTO wa_ztakip.
CLEAR zcount.
SELECT * INTO CORRESPONDING FIELDS OF wa_takip
FROM zsms_activite WHERE project_guid = l_s_zoxccd0184-guid AND
sms_durum <> '5' AND sms_durum <> '9' AND
email_durum <> 'HU' AND email_durum <> 'SU' .
zcount = zcount + 1.
ENDSELECT.
l_s_zoxccd0184-act_count = zcount.
* ENDLOOP.
* zcount = 0.
CLEAR: it_ztakip, wa_ztakip, it_ztakip[].

MODIFY c_t_data FROM l_s_zoxccd0184.

ENDLOOP.

WHEN 'ZBW_ILETISIM'.
LOOP AT c_t_data INTO ls_zoxccd0188.
ls_partner-partner_fct = '00000002'.
ls_partner-partner_no = ls_zoxccd0188-partner_guid.

CALL FUNCTION 'CRM_IBASE_COMP_PARTNER_SEARCH'

EXPORTING
 i_partner = ls_partner
IMPORTING
e_comp_tab = et_comp_tab
EXCEPTIONS
not_specified = 1
not_found = 2
OTHERS = 3.
DATA: lv_objnr TYPE ib_instanceobject,
lv_product_guid TYPE comt_product_guid.

LOOP AT et_comp_tab INTO es_comp_tab.

SELECT SINGLE objnr FROM ibin
INTO lv_objnr WHERE in_guid = es_comp_tab-guid_compc.
IF sy-subrc = 0.
lv_product_guid =
cl_ibase_service=>cl_convert_guid_22_16( lv_objnr ).

SELECT SINGLE cr3~r3mat_id

FROM com_ta_r3_id AS cr3
INNER JOIN comm_product AS cmp ON cr3~r3mat_id =
cmp~product_id
INNER JOIN comm_prshtext AS cst ON cmp~product_guid =
cst~product_guid
INTO ls_zoxccd0188-malzeme_no
WHERE cr3~product_guid = lv_product_guid.

ENDIF.

SELECT SINGLE start_date end_date INTO (lv_startdate,lv_enddate) FROM

comm_il_ibcwty WHERE sourceguid = es_comp_tab-guid_compc.
IF sy-subrc = 0.
chardate1 = lv_startdate.
chardate2 = lv_enddate.
ls_zoxccd0188-garanti_bas = chardate1(8).
ls_zoxccd0188-garanti_bit = chardate2(8).
ENDIF.

ENDLOOP.

* lv_partner_mkt = ls_zoxccd0188-partner_guid.
CALL FUNCTION 'CRM_BUPA_MKT_PERM_READ'
EXPORTING
iv_partner_guid = ls_zoxccd0188-partner_guid
IMPORTING
et_but_mktperm = lt_but_mktperm
EXCEPTIONS
no_record_found = 1
OTHERS = 2.

READ TABLE lt_but_mktperm INTO ls_but_mktperm WITH KEY channel = 'LET'.

CASE ls_but_mktperm-permission.
WHEN '001'.
ls_zoxccd0188-posta = '1'.
WHEN '002'.
* gs_alv-posta = 'REDDEDILDI'.
ls_zoxccd0188-posta = '0'.
WHEN OTHERS.
 ls_zoxccd0188-posta = ''.
ENDCASE.
CLEAR:ls_but_mktperm.
READ TABLE lt_but_mktperm INTO ls_but_mktperm WITH KEY channel = 'PAG'.

CASE ls_but_mktperm-permission.
WHEN '001'.
ls_zoxccd0188-sms = '1'.
WHEN '002'.
* gs_alv-sms = 'REDDEDILDI'.
ls_zoxccd0188-sms = '0'.
WHEN OTHERS.
ls_zoxccd0188-sms = ''.
ENDCASE.
CLEAR ls_but_mktperm.
READ TABLE lt_but_mktperm INTO ls_but_mktperm WITH KEY channel = 'TEL'.

CASE ls_but_mktperm-permission.
WHEN '001'.
ls_zoxccd0188-telefon = '1'.
WHEN '002'.
* gs_alv-telefon = 'REDDEDILDI'.
ls_zoxccd0188-telefon = '0'.
WHEN OTHERS.
ls_zoxccd0188-telefon = ''.
ENDCASE.
CLEAR ls_but_mktperm.

READ TABLE lt_but_mktperm INTO ls_but_mktperm WITH KEY channel = 'INT'.

CASE ls_but_mktperm-permission.
WHEN '001'.
ls_zoxccd0188-eposta = '1'.
WHEN '002'.
* gs_alv-eposta = 'REDDEDILDI'.
ls_zoxccd0188-eposta = '0'.
WHEN OTHERS.
ls_zoxccd0188-eposta = ''.
ENDCASE.
CLEAR ls_but_mktperm.

READ TABLE lt_but_mktperm INTO ls_but_mktperm WITH KEY channel = 'KVK'.

CASE ls_but_mktperm-permission.
WHEN '001'.
ls_zoxccd0188-kvk = '1'.
WHEN '002'.
* gs_alv-eposta = 'REDDEDILDI'.
ls_zoxccd0188-kvk = '0'.
WHEN OTHERS.
ls_zoxccd0188-kvk = ''.
ENDCASE.

MODIFY c_t_data FROM ls_zoxccd0188.

ENDLOOP.

ENDCASE.