Updating Planning Groups in line items

Dear SAPers
We have updated the Vendor Master Data with revised planning groups. Can you please tell me how the documents already posted can be updated with the new planning group.
For example in FBL1N and FNL5N the new planning groups are visable for new postings.
As always your feedback is appreciated.
Thank you
Peter

Dear Peter,
please insert the field into table V_TBAER. Then please try to change it by FB02. If You're able to do it, please check the note 640908 in order to do it in a massive way. Please remember to run the RFFDKO00 to correct the Cash Management tables as well. Please read the report documentation first.
I hope this helps You.
Mauri

Similar Messages

BAPI_SALESORDER_CREATEFROMDAT2 ...not updating quantity of all line items

Hi All,
I'm using BAPI_SALESORDER_CREATEFROMDAT2 to create a sales order where order type is having multiple line items.
All the fields are being updated in SAP correctly . But quantity field is updated only for first line item. For all other items, all fields are being updated except quantity. I checked in Debugging and all the values for all line items are coming correct.
Pls suggest me.
Thanks in advance..
Rudresh
Mumbai

Hi Rudresh
Please check if you are passing Schedule lines for the same.
Itz better if you pass item number for ORDER_ITEMS_IN. Use the same as reference for ORDER_ITEMS_INX, ORDER_SCHEDULES_IN, ORDER_SCHEDULES_INX, ORDER_CONDITIONS_IN, ORDER_CONDITIONS_INX.
Kind Regards
Eswar

Invoice text(SGTXT) is not updating in payment proposal line items

Hi,
While doing payment proposal in F110, invoice text is not updating in payment proposal line items, which is available in ‘BSIK’ table.
Please find the attached screen shot. Please give me suggestions How to resolve this issue.

Hi,
The other line item accounts are revaluation accounts. So when there is no exchange rate, the amounts are zero.
Ezhil.

Group PO line item in Shopping cart

Hi All,
Currently SRM has some criteria to split the PO and if the contract number is different then it splits the SC item to create 2 different PO, But as per our requirement even SC has two items with same vendor, pur org,etc... but different contract number then it should create 1 PO in the backend system.
Badi:
I have tried BBP_SC_TRANSFER_BE-GROUP_PO but CT_PROCITEM is empty
So i tried with this BADI BBP_BS_GROUP_BE, but BBP_BS_GROUP_BE--GROUP_PO_BACKEND is called item by item.... if there is 2 items then it is called 2 times ... with single current records...
Please help me So how to group the line items.
We are in SRM 7.0 and we are using classic scenario
Regards,
Rama.

Dear Poster,
As no response has been provided to the thread in some time I must assume the issue is resolved, if the question is still valid please create a new thread rephrasing the query and providing as much data as possible to promote response from the community.
Best Regards,
SDN SRM Moderation Team

Activate Integrated Planning for Cost Line Items posting

Hi all,
Based on this SAP Help link, there are two ways to create plan line items:
1) By adding the business transaction "Plan line items" to the user status of the WBS Element.
2) By activating Planning Integration a.k.a. Integrated Planning for version and WBS Element/Project Profile.
Option 1 works fine for me.
However, option 2 does not seem to be working when I activate it, contradicting the state from the link:
If planning integration is active in the fiscal-year-dependent parameters of the relevant planning versions, the system writes cost element planning line items for plan-integrated WBS elements, regardless of user status.
So far what I have customized is:
-In transaction OKEV, select the version, click on "Settings for Each Fiscal Year" and double click for the year. Then I mark both "Integrated Planning" and "Integrated planning with cost center/bus. processes" checkboxes.
-Activate "Integrated Planning" at Project Profile level: go to transaction OPSA, select Project Profile, go to tab "Controlling" and mark "Integrated Planning".
Nevertheless, when I post plan costs from transaction CJR2 using the customizing above (based on second option), I see no cost lines when running CJI4.
I wonder if there is something missing in customizing that allows me to see posted cost line items in CJI4. I would appreciate very much your help.
Many thanks and best regards,
Pablo

