topic Re: can u send me any bapi program in Application Development and Automation Discussions

can u send me any bapi program

Former Member — Fri, 04 Jan 2008 05:48:22 GMT

hi,

i am learning bapi through this site .but i don't know how i use my bapi object in program . can anyone please send me

a bapi program .

for this i will greatful to u.

thanks.

Re: can u send me any bapi program

Former Member — Fri, 04 Jan 2008 05:52:49 GMT

BAPI (Business Application Programming Interface) is an API method of a business object which intern is a RFC enabled Function Module.

Business Objects are the Objects which has business sence associated to it. Ex. Sales Orders, Purchase Orders etc.

The Properties of BAPI are:

Every BAPI name should start with letters 'BAPI'.

It is an API method of a Business Object.

it does not contain a internal COMMIT statement in the Function Module.

It does not contain "CALL TRANSACTION" statements.

BAPI do not raise 'EXCEPTIONS'.

a RETURN structure is defined as an interface parameter of a BAPI which is used to log all the errors, warnings and the successful processes tha are triggered in the course of execution of a BAPI.

A successful execution of a BAPI requires the data to be commited and this process of performing a COMMIT is achieved by calling the BAPI_TRANSACTION_COMMIT' explicitly if there are no errors logged in the RETURN structure.

There are two types of BAPI's: Instance Dependent & Instance Independent.

BAPI provides an access to the SAP system for external applications to have the business data processed in the form of web services. When BAPI's are used to post the data in SAP system these are used as Function Modules.

for further information check following:

Go to the below link for BAPI.

http://help.sap.com/saphelp_nw04/helpdata/en/e0/9eb2370f9cbe68e10000009b38f8cf/frameset.htm

BAPI

http://help.sap.com/saphelp_nw2004s/helpdata/en/7e/5e114a4a1611d1894c0000e829fbbd/frameset.htm

http://www.sapgenie.com/abap/bapi/example.htm

http://help.sap.com/saphelp_46c/helpdata/en/9b/417f07ee2211d1ad14080009b0fb56/frameset.htm

http://searchsap.techtarget.com/originalContent/0,289142,sid21_gci948835,00.html

http://techrepublic.com.com/5100-6329-1051160.html#

http://www.sap-img.com/bapi.htm

http://www.sap-img.com/abap/bapi-conventions.htm

http://www.sappoint.com/abap/bapiintro.pdf

http://www.sapgenie.com/abap/bapi/example.htm

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCMIDAPII/CABFAAPIINTRO.pdf

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/CABFABAPIREF/CABFABAPIPG.pdf

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCFESDE8/BCFESDE8.pdf

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/CABFABAPIREF/CABFABAPIPG.pdf

http://help.sap.com/printdocu/core/Print46c/en/data/pdf/BCMIDAPII/CABFAAPIINTRO.pdf

Rewards if useful.

Re: can u send me any bapi program

Former Member — Fri, 04 Jan 2008 06:32:03 GMT

hello sir,

thanks for giving answer. but i want some bapi program.

as i don't know where i use my bapi as i have created my bapi

which details i will giving u:

Object name ZBAPI_MARA

Short description BAPI FOR FUNCTION MODULE "ZBAPI_FMMARA"

Object type ZBAPI_MARA

plz give any program using bapi .

thanks

Re: can u send me any bapi program

Former Member — Fri, 04 Jan 2008 10:50:07 GMT

hi Zuhi,

REPORT ZAUTO_DEBIT_VENDOR NO STANDARD PAGE HEADING

LINE-SIZE 250

LINE-COUNT 65(2)

MESSAGE-ID ZSCM.

************************************************************************

Program name : ZAUTO_DEBIT_VENDOR
Type : Report
Description : Automatic Vendor Dedit Postings

************************************************************************

----

TABLES

----

TABLES: VBAK,

ADR6,

TRDYSE01CM.

----

INCLUDE

----

INCLUDE ZZUTI_STD_HEADER_FOOTER. "Standard header and footer

----

TYPES DECLARATION

----

TYPES:

BEGIN OF T_CRMEMO,

VBELN TYPE VBAK-VBELN,

POSNR TYPE VBAP-POSNR,

ERDAT TYPE VBAK-ERDAT,

AUART TYPE VBAK-AUART,

AUGRU TYPE VBAK-AUGRU,

WAERK TYPE VBAK-WAERK,

VKORG TYPE VBAK-VKORG,

VTWEG TYPE VBAK-VTWEG,

SPART TYPE VBAK-SPART,

VDATU TYPE VBAK-VDATU,

BSTNK TYPE VBAK-BSTNK,

BSARK TYPE VBAK-BSARK,

BSTDK TYPE VBAK-BSTDK,

AEDAT TYPE VBAK-AEDAT,

BUKRS_VF TYPE VBAK-BUKRS_VF,

MATNR TYPE VBAP-MATNR,

ZMENG TYPE VBAP-ZMENG,

ZIEME TYPE VBAP-ZIEME,

END OF T_CRMEMO,

BEGIN OF T_CRMEMO_CHANGE,

VBELN(90) TYPE C,

POSNR TYPE VBAP-POSNR,

ERDAT TYPE VBAK-ERDAT,

AUART TYPE VBAK-AUART,

AUGRU TYPE VBAK-AUGRU,

WAERK TYPE VBAK-WAERK,

VKORG TYPE VBAK-VKORG,

VTWEG TYPE VBAK-VTWEG,

SPART TYPE VBAK-SPART,

VDATU TYPE VBAK-VDATU,

BSTNK TYPE VBAK-BSTNK,

BSARK TYPE VBAK-BSARK,

BSTDK TYPE VBAK-BSTDK,

AEDAT TYPE VBAK-AEDAT,

BUKRS_VF TYPE VBAK-BUKRS_VF,

MATNR TYPE VBAP-MATNR,

ZMENG TYPE VBAP-ZMENG,

ZIEME TYPE VBAP-ZIEME,

END OF T_CRMEMO_CHANGE,

BEGIN OF T_MVKE,

MATNR TYPE MVKE-MATNR,

VKORG TYPE MVKE-VKORG,

VTWEG TYPE MVKE-VTWEG,

MTPOS TYPE MVKE-MTPOS,

END OF T_MVKE,

BEGIN OF T_ORDERS,

VBELV TYPE VBFA-VBELV,

POSNV TYPE VBFA-POSNV,

VBELN TYPE VBFA-VBELN,

POSNN TYPE VBFA-POSNN,

VBTYP_N TYPE VBFA-VBTYP_N,

END OF T_ORDERS,

BEGIN OF T_EKPO,

EBELN TYPE EKKO-EBELN,

EBELP TYPE EKPO-EBELP,

WAERS TYPE EKKO-WAERS,

MENGE TYPE EKPO-MENGE,

MEINS TYPE EKPO-MEINS,

NETPR TYPE EKPO-NETPR,

PEINH TYPE EKPO-PEINH,

mwskz TYPE EKPO-mwskz,

TXJCD TYPE EKPO-TXJCD,

END OF T_EKPO,

BEGIN OF T_EKBE,

EBELN TYPE EKBE-EBELN,

EBELP TYPE EKBE-EBELP,

ZEKKN TYPE EKBE-ZEKKN,

VGABE TYPE EKBE-VGABE,

GJAHR TYPE EKBE-GJAHR,

BELNR TYPE EKBE-BELNR,

BUZEI TYPE EKBE-BUZEI,

END OF T_EKBE,

BEGIN OF T_RBKP,

BELNR TYPE RBKP-BELNR,

GJAHR TYPE RBKP-GJAHR,

BLDAT TYPE RBKP-BLDAT,

BUDAT TYPE RBKP-BUDAT,

XBLNR TYPE RBKP-XBLNR,

LIFNR TYPE RBKP-LIFNR,

RMWWR TYPE RBKP-RMWWR,

WMWST1 TYPE RBKP-WMWST1,

XRECH TYPE RBKP-XRECH,

STBLG TYPE RBKP-STBLG,

END OF T_RBKP,

BEGIN OF T_CDHDR,

OBJECTCLAS TYPE CDHDR-OBJECTCLAS,

OBJECTID TYPE CDHDR-OBJECTID,

CHANGENR TYPE CDHDR-CHANGENR,

UDATE TYPE CDHDR-UDATE,

UTIME TYPE CDHDR-UTIME,

END OF T_CDHDR,

BEGIN OF T_CDPOS,

OBJECTCLAS TYPE CDHDR-OBJECTCLAS,

OBJECTID TYPE CDHDR-OBJECTID,

CHANGENR TYPE CDHDR-CHANGENR,

