ABAP BP维护客户cl_md_bp_maintain=＞maintain

ps_head结构如下

下面是封装好的form示例

*&---------------------------------------------------------------------*
*& Form frm_modify_customer
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> LS_HEAD
*&      <-- LS_RETINFO
*&---------------------------------------------------------------------*
FORM frm_modify_customer  USING    ps_head      TYPE zsds002
                          CHANGING ps_retinfo   TYPE zsds008.

*--& 变量声明
  DATA: lt_return_map TYPE  mdg_bs_bp_msgmap_t.
  DATA: lt_data   TYPE cvis_ei_extern_t,
        lt_return TYPE bapiretm,
        ls_return TYPE bapireti,
        ls_retmsg TYPE LINE OF bapiretct,
        lv_text   TYPE string.

  DATA: ls_data         LIKE LINE OF lt_data,
        ls_bupa_role    TYPE bus_ei_bupa_roles,
        ls_relation     TYPE burs_ei_extern,
        ls_paadr        TYPE bus_ei_bupa_address,
        ls_company_view TYPE cmds_ei_company.

  DATA: lv_guid    TYPE guid_32,
        lv_pguid   LIKE but000-partner_guid,
        lv_partner LIKE but000-partner.

  DATA: ls_functions_st    TYPE cmds_ei_functions,
        ls_functions_t     TYPE cmds_ei_functions_t,
        ls_functions       TYPE cmds_ei_cmd_functions,
        ls_sales_data_st   TYPE cmds_ei_sales,
        ls_sales_data      TYPE cmds_ei_cmd_sales,
        ls_customer        TYPE cmds_ei_extern,
        ls_customers       TYPE cmds_ei_main,
        ls_company_code_st TYPE cmds_ei_company,
        ls_company_code    TYPE cmds_ei_cmd_company,
        ls_phone           TYPE bus_ei_bupa_telephone,
        ls_fax             TYPE bus_ei_bupa_fax,
        ls_mail            TYPE bus_ei_bupa_smtp,
        ls_cphone          TYPE cvis_ei_phone_str,
        ls_cfax            TYPE cvis_ei_fax_str,
        ls_cmail           TYPE cvis_ei_smtp_str,
        ls_taxnumber       TYPE bus_ei_bupa_taxnumber,
        lt_taxnumber       TYPE bus_ei_bupa_taxnumber_t,
        ls_tax_ind         TYPE cmds_ei_tax_ind,
        ls_line            TYPE tline,
        ls_ret             TYPE bapiret2,
        lt_bankdetails     TYPE bus_ei_bupa_bankdetail_t,
        ls_bankdetails     TYPE bus_ei_bupa_bankdetail,
        lv_partner_guid    TYPE but000-partner_guid,
        ls_profile         TYPE ukm_ei_bp_cms,
        ls_segments        TYPE ukm_ei_bp_cms_sgm.

  DATA: lv_name_org1 TYPE but000-name_org1,
        lv_name_org2 TYPE but000-name_org2.
  DATA: lv_street     TYPE adrc-street,
        lv_str_suppl3 TYPE adrc-str_suppl3,
        lv_location   TYPE adrc-location.
  DATA: lv_len   TYPE i,
        lv_spras TYPE kna1-spras.

  " 合作伙伴名称
  lv_partner = ps_head-partner.
  lv_partner = |{ lv_partner ALPHA = IN }|.

  " 操作标识  I 新建 U 更新 M 修改/新建
  ls_data-partner-header-object_task = gc_m.

  " bp guid
  SELECT SINGLE
    partner_guid
  INTO lv_partner_guid
  FROM but000
  WHERE partner = lv_partner.
  " bp guid
  IF sy-subrc <> 0.
    TRY.
        CALL METHOD cl_system_uuid=>create_uuid_c32_static
          RECEIVING
            uuid = lv_guid.
      CATCH cx_uuid_error .
    ENDTRY.
  ELSE.
    lv_guid = lv_partner_guid.
  ENDIF.
  ls_data-partner-header-object_instance-bpartnerguid = lv_guid.

