class ZFICLN_LCT_OUTBD_MAPPER definition
  public
  final
  create public .

public section.

  class-data MC_ZCONDRTH_0100 type ZLCTCONDRTH value '0100' ##NO_TEXT.
  class-data MC_ZOPTART_PO01 type ZLCTOPTART value 'PO01' ##NO_TEXT.
  class-data MC_ZOPTART_RV01 type ZLCTOPTART value 'RV01' ##NO_TEXT.
  class-data MC_CONDART_PM002 type ZLCTCONDART value 'PM002' ##NO_TEXT.
  class-data MC_CONDART_PM005 type ZLCTCONDART value 'PM005' ##NO_TEXT.
  class-data MC_CONDART_PM008 type ZLCTCONDART value 'PM008' ##NO_TEXT.
  class-data MC_CONDART_PM009 type ZLCTCONDART value 'PM009' ##NO_TEXT.
  class-data MC_CONDART_PM010 type ZLCTCONDART value 'PM010' ##NO_TEXT.
  class-data MC_ZLCTOPTART_PU01 type ZLCTOPTART value 'PU01' ##NO_TEXT.
  class-data MC_ZLCTDATART_DPLDUR type ZLCTDATART value 'DPLDUR' ##NO_TEXT.
  class-data MC_ZLCTDATART_DPIDUR type ZLCTDATART value 'DPIDUR' ##NO_TEXT.

  methods CONSTRUCTOR
    importing
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
      !IT_SEGMENT_FIELDS type ZLCT_MAP_BS_FLDS_TT .
  class-methods CHECK_MAPPING_CUST
    exceptions
      MAPPING_ERROR .
  class-methods GET_COMPANY_T
    returning
      value(RT_ZLCT_COMPANY_T) type ZLCT_COMPANY_TT .
  class-methods GET_GP_ROLE_T
    returning
      value(RT_GP_ROLE_T) type ZCONT_GP_ROLE_TT .
  class-methods GET_OBJ_TYPE_T
    returning
      value(RT_OBJ_TYPE_T) type ZLCT_OBJ_TYPE_TT .
  class-methods GET_OPCO_TYPE_T
    returning
      value(RT_OPCO_TYPE_T) type ZLCT_OPCO_TYPE_TT .
  class-methods MAP_CA_TYPE
    importing
      !IV_ZLCTOPTART type ZLCTOPTART
    returning
      value(RV_ZLCTNL_CATYPE) type ZLCTNL_CATYPE .
  class-methods MAP_ZCONDRTH
    importing
      !IV_ZCONDRTH type ZLCTCONDRTH
    returning
      value(RV_ZCONDRTH) type ZLCT_LNL_CONDRTH .
  class-methods MAP_ZCONDZALW
    importing
      !IV_ZCONDZALW type ZLCTCONDZALW
    returning
      value(RV_ZCONDZALW) type ZLCT_LNLCONDZALW .
  class-methods MAP_CORRECT_DATA_TYPE
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IT_SEGMENT_FIELDS type ZLCT_MAP_BS_FLDS_TT
    changing
      value(CS_SEGMENT) type ANY
    exceptions
      ERROR_ON_READING_ELEMENT
      ERROR_ON_CREATION_OF_DATATYPE
      ERROR_ON_ASSIGMENT .
  class-methods MAP_ITEM_CFACT
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_CFACT_DATA type ZLCTE1CON_ITEM_CFACT .
  class-methods MAP_ITEM_CLASSM_IFRS
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_CLASSM_DATA type ZLCTE1CON_ITEM_CLASSM .
  class-methods MAP_ITEM_CLASSM_LOC
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_CLASSM_DATA type ZLCTE1CON_ITEM_CLASSM .
  class-methods MAP_ITEM_COND
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_COND_DATA type ZLCTE1CON_ITEM_COND .
  class-methods MAP_ITEM_CONDV
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_CONDV_DATA type ZLCTE1CON_ITEM_CONDV .
  class-methods MAP_ITEM_EO
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_EO_DATA type ZLCTE1CON_ITEM_EO .
  methods MAP_ITEM_EO_COND
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_PARENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_EO_COND_DATA type ZLCTE1CON_EO_COND .
  class-methods MAP_ITEM_FLOAT
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_FLOAT_DATA type ZLCTE1CON_ITEM_FLOAT .
  class-methods MAP_ITEM_GEN
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_GEN_DATA type ZLCTE1CON_ITEM_GEN .
  class-methods MAP_ITEM_GEXT
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_GEXT_DATA type ZLCTE1CON_ITEM_GEXT .
  class-methods MAP_ITEM_INDEX
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_INDEX_DATA type ZLCTE1CON_ITEM_INDEX .
  class-methods MAP_ITEM_LEEXT
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_LEEXT_DATA type ZLCTE1CON_ITEM_LEEXT .
  class-methods MAP_ITEM_LEINT
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_LEINT_DATA type ZLCTE1CON_ITEM_LEINT .
  class-methods MAP_ITEM_QTY_REDUC
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_QTY_REDUC_DATA type ZLCTE1CON_ITEM_QTY_REDUC .
  class-methods MAP_ITEM_TERM
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_TERM type ZLCTE1CON_ITEM_TERM .
  class-methods MAP_ITEM_VAL_VAR
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_VAL_VAR_DATA type ZLCTE1CON_ITEM_VAL_VAR .
  class-methods MAP_ITEM_PUR
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_PUR_DATA type ZLCTE1CON_ITEM_PUR .
  class-methods MAP_ITEM_PUR_COND
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_PARENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_PUR_COND_DATA type ZLCTE1CON_PUR_COND .
  class-methods MAP_ITEM_PUT
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_PUT_DATA type ZLCTE1CON_ITEM_PUT .
  methods MAP_ITEM_PUT_COND
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_PARENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_PUT_COND_DATA type ZLCTE1CON_PUT_COND .
  class-methods MAP_ITEM_RETOB
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_RETOB_DATA type ZLCTE1CON_ITEM_RETOB .
  class-methods MAP_ITEM_RV
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_RV_DATA type ZLCTE1CON_ITEM_RV .
  class-methods MAP_ITEM_RV_COND
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_PARENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_RV_COND_DATA type ZLCTE1CON_RV_COND .
  class-methods MAP_ITEM_TO
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_TO_DATA type ZLCTE1CON_ITEM_TO .
  class-methods MAP_ITEM_TO_COND
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_PARENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_TO_COND_DATA type ZLCTE1CON_TO_COND .
  class-methods MAP_LNL_GENERAL
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_MAP_T type ZLCT_LNL_MAP_T
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T optional
      !IS_ZLCTOPTION_T type ZLCTOPTION_T optional
      !IS_ZLCTCOND_T type ZLCTCOND_T optional
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_DATA type ANY
    exceptions
      MAPPING_ERROR
      MAPPING_TAB_MISSING .
  methods MAP_HEAD
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_INITD type D optional
      !IV_INITIAL_LOAD type AS4FLAG optional
      !IV_MANDT type EDI4MANDT
      !IV_DOCNUM type EDI_DOCNUM
      !IV_PSGNUM type EDI4PSGNUC optional
      !IV_HLEVEL type EDI4HLEVEC
      !IV_SOURCE type CHAR10
    exporting
      !EV_ACTIV type ABAP_BOOL
    changing
      !CV_COUNT type I
      !CT_DOCUMENT type ZLCTEDID4_TT .
  methods MAP_HEAD_ACCFACT
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_MANDT type EDI4MANDT
      !IV_DOCNUM type EDI_DOCNUM
      !IV_PSGNUM type EDI4PSGNUC optional
      !IV_HLEVEL type EDI4HLEVEC
    changing
      !CT_COUNT type I
      !CT_DOCUMENT type ZLCTEDID4_TT .
  methods MAP_HEAD_BP
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_MANDT type EDI4MANDT
      !IV_DOCNUM type EDI_DOCNUM
      !IV_PSGNUM type EDI4PSGNUC
      !IV_HLEVEL type EDI4HLEVEC
    changing
      !CT_COUNT type I
      !CT_DOCUMENT type ZLCTEDID4_TT .
  methods MAP_HEAD_GEN
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_MANDT type EDI4MANDT
      !IV_DOCNUM type EDI_DOCNUM
      !IV_PSGNUM type EDI4PSGNUC optional
      !IV_HLEVEL type EDI4HLEVEC
    changing
      !CT_COUNT type I
      !CT_DOCUMENT type ZLCTEDID4_TT .
  class-methods MAP_ITEM
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_DATA type ZLCTE1CON_ITEM .
  class-methods MAP_ITEM_AP_IFRS
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_AP_DATA type ZLCTE1CON_ITEM_AP .
  class-methods MAP_ITEM_AP_LOC
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_AP_DATA type ZLCTE1CON_ITEM_AP .
  class-methods MAP_ITEM_AS_CA_IFRS
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_ZOPTREACER type ZLCTOPTREACER optional
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_AS_CA_DATA type ZLCTE1CON_AS_CA .
  class-methods MAP_ITEM_AS_CA_LOC
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_ZOPTREACER type ZLCTOPTREACER optional
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_AS_CA_DATA type ZLCTE1CON_AS_CA .
  class-methods MAP_ITEM_AS_IFRS
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_AS_DATA type ZLCTE1CON_ITEM_AS .
  class-methods MAP_ITEM_AS_LOC
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_AS_DATA type ZLCTE1CON_ITEM_AS .
  class-methods MAP_ITEM_CA_COND_IFRS
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_PARENT type ZLCT_MAP_SEGMENT optional
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_CA_COND_DATA type ZLCTE1CON_CA_COND .
  class-methods MAP_ITEM_CA_COND_LOC
    importing
      !IV_SEGMENT type ZLCT_MAP_SEGMENT
      !IV_PARENT type ZLCT_MAP_SEGMENT
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IS_ZLCTCONTRACT_T type ZLCTCONTRACT_T
      !IS_ZLCTSALE_T type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    exporting
      !ES_ITEM_CA_COND_DATA type ZLCTE1CON_CA_COND .
  class-methods MAP_CONDITIONS_WITH_HELP_TAB
    importing
      !IV_SEGMENT type EDILSEGTYP
      !IV_ZLCTOBJID type ZLCTOBJID
      !IT_ZLCTCOND type ZLCTCOND_TT
    exporting
      !RT_ZLCTCOND type ANY TABLE .
  class-methods CLASS_CONSTRUCTOR .
  class-methods MAP_EXTID_TYPE_AND_VALUE
    importing
      !IV_HEAD_ITEM type ZLCT_ITEM_HEAD
      !IS_ZLCTOBJECT type ZLCTOBJECT_T optional
      !IS_ZLCTHEADER type ZLCTHEADER_T
      !IS_ZLCTCONTRACT type ZLCTCONTRACT_T
      !IS_ZLCTSALE type ZLCTSALE_T
      !IT_ZLCTSTATUS_T type ZLCTSTATUS_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
      !IT_ZLCTOPTION_T type ZLCTOPTION_TT
      !IT_ZLCTPARTREL_T type ZLCTPARTREL_TT
      !ITT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTARO_T type ZLCTARO_TT
      !IT_ZLCTCOKSST_T type ZLCTCOKSST_TT
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
      !IT_ZLCTIMAGE_T type ZLCTIMAGE_TT
    exporting
      !ET_HEAD_EXTID type ZLCTE1CON_HEAD_EXTID_TT
      !ET_ITEM_EXTID type ZLCTE1CON_ITEM_EXTID_TT .
  PROTECTED SECTION.
private section.

  types:
    tyt_object_types TYPE STANDARD TABLE OF zlct_obj_type_t .
  types:
    tyt_company_codes TYPE STANDARD TABLE OF zlct_company_t .
  types:
    tyt_partner_roles TYPE STANDARD TABLE OF zcont_gp_role_t .

  constants MC_HEAD type ZLCT_ITEM_HEAD value 'HEAD' ##NO_TEXT.
  constants MC_ITEM type ZLCT_ITEM_HEAD value 'ITEM' ##NO_TEXT.
  class-data MT_ZCONT_OPTION_T type ZCONT_OPTION_TT .
  class-data MT_ZLCTMAP_HELP_T type ZLCTMAP_HELP_TT .
  class-data MT_LNL_MAP_T type ZLCT_LNL_MAP_TT .
  class-data MT_ZLCT_PAY_RYTH_T type ZLCT_PAY_RYTH_TT .
  class-data MT_ZLCT_PAY_TYPE_T type ZLCT_PAY_TYPE_TT .
  class-data MT_ZLCTCONDKIND_T type ZLCT_CONDKINDT_TT .
  class-data MT_ZLCT_EXT_MAP_T type ZLCT_EXT_MAP_TT .
  class-data MT_ZLCT_OPCO_TYPE_T type ZLCT_OPCO_TYPE_TT .
  class-data MT_ZLCT_VALUEKIND_M type ZLCT_VALUEKIND_TT .
  class-data MT_OBJ_TYPE_T type ZLCT_OBJ_TYPE_TT .
  class-data MT_GP_ROLE_T type ZCONT_GP_ROLE_TT .
  class-data MT_COMPANY_LNL type ZLCT_COMPANY_TT .
  data MS_ZLCTHEADER_T type ZLCTHEADER_T .
  data MS_ZLCTCONTRACT_T type ZLCTCONTRACT_T .
  data MS_ZLCTSALE_T type ZLCTSALE_T .
  data MT_ZLCTSTATUS_T type ZLCTSTATUS_TT .
  data MT_ZLCTDATE_T type ZLCTDATE_TT .
  data MT_ZLCTOPTION_T type ZLCTOPTION_TT .
  data MT_ZLCTPARTREL_T type ZLCTPARTREL_TT .
  data MT_ZLCTOBJECT_T type ZLCTOBJECT_TT .
  data MT_ZLCTARO_T type ZLCTARO_TT .
  data MT_ZLCTCOKSST_T type ZLCTCOKSST_TT .
  data MT_ZLCTCOND_T type ZLCTCOND_TT .
  data MT_ZLCTIMAGE_T type ZLCTIMAGE_TT .
  data MT_ZLCTVALUE_T type ZLCTVALUE_TT .
  data MT_SEGMENT_FIELDS type ZLCT_MAP_BS_FLDS_TT .
  data MV_ACTIV type ABAP_BOOL .
  data MV_EFF_DATE_OLD type D .

  class-methods GET_ITEM_GEXT_REVENUE_PARTICIP
    importing
      value(IV_SEGMENT) type ZLCT_MAP_SEGMENT
      value(IV_ELEMENT) type ZLCT_MAP_ELEMENT
      value(IS_ZLCTOBJECT_T) type ZLCTOBJECT_T
      value(IT_ZLCTVALUE_T) type ZLCTVALUE_TT
    returning
      value(EV_REVENUE_PARTICIPATION) type TEXT9 .
  class-methods GET_ITEM_AP_DATA_IR_FIX
    importing
      !IV_ZVALUEGAAP type ZLCTVALUEGAAP
      !IV_ZVALUEKIND type ZLCTVALUEKIND
      !IT_ZLCTCOND_T type ZLCTCOND_TT
      !IT_ZLCTVALUE_T type ZLCTVALUE_TT
    returning
      value(EV_ITEM_AP_DATA_IR_FIX) type CHAR011 .
  class-methods GET_ITEM_AP_DATA_ACC_PRINCIPLE
    importing
      !IV_ACC_PRINCIPLE type CHAR04
      !IV_COMPANY type ZLCTBURKS
    returning
      value(EV_ACC_PRINCIPLE) type CHAR04 .
  methods GET_HEAD_DATA_CONTROL
    returning
      value(EV_HEAD_DAT_CONTROL) type CHAR01 .
  class-methods CHA_QTY_REDUC_DATA
    importing
      !IV_ZCONRES2 type ZLCTCONRES2
    returning
      value(EV_QUANTITY_REDUC) type CHAR7 .
  class-methods GET_VALID_TO
    importing
      !IS_ZLCTCOND_T type ZLCTCOND_T
    returning
      value(EV_ITEM_COND_DATA) type ZLCTVALIDTO1 .
  class-methods GET_VALID_FROM
    importing
      !IS_ZLCTCOND_T type ZLCTCOND_T
    returning
      value(EV_DATE) type ZLCTVALIDFR1 .
  class-methods MAP_RV_AMOUNT_EXPECTED
    importing
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IT_ZLCTCOND_T type ZLCTCOND_TT
    returning
      value(EV_RV_AMOUNT_EXPECTED) type CHAR025 .
  methods MAP_ITEM_EQ_COND_VALUE
    importing
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
    returning
      value(EV_COND_VALUE) type ZLCTE1CON_EO_COND-COND_VALUE .
  methods CHECK_NEW_CONTRACT
    returning
      value(EV_PROZESS_TYP) type CHAR01 .
  methods MAP_ITEM_PUT_COND_VALUE
    importing
      !IS_ZLCTOBJECT_T type ZLCTOBJECT_T
      !IS_ZLCTOPTION_T type ZLCTOPTION_T
      !IS_ZLCTCOND_T type ZLCTCOND_T
    returning
      value(EV_COND_VALUE) type CHAR25 .
  class-methods GET_CTDUR_DATE_OLD
    importing
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
    returning
      value(EV_ZLCTDATDATE) type ZLCTDATDATE .
  class-methods GET_GENERAL_DATE
    importing
      !IV_ZDATART type ZLCTDATART
      !IV_DESCENDING type BOOLEAN optional
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
    returning
      value(ES_ZLCTDATE) type ZLCTDATE_T .
  class-methods GET_CTDUR_DATE
    importing
      !IS_ZLCTHEADER_T type ZLCTHEADER_T
      !IT_ZLCTOBJECT_T type ZLCTOBJECT_TT
      !IT_ZLCTDATE_T type ZLCTDATE_TT
    exporting
      !ES_ZLCTDATE_CTDUR type ZLCTDATE_T .
  methods CREATE_IDOC_SEGMENT
    importing
      !IV_SEGNAM type EDI4SEGNAM
      !IV_MANDT type EDI4MANDT
      !IV_DOCNUM type EDI_DOCNUM
      !IV_PSGNUM type EDI4PSGNUC optional
      !IV_HLEVEL type EDI4HLEVEC
      !IS_STRUCTURE type ANY
    changing
      !CT_COUNT type I
      !CT_DOCUMENT type ZLCTEDID4_TT .
ENDCLASS.



CLASS ZFICLN_LCT_OUTBD_MAPPER IMPLEMENTATION.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>CHA_QTY_REDUC_DATA
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_ZCONRES2                    TYPE        ZLCTCONRES2
* | [<-()] EV_QUANTITY_REDUC              TYPE        CHAR7
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD cha_qty_reduc_data.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : Juri@Boehme-Beratung.de                             *
*&H Date of creation: 2018-10-16                                 *
*&D***************************************************************
*&D Description :                                                *
*&D del sign and units                                           *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lv_length TYPE syst_index,
          lv_lenght TYPE syst_index.


    DESCRIBE FIELD iv_zconres2 OUTPUT-LENGTH lv_lenght.

    DO.

      IF lv_length GE lv_lenght.
        EXIT.
      ENDIF.


      IF iv_zconres2+lv_length(1) CO '1234567890,.'.
        ev_quantity_reduc+lv_length(1) = iv_zconres2+lv_length(1).
      ENDIF.

      ADD 1 TO lv_length.

    ENDDO.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>CHECK_MAPPING_CUST
