Help needed in forming relations

Hello,
I am new to oracle form builder,
1)Is there a way to query the database and display the desired result in tabular view?
2)I want to write the query joinin multiple data blocks is there a way to do this(without any constraints)?
If possible please show me some examples.:8}

hi,
1:
yes it's possible:
- use the datablock-wizard to create a block based on a table e.g. EMPLOYEES, choose the desired columns you want to show
- when on the last page of the datablock wizard you're asked if you want to open the layout wizard, say yes
- in the layout wizard, choose the columns you want to show, enter prompts on the next page, and, when asked, choose tabular layout and the number of rows to display.
- after finishing the aylout wizard the Layout-ediotr opens and show the layout.
- run the form, query some data (using menu or ctrl-F11)
2:
Yes, you can join tables together without any constraint, but there should (of course) be a at least a logical relation between the tables.
hope this helps

Similar Messages

Help needed in Form userexit_save_document_prepare include MV45AFZZ

Hi Experts,
I need to check the values entered in table control under sales tab in VA01.
If the item category for a material is 'TANN' it should save if not it should not save and display an error message and then it should alow the user to edit the table control values.
how do i achieve it in Form userexit_save_document_prepare include MV45AFZZ.
this is what I have done. kindly check the logic and help me further.
case sy-ucomm.
when 'SICH'.          " On Save action
if vbak-vtweg eq 'HA'. " Check Distribution channel
flg_dh = 'X'.         " Sets if DC is 'HA'.
endif.
if flg_dh eq 'X'.
if vbap-pstyv eq 'TANN'.    " Check item category
    flg_itmc = 'X'.            " Set if item cat is 'TANN'.
else.
message 'SO could not be created Please enter brokerage material' type 'E'.
endif.

Hi,
Please use the following:
when 'SICH'.          " On Save action
if vbak-vtweg eq 'HA'. " Check Distribution channel
flg_dh = 'X'.         " Sets if DC is 'HA'.
endif.
if flg_dh eq 'X'.
if vbap-pstyv eq 'TANN'.    " Check item category
    flg_itmc = 'X'.            " Set if item cat is 'TANN'.
else.
message 'SO could not be created Please enter brokerage material' type 'E' display like 'E'.
endif.
endif.

Help needed setting up Related Content in HCM 9.1 PeopleTools 8.51

I need some help setting up Related Content in HCM 9.1 PeopleTools 8.51.
I created a new service id in "Define Related Content Service". Its simple, it basically goes to google.com.
Then I assigned Related Content to Application Pages on the "Manage Related Content Configuration" page. I'm my scenario I added it to Careers right under the root menu.
Then I went to the careers page, but the "related information" link doesn't appear. How do I get that related information link to appears in the top of the component/page?
Thanks,
-Cory

In order to get this to function, there are some baseline server configuration requirements that you need in order for it to work.
1) Define the authentication Domain on the webserver
2) Define the authentication Domain on the web profile
3) Enable Single Sign-On
The following document in 'My Oracle Support' will provide you with the details on configuration related content services.
E-PORTAL: How To Configure Related Content Service. [ID 984855.1]
In addition here is a link to the online PeopleBooks that discusses the configuration of the related content services.
http://download.oracle.com/docs/cd/E18083_01/pt851pbr0/eng/psbooks/tprt/book.htm?File=tprt/htm/tprt20.htm#H3002
In addition, there are also some know limitations on the use of related content that are different dependent on the tools version you are using.
Hope this helps.

Help needed with forms

Hi,
I need help with 2 things:
1. I want to create a form with name,subject and message box on for the user to fill out and then when they click submit it sends the form to my email address.
2. I want to create a form where the user can upload their CV and then click submit and it will send the CV to my email address aswell.
Can any1 help?
Cheers
Dan

Thanks for that, i have followed the steps but cant test it out till i have finished the site and uploaded it, will let u know if it was
successfull!
cheers
Dan

Immediate help needed for Forms on Citrix

All Gurus
Form works perfect on desktop but when I put in on citrix then it didn't work. problem is when we click on any push button that is not executing a code behind it. so push button in forms are not working. we installed forms 6i runtime software on citrix. is there anything do I need to do to make buttons work.
Thank you so much
Nitin