*--- BP基础数据------------------------------*

  " 合作伙伴类别     3: 组 2: 组织
  ls_data-partner-central_data-common-data-bp_control-category = '2'.

  " 客户分组  
  ls_data-partner-central_data-common-data-bp_control-grouping = ps_head-bu_group.

  " 标题    0001  女士    0002  先生    0003  公司
  ls_data-partner-central_data-common-data-bp_centraldata-title_key  = ps_head-title.
  ls_data-partner-central_data-common-datax-bp_centraldata-title_key = gc_x.

  " 搜索项（检索项）
  ls_data-partner-central_data-common-data-bp_centraldata-searchterm1  = ps_head-bu_sort1.
  ls_data-partner-central_data-common-datax-bp_centraldata-searchterm1 = gc_x.

  " 公司名称（客户名称）
  " 第1到40位存入BUT000-NAME_ORG1中，第41-80位存入BUT000-NAME_ORG2中
  IF strlen( ps_head-name_org ) > 40.
    lv_name_org1 = ps_head-name_org+0(40).
    lv_len       = strlen( ps_head-name_org ) MOD 40.
    lv_name_org2 = ps_head-name_org+40(lv_len).
  ELSE.
    lv_name_org1 = ps_head-name_org.
  ENDIF.
  ls_data-partner-central_data-common-data-bp_organization-name1  = lv_name_org1.
  ls_data-partner-central_data-common-data-bp_organization-name2  = lv_name_org2.
  ls_data-partner-central_data-common-datax-bp_organization-name1 = gc_x.
  ls_data-partner-central_data-common-datax-bp_organization-name2 = gc_x.

  " 客户冻结
  ls_data-partner-central_data-common-data-bp_centraldata-centralblock  = ps_head-xblck.
  ls_data-partner-central_data-common-datax-bp_centraldata-centralblock = gc_x.

*--- BP地址 -----------------------------*

  " 地址操作标识
  ls_paadr-task = gc_m.

  " 地址 guid
  SELECT SINGLE
    address_guid
  FROM but020
  WHERE partner = @lv_partner
  INTO @DATA(lv_addguid).
  IF sy-subrc <> 0.
    TRY.
        CLEAR lv_guid.
        CALL METHOD cl_system_uuid=>create_uuid_c32_static
          RECEIVING
            uuid = lv_guid.
      CATCH cx_uuid_error .
    ENDTRY.
    ls_paadr-data_key-guid = lv_guid.
  ELSE.
    ls_paadr-data_key-guid = lv_addguid.
  ENDIF.

  " 街道
  " 第1到60位存入ADRC-STREET中，第61-100位存入ADRC-STR_SUPPL3中，第101-120位存入ADRC-LOCATION中
  IF strlen( ps_head-stras ) <= 60.
    lv_street = ps_head-stras.
  ELSEIF strlen( ps_head-stras ) > 60 AND strlen( ps_head-stras ) <= 100.
    lv_street     = ps_head-stras+0(60).
    lv_len        = strlen( ps_head-stras ) MOD 60.
    lv_str_suppl3 = ps_head-stras+60(lv_len).
  ELSE.
    lv_street     = ps_head-stras+0(60).
    lv_str_suppl3 = ps_head-stras+60(40).
    lv_len        = strlen( ps_head-stras ) MOD 100.
    lv_location   = ps_head-stras+100(lv_len).
  ENDIF.
  ls_paadr-data-postal-data-street      = lv_street.
  ls_paadr-data-postal-data-str_suppl3  = lv_str_suppl3.
  ls_paadr-data-postal-data-location    = lv_location.
  ls_paadr-data-postal-datax-street     = gc_x.
  ls_paadr-data-postal-datax-str_suppl3 = gc_x.
  ls_paadr-data-postal-datax-location   = gc_x.

  " 邮政编码
  ls_paadr-data-postal-data-postl_cod1  = ps_head-pstlz.
  ls_paadr-data-postal-datax-postl_cod1 = gc_x.

  " 城市
  ls_paadr-data-postal-data-city  = ps_head-ort01.
  ls_paadr-data-postal-datax-city = gc_x.

  " 国家
  ls_paadr-data-postal-data-country  = ps_head-land1.
  ls_paadr-data-postal-datax-country = gc_x.

  " 地区(省份)
  ls_paadr-data-postal-data-region  = ps_head-regio.
  ls_paadr-data-postal-datax-region = gc_x.

  " 语言 (外部传入2位外码转换为1位内码)
  CALL FUNCTION 'CONVERSION_EXIT_ISOLA_INPUT'
    EXPORTING
      input  = ps_head-spras
    IMPORTING
      output = lv_spras.
  ls_paadr-data-postal-data-langu  = lv_spras."语言代码
  ls_paadr-data-postal-datax-langu = gc_x.

  " 电话
  ls_phone-contact-task            = gc_m.
  ls_phone-contact-data-telephone  = ps_head-tel_number.
  ls_phone-contact-datax-telephone = gc_x.
  APPEND ls_phone TO ls_paadr-data-communication-phone-phone.

  " 传真
  ls_fax-contact-task      = gc_m.
  ls_fax-contact-data-fax  = ps_head-fax_number. "传真
  ls_fax-contact-datax-fax = gc_x.
  APPEND ls_fax TO ls_paadr-data-communication-fax-fax.

  " 邮箱
  ls_mail-contact-task         = gc_m.
  ls_mail-contact-data-e_mail  = ps_head-smtp_addr.
  ls_mail-contact-datax-e_mail = gc_x.
  APPEND ls_mail TO ls_paadr-data-communication-smtp-smtp.

  ls_paadr-currently_valid = abap_true.
  APPEND ls_paadr TO ls_data-partner-central_data-address-addresses.

