Fields for table-----very very urgent

Hi all,
my company is following BAPI instead of IDOC for it's EDI immplementation.so i am writing a report for 856 signal(shipment notice).the procedure is like this.
after shipment creation,i will download all the PO,SO & shipment data to a text file(edi format).then we will transfer this file to 3rd party EDI software.then that software will send that signal or file to our customer.
i need some datas to download. but i am not getting those fields.you can find these fields in the 856 document of EDI.those field descriptions are like
1)packaging code
2)SCAC code
3)shipment method of payment
4)waybill number
5)duns number
6)entity identification code for customer
7)measurement reference code for packing item (pallet)
8)measurement qualifier for packing item like pallet
9)title transfer date & title transfer time
it is very very urgent.plz suggest.helpful answers will be rewarded.
any suggestion will be highly appreaciated.
Regards
pabitra

ALV_GRID_DISPLAY, how to ovewrite subtotal obtained by ALV sort
I want to overwrite the subtotal value in column C (Currently 60 ) which i got using standard ALV sort.
Example: using ALV_LIST_DISPLAY function module & sort functionality:
Column-A____Column-B_____Column-C____Column-D
K1____________2_____________10__________20
K1____________2_____________20__________40
K1____________3_____________30__________90
subtotal:________7____________60_________150
Note : Each row in Column C is calculated as D/B.
I would like to extend the calculation in subtotals also.
But subtotals give me the sum of values in C.
In column C,I want 150/7 (subtotal of D / subtotal of B)
I.E., Column C = 150 / 7 = 21.42.
Any inputs regarding my problem would be much appreciated.
Thanks in advance !!

Similar Messages

How to update key fields for table

Hi,
how to update key fields for a table.The update statement is not working for the same.
Regards,

Hi,
See the below example.
TABLES SPFLI.
DATA WA TYPE SPFLI.
MOVE 'AA' TO WA-CARRID.
MOVE '0064' TO WA-CONNID.
MOVE 'WASHINGTON' TO WA-CITYFROM.
UPDATE SPFLI FROM WA.
MOVE 'LH' TO SPFLI-CARRID.
MOVE '0017' TO SPFLI-CONNID.
MOVE 'BERLIN' TO SPFLI-CITYFROM.
UPDATE SPFLI.
CARRID and CONNID are the primary key fields of table SPFLI. All fields of those lines where the primary key fields are "AA" and "0064", or "LH" and "0017", are replaced by the values in the corresponding fields of the work area WA or the table work area SPFLI.
Regards,
raj.

Cannot select the fields for table view WB2_V_MKPF_MSEG2

Hi, I have a program where the query is using join statement of MSEG and MKPF. As part of the performance enhancement I use Table View WB2_V_MKPF_MSEG2 instead.
Validation: Entries in MSEG and MKPF is the same as in WB2_V_MKPF_MSEG2 = OK (via SE16)
But upon debugging the program on SY-SUBRC breakpoint, I can see 5 rows appended in internal table T_MSEG "BUT" the entries are all blank.
The entries in my SE16 are exact data that's appearing on the filter statement in my SQL query below. SE16 is giving correct output, but using table view in my SQL does not give me the correct output.
(Note: This is my first time to use table view in ABAP-SQL)
SELECT MATNR_I BWART_I MENGE_I
    FROM WB2_V_MKPF_MSEG2
      INTO CORRESPONDING FIELDS OF TABLE T_MSEG
WHERE MATNR_I IN R_MATNR3
      AND MATNR_I IN R_COMPNTS
      AND WERKS_I EQ P_WERKS
      AND BWART_I EQ '931'
     AND BUDAT    IN S_GSTRP
     AND MJAHR    EQ W_DOC_YEAR.
IF SY-SUBRC EQ 0.
ENDIF.
THANKS, appreciate your inputs.
Regards,
Jun

Hi Suhas,
I just did a short test just now:
REPORT ZTEST_SELVIEW.
TABLES: WB2_V_MKPF_MSEG2.
TYPES: BEGIN OF Y_MSEG,
         MATNR LIKE MSEG-MATNR,
         BWART LIKE MSEG-BWART,
         MENGE LIKE MSEG-MENGE,
       END   OF Y_MSEG.
DATA: T_MSEG TYPE STANDARD TABLE OF Y_MSEG.
SELECT MATNR_I
       BWART_I
       MENGE_I
FROM WB2_V_MKPF_MSEG2
INTO CORRESPONDING FIELDS OF TABLE T_MSEG
WHERE MATNR_I EQ '000000000000004000'
   AND WERKS_I EQ '0288'
   AND BWART_I EQ '931'
*   AND BUDAT   EQ '20071117'
   AND MJAHR   EQ '2007'.