TABNAME TYPE CDPOS-TABNAME,

TABKEY TYPE CDPOS-TABKEY,

FNAME TYPE CDPOS-FNAME,

CHNGIND TYPE CDPOS-CHNGIND,

VALUE_NEW TYPE CDPOS-VALUE_NEW,

VALUE_OLD TYPE CDPOS-VALUE_OLD,

END OF T_CDPOS,

BEGIN OF T_CHANGE_DOCS,

OBJECTCLAS TYPE CDHDR-OBJECTCLAS,

OBJECTID TYPE CDHDR-OBJECTID,

CHANGENR TYPE CDHDR-CHANGENR,

UDATE TYPE CDHDR-UDATE,

UTIME TYPE CDHDR-UTIME,

TABNAME TYPE CDPOS-TABNAME,

TABKEY TYPE CDPOS-TABKEY,

FNAME TYPE CDPOS-FNAME,

CHNGIND TYPE CDPOS-CHNGIND,

VALUE_NEW TYPE CDPOS-VALUE_NEW,

VALUE_OLD TYPE CDPOS-VALUE_OLD,

END OF T_CHANGE_DOCS,

BEGIN OF T_SUCCESS,

crmemo TYPE VBAK-vbeln,

cmemo TYPE VBAK-vbeln,

orders TYPE VBAK-vbeln,

po TYPE VBAK-vbeln,

miro_no TYPE VBAK-vbeln,

text(20) TYPE C,

END OF T_SUCCESS,

BEGIN OF T_ERROR,

crmemo TYPE VBAK-vbeln,

cmemo TYPE VBAK-vbeln,

orders TYPE VBAK-vbeln,

po TYPE VBAK-vbeln,

miro_no TYPE VBAK-vbeln,

text(100) TYPE C,

END OF T_ERROR.

----

WORKAREA DECLARATION

----

DATA:

WA_CRMEMO TYPE T_CRMEMO,

WA_CRMEMO_CHANGE TYPE T_CRMEMO_CHANGE,

WA_MVKE TYPE T_MVKE,

WA_ORDERS TYPE T_ORDERS,

WA_CMEMO TYPE T_ORDERS,

WA_PO TYPE T_ORDERS,

WA_EKPO TYPE T_EKPO,

WA_EKBE TYPE T_EKBE,

WA_EKBE_TEMP TYPE T_EKBE,

WA_RBKP TYPE T_RBKP,

WA_RBKP_TMP TYPE T_RBKP,

WA_CDHDR TYPE T_CDHDR,

WA_CDPOS TYPE T_CDPOS,

WA_CHANGE_DOCS TYPE T_CHANGE_DOCS,

WA_CRMEMO_MR8M TYPE T_CRMEMO,

WA_SUCCESS TYPE T_SUCCESS,

WA_ERROR TYPE T_ERROR,

WA_SUCCESS_MR8M TYPE T_SUCCESS,

WA_ERROR_MR8M TYPE T_ERROR.

*--Work area for all the internal tables used for Sending Mail

DATA :

WA_OBJPACK TYPE SOPCKLSTI1,

WA_OBJHEAD TYPE SOLISTI1,

WA_OBJBIN TYPE SOLISTI1,

WA_OBJTXT TYPE SOLISTI1,

WA_RECLIST TYPE SOMLRECI1 .

DATA:

*-- Structure to hold Invoice Header Data

x_docheader LIKE bapi_incinv_create_header,

*-- Structure to hold Reversal Posting Data

x_rev_post LIKE BAPI_INCINV_FLD.

----

INTERNAL TAABLE DECLARATION

----

DATA:

IT_CRMEMO TYPE STANDARD TABLE OF T_CRMEMO WITH HEADER LINE,

IT_CRMEMO_CHANGE TYPE STANDARD TABLE OF T_CRMEMO_CHANGE WITH HEADER LINE,

IT_MVKE TYPE STANDARD TABLE OF T_MVKE WITH HEADER LINE,

IT_CRMEMO_MIRO TYPE STANDARD TABLE OF T_CRMEMO WITH HEADER LINE,

IT_CRMEMO_MR8M TYPE STANDARD TABLE OF T_CRMEMO WITH HEADER LINE,

IT_ORDERS TYPE STANDARD TABLE OF T_ORDERS WITH HEADER LINE,

IT_CMEMO TYPE STANDARD TABLE OF T_ORDERS WITH HEADER LINE,

IT_PO TYPE STANDARD TABLE OF T_ORDERS WITH HEADER LINE,

IT_EKPO TYPE STANDARD TABLE OF T_EKPO WITH HEADER LINE,

IT_EKBE TYPE STANDARD TABLE OF T_EKBE WITH HEADER LINE,

IT_EKBE_TEMP TYPE STANDARD TABLE OF T_EKBE WITH HEADER LINE,

IT_RBKP TYPE STANDARD TABLE OF T_RBKP WITH HEADER LINE,

IT_CDHDR TYPE STANDARD TABLE OF T_CDHDR WITH HEADER LINE,

IT_CDPOS TYPE STANDARD TABLE OF T_CDPOS WITH HEADER LINE,

IT_CHANGE_DOCS TYPE STANDARD TABLE OF T_CHANGE_DOCS WITH HEADER LINE,

IT_SUCCESS TYPE STANDARD TABLE OF T_SUCCESS WITH HEADER LINE,

IT_ERROR TYPE STANDARD TABLE OF T_ERROR WITH HEADER LINE,

IT_SUCCESS_MR8M TYPE STANDARD TABLE OF T_SUCCESS WITH HEADER LINE,

IT_ERROR_MR8M TYPE STANDARD TABLE OF T_ERROR WITH HEADER LINE.

*-- Internal table to hold Invoice Item Data

DATA:BEGIN OF it_itemdata OCCURS 0.

INCLUDE STRUCTURE bapi_incinv_create_item.

DATA:END OF it_itemdata.

*-- Internal table to hold Invoice Acct Assignment Data

DATA:BEGIN OF it_ACCOUNTingdata OCCURS 0.

INCLUDE STRUCTURE BAPI_INCINV_CREATE_ACCOUNT.

DATA:END OF it_accountingdata.

*-- Internal table to hold BAPI return data

DATA: BEGIN OF it_return OCCURS 0.

INCLUDE STRUCTURE bapiret2. "Return Parameter.

DATA: END OF it_return.

*-- Internal table to hold BAPI return data

DATA: BEGIN OF it_return_mr8m OCCURS 0.

INCLUDE STRUCTURE bapiret2. "Return Parameter.

DATA: END OF it_return_mr8m.

*--MAIL related Internal tables

DATA: X_DOC_CHNG TYPE SODOCCHGI1, " document attributes

IT_OBJPACK TYPE STANDARD TABLE OF SOPCKLSTI1, " attachment table

IT_OBJHEAD TYPE STANDARD TABLE OF SOLISTI1, " object header table

IT_OBJBIN TYPE STANDARD TABLE OF SOLISTI1, " binary table

IT_OBJTXT TYPE STANDARD TABLE OF SOLISTI1, " object text

IT_RECLIST TYPE STANDARD TABLE OF SOMLRECI1, " mail recipients

it_compressed_list TYPE STANDARD TABLE OF SOLI,

it_pdf_list TYPE STANDARD TABLE OF TLINE,

it_pdf TYPE tline OCCURS 10 WITH HEADER LINE,

it_html TYPE solisti1 OCCURS 10 WITH HEADER LINE,

*-- Internal table for MIME data (in CHAR format)

it_temp TYPE bapiqcmime OCCURS 10 WITH HEADER LINE,

*-- Internal table for storing data

it_mime(255) TYPE c OCCURS 10 WITH HEADER LINE.

----

GLOBAL VARIABLES *

----

DATA: V_PGM_ID TYPE SY-REPID, " Program id

v_zterm TYPE lfb1-zterm, " Payment Terms

v_text(75) TYPE c, " To store error or success text

v_itemno(6) TYPE n, " To Increment Item No. for BAPI

v_docnr LIKE bapi_incinv_fld-inv_doc_no, " For MIRO document number

v_year1 LIKE bapi_incinv_fld-fisc_year, " For MIRO Fiscal year

v_spono type TSP01-RQIDENT, " For Spool No.

v_type type SOODK-OBJTP, " For Spool Type

V_CRMEMO_QTY TYPE VBAP-ZMENG, " For CR Memo Qty.

V_LINE_AMOUNT TYPE EKPO-NETPR, " For CR Memo Item Qty.

V_GROSSAMT TYPE EKPO-NETPR, " For CR Memo Grand Qty.

