Creating packing instructions.

Former Member — Wed, 31 Jan 2007 07:41:30 GMT

Good day!

Can somebody show me an example of using FM VHUPO_PACK_INSTRUCTION_CREATE or a method PiCreate of BAPI BUS3071 to create packing instruction. I can't understand what obligatory fields I need to fill to have success.

Thanks an avance.

Anton Griga

Re: Creating packing instructions.

Former Member — Sat, 03 Feb 2007 13:55:04 GMT

I have solved a problem. Thread closing...

Here is a solution:

wa_pikp-tare_vol_unit = wa_pikp-vol_unit.

wa_pikp-max_unit_of_wght = 'KG'.

wa_pikp-unit_of_wt = 'KG'.

wa_pikp-total_vol = wa_pikp-load_vol + wa_pikp-tare_vol.

wa_pikp-total_wght = wa_pikp-load_wght + wa_pikp-tare_wght.

SELECT SINGLE

ergew

ervol

FROM mara

INTO (wa_pikp-allowed_wght,wa_pikp-allowed_vol)

WHERE matnr = 'PALLET'.

wa_pikp-check_profile = '01'.

wa_pikp-vol_fix = 'X'.

wa_pikp-weight_fix = 'X'.

"Filling positions to packing instruction

TRANSLATE lsmw_accmat-kg_v_palete USING ',.'.

FREE wa_pipositions.

wa_pipositions-item_number = 10.

wa_pipositions-detail_itemtype = 'P'.

wa_pipositions-material = 'PALLET'.

wa_pipositions-target_qty = 1.

wa_pipositions-load_carrier_indicator = 'X'.

wa_pipositions-unit_qty = 'ST'.

APPEND wa_pipositions TO pipositions.

FREE wa_pipositions.

wa_pipositions-item_number = 20.

wa_pipositions-detail_itemtype = 'M'.

wa_pipositions-material = iv_matnr.

wa_pipositions-target_qty = iv_qty.

wa_pipositions-minimum_qty = 1.

wa_pipositions-unit_qty = 'KI'.

APPEND wa_pipositions TO pipositions.

CALL FUNCTION 'BAPI_HU_PI_CREATE'

EXPORTING

header = wa_pikp

IMPORTING
HEADER_EXT =
PIKEY =

TABLES

positions = pipositions

return = piret

IF NOT piret IS INITIAL .

LOOP AT piret INTO wa_piret.

WRITE / wa_piret-message.

ENDLOOP.

ENDIF.

CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'.

WAIT UP TO 1 SECONDS.

SELECT SINGLE packnr

FROM packkp

INTO i_packnr

WHERE pobjid = wa_pikp-packinstrid.

IF sy-subrc = 0.

objname_up = lsmw_accmat-obj_name.

TRANSLATE objname_up TO UPPER CASE.

wa_packkps-packnr = i_packnr.

wa_packkps-spras = sy-langu.

wa_packkps-content = lsmw_accmat-obj_name.

wa_packkps-content_up = objname_up.

INSERT into packkps values wa_packkps.

IF sy-subrc = 0.

WRITE / 'Texts have been added'.

ENDIF.

topic Creating packing instructions. in Application Development and Automation Discussions

Creating packing instructions.

Re: Creating packing instructions.