Help in Reports 9i REP_UTIL.PLL (Urgent)

Hi,
I developed a report in Reports 9i, i want to use REP_UTIL.PLL to use some javascript in report. I am using JSCRIPTOPEN function in it. But dont know how to use it and where to use it. And secondly i want to make a ROLLOVER button. i used WEBREP.ROLLOVER_BUTTON on formate trigger of an image item, but on deployment when i test it in browser it is saying Page with errors.
Help me how to use this utility and how can i use a JAVAscript in page. (I am not using JSP report)
Thnaks in advance.
Usman Rana

check out the assiciated readme on otn.
http://otn.oracle.com/products/reports/htdocs/getstart/examples/Tools/REP_UTIL/readme.html
regards,
philipp

Similar Messages

PO Version Log report....Urgent

Hi Experts,
I have to create a PO version log report, which should display old values and new values for each version of PO.
Values we can get using tables CDHDR and CDPOS but it table CDHDR is not saving version number. Version Number we can get from table EREV.
We can use FM CHANGEDOCUMENT_READ_HEADERS for ObjectID etc which takes values from cdhdr &
CHANGEDOCUMENT_READ_POSITIONS for old and new values whch takes values from cdpos.
But the problem is i am not getting how to match these tables to get exact values.
The code i have written using these FM is giving repeted values. means for each version it is giving same values, which is not right.
code is like ...
LOOP AT it_ekko where revno GE '00000001'.
    ebeln1     = it_ekko-ebeln.
    date_from = p_chadt-low.
    date_until = p_chadt-high.
    REFRESH it_cdhdr.
    CALL FUNCTION 'CHANGEDOCUMENT_READ_HEADERS'
      EXPORTING
        ARCHIVE_HANDLE                   = 0
        date_of_change                   = date_from
        objectclass                      = 'EINKBELEG'
        objectid                         = ebeln1
        TIME_OF_CHANGE                   = '000000'
        username                         = ' '
        LOCAL_TIME                       = ' '
        date_until                       = date_until
        TIME_UNTIL                       = '235959'
        NOPLUS_ASWILDCARD_INOBJID        = ' '
      TABLES
        i_cdhdr                          = it_cdhdr
     EXCEPTIONS
        no_position_found                = 1
        wrong_access_to_archive          = 2
        time_zone_conversion_error       = 3
        OTHERS                           = 4.
    IF sy-subrc <> 0.
      CONTINUE.
    ENDIF.
    LOOP AT it_cdhdr WHERE username IN p_chaby."
      REFRESH it_cdred.
      CALL FUNCTION 'CHANGEDOCUMENT_READ_POSITIONS'
        EXPORTING
          ARCHIVE_HANDLE                = 0
          changenumber                  = it_cdhdr-changenr
        TABLES
          EDITPOS                       =
          editpos_with_header           = it_cdred
        EXCEPTIONS
          no_position_found             = 1
          wrong_access_to_archive       = 2
          OTHERS                        = 3
      IF sy-subrc <> 0.
        MESSAGE i001(319) WITH 'No change!'.
      ENDIF.
      LOOP AT it_cdred.
*------get vendor name in final table by passing vendor code.
        CALL FUNCTION 'MC_VENDOR_TEXT_SINGLE_READ'
          EXPORTING
            i_lifnr   = it_ekko-lifnr
          IMPORTING
            e_lifname = it_final-lifnr.
        CALL FUNCTION 'ZHZLMM_REASON_TEXT'
          EXPORTING
            i_rscod         = it_ekko-rscod
          IMPORTING
            E_TEXT          = it_final-rstxt
          EXCEPTIONS
            NOT_FOUND       = 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.
*------pass all values to final table to display in ALV
        MOVE-CORRESPONDING it_cdred TO it_final.
        it_final-revno    = l_erev-revno.
        it_final-werks    = it_ekko-ekorg.
        it_final-revok    = it_ekko-revok.
        it_final-ebeln    = it_ekko-ebeln.
        it_final-ernam    = it_ekko-ernam.
        it_final-erdat    = it_ekko-erdat.
        it_final-eruhr    = it_ekko-eruhr.
       it_final-rscod    = it_ekko-rscod.
        it_final-netwr    = it_ekko-netwr.
        it_final-difwr    = it_ekko-difwr.
        it_final-waers    = it_ekko-waers.
        it_final-txz01    = it_ekko-txz01.
        it_final-crnam    = it_ekko-crnam.
        it_final-fgnam    = it_ekko-fgnam.
        it_final-fgdat    = it_ekko-fgdat.
        it_final-fguhr    = it_ekko-fguhr.
        APPEND it_final.
        CLEAR it_final.
      ENDLOOP.
      CLEAR ebeln1.
    ENDLOOP.
