Vendor Master - Export License - MEK3

All,
We have 3 raw material vendors for which we have an export licence. Is there a way to record these in the vendor master ? This would have to affect the conditions leading to the determination of the tax key.
We tried the info records, but these are overruled by the conditions in MEK3.
- We have no material tax indicator MM03/OMKK
- Plant indicator is set OMKM
- Plant indicator is assigned OMKN
- Account Assignment indicator is set OMKL
- Assignment of Tax indicator to Account Assignment Cat. is done OMKO
MEK3 Taxes: Plant, Account Assignment Origin and Region leads to wrong tax key as there is no distinction between local suppliers and local supplier with export license.
Thanks,
Mariëtte.

Hi Vineeth
For a vendor master record all the important controlling parameters are controlled by the account group which you are assigning to the vendor master recored.the controls of the account group are
Number assignment:whether you can maintain an external number or internal number assignment.In your issue of internal and external vendor you can maintain different account groups for bot and thus assign different number ranges to them
Field Selection: Account group determines whether a filed in vendor master should be hidden,displayed,required entry or optional entry
Partner Roles::Account groups determine which are all the valid partner roles for a vendor ,eg: order recepient,invoicing party etc
Status of Vendor: Account group determines whether the vendor is one time vendor or regular vendor
Vendor subrange::
We can delete vendor master record using transaction OBR2
Reward if useful
Thanks and Regards
SHYAM.R

Similar Messages

Exporting Information out from Vendor Master

Hi Guys,
I would like to change some information in batch for vendor master, what is the best way to extract all the vendor data, change it in excel and then importing all the data back agian?
Thanks

Export the data by SE16, the relevant tables are
LFA1                           Vendor Master (General Section)
LFB1                           Vendor Master (Company Code)
LFB5                           Vendor master (dunning data)
LFBK                           Vendor Master (Bank Details)
LFM1                           Vendor master record purchasing organization data
LFM2                           Vendor Master Record: Purchasing Data
LFMC                           Vendor master (short texts for condition types)
You can do simple joins in SQVI & export the data or if you have some custom specific checks you can use SQ01 with a few lines of ABAP.
Hope the above helps.
Regards,
Vivek

Maintain License number for vendor master

Dear MM Experts,
I want to maintain the vendor's license no. where to maintain in vendor master
Please suggest.
Suggestions will be rewarded.
Regards,
Prabhakaran M

Hi,
In general Data Account Control you can maintain License number for vendor.
regards
rakesh

Withholding tax fields in Vendor master is not avbl to config as sensitive

Hi,
I need to configure, fields in Withholding tax accounting as sensitive fields in Vendor Master.
Table reference for Withholding tax is LFBW.
But the fields from this table are not avbl for configuring in SPRO.
It gives an error message as: This field is not allowed.
Is there any other method to add the required fields from LFBW table to configure them as sensitive fields.
Or adding the fields as sensitive is restricted for few fields only.
Pls do the needful.
Regards,
Radha

Hi Radha,
I finally found development we did for a customer. Below you can find sampler code. You can use exit ZXF05U01.
 FIELD-SYMBOLS : <FIELD_VALUE> TYPE ANY.
 DATA : SENSITIVE_FIELD(30).
 FIELD-SYMBOLS : <FIELD_VALUE2> TYPE ANY.
 DATA : SENSITIVE_FIELD2(30).
 TABLES : T055F .
 IF LN_LFM1 NE I_LFM1.
 REFRESH KRITAB.
 SELECT * FROM T055F WHERE KOART = 'K' AND
 FELDN LIKE 'LFM1%'
 SPLIT T055F-FELDN AT '-' INTO KRITAB-TABNAME KRITAB-FNAME.
 APPEND KRITAB.
 ENDSELECT.
 LOOP AT KRITAB .
 CONCATENATE 'LN_LFM1' '-' KRITAB-FNAME
 INTO SENSITIVE_FIELD.
 CONCATENATE 'I_LFM1' '-' KRITAB-FNAME
 INTO SENSITIVE_FIELD2.
 ASSIGN (SENSITIVE_FIELD) TO <FIELD_VALUE>.
 ASSIGN (SENSITIVE_FIELD2) TO <FIELD_VALUE2>.
 IF <FIELD_VALUE> NE <FIELD_VALUE2>.
 <FS_LFA1>-CONFS = '1'.
 IF SY-TCODE = 'XK01' AND <FS_XASEG> = ' '.
 DATA : LFM1CONFS(1) TYPE C .
 EXPORT LFM1CONFS LFM1CONFS2 FROM '1' TO MEMORY ID
 'LFM1CONFS'.
 UPDATE LFA1 SET CONFS = '1'
 UPTIM = SY-UZEIT
 UPDAT = SY-DATUM
 WHERE LIFNR = <FS_LFA1>-LIFNR .

Upload program for vendor master