* +-------------------------------------------------------------------------------------------------+
* | [EXC!] MAPPING_ERROR
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD check_mapping_cust.
    CONSTANTS: lc_map_const TYPE c LENGTH 1  VALUE  0,
               lc_map_struc TYPE c LENGTH 1  VALUE  1,
               lc_map_tab   TYPE c LENGTH 1  VALUE  2,
               lc_map_code  TYPE c LENGTH 1  VALUE  3.

    DATA:      ls_lnl_map_t   TYPE          zlct_lnl_map_t.

    LOOP AT mt_lnl_map_t INTO ls_lnl_map_t.

      CASE ls_lnl_map_t-element_type.
        WHEN lc_map_struc.
          IF ls_lnl_map_t-map_struc_tab IS INITIAL OR ls_lnl_map_t-map_field IS INITIAL.
            RAISE mapping_error.
*            EXIT.
          ENDIF.

        WHEN lc_map_tab.
          IF ls_lnl_map_t-map_struc_tab IS INITIAL OR ls_lnl_map_t-map_field IS INITIAL
            OR ls_lnl_map_t-map_key_1 IS INITIAL OR ls_lnl_map_t-map_value_1 IS INITIAL.
            RAISE mapping_error.
*            EXIT.
          ENDIF.
      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZFICLN_LCT_OUTBD_MAPPER->CHECK_NEW_CONTRACT
* +-------------------------------------------------------------------------------------------------+
* | [<-()] EV_PROZESS_TYP                 TYPE        CHAR01
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD check_new_contract.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : Juri@Boehme-Beratung.de                             *
*&H Date of creation: 2018-09-10                                 *
*&D***************************************************************
*&D Description :                                                *
*&D check new or change                                          *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lv_intreno TYPE zlctguid.

    DATA: lv_count TYPE i.

    lv_intreno = ms_zlctheader_t-zlctintreno.

    SELECT COUNT(*) INTO lv_count
    FROM zlctheader_st
    WHERE zlctintreno = lv_intreno.
    IF sy-subrc = 0 AND
      lv_count GT 1.
      ev_prozess_typ = 'C'.
    ELSE.
      ev_prozess_typ = 'I'.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>CLASS_CONSTRUCTOR
* +-------------------------------------------------------------------------------------------------+
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD class_constructor.

*   Load Mapping Tables

    SELECT * FROM zlct_ext_map_t INTO TABLE mt_zlct_ext_map_t
      WHERE zinactiv = abap_false.       "#EC CI_NOFIELD"#EC CI_NOWHERE

    SELECT * FROM zlct_condkindt_t
      INTO TABLE mt_zlctcondkind_t
      WHERE spras = sy-langu.                           "#EC CI_NOFIELD

    SELECT * FROM zlct_pay_type_t
      INTO TABLE mt_zlct_pay_type_t
      WHERE zinactiv = abap_false.                      "#EC CI_NOFIELD

    SELECT * FROM zlct_pay_ryth_t
      INTO TABLE mt_zlct_pay_ryth_t
      WHERE zinactiv = abap_false.                      "#EC CI_NOFIELD

    SELECT * FROM zlct_lnl_map_t
      INTO TABLE mt_lnl_map_t
      WHERE not_active = abap_false.                    "#EC CI_NOFIELD

    SELECT * FROM zlctmap_help_t
      INTO TABLE mt_zlctmap_help_t
      WHERE zinactiv = abap_false.                      "#EC CI_NOFIELD

    SELECT * FROM zcont_option_t
      INTO TABLE mt_zcont_option_t
      WHERE zinactiv = abap_false.                      "#EC CI_NOFIELD

    SELECT * FROM zlct_company_t
      INTO TABLE mt_company_lnl
      WHERE aim_rating_typ = zficln_lct_outbd_service=>mc_aim_rating_typ_lnl. "#EC CI_NOWHERE"#EC CI_NOFIELD

    SELECT * FROM zcont_gp_role_t
      INTO TABLE mt_gp_role_t
      WHERE zinactiv = abap_false.                      "#EC CI_NOFIELD

    SELECT * FROM zlct_obj_type_t
      INTO TABLE mt_obj_type_t
      WHERE zinactiv = abap_false.                      "#EC CI_NOFIELD

    SELECT * FROM zlct_opco_type_t
      INTO TABLE mt_zlct_opco_type_t
      WHERE inactive = abap_false.                      "#EC CI_NOFIELD

*** beg ins JB 20181030
    SELECT * FROM zlct_valuekind_m
      INTO TABLE mt_zlct_valuekind_m.                   "#EC CI_NOFIELD
*      WHERE inactive = abap_false.                      "#EC CI_NOFIELD
*** end ins JB 20181030

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZFICLN_LCT_OUTBD_MAPPER->CONSTRUCTOR
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [--->] IT_SEGMENT_FIELDS              TYPE        ZLCT_MAP_BS_FLDS_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD constructor.

    ms_zlctheader_t   = is_zlctheader_t.
    ms_zlctcontract_t = is_zlctcontract_t.
    ms_zlctsale_t     = is_zlctsale_t.
    mt_zlctstatus_t   = it_zlctstatus_t.
    mt_zlctdate_t     = it_zlctdate_t.
    mt_zlctoption_t   = it_zlctoption_t.
    mt_zlctpartrel_t  = it_zlctpartrel_t.
    mt_zlctobject_t   = it_zlctobject_t.
    mt_zlctaro_t      = it_zlctaro_t.
    mt_zlctcoksst_t   = it_zlctcoksst_t.
    mt_zlctcond_t     = it_zlctcond_t.
    mt_zlctimage_t    = it_zlctimage_t.
    mt_zlctvalue_t    = it_zlctvalue_t.
    mt_segment_fields = it_segment_fields.

    mv_activ = zficln_lct_db_utility=>check_if_active( ms_zlctheader_t-zlctintreno ).  "ins JB 180907

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZFICLN_LCT_OUTBD_MAPPER->CREATE_IDOC_SEGMENT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGNAM                      TYPE        EDI4SEGNAM
* | [--->] IV_MANDT                       TYPE        EDI4MANDT
* | [--->] IV_DOCNUM                      TYPE        EDI_DOCNUM
* | [--->] IV_PSGNUM                      TYPE        EDI4PSGNUC(optional)
* | [--->] IV_HLEVEL                      TYPE        EDI4HLEVEC
* | [--->] IS_STRUCTURE                   TYPE        ANY
* | [<-->] CT_COUNT                       TYPE        I
* | [<-->] CT_DOCUMENT                    TYPE        ZLCTEDID4_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD create_idoc_segment.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kühnel@ext_soprasteria.com                   *
*&H Date of creation: 2018-01-17                                 *
*&D***************************************************************
*&D Description : creates idoc segment                           *
*&D Interface method impleentation                               *                                                       *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA:       ls_dd40     TYPE edi_dd40,
                ls_document TYPE zlctedid4_t.

    ADD 1 TO ct_count.
    " gather all basic information of idoc segment (segment name, number, parent segment, hierarchy level, document number, mandant)
    ls_dd40-mandt = iv_mandt.
    ls_dd40-segnam = iv_segnam.
    ls_dd40-segnum = ct_count.
    ls_dd40-psgnum = iv_psgnum.
    ls_dd40-hlevel = iv_hlevel.
    ls_dd40-docnum = iv_docnum.

    MOVE-CORRESPONDING ls_dd40 TO ls_document.
    " write segment data
    ls_document-sdata = is_structure.

    APPEND ls_document TO ct_document.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>GET_COMPANY_T
* +-------------------------------------------------------------------------------------------------+
* | [<-()] RT_ZLCT_COMPANY_T              TYPE        ZLCT_COMPANY_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_company_t.
    rt_zlct_company_t = mt_company_lnl.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>GET_CTDUR_DATE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [<---] ES_ZLCTDATE_CTDUR              TYPE        ZLCTDATE_T
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_ctdur_date.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D get general ctdur data                                       *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_ctdur     TYPE c LENGTH 5  VALUE 'CTDUR'.

    DATA:           ls_zlctdate	  TYPE zlctdate_t,
                    lv_obj_count  TYPE i,
                    ls_zlctobject TYPE zlctobject_t.

    LOOP AT it_zlctdate_t INTO ls_zlctdate WHERE zdatart = lc_ctdur AND zobjzuord IS INITIAL.
      es_zlctdate_ctdur = ls_zlctdate.
      EXIT.
    ENDLOOP.

    IF es_zlctdate_ctdur IS INITIAL.

      LOOP AT it_zlctobject_t INTO ls_zlctobject.
        lv_obj_count = lv_obj_count + 1.
      ENDLOOP.

      IF lv_obj_count = 1.
        READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zdatart = lc_ctdur zobjzuord = ls_zlctobject-zobjid.
        es_zlctdate_ctdur = ls_zlctdate.
      ENDIF.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>GET_CTDUR_DATE_OLD
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [<-()] EV_ZLCTDATDATE                 TYPE        ZLCTDATDATE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_ctdur_date_old.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : Juri.Boehme@beosit.de                               *
*&H Date of creation: 2018-09-11                                 *
*&D***************************************************************
*&D Description :                                                *
*&D get general ctdur data  old for Storno                       *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lc_zlcte1con_head TYPE edi_segnam VALUE 'ZLCTE1CON_HEAD'.

    DATA: lt_monitor TYPE TABLE OF zlct_extr_mon_t,
          lt_edidc   TYPE TABLE OF edidc,
          lt_edid4   TYPE TABLE OF edid4.


    SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_monitor
    FROM zlct_extr_mon_t
    WHERE zlctintreno EQ is_zlctheader_t-zlctintreno
    ORDER BY docnum DESCENDING.
    CHECK sy-subrc = 0.

    READ TABLE lt_monitor ASSIGNING FIELD-SYMBOL(<ls_monitor>) INDEX 1.
    CHECK sy-subrc = 0.

    APPEND INITIAL LINE TO lt_edidc ASSIGNING FIELD-SYMBOL(<ls_edidc>).
    <ls_edidc>-docnum = <ls_monitor>-docnum.


    CALL FUNCTION 'EDM01_SELECT_EDID4'
      TABLES
        it_edidc  = lt_edidc
        ot_edid4  = lt_edid4
      EXCEPTIONS
        nodata    = 1
        progerror = 2
        OTHERS    = 3.
    IF sy-subrc <> 0.
* Implement suitable error handling here
    ENDIF.




    READ TABLE lt_edid4 ASSIGNING FIELD-SYMBOL(<ls_edid4>) WITH KEY segnam = lc_zlcte1con_head.
    CHECK sy-subrc = 0.

    ev_zlctdatdate = <ls_edid4>-sdata+40(08).

*
*
*    CONSTANTS: lc_ctdur     TYPE c LENGTH 5  VALUE 'CTDUR'.
*
*    DATA: lt_zlctheader_t TYPE TABLE OF zlctheader_st,
*          lt_zlctdate_t   TYPE TABLE OF zlctdate_st,
*          lt_zlctobject_t TYPE TABLE OF zlctobject_st.
*
*    DATA: ls_zlctdate   TYPE zlctdate_st,
*          lv_obj_count  TYPE i,
*          ls_zlctobject TYPE zlctobject_st.
*
*    SELECT *
*        INTO CORRESPONDING FIELDS OF TABLE lt_zlctheader_t
*        FROM zlctheader_st
*        WHERE zlctintreno = is_zlctheader_t-zlctintreno
*        ORDER BY zrun_id_output DESCENDING.
*
*
*    READ TABLE lt_zlctheader_t ASSIGNING FIELD-SYMBOL(<ls_zlctheader_t>) INDEX 2.
*    CHECK sy-subrc = 0.
*
*
*    SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zlctdate_t
*      FROM zlctdate_st
*     WHERE zlctintreno    = <ls_zlctheader_t>-zlctintreno
*       AND zrun_id_output = <ls_zlctheader_t>-zrun_id_output
*       AND zdatart        = lc_ctdur.
*    CHECK sy-subrc = 0.
*
*
*
*
*
*    LOOP AT lt_zlctdate_t INTO ls_zlctdate WHERE zdatart = lc_ctdur AND zobjzuord IS INITIAL.
*      EXIT.
*    ENDLOOP.
*
*    IF ls_zlctdate IS INITIAL.
*
*      SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_zlctobject_t
*        FROM zlctobject_st
*       WHERE zlctintreno    = <ls_zlctheader_t>-zlctintreno
*         AND zrun_id_output = <ls_zlctheader_t>-zrun_id_output.
*      CHECK sy-subrc = 0.
*
*
*
*      LOOP AT lt_zlctobject_t INTO ls_zlctobject.
*        lv_obj_count = lv_obj_count + 1.
*      ENDLOOP.
*
*      IF lv_obj_count = 1.
*        READ TABLE lt_zlctdate_t INTO ls_zlctdate WITH KEY zdatart = lc_ctdur zobjzuord = ls_zlctobject-zobjid.
*      ENDIF.
*
*    ENDIF.
*
*    ev_zlctdatdate = ls_zlctdate-zdatdate.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>GET_GENERAL_DATE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_ZDATART                     TYPE        ZLCTDATART
* | [--->] IV_DESCENDING                  TYPE        BOOLEAN(optional)
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [<-()] ES_ZLCTDATE                    TYPE        ZLCTDATE_T
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_general_date.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : Juri@Boehme-Beratung.de                             *
*&H Date of creation: 2018-10-10                                 *
*&D***************************************************************
*&D Description :                                                *
*&D get general  data                                       *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: ls_zlctdate   TYPE zlctdate_t,
          ls_zlctobject TYPE zlctobject_t.

    DATA: lv_obj_count  TYPE i.

    DATA: lt_zlctdate_t TYPE zlctdate_tt.

    lt_zlctdate_t = it_zlctdate_t.

    IF iv_descending = abap_true.
      SORT lt_zlctdate_t BY zvalidfr1 DESCENDING.
    ELSE.
      SORT lt_zlctdate_t BY zvalidfr1 ASCENDING.
    ENDIF.

    LOOP AT lt_zlctdate_t INTO ls_zlctdate WHERE zdatart = iv_zdatart AND zobjzuord IS INITIAL.
      es_zlctdate = ls_zlctdate.
      EXIT.
    ENDLOOP.

    IF es_zlctdate IS INITIAL.


      LOOP AT lt_zlctdate_t INTO ls_zlctdate WHERE zdatart = iv_zdatart.
        es_zlctdate = ls_zlctdate.
        EXIT.
      ENDLOOP.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>GET_GP_ROLE_T
* +-------------------------------------------------------------------------------------------------+
* | [<-()] RT_GP_ROLE_T                   TYPE        ZCONT_GP_ROLE_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_gp_role_t.
    rt_gp_role_t = mt_gp_role_t.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZFICLN_LCT_OUTBD_MAPPER->GET_HEAD_DATA_CONTROL
* +-------------------------------------------------------------------------------------------------+
* | [<-()] EV_HEAD_DAT_CONTROL            TYPE        CHAR01
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_head_data_control.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :  01523 3955015                                       *
*&H E-Mail : Juri@Boehme-Beratung.de                             *
*&H Date of creation: 2018-10-18                                 *
*&D***************************************************************
*&D Description :                                                *
*&D get HEAD DAT CONTROL   data                                  *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lc_lnl_contracttype_les TYPE zlct_lnl_contracttype VALUE 'LES'.

    READ TABLE mt_company_lnl ASSIGNING FIELD-SYMBOL(<ls_company_lnl>) WITH KEY bukrs = ms_zlctheader_t-zlctbukrs.
    CHECK sy-subrc = 0.
    IF <ls_company_lnl>-lnl_contracttype = lc_lnl_contracttype_les AND ms_zlctcontract_t-zexcontyp = abap_true.
      ev_head_dat_control = 'A'.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>GET_ITEM_AP_DATA_ACC_PRINCIPLE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_ACC_PRINCIPLE               TYPE        CHAR04
* | [--->] IV_COMPANY                     TYPE        ZLCTBURKS
* | [<-()] EV_ACC_PRINCIPLE               TYPE        CHAR04
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_item_ap_data_acc_principle.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : Juri@Boehme-Beratung.de                             *
*&H Date of creation: 2018-10-16                                 *
*&D***************************************************************
*&D Description :                                                *
*&D SET correct ITEM_AP_DATA_ACC_PRINCIPLE                       *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lc_loc  TYPE c LENGTH 4    VALUE 'LOC',
          lc_ifrs TYPE c LENGTH 4    VALUE 'IFRS',
          lc_hgb  TYPE c LENGTH 4    VALUE 'HGB',
          lc_ias  TYPE c LENGTH 4    VALUE 'IAS',
          lc_gmg  TYPE zlct_sysgroup VALUE 'GMG',
          lc_dfmg TYPE zlct_sysgroup VALUE 'DFMG'.


    ev_acc_principle = iv_acc_principle.

    READ TABLE mt_company_lnl ASSIGNING FIELD-SYMBOL(<ls_company>) WITH KEY  bukrs = iv_company.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.

    IF iv_acc_principle = lc_loc.
      IF <ls_company>-sysgroup EQ lc_gmg
       OR <ls_company>-sysgroup EQ lc_dfmg.
        ev_acc_principle = lc_hgb.
      ENDIF.
    ELSEIF iv_acc_principle = lc_ifrs.
      IF <ls_company>-sysgroup EQ lc_gmg
      OR <ls_company>-sysgroup EQ lc_dfmg.
        ev_acc_principle = lc_ias.
      ENDIF.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>GET_ITEM_AP_DATA_IR_FIX
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_ZVALUEGAAP                  TYPE        ZLCTVALUEGAAP
* | [--->] IV_ZVALUEKIND                  TYPE        ZLCTVALUEKIND
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<-()] EV_ITEM_AP_DATA_IR_FIX         TYPE        CHAR011
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_item_ap_data_ir_fix.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :  01523 3955015                                       *
*&H E-Mail : Juri@Boehme-Beratung.de                             *
*&H Date of creation: 2018-10-14                                 *
*&D***************************************************************
*&D Description :                                                *
*&D get value from zlctvalue_t for ir_fix                        *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************


    DATA: ls_zlctvalue TYPE zlctvalue_t,
          ls_zlctcond  TYPE zlctcond_t.


    DATA: lt_zlctvalue_t TYPE zlctvalue_tt,
          lt_zlctcond_t  TYPE zlctcond_tt.

    lt_zlctvalue_t = it_zlctvalue_t.
    lt_zlctcond_t  = it_zlctcond_t.


    SORT lt_zlctvalue_t BY zcondlfd DESCENDING ZVALIDFR1 DESCENDING .


    LOOP AT lt_zlctvalue_t INTO ls_zlctvalue WHERE zvaluekind = iv_zvaluekind AND zvaluegaap = iv_zvaluegaap.
      READ TABLE lt_zlctcond_t INTO ls_zlctcond WITH KEY zvalueguid = ls_zlctvalue-zvalueguid.
      IF sy-subrc EQ 0.
        EXIT.
      ENDIF.
    ENDLOOP.

    IF ls_zlctcond IS  INITIAL.

      LOOP AT lt_zlctvalue_t INTO ls_zlctvalue WHERE zvaluekind = iv_zvaluekind .
        READ TABLE lt_zlctcond_t INTO ls_zlctcond WITH KEY zvalueguid = ls_zlctvalue-zvalueguid.
        IF sy-subrc EQ 0.
          EXIT.
        ENDIF.
      ENDLOOP.
    ENDIF.

    IF ls_zlctcond IS  INITIAL.
      LOOP AT lt_zlctvalue_t INTO ls_zlctvalue WHERE zvaluekind = iv_zvaluekind AND zvaluegaap = iv_zvaluegaap.
      ENDLOOP.
    ENDIF.

    IF ls_zlctvalue IS  INITIAL.
      LOOP AT lt_zlctvalue_t INTO ls_zlctvalue WHERE zvaluekind = iv_zvaluekind.
      ENDLOOP.

    ENDIF.

    IF ls_zlctvalue IS NOT INITIAL.
      ev_item_ap_data_ir_fix = ls_zlctvalue-zvalue.
    ENDIF.


  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>GET_ITEM_GEXT_REVENUE_PARTICIP
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_ELEMENT                     TYPE        ZLCT_MAP_ELEMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<-()] EV_REVENUE_PARTICIPATION       TYPE        TEXT9
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_item_gext_revenue_particip.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :  01523 3955015                                       *
*&H E-Mail : Juri@Boehme-Beratung.de                             *
*&H Date of creation: 2018-10-30                                 *
*&D***************************************************************
*&D Description :                                                *
*&D get value from zlctvalue_t for revenue_participation         *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lt_zlctvalue_t TYPE zlctvalue_tt.

    DATA: lv_lines TYPE sy-index.

    FIELD-SYMBOLS <ls_zlctvalue> TYPE zlctvalue_t.

    lt_zlctvalue_t = it_zlctvalue_t.

    CLEAR: ev_revenue_participation.

    READ TABLE mt_zlct_valuekind_m ASSIGNING FIELD-SYMBOL(<ls_valuekind>) WITH KEY segment  = iv_segment
                                                                                   element  = iv_element.

    CHECK sy-subrc = 0.

    DESCRIBE TABLE lt_zlctvalue_t LINES lv_lines.

    CHECK lv_lines GT 0.

    IF lv_lines = 0.

      READ TABLE lt_zlctvalue_t ASSIGNING <ls_zlctvalue> WITH KEY zvaluekind = <ls_valuekind>-zvaluekind.

    ELSE.
      SORT lt_zlctvalue_t BY zcondlfd DESCENDING zvalidfr1 DESCENDING .
      LOOP AT lt_zlctvalue_t ASSIGNING <ls_zlctvalue> WHERE zvaluekind = <ls_valuekind>-zvaluekind
                                                        AND zvalidfr1 LE sy-datum
                                                        AND zvalidto1 GE sy-datum.
        EXIT.
      ENDLOOP.

    ENDIF.


    CHECK sy-subrc = 0.

    IF <ls_zlctvalue> IS NOT INITIAL.
      ev_revenue_participation = <ls_zlctvalue>-zvalue.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>GET_OBJ_TYPE_T