v_tax_per(3) type n, " For CR Memo Tax amount %

v_tax_amt TYPE EKPO-NETPR, " For CR Memo Tax amount

v_flag(1) type c, " Flag to process fruther

v_tot_s_mr8m TYPE i, " For MR8M Success Records

v_tot_e_mr8m TYPE i, " For MR8M Error Records

V_DATE TYPE SY-DATUM, " For Sel. Screen Date

V_DATE2(10) TYPE C, " For EMail Date

V_TIME(10) TYPE C, " For EMail Time

V_TIME2(10) TYPE C, " For EMail Time

V_INFO(100) TYPE C, " For EMail Body Text

V_TABLE_LINES TYPE SY-TABIX, " To Increment Email Count

V_TEXT2 TYPE STRING , " For EMail Id text

v_lines TYPE i, " To Store PDF Lines

v_temp(500) TYPE c, " To Convert to 255 char format

v_offset TYPE p, " To Convert to 255 char format

v_lineslen TYPE i, " To Convert to 255 char format

v_mimelen TYPE i, " To Convert to 255 char format

v_tabix type sy-tabix. " To Convert to 255 char format

----

CONSTANTS *

----

CONSTANTS:

C_X(1) TYPE C VALUE 'X', " Constant X or Flag

C_E(1) TYPE C VALUE 'E', " For Error check

c_v(1) TYPE C VALUE 'V', " For PO Docs

c_o(1) TYPE C VALUE 'O', " For Order Docs

c_c(1) TYPE C VALUE 'C', " For Credit Memo Docs

c_k(1) TYPE C VALUE 'K', " For CR Memo Docs

c_u(1) TYPE C VALUE 'U', " For Change tables Update

c_ali(3) TYPE C VALUE 'ALI', " For ALI Format

c_vbak(4) TYPE C VALUE 'VBAK', " For Change docs table

C_01(2) TYPE C VALUE '01', " For Serial No. & Reversal Reason

C_02(2) TYPE C VALUE '02', " For Reversal Reason

c_blart TYPE bkpf-blart VALUE 'RE', " Document type

C_MTPOS TYPE MVKE-MTPOS VALUE 'BANS', " Item Category group

C_AUGRU(5) TYPE C VALUE 'AUGRU', " Reason Code

C_0000500205(10) TYPE C VALUE '0000500205', " GL Account #

C_VERKBELEG(9) TYPE C VALUE 'VERKBELEG'. " For Object Class

*-- Horizontal tab & line feed constants

CLASS CL_ABAP_CHAR_UTILITIES DEFINITION LOAD.

CONSTANTS:

C_TAB TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB,

C_CR_LF TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF .

----

SELECTION SCREEN

----

*-- Select Optons

SELECTION-SCREEN: BEGIN OF BLOCK B01 WITH FRAME TITLE TEXT-001.

SELECT-OPTIONS: S_AUART FOR VBAK-AUART OBLIGATORY NO INTERVALS,

" Sales Document Type

S_AUGRU FOR VBAK-AUGRU OBLIGATORY NO INTERVALS,

" Order reason

S_ERDAT FOR VBAK-ERDAT OBLIGATORY.

" Date on which the record was created

SELECTION-SCREEN: END OF BLOCK B01.

*-- Mail Sending Options

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-004.

PARAMETERS:P_EMAIL AS CHECKBOX DEFAULT SPACE USER-COMMAND V_COM .

PARAMETERS : P_MODE TYPE SO_ESCAPE default 'U' MODIF ID US1.

SELECT-OPTIONS: S_EMAIL FOR ADR6-SMTP_ADDR

NO INTERVALS MODIF ID US2.

SELECT-OPTIONS: S_EMAIL FOR TRDYSE01CM-USERNAME
NO INTERVALS MODIF ID US2.

SELECTION-SCREEN: BEGIN OF LINE.

SELECTION-SCREEN: COMMENT 55(40) TEXT-019 MODIF ID US2.

SELECTION-SCREEN: END OF LINE.

SELECTION-SCREEN END OF BLOCK B2.

----

WORK AREA for SELECT-OPTIONS

----

DATA : X_EMAIL LIKE S_EMAIL. "Work area for EMAIL select-options

----

INITIALIZATION

----

INITIALIZATION.

*-- Default values for Sales Document Type

CLEAR S_AUART[].

S_AUART-SIGN = 'I'.

S_AUART-OPTION = 'EQ'.

S_AUART-LOW = 'CR'.

APPEND S_AUART.

CLEAR S_AUART.

*-- Default values for Date on which the record was created

V_DATE = ( SY-DATUM - 1 ).

CLEAR S_ERDAT[].

S_ERDAT-SIGN = 'I'.

S_ERDAT-OPTION = 'EQ'.

S_ERDAT-LOW = SY-DATUM.

S_ERDAT-HIGH = SY-DATUM.

APPEND S_ERDAT.

CLEAR S_ERDAT.

----

TOP OF PAGE *

----

TOP-OF-PAGE.

*-- Displaying standard header.

PERFORM std_top_of_page USING sy-title.

----

A T S E L E C T I O N S C R E E N O U T P U T

----

*-- For modifying the selection screen layout

AT SELECTION-SCREEN OUTPUT.

PERFORM F_MODIFY_SCREEN.

----

AT SELECTION SCREEN. *

----

AT SELECTION-SCREEN.

*-- Subroutine to Validate selection screen fields

PERFORM f_validate.

----

START-OF-SELECTION *

----

START-OF-SELECTION.

*-- Fetch the Credit Memo Requests documents

PERFORM F_GET_CREDIT_MEMO_REQUEST.

IF NOT IT_CRMEMO[] IS INITIAL.

*-- Fetch Item Category Group

PERFORM F_GET_MVKE_DOCS.

*-- Fetch Sales Order documents, PO Documents and Credit Memos

PERFORM F_GET_SO_PO_DOCS.

ENDIF.

*-- If Credit memo request internal table have an change records then

fetch the change documents from CDHDR and CDPOS

IF NOT IT_CRMEMO_CHANGE[] IS INITIAL.

*-- Fetch Change Documents for CR Memos from CDHDR and CDPOS tables

PERFORM F_GET_CHANGED_DOCS.

ENDIF.

*-- Fetch Purchasing Document Item Details

IF NOT IT_PO[] IS INITIAL.

PERFORM F_GET_EKPO.

ENDIF.

*-- Fetch MIRO Vendor based on the PO Details

IF NOT IT_EKPO[] IS INITIAL.

PERFORM F_GET_VENDOR.

ENDIF.

----

END-OF-SELECTION *

----

if v_flag is initial.

*-- Process Vendor Debit Postings

PERFORM F_PROCESS_MIRO.

*-- Process Reversal Postings of Vendor Automatic Debits using TCODE MR8M

PERFORM F_PROCESS_MR8M.

*-- Send mail,if user enters Email id's and Email Mode is not initial

IF P_EMAIL = C_X AND P_MODE IS NOT INITIAL AND S_EMAIL[] IS NOT INITIAL.

*-- Get spool id

perform f_spool_id.

*-- EMail Logic

PERFORM F_MAIL_LOGIC.

ENDIF.

*-- display the EMail RSCONN01 and Sussess and Error records of MIRO and MR8M

perform f_display_report.

else.

*-- Else exit the process

exit.

endif.

&----

*& Form F_MODIFY_SCREEN

&----

A Form routine to modify the screen

----

FORM F_MODIFY_SCREEN .

*-- To Modify Mail Sending Options

LOOP AT SCREEN.

IF P_EMAIL = C_X.

IF SCREEN-GROUP1 = 'US1' .

SCREEN-INVISIBLE = 0.

SCREEN-ACTIVE = 1.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP2 = 'US2' .

SCREEN-INVISIBLE = 0.

SCREEN-ACTIVE = 1.

MODIFY SCREEN.

ENDIF.

ELSEIF P_EMAIL = SPACE.

IF SCREEN-GROUP1 = 'US1' .

SCREEN-INVISIBLE = 1.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

IF SCREEN-GROUP1 = 'US2' .

SCREEN-INVISIBLE = 1.

SCREEN-ACTIVE = 0.

MODIFY SCREEN.

ENDIF.

ENDLOOP.

ENDFORM. " F_MODIFY_SCREEN

&----

*& Form f_validate

&----

Validation of Selection-Screen Inputs

----

FORM f_validate .

*-- Validate Sales Document Type

if not s_AUART[] is initial.

select AUART

into s_AUART-low

from TVAK up to 1 rows

where AUART in s_AUART.

endselect.

if sy-subrc <> 0.