I compiled my form on desktop and its working fine then I moved .fmx file to citrix and there button is not working. other thing using forms default menu if I use execute query it works but when I click on button (when-button pressed trigger and code is go_block, execute_query) then it doesn't execute. so I added just message for testing and message also not populating. so what would be the issue?
where you are saying I have to compile form on citrix and how we can compile on citrix? pl. help.
do you have forms installed on citrix?
pl.help
Thanks
Nitin

Help needed in forming dynamic insert statement

HI,
I am trying to construct a insert statement as given below.
Please help me as to how to form this and where am i going wrong?
i want the columns names to be auto populated when a table name is given.
output should be like:
==============
insert into tablename
col1,col2,col3..coln)
values
(col1, col2, col3..coln);
declare
v_sql varchar2(5000);
cnt number :=0;
col_count number;
name varchar2(5000);
TYPE string_assarrtype IS TABLE OF VARCHAR2 ( 25 ) INDEX BY VARCHAR2 ( 20 );
arr string_assarrtype;
BEGIN
   select count(column_name) into col_count from user_tab_columns
where
table_name = 'PS_D_RE_BCSREGIONMAPPING';
   v_sql:='insert into tablename (' ;
     for i in 1..arr(col_count)
      loop
       v_sql:='v_sql' ||' '||arr(i);
      DBMS_OUTPUT.PUT_lINE(v_sql);
     END LOOP;
END;

