AI Powered Invoice Management with SAP RAP and ABAP on Cloud - Part 1

[sabarna17]

All Blogs in this Series -

AI Powered Invoice Management with SAP RAP and ABAP on Cloud

AI Powered Invoice Management with SAP RAP and ABAP on Cloud – Part 1

AI Powered Invoice Management with SAP RAP and ABAP on Cloud – Part 2

AI Powered Invoice Management with SAP RAP and ABAP on Cloud – Part 3

 

ABAP on Cloud -

In this we will try to achieve a RAP enabled UI framework to upload Vendor Invoice and further Managements.

You must enable draft functionality and enable the MIME type for attachments in your RAP application.

Create Invoice Table and a Draft Table -

@EndUserText.label : 'Invoice Table' 

@AbapCatalog.enhancement.category : #EXTENSIBLE_ANY 

@AbapCatalog.tableCategory : #TRANSPARENT 

@AbapCatalog.deliveryClass : #A 

@AbapCatalog.dataMaintenance : #ALLOWED 

define table zinvtable_sab { 

 key client : abap.clnt not null; 

 key invoice : zinvoice_sab not null; 

 comments : abap.char(30); 

 refpurchaseorder : ebeln; 

 status : abap.char(1); 

 attachment : zattachment; 

 mimetype : zmimetype; 

 filename : zfilename; 

 receivercontact : abap.char(80); 

 grossamount : abap.char(80); 

 invoicedate : abap.char(15); 

 local_created_by : abp_creation_user; 

 local_created_at : abp_creation_tstmpl; 

 local_last_changed_by : abp_locinst_lastchange_user; 

 local_last_changed_at : abp_locinst_lastchange_tstmpl; 

 last_changed_at : abp_lastchange_tstmpl; 

}



@EndUserText.label : 'Draft table for entity ZI_INVTABLE_SAB' 

@AbapCatalog.enhancement.category : #EXTENSIBLE_ANY 

@AbapCatalog.tableCategory : #TRANSPARENT 

@AbapCatalog.deliveryClass : #A 

@AbapCatalog.dataMaintenance : #RESTRICTED 

define table zinvtabsab_draft { 

 key mandt : mandt not null; 

 key invoice : ebeln not null; 

 comments : abap.char(30); 

 refpurchaseorder : ebeln; 

 status : abap.char(1); 

 receivercontact : abap.char(80); 

 grossamount : abap.char(80); 

 invoicedate : abap.char(15); 

 attachment : zattachment; 

 mimetype : zmimetype; 

 filename : zfilename; 

 localcreatedby : abp_creation_user; 

 localcreatedat : abp_creation_tstmpl; 

 locallastchangedby : abp_locinst_lastchange_user; 

 locallastchangedat : abp_locinst_lastchange_tstmpl; 

 lastchangedat : abp_lastchange_tstmpl; 

 "%admin" : include sych_bdl_draft_admin_inc; 

}

 

Now Create Invoice Item Tables -

@EndUserText.label : 'Item Invoice Details' 

@AbapCatalog.enhancement.category : #EXTENSIBLE_ANY 

@AbapCatalog.tableCategory : #TRANSPARENT 

@AbapCatalog.deliveryClass : #A 

@AbapCatalog.dataMaintenance : #ALLOWED 

define table zinvitem_sab { 

 key client : abap.clnt not null; 

 key invoice : zinvoice_sab not null; 

 key material : abap.char(40) not null; 

 description : abap.char(40) not null; 

 quantity : abap.char(10) not null; 

 amount : abap.char(10) not null; 

 unitprice : abap.char(10) not null; 

} 

@EndUserText.label : 'Draft Table for invoice Items' 

@AbapCatalog.enhancement.category : #EXTENSIBLE_ANY 

@AbapCatalog.tableCategory : #TRANSPARENT 

@AbapCatalog.deliveryClass : #A 

@AbapCatalog.dataMaintenance : #RESTRICTED 

define table zinvitmsab_draft { 

 key client : abap.clnt not null; 

 key invoice : zinvoice_sab not null; 

 key material : abap.char(40) not null; 

 description : abap.char(40) not null; 

 quantity : abap.char(10) not null; 

 amount : abap.char(10) not null; 

 unitprice : abap.char(10) not null; 

 lastchangedat : abp_lastchange_tstmpl; 

 "%admin" : include sych_bdl_draft_admin_inc; 

} 

 

Lets create CDS Entities with association are needed between Invoice header and item tables -