Hi Gokul,
Many thanks for the link to that threat, Rachel Tang's reply on that discussion is very complete and included the answer to my question.
She comments that three points must be checked to activate Integration Planning:
1) Mark "Integrated Planning" at CO Version/Year level (SPRO > Controlling > General Controlling > Organization > Maintain versions).
2) Mark "Integrated Planning with costs centers/bus. processes" at CO Version/Year level (same transaction).
3) Ensure WBS Element has Integration Planning marked (PRPS-PLINT = X). [It looks like this is done automatically by marking Project Integration at Project Profile level BEFORE project is created]
In my case, I had first and second steps correct. However, even though I had marked Integration Planning at Project Profile level, it seems that already created Project Definitions are not updated with new Integrated Planning value after it is changed at Project Profile level.
Maybe it is possible to modify WBS Element's Integration Planning flag manually (though SAP OSS Note 301917 states that this is impossible), otherwise I could never achieve Integration Planning for already created projects.
In my case it would be more suitable to use the alternative of adding Business Transaction "Write plan line items" to User Status.
Many thanks to Sanjeev and Gokul for your help.
Best regards,
Pablo

Gr Ir Assignment Updation with PO and Line Item

In the GL for GR IR Account the sort key was not maintained with PO number due to which the assigment field in the line item was getting updated with the posting date and not with the PO & LIne Item details.
We have made the requiste changes and new items are getting updated properly.
But require assitance in updating the earlier line items.
As of date total line items are more than 0.15 mn.
Please suggest some method to automatically update the assigment field of the GR IR Line items with the PO Details.
Regards
Mukesh

Hi,
You can use a substitution to update the field through FI. Use GGB4 for wirting a substitution you may need some ABAP coding to substitute PO no and line items in the assignment field. rule would be Co code =XXX and GL account =xxx and Posting date earlier than =xxxx then concatenrate EBELN and EBELP in Assigment field Zounr.
Then execute FBL3N and edit the assignment field by selecting all the documents and then save it you should see the PO line items populated. You can leave the substitution on or you can remove it after updating,
Regards
K.R

How to sum + group bp line items per a specific field?

Hi,
I found out about the SYS Numeric Query Based data definition, allowing me to sum the line items of a BP according to certain conditions.
Now we have a more complex problem. We need to sum the line items of BP1 into the line items of BP2, grouping them by a given field. We know how to auto-create BPs on workflow events conditions, but we don't know how to sum the line items together.
Is there a workaround?
Thanks,
S.R.

We do not currently support QBDEs on line items so there isn't a way to sum values from other line items onto a line item.

How to create a PR with a group of line items in Maintenance Order

Hi,
I reqest for a solution for this scenario.
I created aMaintenance Order with 45 materials assigned in that.
Now I would like to have the ability to group split all line items in to certain groups and individual PRs for these groups
I would like to group these 45 items in 10 or 12 groups and create PR for each of these groups.
Plz guide how can I do this with any devlopment of a report.

lukko wrote:
Thank you for the reply. My first guess was that in case of arrays everything inside the VI should be closed in a loop and perhaps with varying number of inputs the loop could be avoided and this would improve simultaneous execution for multi-core CPUs.
I would not base all conclusions on first guesses.
Working with arrays is typically significantly more efficient (e.g. SIMD). We also have the parallel FOR loop where several iterations can be executed in parallel, thus fully supporting simultaneous execution.
How exactly are you expecting the code to look like if you have a variable number of connectors?
LabVIEW Champion . Do more with less code and in less time .

Originating document number not updated for one invoice line item

Hi,
We have a invoice document number in which the originating document number is not updated for one of the line items ,this is order related down payment invoice .May be this is due to system inconsistency so is there any SAP note to overcome this problem.
Best Regards,
Rohit

Dear All,
I found out the problem for not updated in F-04. "While create the receipt document in GL master Open item management maintained box was not checked". It can be found in BSIS table - OI Management'.
Is there any other way to clear this document.
Thanks...

USER EXIT / BADI TO UPDATE BSEG-PRCTR ON LINE ITEM

Hi,
I am trying to copy the contents of BSEG-PRCTR from one line item to another.
I want to update Profit center field automatically through some exit / BADI,
Is there any BADI/ EXIT is available in system through which i can easliy change
line Item details.
If you know anything then please reply me.
Thanks in Advance....

