BDC for IE02 Classification Fields

Hi,
I am trying to create BDC for IE02 Equipment change for its Classification fields based on equipment object type.
When i create BDC with IE02 and when i go to the transaction and then Eq Specific TAB the fields become display only and i couldn't enter data.How to record BDC for Eq specific TAB in IE02?
Is that good to update the classification data for IE02 directly with "BAPI_OBJCL_CHANGE". The number of classification fields for each equipment type differs how can that be handled?
Thank you
arun

hi Arun,
Did you try changing the equipment using BAPI_EQUI_CHANGE ? There is a structure called DATA_SPECIFIC which is specific for Equipment related data.
For classification related changes, look at the FM's available in transaction BAPI
Cross Application Components -> Classification
Regards,
Subramanian V.
Message was edited by: Subramanian Venkateswaran

Similar Messages

BDC for non editable fields

hi
i want to process the non-editable fields in a transaction (ME32) from the program itself. but when i am doing this it is showing error saying '........field is not input field'.
how to process this. pls check this.

Hi Jay,
The noneditable fields cannot be modified by BDC.
But in one of our tasks,
We followed this techinique..
Actually 2 of the fields in second screen are not open for input if certain variable is X in 1st screen.
Then we started that screen with Y and in this case those fields are open for input,now in second screen we modified the field as X back and saved the record..
I am not sure whether this might help you

HOW TO HANDLE MULTIPLE VALUES IN BDC FOR A PARTICULAR FIELD.

I THINK IT IS HANDLING OF TABLE CONTROLS IN BDC
PLEASE LET KNOW WHETHER THESE TWO ARE SAME CONCEPT OR NOT
HOW TO HANDLE TABLE CONTROLS IN BDC
Moderator message - Please do not use all caps. Please do not ask interview questions - post locked
Edited by: Rob Burbank on Jun 26, 2009 10:02 AM

Hi,
To handle table control in BDC you will have to enter at least one record in the table control and there after use the index number to increment to the next line item.
Say you run a recording for a transaction which has a table control (ME21), here after you have completed the recording, you'll see the code which will have sometjing like <fieldname>(01) and the entered value. that valeu has been entered as the first line item (01 being the index).
You will have to replace the hard coded line item index with a variable and inside a loop increment the item index. Once you reach the maximum allowed line items on your screen juct press the pagedown button (or insert new row) and reset the index to 1.
Following is a code snippet I used while uploading data for ME31K (vendor contract). It is not the complete code but does show how your code needs to be changed with using index for line items.
Here we assumne that the maximun number of lines displayed at a time on the screen is 14.
<< Unformatable code removed >>
Hope this helps.
Regards,
Sachin
Edited by: Rob Burbank on Jun 26, 2009 10:03 AM

BDC for CKECP- Item fields are not captured

Hi all
I recorded transaction CKECP using shdb.
In that if we click 'Show/hide item view' the item wise details to be entered appears.
items were entered. Transaction recorded.
But the item fields are not appearing in the recording.
Can somebody explain to me ?
Vijaya Chamundi

you can use BAPI
2044                           BAPIs for Business Object Cost Estimate
BAPI_COSTESTIMATE_ALLOW_MARK   Grant Marking Allowance for Costing
BAPI_COSTESTIMATE_ALLOW_MA_GET Determine Organizational Measures
BAPI_COSTESTIMATE_CREATE_SPLIT Create Cost Estimate with Cost Component Split
BAPI_COSTESTIMATE_DELETE       Delete Cost Estimate
BAPI_COSTESTIMATE_DELETE_MULTI Delete Cost Estimates
BAPI_COSTESTIMATE_GETDETAIL    Determine Detailed Information for a Cost Estima
BAPI_COSTESTIMATE_GETEXPLOSION Determine BOM Explosion for a Cost Estimate
BAPI_COSTESTIMATE_GETLIST      Determine Cost Estimate Lists
BAPI_COSTESTIMATE_ITEMIZATION Determine Itemization for a Cost Estimate
BAPI_COSTESTIMATE_MARKING      Marking Standard Cost Estimate
BAPI_COSTESTIMATE_RELEASING    Release of Marked Standard Cost Estimates
BAPI_COSTESTIMATE_UPDATE_PRICE Update of Prices in Material Master
BAPI_SHIPMENT_COST_ESTIMATE    Calculate Shipment Costs of Different Forwarding

BDC for XD02 -Custom Fields

Hello All,
We have few custom fields on customer Master. These fields are on a new tab. When I do the recording for XD02 it shows the old XD02 transaction(We are on 6.0). It doesn't show custom fields and I don't see that there is any BAPI available to change these custom fields. Does any one has an idea? Appreciate your input.
Thanks..

First check XD02 in eCC 6.0. If the custom fields are there then you should be able record those fields if not, first import the change or transport you made in previous version.
You can see the changes sitting in ECC 6.0 in transaction SE95

Hi All, I developed a BDC for transaction IE02

Hi All, I developed a BDC for transaction IE02, when i am uploading data into this bdc 'validity period' is automatically taking the present system date, as in program i have not given any validations for this validity from Can anyone guide me on this as so why the data in validity from is taking present system date and how do i avoid it.
Thanks..!!!
Regards,
Swarna

Hi Swarna,
AS you mention IE02 Validity From is not editable.
If you capturing this field in BDC then you can put hard-code date value sy-datum in this field , no need to chnage in excel or manual update every time.
and If you are not capturing this field in BDC then please try to use BAPI for uploading data.
like.
BAPI_EQUI_CHANGE or
BAPI_EQMT_MODIFY.
Regards,
Prasenjit