@AccessControl.authorizationCheck: #NOT_REQUIRED

@EndUserText.label: 'Invoice Table'

define root view entity ZI_INVTABLE_SAB 

 as select from zinvtable_sab 

 composition[1..*] of zi_invitem_sab as _invitm 

 

{

 key invoice as Invoice,

 comments as Comments,

 refpurchaseorder as RefPurchaseOrder,

 status as Status,

 receivercontact as ReceiverContact,

 grossamount as GrossAmount,

 

 invoicedate as InvoiceDate,

 

 @Semantics.largeObject:

 { 

 mimeType: 'MimeType',

 fileName: 'Filename',

 contentDispositionPreference: #INLINE 

 }

 attachment as Attachment, 

 @Semantics.mimeType: true

 mimetype as MimeType,

 filename as Filename,

 @Semantics.user.createdBy: true

 local_created_by as LocalCreatedBy,

 @Semantics.systemDateTime.createdAt: true

 local_created_at as LocalCreatedAt,

 @Semantics.user.lastChangedBy: true

 local_last_changed_by as LocalLastChangedBy,

 //local ETag field --> OData ETag

 @Semantics.systemDateTime.localInstanceLastChangedAt: true

 local_last_changed_at as LocalLastChangedAt,

 //total ETag field

 @Semantics.systemDateTime.lastChangedAt: true

 last_changed_at as LastChangedAt,

 

 _invitm 

}