Hi,
I am trying to copy the contents of BSEG-PRCTR from one line item to another.
I want to update Profit center field automatically through some exit / BADI,
Is there any BADI/ EXIT is available in system through which i can easliy change
line Item details.
If you know anything then please reply me.
Thanks in Advance....

Update profit centr-customer line items prior to New GL Migration scenario4

Our clients are migrating to New GL with scenario 4 (with Profit Center Accounting / Parallel Ledgers/ but w/o document split).
SAP does not provide for any BADI to update profit center on AR or AP open items if you do not use document split. Has any one faced a similar situation?
The clients are keen to update profit center on all AR AP items before migration as they use many account balance reports from classic PCA where the AR and AP can be reported with profit centers break-down even though the document tables like BSEG/BSID/BSAD etc. do not have any profit centers assigned.
Also has anyone tried to update profit center on AR AP open items in SAP using a direct table update?
Whether such a course is advisable and is there any BADI or User exit available that can be used to ensure that all related tables are updated?
Any inputs or suggested solution would be helpful.

Hi Ajay,
Thanks. We started off with the document split scenario itself. However in unit testing client found no value addition in document split as per its business need.
However the change was not noticeable until we created the new package with scenario 4 and now it may be a little late to go back and start over. We are also mooting SAP's SLO services to help with this.
The basic requirement is reporting of AR balances by profit center which was available through report painters in the classic PCA. The client uses a large number of account balance reports from classic PCA created via report painter.
Since the converted report painter reports point to FAGLFLEXT and hence won't show AR by PC for the pre-migration items.
We also considered if we could continue to run old transactions F.5D and F.5E to transfer periodic balances to PCA.
However since as a future course we are implementing a substitution rule to fill up profit center on the new AR/AP items and hence we could face a mixed situation where new documents that already have profit center assigned might not get transferred to PCA.
Regards,
Sharad

How to change the currency in Billing plan in SO line item

Hi Experts
Pls help in following scenario.
Company Code Currency: HKD
Sales Document Currency: INR(Indian Rupees)
Item Pricing Condition Currency(PR00): 100 USD
Item Netvalue: 4800INR(System caluculated as per exchange rate type M)
Document Netvalue: INR 4800
The sales document item is linked to a billing plan.
I wanted to maintain 100USD in the billing plan.
When i goto Sales->item-->Billing Plan, The currency in billing plan screen is document currency and is greyed out.
How to change the Currency in Billing plan (to Item Condition currency) and maintain the Billing value in USD?
Pls help.
Regds
Hari

Currency change we wanted to do is not during Invoicing.
In billing plan itself we want to change the currency setup the billing value in item condition currency.
Any one, pls help.

Insert/Update/Delete Non-PO Invoice Line Item via FM/BAPI?

Does anyone know of a way to insert/update/delete an Invoice Line item (Non-PO Accounting Invoice - Transaction FB60 or FV60) using a BAPI or Function Module (or set of function modules) using ABAP? I have been trying to find some code to accomplish this and am stuck on a couple of issues.
I have found PRELIMINARY_POSTING_FB01 and PP_CHANGE_DOCUMENT_ENJ but both seem to submit the details to background processes. This is an issue because it gives the user a success message after execution but later delivers the error to Workflow. This is for an interfacing program so the results should be as real time as possible.
Has anyone accomplished this via FM or BAPI and if so would you mind sharing your experiences?
Thank you very much,
Andy

SG- Thank you for the reply.
I have been playing with BAPI_INCOMINGINVOICE_PARK and I'm not sure if it is doing exactly what we want, but it is something that I have considered in the past. I plan on looking into BAPI_ACC_INVOICE_RECEIPT_POST this morning, hopefully that will provide some more for us.
If possible I'd like to avoid BDC sessions because this program could hypothetically interface with multiple SAP systems with different configurations.
I will check into those FM's and thank you very much.

Line item net price not updated in overview screen net price&line item

