Help require to migrate Report Manager(FSG)Excel Templates across Instances

In R12.1.3, we are creating new custom MS Excel templates for Standard FSG Reports.
We understand to create these templates with Report Manager using “Financial Report Template Editor”, edit them, download and upload back.
These templates created in Test Instance needs to be moved to multiple instances.
How can we migrate these custom Excel templates from one instance to another? , as when we select Oracle-->Upload from Excel template, it expects to upload back to the same instance where from it was downloaded originally, but our requirement is to migrate these templates across instances rather than to recreate it on each instance
Please suggest how to migrate these Excel templates from one instance to another.
Thanks,
Amit

hi,
sorry, but currently there is no such option, the templates need to be rebuilt.
Enhancement Request
Bug 6710387 'COPY REPORT TEMPLATES FROM ONE INSTANCE TO AN OTHER'
was raised on the issue but it was not implemented yet.
Please monitor this enhancement on 'My Oracle Support' to get news on its implementation.
For further information on Report Manager, please check theses notes:
(Doc ID 726774.1) - Report Manager - Master Note
(Doc ID 726958.1) - Report Manager (FRM) List of Patches
(Doc ID 858505.1) - Report Manager Troubleshooting
kind regards, Martin

Similar Messages

Help Required in Migrating the Dev to Test Instance

Hi
Am very new to SOA platform, i developed one project in dev instance. now i would like to move this project to test instance.
can any one help me to migrating the project.
So I Need sample document with step by step instruction. i have 5 days only to migrate, i gone through so many blogs and post in metalink, but i didn't understand the concept exactly.
Santhosh Kumar. K

Hi K,
There are many ways to do it, it will all depend on your environment.
The way that works for me is:
1. Deploy your project to SAR (it will actually generate a jar file)
2. Copy the generated file to the environment where it will be deployed
3. Use the ant-sca-deploy.xml to deploy it
ant-sca-deploy.xml will be located at $BEA_HOME/Oracle_SOA1/bin
and you can call it from your own ant build.xml like this:
     <target name="deploy-app">
          <ant
               antfile="${beaHome}/Oracle_SOA1/bin/ant-sca-deploy.xml"
               target="deploy"
               dir="${beaHome}/Oracle_SOA1/bin"
               >
               <property name="serverURL" value="${scaDeployUrl}"/>
               <property name="sarLocation" value="${appEarDestDir}/${sca.jar}"/>
               <property name="overwrite" value="true"/>
               <property name="user" value="${domainUser}"/>
               <property name="password" value="${domainPwd}"/>
               <property name="failOnError" value="true"/>
               <property name="partition" value="${partition}"/>
          </ant>
     </target>
Cheers,
Vlad
Give points - it is good etiquette to reward an answerer points (5 - helpful; 10 - correct) for their post if they answer your question. If you think this is helpful, please consider giving points

Report Generation Toolkit - Excel Templates

Hi, I've created an Excel Template with a single formatted
worksheet. I need to generate a report with a varying number of
worksheets but all based on the same template. I tried it using
the ADD WORKSHEET vi but this just adds an unformatted worksheet.
How can I use the template's worksheet format for each worksheet that
gets added?
Thanks,
Charlie

Hey Guys,
I know this post if kind of old but I hope maybe one of you can help me out. I'm using an invoke node similar to what is above to print out an Excel spreadsheet to the default printer. My issue is that when I try to print from the spreadsheet from the executable, the executable crashes. I know it is that invoke node. The reason why I say that is because until recently I had two development computers, one running on Windows 7 LabVIEW 2010, and one running on Windows XP LabVIEW2010. The original .exe was built with the XP machine, when I tried to make some changes with the Windows 7 machine and open the project it would say that there was a missing connection to the invoke node even though I did not touch that part of the application. I would then remove the invoke node, add it again and it would clear the error for whatever reason. I would then build the .exe with the Windows 7 machine and when it would run, the application would crash at the point where it goes to print the spreadsheet. I got around this by building the .exe with the Windows XP machine, and it worked fine without any issues. However, my Windows XP machine cra**ed out so i'm no longer able to build the .exe on the XP machine . I needed to make some changes to the .exe not anything involving this section of the code and for whatever reason when the application goes to print it crashes. I get some criptic crash report from Windows that is pretty much useless. I think its a Windows thing. This was workign correctly though until I did a build on the Windows 7 machine.
Attachments:
Printout Invoke Node Excel.png ‏70 KB
crash1.png ‏22 KB
crash2.png ‏23 KB

Help required on ALV REPORT

Hi,
Please help with a solution:
my requirement is to add the following to an existing program.
i need to add 3 fields from a new table(a table which is not used in the program).
the fields are :
Vendor Part No. : Field ZWTYVND-Z_WTY_MAT_VPN
Mail To Vendor No.: Field ZWTYVND-Z_WTY_LIFNR_MAIL
Mail To Vendor Name: Field ZWTYVND-WTY_NAME1
here is the program code:
REPORT zwtyrep008
        LINE-SIZE 500
        MESSAGE-ID zpp02.
*& Report ZWTYREP008                                                  *
*$*$----------------------------------------------------------------$*$*
*$*$---T A B L E S--------------------------------------------------$*$*
*$*$----------------------------------------------------------------$*$*
TABLES: wty_pnwtyh_dia,    "
        wty_pnwtyv_dia,
        mara,
        usr21,
        pnwtyv,
        adrp,
        s084.
*$*$----------------------------------------------------------------$*$*
*$*$ CONSTANTS
*$*$----------------------------------------------------------------$*$*
CONSTANTS: true(1)                                VALUE 'X',
           false(1)                               VALUE ' '.
CONSTANTS: c_year_low(4)                          VALUE '1960',
           c_year_high(4)                         VALUE '9999',
           c_zero        LIKE wty_pvwty_dia-valiv VALUE '0.00',
           c_claim_to_process TYPE i              VALUE 3000.
CONSTANTS: c_save(1)               VALUE 'U'.
*$*$----------------------------------------------------------------$*$*
*$*$ TYPES
*$*$----------------------------------------------------------------$*$*
TYPE-POOLS: slis, pwty.
TYPES: BEGIN OF lt_period,
               year(4),
               poper(2),
               start     TYPE d,
               end       TYPE d,
      END   OF lt_period.
TYPES: BEGIN OF tp_charac_value,
             atwrt LIKE cawn-atwrt,
       END   OF tp_charac_value.
TYPES: BEGIN OF tp_submit_records,
             header_guid   LIKE wty_pnwtyv_dia-header_guid,
             versn         LIKE wty_pnwtyv_dia-versn,
             prev_version LIKE wty_pnwtyv_dia-prev_version,
             kateg         LIKE wty_pnwtyv_dia-kateg,
             aktiv         LIKE wty_pnwtyv_dia-aktiv,
             pnguid        LIKE wty_pnwtyv_dia-pnguid,
             knumv         LIKE wty_pnwtyv_dia-knumv,
       END   OF tp_submit_records.
TYPES: BEGIN OF tp_cond_table,
             kschl LIKE konv-kschl,
             zaehk LIKE konv-zaehk,
             kinak LIKE konv-kinak,
             kbetr LIKE konv-kbetr,
       END   OF tp_cond_table.
*$*$----------------------------------------------------------------$*$*
*$*$---I N T E R N A L   T A B L E S--------------------------------$*$*
*$*$----------------------------------------------------------------$*$*
* Report table to display with ALV
DATA: t_detail_info TYPE STANDARD TABLE OF zwty_claim_avg_rep_det
                    WITH HEADER LINE
                    INITIAL SIZE 0.
FIELD-SYMBOLS:<fs_detail_info> LIKE LINE OF t_detail_info.
DATA: t_summary_alv TYPE STANDARD TABLE OF zwty_claim_avg_rep_sum
                    WITH HEADER LINE
                    INITIAL SIZE 0.
FIELD-SYMBOLS:<fs_summary_alv> LIKE LINE OF t_summary_alv.
DATA: t_detail_alv TYPE STANDARD TABLE OF zwty_claim_avg_rep_det
                    WITH HEADER LINE
                    INITIAL SIZE 0.
FIELD-SYMBOLS:<fs_detail_alv> LIKE LINE OF t_detail_alv.
DATA: it_submit_records TYPE HASHED TABLE OF tp_submit_records
                       WITH UNIQUE KEY header_guid versn
                       WITH HEADER LINE
                       INITIAL SIZE 0.
FIELD-SYMBOLS: <fs_submit_rec_vs2> TYPE tp_submit_records.
DATA: it_period TYPE HASHED TABLE OF lt_period
                WITH UNIQUE KEY year poper
                WITH HEADER LINE
                INITIAL SIZE 0.
FIELD-SYMBOLS: <fs_it_period>      LIKE LINE OF it_period.
DATA: it_pvwty_dia_all TYPE wty_pvwty_dia_tab.
FIELD-SYMBOLS: <fs_pvwty_dia_es3> LIKE LINE OF it_pvwty_dia_all.
DATA: it_cond_table TYPE STANDARD TABLE OF tp_cond_table
                    WITH HEADER LINE
                    INITIAL SIZE 0.
