Adding exra field to print report RLLI0400

i want to add one field EXIDV2 in the out put of print program RLLI0400,
i have copied RLLI0400 to ZRLLI0400 ,now where i need to write code to add a field to out print......
this field should be printed right to the storage unit....
and i dont know how the out put looks like ,if any one having screen shot of that
can u plase send to my mail id ([email protected])..

according to SAP - this cannot be done...So if anybody else has this on the whish-list.....Lets hope SAP makes a shiny new feature to solution manager 4.0 soooooooon

Similar Messages

What is print report RLLI0400

what is print report RLLI0400 and how it works,
i need to add an extra field(EXIDV2)Hndling Unit 2nd external indentification.
how can i do that
please help me.....

Hi
This program is to Print Warehouse Inventory List for Continuous Inventory
You can use this report to print a physical inventory document list for continuous inventory.
You can copy this to Zreport and add the field
But you have to assign this Zreport to the print output
<b>Reward points for useful Answers</b>
Regards
Anji

Adding a field in a report

Hi SDN
    i have a small problem where iam unable to add fields in the final internal table
i have to add two fields i.e., COMMITMENT AND ACTVALUE from ESUH TABLE
AND the final internal table is l_i_ekpo.
we have to add only two fields COMMITMENT and a ....variable = COMMITMENT - ACTVALUE. which is already done in the program.
here iam attaching a program.
TABLES: ekpo.
DATA: i_directory_list LIKE rlgrap-filename OCCURS 0 WITH HEADER LINE.
DATA: i_directory_sel LIKE popuptext OCCURS 0 WITH HEADER LINE.
*{ INSERT PS010306UPGR
CLASS cl_abap_char_utilities DEFINITION LOAD.
*} INSERT
DATA: BEGIN OF tab,
*{ REPLACE PS010306UPGR
       T(1) TYPE X VALUE '09', "HEX!
        t(1) TYPE c VALUE cl_abap_char_utilities=>horizontal_tab, "Unicode
*} REPLACE
END OF tab.
DATA: ekpo_konnr LIKE ekpo-konnr.
DATA: ekpo_ktpnr LIKE ekpo-ktpnr.
DATA: BEGIN OF t_bapiessrc OCCURS 0.
        INCLUDE STRUCTURE zbapiessrc_chars.
DATA: END OF t_bapiessrc.
DATA: t_bapiessrc_tab(301) OCCURS 0." with header line.
DATA: wa_bapiessrc_tab(301).
DATA: BEGIN OF t_headertext OCCURS 0,
       ext_number LIKE zbapiessrc_chars-ext_number,
       linno(4) TYPE n,
       tcode(20),
       recordname(30),
       txpargraph(2),
       txline(72),
       text_mark,
      END OF t_headertext.
DATA: BEGIN OF t_itemtext OCCURS 0,
       ext_number LIKE zbapiessrc_chars-ext_number,
       ext_line(18),
       linno(4) TYPE n,
       tcode(20),
       recordname(30),
       txpargraph(2),
       txline(72),
       text_mark,
       ext_linno(6),
      END OF t_itemtext.
DATA: t_headertext_tab(180) OCCURS 0.
DATA: wa_headertext_tab(180).
DATA: t_itemtext_tab(190) OCCURS 0.
DATA: wa_itemtext_tab(190).
DATA: BEGIN OF t_bapiesllc OCCURS 0.
       ext_number like bapiessrc-ext_number.
        INCLUDE STRUCTURE zbapiesllc_chars.
DATA: END OF t_bapiesllc.
DATA: t_bapiesllc_tab(650) OCCURS 0." with header line.
DATA: wa_bapiesllc_tab(650).
DATA: no_of_files LIKE sy-index.
DATA: perc_uploaded TYPE i.
DATA: text_uploaded(50).
DATA: text_fi_not_upl1(30), text_fi_not_upl2(30).
DATA: continue_yn.
DATA: file TYPE localfile.
FIELD-SYMBOLS .
DATA: BEGIN OF clbp_content OCCURS 0.
        INCLUDE STRUCTURE solisti1.
DATA: END OF clbp_content.
DATA w_mode VALUE 'A'.
CONSTANTS:           c_update        VALUE 'S'.
DATA: BEGIN OF bdcdata OCCURS 0.       " BDC Table
        INCLUDE STRUCTURE bdcdata.
DATA: END   OF bdcdata.
DATA: BEGIN OF bdcmsgcoll OCCURS 0.    " BDC Messages
        INCLUDE STRUCTURE bdcmsgcoll.
DATA: END   OF bdcmsgcoll.
DATA params LIKE pri_params.
DATA list_text LIKE pri_params-prtxt.
DATA: days(1) TYPE n VALUE 2,
      count(3) TYPE n VALUE 1,
      valid    TYPE c.
DATA t_bapi_essr LIKE bapiessrc OCCURS 0.
DATA t_bapi_essr_log LIKE bapiessrc OCCURS 0 WITH HEADER LINE.
DATA t_bapi_esll LIKE bapiesllc OCCURS 0.
DATA t_bapi_esll_log LIKE bapiesllc OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF output_prot OCCURS 0.
        INCLUDE STRUCTURE essr.
        INCLUDE STRUCTURE bdcmsgcoll.
DATA: END OF output_prot.
DATA: BEGIN OF i_sgcses_struc OCCURS 0,
         po_number   LIKE zbapiessrc_chars-po_number,
         po_item     LIKE zbapiessrc_chars-po_item,
         short_text LIKE zbapiessrc_chars-short_text,
         xblnr       LIKE essr-xblnr,
         ref_date    LIKE zbapiessrc_chars-ref_date,
         service     LIKE zbapiesllc_chars-service,
         flag,
         quantity    LIKE zbapiesllc_chars-quantity,
         final,
      END OF i_sgcses_struc.
start of insert >>>
DATA: l_ses_no LIKE essr-lblni.
TYPES: BEGIN OF t_ekpo,
         ebeln LIKE ekpo-ebeln,
         ebelp LIKE ekpo-ebelp,
         werks LIKE ekpo-werks,
         packno LIKE ekpo-packno,
       END OF t_ekpo.
DATA: i_ekpo TYPE STANDARD TABLE OF t_ekpo.
end of insert <<<
$$----
S E L E C T I O N   S C R E E N -
PARAMETERS: p_path TYPE localfile DEFAULT
'C:     empBasellInterfacesSesSES-Daten'.
***parameters:     p_dismod type ctu_mode      default 'A'.
PARAMETERS:     p_dismod TYPE ctu_mode      DEFAULT 'E'.
PARAMETERS:     p_spnam TYPE tsp01-rq2name DEFAULT 'SES_UPL.....'
                                                      OBLIGATORY.
PARAMETERS:     cb_serv AS CHECKBOX DEFAULT 'X'.
PARAMETERS:     cb_text AS CHECKBOX DEFAULT 'X'.
PARAMETERS:     cb_chck AS CHECKBOX DEFAULT 'X'.
$$----
A T   S E L E C T I O N   S C R E E N -
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_path.
DATA: len TYPE i,
        testchar(1).
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
    EXPORTING
      mask      = 'C:*.txt'
      static    = 'X'
    CHANGING
      file_name = p_path.
DESCRIBE FIELD p_path LENGTH len IN CHARACTER MODE.
DO len TIMES.
    len = len - 1.
    testchar = p_path+len(1).
    IF testchar = ''.
      len = len + 1.
      p_path = p_path(len).
      EXIT.
    ENDIF.
