{"id":569,"date":"2013-05-14T13:23:42","date_gmt":"2013-05-14T12:23:42","guid":{"rendered":"http:\/\/oprsteny.cz\/?p=569"},"modified":"2013-11-20T21:22:49","modified_gmt":"2013-11-20T20:22:49","slug":"create-new-batch-characteristics-with-values-checked-and-suggested-by-a-function-module","status":"publish","type":"post","link":"https:\/\/oprsteny.cz\/?p=569","title":{"rendered":"Create new batch characteristics with values checked and suggested by a function module"},"content":{"rendered":"

\"SAP\"In this example I’ll try to show you how to create new characteristics for a material batch. This will include the following steps:<\/p>\n

    \n
  1. Creation of a function module to check characteristics value (optional)<\/li>\n
  2. Creation of a function module to suggest characteristics value – search help (optional)<\/li>\n
  3. Creation of new characteristics (CT04)<\/span><\/li>\n
  4. Creation\/modification of a class (CL02)<\/span><\/li>\n
  5. Object\/Class assignment to a class (CL24N or CL20N and OMS2 if necessary)<\/span><\/li>\n
  6. Batch modification with our new characteristics (MCS2N)<\/li>\n<\/ol>\n

    <\/p>\n

    1.\u00a0Creation of a function module to check characteristics value<\/h1>\n

    In the following code you can see very basic check which can of course be much more complex for your specific scenario.<\/p>\n

    FUNCTION Z_CHECK_050.\r\n*\"----------------------------------------------------------------------\r\n*\"*\"Local Interface:\r\n*\"  IMPORTING\r\n*\"     REFERENCE(CHARACT_NO) TYPE  CABN-ATINN\r\n*\"     REFERENCE(CHARACT) TYPE  CABN-ATNAM\r\n*\"     REFERENCE(VALUE) TYPE  CAWN-ATWRT\r\n*\"  EXCEPTIONS\r\n*\"      NOT_FOUND\r\n*\"----------------------------------------------------------------------\r\n\r\n\" Allow empty value\r\n  check value is NOT INITIAL.\r\n\r\n\" Just for demonstration purposes we check for fixed values\r\n  if value <> 1 and \r\n     value <> 2 and\r\n     value <> 3.\r\n    RAISE NOT_FOUND.\r\n  endif.\r\nENDFUNCTION.<\/pre>\n
    2. Creation of a function module to suggest characteristics value<\/h1>\n
    In the following code I’ll create my own field catalog for selection grid to be displayed. We will need a checkbox column (called CHK) which will inform about which values (multiple allowed) are selected<\/p>\n
    FUNCTION z_check_050_f4.\r\n*\"----------------------------------------------------------------------\r\n*\"*\"Local Interface:\r\n*\"  IMPORTING\r\n*\"     REFERENCE(CHARACT_NO) TYPE  CABN-ATINN\r\n*\"     REFERENCE(CHARACT) TYPE  CABN-ATNAM\r\n*\"     REFERENCE(DISPLAY)\r\n*\"     REFERENCE(ADDITIONAL_VALUES) TYPE  CABN-ATSON\r\n*\"     REFERENCE(MULTIPLE_VALUES) TYPE  RCTMV-ATLIS\r\n*\"     REFERENCE(LANGUAGE) TYPE  SY-LANGU\r\n*\"     REFERENCE(DISPLAY_WITH_LANGUAGE)\r\n*\"  TABLES\r\n*\"      VALUES STRUCTURE  RCTVALUES\r\n*\"----------------------------------------------------------------------\r\n  TYPE-POOLS : slis.\r\n\r\n  CONSTANTS:\r\n      c_werks(50) TYPE c VALUE '(SAPLCHRG)DFBATCH-WERKS'.\r\n\r\n  types:\r\n    BEGIN OF ty_data,\r\n      chk(1) type c,\r\n      value type c,      \r\n    END OF ty_data.\r\n\r\n  DATA:\r\n    lt_values type TABLE OF ty_data,\r\n    l_werks TYPE  dfbatch-werks,\r\n    lt_fieldcat TYPE slis_t_fieldcat_alv.\r\n\r\n  FIELD-SYMBOLS:\r\n    <fs_value> type ty_data,\r\n    <fs_werks>,\r\n    <fs_rctvalue> TYPE rctvalues,\r\n    <fs_fcat> type slis_fieldcat_alv.\r\n\r\n  ASSIGN (c_werks) TO <fs_werks>.\r\n  IF sy-subrc EQ 0.\r\n    l_werks  = <fs_werks>.\r\n  ENDIF.\r\n\r\n  CHECK l_werks IS NOT INITIAL.\r\n\r\n  APPEND INITIAL LINE TO lt_values ASSIGNING <fs_value>.\r\n  <fs_value>-value = '1'.\r\n  APPEND INITIAL LINE TO lt_values ASSIGNING <fs_value>.\r\n  <fs_value>-value = '2'.\r\n  APPEND INITIAL LINE TO lt_values ASSIGNING <fs_value>.\r\n  <fs_value>-value = '3'.      \r\n\r\n  APPEND INITIAL LINE TO lt_fieldcat ASSIGNING <fs_fcat>.\r\n  <fs_fcat>-fieldname  = 'CHK'.\r\n  <fs_fcat>-seltext_m  = ''.\r\n  <fs_fcat>-ddictxt(1) = 'M'.\r\n\r\n  APPEND INITIAL LINE TO lt_fieldcat ASSIGNING <fs_fcat>.\r\n  <fs_fcat>-fieldname  = 'VALUE'.\r\n  <fs_fcat>-seltext_m  = 'Value'.\r\n  <fs_fcat>-outputlen  = 10.\r\n  <fs_fcat>-ddictxt(1) = 'M'.\r\n\r\n  loop at lt_values ASSIGNING <fs_value>.\r\n    READ TABLE values with KEY value = <fs_value>-value TRANSPORTING NO FIELDS.\r\n    if sy-subrc = 0.\r\n      <fs_value>-chk = 'X'.\r\n    ENDIF.\r\n  ENDLOOP.\r\n\r\n  CALL FUNCTION 'REUSE_ALV_POPUP_TO_SELECT'\r\n    EXPORTING\r\n      i_title       = 'Allowed values'\r\n      i_selection   = 'X'\r\n      i_zebra       = 'X'\r\n      i_checkbox_fieldname = 'CHK'\r\n      i_tabname     = 'LT_VALUES'\r\n      it_fieldcat   = lt_fieldcat\r\n    TABLES\r\n      t_outtab      = lt_values\r\n    EXCEPTIONS\r\n      program_error = 1\r\n      OTHERS        = 2.\r\n\r\n  LOOP AT lt_values ASSIGNING <fs_value> where chk = 'X'.\r\n    READ TABLE values with KEY value = <fs_value>-value TRANSPORTING NO FIELDS.\r\n    if sy-subrc = 0.\r\n*     selected value had already been assigned - no action needed\r\n    else.\r\n*     new value selected -> add it to the list\r\n      APPEND INITIAL LINE TO values ASSIGNING <fs_rctvalue>.\r\n      <fs_rctvalue>-value = <fs_value>-value.\r\n      <fs_rctvalue>-status = 'I'.\r\n    ENDIF.\r\n  endloop.\r\n\r\n  LOOP AT values ASSIGNING <fs_rctvalue> where status <> 'I'.\r\n    READ TABLE lt_values with KEY\r\n      value = <fs_rctvalue>-value\r\n      chk      = 'X'\r\n      TRANSPORTING NO FIELDS.\r\n    if sy-subrc <> 0.\r\n*     value was de-selected - we have to delete it\r\n      <fs_rctvalue>-status = 'D'.\r\n    endif.\r\n  ENDLOOP.\r\n\r\nENDFUNCTION.<\/pre>\n
    3. Creation of new characteristics<\/h1>\n
    Run Transaction CT04, enter name of new batch and press\u00a0CREATE<\/em> icon\"\"<\/a><\/p>\n
    Enter description of the characteristics, set Status to Released, in Format section select your desired format (we’ll create multiple values, character type of length 15)\"\"<\/a><\/p>\n
    Now we need to assign our check function module to the characteristics – Go to tab\u00a0Values<\/em>, click on\u00a0Other Value Check <\/em>and select radio with label\u00a0Funct. module<\/em>\"\"<\/a><\/p>\n
    When prompted, enter name of our check FM – Z_CHECK_050<\/em>.\"\"<\/a><\/p>\n
    Note:<\/em> The search help function module Z_CHECK_050_F4<\/em> is assigned automatically<\/p>\n
    4. Creation\/modification of a class<\/h1>\n
    Run TCode CL02 and create new or edit existing class for class type 022 (Batch).\u00a0Enter some description (for new class), go to tab Char. <\/em>and assign our new characteristics ZBM_0050 to class.<\/p>\n
    \"\"<\/a><\/p>\n
    5.\u00a0Object\/Class assignment to a class<\/h1>\n
    Run TCode CL24N select Class B0001, class type 022<\/p>\n