FIELD-SYMBOLS: <fs_cond_table> TYPE tp_cond_table.
*$*$----------------------------------------------------------------$*$*
*$*$---G L O B A L D A T A ---------------------------------------$*$*
*$*$----------------------------------------------------------------$*$*
DATA: gt_fieldcat_sum   TYPE slis_t_fieldcat_alv,
      gt_fieldcat_det TYPE slis_t_fieldcat_alv,
      gtw_fieldcat     LIKE LINE OF gt_fieldcat_sum,
      gt_top_of_page   TYPE slis_t_listheader,
      gtw_top_of_page LIKE LINE OF gt_top_of_page,
      gt_end_of_page   TYPE slis_t_listheader,
      gtw_end_of_page LIKE LINE OF gt_end_of_page,
      gs_layout        TYPE slis_layout_alv,
      gt_excluding     TYPE slis_t_extab,
      gtw_excluding    LIKE LINE OF gt_excluding,
      gs_variant1       TYPE disvariant,
      gs_variant2       TYPE disvariant,
      eventcat         TYPE slis_t_event,         "EVENEMENT
      eventcat_ln      LIKE LINE OF eventcat,     "LIGNE D'EVENEMENT
      gt_sort          TYPE slis_t_sortinfo_alv,
      gtw_sort         LIKE LINE OF gt_sort.
DATA: wa_lis_progname LIKE sy-cprog,
      wa_low_date      TYPE d,
      wa_high_date     TYPE d,
      wa_index_mat     TYPE i,
      wa_index_link    TYPE i,
      wa_level_alv     TYPE i.
DATA: g_callback_pgm(40)          TYPE c,
      g_callback_user_command(30) TYPE c.
DATA: my_print TYPE slis_print_alv.
FIELD-SYMBOLS: <fs_pvwty_dia> TYPE wty_pvwty_dia.
* SELECTION SCREEN                                          *
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK post WITH FRAME TITLE text-001.
SELECT-OPTIONS: s_cpudt FOR s084-spmon NO-EXTENSION,
                s_postdt FOR wty_pnwtyv_dia-fkdat NO-EXTENSION.
SELECTION-SCREEN END   OF BLOCK post.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-002.
SELECT-OPTIONS: s_vend FOR pnwtyv-v_parnr NO INTERVALS.
SELECT-OPTIONS: s_clgrp FOR wty_pnwtyh_dia-clmgrp.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_model FOR wty_pnwtyh_dia-z_wty_model.
SELECT-OPTIONS: s_matnr FOR mara-matnr.
SELECTION-SCREEN END   OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK lay WITH FRAME TITLE text-004.
PARAMETERS: varn1 TYPE slis_vari MEMORY ID fit_alv_gl, "Dis. variant
            varn2 TYPE slis_vari.
SELECTION-SCREEN END   OF BLOCK lay.
*$*$----------------------------------------------------------------$*$*
*$*$---A T S E L E C T I O N - S C R E E N-------------------------$*$*
*$*$----------------------------------------------------------------$*$*
AT SELECTION-SCREEN ON VALUE-REQUEST FOR varn1.
PERFORM alv_variant_f4 USING '0001' CHANGING varn1.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR varn2.
PERFORM alv_variant_f4 USING '0002' CHANGING varn2.
AT SELECTION-SCREEN ON BLOCK post. "Validate posting parameters
PERFORM validate_posting_parameter.
AT SELECTION-SCREEN ON s_model.     "Validate model
PERFORM validate_model.
AT SELECTION-SCREEN ON s_vend.      "Validate vendor
PERFORM validate_vendor.
AT SELECTION-SCREEN ON s_matnr.      "Validate material
PERFORM validate_material.
AT SELECTION-SCREEN ON s_clgrp.     "Validate claim group
PERFORM validate_claim_group.
AT SELECTION-SCREEN OUTPUT.
* Initialization.
INITIALIZATION.
* Initialize default display variant for ALV report
CLEAR gs_variant1.
MOVE sy-repid TO: gs_variant1-report,
                    gs_variant2-report.
gs_variant1-handle = '0001'.
gs_variant2-handle = '0002'.
wa_lis_progname   = sy-repid.
PERFORM set_default_variant CHANGING gs_variant1
                                       varn1.
PERFORM set_default_variant CHANGING gs_variant2
                                       varn2.
PERFORM get_fin_period USING c_year_low c_year_high.
PERFORM set_period_to_analyse.
*$*$----------------------------------------------------------------$*$*
*$*$---S T A R T - O F - S E L E C T I O N--------------------------$*$*
*$*$----------------------------------------------------------------$*$*
START-OF-SELECTION.
PERFORM select_claim_to_process.
*$*$----------------------------------------------------------------$*$*
*$*$---E N D - O F - S E L E C T I O N------------------------------$*$*
*$*$----------------------------------------------------------------$*$*
END-OF-SELECTION.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
*        PERCENTAGE       = 0
     text             = text-m02.
IF sy-batch = 'X'.
    PERFORM set_print_alv_grid.
ENDIF.
PERFORM show_alv_grid.
*&      Form PRINT_DETAIL_ALV
FORM show_alv_grid.
* Prepare ALV_GRID before display
* ===============================
PERFORM init_field.
PERFORM init_layout.
PERFORM init_fieldcat.
PERFORM init_excluding.
PERFORM init_event.
* SORT report_data BY bukrs werks.
PERFORM call_alv_list_display_level_1.
ENDFORM.                    " PRINT_DETAIL
*&      Form VARIANT_F4   copied from RPCWCCK3
*       Display a list of all available display variants for the ALV.
*      <--P_varn1 Return the selected variant and return
FORM variant_f4 CHANGING p_varn1 TYPE disvariant-variant.
DATA: l_variant LIKE disvariant.
* Get the list of available variants for the report
l_variant-report = sy-repid.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = l_variant
      i_save     = 'A'
    IMPORTING
      es_variant = l_variant.
p_varn1 = l_variant-variant.
ENDFORM.                               " VARIANT_F4
*&      Form INIT_FIELD
FORM init_field.
MOVE sy-repid          TO g_callback_pgm.
MOVE 'MY_USER_COMMAND' TO g_callback_user_command.
ENDFORM.                    " INIT_FIELD
*&      Form INIT_LAYOUT
FORM init_layout.
gs_layout-window_titlebar   = sy-title.
gs_layout-colwidth_optimize = 'X'.
gs_layout-expand_all        = 'X'.
gs_layout-no_subtotals      = ''.
gs_layout-key_hotspot       = 'X'.         " Afficher Hotspot
gs_layout-zebra             = 'X'.
gs_layout-group_change_edit = 'X'.
gs_layout-f2code            = 'DISPLAY'.
* gs_layout-max_linesize      = 400.
* gs_layout-totals_only       = 'X'.
ENDFORM.                    " INIT_LAYOUT
*&      Form INIT_FIELDCAT
FORM init_fieldcat.
DATA: lt_fieldcatalog    TYPE lvc_t_fcat,
        ltw_fieldcatalog   TYPE lvc_s_fcat.
REFRESH: lt_fieldcatalog,
           gt_fieldcat_sum,
           gt_fieldcat_det.
CLEAR   gtw_sort.
REFRESH gt_sort.
* ==============================================
* Set the label column for summary report leve 1
* ==============================================
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'ZWTY_CLAIM_AVG_REP_SUM'
      i_client_never_display = 'X'
    CHANGING
      ct_fieldcat            = lt_fieldcatalog.
*                             FIELD     pos sub up down Group
PERFORM create_sort USING: 'V_PARNR'   1 'X' 'X' ' '   'X',
                             'NAME'      2 'X' 'X' ' '   'X',
                             'MAKTX'     3 'X' 'X' ' '   'X',
                             'MATNR'     4 'X' 'X' ' '   'X'.
LOOP AT lt_fieldcatalog INTO ltw_fieldcatalog.
    CLEAR: gtw_fieldcat.
    MOVE-CORRESPONDING ltw_fieldcatalog TO gtw_fieldcat.
    PERFORM set_alv_field_desc USING ltw_fieldcatalog '1'.
    APPEND gtw_fieldcat TO gt_fieldcat_sum.
ENDLOOP.
PERFORM set_hot_spot TABLES gt_fieldcat_sum USING 'CLAIM_NB'.
* =========================================
* Field Catalog for Detail report (level 2)
* =========================================
REFRESH: lt_fieldcatalog.
CALL FUNCTION 'LVC_FIELDCATALOG_MERGE'
    EXPORTING
      i_structure_name       = 'ZWTY_CLAIM_AVG_REP_DET'
      i_client_never_display = 'X'
    CHANGING
      ct_fieldcat            = lt_fieldcatalog.
LOOP AT lt_fieldcatalog INTO ltw_fieldcatalog.
    CLEAR: gtw_fieldcat.
    MOVE-CORRESPONDING ltw_fieldcatalog TO gtw_fieldcat.
    PERFORM set_alv_field_desc USING ltw_fieldcatalog '2'.
    APPEND gtw_fieldcat TO gt_fieldcat_det.
ENDLOOP.
PERFORM set_hot_spot TABLES gt_fieldcat_det USING 'CLMNO'.
ENDFORM.                    " INIT_FIELDCAT
*&      Form INIT_SORT
FORM create_sort USING p_fieldname p_spos
                        p_subtot            TYPE char1
                        p_up                TYPE char1
                        p_down              TYPE char1
                        p_group             TYPE char1.