ENDLOOP.
Please help me as it is very urgent.
Regards,
Nik

Hi Nikhil,
I too need the PO versions information, the old values, new values and which were all the fields changed in every versions.
I need each and every data changed in all versions.
Could you please help me by giving the complete logic or what you have done in your case.
Thanks in Advance.
Regards,
Prabhu

Cascading (dependent) parameters and REP_UTIL.PLL bug

Using Report 10gR2, I found a bug in the REP_UTIL.PLL library that is found at:
http://www.oracle.com/technology/products/reports/htdocs/getstart/examples/tools/index.html
The Parameter_Cascade.Define function is supposed to handle the master plus 3 dependent parameters (4 total parameters). Everything works as expected with 2 dependent parameters but adding a 3rd results in that 3rd parameter not populating it's LOV. By examining the source in the browser, I found the two syntax errors which cause the problem (in the function GetDetailInfo, and in function LoadDetail - code doesn't post here correctly because of brackets).
When I make the changes in the source and run it again in my browser, the 3rd dependent parameter works fine. Of course, I cannot change the functions in the compiled library REP_UTIL.pll so...
My questions are:
1) Does anyone know where I can get a REP_UTIL.PLL that is newer than 13-FEB-2002 09:34am ? (the one from the Oracle link I posted above)
2) Does anyone know where I can the .PLB file that I could modify and recompile?
Thanks.

Doh! You're brilliant! I must have been too tired to think straight last night. I changed it with Forms Builder, loaded it to the reports server, and it works great.
Thank you!

Creation of report with the help of report painter

Dear Experts,
I need report painter material, if any body have pls farward to me.
my intension to create controlling report with the help of report painter.
I am ready to award full points.
Thanks in advance
Regards
avudaiappan
Moderator - Please read this:
/thread/931177 [original link is broken]
Thread locked

Hello Chinasammy,
Report Painter allows you to create reports using data from SAP application components, which you can adapt to meet your individual requirements.
Many of your reporting requirements can already be met by using the standard reports provided by various SAP application components. If these SAP standard reports do not meet your reporting needs, Report Painter enables you to define your specific reports quickly and easily.
When executing a Report Painter report, it is displayed by the system in Report Writer format. You thus have access to the same functions as for Report Writer reports defined in the same way, and can combine Report Painter and Report Writer reports together in a report group.
Report Painter uses a graphical report structure, which forms the basis for your report definition and displays the rows and columns as they appear in the final report output.
To facilitate report definition, you can use many of the standard reporting objects provided by SAP (such as libraries, row/column models, and standard layouts) in your own specific reports. When you define a Report Painter report you can use groups (sets). You can also enter characteristic values directly.
Advantages of Report Painter include:
Flexible and simple report definition
Report definition without using sets
Direct layout control: The rows and columns are displayed in the report definition as they appear in the final report output, making test runs unnecessary.
=============================================
Below mentioned is the process for creating reports using Report Painter as a tool.
Selecting and maintaining a library for your report: As the transfer structure to Report Painter you use a report table, which is defaulted by SAP and can not be maintained. This table contains characteristics, key figures and predefined columns. In a library, you collect the characteristics, key figures, and predefined columns from the report table, which you need for your Report Painter reports.
When you define a Report Painter report, you assign it to a library. Reports assigned to one library can only use the characteristics, key figures, and predefined columns selected for that library.
When you create or maintain a library, the Position field determines the sequence in which the characteristics, key figures or (predefined) key figures appear in the Report Painter selection lists when you define a report. This allows you to position the objects that you use regularly in your reports at the beginning of the selection lists. If you do not make an entry in the Position field, you will not be able to use this object in Report Painter reports.
You can use either the standard SAP libraries for your reports or define your own.
(ii) Selecting or maintaining a standard layout for your report: Standard layouts determine report layout features and the format of your report data.If the SAP standard layouts do not meet your reporting requirements, you can create a new standard layout or change an existing one.
(iii) Defining row and column models: A model is a one-dimensional, predefined reporting structure that you can insert in either the rows or columns of your report.If you often use the same or similar row or column definitions in your reports, it is recommended that you create row or column models.
You must define the row and/or column models that you want to include in your report definition before you define the report.
You can also use the standard column models supplied by SAP.
(iv) Defining the report: Defining a Report Painter report involves the following steps.
(a) Define the report columns: You define the report columns using the characteristics, key figures, and predefined columns selected for the library that the report uses. Alternatively, you can use a column model for column definition. Column models are predefined column structures which you insert into your entire column definition, instead of defining each individual column.
(b) Define the report rows: You define the report rows using the characteristics selected for the library selected for the report.
Alternatively, you can use a row model for your row definition. Row models serve the same purpose as column models, but are used to define a report row.
Edit and format the report rows and columns in line with your requirements. (For example, you can hide rows or columns, define the column width or define colors for your report rows).
(iii)Define general data selection criteria for the selection of your report data: Selection criteria are the characteristics used to select data for the entire report. You cannot enter characteristics as data selection criteria if they are already being used in the report rows or columns.
(iv) Assigning the report to a report group: Once you have defined a report, you must assign it to a report group. A report group can contain one or more reports from the same library. However, reports that share the same data will select data more quickly and improve processing time.
Hopw this helps you. Please let me know if you need anything more and assign points.
Rgds
Manish