Hi ,
We have down payment order with 10 line items
In orders with billing plan, the sales line item net price, if we entered manual condition price (ZPNP) ,gets updated in item condition net value. But it does not simultaneously gets updated at once in 1) Sales order overview screen net value 2) Billing plan header 3)Sales order overview screen line item condition net value. Updation at these three places happens only after clicked on header conditions.
However, in case of the last item in the sales order, the updation happens simultaneously in all the 3 places i.e. 1) item condition net value. 2) Sales order overview screen net value 3) Billing plan header 4) Sales order overview screen line item condition net value.
This is also true for the order with only single line item. We are faced a information popup message every time we change the item net price u201CItem 000100(100 is last line item number in sales order) exists already; the entry ignored u201C. This happens in case of all line items except the last line item. Also this does not happen in case where there is a single line item in order.
Our requirement: The moment the net price of an item is change manually, it should get updated at all the 4 places mentioned above like it does in case of the last line item.
Kindly help me to fix this problem.
Regards,
Adikesav

Hi,
Can u elaborate ur query ?
By this FM you cannot create a SO . Use FM --> BAPI_SALESORDER_CREATEFROMDAT2
Regards,
MAdhukar Shetty

Updating the line items

Hi, I am unable to update the Business Area .
I have some blank Busines Areas i should update the Business Area line items same as According to the belnr(header)
REPORT zfir_vendorwise_grir_balances NO STANDARD PAGE HEADING
                        LINE-SIZE 142
                        LINE-COUNT 65.
TABLES: bsis,bkpf,bseg,ekko,lfa1.
TYPE-POOLS: slis.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      gs_layout   TYPE slis_layout_alv ,
      gs_print    TYPE slis_print_alv,
      gt_sort     TYPE slis_t_sortinfo_alv ,
      gt_filter   TYPE slis_t_filter_alv,
      gt_sp_group TYPE slis_t_sp_group_alv,
      gt_alv_graphics TYPE dtc_t_tc,
      gt_excluding TYPE slis_t_extab ,
      gt_events   TYPE slis_t_event .
DATA: g_repid LIKE sy-repid.
DATA: gt_list_top_of_page TYPE slis_t_listheader.
DATA:       g_boxnam TYPE slis_fieldname VALUE 'BOX',
            p_f2code LIKE sy-ucomm       VALUE '&ETA',
            p_lignam TYPE slis_fieldname VALUE 'LIGHTS',
            g_save(1) TYPE c,
            g_default(1) TYPE c,
            g_exit(1) TYPE c,
            gx_variant LIKE disvariant,
            g_variant LIKE disvariant.
DATA : g_user_command(30) VALUE 'USER_COMMAND'.
DATA : g_status_set(30) VALUE 'PF_STATUS_SET'.
DATA: BEGIN OF it_final OCCURS 0,
      awkey TYPE awkey,
      grir(10) TYPE c,
      bukrs LIKE bsis-bukrs,
      hkont LIKE bsis-hkont,
      gjahr LIKE bsis-gjahr,
      belnr LIKE bsis-belnr,
      budat LIKE bsis-budat,
      waers LIKE bsis-waers,
      xblnr LIKE bsis-xblnr,
      blart LIKE bkpf-blart,
      buzei like bseg-buzei,
      bschl LIKE bseg-bschl,
      shkzg LIKE bseg-shkzg,
      gsber LIKE bseg-gsber,
      dmbtr LIKE bseg-dmbtr,
      wrbtr LIKE bsis-wrbtr,
      sgtxt LIKE bseg-sgtxt,
      ebeln LIKE bseg-ebeln,
      lifnr LIKE ekko-lifnr,
      ps_psp_pnr LIKE ekkn-ps_psp_pnr,
      name1 LIKE addr1_data-name1,
      END OF it_final.
DATA : it_po LIKE it_final OCCURS 0 WITH HEADER LINE.
DATA : it_ebeln LIKE it_final OCCURS 0 WITH HEADER LINE.
DATA : it_awkey LIKE it_final OCCURS 0 WITH HEADER LINE.
DATA : wa_final LIKE LINE OF it_final.
DATA : BEGIN OF it_lifnr OCCURS 0,
        ebeln TYPE ebeln,
        lifnr TYPE lifnr,
END OF it_lifnr.
DATA : BEGIN OF it_name1 OCCURS 0,
        lifnr TYPE lifnr,
        name1 TYPE name1,
