Forms 5.0 /Reports 3.0 for Financials 11i

Can we use Forms5.0/reports 3.0 as front interactive tool for Oracle Fiancials 11i?.
-Arunraj

Arun,
Financials 11i was written using Forms 6.0 and Reports 6i. So, I would suggest using these versions for any customizations you might do for 11i. Forms 5.0 and Reports 3.0 were used for 10.7 and possibly some of 11.0.3 or before. Release 11i uses the 6i architecture in the forms and reports. Look in Oracle appsnet online site under Architecture if you need to go deeper.

Similar Messages

Control checkbox form field in word with report generation toolkit for Microsoft office

Hi all,
Happy New Year!
I insert in the word template the check box form field. It has a bookmark name "Check1".
Now I'm trying to checked or unchecked this field using the report generation toolkit for Microsoft office and I couldn't. If anyone now how to do it? I'm using LabView 8.0
Thanks in advance,
Boris
Solved!
Go to Solution.

Boris,
The Microsoft Office Toolkit does not have support for checking/unchecking check box forum field. You would have to research the activex functionality that enables this to be checked or unchecked and then do the activex calls yourself. I did hear of one csutomer who used a special font to write a blank box or a checkbox into a word document and changed it that way as well.
Maybe http://www.ozgrid.com/forum/showthread.php?t=53715 gives a hint to an activex reference
Rob K
Measurements Mechanical Engineer (C-Series, USB X-Series)
National Instruments
CompactRIO Developers Guide
CompactRIO Out of the Box Video

Database link works for form but not report

I have created a database link to the scott.emp table in a remote database then created a local synonym in my Portal.
I then created a Form and a Report referencing the local synonym. The for works and allows me to insert record but the form does not. The report compiles fine but I get a message that Portal can't find the underlying table. It seems that if the form works then the report should too. Does anyone have a recommended solution?
Thank you.
Sam Masias

There is a bug filed for this issue. And it should be taken up for fixing most probably in next release.

Forms 6i and Reports 6i for Window Vista

Dear!
How can I find out the software of Oracle Forms 6i & Oracle Reports 6i & Oracle Database 9i which supports Windows Vista 32-bit Edition.
Please Helpme...

Paul M. wrote:
Why so old (and desupported) products ?Because they work?
I've known sites that don't upgrade until the version they're upgrading to is desupported - at that point it's mature and has almost all the bugs found and either fixed or workarounds identified.
Another possibility is that their application relies on features of client/server, and 6i is the last client/server version.
We're still using Forms 6i for a combination of those two reasons. Client/Server will rise again! After all, dumb terminals have made a comeback (sorry, it's called webforms these days).
:)

Compatability for Forms-5 and Report-3

Does Forms-5 and Reports-3 connect to Oracle-8i.I get a message Ora-03121 no interface driver connected function not performed when trying to connect.
So please suggest

I can't find any matrix (as these are de-supported versions) but I have worked on Forms 5.0 and reports 3.0 with Oracle 9.0.1. And there were no issues. Thus, I may dare assume it should work with 9.2.0.8 as well, which is the terminal release for Oracle 9i.

Oracle forms and Oracle reports for Oracle 9i

Hello,
I'm searching for Oracle forms and Oracle reports that works with Oracle 9i.
Does someone know where I can find them?
Thanks in advance...

When we talk about Oracle9i, we often mean the database version 9i.
Apparently you want to use Forms and Reports 9i, which included in the obsolete (and very unhappy) Application Server 9i. ... Or the also obsolete Application Server 10g Release 1 (aka App Server 9.0.4.
You are encouraged to look at Forms and Reports 10g (part of the improved Application Server 10g) which does connect to Oracle Database 9i as well as Oracle Database 10g. Look for App Server 10g Release 2, version 10.1.2.0.2 and 10.1.2.2)

FAQ For Developer 2000 (forms 4.5 reports 2.5)

Hi
I urgently need FAQ of Developer 2000 (forms 4.5 reports 2.5).
Plz help me.
BS

Hi,
go to www.ntfaq.org and you'll find what u need .
Good day
Bye
U.P.
null

Forms5.0/Reports3.0 for Oracle Financials 11i