CLEAR: gtw_sort.
gtw_sort-fieldname = p_fieldname.
gtw_sort-spos      = p_spos.
gtw_sort-subtot    = p_subtot.
gtw_sort-up        = p_up.
gtw_sort-down      = p_down.
gtw_sort-group     = p_group.
APPEND gtw_sort TO gt_sort.
ENDFORM.                    "create_sort
*&      Form INIT_EXCLUDING
*       Exclude des option de l'application tool bar
FORM init_excluding.
CLEAR   gtw_excluding.
REFRESH gt_excluding.
gtw_excluding-fcode   = '&ABC'.
APPEND gtw_excluding TO gt_excluding.
ENDFORM.                    " INIT_EXCLUDING
*&      Form call_alv_list_display_level_1
FORM call_alv_list_display_level_1.
* DATA: l_i_save VALUE 'U'.   "User-specific variants only
DATA: l_i_save VALUE 'A'.   "Any type of variants
gs_variant1-report = sy-repid.
gs_variant1-variant = varn1.
gs_layout-colwidth_optimize = true.
wa_level_alv = 1.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program      = g_callback_pgm
      i_callback_user_command = g_callback_user_command
      is_layout               = gs_layout
      it_fieldcat             = gt_fieldcat_sum
      it_excluding            = gt_excluding
      it_sort                 = gt_sort
      i_save                  = l_i_save
      is_variant              = gs_variant1
      it_events               = eventcat
      is_print                = my_print
    TABLES
      t_outtab                = t_summary_alv
    EXCEPTIONS
      program_error           = 1
      OTHERS                  = 2.
ENDFORM.                    " call_alv_list_display_level_1
*&      Form INIT_EVENT
*       Determine quelle routine a executer selon l'event
FORM init_event.
eventcat_ln-name = 'TOP_OF_PAGE'.
eventcat_ln-form = 'ALV_PAGE_HEADER'.
APPEND eventcat_ln TO eventcat.
eventcat_ln-name = 'END_OF_PAGE'.
eventcat_ln-form = 'FOOTER_PAGE'.
APPEND eventcat_ln TO eventcat.
ENDFORM.                    " INIT_EVENT
*&      Form ALV_PAGE_HEADER
FORM alv_page_header.
DATA: l_date_time(22),
        l_char7(7),
        l_char10(10).
DATA: p_date(10) TYPE c.
DATA: p_time(8) TYPE c.
DATA: p_name(80) TYPE c.
* Format current date and time
WRITE sy-datum TO p_date USING EDIT MASK '____/__/__'.
WRITE sy-uzeit TO p_time USING EDIT MASK '__:__:__'.
CONCATENATE p_date '-' p_time
              INTO l_date_time SEPARATED BY space.
* Set the user name
SELECT SINGLE
         persnumber addrnumber INTO (usr21-persnumber, usr21-addrnumber)
             FROM usr21
             WHERE bname = sy-uname.
SELECT SINGLE name_first name_last
         INTO   (adrp-name_first, adrp-name_last )
         FROM   adrp
         WHERE persnumber = usr21-persnumber.
CONCATENATE adrp-name_first adrp-name_last INTO p_name
SEPARATED BY space.
REFRESH gt_top_of_page.
CLEAR   gtw_top_of_page.
* Program title ------------------------------------------------
CLEAR gtw_top_of_page.
gtw_top_of_page-typ = 'H'.
gtw_top_of_page-info = sy-title.
APPEND gtw_top_of_page TO gt_top_of_page.
CLEAR gtw_top_of_page.
gtw_top_of_page-typ     = 'S'.
gtw_top_of_page-key = 'Parameters :'.
* Period / Posting Date -----------------------------------------
IF s_cpudt[] IS INITIAL.
    WRITE s_postdt-low TO l_char10.
    CONCATENATE gtw_top_of_page-info
                text-104
                l_char10
           INTO gtw_top_of_page-info SEPARATED BY space.
    IF NOT s_postdt-high IS INITIAL.
      WRITE s_postdt-high TO l_char10.
      CONCATENATE gtw_top_of_page-info
                  text-105
                  l_char10
                  INTO gtw_top_of_page-info SEPARATED BY space.
    ENDIF.
    APPEND gtw_top_of_page TO gt_top_of_page.
ELSE.
    CONCATENATE s_cpudt-low(4) '/' s_cpudt-low+4(2)
                INTO l_char7 .
    CONCATENATE gtw_top_of_page-info
                text-103
                l_char7
                INTO gtw_top_of_page-info SEPARATED BY space.
    IF s_cpudt-high NE space.
      CONCATENATE s_cpudt-high(4) '/' s_cpudt-high+4(2)
                  INTO l_char7 .
      CONCATENATE gtw_top_of_page-info
                  text-105
                  l_char7
                  INTO gtw_top_of_page-info SEPARATED BY space.
    ENDIF.
    APPEND gtw_top_of_page TO gt_top_of_page.
ENDIF.
* Display wich level we display -----------------------------
* IF wa_level_alv > 1.
*    CLEAR gtw_top_of_page.
*    IF wa_level_alv = 2.
*      gtw_top_of_page-info = t_summary_alv-v_parnr.
*      SHIFT gtw_top_of_page-info LEFT DELETING LEADING '0'.
*    ENDIF.
*    gtw_top_of_page-typ     = 'S'.
*    gtw_top_of_page-key = 'Partner:'.
*    APPEND gtw_top_of_page TO gt_top_of_page.
* ENDIF.
* Executed by -----------------------------------------------
CLEAR gtw_top_of_page.
gtw_top_of_page-typ     = 'S'.
gtw_top_of_page-key = 'Report executed by :'.
gtw_top_of_page-info = p_name.
* * Date & time of execution --------------------------------
APPEND gtw_top_of_page TO gt_top_of_page.
gtw_top_of_page-key = 'DATE :'.
gtw_top_of_page-info = l_date_time.
APPEND gtw_top_of_page TO gt_top_of_page.
* Name of the report ----------------------------------------
CLEAR gtw_top_of_page.
gtw_top_of_page-typ = 'A'.
* LS_LINE-KEY: not used for this type
gtw_top_of_page-info = sy-repid.
APPEND gtw_top_of_page TO gt_top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = gt_top_of_page.
* IF sy-batch = 'X' AND sy-linsz > 255 AND l_ctr_newpage = 0.
*    NEW-PAGE PRINT ON LINE-SIZE 255.   "Pour wrapper !!!!!!
* ENDIF.
ENDFORM.                    "ALV_PAGE_HEADER
*&      Form footer_page
FORM footer_page.
DATA: l_footer(300),
        l_page_no(5).
l_page_no   = sy-pagno.
CONCATENATE 'Page' l_page_no INTO l_footer SEPARATED BY space.
SKIP 2.
WRITE:/001 l_footer(sy-linsz) CENTERED.
ENDFORM.                    "footer_page
*&      Form MY_USER_COMMAND
*       text
*      -->P_SY_UCOMM text
*      -->P_GS_SELFIELD text
FORM my_user_command USING    p_sy_ucomm
                              p_gs_selfield TYPE slis_selfield.
DATA: l_claim_no         LIKE mcshier-hiername,
        lv_tcode_last(15).
* ======================================================
* Call TX WTY to display the claim. Only possible at the
* detail report(level 3)
* ======================================================
CASE p_gs_selfield-fieldname.
    WHEN 'CLMNO'.
      READ TABLE t_detail_alv INDEX p_gs_selfield-tabindex.
      SHIFT t_detail_alv-clmno LEFT DELETING LEADING '0'.
      l_claim_no = t_detail_alv-clmno.
      CONCATENATE sy-tcode syst-modno
                  INTO lv_tcode_last.
      EXPORT wty_tcode_last_memoid FROM lv_tcode_last TO MEMORY
                                   ID    'WTY_TCODE_LAST_MEMOID'.
      SET PARAMETER ID 'CLMNO' FIELD l_claim_no.
      CALL TRANSACTION 'WTY' AND SKIP FIRST SCREEN.
    WHEN 'CLAIM_NB'.
*     =====================================
*     Display the next level of information
*     =====================================
      CASE wa_level_alv.
        WHEN 1.
          REFRESH: t_detail_alv.
          wa_level_alv = 2.
          READ TABLE t_summary_alv INDEX p_gs_selfield-tabindex.
          LOOP AT t_detail_info
                  ASSIGNING <fs_detail_info>
                  WHERE v_parnr    EQ t_summary_alv-v_parnr
                    AND crncy      EQ t_summary_alv-crncy
                    AND item_type EQ t_summary_alv-item_type
                    AND ov_meinh   EQ t_summary_alv-ov_meinh
                    AND iv_meinh   EQ t_summary_alv-iv_meinh
                    AND matnr      EQ t_summary_alv-matnr.
            MOVE-CORRESPONDING <fs_detail_info> TO t_detail_alv.
            APPEND t_detail_alv.
          ENDLOOP.
          CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
              i_callback_program      = g_callback_pgm
              i_callback_user_command = g_callback_user_command
              is_layout               = gs_layout
              it_fieldcat             = gt_fieldcat_det
              it_excluding            = gt_excluding
