Needed coded

Question

Hi Experts ,
              Please do the needful.I need logic for this method.Thanks in Advance.
To make the printing optional, we will use a field on the customer master (attribute 6) à on the Billto Partner of the invoice.  We will only be interested in the first character of this field.  Ie KNA!-KATR6+0(1)
Detailed process description
The meaning of the FULL values on attribute 6 are seen below: Each character has a meaning.  YOU ARE ONLY INTERESTED IN THE FIRST CHARACTER(1)     à sequence on inv (N = no, Other values = yes)(2)     à Oligo summary on Order (0 = no, 1 = yes)(3)     à Oligo summary on Inv. (0 = no, 1 = yes)The Function analyst will create 6 more values  for attribute 6:N00     no sequence on inv / no Variant summary  (Order and invoice)N01     no sequence on inv / No Var.sum. Order / Var.sum. Inv. N02     no sequence on inv / No Var.sum. Order / Var.sum. on Inv at Partner level N10     no sequence on inv / Var.sum. Order / No Var.sum. inv N11     no sequence on inv / Var.sum. Order / Inv no sequenceN12     no sequence on inv / Var.sum. Order / Inv/P no sequenceIf the first character of the value of attribute 6 = ‘N’  i.e. “No print” à neither  the Oligo  nor  the Peptide sequences should be printed.   If the value is “V” or there is no value in Attribute 6 field in the customer master data, the default should be to print the sequence as it is today.
6.     Technical proposal
6.1.     Design / Development Approach
Type of requirement
Printout
Processing Logic
The following needs to be created once, after which, the call to the method should be inserted in all related outputs.Create Method:  IS_SEQUENCE_NOT_TO_PRINT .  This must be a value method in class ZCL_CONFIGURABLE_ITEM , passing document number VBDKR-VBELN that returns a parameter value: X = True, Blank = false.see e.g. method IS_GENOSYS_ITEM below from class (METHOD is_genosys_item .  STATICS: l_gen_cats TYPE z_pstyv_tt.  DATA:    l_gen_cat_line TYPE zpstyv_line.  IF l_gen_cats[] IS INITIAL.    CALL METHOD zcl_configurable_item=>get_gen_valid_item_cats      IMPORTING        itemcats_range_all_out   = l_gen_cats      EXCEPTIONS        no_item_categories_found = 1        OTHERS                   = 2.    IF sy-subrc <> 0.      is_genosys_item = space.      RETURN.    ENDIF.  ENDIF.  IF item_cat_in IN l_gen_cats    AND NOT l_gen_cats[] IS INITIAL.    is_genosys_item = c_checked.  ELSE.    is_genosys_item = space.  ENDIF.ENDMETHOD.)ZCL_CONFIGURABLE_ITEM. In this method, include the following logic:GET BILLTO_PARTNER customer number for the document (reading VBPA where VBELN = document number VBDKR-VBELN and partner PARVW = ‘RE’ / ‘BP’)Read table KNA1 to get field KNA1-KATR6 where KUNNR equals Billto partner, and fields VBDKR-VKORG, VBDKR-VTWEG, VBDKR-SPART, Store first character of field KNA1-KATR6 in a work field e.g. W_ KATR6.Add the entry below to the ZLITERAL table in all clients Read the records from ZLITERAL table (reading key1 = C_ZLIT_GENOSYS_KEY, and key2 = C_KATR6_1) where C_KATR6_1 = attribute on class, with value = KATR6_1 .  You must add this attribute on the class.  Populate the internal table L_ZLITERAL_TAB type ZLITERAL_TAB_TYPE.See e.g. in method GET_GEN_VALID_PRICE_CONDS( method GET_GEN_VALID_PRICE_CONDS .  data: l_zliteral_tab type ZLITERAL_TAB_TYPE,        l_zliteral type zliteral,        l_kscha type zkscha_line.  select *    from zliteral    into table l_zliteral_tab    where zkey1 = zliteral_key1_in      and zkey2 = zliteral_key2_in.  if sy-subrc = 0.    loop at l_zliteral_tab into l_zliteral.      clear l_kscha.      l_kscha-sign = l_zliteral-zvalue1.      l_kscha-option = l_zliteral-zvalue2.      l_kscha-low = l_zliteral-zvalue3.      append l_kscha to condtype_range_out.    endloop.  else.    raise no_pricing_conds_found.  endif.endmethod.)of class ZCL_CONFIGURABLE_ITEMDeclare a range R_KATR6_1 in the program and load range from internal table L_ZLITERAL_TAB.Check if stored field W_ KATR6 (ie first character of KNA1-KATR6) is in the range not to print R_KATR6_1.If the value in the stored field is in the range not to print R_KATR6_1, set the returning parameter to ‘X’ using attribute c_checked.  If not, it means that the  sequence should be printed.  So the value method should return the value ‘ ‘ – initial.  In the print program, call the value method once while processing the header section and store the value in a work field.  This field can be used later when processing each item.  It is not necessary to call the method for each item.  Once is fine, as the data is at header level.How to call the value method:W_NO_SEQUENCE_PRINT =  zcl_configurable_item=> IS_SEQUENCE_NOT_TO_PRINT (VBDKR).Add “ IF STATEMENT “ as seen below:IF W_NO_SEQUENCE_PRINT IS INITIAL.  IF wgen-bulk_item <> 'X'.    IF wgen-prfid = c_oligo.      PERFORM write_oligo_sequence.    ELSEIF wgen-prfid CS c_peptide.  "       PERFORM write_peptide_sequence.    ENDIF.  ENDIF.ENDIF.
Program Dependencies
The following outputs must be developed.  1. ZRD02. ZRD13. ZRD24. ZRD35. ZRD46. ZRD57. ZRD68. ZRDXPlease be aware that ZRD0 ZRD1, ZRD5 – same program -  are currently being changed in other requests.

Answer 1

What activation code?
Click on the blue Star Icon below if my advice has helped you or press the 'Accept As Solution' link if I solved your problem..