END OF it_name1.
DATA : hmin TYPE bseg-hkont.
DATA : hmax TYPE bseg-hkont.
DATA: idx TYPE sy-tabix.
DATA: temp_gsber TYPE bseg-gsber.
DATA: temp_ebeln TYPE bseg-ebeln.
DATA : temp_gjahr TYPE bseg-gjahr.
DATA : temp_belnr TYPE bseg-belnr.
DATA : temp_lifnr TYPE bseg-lifnr.
*DEFINING THE SELECTION-CRITERIA.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_bukrs LIKE skb1-bukrs OBLIGATORY.
SELECT-OPTIONS: s_gsber FOR bseg-gsber OBLIGATORY.
SELECT-OPTIONS: s_hkont FOR bseg-hkont OBLIGATORY.
PARAMETERS: p_lifnr LIKE ekko-lifnr.
PARAMETERS: p_budat LIKE bkpf-budat OBLIGATORY.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN ON s_hkont.
CHECK s_hkont-low LT 250301 OR s_hkont-high GT 250500.
MESSAGE e000(zm) WITH 'PLEASE SELECT A GRIR CLEARING ACCOUNT BETWEEN'
                        '250301 AND 250500'.
*INITIALIZATION.
INITIALIZATION.
g_repid = sy-repid.
*START-OF-SELECTION.
START-OF-SELECTION.
PERFORM select_data.
PERFORM display_data.
PERFORM list_display.
*&      Form select_data
      text
--> p1        text
<-- p2        text
FORM select_data .
*selecting open item details
SELECT bukrs hkont gjahr   belnr buzei
         budat waers xblnr   blart
         bschl shkzg gsber   dmbtr
         wrbtr sgtxt
     FROM bsis
        INTO CORRESPONDING FIELDS OF TABLE it_final
        WHERE bukrs EQ p_bukrs
              AND hkont BETWEEN '0000250301' AND '0000250500'
              AND budat LE p_budat AND ( blart EQ 'WE' OR
                                         blart EQ 'RE' OR
                                         blart EQ 'SA' OR
                                         blart EQ 'EI').
*selecting closed/cleared item details
SELECT bukrs hkont gjahr belnr buzei budat
         waers xblnr blart bschl shkzg
         gsber dmbtr wrbtr sgtxt
     FROM bsas
        APPENDING CORRESPONDING FIELDS OF TABLE it_final
        WHERE bukrs EQ p_bukrs
        AND hkont BETWEEN '0000250301' AND '0000250500'
        AND budat LE p_budat
        AND blart IN ('WE', 'RE','SA','EI')
        AND augdt GE p_budat.
SORT it_final BY belnr gsber DESCENDING.
CLEAR: temp_belnr, temp_gsber.
update blank business areas
LOOP AT it_final .
IF temp_gsber IN s_gsber AND it_final-belnr = temp_belnr.
     IF it_final-gsber = ' '.
       it_final-gsber = temp_gsber.
     ENDIF.
   ENDIF.
if it_final-gsber eq space or it_final-gsber in s_gsber.
     wa_final-gsber = it_final-gsber.
     wa_final-belnr = it_final-belnr.
     modify it_final from wa_final transporting gsber.
else.
     wa_final-gsber = it_final-gsber.
     wa_final-belnr = it_final-belnr.
     modify it_final from wa_final transporting gsber.
endif.
*clear wa_final.
endloop.
LOOP AT it_final.
   IF temp_gsber IN s_gsber AND it_final-belnr = temp_belnr.
     IF it_final-gsber = ' '.
       it_final-gsber = temp_gsber.
     ENDIF.
     IF it_final-lifnr = ' '.
       it_final-lifnr = temp_lifnr.
     ENDIF.
     IF it_final-belnr = ' '.
       it_final-belnr = temp_belnr.
     ENDIF.
   ENDIF.
   IF it_final-gsber EQ space OR it_final-gsber IN s_gsber.
     CLEAR: temp_belnr, temp_gsber,temp_lifnr.
     temp_belnr = it_final-belnr.
     temp_gsber = it_final-gsber.
     temp_lifnr = it_final-lifnr.
   ELSE.
     CLEAR : temp_belnr, temp_gsber,temp_lifnr.
   ENDIF.
   MODIFY it_final TRANSPORTING gsber.