* +-------------------------------------------------------------------------------------------------+
* | [<-()] RT_OBJ_TYPE_T                  TYPE        ZLCT_OBJ_TYPE_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_obj_type_t.
    rt_obj_type_t = mt_obj_type_t.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>GET_OPCO_TYPE_T
* +-------------------------------------------------------------------------------------------------+
* | [<-()] RT_OPCO_TYPE_T                 TYPE        ZLCT_OPCO_TYPE_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_opco_type_t.
    rt_opco_type_t = mt_zlct_opco_type_t.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>GET_VALID_FROM
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [<-()] EV_DATE                        TYPE        ZLCTVALIDFR1
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_valid_from.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :  01523 3955015                                       *
*&H E-Mail : Juri@Boehme-Beratung.de                             *
*&H Date of creation: 2018-10-16                                 *
*&D***************************************************************
*&D Description :                                                *
*&D get value from either zcondfp, zcondexdat or validfr1        *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lv_mont  TYPE int4,
          lv_month TYPE zlct_lnl_condrth.

    DATA: ls_zlctcond_t  TYPE zlctcond_t.

    ls_zlctcond_t = is_zlctcond_t.


    CASE ls_zlctcond_t-zcondrth.


      WHEN '0100'.
        IF ls_zlctcond_t-zcondexdat IS INITIAL AND ls_zlctcond_t-zvalidfr1 IS NOT INITIAL.
          ev_date = ls_zlctcond_t-zvalidfr1.
        ELSEIF ls_zlctcond_t-zcondexdat IS NOT INITIAL AND ls_zlctcond_t-zcondexdat GT ls_zlctcond_t-zvalidfr1.
          ev_date = ls_zlctcond_t-zcondexdat.
        ELSE.
          ev_date = ls_zlctcond_t-zvalidfr1.
        ENDIF.

      WHEN OTHERS.
        ev_date = ls_zlctcond_t-zcondfp.
        IF ls_zlctcond_t-zcondzalw NE '0001'.
          SELECT SINGLE zlnl_condrth INTO lv_month FROM zlct_pay_ryth_t WHERE zcondrth = ls_zlctcond_t-zcondrth.
          lv_mont = lv_month.
          IF ls_zlctcond_t-zcondzalw = '0002' OR ls_zlctcond_t-zcondzalw = '0001'.
            SUBTRACT 1 FROM lv_mont.
          ENDIF.
          lv_mont = lv_mont * ( -1 ).
          IF ev_date NE '00000000'.  " ins JB 2018112
            CALL FUNCTION 'HR_HCP_ADD_MONTH_TO_DATE'
              EXPORTING
                im_monthcount = lv_mont
                im_date       = ev_date
              IMPORTING
                ex_date       = ev_date.
          ENDIF. " ins JB 2018112

          CASE ls_zlctcond_t-zcondzalw.

            WHEN '0002'. " Mittelschüssig
              "              ev_date+6(2) = '01'.
              ev_date = ls_zlctcond_t-zvalidfr1.  "cha JB 20181018
            WHEN '0003'. " Nachschüssig
              lv_mont = 1.
              CALL FUNCTION 'HR_HCP_ADD_MONTH_TO_DATE'
                EXPORTING
                  im_monthcount = lv_mont
                  im_date       = ev_date
                IMPORTING
                  ex_date       = ev_date.
              ev_date+6(2) = '01'.
          ENDCASE. "ZLCTCONDZALW
        ENDIF.

    ENDCASE. " zcondrth 1. mal

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>GET_VALID_TO
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [<-()] EV_ITEM_COND_DATA              TYPE        ZLCTVALIDTO1
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD get_valid_to.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Duc-Trung Vu                                         *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :  0151 40625787                                                    *
*&H E-Mail : duc-trung.vu@soprasteria.com                             *
*&H Date of creation: 2018-09-24                                 *
*&D***************************************************************
*&D Description :                                                *
*&D get value_to depending on zcondfp                            *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************


    IF is_zlctcond_t-zcondrth <> '0100'.
      ev_item_cond_data = is_zlctcond_t-zvalidto1.
    ELSE.
      RETURN.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_CA_TYPE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_ZLCTOPTART                  TYPE        ZLCTOPTART
* | [<-()] RV_ZLCTNL_CATYPE               TYPE        ZLCTNL_CATYPE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_ca_type.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps ca type                                                 *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_zcont_option_t TYPE zcont_option_t.

    READ TABLE mt_zcont_option_t INTO ls_zcont_option_t WITH KEY zoptart = iv_zlctoptart.
    rv_zlctnl_catype = ls_zcont_option_t-zlnl_catype.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_CONDITIONS_WITH_HELP_TAB
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        EDILSEGTYP
* | [--->] IV_ZLCTOBJID                   TYPE        ZLCTOBJID
* | [--->] IT_ZLCTCOND                    TYPE        ZLCTCOND_TT
* | [<---] RT_ZLCTCOND                    TYPE        ANY TABLE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_conditions_with_help_tab.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps index, float, cond, condv, cfact segments               *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_zlctmap_help_t       TYPE zlctmap_help_t,
          ls_zlctcond             TYPE zlctcond_t,
          ls_zlcte1con_item_float TYPE zlcte1con_item_float,
          lt_zlcte1con_item_float TYPE TABLE OF zlcte1con_item_float,
          ls_zlcte1con_item_index TYPE zlcte1con_item_index,
          lt_zlcte1con_item_index TYPE TABLE OF zlcte1con_item_index,
          ls_zlcte1con_item_cond  TYPE zlcte1con_item_cond,
          lt_zlcte1con_item_cond  TYPE TABLE OF zlcte1con_item_cond,
          ls_zlcte1con_item_condv TYPE zlcte1con_item_condv,
          lt_zlcte1con_item_condv TYPE TABLE OF zlcte1con_item_condv,
          ls_zlcte1con_item_cfact TYPE zlcte1con_item_cfact,
          lt_zlcte1con_item_cfact TYPE TABLE OF zlcte1con_item_cfact,
          ls_zlct_condkindt_t     TYPE zlct_condkindt_t,
          lv_zahlrhythmus         TYPE zlctcondrth.

    LOOP AT it_zlctcond INTO ls_zlctcond WHERE zobjzuord = iv_zlctobjid.

      CLEAR: ls_zlcte1con_item_float,
             ls_zlcte1con_item_index,
             ls_zlcte1con_item_cond,
             ls_zlcte1con_item_condv,
             ls_zlcte1con_item_cfact,
             ls_zlctmap_help_t,
             lv_zahlrhythmus.

      IF ls_zlctcond-zcondrth <> '0100'.
        lv_zahlrhythmus = '0000'.
      ELSE.
        lv_zahlrhythmus = ls_zlctcond-zcondrth.
      ENDIF.

      READ TABLE mt_zlctmap_help_t INTO ls_zlctmap_help_t WITH KEY zsegment = iv_segment zcondart_source = ls_zlctcond-zcondart zcondrth = lv_zahlrhythmus.

      IF sy-subrc <> 0.
        CONTINUE.
      ENDIF.

      CASE iv_segment.

        WHEN 'E1CON_ITEM_COND'.

          ls_zlcte1con_item_cond-obj_ext_id = iv_zlctobjid.
          ls_zlcte1con_item_cond-cond_type = ls_zlctmap_help_t-z_condart_target.
          ls_zlcte1con_item_cond-valid_from = ls_zlctcond-zvalidfr1.

          IF ls_zlcte1con_item_cond-valid_from = '00000000'.
            ls_zlcte1con_item_cond-valid_from = ''.
          ENDIF.

          ls_zlcte1con_item_cond-valid_to = ls_zlctcond-zvalidto1.

          IF ls_zlcte1con_item_cond-valid_to = '00000000'.
            ls_zlcte1con_item_cond-valid_to = ''.
          ENDIF.

          ls_zlcte1con_item_cond-cond_value = ls_zlctcond-zcondwert.
          ls_zlcte1con_item_cond-paym_rhythm = map_zcondrth( ls_zlctcond-zcondrth ).
          ls_zlcte1con_item_cond-paym_form = map_zcondzalw( ls_zlctcond-zcondzalw ).
          ls_zlcte1con_item_cond-due_end_of_day = ''.
          APPEND ls_zlcte1con_item_cond TO lt_zlcte1con_item_cond.

        WHEN 'E1CON_ITEM_INDEX'.

          ls_zlcte1con_item_index-obj_ext_id = iv_zlctobjid.
          ls_zlcte1con_item_index-cond_type = ls_zlctmap_help_t-z_condart_target.
          ls_zlcte1con_item_index-valid_from = ls_zlctcond-zvalidfr1.

          IF ls_zlcte1con_item_index-valid_from = '00000000'.
            ls_zlcte1con_item_index-valid_from = ''.
          ENDIF.

          ls_zlcte1con_item_index-valid_to = ls_zlctcond-zvalidto1.

          IF ls_zlcte1con_item_index-valid_to = '00000000'.
            ls_zlcte1con_item_index-valid_to = ''.
          ENDIF.

          ls_zlcte1con_item_index-cond_value = ls_zlctcond-zcondwert.
          ls_zlcte1con_item_index-paym_rhythm = map_zcondrth( ls_zlctcond-zcondrth ).
          ls_zlcte1con_item_index-paym_form = map_zcondzalw( ls_zlctcond-zcondzalw ).
          ls_zlcte1con_item_index-due_end_of_day = ''.
          APPEND ls_zlcte1con_item_index TO lt_zlcte1con_item_index.

        WHEN 'E1CON_ITEM_FLOAT'.

          ls_zlcte1con_item_float-obj_ext_id     = iv_zlctobjid.
          ls_zlcte1con_item_float-cond_type      = ls_zlctmap_help_t-z_condart_target.
          ls_zlcte1con_item_float-valid_from     = ls_zlctcond-zvalidfr1.

          IF ls_zlcte1con_item_float-valid_from = '00000000'.
            ls_zlcte1con_item_float-valid_from = ''.
          ENDIF.

          ls_zlcte1con_item_float-valid_to       = ls_zlctcond-zvalidto1.

          IF ls_zlcte1con_item_float-valid_to = '00000000'.
            ls_zlcte1con_item_float-valid_to = ''.
          ENDIF.

          ls_zlcte1con_item_float-cond_value     = ls_zlctcond-zcondwert.
          ls_zlcte1con_item_float-paym_rhythm = map_zcondrth( ls_zlctcond-zcondrth ).
          ls_zlcte1con_item_float-paym_form = map_zcondzalw( ls_zlctcond-zcondzalw ).
          ls_zlcte1con_item_float-due_end_of_day = ''.
          APPEND ls_zlcte1con_item_float TO lt_zlcte1con_item_float.

        WHEN 'E1CON_ITEM_CONDV'.

          ls_zlcte1con_item_condv-obj_ext_id = iv_zlctobjid.
          ls_zlcte1con_item_condv-cond_type = ls_zlctmap_help_t-z_condart_target.
          ls_zlcte1con_item_condv-valid_on = ls_zlctcond-zvalidfr1.

          IF ls_zlcte1con_item_condv-valid_on = '00000000'.
            ls_zlcte1con_item_condv-valid_on = ''.
          ENDIF.

          ls_zlcte1con_item_condv-cond_value = ls_zlctcond-zcondwert.
          APPEND ls_zlcte1con_item_condv TO lt_zlcte1con_item_condv.

        WHEN 'E1CON_ITEM_CFACT'.

          ls_zlcte1con_item_cfact-obj_ext_id = iv_zlctobjid.
          ls_zlcte1con_item_cfact-cfact_type = ls_zlctmap_help_t-z_condart_target.
          ls_zlcte1con_item_cfact-cfact_value = ls_zlctcond-zcondwert.
          ls_zlcte1con_item_cfact-cfact_date = ls_zlctcond-zvalidfr1.

          IF ls_zlcte1con_item_cfact-cfact_date = '00000000'.
            ls_zlcte1con_item_cfact-cfact_date = ''.
          ENDIF.

          READ TABLE mt_zlctcondkind_t INTO ls_zlct_condkindt_t WITH KEY zcondart = ls_zlctmap_help_t-zcondart_source.
          ls_zlcte1con_item_cfact-cfact_comd = ls_zlct_condkindt_t-zdescription.
          APPEND ls_zlcte1con_item_cfact TO lt_zlcte1con_item_cfact.

      ENDCASE.

    ENDLOOP.

    IF lt_zlcte1con_item_cond IS NOT INITIAL.
      rt_zlctcond = lt_zlcte1con_item_cond.
    ELSEIF lt_zlcte1con_item_index IS NOT INITIAL.
      rt_zlctcond = lt_zlcte1con_item_index.
    ELSEIF lt_zlcte1con_item_float IS NOT INITIAL.
      rt_zlctcond = lt_zlcte1con_item_float.
    ELSEIF lt_zlcte1con_item_condv IS NOT INITIAL.
      rt_zlctcond = lt_zlcte1con_item_condv.
    ELSEIF lt_zlcte1con_item_cfact IS NOT INITIAL.
      rt_zlctcond = lt_zlcte1con_item_cfact.
    ENDIF.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_CORRECT_DATA_TYPE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IT_SEGMENT_FIELDS              TYPE        ZLCT_MAP_BS_FLDS_TT
* | [<-->] CS_SEGMENT                     TYPE        ANY
* | [EXC!] ERROR_ON_READING_ELEMENT
* | [EXC!] ERROR_ON_CREATION_OF_DATATYPE
* | [EXC!] ERROR_ON_ASSIGMENT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_correct_data_type.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Burkholdt                                         *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-05-31                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps fields according to data type                           *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: ls_segment_fields LIKE LINE OF it_segment_fields,
          ls_map            LIKE LINE OF mt_lnl_map_t,
          lv_datatype       TYPE REF TO data.

    FIELD-SYMBOLS: <lv_input>    TYPE any,
                   <lv_datatype> TYPE any.

    LOOP AT mt_lnl_map_t INTO ls_map WHERE segment = iv_segment.

      READ TABLE it_segment_fields INTO ls_segment_fields WITH KEY segmenttyp = iv_segment fieldname = ls_map-element.

      IF sy-subrc <> 0.
        RAISE error_on_reading_element.
      ENDIF.

      CREATE DATA lv_datatype TYPE (ls_segment_fields-rollname).

      IF sy-subrc <> 0.
        RAISE error_on_creation_of_datatype.
      ENDIF.

      ASSIGN lv_datatype->* TO <lv_datatype>.

      IF sy-subrc <> 0.
        RAISE error_on_assigment.
      ENDIF.

      ASSIGN COMPONENT ls_map-element OF STRUCTURE cs_segment TO <lv_input>.

      IF sy-subrc <> 0.
        RAISE error_on_assigment.
      ENDIF.

      CASE ls_segment_fields-datatype.
        WHEN 'NUMC' OR 'INT1'.
          IF <lv_input> CO '0123456789'.
            <lv_datatype> = <lv_input>.
            <lv_input> = <lv_datatype>.
          ELSE.
            "VeryImportantToDo Fehlermeldung
            <lv_input> = <lv_input>.
          ENDIF.
        WHEN 'CURR' OR 'DEC' OR 'FLTP' OR 'INT2' OR 'INT4'.
          IF <lv_input> CO '0123456789,.'.
            <lv_datatype> = <lv_input>.
            <lv_input> = <lv_datatype>.
          ELSE.
            "VeryImportantToDo Fehlermeldung
            <lv_input> =  <lv_input>.
          ENDIF.
        WHEN OTHERS.
          <lv_datatype> = <lv_input>.
          <lv_input> = <lv_datatype>.
      ENDCASE.

      SHIFT <lv_input> LEFT DELETING LEADING space.

    ENDLOOP.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_EXTID_TYPE_AND_VALUE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_HEAD_ITEM                   TYPE        ZLCT_ITEM_HEAD