IF SY-SUBRC EQ 0.
ENDIF.
In my debug, T_MSEG contains the same number of rows that my SE16>WB2_V_MKPF_MSEG2(using the hard coded statement in my SQL) "BUT" each rows does not have any entries. Bottomline, I can't only see blank entries in ITAB T_MSEG but the rows are being selected properly, so the itab contains x-number of rows with blank entries.
Thanks.

Internal table Issue ( very urgent)

Hi,
 There are two internal tables A and B.
 Product is one of the fields of both A and B and is the key.
 A has say say 10 products and B has 4 products.
 I want to delete those products from A which are not there in B.
( It is somewhat like using 'FOR ALL ENTERIES IN ' with Select Statement)
Is this possible in internal tables without 'Loop at'. The actual table would have over 1 million records and and looping is a major concern.
 I am new to abap and any help from you guys would be appreciated.....

Advait,
I think you will need atleast one loop. This loop can be on the table B.
If product is the left most field of table B try this:
The last field for table A must be a flag for don't delete
SORT IT_B by product.
LOOP AT IT_B INTO WA_B.
AT NEW product.
WA_A-dont_delete = 'X'.
MODIFY IT_A FROM WA_A TRANSPORTING dont_delete WHERE product = wa_b-product.
ENDAT.
ENDLOOP.
DELETE IT_A WHERE dont_delete <> 'X'.

Searching for the fields of a table(very very urgent)

Hi all,
i am in graet trouble now.i am searching for the fields like
1)country of origin where the finished good is created.
2) customer sales order number
3)customer sales order line number
i am writing a report for delivery order.in this report i have to refer customer PO & customer SO .
i mean, my company has a customer ( seagate) & seagate has a customer (let maxtor).initially maxtor will give a PO to seagate then seagate will raise a SO againest maxtor.
Then seagate will send PO number(of maxtor), PO line number,SO number(seagate), SO line number(seagate) to our company.
Then i have to write a report for sales order & delivery order.in these reports i have to refer seagate PO number & seagate SO number for reference.
i got PO number as vbkd-bstkd but not getting any field for reference Sales order.plz advice me on this. it is very very urgent.
ur idea is highly appreaciated.
Thank u very much.
Regards
pabitra

check out tables VBAK(sales order header), VBAP(sales items)

How to enable DFF for each line level on a Table Region - very very urgent

Hi,
I have a Master- Detail Page, Detail is Table region. I need to enable DFF (Context Based) for each line. If any one has done similar requirement please share how to do this. Its very very urgent.
It is a standard page.
Thanks,
Edited by: user8996062 on Jun 29, 2011 2:58 AM

Can any one please help me on this it is very urgent.
Thanks,

USER-EXIT for DELIVERY--very very urgent

Hi all,
can u plz tell me the user-exit for delivery i.e this exit should be called after the delivery order is created.
plz suggest some specific exit.it is very very urgent.
Regards
pabitra

Rout ,
u cannt find out user exits after the Creation.
V02V0001            Sales area determination for stock transport order
V02V0002            User exit for storage location determination
V02V0003            User exit for gate + matl staging area determination (headr)
V02V0004            User Exit for Staging Area Determination (Item)
V50PSTAT            Delivery: Item Status Calculation
V50Q0001            Delivery Monitor: User Exits for Filling Display Fields
V50R0001            Collective processing for delivery creation
V50R0002            Collective processing for delivery creation
V50R0004            Calculation of Stock for POs for Shipping Due Date List
V50S0001            User Exits for Delivery Processing
V53C0001            Rough workload calculation in time per item
V53C0002            W&S: RWE enhancement - shipping material type/time slot
V53W0001            User exits for creating picking waves
VMDE0001            Shipping Interface: Error Handling - Inbound IDoc
VMDE0002            Shipping Interface: Message PICKSD (Picking, Outbound)
VMDE0003            Shipping Interface: Message SDPICK (Picking, Inbound)
VMDE0004            Shipping Interface: Message SDPACK (Packing, Inbound)
*        FORM-Routinen für Userexits
         include mv50afzz.
         include mv50afz1.
         include mv50afz2.
         include mv50afz3.          "Userexit neu zu Release 3.0A
         include mv50afzk.          "Userexit 4.6A (KOMKG/KOMPG)
         include mv50afzl.          "Userexit 4.6A Liefergruppen
                                                               "n_693000
         include mv50afzp.          "Userexit for pricing screen input
Regards
Prabhu

Very very urgent Discoverer reports for non oracle applications

Hi,
My client is using discoverer 10g with R12.He is using different non oracle applications like BRM Application (database is oracle only) for that they wants to develop discoverer reports.It is possible to integrate with non oracle applications with discoverer.
Can you please suggest me.It is very very urgent.
Thanks & Regards.