Hi Friends,
Could you please help me in this.
actually i have a program like this:
i have to download the data from an excel sheet and reformat it and output into a text file so that the data can be uploaded into vendor master using standard progarm
"RFBIKR00".
i have written the program like this:
but in the middle when formatting the data...i'm facing the problem....
plz help me in solving that...
thnx very very much...........
the program i wrote is like this:

tables: lfa1,
 lfb1,
 lfm1,
 lfbk,
 bnka,
 bgr00,
 blf00,
 blfa1,
 blfb1,
 blfbk,
 blfm1,
 blfb5,
 blfbw,
 blfei,
 blfza,
 blflr,
 blfm2,
 bwyt3,
 bwyt1,
 blfat.
*--- Internal table for spread sheet.
data: t_filedata like alsmex_tabline occurs 0 with header line.
*--- Internal table for Vendor Master Data in Spread Sheet.
data: begin of t_sheet occurs 0,
 name1 like lfa1-name1, "vendor name1
 name2 like lfa1-name2, "vendor name2
 altkn like lfb1-altkn, "previous master record number
 bukrs like lfb1-bukrs, "company code
 ekorg like lfm1-ekorg, "purchase organization
 ktokk like lfa1-ktokk, "account group
 stras like lfa1-stras, "street
 street4 like lfa1-name4, "street4
 pfach like lfa1-pfach, "po box
 ort01 like lfa1-ort01, "city
 regio like lfa1-regio, "region
 pstlz like lfa1-pstlz, "postal code
 land1 like lfa1-land1, "country
 telf1 like lfa1-telf1, "first telephone number
 telfx like lfa1-telfx, "first fax number
 stcd1 like lfa1-stcd1, "fed tax ID#
 brsch like lfa1-brsch, "commodity code
 akont like lfb1-akont, "reconciliation account
 mindk like lfb1-mindk, "monitory indicator
 zwels like lfb1-zwels, "payment method
 reprf like lfb1-reprf, "check double invoice
 banka like bnka-banka, "bank name
 stret like bnka-stras, "house number and street
 city like bnka-ort01, "city
 provz like bnka-provz, "bank state
 banks like lfbk-banks, "bank country
 swift like bnka-swift, "swift code
 bankl like lfbk-bankl, "aba#
 bankn like lfbk-bankn, "bank account no
 zterm like lfb1-zterm, "payment terms
 terms like lfm1-zterm, "terms of payment key
 end of t_sheet.
*--- Internal table for Vendor Master data in Text File.
data: begin of t_file occurs 0,
 s_session type bgr00,
 s_header type blf00,
 s_blfa1 type blfa1,
 s_blfb1 type blfb1,
 s_blfbk type blfbk,
 s_blfm1 type blfm1,
 s_blfbk type blfbk,
 s_blfb5 type blfb5,
 s_blfza type blfza,
 s_blfm1 type blfm1,
 s_blfat type blfat,
 s_bwyt1 type bwyt1,
 s_bwyt3 type bwyt3,
 s_blfm2 type blfm2,
 s_blfei type blfei1,
 s_blfbw type blfbw,
 s_blflr type blflr,
 end of t_file.
 SELECTION SCREEN *****
*---Selection Parameters.
selection-screen begin of block b1 with frame title title1.
parameters: p_xlfile like rlgrap-filename.
parameters: p_txfile type rlgrap-filename.
selection-screen end of block b1.
 INITIALIZATION *****
initialization.
*---Initialize text fields for selection-screen.
title1 = 'Selection Parameters'.
 AT SELECTION-SCREEN *****
at selection-screen.
at selection-screen on p_xlfile.
 perform check_file using p_xlfile.
at selection-screen on value-request for p_xlfile.
 perform select_file using p_xlfile.
 START-OF-SELECTION *****
start-of-selection.
 clear t_sheet.
 refresh t_sheet.
*---Upload Spreadsheet.
 perform read_file using p_xlfile.
*---Process data into formatted internal table.
 perform format_data.
 append t_file.
 clear t_file.
 endloop.
*---Download data to Text file.
 perform download_data.
 TOP-OF-PAGE *****
top-of-page.
 perform top_of_page.
 S-U-B-R-O-U-T-I-N-E-S *****
 Form TOP_OF_PAGE
 Calling the Standard Report Header
form top_of_page.
 perform header using 'CREATE FILE FOR'
 'VENDOR MASTER UPLOAD'
 132.
 skip 2.
endform. "TOP_OF_PAGE
 Form check_file **
 Checking the File entered **
data: p_filename type string.
form check_file using p_filename.
*---The entered File must be Excel spreadsheet.
data: l_length type i,
 l_ext(4) type c.
l_length = strlen( p_xlfile ).
subtract 4 from l_length.
l_ext = p_xlfile+l_length(4).
translate l_ext to upper case.
if l_ext <> '.XLS'.
 message e009 with 'Only Excel spreadsheets are supported'.