* | [--->] IS_ZLCTOBJECT                  TYPE        ZLCTOBJECT_T(optional)
* | [--->] IS_ZLCTHEADER                  TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT                TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE                    TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] ITT_ZLCTOBJECT_T               TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [<---] ET_HEAD_EXTID                  TYPE        ZLCTE1CON_HEAD_EXTID_TT
* | [<---] ET_ITEM_EXTID                  TYPE        ZLCTE1CON_ITEM_EXTID_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_extid_type_and_value.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps head_extid and item_extid segments                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: "lt_zlct_ext_map_t type table of zlct_ext_map_t,"   PL09022018 Delete
      ls_zlct_ext_map_t TYPE zlct_ext_map_t,
      it_zlctheader_t   TYPE TABLE OF zlctheader_t,
      it_zlctcontract_t TYPE TABLE OF zlctcontract_t,
      it_zlctsale_t     TYPE TABLE OF zlctsale_t,
      lv_string         TYPE string,
      ls_head_extid     LIKE LINE OF et_head_extid,
      ls_item_extid     LIKE LINE OF et_item_extid,
      it_zlctobject_t   TYPE TABLE OF zlctobject_t.


    FIELD-SYMBOLS: <lt_map_table>    TYPE ANY TABLE,
                   <ls_map_struc>    TYPE any,
                   <lv_map_field>    TYPE any,
                   <lv_map_keyfield> TYPE any.

    IF mt_zlct_ext_map_t IS INITIAL.
      RETURN.
    ENDIF.

    APPEND is_zlctheader TO it_zlctheader_t.
    APPEND is_zlctcontract TO it_zlctcontract_t.
    APPEND is_zlctsale TO it_zlctsale_t.

    IF iv_head_item = mc_item.
      CLEAR it_zlctobject_t.
      APPEND is_zlctobject TO it_zlctobject_t.
    ELSE.
      it_zlctobject_t = itt_zlctobject_t.
    ENDIF.

    LOOP AT mt_zlct_ext_map_t INTO ls_zlct_ext_map_t WHERE z_item_head = iv_head_item.  " PL09022018 Insert

      UNASSIGN: <lt_map_table>,
                <ls_map_struc>.

      CLEAR lv_string.

      CONCATENATE 'it_' ls_zlct_ext_map_t-ztable INTO lv_string.
      TRANSLATE lv_string TO UPPER CASE.

      ASSIGN (lv_string) TO <lt_map_table>.

      IF sy-subrc <> 0.
        CONTINUE.
      ENDIF.

      LOOP AT <lt_map_table> ASSIGNING <ls_map_struc>.
        CLEAR: ls_head_extid,
               ls_item_extid.

        UNASSIGN: <lv_map_field>,
                  <lv_map_keyfield>.

        IF iv_head_item = mc_item AND
          ( ls_zlct_ext_map_t-ztable CS 'COKSST' OR
            ls_zlct_ext_map_t-ztable CS 'COND' OR
            ls_zlct_ext_map_t-ztable CS 'OPTION' OR
            ls_zlct_ext_map_t-ztable CS 'DATE' ).
          ASSIGN COMPONENT 'ZOBJZUORD' OF STRUCTURE <ls_map_struc> TO <lv_map_keyfield>.
          IF sy-subrc <> 0 OR <lv_map_keyfield> <> is_zlctobject-zobjid.
            CONTINUE.
          ENDIF.
        ENDIF.

        UNASSIGN:  <lv_map_keyfield>.

        IF ls_zlct_ext_map_t-map_key IS NOT INITIAL.
          ASSIGN COMPONENT ls_zlct_ext_map_t-map_key OF STRUCTURE <ls_map_struc> TO <lv_map_keyfield>.
          IF sy-subrc <> 0 OR <lv_map_keyfield> <> ls_zlct_ext_map_t-map_value.
            CONTINUE.
          ENDIF.
        ENDIF.

        ASSIGN COMPONENT ls_zlct_ext_map_t-zfeld OF STRUCTURE <ls_map_struc> TO <lv_map_field>.

        IF sy-subrc = 0 AND <lv_map_field> IS NOT INITIAL.
          IF iv_head_item = mc_head.
            ls_head_extid-extid_type = ls_zlct_ext_map_t-zid.
            ls_head_extid-extid_value = <lv_map_field>.

            IF ls_head_extid-extid_value = '00000000'.
              ls_head_extid-extid_value = ''.
            ENDIF.

            APPEND ls_head_extid TO et_head_extid.
          ELSEIF iv_head_item = mc_item.
            ls_item_extid-ref_type = ls_zlct_ext_map_t-zid.
            ls_item_extid-value = <lv_map_field>.

*>>>>> beg ins Duc 20180912
            IF ls_item_extid-ref_type = '02' AND ls_item_extid-value CN ' 0123456789'.
              CLEAR: ls_item_extid-value .
            ENDIF.
*<<<<< end ins Duc 20180912
            IF ls_item_extid-value = '00000000'.
              ls_item_extid-value = ''.
            ENDIF.

            ls_item_extid-obj_ext_id = is_zlctobject-zobjid.
            APPEND ls_item_extid TO et_item_extid.
          ENDIF.
        ENDIF.

      ENDLOOP.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZFICLN_LCT_OUTBD_MAPPER->MAP_HEAD
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_INITD                       TYPE        D(optional)
* | [--->] IV_INITIAL_LOAD                TYPE        AS4FLAG(optional)
* | [--->] IV_MANDT                       TYPE        EDI4MANDT
* | [--->] IV_DOCNUM                      TYPE        EDI_DOCNUM
* | [--->] IV_PSGNUM                      TYPE        EDI4PSGNUC(optional)
* | [--->] IV_HLEVEL                      TYPE        EDI4HLEVEC
* | [--->] IV_SOURCE                      TYPE        CHAR10
* | [<---] EV_ACTIV                       TYPE        ABAP_BOOL
* | [<-->] CV_COUNT                       TYPE        I
* | [<-->] CT_DOCUMENT                    TYPE        ZLCTEDID4_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_head.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps head segment                                            *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_acqu                        TYPE c LENGTH 4  VALUE 'ACQU',
               lc_con_vers_eff_date_tt_01(02) TYPE c VALUE '01'.

    DATA: lc_lct   TYPE c  LENGTH 10 VALUE 'LCT',
          lc_usdur TYPE zlctdatart   VALUE 'USDUR'.

    DATA: ls_head_data   TYPE zlcte1con_head.

    DATA: ls_map_t     TYPE zlct_lnl_map_t,
          ls_zlctdate  TYPE zlctdate_t,
          lv_obj_count TYPE i.

    DATA: ls_dd40     TYPE edi_dd40,
          ls_document TYPE zlctedid4_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctheader_t   = ms_zlctheader_t
              is_zlctcontract_t = ms_zlctcontract_t
              is_zlctsale_t     = ms_zlctsale_t
              it_zlctstatus_t   = mt_zlctstatus_t
              it_zlctdate_t     = mt_zlctdate_t
              it_zlctoption_t   = mt_zlctoption_t
              it_zlctpartrel_t  = mt_zlctpartrel_t
              it_zlctobject_t   = mt_zlctobject_t
              it_zlctaro_t      = mt_zlctaro_t
              it_zlctcoksst_t   = mt_zlctcoksst_t
              it_zlctcond_t     = mt_zlctcond_t
              it_zlctimage_t    = mt_zlctimage_t
              it_zlctvalue_t    = mt_zlctvalue_t
            IMPORTING
              es_data           = ls_head_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.


        WHEN 3. "freies Coding

          CASE ls_map_t-element.
*** beg ins JB 20181018
            WHEN 'CONTROL'.
              ls_head_data-control = get_head_data_control( ).
*** end ins JB 20181018
            WHEN 'CON_VERS_EFF_DATE'.

              IF iv_initial_load = abap_true.

                ls_head_data-con_vers_eff_date = iv_initd.

              ELSEIF mv_activ EQ abap_false.

                ls_head_data-con_vers_eff_date = get_ctdur_date_old( is_zlctheader_t = ms_zlctheader_t ).

              ELSEIF ms_zlctcontract_t-ztranstype = lc_acqu.

*** beg cha JB 20181010
                CLEAR: ls_zlctdate.
                ls_zlctdate = zficln_lct_outbd_mapper=>get_general_date( EXPORTING  iv_zdatart      = lc_usdur
                                                                                    is_zlctheader_t = ms_zlctheader_t
                                                                                    it_zlctobject_t = mt_zlctobject_t
                                                                                    it_zlctdate_t   = mt_zlctdate_t ).

                ls_head_data-con_vers_eff_date = ls_zlctdate-zdatdate. "zvalidfr1.  " ? JB
                CLEAR: ls_zlctdate.

*                CALL METHOD zficln_lct_outbd_mapper=>get_ctdur_date
*                  EXPORTING
*                    is_zlctheader_t   = ms_zlctheader_t
*                    it_zlctobject_t   = mt_zlctobject_t
*                    it_zlctdate_t     = mt_zlctdate_t
*                  IMPORTING
*                    es_zlctdate_ctdur = ls_zlctdate_ctdur.
*
*                ls_head_data-con_vers_eff_date = ls_zlctdate_ctdur-zdatdate.
*
*                CLEAR: ls_zlctdate_ctdur.
*** end cha JB 20181010


              ELSE.
*                " if Daten für zconres JB 180906 wenn geklärt ist wie die Abfrage für Modifikation bzw. Reassement ist
                ls_head_data-con_vers_eff_date = ms_zlctcontract_t-zconres5.
*                  else.
*                   ls_head_data-con_vers_eff_date = ms_zlctcontract_t-zconres6.
*                  endif.
                IF ls_head_data-con_vers_eff_date NE '00000000'.
                  ls_head_data-con_vers_eff_date+6(02) = lc_con_vers_eff_date_tt_01.
                ENDIF.
              ENDIF.

              IF ls_head_data-con_vers_eff_date = '00000000'.
                ls_head_data-con_vers_eff_date = ''.
              ENDIF.
*** beg ins JB 180815
            WHEN 'PROCESS_TYPE'.
              IF iv_initial_load EQ 'X'.
                ls_head_data-process_type = 'I'.
              ELSE.
                IF mv_activ EQ abap_false.
                  ls_head_data-process_type = 'R'.
                ELSE.
                  ls_head_data-process_type = check_new_contract( ).
                ENDIF.
*** end ins JB 180815
              ENDIF.
            WHEN 'REVERSAL_REASON'.
              IF mv_activ EQ abap_false.
                ls_head_data-reversal_reason = '01'.
              ENDIF.

*** beg ins JB 180928
            WHEN 'CON_EXT_SOURCE'.
              ls_head_data-con_ext_source = iv_source.
              IF ls_head_data-con_ext_source EQ space.
                ls_head_data-con_ext_source = lc_lct.
              ENDIF.
*** end ins JB 180928


          ENDCASE.

      ENDCASE.
    ENDLOOP.

    CALL METHOD map_correct_data_type
      EXPORTING
        iv_segment                    = iv_segment
        it_segment_fields             = mt_segment_fields
      CHANGING
        cs_segment                    = ls_head_data
      EXCEPTIONS
        error_on_reading_element      = 1
        error_on_creation_of_datatype = 2
        error_on_assigment            = 3
        OTHERS                        = 4.

*    IF sy-subrc <> 0.
*      APPEND INITIAL LINE TO ct_return ASSIGNING <msg>.
*
*      CLEAR: <msg>.
*
*      <msg>-type       = 'I'.
*      <msg>-id         = 'ZFI_LCT_DB'.
*      <msg>-number     = '866'.
*      <msg>-message_v1 = '/DTLN/E1CON_HEAD'.
*
*      CALL METHOD mo_ut_app_log->set_message_from_bapiret2
*        EXPORTING
*          is_message = <msg>.
*
*      CALL METHOD mo_ut_app_log->save.
*
*      MESSAGE i866(zfi_lct_db) WITH <msg>-message_v1 INTO <msg>-message.
*
*      UNASSIGN: <msg>.
*    ENDIF.



    ADD 1 TO cv_count.
    " gather all basic information of idoc segment (segment name, number, parent segment, hierarchy level, document number, mandant)
    ls_dd40-mandt  = iv_mandt.
    ls_dd40-segnam = iv_segment.
    ls_dd40-segnum = cv_count.
    ls_dd40-psgnum = iv_psgnum.
    ls_dd40-hlevel = iv_hlevel.
    ls_dd40-docnum = iv_docnum.

    MOVE-CORRESPONDING ls_dd40 TO ls_document.
    " write segment data
    ls_document-sdata = ls_head_data.

    APPEND ls_document TO ct_document.

    ev_activ = mv_activ.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZFICLN_LCT_OUTBD_MAPPER->MAP_HEAD_ACCFACT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_MANDT                       TYPE        EDI4MANDT
* | [--->] IV_DOCNUM                      TYPE        EDI_DOCNUM
* | [--->] IV_PSGNUM                      TYPE        EDI4PSGNUC(optional)
* | [--->] IV_HLEVEL                      TYPE        EDI4HLEVEC
* | [<-->] CT_COUNT                       TYPE        I
* | [<-->] CT_DOCUMENT                    TYPE        ZLCTEDID4_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_head_accfact.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps head_accfact segment                                    *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: ls_head_data_accfact TYPE zlcte1con_head_accfact.



    DATA: ls_dd40     TYPE edi_dd40,
          ls_document TYPE zlctedid4_t.



    DATA: ls_map_t          TYPE zlct_lnl_map_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctheader_t   = ms_zlctheader_t
              is_zlctcontract_t = ms_zlctcontract_t
              is_zlctsale_t     = ms_zlctsale_t
              it_zlctstatus_t   = mt_zlctstatus_t
              it_zlctdate_t     = mt_zlctdate_t
              it_zlctoption_t   = mt_zlctoption_t
              it_zlctpartrel_t  = mt_zlctpartrel_t
              it_zlctobject_t   = mt_zlctobject_t
              it_zlctaro_t      = mt_zlctaro_t
              it_zlctcoksst_t   = mt_zlctcoksst_t
              it_zlctcond_t     = mt_zlctcond_t
              it_zlctimage_t    = mt_zlctimage_t
              it_zlctvalue_t    = mt_zlctvalue_t
            IMPORTING
              es_data           = ls_head_data_accfact
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN OTHERS.
          ENDCASE.

      ENDCASE.

    ENDLOOP.

    CALL METHOD map_correct_data_type
      EXPORTING
        iv_segment                    = iv_segment
        it_segment_fields             = mt_segment_fields
      CHANGING
        cs_segment                    = ls_head_data_accfact
      EXCEPTIONS
        error_on_reading_element      = 1
        error_on_creation_of_datatype = 2
        error_on_assigment            = 3
        OTHERS                        = 4.

    ADD 1 TO ct_count.
    " gather all basic information of idoc segment (segment name, number, parent segment, hierarchy level, document number, mandant)
    ls_dd40-mandt  = iv_mandt.
    ls_dd40-segnam = iv_segment.
    ls_dd40-segnum = ct_count.
    ls_dd40-psgnum = iv_psgnum.
    ls_dd40-hlevel = iv_hlevel.
    ls_dd40-docnum = iv_docnum.

    MOVE-CORRESPONDING ls_dd40 TO ls_document.
    " write segment data
    ls_document-sdata = ls_head_data_accfact.

    APPEND ls_document TO ct_document.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZFICLN_LCT_OUTBD_MAPPER->MAP_HEAD_BP
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_MANDT                       TYPE        EDI4MANDT
* | [--->] IV_DOCNUM                      TYPE        EDI_DOCNUM
* | [--->] IV_PSGNUM                      TYPE        EDI4PSGNUC
* | [--->] IV_HLEVEL                      TYPE        EDI4HLEVEC
* | [<-->] CT_COUNT                       TYPE        I
* | [<-->] CT_DOCUMENT                    TYPE        ZLCTEDID4_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_head_bp.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps head_bp segment                                         *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_lg01   TYPE c LENGTH 4  VALUE 'LG01'.

    DATA: ls_head_data_bp TYPE zlcte1con_head_bp.

    DATA: ls_map_t       TYPE zlct_lnl_map_t,
          ls_gp_role     TYPE zcont_gp_role_t,
          ls_zlctpartrel TYPE zlctpartrel_t.

    DATA: ls_dd40     TYPE edi_dd40,
          ls_document TYPE zlctedid4_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctheader_t   = ms_zlctheader_t
              is_zlctcontract_t = ms_zlctcontract_t
              is_zlctsale_t     = ms_zlctsale_t
              it_zlctstatus_t   = mt_zlctstatus_t
              it_zlctdate_t     = mt_zlctdate_t
              it_zlctoption_t   = mt_zlctoption_t
              it_zlctpartrel_t  = mt_zlctpartrel_t
              it_zlctobject_t   = mt_zlctobject_t
              it_zlctaro_t      = mt_zlctaro_t
              it_zlctcoksst_t   = mt_zlctcoksst_t
              it_zlctcond_t     = mt_zlctcond_t
              it_zlctimage_t    = mt_zlctimage_t
              it_zlctvalue_t    = mt_zlctvalue_t
            IMPORTING
              es_data           = ls_head_data_bp
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'PARTNER_ROLE'.

              CLEAR: ls_zlctpartrel,
                     ls_gp_role.

              READ TABLE mt_zlctpartrel_t INTO ls_zlctpartrel WITH KEY zpartroll = lc_lg01.
              READ TABLE mt_gp_role_t INTO ls_gp_role WITH KEY zpartroll = ls_zlctpartrel-zpartroll.
              ls_head_data_bp-partner_role  = ls_gp_role-zlnl_partrole.

          ENDCASE.
      ENDCASE.

    ENDLOOP.

    CALL METHOD map_correct_data_type
      EXPORTING
        iv_segment                    = iv_segment
        it_segment_fields             = mt_segment_fields
      CHANGING
        cs_segment                    = ls_head_data_bp
      EXCEPTIONS
        error_on_reading_element      = 1
        error_on_creation_of_datatype = 2
        error_on_assigment            = 3
        OTHERS                        = 4.

    ADD 1 TO ct_count.
    " gather all basic information of idoc segment (segment name, number, parent segment, hierarchy level, document number, mandant)
    ls_dd40-mandt  = iv_mandt.
    ls_dd40-segnam = iv_segment.
    ls_dd40-segnum = ct_count.
    ls_dd40-psgnum = iv_psgnum.
    ls_dd40-hlevel = iv_hlevel.
    ls_dd40-docnum = iv_docnum.

    MOVE-CORRESPONDING ls_dd40 TO ls_document.
    " write segment data
    ls_document-sdata = ls_head_data_bp.

    APPEND ls_document TO ct_document.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZFICLN_LCT_OUTBD_MAPPER->MAP_HEAD_GEN
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_MANDT                       TYPE        EDI4MANDT
* | [--->] IV_DOCNUM                      TYPE        EDI_DOCNUM
* | [--->] IV_PSGNUM                      TYPE        EDI4PSGNUC(optional)
* | [--->] IV_HLEVEL                      TYPE        EDI4HLEVEC
* | [<-->] CT_COUNT                       TYPE        I
* | [<-->] CT_DOCUMENT                    TYPE        ZLCTEDID4_TT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_head_gen.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps head_gen segment                                        *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_ctdur TYPE c LENGTH 5  VALUE 'CTDUR'.

    DATA: ls_head_data_gen TYPE zlcte1con_head_gen.


    DATA: ls_map_t          TYPE zlct_lnl_map_t,
          ls_zlctdate_ctdur TYPE zlctdate_t,
          ls_zlct_company_t TYPE zlct_company_t,
          lv_obj_count      TYPE i.


    DATA: ls_dd40     TYPE edi_dd40,
          ls_document TYPE zlctedid4_t.

    READ TABLE mt_company_lnl INTO ls_zlct_company_t WITH KEY bukrs = ms_zlctheader_t-zlctbukrs.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctheader_t   = ms_zlctheader_t
              is_zlctcontract_t = ms_zlctcontract_t
              is_zlctsale_t     = ms_zlctsale_t
              it_zlctstatus_t   = mt_zlctstatus_t
              it_zlctdate_t     = mt_zlctdate_t
              it_zlctoption_t   = mt_zlctoption_t
              it_zlctpartrel_t  = mt_zlctpartrel_t
              it_zlctobject_t   = mt_zlctobject_t
              it_zlctaro_t      = mt_zlctaro_t
              it_zlctcoksst_t   = mt_zlctcoksst_t
              it_zlctcond_t     = mt_zlctcond_t
              it_zlctimage_t    = mt_zlctimage_t
              it_zlctvalue_t    = mt_zlctvalue_t
            IMPORTING
              es_data           = ls_head_data_gen
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'CON_TYPE'.
              ls_head_data_gen-con_type          = ls_zlct_company_t-lnl_contracttype.
            WHEN 'CON_COMP_CODE'.

              IF ls_zlct_company_t-lnl_mls_bukrs IS NOT INITIAL.
                ls_head_data_gen-con_comp_code     = ls_zlct_company_t-lnl_mls_bukrs.
              ELSE.
                ls_head_data_gen-con_comp_code     = ms_zlctheader_t-zlctbukrs.
              ENDIF.

            WHEN 'CON_MAIN_FLAG'.

              IF ms_zlctcontract_t-zconclass = '0001'.
                ls_head_data_gen-con_main_flag     = abap_true.
              ENDIF.

            WHEN 'CON_START'.

              CALL METHOD zficln_lct_outbd_mapper=>get_ctdur_date
                EXPORTING
                  is_zlctheader_t   = ms_zlctheader_t
                  it_zlctobject_t   = mt_zlctobject_t
                  it_zlctdate_t     = mt_zlctdate_t
                IMPORTING
                  es_zlctdate_ctdur = ls_zlctdate_ctdur.

              ls_head_data_gen-con_start = ls_zlctdate_ctdur-zdatdate.

              CLEAR: ls_zlctdate_ctdur.

              IF ls_head_data_gen-con_start = '00000000'.
                ls_head_data_gen-con_start = ''.
              ENDIF.

          ENDCASE.
      ENDCASE.

    ENDLOOP.



    CALL METHOD map_correct_data_type
      EXPORTING
        iv_segment                    = iv_segment
        it_segment_fields             = mt_segment_fields
      CHANGING
        cs_segment                    = ls_head_data_gen
      EXCEPTIONS
        error_on_reading_element      = 1
        error_on_creation_of_datatype = 2
        error_on_assigment            = 3
        OTHERS                        = 4.

    ADD 1 TO ct_count.
    " gather all basic information of idoc segment (segment name, number, parent segment, hierarchy level, document number, mandant)
    ls_dd40-mandt  = iv_mandt.
    ls_dd40-segnam = iv_segment.
    ls_dd40-segnum = ct_count.
    ls_dd40-psgnum = iv_psgnum.
    ls_dd40-hlevel = iv_hlevel.
    ls_dd40-docnum = iv_docnum.

    MOVE-CORRESPONDING ls_dd40 TO ls_document.
    " write segment data
    ls_document-sdata = ls_head_data_gen.

    APPEND ls_document TO ct_document.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_DATA                   TYPE        ZLCTE1CON_ITEM
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item segment                                            *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t          TYPE zlct_lnl_map_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN OTHERS.
          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_AP_IFRS
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_AP_DATA                TYPE        ZLCTE1CON_ITEM_AP
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_ap_ifrs.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_ap (ifrs) segment                                  *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_ifrs TYPE c LENGTH 4  VALUE 'IFRS',
               lc_fl   TYPE c LENGTH 2  VALUE 'FL',
               lc_ol   TYPE c LENGTH 2  VALUE 'OL'.

    DATA: ls_map_t     TYPE zlct_lnl_map_t,
          ls_zlctvalue TYPE zlctvalue_t,
          ls_zlctdate  TYPE zlctdate_t,
          ls_zlctcond  TYPE zlctcond_t.

    FIELD-SYMBOLS: <ls_valuekind> TYPE zlct_valuekind_m.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_ap_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_ap_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_ifrs
                                                                                    iv_company = is_zlctheader_t-zlctbukrs ).