Hi
You're really not supposed to manage a non-Apps mode EUL and an Apps mode data within the same URL. Having said that, I have a hunch you just might be able to do it and there are 2 ways. You can either make the data available to user who login using E-Business Suite credentials or you can make it available to users who have database credentials. The first one is straightforward and you do it just like any other data. Let me give you some hints regarding the second method.
First of all I ahve not personally tried this and you may find that because Discoverer was initially set up in Apps mode that somewhere down the line it will make the suers connect this way. However, the following is worth a try.
I would a new schema in the Oracle E-Business database to manage the link to BRM and create a database link from this user to a user in the BRM database. You will also need to create user accounts within the database for anyone who needs to login and run BRM reports.
Next, I would create views in this new schema pointing at data across the BRM link, thus allowing Discoverer to think these are local objects.
In Discoverer Administrator, you would need to log in to Discoverer using the owner of the EUL - NOT using SYSADMIN or any of the other E-Business Suite accounts. You should log in with the Oracle Applications checkbox unchecked. You can now create new business areas on the BRM data. You should also be able to assign users to Discoverer privileges and users to business areas.
Using the same URL you would have Apps users connect using the E-Business Suite item on the drop-down for logging in and you would have BPM users choose the Business Intelligence Discoverer item.
Let me know how you get on
Michael

UPDATE ROUTINE --- CUBE --- ODS Very Very URGENT

Hi Collegues/Friends ,
First I need to thank for the intiators of this site , as I came to know that for many
problems we will get different best solutions ... Hoping the same I am posting a question
which is very very very urgent as the client is running after me for this .
My Requirement is as Follows. ..
I Moving the data from Cube to ODS . While i need to write a routine for an extra field in
ODS based on Billing Quantity in Base Unit of Measure . The Key Field in the ODS Is UNIQKEY
Transaction and It is a Characterstic in the Cube and we have MAterial as another
Characteristic and core element as navigational attribute .
In the Cube for every UNIQKEY transaction- there are more than One line items.
My data fields in the ODS are Billing Quantity in Base Unit of MEasure and and EXTRA FIELD
: No of Items in Transaction . But the thing is that I have only Billing Quantity in Base
Unit of Measure in cube as a key figure
BAsing on the UNIQKEY transcation and Billing Quantity In Base Unit Of Measure I need to
populate the No of Items in Transaction... For this i need to write a routine .
Let suppose say that for the Materials the core elements are as follows
Material Core element
10 1 -- fuel -- In liters
20 2 -- Cigar - in PAck
30 3 -- Coke - in Cans
Now Lets see how the records are there in InfoCUbe
Uniqkey / Material / Core element /Billin Quantiy
A / 10 / 1 / 22
B / 30 / 3 / 2
C / 10 / 1 / 15
C / 30 / 3 / 2
D / 20 / 2 / 10
D / 30 / 3 / 2
And IN the ODS -- I need to Populate the No OF items in Transaction.
the Logic behind this as follows .
1.if Materail is of type 1(Mean if the core element - 1)
I need to Populate the No of items in tnx = 1
2.If Material id of type 2 or 3 I need to populate the billing quantity to the no of
transcations.
3. If the Uniqkey tanscation contains two line items as suppose that you have 20 litres of
fuel and 2 cans of coke, then No of Items in the transaction should be 3 and Billing
Quantity in BUoM 22
billing quantity in BUoM = 20 litres for the first line item and 2 for the second line
item...
then as the first line item is fuel, field No OF Items in the Transcation should be 1
(replacing the 20) + 2 = 3
so the final result in the ODS should be billing quantity in BUoM = 22 and The Items in the
Transcation = 3
For this I have Written a Rouinte like this for that field
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line -
TABLES: /BI0/PMATERIAL.
DATA: TITEMS LIKE /BIC/AZPOCODS00-/BIC/ZTITEMS,
 CORE_ELEMENT like /BI0/PMATERIAL-RPA_WGH1.
$$ end of global - insert your declaration only before this line -
FORM compute_data_field
TABLES MONITOR STRUCTURE RSMONITOR "user defined monitoring
USING COMM_STRUCTURE LIKE /BIC/CS8ZPOCTUS04
 RECORD_NO LIKE SY-TABIX
 RECORD_ALL LIKE SY-TABIX
 SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
CHANGING RESULT LIKE /BIC/AZPOCODS00-/BIC/ZTITEMS
 RETURNCODE LIKE SY-SUBRC "Do not use!
 ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update
$$ begin of routine - insert your code only below this line -
fill the internal table "MONITOR", to make monitor entries
check not COMM_STRUCTURE-material is initial.
select SINGLE RPA_WGH1
 INTO CORE_ELEMENT
 from /BI0/PMATERIAL
 where
 material = COMM_STRUCTURE-material
 and OBJVERS <>'D'.
 IF CORE_ELEMENT EQ '1'.
 TITEMS = '1'.
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 input = titems
 IMPORTING
 OUTPUT = titems
 ELSE.
 TITEMS = COMM_STRUCTURE-BILL_QTY.
 ENDIF.