ENDLOOP.
sort it_final by belnr buzei.
loop at it_final.
on change of it_final-belnr.
clear temp_belnr.
clear temp_gsber.
clear temp_lifnr.
temp_belnr = it_final-belnr.
temp_gsber = it_final-gsber.
temp_lifnr = it_final-lifnr.
endon.
if it_final-gsber is initial.
it_final-gsber = temp_gsber.
*modify it_final transporting gsber.
endif.
if it_final-lifnr is initial.
it_final-lifnr = temp_lifnr.
*modify it_final transporting lifnr.
endif.
modify it_final transporting gsber lifnr where belnr = temp_belnr.
endloop.
*deleting entries which are not as per input parameter for business area
DELETE it_final WHERE gsber NOT IN s_gsber .
loop at it_final.
if s_gsber-low ne '' and s_gsber-high ne ''.
delete it_final where gsber not in s_gsber.
elseif s_gsber-low ne '' and s_gsber-high eq ''.
delete it_final where gsber ne s_gsber-low.
endif.
endloop.
*initialising internal tables
it_awkey[] = it_final[].
it_po[] = it_final[].
it_ebeln[] = it_final[].
IF it_final[] IS NOT INITIAL.
*selecting purchase doc details
    SELECT bukrs hkont gjahr   belnr
                   bschl shkzg gsber   dmbtr
         wrbtr sgtxt ebeln
           FROM bseg INTO CORRESPONDING FIELDS OF TABLE it_ebeln
           FOR ALL ENTRIES IN it_final
            WHERE bukrs = p_bukrs
              AND belnr = it_final-belnr
              AND gjahr = it_final-gjahr
              AND hkont = it_final-hkont.
*selecting the GR/IR number from BKPF
    SELECT bukrs    gjahr   belnr
         budat waers xblnr   blart
         awkey
        FROM bkpf
      INTO CORRESPONDING FIELDS OF TABLE it_awkey
          FOR ALL ENTRIES IN it_final
    WHERE bukrs EQ it_final-bukrs
          AND gjahr EQ it_final-gjahr
          AND belnr EQ it_final-belnr.
ENDIF.
IF it_ebeln[] IS NOT INITIAL.
*selecting WBS element
    SELECT   ebeln gsber
          ps_psp_pnr
      FROM ekkn
      INTO CORRESPONDING FIELDS OF TABLE it_po
      FOR ALL ENTRIES IN it_ebeln
      WHERE ebeln = it_ebeln-ebeln.
*selecting vendor
    SELECT bukrs ebeln lifnr
      FROM ekko
      INTO CORRESPONDING FIELDS OF TABLE it_lifnr
      FOR ALL ENTRIES IN it_ebeln
      WHERE ebeln = it_ebeln-ebeln.
ENDIF.
IF it_lifnr[] IS NOT INITIAL.
*selecting vendor name
    SELECT lifnr name1
        FROM lfa1
        INTO CORRESPONDING FIELDS OF TABLE it_name1
        FOR ALL ENTRIES IN it_lifnr
        WHERE lifnr EQ it_lifnr-lifnr.
ENDIF.
LOOP AT it_final.
    idx = sy-tabix.
*retrieving purchase doc
    READ TABLE it_ebeln WITH KEY belnr = it_final-belnr
                                 gjahr = it_final-gjahr
                                 hkont = it_final-hkont.
    IF sy-subrc EQ 0.
      READ TABLE it_final INDEX idx.
      it_final-ebeln = it_ebeln-ebeln.
      MODIFY it_final INDEX sy-tabix.
    ENDIF.
*retrieving WBS element
    READ TABLE it_po WITH KEY ebeln = it_final-ebeln.
    IF sy-subrc EQ 0.
      READ TABLE it_final INDEX idx.
      it_final-ps_psp_pnr = it_po-ps_psp_pnr.
      MODIFY it_final INDEX sy-tabix.
    ENDIF.
calculating amount based on debit/credit
    IF it_final-shkzg = 'H'.
      it_final-dmbtr = 0 - it_final-dmbtr.
      it_final-wrbtr = 0 - it_final-wrbtr.
    ENDIF.
    MODIFY it_final INDEX idx.
ENDLOOP.
CLEAR idx.
SORT it_final BY belnr ebeln DESCENDING.
*updating blank purchase doc numbers
CLEAR: temp_belnr, temp_ebeln,temp_gjahr.
DATA: w_idx LIKE sy-tabix.
LOOP AT it_final.
    w_idx = sy-tabix.
