Questions in BAPI_PO_CREATE1

Question

In BAPI_PO_CREATE1 there are various tables like POITEM, POITEMX....
I wanted to know what is the purpose of the second table(POITEMX)...the documentation says its for the fields which have changed.
Can anyone kindly explain.

Answer 1

FUNCTION Z_BC1_BAPI_PO_CREATE02.
""Local Interface:
*"  IMPORTING
*"     VALUE(POHEADER) TYPE  BAPIMEPOHEADER
*"     VALUE(POHEADERX) TYPE  BAPIMEPOHEADERX
*"     VALUE(POADDRVENDOR) TYPE  BAPIMEPOADDRVENDOR
*"     VALUE(TESTRUN) TYPE  BAPIFLAG-BAPIFLAG
*"     VALUE(MEMORY_UNCOMPLETE) TYPE  BAPIFLAG-BAPIFLAG
*"     VALUE(MEMORY_COMPLETE) TYPE  BAPIFLAG-BAPIFLAG
*"     VALUE(POEXPIMPHEADER) TYPE  BAPIMEPOHEADER
*"     VALUE(POEXPIMPHEADERX) TYPE  BAPIMEPOHEADERX
*"     VALUE(VERSIONS) TYPE  BAPIMEDCM
*"     VALUE(NO_MESSAGING) TYPE  BAPIFLAG-BAPIFLAG
*"     VALUE(NO_MESSAGE_REQ) TYPE  BAPIFLAG-BAPIFLAG
*"     VALUE(NO_AUTHORITY) TYPE  BAPIFLAG-BAPIFLAG
*"     VALUE(NO_PRICE_FROM_PO) TYPE  BAPIFLAG-BAPIFLAG
*"  EXPORTING
*"     VALUE(EXPPURCHASEORDER) TYPE  BAPIMEPOHEADER-PO_NUMBER
*"     VALUE(EXPHEADER) TYPE  BAPIMEPOHEADER
*"     VALUE(EXPPOEXPIMPHEADER) TYPE  BAPIMEPOHEADER
*"  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  BAPIMEPOCOND
*"      POCONDHEADERX STRUCTURE  BAPIMEPOCONDX
*"      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  BAPIMEPOTEXT
*"      POTEXTITEM STRUCTURE  BAPIMEPOTEXT
*"      ALLVERSIONS STRUCTURE  BAPIMEDCM_ALLVERSIONS
*"      POPARTNER STRUCTURE  BAPIEKKOP
*"  EXCEPTIONS
*"      WRONG_FUNCTION_CALLED
*"      TIMEOUT
*"      TCPIP_ERROR
*"      CONNECT_FAILED
*"      INTERNAL_ERROR
*"      SYSTEM_FAILURE
*"      COMMUNICATION_FAILURE
Program   :    Z_BC1_BAPI_PO_CREATE01
TITLE          Function Module to create PO using BAPI
AUTHOR         Aveek Ghose, IBM
DATE WRITTEN   20-May-2006
R/3 RELEASE    4.6C
CTS:           RD1K912067
COPIED FROM    N/A
This function module is called during PR Creation in Ariba ( at
checkpoint1, checkpoint2 and checkpoint3) and also during posting of
PO in SAP. The call to this function module is from WebMethods.
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
       Local variables
  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',
               C_99     TYPE CHAR2 VALUE '99',
               C_00     TYPE CHAR2 VALUE '00'.
  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_LENGTH          TYPE I,        "Vendor string length.
         L_WBS_EXTERNAL    LIKE BAPIMEPOACCOUNT-WBS_ELEMENT,
                                           "WBS external format
         L_WBS_INTERNAL    LIKE BAPIMEPOACCOUNT-WBS_ELEMENT,
         L_bukrs type bukrs.
  DATA: l_werks1 type werks_d.
  "WBS internal format
*BV-08-July-2004 -Begin - Change error handling for zxa_get_constant
  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_WA_TIMESTAMP TYPE ZP2P_TIMESTAMP.
  DATA: l_serial_no LIKE poaccount-serial_no.
  DATA: L_SERIAL TYPE I.
  DATA: L_RETURN  TYPE C.
  DATA: L_EXIT TYPE I.
*BV-08-July-2004 -End - Change error handling for zxa_get_constant
       Internal Table
  DATA : T_TEMP_POACCOUNT LIKE POACCOUNT OCCURS 0 WITH HEADER LINE,
                                          "To store items with blank GL