result value of the routine
RESULT = TITEMS..
if abort is not equal zero, the update process will be canceled
ABORT = 0.
$$ end of routine - insert your code only before this line -
Does it satisfy all the conditions ?? mentioned above if . As far As i know as the only key
field in the transcation it will satisfy the first two conditions .
I want to know or If possioble anybody pls take some pain for me to send the code or any
Ideas for satisfying all the conditions.
Hope I will get immediate replies....
Mail me to [email protected]

Reddy,
Please do not post in all sections ... makes it hard to follow up on posts..
Arun

Error during GR(very very urgent)

Hi all,
i am using a developed program for GR.i used this program before.there was no error.but now i am facing error like
PO ordered quqntity exceeded by 18,000 EA..i am using BAPI_GOODSMVT_CREATE for goods transfer.
In the selection screen, i am putting
PO number- PO1
material number- MAT
GR quantity- 18,000
delivery order-111
i want to receive the material MAT of quantity 18,000 from that PO.initially i have ordered PO quntity as 1 lakh. Till now i have received 42,000 materials,now i try to receive 18,000 materials.but it is showing this type of error.
This error is fired from the return parameter of that BAPI only.error having message class-M7 & error no-022
is comming.
i am giving my coding below.plz suggest where is the problem.it is very very urgent.recently my company has added some patches to update the SAP.is this the cause for that error.plz suggest.
any idea will be highly appreaciated.
Regards
REPORT zmui001
 LINE-SIZE 140
 LINE-COUNT 65
 NO STANDARD PAGE HEADING.
*-- DATA DECLARATION--
*-- tables
TABLES : ekpo,
 ekbe,
 marv.
*--Includes
INCLUDE : <icon>. " Include for Icons
*-- Types
TYPES : BEGIN OF t_mseg,
 ebeln LIKE ekko-ebeln,
 name1 LIKE lfa1-name1,
 lifnr LIKE lfa1-lifnr,
 eknam LIKE t024-eknam,
 mblnr LIKE mkpf-mblnr,
 matnr LIKE ekpo-matnr,
 maktx LIKE makt-maktx,
 lgort LIKE mseg-lgort,
 charg LIKE mseg-charg, "chg: 10/17/2005
 menge LIKE mseg-menge,
 budat LIKE mkpf-budat,
 bldat LIKE mkpf-bldat, " chg : 08/18/2003
 xblnr LIKE mkpf-xblnr,
 END OF t_mseg.
DATA: BEGIN OF t_ekbe,
 ebeln LIKE ekbe-ebeln,
 ebelp LIKE ekbe-ebelp,
 bwart LIKE ekbe-bwart,
 matnr LIKE ekbe-matnr,
 menge LIKE ekbe-menge,
 END OF t_ekbe,
 BEGIN OF t_ekpo,
 ebeln LIKE ekpo-ebeln,
 ebelp LIKE ekpo-ebelp,
 matnr LIKE ekpo-matnr,
 menge LIKE ekpo-menge,
 END OF t_ekpo.
TYPES : BEGIN OF t_options.
 INCLUDE STRUCTURE itcpo.
TYPES : END OF t_options.
*--Internal tables
DATA: BEGIN OF i_item OCCURS 50. "Create Material Document Item
 INCLUDE STRUCTURE bapi2017_gm_item_create.
DATA: END OF i_item .
DATA: BEGIN OF i_return OCCURS 20. "Return parameter
 INCLUDE STRUCTURE bapiret2.
DATA: END OF i_return.
DATA: BEGIN OF i_part OCCURS 0, " Internal table for split data
 part(20),
 END OF i_part.
DATA: BEGIN OF i_return1 OCCURS 20. "Return parameter
 INCLUDE STRUCTURE bapiret1.
DATA: END OF i_return1.
*-- Work areas
DATA: BEGIN OF wa_header . "Material Document Header Data
 INCLUDE STRUCTURE bapi2017_gm_head_01.
DATA: END OF wa_header .
DATA: BEGIN OF wa_return . "Output Structure
 INCLUDE STRUCTURE bapi2017_gm_head_ret.
DATA: END OF wa_return .
*-- Work areas
DATA: wa_mseg TYPE t_mseg,
 wa_ekbe LIKE t_ekbe,
 wa_ekpo LIKE t_ekpo,
 wa_options TYPE t_options,
 i_ekbe LIKE STANDARD TABLE OF t_ekbe,
 i_ekbe2 LIKE STANDARD TABLE OF t_ekbe,
 i_ekpo LIKE STANDARD TABLE OF t_ekpo.