Help: calling report from report in report 9i

Background:
1. Report Builder 9i and the outputs are PDF files;
2. Report A and Report B both have two identical parameters: P1 and P2;
3. Calling Report A through FORM using web.show_document() with paraform=YES,
Help:
If Report B can be called from Report A, the parameters P1, P2 passed through calling report A, the user then needs not to enter twice P1 and P2 using web.show_document().
Wishful way of thinking:
The Calling FORM refered here is the one that provides all buttons for more than 20 reports and that is the reason of using parameter form. Consequently, I am looking for ways of making:
Calling FORM -> REPORT A -> REPORT B
where both Report A and B have same parameters, calling FORM calls REPORT A using REPORT A parameter form and hoping that REPORT A can call REPORT B with these parameters.
Any help are greatly appreciated.
Jimmy

I tried something in Before Report trigger like:
function BeforeReport return boolean is
begin
srw.run_report('batch=yes sf1='||:pf1 || 'sf2='||:pf2 || ' report=REPORT_B destype=cache desformat=pdf');
return (TRUE);
end;
An error raised as: REP-1428: 'beforereport': Error while running SRW.RUN_REPORT.
Here sf1, pf1 and sf2, pf2 and two pairs of identical parameters.
Any suggestions?

Assign Search help in report program

Dear All,
I facing problem to assign search help in report program.
I crated one elementary search help in which three fields i include
-carrid
-carrier name
-booking
all three fields having import and export parameter in search help.
while executing this search help in se11 it gives proper output.
but while assigning this search help in report program it only fetch one carried.
my report is also having three parameter
-carrid
-carrier name
-booking
i assign search help like
PARAMETER : p_carrid TYPE scarr-carrid
                           MATCHCODE OBJECT z01_carrid,
with all three field but it fetch only carrid ...

Hi Chintan,
For such types of requirements you can use this Function Module:
F4IF_INT_TABLE_VALUE_REQUEST.
Use this functiom modue under AT SELECTION-SCREEN ON HELP-REQUEST FOR P_CARRID.
With this function module, you can fill your remainng parameters : P_carriername and booking also.
Sample Code:
     DATA : TMP_RETURN_TAB LIKE TABLE OF DDSHRETVAL,                                TMP_RETURN      LIKE DDSHRETVAL,
                TMP_FIELD       TYPE DFIES-FIELDNAME.
CASE AKIND.
   WHEN '1'.
     TMP_FIELD = 'AENNR'.
   WHEN '2'.
     TMP_FIELD = 'VBELN'.
   WHEN '3'.
     TMP_FIELD = 'ZZTEHAI'.
ENDCASE.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
   EXPORTING
     RETFIELD               = TMP_FIELD
     WINDOW_TITLE           = ATITEL
     VALUE_ORG              = 'S'
   TABLES
     VALUE_TAB              = ATABLES
     RETURN_TAB             = TMP_RETURN_TAB
   EXCEPTIONS
     PARAMETER_ERROR        = 1
     NO_VALUES_FOUND        = 2
     OTHERS                 = 3.
IF SY-SUBRC = 0.
    READ TABLE TMP_RETURN_TAB INDEX 1 INTO TMP_RETUN.
    AVALUE = TMP_RETURN-FIELDVAL.