ENDDO.
$$----
S T A R T   O F   S E L E C T I O N -
START-OF-SELECTION.
PERFORM select_files.
PERFORM spool_settings.
PERFORM upload_files.
PERFORM select_additional_data.
$$----
E N D   O F   S E L E C T I O N -
END-OF-SELECTION.
PERFORM spool_settings.
CLEAR: perc_uploaded, no_of_files, text_uploaded.
DESCRIBE TABLE t_bapiessrc LINES no_of_files.
Loop over header-records: for each header-record one call transaction:
LOOP AT t_bapiessrc.
    perc_uploaded = ( 100 * sy-tabix ) / no_of_files.
    IF cb_serv = 'X'.
      PERFORM prepare_clipboard.
    Upload Service Entry Sheets:
      PERFORM call_transaction_upload.
    Italian Version begin
      IMPORT output_prot FROM MEMORY ID 'OUT_PROT'.
      PERFORM write_prot_to_spool.
      FREE MEMORY ID 'OUT_PROT'.
      REFRESH: output_prot.
    Italian Version end
      PERFORM find_ses_number.
      PERFORM check_estimated_value.
    ENDIF.
    IF cb_text = 'X'.
    Upload SES Texts:
      PERFORM upload_texts.
    ENDIF.
start of insert >>>
    PERFORM change_account.
    IF cb_serv = 'X'.
      PERFORM release_ses.
    ENDIF.
end of insert <<<
ENDLOOP.
In case only text and no services shall be uploaded:
IF NOT cb_text IS INITIAL.
In case also services are uploaded this loop won't apply cause
     t_headertext-entries are deleted after they were processed in the
     loop above!
    LOOP AT t_headertext.
      MOVE t_headertext-ext_number TO t_bapiessrc-ext_number.
*only for test cases since data file is not correct:
move t_headertext-ext_number to t_bapiessrc-ref_doc_no.
*only for test cases since data file is not correct:END
      PERFORM upload_texts.
    ENDLOOP.
ENDIF.
PERFORM log_upload_success.
NEW-PAGE PRINT OFF.
PERFORM delete_files.
WRITE: / text-001.
write: / 'Check spools for correct processing (Transaction SP01)!'.
$$----
T O P   O F   P A G E -
TOP-OF-PAGE.
*--at user-command--
AT USER-COMMAND.
*--top of page-during line selection--
TOP-OF-PAGE DURING LINE-SELECTION.
$$----
F O R M - R O U T I N E S -
*&      Form SPLIT_BAPIESSRC
FORM split_bapiessrc.
DATA: l_score_time(3),
        l_score_qual(3),
        l_essr_lblni LIKE essr-lblni.
start of insert >>>
TABLES: esuc.
DATA: l_packno LIKE ekpo-packno.
end of insert <<<
CLEAR: t_bapiessrc, ekpo_konnr, ekpo_ktpnr, ekpo.
   TRANSLATE doc_content-line USING '#;'.   ZBAPIESSRC_CHARS
SPLIT AT '§' INTO
        t_bapiessrc-sheet_no      t_bapiessrc-ext_number
        t_bapiessrc-person_int    t_bapiessrc-person_ext
        t_bapiessrc-location      t_bapiessrc-ref_date
        t_bapiessrc-begdate       t_bapiessrc-enddate
        t_bapiessrc-pckg_no       t_bapiessrc-short_text
Only for testing due to wrong data
        t_bapiessrc-po_number     t_bapiessrc-po_item
       ekpo_konnr ekpo_ktpnr
Only for testing due to wrong data END
        t_bapiessrc-block_ind     t_bapiessrc-score_time
        t_bapiessrc-score_qual    t_bapiessrc-doc_date
        t_bapiessrc-post_date     t_bapiessrc-ref_doc_no
Only for testing due to wrong data
       t_bapiessrc-po_number     t_bapiessrc-po_item
Only for testing due to wrong data END
        t_bapiessrc-accasscat     t_bapiessrc-comm_no
        t_bapiessrc-user_field    t_bapiessrc-acceptance
Only for testing due to wrong data
        ekpo_konnr ekpo_ktpnr t_bapiessrc-final.
Only for testing due to wrong data END
MOVE '0000000001' TO t_bapiessrc-pckg_no.
SHIFT t_bapiessrc-po_item RIGHT DELETING TRAILING space.
TRANSLATE t_bapiessrc-po_item USING ' 0'.
start of delete >>>
IF NOT ekpo_konnr IS INITIAL AND NOT ekpo_ktpnr IS INITIAL.
   SELECT SINGLE konnr ktpnr FROM ekpo
                 INTO (ekpo-konnr, ekpo-ktpnr)
                 WHERE ebeln = t_bapiessrc-po_number
                 AND   ebelp = t_bapiessrc-po_item.
   IF NOT sy-subrc IS INITIAL.
     WRITE:/ text-101, t_bapiessrc-ext_number,
              text-102,
              t_bapiessrc-po_number,
              text-103,
              t_bapiessrc-po_item,
              text-104.
     WRITE: / text-105.
     EXIT.
   ELSE.
     IF ekpo_konnr NE ekpo-konnr OR ekpo_ktpnr NE ekpo-ktpnr.
       WRITE:/ text-101, t_bapiessrc-ext_number,
               text-106,
               ekpo_konnr, '/',
               ekpo_ktpnr,
               text-107,
               t_bapiessrc-po_number,
               text-103, t_bapiessrc-po_item, ')'.
       WRITE: / text-105.
       EXIT.
     ENDIF.
   ENDIF.
ENDIF.
end of delete <<<
start of insert >>>
" check contract number
IF NOT ekpo_konnr IS INITIAL AND NOT ekpo_ktpnr IS INITIAL.
    SELECT SINGLE konnr ktpnr packno
      FROM ekpo
      INTO (ekpo-konnr, ekpo-ktpnr, l_packno)
      WHERE ebeln = t_bapiessrc-po_number
      AND   ebelp = t_bapiessrc-po_item.
    IF sy-subrc NE 0.
      " no corresponding PO, no update will be performed
      WRITE:/ text-101, t_bapiessrc-ext_number,
               text-102,
               t_bapiessrc-po_number,
               text-103,
               t_bapiessrc-po_item,
               text-104.
      WRITE: / text-105.
      EXIT.
    ELSE.
      " check contract number against table ESUC first.
      SELECT SINGLE *
        FROM esuc
        WHERE packno EQ l_packno
          AND ebeln EQ ekpo_konnr
          AND ebelp EQ ekpo_ktpnr.
      IF sy-subrc NE 0.
        " check against PO line
        IF ekpo_konnr NE ekpo-konnr OR ekpo_ktpnr NE ekpo-ktpnr.
          WRITE:/ text-101, t_bapiessrc-ext_number,
                  text-106,
                  ekpo_konnr, '/',
                  ekpo_ktpnr,
                  text-107,
                  t_bapiessrc-po_number,
                  text-103, t_bapiessrc-po_item, ')'.
          WRITE: / text-105.
          EXIT.
        ENDIF.
      ENDIF.
    ENDIF.
ENDIF.
end of insert <<<
IF cb_chck = 'X'.
    SELECT SINGLE lblni FROM essr INTO l_essr_lblni
                                  WHERE loekz = ' '
                                  AND   user1 = t_bapiessrc-ext_number.
    IF sy-subrc IS INITIAL.
      WRITE:/ 'External SES', t_bapiessrc-ext_number,
              'is already uploaded. SES-Number: ', l_essr_lblni.
      WRITE: / 'No update of this sheet was accomplished!'.
      EXIT.
    ENDIF.
ENDIF.
APPEND t_bapiessrc.
ENDFORM.                    " SPLIT_BAPIESSRC
*&      Form SPLIT_BAPIESLLC
FORM split_bapiesllc.
DATA: l_outl_level(3), l_ovf_tol(3), l_price_unit(5), l_gr_price(23),
        l_target_val(23), l_userf2_num(13), l_quantity(13),
        l_form_val1(13), l_form_val2(13), l_form_val3(13),
        l_form_val4(13), l_form_val5(13), l_ext_number(16).
CLEAR: t_bapiesllc.
   TRANSLATE doc_content-line USING '#;'.