*updating blank purchase docs
    IF it_final-gjahr = temp_gjahr AND it_final-belnr = temp_belnr.
      IF it_final-ebeln = ' '.
        it_final-ebeln = temp_ebeln.
      ENDIF.
    ENDIF.
    IF it_final-ebeln NE ' ' .
      CLEAR: temp_belnr, temp_ebeln, temp_gjahr.
      temp_belnr = it_final-belnr.
      temp_ebeln = it_final-ebeln.
      temp_gjahr = it_final-gjahr.
    ELSE.
      CLEAR : temp_belnr, temp_ebeln, temp_gjahr.
    ENDIF.
    MODIFY it_final TRANSPORTING ebeln.
*retrieving vendor
    READ TABLE it_lifnr WITH KEY ebeln = it_final-ebeln.
    IF sy-subrc EQ 0.
      READ TABLE it_final INDEX w_idx.
      it_final-lifnr = it_lifnr-lifnr.
      MODIFY it_final INDEX sy-tabix.
    ENDIF.
*retrieving GRIR number
    READ TABLE it_awkey WITH KEY belnr = it_final-belnr
                                 gjahr = it_final-gjahr
                                 bukrs = it_final-bukrs.
    IF sy-subrc EQ 0.
      READ TABLE it_final INDEX w_idx.
      it_final-awkey = it_awkey-awkey.
      MODIFY it_final INDEX sy-tabix.
    ENDIF.
*retrieving vendor name
    READ TABLE it_name1 WITH KEY lifnr = it_final-lifnr.
    IF sy-subrc EQ 0.
      READ TABLE it_final INDEX w_idx.
      it_final-name1 = it_name1-name1..
      MODIFY it_final INDEX sy-tabix.
    ENDIF.
ENDLOOP.
*deleting entries which are not per input parameters
DELETE it_final WHERE hkont NOT IN s_hkont.
IF p_lifnr NE ' '.
    DELETE it_final WHERE lifnr NE p_lifnr.
ENDIF.
for selecting the grir number which is the first 10 digits of reference key and
selecting vendor name
LOOP AT it_final.
    MOVE it_final-awkey+0(10) TO it_final-grir.
    MODIFY it_final INDEX sy-tabix.
ENDLOOP.
SORT it_final BY hkont belnr.
deleting entries where purchase doc is blank.
DELETE it_final WHERE ebeln EQ ' '.
ENDFORM.                    " select_data
*&      Form build_fieldcat
      text
--> p1        text
<-- p2        text
FORM e01_fieldcat_init USING gt_fieldcat TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
DATA: gs_sort TYPE slis_sortinfo_alv.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'HKONT'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '1'.
ls_fieldcat-seltext_l    = 'ACCOUNT'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BSCHL'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '2'.
ls_fieldcat-seltext_l    = 'POSTING KEY'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BLART'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '3'.
ls_fieldcat-seltext_l    = 'DOC TYPE'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BELNR'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '4'.
ls_fieldcat-seltext_l    = 'DOC NUMBER'.
ls_fieldcat-hotspot(1)   = 'X'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'BUDAT'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '5'.
ls_fieldcat-seltext_l    = 'POSTING DATE'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'XBLNR'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '6'.
ls_fieldcat-seltext_l    = 'REF. DOC NO'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'EBELN'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '7'.
ls_fieldcat-seltext_l    = 'PURCHASE DOC NO'.
ls_fieldcat-hotspot(1)   = 'X'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'GSBER'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '8'.
ls_fieldcat-seltext_l    = 'BUSINESS AREA'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'DMBTR'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '9'.
ls_fieldcat-seltext_l    = 'AMOUNT(LC)'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'WRBTR'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '10'.
ls_fieldcat-seltext_l    = 'AMOUNT(DC)'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'WAERS'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '11'.
ls_fieldcat-seltext_l    = 'CURRENCY'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'GJAHR'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '14'.
ls_fieldcat-seltext_l    = 'Fiscal year'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'GRIR'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '14'.
ls_fieldcat-seltext_l    = 'GR/IR Number'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'LIFNR'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '12'.
ls_fieldcat-seltext_l    = 'VENDOR NO'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'PS_PSP_PNR'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '13'.
ls_fieldcat-seltext_l    = 'WBS Element'.
APPEND ls_fieldcat TO gt_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname    = 'NAME1'.
ls_fieldcat-tabname    = 'IT_FINAL'.
ls_fieldcat-col_pos      = '14'.
ls_fieldcat-seltext_l    = 'VENDOR NAME'.
APPEND ls_fieldcat TO gt_fieldcat.
ENDFORM.                    " build_fieldcat
*&      Form LIST_DISPLAY
      text
