I_InsurClmFNOLDamagedObjectTP

@AccessControl.authorizationCheck: #CHECK
@AccessControl.personalData.blocking: #NOT_REQUIRED
@VDM.viewType: #TRANSACTIONAL
@ObjectModel.usageType: {
    dataClass: #MIXED,
    sizeCategory: #L,
    serviceQuality: #X
}

@EndUserText.label: 'Damaged Object FNOL - TP'
define view entity I_InsurClmFNOLDamagedObjectTP
  as select from I_InsurClmDmgdObjChange 
  association        to parent I_InsurClmFNOLTP      as _Claim                on  $projection.InsuranceClaim = _Claim.InsuranceClaim
                                                                              and $projection.InsurClaimUUID = _Claim.InsurClaimUUID
  //                                                                         and $projection.InsurClaimUUID = _Claim.InsurClaimUUID

  composition [0..*] of I_InsurClmFNOLFactsDmgdVehTP as _SFCDMG
  composition [0..*] of I_InsurClmFNOLDiagnosisTP    as _diagnosis
  composition [1..*] of I_InsurClmFNOLClmntTP        as _Clmnt
  composition [1..*] of I_InsurClmFNOLSrvcPrvdrTP    as _SrvsPrvdr
  composition [1..*] of I_InsurClmFNOLInjuredSFCTP   as _injusfc
  composition [1..*] of I_InsurClmFNOLVehDriverTP    as _driver               
  association [0..1] to I_Address                    as _InspectionLocAddress on  $projection.InsurClmDamagedObjectLocation = _InspectionLocAddress.AddressID
  association [0..*] to I_InsurClmDmgdCatTxt         as _DamObjCatText        on  $projection.InsurClmDamageCategory = _DamObjCatText.InsurClmDamageCategory
  association [0..*] to I_InsurClmFNOLDmgdObjCatVH   as _DamagedCategory      on  $projection.InsurClmDamageCategory = _DamagedCategory.InsurClmDamageCategory
                                                                              and $projection.InsurClmType           = _DamagedCategory.InsurClmType
                                                                              and $projection.InsurClmTypeGeneration = _DamagedCategory.InsurClmTypeGeneration
                                                                              and $projection.InsurClmTypeVers       = _DamagedCategory.InsurClmTypeVers

  //  association [1..1] to ZCM_DAMAGEDCATEGORY            as _dmgcat               on  $projection.InsurClmDamageCategory = _dmgcat.DamagedCategory

  //  association [1..1] to ZCM_I_InsurClmDamageSeverityVH as _DamgSevVH            on  $projection.InsurClmDamageCategory = _DamgSevVH.InsurClmDamageCategory

  //                                                                                and $projection.InsurClmDamageSeverity = _DamgSevVH.InsurClmDamageSeverity


  //  association [1..1] to C_InsurClmBPQuickView        as _BPDetails            on  $projection.BusinessPartner = _BPDetails.BusinessPartner


  association [0..1] to I_InsurClmDmgdVehMake        as _Make                 on  $projection.InsurClmInsuredObjectCategory = _Make.InsurClmInsuredObjectCategory
                                                                              and $projection.InsurClmInsuredObjectMake     = _Make.InsurClmInsuredObjectMake
  association [0..1] to I_InsurClmDmgdVehModel       as _Model                on  $projection.InsurClmInsuredObjectCategory = _Model.InsurClmInsuredObjectCategory
                                                                              and $projection.InsurClmInsuredObjectMake     = _Model.InsurClmInsuredObjectMake
                                                                              and $projection.InsurClmInsuredObjectModel    = _Model.InsurClmInsuredObjectModel
{
  key         InsuranceClaim,
  key         I_InsurClmDmgdObjChange.InsurClmDamagedObject,
  key         cast ( hextobin('00000000000000000000000000000000') as sysuuid_x16 preserving type ) as InsurClaimUUID,
  key         InsurClmDmgdObjUUID,
  
              //cast ( hextobin('00000000000000000000000000000000') as sysuuid_x16 preserving type ) as ClaimDraftUUID,

              @ObjectModel.editableFieldFor: 'InsuranceClaim'
              InsuranceClaim                                                                       as InsuranceClaimForEdit,
              ChangedOnDateTime,
              InsurClmInsuredObject,
              InsurClmDamageCategory,
              InsurClmDamageCategory                                                               as InsurClmDmgdCategoryForLineItm,
              cast('' as abap.char( 4 ))                                                           as InsurClmType,
              cast('' as abap.numc(5))                                                             as InsurClmTypeGeneration,
              cast('' as abap.numc( 5 ))                                                           as InsurClmTypeVers,


              InsurClmDamageSeverity,
              //             _DmgSevTxt.InsurClmDamageSeverityName                                                as InsurClmDamageSeverityName,


              InsurClmProbableLossAmount,
              InsurClmInsuredObjectCategory,
              InsurClmREStreetName,
              InsurClmInjuredPersnStreetName,
              InsurClmRECityName,
              InsurClmInjuredPersnCityName,
              InsurClmInjuredPersnAddrTxt,
              //             InsurClmPrprtyConstructionYear,

              //              InsurClmInjuredPersnAddrTxt,

              //InsurClmInjuredPersnAddrTxt,

              InsurClmDmgdObjHasLblty,
              // concat('INJU', BusinessPartner)                                                      as InsurFactsSubobject,

              cast(case InsurClmDamageCategory
              when 'AU'  then ''
              else 'X'
              end as boolean_flg preserving type)                                                  as InsurClmDamObjCatIsVeh,

              cast( case InsurClmDamageCategory
               when 'BI' then ''
               else 'X'
               end as boolean_flg preserving type)                                                 as InsurClmDamObjCatIsInjured,

              cast( '' as abap.char(1) )                                                           as InsurClmDmgdObjActionIsChkd,
              cast( '' as abap.char(1) )                                                           as InsurClmFNOLActionIsChkd,
              InsurClmInsuredObjectType,
              InsurClmProbableLossAmountCrcy,

              // InsurClmDmgdObjLbltyFlag,

              InsurClmInspectionDate,
              InsurClmDamagedObjectLocation,
              InsurClmRelationship,
              InsurClmRelationshipText,

              BusinessPartner,
              InsurClmFatalInjury,
              // InsurClmInjuredPersnAddr,

              InsurClmImpairmentPercent,
              InsurClmIntraCompany,
              InsurClmParticipantType,
              //      _PartTxt.InsurClmParticipantTypeName                   as InsurClmParticipantTypeName,

              InsurClmInjuryInsurCompanyName,
              InsurClmInjuredPersnHouseNmbr,
              // InsurClmInjuredPersnStreet,

              // InsurClmInjuredPersnCity,

              InsurClmInjuredPersnCountry,
              InsurClmNoInsurance,
              InsurClmConstructionYear,
              InsurClmVehicleMileage,
              InsurClmVehicleMileageUnit,
              InsurClmVehicleValueAmount,
              InsurClmVehObjectValCurrency,
              InsurClmVehicleIdentification,
              InsurClmInsuredObjectMake,
              InsurClmInsuredObjectModel,
              InsurClmVehiclePlateNumber,
              _MakeTxt.InsurClmVehicleMfrTxt                                                       as InsurClmVehicleMfrTxt,
              case InsurClmDamageCategory
              when 'AU' then  concat_with_space(_MakeTxt.InsurClmVehicleMfrTxt, InsurClmInsuredObjectModel,1)
              when 'BI' then I_InsurClmDmgdObjChange.BusinessPartnerName
              when 'RE' then InsurClmBuildingTypeDesc
              else ''
              end                                                                                  as InsurClmDmgdObjCatTitle,


              case InsurClmDamageCategory
              when 'AU' then InsurClmVehiclePlateNumber
              when 'BI'  then BusinessPartner
              //              when 'RE'  then InsurClmPrprtyConstructionYear

              else ''
              end                                                                                  as InsurClmDmgdObjCatDesc,

              _Make.InsurClmVehicleMakeTxt                                                         as InsurClmVehicleMakeTxt,
              _Model.InsurClmVehicleModelTxt                                                       as InsurClmVehicleModelTxt,

              BirthDate,
              I_InsurClmDmgdObjChange.BusinessPartnerName,
              //              cast( '' as abap.char(10))                                                           as CreateVehicle,

              //              cast( '' as abap.char(20))                                                           as CopyFrmInsVehicle,

              //              cast( '' as abap.char(20))                                                           as AnotherVehicle,

              //              cast( '' as abap.char(1) )                                                           as InsurClmDmgObjActionHdl,


              _DamObjCatText[1: Language = $session.system_language ].Name                         as InsurClmDamageCategoryTxt,
              _InspectionLocAddress.HouseNumber,
              _InspectionLocAddress.StreetName,
              _InspectionLocAddress.CityName,
              _InspectionLocAddress.Region,
              _InspectionLocAddress.PostalCode,
              _InspectionLocAddress.Country,
              //      _dmgcat.DamagedCategory,



              InsurClmBuildingAddress,
              InsurClmBuildingTypeDesc,
              InsurClmTotalLoss,
              InsurClmPreferredSupplier,
              InsurClmScopeOfLoss,
              InsurClmPrimaryMaterial,
              //            InsurClmPrprtyConstruction,

              //             InsurClmDmgdPrptyType,

              // InsurClmDmgdPrptyTypeName,

              InsurClmDmgdSubObject,
              InsurClmClaimantID,
              InsurClmClaimantName,
              //InsurClmRECity,

              InsurClmRECountry,
              InsurClmREHouseNmbr,
              InsurClmRERegion,
              //InsurClmREStreet,

              InsurClmREPostalCode,
              //             _DamVehDtls,

              _DamObjCatText,
              _InspectionLocAddress,

              //      _dmgcat,

              //            _DmgProperty,

              _Subclaim,
              _Claim,
              _SFCDMG,
              _diagnosis,
              _SrvsPrvdr,
              _injusfc,
              _driver,
              _Clmnt,
              //           _DiagnosisData

              //      _DamgSevVH,

              //      _Propertytype,

              //        _BPDetails

              _DamagedCategory,
              _Make,
              _Model

}