SPLIT AT '§' INTO
        t_bapiesllc-ext_number
        t_bapiesllc-pckg_no        t_bapiesllc-line_no
        t_bapiesllc-ext_line       t_bapiesllc-outl_level
        t_bapiesllc-outl_no        t_bapiesllc-outl_ind
        t_bapiesllc-subpckg_no     t_bapiesllc-service
        t_bapiesllc-serv_type      t_bapiesllc-edition
        t_bapiesllc-ssc_item       t_bapiesllc-ext_serv
        t_bapiesllc-quantity       t_bapiesllc-base_uom
        t_bapiesllc-uom_iso        t_bapiesllc-ovf_tol
        t_bapiesllc-ovf_unlim      t_bapiesllc-price_unit
        t_bapiesllc-gr_price       t_bapiesllc-from_line
        t_bapiesllc-to_line        t_bapiesllc-short_text
        t_bapiesllc-distrib        t_bapiesllc-pers_no
        t_bapiesllc-wagetype       t_bapiesllc-pln_pckg
        t_bapiesllc-pln_line       t_bapiesllc-con_pckg
        t_bapiesllc-con_line       t_bapiesllc-tmp_pckg
        t_bapiesllc-tmp_line       t_bapiesllc-ssc_lim
        t_bapiesllc-limit_line     t_bapiesllc-target_val
        t_bapiesllc-basline_no     t_bapiesllc-basic_line
        t_bapiesllc-alternat       t_bapiesllc-bidder
        t_bapiesllc-supp_line      t_bapiesllc-open_qty
        t_bapiesllc-inform         t_bapiesllc-blanket
        t_bapiesllc-eventual       t_bapiesllc-tax_code
        t_bapiesllc-taxjurcode     t_bapiesllc-price_chg
        t_bapiesllc-matl_group     t_bapiesllc-date
        t_bapiesllc-begintime      t_bapiesllc-endtime
        t_bapiesllc-extpers_no     t_bapiesllc-formula
        t_bapiesllc-form_val1      t_bapiesllc-form_val2
        t_bapiesllc-form_val3      t_bapiesllc-form_val4
        t_bapiesllc-form_val5      t_bapiesllc-userf1_num
        t_bapiesllc-userf2_num     t_bapiesllc-userf1_txt
        t_bapiesllc-userf2_txt     t_bapiesllc-hi_line_no.
start of insert >>>                                     "AP13022007i
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input = t_bapiesllc-line_no
    IMPORTING
      output = t_bapiesllc-line_no.
end of insert <<<                                        "AP13022007i
TRANSLATE t_bapiesllc-quantity USING ',.'.
MOVE '0000000002' TO t_bapiesllc-pckg_no.                 "TS20082002
APPEND t_bapiesllc.
ENDFORM.                    " SPLIT_BAPIESLLC
*&      Form SELECT_FILES
FORM select_files.
CALL FUNCTION 'KCD_FRONT_END_DIRECTORY_READ'
       EXPORTING
            i_path              = p_path
   IMPORTING
        E_PURE_PATH         =
       TABLES
            e_directory         = i_directory_list
      EXCEPTIONS
           download            = 1
           upload              = 2
           execute             = 3
           directory_not_exist = 4
           directory           = 5
           OTHERS              = 6
IF sy-subrc <> 0.
*{ REPLACE PS010306UPGR
   MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    MESSAGE w208(00) WITH 'Enter existing directory'(003).
*} REPLACE
    EXIT.
ENDIF.
LOOP AT i_directory_list.
    CHECK i_directory_list(1) CA 'KPLT'.
   check i_directory_list cs '.XLS' or i_directory_list cs '.TXT'.
    CHECK i_directory_list CS '.TXT'.
    CLEAR i_directory_sel.
    MOVE 'X' TO i_directory_sel-text(1).
    MOVE i_directory_list(79) TO i_directory_sel-text+1(79).
    APPEND i_directory_sel.
ENDLOOP.
CALL FUNCTION 'Z_SL018_POPUP_WITH_TEXT_TO_SEL'
    EXPORTING
      popup_title = 'Select Files for SES-Upload'
      start_column = 10
      start_row    = 1
      end_column   = 50
      end_row      = 16
    IMPORTING
      sy_ucomm     = sy-ucomm
    TABLES
      x_popuptext = i_directory_sel.
*Check which Files shall be uploaded:
LOOP AT i_directory_sel.
    CHECK i_directory_sel-text(1) NE 'Y'.
    DELETE i_directory_sel.
ENDLOOP.
SORT i_directory_sel.
DESCRIBE TABLE i_directory_sel LINES no_of_files.
ENDFORM.                    " SELECT_FILES
*&      Form UPLOAD_FILES
FORM upload_files.
*{ INSERT PS010306UPGR
DATA: fname TYPE string.
*} INSERT
LOOP AT i_directory_sel.
    CLEAR: file.
    UNASSIGN: .
    perc_uploaded = ( 100 * sy-tabix ) / no_of_files.
    CONCATENATE i_directory_sel-text+1(31) 'uploaded from disk'
                                                     INTO text_uploaded
                                            SEPARATED BY space.
    CONCATENATE p_path i_directory_sel-text+1(31) INTO file.
Choose the right structure for <doc_content> and <wa_doc_content>
depending on file type K, P, T or L via assignment of field symbols:
    CASE i_directory_sel-text+1(1).
      WHEN 'K'. "Kopfdaten
        ASSIGN t_bapiessrc_tab   TO .
    ENDCASE.