BDC for Uploading data from XL sheet with unknown order of fields

Hi SAP Gurus,
My requirement is as follows,
A BDC is to be developed for uploading data from an XL sheet, but the problem here is , the order of fileds in the sheet can be changed .
ie, for example the fields in the XL sheet are :-
matnr maktx menge amount
but the user can give as
matnr amount menge maktx
or
maktx matnr amount menge
how i can solve this problem.
Thanks and Regards,
pavan.

Hi Pavan,
You need to handle it by your self, you can create a dynamic table based on the file value.
The field name pass from file with the record as a header, and based on the header name create your dynamic table.
afterward you can pass your value to BDC.
for creating dynamic table you can use this method
call method cl_alv_table_create=>create_dynamic_table
exporting
 i_style_table =
 it_fieldcatalog = it_field[]
 i_length_in_byte =
importing
 ep_table = dyn_tab
 e_style_fname =
exceptions
 generate_subpool_dir_full = 1
 others = 2
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
-Dhirendra

BDC for TCODE F150

Hi Friends,
I am facing problem while developing BDC for tcode F150. The last action i.e. scheduling for particular dunning date is not getting executed in my BDC.
I am also pasting the end part of my BDC recording. Please review it and advise.
PERFORM bdc_dynpro      USING 'SAPLF150_JOBS' '1000'.
PERFORM bdc_field       USING 'BDC_CURSOR'
                                'F150V-STRZT'.
PERFORM bdc_field       USING 'BDC_OKCODE'
                                '=JOBS'.
PERFORM bdc_field       USING 'F150V-STRDT'
                                rdate.
PERFORM bdc_field       USING 'F150V-XSTRF'
                                'X'.
    select single SPLD into p_out from USR01 where bname = sy-uname.
perform bdc_field       using 'ITCPO-TDDEST'
                                 p_out.
CALL TRANSACTION 'F150'
Thank you,
Swapnil
Edited by: Swapnil Tawade on Sep 22, 2008 3:15 PM

Hi,
   If u want it for some specific plants then before populating data to bdcdata internal table check the conditions for which the plant fields required values to be passed and if the condition is satisfied then pass the plant field to bdcdata table . If the condition is not satisfied then dont pass that plant field to bdcdata table bcoz if u r not passing any field to bdcdata table then that field is going have default values.
Regards,
Shafi

User Exit and BDC for ME22N

Hello All,
A code has been written in the User exit for Tcode ME22N, Which sets the indicator on PO line item. This has been done by modifying the standard itab POT by using field symbols, because the fields to be modified are shown in display mode in the tcode ME22N and cannot be done in BDC. See the below code in user exit ZXM06U43.
DATA char(50) VALUE '(SAPLMEPO)POT[]'.
CLEAR wa_ind.
 FIELD-SYMBOLS <f1> TYPE ANY.
Move memory of internal table POT to field symbol f1.
 ASSIGN (char) TO <f1>.
Move content of f1 to internal table i_ind
 i_ind[] = <f1> .
 LOOP AT i_ind INTO wa_ind.
 IF wa_ind-pstyp = '9'. " Service PO - item category
IF PO Line item has History per Purchasing Document as 'D'
Set indicators on, for the line item.
 CLEAR v_cnt.
 SELECT COUNT( * ) INTO v_cnt FROM ent5100
 WHERE ebeln = wa_ind-ebeln
 AND ebelp = wa_ind-ebelp
 AND bewtp = 'D'.
 IF sy-subrc = 0.
 wa_ind-wepos = 'X'. " Set Goods Receipt Indicator
 wa_ind-webre = 'X'. " Set GR-based IV Indicator
 wa_ind-lebre = 'X'. " Set Srv-based IV Indicator
 ELSE.
*End of addition SAP-20070910104025 - SL36 - D01K963369
 wa_ind-wepos = ' '. " Clear Goods Receipt Indicator
 wa_ind-webre = ' '. " Clear GR-based IV Indicator
 wa_ind-lebre = ' '. " Clear Srv-based IV Indicator
 wa_ind-xersy = ' '. " Clear ERS Indicator
 ENDIF.
 MODIFY i_ind FROM wa_ind INDEX sy-tabix.
 ENDIF.
 ENDLOOP.
 <f1> = i_ind[].
ENDIF.
ENDIF.
This code is in production and has been working fine.
The requirnment is now to make this indicator work for all the Purchase order before this code has been written in the Exit. For this my functional suggests that to write a separate program using BDC for PO change and jus add a period/dot in the short text and save it. The code has been written, the user exit and the above code is getting triggrred values are updated in internal table correctly.
However the flags was not set or cleared when seen in the tcode ME22N . This works fine if the tcode me22n is run directly and not working in BDC.
I have tried with ME22 without enjoy transaction in BDC changing the POT Program to SAPMM06E. It does not work.
Please help me as why it is not uodating in the table when using BDC.
Thanks in Advance.
Senthil Kumar

Hi All,
Any luck on this??
Thanks

"BDC for multiple line items of PO"

I am using this code to move data for multiple line items of a PO. But only one is getting transferred. I am using BDC for this.
FORM transaction_bdc .
DATA :
v_cnt(2) TYPE n,
v_bst(2) TYPE n,
v_bn TYPE i,
v_bstpo(25),
v_ebtyp(25),
v_menge(25),
v_eeind(25),
v_xblnr(25),
v_xblnr1(25),
v_ebelp(2) TYPE n,
v_ebelpt(2),
v_menge1(11),
v_ebt TYPE i,
v_vebtyp LIKE ekes-ebtyp,
v_eb(2) TYPE n,
v_tcselflag(40),
v_tem(2) TYPE n,
v_correct TYPE i,
v_file TYPE string.
DATA: ls_outtab TYPE tb_struc.
DATA: l_valid TYPE c,
 l_locked TYPE c.