endif.
*---Check if File exits and not empty.
data: l_return(10) type c.
CALL FUNCTION 'WS_QUERY'
 EXPORTING
 FILENAME = p_filename
 QUERY = 'FL'
 IMPORTING
 RETURN = l_return
 EXCEPTIONS
 INV_QUERY = 1
 NO_BATCH = 2
 FRONTEND_ERROR = 3
 OTHERS = 4
IF l_return = space or l_return = '0'.
 message e530(pj) with p_filename.
ENDIF.
endform. "CHECK_FILE
 Form select_file **
form select_file using p_filename like rlgrap-filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
 EXPORTING
 PROGRAM_NAME = SYST-REPID
 DYNPRO_NUMBER = SYST-DYNNR
 FIELD_NAME = ' '
 STATIC = 'X'
 MASK = ',MS Excel (.xls),.xls.'
 CHANGING
 FILE_NAME = p_filename
 EXCEPTIONS
 MASK_TOO_LONG = 1
 OTHERS = 2
IF SY-SUBRC <> 0.
MESSAGE e838(29) with p_filename.
ENDIF.
endform. "SELECT_FILE
 Form read_file **
form read_file using p_filename like rlgrap-filename.
*---Display status message for User.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 TEXT = 'Uploading Spreadsheet'
*---Upload spreadsheet.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
 EXPORTING
 FILENAME = p_filename
 I_BEGIN_COL = 1
 I_BEGIN_ROW = 1
 I_END_COL = 256
 I_END_ROW = 65536
 TABLES
 INTERN = t_filedata
 EXCEPTIONS
 INCONSISTENT_PARAMETERS = 1
 UPLOAD_OLE = 2
 OTHERS = 3
IF t_filedata[] is initial.
message i009 with 'NO DATA FOUND IN FILE' p_filename.
stop.
ENDIF.
sort t_filedata by row col.
endform. "READ_FILE
 Form format_data **
form format_data.
data: l_index type i.
field-symbols: <fs1>.
*---Display status message for user.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 TEXT = ' Processing Data...'
loop at t_filedata.
 l_index = t_filedata-col.
 assign component l_index of structure t_sheet to <fs1>.
 <fs1> = t_filedata-value.
 at end of row.
 append t_sheet.
 clear t_sheet.
 endat.
endloop.
 refresh t_filedata.
 free t_filedata.
endform. "FORMAT_DATA
 Form download_data.
form download_data.
OPEN DATASET p_txfile for OUTPUT.
LOOP at t_file.
 TRANSFER t_file to p_txfile.
ENDLOOP.
CLOSE DATASET p_txfile.
IF SY-SUBRC = 0.
WRITE: / 'Excel to Textfile for Vendor Master Upload: ', P_TXFILE.
ENDIF.
endform. "DOWNLOAD_DATA

Hi!
You don't need to program the 'translation' from a file into input data for RFBIKR00 yourself. SAP has done this, so that you can do this (nearly) without programming. If you need some special conversion rules, then you can add some coding, but most is possible without.
Have a look at transaction LSMW. It's not so complicated it looks at the first time. Just look at <a href="http://help.sap.com/saphelp_erp2004/helpdata/en/ad/2d54a41d7011d2b42e006094b944c8/frameset.htm">help</a> for the way to use LSMW.
Regards,
Christian
P.S.: sorry for lost your efforts, but you should switch to LSMW

Vendor Master Extension in SRM

Hi,
I am working on Vendor master table enhancement in SRM 4.0. I have added a new field in the master table using transaction EEWB. The new field is created successfully and can be seen in table BUT000.
Using badi BBP_BUPA_GET_CUF I am showing this field on SRM transaction BBPMAININT and is getting maintained correctly from there.
It is not getting maintained when I am replicating vendors in SRM from R/3 i.e. transaction BBPGETVD. For this I have implemented badi BBP_MAP_VMDATA_CF in backend R/3 system and badi BBP_GET_VMDATA_CF on SRM side. In the debug mode I can see that the data mapped in R/3 is coming correctly in SRM badi. In this BADI I am using Function Module ZZG00_BUPA_EVENT_DSAVB generated during EEWB transaction. But this FM is not storing any value in the tables. Badi help doc says for single field creation using EEWB, a FM ZZG01_BUPA_API_DETAIL_ADD gets generated and by passing Partner No and new fields Value (captured from R/3) the field can be populated. But in actual such FM is not generated and above mentioned FM (ZZG00_BUPA_EVENT_DSAVB) does not have any importing or exporting values. Is this caz of EEWC configuration? Or is there any other way by which I can achieve this.
Please do update if any one have ever worked on such requirement before.
Thanks in advance.
Rahul.