message E000 with 'Invalid Sales Document Type'(e01) .

endif.

ENDIF.

*-- Validate Order reason (reason for the business transaction)

if not s_AUGRU[] is initial.

select AUGRU

into s_AUGRU-low

from TVAU up to 1 rows

where AUGRU in s_AUGRU.

endselect.

if sy-subrc <> 0.

message E000 with 'Invalid Order reason'(e02) .

endif.

ENDFORM. " f_validate

&----

*& Form F_GET_CREDIT_MEMO_REQUEST

&----

Fetch Credit memo requests from VBAK & VBAP

----

FORM F_GET_CREDIT_MEMO_REQUEST .

SELECT A~VBELN

B~POSNR

A~ERDAT

A~AUART

A~AUGRU

A~WAERK

A~VKORG

A~VTWEG

A~SPART

A~VDATU

A~BSTNK

A~BSARK

A~BSTDK

A~AEDAT

A~BUKRS_VF

B~MATNR

B~ZMENG

B~ZIEME

INTO TABLE IT_CRMEMO

FROM ( VBAK AS A

INNER JOIN VBAP AS B ON A_{VBELN = B}VBELN )

WHERE ( A~ERDAT IN S_ERDAT

OR A~AEDAT IN S_ERDAT )

AND A~AUART IN S_AUART.

IF SY-SUBRC = 0.

SORT IT_CRMEMO BY VBELN POSNR.

ELSE.

MESSAGE I000 WITH 'No Credit Memo Request selected'(002).

v_flag = C_X.

stop.

ENDIF.

ENDFORM. " F_GET_CREDIT_MEMO_REQUEST

&----

*& Form F_GET_MVKE_DOCS

&----

Fetch Sales Data for Material

----

FORM F_GET_MVKE_DOCS .

DATA: LV_TABIX TYPE SY-TABIX.

*-- Fetch Sales Data for Material

SELECT MATNR " Material Number

VKORG " Sales Organization

VTWEG " Distribution Channel

MTPOS " Item category group from material master

FROM MVKE " Sales Data for Material

INTO TABLE IT_MVKE

FOR ALL ENTRIES IN IT_CRMEMO

WHERE MATNR = IT_CRMEMO-MATNR

AND VKORG = IT_CRMEMO-VKORG

AND VTWEG = IT_CRMEMO-VTWEG.

IF SY-SUBRC = 0.

SORT IT_MVKE BY MATNR VKORG VTWEG MTPOS.

ENDIF.

*-- Validate Item category group if MVKE-MTOPS <> 'BANS' then ignore CM Request line item

LOOP AT IT_CRMEMO INTO WA_CRMEMO.

LV_TABIX = SY-TABIX.

READ TABLE IT_MVKE INTO WA_MVKE WITH KEY MATNR = WA_CRMEMO-MATNR

VKORG = WA_CRMEMO-VKORG

VTWEG = WA_CRMEMO-VTWEG

MTPOS = C_MTPOS

BINARY SEARCH.

IF SY-SUBRC <> 0.

DELETE IT_CRMEMO INDEX LV_TABIX. " Delete CR memo records

ELSE.

*-- Else check for credit memo request change date is not initial, and

append those records to IT_CRMEMO_CHANGE internal table to retrive
change documents

IF NOT WA_CRMEMO-AEDAT IS INITIAL.

WA_CRMEMO_CHANGE-VBELN = WA_CRMEMO-VBELN.

WA_CRMEMO_CHANGE-POSNR = WA_CRMEMO-POSNR.

WA_CRMEMO_CHANGE-ERDAT = WA_CRMEMO-ERDAT.

WA_CRMEMO_CHANGE-AUART = WA_CRMEMO-AUART.

WA_CRMEMO_CHANGE-AUGRU = WA_CRMEMO-AUGRU.

WA_CRMEMO_CHANGE-WAERK = WA_CRMEMO-WAERK.

WA_CRMEMO_CHANGE-VKORG = WA_CRMEMO-VKORG.

WA_CRMEMO_CHANGE-VTWEG = WA_CRMEMO-VTWEG.

WA_CRMEMO_CHANGE-SPART = WA_CRMEMO-SPART.

WA_CRMEMO_CHANGE-VDATU = WA_CRMEMO-VDATU.

WA_CRMEMO_CHANGE-BSTNK = WA_CRMEMO-BSTNK.

WA_CRMEMO_CHANGE-BSARK = WA_CRMEMO-BSARK.

WA_CRMEMO_CHANGE-BSTDK = WA_CRMEMO-BSTDK.

WA_CRMEMO_CHANGE-AEDAT = WA_CRMEMO-AEDAT.

WA_CRMEMO_CHANGE-BUKRS_VF = WA_CRMEMO-BUKRS_VF.

WA_CRMEMO_CHANGE-MATNR = WA_CRMEMO-MATNR.

WA_CRMEMO_CHANGE-ZMENG = WA_CRMEMO-ZMENG.

WA_CRMEMO_CHANGE-ZIEME = WA_CRMEMO-ZIEME.

APPEND WA_CRMEMO_CHANGE TO IT_CRMEMO_CHANGE.

CLEAR WA_CRMEMO_CHANGE.

ENDIF.

ENDLOOP.

ENDFORM. " F_GET_MVKE_DOCS

&----

*& Form F_GET_SO_PO_DOCS

&----

Fetch the Sales Order documents, PO documents, & Credit Memo

----

FORM F_GET_SO_PO_DOCS.

*-- Fetch Preceding sales orders based on the credit memo request

SELECT VBELV

POSNV

VBELN

POSNN

VBTYP_N

FROM VBFA

INTO TABLE IT_ORDERS

FOR ALL ENTRIES IN IT_CRMEMO

WHERE VBELN = IT_CRMEMO-VBELN

AND POSNN = IT_CRMEMO-POSNR

AND VBTYP_N = C_K

AND VBTYP_V = C_C.

IF SY-SUBRC = 0.

SORT IT_ORDERS BY VBELV POSNV.

*-- Fetch Subsequent PO documents & Credit Memo based on the sales orders

SELECT VBELV

POSNV

VBELN

POSNN

VBTYP_N

FROM VBFA

INTO TABLE IT_PO

FOR ALL ENTRIES IN IT_ORDERS

WHERE VBELV = IT_ORDERS-VBELV

AND POSNV = IT_ORDERS-POSNV

AND VBTYP_N IN (C_V,C_O)

AND VBTYP_V = C_C.

IF SY-SUBRC = 0.

SORT IT_PO BY VBTYP_N.

*-- Copy the IT_PO internal table contents to IT_CMEMO internal table

IT_CMEMO[] = IT_PO[].

*-- Delete PO documents from IT_CMEMO internal table

DELETE IT_CMEMO WHERE VBTYP_N = C_V.

SORT IT_CMEMO BY VBELN POSNN.

IF IT_CMEMO[] IS INITIAL.

MESSAGE I000 WITH 'No Credit Memo are available for CM Request'(003).

v_flag = c_x.
stop.

ENDIF.

*-- Delete Credit Memo documents from IT_PO internal table

DELETE IT_PO WHERE VBTYP_N = C_O.

SORT IT_PO BY VBELN POSNN.

ENDIF.

ENDFORM. " F_GET_SO_PO_DOCS

&----

*& Form F_GET_CHANGED_DOCS

&----

Fetch Change Documents for CR Memos from CDHDR and CDPOS tables

----

FORM F_GET_CHANGED_DOCS .

*-- Fetch Change Documents for CR Memos from CDHDR

SELECT OBJECTCLAS

OBJECTID

CHANGENR

UDATE

UTIME

FROM CDHDR

INTO TABLE IT_CDHDR

FOR ALL ENTRIES IN IT_CRMEMO_CHANGE

WHERE OBJECTCLAS = C_VERKBELEG

AND OBJECTID = IT_CRMEMO_CHANGE-VBELN

AND UDATE = IT_CRMEMO_CHANGE-AEDAT

IF SY-SUBRC = 0.

SORT IT_CDHDR BY OBJECTCLAS OBJECTID CHANGENR.

*-- Fetch Change Documents for CR Memos from CDPOS

SELECT OBJECTCLAS

OBJECTID

CHANGENR

TABNAME

TABKEY

FNAME

CHNGIND

VALUE_NEW

VALUE_OLD

FROM CDPOS

INTO TABLE IT_CDPOS

FOR ALL ENTRIES IN IT_CDHDR

WHERE OBJECTCLAS = C_VERKBELEG

AND OBJECTID = IT_CDHDR-OBJECTID

AND CHANGENR = IT_CDHDR-CHANGENR