*** end ins JB 20181016
            WHEN 'IR_FIX_FLAG'.

              CLEAR ls_zlctvalue.
*>>>>>>>>>>> beg ins Duc 20181012
*** beg ins JB 20181030
              READ TABLE mt_zlct_valuekind_m ASSIGNING <ls_valuekind> WITH KEY ifrs_loc = lc_ifrs
                                                                               segment  = iv_segment
                                                                               element  = ls_map_t-element.
              IF sy-subrc = 0.
*** end ins JB 2018
                LOOP AT it_zlctcond_t INTO ls_zlctcond.
                  READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = lc_ifrs zvalueguid = ls_zlctcond-zvalueguid.
*              READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = lc_w005 zvaluegaap = lc_ifrs.

                  IF sy-subrc <> 0.
                    READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = ''.
                  ELSE.
                    EXIT.
                  ENDIF.
                ENDLOOP.
              ENDIF.
*<<<<<<<<<<< end ins Duc 20181012
              IF ls_zlctvalue IS NOT INITIAL.
                es_item_ap_data-ir_fix_flag = abap_true.
              ENDIF.

            WHEN 'IR_FIX'.
*** beg ins JB 20181030
              READ TABLE mt_zlct_valuekind_m ASSIGNING <ls_valuekind> WITH KEY ifrs_loc = lc_ifrs
                                                                               segment  = iv_segment
                                                                               element  = ls_map_t-element.
              IF sy-subrc = 0.
*** end ins JB 2018

                es_item_ap_data-ir_fix = get_item_ap_data_ir_fix( iv_zvaluekind = <ls_valuekind>-zvaluekind
                                                                  iv_zvaluegaap = lc_ifrs
                                                                  it_zlctcond_t = it_zlctcond_t
                                                                  it_zlctvalue_t = it_zlctvalue_t ).
              ENDIF.


            WHEN 'IR_INT_FLAG'.

              CLEAR ls_zlctvalue.
*>>>>>>>>>>> beg ins Duc 20181012
*** beg ins JB 20181030
              READ TABLE mt_zlct_valuekind_m ASSIGNING <ls_valuekind> WITH KEY ifrs_loc = lc_ifrs
                                                                               segment  = iv_segment
                                                                               element  = ls_map_t-element.
              IF sy-subrc = 0.
*** end ins JB 2018
                LOOP AT it_zlctcond_t INTO ls_zlctcond.
                  READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = lc_ifrs zvalueguid = ls_zlctcond-zvalueguid.
*              READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = lc_w004 zvaluegaap = lc_ifrs.

                  IF sy-subrc <> 0.
                    READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = ''.
                  ELSE.
                    EXIT.
                  ENDIF.
                ENDLOOP.
              ENDIF.
*<<<<<<<<<<< end ins Duc 20181012

              IF ls_zlctvalue IS NOT INITIAL.
                es_item_ap_data-ir_int_flag = abap_true.
              ENDIF.

            WHEN 'IR_INT'.

              CLEAR ls_zlctvalue.
*>>>>>>>>>>> beg ins Duc 20181012
*** beg ins JB 20181030
              READ TABLE mt_zlct_valuekind_m ASSIGNING <ls_valuekind> WITH KEY ifrs_loc = lc_ifrs
                                                                               segment  = iv_segment
                                                                               element  = ls_map_t-element.
              IF sy-subrc = 0.
*** end ins JB 2018
                LOOP AT it_zlctcond_t INTO ls_zlctcond.
                  READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = lc_ifrs zvalueguid = ls_zlctcond-zvalueguid.
*              READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = lc_w004 zvaluegaap = lc_ifrs.

                  IF sy-subrc <> 0.
                    READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = ''.
                  ELSE.
                    EXIT.
                  ENDIF.
                ENDLOOP.
              ENDIF.
*<<<<<<<<<<< end ins Duc 20181012

              IF ls_zlctvalue IS NOT INITIAL.
                es_item_ap_data-ir_int = ls_zlctvalue-zvalue.
              ENDIF.

            WHEN 'CON_NDPER_W'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = mc_zlctdatart_dpidur.
              es_item_ap_data-con_ndper_w = ls_zlctdate-zdatmm.

              IF es_item_ap_data-con_ndper_w = '000'.
                es_item_ap_data-con_ndper_w = ''.
              ENDIF.

            WHEN 'CON_NDJHR_W'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = mc_zlctdatart_dpidur.
              es_item_ap_data-con_ndjhr_w = ls_zlctdate-zdatdau.

              IF es_item_ap_data-con_ndjhr_w = '00000000'.
                es_item_ap_data-con_ndjhr_w = ''.
              ENDIF.

            WHEN 'AFA_PER'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = mc_zlctdatart_dpidur.
              es_item_ap_data-afa_per = ls_zlctdate-zdatmm.

              IF es_item_ap_data-afa_per = '000'.
                es_item_ap_data-afa_per = ''.
              ENDIF.

            WHEN 'AFA_YEAR'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = mc_zlctdatart_dpidur.
              es_item_ap_data-afa_year = ls_zlctdate-zdatdau.

              IF es_item_ap_data-afa_year ='00000000'.
                es_item_ap_data-afa_year = ''.
              ENDIF.

            WHEN 'CON_RISK_ID'.

              es_item_ap_data-con_risk_id = is_zlctobject_t-zconris1+2(2).

            WHEN 'LEASE_CLASS_LESSOR'.
              IF is_zlctcontract_t-zintlease IS NOT INITIAL.   "Defect: 2060117168
                IF is_zlctobject_t-zintleas1 = abap_true.
                  es_item_ap_data-lease_class_lessor = lc_fl.
                ELSE.
                  es_item_ap_data-lease_class_lessor = lc_ol.
                ENDIF.
              ENDIF.
          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_AP_LOC
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_AP_DATA                TYPE        ZLCTE1CON_ITEM_AP
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_ap_loc.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_ap (loc) segment                                   *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_loc TYPE c LENGTH 4  VALUE 'LOC',
*               LC_W005 TYPE C LENGTH 4  VALUE 'W005',
*               LC_W004 TYPE C LENGTH 4  VALUE 'W004',
               lc_fl  TYPE c LENGTH 2  VALUE 'FL',
               lc_ol  TYPE c LENGTH 2  VALUE 'OL'.

    DATA: ls_map_t     TYPE zlct_lnl_map_t,
          ls_zlctvalue TYPE zlctvalue_t,
          ls_zlctdate  TYPE zlctdate_t,
          ls_zlctcond  TYPE zlctcond_t.

    FIELD-SYMBOLS: <ls_valuekind> TYPE zlct_valuekind_m.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_ap_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_ap_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_loc
                                                                                    iv_company = is_zlctheader_t-zlctbukrs ).

*** end ins JB 20181016
            WHEN 'IR_FIX_FLAG'.

              CLEAR ls_zlctvalue.
*>>>>>>>>>>> beg ins Duc 20181012
*** beg ins JB 20181030
              READ TABLE mt_zlct_valuekind_m ASSIGNING <ls_valuekind> WITH KEY ifrs_loc = lc_loc
                                                                               segment  = iv_segment
                                                                               element  = ls_map_t-element.
              IF sy-subrc = 0.
*** end ins JB 2018
                LOOP AT it_zlctcond_t INTO ls_zlctcond.
                  READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = lc_loc zvalueguid = ls_zlctcond-zvalueguid.
*              READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = lc_w005 zvaluegaap = lc_loc.

                  IF sy-subrc <> 0.
                    READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = ''.
                  ELSE.
                    EXIT.
                  ENDIF.
                ENDLOOP.
              ENDIF.
*<<<<<<<<<<< end ins Duc 20181012

              IF ls_zlctvalue IS NOT INITIAL.
                es_item_ap_data-ir_fix_flag = abap_true.
              ENDIF.

            WHEN 'IR_FIX'.
*** beg ins JB 20181030
              READ TABLE mt_zlct_valuekind_m ASSIGNING <ls_valuekind> WITH KEY ifrs_loc = lc_loc
                                                                               segment  = iv_segment
                                                                               element  = ls_map_t-element.
              IF sy-subrc = 0.
*** end ins JB 2018

                es_item_ap_data-ir_fix = get_item_ap_data_ir_fix( iv_zvaluekind = <ls_valuekind>-zvaluekind
                                                                  iv_zvaluegaap = lc_loc
                                                                  it_zlctcond_t = it_zlctcond_t
                                                                  it_zlctvalue_t = it_zlctvalue_t ).
              ENDIF.

            WHEN 'IR_INT_FLAG'.

              CLEAR ls_zlctvalue.
*>>>>>>>>>>> beg ins Duc 20181012
*** beg ins JB 20181030
              READ TABLE mt_zlct_valuekind_m ASSIGNING <ls_valuekind> WITH KEY ifrs_loc = lc_loc
                                                                               segment  = iv_segment
                                                                               element  = ls_map_t-element.
              IF sy-subrc = 0.
*** end ins JB 2018
                LOOP AT it_zlctcond_t INTO ls_zlctcond.
                  READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = lc_loc zvalueguid = ls_zlctcond-zvalueguid.
*              READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = lc_w004 zvaluegaap = lc_loc.

                  IF sy-subrc <> 0.
                    READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = ''.
                  ELSE.
                    EXIT.
                  ENDIF.
                ENDLOOP.
              ENDIF.
*<<<<<<<<<<< end ins Duc 20181012

              IF ls_zlctvalue IS NOT INITIAL.
                es_item_ap_data-ir_int_flag = abap_true.
              ENDIF.

            WHEN 'IR_INT'.

              CLEAR ls_zlctvalue.
*>>>>>>>>>>> beg ins Duc 20181012
*** beg ins JB 20181030
              READ TABLE mt_zlct_valuekind_m ASSIGNING <ls_valuekind> WITH KEY ifrs_loc = lc_loc
                                                                               segment  = iv_segment
                                                                               element  = ls_map_t-element.
              IF sy-subrc = 0.
*** end ins JB 2018
                LOOP AT it_zlctcond_t INTO ls_zlctcond.
                  READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = lc_loc zvalueguid = ls_zlctcond-zvalueguid.
*              READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = lc_w004 zvaluegaap = lc_loc.

                  IF sy-subrc <> 0.
                    READ TABLE it_zlctvalue_t INTO ls_zlctvalue WITH KEY zvaluekind = <ls_valuekind>-zvaluekind zvaluegaap = ''.
                  ELSE.
                    EXIT.
                  ENDIF.
                ENDLOOP.
              ENDIF.
*<<<<<<<<<<< end ins Duc 20181012

              IF ls_zlctvalue IS NOT INITIAL.
                es_item_ap_data-ir_int = ls_zlctvalue-zvalue.
              ENDIF.

            WHEN 'CON_NDPER_W'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = mc_zlctdatart_dpidur.
              es_item_ap_data-con_ndper_w = ls_zlctdate-zdatmm.

              IF es_item_ap_data-con_ndper_w = '000'.
                es_item_ap_data-con_ndper_w = ''.
              ENDIF.

            WHEN 'CON_NDJHR_W'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = mc_zlctdatart_dpidur.
              es_item_ap_data-con_ndjhr_w = ls_zlctdate-zdatdau.

              IF es_item_ap_data-con_ndjhr_w = '00000000'.
                es_item_ap_data-con_ndjhr_w = ''.
              ENDIF.

            WHEN 'AFA_PER'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = mc_zlctdatart_dpldur.
              es_item_ap_data-afa_per = ls_zlctdate-zdatmm.

              IF es_item_ap_data-afa_per = '000'.
                es_item_ap_data-afa_per = ''.
              ENDIF.

            WHEN 'AFA_YEAR'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = mc_zlctdatart_dpldur.
              es_item_ap_data-afa_year = ls_zlctdate-zdatdau.

              IF es_item_ap_data-afa_year = '00000000'.
                es_item_ap_data-afa_year = ''.
              ENDIF.

            WHEN 'CON_RISK_ID'.

              es_item_ap_data-con_risk_id = is_zlctobject_t-zconris1+2(2).

            WHEN 'LEASE_CLASS_LESSOR'.
              IF is_zlctcontract_t-zintlease IS NOT INITIAL.   "Defect: 2060117168
                IF is_zlctobject_t-zintleas1 = abap_true.
                  es_item_ap_data-lease_class_lessor = lc_fl.
                ELSE.
                  es_item_ap_data-lease_class_lessor = lc_ol.
                ENDIF.
              ENDIF.
          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_AS_CA_IFRS
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_ZOPTREACER                  TYPE        ZLCTOPTREACER(optional)
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_AS_CA_DATA             TYPE        ZLCTE1CON_AS_CA
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_as_ca_ifrs.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_as_ca (ifrs) segment                               *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_ifrs TYPE c LENGTH 4  VALUE 'IFRS'.

    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
    WITH KEY ifrs_loc = lc_ifrs
              segment = iv_segment      " ins JB 20181026
               optart = is_zlctoption_t-zoptart.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_as_ca_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_as_ca_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_ifrs
                                                                                       iv_company = is_zlctheader_t-zlctbukrs ).

*** end ins JB 20181016
            WHEN 'CA_TYPE'.

              es_item_as_ca_data-ca_type = map_ca_type( is_zlctoption_t-zoptart ).

            WHEN 'RV_AMOUNT_EXPECTED'.

              es_item_as_ca_data-rv_amount_expected = map_rv_amount_expected( is_zlctobject_t = is_zlctobject_t
                                                                              it_zlctcond_t   = it_zlctcond_t ).
*** beg ins JB 20181016
            WHEN 'DELETE_SEGMENT'.
              IF iv_zoptreacer IS NOT INITIAL.
                es_item_as_ca_data-delete_segment = abap_true.
              ENDIF.
*** end ins JB 20181016
          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_AS_CA_LOC
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_ZOPTREACER                  TYPE        ZLCTOPTREACER(optional)
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_AS_CA_DATA             TYPE        ZLCTE1CON_AS_CA
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_as_ca_loc.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_as_ca (loc) segment                                *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_loc TYPE c LENGTH 4  VALUE 'LOC'.

    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
    WITH KEY ifrs_loc = lc_loc
        segment = iv_segment      " ins JB 20181026
        optart = is_zlctoption_t-zoptart.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_as_ca_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_as_ca_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_loc
                                                                                       iv_company = is_zlctheader_t-zlctbukrs ).

*** end ins JB 20181016
            WHEN 'CA_TYPE'.

              es_item_as_ca_data-ca_type = map_ca_type( is_zlctoption_t-zoptart ).

            WHEN 'RV_AMOUNT_EXPECTED'.

              es_item_as_ca_data-rv_amount_expected = map_rv_amount_expected( is_zlctobject_t = is_zlctobject_t
                                                                              it_zlctcond_t   = it_zlctcond_t ).

*** beg ins JB 20181019
            WHEN 'DELETE_SEGMENT'.
              IF iv_zoptreacer IS NOT INITIAL.
                es_item_as_ca_data-delete_segment = abap_true.
              ENDIF.
*** end ins JB 20181019
          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_AS_IFRS
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_AS_DATA                TYPE        ZLCTE1CON_ITEM_AS
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_as_ifrs.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_as (ifrs) segment                                  *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_pmdur  TYPE c LENGTH 5  VALUE 'PMDUR',
               lc_gzidur TYPE c LENGTH 6  VALUE 'GZIDUR',
               lc_ifrs   TYPE c LENGTH 4  VALUE 'IFRS'.

    DATA: ls_map_t          TYPE zlct_lnl_map_t,
          ls_zlctdate	      TYPE zlctdate_t,
          ls_zlctdate_ctdur	TYPE zlctdate_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_as_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_as_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_ifrs
                                                                                    iv_company = is_zlctheader_t-zlctbukrs ).

