[58098] in SAPr3-news
=?iso-8859-1?q?wieder_einmal:_BAPI=5FSALESORDER=5FCHANGE_Merkmal_in_Konfiguration_=E4ndern?=
daemon@ATHENA.MIT.EDU (vokalix)
Wed Sep 13 02:22:03 2006
To: sapr3-news@mit.edu
Date: 12 Sep 2006 23:21:54 -0700
From: "vokalix" <vokalix@liwest.at>
Message-ID: <1158128514.198782.133290@p79g2000cwp.googlegroups.com>
Da es anscheindend nach wie vor keine L=F6sung gibt und ich nun auch die
Konfigurationsmerkmale eines Kundenauftrags =E4ndern soll, bitte ich
hier mal um Hilfe.
Hier mein Testprogramm: Was muss man noch einstellen, sodass die
Merkmale ge=E4ndert werden???
***************************************************************************=
***********
REPORT z_test LINE-SIZE 300.
PARAMETERS: pa_vbeln LIKE vbap-vbeln DEFAULT '11000272',
pa_posnr LIKE vbap-posnr DEFAULT '10',
pa_char TYPE char20 DEFAULT 'LAENGE',
pa_value TYPE char20 DEFAULT '2600'.
DATA:
gs_headerx LIKE bapisdh1x,
gt_cuins LIKE TABLE OF bapicuins WITH HEADER LINE,
gt_cuprt LIKE TABLE OF bapicuprt WITH HEADER LINE,
gt_cuval LIKE TABLE OF bapicuval WITH HEADER LINE,
gt_cublb LIKE TABLE OF bapicublb WITH HEADER LINE,
gt_cuvk LIKE TABLE OF bapicuvk WITH HEADER LINE,
gt_cucfg LIKE TABLE OF bapicucfg WITH HEADER LINE,
gt_curef LIKE TABLE OF bapicuref WITH HEADER LINE,
gt_return LIKE TABLE OF bapiret2 WITH HEADER LINE,
gt_bcuref LIKE TABLE OF bapicurefm WITH HEADER LINE,
gt_bcucfg LIKE TABLE OF bapicucfgm WITH HEADER LINE,
gt_bcuins LIKE TABLE OF bapicuinsm WITH HEADER LINE,
gt_bcuprt LIKE TABLE OF bapicuprtm WITH HEADER LINE,
gt_bcuvals LIKE TABLE OF bapicuvalm WITH HEADER LINE,
gt_bcublb LIKE TABLE OF bapicublbm WITH HEADER LINE,
gt_bcuvk LIKE TABLE OF bapicublbm WITH HEADER LINE,
gt_vbeln LIKE TABLE OF sales_key.
START-OF-SELECTION.
APPEND pa_vbeln TO gt_vbeln.
CALL FUNCTION 'BAPISDORDER_GETDETAILEDLIST'
EXPORTING
i_bapi_view =3D 'XXXXXXXXXXXXXXXXX'
TABLES
sales_documents =3D gt_vbeln
order_cfgs_curefs_out =3D gt_bcuref
order_cfgs_cucfgs_out =3D gt_bcucfg
order_cfgs_cuins_out =3D gt_bcuins
order_cfgs_cuprts_out =3D gt_bcuprt
order_cfgs_cuvals_out =3D gt_bcuvals
order_cfgs_cublbs_out =3D gt_bcublb
order_cfgs_cuvks_out =3D gt_bcuvk.
gs_headerx-updateflag =3D 'U'.
LOOP AT gt_bcuref.
MOVE-CORRESPONDING gt_bcuref TO gt_curef.
APPEND gt_curef.
ENDLOOP.
LOOP AT gt_bcucfg.
MOVE-CORRESPONDING gt_bcucfg TO gt_cucfg.
APPEND gt_cucfg.
ENDLOOP.
LOOP AT gt_bcuins.
MOVE-CORRESPONDING gt_bcuins TO gt_cuins.
APPEND gt_cuins.
ENDLOOP.
LOOP AT gt_bcuprt.
MOVE-CORRESPONDING gt_bcuprt TO gt_cuprt.
APPEND gt_cuprt.
ENDLOOP.
LOOP AT gt_bcublb.
MOVE-CORRESPONDING gt_bcublb TO gt_cublb.
APPEND gt_cublb.
ENDLOOP.
LOOP AT gt_bcuvk.
MOVE-CORRESPONDING gt_bcuvk TO gt_cuvk.
APPEND gt_cuvk.
ENDLOOP.
LOOP AT gt_bcuvals.
MOVE-CORRESPONDING gt_bcuvals TO gt_cuval.
IF gt_cuval-charc =3D pa_char.
gt_cuval-value =3D pa_value.
ENDIF.
APPEND gt_cuval.
ENDLOOP.
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
EXPORTING
salesdocument =3D pa_vbeln
order_header_inx =3D gs_headerx
behave_when_error =3D 'P'
TABLES
return =3D gt_return
order_cfgs_ref =3D gt_cucfg
order_cfgs_inst =3D gt_cuins
order_cfgs_part_of =3D gt_cuprt
order_cfgs_value =3D gt_cuval
order_cfgs_blob =3D gt_cublb
order_cfgs_vk =3D gt_cuvk
order_cfgs_refinst =3D gt_curef.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
EXPORTING
wait =3D 'X'.
LOOP AT gt_return.
WRITE: / gt_return-type, gt_return-message.
ENDLOOP.
***************************************************************************=
******************
Danke
Vokalix
