Table     Description
KNA1     General Data in Customer Master
KNB1     Customer Master (Company Code)
KNVV     Customer Master Sales Data
KNVP     Customer Master Partner Functions
KNVP     Customer Master Partner Functions

Tcode     Description
XD01     Create Customer (Centrally)
XD02     Change Customer (Centrally)
XD03     Display Customer (Centrally)
VD01     Create Customer (Sales)
VD02     Change Customer (Sales)
VD03     Display Customer (Sales)
VAP1     Create Contact Person
VAP2     Change Contact Person
VAP3     Display Contact Person


Muhatap Tipleri

Type     Description         related table
A     Work center         PLOGI
AP     Contact Persons     KNVK
KU     Customer         KNA1
LI     Vendor             LFA1
LS     Logical system         TBDLS
MA     Mail Address    
MP     Mail Partner    
O     Organizational Unit     PLOGI
PE     Personnel Number     PREL
S     Position         PLOGI
US     User             USR03
VS     Shipping Point         TVST
WK     Plant             T001W

    perform bdc_dynpro      using 'SAPMF02D'    '0324'.
    perform bdc_field       using 'BDC_CURSOR'  '*RF02D-KTONR'.
    perform bdc_field       using 'BDC_OKCODE'  '=ENTR' .
 
    perform bdc_field       using '*KNVP-PARVW'  iv_parvw.
    perform bdc_field       using '*RF02D-KTONR' iv_kunn2.
 
    perform bdc_dynpro      using 'SAPMF02D'    '0324'.
    perform bdc_field       using 'BDC_CURSOR'  'KNVP-PARVW(01)'.
    perform bdc_field       using 'BDC_OKCODE'  '=LDEL' .
 
IF lv_last_numb LT 10.
    MOVE lv_last_numb TO  pv_cursor_new.
    CONCATENATE '0' pv_cursor_new INTO pv_cursor_new.
  ELSE.
    MOVE lv_last_numb TO pv_cursor_new.
  ENDIF.
 
  DO lv_page_modif TIMES.
    perform bdc_field       using 'BDC_OKCODE'  '=P+'.
  ENDDO.
 
set_cursor 'KNVP-PARVW' lv_cursor_modif lv_cursor.
    condense  lv_cursor no-gaps.
    perform bdc_field       using 'BDC_CURSOR'  lv_cursor.
    perform bdc_field       using 'BDC_OKCODE'  '=ENTR' .
    perform bdc_field       using lv_cursor iv_parvw.
    set_cursor 'RF02D-KTONR' lv_cursor_modif lv_cursor.
    condense  lv_cursor no-gaps.
    perform bdc_field       using 'BDC_CURSOR'  lv_cursor.
    perform bdc_field       using lv_cursor iv_kunn2.
 
 
Serkan AKKAVAK
Bilgisayar Mühendisi
serkurumsal@yandex.com