*-------------- Customer / Header ---------------------------------*

  " 客户抬头操作标识
  IF lv_partner_guid IS INITIAL AND ps_head-zoperate = 'I'.  " BP中没有合作伙伴则新建
    ls_data-ensure_create-create_customer = abap_true.
    ls_data-customer-header-object_task = 'I'.
  ELSE.
    IF ps_head-partner IS NOT INITIAL AND ps_head-zoperate = 'I'.  " BP中有合作伙伴但没有客户则新建
      ls_data-ensure_create-create_customer = abap_true.
      ls_data-customer-header-object_task = 'I'.
    ELSE.                               " BP中有合作伙伴且有客户则更新
      ls_data-customer-header-object_task = 'U'.
    ENDIF.
  ENDIF.

  " 客户编码
  ls_data-customer-header-object_instance-kunnr = lv_partner.

  " 税号信息
  ls_taxnumber-task               = gc_m.
  ls_taxnumber-data_key-taxtype   = ps_head-taxtype.
  ls_taxnumber-data_key-taxnumxl  = ps_head-taxnumxl.
  APPEND ls_taxnumber TO lt_taxnumber .
  ls_data-partner-central_data-taxnumber-current_state = 'X' .
  ls_data-partner-central_data-taxnumber-taxnumbers    = lt_taxnumber .
  
*----& 角色
  IF ps_head-sales[] IS NOT INITIAL.
    ls_bupa_role-task = gc_m.
    ls_bupa_role-data_key = 'FLCU01'. " FI 客户
    APPEND ls_bupa_role TO ls_data-partner-central_data-role-roles.
  ENDIF.

  IF ps_head-company[] IS NOT INITIAL.
    ls_bupa_role-task = gc_m.
    ls_bupa_role-data_key = 'FLCU00'. " 客户
    APPEND ls_bupa_role TO ls_data-partner-central_data-role-roles.
  ENDIF.