*              it_sort                 = gt_sort
              i_save                  = c_save
              is_variant              = gs_variant2
              it_events               = eventcat
              is_print                = my_print
            TABLES
              t_outtab                = t_detail_alv
            EXCEPTIONS
              program_error           = 1
              OTHERS                  = 2.
          wa_level_alv = 1.
      ENDCASE.
ENDCASE.
ENDFORM.                    " MY_USER_COMMAND
*       FORM PRINT_ALV_GRID                                           *
*       Print the report not on screen for special batch processing. *
* --> IT         Table to print -   Z_HRF_BEN_CONF_FLEX
FORM set_print_alv_grid.
my_print-print              = 'X'. "Force printing
my_print-no_print_selinfos = 'X'.
my_print-no_print_listinfos = 'X'.
my_print-no_new_page        = ''.   "Separate spool files
my_print-prnt_title         = 'X'.
my_print-prnt_info          = 'X'.
my_print-reserve_lines      = 3.
ENDFORM.                    "set_print_alv_grid
*&      Form ALV_VARIANT_F4
FORM alv_variant_f4 USING    p_handle
                    CHANGING p_vari.
DATA: rs_variant LIKE disvariant.
DATA: nof4 TYPE c.
CLEAR nof4.
LOOP AT SCREEN.
    IF screen-name = p_vari.
      IF screen-input = 0.
        nof4 = 'X'.
      ENDIF.
    ENDIF.
ENDLOOP.
rs_variant-report   = sy-repid.
rs_variant-username = sy-uname.
rs_variant-handle   = p_handle.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      is_variant = rs_variant
      i_save     = 'A'
    IMPORTING
      es_variant = rs_variant
    EXCEPTIONS
      OTHERS     = 1.
IF sy-subrc = 0 AND nof4 EQ space.
    p_vari = rs_variant-variant.
ENDIF.
ENDFORM.                               " ALV_VARIANT_F4
*&      Form validate_model
*       text
* --> p1        text
* <-- p2        text
FORM validate_model .
DATA: l_matnr LIKE mara-matnr.
SELECT SINGLE matnr
         INTO l_matnr
         FROM mara
         WHERE matnr IN s_model
           AND mtart EQ 'ZKMA'.
IF sy-subrc NE 0.
    MESSAGE e000 WITH text-e07.
ENDIF.
ENDFORM.                    " validate_model
*&      Form select_claim_to_process
*       text
* --> p1        text
* <-- p2        text
FORM select_claim_to_process .
DATA: lt_pnwtyh_dia     TYPE wty_pnwtyh_dia_tab,
        lt_pnwtyv_dia     TYPE wty_pnwtyv_dia_tab,
        lt_pvwty_dia      TYPE wty_pvwty_dia_tab,
        lt_pnwtyh_dia_tmp TYPE wty_pnwtyh_dia_tab,
        lt_pnwtyv_dia_tmp TYPE wty_pnwtyv_dia_tab,
        lt_pvwty_dia_tmp TYPE wty_pvwty_dia_tab,
        lt_pvwty_dia_mat TYPE wty_pvwty_dia_tab,
        lt_sel_fkdat      TYPE pwty_sel_fkdat_pt,
        lt_sel_v_parnr    TYPE pwty_sel_v_parnr_pt,
        lt_sel_clmty      TYPE pwty_sel_clmty_pt,
        lt_sel_clmgrp     TYPE pwty_sel_clmgrp_pt.
DATA: lst_sel_fkdat LIKE LINE OF lt_sel_fkdat,
        lst_sel_clmty LIKE LINE OF lt_sel_clmty.
DATA: BEGIN OF lt_clmno OCCURS 0,
              clmno   LIKE pnwtyh-clmno,
        END   OF lt_clmno,
        lt_clmno_tmp   LIKE lt_clmno OCCURS 0,
        lt_claim    TYPE pwty_sel_clmno_pt,
        wa_clmno    LIKE LINE OF lt_claim.
DATA: l_nb_claim         TYPE i.
RANGES: lr_model FOR wty_pnwtyh_dia-z_wty_model.
FIELD-SYMBOLS: <lfs_pnwtyh_dia>    LIKE LINE OF lt_pnwtyh_dia,
                 <lfs_pnwtyv_dia>    LIKE LINE OF lt_pnwtyv_dia,
                 <lfs_pvwty_dia_es2> LIKE LINE OF lt_pvwty_dia,
                 <lfs_pvwty_dia_mat> LIKE LINE OF lt_pvwty_dia_mat.
REFRESH: lt_pnwtyh_dia, lt_pnwtyv_dia,lt_pvwty_dia, lt_sel_clmty,
           lr_model, t_detail_info, t_summary_alv, lt_pvwty_dia_mat.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
*    PERCENTAGE       = 0
     text             = text-m01. "Extracting claim
* ========================
* Get the Claim to process
* ========================
* SELECT clmno
*         INTO TABLE lt_clmno
*         FROM pnwtyh
*         WHERE z_wty_convflg EQ space
*           AND z_wty_error    EQ space
* wa_clmno-sign   = 'I'.
* wa_clmno-option = 'EQ'.
* LOOP AT lt_clmno.
*    wa_clmno-low     = lt_clmno-clmno.
*    APPEND wa_clmno TO lt_claim.
* ENDLOOP.
lst_sel_fkdat-sign   = 'I'.
lst_sel_fkdat-option = 'BT'.
lst_sel_fkdat-low    = wa_low_date.
lst_sel_fkdat-high   = wa_high_date.
APPEND lst_sel_fkdat TO lt_sel_fkdat.
lst_sel_clmty-sign   = 'E'.
lst_sel_clmty-option = 'EQ'.
lst_sel_clmty-low    = 'ZSBC'.
APPEND lst_sel_clmty TO lt_sel_clmty.
lt_sel_v_parnr[] = s_vend[].
lt_sel_clmgrp[] = s_clgrp[].
CALL FUNCTION 'PVSDBWTY_CLAIM_SELECT'
    EXPORTING
      it_sel_fkdat     = lt_sel_fkdat
      it_sel_clmgrp    = lt_sel_clmgrp
      it_sel_v_parnr   = lt_sel_v_parnr
      it_sel_clmty     = lt_sel_clmty
*      it_sel_clmno     = lt_claim
    IMPORTING
      et_pnwtyh_dia    = lt_pnwtyh_dia
      et_pnwtyv_dia    = lt_pnwtyv_dia
      et_pvwty_dia     = lt_pvwty_dia
    EXCEPTIONS
      no_entry_found   = 1
      authority_failed = 2
      OTHERS           = 3.
IF sy-subrc = 3 .
    MESSAGE e309(wty) .
ENDIF .
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
   EXPORTING
*    PERCENTAGE       = 0
     text             = text-m03. "Extracting claim
LOOP AT lt_pvwty_dia
       ASSIGNING <fs_pvwty_dia>
       WHERE poskt_cust = 'MAT'.
    INSERT <fs_pvwty_dia> INTO TABLE lt_pvwty_dia_mat.
ENDLOOP.
it_pvwty_dia_all[] = lt_pvwty_dia[].
SORT lt_pnwtyh_dia     BY pnguid.
SORT lt_pvwty_dia      BY version_guid z_wty_posnr_hier.
SORT lt_pvwty_dia_mat BY version_guid.
SORT it_pvwty_dia_all BY version_guid posnr.
* Keep Version record OC or IV in a separate table for later use
LOOP AT lt_pnwtyv_dia
          ASSIGNING <lfs_pnwtyv_dia>.
    it_submit_records-header_guid = <lfs_pnwtyv_dia>-header_guid.
    it_submit_records-versn        = <lfs_pnwtyv_dia>-versn.
    it_submit_records-prev_version = <lfs_pnwtyv_dia>-prev_version.
    it_submit_records-kateg        = <lfs_pnwtyv_dia>-kateg.
    it_submit_records-aktiv        = <lfs_pnwtyv_dia>-aktiv.
    it_submit_records-knumv        = <lfs_pnwtyv_dia>-knumv.
    it_submit_records-pnguid       = <lfs_pnwtyv_dia>-pnguid.
    INSERT TABLE it_submit_records.
ENDLOOP.
* =============
* Process Claim
* =============
LOOP AT lt_pnwtyv_dia
          ASSIGNING <lfs_pnwtyv_dia>
          WHERE aktiv        EQ true   "Active version only
            AND kateg        EQ 'IV'   "Category
            AND fi_doc_exist EQ 'X'.
    CLEAR: t_detail_info, t_summary_alv.
*   Read Header detail
    READ TABLE lt_pnwtyh_dia
         WITH KEY pnguid = <lfs_pnwtyv_dia>-header_guid
         ASSIGNING <lfs_pnwtyh_dia>
         BINARY SEARCH.
*   Claim must be without error -----------------------------
    IF sy-subrc                      NE 0      OR
       <lfs_pnwtyh_dia>-z_wty_error   = true   OR
       <lfs_pnwtyh_dia>-z_wty_convflg = true.
      CONTINUE. "Rejected this Claim
    ENDIF.
*   Check Model
    IF <lfs_pnwtyh_dia>-z_wty_model IN s_model.
    ELSE.
      CONTINUE. "Rejected this Claim
    ENDIF.