CALL METHOD g_grid->check_changed_data
 IMPORTING
 e_valid = l_valid.
IF l_valid EQ 'X'.
 LOOP AT tb_output WHERE check EQ 'X' .
 MOVE-CORRESPONDING tb_output TO itab_output.
 APPEND itab_output.
 CLEAR itab_output.
 ENDLOOP.
 IF tb_output-check <> 'X'.
 MESSAGE e003 WITH text-004.
 ENDIF.
ENDIF.
IF itab_output[] IS NOT INITIAL.
 PERFORM open_group.
***looping at purchase order level.
 LOOP AT itab_output where ebelp is not initial .
 CLEAR v_bn.
 CLEAR v_ebt.
 PERFORM bdc_dynpro USING 'SAPMM06E' '0105'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'RM06E-BSTNR'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_field USING 'RM06E-BSTNR'
 itab_output-ebeln.
***Changing alphanumeric fields and quantity fields to character type**
*v_ebelp = tB_OUTPUT-ebelp.
*clear v_ebelpt.
*v_menge1 = tB_OUTPUT-menge.
*v_ebelpt = v_ebelp.
***End Of Changing**
*Checking for the exact number of the item**
 LOOP AT tb_output where ebeln = itab_output-ebeln.
 READ TABLE itab_output INDEX 1.
 IF tb_output-ebelp = itab_output-ebelp.
 exit.
 ELSE.
 v_bn = v_bn + 1.
 ENDIF.
 ENDLOOP.
v_bst = v_bn + 1.
*End Of Checking**
**Mapping items**
 v_tem = 1.
 CONCATENATE 'RM06E-BSTPO(' v_bst ')' INTO v_bstpo.
 CONCATENATE 'RM06E-TCSELFLAG(' v_tem ')' INTO v_tcselflag.
 PERFORM bdc_dynpro USING 'SAPMM06E' '0120'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 v_bstpo.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=DETA'.
 PERFORM bdc_field USING 'RM06E-EBELP'
 v_ebelpt.
 PERFORM bdc_dynpro USING 'SAPMM06E' '0111'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'EKPO-BSTAE'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '/00'.
 PERFORM bdc_dynpro USING 'SAPMM06E' '0120'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 v_bstpo.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=BSTA'.
 PERFORM bdc_field USING 'RM06E-EBELP'
 v_ebelpt.
 PERFORM bdc_field USING v_tcselflag
 'X'.
**Checking weather Confirmation category already exists**
 SELECT ebtyp FROM ekes INTO v_vebtyp WHERE ebelp =
 itab_output-ebelp AND ebeln = itab_output-ebeln.
 ENDSELECT.
 IF sy-dbcnt > 0.
 v_ebt = sy-dbcnt.
 ENDIF.
 v_eb = v_ebt + 1.
**End Of Checking**
**For Line items**
 CONCATENATE 'EKES-EBTYP(' v_eb ')' INTO v_ebtyp.
 CONCATENATE 'EKES-MENGE(' v_eb ')' INTO v_menge.
 CONCATENATE 'RM06E-EEIND(' v_eb ')' INTO v_eeind.
 CONCATENATE 'EKES-XBLNR(' v_eb ')' INTO v_xblnr.
**End**
 PERFORM bdc_dynpro USING 'SAPLEINB' '0200'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 v_xblnr.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=BU'.
 PERFORM bdc_field USING v_ebtyp
 itab_output-ebtyp.
 PERFORM bdc_field USING v_eeind
 itab_output-eindt.
 PERFORM bdc_field USING v_menge
 v_menge1.
 PERFORM bdc_field USING v_xblnr
 itab_output-xblnr.
**End Of Mappings**
*loop at itab_output.
 MOVE-CORRESPONDING itab_output TO ekes.
 modify ekes.
 MOVE-CORRESPONDING itab_output TO eket.
 MODIFY eket.
 MOVE-CORRESPONDING tb_output TO ekpo.
 MODIFY ekpo.
 ENDLOOP.
 CALL TRANSACTION 'ME22N'
 USING itbdc
 MODE 'E'.
 commit work.
perform bdc_transaction using 'ME22N'.
**End Of Purchase Order Loop**
 PERFORM close_group.
 endloop.
 endif.

Hi Asha,
check the below code once...
LOOP AT tb_output where ebeln = itab_output-ebeln.
READ TABLE itab_output INDEX 1.
IF tb_output-ebelp = itab_output-ebelp.
exit.
ELSE.
v_bn = v_bn + 1.
ENDIF.
ENDLOOP.
Here you are reading the table itab_output with index 1, it means you alway reading the first record of that internal table.
Regards,
Satya.

BDC For Line Items In Sales Order

Hello,
I have an internal table of line items which i need it to pass it to BDC for sales order line items creation. Can anybody tell me how to do this like the logic which is used to pass the field names. I just have the material number and Quantity to be passed ..
Thanks
Viky

See below code for Purchase Order :
report zpochange.
data : i_error like bdcmsgcoll occurs 0 with header line.
data : i_bdcdata like bdcdata occurs 0 with header line.
tables : ekko, ekpo.
data :c1(10) value 'ME22',
 c2(1) value ',',c3(10).