*----& 银行段
  IF ps_head-bank[] IS NOT INITIAL.
    " 检查银行更新/新建
    SELECT
      bkvid,  " 银行明细标识
      partner " 合作伙伴编号
    FROM but0bk
    WHERE
      partner = @lv_partner
    INTO TABLE @DATA(lt_but0bk).

    LOOP AT ps_head-bank INTO DATA(ls_bank).
      READ TABLE lt_but0bk TRANSPORTING NO FIELDS WITH KEY bkvid = ls_bank-bkvid.
      IF sy-subrc = 0.
        ls_bankdetails-task = gc_u.
      ELSE.
        ls_bankdetails-task = gc_i.
      ENDIF.

      " 序号
      ls_bankdetails-data_key = ls_bank-bkvid.

      " 银行国家
      ls_bankdetails-data-bank_ctry  = ls_bank-banks.
      ls_bankdetails-datax-bank_ctry = gc_x.

      " 银行代码
      ls_bankdetails-data-bank_key   = ls_bank-bankl.
      ls_bankdetails-datax-bank_key  = gc_x.

      " 银行名称
      ls_bankdetails-data-bankaccountname  = ls_bank-banka.
      ls_bankdetails-datax-bankaccountname = gc_x.

      " 银行账户，超过18位时填入参考字段
      ls_bankdetails-data-bank_acct  = ls_bank-bankn.
      ls_bankdetails-datax-bank_acct = gc_x.

      ls_bankdetails-data-bank_ref  = ls_bank-bkref.
      ls_bankdetails-datax-bank_ref = gc_x.

      " 是否默认
      ls_bankdetails-data-coll_auth  = ls_bank-xezer.
      ls_bankdetails-datax-coll_auth = gc_x.

      APPEND ls_bankdetails TO lt_bankdetails.

      PERFORM frm_create_bank USING ls_bankdetails .

    ENDLOOP.
    ls_data-partner-central_data-bankdetail-bankdetails = lt_bankdetails .
  ENDIF.

*----& 销售段
  LOOP AT ps_head-sales INTO DATA(ls_sales).
    ls_sales_data_st-task = gc_m.
    ls_sales_data_st-data_key-spart = ls_sales-spart."产品组
    ls_sales_data_st-data_key-vkorg = ls_sales-vkorg."销售组织
    ls_sales_data_st-data_key-vtweg = ls_sales-vtweg."分销渠道

    " 销售地区
    ls_sales_data_st-data-bzirk  = ls_sales-bzirk.
    ls_sales_data_st-datax-bzirk = gc_x.

    " 销售办事处
    ls_sales_data_st-data-vkbur  = ls_sales-vkbur.
    ls_sales_data_st-datax-vkbur = gc_x.

    " 销售组
    ls_sales_data_st-data-vkgrp  = ls_sales-kdgrp.
    ls_sales_data_st-datax-vkgrp = gc_x.

    " 货币
    ls_sales_data_st-data-waers  = ls_sales-waers.
    ls_sales_data_st-datax-waers = gc_x.

    " 定价过程
    ls_sales_data_st-data-kalks  = ls_sales-kalks.
    ls_sales_data_st-datax-kalks = gc_x.

    " 装运条件  默认01
    IF ls_sales-vsbed IS INITIAL.
      ls_sales-vsbed = '01'.
    ENDIF.
    ls_sales_data_st-data-vsbed  = ls_sales-vsbed.
    ls_sales_data_st-datax-vsbed = gc_x.

    " 与 POD 处理相关
    ls_sales_data_st-data-podkz  = ls_sales-podkz .
    ls_sales_data_st-datax-podkz = gc_x.

    " 国际贸易条款1