Can we use Forms5.0/reports 3.0 as front interactive tool for Oracle Fiancials 11i?.
-Arunraj

Can we use Forms 5.0 for Oracle Financials 11i?.
-Arunraj

How to show more than one record at a form-like style report?

Hi All,
I developed a form-like style report
I want it to show more than one record at once (At the same page)
I tried that by setting the value to "Maximum records per page" property for the repeating frame to 10
but when I close the property palete and open it agian the value is returned to 1 !!!
how to show more than one record at the same page?????
Thank u

Hi,
there's perhaps another property like "page protect". If than 2 records didn't fit at one page there's a page break. Or is there any object inside the repeating frame with page-break properties? Sorry .. it's like looking into a chrystal ball ...
Regards
Rainer

IF Form region AND report + search tool in same page THEN = problem

Helllo everybody
I posted an initial and now the advanced as I received helpful comments but still is unsolved:
Problem:
If I have a Form, and a Report With a Search feature on the same page the problem is that when I click on the button of Search to find records in the Report, the page reloads as it goes and returs to the server. Alright, however, that reloading causes the Form to submit data while there is no data because I was not working with the Form. When the report gets the "submission of the Form" it receives all empty data and it complains as it cannot have Null values in its rows.
Solution:
The thing would be to tell the form not to submit anything unless expressley pressed the button Create or Save. It seems that these buttons activate when the page is reloaded I mean reloaded by haiving pressed the button Search of the Reports region.
The helpful comments were in the direction of going to Processes, Automatic Row Processing and then choosing a conditional for processing of the Form, that it, it would only activate (submit itself if that condition is met)
So I go to PL/SQL Function body Returning a boolean and I paste this: RETURN :REQUEST IN('SAVE','CREATE');
but the problem continues unsolved, that doesnt help. It must be very close but there is something I am missing
thank you very much
Alvaro
Edited by: user12155340 on 18-Nov-2009 15:04

Hi,
I think this is double post.
BUTTON CLICK ON SEARCH ITEM CAUSES OTHER REGIONS (FORM) IN TABLE TO ERRORS
Please read my last comment from that link.
Application express forum might give you better and precise answer.
You need just figure out how set conditions
http://download.oracle.com/docs/cd/E14373_01/appdev.32/e11838/concept.htm#sthref149
http://download.oracle.com/docs/cd/E14373_01/appdev.32/e11838/concept.htm#sthref237
Br, Jari
Edited by: jarola on Nov 19, 2009 12:51 PM
BTW, I remember that there was just few days ago same kind question answered in Application Express forum.
I post link if I find it. You may try find it also

How do I put data into a template using the Labview report generation toolkit for Microsoft Office?

I am running Lookout 5.0 and have recently purchased the Labview Report Generation Toolkit for Microsoft Office to create reports from my Lookout logged data. Since I have never used Labview I am having my problems. I tried following the tutorials but they do not seem to be examples of what I want to do.
I log rainfall totals (1 spreadsheet)in Lookout from 40 different sites in 5 minute increments. I copy these totals and paste them into another spreadsheet which sums them up to give me hourly totals and then paste those totals into a spreadsheet for distribution.
In Labview I create a new report and use the distribution sheet as my template, but how do I complete
the steps of loading the raw 5 minute data into labview and then paste it into the hourly total spreadsheet and then transfer those totals into the distribution template?
I have been trying to figure this out for over a week, and I am getting nowhere.
Any response would be appreciated.
Thanks
Jason P
Jason Phillips

Lookout saves the files in .csv form which can be opened in Excel. I did make some progress by using the "append table to report" vi which allowed me to put values into an array and then those values were entered into my template on my report vi.
Where I am stuck now is I want to be able to put values into my template from a .csv file, not from an array I have to manually put numbers in.
Once those values are in my template I want to pull summed values from the template and place them into a final excel file for printing.
I have attached examples of the files I am working with to help you better understand what I am trying to do.
I hope that makes sense.
Jason Phillips
Attachments:
HourlyTotalsTemplate.xls ‏120 KB
eb_rain_gauge_ss.csv ‏23 KB
EastBankHourlyRainReport.xls ‏28 KB