data : var1(20). " LIKE EKKO-EBELN.
data : var2 like ekko-ebeln.
data : begin of i_ekko occurs 0,
 header(2),
 ebeln like ekko-ebeln,
 end of i_ekko.
data : begin of i_ekpo occurs 0,
item(2),
 ebeln like ekpo-ebeln,
 ebelp like ekpo-ebelp,
 menge(10), " LIKE EKPO-MENGE,
 end of i_ekpo.
data : v like ekpo-ebelp.
data: begin of itab occurs 0,
 text(300),
 end of itab.
parameters: p_file like ibipparms-path.
*PARAMETERS: PONUMBER LIKE EKPO-EBELN.
at selection-screen on value-request for p_file.
call function 'F4_FILENAME'
exporting
 program_name = syst-cprog
 dynpro_number = syst-dynnr
 FIELD_NAME = ' '
importing
 file_name = p_file
start-of-selection.
*SELECT EBELN FROM EKKO INTO TABLE I_EKKO WHERE EBELN = PONUMBER.
 SELECT EBELN EBELP MENGE FROM EKPO INTO TABLE I_EKPO WHERE EBELN
*= PONUMBER.
perform get_data.
*LOOP AT ITAB.
WRITE :/ ITAB.
ENDLOOP.
loop at itab.
var1 = itab-text+0(1).
if var1 = 'H'.
*I_EKKO-EBELN = ITAB-TEXT.
split itab at c2 into i_ekko-header
 i_ekko-ebeln.
SPLIT ITAB AT ',' INTO I_EKKO-EBELN.
 " I_EKPO-EBELP
 " I_EKPO-MENGE
 " var1.
append i_ekko.
else.
split itab at c2 into i_ekpo-item
 i_ekpo-ebeln
 i_ekpo-ebelp
 i_ekpo-menge.
append i_ekpo.
endif.
*var2 = i_ekpo-ebeln.
MOVE VAR1 TO I_EKPO-EBELN.
MOVE VAR1 TO I_EKKO-EBELN.
APPEND: I_EKPO.
*if not var1 is initial.
 split var1 at ',' into i_ekpo-ebelp
 i_ekpo-menge.
i_ekpo-ebeln = var2.
append i_ekpo.
*endif.
endloop.
loop at i_ekpo.
write :/ i_ekpo.
endloop.
loop at i_ekko.
perform fill_data. " TABLES I_EKPO.
endloop.
LOOP AT I_EKPO.
WRITE :/ I_EKPO.
ENDLOOP.
*& Form GET_DATA
 text
--> p1 text
<-- p2 text
*LOOP AT I_ERROR.
WRITE :/ I_ERROR.
ENDLOOP.
form get_data.
call function 'WS_UPLOAD'
exporting
 codepage = ' '
 filename = p_file
 filetype = 'ASC'
 headlen = ' '
 line_exit = ' '
 trunclen = ' '
 user_form = ' '
 user_prog = ' '
 dat_d_format = ' '
IMPORTING
FILELENGTH =
tables
 data_tab = itab
exceptions
 conversion_error = 1
 file_open_error = 2
 file_read_error = 3
 invalid_type = 4
 no_batch = 5
 unknown_error = 6
 invalid_table_width = 7
 gui_refuse_filetransfer = 8
 customer_error = 9
 others = 10
if sy-subrc <> 0.
message id sy-msgid type sy-msgty number sy-msgno
 with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
endform. " GET_DATA
*& Form FILL_DATA
 text
 -->P_I_EKPO text
form fill_data. " tables i_ekpo .
perform bdcscreen using 'SAPMM06E' '0105'.
perform bdcfield using 'RM06E-BSTNR' i_ekko-ebeln.
perform bdcfield using 'BDC_OKCODE' '/00'.
loop at i_ekpo where ebeln = i_ekko-ebeln.
V = I_EKPO-EBELP.
perform bdcscreen using 'SAPMM06E' 0120.
perform bdcfield using 'BDC_CURSOR' 'RM06E-EBELP'.
perform bdcfield using 'RM06E-EBELP' i_ekpo-ebelp.
perform bdcfield using 'BDC_OKCODE' '/00'.
perform bdcscreen using 'SAPMM06E' 0120.
perform bdcfield using 'BDC_CURSOR' 'EKPO-MENGE(01)'.
perform bdcfield using 'RM06E-EBELP' i_ekpo-ebelp.
perform bdcfield using 'EKPO-MENGE(01)' i_ekpo-menge.
perform bdcfield using 'BDC_OKCODE' '/00'.
*PERFORM BDCSCREEN USING 'SAPMM06E' 0120.
*PERFORM BDCFIELD USING 'BDC_CURSOR' 'RMO6E-EBELP'.
*CLEAR V.
endloop.
perform bdcfield using 'BDC_OKCODE' '=BU'.
call transaction c1 using i_bdcdata mode 'A'
 messages into i_error.
refresh i_bdcdata.
endform. " FILL_DATA
*& Form BDCSCREEN
 text
 -->P_0140 text
 -->P_0120 text
form bdcscreen using p_program p_screen.
i_bdcdata-program = p_program.
i_bdcdata-dynpro = p_screen.
i_bdcdata-dynbegin = 'X'.
append i_bdcdata.
clear i_bdcdata.
endform. " BDCSCREEN
*& Form BDCFIELD
 text
 -->P_0145 text
 -->P_I_EKPO_EBELN text
form bdcfield using fnam fval.
i_bdcdata-fnam = fnam.
i_bdcdata-fval = fval.
append i_bdcdata.
clear i_bdcdata.
endform. " BDCFIELD
I hope same thing for sales order ,i mean both has Table control
Reward Points if it is helpful
Thanks
Seshu

