I_PurContrVersionHistory

@AbapCatalog.sqlViewName: 'ICONTRVERSHIST'
@AbapCatalog.compiler.compareFilter: true
@AbapCatalog.preserveKey: true
@AccessControl.authorizationCheck: #NOT_REQUIRED
@EndUserText.label: 'Purchase Contract Version History'
@VDM.lifecycle.contract.type: #SAP_INTERNAL_API

@ObjectModel:{
  usageType.serviceQuality: #B,
  usageType.sizeCategory: #L,
  usageType.dataClass: #TRANSACTIONAL
}
@VDM.viewType: #BASIC

@AccessControl.personalData.blocking: #REQUIRED
@ClientHandling.algorithm: #SESSION_VARIABLE

define view I_PurContrVersionHistory 

  as select from erev as VersionHistory
    inner join R_PurchaseContract as Document           on    VersionHistory.edokn                                                                    =  Document.ActivePurchasingDocument
                                                        and   VersionHistory.revno                                                                    =  Document.PurchasingDocumentVersion
                                                        and ( Document.PurgDocChangeRequestStatus                                                     = '1' or  Document.PurgDocChangeRequestStatus = '2' or
                                                           Document.PurgDocChangeRequestStatus                                                        = '4' or Document.PurgDocChangeRequestStatus = '' )
                                                   

  association [1..1] to I_User                          as _UserDetails                 on $projection.CreatedByUser                                  = _UserDetails.UserID
  association [1..1] to I_PurContrVersionType           as _VersionType                 on $projection.PurgDocChangeRequestStatus                     = _VersionType.PurgDocChangeRequestStatus
  association [0..1] to I_PaymentTermsText              as _PaymentTermsText            on  $projection.PaymentTerms                                  = _PaymentTermsText.PaymentTerms
                                                                                        and _PaymentTermsText.Language                                = $session.system_language
  association [0..1] to I_PurchasingGroup               as _PurchasingGroup             on  _PurchasingGroup.PurchasingGroup                          = $projection.PurchasingGroup    
  association [1..1] to I_CurrencyText                  as _DocumentCurrencyText        on  _DocumentCurrencyText.Language                            = $session.system_language
                                                                                        and _DocumentCurrencyText.Currency                            = $projection.DocumentCurrency  
  association [0..1] to I_IncotermsClassificationText   as _IncotermsClassificationText on  _IncotermsClassificationText.IncotermsClassification      = $projection.IncotermsClassification
                                                                                        and _IncotermsClassificationText.IncotermsClassificationName  = $session.system_language
  association [0..1] to I_PurchasingOrganization        as _PurchasingOrganization      on  _PurchasingOrganization.PurchasingOrganization            = $projection.PurchasingOrganization    
  association [0..1] to I_IncotermsClassification       as _IncotermsClassification     on  _IncotermsClassification.IncotermsClassification          = $projection.IncotermsClassification     
  association [0..1] to I_Supplier                      as _InvoicingParty              on  $projection.InvoicingParty                                = _InvoicingParty.Supplier                                                                                 
  
                                                                                   
{
  key Document.PurchaseContract,
      Document.PurchaseContractType,
      Document.PurchasingDocumentCategory,
      Document.Supplier,
      Document.CompanyCode,
      Document.PurchasingOrganization,
      Document.PurchasingGroup,
      @Semantics.currencyCode:true
      Document.DocumentCurrency,
      Document.IncotermsClassification,
      Document.IncotermsTransferLocation,
      Document.PaymentTerms,
      Document.CashDiscount1Days,
      Document.CashDiscount2Days,
      Document.NetPaymentDays,
      Document.CashDiscount1Percent,
      Document.CashDiscount2Percent,
      Document.PurchaseContractTargetAmount,
      Document.ValidityStartDate,
      Document.ValidityEndDate,
      Document.ReleaseCode,
      Document.PurchasingDocumentDeletionCode,
      case Document.ManualSupplierAddressID
        when '' then  _Supplier.AddressID
        else Document.ManualSupplierAddressID
      end                          as SupplierAddressID,
      Document.SupplyingSupplier,
      Document.InvoicingParty,
      cast( Document.ExchangeRate as fis_exchange_rate preserving type )                             as ExchangeRate,
      //Document.ExchangeRate ,

      Document.ExchangeRateIsFixed,
      Document.QuotationSubmissionDate,
      Document.SupplierQuotation,
      Document.ReleaseIsNotCompleted,
      Document.CorrespncExternalReference,
      Document.CorrespncInternalReference,
      Document.SupplierRespSalesPersonName,
      Document.SupplierPhoneNumber,
      Document.IncotermsVersion,
      Document.IncotermsLocation1,
      Document.IncotermsLocation2,
      Document.PurchasingDocumentName,
      Document.LastChangeDateTime,
      Document.PurchasingProcessingStatus,
      Document.IsEndOfPurposeBlocked,
      Document.ActivePurchasingDocument,      
      Document.PurgDocChangeRequestStatus,
      Document.PurchasingDocumentVersion,
      Document.PurgDocIsChgVers,
      Document.PurgAggrgdProdCmplncSuplrSts,
     
      VersionHistory.ernam as CreatedByUser,
      VersionHistory.erdat as CreationDate,
      VersionHistory.eruhr as CreationTime,
      VersionHistory.rscod as PurchasingDocVersionReasonCode,
      VersionHistory.strev as PurchasingDocVersionStatus,
      
      /** Fields for approval details starts...**/
      @ObjectModel.readOnly: true
      cast ('' as mm_oa_approver_id) as AccWorkflowApprover,

      @ObjectModel.readOnly: true
      cast ('' as mm_oa_approver_name) as AccWorkflowApproverFirstName,

      @ObjectModel.readOnly: true
      cast( '' as val_text ) as ApprovalStatusName,

      @ObjectModel.readOnly: true
      cast( '' as sww_aagent ) as ApproverUser,
      /** Fields for approval details ends...**/

      cast('' as boolean ) as PurgContractIsInPreparation,

      @ObjectModel.readOnly: true
      cast('' as mmpur_doc_status) as PurchasingDocumentStatus,  //VDM

      
      IncotermsSupChnLoc1AddlUUID,
      IncotermsSupChnLoc2AddlUUID,
      IncotermsSupChnDvtgLocAddlUUID,
      PurchasingDocumentOrigin,
      _CreatedByUser.UserDescription as CreatedByUserName,
      PurgHasCatalogRelevantItems,      
      

      //_PurchasingDocumentTypeText,

      _PaymentTermsText,
      //_PurContrStatusText,

      _UserDetails,
      _VersionType,
      _PurchasingGroup,
      Document._DocumentCurrency,
      _DocumentCurrencyText,
      _IncotermsClassificationText,
      _IncotermsClassification,
      _PurchasingOrganization,
      _InvoicingParty

}
where (  PurgDocChangeRequestStatus = '1' or 
         PurgDocChangeRequestStatus = '2' or
         PurgDocChangeRequestStatus = '4' or 
         PurgDocChangeRequestStatus = '' ) and
         VersionHistory.bstyp = 'K';
/*+[internal] {
"BASEINFO":
{
"FROM":
[
"I_SUPPLIER",
"I_USER",
"R_PURCHASECONTRACT",
"EREV"
],
"ASSOCIATED":
[
"I_CURRENCY",
"I_CURRENCYTEXT",
"I_INCOTERMSCLASSIFICATION",
"I_INCOTERMSCLASSIFICATIONTEXT",
"I_PAYMENTTERMSTEXT",
"I_PURCHASINGGROUP",
"I_PURCHASINGORGANIZATION",
"I_PURCONTRVERSIONTYPE",
"I_SUPPLIER",
"I_USER"
],
"BASE":
[
"R_PURCHASECONTRACT"
],
"ANNO_REF":
[],
"SCALAR_FUNCTION":
[],
"VERSION":0,
"ANNOREF_EVALUATION_ERROR":""
}
}*/