*{ REPLACE PS010306UPGR
   CALL FUNCTION 'WS_UPLOAD'
        EXPORTING
             FILENAME                = FILE
        TABLES
             DATA_TAB                = <DOC_CONTENT>
        EXCEPTIONS
             CONVERSION_ERROR        = 1
             FILE_OPEN_ERROR         = 2
             FILE_READ_ERROR         = 3
             INVALID_TABLE_WIDTH     = 4
             INVALID_TYPE            = 5
             NO_BATCH                = 6
             UNKNOWN_ERROR           = 7
             GUI_REFUSE_FILETRANSFER = 8
             CUSTOMER_ERROR          = 9
             OTHERS                  = 10.
    fname = file.
    CALL METHOD cl_gui_frontend_services=>gui_upload
      EXPORTING
        filename = fname
      CHANGING
        data_tab = 0.
      CLEAR: text_fi_not_upl1, text_fi_not_upl2, continue_yn.
      CONCATENATE 'File' i_directory_sel-text+1(21) ': upload failed!'
                   INTO text_fi_not_upl1 SEPARATED BY space.
      MOVE 'Continue Program?' TO text_fi_not_upl2.
      CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
        EXPORTING
          defaultoption = 'N'
          textline1      = text_fi_not_upl1
          textline2      = text_fi_not_upl2
          titel          = 'Upload Failed'
          start_column   = 25
          start_row      = 6
          cancel_display = ' '
        IMPORTING
          answer         = continue_yn.
      IF continue_yn = 'N'.
        EXIT.
      ENDIF.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
           WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ELSE.
Move uploaded File records line by line into correct internal table:
       t_bapiessrc for K__.txt
       t_bapiesllc for P__.txt
       t_headertext for T__.txt
       t_itemtext   for L__.txt
      LOOP AT .
          IF NOT sy-subrc IS INITIAL. EXIT. ENDIF.
        ENDDO.
        CASE i_directory_sel-text+1(1).
          WHEN 'K'. "Kopfdaten
            PERFORM split_bapiessrc.
          WHEN 'T'.
            PERFORM split_headertext.
          WHEN 'P'.
            PERFORM split_bapiesllc.
          WHEN 'L'.
            PERFORM split_itemtext.
        ENDCASE.
      ENDLOOP.
    ENDIF.
    CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
      EXPORTING
        percentage = perc_uploaded
        text       = text_uploaded.
ENDLOOP.
SORT t_bapiessrc BY ext_number.
SORT t_headertext BY ext_number linno.
SORT t_bapiesllc BY ext_number.                         "
SORT t_bapiesllc BY ext_number pckg_no line_no.
sort t_bapiesllc by ext_number line_no.
SORT t_itemtext BY ext_number ext_linno ext_line linno.
ENDFORM.                    " UPLOAD_FILES
*&      Form PREPARE_CLIPBOARD
FORM prepare_clipboard.
CLEAR:   clbp_content.
REFRESH: clbp_content.
DATA: l_line TYPE n.
DATA: l_tabix LIKE sy-tabix.
CLEAR l_tabix.
*Assemble the File-Structure out of the internal tables t_bapiessrc
and t_bapiesllc which is expected by the user exit
exit_saplmlsx_002 and move it to the clipboard:
MOVE 'K' TO clbp_content(1). "Flag for header record
MOVE t_bapiessrc TO clbp_content+1(246).
APPEND clbp_content.
READ TABLE t_bapiesllc WITH KEY ext_number = t_bapiessrc-comm_no
                              BINARY SEARCH.
CHECK sy-subrc IS INITIAL.
MOVE sy-tabix TO l_tabix.
insert dummy row for connection between pach_no and sub_packno:
CLEAR l_line.
CLEAR: clbp_content, t_bapiesllc.
ADD 1 TO l_line.
MOVE 'P' TO clbp_content(1). "Flag for service-record
MOVE l_line TO clbp_content+1(1).
MOVE '0000000001' TO t_bapiesllc-pckg_no.
MOVE '0000000002' TO t_bapiesllc-subpckg_no.
WRITE t_bapiesllc16(245) TO clbp_content3(245).
APPEND clbp_content.
CLEAR clbp_content.
ADD 1 TO l_line.
MOVE 'P' TO clbp_content(1).
MOVE l_line TO clbp_content+1(1).
WRITE t_bapiesllc261(245) TO clbp_content3(245).
APPEND clbp_content.
APPEND clbp_content.
CLEAR clbp_content.
ADD 1 TO l_line.
MOVE 'P' TO clbp_content(1).
MOVE l_line TO clbp_content+1(1).
MOVE 'E' TO clbp_content+2(1).
WRITE t_bapiesllc506(27) TO clbp_content3(245).
APPEND clbp_content.
CLEAR clbp_content.
end insert
LOOP AT t_bapiesllc FROM l_tabix.
    CLEAR l_line.
    CLEAR clbp_content.
    IF t_bapiesllc-ext_number NE t_bapiessrc-ext_number.
      EXIT.
    ENDIF.
    ADD 1 TO l_line.
    MOVE 'P' TO clbp_content(1). "Flag for service-record
'P'-service records are split into three clipbord-lines since
    structure t_bapiesllc is too long for one line
    MOVE l_line TO clbp_content+1(1).
    WRITE t_bapiesllc16(245) TO clbp_content3(245).
    APPEND clbp_content.
    CLEAR clbp_content.
    ADD 1 TO l_line.
    MOVE 'P' TO clbp_content(1).
    MOVE l_line TO clbp_content+1(1).
    WRITE t_bapiesllc261(245) TO clbp_content3(245).
    APPEND clbp_content.
    CLEAR clbp_content.
    ADD 1 TO l_line.
    MOVE 'P' TO clbp_content(1).
    MOVE l_line TO clbp_content+1(1).
    MOVE 'E' TO clbp_content+2(1).
    WRITE t_bapiesllc506(27) TO clbp_content3(245).
    APPEND clbp_content.
    CLEAR clbp_content.
ENDLOOP.
******Italy version of upload
PERFORM include_italy.
export t_bapiessrc to memory id 'GER_ESSRC'.
export t_bapiesllc to memory id 'GER_ESLLC'.
EXPORT t_bapi_essr TO MEMORY ID 'GER_ESSRC'.
EXPORT t_bapi_esll TO MEMORY ID 'GER_ESLLC'.
CHECK 1 = 2.
******Italy version of upload END
CALL FUNCTION 'CLPB_EXPORT'
    TABLES
      data_tab   = clbp_content
    EXCEPTIONS
      clpb_error = 1
      OTHERS     = 2.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " PREPARE_CLIPBOARD
*&      Form CALL_TRANSACTION_UPLOAD
FORM call_transaction_upload.
REFRESH bdcdata.
PERFORM bdc_dynpro USING: 'RM11RL00'      '1000'.
PERFORM bdc_field USING: 'BDC_OKCODE'    '=UPL'.
PERFORM bdc_field USING: 'S_LBLNI-LOW'    '          '.
PERFORM bdc_field USING: 'S_LBLNI-HIGH'   '          '.
PERFORM bdc_field USING: 'P_BSTNR'        '          '.
PERFORM bdc_field USING: 'S_BSTPO-LOW'    '     '.
PERFORM bdc_field USING: 'S_BSTPO-HIGH'   '     '.
*Italian upload version -> comments set|remove comments for Germ.Version
perform bdc_dynpro using: 'SAPLMLSX'      '0480'.
perform bdc_field using: 'BDC_OKCODE'    '=EXEC'.
perform bdc_dynpro using: 'SAPLGRAP'      '0210'.
perform bdc_field using: 'BDC_OKCODE'    '=UPL_FR_CLP'.
PERFORM bdc_dynpro USING: 'SAPMSSY0'      '0120'.
perform bdc_field using: 'MARKIERT'      'X'.
*Italian upload version -> comments set; END
CASE p_dismod.
    WHEN 'A'.
      PERFORM bdc_field USING: 'BDC_OKCODE'    '=LITE'.
    WHEN 'N'.
      PERFORM bdc_field USING: 'BDC_OKCODE'    '=HIND'.
    WHEN 'E'.
      PERFORM bdc_field USING: 'BDC_OKCODE'    '=DARK'.
ENDCASE.
Here the call transcation of SAP-standard takes place for creating the
service entry sheet
After SAP-standard call transaction: analyze the popup with the
*Italian upload version -> comments set|remove comments for Germ.Version
PERFORM bdc_dynpro USING: 'SAPMSSY0'      '0120'.
perform bdc_field using: 'BDC_OKCODE'    '=PRI'.
perform bdc_dynpro using: 'SAPLSPRI'      '0100'.
perform bdc_field using: 'BDC_OKCODE'    '=PRIN'.
perform bdc_field using: 'PRI_PARAMS-PLIST'    p_spnam.
perform bdc_field using: 'PRI_PARAMS-PRIMM'    ' '.
perform bdc_field using: 'PRI_PARAMS-PRREL'    ' '.
perform bdc_field using: 'PRI_PARAMS-PRNEW'    ' '.
perform bdc_dynpro using: 'SAPMSSY0'      '0120'.
perform bdc_field using: 'BDC_OKCODE'    '=EXEC'.
*Italian upload version -> remove the following line for Germ. version:
PERFORM bdc_field USING: 'BDC_OKCODE'    '/00'.
w_mode = p_dismod.
currently w_mode and p_dismod are set to the same value:
foregroud, background or error. But it could also be set to differnt
values: Foreground for upload clipboard,
CALL TRANSACTION 'ML81' USING bdcdata MODE w_mode UPDATE c_update
     MESSAGES INTO bdcmsgcoll.
ENDFORM.                    " CALL_TRANSACTION_UPLOAD
*&      Form BDC_DYNPRO
FORM bdc_dynpro
     USING program TYPE c
           dynpro TYPE c.
CLEAR bdcdata.
bdcdata-program = program.
bdcdata-dynpro   = dynpro.
bdcdata-dynbegin = 'X'.
APPEND bdcdata.
ENDFORM.                    " BDC_DYNPRO
*&      Form BDC_FIELD
FORM bdc_field
      USING fnam TYPE c
            fval TYPE c.
CLEAR bdcdata.
bdcdata-fnam = fnam.
bdcdata-fval = fval.
APPEND bdcdata.
ENDFORM.                    " BDC_FIELD
*&      Form UPLOAD_TEXTS
FORM upload_texts.
DATA l_lblni LIKE essr-lblni.
DATA l_tabix_header_start LIKE sy-tabix.
DATA l_tabix_item_start LIKE sy-tabix.
DATA: p(2) TYPE c.
DATA: w LIKE sy-index.
DATA: w_field(20) TYPE c.
DATA: l_ext_line_save LIKE t_itemtext-ext_line.
DATA: l_ext_linno_save LIKE t_itemtext-ext_linno.
DATA: l_extrow(10)." like ml_esll-extrow.
DATA: l_messg LIKE message.
DATA: l_msgno LIKE sy-msgno.
*only for test cases since data file is not correct:
read table t_headertext with key ext_number = t_bapiessrc-ref_doc_no.
READ TABLE t_headertext WITH KEY ext_number = t_bapiessrc-ext_number
                                   BINARY SEARCH.
*only for test cases since data file is not correct:END
IF NOT sy-subrc IS INITIAL.
   MESSAGE ID 'ZV' TYPE 'I' NUMBER '011'
        WITH text-202.
    WRITE: / text-202.
    EXIT.
ENDIF.
l_tabix_header_start = sy-tabix.
SELECT SINGLE MAX( lblni ) FROM essr INTO l_lblni
               where xblnr = t_headertext-ext_number.
                WHERE user1 = t_headertext-ext_number
                AND   loekz = ' '.
IF NOT sy-subrc IS INITIAL.
   MESSAGE ID 'ZV' TYPE 'I' NUMBER '011'
        WITH text-203.
    WRITE: / text-203.
    EXIT.
ENDIF.
CLEAR: bdcdata, bdcmsgcoll.
REFRESH: bdcdata, bdcmsgcoll.
PERFORM bdc_dynpro USING 'RM11RL00' '1000'.
PERFORM bdc_field USING 'BDC_OKCODE' '=ONLI'.
PERFORM bdc_field USING 'S_LBLNI-LOW' l_lblni. " '1000001748'.
PERFORM bdc_field USING 'BDC_CURSOR' 'P_LIST'.
PERFORM bdc_field USING 'P_LIST'      ' '.
PERFORM bdc_field USING 'P_DIRECT'    'X'.
PERFORM bdc_field USING 'P_LISTU'     ' '.
PERFORM bdc_dynpro USING 'SAPLMLSR' '0100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=TXT'.
perform bdc_field using 'ESSR-TXZ01' t_headertext-txline(40).
PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=TXBA'.
CLEAR w.
ADD 1 TO w.
LOOP AT t_headertext FROM l_tabix_header_start.
Is t_bapiessrc-ext_number really filled?
    IF t_headertext-ext_number NE t_bapiessrc-ext_number.
      EXIT.
    ENDIF.
    ADD 1 TO w.
    UNPACK w TO p.
    CLEAR w_field.
    w_field+00(17) = 'RSTXT-TXPARGRAPH('.
    w_field+17(02) = p.
    w_field+19(01) = ')'.
    PERFORM bdc_field USING w_field t_headertext-txpargraph.
    CLEAR w_field.
    w_field+00(13) = 'RSTXT-TXLINE('.
    w_field+13(02) = p.
    w_field+15(01) = ')'.
    PERFORM bdc_field USING w_field t_headertext-txline .
delete line from internal table so that Upload Texts is not
      processed twice when perform_upload_texts is called without up-
      loading services:
    DELETE t_headertext.
ENDLOOP.
PERFORM bdc_dynpro USING 'SAPLMLSR' '0100'.
PERFORM bdc_field USING 'BDC_OKCODE' '=SERV'.
PERFORM bdc_dynpro USING 'SAPLMLSP' '0210'.
PERFORM bdc_field USING 'BDC_OKCODE' 'ENTER'.
READ TABLE t_itemtext WITH KEY
                        ext_number = t_bapiessrc-ext_number.
l_tabix_item_start = sy-tabix.
CLEAR l_ext_line_save.
LOOP AT t_itemtext FROM l_tabix_item_start.
    IF t_itemtext-ext_number NE t_bapiessrc-ext_number.
      EXIT.
    ENDIF.
    SHIFT t_itemtext-ext_line RIGHT DELETING TRAILING space.
    TRANSLATE t_itemtext-ext_line USING ' 0'.
    IF ( t_itemtext-ext_line NE l_ext_line_save )
        OR ( t_itemtext-ext_linno NE l_ext_linno_save ).
***find line number:
     break michalska.
      SELECT SINGLE extrow FROM ml_esll INTO l_extrow
                            WHERE extrow = t_itemtext-ext_linno
                              AND srvpos = t_itemtext-ext_line
                              AND ebeln = l_lblni.
      IF NOT sy-subrc IS INITIAL.
        CONTINUE.
      ENDIF.
      PERFORM bdc_dynpro USING 'SAPLMLSP' '0210'.
      PERFORM bdc_field USING 'BDC_OKCODE' 'ENTER'.
      PERFORM bdc_field USING 'RM11P-NEW_ROW' l_extrow.
      PERFORM bdc_dynpro USING 'SAPLMLSP' '0210'.
      PERFORM bdc_field USING 'BDC_OKCODE' '=ZLT'.
      PERFORM bdc_field USING 'BDC_CURSOR' 'ESLL-EXTROW(01)'.
      PERFORM bdc_field USING 'RM11P-SELKZ(01)' 'X'.
      PERFORM bdc_dynpro USING 'SAPLSTXX' '1100'.
      PERFORM bdc_field USING 'BDC_OKCODE' '=TXBA'.
      CLEAR w.
      ADD 1 TO w.
    ENDIF.
    ADD 1 TO w.
    UNPACK w TO p.
    CLEAR w_field.
    w_field+00(17) = 'RSTXT-TXPARGRAPH('.
    w_field+17(02) = p.
    w_field+19(01) = ')'.
    PERFORM bdc_field USING w_field t_itemtext-txpargraph.
    CLEAR w_field.
    w_field+00(13) = 'RSTXT-TXLINE('.
    w_field+13(02) = p.
    w_field+15(01) = ')'.
    PERFORM bdc_field USING w_field t_itemtext-txline .
    l_ext_line_save = t_itemtext-ext_line.
    l_ext_linno_save = t_itemtext-ext_linno.
ENDLOOP.
PERFORM bdc_dynpro USING 'SAPLMLSP' '0210'.
PERFORM bdc_field USING 'BDC_OKCODE' '=SAV'.
CALL TRANSACTION 'ML81' USING bdcdata MODE p_dismod UPDATE c_update
     MESSAGES INTO bdcmsgcoll.
LOOP AT bdcmsgcoll.
    IF sy-tabix = 1.
      WRITE AT: /1 text-002,
     write at: /1 'Log for text uploads of entry sheet ',
                                           37 l_lblni, 48 ':'.
    ENDIF.
check bdcmsgcoll-msgtyp = 'E' or bdcmsgcoll-msgtyp = 'A'.
    CHECK bdcmsgcoll-msgnr CO ' 0123456789'.
    MOVE bdcmsgcoll-msgnr TO l_msgno.
    CALL FUNCTION 'WRITE_MESSAGE'
      EXPORTING
        msgid = bdcmsgcoll-msgid
        msgno = l_msgno
        msgty = bdcmsgcoll-msgtyp
        msgv1 = bdcmsgcoll-msgv1
        msgv2 = bdcmsgcoll-msgv2
        msgv3 = bdcmsgcoll-msgv3
        msgv4 = bdcmsgcoll-msgv4
      IMPORTING
        messg = l_messg.
    WRITE AT: /3 l_messg-msgtx.
ENDLOOP.
ENDFORM.                    " UPLOAD_TEXTS
*&      Form SPLIT_HEADERTEXT
FORM split_headertext.
DATA: l_essr_lblni LIKE essr-lblni.
CLEAR: t_headertext.
   TRANSLATE doc_content-line USING '#;'.   ZBAPIESSRC_CHARS
SPLIT AT '§' INTO
        t_headertext-ext_number
        t_headertext-linno
        t_headertext-tcode
        t_headertext-recordname
        t_headertext-txpargraph
        t_headertext-txline
        t_headertext-text_mark.
start of insert >>>
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input = t_headertext-linno
    IMPORTING
      output = t_headertext-linno.
end of insert <<<
IF cb_chck = 'X'.
    SELECT SINGLE lblni FROM essr INTO l_essr_lblni
                                  WHERE loekz = ' '
                                  AND   user1 = t_headertext-ext_number.
    IF sy-subrc IS INITIAL.
      IF t_headertext-linno = 1.
        WRITE:/ 'External SES', t_headertext-ext_number,
                'is already uploaded. SES-Number: ', l_essr_lblni.
        WRITE: / 'No update of this sheet-texts was accomplished!'.
      ENDIF.
      EXIT.
    ENDIF.
ENDIF.
start of insert >>>
IF NOT cb_serv IS INITIAL.
    " check
    READ TABLE t_bapiessrc WITH KEY ext_number = t_headertext-ext_number
                           BINARY SEARCH.
    IF sy-subrc NE 0.
      EXIT.
    ENDIF.
ENDIF.
end of insert <<<
APPEND t_headertext.
ENDFORM.                    " SPLIT_HEADERTEXT
*&      Form SPLIT_ITEMTEXT
FORM split_itemtext.
DATA: l_essr_lblni LIKE essr-lblni.
CLEAR: t_itemtext.
   TRANSLATE doc_content-line USING '#;'.   ZBAPIESSRC_CHARS
SPLIT AT '§' INTO
        t_itemtext-ext_number
        t_itemtext-ext_line
        t_itemtext-linno
        t_itemtext-tcode
        t_itemtext-recordname
        t_itemtext-txpargraph
        t_itemtext-txline
        t_itemtext-text_mark
        t_itemtext-ext_linno.
start of insert >>>
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
    EXPORTING
      input = t_itemtext-ext_linno
    IMPORTING
      output = t_itemtext-ext_linno.
end of insert <<<
IF cb_chck = 'X'.
    SELECT SINGLE lblni FROM essr INTO l_essr_lblni
                                  WHERE loekz = ' '
                                  AND   user1 = t_itemtext-ext_number.
    IF sy-subrc IS INITIAL.
     write:/ 'External SES', t_itemtext-ext_number,
             'is already uploaded. SES-Number: ', l_essr_lblni.
     write: / 'No update of this sheet was accomplished!'.
      EXIT.
    ENDIF.
ENDIF.
APPEND t_itemtext.
ENDFORM.                    " SPLIT_ITEMTEXT
start of delete >>>
*&      Form SPOOL_SETTINGS
*FORM spool_settings.
MOVE p_spnam TO list_text.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
   EXPORTING " destination = 'dest'
     copies         = 1
     list_name      = p_spnam
     list_text      = list_text
     immediately    = ' '
     release        = ' '
     new_list_id    = ' '
     expiration     = 9
     line_size      = 125
     line_count     = 23
     layout         = 'X_65_132'
     sap_cover_page = ' '
     receiver       = 'SAP*'
     department     = 'System'
     no_dialog      = 'X'
   IMPORTING
     out_parameters = params
     valid          = valid.
IF valid <> space.
   NEW-PAGE PRINT ON PARAMETERS params NO DIALOG.
ENDIF.
*ENDFORM.                    " SPOOL_SETTINGS
end of delete <<<
*&      Form DELETE_FILES
      text
--> p1        text
<-- p2        text
FORM delete_files.
*{ REPLACE PS010306UPGR
DATA: l_return.
DATA: l_return TYPE i.
DATA: fname TYPE string.
*} REPLACE
LOOP AT i_directory_sel.
   move space to i_directory_sel-text(1).
    MOVE 'X' TO i_directory_sel-text(1).
    MODIFY i_directory_sel.
ENDLOOP.
*{ REPLACE
CLEAR i_directory_sel.
MOVE'Xdir_file.bat' TO i_directory_sel-text.
APPEND i_directory_sel.
CLEAR i_directory_sel.
MOVE'Xdir_file.txt' TO i_directory_sel-text.
APPEND i_directory_sel.
DATA: l_directory_list LIKE rlgrap-filename OCCURS 0 WITH HEADER LINE.
CALL FUNCTION 'KCD_FRONT_END_DIRECTORY_READ'
    EXPORTING
      i_path      = p_path
    TABLES
      e_directory = l_directory_list
    EXCEPTIONS
      OTHERS      = 6.
IF sy-subrc <> 0.
    LOOP AT l_directory_list.
      IF l_directory_list CS 'dir_file.bat'.
        CLEAR i_directory_sel.
        MOVE'Xdir_file.bat' TO i_directory_sel-text.
        APPEND i_directory_sel.
      ELSEIF l_directory_list CS 'dir_file.txt'.
        CLEAR i_directory_sel.
        MOVE'Xdir_file.txt' TO i_directory_sel-text.
        APPEND i_directory_sel.
      ENDIF.
    ENDLOOP.
ENDIF.
CALL FUNCTION 'Z_SL018_POPUP_WITH_TEXT_TO_SEL'
    EXPORTING
      popup_title = 'Select Files for DELETION'
      start_column = 10
      start_row    = 1
      end_column   = 50
      end_row      = 16
    IMPORTING
      sy_ucomm     = sy-ucomm
    TABLES
      x_popuptext = i_directory_sel.
*Check which Files shall be uploaded:
CHECK sy-ucomm = 'OK'.
LOOP AT i_directory_sel.
    CHECK i_directory_sel-text(1) = 'Y'.
    CLEAR file.
    CONCATENATE p_path i_directory_sel-text+1(31) INTO file.
*{ REPLACE PS010306UPGR
   CALL FUNCTION 'WS_FILE_DELETE'
        EXPORTING
             FILE   = FILE
        IMPORTING
             RETURN = L_RETURN.
    fname = file.
    CALL METHOD cl_gui_frontend_services=>file_delete
      EXPORTING
        filename = fname
      CHANGING
        rc

HI
add that fileds in the all locations where you need it like
in internal table declaration , write statement , select statement
these are the main areas where you have to add that 2 fileds

Error while adding Parameter Field to CrossTab report in CR 2008

Hello Experts,
I'm getting an error - "Not supported" while I'm trying to add a paremeter to the Crosstab report. It is a simple report with no further complications.
Is there any special way to add a parameter field to Crosstab? Any help appreciated.
TIA
arjun

Hi,
What version of Crystal Report are you using?
Kindly refer SAP Note 1376117 & 1454192 and verify if you are on the approriate patch.
Regards,
Nakul

Adding extra fields in S_ALR_87012085 report

hi,
i want to add two fields in vendor ageing report t code S_ALR_87012085 report.pls help.

Hi Sudip,
S_ALR_87012085 is the transaction that is called. Within this transaction, the report RFKOPR00 is called.
You then could copy or modify this report and add the fields you need.
Regards,
Marc

KE5Z : UserExit or SAP Note for adding new fields in the report output

Hi,
I want to add 2 new fields in KE5Z (Profit Center: Actual Line Items) report output.
Order reason(AUGRU), Sales Document Type (AUART) fields.
Is there any UserExit or SAP Note available for this....
Thanks in advance,
fractal

Hi Fractal,
See if Note 92864 will help you.
Summary
Symptom
Through a modification, it is possible for you to include additional fields in the profit center line-item reports 'actual' and 'plan' (Release 3.1*).
Additional key words
KE5Z, KE5Y, RCOPCA02, RCOPCA08 -
SUPPORTGUIDE 20010613143936 -
REPORTWRITER,
SGRW_OM SGRW_PS SGRW_PC SGRW_SL SGRW_PCA SGRW_EC SGRW_LIS
Cause and prerequisites
The fields must be located in table GLPCA (for actual) or GLPCP (for plan).
For Release 3.0F, you should ensure you have applied Note 62511 first.
Solution
To include a field in the actual line item report, proceed as follows:
Call the ABAP/4 Dictionary (Transaction SE11) and display table GLPCA. You can then find in a line the field name and data element for the field you want to include.
Return to the initial screen of the ABAP/4 Dictionary. Now change the structure RPCA2. If the structure does not yet contain the field, you select Edit -> Insert field; enter the field name and data element. Do not insert the new field at the beginning of the structure but in the rear half of the structure.
Then save and activate the structure.
Now call the ABAP Editor (Transaction SE38). Change the source code of program RCOPCA02. Insert the lines set out in the attachment in FORM routine FIELDCAT_FILL. When you do this, replace SGTXT by the field name of the field. If you normally want the field to be displayed when you the access the report, delete the line afield-no_out = 'X'. "<<<< insert Note 92864 .
You should note that the place where you insert the lines influences the position of the column in the report list.
To include a field in the Plan-line-item report, carry out the same procedure except with table GLPCP, structure RPCA8 and program RCOPCA08.
Note: Pls check if these 2 fields are available in any of the layout versions you have available with the transaction.
Cheers,
Vikram
Pls reward for helpful replies!!

Adding new fields in interactive reports in Opportunity area

Hi All,
We have implemented SAP CRM 7.0 ( SP8) and we are using the interactive reporting available in the system. When we try to build a custom report using the manage reporting link (which leads to a wizard), the wizard lets us choose between 34 available fields in opportunity area. The customer wants to include few more fields to this list like Prospect id, Opportunity id, Item descriptions which are standard fields but not available in interactive reporting. So I am trying to find out from where in system those 34 fields are configured and how I can add few extra fields to that list.
With EHP1, SAP has provided a interactive reporting enhancement workbench, but we are on SP8. So any help or information is highly appreciated.
Regards,
Manas.

Hi Sven,
Could you please let me know whether i can add SAP fields(like lead partner address) using Interactive Reporting Workbench on to the Standard Leads Origin Interactive Report .
I am using Eph-2 Version of CRM .
Basically i want to pull a field which is already in the Lead Transaction on to the standard Interactive Report .
Thanks
With Best Regards
Mamatha

Adding the fields on standard report

Hi EXperts,
Please guide me, i am new for modifiying the standard programs.
i want add the field custom field,i e pendding days.from iw59.
i copy the program to Z than i calculate the pendingdays.
that varible also append the final internal table.
but i cann't add the fieldcat,because there are not using manuallly.they are used as shown asbelow.
So please guide me any one how i can display the field.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = g_repid
      i_internal_tabname     = 'OBJECT_TAB'
      i_structure_name       = tabname
      i_client_never_display = ' '
    CHANGING
      ct_fieldcat            = g_fieldcat_tab[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
END-ENHANCEMENT-SECTION.
$$-Start: CREATE_FIELDCAT_F14_01----
$$
ENHANCEMENT 1 DIMP_GENERAL_MIOLXF14.    "active version
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name         = g_repid
      i_internal_tabname     = 'OBJECT_TAB'
      i_structure_name       = tabname
      i_client_never_display = ' '
INSERT BA-Project
      i_bypassing_buffer     = 'X'
END INSERT BA
    CHANGING
      ct_fieldcat            = g_fieldcat_tab[]
    EXCEPTIONS
      inconsistent_interface = 1
      program_error          = 2
      OTHERS                 = 3.
ENDENHANCEMENT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
         EXPORTING
              i_buffer_active          = g_alv_buffer
              i_callback_program       = g_repid
              i_callback_pf_status_set = g_form_set_pf_stat
          I_CALLBACK_USER_COMMAND = ' '
          I_STRUCTURE_NAME         =
              is_layout                = g_layout
              it_fieldcat              = g_fieldcat_tab[]
          it_excluding             =
              it_special_groups        = g_fieldgroups_tab[]
              it_sort                  = g_sortfields_tab[]
          it_filter                =
          is_sel_hide              =
              i_default                = g_n
             i_save                   = g_variant_save
              i_save                   = g_a
              is_variant               = g_variant
              it_events                = g_events_tab[]
              it_event_exit            = g_event_exit_tab[]
              is_print                 = g_print
              i_screen_start_column    = g_screen_start_column
              i_screen_start_line      = g_screen_start_line
              i_screen_end_column      = g_screen_end_column
              i_screen_end_line        = g_screen_end_line
              it_except_qinfo          = gt_qinf
     importing
          e_exit_caused_by_caller =
         TABLES
              t_outtab                 = object_tab
         EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
    IF NOT sy-subrc IS INITIAL.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
ELSE.
    CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
         EXPORTING
              i_buffer_active          = g_alv_buffer
              i_callback_program       = g_repid
          I_CALLBACK_PF_STATUS_SET = ' '
          I_CALLBACK_USER_COMMAND = ' '
          I_STRUCTURE_NAME         =
              is_layout                = g_layout
              it_fieldcat              = g_fieldcat_tab[]
          it_excluding             =
              it_special_groups        = g_fieldgroups_tab[]
              it_sort                  = g_sortfields_tab[]
          it_filter                =
          is_sel_hide              =
              i_default                = g_n
             i_save                   = g_variant_save
              i_save                   = g_a
              is_variant               = g_variant
              it_events                = g_events_tab[]
              it_event_exit            = g_event_exit_tab[]
              is_print                 = g_print
              i_screen_start_column    = g_screen_start_column
              i_screen_start_line      = g_screen_start_line
              i_screen_end_column      = g_screen_end_column
              i_screen_end_line        = g_screen_end_line
              it_except_qinfo          = gt_qinf
     importing
          e_exit_caused_by_caller =
         TABLES
              t_outtab                 = object_tab
         EXCEPTIONS
              program_error            = 1
              OTHERS                   = 2.
    IF NOT sy-subrc IS INITIAL.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
Thanks advance

Hi Srini,
Thanks For giving replay.
The problem was solved,
But whan i was run iw59 the output is coming Properlay,
than i copy the program and modifiyed as u said the out put fields are all not displayed.
Some of the field only displayed,it is showing the status main of userinterface zriqmel20 missing.
but i copyed all the includes ,why it will shon like that,
please guide me what is problem.
Thanks advance.
Edited by: krishnab121 on Jan 25, 2011 5:54 AM

Problem with dispalying out put of report RLLI0400

i have added one field in the report by copieng the report to zprogram...
i want see the out of the report ,but i am not getting any out put just giving the message saying that tha document is printed...
i need to change code in this report?
i need to change any thing in form DRUCKER_EINSCHALTEN,
if yes please tell me what changes are needed.....

Hi Kranthi,
in sub routine DRUCKER_EINSCHALTEN omit the code NO-DIALOG with NEW_PAGE command. i think it is genreating output into a spool request and suppress the dialog. if you omit this NO-DIALOG it will generate output.
Regards
Krishnendu

Number field on crystal report displays Exponential form.

Number Type field on crystal report printed in Exponential form when digits in this field are more than 17.

Hi Jay,
The same issue is addressed in the K-Base article c2005336. This is the limitation in Crystal, If you have more than 15 digits of numberic field it will convert into Exponential
Use database-level syntax to convert the numeric database field to a string so that Crystal Reports will interpret it as a string type, and display all of the characters.
For example, in Oracle, cast the number using to_char() and in Microsoft SQL Server use CAST() or STR() prior to adding the field to the report.
As a workaround to display all the number, I would suggest you to convert it to text using a SQL Expression Field. A SQL Expression field will be evaluated on the database server.
I would suggest you to follow the below mentioned steps to create SQL Expression field and convert a database field to a string:
1. Open the report.
2. Right click the SQL Expression field which is present in the Field Explorer.
3. Select New and copy and past the below-mentioned text.
CAST ("Database Field" as varchar)
Note u201CDatabase Fieldu201D Here you have to mention your database field.
After you create the SQL Expression Field, insert it on the report and it will display the full number.
Please note that no calculation can be made on that field since it is now a string.
I hope this helps you.
Regards,
Prashant

Adding a field to an sql statement in Oracle Reports error ORA-00933

We have been requested to add a field that already exists in the table referred to by the sql statement in Oracle Reports Builder. The report was set up by a consultant about 3 yrs ago and we don't really have much skill in this area. What is happening when I try to modify the SQL statement, either adding a field or deleting a field to the SELECT statement, causes an error message preventing the statement from being saved. The only way out of the error message is to click Cancel. The error message is
ORA-00933:SQL command not properly ended
ORDER BY Program ==> NAME
Even adding or deleting a space anywhere in the SQL statement causes the error (not adding any new fields). A coworker found that if we comment out the ORDER BY, the statement will accept the new field in the SELECT section, however then we lose the order by functionality. I would like to add one additional field before the FROM. Not sure if any additional data are needed. Thank you.
SELECT p.person_uid PIDM_KEY, p.id_number ID,
               p.full_name_lfmi name,
                p.BIRTH_DATE, p.GENDER Sex,
                Decode(a.residency,'D',p.Primary_ethnicity,'F') Ethn,
                a.academic_period TERM,
                CASE WHEN :p_group_by = 'PROGRAM' THEN a.program
                             ELSE ' '
                END AS Program,
                a.COLLEGE, a.degree, a.major, ' ' rule,
                a.STUDENT_POPULATION,a.STUDENT_LEVEL,    a.application_status Status, a.application_status_date app_sts_dte,
                ad.decision_date1 Last_Dec_Date,
                ad.decision1||' '||ad.decision2||' '|| ad.decision3||' '|| ad.decision4||' '|| ad.decision5 Decisions,
                /* Deposit Date uses the last term entered in :p_term parameter string */
                (SELECT MAX(deposit_effective_date) FROM usf_as_deposit WHERE account_uid = a.person_uid &term_clause group by account_uid)   AS "DEPOSIT DATE",
                ph.phone as PHONE,
                CASE WHEN PS.FIRST_CONTACT IN ('NET','PAP','COM','COP') THEN PS.First_Contact
                 ELSE CASE WHEN ps.latest_contact IN ('NET','PAP','COM','COP') THEN PS.Latest_Contact
                            ELSE ' '
                            END
                END AS FIRST_CONTACT,
                DECODE(:p_address,'Y',REPLACE(adr.street1||' '||adr.street2||' '||adr.street3||' '||adr.city||','||adr.state||' '||adr.nation||' '||adr.zip,' ',' '),' ') as address, adr.nation, adr.state,
                goremal_email_address email, a.residency, a.application_date, p.primary_ethnicity, c.cohort
FROM MST_ADMISSIONS_APPLICATION A,
           MST_PERSON p,mst_pre_student PS, Admissions_Cohort c, usf_v_phone_pr_ma ph,
           MST_admissions_decision_slot AD, usf_v_email, usf_v_address_dr_lr_ma_pr adr
WHERE a.PERSON_UID = p.person_uid
        AND a.curriculum_priority = 1
        AND a.person_uid = ps.person_uid
       AND a.person_uid = ad.person_Uid(+)
       AND a.person_uid = goremal_pidm(+)
       AND a.person_uid = adr.pidm(+)
       AND a.person_uid = ph.pidm(+)
       AND ph.rnum(+) = 1
       AND a.person_uid = c.person_uid(+)
       AND a.academic_period = c.academic_period(+)
&Where_Clause
       /*    TAKE OUT FOLLOWING LINE AFTER DATA IS CLEANED UP */
        AND NOT(p.id_number = '00000000'   OR SUBSTR(p.id_number,1,1) = 'B' OR UPPER(p.full_name_lfmi) LIKE '%TESTING%')
       AND a.application_status_date >= NVL(:p_as_of_date,sysdate-8000)
       AND a.academic_period = ad.academic_period(+)
        AND a.application_number = ad.application_number(+)
        AND a.degree <> 'ND'    /*   AND a.college <> 'LW'                         -- Does not need non-degree and law students    */
       &Cohort_Clause
ORDER BY Program &ORDER_CLAUSE

Hi Denis,
I tried your suggestion. The good thing is that adding the comma allowed me to be able to add a.campus to the select statement, unfortunately, another error message happened.
ORA-00936: missing expression SELECT p . person_uid PIDM_KEY ,
p . id_number , p . full_name_lfmi name , p . BIRTH_DATE , p . GENDER Sex ,
Decode ( a . residency , 'D' , p . Primary_Ethnicity , 'F' ) Ethn , a . academic_period TERM ,
CASE WHEN : P_group_by = 'PROGRAM THEN a I started over and tried only putting in the comma and get the same message even though I didn't add campus. After that, removed the comma which led to the ORA-00933 error message. So once again, I had to close the file without saving, in order for the report to run at all.

Is there any way to print the data inside the Notes field of MIR6 Report

Hello Gurús.
We need to include the data inside the Notes field in the report MIR6 - INVOICE OVERVIEW - report.
Is there any way to print the data inside (comments) the Notes field as well in the Report ?
We found that the only way is to open the Notes and print it, but it takes time, any idea ?
Rgds.
MCM.

There's nothing built-in that does that. If you only have text fields and they don't have any formatting or other property that would prevent it (e.g., Date, character limit), you can run a simple script to populate each field with the field name, and then print. A more complicated approach would be a script that adds text annotations near/over each field that shows the field name. This would just be for documentation purposes, but it's possible. Post again if you'd like help with the first. You'll probably have to pay someone for the second approach if you don't want to do it yourself.

Check print report PaymentAmountText field gets spaces while using RPAD Fn

Hi,
In the check print report we are using the PaymentAmountText field to print the amount in text.
After printing the remaining spaces should be filled with '*'
I used the below command
<?xdofx:rpad(PaymentAmountText,100,'*')?>
But the output is as follows:
Twenty-Five Pounds And Fifty Pence
Only***********************************************
There is a huge space between two words.
So please suggest some ideas to remove the space between two words.

There is a huge space between two words.
So please suggest some ideas to remove the space between two words.
you can use normalize-space(tag_name) like
Result - <xsl:value-of select="normalize-space('Initial werwe rrr r r')"/>
and result as
Result - Initial werwe rrr r r
also look at Re: Problem with Rpadding in RTF

Adding a field through FDI2 : change drilldown report

Hello, i am modifying the due date analysis for customer Open Items report On FDI2.I wish to add the Tax Number1 field(KNA1-STCD2) field to the report. On the characteristics tab, it shows a list that can be added to the report.Tax Number 1 is not among them.How do i add this? thanks.

HI
add that fileds in the all locations where you need it like
in internal table declaration , write statement , select statement
these are the main areas where you have to add that 2 fileds

Reports Developer V9.0.2.0.3, problem when adding sum field

My report stops working as soon as I add a summary field to the first query. Not even using it yet, just adding it, and closing the report (.jsp) and then opening it again. I have been trying to debug this problem for a couple of days now. This is how I found out the problem occurs after adding the summary field.
I get the message "REP-0002 Unable to retrieve a string from the Report Builder message file."
Then, I look at the report. There is no layout, everything in the data model view is molded together. VERY STRANGE.

Try using .rdf rather than .jsp to save the report. This may get around your problem unless you're using the websource. You could also try saving to XML and make sure that loads/saves correctly.

Adding exra field to print report RLLI0400

Similar Messages

Maybe you are looking for