---

  CLEAR:
    gv_consumeren,
    gv_credit_control.

*---------------------------------------------------------------------*
* BAPI PERSONAL DATA
*---------------------------------------------------------------------*

CLEAR gs_personaldata.

*---------------------------------------------------------------------*
* BAPI OPTIONAL PERSONAL DATA
*---------------------------------------------------------------------*

CLEAR gs_opt_personaldata.

*---------------------------------------------------------------------*
* BAPI COMPANY DATA
*---------------------------------------------------------------------*
  gs_companydata-name         = iv_name1.
  gs_companydata-city         = 'Москва'.
  gs_companydata-country      = gc_land1.
  gs_companydata-countryiso   = 'RU'.

  gs_companydata-langu        = gc_spras.
  gs_companydata-langu_iso   = 'RU'.

  gs_companydata-currency     = gc_waers.
  gs_companydata-currency_iso = 'RUB'.

*---------------------------------------------------------------------*
* BAPI OPTIONAL COMPANY DATA
*---------------------------------------------------------------------*

  gs_opt_COMPANYdata-transpzone      = gc_lzone.
  gs_opt_companYdata-control_account  = gc_akont.
  gs_opt_companydata-pmnttrms        = gc_zterm.
  gs_opt_companydata-ship_cond       = gc_vsbed.
  gs_opt_companydata-delyg_plnt      = gs_config-vwerk.


*---------------------------------------------------------------------*
* REFERENCE CUSTOMER
*---------------------------------------------------------------------*

  gs_copyreference-salesorg   = p_vkorg.
  gs_copyreference-distr_chan = gc_vtweg.
  gs_copyreference-division   = gc_spart.
  gs_copyreference-ref_custmr = gc_ref_customer.

  gv_consumeren     = space.
  gv_credit_control = space.

*---------------------------------------------------------------------*
* CREATE BASE CUSTOMER
*---------------------------------------------------------------------*