ENDIF.
Jus analyze this code, you can get ur requirement done.
Regards
Sandeep Reddy

OTN TEAM Please respond-matrix reports row limitation(very urgent)

Hi ,
using with matrix reports for delimited reports what's the maxmimum row limitation for text and excel?
thanks in advance.
please advice asap.
thx in advance.

See response in OTN TEAM Please respond-matrix reports row limitation(very urgent)

Creating search help through reports

Hello experts,
Is there a method so that I can create search help through reports?
Thanks,
Mohit.

hi,
we can create F4 help through report and also we can create Input Help from the ABAP Dictionary .
please check this link for Input Help from the ABAP Dictionary .
http://help.sap.com/saphelp_nw04/helpdata/en/9f/dbaa5435c111d1829f0000e829fbfe/content.htm
and for F4 help in reports you can use some function modules:
select-options :                 so_selgp FOR t458a-selgp /
AT SELECTION-SCREEN ON VALUE-REQUEST FOR so_selgp-low .
REFRESH gt_auskt[].
here insert select query to fill your internal table .
IF so_selgp[] IS NOT INITIAL.
    DELETE gt_t458a1 WHERE selgp NOT IN so_selgp[].
ENDIF.
SELECT aussl auslt FROM t458b INTO CORRESPONDING FIELDS OF TABLE gt_t458b WHERE spras = 'E'.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
    DDIC_STRUCTURE         = ' '
      retfield               = 'SELGP'
    PVALKEY                = ' '
     dynpprog               = 'ZPPGL_MRP_LIST '
     dynpnr                 = '1000'
     dynprofield            = 'SO_SELGP'
     value_org              = 'S'
IMPORTING
    USER_RESET             =
    TABLES
      value_tab              = gt_auskt   " internal table.
EXCEPTIONS
    PARAMETER_ERROR        = 1
    NO_VALUES_FOUND        = 2
    OTHERS                 = 3

Table SOFFCONT1 to an external repository with help of report RSIRPIRL

Hi experts,
I have to relocate data from table SOFFCONT1 to an external repository with help of report RSIRPIRL...I went through all related Sap notes and it seems pretty straightforward.
When I run the report RSIRPIRL I see all the fields I have to fill up (I have already created an content repository as well as a catalogue) but my question is how to select some data manually for testing purpose? Is it any way how to see from table SOFFCONT1 just 1 file for example?? I couldn't see that field in the report RSIRPIRL.
Regards,
Blaiso

Applied OSS note 1536325 which will add an extra field to select by date and narrow the number of documents to test

Please Help in this webcam problem,Its Urgent

Hi,
I have a final yr project by which I can see the picture(whenever I want) of a webcam of a Home PC from my mobile device.
For that I have to write a Java program which will capture the picture from webcam and changed the file format to PNG and then saved it to some directory.Whenever I will run the Java program it will automatically save a picture in the directory and it will do continuously after 5 sec and overwrite the older picture.
Can anyone help me with the code or some sorts of code.
Please help me as it is quite urgent.

Sorry, this forum is for solving specific problems, not for begging for help. If you have a specific problem you need help with, then ask...but I doubt anyone is going to put in the time to help you with a project you havn't put in the time to have specific problems with.

Hello, I want to switch form a individual account to a team/business account? Can you please help me? I need this urgent Thank you!

Hello, I want to switch form a individual account to a team/business account? Can you please help me? I need this urgent Thank you!

Hi Koen,
Please refer the following help article under "Purchasing Creative Cloud for Team".
Creative Cloud Help | Creative Cloud for teams
Hope this helps.
Regards,
Sumit Singh

[Urgent Help Required] Report not displaying

Dear All,
Please help me with a issue in running report from form. I am using the following code to run a report from a form. The issue is that when i click the button i get all the success messages which are in the code and a new browser window opens but my report is not displaying. Please can any one help me with this issue. I have to submit my project with a week so this is very urgent.
This is the code I am using:
DECLARE
     v_report_id Report_Object;
     vc_report_job_id VARCHAR2(100); /* unique id for each Report request */
     vc_rep_status VARCHAR2(100); /* status of the Report job */
BEGIN
     /* Get a handle to the Report Object itself. */
     v_report_id:= FIND_REPORT_OBJECT('REPORT7');
     message ('report found');
SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_COMM_MODE, SYNCHRONOUS);
     SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESTYPE,cache);
     SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_DESFORMAT,'HTML');
     SET_REPORT_OBJECT_PROPERTY(v_report_id,REPORT_SERVER, 'repserver90');
     vc_report_job_id:=RUN_REPORT_OBJECT(v_report_id);
     message (vc_report_job_id);
     vc_rep_status := REPORT_OBJECT_STATUS(vc_report_job_id);
     message (vc_rep_status);
IF vc_rep_status='FINISHED' THEN
     web.show_document 'http://localhost:8888/reports/rwservlet/getjobid='||vc_report_job_id ||'?server='|| 'repserver90','_blank');
     ELSE
          message ('Report failed with error message '||vc_rep_status);
     END IF;
END;

Any Help in this Regards will be highly appreciated

Urgent help in report

hi,
i am begineer in oracle apps
i am facing a problem like this
i design a report in developer having a parameter p_date. i upload it into apps server and i want to
assign FND_STANDARD_DATE value_set to it. This will be used to set the "As of Date" value that user had requested.
please help me what is the next step i followed
please detail describe it

If you are planning on running this report as a concurrent program, then you will have to register this report (EXECUTABLE AND PROGRAM DEFINITION).
Under the Program difinition, while defining the report parameters, you can assign the required valueset.
This is a standard method and the documentation,if needed, should be easily avialable.

Urgent help ALV report

HI,
report zhr2.
tables:pernr.
type-POOLs:slis.
INFOTYPES:0001,0004,0041.
data: begin of itab,
      pernr type pernr-pernr,
      MASSN type p0000-MASSN,
      STAT2 type p0000-STAT2,
      STAT3 type p0000-STAT3,
      PLANS type p0001-plans,
      WERKS type p0001-werks,
      PERSG type p0001-PERSG,
      PERSK   type p0001-PERSK,
end of itab.
data:it_itab type STANDARD TABLE OF itab,
     wa_itab like itab.
DATA: alv_fieldcat TYPE slis_t_fieldcat_alv,
      alv_layout TYPE slis_layout_alv.
DATA: filled_lines LIKE sy-index,
      stru_disvar TYPE disvariant.
select-options:s_pernr for pernr-pernr.
start-of-SELECTION.
get pernr.
describe table p0001 lines filled_lines.
if filled_lines gt 0.
rp_provide_from_last p0001 space pn-begda pn-endda.
clear wa_itab.
move-CORRESPONDING p0001 to wa_itab.
append wa_itab to it_itab.
if pnp-sw-found eq 0.
   reject.
   endif.
endif.
end-of-SELECTION.
PERFORM fieldcat_init USING alv_fieldcat.
alv_layout-colwidth_optimize = 'X'.
alv_layout-zebra             = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
        I_INTERFACE_CHECK        = ' '
        I_BUFFER_ACTIVE             = ' '
            i_callback_program       = 'ZHR2'
        I_CALLBACK_PF_STATUS_SET = ' '
        I_CALLBACK_USER_COMMAND = ' '
        I_CALLBACK_TOP_OF_PAGE      = ' '
        I_CALLBACK_HTML_TOP_OF_PAGE = ' '
        I_CALLBACK_HTML_END_OF_LIST = ' '
         I_STRUCTURE_NAME         = 'ITAB'
        I_BACKGROUND_ID             = ' '
          I_GRID_TITLE                = 'Date Specifications'
        I_GRID_SETTINGS             =
            is_layout              = alv_layout
            it_fieldcat            = alv_fieldcat
        IT_EXCLUDING             =
        IT_SPECIAL_GROUPS        =
        IT_SORT                  =
        IT_FILTER                =
        IS_SEL_HIDE              =
         I_DEFAULT                = 'X'
         I_SAVE                  = 'A'
         IS_VARIANT              = stru_disvar
        IT_EVENTS                =
        IT_EVENT_EXIT            =
        IS_PRINT                 =
        IS_REPREP_ID             =
        I_SCREEN_START_COLUMN    = 0
        I_SCREEN_START_LINE      = 0
        I_SCREEN_END_COLUMN      = 0
        I_SCREEN_END_LINE        = 0
        IT_ALV_GRAPHICS             =
        IT_ADD_FIELDCAT             =
        IT_HYPERLINK                =
   IMPORTING
        E_EXIT_CAUSED_BY_CALLER =
        ES_EXIT_CAUSED_BY_USER   =
