Posted: Fri Sep 07, 2007 5:19 pm Post subject: RFC Purchase Order Change
Author: Aveek Ghose
* This function module is called during PO change in Ariba.
* The call to this function module is from WebMethods. The function
* module performs custom validations on data provided from Ariba and
* then calls BAPI_PO_CHANGE. The error messages are returned to Ariba.
Code:
FUNCTION Z_BC1_BAPI_PO_CHANGE02.
*"----------------------------------------------------------------------
*"*"Local Interface:
*" IMPORTING
*" REFERENCE(PURCHASEORDER) TYPE BAPIMEPOHEADER-PO_NUMBER
*" REFERENCE(POADDRVENDOR) TYPE BAPIMEPOADDRVENDOR
*" REFERENCE(TESTRUN) TYPE BAPIFLAG-BAPIFLAG
*" REFERENCE(MEMORY_UNCOMPLETE) TYPE BAPIFLAG-BAPIFLAG
*" REFERENCE(MEMORY_COMPLETE) TYPE BAPIFLAG-BAPIFLAG
*" REFERENCE(POEXPIMPHEADER) TYPE BAPIEIKP
*" REFERENCE(POEXPIMPHEADERX) TYPE BAPIEIKPX
*" REFERENCE(VERSIONS) TYPE BAPIMEDCM
*" REFERENCE(NO_MESSAGING) TYPE BAPIFLAG-BAPIFLAG
*" REFERENCE(NO_MESSAGE_REQ) TYPE BAPIFLAG-BAPIFLAG
*" REFERENCE(NO_AUTHORITY) TYPE BAPIFLAG-BAPIFLAG
*" REFERENCE(NO_PRICE_FROM_PO) TYPE BAPIFLAG-BAPIFLAG
*" EXPORTING
*" REFERENCE(EXPHEADER) TYPE BAPIMEPOHEADER
*" REFERENCE(EXPPOEXPIMPHEADER) TYPE BAPIEIKPX
*" TABLES
*" RETURN STRUCTURE BAPIRET2
*" POITEM STRUCTURE BAPIMEPOITEM
*" POITEMX STRUCTURE BAPIMEPOITEMX
*" POADDRDELIVERY STRUCTURE BAPIMEPOADDRDELIVERY
*" POSCHEDULE STRUCTURE BAPIMEPOSCHEDULE
*" POSCHEDULEX STRUCTURE BAPIMEPOSCHEDULX
*" POACCOUNT STRUCTURE BAPIMEPOACCOUNT
*" POACCOUNTPROFITSEGMENT STRUCTURE BAPIMEPOACCOUNTPROFITSEGMENT
*" POACCOUNTX STRUCTURE BAPIMEPOACCOUNTX
*" POCONDHEADER STRUCTURE BAPIMEPOCONDHEADER
*" POCONDHEADERX STRUCTURE BAPIMEPOCONDHEADERX
*" POCOND STRUCTURE BAPIMEPOCOND
*" POCONDX STRUCTURE BAPIMEPOCONDX
*" POLIMITS STRUCTURE BAPIESUHC
*" POCONTRACTLIMITS STRUCTURE BAPIESUCC
*" POSERVICES STRUCTURE BAPIESLLC
*" POSRVACCESSVALUES STRUCTURE BAPIESKLC
*" POSERVICESTEXT STRUCTURE BAPIESLLTX
*" EXTENSIONIN STRUCTURE BAPIPAREX
*" EXTENSIONOUT STRUCTURE BAPIPAREX
*" POEXPIMPITEM STRUCTURE BAPIEIPO
*" POEXPIMPITEMX STRUCTURE BAPIEIPOX
*" POTEXTHEADER STRUCTURE BAPIMEPOTEXTHEADER
*" POTEXTITEM STRUCTURE BAPIMEPOTEXT
*" ALLVERSIONS STRUCTURE BAPIMEDCM_ALLVERSIONS
*" POPARTNER STRUCTURE BAPIEKKOP
*" POCOMPONENTS STRUCTURE BAPIMEPOCOMPONENT
*" POCOMPONENTSX STRUCTURE BAPIMEPOCOMPONENTX
*" POSHIPPING STRUCTURE BAPIITEMSHIP
*" POSHIPPINGX STRUCTURE BAPIITEMSHIPX
*" POSHIPPINGEXP STRUCTURE BAPIMEPOSHIPPEXP
*" POHISTORY STRUCTURE BAPIEKBE
*" POHISTORY_TOTALS STRUCTURE BAPIEKBES
*" POCONFIRMATION STRUCTURE BAPIEKES
*" NFMETALLITMS STRUCTURE /NFM/BAPIDOCITM
*" CHANGING
*" REFERENCE(POHEADER) TYPE BAPIMEPOHEADER
*" REFERENCE(POHEADERX) TYPE BAPIMEPOHEADERX
*"----------------------------------------------------------------------
************************************************************************
* PROGRAM Z_BC1_BAPI_PO_CHANGE
* TITLE Function module to Change PO using BAPI
* AUTHOR Aveek Ghose
* DATE WRITTEN 24.05.2006
* R/3 RELEASE 4.6C
*-----------------------------------------------------------------------
* COPIED FROM N/A
*
* This function module is called during PO change in Ariba.
* The call to this function module is from WebMethods. The function
* module performs custom validations on data provided from Ariba and
* then calls BAPI_PO_CHANGE. The error messages are returned to Ariba.
*
*-----------------------------------------------------------------------
* PROGRAM TYPE Function module
* DEV. CLASS ZP2P
* LOGICAL DB N/A
*-----------------------------------------------------------------------
* SCREENS N/A
* GUl TITLE N/A
* GUl STATUS N/A
* TRANSACTIONS N/A
* USER EXITS N/A
*-----------------------------------------------------------------------
*-----------------------------------------------------------------------
*----------------------------------------------------------------------*
* DB-Tables
*----------------------------------------------------------------------*
TABLES: ekkn, "Account Assignment in Purchasing Document
ekbe. "History per Purchasing Document
* zconstants_new. "Constants for various interfaces
* & programs with comp code
*----------------------------------------------------------------------*
* Global variables
*----------------------------------------------------------------------*
DATA: g_cnt_poaccount TYPE i, "No. of records in POACCOUNT
g_cnt_ekkn TYPE i, "No. of records in EKKN
g_msgv1 LIKE sy-msgv1. "Message variable1
*----------------------------------------------------------------------*
* Internal Tables
*----------------------------------------------------------------------*
DATA: g_t_poaccount_tmp LIKE poaccount OCCURS 0 WITH HEADER LINE,
g_t_poaccount1 LIKE poaccount OCCURS 0 WITH HEADER LINE,
g_t_poaccountx1 LIKE poaccountx OCCURS 0 WITH HEADER LINE,
g_t_poaccount LIKE poaccount OCCURS 0 WITH HEADER LINE,
*PVU-20-May-2004 - Changes for SCR1
g_t_itemx_tmp LIKE poitemx OCCURS 0 WITH HEADER LINE,
g_t_schdx_tmp LIKE poschedulex OCCURS 0 WITH HEADER LINE,
g_t_accntx_tmp LIKE poaccountx OCCURS 0 WITH HEADER LINE,
g_t_condx_tmp LIKE pocondx OCCURS 0 WITH HEADER LINE.
* T_Zconstants LIKE ZCONSTANTS_NEW OCCURS 0 WITH HEADER LINE.
*RD1K911982
*PVU-20-May-2004 - End Changes for SCR1
*----------------------------------------------------------------------*
* Structure
*----------------------------------------------------------------------*
DATA: g_w_hdrx_tmp LIKE poheaderx. "PVU-20-May-2004 - Changes for SCR1
* DATA: p_constname TYPE zconstname, "Constant Name
* g_constval TYPE zconstval, "Constant Value
* c_po_ehub_var LIKE ZCONSTANTS_NEW-CONSTname value 'EHUB_POS%'.
DATA : L_CONST_NAME LIKE SY-MSGV1, "Constant name
L_COMP_CODE LIKE SY-MSGV2. "Company code
DATA: L_WA_TIMESTAMP TYPE ZPO_TIMESTAMP.
data: l_waers type waers.
DATA: L_EKORG TYPE EKORG.
DATA: L_SERIAL TYPE I.
DATA : L_VEND_ACTGRP(30) TYPE C, "Vendor Account Group
L_VEND_PAYTRM(30) TYPE C, "Vendor Payment Terms
L_VEND_RECON(30) TYPE C, "Vendor Reconciliation Account
L_MSGV1 LIKE SY-MSGV1, "Message variable1
L_WBS_EXTERNAL LIKE BAPIMEPOACCOUNT-WBS_ELEMENT,
"WBS external format
L_WBS_INTERNAL LIKE BAPIMEPOACCOUNT-WBS_ELEMENT,
L_bukrs type bukrs.
IF poheader-po_number+0(1) = 'C'.
poheader-doc_type = 'ZAC'.
ENDIF.
IF poheader-po_number+0(1) = 'P'.
poheader-doc_type = 'ZAP'.
ENDIF.
IF poheader-po_number IS INITIAL.
poheader-doc_type = 'ZAPS'.
ENDIF.
IF purchaseorder(3) <> c_pco.
g_t_poaccount[] = poaccount[].
* To retrieve the line items with blank GL Account Number
* PERFORM filter_items TABLES g_t_poaccount.
LOOP AT g_t_poaccount.
CLEAR g_msgv1.
g_msgv1 = g_t_poaccount-po_item.
* Please Enter an Account number for line
CALL FUNCTION 'BALW_BAPIRETURN_GET2'
EXPORTING
type = c_msgtype_e "E
cl = c_msgid_z001 "Z001
number = c_msgnr_037 "037
par1 = g_msgv1
IMPORTING
return = return.
SORT return BY type.
* On Error, exit the function module
READ TABLE return
WITH KEY type = c_msgtype_e "E
BINARY SEARCH.
IF sy-subrc EQ 0.
EXIT.
ENDIF.
***Begin of Change - BVIJAYA 01-July-2004 TPR-2239
* If line item is marked for deletion, Clear the final_inv indicator,
* so that the condition value[conditions tab(po header)] reflects the
* correct gross price for the remaining items.
SORT poitem BY po_item.
SORT poitemx BY po_item.
LOOP AT poitem.
IF NOT poitem-delete_ind IS INITIAL. "delete ind marked.
* sraman2 07/17/04
*For item deletion to work properly
*indicator should be 'D'. webmethods passes indicator 'X'.
poitem-delete_ind = 'D'.
* sraman2 07/17/04
CLEAR poitem-final_inv.
MODIFY poitem.
READ TABLE poitemx WITH KEY po_item = poitem-po_item.
IF sy-subrc = 0.
poitemx-final_inv = c_checked. "X
MODIFY poitemx INDEX sy-tabix.
ENDIF.
else.
ENDIF.
ENDLOOP.
endif.
if not poheader-currency is initial.
if not poheader-vendor is initial.
loop at pocond.
SELECT SINGLE WAERS
INTO L_WAERS
FROM LFM1 WHERE
LIFNR = POHEADER-VENDOR
AND EKORG = POHEADER-PURCH_ORG.
IF SY-SUBRC NE 0.
IF L_WAERS NE poheader-currency.
pocond-cond_value = 'PBXX'.
pocond-currency = l_waers.
modify pocond transporting cond_value currency.
endif.
ENDIF.
endloop.
ENDIF.
ENDIF.
IF NOT TESTRUN IS INITIAL.
POHEADER-VENDOR = '4259999999'.
poheader-doc_type = 'ZAPS'.
ENDIF.
if not poheader-currency is initial.
if not poheader-vendor is initial.
loop at pocond.
SELECT SINGLE WAERS
INTO L_WAERS
FROM LFM1 WHERE
LIFNR = POHEADER-VENDOR
AND EKORG = POHEADER-PURCH_ORG.
IF SY-SUBRC NE 0.
IF L_WAERS NE poheader-currency.
pocond-cond_value = 'PBXX'.
pocond-currency = l_waers.
modify pocond transporting cond_value currency.
endif.
ENDIF.
endloop.
ENDIF.
ENDIF.
IF NOT TESTRUN IS INITIAL.
POHEADER-VENDOR = '4259999999'.
poheader-doc_type = 'ZAPS'.
ENDIF.
READ TABLE t_yreturn WITH KEY type = 'E'.
IF sy-subrc = 0.
EXIT.
ENDIF.
*For Non-PCO Orders, do not update the GR and IR Indicator if the
*indicator passed in the current run is same as in PO.
SORT poitem BY po_item.
SORT poitemx BY po_item.
LOOP AT poitem.
SELECT SINGLE wepos "Goods receipt indicator
repos "Invoice receipt indicator
INTO (ekpo-wepos, ekpo-repos)
FROM ekpo
WHERE ebeln = purchaseorder AND
ebelp = poitem-po_item.
IF sy-subrc EQ 0.
IF ekpo-wepos EQ poitem-gr_ind.
READ TABLE poitemx
WITH KEY po_item = poitem-po_item
BINARY SEARCH.
IF sy-subrc EQ 0.
CLEAR poitemx-gr_ind.
MODIFY poitemx INDEX sy-tabix.
ENDIF.
ENDIF.
IF ekpo-repos EQ poitem-ir_ind.
READ TABLE poitemx
WITH KEY po_item = poitem-po_item
BINARY SEARCH.
IF sy-subrc EQ 0.
CLEAR poitemx-ir_ind.
MODIFY poitemx INDEX sy-tabix.
ENDIF.
ENDIF.
ENDIF.
ENDLOOP.
*Logic for addition, deletion and change of records in
*account assignment
LOOP AT poaccount.
CLEAR g_t_poaccount_tmp.
MOVE-CORRESPONDING poaccount TO g_t_poaccount_tmp.
APPEND g_t_poaccount_tmp.
ADD 1 TO g_cnt_poaccount.
AT END OF po_item.
SORT g_t_poaccount_tmp.
* For single account assignment, if the goods receipt is not posted,
* set the non-valuated indicator to blank.
IF g_cnt_poaccount EQ 1.
SELECT belnr "History per Purchasing Document
INTO ekbe-belnr
FROM ekbe
UP TO 1 ROWS
WHERE ebeln = purchaseorder AND
ebelp = g_t_poaccount_tmp-po_item AND
vgabe = 1.
ENDSELECT.
IF sy-subrc NE 0.
*PVU-08-May-2004 - Set the no valuated GR indicator to blank in POITEM
READ TABLE poitem
WITH KEY po_item = g_t_poaccount_tmp-po_item
BINARY SEARCH.
IF sy-subrc EQ 0.
CLEAR poitem-gr_non_val .
MODIFY poitem INDEX sy-tabix.
ENDIF.
*PVU-08-May-2004 - End of Set the no valuated GR indicator to blank
READ TABLE poitemx
WITH KEY po_item = g_t_poaccount_tmp-po_item
BINARY SEARCH.
IF sy-subrc EQ 0.
poitemx-gr_non_val = c_checked.
MODIFY poitemx INDEX sy-tabix.
ENDIF.
ENDIF.
ENDIF.
CLEAR: ekkn.
SELECT * FROM ekkn
WHERE ebeln = purchaseorder AND
ebelp = poaccount-po_item
ORDER BY zekkn.
ADD 1 TO g_cnt_ekkn.
**BV-12-July-2004- Begin of change - split line accounting
*clear the headerline before data population
CLEAR : g_t_poaccount1,
g_t_poaccountx1.
**BV-12-July-2004- End of change - split line accounting
READ TABLE g_t_poaccount_tmp INDEX g_cnt_ekkn.
IF sy-subrc EQ 0.
g_t_poaccount1-po_item = g_t_poaccount_tmp-po_item.
g_t_poaccount1-serial_no = ekkn-zekkn.
g_t_poaccount1-quantity = g_t_poaccount_tmp-quantity.
g_t_poaccount1-gl_account = g_t_poaccount_tmp-gl_account.
READ TABLE poitem
WITH KEY po_item = poaccount-po_item. "dd
*PVU-11-May-2004-Set cost center or WBS element depending on acc.assgn.
IF poitem-acctasscat = c_costcenter. "K
g_t_poaccount1-costcenter = g_t_poaccount_tmp-costcenter .
ELSEIF poitem-acctasscat = c_wbs. "P
g_t_poaccount1-wbs_element = g_t_poaccount_tmp-wbs_element.
ENDIF.
*PVU-11-May-2004-End of set cost center or WBS element.
g_t_poaccount1-orderid = g_t_poaccount_tmp-orderid.
g_t_poaccount1-distr_perc = g_t_poaccount_tmp-distr_perc.
APPEND g_t_poaccount1.
g_t_poaccountx1-po_item = g_t_poaccount_tmp-po_item.
g_t_poaccountx1-serial_no = ekkn-zekkn.
g_t_poaccountx1-po_itemx = c_checked.
g_t_poaccountx1-quantity = c_checked.
g_t_poaccountx1-gl_account = c_checked.
*PVU-11-May-2004-Set cost center or WBS element depending on acc.assgn.
IF poitem-acctasscat = c_costcenter. "K
g_t_poaccountx1-costcenter = c_checked.
ELSEIF poitem-acctasscat = c_wbs. "P
g_t_poaccountx1-wbs_element = c_checked.
ENDIF.
*PVU-11-May-2004-End of set cost center or WBS element.
g_t_poaccountx1-orderid = c_checked.
g_t_poaccountx1-distr_perc = c_checked.
APPEND g_t_poaccountx1.
*If line is deleted from account assignment in Ariba
*then delete that line from SAP PO
ELSE.
g_t_poaccount1-po_item = g_t_poaccount_tmp-po_item.
g_t_poaccount1-serial_no = ekkn-zekkn.
g_t_poaccount1-delete_ind = c_checked.
g_t_poaccount1-quantity = ekkn-menge.
g_t_poaccount1-gl_account = ekkn-sakto.
*PVU-11-May-2004-Set cost center or WBS element depending on acc.assgn.
IF poitem-acctasscat = c_costcenter. "K
g_t_poaccount1-costcenter = ekkn-kostl.
ELSEIF poitem-acctasscat = c_wbs. "P
g_t_poaccount1-wbs_element = ekkn-ps_psp_pnr.
ENDIF.
*PVU-11-May-2004-End of set cost center or WBS element.
g_t_poaccount1-orderid = ekkn-aufnr.
APPEND g_t_poaccount1.
g_t_poaccountx1-po_item = g_t_poaccount_tmp-po_item.
g_t_poaccountx1-serial_no = ekkn-zekkn.
g_t_poaccountx1-po_itemx = c_checked.
g_t_poaccountx1-delete_ind = c_checked.
g_t_poaccountx1-quantity = c_checked.
g_t_poaccountx1-gl_account = c_checked.
*PVU-11-May-2004-Set cost center or WBS element depending on acc.assgn.
IF poitem-acctasscat = c_costcenter. "K
g_t_poaccountx1-costcenter = c_checked.
ELSEIF poitem-acctasscat = c_wbs. "P
g_t_poaccountx1-wbs_element = c_checked.
ENDIF.
*PVU-11-May-2004-End of set cost center or WBS element.
g_t_poaccountx1-orderid = c_checked.
APPEND g_t_poaccountx1.
ENDIF.
SUBTRACT 1 FROM g_cnt_poaccount.
ENDSELECT.
**BV-12-July-2004- Begin of change - split line accounting
*clear the headerline before data population
CLEAR : g_t_poaccount1,
g_t_poaccountx1.
**BV-12-July-2004- End of change - split line accounting
* If new lines are added to account assignment in Ariba
* add those lines to SAP PO
IF g_cnt_poaccount GT 0.
g_cnt_ekkn = ekkn-zekkn.
SORT g_t_poaccount_tmp DESCENDING BY serial_no.
LOOP AT g_t_poaccount_tmp.
ADD 1 TO g_cnt_ekkn.
g_t_poaccount1-po_item = g_t_poaccount_tmp-po_item.
g_t_poaccount1-serial_no = g_cnt_ekkn.
g_t_poaccount1-quantity = g_t_poaccount_tmp-quantity.
g_t_poaccount1-gl_account = g_t_poaccount_tmp-gl_account.
*PVU-11-May-2004-Set cost center or WBS element depending on acc.assgn.
IF poitem-acctasscat = c_costcenter. "K
g_t_poaccount1-costcenter = g_t_poaccount_tmp-costcenter.
ELSEIF poitem-acctasscat = c_wbs. "P
g_t_poaccount1-wbs_element = g_t_poaccount_tmp-wbs_element.
ENDIF.
*PVU-11-May-2004-End of set cost center or WBS element.
g_t_poaccount1-orderid = g_t_poaccount_tmp-orderid.
g_t_poaccount1-distr_perc = g_t_poaccount_tmp-distr_perc.
APPEND g_t_poaccount1.
g_t_poaccountx1-po_item = g_t_poaccount_tmp-po_item.
g_t_poaccountx1-serial_no = g_cnt_ekkn.
g_t_poaccountx1-po_itemx = c_checked.
g_t_poaccountx1-quantity = c_checked.
g_t_poaccountx1-gl_account = c_checked.
*PVU-11-May-2004-Set cost center or WBS element depending on acc.assgn.
IF poitem-acctasscat = c_costcenter. "K
g_t_poaccountx1-costcenter = c_checked.
ELSEIF poitem-acctasscat = c_wbs. "P
g_t_poaccountx1-wbs_element = c_checked.
ENDIF.
*PVU-11-May-2004-End of set cost center or WBS element.
g_t_poaccountx1-orderid = c_checked.
g_t_poaccountx1-distr_perc = c_checked.
APPEND g_t_poaccountx1.
*For POs Converted from legacy system, populate the item quantity and
*price based on the original purchase order qty/price. Also, populate
*the actual qty and price passed by Ariba in the Net weight and gross
*weight fields.
LOOP AT poitem.
CLEAR: ekpo.
SELECT SINGLE menge "Purchase order quantity
netpr "Net price in PO
INTO (ekpo-menge, ekpo-netpr)
FROM ekpo
WHERE ebeln EQ purchaseorder AND
ebelp EQ poitem-po_item. "AND
IF sy-subrc EQ 0.
* Turn off Final Invoice Indicator if net price or quantity is higher
* than the existing value.
IF poitem-quantity GT ekpo-menge OR
poitem-net_price GT ekpo-netpr.
CLEAR poitem-final_inv.
READ TABLE poitemx
WITH KEY po_item = poitem-po_item
BINARY SEARCH.
IF sy-subrc EQ 0.
poitemx-final_inv = c_checked.
MODIFY poitemx INDEX sy-tabix.
ENDIF.
ENDIF.
MODIFY poitem.
ENDIF.
ENDLOOP.
*endif.
****Start of changes by Balaji V - 08-June-04
****Zero Pad and Prefix 1 to Vendor.
DATA : L_LENGTH TYPE I.
"Vendor string length.
* L_MSGV1 LIKE SY-MSGV1. "Message variable1
IF NOT POHEADER-VENDOR IS INITIAL.
*remove any leading zeros for vendor populated from webmethods
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
EXPORTING
INPUT = POHEADER-VENDOR
IMPORTING
OUTPUT = POHEADER-VENDOR.
L_LENGTH = STRLEN( POHEADER-VENDOR ).
IF L_LENGTH < 10.
*To pad leading zeros to Vendor
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = POHEADER-VENDOR
IMPORTING
OUTPUT = POHEADER-VENDOR.
*To replace first character with 1.
MOVE '1' TO POHEADER-VENDOR(1).
ELSE. "Vendor is 10 char in length
CLEAR L_MSGV1.
L_MSGV1 = POHEADER-VENDOR.
*Zero Padding and Prefixing 1 Not possible.Vendor is 10 Character
*length
CALL FUNCTION 'BALW_BAPIRETURN_GET2'
EXPORTING
TYPE = C_MSGTYPE_I "I
CL = C_MSGID_Z001 "Z001
NUMBER = C_MSGNR_040 "040
PAR1 = L_MSGV1
IMPORTING
RETURN = RETURN.
if not poheader-currency is initial.
if not poheader-vendor is initial.
loop at pocond.
SELECT SINGLE WAERS
INTO L_WAERS
FROM LFM1 WHERE
LIFNR = POHEADER-VENDOR
AND EKORG = POHEADER-PURCH_ORG.
IF SY-SUBRC NE 0.
IF L_WAERS NE poheader-currency.
pocond-cond_value = 'PBXX'.
pocond-currency = l_waers.
CALL FUNCTION 'BALW_BAPIRETURN_GET2'
EXPORTING
TYPE = c_msgtype_e
CL = c_msgid_z001
NUMBER = c_msgnr_619
PAR1 = L_CONST_NAME
PAR2 = L_COMP_CODE
IMPORTING
RETURN = RETURN.
APPEND RETURN.
CLEAR RETURN.
loop at return.
L_WA_ZERRORS-OBJECT = 'PURCHASE_ORDER'.
L_WA_ZERRORS-serial_no = sy-tabix.
L_WA_ZERRORS-COMP_CODE = poheader-comp_code.
L_WA_ZERRORS-zid = return-id.
L_WA_ZERRORS-znumber = return-number.
L_WA_ZERRORS-BEACON_DOC_NO = poheader-po_number.
L_WA_ZERRORS-SRC_DOC_NO = poheader-po_number.
L_WA_ZERRORS-ZDATE = sy-datum.
L_WA_ZERRORS-ERROR_MSG = return-message.
append L_WA_ZERRORS to t_errors.
* insert into ZP2P_ERRORS values L_WA_ZERRORS.
clear: L_WA_ZERRORS.
endloop.
EXIT.
ELSE.
POHEADER-PUR_GROUP = G_CONSTVAL.
ENDIF.
ENDIF.
**********************************************************
*mod-003
**********************************************************
IF purchaseorder(3) = c_pco. "PCO
*&------------------------------------------------------*&
*& Begin of Change: 26-Sep-2005 SDUTTARO RD1K910989 *&
*&------------------------------------------------------*&
* Map the external fields for ALZA with account assignment
* IF poheader-comp_code = c_bukrs_alza. "@SDR
**-- Retrieve Account Assignment
PERFORM get_account_assignment TABLES poitem "@SDR
poitemx "@SDR
poaccount "@SDR
poaccountx "@SDR
t_yreturn "@SDR
USING poheader-comp_code "@SDR
poheader. "@SDR
ENDIF.
*
*-- Round off to 100 percent due to small difference in one decimal
*-- point rounding (in Ariba/wM)
SORT poaccount BY po_item distr_perc.
LOOP AT poaccount.
ADD poaccount-distr_perc TO g_distr_perc.
AT END OF po_item.
*-- Round off to 100 percent due to small difference in one decimal
*-- point rounding (in Ariba/wM)
IF g_distr_perc GT 0.
g_distr_perc = 100 - g_distr_perc.
g_adjust_perc = c_checked.
ENDIF.
ENDAT.
IF g_adjust_perc = c_checked.
g_distr_perc1 = g_distr_perc + poaccount-distr_perc.
IF g_distr_perc1 = 100.
poaccount-distr_perc = 0.
ELSE.
poaccount-distr_perc = g_distr_perc1.
ENDIF.
MODIFY poaccount.
CLEAR poaccount.
CLEAR: g_distr_perc, g_distr_perc1.
ENDIF.
CLEAR g_adjust_perc.
ENDLOOP.
SORT poaccount.
SORT poschedule BY po_item sched_line.
SORT poschedulex BY po_item sched_line.
*PVU-20-May-2004 - Start Changes for SCR1
***************************************************
**MOD-003
**************************************************
*Populate the change indicator structures before calling BAPI_PO_CHANGE
*so that IDOC can be populated with this data
IF NOT poheaderx IS INITIAL.
g_w_hdrx_tmp = poheaderx.
ENDIF.
IF NOT poitemx[] IS INITIAL.
g_t_itemx_tmp[] = poitemx[].
ENDIF.
IF NOT poschedulex[] IS INITIAL.
g_t_schdx_tmp[] = poschedulex[].
ENDIF.
IF NOT poaccountx[] IS INITIAL.
g_t_accntx_tmp[] = poaccountx[].
ENDIF.
IF NOT pocondx[] IS INITIAL.
g_t_condx_tmp[] = pocondx[].
ENDIF.
***************************************************
**MOD-003
**************************************************
*PVU-20-May-2004 - End Changes for SCR1
*sraman2 06/28/04
*-- Default the Material Group to 99 if the incoming commodity
*-- code don't exist in SAP
LOOP AT poitem.
SELECT SINGLE matkl INTO t023-matkl FROM t023
WHERE matkl = poitem-matl_group.
IF sy-subrc NE 0.
MOVE: '99' TO poitem-matl_group.
MODIFY poitem.
ENDIF.
CLEAR poitem.
ENDLOOP.
*sraman2 06/28/04
*&---Begin of Addition: Soumya D Roy: 03/27/2006
* Logic for PO changes which are listed in table ZCONVERTEDPOS.
* ZCONVERTEDPOS contains Purchase Orders ie. both Material and
* Service which have either NONVAL GR checked or GR checked respectively
* and are invoiced. Any changes to these POs from Ariba would not let
* other quantity or amount or text description changes to flow into SAP.
* This piece of code will keep the Indicators' status same as in SAP
* and also let the user perform the change.
*Begin of change by svalidet RD1K911990
* IF purchaseorder+0(3) = '099'.
* IF purchaseorder+0(3) in r_ehub_pos[].
*End of change by svalidet RD1K911990
**************************************************************
*mod-003
**************************************************************
perform get_uom_conversion tables poitem
POITEMX
poaccount
poaccountx
poschedule
poschedulex
changing poheader
poheaderx.
**************************************************************
*mod-003
**************************************************************
*Populate the change indicator structures before calling BAPI_PO_CHANGE
*so that IDOC can be populated with this data
IF NOT poheaderx IS INITIAL.
g_w_hdrx_tmp = poheaderx.
ENDIF.
IF NOT poitemx[] IS INITIAL.
g_t_itemx_tmp[] = poitemx[].
ENDIF.
IF NOT poschedulex[] IS INITIAL.
g_t_schdx_tmp[] = poschedulex[].
ENDIF.
IF NOT poaccountx[] IS INITIAL.
g_t_accntx_tmp[] = poaccountx[].
ENDIF.
IF NOT pocondx[] IS INITIAL.
g_t_condx_tmp[] = pocondx[].
ENDIF.
***************************************************
**MOD-003
**************************************************
INSERT ZP2P_ERRORS FROM TABLE T_ERRORS.
ENDIF.
ELSE.
* CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
ENDIF.
*GENERATE CUSTOM RETURN MESSAGES BASED ON MESSAGE ID AND NUMBER FROM
*maintenance table ZMESSAGES
CALL FUNCTION 'Z_MM_BUILD_MESSAGES'
TABLES
return = return.
SORT return BY type id number.
READ TABLE return
WITH KEY id = space
number = c_msgnr_000 "000
BINARY SEARCH.
IF sy-subrc EQ 0 AND sy-tabix NE 1.
DELETE return INDEX sy-tabix.
INSERT return INDEX 1.
ENDIF.
SELECT max( serial_no )
INTO L_SERIAL
FROM ZP2P_ERRORS.
* regenerated at 11/22/2006 08:39:25 by AGHOSE
FUNCTION-POOL ZDEV MESSAGE-ID SV.
************************************************************************
* PROGRAM LZZ_M3_PURCHASEORDERTOP02
* TITLE Top include of Function group ZZ_M3_PURCHASEORDER
* AUTHOR
* DATE WRITTEN
* R/3 RELEASE
*-----------------------------------------------------------------------
* COPIED FROM N/A
*
* Tables and Data declaration used by function modules.
*
*-----------------------------------------------------------------------
* PROGRAM TYPE Include
* DEV. CLASS ZP2P
* LOGICAL DB N/A
*-----------------------------------------------------------------------
* SCREENS N/A
* GUl TITLE N/A
* GUl STATUS N/A
* TRANSACTIONS N/A
* USER EXITS N/A
*-----------------------------------------------------------------------
* CHANGE HISTORY
* Date By Correction Number & Brief Description Release
* 16-April-2004 BV RD1K906779 Initial Development 4.6C
* 20-May-2004 PVU SCR1 Changes to create IDOc when error 4.6C
* 27-May-2004 BV SCR2 Retrieve Acct Assgnmt from Z table 4.6C
* 08-04-04 RD1K907813 TPR-2289
* 26-sep-2005 SDUTTARO RD1K910316 Extending the Checkpoints 1, 2&3,
* create PO for multiple business unit
* specifically for Alza.
*-----------------------------------------------------------------------
*----------------------------------------------------------------------*
* DB-Tables
*----------------------------------------------------------------------*
TABLES: lfa1, "Vendor Master (General Section)
lfb1, "Vendor Master (Company Code)
lfm1, "Vendor master record purchasing organization data
t023. "Material groups
*PU-21/04/2004 - Added by Pranali for PO Change
TABLES : doktl, "Documentation - text lines
ekpo. "Purchasing Document Item
*----------------------------------------------------------------------*
* Constants
*----------------------------------------------------------------------*
*BV-29/04/2004 - Added by Balaji for PO Create
CONSTANTS : c_aribavendor(12) TYPE c VALUE 'ARIBA VENDOR',
c_n(1) TYPE c VALUE 'N', "Vendor flag
c_e(1) TYPE c VALUE 'E', "Message type
c_x(1) TYPE c VALUE 'X', "Constant 'X'
c_y(1) TYPE c VALUE 'Y', "Constant 'X'
**MOD-003
C_W1(1) TYPE C value 'W',
C_N1(1) TYPE C VALUE 'N',
C_A1(1) TYPE C VALUE 'A',
C_C1(1) TYPE C VALUE 'C',
C_P1 TYPE KNTTP VALUE 'P',
C_K1 TYPE KNTTP VALUE 'K',
C_NC TYPE PS_PRART VALUE 'NC',
c_gl_acc_po(20) type c value 'Z_P2P_GL_ACC_PO',
*MOD-003
c_us(2) TYPE c VALUE 'US', "Country
c_pco(3) TYPE c VALUE 'PCO', "PO Number prefix
c_001(3) TYPE c VALUE '001', "Message class
c_vend_actgrp(15) TYPE c VALUE 'ZRP_VEND_ACTGRP', "Acctgroup
c_vend_paytrm(15) TYPE c VALUE 'ZRP_VEND_PAYTRM', "Payterms
c_vend_recon(15) TYPE c VALUE 'ZRP_VEND_RECON', "ReconAcc
**Begin of change DDUTTA 26-June-2004 TPR 2220
c_vend_ekorg(15) type c value 'ZRP_EHUB_PURORG', "purch org
**End of change DDUTTA 26-June-2004 TPR 2220
c_na(2) TYPE c VALUE 'NA', "Document Class
c_cause(7) TYPE c VALUE '&CAUSE&', "Text line
c_as(2) TYPE c VALUE 'AS', "Documentation format
c_ampV(2) TYPE c VALUE '&V', "constant &V
c_amp(1) TYPE c VALUE '&', "Place holder &
c_msgid_Z001 LIKE sy-msgid VALUE 'Z001',"Message Class
c_msgtype_i TYPE bapi_mtype VALUE 'I', "Err Msg Type
c_msgtype_s TYPE bapi_mtype VALUE 'S',"Success Msg Typ
c_msgnr_038 TYPE SYMSGNO VALUE '038', "Message no.038
c_msgnr_039 TYPE SYMSGNO VALUE '039', "Message no.039
c_msgnr_040 TYPE SYMSGNO VALUE '040', "Message no.040
c_msgnr_041 TYPE SYMSGNO VALUE '041', "Message no.041
c_msgnr_042 TYPE SYMSGNO VALUE '042', "Message no.042
c_msgnr_043 TYPE SYMSGNO VALUE '043', "Message no.043
c_msgnr_044 TYPE SYMSGNO VALUE '044', "Message no.044
c_msgnr_347 TYPE SYMSGNO VALUE '347', "Message no.347
c_msgnr_613 TYPE SYMSGNO VALUE '613', "Message no.347
c_msgnr_619 TYPE SYMSGNO VALUE '619',
c_msgnr_620 TYPE SYMSGNO VALUE '620',
c_msgnr_621 TYPE SYMSGNO VALUE '621',
c_msgnr_622 TYPE SYMSGNO VALUE '622',
c_msgnr_623 TYPE SYMSGNO VALUE '623',
c_msgnr_624 TYPE SYMSGNO VALUE '624',
**Begin of change KKALDA 03-AUGUST-2004 TPR 2289
c_msgnr_047 TYPE SYMSGNO VALUE '047', "Message no.047
**End of change KKALDA 03-AUGUST-2004 TPR 2289
c_zero LIKE sy-subrc VALUE 0, "Zero
c_minusone LIKE sy-subrc VALUE -1, "Minus one
c_four LIKE sy-subrc VALUE 4. "Four
*BV-27-May-2004 - Begin of Changes for SCR2.
CONSTANTS :
c_acct_assign(15) TYPE c VALUE 'ZRP_ACCT_ASSIGN', "Acct assign
c_msgnr_045 TYPE SYMSGNO VALUE '045'. "Message no.045
*BV-27-May-2004 - End of Changes for SCR2.
*BV-08-July-2004 - Begin - Change error handling for ZXA_GET_CONSTANT
CONSTANTS : c_msgnr_046 TYPE SYMSGNO VALUE '046'. "Message no.046
*BV-08-July-2004 - End - Change error handling for ZXA_GET_CONSTANT
*PU-21/04/2004 - Added by Pranali for Vendor create
CONSTANTS : c_insert TYPE c VALUE 'I', "Insert Vendor
c_update TYPE c VALUE 'U', "Update Vendor
c_msgtype_e TYPE bapi_mtype VALUE 'E', "Error Message Type
c_checked(1) TYPE c VALUE 'X', "Checked flag
c_xk01 TYPE sytcode VALUE 'XK01', "XK01 transaction
c_xk02 TYPE sytcode VALUE 'XK02', "XK02 transaction
c_msgid_f2(2) TYPE c VALUE 'F2', "Message class F2
c_msgnr_175(3) TYPE c VALUE '175', "Message no. 175
c_msgnr_271(3) TYPE c VALUE '271', "Message no. 271
c_msgnr_173(3) TYPE c VALUE '173', "Message no. 173
c_msgnr_056(3) TYPE c VALUE '056', "Message no. 056
c_msgnr_614 TYPE SYMSGNO VALUE '614',
c_msgnr_615 TYPE SYMSGNO VALUE '615',
c_msgnr_616 TYPE SYMSGNO VALUE'616',
c_msgnr_617 TYPE SYMSGNO VALUE '617',
c_msgnr_404 TYPE SYMSGNO VALUE '404',
c_msgnr_618 TYPE SYMSGNO VALUE'618',
c_msgnr_644 TYPE SYMSGNO VALUE'644'.
CONSTANTS: C_VENDOR TYPE ELIFN VALUE '4259999999',
C_DOC_TYPE TYPE ESART VALUE 'ZAPS',
C_CURRENCY TYPE WAERS VALUE 'EUR',
C_NETPR TYPE NETPR VALUE '1.00'.
*PVU-07-May-2004 - Added by Pranali for PO change
Constants :
c_msgnr_000 type SYMSGNO value '000', "Message no. 000
c_msgnr_037 TYPE SYMSGNO VALUE '037', "Message no. 037
c_msgnr_634 TYPE SYMSGNO VALUE '634', "Message no. 634
c_costcenter(1) type c value 'K', "Acc.assgn - K
c_wbs(1) type c value 'P', "Acc.assgn - P
*PVU-20-May-2004 - Changes for SCR1
C_BUKRS TYPE ZCONSTNAME VALUE 'ZRP_COMPCODE', "Comp Code
C_SNDPOR TYPE ZCONSTNAME VALUE 'ZRP_SNDPOR', "Sender Port
C_SNDPRT TYPE ZCONSTNAME VALUE 'ZRP_SNDPRT', "Sender PartType
C_SNDPRN TYPE ZCONSTNAME VALUE 'ZRP_SNDPRN', "Sender Part No
C_RCVPOR TYPE ZCONSTNAME VALUE 'ZRP_RCVPOR', "Rec Port
C_RCVPRT TYPE ZCONSTNAME VALUE 'ZRP_RCVPRT', "Rec Part Type
C_RCVPRN TYPE ZCONSTNAME VALUE 'ZRP_RCVPRN', "Rec Part No
C_DIST_LIST TYPE ZCONSTNAME VALUE 'ZRP_DISTLIST', "Dist List
C_CREATE_IDOCTYP(8) type c value 'ZMMPOC01', "IDOC Basic Type
C_CREATE_MESTYP(6) type c value 'ZMMPOC', "IDOC Msg Type
C_CHANGE_IDOCTYP(8) TYPE C VALUE 'ZMMPOH01' , "IDOC Basic Type
C_CHANGE_MESTYP(6) TYPE C VALUE 'ZMMPOH', "IDOC Msg Type
C_SAPREL(3) TYPE C VALUE '46C', "SAP Release
C_IDOC_DIR(1) TYPE C VALUE '2', "IDOC direction
C_FLG_POCHANGE(4) type c value 'CHNG', "PO CHANGE FLAG
C_FLG_POCREATE(4) type c value 'CREA', "PO CREATE FLAG
c_sign(1) type c value 'I', "Ranges sign
c_option(2) type c value 'EQ', "Ranges option
*IDOC segments
C_Z1ZMMPOC(8) type c value 'Z1ZMMPOC',
C_Z1ZMMPOH(8) type c value 'Z1ZMMPOH',
C_Z1BPMEPOHEADER(14) type c value 'Z1BPMEPOHEADER',
C_Z1BPMEPOHEADERX(15) type c value 'Z1BPMEPOHEADERX',
C_Z1BPMEPOADDRVENDOR(18) type c value 'Z1BPMEPOADDRVENDOR',
C_Z1BPMEPOADDRVENDOR1(19) type c value 'Z1BPMEPOADDRVENDOR1',
C_Z1BPMEPOITEM(12) type c value 'Z1BPMEPOITEM',
C_Z1BPMEPOITEMX(13) type c value 'Z1BPMEPOITEMX',
C_Z1BPMEPOADDRDELIVERY(20) type c value 'Z1BPMEPOADDRDELIVERY',
C_Z1BPMEPOADDRDELIVERY1(21) type c value 'Z1BPMEPOADDRDELIVERY1',
C_Z1BPMEPOSCHEDULE(16) type c value 'Z1BPMEPOSCHEDULE',
C_Z1BPMEPOSCHEDULX(16) type c value 'Z1BPMEPOSCHEDULX',
C_Z1BPMEPOACCOUNT(15) type c value 'Z1BPMEPOACCOUNT',
C_Z1BPMEPOACCOUNTPROFITSEGMEN(27) type c value
'Z1BPMEPOACCOUNTPROFITSEGMEN',
C_Z1BPMEPOACCOUNTX(16) type c value 'Z1BPMEPOACCOUNTX',
C_Z1BPMEPOCOND(12) type c value 'Z1BPMEPOCOND',
C_Z1BPMEPOCONDX(13) type c value 'Z1BPMEPOCONDX',
C_E1BPESUHC(9) type c value 'E1BPESUHC',
C_E1BPESUCC(9) type c value 'E1BPESUCC',
C_E1BPESLLC(9) type c value 'E1BPESLLC',
C_E1BPESKLC(9) type c value 'E1BPESKLC',
C_E1BPESLLTX(10) type c value 'E1BPESLLTX',
C_E1BPPAREX(9) type c value 'E1BPPAREX',
*MOD-011
* c_object type zobject value 'PURCHASE_ORDER',
c_error(1) type c value 'E', "Error
c_ignore(1) type c value 'I', "Ignore
c_success(1) type c value 'S', "Success
c_1(1) type c value '1', "Serial Number
c_mesg_id(4) type c value 'Z001', "Message Id
* c_cred_note type ztrype value 'G', "Financial cred Note
c_doc_cur type curtp value '00', "Document Currency
c_loc_cur type curtp value '10'. "Local Currency
*MOD-011
*PVU-20-May-2004 - End Changes for SCR1
CONSTANTS: c_msgnr_066 TYPE symsgno VALUE '066', "@SDR
c_msgnr_067 TYPE symsgno VALUE '067', "@SDR
c_msgnr_071 TYPE symsgno VALUE '071', "@SDR
c_msgnr_072 TYPE symsgno VALUE '072', "@SDR
c_bukrs_alza TYPE bukrs VALUE '1155', "@SDR
c_zeros TYPE C VALUE '0', "@SDR
c_msgtype_w TYPE bapi_mtype VALUE 'W', "Warning @SDR
"Message @SDR
"Type @SDR
c_psgaw_cc TYPE kostl VALUE '54123'. "@SDR
CONSTANTS: c_p164(4) TYPE C VALUE 'P164', "@SDR
c_p165(4) TYPE C VALUE 'P165', "@SDR
c_p169(4) TYPE C VALUE 'P169', "@SDR
c_wbs_default TYPE zconstname VALUE 'Z_WBS_DEFAULT', "@SDR
c_4zeros(4) TYPE C VALUE '0000'. "@SDR
*&------------------------------------------------------*&
*& Begin of Addition: 03/27/2006 *&
*&------------------------------------------------------*&
* CONSTANTS: c_convpos TYPE zconstname VALUE 'CONVERTEDPOS%'.
* DATA: BEGIN OF t_zconstants OCCURS 0,
* bukrs TYPE bukrs,
* constname TYPE zconstname,
* constvalu TYPE zconstval,
* END OF t_zconstants,
*
* BEGIN OF t_zconvpos OCCURS 0,
* ebeln TYPE ebeln,
* ebelp TYPE ebelp,
* wepos TYPE wepos,
* weunb TYPE weunb,
* END OF t_zconvpos.
*&------------------------------------------------------*&
*& End of Addition: 03/27/2006 *&
*&------------------------------------------------------*&
*----------------------------------------------------------------------*
* Global variables
*----------------------------------------------------------------------*
DATA : g_flg_vendor TYPE c,
g_override TYPE c.
*BV-29/04/2004 - Added by Balaji for PO Create
DATA: g_distr_perc(5) TYPE p DECIMALS 1,
g_distr_perc1(5) TYPE p DECIMALS 1,
g_adjust_perc TYPE c.
*PU-21/04/2004 - Added by Pranali for Vendor create
DATA: g_mode LIKE ctu_params-dismode VALUE 'N', "Background Mode
g_update LIKE ctu_params-updmode VALUE 'S', "Update Mode
g_textmsg TYPE bapi_msg, "Message Text
g_text(200) TYPE c, "Message Text
*PVU-20-May-2004 - Changes for SCR1
g_idoc_no LIKE edidc-docnum. "IDOC number
*----------------------------------------------------------------------*
* Internal Tables
*----------------------------------------------------------------------*
DATA: t_zreturn LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
t_xlfas LIKE flfas OCCURS 0 WITH HEADER LINE,
t_xlfb5 LIKE flfb5 OCCURS 0 WITH HEADER LINE,
t_xlfbk LIKE flfbk OCCURS 0 WITH HEADER LINE,
t_xlfza LIKE flfza OCCURS 0 WITH HEADER LINE,
t_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
t_tempreturn LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
*BV-27-May-2004 - Begin of Changes for SCR2.
t_yreturn LIKE bapiret2 OCCURS 0 WITH HEADER LINE,
*BV-27-May-2004 - End of Changes for SCR2.
**BV- 30/04/2004 - Added by Balaji for PO Create
* t_znonpo_document LIKE znonpo_document OCCURS 0 WITH HEADER LINE,
* t_znonpo_acctg LIKE znonpo_acctg_struc OCCURS 0 WITH HEADER
* LINE.
*
*mod-009
*PU-21/04/2004 - Added by Pranali for PO Change
* DATA: t_messages LIKE zmessages OCCURS 0 WITH HEADER LINE,
*DATA: t_messages LIKE zp2p_messages OCCURS 0 WITH HEADER LINE,
*mod-009
*PVU-20-May-2004 - Changes for SCR1
g_t_idoc_data LIKE edi_dd40 OCCURS 0 WITH HEADER LINE.
*PVU-20-May-2004 - End Changes for SCR1
*PU-21/04/2004 - Added by Pranali for Vendor create
DATA: t_t_bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE, "BDC table
t_t_bdc_msg LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE. "BDC Msg.
*----------------------------------------------------------------------*
* Work Area/Structures
*----------------------------------------------------------------------*
DATA : w_lfa1 LIKE lfa1, "work area-Vendor Master (General Section)
w_lfb1 LIKE lfb1, "work area-Vendor Master (Company Code)
w_lfm1 LIKE lfm1, "work area-Vendor master (pur.org.data)
*PU-21/04/2004 - Added by Pranali for Vendor create
wa_return TYPE bapiret2, "Work area of return table
*PVU-20-May-2004 - Changes for SCR1
w_idoc_comm LIKE edi_dc40, "IDoc Control Record
w_syst_info LIKE syst. "ABAP System Fields
*mod-003*******************************************************
CONSTANTS :c_p2p_pur_org(20) type c VALUE 'Z_P2P_PUR_ORG'.
** DATA: L_WA_ZERRORS TYPE ZERRORS.
*DATA: L_WA_ZERRORS TYPE ZP2P_ERRORS.
*mod-003*******************************************************
* DATA: t_errors LIKE zerrors OCCURS 0 WITH HEADER LINE.
DATA: t_errors LIKE zp2p_errors OCCURS 0 WITH HEADER LINE.
*mod-003*******************************************************
DATA : L_CONST_NAME LIKE SY-MSGV1, "Constant name
L_COMP_CODE LIKE SY-MSGV2. "Company code
constants: c_po_werks(8) type c value 'PO_WERKS'.
DATA: t_t001w LIKE t001w OCCURS 0 WITH HEADER LINE,
t_ADRC LIKE ADRC OCCURS 0 WITH HEADER LINE.
data: l_belkz type ps_belkz.
*data: L_XSPEB type xspeb_anla.*
data: tbx TYPE SY-TABIX.
DATA: L_WA_ZERRORS TYPE ZP2P_ERRORS.
*M0D-011
* To hold error Entries
*DATA: t_error type standard table of zp2p_errors initial size 0.
** To post error records
*DATA: wa_error type zp2p_errors.
*MOD-011
INCLUDE LSVIMDAT . "general data decl.
INCLUDE LZDEVT00 . "view rel. data dcl.
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum You cannot attach files in this forum You cannot download files in this forum
All product names are trademarks of their respective companies. SAPNET.RU websites are in no way affiliated with SAP AG. SAP, SAP R/3, R/3 software, mySAP, ABAP, BAPI, xApps, SAP NetWeaver and any other are registered trademarks of SAP AG. Every effort is made to ensure content integrity. Use information on this site at your own risk.