*---Variables
DATA: v_first, " variable to get first digit
 v_set TYPE c,
 v_found TYPE p,
 v_menge TYPE p,
 v_ebeln LIKE ekko-ebeln,
 v_lifnr LIKE ekko-lifnr,
 v_belnr LIKE ekbe-belnr,
 v_postdate LIKE mkpf-budat,
 v_bukrs LIKE marv-bukrs,
 v_datum LIKE sy-datum,
 v_lgort LIKE mard-lgort, " Stge. location
 v_bwart LIKE mseg-bwart, " Movement type
 v_infnr LIKE eina-infnr, " Info record no.
 v_ltsnr LIKE eina-ltsnr.
*---Constants
CONSTANTS: c_comma TYPE c VALUE ',', " For splitting data at commas
 c_01(2) TYPE c VALUE '01', " For movement code in Bapi
 c_b TYPE c VALUE 'B', " For mvt. Indicator in Bapi
 c_save(4) TYPE c VALUE 'SAVE', " For button text
 c_clear(5) TYPE c VALUE 'CLEAR', " For clear button
 c_mvmt(4) TYPE c VALUE 'MVMT',
 c_ok(2) TYPE c VALUE 'OK',
 c_error(5) TYPE c VALUE 'Error'.
*--SELECTION SCREEN DESIGN--
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
PARAMETERS: p_bar(75) , " Scanned data from barcode
 p_ebeln LIKE ekko-ebeln, " PO number
 p_matnr LIKE ekpo-matnr, " Material number
 p_menge LIKE ekpo-menge, " Quantity
 p_lifnr LIKE ekko-lifnr, " Vendor code
 p_frbnr LIKE mkpf-frbnr, " Reference doc for goods mvt
 p_status(5) TYPE c.
SELECTION-SCREEN END OF BLOCK blk1.
SELECTION-SCREEN PUSHBUTTON 15(10) v_save USER-COMMAND mvmt.
SELECTION-SCREEN PUSHBUTTON 40(10) v_clear USER-COMMAND clear.
INITIALIZATION -
INITIALIZATION.
v_save = c_save .
v_clear = c_clear.
*--AT SELECTION_SCREEN--
AT SELECTION-SCREEN .
IF sy-ucomm = c_clear.
 PERFORM f_clear.
ELSE.
 IF sy-ucomm <> c_mvmt.
 if not sy-tabix is initial and sy-ucomm <> c_mvmt.
*--- Extracting the data by splitting the scanned values.
 PERFORM f_get_split_data.
*--- Validating the input data.
 PERFORM f_check_inputs.
 ELSE .
*--- Validating the input data.
 PERFORM f_check_inputs.
*-- Determining the posting date and period check.
 PERFORM f_get_posting_date.
*---Post goods movement
 PERFORM f_post_receipt.
 ENDIF.
ENDIF.
 SUBROUTINES *
*& Form f_check_inputs
 Validating the input parameters
FORM f_check_inputs.
*-- Validating material no.
SELECT SINGLE matnr INTO p_matnr
 FROM mara
 WHERE matnr = p_matnr.
IF sy-subrc = 4.
 p_status = c_error.
 MESSAGE e003(zm) WITH 'Material no.'.
ENDIF.
*-- Validating JHT reference no.
SELECT SINGLE ebeln
 lifnr
 bukrs
 INTO (p_ebeln, v_lifnr , v_bukrs)
 FROM ekko
 where unsez = p_unsez. chg:07072003
 WHERE ebeln = p_ebeln.
IF sy-subrc = 4.
 p_status = c_error.
 MESSAGE e003(zm) WITH 'Purchase order no.'.
ENDIF.
*-- Validating material po combination
SELECT SINGLE *
 FROM ekpo
 WHERE ebeln = p_ebeln
 AND matnr = p_matnr.
IF sy-subrc = 4.
 p_status = c_error.
 MESSAGE e003(zm) WITH 'Purchase order no.' ' and Material no.'.
ENDIF.
*--- Checking for DO entry . (chng : 30/06/2003)
IF p_frbnr IS INITIAL.
 MESSAGE e018(m7) WITH 'Delivery no.'.
 p_status = c_error.
 PERFORM f_clear.
ENDIF.
*-- Validating material po do combination
SELECT SINGLE a~belnr
 INTO v_belnr
 FROM ekbe AS a
 INNER JOIN mkpf AS b
 ON abelnr = bmblnr
 AND agjahr = bmjahr
 WHERE a~ebeln = ekpo-ebeln
 AND a~ebelp = ekpo-ebelp
 AND b~xblnr = p_frbnr.
IF sy-subrc = 0.
 MESSAGE e019(zm) WITH v_belnr.
 p_status = c_error.
 PERFORM f_clear.
ENDIF.
p_status = c_ok.
ENDFORM. " f_check_inputs
*& Form f_get_split_data
 Extracting the data by splitting the Scanned data
