Generate 2 line items with posting keys in same table while using FM .

Question

Dear Expert ,
For T-code f-65 ,I have to park a FI Document  .i tried with PRELIMINARY_POSTING_FB01 for parked Document . But  i am not  successfully park the document .
with the help of F-65 the data Segregate between Tables VBSEGS and VBSEGD with respecting Posting key . but with this Fm entire entry is displaying in table VBSEGS .For example it generated two line items with posting keys '15' and '40' and these both are displayed in VBSEGS whereas posting key '15' has to be displayed in VBSEGD.
when i check this Document in FBV0 Error reflect " G/L Account 0012000 1001 Does not Exist ".
Here my code -
DATA:   XT_BKPF LIKE  BKPF OCCURS 0 WITH HEADER LINE ,
        XT_BSEG LIKE  BSEG OCCURS 0 WITH HEADER LINE ,
        XT_BSEG1 LIKE  BSEG OCCURS 0 WITH HEADER LINE ,
        XT_BSEC LIKE  BSEC OCCURS 0 WITH HEADER LINE ,
        XT_BSET LIKE  BSET OCCURS 0 WITH HEADER LINE ,
        XT_BSEZ LIKE  BSEZ  OCCURS 0 WITH HEADER LINE ,
        XT_BKORM  LIKE  BKORM OCCURS 0 WITH HEADER LINE ,
        XT_THEAD  LIKE  THEAD OCCURS 0 WITH HEADER LINE ,
        XT_SPLTTAB  LIKE  ACSPLT  OCCURS 0 WITH HEADER LINE ,
        XT_SPLTWT LIKE  WITH_ITEMX  OCCURS 0 WITH HEADER LINE .
DATA :    XTEXT_UPDATE  LIKE  BOOLE-BOOLE VALUE SPACE,
          XTEXT_ITEM_UPDATE LIKE  BOOLE-BOOLE VALUE SPACE,
          XI_UF05A  LIKE  UF05A,
          XI_XCMPL  TYPE  XFELD VALUE 'X',
          XFS006_FB01 LIKE  FS006 ,
          XI_TCODE  LIKE  T020-TCODE  VALUE 'F-65',
          XI_PARGB  LIKE  RF05A-PARGB        ,
          XI_TCODE_INT  TYPE  TCODE           .
DATA P_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
XT_BKPF-BUKRS     =     'CP01'.
XT_BKPF-GJAHR     =     2011.
XT_BKPF-BLART     =     'DZ'.
XT_BKPF-BLDAT     =     SY-DATUM.
XT_BKPF-BUDAT     =     SY-DATUM.
XT_BKPF-MONAT     =     '06'.
XT_BKPF-CPUDT     =     SY-DATUM.
XT_BKPF-WWERT     = SY-DATUM.
XT_BKPF-USNAM     =     'ABAPER'.
XT_BKPF-TCODE     =     'F-65'.
APPEND XT_BKPF.
XT_BSEG-BUKRS     =     'CP01'.
XT_BSEG-GJAHR     =     '2011'.
XT_BSEG-BUZEI = '001'.
XT_BSEG-BSCHL = '40'.
XT_BSEG-KOART = 'S'.
XT_BSEG-SHKZG = 'S' .
XT_BSEG-GSBER     =     'CPLN'.
XT_BSEG-BUPLA = 'CP01'.
XT_BSEG-WRBTR     =     10000.
XT_BSEG-PSWSL = 'INR'.
XT_BSEG-ZUONR = 'CH. 123456'.
XT_BSEG-HKONT = '241000'.
APPEND XT_BSEG .
CLEAR  XT_BSEG.
Vendor line item - required even for header only - BSEG table
XT_BSEG-BUKRS     =     'CP01'.
XT_BSEG-GJAHR     =     '2011'.
XT_BSEG-BUZEI = '002'.
XT_BSEG-BSCHL = '15'.
XT_BSEG-KOART = 'S'.
XT_BSEG-SHKZG = 'H' .
XT_BSEG-GSBER     =     'CPLN'.
XT_BSEG-BUPLA = 'CP01'.
XT_BSEG-WRBTR     =     10000.
XT_BSEG-PSWSL = 'INR'.
XT_BSEG-ZUONR = 'CH. 123456'.
XT_BSEG-HKONT = 'PC04000001'.
APPEND XT_BSEG .
CLEAR  XT_BSEG.
  CALL FUNCTION 'PRELIMINARY_POSTING_FB01'
   EXPORTING
     TEXT_UPDATE            = XTEXT_UPDATE
     TEXT_ITEM_UPDATE       = XTEXT_ITEM_UPDATE
  I_UF05A                =
     I_XCMPL                = XI_XCMPL
  FS006_FB01             =
      I_TCODE                = XI_TCODE
  I_PARGB                =
  I_TCODE_INT            =
  IMPORTING
    XEPBBP                 = CHECK_A
    TABLES
      T_BKPF                 = XT_BKPF
      T_BSEG                 = XT_BSEG
      T_BSEC                 = XT_BSEC
      T_BSET                 = XT_BSET
      T_BSEZ                 = XT_BSEZ
  T_BKORM                =
  T_THEAD                =
  T_SPLTTAB              =
  T_SPLTWT               =
          EXCEPTIONS
            ERROR_MESSAGE = 1.
  P_RETURN-ID         = SY-MSGID.
  P_RETURN-TYPE       = SY-MSGTY.
  P_RETURN-NUMBER     = SY-MSGNO.
  APPEND P_RETURN.
     p_return-MESSAGE_V1 = XSYMSGV.
  IF SY-SUBRC = 0.
    CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
      EXPORTING
        WAIT = 'X'.
  ENDIF.
  WRITE :/ sy-subrc , sy-MSGV1 .
Thanks ,
Ashish Gupta

Answer 1

Hi Raghuram,
I found a very important SAP Note 103051, details are below.
An IDoc processed by function module IDOC_INPUT_INVOIC_MM (of category INVOIC01) must not refer to the same purchase order item in several invoice items. This is also valid if for a goods receipt-related invoice verification several delivery notes belong to the same purchase order item.
Depending on the system settings and the situation, various error messages can occur (for example, FD240 'Order item ... selected more than once' or M8050 'Balance not zero: & debits: & credits: &').
In this situation module IDOC_INPUT_INVOIC_MRM generates error message M8321 'Document contains same order item more than once'.
For example, this situation occurs if you work with individual batch valuation and the SD billing document executes a batch split for different batches which belong to the same purchase order item and delivery.
Other terms
INVOIC, SAPLIEDI,  M8047, M8, 321
Reason and Prerequisites
This is because of the program design.
Solution
There is no solution for IDOC_INPUT_INVOIC_MM.
Module IDOC_INPUT_INVOIC_MRM (only as of Release 4.0) for the logistics invoice verification can distinguish different goods receipts by means of the delivery note number. For this purpose, GR-related invoice verification must be active.
Owing to this symptom, billing documents for single batch valuation with batch split cannot be settled in MM-EDI inbound processing. The settlement generates exactly the situation described (several invoice items for the same purchase order item). In this case, the only solution is to deactivate the billing of the batch sub-items in SD Customizing and to calculate the main item only.
Hope this helps.
Reward if helpful.
Thanks