How to make tax classification field mandatory in sales order ?

Hi,
while creating sales order, " how to make tax classification field mandatory ".
Please tell me the procedure.
In tcode OVA2. what are the entries for fields,table.
Regards,
sapsduser

Dear ,
Could you please share why you want to make tax Classification field mandatory in sales order.
Maintain Tax classification field for customer in Customer Master Data = (Sales Area Data - Billing document Tab page)
Tax Classification field for Material in Material Master Data = Sales Org. 1 View.
While creating sales order and enter customer and material system automatically fetch the tax classification related data into sales order.
Tax is calculated based on the ship to party.
Hope this will help you.....
Regards,
Manoranjan.

BDC for MIGO for GR OutBound Delivery( A01 & R05 ) from Movement Type 107 to 109

Hi,
I am stuck with a very typical situation need all your expertise and advices for a solution.
We are basically trying to create change the movement type from 107 to 109 through MIGO.
I have made a BDC recording for MIGO ( because we would like to track each delivery specifically under shipment , I know that there is a BAPI which is there to do this but it works fine if we do the shipment with Purchase Order as input which dont want in that manner )
Process:
1. Creating Production Order
2. Creating Purchase Order
3. Creating STO
4. Deliveries
5. PGI for Deliveries
6. Shipment for group of outbound Deliveries
I have created a z program where i am passing shipment number in the selection screen.
Then it would take all the deliveries for that shipment and pass each delivery to MIGO and process it and change the status from 107 to 109.
Interesting part here is, the code works absolutely perfect only from my ID. But when I test from other ID it is not executing, so to check where is the problem I have added mess_tab to the CALL TRANSACTION to capture what message is been populated for my ID comparing with others
Message Captured on Others ID's:
MSGID: 00
MSGNR: 344
MSGV1: SAPLMIGO
MSGV2: 1300
Message Captured on MY ID:
MSGID: MIGO
MSGNR: 012
MSGV1: 5000005802
MSGV2: (empty)
This is the problem this program is executing only on MY ID, rest all ID's it is not processing.
We have cross verified with security and basis regarding any authorization issues but nothing came up.
Please help me what could be the issue ( WHY it is processing successfully for my and WHY NOT for other ID's)
Below is the main code :
CALL FUNCTION 'CONVERT_DATE_TO_EXTERNAL' " Converting Date format to DD/MM/YYYY
 EXPORTING
 DATE_INTERNAL = sy-datum
 IMPORTING
 DATE_EXTERNAL = lv_date_external
 EXCEPTIONS
 DATE_INTERNAL_IS_INVALID = 1
 OTHERS = 2.
 IF SY-SUBRC <> 0. "#EC NEEDED
* Implement suitable error handling here
 ENDIF.
* Validating input shipment number with database table VTTP
 SELECT VTTP~TKNUM
 VTTP~TPNUM
 VTTP~VBELN
 FROM VTTP INNER JOIN VTTK
 ON VTTP~TKNUM = VTTK~TKNUM
 INTO TABLE IT_VTTP
 WHERE VTTK~TKNUM = P_TKNUM
 AND VTTK~STDIS = 'X'.
 IF sy-subrc = 0.
* Validating all deliveries having same Delivery type or not
 SELECT * FROM likp INTO TABLE it_likp FOR ALL ENTRIES IN it_vttp WHERE vbeln = it_vttp-vbeln
 AND vbtyp = 'J'.
 IF sy-subrc = 0.
 CLEAR lv_lines.
 LOOP AT it_likp INTO wa_likp.
 REFRESH:it_vbfa,BDCDATA.
* Validating if Delivery Type = 109 (GR already done), or Delivery Type = 107 (must process for GR )
 SELECT * FROM vbfa INTO TABLE it_vbfa WHERE vbelv = wa_likp-vbeln
* AND vbtyp_v = 'J'
 AND bwart = '109'.
 IF sy-subrc = 0.
 lv_flag1 = 'X'.
 ELSE.
 SELECT * FROM vbfa INTO TABLE it_vbfa WHERE vbelv = wa_likp-vbeln
* AND vbtyp_v = 'J'
 AND bwart = '107'.
 IF sy-subrc NE 0.
 MESSAGE 'No Deliveries with Movement Type "107" ' TYPE 'I'.
 ELSE.
 lv_flag2 = 'X'.
 lv_lines = lv_lines + 1.
** BDC for MIGO
 perform bdc_dynpro using 'SAPLMIGO' '0001'.
 perform bdc_field using 'BDC_OKCODE'
 '=OK_GO'.
 perform bdc_field using 'GODYNPRO-ACTION'
 'A01'.
 perform bdc_field using 'GODYNPRO-REFDOC'
 'R05'.
 perform bdc_field using 'GODEFAULT_TV-BWART'
 '109'.
 perform bdc_field using 'BDC_CURSOR'
 'GODYNPRO-OUTBOUND_DELIVERY'.
 perform bdc_field using 'GODYNPRO-OUTBOUND_DELIVERY'
 wa_likp-vbeln. "'80019574'.
 perform bdc_field using 'GOHEAD-BLDAT'
 lv_date_external. "'04/29/2015'.
 perform bdc_field using 'GOHEAD-BUDAT'
 lv_date_external. "'04/29/2015'.
 perform bdc_field using 'GOHEAD-WEVER'
 '1'.
 perform bdc_dynpro using 'SAPLMIGO' '0001'.
 perform bdc_field using 'BDC_OKCODE'
 '=OK_POST1'.
 perform bdc_field using 'GODEFAULT_TV-BWART'
 '109'.
 perform bdc_field using 'GOHEAD-BLDAT'
 lv_date_external. "'04/29/2015'.
 perform bdc_field using 'GOHEAD-LFSNR'
 wa_likp-vbeln. "'0080019574'.
 perform bdc_field using 'GOHEAD-BUDAT'
 lv_date_external. "'04/29/2015'.
 perform bdc_field using 'GOHEAD-WEVER'
 '1'.
 perform bdc_field using 'GODYNPRO-DETAIL_ZEILE'
 ' 1'.
 perform bdc_field using 'GOITEM-ERFME'
 'EA'.
 perform bdc_field using 'GOITEM-ERFMG'
 '1'.
 perform bdc_field using 'GOITEM-LSMNG'
 '1'.
 perform bdc_field using 'GOITEM-LSMEH'
 'EA'.
 perform bdc_field using 'GOITEM-MIGO_ELIKZ'
 '1'.
 perform bdc_field using 'GOITEM-BWART'
 '109'.
 perform bdc_field using 'GOITEM-LGOBE'
 'RX Cross-docking'.
 perform bdc_field using 'BDC_CURSOR'
 'GODYNPRO-DETAIL_TAKE'.
 perform bdc_field using 'GODYNPRO-DETAIL_TAKE'
 'X'.
 PERFORM bdc_dynpro USING 'SAPLMIGO' '1300'.
 PERFORM bdc_field USING 'BDC_CURSOR'
 'G_TIP_DONT_SHOW_AGAIN'.
 PERFORM bdc_field USING 'BDC_OKCODE'
 '=OK_TIP_GO'.
 PERFORM bdc_field USING 'G_TIP_DONT_SHOW_AGAIN'
 'X'.
*& Avoid unncessary screens to populate while processing background.
 LV_OPTIONS-DISMODE = 'N'.
 LV_OPTIONS-UPDMODE = 'S'.
 LV_OPTIONS-NOBINPT = 'X'.
 CALL TRANSACTION 'MIGO' USING BDCDATA OPTIONS FROM LV_OPTIONS MESSAGES INTO IT_MESSTAB1 .
 WAIT UP TO 1 SECONDS.
 DELETE IT_MESSTAB1 WHERE MSGTYP NE 'E'.
 IF IT_MESSTAB1[] IS NOT INITIAL.
 APPEND LINES OF IT_MESSTAB1 TO IT_MESSTAB.
 ENDIF.
 ENDIF.
 ENDIF.
 ENDLOOP.
 ENDIF.
 ELSE.
 MESSAGE 'Shipment Number does not exists Or not Planned' TYPE 'E'.
 ENDIF.
 ELSE.
 MESSAGE 'Please insert Shipment Number' TYPE 'E'.
 ENDIF.
 IF lv_flag1 = 'X' AND lv_flag2 = 'X'.
 MESSAGE 'This shipment is processed with an inconsistent goods receipt' TYPE 'I'.
 ELSEIF lv_flag1 = 'X'.
 MESSAGE 'Shipment already been processed for these deliveries' TYPE 'I'.
 ELSEIF lv_flag2 = 'X'.
 lv_lines1 = lv_lines.
 CONDENSE lv_lines1 NO-GAPS .
 CONCATENATE lv_lines1 'Goods Receipt are posted for the shipment '
 INTO lv_message SEPARATED BY space.
 MESSAGE lv_message TYPE 'I'.
 ENDIF.
* Display Messages from Message TAB.
 DELETE ADJACENT DUPLICATES FROM IT_MESSTAB.
 DATA:lv_msg TYPE string.
 LOOP AT IT_MESSTAB INTO WA_MESSTAB.
 CALL FUNCTION 'FORMAT_MESSAGE'
 EXPORTING
 ID = WA_MESSTAB-MSGID
 NO = WA_MESSTAB-MSGNR
 V1 = WA_MESSTAB-MSGV1
 V2 = WA_MESSTAB-MSGV2
 V3 = WA_MESSTAB-MSGV3
 V4 = WA_MESSTAB-MSGV4
 IMPORTING
 MSG = lv_msg
 EXCEPTIONS
 NOT_FOUND = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
* Implement suitable error handling here
 ENDIF.
 WRITE:/ lv_msg.
 ENDLOOP.
* Start new screen *
 FORM BDC_DYNPRO USING PROGRAM DYNPRO. "#EC PF_NO_TYPE
 CLEAR BDCDATA.
 BDCDATA-PROGRAM = PROGRAM.
 BDCDATA-DYNPRO = DYNPRO.
 BDCDATA-DYNBEGIN = 'X'.
 APPEND BDCDATA.
 ENDFORM.
* Insert field *
 FORM BDC_FIELD USING FNAM FVAL. "#EC PF_NO_TYPE
 CLEAR BDCDATA.
 BDCDATA-FNAM = FNAM.
 BDCDATA-FVAL = FVAL.
 APPEND BDCDATA.
 ENDFORM.
Thanks,
Srini

Hi Rob,
Thanks for quick reply.
I have checked the NOTE : 304122
But there in the NOTE it says ( " BAPI, BAPI_GOODSMVT_CANCEL, BAPI_GOODSMVT_CREATE, CNTL_ERROR" )
These BAPI's work perfectly for (purchase order as input type), but here out type is ( A01 & R05 ) we are giving DELIVERY NUMBER as input to MIGO.
So for this scenario we cannot use those BAPI's mentioned in the NOTE.
Also as stated earlier in the message interesting part is
"The code works absolutely perfect only from my ID. But when I test from other ID it is not executing. Code is working exactly as expected ONLY to my ID. When i try to execute the same code from another's ID it is not working"
So what do you think might be the issue?

Problem in doing BDC for XK01

Hi all,
i am doing BDC for XK01 with Line Item for Bank Details(Table Control..)
With 3 Internal table
IT_dummy to get the flat file
IT_vend for Header details
IT_bank for Item Details
in this there is a Nested loop
Loop at it_vend.
perform bdc
loop at it_bank.
concatenate................
endloop.
endloop.
because of the above nested loops..it's bit slow..
& i am trying to do with a single internal table..
The problem is..
with the header data it's not picking all the item data(it's picking only one..)..help me in resolving the problem..
Below the code..
REPORT ZMM_BDCTC1 NO STANDARD PAGE HEADING LINE-SIZE 255.
PARAMETER:P_FILE TYPE RLGRAP-FILENAME.
DATA BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF IT_DUMMY OCCURS 0,
 TYP,
 DES(255) TYPE C,
 END OF IT_DUMMY.