Reporting annoying issues for the entire Microsoft website (MSDN, forums, all)

Is there any place where I can report bugs with how the Microsoft web sites behave? I can only find forums and "Microsoft Answers" categories about single products that Microsoft makes, but nothing about the infrastructure itself.
For about two weeks now, I am required to log into my account every few hours whenever I access any Microsoft website. This includes MSDN help content, forums, or other resources. I need to login after opening the website through F1 help in Visual Studio
as well as accessing a microsoft.com link from anywhere else like a web search or a direct link from web or an application.
Auto-complete does not work either. My browser (Firefox) does save the password, but it never fills it into the form. Other people have already noticed that
Microsoft applies some dirty tricks here. And even if the login is remembers for a moment, it's slow as hell. It takes a second or two to load the login.live.com page (which is not what I wanted to see), then it sits there for some more seconds before going
anywhere. Other login services like Google or StackOverflow manage to log me in all within one second and most of the time I don't even see it.
And then there's still that insecure SSL-to-non-SSL-submit warning that only occurs in other browsers then IE. Has anybody cared about that in the last couple years?! I'm not getting it now, probably because I'm not logged in anymore. It all slowly falls
apart, piece by piece. Next step is probably losing my data or not loading it at all.
THIS – IS – ANNOYING! And it really makes me feel like I don't want to use Microsoft products anymore (because even good desktop applications are connected to that silly website). I have opened a
Microsoft Connect ticket for a part of this issue (it's grown bigger since then), but this ticket is totally ignored. If microsoft.com went down, they'd certainly care within minutes or hours. This bug is not even regarded in
weeks!
So do I have to write a postal letter to the president of the whole company or do they have support staff for that?! Do they have anybody who is capable of maintaining their website? It's really frustrating how Microsoft has a web presence that is worse
than what our first-year trainees come up with. It's full of bugs and this is currently only the most relevant one. Do they even care about how the world sees them? Or is Microsoft currently preparing (and even failing) to move out of business?

The brandings are fun. Here's this same thread in a bunch of flavors:
https://social.technet.microsoft.com/Forums/en-US/cf19ed78-267b-4313-9c49-bd3027f0eb8e/reporting-annoying-issues-for-the-entire-microsoft-website-msdn-forums-all?forum=whatforum
https://social.msdn.microsoft.com/Forums/en-US/cf19ed78-267b-4313-9c49-bd3027f0eb8e/reporting-annoying-issues-for-the-entire-microsoft-website-msdn-forums-all?forum=whatforum
https://social.microsoft.com/Forums/en-US/cf19ed78-267b-4313-9c49-bd3027f0eb8e/reporting-annoying-issues-for-the-entire-microsoft-website-msdn-forums-all?forum=whatforum
https://social.technet.microsoft.com/Forums/sqlserver/en-US/cf19ed78-267b-4313-9c49-bd3027f0eb8e/reporting-annoying-issues-for-the-entire-microsoft-website-msdn-forums-all?forum=whatforum
https://social.msdn.microsoft.com/Forums/vstudio/en-US/cf19ed78-267b-4313-9c49-bd3027f0eb8e/reporting-annoying-issues-for-the-entire-microsoft-website-msdn-forums-all?forum=whatforum
https://social.technet.microsoft.com/Forums/exchange/en-US/cf19ed78-267b-4313-9c49-bd3027f0eb8e/reporting-annoying-issues-for-the-entire-microsoft-website-msdn-forums-all?forum=whatforum
Don't retire TechNet! -
(Don't give up yet - 13,085+ strong and growing)

Parameter Form in Oracle Report!!

Dear Oracle Users' Group:
I have problem with "Parameter Form" in Oracle Report.
The Report that I created has the SQL:
"SELECT A.FIELD1, A.FIELD2
FROM MYDATABASE.MYTABLE A
WHERE
A.FIELD1 = :P_1";
When the report is run, it asks for the parameter
and generates the report based on the runtime
parameter. Works perfect on Oracle8i database's
Report front end.
The PROPERTY PALETTE for the FIELD (Field that
takes the runtime parameter) is:
====================
General Information
Name: PF_P_1
Comments:
Parameter Form Field
Source: P_1
Parameter
Datatype: Character
Width: 40
Initial Value:
Validation Trigger:
List of Values:
(For the list of values, I have put the SQL:
"SELECT DISTINCT A.FIELD1 from
MYDATABASE.MYTABLE A", Also I had
tried with list of fixed values like A, B, C)
Web Setting
Additional Attributes (HTML):
================
But the report does NOT work when called from the Web.
(This is only because of the problem with this Parameter
Form in my report. If I get rid of the parameter form by
changing the last line of my SQL to: "A.FIELD1 = 'Chicago'",
it works fine from the Web).
When accessed the report from the Web, the error I get
is:
Oracle Reports Server CGI - Report Job has terminated with this error.
Reports Server Replies:
REP-0788: Warning: The value of restricted LOV parameter P_1 is not among the selectable values.
I do not know what is the error with this simplest Parameter Form based Report!!
In the Property Palette (above) of the Field, there was a field named "Additional Attributes (HTML)"
under "Web Setting" heading.
Do I need to write something there!!
Please help!!
thanks.
kimmy

Hi, Kimmy
Try: &paramform=yes]http://webserver.com:80/dev60cgi/rwcgi60.exe?server=repserver&report=rep1&userid=scott/tiger@orcl&destype=cache&desformat=htmlcss&paramform=yes
I've also sent you an email about key maps.
Enjoy! Web Reporting is a great feature.
Pedro.

Pass a set of Records form Form to a Report

Hi,
Lets say that I've already fetched a set of records on Oracle Form, and I want to pass these reocrds to a Report " on the Report I dont wana use range or where clause to give me these recods"
Any ideas how to do that please?
Thanks!

Passing a (Forms) Record Group as DATA_PARAMETER to Reports:
First example:
Forms code (in WHEN-BUTTON-PRESSED trigger) calls reports module
and sends record group "rg_dept" (populated from :SYSTEM.LAST_QUERY) as parameter:
DECLARE
rg_id_l RECORDGROUP;
rg_name_l VARCHAR2 (30) := 'RG_DEPT';
status_l NUMBER;
pl_id_l PARAMLIST;
pl_name_l VARCHAR2 (30) := 'PARAM_LIST';
BEGIN
rg_id_l := FIND_GROUP (rg_name_l);
IF NOT ID_NULL (rg_id_l) THEN
DELETE_GROUP (rg_id_l);
END IF;
rg_id_l := CREATE_GROUP_FROM_QUERY (rg_name_l, :SYSTEM.LAST_QUERY);
status_l := POPULATE_GROUP (rg_id_l);
IF status_l <> 0 THEN
RAISE FORM_TRIGGER_FAILURE;
END IF;
pl_id_l := GET_PARAMETER_LIST (pl_name_l);
IF NOT ID_NULL (pl_id_l) THEN
DESTROY_PARAMETER_LIST (pl_id_l);
END IF;
pl_id_l := CREATE_PARAMETER_LIST (pl_name_l);
ADD_PARAMETER (pl_id_l, 'Q_1', DATA_PARAMETER, rg_name_l);
RUN_PRODUCT (REPORTS, 'rec_group', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id_l, NULL);
END;
Reports module must have query with the same name as parameter in ADD_PARAMETER
statement (in this code - "Q_1"), and SQL Query Statement in Reports must have
same number and type of columns as record group, for example:
SELECT ROWID, 1 deptno, 'x' dname, 'x' loc FROM DUAL
And - we can't pass a DATA_PARAMETER to a child query in Report Builder.
Data passing is supported only for master queries.
Second example:
Forms transfers to Reports records from "dept" block,
using non-query record group (populated from Forms "dept" block in a LOOP):
DECLARE
rg_id_l RECORDGROUP;
rg_name_l VARCHAR2 (30) := 'DEPT';
row_count_l NUMBER;
rgc_id_l GROUPCOLUMN;
pl_id_l PARAMLIST;
pl_name_l VARCHAR2 (30) := 'PARAM_LIST';
BEGIN
rg_id_l := FIND_GROUP (rg_name_l);
IF NOT ID_NULL (rg_id_l) THEN
DELETE_GROUP (rg_id_l);
END IF;
rg_id_l := CREATE_GROUP (rg_name_l);
rgc_id_l := ADD_GROUP_COLUMN (rg_id_l, 'deptno', NUMBER_COLUMN);
rgc_id_l := ADD_GROUP_COLUMN (rg_id_l, 'dname', CHAR_COLUMN, 14);
rgc_id_l := ADD_GROUP_COLUMN (rg_id_l, 'loc', CHAR_COLUMN, 13);
GO_BLOCK ('dept');
FIRST_RECORD;
row_count_l := 0;
LOOP
row_count_l := row_count_l + 1;
ADD_GROUP_ROW (rg_id_l, row_count_l);
SET_GROUP_NUMBER_CELL (rg_name_l || '.deptno', row_count_l, :dept.deptno);
SET_GROUP_CHAR_CELL (rg_name_l || '.dname', row_count_l, :dept.dname);
SET_GROUP_CHAR_CELL (rg_name_l || '.loc', row_count_l, :dept.loc);
EXIT WHEN :SYSTEM.LAST_RECORD = 'TRUE';
NEXT_RECORD;
END LOOP;
IF row_count_l = 0 THEN
MESSAGE ('Nothing to print'); PAUSE;
RETURN;
END IF;
pl_id_l := GET_PARAMETER_LIST (pl_name_l);
IF NOT ID_NULL (pl_id_l) THEN
DESTROY_PARAMETER_LIST (pl_id_l);
END IF;
pl_id_l := CREATE_PARAMETER_LIST (pl_name_l);
ADD_PARAMETER (pl_id_l, 'Q_1', DATA_PARAMETER, rg_name_l);
RUN_PRODUCT (REPORTS, 'REC_GROUP_REPORT', SYNCHRONOUS, RUNTIME, FILESYSTEM, pl_id_l, NULL);
END;
This works in Forms 6i. In Forms 9i we must use RUN_REPORT_OBJECT instead of RUN_PRODUCT
(see Oracle MetaLink document 110495.1 "Passing a Record Group to Reports Using RUN_REPORT_OBJECT").
Regards,
Zlatko Sirotic

Create dynamic report or query for piece count

Hi abaper's
This is a very straight forward requirement. so please give me code
First you have to get the corresponding plant from table T320 for the given warehouse numbers in the selection screen.
1.     Get the sum of order qty of sales orders from the sales order tables      for the given warehouse(Plant), distribution channel and the give date      range.
2.     Get the confirmed transfer orders qty from the TO master table where      TO confirmation date is in the given date range and WH number.
3.     Get the total PGIed qty from the delivery master table where PGI'ed      date in the given date range, shipping point is in the corresponding      plant of the WH and for the given distribution channel.
As you are going to use the major tables please try to write the select commands effectively to avoid further performance issues.

How to improve the performance fo this code.....this very urgent.
& Issue Number          : 22199                                    &
& Programmer            : Anjaneyulu.Pabba                         &
& Transport Number      : D01K962471                               &
& Date of Creation      : 19/03/2008                               &
& Description           : Dynamic report or query for piece count &
& Requested By          : Parvati.Polisetty                        &
REPORT ZR_SD_PIECE_COUNT_ALV no standard page heading
                              line-size 255
                              line-count 65.
                      TABLES DECLARATION
*TABLES: T320,   "Assignment IM Storage Location to WM Warehouse Number
      VBAK,   "Sales Document: Header Data
      VBAP,   "Sales Document: Item Data
      TVKOV, "Org. Unit: Distribution Channels per Sales Organization
      LTAK,   "WM transfer order header
      LTAP,   "Transfer order item
      LIKP,   "SD Document: Delivery Header Data
      LIPS.   "SD document: Delivery: Item data
                      TYPE-POOLS DECLARATION
TYPE-POOLS: SLIS .
     Internal Table Declaration
DATA : BEGIN OF TY_T320,
        WERKS TYPE WERKS_D,
        LGNUM TYPE LGNUM,
       END OF TY_T320.
DATA : BEGIN OF TY_VBAK,
        VBELN TYPE VBELN_VA,
        VTWEG TYPE VTWEG,
        WERKS TYPE WERKS_D,
        KWMENG TYPE KWMENG,
        VSTEL TYPE VSTEL,
       END OF TY_VBAK.
DATA : BEGIN OF TY_LTAK,
        LGNUM TYPE LGNUM,
        TANUM TYPE TANUM,
        VISTA TYPE LTAP_VISTA,
       END OF TY_LTAK.
DATA : BEGIN OF TY_LIKP,
        VBELN TYPE VBELN_VL,
        WERKS TYPE WERKS_D,
        LFIMG TYPE LFIMG,
       END OF TY_LIKP.
DATA : BEGIN OF TY_ITAB ,
LGNUM TYPE LGNUM,    "Warehouse Number / Warehouse Complex
WERKS TYPE WERKS_D, "Plant
VBELN TYPE VBELN_VA, "Sales Document
VTWEG TYPE VTWEG,   "Distribution Channel
KWMENG TYPE KWMENG, "Cumulative order quantity in sales units
TANUM TYPE TANUM ,     "Transfer Order Number
VISTA TYPE LTAP_VISTA, "Source actual quantity in alternative
                                             unit of measure
LFIMG TYPE LFIMG, "Actual quantity delivered (in sales units)
END OF TY_ITAB .
DATA: T_T320 LIKE STANDARD TABLE OF TY_T320 INITIAL SIZE 0 WITH HEADER
                                                               LINE,
      T_VBAK LIKE STANDARD TABLE OF TY_VBAK INITIAL SIZE 0 .
DATA: T_LTAK LIKE STANDARD TABLE OF TY_LTAK INITIAL SIZE 0 WITH HEADER
                                                                LINE.
DATA :T_LIKP LIKE STANDARD TABLE OF TY_LIKP INITIAL SIZE 0 WITH HEADER
                                                                LINE.
DATA:T_ITAB LIKE STANDARD TABLE OF TY_ITAB INITIAL SIZE 0 WITH HEADER
                                                               LINE .
*&      Fieldcatalog Declaration
DATA : T_FCAT TYPE SLIS_T_FIELDCAT_ALV,
       W_FCAT TYPE SLIS_FIELDCAT_ALV.
DATA : W_LAYOUT TYPE SLIS_LAYOUT_ALV.
********Global Data Declaration***
DATA :G_REPID        LIKE SY-REPID,
     G_EXIT(1)      TYPE C,
     GX_VARIANT     LIKE DISVARIANT,
     X_SAVE,                          "for Parameter I_SAVE
     GS_VARIANT TYPE DISVARIANT.      "for parameter IS_VARIANT
data: g_lgnum type t320-lgnum,
      g_vtweg type vbak-vtweg,
      g_erdat type vbak-erdat.
*&      Selection-Screen
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_LGNUM FOR g_lgnum, "Warehouse Number
                S_VTWEG FOR g_vtweg, "Distribution Channel
                S_ERDAT FOR g_erdat ."Date on which the record was
**********"created
SELECTION-SCREEN END OF BLOCK B1 .
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-002.
PARAMETER: P_VARI LIKE DISVARIANT-VARIANT. "Layout
SELECTION-SCREEN END OF BLOCK B2.
*&       INITIALIZATION EVENT
INITIALIZATION.
CLEAR GS_VARIANT.
'gs_variant' must at least contain the report-id to allow
saving a variant.
G_REPID = SY-REPID.
§ 2.At least field REPORT of this structure has to be filled!
GS_VARIANT-REPORT = G_REPID.
§ 3.Determine saving options.
X_SAVE = 'A'.   "The user may save all types of variants
*******Validating selection-screen values**********************
getting F4 value for display variant field
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_VARI.
PERFORM F4_FOR_VARIANT.
****validation of F4 value of display variant
AT SELECTION-SCREEN.
PERFORM PAI_OF_SELECTION_SCREEN.
*&      Start-Of-Selection
START-OF-SELECTION.
*****Subroutine to select Plant from T320
PERFORM FIND_PLANT .
*****Subroutine to select Order Quantity from VBAP
PERFORM ORDER_QUANTITY .
*****Subroutine to select Transfer Order Quantity from LTAK and LTAP
PERFORM TRANSFER_ORDER_QUANTITY.
*****Subroutine to select TDelivery Quantity from LIKP and LIPS
PERFORM DELIVERY_QUANTITY.
*&      End-Of-Selection
END-OF-SELECTION.
*****Subroutine for Fieldcatalog
PERFORM FIELDCATALOG .
*****Subroutine for Final Output
PERFORM DISPLAY_OUTPUT .
*&     Subroutine Implementaion
*&      Form FIND_PLANT
      text
--> p1        text
<-- p2        text
FORM FIND_PLANT .
SELECT WERKS
          LGNUM
          FROM T320
          INTO TABLE T_T320
          WHERE LGNUM IN S_LGNUM.
ENDFORM.                    " FIND_PLANT
*&      Form order_quantity
      text
--> p1        text
<-- p2        text
FORM ORDER_QUANTITY .
SELECT VK~VBELN
         VK~VTWEG
         VP~WERKS
         VP~KWMENG
         VP~VSTEL
         INTO TABLE T_VBAK FROM VBAK AS VK
         INNER JOIN VBAP AS VP
         ON VKVBELN = VPVBELN
         FOR ALL ENTRIES IN T_T320
         WHERE VK~VTWEG IN S_VTWEG
         AND   VK~ERDAT IN S_ERDAT
         AND   VP~WERKS = T_T320-WERKS.
ENDFORM.                    " order_quantity
*&      Form Transfer_order_quantity
      text
--> p1        text
<-- p2        text
FORM TRANSFER_ORDER_QUANTITY .
SELECT LK~LGNUM
         LK~TANUM
         LP~VISTA
         INTO TABLE T_LTAK FROM LTAK AS LK
         INNER JOIN LTAP AS LP
         ON LKLGNUM = LPLGNUM
         WHERE LK~KQUIT = 'X'
         AND   LK~BDATU IN S_ERDAT
         AND   LK~LGNUM IN S_LGNUM.
ENDFORM.                    " Transfer_order_quantity
*&      Form Delivery_QUANTITY
      text
--> p1        text
<-- p2        text
FORM DELIVERY_QUANTITY .
SELECT VBELN WERKS LFIMG FROM LIPS
          INTO TABLE T_LIKP
          FOR ALL ENTRIES IN T_T320
          WHERE WERKS = T_T320-WERKS
          AND ERDAT IN S_ERDAT
          AND VTWEG IN S_VTWEG.
ENDFORM.                    " Delivery_QUANTITY
*&      Form fieldcatalog
      text
--> p1        text
<-- p2        text
FORM FIELDCATALOG .
W_FCAT-COL_POS       = '1' .
W_FCAT-FIELDNAME     = 'LGNUM' .
W_FCAT-REF_TABNAME   = 'T320'.
W_FCAT-REF_FIELDNAME = 'LGNUM' .
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS       = '2' .
W_FCAT-FIELDNAME     = 'VTWEG' .
W_FCAT-REF_TABNAME   = 'VBAK'.
W_FCAT-REF_FIELDNAME = 'VTWEG' .
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS       = '3' .
W_FCAT-FIELDNAME     = 'KWMENG' .
W_FCAT-REF_TABNAME   = 'VBAP'.
W_FCAT-REF_FIELDNAME = 'KWMENG' .
*w_fcat-seltext_m     = '# of Orders'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS       = '4' .
W_FCAT-FIELDNAME     = 'VISTA' .
W_FCAT-REF_TABNAME   = 'LTAP'.
W_FCAT-REF_FIELDNAME = 'VISTA' .
*w_fcat-seltext_m     = '# of Pcs Picked'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS       = '5' .
W_FCAT-FIELDNAME     = 'LFIMG' .
W_FCAT-REF_TABNAME   = 'LIPS'.
W_FCAT-REF_FIELDNAME = 'LFIMG' .
*w_fcat-seltext_m     = '# of Pcs Shipped'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS       = '6' .
W_FCAT-FIELDNAME     = 'TANUM' .
W_FCAT-REF_TABNAME   = 'LTAK'.
W_FCAT-REF_FIELDNAME = 'TANUM' .
**w_fcat-seltext_m     = '# of Pcs Shipped'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
W_FCAT-COL_POS       = '7' .
W_FCAT-FIELDNAME     = 'WERKS' .
W_FCAT-REF_TABNAME   = 'T320'.
W_FCAT-REF_FIELDNAME = 'WERKS' .
**w_fcat-seltext_m     = '# of Pcs Shipped'.
APPEND W_FCAT TO T_FCAT.
CLEAR W_FCAT.
ENDFORM.                    " fieldcatalog
*&      Form display_output
      text
--> p1        text
<-- p2        text
FORM DISPLAY_OUTPUT .
LOOP AT T_T320 INTO TY_T320.
    TY_ITAB-WERKS = TY_T320-WERKS.
    TY_ITAB-LGNUM = TY_T320-LGNUM.
    READ TABLE T_VBAK INTO TY_VBAK WITH KEY WERKS = TY_T320-WERKS.
    IF SY-SUBRC = 0.
    TY_ITAB-VBELN = TY_VBAK-VBELN.
    TY_ITAB-VTWEG = TY_VBAK-VTWEG.
    TY_ITAB-KWMENG = TY_VBAK-KWMENG + ty_itab-kwmeng.
    ENDIF.
    READ TABLE T_LTAK INTO TY_LTAK WITH KEY LGNUM = TY_T320-LGNUM.
    IF SY-SUBRC = 0.
    TY_ITAB-TANUM = TY_LTAK-TANUM.
    TY_ITAB-VISTA = TY_LTAK-VISTA + ty_itab-vista.
    ENDIF.
    READ TABLE T_LIKP INTO TY_LIKP WITH KEY WERKS = TY_T320-WERKS.
    IF SY-SUBRC = 0.
    TY_ITAB-LFIMG = TY_LIKP-LFIMG + ty_itab-lfimg.
    ENDIF.
    APPEND TY_ITAB TO T_ITAB.
ENDLOOP.
Function Module for Displaying Final Output ********
W_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      I_CALLBACK_PROGRAM = SY-CPROG
      IS_LAYOUT          = W_LAYOUT
      IT_FIELDCAT        = T_FCAT[]
    TABLES
      T_OUTTAB           = T_ITAB.
ENDFORM.                    " display_output
*&      Form f4_for_variant
      text
--> p1        text
<-- p2        text
FORM F4_FOR_VARIANT .
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
    EXPORTING
      IS_VARIANT = GS_VARIANT
      I_SAVE     = X_SAVE
    IMPORTING
      E_EXIT     = G_EXIT
      ES_VARIANT = GX_VARIANT
    EXCEPTIONS
      NOT_FOUND = 2.
IF SY-SUBRC = 2.
    MESSAGE ID SY-MSGID TYPE 'S'      NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
    IF G_EXIT = SPACE.
      P_VARI = GX_VARIANT-VARIANT.
    ENDIF.
ENDIF.
ENDFORM.                    " f4_for_variant
*&      Form pai_of_selection_screen
      text
--> p1        text
<-- p2        text
FORM PAI_OF_SELECTION_SCREEN .
IF NOT P_VARI IS INITIAL.
    MOVE GS_VARIANT TO GX_VARIANT.
    MOVE P_VARI TO GX_VARIANT-VARIANT.
    CALL FUNCTION 'REUSE_ALV_VARIANT_EXISTENCE'
      EXPORTING
        I_SAVE     = X_SAVE
      CHANGING
        CS_VARIANT = GX_VARIANT.
    GS_VARIANT = GX_VARIANT.
ELSE.
    PERFORM VARIANT_INIT.
ENDIF.
ENDFORM.                    " pai_of_selection_screen
*&      Form variant_init
      text
--> p1        text
<-- p2        text
FORM VARIANT_INIT .
CLEAR GS_VARIANT.
GS_VARIANT-REPORT = G_REPID.
ENDFORM.                    " variant_init

Forms 5.0 /Reports 3.0 for Financials 11i

Similar Messages

Maybe you are looking for