Hi Christophe,
Thanks for the response.
I am sorry if I have not narrated my problem correctly. But the problem itself is that the said FMs like
ZZZG01_BUPA_API_GET_DETAILS
ZZZG01_BUPA_API_DETAIL_ADD
ZZZG01_BUPA_API_DETAIL_REMOVE
ZZZG01_BUPA_API_DETAIL_CHANGE
are not generated after adding a field in BUPA using 'ADD NEW FIELDS' in TC EEWB.
The only FMs generated are:
ZZG00_BUPA_EVENT_DLVE1
ZZG00_BUPA_EVENT_DSAVB
ZZG00_BUPA_EVENT_ISDST
ZZG00_BUPA_EVENT_ISSTA
ZZG00_BUPA_EVENT_XCHNG
ZZG00_BUPA_PAI_ZG000100
ZZG00_BUPA_PBO_ZG000100
Beside these there are some reports, tables, domains, FG etc created. As I can not find any FM like "*_BUPA_API_DETAIL_ADD" I am not able to populate the newly created field using badi BBP_BUPA_GET_CUF.
I just want to know why these FMs not generated? Is it caz I am using 'ADD NEW FIELDS' instead of 'ADD NEW TABLE'? I am using FIELDS caz the new field will be maintained in Vendor general data.
Please throw some light if you can.
Thanks once again.
Rahul.

Update email address in vendor master using report RPRAPA00

Hi All ,
My requirement is to update email address in communication tab of vendor master .
There is one report RPRAPA00 running in background to update vendor master except email .
I could not able to see anything to update email address in user-exits available in report RPRAPA00.
Is there any way to update email address using this report or any alternative way .
Please help .
Thanks and regards ,
Sijin KP.

You can use a couple of function modules from function group SZA0 to update the email address.
Attached is a simple test program that inserts a new email address for a vendor whose address number is known (from LFA1-ADRNR):
DATA: comtab TYPE STANDARD TABLE OF adsmtp WITH HEADER LINE.
comtab-consnumber = '001'.
comtab-flgdefault = 'X'.
comtab-smtp_addr = 'email_address_comes_here'.
comtab-dft_receiv = 'X'.
comtab-valid_from = '00010101'.
comtab-valid_to = '99991231'.
comtab-updateflag = 'I'.
APPEND comtab.
CALL FUNCTION 'ADDR_COMM_MAINTAIN'
EXPORTING
    address_number                       = '0000141306'
    table_type                           = 'ADSMTP'
TABLES
    comm_table                           = comtab
EXCEPTIONS
   parameter_error                      = 1
   address_not_exist                    = 2
   internal_error                       = 3
   OTHERS                               = 4
IF sy-subrc NE 0.
WRITE sy-subrc.
ELSE.
CALL FUNCTION 'ADDR_MEMORY_SAVE'
   EXCEPTIONS
     address_number_missing       = 1
     person_number_missing        = 2
     internal_error               = 3
     database_error               = 4
     reference_missing            = 5
     OTHERS                       = 6
IF sy-subrc NE 0.
    WRITE sy-subrc.
ENDIF.
ENDIF.

Changing Vendor Master Details in XK02

Hii Experts,
I need to update vendor master records in transaction XK02. For this i m using FM "ISIDE_SM_VENDOR_DETAILS_UPDATE"..
The call to Fm is mentioned velow:
CALL FUNCTION 'ISIDE_SM_VENDOR_DETAILS_UPDATE'
    EXPORTING
    IT_RETURN           = WA_RET1
    IS_SEL_VENDOR       = IT_ISL_VENDOR
      IS_VMDATA            = WA_VMDATA
IMPORTING
   ET_RETURN           =   it_return1
ES_VMDATA           =
WA_VMDATA is a structure that contains several tables. I m passing all required parameters like name,city,country,state,contact person etc to appropriate tables, nad all are getting updated except Telephone No,Mobile Phone,Email and Fax No..
Plz help me, I need to solve this ASAP..
Regards,
Apoorv Sharma

hii Harpreet,
thanx for replying
Suppose a particular vendor number contains telephone number and if i want to change it then this function module change the existing telephone number but if a vendor number does not contain telephone number and if i want to assign a telephone number to that vendor then this FM will not make an entry in telephone number.. the same is with Fax number,Mobile phone and EMail
wat to do in ths case,
plz help
Regards,
Apoorv

Vendor master data file structure

Hello Guys,
I want to knw the flat file strucute of vendor master data (specially vendor with multiple banks)
pls let me knw tht
thnks
sunny

IT CAN BE SINGLE FLAT FILE OR IT CAN BE CSV SEPARATED BY COMMA
OR IT CAN BE TWO
IN ORDER TO UPLOAD SUCH A FILE YOU HAVE TO USE BDC TABLE CONTROL
HERE IS THE SAMPLE CODE WITH 2 FLAT FILES
report ZABVENDOR_UPLOAD1
       no standard page heading line-size 255.