FORM f_get_split_data.
*-- Splitting the data at commas
SPLIT p_bar AT c_comma INTO TABLE i_part.
*-- Assigning the parts to variables.
LOOP AT i_part.
 v_first = i_part-part+0(1).
 TRANSLATE v_first TO UPPER CASE.
 CASE v_first .
 WHEN 'V'.
 p_lifnr = i_part-part+1(10).
 WHEN 'P'.
 p_matnr = i_part-part+1(18).
 WHEN 'Q'.
 p_menge = i_part-part+1(13).
 WHEN 'K'.
 p_ebeln = i_part-part+1(10).
 WHEN 'D'.
 p_frbnr = i_part-part+2(16).
 WHEN OTHERS.
 CONTINUE.
 ENDCASE.
ENDLOOP.
ENDFORM. " f_get_split_data
*& Form f_get_posting_date
Determing the posting date for document
FORM f_get_posting_date.
*-- get the current period for todays date.
DATA: l_period LIKE t009b-poper.
CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'
 EXPORTING
 i_date = sy-datum
 i_periv = 'K4'
 IMPORTING
 e_buper = l_period
E_GJAHR =
 EXCEPTIONS
 input_false = 1
 t009_notfound = 2
 t009b_notfound = 3
 OTHERS = 4
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
*-- Determining whether the open period
SELECT SINGLE *
 FROM marv
 WHERE bukrs = v_bukrs.
IF sy-subrc = 0.
 IF l_period = marv-lfmon .
 v_postdate = sy-datum.
 ELSE.
 CALL FUNCTION 'BAPI_CCODE_GET_FIRSTDAY_PERIOD'
 EXPORTING
 companycodeid = v_bukrs
 fiscal_period = marv-lfmon
 fiscal_year = marv-lfgja
 IMPORTING
 first_day_of_period = v_postdate
 return = i_return1.
 IF NOT i_return[] IS INITIAL.
 LOOP AT i_return1.
 MESSAGE i016(zm) WITH i_return-message.
 ENDLOOP.
 ENDIF.
 ENDIF.
ENDIF.
ENDFORM. " f_get_posting_date
*& Form f_post_receipt
Post the goods receipt for entered data.
FORM f_post_receipt.
PERFORM f_fill_item.
PERFORM f_fill_header.
PERFORM f_execute_transfer.
PERFORM f_clear.
ENDFORM. " f_post_receipt
*& Form f_fill_item
Updating the item data for the GR
FORM f_fill_item.
Checking for IQC cycle is done here.(chng : 23/07/2003)
PERFORM f_check_iqc.
*---- Assigning movement type as per IQC cycle.(chng : 23/07/2003)
IF v_lgort IS INITIAL.
 MOVE '101' TO i_item-move_type.
 SELECT SINGLE lgort INTO i_item-stge_loc
 FROM ekpo
 where ebeln = v_ebeln and " chg :07/07/2003
 WHERE ebeln = p_ebeln AND
 matnr = p_matnr .
ELSE.
 MOVE v_lgort TO i_item-stge_loc.
 MOVE v_bwart TO i_item-move_type.
ENDIF.
MOVE p_matnr TO i_item-material.
MOVE p_menge TO i_item-entry_qnt.
move v_ebeln to i_item-po_number. " 07/07/2003
MOVE p_ebeln TO i_item-po_number.
MOVE v_lifnr TO i_item-vendor.
MOVE c_b TO i_item-mvt_ind.
select single ebelp into i_item-po_item " chg :29/07/2003
 from ekpo
 where ebeln = p_ebeln
 and matnr = p_matnr
 and elikz = ''.
SELECT ebeln
 ebelp
 matnr
 menge
 INTO CORRESPONDING FIELDS OF TABLE i_ekpo
 FROM ekpo
 WHERE ebeln = p_ebeln
 AND matnr = p_matnr
 AND loekz = '' .
SORT i_ekpo BY ebeln ebelp matnr.
LOOP AT i_ekpo INTO wa_ekpo.
 IF v_found = 0.
 SELECT ebeln ebelp
 bwart menge
 INTO CORRESPONDING FIELDS OF TABLE i_ekbe
 FROM ekbe
 WHERE ebeln = p_ebeln
 AND ebelp = wa_ekpo-ebelp
 AND matnr = p_matnr.
 and elikz = '' . CHG -- 03/19/2004
 IF sy-subrc = 0.
 LOOP AT i_ekbe INTO wa_ekbe .
 IF wa_ekbe-bwart = '101'.
 v_menge = v_menge + wa_ekbe-menge.
 ENDIF.
 IF wa_ekbe-bwart = '102'.
 v_menge = v_menge - wa_ekbe-menge.
 ENDIF.
 IF wa_ekbe-bwart = '122'.
 v_menge = v_menge - wa_ekbe-menge.
 ENDIF.
 ENDLOOP.