*** end ins JB 20181016
            WHEN 'CALC_END'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = lc_pmdur.

              IF sy-subrc = 0.

                es_item_as_data-calc_end = ls_zlctdate-zdatebis.

              ELSE.

                CALL METHOD zficln_lct_outbd_mapper=>get_ctdur_date
                  EXPORTING
                    is_zlctheader_t   = is_zlctheader_t
                    it_zlctobject_t   = it_zlctobject_t
                    it_zlctdate_t     = it_zlctdate_t
                  IMPORTING
                    es_zlctdate_ctdur = ls_zlctdate_ctdur.

                es_item_as_data-calc_end = ls_zlctdate_ctdur-zdatebis.

                CLEAR: ls_zlctdate_ctdur.

              ENDIF.

              IF es_item_as_data-calc_end = '00000000'.
                es_item_as_data-calc_end = ''.
              ENDIF.

            WHEN 'LIFE_END'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = lc_gzidur.

              IF sy-subrc = 0.

                es_item_as_data-life_end = ls_zlctdate-zdatebis.

              ELSE.

                CALL METHOD zficln_lct_outbd_mapper=>get_ctdur_date
                  EXPORTING
                    is_zlctheader_t   = is_zlctheader_t
                    it_zlctobject_t   = it_zlctobject_t
                    it_zlctdate_t     = it_zlctdate_t
                  IMPORTING
                    es_zlctdate_ctdur = ls_zlctdate_ctdur.

                es_item_as_data-life_end = ls_zlctdate_ctdur-zdatebis.

                CLEAR: ls_zlctdate_ctdur.

              ENDIF.

              IF es_item_as_data-life_end = '00000000'.
                es_item_as_data-life_end = ''.
              ENDIF.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_AS_LOC
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_AS_DATA                TYPE        ZLCTE1CON_ITEM_AS
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_as_loc.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_as (loc) segment                                   *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_gzhdur TYPE c LENGTH 6  VALUE 'GZHDUR',
               lc_pmdur  TYPE c LENGTH 5  VALUE 'PMDUR',
               lc_loc    TYPE c LENGTH 4  VALUE 'LOC'.

    DATA: ls_map_t          TYPE zlct_lnl_map_t,
          ls_zlctdate	      TYPE zlctdate_t,
          ls_zlctdate_ctdur	TYPE zlctdate_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_as_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_as_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_loc
                                                                                    iv_company = is_zlctheader_t-zlctbukrs ).

*** end ins JB 20181016
            WHEN 'CALC_END'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = lc_pmdur.

              IF sy-subrc = 0.

                es_item_as_data-calc_end = ls_zlctdate-zdatebis.

              ELSE.

                CALL METHOD zficln_lct_outbd_mapper=>get_ctdur_date
                  EXPORTING
                    is_zlctheader_t   = is_zlctheader_t
                    it_zlctobject_t   = it_zlctobject_t
                    it_zlctdate_t     = it_zlctdate_t
                  IMPORTING
                    es_zlctdate_ctdur = ls_zlctdate_ctdur.

                es_item_as_data-calc_end = ls_zlctdate_ctdur-zdatebis.

                CLEAR: ls_zlctdate_ctdur.

              ENDIF.

              IF es_item_as_data-calc_end = '00000000'.
                es_item_as_data-calc_end = ''.
              ENDIF.

            WHEN 'LIFE_END'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = lc_gzhdur.

              IF sy-subrc = 0.

                es_item_as_data-life_end = ls_zlctdate-zdatebis.

              ELSE.

                CALL METHOD zficln_lct_outbd_mapper=>get_ctdur_date
                  EXPORTING
                    is_zlctheader_t   = is_zlctheader_t
                    it_zlctobject_t   = it_zlctobject_t
                    it_zlctdate_t     = it_zlctdate_t
                  IMPORTING
                    es_zlctdate_ctdur = ls_zlctdate_ctdur.

                es_item_as_data-life_end = ls_zlctdate_ctdur-zdatebis.

                CLEAR: ls_zlctdate_ctdur.

              ENDIF.

              IF es_item_as_data-life_end = '00000000'.
                es_item_as_data-life_end = ''.
              ENDIF.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_CA_COND_IFRS
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_PARENT                      TYPE        ZLCT_MAP_SEGMENT(optional)
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_CA_COND_DATA           TYPE        ZLCTE1CON_CA_COND
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_ca_cond_ifrs.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_ca_cond (ifrs) segment                             *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_ifrs TYPE c LENGTH 4  VALUE 'IFRS'.

    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE          zlct_opco_type_t,
          lv_zahlrhythmus     TYPE          zlctcondrth.

    CLEAR lv_zahlrhythmus.
    IF is_zlctcond_t-zcondrth = '0100'.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ELSE.
      lv_zahlrhythmus = '0000'.
    ENDIF.

    CLEAR ls_zlct_opco_type_t.
    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
      WITH KEY ifrs_loc = lc_ifrs
      segment = iv_parent optart = is_zlctoption_t-zoptart  " cha JB 2018
      condart = is_zlctcond_t-zcondart condrth = lv_zahlrhythmus.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

*** beg ins JB 20181029
    IF ls_zlct_opco_type_t-zcondreacer = abap_true.
      IF is_zlctcond_t-zcondreacer = abap_false.
        EXIT.
      ENDIF.
    ELSE.
      EXIT.
    ENDIF.
*** end ins JB 20181029


    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_ca_cond_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_ca_cond_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_ifrs
                                                                                         iv_company = is_zlctheader_t-zlctbukrs ).
*** end ins JB 20181016
            WHEN 'COND_TYPE'.

              es_item_ca_cond_data-cond_type = ls_zlct_opco_type_t-condart_lnl.

            WHEN 'PAYM_RHYTHM'.

              es_item_ca_cond_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_ca_cond_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).

            WHEN 'CA_TYPE'.

              es_item_ca_cond_data-ca_type = map_ca_type( is_zlctoption_t-zoptart ).

*>>>>>>>>>>> beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_ca_cond_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_ca_cond_data-valid_from = '00000000'.
                es_item_ca_cond_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_ca_cond_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_ca_cond_data-valid_to = '00000000'.
                es_item_ca_cond_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_CA_COND_LOC
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_PARENT                      TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_CA_COND_DATA           TYPE        ZLCTE1CON_CA_COND
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_ca_cond_loc.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_ca_cond (loc) segment                              *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_loc TYPE c LENGTH 4  VALUE 'LOC'.

    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE          zlct_opco_type_t,
          lv_zahlrhythmus     TYPE          zlctcondrth.

    CLEAR lv_zahlrhythmus.
    IF is_zlctcond_t-zcondrth = '0100'.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ELSE.
      lv_zahlrhythmus = '0000'.
    ENDIF.

    CLEAR ls_zlct_opco_type_t.
    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
      WITH KEY ifrs_loc = lc_loc
            segment = iv_parent optart = is_zlctoption_t-zoptart  " cha JB 2018
            condart = is_zlctcond_t-zcondart condrth = lv_zahlrhythmus.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.


*** beg ins JB 20181029
    IF ls_zlct_opco_type_t-zcondreacer = abap_true.
      IF is_zlctcond_t-zcondreacer = abap_false.
        EXIT.
      ENDIF.
    ELSE.
      EXIT.
    ENDIF.
*** end ins JB 20181029

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_ca_cond_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_ca_cond_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_loc
                                                                                         iv_company = is_zlctheader_t-zlctbukrs ).
*** end ins JB 20181016
            WHEN 'COND_TYPE'.

              es_item_ca_cond_data-cond_type = ls_zlct_opco_type_t-condart_lnl.

            WHEN 'PAYM_RHYTHM'.

              es_item_ca_cond_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_ca_cond_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).

            WHEN 'CA_TYPE'.

              es_item_ca_cond_data-ca_type = map_ca_type( is_zlctoption_t-zoptart ).
*>>>>>>>>>>> beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_ca_cond_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_ca_cond_data-valid_from = '00000000'.
                es_item_ca_cond_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_ca_cond_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_ca_cond_data-valid_to = '00000000'.
                es_item_ca_cond_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_CFACT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_CFACT_DATA             TYPE        ZLCTE1CON_ITEM_CFACT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_cfact.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_cfact segment                                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlctmap_help_t   TYPE zlctmap_help_t,
          ls_zlct_condkindt_t TYPE zlct_condkindt_t,
          lv_segment          TYPE zlct_map_segment,
          lv_zahlrhythmus     TYPE zlctcondrth.

    IF is_zlctcond_t-zcondrth = '0100'.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ELSE.
      lv_zahlrhythmus = '0000'.
    ENDIF.

    lv_segment = iv_segment+6.
    READ TABLE mt_zlctmap_help_t INTO ls_zlctmap_help_t WITH KEY zsegment = lv_segment zcondart_source = is_zlctcond_t-zcondart zcondrth = lv_zahlrhythmus.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_cfact_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'CFACT_TYPE'.

              es_item_cfact_data-cfact_type = ls_zlctmap_help_t-z_condart_target.

            WHEN 'CFACT_COMD'.

              CLEAR: ls_zlct_condkindt_t.

              READ TABLE mt_zlctcondkind_t INTO ls_zlct_condkindt_t WITH KEY zcondart = ls_zlctmap_help_t-zcondart_source.
              es_item_cfact_data-cfact_comd = ls_zlct_condkindt_t-zdescription.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_CLASSM_IFRS
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_CLASSM_DATA            TYPE        ZLCTE1CON_ITEM_CLASSM
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_classm_ifrs.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_classm (ifrs) segment                              *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS lc_ifrs TYPE c LENGTH 4 VALUE 'IFRS'.

    DATA: ls_map_t    TYPE zlct_lnl_map_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_classm_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_classm_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_ifrs
                                                                                        iv_company = is_zlctheader_t-zlctbukrs ).
*** end ins JB 20181016
            WHEN 'CON_ERGKL_MAN'.

              es_item_classm_data-con_ergkl_man = is_zlctobject_t-zobjclaifrs.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_CLASSM_LOC
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_CLASSM_DATA            TYPE        ZLCTE1CON_ITEM_CLASSM
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_classm_loc.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_classm (loc) segment                               *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_loc TYPE c LENGTH 4 VALUE 'LOC'.

    DATA: ls_map_t    TYPE zlct_lnl_map_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_classm_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'ACC_PRINCIPLE'.
*** beg ins JB 20181016
              es_item_classm_data-acc_principle = get_item_ap_data_acc_principle( iv_acc_principle = lc_loc
                                                                                        iv_company = is_zlctheader_t-zlctbukrs ).
*** end ins JB 20181016
            WHEN 'CON_ERGKL_MAN'.

              es_item_classm_data-con_ergkl_man = is_zlctobject_t-zobjclasloc.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_COND
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_COND_DATA              TYPE        ZLCTE1CON_ITEM_COND
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_cond.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_cond segment                                       *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t          TYPE zlct_lnl_map_t,
          lv_zahlrhythmus   TYPE zlctcondrth,
          ls_zlctmap_help_t TYPE zlctmap_help_t,
          lv_segment        TYPE zlct_map_segment.

    IF is_zlctcond_t-zcondrth <> '0100'.
      lv_zahlrhythmus = '0000'.
    ELSE.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ENDIF.

    lv_segment = iv_segment+6.
    READ TABLE mt_zlctmap_help_t INTO ls_zlctmap_help_t WITH KEY zsegment = lv_segment zcondart_source = is_zlctcond_t-zcondart zcondrth = lv_zahlrhythmus.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_cond_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'COND_TYPE'.

              es_item_cond_data-cond_type = ls_zlctmap_help_t-z_condart_target.

            WHEN 'PAYM_RHYTHM'.

              es_item_cond_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_cond_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).
*>>>>>>>>>>> beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_cond_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_cond_data-valid_from = '00000000'.
                es_item_cond_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_cond_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_cond_data-valid_to = '00000000'.
                es_item_cond_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921

          ENDCASE.
      ENDCASE.
    ENDLOOP.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_CONDV
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_CONDV_DATA             TYPE        ZLCTE1CON_ITEM_CONDV
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_condv.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_condv segment                                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t          TYPE zlct_lnl_map_t,
          lv_zahlrhythmus   TYPE zlctcondrth,
          ls_zlctmap_help_t TYPE zlctmap_help_t,
          lv_segment        TYPE zlct_map_segment.

    IF is_zlctcond_t-zcondrth <> '0100'.
      lv_zahlrhythmus = '0000'.
    ELSE.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ENDIF.

    lv_segment = iv_segment+6.
    READ TABLE mt_zlctmap_help_t INTO ls_zlctmap_help_t WITH KEY zsegment = lv_segment zcondart_source = is_zlctcond_t-zcondart zcondrth = lv_zahlrhythmus.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_condv_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'COND_TYPE'.

              es_item_condv_data-cond_type = ls_zlctmap_help_t-z_condart_target.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_EO
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_EO_DATA                TYPE        ZLCTE1CON_ITEM_EO
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_eo.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_eo segment                                         *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************


    DATA: lv_counter TYPE syindex.

    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE          zlct_opco_type_t,
          lv_zahlrhythmus     TYPE          zlctcondrth,
          ls_zlctcond         TYPE zlctcond_t,
          ls_zlctcond_one     TYPE zlctcond_t,
          lv_item_count       TYPE          i.

    FIELD-SYMBOLS: <ls_zlctcond> TYPE zlctcond_t.

    CLEAR ls_zlct_opco_type_t.
    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
    WITH KEY segment = iv_segment optart = is_zlctoption_t-zoptart.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT it_zlctcond_t INTO ls_zlctcond WHERE zoptguid = is_zlctoption_t-zoptguid.
      CLEAR lv_zahlrhythmus.
*** Es wird nur die Einmalzahlung übergeben
      IF ls_zlctcond-zcondrth = mc_zcondrth_0100.
        lv_zahlrhythmus = ls_zlctcond-zcondrth.
      ELSE.
*** Bei allen anderen Zahlrhytmen wird 0000 übergeben.
        lv_zahlrhythmus = '0000'.
      ENDIF.

      CLEAR ls_zlct_opco_type_t.
      READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
        WITH KEY segment = iv_segment optart = is_zlctoption_t-zoptart
        condart = ls_zlctcond-zcondart condrth = lv_zahlrhythmus.

      IF sy-subrc = 0.
        CLEAR ls_zlctcond_one.
        ls_zlctcond_one = ls_zlctcond.
        ADD 1 TO lv_item_count.
      ENDIF.

    ENDLOOP. "it_zlctcond_t

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_eo_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'CA_EO_PENALTY_DATE'.

              IF lv_item_count = 1.
                es_item_eo_data-ca_eo_penalty_date = ls_zlctcond_one-zcondexdat.
              ENDIF.

              IF es_item_eo_data-ca_eo_penalty_date = '00000000'.
                es_item_eo_data-ca_eo_penalty_date = ''.
              ENDIF.

            WHEN 'CA_EO_PENALTY_FLAG'.

              CLEAR lv_counter.
              LOOP AT it_zlctcond_t ASSIGNING <ls_zlctcond> WHERE zoptguid  = is_zlctoption_t-zoptguid
                                                              AND zobjzuord = is_zlctobject_t-zobjid
                                                              AND zcondart  = mc_condart_pm005
                                                              AND zcondrth  = mc_zcondrth_0100.
                ADD 1 TO lv_counter.
              ENDLOOP.
*** Es darf nur einen Datensatz geben
              IF lv_counter EQ 1.
                es_item_eo_data-ca_eo_penalty_flag = abap_true.
              ENDIF.


            WHEN 'CA_EO_PENALTY'.

              CLEAR lv_counter.
              LOOP AT it_zlctcond_t ASSIGNING <ls_zlctcond> WHERE zoptguid  = is_zlctoption_t-zoptguid
                                                              AND zobjzuord = is_zlctobject_t-zobjid
                                                              AND zcondart  = mc_condart_pm005.
                ADD 1 TO lv_counter.
              ENDLOOP.
*** Es darf nur einen Datensatz geben
              IF lv_counter EQ 1
*** Er sollte zur Option gehören
               AND <ls_zlctcond>-zoptguid = is_zlctoption_t-zoptguid
*** Prüfung der Einmalzahlung
                AND <ls_zlctcond>-zcondrth EQ mc_zcondrth_0100.
                WRITE: <ls_zlctcond>-zcondwert TO es_item_eo_data-ca_eo_penalty CURRENCY <ls_zlctcond>-zcondcurr.
              ENDIF.

*** beg ins JB 180911
            WHEN 'CA_EO_EX_OPT_FLAG'.
              IF is_zlctoption_t-zoptreacer = '3'.
                es_item_eo_data-ca_eo_ex_opt_flag = abap_true.
              ENDIF.
*** end ins JB 180911
          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZFICLN_LCT_OUTBD_MAPPER->MAP_ITEM_EO_COND
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_PARENT                      TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_EO_COND_DATA           TYPE        ZLCTE1CON_EO_COND
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_eo_cond.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_eo_cond segment                                    *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t,
          lv_zahlrhythmus     TYPE zlctcondrth.

*** Nur die Einmalzahlung wird übernommen
    IF is_zlctcond_t-zcondrth = mc_zcondrth_0100.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ELSE.
*** bei allen anderen Zahlungsrhythmen wird 0000 übergeben.
      lv_zahlrhythmus = '0000'.
    ENDIF.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
      WITH KEY segment = iv_parent optart = is_zlctoption_t-zoptart
      condart = is_zlctcond_t-zcondart condrth = lv_zahlrhythmus.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_eo_cond_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'COND_TYPE'.

              es_item_eo_cond_data-cond_type = ls_zlct_opco_type_t-condart_lnl.

            WHEN 'PAYM_RHYTHM'.

              es_item_eo_cond_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_eo_cond_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).

            WHEN 'COND_VALUE'.

              es_item_eo_cond_data-cond_value = map_item_eq_cond_value( is_zlctobject_t = is_zlctobject_t
                                                                        is_zlctoption_t = is_zlctoption_t
                                                                        is_zlctcond_t   = is_zlctcond_t ).

*>>>>>>>>>>> beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_eo_cond_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_eo_cond_data-valid_from = '00000000'.
                es_item_eo_cond_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_eo_cond_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_eo_cond_data-valid_to = '00000000'.
                es_item_eo_cond_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921


          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZFICLN_LCT_OUTBD_MAPPER->MAP_ITEM_EQ_COND_VALUE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [<-()] EV_COND_VALUE                  TYPE        ZLCTE1CON_EO_COND-COND_VALUE
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_eq_cond_value.


    DATA: lv_conter TYPE syindex.

*** Übernehmen des Wertes wie ursprünglich konzepiert
    ev_cond_value = is_zlctcond_t-zcondwert.