*    IF ls_sales-inco1 IS NOT INITIAL.
    ls_sales_data_st-data-inco1  = ls_sales-inco1.
    ls_sales_data_st-datax-inco1 = gc_x.

    " 国际贸易条款位置 1
    ls_sales_data_st-data-inco2_l  = ls_sales-inco2_l.
    ls_sales_data_st-datax-inco2_l = gc_x.

    " 付款条件代码
    ls_sales_data_st-data-zterm  = ls_sales-zterm.
    ls_sales_data_st-datax-zterm = gc_x.

    " 客户的科目分配组
    ls_sales_data_st-data-ktgrd  = ls_sales-ktgrd.
    ls_sales_data_st-datax-ktgrd = gc_x.

    " 销售范围订单冻结
    ls_sales_data_st-data-aufsd  = ls_sales-aufsd.
    ls_sales_data_st-datax-aufsd = gc_x.

*------& 销售段->合作伙伴职能段
    LOOP AT ls_sales-partner INTO DATA(ls_partner).
      " 合作伙伴外码转内码
      CALL FUNCTION 'CONVERSION_EXIT_PARVW_INPUT'
        EXPORTING
          input  = ls_partner-parvw
        IMPORTING
          output = ls_partner-parvw.

      ls_functions_st-data_key-parvw = ls_partner-parvw.
      ls_functions_st-data_key-parza = ls_partner-parza.

      ls_functions_st-data-partner = ls_partner-kunn2.
      ls_functions_st-datax-partner = gc_x.
      APPEND ls_functions_st TO ls_functions_t.

    ENDLOOP.

    ls_functions-functions = ls_functions_t.
    ls_sales_data_st-functions = ls_functions.
    IF ls_sales-partner IS NOT INITIAL.
      ls_sales_data_st-functions-current_state = gc_x.
    ENDIF.

    APPEND ls_sales_data_st TO ls_sales_data-sales.
    CLEAR: ls_sales_data_st,ls_functions_t[],ls_functions.

  ENDLOOP.

  ls_data-customer-sales_data = ls_sales_data.

*----税段
  LOOP AT ps_head-tax INTO DATA(ls_tax).
    ls_tax_ind-task = gc_m.
    ls_tax_ind-data_key-tatyp = ls_tax-tatyp." 税类别
    ls_tax_ind-data_key-aland = ls_tax-aland." 国家

    " 客户税分类
    ls_tax_ind-data-taxkd     = ls_tax-takld.
    ls_tax_ind-datax-taxkd    = gc_x.
    APPEND ls_tax_ind TO ls_data-customer-central_data-tax_ind-tax_ind.
  ENDLOOP.