Below is the actual code which i am trying to write:
Since the below trigger logic is same for around 25/30 tables i wanted to construct a generic procedure which will take input parameter as tablename and auit_table and form the insert statement which will populate the column names which are different for different tables.
Please guide...
CREATE OR REPLACE PROCEDURE make_trigger( tablename in VARCHAR2,
                                         auditable in   VARCHAR2
AS
v_sql varchar(10000);
begin
v_sql := 'DROP TRIGGER TRD_D_AUDIT_D'||tablename;
dbms_output.put_line (v_sql );
v_sql:='CREATE OR REPLACE TRIGGER TRG_D_AUDIT_D_'||tablename||' '||
'BEFORE INSERT OR UPDATE OR DELETE ON 'tablename||' '||' REFERENCING OLD AS OLD NEW AS NEW
FOR EACH ROW';
dbms_output.put_line (v_sql );
v_sql:= 'DISABLE
DECLARE
v_Operator        psoprdefn.oprid%type;
v_Sysdate        Date;
v_Actn            varchar2(1);
V_AUDIT_RECNAME    PSRECDEFN.RECNAME%type;
BEGIN';
dbms_output.put_line (v_sql );
v_sql:= 'If (Inserting) Then
   v_Actn    :='||'''||'A'||'''||';'||
   'Insert into '||auditable||'
                    ('||
                   AUDIT_RECNAME,
                AUDIT_ACTN,
                AUDIT_OPRID,
                AUDIT_STAMP,
                D_USER_GROUP,
                D_GROUP_DESC,
                D_BCS_ID,
                D_UBR_ID,
                D_FILTER_ID,
                D_NAME_ACCESS_TYPE,
                D_GLOBAL_EMP_LIST
                    Values
                V_AUDIT_RECNAME,
                v_Actn,
                v_Operator,
                v_Sysdate,
                :NEW.D_USER_GROUP,
                :NEW.D_GROUP_DESC,
                :NEW.D_BCS_ID,
                :NEW.D_UBR_ID,
                :NEW.D_FILTER_ID,
                :NEW.D_NAME_ACCESS_TYPE,
                :NEW.D_GLOBAL_EMP_LIST
end if;
end;Edited by: user11942774 on Oct 5, 2012 11:46 AM
Edited by: user11942774 on Oct 5, 2012 8:09 PM
Edited by: user11942774 on Oct 5, 2012 8:10 PM

Help needed - XML forms not displaying in my repository

Hi all
I could really do with some help here. I have a custom XML form for news articles. It works fine in the standard documents repository, but I have my iView pointing to a folder in my own CM repository.
When a user tries to directly access the "show" form, instead of the form it displays the XML code. Any ideas why this is?
My CM repository is running the following services:
layout, properties, svc_acl, tbp
EP6SP14
Thanks! Chris

Hello,
I have the same problem. When I'm trying to create an XML file using XML form in the repository /etc, I get the following error:
XML - Forms
Cannot create item e0977870-cf29-2d10-bb89-d00b5761268c.xml in collection /etc/public/; operation is not supported.
When I do the same in repository /documents, it works fine.
I think, I've made the neccesary settings for the repository (Form Based Publishing, ...).
Any clues will be highly appreciated.
Jiri

HELP NEEDED IN FORMING A QUERY...URGENT.....

Hi,
I have a table where in that an employee has multiple rows,
in that i need to query a particular column values, and need to display
in one column separated any special charactar like ":". I need this query.
ex:
EmpID in_time
1900 9:00:00
1900 9:45:00
1900 10:50:00
Here i want to display this as
EmpID time
1900 9:00;9:45;10:50;
Please give me your valuable contributions...

create table user644354(empid number(4),in_time varchar2(8));
insert into user644354 values(1900,'9:00:00');
insert into user644354 values(1900,'9:45:00');
insert into user644354 values(1900,'10:50:00');
commit;
select substr(max(SYS_CONNECT_BY_PATH(In_Time, ', ')),2) In_Time FROM
(SELECT in_time,ROWNUM NBR FROM (SELECT In_time FROM user644354 e where empid=1900))
CONNECT BY PRIOR NBR = NBR - 1 START WITH NBR = 1
Regards
Girish Sharma

Simple question, Urgent help needed.(Session Related)

I am new in Java and i want help in the following query:
When there is no session already defined and no values assigned to the session and i run the
String session_loginName = (String) session.getAttribute("username");
command in a doGet method
What is the result to the string?
null? or something else?
My intensions are:
To have restricted areas in my web app and when a user clicks on a link which includes restricted content, to first call a servlet which will test if there is a session already and if not it will redirect to the Login page.
I am thinking to use the following code.
Will this work ok?
package mypackage;
import javax.servlet.*;
import java.io.*;
import java.sql.*;
import javax.servlet.http.*;
public class EntGroupRegistration extends HttpServlet{
private String url = "jdbc:odbc:test";
* Standard Post Method for Processing the HTML Variables
protected void doGet(HttpServletRequest request, HttpServletResponse response) throws ServletException,IOException
String session_loginName;
* Obtain username from session object
session_loginName = (String) session.getAttribute("username");
if (session_loginName.equals(null)) {
response.sendRedirect(
"http://localhost/se/Resources/changepassS.htm"); }else{
response.sendRedirect(
"http://localhost/se/Activities/GroupRegistration.htm");
Any suggestions upon the code?
Thank you for your time.

if session_loginName is null then how can you call equals method on it???? Always give it a little thought first before typing code...
try something like
if(session_loginName != null)
// you code as before
}

Help needed with this form in DW

Hi, i have created this form in dreamweaver but ive got this problem.
In the fields above the text field, the client needs to fill in some info such as name, email telephone number etc.
But the problem is when ill get the messages. Only the text from the large text field is there.
What did i do wrong??
http://www.hureninparamaribo.nl/contact.html
Thank you
Anybody??

Thank you for your response. So what do i have to do to fix this?
Date: Sun, 20 Jan 2013 07:57:56 -0700
From: [email protected]
To: [email protected]
Subject: Help needed with this form in DW
    Re: Help needed with this form in DW
    created by Ken Binney in Dreamweaver General - View the full discussion
You have several duplicate "name" attributes in these rows which also appears in the first row
Telefoon:
Huurperiode:
Aantal personen:
     Please note that the Adobe Forums do not accept email attachments. If you want to embed a screen image in your message please visit the thread in the forum to embed the image at http://forums.adobe.com/message/5008247#5008247
     Replies to this message go to everyone subscribed to this thread, not directly to the person who posted the message. To post a reply, either reply to this email or visit the message page: http://forums.adobe.com/message/5008247#5008247
     To unsubscribe from this thread, please visit the message page at http://forums.adobe.com/message/5008247#5008247. In the Actions box on the right, click the Stop Email Notifications link.
     Start a new discussion in Dreamweaver General by email or at Adobe Community
For more information about maintaining your forum email notifications please go to http://forums.adobe.com/message/2936746#2936746.

Help needed in XML Form Builder

Hi All,
I require your help in XML form .
when we create a XML form in Builder we can define some caption values such as $sap_user , $ locDate which displays the
user id and date in the respective field when the form is opened.
I need to dispaly the phone number,department etc from the LDAP /UME to my from .
How can i get it .
Please help.
Regards,
Nitesh

Which environment are you trying this in ? In Enterprise server, bursting is defined by a SQL query which can be run against the table that you want. So you can even populate the printer name from your query. So the URI, ipp://myprintserver:631/printers/printername" is the syntax. In your case you have to create this string in your SQL query by concatenating the parts "ipp://" + printername + ":631/". If there is a name to the printer in the printserver, then that too can be concatenated.
In case this is in EBS , the same has to be done in the control file.

Hi all, im a newbie and in need of help on contact form if anybody could help

hi everybody, im new to the site and relatively new to dreamweaver.
i have used a template for my website and edited all the relative information to tailor it to my business.
As i am not familiar with the contact forms i am struggling to find out how to make the form send the information to my email address as i have not got a clue if the contact form is coded correctly,
i would much appreciate any assistence given by any of you, as i am desperately in need of your expertice
i have copied what is in the code for the form, i was wondering if anybody could tell me if this code can be used or not
thank you very much,
Steven

HTML forms don't do anything. You need a form-to-email processing script -- preferably one which conceals your e-mail address from harvesters and has built-in spam prevention.
Contact your web host and ask them if they have a script you can use. Hosts often provide scripts on their servers which you can activate through your Admin Panel or by directly referencing the script in your form's action attribute.
     <form action="path-to-form-on-server/form-to-email-script.php">
If your host doesn't provide scripts, ask them which server-side languages you can use (php, asp, asp.net, perl, coldfusion, etc...) so you can find a suitable script to use.
Related Links:
    Formm@ailer PHP script from DB Masters
    http://dbmasters.net/index.php?id=4
    FormToEmail.com (free & pro PHP scripts)
    http://formtoemail.com/formtoemail_pro_version.php
    Tectite
    http://www.tectite.com/formmailpage.php
    Forms to Go from Bebosoft (script generating software)
    http://www.bebosoft.com/products/formstogo/overview/
    Wufoo.com (on-line form service)
   http://wufoo.com/
Nancy O.

Dynamic Form Help Needed !!

Hi Guys,
I need a form that has the following how do i code it in
dreamweaver ?
name :
email address :
phone number :
status: item are New, Contacted, Appointment Scheduled, Sold
( This would be a dropdown and depending on what the user chooses
the options below show up )
commission amount (only shows if the status is changed to
"Sold")
Thumbnail Calendar (only shows if Appointment Scheduled is
the status)

Depends on what sort of server side processing you're going
to be using for
your dynamic form...
Do you have that info??
"NYCKIDDbx" <[email protected]> wrote in
message
news:fmip1k$rhv$[email protected]..
> Hi Guys,
>
> I need a form that has the following :
>
> name :
> email address :
> phone number :
> status: item are New, Contacted, Appointment Scheduled,
Sold ( This would
> be a
> dropdown and depending on what the user chooses the
options below show
> up )
> commission amount (only shows if the status is changed
to "Sold")
> Thumbnail Calendar (only shows if Appointment Scheduled
is the
> status)
>

Help needed please.. how do I remove my credit card from itunes? just discovered over $450 of charges when I looked at my email... Kids had no clue they were using our money and not their gift cards

Help needed please.... I just discovered over $450 charges to my credit card from Itunes. The kids had no idea they were using our credit card and not their itunes gift cards and 4 year old just clicks on anything! I didnt save my credit card details so am a bit miffed at this... I cant find anywhere in itunes to remove it. Edit.. but not remove. Editing does not remove it.. HELP

To Contact iTunes Customer Service and request assistance
Use this Link > Apple Support iTunes Store Contact
Accepted forms of payment > http://support.apple.com/kb/HT5552
Changing Account Information > http://support.apple.com/kb/HT1918

Help needed Displaying ALV Secondary list without using oops concept

Hi Experts
Help needed Displaying ALV Secondary list without using oops concept.
its urgent
regds
rajasekhar

hi chk this code
******************TABLES DECLARATION*****************
TABLES : VBAP,MARA.
*****************TYPE POOLS**************************
TYPE-POOLS : SLIS.
****************INTERNAL TABLES**********************
DATA : BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
END OF IT_VBAP.
****************TEMPORARY VARIABLES******************
DATA : V_VBELN LIKE VBAP-VBELN."SALES DOCUMENT
DATA : V_MTART LIKE MARA-MTART. "MATERIAL TYPE
*****************FIELD CATALOG***********************
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
****************LAYOUT*******************************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
***************VARIANT*******************************
DATA : G_VARIANT LIKE DISVARIANT.
****************SAVE*********************************
DATA : G_SAVE(1) TYPE C.
*****************EVENTS******************************
DATA : XS_EVENTS TYPE SLIS_ALV_EVENT,
       G_EVENTS TYPE SLIS_T_EVENT.
******************PF STATUS**************************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
******************USER COMMAND************************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
       R_UCOMM LIKE SY-UCOMM.
****************SELECTION SCREEN************************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
***************AT SELECTION SCREEN*********************
AT SELECTION-SCREEN.
PERFORM VALIDATE.
**************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM GET_DETAILS.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM VARIANT.
PERFORM SAVE.
PERFORM EVENTS.
PERFORM ALV_DISPLAY.
*********************FORMS*******************************************
*&      Form validate
      text
--> p1        text
<-- p2        text
FORM VALIDATE .
SELECT SINGLE VBELN
                FROM VBAP
                INTO V_VBELN
                WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'enter valid vbeln'.
ENDIF.
ENDFORM.                    " validate
*&      Form get_details
      text
--> p1        text
<-- p2        text
FORM GET_DETAILS .
SELECT VBELN
         POSNR
         MATNR
         FROM VBAP
         INTO TABLE IT_VBAP
         WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'no details found'.
ENDIF.
ENDFORM.                    " get_details
*&      Form fieldcat
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-OUTPUTLEN = 6.
WA_FIELDCAT-SELTEXT_L = 'ITEM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-OUTPUTLEN = 18.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    " fieldcat
*&      Form LAYOUT
      text
--> p1        text
<-- p2        text
FORM LAYOUT .
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM.                    " LAYOUT
*&      Form VARIANT
      text
--> p1        text
<-- p2        text
FORM VARIANT .
CLEAR G_VARIANT.
G_VARIANT-REPORT = SY-REPID.
ENDFORM.                    " VARIANT
*&      Form SAVE
      text
--> p1        text
<-- p2        text
FORM SAVE .
CLEAR G_SAVE.
G_SAVE = 'A'.
ENDFORM.                    " SAVE
*&      Form EVENTS
      text
--> p1        text
<-- p2        text
FORM EVENTS .
CLEAR XS_EVENTS.
XS_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND XS_EVENTS TO G_EVENTS.
ENDFORM.                    " EVENTS
*&      Form TOP_OF_PAGE
      text
FORM TOP_OF_PAGE.
WRITE :/ ' INTELLI GROUP'.
ENDFORM.                    "TOP_OF_PAGE
*&      Form ALV_DISPLAY
      text
--> p1        text
<-- p2        text
FORM ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK              = ' '
I_BYPASSING_BUFFER             =
I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = SY-REPID
     I_CALLBACK_PF_STATUS_SET       = PF_STATUS
     I_CALLBACK_USER_COMMAND        = USER_COMMAND
I_STRUCTURE_NAME               =
     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                         = G_SAVE
     IS_VARIANT                     = G_VARIANT
     IT_EVENTS                      = G_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
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = IT_VBAP
   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.                    " ALV_DISPLAY
*&      Form SET_PF_STATUS
      text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'Z50651_PFSTATUS' EXCLUDING EXTAB.
ENDFORM.                    "SET_PF_STATUS
*&      Form SET_USER_COMMAND
      text
FORM SET_USER_COMMAND USING R_UCOMM
                            RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN 'DC'.
      READ TABLE IT_VBAP INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        SELECT SINGLE MTART
                      FROM MARA
                      INTO V_MTART
                      WHERE MATNR = IT_VBAP-MATNR.
        IF SY-SUBRC <> 0.
   MESSAGE E000 WITH 'NO MATERIAL DESCRIPTION FOR SELECTED MATERIAL NO'.
        ELSE.
          WRITE :/ 'MATERIAL NO :',IT_VBAP-MATNR.
          WRITE :/ 'MATERIAL TYPE :' , V_MTART.
        ENDIF.
      ENDIF.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CLOSE'.
      CALL TRANSACTION 'SE38'.
ENDCASE.
REPORT Z_ALV_INTERACTIVE MESSAGE-ID ZMSG_50651
                                LINE-SIZE 100
                                LINE-COUNT 60
                                NO STANDARD PAGE HEADING.
******************TABLES DECLARATION*****************
TABLES : VBAP,MARA.
*****************TYPE POOLS**************************
TYPE-POOLS : SLIS.
****************INTERNAL TABLES**********************
DATA : BEGIN OF IT_VBAP OCCURS 0,
VBELN LIKE VBAP-VBELN, "SALES DOCUMENT
POSNR LIKE VBAP-POSNR, "SALES DOCUMENT ITEM
MATNR LIKE VBAP-MATNR, "MATERIAL NUMBER
END OF IT_VBAP.
****************TEMPORARY VARIABLES******************
DATA : V_VBELN LIKE VBAP-VBELN."SALES DOCUMENT
DATA : V_MTART LIKE MARA-MTART. "MATERIAL TYPE
*****************FIELD CATALOG***********************
DATA : IT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
       WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
****************LAYOUT*******************************
DATA : WA_LAYOUT TYPE SLIS_LAYOUT_ALV.
***************VARIANT*******************************
DATA : G_VARIANT LIKE DISVARIANT.
****************SAVE*********************************
DATA : G_SAVE(1) TYPE C.
*****************EVENTS******************************
DATA : XS_EVENTS TYPE SLIS_ALV_EVENT,
       G_EVENTS TYPE SLIS_T_EVENT.
******************PF STATUS**************************
DATA : PF_STATUS TYPE SLIS_FORMNAME VALUE 'SET_PF_STATUS'.
******************USER COMMAND************************
DATA : USER_COMMAND TYPE SLIS_FORMNAME VALUE 'SET_USER_COMMAND',
       R_UCOMM LIKE SY-UCOMM.
****************SELECTION SCREEN************************
SELECT-OPTIONS : S_VBELN FOR VBAP-VBELN.
***************AT SELECTION SCREEN*********************
AT SELECTION-SCREEN.
PERFORM VALIDATE.
**************START-OF-SELECTION**************************
START-OF-SELECTION.
PERFORM GET_DETAILS.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM VARIANT.
PERFORM SAVE.
PERFORM EVENTS.
PERFORM ALV_DISPLAY.
*********************FORMS*******************************************
*&      Form validate
      text
--> p1        text
<-- p2        text
FORM VALIDATE .
SELECT SINGLE VBELN
                FROM VBAP
                INTO V_VBELN
                WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'enter valid vbeln'.
ENDIF.
ENDFORM.                    " validate
*&      Form get_details
      text
--> p1        text
<-- p2        text
FORM GET_DETAILS .
SELECT VBELN
         POSNR
         MATNR
         FROM VBAP
         INTO TABLE IT_VBAP
         WHERE VBELN IN S_VBELN.
IF SY-SUBRC <> 0.
    MESSAGE E000 WITH 'no details found'.
ENDIF.
ENDFORM.                    " get_details
*&      Form fieldcat
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'VBELN'.
WA_FIELDCAT-OUTPUTLEN = 10.
WA_FIELDCAT-SELTEXT_L = 'SALES DOC'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'POSNR'.
WA_FIELDCAT-OUTPUTLEN = 6.
WA_FIELDCAT-SELTEXT_L = 'ITEM'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_VBAP'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-OUTPUTLEN = 18.
WA_FIELDCAT-SELTEXT_L = 'MATERIAL NO'.
APPEND WA_FIELDCAT TO IT_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM.                    " fieldcat
*&      Form LAYOUT
      text
--> p1        text
<-- p2        text
FORM LAYOUT .
WA_LAYOUT-ZEBRA = 'X'.
ENDFORM.                    " LAYOUT
*&      Form VARIANT
      text
--> p1        text
<-- p2        text
FORM VARIANT .
CLEAR G_VARIANT.
G_VARIANT-REPORT = SY-REPID.
ENDFORM.                    " VARIANT
*&      Form SAVE
      text
--> p1        text
<-- p2        text
FORM SAVE .
CLEAR G_SAVE.
G_SAVE = 'A'.
ENDFORM.                    " SAVE
*&      Form EVENTS
      text
--> p1        text
<-- p2        text
FORM EVENTS .
CLEAR XS_EVENTS.
XS_EVENTS-NAME = SLIS_EV_TOP_OF_PAGE.
XS_EVENTS-FORM = 'TOP_OF_PAGE'.
APPEND XS_EVENTS TO G_EVENTS.
ENDFORM.                    " EVENTS
*&      Form TOP_OF_PAGE
      text
FORM TOP_OF_PAGE.
WRITE :/ ' INTELLI GROUP'.
ENDFORM.                    "TOP_OF_PAGE
*&      Form ALV_DISPLAY
      text
--> p1        text
<-- p2        text
FORM ALV_DISPLAY .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
   EXPORTING
I_INTERFACE_CHECK              = ' '
I_BYPASSING_BUFFER             =
I_BUFFER_ACTIVE                = ' '
     I_CALLBACK_PROGRAM             = SY-REPID
   I_CALLBACK_PF_STATUS_SET         = PF_STATUS
     I_CALLBACK_USER_COMMAND        = USER_COMMAND
I_STRUCTURE_NAME               =
     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                         = G_SAVE
    IS_VARIANT                      = G_VARIANT
     IT_EVENTS                      = G_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
IMPORTING
E_EXIT_CAUSED_BY_CALLER        =
ES_EXIT_CAUSED_BY_USER         =
    TABLES
      T_OUTTAB                       = IT_VBAP
   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.                    " ALV_DISPLAY
*&      Form SET_PF_STATUS
      text
FORM SET_PF_STATUS USING EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'STANDARD' EXCLUDING EXTAB.
ENDFORM.                    "SET_PF_STATUS
*&      Form SET_USER_COMMAND
      text
FORM SET_USER_COMMAND USING R_UCOMM
                            RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
    WHEN 'DC'.
      READ TABLE IT_VBAP INDEX RS_SELFIELD-TABINDEX.
      IF SY-SUBRC = 0.
        SELECT SINGLE MTART
                      FROM MARA
                      INTO V_MTART
                      WHERE MATNR = IT_VBAP-MATNR.
        IF SY-SUBRC <> 0.
   MESSAGE E000 WITH 'NO MATERIAL DESCRIPTION FOR SELECTED MATERIAL NO'.
        ELSE.
          WRITE :/ 'MATERIAL NO :',IT_VBAP-MATNR.
          WRITE :/ 'MATERIAL TYPE :' , V_MTART.
SUBMIT SLIS_DUMMY WITH P_MATNR EQ IT_VBAP-MATNR
                    WITH P_MTART EQ V_MTART.
        ENDIF.
      ENDIF.
    WHEN 'BACK'.
      LEAVE TO SCREEN 0.
    WHEN 'EXIT'.
      LEAVE TO SCREEN 0.
    WHEN 'CLOSE'.
      CALL TRANSACTION 'SE38'.
ENDCASE.
plz reward if useful

Help needed in forming relations

Similar Messages

Maybe you are looking for