*** Prüfen ob es sich um eine Vertragsstrafe handelt.
*** Dies ist der Fall, wenn der Betrag nicht nur auf der Kopfebene übergeben wird.
*    IF is_zlctcond_t-zcondart = mc_condart_pm005.
*      LOOP AT mt_zlctcond_t ASSIGNING FIELD-SYMBOL(<ls_zlctcond_t>) WHERE zlctintreno = is_zlctcond_t-zlctintreno.
*        ADD 1 TO lv_conter.
*      ENDLOOP.
*      IF lv_conter GT 1.
*        CLEAR ev_cond_value.
*      ENDIF.
*** Prüfen ob es sich um eine Einmalzahlung handelt. Diese soll auf Kopfebene übergeben werden.
*** Andere Zahlungen werden als Zahlungsplan mit Betrag übergeben.
*      IF is_zlctcond_t-zcondrth EQ mc_zcondrth_0100.
*        CLEAR ev_cond_value.
*      ENDIF.
*    ENDIF.



  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_FLOAT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_FLOAT_DATA             TYPE        ZLCTE1CON_ITEM_FLOAT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_float.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_float segment                                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t          TYPE zlct_lnl_map_t,
          lv_zahlrhythmus   TYPE zlctcondrth,
          ls_zlctmap_help_t TYPE zlctmap_help_t,
          lv_segment        TYPE zlct_map_segment.

    IF is_zlctcond_t-zcondrth <> '0100'.
      lv_zahlrhythmus = '0000'.
    ELSE.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ENDIF.

    lv_segment = iv_segment+6.
    READ TABLE mt_zlctmap_help_t INTO ls_zlctmap_help_t WITH KEY zsegment = lv_segment zcondart_source = is_zlctcond_t-zcondart zcondrth = lv_zahlrhythmus.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_float_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'COND_TYPE'.

              es_item_float_data-cond_type = ls_zlctmap_help_t-z_condart_target.

            WHEN 'PAYM_RHYTHM'.

              es_item_float_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_float_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).

*<<<<<<<<<<< beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_float_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_float_data-valid_from = '00000000'.
                es_item_float_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_float_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_float_data-valid_to = '00000000'.
                es_item_float_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_GEN
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_GEN_DATA               TYPE        ZLCTE1CON_ITEM_GEN
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_gen.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_gen segment                                        *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t    TYPE zlct_lnl_map_t,
          ls_obj_type TYPE zlct_obj_type_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_gen_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'OBJ_TYPE'.

              CLEAR ls_obj_type.
              READ TABLE mt_obj_type_t INTO ls_obj_type WITH KEY zobjtype = is_zlctobject_t-zobjtype.

              es_item_gen_data-obj_type   =  ls_obj_type-zlnl_obj_type.

            WHEN 'OBJ_ART'.

              CLEAR ls_obj_type.
              READ TABLE mt_obj_type_t INTO ls_obj_type WITH KEY zobjtype = is_zlctobject_t-zobjtype.

              es_item_gen_data-obj_art    = ls_obj_type-zlnl_obj_art.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_GEXT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_GEXT_DATA              TYPE        ZLCTE1CON_ITEM_GEXT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_gext.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_gext segment                                       *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t    TYPE zlct_lnl_map_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_gext_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
*** beg ins JB 20181030
            WHEN 'REVENUE_PARTICIPATION'.
              es_item_gext_data-revenue_participation = get_item_gext_revenue_particip( iv_segment      = iv_segment
                                                                                        iv_element      = ls_map_t-element
                                                                                        is_zlctobject_t = is_zlctobject_t
                                                                                        it_zlctvalue_t  = it_zlctvalue_t ).
*** end ins JB 2018
            WHEN OTHERS.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_INDEX
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_INDEX_DATA             TYPE        ZLCTE1CON_ITEM_INDEX
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_index.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_index segment                                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t          TYPE zlct_lnl_map_t,
          lv_zahlrhythmus   TYPE zlctcondrth,
          ls_zlctmap_help_t TYPE zlctmap_help_t,
          lv_segment        TYPE zlct_map_segment.

    IF is_zlctcond_t-zcondrth <> '0100'.
      lv_zahlrhythmus = '0000'.
    ELSE.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ENDIF.

    lv_segment = iv_segment+6.
    READ TABLE mt_zlctmap_help_t INTO ls_zlctmap_help_t WITH KEY zsegment = lv_segment zcondart_source = is_zlctcond_t-zcondart zcondrth = lv_zahlrhythmus.
    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_index_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'COND_TYPE'.

              es_item_index_data-cond_type = ls_zlctmap_help_t-z_condart_target.

            WHEN 'PAYM_RHYTHM'.

              es_item_index_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_index_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).
*<<<<<<<<<<< beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_index_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_index_data-valid_from = '00000000'.
                es_item_index_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_index_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_index_data-valid_to = '00000000'.
                es_item_index_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_LEEXT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_LEEXT_DATA             TYPE        ZLCTE1CON_ITEM_LEEXT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_leext.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_leext segment                                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_gzidur TYPE zlctdatart  VALUE 'GZIDUR'.

    DATA: ls_map_t    TYPE zlct_lnl_map_t,
          ls_zlctdate TYPE zlctdate_t.


    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_leext_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'CON_BEG'.
              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = lc_gzidur. " cha jb 20181010

              IF sy-subrc = 0.

                es_item_leext_data-con_beg = ls_zlctdate-zdatdate.

              ELSE.
*** beg cha JB 20181010 Änderung auf gzidur
                CLEAR: ls_zlctdate.
                ls_zlctdate = zficln_lct_outbd_mapper=>get_general_date( EXPORTING  iv_zdatart      = lc_gzidur
                                                                                    is_zlctheader_t = is_zlctheader_t
                                                                                    it_zlctobject_t = it_zlctobject_t
                                                                                    it_zlctdate_t   = it_zlctdate_t ).

*** end cha JB 20181010 Änderung auf gzidur

                es_item_leext_data-con_beg = ls_zlctdate-zdatdate.

                CLEAR: ls_zlctdate.

              ENDIF.

              IF es_item_leext_data-con_beg = '00000000'.
                es_item_leext_data-con_beg = ''.
              ENDIF.

            WHEN 'CON_END'.

              CLEAR ls_zlctdate.
              READ TABLE it_zlctdate_t INTO ls_zlctdate WITH KEY zobjzuord = is_zlctobject_t-zobjid zdatart = lc_gzidur.

              IF sy-subrc = 0.

                es_item_leext_data-con_end = ls_zlctdate-zdatebis.

              ELSE.

*** beg cha JB 2018 Änderung auf gzidur
                CLEAR: ls_zlctdate.
                ls_zlctdate = zficln_lct_outbd_mapper=>get_general_date( EXPORTING  iv_zdatart      = lc_gzidur
                                                                                    is_zlctheader_t = is_zlctheader_t
                                                                                    it_zlctobject_t = it_zlctobject_t
                                                                                    it_zlctdate_t   = it_zlctdate_t ).

                es_item_leext_data-con_end = ls_zlctdate-zdatebis.

                CLEAR: ls_zlctdate.

*** end cha JB 2018 Änderung auf gzidur

              ENDIF.

              IF es_item_leext_data-con_end = '00000000'.
                es_item_leext_data-con_end = ''.
              ENDIF.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_LEINT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_LEINT_DATA             TYPE        ZLCTE1CON_ITEM_LEINT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_leint.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_leint segment                                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t    TYPE zlct_lnl_map_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_leint_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'GROUP_PROPERTY_FLAG'.
              IF is_zlctcontract_t-zintlease IS NOT INITIAL.   "Defect: 2060117168
                es_item_leint_data-group_property_flag = is_zlctobject_t-zobjkonz.
              ENDIF.