AND TABNAME = C_VBAK

AND FNAME = C_AUGRU

AND CHNGIND = C_U.

IF SY-SUBRC = 0.

SORT IT_CDPOS BY OBJECTCLAS OBJECTID CHANGENR.

ENDIF.

ENDFORM. " F_GET_CHANGED_DOCS

&----

*& Form F_GET_EKPO

&----

Fetch Purchasing Document Item Details

----

FORM F_GET_EKPO .

*-- Fetch Purchasing Document Item Details

SELECT A~EBELN

B~EBELP

A~WAERS

B~MENGE

B~MEINS

B~NETPR

B~PEINH

B~mwskz

B~TXJCD

INTO TABLE IT_EKPO

FROM ( EKKO AS A

INNER JOIN EKPO AS B ON A_{EBELN = B}EBELN )

FOR ALL ENTRIES IN IT_PO

WHERE A~EBELN = IT_PO-VBELN

AND B~EBELP = IT_PO-POSNN+1(5).

IF SY-SUBRC = 0.

SORT IT_EKPO BY EBELN EBELP.

ENDIF.

ENDFORM. " F_GET_EKPO

&----

*& Form F_GET_VENDOR

&----

Fetch MIRO Vendor details based on the PO Details

----

FORM F_GET_VENDOR .

DATA: LV_TABIX TYPE SY-TABIX.

*-- Fetch History per Purchasing Document records for all the PO records

SELECT EBELN

EBELP

ZEKKN

VGABE

GJAHR

BELNR

BUZEI

FROM EKBE

INTO TABLE IT_EKBE

FOR ALL ENTRIES IN IT_EKPO

WHERE EBELN = IT_EKPO-EBELN

AND EBELP = IT_EKPO-EBELP

AND VGABE = '2'.

and STBLG = space.

IF SY-SUBRC = 0.

SORT IT_EKBE BY BELNR GJAHR.

*-- Fetch the vendor details based on table IT_EKBE internal table

SELECT BELNR

GJAHR

BLDAT

BUDAT

XBLNR

LIFNR

RMWWR

WMWST1

XRECH

STBLG

FROM RBKP

INTO TABLE IT_RBKP

FOR ALL ENTRIES IN IT_EKBE

WHERE BELNR = IT_EKBE-BELNR

AND GJAHR = IT_EKBE-GJAHR.

IF SY-SUBRC = 0.

SORT IT_RBKP BY BELNR GJAHR.

ENDIF.

*-- Sort PO History documents based on PO # and PO Item

SORT IT_EKBE BY EBELN EBELP.

*-- Copy the PO History documents into IT_EKBE_TEMP internal table

IT_EKBE_TEMP[] = IT_EKBE[].

*-- Delete PO History documents from IT_EKBE_TEMP internal table

comparing with IT_RBKP where (STBLG) Reversal document number
is initial

LOOP AT IT_EKBE_TEMP INTO WA_EKBE_TEMP.

LV_TABIX = SY-TABIX.

READ TABLE IT_RBKP INTO WA_RBKP WITH KEY BELNR = WA_EKBE_TEMP-BELNR

GJAHR = WA_EKBE_TEMP-GJAHR

XRECH = SPACE

STBLG = SPACE.

IF SY-SUBRC <> 0.

DELETE IT_EKBE_TEMP INDEX LV_TABIX.

ENDIF.

CLEAR: WA_EKBE_TEMP, WA_RBKP.

ENDLOOP.

ENDFORM. " F_GET_VENDOR

&----

*& Form F_PROCESS_MIRO

&----

Process MIRO

----

FORM F_PROCESS_MIRO .

DATA:

lv_itemno TYPE i,

lv_tabix type sy-index,

lc_check(1) TYPE c VALUE 'X',

V_FILL_ITEM,

lv_rbkp_bldat type sy-datum.

clear : it_itemdata, it_accountingdata, IT_CRMEMO_MIRO, IT_CRMEMO_MR8M.

refresh : it_itemdata, it_accountingdata, IT_CRMEMO_MIRO, IT_CRMEMO_MR8M.

*-- Copy all the CR Memo Docs and delete order reason not in S_AUGRU

IT_CRMEMO_MR8M[] = IT_CRMEMO[].

*-- Delete Reversal postings which are not in S_AUGRU

DELETE IT_CRMEMO_MR8M WHERE AUGRU IN S_AUGRU.

*-- Delete Reversal postings where AEDAT is initial

DELETE IT_CRMEMO_MR8M where aedat is initial.

*-- Delete order reason which are not in S_AUGRU

DELETE IT_CRMEMO WHERE AUGRU NOT IN S_AUGRU.

*-- Loop through the credit memo request records

LOOP AT IT_CRMEMO INTO WA_CRMEMO.

lv_tabix = sy-tabix.

*-- If credit memo request change date is not initial then

send change date (AEDAT) to lv_rbkp_bldat

if not WA_CRMEMO-aedat is initial.

lv_rbkp_bldat = WA_CRMEMO-aedat.

else.

*-- If credit memo request change date is initial then

send create date (ERDAT) to lv_rbkp_bldat

lv_rbkp_bldat = WA_CRMEMO-erdat.

endif.

READ TABLE IT_ORDERS INTO WA_ORDERS WITH KEY VBELN = WA_CRMEMO-VBELN

POSNN = WA_CRMEMO-POSNR.

IF SY-SUBRC = 0.

READ TABLE IT_PO INTO WA_PO WITH KEY VBELV = WA_ORDERS-VBELV

POSNV = WA_ORDERS-POSNV.

IF SY-SUBRC = 0.

READ TABLE IT_EKPO INTO WA_EKPO WITH KEY EBELN = WA_PO-VBELN

EBELP = WA_PO-POSNN.

IF SY-SUBRC = 0.

*-- Read IT_EKBE_TEMP internal table which contains records which are not reversed

READ TABLE IT_EKBE_TEMP INTO WA_EKBE_TEMP WITH KEY EBELN = WA_EKPO-EBELN

EBELP = WA_EKPO-EBELP.

IF SY-SUBRC = 0.

*-- Read IT_RBKP internal table with XRECH (Indicator: post invoice) = 'X' ,

check for invoice records for the correspnding CR Memo records

READ TABLE IT_RBKP INTO WA_RBKP WITH KEY BELNR = WA_EKBE_TEMP-BELNR

GJAHR = WA_EKBE_TEMP-GJAHR

XRECH = C_X.

IF SY-SUBRC = 0.

*-- Read IT_RBKP internal table with XRECH (Indicator: post invoice) = SPACE,

and document date = CR Memo creation date
and reference document number = PO number

READ TABLE IT_RBKP INTO WA_RBKP_TMP WITH KEY BELNR = WA_EKBE_TEMP-BELNR

GJAHR = WA_EKBE_TEMP-GJAHR

BLDAT = WA_CRMEMO-ERDAT

XRECH = ' '

XBLNR+0(10) = WA_EKBE_TEMP-ebeln.

STBLG = SPACE.

IF SY-SUBRC = 0.

CONTINUE.

ELSE.

*-- Quantity Conversion (Get the Credit Memo Quantity by passing CMR unit per one PO unit)

perform f_quantity_conv.

*-- Filling the Line items data

*-- Incrementing the item no

lv_itemno = lv_itemno + 1.

v_itemno = lv_itemno.

it_itemdata-invoice_doc_item = v_itemno.

it_itemdata-po_number = WA_ekPO-ebeln.

it_itemdata-po_item = WA_EKPO-EBELP.

it_itemdata-tax_code = WA_ekpo-mwskz.

it_itemdata-TAXJURCODE = WA_ekpo-TXJCD.

*-- Converting SAP amount to BAPI format by passing line item amount and currency

PERFORM f_currency_amount_sap_to_bapi USING WA_EKPO-waers

V_LINE_AMOUNT

CHANGING it_itemdata-item_amount .

it_itemdata-quantity = ( WA_CRMEMO-ZMENG * V_CRMEMO_QTY ).

it_itemdata-po_unit = WA_EKPO-MEINS.

APPEND it_itemdata.

*-- Populate Account Assignment data

IT_ACCOUNTINGDATA-INVOICE_DOC_ITEM = v_itemno.

IT_ACCOUNTINGDATA-XUNPL = space.

IT_ACCOUNTINGDATA-SERIAL_NO = C_01.

IT_ACCOUNTINGDATA-TAX_CODE = it_itemdata-tax_code.

IT_ACCOUNTINGDATA-TAXJURCODE = it_itemdata-TAXJURCODE.