@AbapCatalog.viewEnhancementCategory: [#NONE]

@AccessControl.authorizationCheck: #NOT_REQUIRED

@EndUserText.label: 'Interface for Invoice Items'

@Metadata.ignorePropagatedAnnotations: true

@ObjectModel.usageType:{

 serviceQuality: #X,

 sizeCategory: #S,

 dataClass: #MIXED

}

define view entity zi_invitem_sab 

 as select from zinvitem_sab association 

 to parent ZI_INVTABLE_SAB as _invoice 

 on $projection.invoice = _invoice.Invoice 

{

 key zinvitem_sab.invoice,

 @EndUserText.label: 'Material'

 key zinvitem_sab.material as material,

 @EndUserText.label: 'Description'

 description,

 @EndUserText.label: 'Quantity'

 quantity,

 @EndUserText.label: 'Amount'

 amount,

 @EndUserText.label: 'unit Price'

 unitprice,

 _invoice.LastChangedAt,

 /* Associations */

 _invoice 

 

}

 

Now create Projection view of top of the CDS entities -

@EndUserText.label: 'Projection View for Items'

@AccessControl.authorizationCheck: #NOT_REQUIRED

@Metadata.allowExtensions: true

define view entity ZP_INVITEM_SAB 

as projection on zi_invitem_sab 

{

 @UI.facet: [{

 id: 'Invoicedet', 

 purpose: #STANDARD,

 label: 'Item Data',

 type: #IDENTIFICATION_REFERENCE,

 position: 10

 }]

 

 @UI.hidden: true

 key invoice,

 

 @UI: { lineItem: [{ position: 20 } ],

 

 identification: [{ position: 20 }] }

 key material,

 @UI: { lineItem: [{ position: 30 , cssDefault.width: '25rem'}],

 identification: [{ position: 30 }] }

// , fieldGroup: [ { qualifier: 'Fieldgroup2'} ] } 

 description,

 @UI: { lineItem: [{ position: 40 }],

 identification: [{ position: 40 }] } 

 quantity,

 @UI: { lineItem: [{ position: 50 }],

 identification: [{ position: 50 }] } 

 amount,

 @UI: { lineItem: [{ position: 60 }],

 identification: [{ position: 60 }] } 

 unitprice,

 @UI.hidden: true 

 LastChangedAt,

 /* Associations */

 _invoice: redirected to parent ZP_INVTABLE_SAB 

}

@EndUserText.label: 'Invoice Table Data'

@AccessControl.authorizationCheck: #NOT_REQUIRED

@Metadata.allowExtensions: true

define root view entity ZP_INVTABLE_SAB 

 provider contract transactional_query

 as projection on ZI_INVTABLE_SAB 

{

 @UI.facet: [{ label: 'General Information',

 id: 'GeneralInfo',

type: #COLLECTION,

position: 10 },

 { id: 'Invoicedet',

 purpose: #STANDARD,

type: #IDENTIFICATION_REFERENCE,

label: 'Invoice Details',

parentId: 'GeneralInfo',

position: 10 },

 { id: 'Upload',

 purpose: #STANDARD,

type: #FIELDGROUP_REFERENCE,

parentId: 'GeneralInfo',

label: 'Upload Invoice',

position: 20,

targetQualifier: 'Upload' },

 { id: 'extracteddata',

 purpose: #STANDARD,

type: #FIELDGROUP_REFERENCE,

parentId: 'GeneralInfo',

label: 'Extracted Data',

position: 30,

targetQualifier: 'extracteddata' },

 { id: 'invoiceitems',

 purpose: #STANDARD,

type: #LINEITEM_REFERENCE,

label: 'Item ',

position: 50,

targetElement: '_invitm'}

 ]

 @UI: { lineItem: [ { position: 10, importance: #HIGH , label:

'Invoice Number'}

 ,{ type: #FOR_ACTION, dataAction:

'startpaypro', label: 'Start Payment Process',

invocationGrouping:#CHANGE_SET } 

 ] , identification: [ { position: 10 , label:

'Invoice Number' } ] }

 key Invoice,

 @UI: { lineItem: [ { position: 20, importance: #HIGH , label:

'Comments', cssDefault.width: '15rem' } ] ,

 identification: [ { position: 20 , label:

'Comments' }, { type: #FOR_ACTION, dataAction: 'analyzedoc', label:

'Analyze Data' } ] }

 @UI.multiLineText: true

 Comments,

 @UI: { lineItem: [ { position: 30, importance: #HIGH, label:

'Reference PO'} ] ,

 fieldGroup: [ { position: 30, qualifier: 'extracteddata',

label: 'Reference PO'}] } 

 RefPurchaseOrder as RefPurchaseOrder,

 @UI: { lineItem: [ { position: 40, importance: #HIGH, label:

'Status'} ] ,

 fieldGroup: [ { position: 40, qualifier: 'extracteddata',

label: 'Status'}] } 

 Status as Status, 

 @UI: { lineItem: [ { position: 50, importance: #HIGH, label:

'Reciever Contact'} ] ,

 fieldGroup: [ { position: 50, qualifier: 'extracteddata',

label: 'Reciever Contact'}] } 

 ReceiverContact,

 @UI: { lineItem: [ { position: 60, importance: #HIGH, label:

'Gross Amount' } ] ,

 fieldGroup: [ { position: 60, qualifier: 'extracteddata',

label: 'Gross Amount'} ] }

 GrossAmount,

 @UI: { lineItem: [ { position: 70, importance: #HIGH , label:

'Invoice Date' } ] ,

 fieldGroup: [ { position: 70, qualifier: 'extracteddata',

label: 'Invoice Date'} ] } 

 InvoiceDate,

 @UI: { fieldGroup: [ { position: 80, qualifier: 'Upload' ,

label: 'Attachment'} ]}

 Attachment,

 @UI.hidden: true

 MimeType,

 @UI.hidden: true 

 Filename,

 @UI.hidden: true 

 LocalLastChangedAt,

 _invitm: redirected to composition child ZP_INVITEM_SAB 

}

 

Create Behavior Definitions where you define new custom actions on top of the Managed scenario -

managed implementation in class zbp_i_invtable_sab unique;

strict ( 1 );

with draft;

define behavior for ZI_INVTABLE_SAB alias Invoice 

persistent table zinvtable_sab 

draft table ZINVTABSAB_DRAFT 

lock master

total etag LocalLastChangedAt 

authorization master ( global )

etag master LastChangedAt 

{

 field ( readonly ) LastChangedAt, LocalLastChangedBy,

LocalLastChangedAt , LocalCreatedBy ,

 LocalCreatedAt;

 field ( mandatory ) Attachment;

 create;

 update;

 delete;

 association _invitm { create; with draft; }

 draft action Edit ;

 draft action Activate;

 draft action Discard;

 draft action Resume;

 draft determine action Prepare ;

 action ( features : instance ) analyzedoc result [1] $self;

 action startpaypro result [1] $self;

// " result [1] $self;

// validation startpaypro on { }

}

define behavior for zi_invitem_sab alias Items 

persistent table zinvitem_sab 

draft table zinvitmsab_draft 

lock dependent by _invoice 

authorization dependent by _invoice 

{

 update;

 delete;

 field ( readonly ) invoice, LastChangedAt;

 association _invoice { with draft; }

}

/////For Projection///// 

projection;

strict ( 1 );

use draft;

define behavior for ZP_INVTABLE_SAB //alias <alias_name>

{

 use create;

 use update;

 use delete;

 use action analyzedoc;

 use action startpaypro;

 use action Edit;

 use action Activate;

 use action Discard;

 use action Resume;

 use action Prepare;

 use association _invitm { create; with draft; }

}

define behavior for zp_invitem_sab //alias Items

{

 use update;

 use delete;

// use action analyzedoc;

 use association _invoice { with draft; }

}

 

Now create metadata extensions to change the UI of the facet. You can introduce several functionalities to acheive further UI functionalities

@Metadata.layer: #CORE

@UI: { headerInfo: {

 typeName: 'Material',

 typeNamePlural: 'Materials',

 title: { type: #STANDARD, value: 'Material' },

 description: { type: #STANDARD, value: 'description' }

},

 presentationVariant: [{

 sortOrder: [{ by: 'material', direction: #ASC }],

 visualizations: [{type: #AS_CHART}] 

 }] }

annotate view ZP_INVITEM_SAB 

 with 

{

 @UI.lineItem: [{ position: 10, label: 'Desc' }] 

 description;

 @UI.lineItem: [{ position: 20, label: 'Amount' }]

 amount;

}

@Metadata.layer: #CORE

@UI: { headerInfo: {

typeName: 'Invoice',

typeNamePlural: 'Invoices',

title: { type: #STANDARD, value: 'Invoice' },

 description: { type: #STANDARD, value: 'Invoice' } },

 presentationVariant: [{

 sortOrder: [{ by: 'Invoice', direction: #ASC }],

 visualizations: [{type: #AS_LINEITEM}] }] }

annotate entity ZP_INVTABLE_SAB with {}

 

Now implement the Behavior Definition class -

CLASS lhc_Invoice DEFINITION INHERITING FROM cl_abap_behavior_handler.

 PUBLIC SECTION.

 CLASS-METHODS item_det 

 CHANGING ct_items TYPE zsaba_inv_process=>tt_items.

 PRIVATE SECTION.

 DATA: go_data TYPE REF TO lhc_Invoice.

 METHODS get_instance_features FOR INSTANCE FEATURES

 IMPORTING keys REQUEST requested_features FOR Invoice RESULT result.

 METHODS get_global_authorizations FOR GLOBAL AUTHORIZATION

 IMPORTING REQUEST requested_authorizations FOR Invoice RESULT result.

 METHODS analyzedoc FOR MODIFY

 IMPORTING keys FOR ACTION Invoice~analyzedoc RESULT result.

 METHODS startpaypro FOR MODIFY

 IMPORTING keys FOR ACTION Invoice~startpaypro RESULT result.

ENDCLASS.

CLASS lhc_Invoice IMPLEMENTATION.

 METHOD startpaypro.

 DATA messages TYPE /dmo/t_message.

* READ ENTITIES OF zi_invtable_sab IN LOCAL MODE

* ENTITY Invoice

* ALL FIELDS WITH CORRESPONDING #( keys )

* RESULT DATA(fetchdata).

* result = VALUE #( FOR line IN fetchdata

* ( %tky = line-%tky

* %param = line ) ).

* LOOP AT result ASSIGNING FIELD-SYMBOL(<lfs_invoices>).

 APPEND VALUE #( %msg = NEW zcl_sab_inv_msg(

 textid = 

zcl_sab_inv_msg=>sent_for_payment 

 severity = 

if_abap_behv_message=>severity-success )

 "%ELEMENT = IF_ABAP_BEHV=>MK-ON

 ) TO reported-invoice.

 MODIFY ENTITIES OF zi_invtable_sab IN LOCAL MODE

 ENTITY Invoice 

 UPDATE

 FIELDS ( Status )

 WITH VALUE #( FOR key IN keys 

 ( Invoice = key-Invoice 

 Status = 'W'

 ) ).

 ENDMETHOD.

 METHOD get_instance_features.

 LOOP AT keys INTO DATA(key).

 APPEND VALUE #(

 %tky = key-%tky 

 %action-analyzedoc = COND #( WHEN key-%is_draft = 

if_abap_behv=>mk-off 

 THEN if_abap_behv=>fc-o-enabled 

 ELSE if_abap_behv=>fc-o-disabled ) ) 

TO result.

 ENDLOOP.

 ENDMETHOD.

 METHOD get_global_authorizations.

 ENDMETHOD.

 METHOD item_det.

 ENDMETHOD.

 METHOD analyzedoc.

 DATA: lt_table TYPE TABLE OF zinvitem_sab.

 READ ENTITIES OF zi_invtable_sab IN LOCAL MODE

 ENTITY Invoice 

 ALL FIELDS WITH CORRESPONDING #( keys )

 RESULT DATA(fetchdata).

 result = VALUE #( FOR line IN fetchdata 

 ( %tky = line-%tky 

 %param = line ) ).

* IF LINES( result ) = 1.

 LOOP AT result ASSIGNING FIELD-SYMBOL(<lfs_line>).

 CALL METHOD zsaba_inv_process=>analyze_doc 

 "CALL METHOD zsaba_inv_process=>analyze_doc_dummy

 EXPORTING

 iv_inv_doc = <lfs_line>-Invoice 

 IMPORTING

 es_header = DATA(ls_header)

 et_items = DATA(lt_items).

 CALL METHOD item_det 

 CHANGING

 ct_items = lt_items.

 READ ENTITIES OF zi_invtable_sab IN LOCAL MODE

 ENTITY Invoice BY \_invitm 

 ALL FIELDS WITH VALUE #( ( %tky = <lfs_line>-%tky ) )

 RESULT DATA(lt_line_read).

 MOVE-CORRESPONDING lt_items TO lt_table.

 DELETE ADJACENT DUPLICATES FROM lt_table COMPARING material.

 MODIFY ENTITIES OF zi_invtable_sab IN LOCAL MODE

 ENTITY Invoice 

 UPDATE

 FIELDS ( ReceiverContact GrossAmount InvoiceDate Comments

Status RefPurchaseOrder )

 WITH VALUE #( FOR key IN keys 

 ( Invoice = key-Invoice 

 ReceiverContact = ls_header-receivercontact

 GrossAmount = ls_header-grossamount 

 InvoiceDate = ls_header-invoicedate 

 Comments = ls_header-comments 

 Status = 'I'

RefPurchaseOrder = ls_headerrefpurchaseorder 

 ) ).

 LOOP AT lt_table ASSIGNING FIELD-SYMBOL(<lfs_table>).

 <lfs_table>-Invoice = <lfs_line>-invoice.

 <lfs_table>-client = sy-mandt.

 IF line_exists( lt_line_read[ material = <lfs_table>-material ] ).

 " Do not do anything. The Line might be manually created

 ELSE.

 MODIFY ENTITIES OF zi_invtable_sab IN LOCAL MODE

 ENTITY Invoice 

* UPDATE

* FIELDS ( ReceiverContact GrossAmount InvoiceDate Comments )

* WITH VALUE #( FOR key IN keys

* ( Invoice = key-Invoice

* ReceiverContact = ls_headerreceivercontact

* GrossAmount = ls_header-grossamount

* InvoiceDate = ls_header-invoicedate

* Comments = ls_header-comments

* Status = 'I'

* RefPurchaseOrder = ls_headerrefpurchaseorder

* ) )

 "CREATE

 CREATE

 BY \_invitm 

 FIELDS ( amount description invoice material quantity

unitprice )

 WITH VALUE #( ( invoice = <lfs_line>-invoice 

 %target = VALUE #( (

 %is_draft = 

if_abap_behv=>mk-off 

 amount = <lfs_table>-

amount 

 description = 

<lfs_table>-description 

 invoice = <lfs_table>-

invoice 

 material = 

<lfs_table>-material 

 quantity = 

<lfs_table>-quantity 

 unitprice = 

<lfs_table>-unitprice 

 ) ) ) ) .

 ENDIF.

 ENDLOOP.

 ENDLOOP.

* ELSEIF LINES( result ) > 1.

* APPEND VALUE #( %msg = NEW zcl_sab_inv_msg(

* textid = 

zcl_sab_inv_msg=>select_only_one_for_analysis

* severity = 

if_abap_behv_message=>severity-error )

* "%ELEMENT = IF_ABAP_BEHV=>MK-ON

* ) TO reported-invoice.

* ENDIF.

 ENDMETHOD.

ENDCLASS.

All the steps are completed for RAP developments.

Here through this RAP Report what you are achieving -

1. Upload a Raw file


2. Deep Entity manipulation with EML(Entity Manipulation) for ABAP RAP

 

Next is Invoice Process Class. Here we need to create the integration aspects to this Development.

Create Service definition and Service Bindings accordingly.

Please visit Part 2 for next steps.