DATA:DELIMITER VALUE ',',
 cnt(4) TYPE N,
 L_FNAM(30) TYPE C,
 FILENAME TYPE STRING.
TYPES:BEGIN OF TY_FINAL,
 N(4) TYPE C,
 LIFNR TYPE RF02K-LIFNR,
 BUKRS TYPE RF02K-BUKRS,
 EKORG TYPE RF02K-EKORG,
 KTOKK TYPE RF02K-KTOKK,
 NAME1 TYPE LFA1-NAME1,
 SORTL TYPE LFA1-SORTL,
 LAND1 TYPE LFA1-LAND1,
 AKONT TYPE LFB1-AKONT,
 FDGRV TYPE LFB1-FDGRV,
 WAERS LIKE LFM1-WAERS,
 M(4) TYPE C,
 BANKS TYPE LFBK-BANKS,
 BANKL TYPE LFBK-BANKL,
 BANKN TYPE LFBK-BANKN,
 KOINH TYPE LFBK-KOINH,
 END OF TY_FINAL.
DATA: IT_FINAL TYPE TABLE OF TY_FINAL,
 WA_FINAL TYPE TY_FINAL.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILE.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
 PROGRAM_NAME = SYST-CPROG
 DYNPRO_NUMBER = SYST-DYNNR