types :begin of ty_ven,
i1 TYPE c,
lifnr LIKE rf02k-lifnr,
bukrs LIKE rf02k-bukrs,
ekorg LIKE rf02k-ekorg,
ktokk LIKE rf02k-ktokk,
anred LIKE lfa1-anred,
name1 LIKE lfa1-name1,
sortl LIKE lfa1-sortl,
land1 LIKE lfa1-land1,
akont LIKE lfb1-akont,
fdgrv LIKE lfb1-fdgrv,
waers LIKE lfm1-waers,
end of ty_ven.
data: it_ven type table of ty_ven,
      wa_ven like line of it_ven.
types: begin of ty_bank,
         j1 type c,
         banks LIKE lfbk-banks,"BANK COUNTRY KEY
         bankl LIKE lfbk-bankl,"BANK KEYS
         bankn LIKE lfbk-bankn,"CONTROL KEY
         koinh LIKE lfbk-koinh,"aacount name
         BANKA LIKE BNKA-BANKA,
     end of ty_bank.
data:it_bank type table of ty_BANK,
      wa_bank like line of it_BANK.
DATA : cnt(4) TYPE n.
DATA : fdt(20) TYPE c.
*DATA : c TYPE i.
include bdcrecx1.
start-of-selection.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
    FILENAME                      = 'C:\VN1.TXT'
FILETYPE                      = 'ASC'
HAS_FIELD_SEPARATOR           = ' '
TABLES
    DATA_TAB                      = IT_VEN.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
    FILENAME                      = 'C:\BANK.TXT'
FILETYPE                      = 'ASC'
HAS_FIELD_SEPARATOR           = ' '
TABLES
    DATA_TAB                      = IT_BANK.
*ENDLOOP.
LOOP AT IT_VEN INTO WA_VEN.
SPLIT WA_VEN AT '*' INTO WA_VEN-I1
                         WA_VEN-LIFNR
                         WA_VEN-bukrs
                         WA_VEN-ekorg
                         WA_VEN-ktokk
                         WA_VEN-anred
                         WA_VEN-name1
                         WA_VEN-sortl
                         WA_VEN-land1
                         WA_VEN-akont
                         WA_VEN-fdgrv
                         WA_VEN-waers.
perform open_group.
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_VEN-LIFNR.
perform bdc_field       using 'RF02K-BUKRS'
                              WA_VEN-bukrs.
perform bdc_field       using 'RF02K-EKORG'
                              WA_VEN-ekorg.
perform bdc_field       using 'RF02K-KTOKK'
                              WA_VEN-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-ANRED'
                              WA_VEN-anred.
perform bdc_field       using 'LFA1-NAME1'
                              WA_VEN-name1.
perform bdc_field       using 'LFA1-SORTL'
                              WA_VEN-sortl.
perform bdc_field       using 'LFA1-LAND1'
                              WA_VEN-land1.
perform bdc_dynpro      using 'SAPMF02K' '0120'.
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'.
CNT = 0.
LOOP AT IT_BANK INTO WA_BANK WHERE J1 EQ WA_VEN-I1.
SPLIT WA_BANK AT '*' INTO WA_BANK-J1
                          WA_BANK-BANKS
                          WA_BANK-bankl
                          WA_BANK-bankn
                          WA_BANK-koinh
                          WA_BANK-BANKA.
CNT = CNT + 1.
CONCATENATE 'LFBK-BANKS( ' CNT ' )' INTO FDT.
perform bdc_field       using FDT
                              WA_BANK-BANKS.
CONCATENATE 'LFBK-BANKL( ' CNT ' )' INTO FDT.
perform bdc_field       using FDT
                              WA_BANK-BANKL.
CONCATENATE 'LFBK-BANKN( ' CNT ' )' INTO FDT.
perform bdc_field       using FDT
                              WA_BANK-BANKN.
CONCATENATE 'LFBK-KOINH( ' CNT ' )' INTO FDT.
perform bdc_field       using FDT
                              WA_BANK-KOINH.
IF cnt = 5.
cnt = 0.
perform bdc_dynpro      using 'SAPLBANK' '0100'.
perform bdc_field       using 'BDC_CURSOR'
                              'BNKA-BANKA'.
*CONCATENATE 'BNKA-BANKA( ' CNT ' )' INTO FDT.
*perform bdc_field     using FDT
                             WA_BANK-BANKA.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_field       using 'BNKA-BANKA'
                              'BANK OF INDIA'.
perform bdc_dynpro      using 'SAPMF02K' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFBK-BANKS(01)'.
perform bdc_field       using 'BDC_OKCODE'
                             '=ENTR'.
ENDIF.
ENDLOOP.
perform bdc_dynpro      using 'SAPMF02K' '0210'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFB1-FDGRV'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LFB1-AKONT'
                              WA_VEN-akont.