*   Read first "MAT" Item information ------------------
    READ TABLE lt_pvwty_dia_mat
         WITH KEY version_guid = <lfs_pnwtyv_dia>-pnguid
         ASSIGNING <lfs_pvwty_dia_mat>
         BINARY SEARCH.
    wa_index_mat = sy-tabix.
    IF sy-subrc NE 0.
      CONTINUE. "Rejected this Claim
    ENDIF.
*   ====================================================
*   Process all item "MAT" linked to the current version
*   ====================================================
    WHILE sy-subrc                     = 0
          AND
          <lfs_pvwty_dia_mat>-version_guid = <lfs_pnwtyv_dia>-pnguid.
      IF <lfs_pvwty_dia_mat>-matnr IN s_matnr.
*       ======================================
*       Process Items linked to the "MAT" Item
*       ======================================
        READ TABLE lt_pvwty_dia
             WITH KEY version_guid     = <lfs_pnwtyv_dia>-pnguid
                      z_wty_posnr_hier = <lfs_pvwty_dia_mat>-posnr
             ASSIGNING <lfs_pvwty_dia_es2>
             BINARY SEARCH.
        wa_index_link = sy-tabix.
        DO. "Execute only ONCE (to process all items linked to the)
          "MAT Item
          IF sy-subrc NE 0.
            EXIT. "Exit the DO loop
          ENDIF.
          WHILE sy-subrc                     = 0
                AND
               <lfs_pvwty_dia_es2>-version_guid =
                       <lfs_pnwtyv_dia>-pnguid
                AND
               <lfs_pvwty_dia_es2>-z_wty_posnr_hier =
                       <lfs_pvwty_dia_mat>-posnr.
            IF <lfs_pvwty_dia_es2>-valiv EQ c_zero.
            ELSE.
*             Initialize the detail information to display ---------
              CLEAR: t_detail_info.
              t_detail_info-v_parnr    = <lfs_pnwtyv_dia>-v_parnr.
              t_detail_info-matnr      = <lfs_pvwty_dia_mat>-matnr.
              t_detail_info-item_type = <lfs_pvwty_dia_es2>-poskt_cust.
              t_detail_info-iv_versn   = <lfs_pnwtyv_dia>-versn.
              t_detail_info-clmno      = <lfs_pnwtyh_dia>-clmno.
              t_detail_info-crncy      = <lfs_pnwtyv_dia>-v_crncy.
              t_detail_info-iv_meinh   = <lfs_pvwty_dia_es2>-meinh.
              t_detail_info-z_wty_model = <lfs_pnwtyh_dia>-z_wty_model.
              ADD <lfs_pvwty_dia_es2>-quant TO
                                             t_detail_info-iv_appr_qty.
              SELECT SINGLE kbetr
                     INTO   t_detail_info-iv_appr_rate
                     FROM   konv
                     WHERE knumv = <lfs_pnwtyv_dia>-knumv
                       AND kposn = <lfs_pvwty_dia_es2>-posnr
                       AND kschl = 'ZVAP'
                       AND kinak = space.
*              t_detail_info-flat_indic   = <lfs_pnwtyh_dia>-z_wty_model
*             t_detail_info-pric_indic   = <lfs_pnwtyh_dia>-z_wty_serno
              PERFORM get_the_submit_record
                      USING <lfs_pnwtyv_dia>-header_guid
                            <lfs_pnwtyv_dia>-prev_version
                            <lfs_pnwtyh_dia>-clmno
                            <lfs_pvwty_dia_es2>-posnr.
            ENDIF.
*           =====================
*           Read next Linked item
*           =====================
            PERFORM read_next_item TABLES   lt_pvwty_dia
                                    CHANGING wa_index_link.
            IF sy-subrc = 0.
              ASSIGN <fs_pvwty_dia> TO <lfs_pvwty_dia_es2>.
            ENDIF.
          ENDWHILE.
          EXIT. "Exit the DO loop
        ENDDO.
      ENDIF.
*     ====================
*     Read next "MAT" item
*     ====================
      PERFORM read_next_item TABLES   lt_pvwty_dia_mat
                              CHANGING wa_index_mat.
      IF sy-subrc = 0.
        ASSIGN <fs_pvwty_dia> TO <lfs_pvwty_dia_mat>.
      ENDIF.
    ENDWHILE.
ENDLOOP.
* ========================
* Get the description text
* ========================
LOOP AT t_detail_info
       ASSIGNING <fs_detail_info>.
*   Get the model text -------------------------------------
    SELECT SINGLE mfrpn
           INTO   <fs_detail_info>-z_wty_model
           FROM   mara
           WHERE matnr = <fs_detail_info>-z_wty_model.
*   Set Node name to regroup later by group -----------------
    SELECT SINGLE name1
           INTO   <fs_detail_info>-name
           FROM   lfa1
           WHERE lifnr = <fs_detail_info>-v_parnr.
*   Set Node name to regroup later by group -----------------
    SELECT SINGLE maktx
           INTO   <fs_detail_info>-maktx
           FROM   makt
           WHERE matnr = <fs_detail_info>-matnr
             AND spras = sy-langu.
    MOVE-CORRESPONDING <fs_detail_info> TO t_summary_alv.
    t_summary_alv-claim_nb = 1.
    COLLECT t_summary_alv.
ENDLOOP.
* ===========================================
* Calculate the average of the summary report
* ===========================================
LOOP AT t_summary_alv
       ASSIGNING <fs_summary_alv>.
    DIVIDE <fs_summary_alv>-ov_prop_qty   BY <fs_summary_alv>-claim_nb.
    DIVIDE <fs_summary_alv>-ov_prop_rate BY <fs_summary_alv>-claim_nb.
    DIVIDE <fs_summary_alv>-ov_submit_qty BY <fs_summary_alv>-claim_nb.
    DIVIDE <fs_summary_alv>-ov_submit_rate BY <fs_summary_alv>-claim_nb.
    DIVIDE <fs_summary_alv>-iv_appr_qty    BY <fs_summary_alv>-claim_nb.
    DIVIDE <fs_summary_alv>-iv_appr_rate   BY <fs_summary_alv>-claim_nb.
ENDLOOP.
DELETE t_summary_alv WHERE v_parnr NOT IN s_vend.
ENDFORM.                    " select_claim_to_process
*&      Form SET_HOT_SPOT
*       text
*      -->P_0287   text
FORM set_hot_spot TABLES   p_fieldcat     TYPE slis_t_fieldcat_alv
                   USING    value(p_field).
FIELD-SYMBOLS: <lfs_field_cat> LIKE LINE OF gt_fieldcat_sum.
READ TABLE p_fieldcat WITH KEY fieldname = p_field
       ASSIGNING <lfs_field_cat>.
IF sy-subrc = 0.
    <lfs_field_cat>-hotspot = 'X'.
    <lfs_field_cat>-key     = 'X'.
ENDIF.
ENDFORM.                    " SET_HOT_SPOT
*&      Form set_screen_text
*       text
*      -->P_0997   text
FORM set_screen_text USING    p_label
                               p_text.
MOVE p_label TO :gtw_fieldcat-seltext_l,
                   gtw_fieldcat-seltext_m,
                   gtw_fieldcat-seltext_s,
                   gtw_fieldcat-reptext_ddic.
IF p_text NE space.
    gtw_fieldcat-ddictxt = p_text.
ENDIF.
ENDFORM.                    " set_screen_text
*&      Form set_default_variant
*       text
*      -->P_0822   text
*      <--P_GS_VARIANT1 text
FORM set_default_variant CHANGING p_variant     TYPE disvariant
                                   p_disvar      TYPE slis_vari.
* Get default variant
CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
    EXPORTING
      i_save     = c_save
    CHANGING
      cs_variant = p_variant
    EXCEPTIONS
      not_found = 2.
IF sy-subrc = 0.
    p_disvar = p_variant-variant.
ENDIF.
ENDFORM.                    " set_default_variant
*&      Form validate_vendor
*       text
* --> p1        text
* <-- p2        text
FORM validate_vendor.
DATA: l_lifnr LIKE lfa1-lifnr.
IF s_vend[] IS INITIAL.
ELSE.
    SELECT SINGLE lifnr
           INTO   l_lifnr
           FROM   lfa1
           WHERE lifnr IN s_vend.
    IF sy-subrc NE 0.
      MESSAGE e000 WITH text-e01.
    ENDIF.
ENDIF.
ENDFORM.                    " validate_vendor
*&      Form inform_claim_error
*       text
* --> p1        text
* <-- p2        text
FORM inform_claim_error USING value(p_claim_no)
                              value(p_version).
DATA: l_text1(50),
        l_text2(50).
CONCATENATE text-301
              p_claim_no
              INTO l_text1 SEPARATED BY space.
CONCATENATE text-302
              p_version
              text-303
              INTO l_text2 SEPARATED BY space.
CALL FUNCTION 'POPUP_TO_INFORM'
    EXPORTING
      titel = text-200
      txt1 = l_text1
      txt2 = l_text2
      txt3 = ' '
      txt4 = text-304.