**** beg ins JB 180911 check num
*            WHEN 'IDB_KEY'.
*              IF es_item_leint_data-idb_key CO ' 0123456789'.
*                es_item_leint_data-idb_key = is_zlctobject_t-zobjimken.
*              ELSE.
*      """ Message ausgeben.
*              ENDIF.
**** end ins JB 180911 check num


          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_PUR
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_PUR_DATA               TYPE        ZLCTE1CON_ITEM_PUR
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_pur.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_pur segment                                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lv_counter  TYPE syindex.


    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t.


    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
    WITH KEY segment = iv_segment optart = is_zlctoption_t-zoptart.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_pur_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'CA_PO_AMOUNT'.
*** Prüfen ob Kaufoption(PO01) mit Kondition(PM010) vorliegt.
*** Wenn ja dann Prüfung ob es noch weitere Datensätze gibt.
*** Wenn ja dann Prüfung auf Einmalzahlung
*** Wenn ja dann Prüfung auf weiter Zahlung
*** Wenn ja Fehler -> nichts übergeben.

              IF is_zlctoption_t-zoptart EQ mc_zoptart_po01.
                LOOP AT it_zlctcond_t ASSIGNING FIELD-SYMBOL(<ls_zlctcond>) WHERE zcondart = mc_condart_pm010
                                                                             AND zcondrth  = mc_zcondrth_0100
                                                                             AND zoptguid  = is_zlctoption_t-zoptguid
                                                                             AND zobjzuord = is_zlctoption_t-zobjzuord.
                  .
                  ADD 1 TO lv_counter.
                ENDLOOP.
                IF lv_counter EQ 1.
                  WRITE: <ls_zlctcond>-zcondwert TO es_item_pur_data-ca_po_amount CURRENCY <ls_zlctcond>-zcondcurr.
                ENDIF.
              ENDIF.
*** beg ins JB 180911
            WHEN 'CA_PO_EX_OPT_FLAG'.
              IF is_zlctoption_t-zoptreacer = '3'.
                es_item_pur_data-ca_po_ex_opt_flag = abap_true.
              ENDIF.
*** end ins JB 180911

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_PUR_COND
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_PARENT                      TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_PUR_COND_DATA          TYPE        ZLCTE1CON_PUR_COND
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_pur_cond.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_pur_cond segment                                   *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t,
          lv_zahlrhythmus     TYPE zlctcondrth.

    IF is_zlctcond_t-zcondrth = mc_zcondrth_0100.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ELSE.
      lv_zahlrhythmus = '0000'.
    ENDIF.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
      WITH KEY segment = iv_parent optart = is_zlctoption_t-zoptart
      condart = is_zlctcond_t-zcondart condrth = lv_zahlrhythmus.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_pur_cond_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'COND_TYPE'.

              es_item_pur_cond_data-cond_type = ls_zlct_opco_type_t-condart_lnl.

            WHEN 'PAYM_RHYTHM'.

              es_item_pur_cond_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_pur_cond_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).

            WHEN 'COND_VALUE'.
*** Prüfen ob Option Kaufoption vorliegt. Das wird nur auf der Kopfebene übertragen. Alle anderen werden auf Positionsebene übertragen.
              IF is_zlctcond_t-zcondart NE mc_condart_pm010.
                WRITE: is_zlctcond_t-zcondwert TO es_item_pur_cond_data-cond_value CURRENCY is_zlctcond_t-zcondcurr.
              ENDIF.
*>>>>>>>>>>> beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_pur_cond_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_pur_cond_data-valid_from = '00000000'.
                es_item_pur_cond_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_pur_cond_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_pur_cond_data-valid_to = '00000000'.
                es_item_pur_cond_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921
          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_PUT
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_PUT_DATA               TYPE        ZLCTE1CON_ITEM_PUT
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_put.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_put segment                                        *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: lv_counter TYPE syindex.

    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
    WITH KEY segment = iv_segment optart = is_zlctoption_t-zoptart.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_put_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'CA_PU_AMOUNT'.
*** Prüfen auf Andienungsrecht
              LOOP AT it_zlctcond_t ASSIGNING FIELD-SYMBOL(<ls_zlctcond>) WHERE zcondart  = mc_condart_pm009
                                                                            AND zcondrth  = mc_zcondrth_0100
                                                                            AND zoptguid  = is_zlctoption_t-zoptguid
                                                                            AND zobjzuord = is_zlctoption_t-zobjzuord.
                ADD 1 TO lv_counter.
              ENDLOOP.
              IF lv_counter EQ 1.
                WRITE: <ls_zlctcond>-zcondwert TO es_item_put_data-ca_pu_amount CURRENCY <ls_zlctcond>-zcondcurr.
              ENDIF.

*** beg ins JB 180911
            WHEN 'CA_PU_EX_OPT_FLAG'.
              IF is_zlctoption_t-zoptreacer = 3.
                es_item_put_data-ca_pu_ex_opt_flag = abap_true.
              ENDIF.
*** end ins JB 180911

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Public Method ZFICLN_LCT_OUTBD_MAPPER->MAP_ITEM_PUT_COND
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_PARENT                      TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_PUT_COND_DATA          TYPE        ZLCTE1CON_PUT_COND
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_put_cond.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_put_cond segment                                   *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t,
          lv_zahlrhythmus     TYPE zlctcondrth.

    IF is_zlctcond_t-zcondrth = '0100'.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ELSE.
      lv_zahlrhythmus = '0000'.
    ENDIF.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
      WITH KEY segment = iv_parent optart = is_zlctoption_t-zoptart
      condart = is_zlctcond_t-zcondart condrth = lv_zahlrhythmus.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_put_cond_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'COND_TYPE'.

              es_item_put_cond_data-cond_type = ls_zlct_opco_type_t-condart_lnl.

            WHEN 'PAYM_RHYTHM'.

              es_item_put_cond_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_put_cond_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).

            WHEN 'COND_VALUE'.

              es_item_put_cond_data-cond_value = map_item_put_cond_value( is_zlctobject_t = is_zlctobject_t
                                                                          is_zlctoption_t = is_zlctoption_t
                                                                          is_zlctcond_t   = is_zlctcond_t ).
*>>>>>>>>>>> beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_put_cond_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_put_cond_data-valid_from = '00000000'.
                es_item_put_cond_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_put_cond_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_put_cond_data-valid_to = '00000000'.
                es_item_put_cond_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Instance Private Method ZFICLN_LCT_OUTBD_MAPPER->MAP_ITEM_PUT_COND_VALUE
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [<-()] EV_COND_VALUE                  TYPE        CHAR25
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_put_cond_value.

    DATA: lv_counter TYPE syindex.

*** Übernehmen des Wertes wie ursprünglich konzepiert
    ev_cond_value = is_zlctcond_t-zcondwert.

*** Prüfen ob die Option Andienungsrecht nur einmal vorliegt.
*** Dies ist der Fall wenn der Betrag nicht nur auf der Kopfebene übergeben wird.


*    LOOP AT mt_zlctcond_t ASSIGNING FIELD-SYMBOL(<ls_zlctcond>) WHERE zcondart  = mc_condart_pm009
*                                                                  AND zcondrth  = mc_zcondrth_0100
*                                                                  AND zoptguid  = is_zlctoption_t-zoptguid
*                                                                  AND zobjzuord = is_zlctoption_t-zobjzuord.
*      ADD 1 TO lv_counter.
*    ENDLOOP.
*
*
*    IF lv_counter gt 1.
*      CLEAR ev_cond_value.
*    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_QTY_REDUC
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_QTY_REDUC_DATA         TYPE        ZLCTE1CON_ITEM_QTY_REDUC
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_qty_reduc.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_qty_reduc segment                                  *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t    TYPE zlct_lnl_map_t.


    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_qty_reduc_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'QUANTITY_REDUC'.
              es_item_qty_reduc_data-quantity_reduc = CHA_QTY_REDUC_DATA( iv_zconres2  = is_zlctobject_t-zconres2 ).
            WHEN OTHERS.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_RETOB
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_RETOB_DATA             TYPE        ZLCTE1CON_ITEM_RETOB
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_retob.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_retob segment                                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t    TYPE zlct_lnl_map_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_retob_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN OTHERS.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_RV
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_RV_DATA                TYPE        ZLCTE1CON_ITEM_RV
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_rv.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_rv segment                                      *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lv_counter  TYPE syindex.

    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
    WITH KEY segment = iv_segment optart = is_zlctoption_t-zoptart.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_rv_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'CA_RVG_AMOUNT'.
              IF is_zlctoption_t-zoptart EQ mc_zoptart_rv01.
                LOOP AT it_zlctcond_t ASSIGNING FIELD-SYMBOL(<ls_zlctcond>) WHERE zcondart  = mc_condart_pm008
                                                                              AND zcondrth  = mc_zcondrth_0100
                                                                              AND zoptguid  = is_zlctoption_t-zoptguid
                                                                              AND zobjzuord = is_zlctoption_t-zobjzuord.
                  .
                  ADD 1 TO lv_counter.
                ENDLOOP.
                IF lv_counter EQ 1.
                  WRITE: <ls_zlctcond>-zcondwert TO es_item_rv_data-ca_rvg_amount CURRENCY <ls_zlctcond>-zcondcurr.
                ENDIF.
              ENDIF.

            WHEN OTHERS.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_RV_COND
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_PARENT                      TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_RV_COND_DATA           TYPE        ZLCTE1CON_RV_COND
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_rv_cond.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_rv_cond segment                                    *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t,
          lv_zahlrhythmus     TYPE zlctcondrth.

    IF is_zlctcond_t-zcondrth = '0100'.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ELSE.
      lv_zahlrhythmus = '0000'.
    ENDIF.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
      WITH KEY segment = iv_parent optart = is_zlctoption_t-zoptart
      condart = is_zlctcond_t-zcondart condrth = lv_zahlrhythmus.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.


    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_rv_cond_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'COND_TYPE'.

              es_item_rv_cond_data-cond_type = ls_zlct_opco_type_t-condart_lnl.

            WHEN 'PAYM_RHYTHM'.

              es_item_rv_cond_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_rv_cond_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).
*>>>>>>>>>>> beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_rv_cond_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_rv_cond_data-valid_from = '00000000'.
                es_item_rv_cond_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_rv_cond_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_rv_cond_data-valid_to = '00000000'.
                es_item_rv_cond_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_TERM
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_TERM                   TYPE        ZLCTE1CON_ITEM_TERM
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_term.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_val_var segment                                    *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: lc_zdatart_usdur  TYPE zlctdatart VALUE 'USDUR',
          lc_zdatart_gzidur TYPE zlctdatart VALUE 'GZIDUR'.

    FIELD-SYMBOLS: <ls_zlctdate_t> TYPE zlctdate_t.


    LOOP AT mt_lnl_map_t ASSIGNING FIELD-SYMBOL(<ls_map_t>) WHERE segment = iv_segment.

      CASE <ls_map_t>-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = <ls_map_t>
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_term
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE <ls_map_t>-element.
            WHEN 'TERM_DATE'.
              CASE is_zlctobject_t-zobjgrp3.
                WHEN 'T1'
                  OR 'T2'
                  OR 'T3'
                  OR 'T4'.
                  LOOP AT it_zlctdate_t ASSIGNING <ls_zlctdate_t> WHERE zobjzuord = is_zlctobject_t-zobjid
                                                                    AND zdatart   = lc_zdatart_usdur.
                    es_item_term-term_date = <ls_zlctdate_t>-zdatebis.
                  ENDLOOP.
                WHEN 'T5'.
                  LOOP AT it_zlctdate_t ASSIGNING <ls_zlctdate_t> WHERE zobjzuord = is_zlctobject_t-zobjid
                                                                    AND zdatart   = lc_zdatart_gzidur.
                    es_item_term-term_date = <ls_zlctdate_t>-zdatebis.
                  ENDLOOP.

              ENDCASE.
          ENDCASE.

      ENDCASE.

    ENDLOOP. "mt_lnl_map_t

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_TO
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_TO_DATA                TYPE        ZLCTE1CON_ITEM_TO
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_to.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_to segment                                         *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: lc_to01 TYPE c LENGTH 4  VALUE  'TO01',
          lc_to02 TYPE c LENGTH 4  VALUE  'TO02',
          lc_to03 TYPE c LENGTH 4  VALUE  'TO03',
          lc_to10 TYPE c LENGTH 4  VALUE  'TO10',
          lc_to11 TYPE c LENGTH 4  VALUE  'TO11',
          lc_to12 TYPE c LENGTH 4  VALUE  'TO12',
          lc_to_a TYPE c LENGTH 1  VALUE  'A',
          lc_to_b TYPE c LENGTH 1  VALUE  'B'.


    DATA: lv_counter TYPE syindex.

    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t,
          lv_zahlrhythmus     TYPE zlctcondrth,
          ls_zlctcond         TYPE zlctcond_t,
          ls_zlctcond_one     TYPE zlctcond_t,
          lv_item_count       TYPE          i.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
    WITH KEY segment = iv_segment optart = is_zlctoption_t-zoptart.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_to_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'CA_TO_PENALTY_DATE'.

              LOOP AT it_zlctcond_t INTO ls_zlctcond WHERE zoptguid = is_zlctoption_t-zoptguid.
                CLEAR lv_zahlrhythmus.
                IF ls_zlctcond-zcondrth = mc_zcondrth_0100.
                  lv_zahlrhythmus = ls_zlctcond-zcondrth.
                ELSE.
                  lv_zahlrhythmus = '0000'.
                ENDIF.

                CLEAR ls_zlct_opco_type_t.
                READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
                  WITH KEY segment = iv_segment optart = is_zlctoption_t-zoptart
                  condart = ls_zlctcond-zcondart condrth = lv_zahlrhythmus.

                IF sy-subrc = 0.
                  CLEAR ls_zlctcond_one.
                  ls_zlctcond_one = ls_zlctcond.
                  ADD 1 TO lv_item_count.
                ENDIF.

              ENDLOOP.

              IF lv_item_count = 1.
                es_item_to_data-ca_to_penalty_date = ls_zlctcond_one-zcondexdat.
              ENDIF.

              IF es_item_to_data-ca_to_penalty_date = '00000000'.
                es_item_to_data-ca_to_penalty_date = ''.
              ENDIF.

            WHEN 'CA_TO_PARTNER'.

              CASE is_zlctoption_t-zoptart.
                WHEN lc_to01 OR lc_to02 OR lc_to03.
                  es_item_to_data-ca_to_partner = lc_to_a.
                WHEN lc_to10 OR lc_to11 OR lc_to12.
                  es_item_to_data-ca_to_partner = lc_to_b.
              ENDCASE.
            WHEN 'CA_TO_PENALTY'.
*** Prüfen Optionsart auf TO01. -> Es kann nur als Einmalzahlung auftreten.
              IF is_zlctoption_t-zoptart EQ lc_to01.
*** Prüfen auf Vertragsstrafe
                LOOP AT it_zlctcond_t ASSIGNING FIELD-SYMBOL(<ls_zlctcond>) WHERE zcondart = mc_condart_pm005
                                                                             AND zcondrth  = mc_zcondrth_0100 " Prüfung der Einmalzahlung
                                                                             AND zoptguid  = is_zlctoption_t-zoptguid
                                                                             AND zobjzuord = is_zlctoption_t-zobjzuord.
                  ADD 1 TO lv_counter.
                ENDLOOP.
                IF lv_counter EQ 1.
                  WRITE: <ls_zlctcond>-zcondwert TO es_item_to_data-ca_to_penalty CURRENCY <ls_zlctcond>-zcondcurr.
                ENDIF.
              ENDIF.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_TO_COND
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IV_PARENT                      TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_TO_COND_DATA           TYPE        ZLCTE1CON_TO_COND
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_to_cond.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_to_cond segment                                    *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA: ls_map_t            TYPE zlct_lnl_map_t,
          ls_zlct_opco_type_t TYPE zlct_opco_type_t,
          lv_zahlrhythmus     TYPE zlctcondrth.

    IF is_zlctcond_t-zcondrth = '0100'.
      lv_zahlrhythmus = is_zlctcond_t-zcondrth.
    ELSE.
      lv_zahlrhythmus = '0000'.
    ENDIF.

    READ TABLE mt_zlct_opco_type_t INTO ls_zlct_opco_type_t
      WITH KEY segment = iv_parent optart = is_zlctoption_t-zoptart
      condart = is_zlctcond_t-zcondart condrth = lv_zahlrhythmus.

    IF sy-subrc <> 0.
      EXIT.
    ENDIF.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctoption_t   = is_zlctoption_t
              is_zlctcond_t     = is_zlctcond_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_to_cond_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.

            WHEN 'COND_TYPE'.

              es_item_to_cond_data-cond_type = ls_zlct_opco_type_t-condart_lnl.

            WHEN 'PAYM_RHYTHM'.

              es_item_to_cond_data-paym_rhythm = map_zcondrth( is_zlctcond_t-zcondrth ).

            WHEN 'PAYM_FORM'.

              es_item_to_cond_data-paym_form = map_zcondzalw( is_zlctcond_t-zcondzalw ).

            WHEN 'COND_VALUE'.

*** Ursprüngliche ungeprüfte Datenübernahme
              es_item_to_cond_data-cond_value = is_zlctcond_t-zcondwert.

*>>>>>>>>>>> beg ins Duc 20180921
            WHEN 'VALID_FROM'.
              es_item_to_cond_data-valid_from = get_valid_from( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_to_cond_data-valid_from = '00000000'.
                es_item_to_cond_data-valid_from = ''.
              ENDIF.
*** end ins JB 20181030
            WHEN 'VALID_TO'.
              es_item_to_cond_data-valid_to = get_valid_to( is_zlctcond_t ).
*** beg ins JB 20181030
              IF ls_map_t-type_d = abap_true AND es_item_to_cond_data-valid_to = '00000000'.
                es_item_to_cond_data-valid_to = ''.
              ENDIF.
*** end ins JB 20181030
*>>>>>>>>>>> end ins Duc 20180921

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ITEM_VAL_VAR
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_ITEM_VAL_VAR_DATA           TYPE        ZLCTE1CON_ITEM_VAL_VAR
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_item_val_var.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps item_val_var segment                                    *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    DATA: ls_map_t    TYPE zlct_lnl_map_t.

    LOOP AT mt_lnl_map_t INTO ls_map_t WHERE segment = iv_segment.

      CASE ls_map_t-element_type.

        WHEN 0 OR 1 OR 2. "Konstante, Struktur, Tabelle

          CALL METHOD zficln_lct_outbd_mapper=>map_lnl_general
            EXPORTING
              iv_segment        = iv_segment
              is_map_t          = ls_map_t
              is_zlctobject_t   = is_zlctobject_t
              is_zlctheader_t   = is_zlctheader_t
              is_zlctcontract_t = is_zlctcontract_t
              is_zlctsale_t     = is_zlctsale_t
              it_zlctstatus_t   = it_zlctstatus_t
              it_zlctdate_t     = it_zlctdate_t
              it_zlctoption_t   = it_zlctoption_t
              it_zlctpartrel_t  = it_zlctpartrel_t
              it_zlctobject_t   = it_zlctobject_t
              it_zlctaro_t      = it_zlctaro_t
              it_zlctcoksst_t   = it_zlctcoksst_t
              it_zlctcond_t     = it_zlctcond_t
              it_zlctimage_t    = it_zlctimage_t
              it_zlctvalue_t    = it_zlctvalue_t
            IMPORTING
              es_data           = es_item_val_var_data
            EXCEPTIONS
              mapping_error     = 1
              OTHERS            = 2.
          IF sy-subrc <> 0.
            CONTINUE.
          ENDIF.

        WHEN 3. "freies Coding

          CASE ls_map_t-element.
            WHEN 'VAL_VAR_USER'.
              IF  is_zlctcontract_t-zconres1 = 'X'.
                es_item_val_var_data-val_var_user = 'A'.
              ENDIF.

          ENDCASE.

      ENDCASE.

    ENDLOOP.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_LNL_GENERAL
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_SEGMENT                     TYPE        ZLCT_MAP_SEGMENT
* | [--->] IS_MAP_T                       TYPE        ZLCT_LNL_MAP_T
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T(optional)
* | [--->] IS_ZLCTOPTION_T                TYPE        ZLCTOPTION_T(optional)
* | [--->] IS_ZLCTCOND_T                  TYPE        ZLCTCOND_T(optional)
* | [--->] IS_ZLCTHEADER_T                TYPE        ZLCTHEADER_T
* | [--->] IS_ZLCTCONTRACT_T              TYPE        ZLCTCONTRACT_T
* | [--->] IS_ZLCTSALE_T                  TYPE        ZLCTSALE_T
* | [--->] IT_ZLCTSTATUS_T                TYPE        ZLCTSTATUS_TT
* | [--->] IT_ZLCTDATE_T                  TYPE        ZLCTDATE_TT
* | [--->] IT_ZLCTOPTION_T                TYPE        ZLCTOPTION_TT
* | [--->] IT_ZLCTPARTREL_T               TYPE        ZLCTPARTREL_TT
* | [--->] IT_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_TT
* | [--->] IT_ZLCTARO_T                   TYPE        ZLCTARO_TT
* | [--->] IT_ZLCTCOKSST_T                TYPE        ZLCTCOKSST_TT
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [--->] IT_ZLCTIMAGE_T                 TYPE        ZLCTIMAGE_TT
* | [--->] IT_ZLCTVALUE_T                 TYPE        ZLCTVALUE_TT
* | [<---] ES_DATA                        TYPE        ANY
* | [EXC!] MAPPING_ERROR
* | [EXC!] MAPPING_TAB_MISSING
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_lnl_general.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps all fields according to cust table zlct_lnl_map_t       *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    CONSTANTS: lc_objzuord TYPE c LENGTH 9 VALUE 'ZOBJZUORD'.


    DATA: lv_lct_field TYPE name_feld VALUE 'lct_field',
          lv_lnl_field TYPE name_feld VALUE 'lnl_field'.


    DATA: lv_string TYPE string.

    FIELD-SYMBOLS: <lt_tab>          TYPE ANY TABLE,
                   <ls_struc>        TYPE any,
                   <lv_source_field> TYPE any,
                   <lv_target_field> TYPE any.

    ASSIGN COMPONENT is_map_t-element OF STRUCTURE es_data TO <lv_target_field>.
    IF sy-subrc <> 0.
      RAISE mapping_error.
    ENDIF.

    CASE is_map_t-element_type.

      WHEN 0. "Konstante

        <lv_target_field> = is_map_t-map_konstante.

      WHEN 1. "Struktur

        CONCATENATE 'IS_' is_map_t-map_struc_tab INTO lv_string.
        ASSIGN (lv_string) TO <ls_struc>.
        IF sy-subrc <> 0.
          RAISE mapping_error.
        ENDIF.

        ASSIGN COMPONENT is_map_t-map_field OF STRUCTURE <ls_struc> TO <lv_source_field>.
        IF sy-subrc <> 0.
          RAISE mapping_error.
        ENDIF.

        <lv_target_field> = <lv_source_field>.

      WHEN 2. "Tabelle
        CONCATENATE 'IT_' is_map_t-map_struc_tab INTO lv_string.
        ASSIGN (lv_string) TO <lt_tab>.

        IF sy-subrc <> 0.
          RAISE mapping_error.
        ENDIF.

        IF iv_segment CS 'ITEM' AND
          ( is_map_t-map_struc_tab CS 'COKSST' OR
            is_map_t-map_struc_tab CS 'COND' OR
            is_map_t-map_struc_tab CS 'OPTION' OR
            is_map_t-map_struc_tab CS 'DATE' ).

          IF is_map_t-map_key_4 IS NOT INITIAL AND is_map_t-map_value_4 IS NOT INITIAL.

            READ TABLE <lt_tab> ASSIGNING <ls_struc>
            WITH KEY (lc_objzuord)        = is_zlctobject_t-zobjid
                     (is_map_t-map_key_1) = is_map_t-map_value_1
                     (is_map_t-map_key_2) = is_map_t-map_value_2
                     (is_map_t-map_key_3) = is_map_t-map_value_3
                     (is_map_t-map_key_4) = is_map_t-map_value_4.

          ELSEIF is_map_t-map_key_3 IS NOT INITIAL AND is_map_t-map_value_3 IS NOT INITIAL.

            READ TABLE <lt_tab> ASSIGNING <ls_struc>
            WITH KEY  (lc_objzuord)        = is_zlctobject_t-zobjid
                      (is_map_t-map_key_1) = is_map_t-map_value_1
                      (is_map_t-map_key_2) = is_map_t-map_value_2
                      (is_map_t-map_key_3) = is_map_t-map_value_3.

          ELSEIF is_map_t-map_key_2 IS NOT INITIAL AND is_map_t-map_value_2 IS NOT INITIAL.

            READ TABLE <lt_tab> ASSIGNING <ls_struc>
            WITH KEY  (lc_objzuord)        = is_zlctobject_t-zobjid
                      (is_map_t-map_key_1) = is_map_t-map_value_1
                      (is_map_t-map_key_2) = is_map_t-map_value_2.

          ELSEIF is_map_t-map_key_1 IS NOT INITIAL AND is_map_t-map_value_1 IS NOT INITIAL.

            READ TABLE <lt_tab> ASSIGNING <ls_struc>
            WITH KEY  (lc_objzuord)        = is_zlctobject_t-zobjid
                      (is_map_t-map_key_1) = is_map_t-map_value_1.

          ELSE.

            RAISE mapping_error.

          ENDIF.

        ELSE.

          IF is_map_t-map_key_4 IS NOT INITIAL AND is_map_t-map_value_4 IS NOT INITIAL.

            READ TABLE <lt_tab> ASSIGNING <ls_struc>
            WITH KEY (is_map_t-map_key_1) = is_map_t-map_value_1
                     (is_map_t-map_key_2) = is_map_t-map_value_2
                     (is_map_t-map_key_3) = is_map_t-map_value_3
                     (is_map_t-map_key_4) = is_map_t-map_value_4.

          ELSEIF is_map_t-map_key_3 IS NOT INITIAL AND is_map_t-map_value_3 IS NOT INITIAL.

            READ TABLE <lt_tab> ASSIGNING <ls_struc>
            WITH KEY  (is_map_t-map_key_1) = is_map_t-map_value_1
                      (is_map_t-map_key_2) = is_map_t-map_value_2
                      (is_map_t-map_key_3) = is_map_t-map_value_3.

          ELSEIF is_map_t-map_key_2 IS NOT INITIAL AND is_map_t-map_value_2 IS NOT INITIAL.

            READ TABLE <lt_tab> ASSIGNING <ls_struc>
            WITH KEY  (is_map_t-map_key_1) = is_map_t-map_value_1
                      (is_map_t-map_key_2) = is_map_t-map_value_2.

          ELSEIF is_map_t-map_key_1 IS NOT INITIAL AND is_map_t-map_value_1 IS NOT INITIAL.

            READ TABLE <lt_tab> ASSIGNING <ls_struc>
            WITH KEY (is_map_t-map_key_1) = is_map_t-map_value_1.

          ELSE.

            RAISE mapping_error.

          ENDIF.

        ENDIF.

        IF <ls_struc> IS NOT ASSIGNED.
          RAISE mapping_error.
        ENDIF.

        ASSIGN COMPONENT is_map_t-map_field OF STRUCTURE <ls_struc> TO <lv_source_field>.
        IF sy-subrc <> 0.
          RAISE mapping_error.
        ENDIF.

        <lv_target_field> = <lv_source_field>.
    ENDCASE.

**** beg ins JB 20180918
    IF <lv_target_field> IS ASSIGNED
       AND is_map_t-mapping_tab IS NOT INITIAL.

      CLEAR: lv_string.
      UNASSIGN: <ls_struc>.

      CONCATENATE 'LS_' is_map_t-mapping_tab INTO lv_string.
      ASSIGN (lv_string) TO <ls_struc>.
      IF sy-subrc <> 0.
        RAISE mapping_tab_missing.
      ENDIF.

      SELECT SINGLE * FROM  (is_map_t-mapping_tab) INTO  <ls_struc>   WHERE lct_field = <lv_target_field>.

      IF sy-subrc EQ 0.
        ASSIGN COMPONENT lv_lnl_field OF STRUCTURE <ls_struc> TO <lv_source_field>.
        IF sy-subrc = 0.
          CLEAR: <lv_target_field>.
          <lv_target_field> = <lv_source_field>.
        ENDIF.
      ENDIF.
    ENDIF.
**** end ins JB 20180918

    IF <lv_target_field> IS ASSIGNED.
      IF is_map_t-type_d = abap_true AND <lv_target_field> = '00000000'.
        <lv_target_field> = ''.
      ENDIF.
    ENDIF.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Private Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_RV_AMOUNT_EXPECTED
* +-------------------------------------------------------------------------------------------------+
* | [--->] IS_ZLCTOBJECT_T                TYPE        ZLCTOBJECT_T
* | [--->] IT_ZLCTCOND_T                  TYPE        ZLCTCOND_TT
* | [<-()] EV_RV_AMOUNT_EXPECTED          TYPE        CHAR025
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_rv_amount_expected.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : Juri Böhme                                          *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :  01523 3955015                                       *
*&H E-Mail : Juri@Boehme-Beratung.de                             *
*&H Date of creation: 2018-09-13                                 *
*&D***************************************************************
*&D Description :                                                *
*&D get value from zlctcond_t for amount_expected                *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************

    LOOP AT it_zlctcond_t ASSIGNING FIELD-SYMBOL(<ls_zlctcond>) WHERE zcondrth  = mc_zcondrth_0100
                                                                  AND zobjzuord = is_zlctobject_t-zobjid.
    ENDLOOP.


    IF sy-subrc = 0.
      WRITE: <ls_zlctcond>-zcondwert CURRENCY <ls_zlctcond>-zcondcurr TO ev_rv_amount_expected.
    ELSE.
    ENDIF.

  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ZCONDRTH
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_ZCONDRTH                    TYPE        ZLCTCONDRTH
* | [<-()] RV_ZCONDRTH                    TYPE        ZLCT_LNL_CONDRTH
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_zcondrth.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps pay rhythm                                              *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA ls_zlct_pay_ryth_t      TYPE zlct_pay_ryth_t.

    READ TABLE mt_zlct_pay_ryth_t INTO ls_zlct_pay_ryth_t WITH KEY zcondrth = iv_zcondrth.

    rv_zcondrth = ls_zlct_pay_ryth_t-zlnl_condrth.
  ENDMETHOD.


* <SIGNATURE>---------------------------------------------------------------------------------------+
* | Static Public Method ZFICLN_LCT_OUTBD_MAPPER=>MAP_ZCONDZALW
* +-------------------------------------------------------------------------------------------------+
* | [--->] IV_ZCONDZALW                   TYPE        ZLCTCONDZALW
* | [<-()] RV_ZCONDZALW                   TYPE        ZLCT_LNLCONDZALW
* +--------------------------------------------------------------------------------------</SIGNATURE>
  METHOD map_zcondzalw.
*&H***************************************************************
*&H SAP-Module : FI-LCT                                          *
*&H Author : S.Kühnel                                            *
*&H Company/Department: Sopra Steria GmbH                        *
*&H Phone :                                                      *
*&H E-Mail : sascha.kuehnel@soprasteria.com                      *
*&H Date of creation: 2018-03-01                                 *
*&D***************************************************************
*&D Description :                                                *
*&D maps pay type                                                *
*&C***************************************************************
*&C Change history :                                             *
*&C Developer | Code/Date | Description                          *
*&C -------------------------------------------------------------*
*&C <Name> | <code>.<Date>| <Description>                        *
*&C***************************************************************
    DATA ls_zlct_pay_type_t      TYPE zlct_pay_type_t.

    READ TABLE mt_zlct_pay_type_t INTO ls_zlct_pay_type_t WITH KEY zcondzalw = iv_zcondzalw.

    rv_zcondzalw = ls_zlct_pay_type_t-zlnl_condzalw.
  ENDMETHOD.
ENDCLASS.