chng: 03/19/2004 compare po qty against receipt
 v_menge = v_menge + p_menge .
 IF wa_ekpo-menge >= v_menge .
 v_found = 1.
 MOVE wa_ekpo-ebelp TO i_item-po_item.
 ENDIF.
 ELSE .
 v_found = 1.
 MOVE wa_ekpo-ebelp TO i_item-po_item.
 ENDIF.
 ENDIF.
 CLEAR : wa_ekbe, i_ekbe, v_menge.
ENDLOOP.
IF v_found = 0 .
 MESSAGE e003(zm) WITH ' delivery items'.
ENDIF.
APPEND i_item.
CLEAR : i_item, v_found .
ENDFORM. " f_fill_item
*& Form f_check_iqc
Checking the storage location for the (chng : 23/07/2003)
FORM f_check_iqc.
CALL FUNCTION 'Z_M_GET_IQC_STATUS'
 EXPORTING
 matnr = p_matnr
 lifnr = v_lifnr
 IMPORTING
 lgort = v_lgort
 bwart = v_bwart
 ltsnr = v_ltsnr
 infnr = v_infnr
 EXCEPTIONS
 non_iqc_vendor = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 CLEAR : v_lgort , v_bwart , v_ltsnr.
ENDIF.
ENDFORM. " f_check_iqc
*& Form f_fill_header
Updating data in the header
FORM f_fill_header.
MOVE v_postdate TO wa_header-pstng_date.
MOVE sy-datum TO wa_header-doc_date.
MOVE p_frbnr TO wa_header-ref_doc_no.
ENDFORM. " f_fill_header
*& Form f_execute_transfer
 Executing the goods movement.
FORM f_execute_transfer.
CALL FUNCTION 'BAPI_GOODSMVT_CREATE'
 EXPORTING
 goodsmvt_header = wa_header
 goodsmvt_code = c_01
 IMPORTING
 goodsmvt_headret = wa_return
 TABLES
 goodsmvt_item = i_item
 return = i_return.
IF i_return[] IS INITIAL .
 COMMIT WORK.
*--- UPdating Info record for IQC cycle ind.(chng : 23/07/2003)
 IF NOT v_ltsnr IS INITIAL.
 UPDATE eina SET ltsnr = v_ltsnr
 WHERE infnr = v_infnr.
 ENDIF.
 REFRESH : i_item.
 CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
 MESSAGE i012(migo) WITH wa_return-mat_doc.
 PERFORM f_do_print.
ELSE.
 REFRESH : i_item.
 CLEAR : wa_header,v_ltsnr , v_infnr,v_bwart,v_lifnr.
 PERFORM write_errors.
ENDIF.
ENDFORM. " f_execute_transfer
FORM write_errors.
WRITE: 0(90) sy-uline ,
 /0'|',
 3 'System messages for GR posting',
 90 '|',
 /0(90) sy-uline .
LOOP AT i_return.
 CASE i_return-type.
 WHEN 'E'.
 MESSAGE i016(zm) WITH i_return-message.
 WHEN 'W'.
 MESSAGE i017(zm) WITH i_return-message.
 WHEN 'I'.
 WRITE: /0'|',
 icon_yellow_light AS ICON ,
 '|',
 10 i_return-message,
 90 '|'.
 MESSAGE i018(zm) WITH i_return-message.
 WHEN 'S'.
 WRITE: /0'|',
 icon_green_light AS ICON ,
 '|',
 10 i_return-message,
 90 '|'.
 MESSAGE i018(zm) WITH i_return-message.
 WHEN OTHERS.
 WRITE: /0'|',
 icon_red_light AS ICON ,
 '|',
 10 i_return-message,
 90 '|'.
 MESSAGE e016(zm) WITH i_return-message.
 ENDCASE.
 AT LAST .
 WRITE:/0(90) sy-uline .
 ENDAT.
ENDLOOP.
ENDFORM. " write_errors
*& Form f_clear
Clearing the input parameters
FORM f_clear.
CLEAR : p_ebeln ,
 p_bar,
 p_matnr,
 p_frbnr,
 v_lifnr,
 p_menge,
 p_status.

Hi all,
can anyone suggest any idea?
Regrds
pabitra

Consignment price (very very urgent)

Hi all,
i am writting a report on consignment stock.i am taking material from MKOL table where as i am taking consignment price from MKOP(konpr) table if TCURM-konsi = ''.
that means if tcurm-konsi is initial then it will extract the pricing data from MKOP.
i checked the TCURM table in which konsi field is 'X'.that means tcurm-konsi is not initial.so it will not go for MKOP data.
IN the mean while , i checked MKOP table but there is no records present at all.it is fully empty.
Now, if not TCURM-konsi is initial.
then from which tables, i will get the related pricing data for consignment.
so, from which table i have to take the consignment price & per unit price as well.
any idea will be highly appreaciated.
it is very urgent.plz advice me on this.
Thanks & regards
pabitra