*PVU-22-May-2004 - Start 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_SCHD_TMP     LIKE POSCHEDULE    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.
       Structure
  DATA: G_W_HDRX_TMP LIKE POHEADERX.
  DATA: p_constname TYPE  zconstname,  "Constant Name
        g_constval  TYPE  zconstval,   "Constant Value
        tbx         TYPE  SY-TABIX.
  data: l_waers type waers.
  DATA: L_EKORG TYPE EKORG.
*PVU-22-May-2004 - End Changes for SCR1
  CLEAR   : G_FLG_VENDOR,
start of change for TPR2220 - DDUTTA - 07/08/2004
            t_znonpo_document,
            t_znonpo_acctg,
End of change for TPR2220 - DDUTTA - 07/08/2004
*PVU-22-May-2004 - Start Changes for SCR1
            G_IDOC_NO,
            G_W_HDRX_TMP.
*PVU-22-May-2004 - End Changes for SCR1
  REFRESH : RETURN, T_ZRETURN,
start of change for TPR2220 - DDUTTA - 07/08/2004
            t_znonpo_document,
            t_znonpo_acctg,
End of change for TPR2220 - DDUTTA - 07/08/2004
*PVU-22-May-2004 - Start Changes for SCR1
            G_T_IDOC_DATA,
            G_T_ITEMX_TMP,
            G_T_SCHDX_TMP,
            G_T_ACCNTX_TMP,
            G_T_CONDX_TMP.
*PVU-22-May-2004 - End Changes for SCR1
Srini 17-May-2005 Start of changes
Developer Flexibility to debug issues
  p_constname = 'BAPI_PO_CREATE2'.
  do.
    CALL FUNCTION 'ZXA_GET_CONSTANT'
         EXPORTING
              const_name     = p_constname
            comp_code      = poheader-comp_code
         IMPORTING
              const_value    = g_constval
         EXCEPTIONS
              no_value_found = 1
              null_value     = 2
              OTHERS         = 3.
    if g_constval ne 'X'.
      exit.
    endif.
  enddo.
Add of change: SDR: 12-Aug-2005
IF poheader-po_number IS INITIAL.
   poheader-doc_type = 'ZEHS'.
else.
*mod-003
  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.
  DELETE FROM ZP2P_ERRORS WHERE BEACON_DOC_NO = POHEADER-PO_NUMBER.
  DELETE FROM ZP2P_ERRORS WHERE TYPE NE C_E.
DELETE FROM ZERRORS WHERE BEACON_DOC_NO = POHEADER-PO_NUMBER.
DELETE FROM ZERRORS WHERE TYPE NE C_E.
*MOD-004
  l_wa_timestamp-mandt          = SY-MANDT.
  l_wa_timestamp-EBELN          = POHEADER-PO_NUMBER.
  l_wa_timestamp-EBELP          = '00'.
  l_wa_timestamp-CREATE_TIMESTMP = POHEADER-ARIBACRTTIMESTMP.
  l_wa_timestamp-CREATE_TIMESTMP = POHEADER-ARIBACHGTIMESTMP.
  insert into ZP2P_TIMESTAMP values l_wa_timestamp.
*MOD-004
ENDIF.
*mod-003
*mod-003
if not poheader-comp_code is initial.
  if poheader-comp_code is initial.
    clear: l_bukrs.
   select single companycode
   into l_bukrs
   from zcompanycodes01
  where companycode = poheader-comp_code and
   where FSID        = poheader-fsid and
         le          = poheader-le and
         frmrc       = poheader-frmrc.
    select single companycode
    into l_bukrs
    from ZP2P_COMPANYCODE
    where FSID        = poheader-fsid and
          le          = poheader-le and
          frmrc       = poheader-frmrc.
    if sy-subrc ne 0.
      CLEAR L_MSGV1.
      L_MSGV1 = T_TEMP_POACCOUNT-PO_ITEM.
Please Enter an Account number for line
      CALL FUNCTION 'BALW_BAPIRETURN_GET2'
           EXPORTING
                TYPE   = C_MSGTYPE_E
                CL     = C_MSGID_Z001
                NUMBER = C_MSGNR_618
                PAR1   = L_MSGV1
           IMPORTING
                RETURN = RETURN.
      APPEND RETURN.
      CLEAR  RETURN.
    else.
      poheader-comp_code = l_bukrs.
    endif.
  endif.