TABLES
            t_outtab               = it_itab
      EXCEPTIONS
          program_error            = 1
          OTHERS                   = 2.
IF sy-subrc = 1.
    WRITE: 'Program error'(002).
ENDIF.
FORM fieldcat_init USING p_fieldcat
          TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PERNR'.
ls_fieldcat-ref_tabname = 'PERNR'.
ls_fieldcat-key         = 'X'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'MASSN'.
   ls_fieldcat-ref_fieldname = 'MASSN'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'STAT2'.
   ls_fieldcat-ref_fieldname = 'STAT2'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'STAT3'.
ls_fieldcat-ref_tabname = 'STAT3'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PLANS'.
   ls_fieldcat-ref_fieldname = 'PLANS'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'WERKS'.
ls_fieldcat-ref_fieldname = 'WERKS'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PERSG'.
ls_fieldcat-ref_fieldname = 'PERSG'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PERSK'.
ls_fieldcat-ref_fieldname = 'PERSK'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
ENDFORM.
IT is going dump plz can any one help in this .
Thanks and regards,
Vamshi

HI,
report zhr2.
tables:pernr.
type-POOLs:slis.
INFOTYPES:0001,0004,0041.
data: begin of itab,
      pernr type pernr-pernr,
      MASSN type p0000-MASSN,
      STAT2 type p0000-STAT2,
      STAT3 type p0000-STAT3,
      PLANS type p0001-plans,
      WERKS type p0001-werks,
      PERSG type p0001-PERSG,
      PERSK   type p0001-PERSK,
end of itab.
data:it_itab type STANDARD TABLE OF itab,
     wa_itab like itab.
DATA: alv_fieldcat TYPE slis_t_fieldcat_alv,
      alv_layout TYPE slis_layout_alv.
DATA: filled_lines LIKE sy-index,
      stru_disvar TYPE disvariant.
select-options:s_pernr for pernr-pernr.
start-of-SELECTION.
get pernr.
describe table p0001 lines filled_lines.
if filled_lines gt 0.
rp_provide_from_last p0001 space pn-begda pn-endda.
clear wa_itab.
move-CORRESPONDING p0001 to wa_itab.
append wa_itab to it_itab.
if pnp-sw-found eq 0.
   reject.
   endif.
endif.
end-of-SELECTION.
PERFORM fieldcat_init USING alv_fieldcat.
alv_layout-colwidth_optimize = 'X'.
alv_layout-zebra             = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
        I_INTERFACE_CHECK        = ' '
        I_BUFFER_ACTIVE             = ' '
            i_callback_program       = 'ZHR2'
        I_CALLBACK_PF_STATUS_SET = ' '
        I_CALLBACK_USER_COMMAND = ' '
        I_CALLBACK_TOP_OF_PAGE      = ' '
        I_CALLBACK_HTML_TOP_OF_PAGE = ' '
        I_CALLBACK_HTML_END_OF_LIST = ' '
         I_STRUCTURE_NAME         = 'ITAB'
        I_BACKGROUND_ID             = ' '
          I_GRID_TITLE                = 'Date Specifications'
        I_GRID_SETTINGS             =
            is_layout              = alv_layout
            it_fieldcat            = alv_fieldcat
        IT_EXCLUDING             =
        IT_SPECIAL_GROUPS        =
        IT_SORT                  =
        IT_FILTER                =
        IS_SEL_HIDE              =
         I_DEFAULT                = 'X'
         I_SAVE                  = 'A'
         IS_VARIANT              = stru_disvar
        IT_EVENTS                =
        IT_EVENT_EXIT            =
        IS_PRINT                 =
        IS_REPREP_ID             =
        I_SCREEN_START_COLUMN    = 0
        I_SCREEN_START_LINE      = 0
        I_SCREEN_END_COLUMN      = 0
        I_SCREEN_END_LINE        = 0
        IT_ALV_GRAPHICS             =
        IT_ADD_FIELDCAT             =
        IT_HYPERLINK                =
   IMPORTING
        E_EXIT_CAUSED_BY_CALLER =
        ES_EXIT_CAUSED_BY_USER   =
TABLES
            t_outtab               = it_itab
      EXCEPTIONS
          program_error            = 1
          OTHERS                   = 2.
IF sy-subrc = 1.
    WRITE: 'Program error'(002).
ENDIF.
FORM fieldcat_init USING p_fieldcat
          TYPE slis_t_fieldcat_alv.