IT_ACCOUNTINGDATA-ITEM_AMOUNT = it_itemdata-item_amount.

IT_ACCOUNTINGDATA-QUANTITY = it_itemdata-quantity.

IT_ACCOUNTINGDATA-PO_UNIT = it_itemdata-po_unit.

IT_ACCOUNTINGDATA-GL_ACCOUNT = C_0000500205.

append IT_ACCOUNTINGDATA.

clear IT_ACCOUNTINGDATA.

CLEAR it_itemdata.

endif.

ENDIF.

*-- At end of each credit memo request fill the header details of BAPI FM and

*-- post the BAPI

AT END OF VBELN.

read table it_crmemo into wa_crmemo index lv_tabix.

*-- Populate the document Header

*-- Getting the header data for invoice

x_docheader-invoice_ind = space.

x_docheader-doc_type = c_blart.

x_docheader-doc_date = lv_rbkp_bldat.

x_docheader-pstng_date = lv_rbkp_bldat.

x_docheader-ref_doc_no = WA_RBKP-XBLNR.

x_docheader-comp_code = WA_CRMEMO-BUKRS_VF.

x_docheader-CURRENCY = WA_CRMEMO-WAERK.

x_docheader-calc_tax_ind = lc_check.

*-- Logic to find the Tax %

v_tax_per = ( WA_RBKP-WMWST1 / ( WA_RBKP-RMWWR - WA_RBKP-WMWST1 ) ) * 100.

v_tax_amt = ( V_GROSSAMT * v_tax_per ) / 100.

V_GROSSAMT = ( V_GROSSAMT + v_tax_amt ).

x_docheader-gross_amount = V_GROSSAMT.

CLEAR:v_docnr, v_year1.

*-- Calling BAPI to create PO invoice document

CHECK NOT IT_ITEMDATA[] IS INITIAL.

CALL FUNCTION 'BAPI_INCOMINGINVOICE_CREATE'

EXPORTING

headerdata = x_docheader

IMPORTING

invoicedocnumber = v_docnr

fiscalyear = v_year1

TABLES

itemdata = it_itemdata[]

ACCOUNTingDATA = it_ACCOUNTingDATA[]

GLACCOUNTDATA =
taxdata =

return = it_return.

*-- Commit work

IF NOT v_docnr IS INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'.

*-- Move the data to Success Internal Table

wa_success-crmemo = wa_crmemo-vbeln.

wa_success-cmemo = wa_cmemo-vbeln.

wa_success-orders = wa_orders-vbelv.

wa_success-po = wa_po-vbeln.

wa_success-miro_no = v_docnr.

wa_success-text = 'MIRO is Posted'.

append wa_success TO it_success.

clear wa_success.

ENDIF.

*-- Read the values in the table IT_RETURN.

CLEAR it_return.

READ TABLE it_return INDEX 1.

If message type is error then roll back the work

IF it_return-type = C_E.

*-- Roll back

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

*-- Move the data to Error Internal Table

wa_error-crmemo = wa_crmemo-vbeln.

wa_error-cmemo = wa_cmemo-vbeln.

wa_error-orders = wa_orders-vbelv.

wa_error-po = wa_po-vbeln.

wa_error-text = it_return-MESSAGE.

append wa_error TO it_error.

clear wa_error.

ENDIF.

refresh: it_return, it_itemdata, it_accountingdata.

clear: V_GROSSAMT, it_return, it_itemdata, wa_crmemo, wa_orders, wa_po,

wa_ekpo, WA_EKBE_TEMP, wa_rbkp, wa_rbkp_tmp, v_docnr, v_year1, WA_SUCCESS,

WA_ERROR, it_accountingdata, v_tax_per, v_tax_amt, V_FILL_ITEM, lv_rbkp_bldat.

ENDAT.

ENDLOOP.

ENDFORM. " F_PROCESS_MIRO

&----

*& Form f_quantity_conv

&----

Quantity Conversion

----

FORM f_quantity_conv .

*-- Quantity Conversion (Get the Credit Memo Quantity by passing CMR unit per one PO unit)

CLEAR: V_LINE_AMOUNT, V_CRMEMO_QTY.

call function 'MC_UNIT_CONVERSION'

EXPORTING

MATNR = WA_CRMEMO-MATNR

nach_meins = WA_EKPO-MEINS

von_meins = WA_CRMEMO-ZIEME

IMPORTING

UMREF = V_CRMEMO_QTY

EXCEPTIONS

CONVERSION_NOT_FOUND = 1

MATERIAL_NOT_FOUND = 2

NACH_MEINS_MISSING = 3

OVERFLOW = 4

VON_MEINS_MISSING = 5

OTHERS = 6.

if sy-subrc <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ELSE.

V_LINE_AMOUNT = ( V_CRMEMO_QTY * WA_CRMEMO-ZMENG * WA_EKPO-peinh * WA_EKPO-NETPR ).

V_GROSSAMT = V_GROSSAMT + V_LINE_AMOUNT.

ENDIF.

ENDFORM. " f_quantity_conv

&----

*& Form f_currency_amount_sap_to_bapi

&----

SAP Amount to BAPI Amount

----

FORM f_currency_amount_sap_to_bapi USING p_waers

p_kbetr

CHANGING p_amt_doccur.

DATA : lv_waers LIKE tcurc-waers,

lv_sapamount LIKE bapicurr-bapicurr,

lv_bapi_amount LIKE bapicurr-bapicurr.

lv_waers = p_waers.

lv_sapamount = p_kbetr.

CALL FUNCTION 'CURRENCY_AMOUNT_SAP_TO_BAPI'

EXPORTING

currency = lv_waers

sap_amount = lv_sapamount

IMPORTING

bapi_amount = lv_bapi_amount.

p_amt_doccur = lv_bapi_amount.

ENDFORM. " f_currency_amount_sap_to_bapi

&----

*& Form f_display_report

&----

Display Report

----

FORM f_display_report .

*-- Success Report

IF NOT IT_SUCCESS[] IS INITIAL.

ULINE AT /1(129).

WRITE:/1 sy-vline, 'CR Memo',

19 sy-vline, 'Credit Memo',

39 sy-vline, 'Sales Order',

59 sy-vline, 'Purchase Order',

79 sy-vline, 'MIRO Number',

99 sy-vline, 'Text',

129 sy-vline.

ULINE AT /1(129).

LOOP AT it_success into wa_success.

WRITE:/1 sy-vline, wa_success-crmemo,

19 sy-vline, wa_success-cmemo,

39 sy-vline, wa_success-orders,

59 sy-vline, wa_success-po,

79 sy-vline, wa_success-miro_no,

99 sy-vline, wa_success-text,

129 sy-vline.

ENDLOOP.

ULINE AT /1(129).

SKIP 2.

ENDIF.

*-- Error Report

IF NOT IT_ERROR[] IS INITIAL.

ULINE AT /1(179).

WRITE:/1 sy-vline, 'CR Memo',

19 sy-vline, 'Credit Memo',

39 sy-vline, 'Sales Order',

59 sy-vline, 'Purchase Order',

79 sy-vline, 'Error Text',

179 sy-vline.

ULINE AT /1(179).

LOOP AT IT_ERROR into WA_ERROR.

WRITE:/1 sy-vline, WA_ERROR-crmemo,

19 sy-vline, WA_ERROR-cmemo,

39 sy-vline, WA_ERROR-orders,

59 sy-vline, WA_ERROR-po,

79 sy-vline, WA_ERROR-text,

179 sy-vline.

ENDLOOP.

ULINE AT /1(179).

ENDIF.

IF NOT IT_SUCCESS_MR8M[] IS INITIAL.

ULINE AT /1(129).

WRITE:/1 sy-vline, 'CR Memo',

19 sy-vline, 'Credit Memo',

39 sy-vline, 'Sales Order',

59 sy-vline, 'Purchase Order',

79 sy-vline, 'Reversal Posting No.',

99 sy-vline, 'Text',

129 sy-vline.

ULINE AT /1(129).

LOOP AT it_success_mr8m into wa_success_mr8m.

WRITE:/1 sy-vline, wa_success_mr8m-crmemo,

19 sy-vline, wa_success_mr8m-cmemo,

39 sy-vline, wa_success_mr8m-orders,

59 sy-vline, wa_success_mr8m-po,

79 sy-vline, wa_success_mr8m-miro_no,

99 sy-vline, wa_success_mr8m-text,

129 sy-vline.

ENDLOOP.

ULINE AT /1(129).

SKIP 2.

ENDIF.

*-- Error Report

IF NOT IT_ERROR_MR8M[] IS INITIAL.

ULINE AT /1(179).

