Skip to Content
0
Former Member
May 12, 2011 at 06:17 AM

Problem to add 'Possible Hazards' property

88 Views

Hi all,

I use this code to add possible hazards properties.

 CLEAR l_prop_header_wa.
    header_primkey = header_primkey + 1.
    l_prop_header_wa-primarykey  = header_primkey. "int. key
    l_prop_header_wa-flgprimkey  = abap_true.
    l_prop_header_wa-foreignkey  = l_sub_header_wa-primarykey.
    l_prop_header_wa-flgfrgnkey  = l_sub_header_wa-flgprimkey.
    l_prop_header_wa-subchacat   = 'SAP_EHS_1011_001'. " POSSIBLE_HAZARDS
    APPEND l_prop_header_wa TO l_prop_header_tab.

        LOOP AT lt_estpp INTO ls_estpp.

      SELECT * FROM  estpp INTO estpp_wa
        WHERE  langu     = sy-langu
        AND    phrtext   = ls_estpp-phrtext.
        SELECT        * FROM  estph INTO estph_wa
               WHERE  recn  = estpp_wa-recnroot.
          CONCATENATE estph_wa-catpin '-' estph_wa-phrid INTO l_prop_data_wa-char_value.

*   prepare the VALUE tab

          CLEAR l_prop_val_wa.
          val_primkey = val_primkey + 1.
          l_prop_val_wa-primarykey  = val_primkey.
          l_prop_val_wa-flgprimkey  = abap_true.
          l_prop_val_wa-foreignkey  = l_prop_header_wa-primarykey.
          l_prop_val_wa-flgfrgnkey  = l_prop_header_wa-flgprimkey.
*          l_prop_val_wa-sequence    = 1.
          APPEND l_prop_val_wa TO l_prop_val_tab.

          CLEAR l_prop_data_wa.
          data_primkey = data_primkey + 1.
          l_prop_data_wa-primarykey  = data_primkey.
          l_prop_data_wa-flgprimkey  = abap_true.
          l_prop_data_wa-foreignkey  = l_prop_val_wa-primarykey.
          l_prop_data_wa-flgfrgnkey  = l_prop_val_wa-flgprimkey.
          l_prop_data_wa-name_char   = 'SAP_EHS_1011_001_ADVICE'.
          l_prop_data_wa-oper_inc    = 0.
          APPEND l_prop_data_wa TO l_prop_data_tab.

          CLEAR l_prop_data_wa.

        ENDSELECT.
      ENDSELECT.
    ENDLOOP.

I don't know why it doesn't work.

When i call the bapi 'BAPI_BUS1077_CREATE', I have no error message.

But when i check within CG02 transaction i have nothing.

I mean i have a new entry but there is no new "Possible Hazards" property.

Does someone see an error in this code ?

Thanks in advance for your help.