perform bdc_field       using 'LFB1-FDGRV'
                              WA_VEN-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_VEN-waers.
perform bdc_dynpro      using 'SAPMF02K' '0320'.
perform bdc_field       using 'BDC_CURSOR'
                              'RF02K-LIFNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
perform bdc_transaction using 'XK01'.
ENDLOOP.
SOME SAMPLE DATA(JUST FOR LEARNING)
VENDOR DETAILS
13010000100010001COMPANY1IDES1SAP1DE31000A2INR*
13190000100010001COMPANY1SATYAM1CONSULTING1IN31000A2INR*
24090100000010001MR.AMBANI1RELIANCE1IN31000A2INR*
BANK DETAILS FLAT TYPE
1DE234206630493TSYSTEM1BANK OF MELBOURNE*
1IN2305866307039TCS1BANK OF ARMENIA*
1DE453886630765TOSHIBA1BANK OF BERLIN*
1AU893206639785SHELL1AXIS BANK*
1CA366373940643YASHODA1BANK OF TORONTO*
2PK7802374902393CARE1ISLAMIC CONVENTORY BANK*
2NZ400297494393LG1WELLINGTON NATIONAL BANK*

Vendor Master Upload Program

Check this code to upload vendor master through SHDB transaction.
report ZVEND_MST no standard page heading line-size
255.
*include bdcrecx1.
*parameters: dataset(132) lower case default
'c:\vend.mst'.
 DO NOT CHANGE - the generated data section - DO
NOT CHANGE ***
If it is nessesary to change the data section use
the rules:
1.) Each definition of a field exists of two lines
2.) The first line shows exactly the comment
 '* data element: ' followed with the data
element
 which describes the field.
 If you don't have a data element use the
 comment without a data element name
3.) The second line shows the fieldname of the
 structure, the fieldname must consist of
 a fieldname and optional the character '_' and
 three numbers and the field length in brackets
4.) Each field must be type C.
Generated data section with specific formatting -
DO NOT CHANGE ***
data: begin of record,
data element: LIF16
 LIFNR_001(016),
data element: BUKRS
 BUKRS_002(004),
data element: EKORG
 EKORG_003(004),
data element: KTOKK
 KTOKK_004(004),
data element: NAME1_GP
 NAME1_005(035),
data element: SORTL
 SORTL_006(010),
data element: LAND1_GP
 LAND1_007(003),
data element: SPRAS
 SPRAS_008(002),
data element: BSTWA
 WAERS_009(005),
 end of record.
End generated data section ***
DATA : ITAB TABLE OF RECORD WITH HEADER LINE.
start-of-selection.
*perform open_dataset using dataset.
*perform open_group.
*do.
*read dataset dataset into record.
*if sy-subrc <> 0. exit. endif.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
 FILENAME = 'C:\VENDOR.TXT'
"TEXT FILE
 FILETYPE = 'ASC'
 HAS_FIELD_SEPARATOR = 'X'
TABLES
 DATA_TAB = ITAB
EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_READ_ERROR = 2
 NO_BATCH = 3
 GUI_REFUSE_FILETRANSFER = 4
 INVALID_TYPE = 5
 NO_AUTHORITY = 6
 UNKNOWN_ERROR = 7
 BAD_DATA_FORMAT = 8
 HEADER_NOT_ALLOWED = 9
 SEPARATOR_NOT_ALLOWED = 10
 HEADER_TOO_LONG = 11
 UNKNOWN_DP_ERROR = 12
 ACCESS_DENIED = 13
 DP_OUT_OF_MEMORY = 14
 DISK_FULL = 15
 DP_TIMEOUT = 16
 OTHERS = 17
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT ITAB.
*In Loop Change Record With ITAB
like record-lifnr_001 with itab-lifnr_001
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'
 record-LIFNR_001.
perform bdc_field using 'RF02K-BUKRS'
 record-BUKRS_002.
perform bdc_field using 'RF02K-EKORG'
 record-EKORG_003.
perform bdc_field using 'RF02K-KTOKK'
 record-KTOKK_004.
perform bdc_dynpro using 'SAPMF02K' '0110'.
perform bdc_field using 'BDC_CURSOR'
 'LFA1-SPRAS'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
perform bdc_field using 'LFA1-NAME1'
 record-NAME1_005.
perform bdc_field using 'LFA1-SORTL'
 record-SORTL_006.
perform bdc_field using 'LFA1-LAND1'
 record-LAND1_007.
perform bdc_field using 'LFA1-SPRAS'
 record-SPRAS_008.
perform bdc_dynpro using 'SAPMF02K' '0120'.
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-BANKS(01)'.
perform bdc_field using 'BDC_OKCODE'
 '=ENTR'.
perform bdc_dynpro using 'SAPMF02K' '0210'.
perform bdc_field using 'BDC_CURSOR'
 'LFB1-AKONT'.