DATA: ls_fieldcat TYPE slis_fieldcat_alv.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PERNR'.
ls_fieldcat-ref_tabname = 'PERNR'.
ls_fieldcat-key         = 'X'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'MASSN'.
   ls_fieldcat-ref_fieldname = 'MASSN'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'STAT2'.
   ls_fieldcat-ref_fieldname = 'STAT2'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'STAT3'.
ls_fieldcat-ref_tabname = 'STAT3'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PLANS'.
   ls_fieldcat-ref_fieldname = 'PLANS'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'WERKS'.
ls_fieldcat-ref_fieldname = 'WERKS'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PERSG'.
ls_fieldcat-ref_fieldname = 'PERSG'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
CLEAR ls_fieldcat.
ls_fieldcat-fieldname = 'PERSK'.
ls_fieldcat-ref_fieldname = 'PERSK'.
ls_fieldcat-ref_tabname = 'P0001'.
APPEND ls_fieldcat TO p_fieldcat.
ENDFORM.
IT is going dump plz can any one help in this .
Thanks and regards,
Vamshi

Urgent........need help in report

hi all,
i need help in a report.
the requirement is ,
i need to create a report that will display the SO number in alv grid with check box.
from the list, if i select the check box, it should
     Perform VA02, go to the item detail (Sales) (RECORDING)
     Update the SO line items Pricing Date to PGI Date
HOW TO DO THIS.
PLEASE HELP ME
     Interactive Report
o     Report will generate a list of SO based on selection parameters
o     User is able to choose all or partial records from the list of SO
o     For the selected SO, user is able to perform one of the two functions:
     New Pricing based on Batch ID from Production Order
     New Pricing based on PGI Date
o     The result of the updating is displayed on the screen
     SO updated with success
     SO not updated due to error

Hi,
Check this SD MODULE alv intereactive report.
Hope it may helps u.
REPORT YMS_ALVINTER.
*& tables declaration
TABLES: VBRK,VBRP.
*& type-pools declaration
TYPE-POOLS: SLIS.
*& data declaration
DATA: G_REPID TYPE SY-REPID.
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, "mara
WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV,
WA_LAYOUT TYPE SLIS_LAYOUT_ALV,
WA_EVENT TYPE SLIS_ALV_EVENT,
T_EVENT TYPE SLIS_T_EVENT.
DATA: V_VBELN LIKE VBRK-VBELN,
V_MATNR LIKE VBRP-MATNR.
DATA: BEGIN OF IT_VBRK OCCURS 0,
VBELN LIKE VBRK-VBELN,
WAERK LIKE VBRK-WAERK,
VKORG LIKE VBRK-VKORG,
FKDAT LIKE VBRK-FKDAT,
BUKRS LIKE VBRK-BUKRS,
NETWR LIKE VBRK-NETWR,
END OF IT_VBRK.
DATA: BEGIN OF IT_VBRP OCCURS 0,
VBELN LIKE VBRP-VBELN,
POSNR LIKE VBRP-POSNR,
FKIMG LIKE VBRP-FKIMG,
VRKME LIKE VBRP-VRKME,
NETWR LIKE VBRP-NETWR,
MATNR LIKE VBRP-MATNR,
ARKTX LIKE VBRP-ARKTX,
END OF IT_VBRP.
*& selection screen
SELECTION-SCREEN BEGIN OF BLOCK B WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS: S_VBELN FOR VBRK-VBELN,
S_FKDAT FOR VBRK-FKDAT,
S_MATNR FOR VBRP-MATNR.
SELECTION-SCREEN END OF BLOCK B.
**INITIALIZATION.
INITIALIZATION.
G_REPID = SY-REPID.
S_FKDAT-LOW = SY-DATUM - 200.
S_FKDAT-HIGH = SY-DATUM.
APPEND S_FKDAT.
***AT SELECTION-SCREEN.
AT SELECTION-SCREEN.
IF NOT S_VBELN IS INITIAL.
    SELECT SINGLE VBELN FROM VBRK
    INTO V_VBELN
    WHERE VBELN IN S_VBELN.
    IF SY-SUBRC <> 0.
      MESSAGE E001(ZZ2).
    ENDIF.
ENDIF.
IF NOT S_MATNR IS INITIAL.
    SELECT SINGLE MATNR FROM MARA
    INTO V_MATNR
    WHERE MATNR IN S_MATNR.
    IF SY-SUBRC <> 0.
      MESSAGE E001(ZZ2).
    ENDIF.