*mod-003
End of Change: SDR: 12-Aug-2005
Srini 10-May-2005 Start of changes
Pass the value of SERIAL_NO from POACCOUNT to POACCOUNTX.
  LOOP AT POACCOUNTX.
    MOVE SY-TABIX to TBX.
    READ TABLE POACCOUNT INDEX TBX.
    IF SY-SUBRC EQ 0 AND POACCOUNTX-SERIAL_NO IS INITIAL.
      POACCOUNTX-SERIAL_NO = POACCOUNT-SERIAL_NO.
      MODIFY POACCOUNTX INDEX TBX.
    ENDIF.
  ENDLOOP.
Srini 10-May-2005 End of changes
Srini 17-May-2005 End of changes
  T_TEMP_POACCOUNT[] = POACCOUNT[].
To retrieve the line items with blank GL Account Number
  PERFORM FILTER_ITEMS TABLES T_TEMP_POACCOUNT.
  LOOP AT T_TEMP_POACCOUNT.
    CLEAR L_MSGV1.
    L_MSGV1 = T_TEMP_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   = L_MSGV1
         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-type       = return-type.
      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-ERR_MSG    = return-message.
      append l_wa_zerrors to t_errors.
    insert into zerrors values l_wa_zerrors.
      clear: l_wa_zerrors.
    endloop.
  ENDLOOP.
On Error, exit the function module
  READ TABLE RETURN WITH KEY TYPE = C_E.  " 'E'
  IF SY-SUBRC EQ 0.
    EXPHEADER = POHEADER.
    EXPHEADER-CODE = '99'.
    EXIT.
  ENDIF.
*MOD-005
On Error, exit the function module
l_exit = 0.
LOOP AT RETURN WHERE TYPE = C_E.
   L_EXIT = 1.
   expheader      = poheader.
   EXPHEADER-CODE = C_99.
   RETURN-RETURN_CODE = C_99.
   RETURN-SEQ_CODE    = C_99.
   MODIFY RETURN TRANSPORTING RETURN_CODE SEQ_CODE.
ENDLOOP..
IF L_EXIT = 1.
   EXIT.
ENDIF.
**MOD-005
*MOD-005
**MOD-004
L_RETURN = ' '..
LOOP AT RETURN WHERE TYPE = C_E.
   RETURN-RETURN_CODE = '99'.
   L_RETURN = C_X.
   MODIFY RETURN TRANSPORTING RETURN_CODE.
ENDLOOP.
IF L_RETURN = C_X.
   EXIT.
ENDIF.
**MOD-004
Begin of Change: Soumya D Roy: 12/27/2005
Forcibly refresh the T_YRETURN table as a part of the conversion
program since this table is not getting refreshed
  REFRESH t_yreturn.
  CLEAR   t_yreturn.
