|
adjunto el codigo, Saludos!
FUNCTION z_mm_actualizar_material.
*"----------------------------------------------------------------------
*"*"Interfase local
*" IMPORTING
*" REFERENCE(I_PLIFZ) TYPE MARC-PLIFZ
*" REFERENCE(I_MATNR) TYPE MARC-MATNR
*" REFERENCE(I_WERKS) LIKE MARC-WERKS
*" EXCEPTIONS
*" WRONG_MATERIAL
*"----------------------------------------------------------------------
DATA: wa_return TYPE bapiret2,
wa_head TYPE bapimathead,
wa_plant TYPE bapi_marc,
wa_plantx TYPE bapi_marcx.
DATA: t_ret TYPE TABLE OF bapi_matreturn2.
wa_head-material = i_matnr.
wa_plant-plant = i_werks.
wa_plant-plnd_delry = i_plifz.
wa_plant-mrp_type = 'ND'.
wa_plant-proc_type = 'X'.
wa_plantx-plant = i_werks.
wa_plantx-plnd_delry = 'X'.
wa_plantx-mrp_type = 'X'.
wa_plantx-proc_type = 'X'.
CALL FUNCTION 'BAPI_MATERIAL_SAVEDATA'
EXPORTING
headdata = wa_head
* CLIENTDATA =
* CLIENTDATAX =
plantdata = wa_plant
plantdatax = wa_plantx
* FORECASTPARAMETERS =
* FORECASTPARAMETERSX =
* PLANNINGDATA =
* PLANNINGDATAX =
* STORAGELOCATIONDATA =
* STORAGELOCATIONDATAX =
* VALUATIONDATA =
* VALUATIONDATAX =
* WAREHOUSENUMBERDATA =
* WAREHOUSENUMBERDATAX =
* SALESDATA =
* SALESDATAX =
* STORAGETYPEDATA =
* STORAGETYPEDATAX =
* FLAG_ONLINE = ' '
* FLAG_CAD_CALL = ' '
* NO_DEQUEUE = ' '
IMPORTING
return = wa_return
TABLES
* MATERIALDESCRIPTION =
* UNITSOFMEASURE =
* UNITSOFMEASUREX =
* INTERNATIONALARTNOS =
* MATERIALLONGTEXT =
* TAXCLASSIFICATIONS =
returnmessages = t_ret
* PRTDATA =
* PRTDATAX =
* EXTENSIONIN =
* EXTENSIONINX =
.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT =
* IMPORTING
* RETURN =
.
|