Code: Alles auswählen.
DATA(lx_data) = VALUE cvis_ei_extern(
partner-header-object_task = 'I'
partner-header-object = 'BUS1006' "Business Partner
partner-header-object_instance = VALUE #(
bpartnerguid = lv_guid )
partner-central_data-common = VALUE #(
data = VALUE #(
bp_control = VALUE #(
category = '2' ) "organization
bp_organization = VALUE #(
name1 = ls_address-name
name2 = ls_address-name_2
name3 = ls_address-name_3
name4 = ls_address-name_4 )
bp_centraldata = VALUE #(
searchterm1 = ls_address-sort1
searchterm2 = ls_address-sort2
title_key = '0003' "company
)
) )
partner-central_data-role-roles = VALUE #( task = 'I'
( data_key = 'FLCU01'
data = VALUE #(
rolecategory = 'FLCU01'
) ) )
partner-central_data-address = VALUE #(
current_state = 'C'
time_dependent = abap_false
addresses = VALUE #( (
task = 'I'
data_key-operation = 'I'
currently_valid = abap_true
data = VALUE #(
postal = VALUE #(
data = VALUE #( BASE CORRESPONDING #( ls_address ) standardaddress = 'X' )
)
)
)
)
)
customer-header-object_instance-kunnr = space "rv_bu_partner
customer-header-object_task = 'I'
ensure_create-create_customer = abap_true
customer-sales_data-sales = VALUE #(
( task = 'I'
data_key-vkorg = is_order_header-sales_org
data_key-vtweg = is_order_header-distr_chan
data_key-spart = is_order_header-division
data-waers = 'EUR'
data-lprio = '2' "Delivery priority
data-vsbed = '01' "shipping conditions
data-antlf = '9' "maximum number of permitted part deliveries per item
)
)
).
Code: Alles auswählen.
functions-functions = VALUE #(
(
task = ls_sales-task
data_key-parvw = 'AG'
data_key-parza = 001
)
(
task = ls_sales-task
data_key-parvw = 'RE'
data_key-parza = 002
)
(
task = ls_sales-task
data_key-parvw = 'RG'
data_key-parza = 003
)
(
task = ls_sales-task
data_key-parvw = 'WE'
data_key-parza = 004
)
).
Code: Alles auswählen.
KUNN2 Kunde ## / RS10 / R1 / R1: Daten sind unvollständig; überprüfen Sie die Daten