End of Change: Soumya D Roy: 12/27/2005
****BV-27-May-2004 - Begin of Changes for SCR2****
*mod-003
  DATA: L_TABIX TYPE SY-TABIX.
  LOOP AT POITEM.
    TBX = SY-TABIX.
    l_wa_timestamp-mandt          = SY-MANDT.
    l_wa_timestamp-EBELN          = POHEADER-PO_NUMBER.
    l_wa_timestamp-EBELP          = POITEM-PO_ITEM.
  l_wa_timestamp-CHANGE_IND     = 'A'.
    l_wa_timestamp-CREATE_TIMESTMP = POITEM-ARIBACRTTIMESTMP.
    l_wa_timestamp-CREATE_TIMESTMP = POITEM-ARIBAUPDTIMESTMP.
  l_wa_timestamp-DATE_TIME_STMP = POITEM-ARIBACRTTIMESTMP.
  insert into ZP2P_TIMESTAMP values l_wa_timestamp.
    insert into ZP2P_TIMESTAMP values l_wa_timestamp.
    clear: poheader-ARIBACRTTIMESTMP,
           poheader-ARIBACHGTIMESTMP.
    IF NOT POITEM-DISTRIB IS INITIAL.
      CLEAR : L_CONST_NAME,
              L_COMP_CODE.
      READ TABLE POACCOUNT INDEX L_TABIX.
      IF SY-SUBRC EQ 0.
        L_CONST_NAME  = POACCOUNT-GL_ACCOUNT.
        L_COMP_CODE   = L_comp_code.
        CALL FUNCTION 'BALW_BAPIRETURN_GET2'
             EXPORTING
                  type   = c_msgtype_e  "E
                  cl     = c_msgid_z001
                  number = c_msgnr_613
                  PAR1   = L_CONST_NAME
                  PAR2   = L_COMP_CODE
             IMPORTING
                  return = t_yreturn.
        APPEND t_yreturn.
        CLEAR  t_yreturn.
        loop at t_yreturn.
          l_wa_zerrors-OBJECT     = 'PURCHASE_ORDER'.
          l_wa_zerrors-serial_no   = sy-tabix.
          l_wa_zerrors-COMP_CODE  = poheader-comp_code.
          l_wa_zerrors-type       = t_yreturn-type.
          l_wa_zerrors-zid        = t_yreturn-id.
          l_wa_zerrors-znumber    = t_yreturn-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-ERR_MSG    = t_yreturn-message.
          append l_wa_zerrors to t_errors.
        insert into zerrors values l_wa_zerrors.
          clear: l_wa_zerrors.
        endloop.
      ENDIF.
    ENDIF.
  ENDLOOP.
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_type = '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-PURCH_ORG IS INITIAL.
  IF POHEADER-PURCH_ORG IS INITIAL.
    SELECT SINGLE PUR_ORG
    INTO L_EKORG
    FROM ZP2P_PURCHASEORG
  FROM ZPUR_ORG
    WHERE LE    = POHEADER-LE AND
          FRMRC = POHEADER-FRMRC AND
          FSID  = POHEADER-FSID.
    IF SY-SUBRC NE 0.
      CLEAR : L_CONST_NAME,
              L_COMP_CODE.
      L_CONST_NAME  = C_p2p_pur_ORG.
      L_COMP_CODE   = POHEADER-COMP_CODE.
      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 t_yreturn.
        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        = t_yreturn-id.
        l_wa_zerrors-type       = return-type.
        l_wa_zerrors-znumber    = t_yreturn-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-ERR_MSG    = return-message.
        append l_wa_zerrors to t_errors.
       insert into zerrors values l_wa_zerrors.
        clear: l_wa_zerrors.
      endloop.
      EXIT.
    ELSE.
      POHEADER-PURCH_ORG = L_EKORG.
    ENDIF.
  ENDIF.
IF NOT POHEADER-PUR_GROUP IS INITIAL.
  IF POHEADER-PUR_GROUP IS INITIAL.
    clear: g_constval.
    CALL FUNCTION 'ZXA_GET_CONSTANT'
         EXPORTING
              const_name     = c_p2p_pur_org
              comp_code      = POHEADER-COMP_CODE
         IMPORTING
              const_value    = g_constval
         EXCEPTIONS
              no_value_found = 1
              null_value     = 2
              OTHERS         = 3.
    IF SY-SUBRC NE 0.
      CLEAR : L_CONST_NAME,
              L_COMP_CODE.
      L_CONST_NAME  = C_p2p_pur_org.
      L_COMP_CODE   = POHEADER-COMP_CODE.
      CALL FUNCTION 'BALW_BAPIRETURN_GET2'
           EXPORTING
                TYPE   = c_msgtype_e
                CL     = c_msgid_z001
                NUMBER = c_msgnr_046
                PAR1   = L_CONST_NAME
                PAR2   = L_COMP_CODE
           IMPORTING
                RETURN = RETURN.
      APPEND RETURN.
      CLEAR  RETURN.
      loop at t_yreturn.
        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        = t_yreturn-id.
        l_wa_zerrors-type       = return-type.
        l_wa_zerrors-znumber    = t_yreturn-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-ERR_MSG    = return-message.
        append l_wa_zerrors to t_errors.
       insert into zerrors values l_wa_zerrors.
        clear: l_wa_zerrors.
      endloop.
      EXIT.
    ELSE.
      POHEADER-PUR_GROUP = G_CONSTVAL.
    ENDIF.
  ENDIF.
  LOOP AT poitem.
    if poitem-plant is initial.
      clear: l_werks1.
      select single plant
      into l_werks1
      from ZP2P_PLANTMAPING
    from zpo_plantmapping
      where COMPANY_CODE = poheader-comp_code and
          PUR_ORG      = poheader-purch_org and
          PUR_GROUP    = poheader-pur_group and
            LE           = poheader-le and
            FSID         = poheader-fsid and
            MRC          = poheader-mrc and
            FRMRC        = poheader-frmrc.
      if sy-subrc ne 0.
        PERFORM ERROR_HANDLING_PLANT USING   POHEADER
                                             poheader-comp_code
                                             L_WA_ZERRORS.
        EXIT.
      else.
        poitem-plant = l_werks1.
        CLEAR: L_WERKS1.
      endif.
    endif.
   IF POITEM-NET_PRICE NE POHEADER-CURRENCY.
     POITEM-NET_PRICE = POHEADER-CURRENCY.
   ENDIF.