perform bdc_field using 'BDC_OKCODE'
 '/00'.
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'
 record-WAERS_009.
perform bdc_dynpro using 'SAPMF02K' '0320'.
perform bdc_field using 'BDC_CURSOR'
 'RF02K-LIFNR'.
perform bdc_field using 'BDC_OKCODE'
 '=ENTR'.
perform bdc_dynpro using 'SAPLSPO1' '0300'.
perform bdc_field using 'BDC_OKCODE'
 '=YES'.
perform bdc_transaction using 'XK01'.
endLOOP..
Check It, Activate it and process in SM35.

HI
What is the problem in you coding it is working fine. What is ur requirement
Regards
Pavan

Error importing vendor master data from ERP

Hi experts,
currently we are trying to import vendor master data from ERP to SAP Sourcing 9.
We exported the data in an XML file by using the transaction BBP_ES_MAST_DOWNLOAD.
We already imported all the dependencies like vendor account group, purchase org, regions etc. successfully.
However, every time we are trying to import the vendor data we receive the same result:
Data Import:
Trace.txt:
Do you have any hints why this happens?
Thanks in advance and best regards,
Johannes

Hello Johannes,
This looks to come from a custom script in your system.
Go to Setup > Script Definition and check all scripts defined on class "Supplier" (starting with those on context: Import Lifecycle Event).
Search for a script that starts with "throw doc.createApplicationException(test..."
Regards,
Bogdan

Email address from vendor master.

Hai,
Could any one guide me how to pull out the detials pertaining to email address stored in Vendor Master .
I tried in LFA1 table and ADRC table, but i could not get the data. Is there any other table from which
i can extract the data
Thanks.

Check fm ADDR_COMM_GET
CALL FUNCTION 'ADDR_COMM_GET'
      EXPORTING
           address_number    = addrnumber
           table_type        = type      "ADSMTP
      TABLES
           comm_table        = adr6 .

Details of vendor master data

Dear All ,
                                      Can u help me that my user wants a dump of all newly added supplier in last three months , along with the dump of any changes done in supplier master data , i.e he want to have data for newly added supplier & dump of those supplier in which some changes are done .pl .
Rgds ,
sap11

Please check whether this may be of ur help
1. S_ALR_87012089 or XK04 or MK04
or.
get vendor change records for dates
CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
    EXPORTING
      date_of_change             = l_from
      objectclass                = 'KRED'
      username                   = ' '
      date_until                 = l_to
    TABLES
      i_cdhdr                    = it_hdr
    EXCEPTIONS
      no_position_found          = 1
      wrong_access_to_archive    = 2
      time_zone_conversion_error = 3
      OTHERS                     = 4.
IF it_hdr IS INITIAL.
    MESSAGE i099(zf) WITH 'No Master changes -'
                          'CHANGEDOCUMENT_READ_HEADERS result' sy-subrc.
    RETURN.
ENDIF.
SORT it_hdr.
look for vendor name changes
SELECT * INTO TABLE it_pos
         FROM cdpos
         FOR ALL ENTRIES IN it_hdr
         WHERE objectclas = it_hdr-objectclas
           AND objectid = it_hdr-objectid
           AND changenr = it_hdr-changenr
           AND fname = 'NAME1'.
IF sy-subrc NE 0.
    MESSAGE i099(zf) WITH 'No vendor master names have changed.'.
    RETURN.
ELSE.
    MESSAGE i099(zf) WITH 'Vendor master names have changed.'.
ENDIF.

Upload Vendor Master(MK01)

Hi abapers,
There is a little confusion. I am trying to upload Vendor Master(MK01) through call transaction method.
It is inserting only one record(one vendor). my flat file contains multiple records.
Is there anything wrong in below coding.
REPORT ZBDC_UPLOAD_PROGRAM_03.
data: begin of itab1 occurs 1,
 fld(80),
 end of itab1.
data: begin of itab occurs 1,
 F1 type LIFNR,
 F2 type EKORG,
 F3 type KTOKK,
 F4 type NAME1,
 F5 type SORTL,
 F6 type LAND1,
 F7 type SPRAS,
 F8 type WAERS,
 end of itab.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
 FILENAME = 'C:\Documents and Settings\eccadm\Desktop\vendorslist2.txt'
 FILETYPE = 'ASC'
 HAS_FIELD_SEPARATOR = ' '
TABLES
 DATA_TAB = itab1