ENDFORM.                    " inform_claim_error
*&      Form validate_posting_parameter
*       text
* --> p1        text
* <-- p2        text
FORM validate_posting_parameter .
DATA: l_low_date TYPE d,
        l_high_date TYPE d.
CLEAR: wa_low_date, wa_high_date.
* Posting parameters must be entered
IF s_cpudt[] IS INITIAL AND s_postdt[] IS INITIAL.
    MESSAGE e000 WITH text-e04.
ENDIF.
* Posting paramters can't be intered at the same time
IF s_cpudt[] IS INITIAL OR s_postdt[] IS INITIAL.
ELSE.
    MESSAGE e000 WITH text-e03.
ENDIF.
* Validate posting period ---------------------------------------------
IF s_postdt[] IS INITIAL.
    READ TABLE s_cpudt INDEX 1.
    IF s_cpudt-low IS INITIAL.
      MESSAGE e000 WITH text-e03.
    ENDIF.
    PERFORM validate_period USING    s_cpudt-low
                            CHANGING l_low_date
                                     l_high_date.
    wa_low_date = l_low_date.
    wa_high_date = l_high_date.
    IF s_cpudt-high IS INITIAL.
    ELSE.
      PERFORM validate_period USING    s_cpudt-high
                              CHANGING l_low_date
                                       l_high_date.
      IF s_cpudt-high LT s_cpudt-low.
        MESSAGE ID 'DB' TYPE 'E' NUMBER '650' .
      ENDIF.
      wa_high_date = l_high_date.
    ENDIF.
ELSE.
*   Validate posting date --------------------------------------------
    READ TABLE s_postdt INDEX 1.
    wa_low_date = s_postdt-low.
    IF s_postdt-high IS INITIAL.
      wa_high_date = wa_low_date.
    ELSE.
      wa_high_date = s_postdt-high.
    ENDIF.
ENDIF.
ENDFORM.                    " validate_posting_parameter
*&      Form get_fin_period
*       Get the financial period from 1960 to 9999
* --> p1        text
* <-- p2        text
FORM get_fin_period USING value(p_year_low)
                          value(p_year_high).
DATA : BEGIN OF fp_table OCCURS 0,
               periv LIKE t009b-periv, "FINANCIAL YEAR VARIANT
               bdatj LIKE t009b-bdatj, "CALENDAR YEAR
               bumon LIKE t009b-bumon, "MONTH
               butag LIKE t009b-butag, "DAY OF MONTH
               poper LIKE t009b-poper, "COST PERIOD
               reljr LIKE t009b-reljr, "YEAR SHIFT
         END OF fp_table.
DATA: l_fin_bdatj       LIKE t009b-bdatj,
        l_period_start    TYPE d,
        l_period_end      TYPE d,
        l_prev_period_end TYPE d,
        l_prev_fin_bdatj LIKE t009b-bdatj,
        l_prev_poper      LIKE t009b-poper,
        l_count           TYPE n.
* Get the Fiscal year variant periods
SELECT periv bdatj bumon butag poper reljr
         INTO TABLE fp_table
         FROM t009b
         WHERE periv = 'ZB'.
LOOP AT fp_table.
    IF l_prev_period_end NE '00000000'.
      l_period_start = l_prev_period_end + 1.
    ENDIF.
    CONCATENATE fp_table-bdatj fp_table-bumon fp_table-butag
                INTO l_period_end.
    l_prev_period_end = l_period_end.
    l_fin_bdatj       = fp_table-bdatj + fp_table-reljr.
    IF c_year_low NE ''      AND l_fin_bdatj LT p_year_low.
      CONTINUE.
    ELSEIF p_year_high NE '' AND l_fin_bdatj GT p_year_high.
      CONTINUE.
    ELSEIF p_year_low NE '' AND p_year_high EQ '' AND
           l_fin_bdatj GT c_year_low.
      CONTINUE.
    ENDIF.
    IF l_prev_fin_bdatj EQ l_fin_bdatj         AND
       l_prev_poper     EQ fp_table-poper.
      it_period-end    = l_period_end.
      MODIFY it_period TRANSPORTING end
             WHERE year = it_period-year
               AND poper = it_period-poper.
    ELSE.
      it_period-year   = l_fin_bdatj.
      it_period-poper = fp_table-poper+1.
      it_period-start = l_period_start.
      it_period-end    = l_period_end.
      INSERT TABLE it_period.
    ENDIF.
    l_prev_fin_bdatj = l_fin_bdatj.
    l_prev_poper     = fp_table-poper.
    IF l_count EQ 0.
      l_count = l_count + 1.
    ENDIF.
ENDLOOP.
ENDFORM.                    " get_fin_period
*&      Form set_period_to_analyse
*       Find the fiscal period for a specific date
* --> p1        text
* <-- p2        text
FORM set_period_to_analyse.
LOOP AT it_period
       ASSIGNING <fs_it_period>
       WHERE start LE sy-datum
         AND end   GE sy-datum.
    CONCATENATE <fs_it_period>-year
                <fs_it_period>-poper
                INTO s_cpudt-low.
    s_cpudt-sign   = 'I'.
    s_cpudt-option = 'EQ'.
    APPEND s_cpudt.
    EXIT.
ENDLOOP.
ENDFORM.                    " set_period_to_analyse
*&      Form validate_material
*       text
* --> p1        text
* <-- p2        text
FORM validate_material .
DATA: l_matnr LIKE mara-matnr.
IF s_matnr[] IS INITIAL.
ELSE.
    SELECT SINGLE matnr
           INTO   l_matnr
           FROM   mara
           WHERE matnr IN s_matnr.
    IF sy-subrc NE 0.
      MESSAGE e000 WITH text-e02.
    ENDIF.
ENDIF.
ENDFORM.                    " validate_material
*&      Form validate_claim_group
*       text
* --> p1        text
* <-- p2        text
FORM validate_claim_group .
DATA: l_clmgrp LIKE cwty006-clmgrp.
IF s_clgrp[] IS INITIAL.
ELSE.
    SELECT SINGLE clmgrp
           INTO   l_clmgrp
           FROM   cwty006
           WHERE clmgrp IN s_clgrp.
    IF sy-subrc NE 0.
      MESSAGE e000 WITH text-e06.
    ENDIF.
ENDIF.
ENDFORM.                    " validate_claim_group
*&      Form set_alv_field_desc
*       text
*      -->P_LTW_FIELDCATALOG text
*      <--P_GTW_FIELDCAT text
FORM set_alv_field_desc USING value(p_fieldcat) TYPE lvc_s_fcat
                              value(p_level).
gtw_fieldcat-seltext_l    = p_fieldcat-scrtext_l.
gtw_fieldcat-seltext_m    = p_fieldcat-scrtext_m.
gtw_fieldcat-seltext_s    = p_fieldcat-scrtext_s.
gtw_fieldcat-reptext_ddic = p_fieldcat-reptext.
CASE p_fieldcat-fieldname.
    WHEN 'NAME'.
      PERFORM set_screen_text USING 'Vendor Name'           'L'.
    WHEN 'MAKTX'.
      PERFORM set_screen_text USING 'Material Description' 'L'.
    WHEN 'CLAIM_NB'.
      PERFORM set_screen_text USING '#Claims'               'L'.
    WHEN 'IV_MEINH'.
      PERFORM set_screen_text USING 'IV UoM'                'L'.
    WHEN 'OV_MEINH'.
      PERFORM set_screen_text USING 'OV UoM'                'L'.
    WHEN 'FLAT_INDIC'.
      PERFORM set_screen_text USING 'Flat Rate Ind.'        'L'.
    WHEN 'PRIC_INDIC'.
      PERFORM set_screen_text USING 'Price Ind.'            'L'.
    WHEN 'OV_PROP_QTY'.
      IF p_level = 1. "Summary report
*BEGIN OF TR#D03K935718
*        PERFORM set_screen_text USING 'OV avg. Prop. Qty'    'L'.
         PERFORM set_screen_text USING 'Avg Prop Qty Sub'    'L'. "RFC2917
*END OF TR#D03K935718
      ELSE.
        PERFORM set_screen_text USING 'OV Prop. Qty'         'L'.
      ENDIF.
    WHEN 'OV_PROP_RATE'.
      IF p_level = 1. "Summary report
*BEGIN OF TR#D03K935718
*        PERFORM set_screen_text USING 'OV avg. Prop. Rate $' 'L'.
         PERFORM set_screen_text USING 'Avg Prop Rate Sub' 'L'.    "RFC2917
*END OF TR#D03K935718
      ELSE.
        PERFORM set_screen_text USING 'OV Prop. Rate $'       'L'.
      ENDIF.
    WHEN 'OV_SUBMIT_QTY'.
      IF p_level = 1. "Summary report
*BEGIN OF TR#D03K935718
*        PERFORM set_screen_text USING 'OV avg. Submit Qty'    'L'.
         PERFORM set_screen_text USING 'Avg Qty Sub'    'L'.          "RFC2917
*END OF TR#D03K935718
      ELSE.
        PERFORM set_screen_text USING 'OV Submit Qty'         'L'.
      ENDIF.
    WHEN 'OV_SUBMIT_RATE'.
      IF p_level = 1. "Summary report