*mod-004
    IF POITEM-net_price NE 0.
      POITEM-IR_IND = 'X'.
    ENDIF.
*mod-004
    IF POITEM-net_price eq 0.
      POITEM-IR_IND = 'X'.
    ENDIF.
*MOD-004
    if POITEM-GR_IND = C_Y..
      POITEM-GR_IND = C_X.
    ELSEIF POITEM-GR_IND = C_X.
      POITEM-GR_IND = C_X.
    ELSE.
      POITEM-GR_IND = ' '.
    endif.
*MOD-004
   if POITEM-GR_IND = 'Y'..
       POITEM-GR_IND = 'X'.
   endif.
    if POITEM-INCOTERMS1 is initial.
      POITEM-INCOTERMS1 = 'CIF'.
    endif.
    if POITEM-INCOTERMS2  is initial.
      POITEM-INCOTERMS2 = 'CIF'.
    endif.
    LOOP AT POACCOUNT WHERE PO_ITEM = POITEM-PO_ITEM.
      IF POITEM-DISTRIB IS INITIAL.
        POACCOUNT-DISTR_PERC = '0.00'.
        MODIFY POACCOUNT TRANSPORTING DISTR_PERC.
      ENDIF.
    ENDLOOP.
    POITEM-UNLIMITED_DLV = 'X'.
    POITEM-UNDER_DLV_TOL = 0.
    clear: poitem-ARIBACRTTIMESTMP,
           poitem-ARIBAUPDTIMESTMP.
    MODIFY POITEM TRANSPORTING UNLIMITED_DLV
                               UNDER_DLV_TOL
                               PLANT
                               IR_IND
                               GR_IND
                               INCOTERMS1
                               INCOTERMS2
                               ARIBACRTTIMESTMP
                               ARIBAUPDTIMESTMP.
  ENDLOOP.
*-- Retrieve Account Assignment
  PERFORM get_account_assignment TABLES   poitem
                                          poitemx
                                          poaccount
                                          poaccountx
                                          t_yreturn
                                 USING    poheader-comp_code
                                          poheader.
*mod-003
  IF NOT t_yreturn[] IS INITIAL.
    APPEND LINES OF t_yreturn TO RETURN.
*& Begin of Change: 26-Sep-2005 SDUTTARO RD1K910316     *&
    READ TABLE t_yreturn WITH KEY type = 'W'.
    IF sy-subrc <> 0.
      expheader = poheader.
      EXPHEADER-CODE = '99'.
    ENDIF.
**MOD-005
On Error, exit the function module
   l_exit = 0.
   LOOP AT RETURN WHERE TYPE = C_E.
     L_EXIT = 1.
     expheader      = poheader.
     EXPHEADER-CODE = '99'.
     RETURN-RETURN_CODE = C_99.
     RETURN-SEQ_CODE    = C_99.
     MODIFY RETURN TRANSPORTING RETURN_CODE SEQ_CODE.
   ENDLOOP..
   IF L_EXIT = 1.
     EXIT.
   ENDIF.
**MOD-005
*& End of Change: 26-Sep-2005 SDUTTARO RD1K910316       *&
  ENDIF.
*mod-003
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_type = 'PBXX'.
           pocond-currency    = l_waers.
           modify pocond transporting cond_value currency.
         endif.
       ENDIF.
     endloop.
   ENDIF.
ENDIF.
*currency check MOD-004
DATA:   l_header TYPE REF TO cl_po_header_handle_mm,
         l_item   TYPE REF TO cl_po_item_handle_mm,
         l_tkomv  TYPE STANDARD TABLE OF komv INITIAL SIZE 10,
         l_item_conditions_changed TYPE mmpur_bool.
header level pocond data
   CHECK NOT l_item IS INITIAL.
   CHECK NOT l_item->po_item_number IS INITIAL.
   l_header ?= l_item->my_parent.
   CALL METHOD l_header->get_tkomv IMPORTING
            ex_tkomv              = l_tkomv.
   l_item_conditions_changed = mmpur_no.
   PERFORM pai_item_conditions IN PROGRAM saplmepo
                  TABLES   l_tkomv
                  USING    poitem-po_item
                  CHANGING l_item_conditions_changed.
   IF NOT l_item_conditions_changed IS INITIAL.
     CALL METHOD l_header->set_tkomv EXPORTING
               im_tkomv                   = l_tkomv
               im_item_conditions_changed = l_item_conditions_changed.