Hi ravi kanth,
Thank u very much.i have already used that FM ME_READ_INFORECORD to get the price.but the price is comming wrongly.The price for all the materials are same.i am getting same price for every material but in MB54, the price is different.
can u plz provide some code for the condition
if tcurm-konsi = 'x'.
i am really confused. i have already followed the steps ,what the program RM07MKBS is doing. but getting the same price for every material.plz suggest.
it is very very urgent.
Regards
pabitra

Add Fields from table ADRC (Fields Name 1 to 4) for Open Item Processing

Hi SAP Expert:
Our client requires vendor/customer name to be displayed in the open item processing line layout for transaction code f-58, so they can double check if the vendor name is complete as intended.
We intend to add fields from table ADRC instead of REGUH since the characters in maintaining vendor/customer name is 40 characters and REGUH - ZNME1s are only 35 characters.
We have managed to add fields from ADRC and change the SAPDF05X program and were able to display the names in open item layout, except that the program seems to "automatically" create a generic table which only carries 30 characters of the vendor/customer name. The source table should be RFOPS_DK but the program automatically looks up from table RFOPS_GEN for the particular fields - Name 1 to 4. Is there a way to "instruct" the program to use RFOPS_DK instead of RFOPS_GEN?
Hope this will merit somebody's attention... Thanks !!!

Thanks, i have assigned the layout via o7v3, it is the program that i have a problem with, actually another program that we change is the program MF05BFPO where it generates data to be displayed in the FBZ4 screen, though we add a field with 40 characters (ADRC Name 1 to 4) what the program dispalys is a 30 character Name1 to 4 from structure RFOPS_GEN.
My question is can i extend/change the structure RFOP_GEN to 40 characters, is there any SAP standard program that will aftected if i do so? thank very much...
Lorena

Custom fields for FV50 table control

Hello,
The customer has a requirement to add 3 text fields to the table control in Transaction FV50. These fields are currently not available in the table control at all (I checked the Table settings Administrator). Further, no Screen/Transaction Variant has been implemented either to prevent these fields from being displayed. Which is why I'd like to find a way to add these custom fields to this table control. These fields are the text descrptions for the numeric fields Cost Center, Fund and Business Area.
I've read many posts on this forum regarding potential solutions including the link below which details the SAP std solution. Only problem is this approach adds these fields to the data dictionary tables underlying the screen. The customer says about 1 million records are being generated a month so they would rather not have all that extra data at the line item level.
Custom column for FB60
If anybody has done this sort of thing via a user exit I'd much appreciate your input.
Thanks,
Tarun

Hi Rob,
Yes, I checked IMG configuration and found that Txn OXK3 allows us to extend the underlying tables and customize the generic fields in the table control. However, the client has nearly 1 million postings to table BSEG each month and I'm guessing this approach will entail adding the custom fields to table BSEG, which won't work for them. I haven't actually tried this approach because the SAP documentation has some dire warnings about proceeding. But if you have any insight as to whether this can be achieved without extending BSEG (possibly just extend VBSEGS??) that would be very valuable.
Thanks,
Tarun

How to convert the table with separate fields for every period

Hi there,
I have the table in R/3 called COSP. The table contains the separate fields for values of separate reporting periods, let's say Amount01, Amount02 etc. I need to extract this data to BW and load it into ODS, which contains the data like common key figure for amount and info object Fiscal Period. How to extract and tansform the data to be able to load it there?
I mean, how to change the row like:
100 100 200 200....
for rows like:
001 100
002 100
003 200
004 200
I hope you'll help,
Kooyot

Hi,
you need to implement a bit of coding for that.
With the 'do varying' statement abap provides a loop over those fields. Within this loop you can build up a new internal table with one entry for each period and amount.
kind regards
Siggi
PS: I am not very familiar with CO, but I guess there will be a standard extractor for that.

Change the content of a field for a record in table

Dear guru ,
i know that there is chance to change the content of a field for a record in table using SE16 for the table involved and debugging.
Can you explain me the flow to run this ?
Thanks.

>
CONS SAP wrote:
> Dear guru ,
> i know that there is chance to change the content of a field for a record in table using SE16 for the table involved and debugging.
> Can you explain me the flow to run this ?
> Thanks.
Hi CONS SAP,
You can use se16n transaction. This is very user friendly trnasaction. You may use it like this:
1) Start transaction SE16n.
2) Type the table name and press ENTER.
3) Type the string "&sap_edit" into the command line and press Enter.
4) Enter your selection criteria and press F8.
Now you can easily change/delete/add the lines you want and then save.
All Changes are recorded in the tables SE16N_CD_DATA and SE16N_CD_KEY.
But I would request you to keep in mind the suggestions from Vijay Babu Dudla
>
Vijay Babu Dudla wrote:
> if you are trying on some test table then it is ok. but don't update any transactional data like that. it is not good practice.
>
Many regards,
Ravi.

Fields for table-----very very urgent

Similar Messages

Maybe you are looking for