--> p1        text
<-- p2        text
FORM list_display .
gs_layout-colwidth_optimize(1) = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_background_id         = 'ALV_BACKGROUND'
      i_callback_program      = g_repid
      i_callback_user_command = 'USER_COMMAND'
      i_structure_name        = 'IT_FINAL'
      is_layout               = gs_layout
      it_fieldcat             = gt_fieldcat[]
      it_special_groups       = gt_sp_group[]
      it_sort                 = gt_sort[]
      it_filter               = gt_filter[]
      i_save                  = g_save
      is_variant              = g_variant
      it_events               = gt_events[]
      is_print                = gs_print
      it_alv_graphics         = gt_alv_graphics[]
      it_excluding            = gt_excluding
    TABLES
      t_outtab                = it_final.
ENDFORM.                    " LIST_DISPLAY
*&      Form USER_COMMAND
FORM user_command USING i_ucomm LIKE sy-ucomm
                        is_selfield TYPE slis_selfield.     "#EC CALLED
CASE i_ucomm.
    WHEN '&IC1'.                        " Pick(Double-click)
      CASE is_selfield-fieldname.
        WHEN 'BELNR'.
          CLEAR it_final.
          READ TABLE it_final INDEX is_selfield-tabindex.
          IF sy-subrc EQ 0.
          FI Document number
            SET PARAMETER ID 'BLN' FIELD it_final-belnr.
          Display Document
            CALL TRANSACTION 'FB03' AND SKIP FIRST SCREEN.
          ENDIF.
        WHEN 'EBELN'.
          CLEAR it_final.
          READ TABLE it_final INDEX is_selfield-tabindex.
          IF sy-subrc EQ 0.
          PO number
            IF it_final-ebeln NE ' '.
              SET PARAMETER ID 'BES' FIELD it_final-ebeln.
          Display Document
              CALL TRANSACTION 'ME23N' AND SKIP FIRST SCREEN.
            ENDIF.
          ENDIF.
      ENDCASE.
ENDCASE.
ENDFORM.                    "user_command
*&      Form display_data
      text
--> p1        text
<-- p2        text
FORM display_data .
g_repid = sy-repid.
PERFORM e01_fieldcat_init USING gt_fieldcat[].
PERFORM eventtab_build CHANGING gt_events.
PERFORM e04_comment_build USING gt_list_top_of_page[].
ENDFORM.                    " display_data
*&      Form eventtab_build
      text
     <--P_GT_EVENTS text
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
CONSTANTS:
    gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = lt_events.
READ TABLE lt_events WITH KEY name = slis_ev_top_of_page
INTO ls_event.
IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO lt_events.
ENDIF.
ENDFORM.                    " eventtab_build
*&      Form e04_comment_build
      text
     -->P_GT_LIST_TOP_OF_PAGE[] text
FORM e04_comment_build USING e04_lt_top_of_page TYPE slis_t_listheader.
DATA : v_time(10) TYPE c.
DATA: ls_line TYPE slis_listheader.
DATA : v_text(50) TYPE c.
DATA : v_date_low(10) TYPE c,
         v_date_high(10) TYPE c.
CONCATENATE 'GR/IR Report' ' '
INTO v_text SEPARATED BY space.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = v_text.
APPEND ls_line TO e04_lt_top_of_page.
ENDFORM.                    " e04_comment_build
*&      Form top_of_page
      text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_list_top_of_page.
ENDFORM   .                    "TOP_OF_PAGE

sorry amit,
but i've no time to read your full coding.
you <b>cannot</b> update business area in fi-document.
(it's not changeable field !)
so reverse the document with fb08 and post document new with correct b.a.
A.
Message was edited by: Andreas Mann

Updating Planning Groups in line items

Similar Messages

Maybe you are looking for