Item level POCOND data
  LOOP AT POITEM.
*.     CALL FUNCTION 'MEPO_DOC_PBO_ITEM_CONDITIONS'
        EXPORTING
             im_ebelp      = poitem-po_item
        EXCEPTIONS
             error_message = 1.
  ENDLOOP.
   ENDIF.
*currency check mod-004
*MOD-003
  IF NOT TESTRUN IS INITIAL.
    POHEADER-VENDOR = '4259999999'.
    poheader-doc_type = 'ZAPS'.
  ENDIF.
*MOD-003
IF NOT POHEADER-PURCH_ORG IS INITIAL.
  IF POHEADER-PURCH_ORG IS INITIAL.
    SELECT SINGLE PUR_ORG
    INTO L_EKORG
  FROM ZPUR_ORG
    FROM ZP2P_PURCHASEORG
    WHERE LE    = POHEADER-LE AND
          FRMRC = POHEADER-FRMRC AND
          FSID  = POHEADER-FSID.
    IF SY-SUBRC NE 0.
      CLEAR : L_CONST_NAME,
              L_COMP_CODE.
      L_CONST_NAME  = C_p2p_pur_ORG.
      L_COMP_CODE   = POHEADER-COMP_CODE.
      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 t_yreturn.
        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        = t_yreturn-id.
        l_wa_zerrors-type       = return-type.
        l_wa_zerrors-znumber    = t_yreturn-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-ERR_MSG    = t_yreturn-message.
        append l_wa_zerrors to t_errors.
       insert into zerrors values l_wa_zerrors.
        clear: l_wa_zerrors.
      endloop.
      EXIT.
    ELSE.
      POHEADER-PURCH_ORG = L_EKORG.
    ENDIF.
  ENDIF.
IF NOT POHEADER-PUR_GROUP IS INITIAL.
  IF POHEADER-PUR_GROUP IS INITIAL.
    clear: g_constval.
    CALL FUNCTION 'ZXA_GET_CONSTANT'
         EXPORTING
              const_name     = c_p2p_pur_org
              comp_code      = POHEADER-COMP_CODE
         IMPORTING
              const_value    = g_constval
         EXCEPTIONS
              no_value_found = 1
              null_value     = 2
              OTHERS         = 3.
    IF SY-SUBRC NE 0.
      CLEAR : L_CONST_NAME,
              L_COMP_CODE.
      L_CONST_NAME  = C_p2p_pur_org.
      L_COMP_CODE   = POHEADER-COMP_CODE.
      CALL FUNCTION 'BALW_BAPIRETURN_GET2'
           EXPORTING
                TYPE   = c_msgtype_e
                CL     = c_msgid_z001
                NUMBER = c_msgnr_046
                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-type       = return-type.
        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-ERR_MSG    = return-message.
        append l_wa_zerrors to t_errors.
       insert into zerrors values l_wa_zerrors.
        clear: l_wa_zerrors.
      endloop.
      EXIT.
    ELSE.
      POHEADER-PUR_GROUP = G_CONSTVAL.
    ENDIF.
  ENDIF.
*MOD-004
  LOOP AT POACCOUNT.
    if POACCOUNT-COSTCENTER EQ '0000000000' OR
       POACCOUNT-COSTCENTER EQ '0'.
      POACCOUNT-COSTCENTER = ' '.
      MODIFY POACCOUNT.
    endif.
  ENDLOOP.
*MOD-004
*MOD-003
  IF NOT TESTRUN IS INITIAL.
    L_SERIAL_NO = 0.
    L_TABIX = 0.
    POHEADER-VENDOR = C_VENDOR.
    poheader-doc_type = C_DOC_TYPE.
    poheader-comp_code = l_bukrs.
    POHEADER-DOC_DATE = SY-DATUM.
    POHEADER-CURRENCY = C_CURRENCY.
    POHEADER-NETPR = C_NETPR.
    LOOP AT POACCOUNT.
      L_TABIX = L_TABIX + 1.
      LOOP AT POITEM.
        if POACCOUNT-PO_ITEM is initial.
          POACCOUNT-PO_ITEM = SY-TABIX.
        endif.
        if POACCOUNT-SERIAL_NO  is initial.
          POACCOUNT-SERIAL_NO = L_TABIX.
        endif.
        MODIFY POACCOUNT.
      ENDLOOP.
    ENDLOOP.