*----公司视图段
  LOOP AT ps_head-company INTO DATA(ls_company).
    ls_company_view-task = gc_m.
    ls_company_view-data_key   = ls_company-bukrs. " 公司代码

    " 统驭科目
    ls_company_view-data-akont  = ls_company-akont.
    ls_company_view-datax-akont = gc_x.

    " 付款条件
    ls_company_view-data-zterm = ls_company-zterm.
    ls_company_view-datax-zterm = gc_x.

    " 排序代码
    ls_company_view-data-zuawa = ls_company-zuawa.
    ls_company_view-datax-zuawa = gc_x.

    " 对公司代码过帐冻结
    ls_company_view-data-sperr = ls_company-sperr.
    ls_company_view-datax-sperr = gc_x.

    " K3客户编码
    ls_company_view-data-altkn = ls_company-altkn.
    ls_company_view-datax-altkn = gc_x.

    APPEND ls_company_view TO ls_data-customer-company_data-company.

  ENDLOOP.

  " 校验BP数据
  CALL METHOD cl_md_bp_maintain=>validate_single
    EXPORTING
      i_data        = ls_data "lt_data
    IMPORTING
      et_return_map = lt_return_map. "lt_return.

  APPEND ls_data TO lt_data.

  " 创建BP
  IF lt_return_map IS INITIAL.
    CALL METHOD cl_md_bp_maintain=>maintain
      EXPORTING
        i_data   = lt_data
      IMPORTING
        e_return = lt_return.

    " 异常返回校验
    LOOP AT lt_return INTO ls_return.
      LOOP AT ls_return-object_msg INTO ls_retmsg WHERE type CA 'AE'.
        CLEAR lv_text.
        MESSAGE ID ls_retmsg-id TYPE 'S' NUMBER ls_retmsg-number INTO lv_text
        WITH ls_retmsg-message_v1 ls_retmsg-message_v2 ls_retmsg-message_v3 ls_retmsg-message_v4.
        CONCATENATE ps_retinfo-message lv_text INTO ps_retinfo-message.
      ENDLOOP.
    ENDLOOP.
    IF ps_retinfo-message IS NOT INITIAL.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    ELSE.
      IF ps_head-partner IS INITIAL.
        ps_retinfo-kunnr = sy-msgv1.
      ELSE.
        ps_retinfo-kunnr = ps_head-partner.
      ENDIF.

      ps_retinfo-kunnr = |{ ps_retinfo-kunnr ALPHA = IN }|.
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.
    ENDIF.

  ELSE.
    LOOP AT lt_return_map INTO DATA(ls_return_map) WHERE type CA 'AE'.
      CLEAR lv_text.
      CALL FUNCTION 'MESSAGE_TEXT_BUILD'
        EXPORTING
          msgid               = ls_return_map-id
          msgnr               = ls_return_map-number
          msgv1               = ls_return_map-message_v1
          msgv2               = ls_return_map-message_v2
          msgv3               = ls_return_map-message_v3
          msgv4               = ls_return_map-message_v4
        IMPORTING
          message_text_output = lv_text.
      CONCATENATE ps_retinfo-message lv_text INTO ps_retinfo-message.
    ENDLOOP.

  ENDIF.

  IF ps_retinfo-message IS NOT INITIAL.
    ps_retinfo-code = gc_e.
    ps_retinfo-message = TEXT-m09 && ps_retinfo-message.
  ELSE.
    ps_retinfo-code = gc_s.
    ps_retinfo-message = TEXT-m08.
  ENDIF.
ENDFORM.

*&---------------------------------------------------------------------*
*& Form frm_create_bank
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*&      --> LS_BANKDETAILS
*&---------------------------------------------------------------------*
FORM frm_create_bank  USING  ps_bank_detail TYPE bus_ei_bupa_bankdetail.

  DATA: ls_return        TYPE bapiret2,
        lv_ret_bank_ctry TYPE bapi1011_key-bank_ctry,
        lv_ret_bank_key  TYPE bapi1011_key-bank_key,
        lv_bank_ctry     TYPE bapi1011_key-bank_ctry,
        lv_bank_key      TYPE bapi1011_key-bank_key,
        ls_bank_address  TYPE bapi1011_address,
        ls_bank_addressx TYPE bapi1011_addressx.

  CLEAR: ls_return,lv_ret_bank_ctry,lv_ret_bank_key  .

  lv_bank_key  = ps_bank_detail-data-bank_key.
  lv_bank_ctry = ps_bank_detail-data-bank_ctry.
  ls_bank_address-bank_name = ps_bank_detail-data-bankaccountname.
  ls_bank_addressx-bank_name = 'X' .

  SELECT COUNT(*)
    FROM bnka
    WHERE banks = lv_bank_ctry
      AND bankl = lv_bank_key.
  IF sy-subrc <> 0 .  "银行不存在

    CALL FUNCTION 'BAPI_BANK_CREATE'
      EXPORTING
        bank_ctry    = lv_bank_ctry
        bank_key     = lv_bank_key
        bank_address = ls_bank_address
      IMPORTING
        return       = ls_return
        bankcountry  = lv_ret_bank_ctry
        bankkey      = lv_ret_bank_key.

    IF lv_bank_key IS NOT INITIAL AND lv_ret_bank_ctry IS NOT INITIAL .
      CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
        EXPORTING
          wait = 'X'.

      WAIT UP TO 1 SECONDS .
    ELSE.
      CALL FUNCTION 'BAPI_TRANSACTION_ROLLBACK'.
    ENDIF.
  ENDIF .

ENDFORM.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557