*BEGIN OF TR#D03K935718
*        PERFORM set_screen_text USING 'OV avg. Submit Rate $' 'L'.
        PERFORM set_screen_text USING 'Avg Rate Sub' 'L'.        "RFC2917
*END OF TR#D03K935718
      ELSE.
        PERFORM set_screen_text USING 'OV Submit Rate $'      'L'.
      ENDIF.
    WHEN 'IV_APPR_QTY'.
      IF p_level = 1. "Summary report
*BEGIN OF TR#D03K935718
*        PERFORM set_screen_text USING 'IV Avg. Appr. Qty'     'L'.
        PERFORM set_screen_text USING 'Avg Qty Pd'     'L'.     "RFC2917
*END OF TR#D03K935718
      ELSE.
        PERFORM set_screen_text USING 'IV Appr. Qty'          'L'.
      ENDIF.
    WHEN 'IV_APPR_RATE'.
      IF p_level = 1. "Summary report
*BEGIN OF TR#D03K935718
*        PERFORM set_screen_text USING 'IV Avg. Appr. Rate $' 'L'.
        PERFORM set_screen_text USING 'Avg Rate Pd' 'L'.   "RFC2917
*END OF TR#D03K935718
      ELSE.
        PERFORM set_screen_text USING 'IV Appr. Rate $'       'L'.
      ENDIF.
    WHEN 'OV_VERSN'.
      PERFORM set_screen_text USING 'OV Versn.'               'L'.
    WHEN 'IV_VERSN'.
      PERFORM set_screen_text USING 'IV Versn.'               'L'.
    WHEN OTHERS.
      gtw_fieldcat-ddictxt      = p_fieldcat-selddictxt.
ENDCASE.
*   Initialisation des Labels des entetes de colonne -------------------
gtw_fieldcat-no_out       = p_fieldcat-no_out.
gtw_fieldcat-emphasize    = p_fieldcat-emphasize.
gtw_fieldcat-fix_column   = p_fieldcat-fix_column.
gtw_fieldcat-icon         = p_fieldcat-icon.
gtw_fieldcat-no_zero      = 'X'.
gtw_fieldcat-do_sum       = p_fieldcat-do_sum.
ENDFORM.                    " set_alv_field_desc
*&      Form validate_period
*       text
*      -->P_S_CPUDT_LOW text
FORM validate_period USING value(p_period)
                      CHANGING p_low_date    TYPE d
                               p_high_date   TYPE d.
DATA: l_year(4),
        l_poper(2).
l_year = p_period(4).
l_poper = p_period+4(2).
READ TABLE it_period WITH KEY year = l_year
                                poper = l_poper
             ASSIGNING <fs_it_period>.
IF sy-subrc NE 0.
    MESSAGE e000 WITH text-e04.
ENDIF.
p_low_date = <fs_it_period>-start.
p_high_date = <fs_it_period>-end.
ENDFORM.                    " validate_period
*&      Form read_next_item
*       text
* --> p1        text
* <-- p2        text
FORM read_next_item TABLES pt_pvwty_dia     STRUCTURE wty_pvwty_dia
                     CHANGING p_index TYPE i.
p_index = p_index + 1.
*     Read next Item information ------------------------------
READ TABLE pt_pvwty_dia INDEX p_index
       ASSIGNING <fs_pvwty_dia>.
ENDFORM.                    " read_next_item
*&      Form get_the_submit_record
*       text
*      -->P_<LFS_PNWTYV_DIA>_HEADER_GUID text
*      -->P_<LFS_PNWTYV_DIA>_PREV_VERSION text
FORM get_the_submit_record USING    p_header_guid
                                     p_prev_version
                                     p_claim_no
                                     p_posnr.
DATA: l_nb_while       TYPE i,
        l_zaehk          LIKE konv-zaehk,
        l_submit_found(1).
* ... USD1092841 - Add Start
FIELD-SYMBOLS: <fs_submit_rec_vs3> TYPE tp_submit_records.
* ... USD1092841 - Add End
CLEAR: l_submit_found, l_nb_while.
READ TABLE it_submit_records
       WITH KEY header_guid = p_header_guid
                versn        = p_prev_version
       ASSIGNING <fs_submit_rec_vs2>.
WHILE sy-subrc = 0 .
    ADD 1 TO l_nb_while.
*   if more than 30 loop(endless loop), it means som

Hi Siddarth
As per query, if you want to display sums automatically when you report is displayed for the first time, you'll have to modify your field catalog a bit.
To acheive this, you need to identify the field for which the totals are calculated ex- for every new material num, or for every new documnet number etc.
once you have this info, you identify the field that has to be totaled.
then while building your fieldcatalog, set this parameter :
l_wa_fieldcat-do_sum     = 'X' for the field that has to be totaled.
and when you build a sort table then set this parameter:
l_t_sort           TYPE slis_t_sortinfo_alv.
l_s_sort-subtot    = 'X'. for the field for which totals are calculated.
Hope this helps.
Cheers
Ravish
Reward if helpful

Help Needed in Migrating Bill Management template

Hi All,
Pls let me know how to migrate the custom Bill Management template in Bill Presentment module from one instance to another instance.Is there any XDOLOADER commands available to migrate similar to RTF template?
Your help in this regard is much appreciated.
Regards,
Rajesh

Not sure what exactly you want. But please do have a look at the blog http://apps2fusion.com/at/51-ps/306-moving-xmlbi-publisher-components-between-instances which has details of moving all components related to xmlp report

Help required on APO report

Hi.. I m developing an APO object for the first time. It's a Report.
Please explain me the logic... it's an APO development.
First answer a few questions of mine, before getting into the logic.
1. how do we fetch data from APO database? Using normal SELECT query, or.. ?? Please give an example.
2. what does " Characteristic ZTIL for MPOS ZB_TRL STRUCTURE: /BIC/VZB_TRL2 " mean?? It's given in the Source System Table column of Func. Spec., from where I have to Select the field ZTIL.
3. Can u give me a comparison of normal R/3 dbase, and the APO database? And, in what fashion the data is stored.
4. Please give me useful links that will help me in APO development.
To explain you a bit about the Data Element Cross Reference section of the report..
There are 2 tables given for each field, one related to RL and other related to TC planning area, except those fields whose Source Table is " Characteristic ZTIL for MPOS ZB_TRL STRUCTURE: /BIC/VZB_TRL2 ". So, the Data Element Cross Reference section is a combination of fields that come from 2 tables each & and fields that come from " Characteristic ZTIL for MPOS ZB_TRL STRUCTURE: /BIC/VZB_TRL2 ".
Q: Can u tell me why 2 tables are given for a single field?
Q: How do we work with a single field from 2 tables?
Now, coming to the logic of the development..
Logic required wherein IDENTICAL Material numbers in both RL / TC planning areas are flagged as exceptions.
The logic has to be written for a field, which comes from two source tables. In the output of the report, this field should show 'RL' if it comes from the table related to RL planning area, and should show 'TC', if it comes from the TC planning area table. Now, we have MATNR in " Characteristic ZMT for MPOS ZB_TRL STRUCTURE: /BIC/VZB_TRL2 ". So, what logic should be applied so that it shows identical MATNRs in RL and TC rows, in output??
Thanks a lot in advance.

Thanks so much for replying to my Query, Priya...
The functional Consultant is saying that MPOS is not a table, also, the terms which I had referred to as TABLES in my post, are not tables, it seems. These are Live Cache data, he says.
Do you have any idea what Live Cache is, and how to deal with it(access data from it)?
When I searched for Live Cache access related info today. I found out that, to read data from Live Cache, you need to use SAP delivered Standard BAPIs. Please share some knowledge about it.
Priya, it would be good if you could give me your Yahoo Chat ID, as I m badly in need of help. I will be online 9 - 6 PM, India Standard Time. My Yahoo ID is puerto_rico_thug555
Thanks again..

Help Required in Trade Promotion Management

Hi ,
Can anybody suggest or send document related to Trade Promotion Management Configuration since i have requirement for the same...
Thanks & Regards,
Prakash S.

Hi,
The below blog lists out the configurations for TPM.
>http://sapcrmtutorial.blogspot.de/2012/07/tpm-trade-promotion-management.html
Also, go through below link.
http://help.sap.com/saphelp_crm700_ehp01/helpdata/en/0d/312ec0383f495c8740d9bde7fa81b2/content.htm?frameset=/en/0d/312ec0383f495c8740d9bde7fa81b2/frameset.htm&current_toc=/en/51/6b5203723746dd8f02ba87183c619a/plain.htm&node_id=4
If you have Sol Man installed in your project, you might find configuration documents over there. Also, there should be implementation guide provided to your client when they purchased TPM There is no ConfigGuide for TPM yet.
Hope this helps!
Regards,
Len.

Urgent help required related to login management

Dear Friends,
I have a requirement in which i am stuck.
i would like to explain with a example
The requirement is a unique login in a web application.
Say a user has logged in with a name [ tom ] on machine 1.
Now the user with the name [ tom ] should be allowed to be logged in from other machine say machine 2 and only if the user with [ tom ] has logged off from machine 1 then only we can log in with the user name
[ tom ] from on machine 2.
How is it possible in a web application using jsp servlets and form beans.
Thanks in advance and replies are invited . Its a urgent matter.