WRITE:/1 sy-vline, 'CR Memo',

19 sy-vline, 'Credit Memo',

39 sy-vline, 'Sales Order',

59 sy-vline, 'Purchase Order',

79 sy-vline, 'Error Text',

179 sy-vline.

ULINE AT /1(179).

LOOP AT IT_ERROR_MR8M into WA_ERROR_MR8M.

WRITE:/1 sy-vline, WA_ERROR_MR8M-crmemo,

19 sy-vline, WA_ERROR_MR8M-cmemo,

39 sy-vline, WA_ERROR_MR8M-orders,

59 sy-vline, WA_ERROR_MR8M-po,

79 sy-vline, WA_ERROR_MR8M-text,

179 sy-vline.

ENDLOOP.

ULINE AT /1(179).

ENDIF.

ENDFORM. " f_display_report

&----

*& Form F_PROCESS_MR8M

&----

Process Reversal postings

----

FORM F_PROCESS_MR8M .

clear: wa_CRMEMO_MR8M.

LOOP AT IT_CRMEMO_MR8M into WA_CRMEMO_MR8M.

read table it_cdpos into wa_cdpos with key OBJECTID = WA_CRMEMO_MR8M-VBELN.

if sy-subrc <> 0.

CONTINUE.

ELSE.

if wa_cdpos-value_old in s_augru.

READ TABLE IT_ORDERS INTO WA_ORDERS WITH KEY VBELN = wa_CRMEMO_MR8M-VBELN

POSNN = wa_CRMEMO_MR8M-POSNR.

IF SY-SUBRC = 0.

READ TABLE IT_CMEMO INTO WA_CMEMO WITH KEY VBELV = WA_ORDERS-VBELV
POSNV = WA_ORDERS-POSNV.
IF SY-SUBRC = 0.

READ TABLE IT_PO INTO WA_PO WITH KEY VBELV = WA_ORDERS-VBELV

POSNV = WA_ORDERS-POSNV.

IF SY-SUBRC = 0.

READ TABLE IT_EKPO INTO WA_EKPO WITH KEY EBELN = WA_PO-VBELN

EBELP = WA_PO-POSNN.

IF SY-SUBRC = 0.

READ TABLE IT_EKBE INTO WA_EKBE WITH KEY EBELN = WA_EKPO-EBELN
EBELP = WA_EKPO-EBELP.
IF SY-SUBRC = 0.

LOOP AT IT_EKBE into WA_EKBE WHERE EBELN = WA_EKPO-EBELN

AND EBELP = WA_EKPO-EBELP.

READ TABLE IT_RBKP INTO WA_RBKP WITH KEY BELNR = WA_EKBE-BELNR

GJAHR = WA_EKBE-GJAHR

BLDAT = WA_CRMEMO_MR8M-AEDAT

XBLNR+0(10) = WA_EKBE-EBELN

XRECH = SPACE

STBLG = SPACE.

IF SY-SUBRC = 0.

move: WA_RBKP-BELNR TO X_REV_POST-INV_DOC_NO,

WA_RBKP-GJAHR TO X_REV_POST-FISC_YEAR,

WA_RBKP-BUDAT TO X_REV_POST-PSTNG_DATE.

IF WA_RBKP-BUDAT4(2) = SY-DATUM4(2).

X_REV_POST-REASON_REV = C_01.

ELSE.

X_REV_POST-REASON_REV = C_02.

ENDIF.

ENDLOOP.

*-- Call the FM for MIRO reversal

CALL FUNCTION 'BAPI_INCOMINGINVOICE_CANCEL'

EXPORTING

INVOICEDOCNUMBER = X_REV_POST-INV_DOC_NO

FISCALYEAR = X_REV_POST-FISC_YEAR

REASONREVERSAL = X_REV_POST-REASON_REV

POSTINGDATE = X_REV_POST-PSTNG_DATE

IMPORTING

INVOICEDOCNUMBER_REVERSAL = X_REV_POST-INV_DOC_NO

FISCALYEAR_REVERSAL = X_REV_POST-FISC_YEAR

TABLES

RETURN = it_return_mr8m.

*-- Commit work

IF NOT X_REV_POST-INV_DOC_NO IS INITIAL.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'

EXPORTING

wait = 'X'.

*-- Move the data to Success Internal Table

wa_success_mr8m-crmemo = wa_crmemo-vbeln.

wa_success_mr8m-cmemo = wa_cmemo-vbeln.

wa_success_mr8m-orders = wa_orders-vbelv.

wa_success_mr8m-po = wa_po-vbeln.

wa_success_mr8m-text = 'MR8M Done'.

append wa_success_mr8m TO it_success_mr8m.

clear wa_success_mr8m.

ENDIF.

*-- Read the values in the table IT_RETURN.

CLEAR it_return_mr8m.

READ TABLE it_return_mr8m INDEX 1.

*-- If message type is error then roll back the work

IF it_return_mr8m-type = 'E' .

*-- Roll back

CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.

*-- Move the data to Error Internal Table

wa_error_mr8m-crmemo = wa_crmemo-vbeln.

wa_error_mr8m-cmemo = wa_cmemo-vbeln.

wa_error_mr8m-orders = wa_orders-vbelv.

wa_error_mr8m-po = wa_po-vbeln.

wa_error_mr8m-text = it_return_mr8m-MESSAGE.

append wa_error_mr8m TO it_error_mr8m.

clear wa_error_mr8m.

ENDIF.

ENDIF.
ENDIF.

ENDIF.

ENDIF.

ENDIF.

CLEAR: wa_error_mr8m, wa_SUCCESS_mr8m, X_REV_POST, wa_CRMEMO_MR8M,

wa_orders, wa_po, wa_ekpo, wa_ekbe, wa_rbkp, wa_cmemo.

REFRESH: IT_RETURN_MR8M.

endloop.

ENDFORM. " F_PROCESS_MR8M

&----

*& Form F_spool_id

&----

Create a new spool ID

----

FORM F_spool_id .

*-- Create a new spool from the data in data_tab

*-- new-page line-size sy-linsz print on

new-page line-size 255 print on

destination 'LOCL'(p19) "<<== my printer

*-- receiver 'TJOSVOB'

cover text 'Spool title'(p20) " <<== Title or Spool req. name

list name 'List name'(p21)

list dataset 'List Dataset'(p22)

immediately ' ' " X means print now

keep in spool c_x " X means keep spool

new list identification c_x

no dialog .

*-- Writing Report

*-- In this perform you will write the code for displaying the list

perform f_display_report.

*-- new-page print off

new-page print off.

ENDFORM. " F_spool_id

&----

*& Form F_MAIL_LOGIC

&----

Logic to send a mail for the given Email ID's

----

FORM F_MAIL_LOGIC .

data : wa_tsp01sys type tsp01sys.

clear v_spono.

v_spono = sy-spono.

v_attach_desc = sy-title.

*-- Convert the Spool ID into PDF format

perform f_pdf_conversion tables it_compressed_list

it_pdf_list

using v_spono.

*-- Send the Mail in PDF Format

perform f_send_mail.

ENDFORM. " F_MAIL_LOGIC

&----

*& Form f_pdf_conversion

&----

Read the spool and convert into PDF format

----

-->P_ITAB_COMPRESSED_LIST text
-->P_ITAB_PDF_LIST text
-->P_V_SPONO text

----

FORM f_pdf_conversion TABLES it_compressed_list structure soli

it_pdf_list structure tline

using lv_spooln type tsp01-rqident.

clear: it_compressed_list, it_pdf_list.

refresh: it_compressed_list, it_pdf_list.

*-- Call the FM "RSPO_RETURN_SPOOLJOB" to read the spool by passing the spool number

call function 'RSPO_RETURN_SPOOLJOB'

exporting

rqident = lv_spooln

desired_type = v_type

importing

real_type = v_type

tables

buffer = it_compressed_list

buffer_pdf = it_pdf_list

exceptions

no_such_job = 1

job_contains_no_data = 2

selection_empty = 3

no_permission = 4

can_not_access = 5

read_error = 6

type_no_match = 7

others = 8.

if sy-subrc <> 0.

message I000 with 'Error in spool reading'(017).

endif.

*-- If the List type is ALI call the FM "CONVERT_ABAPSPOOLJOB_2_PDF"

to convert list into PDF Format

if v_type = c_ali. " for List it is ALI

call function 'CONVERT_ABAPSPOOLJOB_2_PDF'

exporting

src_spoolid = lv_spooln

tables

pdf = it_pdf

exceptions

err_no_abap_spooljob = 1

err_no_spooljob = 2

