method IF_EX_BADI_HU_AUTOPACK~METHOD_PROPOSAL .
 
 
data: tmp_num(10)        type N,
       tbl_huheader       type huhdr_proposal,
       tbl_huitem         type HUITM_PROPOSAL,
       tbl_messages       type HUITEM_MESSAGES,
       tbl_PACKGOODs      type packgood,
       ch_HU              type c.
 
clear: tmp_num, tbl_huheader,
        tbl_huitem, tbl_packgoods.
 
if if_loop < 2 and ct_hdr_proposal is initial
                and not it_packgoods is initial.
 
*---> HU header
   MOVE 1 TO tmp_NUM.
   CONCATENATE '$' tmp_NUM INTO tbl_huheader-exidv.
   select single mara~matnr into tbl_huheader-VHILM
          from mara inner join makt on mara~matnr = makt~matnr
          where mara~mtart = 'Z1LE' and
                makt~spras = 'E'    and
                MARA~VHART ne ''    and
                makt~MAKTG = 'HU'.
   if sy-subrc ne 0.
     message id     'ZWM'
             type   'W'
             number '000'
             with   space
'Packaging material Z1LE dengan deskripsi HU tidak ditemukan'.
     exit.
   endif.
 
   append tbl_huheader to ct_hdr_proposal.
 
*---> HU item
   loop at it_PACKGOODS into tbl_PACKGOODS.
 
     CONCATENATE '$' tmp_NUM INTO tbl_huitem-EXIDV.
     tbl_huitem-BELNR      = tbl_PACKGOODs-DOCNUM.
     tbl_huitem-POSNR      = tbl_PACKGOODs-DOCITEM.
     tbl_huitem-WERKS      = tbl_PACKGOODs-WERKS.
     tbl_huitem-LGORT      = tbl_PACKGOODs-LGORT.
     tbl_huitem-MATNR      = tbl_PACKGOODs-MATNR.
     tbl_huitem-CHARG      = tbl_PACKGOODs-CHARG.
     tbl_huitem-vfdat      = tbl_PACKGOODs-vfdat.
     tbl_huitem-BESTQ      = tbl_PACKGOODs-BESTQ.
     tbl_huitem-qplos      = tbl_PACKGOODs-qplos.
     tbl_huitem-sobkz      = tbl_PACKGOODs-sobkz.
     tbl_huitem-sonum      = tbl_PACKGOODs-sonum.
     tbl_huitem-quantity   = tbl_PACKGOODs-MAXQUA.
     tbl_huitem-meins      = tbl_PACKGOODs-qunit_a.
     tbl_huitem-VELIN      = '1'.
 
     APPEND tbl_huitem TO CT_ITEMS.
 
   endloop.
 
endif.
 
 
*---> Check messages
loop at ct_messages into tbl_messages
                     where msgty na 'ES'.
     tbl_messages-msgty = 'S'.
     modify ct_messages from tbl_messages
            index sy-tabix transporting msgty.
endloop.
 
endmethod.