
class ZCL_FCLM_APAR_HADI_SAMPLE definition
public
final
create public .
public section.
interfaces IF_AMDP_MARKER_HDB .
interfaces IF_FCLM_HADI_APAR .
protected section.
private section.
ENDCLASS.
CLASS ZCL_FCLM_APAR_HADI_SAMPLE IMPLEMENTATION.
METHOD IF_FCLM_HADI_APAR~FLOW_ADJUST BY DATABASE PROCEDURE FOR HDB LANGUAGE SQLSCRIPT USING
SKB1
vfclmbamaclvw.
et_flows = select
ORIGIN_TRANS_QUALIFIER,
FI_DOCUMENT_NUMBER,
COMPANY_CODE,
FI_DOCUMENT_LINE_ITEM,
PLANNING_GROUP,
PLANNING_LEVEL,
FI_FISCAL_YEAR,
FI_ACCOUNT,
DOCUMENT_DATE,
BASE_CURRENCY,
c.CURRENCY,
CASH_DISCOUNT_PERCENT1,
CASH_DISCOUNT_DAYS1,
CASH_DISCOUNT_PERCENT2,
CASH_DISCOUNT_DAYS2,
DAYS_DUE,
BASELINE_DATE,
PAYMENT_METHOD,
PAYMENT_BLOCK,
ASSIGNMENT,
case when BANK_ACCOUNT_ID <> d.acc_id then d.acc_id
else BANK_ACCOUNT_ID end as BANK_ACCOUNT_ID,
ASSIGNED_COMPANY_CODE,
CERTAINTY_LEVEL,
FLOW_TYPE,
ORIGIN_DOCUMENT_ID_RL,
CLEARED,
ORIGIN_TRANSACTION_ID_RL,
ORIGIN_DOCUMENT_ID,
ORIGIN_FLOW_ID,
BASE_AMOUNT,
AMOUNT,
ORIGIN_TRANSACTION_ID,
TRANSACTION_DATE,
FI_PURCHSE_DOCUMENT_NUMBER,
FI_PURCHSE_LINE_ITEM,
FI_SEQUENTIAL_NUMBER,
BUSINESS_AREA,
HOUSE_BANK,
HOUSE_BANK_ACCOUNT,
COST_CENTER,
CUSTOMER_NUMBER,
VENDOR_NUMBER,
LIQUIDITY_ITEM,
MATERIAL,
PROFIT_CENTER,
PROJECT,
c.SEGMENT,
TRADING_PARTNER,
CONTRACT_NUMBER,
CONTRACT_TYPE
from ( select
ORIGIN_TRANS_QUALIFIER,
FI_DOCUMENT_NUMBER,
COMPANY_CODE,
FI_DOCUMENT_LINE_ITEM,
PLANNING_GROUP,
PLANNING_LEVEL,
FI_FISCAL_YEAR,
FI_ACCOUNT,
DOCUMENT_DATE,
BASE_CURRENCY,
CURRENCY,
CASH_DISCOUNT_PERCENT1,
CASH_DISCOUNT_DAYS1,
CASH_DISCOUNT_PERCENT2,
CASH_DISCOUNT_DAYS2,
DAYS_DUE,
BASELINE_DATE,
PAYMENT_METHOD,
PAYMENT_BLOCK,
ASSIGNMENT,
BANK_ACCOUNT_ID,
ASSIGNED_COMPANY_CODE,
CERTAINTY_LEVEL,
FLOW_TYPE,
ORIGIN_DOCUMENT_ID_RL,
CLEARED,
ORIGIN_TRANSACTION_ID_RL,
ORIGIN_DOCUMENT_ID,
ORIGIN_FLOW_ID,
BASE_AMOUNT,
AMOUNT,
ORIGIN_TRANSACTION_ID,
TRANSACTION_DATE,
FI_PURCHSE_DOCUMENT_NUMBER,
FI_PURCHSE_LINE_ITEM,
FI_SEQUENTIAL_NUMBER,
BUSINESS_AREA,
case when HOUSE_BANK = '' then coalesce(b.hbkid, '') else HOUSE_BANK end as HOUSE_BANK,
case when HOUSE_BANK_ACCOUNT = '' then coalesce(b.hktid, '') else HOUSE_BANK_ACCOUNT end as HOUSE_BANK_ACCOUNT,
COST_CENTER,
CUSTOMER_NUMBER,
VENDOR_NUMBER,
LIQUIDITY_ITEM,
MATERIAL,
PROFIT_CENTER,
PROJECT,
SEGMENT,
TRADING_PARTNER,
CONTRACT_NUMBER,
CONTRACT_TYPE
from :it_flows as a
inner join skb1 as b
on b.mandt = :iv_mandt
and a.company_code = b.bukrs
and a.fi_account = b.saknr) as c
left outer join vfclmbamaclvw as d
on d.mandt = :iv_mandt
and d.linkage_bukrs = c.company_code
and d.linkage_hbkid = c.house_bank
and d.linkage_hktid = c.house_bank_account
and c.transaction_date >= d.linkage_valid_from
and c.transaction_date <= d.linkage_valid_to;
ENDMETHOD.
ENDCLASS.
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
11 | |
9 | |
8 | |
4 | |
4 | |
4 | |
4 | |
4 | |
4 | |
4 |