*MOD-004
    IF POCOND[] IS INITIAL and
       NOT TESTRUN IS INITIAL.
     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.
      LOOP AT POITEM.
        pocond-itm_number  = poitem-po_item.
        POCOND-COND_ST_NO  = SY-TABIX.
        POCOND-COND_COUNT  = SY-TABIX.
        pocond-cond_value  = poitem-net_price.
        pocond-cond_type   = 'PBXX'.
        POCOND-CHANGE_ID   = 'I'.
        if not pocond-currency is initial.
          pocond-currency    = l_waers.
        endif.
        POCONDHEADER-itm_number  = poitem-po_item.
        POCONDHEADER-COND_ST_NO  = SY-TABIX.
        POCONDHEADER-COND_COUNT  = SY-TABIX.
        pocondHEADER-cond_value  = poitem-net_price.
        pocondHEADER-cond_type   = 'PBXX'.
        POCONDHEADER-CHANGE_ID   = 'I'.
        if not pocond-currency is initial.
          pocondHEADER-currency    = l_waers.
        endif.
        APPEND: POCOND,POCONDHEADER.
        CLEAR: POCOND, POCONDHEADER.
      ENDLOOP.
       endif.
     ENDIF.
    ENDIF.
*MOD-004
    IF POITEM[] IS INITIAL.
      POITEM-SHORT_TEXT = 'Simulation'(001).
      if poitem-plant is initial.
        clear: l_werks1.
        select single plant
        into l_werks1
      from zpo_plantmapping
        from zp2p_plantmaping
        where COMPANY_CODE = poheader-comp_code and
             PUR_ORG      = poheader-purch_org and
             PUR_GROUP    = poheader-pur_group and
              LE           = poheader-le and
              MRC          = poheader-mrc and
              FSID         = poheader-fsid and
              FRMRC        = poheader-frmrc.
        IF SY-SUBRC = 0.
          poitem-plant = l_werks1.
        ENDIF.
      endif.
      if poitem-po_item is initial.
        POITEM-PO_ITEM = L_TABIX.
      endif.
      if poitem-plant is initial.
        poitem-plant = l_werks1.
      endif.
      if POITEM-MATL_GROUP is initial.
        POITEM-MATL_GROUP = '99'.
      endif.
      if  POITEM-QUANTITY is initial.
        POITEM-QUANTITY = '1'.
      endif.
      if POITEM-PO_UNIT is initial.
        POITEM-PO_UNIT = 'EA'.
      endif.
      if POITEM-ORDERPR_UN is initial.
        POITEM-ORDERPR_UN = 'EA'.
      endif.
      if POITEM-NET_PRICE is initial.
        POITEM-NET_PRICE = '1.00'.
      endif.
      if POITEM-PRICE_UNIT is initial.
        POITEM-PRICE_UNIT = '1.00'.
      endif.
     if POITEM-DISTRIB is initial.
       POITEM-DISTRIB = ' '.
     endif.
     if POITEM-PART_INV is initial.
       POITEM-PART_INV = ' '.
     endif.
*MOD-004
      if POITEM-GR_IND = C_Y..
        POITEM-GR_IND = C_X.
      ELSEIF POITEM-GR_IND = C_X.
        POITEM-GR_IND = C_X.
      ELSE.
        POITEM-GR_IND = ' '.
      endif.
*MOD-004
**MOD-004
     if POITEM-GR_IND is initial or
        POITEM-GR_IND = c_y.
        POITEM-GR_IND = c_x.
     ELSE.
       POITEM-GR_IND = ' '.
     ENDIF.
**MOD-004
      if POITEM-IR_IND  is initial.
        POITEM-IR_IND = 'X'.
      endif.
      if POITEM-INCOTERMS1 is initial.
        POITEM-INCOTERMS1 = 'CIF'.
      endif.
      if POITEM-INCOTERMS2  is initial.
        POITEM-INCOTERMS2 = 'CIF'.
      endif.
      if POITEM-PREQ_ITEM is initial.
        POITEM-PREQ_ITEM  = '123456'.
      endif.
      APPEND POITEM.
      CLEAR: POITEM.
    ENDIF.
     if POACCOUNT-PO_ITEM is initial.
       POACCOUNT-PO_ITEM = SY-TABIX.
     endif.
     if POACCOUNT-SERIAL_NO  is initial.
       POACCOUNT-SERIAL_NO = L_TABIX.
     endif.
     MODIFY POACCOUNT.
   ENDIF.