Hi Raj,
The best solution what i think would be is as follows
Every infotype will have a customer include starts with CI_P* which gives the capacity to include the new customer fields.
Eg : for P0001 it is CI_P0001.
we need to create a custom screen to handle the custom field. You can check the table T582C for the custom screens.Then your new custom screen is included to the infotypes in the above said table.
Once the Customer include is enhanced and added a field, then we need to go and do the field level configuration to make sure that the your new field appears when you go to specific infotype in PA30.
Make sure the custom field is a Input field. If it is not the Input field you BDC will fail.
Hope this helps. If so reward.
Thanks
Shyam

Help required with oracle user management

My requirement is to hide the developer toolbar that shows at the bottom of all the pages in the application. This happens when I log into the application as an administrator or a developer. When I try logging in as an end user, who does not have developer or administrator privileges, I get a message saying that " Access denied by application security check". This problem does not depend on whether I use apex security or database security for my application, in both the cases, as soon as I login to the worksapce with a user account, this message is displayed. Please help me out. Any sort of help will be appreciated.
Message was edited by:
shantanu

Hi Shantanu
When you log in to the workspace, the URL will end with something like: /pls/htmldb/f?p=4550 (it may also end with /pls/htmldb/htmldb_login)
To log in to your application, you need to change the final number to the number of your application. For example, if your application is number 105, then change the end of the URL to: /pls/htmldb/f?p=105.
Your application should have a login page (typically, Page 101) which should be loaded as soon as the user tries to get to your application.
Regards
Andy

Help required in ISA user management

Hi! Gurus..........
I have created an BP in the role contact person and for this BP I have created an internet user , the internet user is created and the role is also asigned to it...............now the issue is when I am going to the transaction BP the address in displayed for this BP as well as in transaction SU01, but when I am going to ISA user management its not showing the address for this BP created..............
Please provide ur valuable inputs so that i can proceed futher...I am really new to this so please try to understand the question..

I found this in a thread written by Gerhard Djuracek from SAP, perhaps it will help you:
We distinguish 3 categories of addresses.
Addresscategory 1, address for organisations
Addresscategory 2, address for persons
Addresscategory 3, address on a relationship.
The address on a relationship is built of an address from an organisation. But it's not the whole address from that specific organisation, it's only, let's call it the postal part. Things like street, city, postal code and so on. The name part is taken from the person, which is involved in that relationship.
So we have here a mixture of Addresscategory 1 and Addresscategory 2. The communication data, we have only 3 communication categories on a
relationship, phone, fax and E-Mail address, is not taken from the organisation or the person's address. The communication data used on a relationship, is that one, which you can maintain in the section address data after having assigned an address to the relationship.
Any changes on any comm data of the organisation, will have no effect on the comm data of the relationship. Only changes on the address of the organisation, which will effect those fields, we called above the postal part of an address, will be taken into account for the address on the relationship.
In CRM, the contact person is a business partner of type person and can have many addresses of type 2, but only the standard address is
exchanged with the home address in the R/3 system. If you create a relationship of category 'contact person', you can have an address of type 3 for every address of the customer, but only the standard address of type 3 is exchanged with the contact person's address of type 3 in R/3.
The concept of the business address does not exist in CRM. If a contact person is working for different customers, you create different relationships of category 'contact person' instead of creating a business address.
Hope this information is helpful.
Regards, Gerhard

Urgent help required in migration

Hello,
I am stuck on 77% of r3load process my all 15/16 processes are finished successfully only one process has failed I have cut paste the log (SAPAPPL1.log) below of the same. Request your urgent help.
DbSl Trace: Connecting via TNS_ADMIN=/oracle/F01/920_64/network/admin, tnsname=F01
DbSl Trace: Got NLS_LANG=AMERICAN_AMERICA.US7ASCII from environment
DbSl Trace: Now I'm connected to ORACLE
DbSl Trace: Database instance F01 is running on e027pae0 with ORACLE version 9.2.0.7.0
trying to restart import ###
(RIM) INFO: table "BKPF" truncated
restart finished ###
#START: 20070530101004
TAB: BKPF
(RD) ERROR: missing last block number for table "BKPF" in directory file "/sapcd/EXPDIR/DATA/SAPAPPL1.TOC"
#STOP: 20070530101004
Thanks & Regards,
Bhushan

Did you split the files?
It seems that export file for this table got corrupt.
Unfortunately, you ahve to start again. I had a similar problem and had to do it again.

Migrating SQL Management Data Warehouse to a new server

Is there a defined path for migrating a Managment Data Warehouse to a instance?
Does Microsoft provide any scripts for this? Is it a case of backing up and restoring databases to the new instance? And what about all the data collection sets running on the monitored instances? Do we have to re-point these to the new instance hosting
the MDW individually by logging on teach monitored instance? Or can we do this globally somehow?
Thanks.

Hi NiborTrassam,
Sorry the delay.
To migrate the Management Data Warehouse, you can back up the MDW database, and restore it on the new instance. Then, on the new instance, you need to start the Configure Management Data Warehouse Wizard to create a Management Data Warehouse based on the
migrated MDW database, as well as upgrade the login mapping if necessary.
On each instance that is monitored, you need to start the Configure Management Data Warehouse Wizard to setup new data collection to point to the MDW data warehouse on the new instance.
Regards,
Mike Yin
If you have any feedback on our support, please click
here
Mike Yin
TechNet Community Support

Using BIPublisher excel template in ADF application

Hi everyone,
Like the subject, I want to export excel reports from an **excel template** within ADF application. After searching around, I found **ExcelProcessor** class seem to be able to do the job, but it got no docs. And forums like this don't have much information. So I wonder if this job can be done smoothly using supported class, or we have to use another solution, like create a RTF template and use it instead?
Thanks in advance,
Regards,
VnMa

Hi Puthanampatti ,
RTF is fine. But it don't have features that excel format support: the multi-sheets reports, freeze cell ability, formulas, comments... Just thinking it's really great if we can use an excel template directly.
Edited by: minh_an on 19:43 21-02-2013

SSRS 2012 - Groups in Report Manager aren't present when exported to Excel

Hi all, hope somebody can help with this issue, as I cant seem to find any other posts about it
I have a report in SSRS2012. It was copied from SSRS2005 quite recently, as we have upgraded. The SQL developer said that it didn't need any code changes, as he had some kind of tool to test code problems between the two versions.
The report has a table, with 5 row groups, and one detail row. The table is setup as follows:
Name                                         Sales
Costs       Profit
Group1
   Group2
      Group3
         Group4
            Group5
               DetailsRow
When I run this report using the Report Manager website from SSRS2005, and then export to Excel 2013, I get the 6 row groups in Excel, no problem whatsoever. I can drill into each group in Excel, using the group drilldown column on the left hand side. This
works the same as the Report Manager website.
If I run the exact same report from the Report Manager website in SSRS2012, the Report Manager result is the same as SSRS2005 - all the row groups are present, and the drilldown works fine. However, the export to Excel has issues with the groups. There are
only 3 row groups showing in Excel, along with a column group added for no apparent reason. Drilling into each group shows inconsistent details, and there is no apparent logic as to what is shown within each group.
Hopefully, someone has seen this issue before, and can help, because I have no idea what to do, having spent a couple of days trying to figure it out. I should also mention, that this issue with groups is seen on all my reports which have groups, not just
this report
Thanks for any and all help
Naz

Hi Naz,
According to your description, the report works correctly in SSRS 2005 while the same report doesn’t work in SSRS 2012 when exporting to a Excel file.
In your scenario, please make sure you are migrating the report from SSRS 2005 to SSRS 2012 instead of copying the .rdl directly. Generally, we are using Reporting Services Migration Tool to migrate reports between report server. Please refer to this article:
SQL Server Reporting Services: Migrating SSRS reports, data sources and subscriptions from one server to another.
After migrating the report successfully, you should upgrade the report definition in SQL Server Data Tools to upgrade the .rdl file. Please refer to this article:
Upgrade Reports.
If you have upgraded the report but the issue still persists, please provide report design for our analysis. If possible, please provide some screenshots about the preview result and Excel render result.
If you have any question, please feel free to ask.
Best regards,
Qiuyun Yu
Qiuyun Yu
TechNet Community Support

I am using report generation toolkit 1.1 with Labview 7.0 and Office 2003 professional. The create new report VI opens Excel but throws error (-2147167262- from automation open VI) when I try to open MS word. please help...

I am using report generation toolkit 1.1 with Labview 7.0 and Office 2003 professional. The create new report VI opens Excel but throws error (-2147167262- from automation open VI) when I try to open MS word. please help...

Hi Leo22,
Does this error occur if you use any of the example programs that come shipped with LabVIEW? I would try opening one of the examples that write data to Word and see if those give you an error. Also, have you tried just putting down a New Report.VI and change the report type to Word? If this simple vi (that's all you need to open Word) breaks, I would check to see if there are any instances of Word still open. Check the task manager to see if any word processes are still open. There should not be a problem accessing Word 2003 from LabVIEW 7.0. If neither of these solutions work, please give some more detail about your application and we can research further. Thanks!
Jeremy L.
National Instruments
Jeremy L.
National Instruments

Help require to migrate Report Manager(FSG)Excel Templates across Instances

Similar Messages

Maybe you are looking for