ENDIF.
***START-OF-SELECTION.
START-OF-SELECTION.
PERFORM GET_DATA_VBRK.
*& Form GET_DATA_VBRK
text
--> p1 text
<-- p2 text
FORM GET_DATA_VBRK .
SELECT VBELN
WAERK
VKORG
FKDAT
BUKRS
NETWR
INTO TABLE IT_VBRK
FROM VBRK
WHERE VBELN IN S_VBELN
AND FKDAT IN S_FKDAT.
ENDFORM. " GET_DATA_VBRK
*& Form GET_DATA_VBRP
text
--> p1 text
<-- p2 text
FORM GET_DATA_VBRP .
SELECT VBELN
POSNR
FKIMG
VRKME
NETWR
MATNR
ARKTX
FROM VBRP
INTO TABLE IT_VBRP
WHERE VBELN = IT_VBRK-VBELN.
ENDFORM. " GET_DATA_VBRP
***END-OF-SELECTION.
END-OF-SELECTION.
PERFORM EVENT_LIST.
PERFORM GET_FIELD_CATALOG.
PERFORM LIST_DISP .
*&      Form list_disp
      text
FORM LIST_DISP .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_PF_STATUS_SET = 'POPUP'
I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT = WA_LAYOUT
IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = IT_VBRK
EXCEPTIONS
PROGRAM_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. " LIST_DISP
*& Form GET_FIELD_CATALOG
text
--> p1 text
<-- p2 text
FORM GET_FIELD_CATALOG .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = G_REPID
I_INTERNAL_TABNAME = 'IT_VBRK'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = G_REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
CT_FIELDCAT = IT_FIELDCAT
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3
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. " GET_FIELD_CATALOG
*& Form event_list
text
--> p1 text
<-- p2 text
FORM EVENT_LIST .
CLEAR WA_EVENT.
WA_EVENT-NAME = 'USER_COMMAND'.
WA_EVENT-FORM = 'USER_COMMAND'.
APPEND WA_EVENT TO T_EVENT.
CLEAR WA_EVENT.
ENDFORM. " event_list
*&      Form user_command
      text
     -->R_UCOMM    text
     -->RS_SELFIELDtext
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN '&IC1'.
      READ TABLE IT_VBRK INDEX RS_SELFIELD-TABINDEX.
      PERFORM GET_DATA_VBRP.
      PERFORM BUILD_FIELDCATALOG_VBRP .
      PERFORM DISPLAY_ALV_VBRP.
ENDCASE.
ENDFORM.                    "user_command
*& Form BUILD_FIELDCATALOG_VBRP
text
--> p1 text
<-- p2 text
FORM BUILD_FIELDCATALOG_VBRP .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = G_REPID
I_INTERNAL_TABNAME = 'IT_VBRP'
I_STRUCTURE_NAME =
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = G_REPID
I_BYPASSING_BUFFER =
I_BUFFER_ACTIVE =
CHANGING
CT_FIELDCAT = IT_FIELDCAT
EXCEPTIONS
INCONSISTENT_INTERFACE = 1
PROGRAM_ERROR = 2
OTHERS = 3
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. " BUILD_FIELDCATALOG_VBRP
*& Form DISPLAY_ALV_VBRP
text
--> p1 text
<-- p2 text
FORM DISPLAY_ALV_VBRP .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = ' '
I_BYPASSING_BUFFER = ' '
I_BUFFER_ACTIVE = ' '
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
I_CALLBACK_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_TOP_OF_PAGE = ' '
I_CALLBACK_HTML_END_OF_LIST = ' '
I_STRUCTURE_NAME =
I_BACKGROUND_ID = ' '
I_GRID_TITLE =
I_GRID_SETTINGS =
IS_LAYOUT =
IT_FIELDCAT = IT_FIELDCAT
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = ' '
IS_VARIANT =
IT_EVENTS =
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IT_ALV_GRAPHICS =
IT_HYPERLINK =
IT_ADD_FIELDCAT =
IT_EXCEPT_QINFO =
I_HTML_HEIGHT_TOP =
I_HTML_HEIGHT_END =
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = IT_VBRP
EXCEPTIONS
PROGRAM_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. " DISPLAY_ALV_VBRP
Thanks,
Shankar

Help in Reports 9i REP_UTIL.PLL (Urgent)

Similar Messages

Maybe you are looking for