err_no_permission = 3

err_conv_not_possible = 4

err_bad_destdevice = 5

user_cancelled = 6

err_spoolerror = 7

err_temseerror = 8

err_btcjob_open_failed = 9

err_btcjob_submit_failed = 10

err_btcjob_close_failed = 11

others = 12.

if sy-subrc <> 0.

message e000

with'Error in convertion of list into PDF format'(018).

endif.

*-- Logic to convert the given format into 255 character format in IT_PDF

describe table it_pdf lines v_lines.

describe field it_pdf length v_lineslen IN character MODE.

describe field it_temp length v_mimelen IN character MODE.

LOOP AT it_pdf.

v_tabix = sy-tabix.

MOVE it_pdf TO v_temp+v_offset.

IF v_tabix = v_lines.

v_lineslen = strlen( it_pdf ).

ENDIF.

v_offset = v_offset + v_lineslen.

IF v_offset GE v_mimelen.

CLEAR it_temp.

it_temp = v_temp(v_mimelen).

APPEND it_temp.

SHIFT v_temp BY v_mimelen PLACES.

v_offset = v_offset - v_mimelen.

ENDIF.

IF v_tabix = v_lines.

IF v_offset GT 0.

CLEAR it_temp.

it_temp = v_temp(v_offset).

APPEND it_temp.

ENDIF.

ENDLOOP.

LOOP AT it_temp.

it_mime(255) = it_temp-line.

APPEND it_mime.

ENDLOOP.

*-- Final Data to send to EMail

it_html[] = it_mime[].

endif.

ENDFORM. " f_pdf_conversion

&----

*& Form f_send_mail

&----

Send EMail Logic

----

FORM f_send_mail .

data : wa_tsp01sys type tsp01sys.

*-- Populate Mail Id's

WA_RECLIST-REC_TYPE = P_MODE.

WA_RECLIST-EXPRESS = C_X.

*-- Loop through the Emial select options

LOOP AT S_EMAIL INTO X_EMAIL.

WA_RECLIST-RECEIVER = X_EMAIL-LOW.

*-- append receiver table

APPEND WA_RECLIST TO IT_RECLIST.

ENDLOOP.

*-- If receiver table is not initial

CHECK IT_RECLIST[] IS NOT INITIAL.

*--To check Mail ID's internal table should not be Empty.

*--populate document attributes

*-- Mail subject line

CLEAR: X_DOC_CHNG.

X_DOC_CHNG-OBJ_NAME = 'HEADING'.

CONCATENATE 'Automatic Vendor Dedit Postings'(005)

SY-DATUM

INTO X_DOC_CHNG-OBJ_DESCR SEPARATED BY SPACE.

*-- Mail body

CONCATENATE 'Automatic Vendor Dedit Postings'(005)

' is attached.'(006)

INTO WA_OBJTXT SEPARATED BY SPACE.

APPEND WA_OBJTXT TO IT_OBJTXT.

*-- Append Date and Time into Body of email.

MOVE 'File is generated on'(007)

TO V_INFO.

V_TIME = SY-UZEIT.

CONCATENATE V_TIME+0(2)

V_TIME+2(2)

V_TIME+4(2)

INTO

V_TIME2 SEPARATED BY ':'.

CONCATENATE SY-DATUM+4(2)

'/'

SY-DATUM+6(2)

'/'

SY-DATUM+0(4)

INTO V_DATE2.

CONCATENATE V_INFO

V_DATE2

'At'

V_TIME2

INTO V_INFO

SEPARATED BY SPACE.

WA_OBJTXT = V_INFO.

APPEND WA_OBJTXT TO IT_OBJTXT.

*-- Document size

CLEAR : V_TABLE_LINES.

DESCRIBE TABLE IT_OBJTXT LINES V_TABLE_LINES.

READ TABLE IT_OBJTXT INTO WA_OBJTXT INDEX V_TABLE_LINES .

X_DOC_CHNG-DOC_SIZE =

( V_TABLE_LINES - 1 ) * 255 + STRLEN( WA_OBJTXT ).

*-- Populate packing list for body text

WA_OBJPACK-HEAD_START = 1.

WA_OBJPACK-HEAD_NUM = 0.

WA_OBJPACK-BODY_START = 1.

WA_OBJPACK-BODY_NUM = V_TABLE_LINES.

WA_OBJPACK-DOC_TYPE = 'RAW'.

APPEND WA_OBJPACK TO IT_OBJPACK.

CLEAR WA_OBJPACK.

if v_type = c_ali.

loop at it_html.

wa_objbin-line = it_html-line.

APPEND WA_OBJBIN TO IT_OBJBIN.

CLEAR WA_OBJBIN.

endloop.

v_type = 'PDF'.

endif.

*-- Get total no.of lines of Object table(attachment)

CLEAR : V_TABLE_LINES.

DESCRIBE TABLE IT_OBJBIN LINES V_TABLE_LINES.

*-- Populate object header(attachment name)

WA_OBJHEAD = 'Automatic Vendor Dedit Postings log'(014).

APPEND WA_OBJHEAD TO IT_OBJHEAD.

CLEAR WA_OBJHEAD.

*-- Packing list for attachment

WA_OBJPACK-TRANSF_BIN = C_X.

WA_OBJPACK-HEAD_START = 1.

WA_OBJPACK-HEAD_NUM = 1.

WA_OBJPACK-BODY_START = 1.

WA_OBJPACK-BODY_NUM = V_TABLE_LINES .

WA_OBJPACK-DOC_TYPE = v_type .

WA_OBJPACK-OBJ_NAME = 'Auto_Debit'.

WA_OBJPACK-OBJ_DESCR = 'attachment'.

WA_OBJPACK-DOC_SIZE = V_TABLE_LINES * 255.

APPEND WA_OBJPACK TO IT_OBJPACK.

CLEAR WA_OBJPACK.

*-- Sending the EMail document in given format

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

DOCUMENT_DATA = X_DOC_CHNG

PUT_IN_OUTBOX = C_X

COMMIT_WORK = C_X

TABLES

PACKING_LIST = IT_OBJPACK

OBJECT_HEADER = IT_OBJHEAD

CONTENTS_BIN = IT_OBJBIN

CONTENTS_TXT = IT_OBJTXT

RECEIVERS = IT_RECLIST

EXCEPTIONS

TOO_MANY_RECEIVERS = 1

DOCUMENT_NOT_SENT = 2

DOCUMENT_TYPE_NOT_EXIST = 3

OPERATION_NO_AUTHORIZATION = 4

PARAMETER_ERROR = 5

X_ERROR = 6

ENQUEUE_ERROR = 7

OTHERS = 8.

IF SY-SUBRC <> 0.

MESSAGE E000 WITH 'Error occurred in sending mail'(015).

ELSE.

*-- Wait upto 2 secounds

wait up to 2 seconds.

*-- Call the RSCONN01 (SAPconnect: Start Send Process)

SUBMIT RSCONN01 WITH MODE = 'INT'

WITH output = 'X'

AND RETURN.

PERFORM F_DISPLAY_SENT_MAIL_STATUS.

ENDIF.

To delete the spool request

wa_tsp01sys-rqident = sy-spono.

call function 'RSPO_IDELETE_SPOOLREQ'

exporting

spoolreq = wa_tsp01sys.

if sy-subrc <> 0.

endif.

ENDFORM. " f_send_mail

&----

*& Form F_DISPLAY_SENT_MAIL_STATUS

&----

Display Mail Sent status to the user

----

FORM F_DISPLAY_SENT_MAIL_STATUS .

ULINE AT /1(60).

WRITE 😕 SY-VLINE,

'Mail sent Successfully to'(016)

COLOR 5 INTENSIFIED ON,

60 SY-VLINE.

LOOP AT S_EMAIL INTO X_EMAIL.

V_TABLE_LINES = STRLEN( X_EMAIL-LOW ).

MOVE X_EMAIL-LOW+0(V_TABLE_LINES) TO V_TEXT2.

WRITE 😕 SY-VLINE,

2 SY-TABIX LEFT-JUSTIFIED,

5 ')',

V_TEXT2,

60 SY-VLINE.

ENDLOOP.

ULINE AT /1(60).

ENDFORM. " F_DISPLAY_SENT_MAIL_STATUS

Hope this is helpful, Do reward.

Re: can u send me any bapi program

Former Member — Fri, 04 Jan 2008 10:59:09 GMT

Check This Link from Help.sap.com..... this will be useful.

http://help.sap.com/saphelp_46c/helpdata/en/df/0495debd6f11d1ad09080009b0fb56/frameset.htm

Santosh