IMPORTING
 FILE_NAME = P_FILE.
 FILENAME = P_FILE.
 CALL FUNCTION 'GUI_UPLOAD'
 EXPORTING
 filename = FILENAME
 FILETYPE = 'ASC'
 tables
 data_tab = IT_DUMMY.
START-OF-SELECTION.
LOOP AT it_dummy.
 IF it_dummy-typ = 'H'.
 SPLIT it_dummy-des AT delimiter INTO WA_FINAL-lifnr "Populating Header Table
 WA_FINAL-bukrs
 WA_FINAL-ekorg
 WA_FINAL-ktokk
 WA_FINAL-name1
 WA_FINAL-sortl
 WA_FINAL-land1
 WA_FINAL-akont
 WA_FINAL-fdgrv
 WA_FINAL-waers.
 WA_FINAL-N = WA_FINAL-N + 1.
 WA_FINAL-M = WA_FINAL-M + 1.
 ELSEIF it_dummy-typ = 'I'.
 SPLIT it_dummy-des AT delimiter INTO WA_FINAL-BANKS
 WA_FINAL-BANKL
 WA_FINAL-BANKN
 WA_FINAL-KOINH.
 APPEND WA_FINAL TO IT_FINAL.
 ENDIF.
ENDLOOP.
LOOP AT IT_FINAL INTO WA_FINAL.
WRITE:/ WA_FINAL-N,
 WA_FINAL-LIFNR,
 WA_FINAL-BUKRS,
 WA_FINAL-EKORG,
 WA_FINAL-KTOKK,
 WA_FINAL-NAME1,
 WA_FINAL-SORTL,
 WA_FINAL-LAND1,
 WA_FINAL-AKONT,
 WA_FINAL-FDGRV,
 WA_FINAL-WAERS,
 WA_FINAL-M,
 WA_FINAL-BANKS,
 WA_FINAL-BANKL,
 WA_FINAL-BANKN,
 WA_FINAL-KOINH.
ENDLOOP.
data: WA_FINAL1 like line of IT_FINAL.
clear WA_FINAL1.
******************BDC STARTS***********************
CALL FUNCTION 'BDC_OPEN_GROUP'
EXPORTING
CLIENT = SY-MANDT
GROUP = 'ZMM_BDCTAB'
KEEP = 'X'
USER = SY-UNAME.
Clear wa_final.
LOOP AT IT_FINAL INTO WA_FINAL.
WA_FINAL1 = WA_FINAL.
CLEAR BDCDATA[].
AT NEW N.
cnt = 1.
perform bdc_dynpro using 'SAPMF02K' '0100'.
perform bdc_field using 'BDC_CURSOR'
 'RF02K-KTOKK'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'RF02K-LIFNR'
 WA_FINAL1-LIFNR.
perform bdc_field using 'RF02K-BUKRS'
 WA_FINAL1-BUKRS.
perform bdc_field using 'RF02K-EKORG'
 WA_FINAL1-EKORG.
perform bdc_field using 'RF02K-KTOKK'
 WA_FINAL1-KTOKK.
perform bdc_dynpro using 'SAPMF02K' '0110'.
perform bdc_field using 'BDC_CURSOR'
 'LFA1-LAND1'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'LFA1-NAME1'
 WA_FINAL1-NAME1.