*LOOP AT itab1.
*write:/ itab1-fld.
*ENDLOOP.
LOOP AT itab1.
split itab1-fld at ',' into itab-F1 itab-F2 itab-F3 itab-F4 itab-F5 itab-F6 itab-F7 itab-F8.
append itab.
ENDLOOP.
*LOOP AT itab.
*write:/ itab-F1, itab-F2, itab-F3, itab-F4, itab-F5, itab-F6, itab-F7, itab-F8.
*ENDLOOP.
DATA: BDCDATA type BDCDATA OCCURS 1 with header line.
Loop at itab.
perform bdc_dynpro using 'SAPMF02K' '0107'.
perform bdc_field using 'BDC_CURSOR' 'RF02K-LIFNR'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'RF02K-LIFNR' itab-F1.
perform bdc_field using 'RF02K-EKORG' itab-F2.
perform bdc_field using 'RF02K-KTOKK' itab-F3.
perform bdc_dynpro using 'SAPMF02K' '0110'.
perform bdc_field using 'BDC_CURSOR' 'LFA1-SPRAS'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'LFA1-NAME1' itab-F4.
perform bdc_field using 'LFA1-SORTL' itab-F5.
perform bdc_field using 'LFA1-LAND1' itab-F6.
perform bdc_field using 'LFA1-SPRAS' itab-F7.
perform bdc_dynpro using 'SAPMF02K' '0120'.
perform bdc_field using 'BDC_CURSOR' 'LFA1-KONZS'.
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' itab-F8.
perform bdc_dynpro using 'SAPMF02K' '0320'.
perform bdc_field using 'BDC_CURSOR' 'RF02K-LIFNR'.
perform bdc_field using 'BDC_OKCODE' '=UPDA'.
perform bdc_dynpro using 'SAPLSP01' '0300'.
perform bdc_dynpro using 'BDC_OKCODE' '=YES'.
*perform bdc_transaction using 'MK01'.
call transaction 'MK01' using BDCDATA MODE 'A'.
ENDLOOP.
* 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 <> SPACE.
 CLEAR BDCDATA.
 BDCDATA-FNAM = FNAM.
 BDCDATA-FVAL = FVAL.
 APPEND BDCDATA.
ENDIF.
ENDFORM.
Thanks

Hi,
Add below marked statement in your code. It will work.
Loop at itab.
REFRESH BDCDATA.
CLEAR BDCDATA.
perform bdc_dynpro using 'SAPMF02K' '0107'.
perform bdc_field using 'BDC_CURSOR' 'RF02K-LIFNR'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'RF02K-LIFNR' itab-F1.
perform bdc_field using 'RF02K-EKORG' itab-F2.
perform bdc_field using 'RF02K-KTOKK' itab-F3.
perform bdc_dynpro using 'SAPMF02K' '0110'.
perform bdc_field using 'BDC_CURSOR' 'LFA1-SPRAS'.
perform bdc_field using 'BDC_OKCODE' '/00'.
perform bdc_field using 'LFA1-NAME1' itab-F4.
perform bdc_field using 'LFA1-SORTL' itab-F5.
perform bdc_field using 'LFA1-LAND1' itab-F6.
perform bdc_field using 'LFA1-SPRAS' itab-F7.
perform bdc_dynpro using 'SAPMF02K' '0120'.
perform bdc_field using 'BDC_CURSOR' 'LFA1-KONZS'.
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' itab-F8.
perform bdc_dynpro using 'SAPMF02K' '0320'.
perform bdc_field using 'BDC_CURSOR' 'RF02K-LIFNR'.
perform bdc_field using 'BDC_OKCODE' '=UPDA'.
perform bdc_dynpro using 'SAPLSP01' '0300'.
perform bdc_dynpro using 'BDC_OKCODE' '=YES'.
*perform bdc_transaction using 'MK01'.
call transaction 'MK01' using BDCDATA MODE 'A'.
ENDLOOP.

Vendor master Workflow

Hi,
I am thinking of designing custom Vendor Master Create\Change Approval Workflow. (1) However I did not see any events being triggered in event trace(SWEL) while creating or changing vendor master. could anybody shed me lights on triggering WF using any of methods ( message control, standard tranaction, status management, config or any other methods) for vendor master. (2) Besides, how should I design workflow so user can confirm changes via XK08.
Any hints/ideas are highly appreciated.
Thanks.
Maria

Hi Maria,
First create an Event in the BOR "KNA1". For this you have to create a subtype and then add your event in the subtype Say your event name is "Save_vendor".
Now Go to SE19 and implement BADI " VENDOR_ADD_DATA". Inside this BADI the Method "SAVE_DATA",explicitly trigger the event say(Save_vendor") in   which you have created in the BOR by using the FM
* CALL FUNCTION 'SAP_WAPI_CREATE_EVENT'
*    EXPORTING
*      OBJECT_TYPE     = 'LFA1' "---> this is the BOR Name
*      OBJECT_KEY      = OBJECT_KEY "--> Keyfield
*      EVENT           = 'SAVE_VENDOR' "--> Event name
*    TABLES
*      INPUT_CONTAINER = IT_CONTAINER.
Then automatically the WF which is linked with the Event will get trigger.... I am sure this will solve you problem

Vendor Master - Export License - MEK3

Similar Messages

Maybe you are looking for