ENDLOOP.
    PERFORM get_account_assignment TABLES   poitem
                                            poitemx
                                            poaccount
                                            poaccountx
                                            t_yreturn
                                   USING    poheader-comp_code
                                            poheader.
    IF NOT t_yreturn[] IS INITIAL.
      APPEND LINES OF t_yreturn TO RETURN.
      READ TABLE t_yreturn WITH KEY type = 'W'.
      IF sy-subrc <> 0.
        EXPHEADER = POHEADER.
        EXPHEADER-CODE = '99'.
        SELECT max( serial_no )
        INTO L_SERIAL
        FROM ZP2P_ERRORS.
        LOOP AT T_ERRORS.
          L_SERIAL = L_SERIAL + 1.
          T_ERRORS-serial_no = L_SERIAL.
          MODIFY T_ERRORS TRANSPORTING serial_no.
        ENDLOOP.
      INSERT ZERRORS FROM TABLE T_ERRORS.
        INSERT ZP2P_ERRORS FROM TABLE T_ERRORS.
**MOD-005
On Error, exit the function module
       l_exit = 0.
       LOOP AT RETURN WHERE TYPE = C_E.
         L_EXIT = 1.
         EXPHEADER = POHEADER.
         EXPHEADER-CODE = '99'.
         RETURN-RETURN_CODE = C_99.
         RETURN-SEQ_CODE    = C_99.
         MODIFY RETURN TRANSPORTING RETURN_CODE SEQ_CODE.
       ENDLOOP.
       IF L_EXIT = 1.
         EXIT.
       ENDIF.
**MOD-005
        EXIT.
      ENDIF.
    ENDIF.
    PERFORM GET_INCOTERMS_LINE_ITEM  tables   poitem
                                   using    poheader.
    perform get_uom_conversion  tables poitem
                                      POITEMX
                                      poaccount
                                      poaccountx
                                      poschedule
                                      poschedulex
                                      pocond
                                      pocondx
                                      Pocondheader
                                      pocondheaderx
                             changing poheader
                                      poheaderx.
  ENDIF.
*mod-003
****BV-27-May-2004 - End of Changes for SCR2****
*sraman2 10/14/04
  IF POHEADER-PO_NUMBER(3) = C_PCO.
   DATA: l_serial_no LIKE poaccount-serial_no.
    loop at POACCOUNT.
      ADD 1 TO l_serial_no.
      POACCOUNT-SERIAL_NO = l_serial_no.
      modify POACCOUNT.
    endloop.
  endif.
*sraman2 10/14/04
  SORT POACCOUNT BY PO_ITEM.
  LOOP AT POACCOUNT.
    check poheader-quotation+0(2) ne 'CR' and
    poheader-quotation+0(2) ne 'UT'.
    IF NOT POACCOUNT-WBS_ELEMENT IS INITIAL. "line item posting to
      "WBS element
      CLEAR L_MSGV1.
      L_MSGV1 = POACCOUNT-PO_ITEM.
Mod-004
    Line Item NOT eligible for PCARD
     CALL FUNCTION 'BALW_BAPIRETURN_GET2'
          EXPORTING
               TYPE   = C_MSGTYPE_I  "I
               CL     = C_MSGID_Z001                       "Z001
               NUMBER = C_MSGNR_038  "038
               PAR1   = L_MSGV1
          IMPORTING
               RETURN = RETURN.
     APPEND RETURN.
     CLEAR  RETURN.
*mod-004
      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-type       = return-type.
        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-ERR_MSG    = return-message.
        append l_wa_zerrors to t_errors.
      insert into zerrors values l_wa_zerrors.
        clear: l_wa_zerrors.
      endloop.
      clear: l_wa_zerrors.
    ELSE.
      IF NOT POACCOUNT-COSTCENTER IS INITIAL.
        "line item posting to cost center.
        READ TABLE POITEM WITH KEY PO_ITEM = POACCOUNT-PO_ITEM.
        IF SY-SUBRC = 0.
          IF NOT POITEM-DISTRIB IS INITIAL.
            CLEAR L_MSGV1.
            L_MSGV1 = POACCOUNT-PO_ITEM.
*Mod-004
          Line Item NOT eligible for PCAR