perform bdc_field using 'LFA1-SORTL'
 WA_FINAL1-SORTL.
perform bdc_field using 'LFA1-LAND1'
 WA_FINAL1-LAND1.
perform bdc_dynpro using 'SAPMF02K' '0120'. "ERROR CLEARED
perform bdc_field using 'BDC_CURSOR'
 'LFA1-KUNNR'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_dynpro using 'SAPMF02K' '0130'.
perform bdc_field using 'BDC_CURSOR'
 'LFBK-KOINH(01)'.
perform bdc_field using 'BDC_OKCODE'
 '=ENTR'.
ENDAT.
*ENDON.
IF WA_FINAL1-N = WA_FINAL1-M.
CONCATENATE 'LFBK-BANKS(' cnt ')' INTO L_FNAM.
perform bdc_field using L_FNAM
 WA_FINAL1-BANKS.
CONCATENATE 'LFBK-BANKL(' cnt ')' INTO L_FNAM.
perform bdc_field using L_FNAM
 WA_FINAL1-BANKL.
CONCATENATE 'LFBK-BANKN(' cnt ')' INTO L_FNAM.
perform bdc_field using L_FNAM
 WA_FINAL1-BANKN.
CONCATENATE 'LFBK-KOINH(' cnt ')' INTO L_FNAM.
perform bdc_field using L_FNAM
 WA_FINAL1-KOINH.
*ENDDO.
cnt = cnt + 1.
ENDIF.
perform bdc_dynpro using 'SAPMF02K' '0130'.
perform bdc_field using 'BDC_CURSOR'
 'LFBK-BANKS(01)'.
perform bdc_field using 'BDC_OKCODE'
 '=ENTR'.
perform bdc_dynpro using 'SAPMF02K' '0210'.
perform bdc_field using 'BDC_CURSOR'
 'LFB1-FDGRV'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
*AT NEW LIFNR.
perform bdc_field using 'LFB1-AKONT'
 WA_FINAL1-AKONT.
perform bdc_field using 'LFB1-FDGRV'
 WA_FINAL1-FDGRV.
perform bdc_dynpro using 'SAPMF02K' '0215'.
perform bdc_field using 'BDC_CURSOR'
 'LFB1-ZTERM'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_dynpro using 'SAPMF02K' '0220'.
perform bdc_field using 'BDC_CURSOR'
 'LFB5-MAHNA'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_dynpro using 'SAPMF02K' '0310'.
perform bdc_field using 'BDC_CURSOR'
 'LFM1-WAERS'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'LFM1-WAERS'
 WA_FINAL1-WAERS.
perform bdc_dynpro using 'SAPMF02K' '0320'.
perform bdc_field using 'BDC_CURSOR'
 'RF02K-LIFNR'.
perform bdc_field using 'BDC_OKCODE'
 '=ENTR'.
AT END OF M.
CALL FUNCTION 'BDC_INSERT'
EXPORTING
TCODE = 'XK01'
TABLES
DYNPROTAB = BDCDATA.
ENDAT.
CLEAR WA_FINAL1.
CLEAR WA_FINAL.
ENDLOOP.
CALL FUNCTION 'BDC_CLOSE_GROUP'.
*********************BDC ENDS***********************
 Start new screen *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM.
 Insert field *
FORM BDC_FIELD USING FNAM FVAL.
IF FVAL <> NODATA.
 CLEAR BDCDATA.
 BDCDATA-FNAM = FNAM.
 BDCDATA-FVAL = FVAL.
 APPEND BDCDATA.
ENDIF.
ENDFORM.
Flat File is..
HAAA45,1000,1000,0002,NAME45,N,IN,31000,A1,USD
IIN,1000,1021,Name45
IIN,1000,1022,Name45
HAAA50,1000,1000,0002,NAME50,N,IN,31000,A1,USD
IIN,1000,1023,Name50
IIN,1000,1024,Name50

Regarding avoiding the loop I have a suggestion, though I have not tried this .
SAP help says " Using the internal table bdc_tab, you can provide any number of screens of the called transaction with input and user actions. " .
Above implies you can load all records in the itab bdc_tab when doing call transaction. Say, your bdc_tabl has 30 records for 1 pass of the transaction. You need to update 10 vendor records. You simply load up all 300 records into bdc_tab. After every 30 record loads, you simulate a 'SAVE' press in your program but do not leave the transaction. Rather you simulate the keystroke that takes you to the first screen of XK01 after the save if not aready there, and start loading up the next transaction.

Enable / disable classification fields in material master?

Hi experts
We hope to assign one group who could change the matieral master fields on classification.
Like one gropu who could change the classification fields- date, on mateiral master . others only could display
Is that possible to modify the program to enable or disable one field ?
Now we have mm02 for normal user and zmm02 for specific user.
Thanks
ALice

Hi
When you create a role with transcation MM01, the Authorisation objects related to Classification are inherited from the transaction.
If you want to give the user only diplay options maintain the Activities as 03 for the authorisation object C_KLAH_BKL & give the Class Type Z01.
For the Chracteristics (Class maintenance)in the authorisation object C_TCLS_MNT maintain Activity 03 & Class type Z01
Similarly create another role & assign it to the user whco is authorised to create or chnage values, Give hm the activiies 01,02 & the class type Z01.
I feel that there is no requiremnt of changing the Program, as the authorisation objects are laready available.
Thanks & Regards
Kishore

BDC for IE02 Classification Fields

Similar Messages

Maybe you are looking for