QM Tables- Help Needed

Hi all,
I need to make a report on Defective Quantity ( Materialwise & Vendorwise).
I am trying to make it using the following tables...
qave
qals
marc
mkpf
mseg
qamb
Can somebody suggest me from which table should get Defect type(code) & code group..? Is there any other table for the same..?Coz I need to display defect type alongwith defective material.

Hi,
Make a Select from table QMEL to get field qmnum (Notification No) with the field prueflos (Inspection Lot Number).
SELECT prueflos qmnum INTO TABLE i_defect
    FROM qmel FOR ALL ENTRIES IN i_orden
    WHERE prueflos = p_prueflos.
Then with table i_defect you can select all the defects and groups asociated to Inspection Lot Number
    SELECT qmnum fenum fegrp fecod anzfehler pnlkn merknr probenr
           arbpl arbplwerk feqklas
    INTO TABLE i_defect_complete
    FROM qmfe FOR ALL ENTRIES IN i_defect
    WHERE qmnum = i_defect-qmnum.
regards,
Alejandro.

Similar Messages

Function... to capture data in worksheet to table help needed

hi,
I am new to this field, i need a sample code, for the following
A function1 should capture data elements like 3 to 4 values from discoverer worksheet1 and those values must me transfered to dummy tables..
The data in the dummy tables should be deleted once it is being captured by Function2
Other function2 should capture those data from dummy tables and pass it to other worksheet2. the result on the worksheet 2 will be based on the data in the dummy tables
It would be really helpful, if i get a sample code for this process..
regards
-Seetha.

Hi Sabine,
I created a worksheet 1, which shows the amount of all
customers for Quater1, Quater 2, Quater3 and Quater 4.
And in the end it will show total amount for Quat1,
Quat2,Quat3 and Quat4.
eg.
CUSTOMER     Quat1     Quat2     Quat3     Quat4
abcd          100     10     200     300
zaqws          10     230     90     60
qwer          400     250     300     100
Total          510     580     590     460
This Four Values in total
Quat1_Total = 510
Quat2_Total = 580
Quat2_Total = 590
Quat2_Total = 460
These four amounts has to be transfered to worksheet 2..
the output of the worksheet 2.. depends on these 4
values.
1. How should i captures these four values and pass it
to worksheet 2?
2. Should I have to use function? if so how?
I need sample code for it.. since i am new to this field.
3. Depending up on the result on worksheet 1 , worksheet2
has to provide results like.. comparing with last
quaters...etc..
Thanks in Advance
-Seetha

Looping through a table Help needed ....Forms 10g..... When Button Pressed

Hye craig, hamid, christian and all ...........
i have a user access interface which i create where there are two fields username and password and a button,
i have also created a table USERS for users which have username and password fields ..... On useraccess interface i coded on WHEN BUTTON PRESSED like this
declare
go_block('users');
execute_query;
declare
begin
     if :useraccess.username=:users.username and
          :useraccess.password=:users.password then
          go_block('MAINPAGE');
          else
          go_block('USERACCESS');
          MESSAGE('SORRY WRONG PASSWORD OR NOT A REGISTERED USER');
          MESSAGE('SORRY WRONG PASSWORD OR NOT A REGISTERED USER');
          end if;
end;
This code works for a single user in USERS table but for multiple users there has to be some looping system
which matches the USERACCESS and USERS tables fields thoroughly ....

Hi Majid,
I can suggest you a workaround for this. raise a ON-LOGON trigger and you can use the LOGON_SCREEN builtin to flash the logon screen at runtime. And then try capturing the username and password.
DECLARE
connected BOOLEAN := FALSE;
tries     NUMBER := 3;
un        VARCHAR2(30);
pw        VARCHAR2(30);
cs        VARCHAR2(30);
BEGIN
SET_APPLICATION_PROPERTY(CURSOR_STYLE, 'DEFAULT');
WHILE connected = FALSE and tries > 0
LOOP
    LOGON_SCREEN;
    un := GET_APPLICATION_PROPERTY( USERNAME );
    pw := GET_APPLICATION_PROPERTY( PASSWORD );
    cs := GET_APPLICATION_PROPERTY( CONNECT_STRING );
    LOGON( un, pw || '@' || cs, FALSE );
    IF FORM_SUCCESS
    THEN
      connected := TRUE ;
    END IF;
    tries := tries - 1;
END LOOP;
IF NOT CONNECTED THEN
    MESSAGE('Too many tries!');
    RAISE FORM_TRIGGER_FAILURE ;
END IF;
END ;   a sample piece of coding to help you out.
Regards,
Manoj Chakravarthy

Select distinct problem with muliple join tables, help needed

Hi,
I have two main tables. Each has its of sub joined tables.
guest_id_for_reservation connects two major tables. This has
to be that way
because my guest may change the room status from single to
double (and the
similar exceptional requests).
guests reservation
guest_id_for_reservation
countrytable hoteltable
delegationtable roomtype
I form a query. I want to select distinct those results. But
it does not
work.
If I do not include any table related to reservation table
and its sub
joined tables (disregarding guest_id_for_reservation), it
works.
Is there a specific syntax for select distinct of this type
or any
workaround.?
Thank you
Hakan

Hi I'm still battling with this - have connected the AX to my Imac via ethernet and it shows up fine in Airport Utility. Status light is green and it says its set up to connect to my existing wireless network using wireless connection. Security in Network Preferences is the same for both: WPA2 Personal.
So I don't think there's a problem with the AX, and my current wireless network (BT Home Hub) is working fine.
And when I restore factory settings Airport Utility can see the AX before updating settings so the wireless side of AX must work too.
I'm figuring it must be something about the settings that mean AU can't see it anymore. But I can't work out what, since security is the same.
Any ideas would be great!

Resizing tables help needed

I've been using Dreamweaver 8 for a few years now. I must admit I kind of muddle through a lot of the time but get there in the end.
A recurring problem I have though is when I am editing text in a table or more often nested tables. As I type the table becomes longer which is fine. However if I erase something the table / cell stays the same length. Usually I can just resize it but sometimes I get into an endless loop of trying to resize the inner cell / table then the outer one only to find the inner has set itself again. Sometimes everything seems set correctly but there is still an annoying blank space petruding at the bottom. I then check whether there are things like extra paragraphs html but there isn't.
Is there anyway to make tables and cells always shrink again if text is erased? A kind of 'forget height' setting.

sometimes I get into an endless loop of trying to resize the inner cell / table then the outer one only to find the inner has set itself again.
Avoid manually resizing tables and table cells in DW Design View. In Code View, DW will then constantly insert updated height and width attributes in the <table> and <td> tags, none of which are necessary. This leads to an endless cat-and-mouse game of manually resizing.
Far better to let the table adjust itself after editing the contents.
Is there anyway to make tables and cells always shrink again if text is erased? A kind of 'forget height' setting.
Yes, don't create heights in the first place
To refresh a table after editing its contents, you should just be able to click anywhere on the page (in Design View) outside the table and DW will refresh the table.
Any reason you're still using nested tables? You're aware that the web world has moved on to CSS layouts?

Help Needed Tagging Complex Tables

I am often asked to create accessible versions of PDFs for clients that contain complex tables -- e.g., merged and/or blank cells, multiple levels of subcategory headings. Are there any online resources that might help me understand (a) IF it is possible to create accessible versions of these tables and, if so, (b) HOW to tag them. In the ideal world, we would go back to the original document and revise the table, but that's not always possible.
For example, a document I am working on currently includes a table that looks something like this:
Category
Period 1
Period 2
FTE
$
FTE
$
A. First Heading
    1. First Subhead
        a. Topic A
34
45
        b. Topic B
54
63
Subtotal
108
   2. Second Subhead
       a. Topic A
etc.
I understand how to tag the "Period 1" and "Period 2" headings as column headings that span 2 columns, but I'm not clear on how to handle the blank cells and/or the subheadings. Sorry for such an open-ended questions, but I'm not sure where to look - all the documentation I've seen seems to address fairly simple tables. I am using Acrobat XI for Mac.
Any guidance would be greatly appreciated. Thank you!

Yes, it is possible to create accessible versions of the these tables. There are several possible solutions. In the example above, you are correct that Period 1 and Period 2 need to be tagged as <TH> with Span = 2 Column. Scope also needs to be set to Column. FTE and $ also need to be tagged as TH with Scope = Column. All the cells in Column 1 (A. First Heading, 1. First Subhead, etc.) are <TH> with Scope = Row.
Because this is a complex table you need to Associate the table content with these headings using <ID> tags.
This is unfortunately where things can get a little time consuming. The process can be done within Acrobat using the Touch Up Reading Order (TOR) tool (Accessibility Tool Panel). To briefly summarize -- Select the TOR, select the Table, and click the Table Button on the TOR Menu to open up the Table Editor. The TOR Menu will disappear, and the table will be visible. You can click on individual cells, right click and select Cell Properties.
Select one of the header cells, right click and then select Table Cell Properties. There you will see the ID, which is usually something memorable like TD_08934_121. Changes this to something meaningful like PERIOD_1 and P1_FTE. The name must be unique within the file.
Click OK to save and exit the Table Cell Properties window.
Using the TOR select all of the content cells beneath that header and right click to open the Cell Properties. Acrobat will let you select more than one cell by using the Shift Key, if there are no conflicting values in Cell Properties. Note: At times you may need to work one cell at a time.
Once the Table Cell Properties is open, click the plus next to Associate Header Cell IDs and select the appropriate Heading ID that you defined above.
Repeat until all the content cells are associated with their appropriate column headings, subheadings and row headings.
That's method 1.
Method 2 would be to use the CommonLook plug-in. Adding Table Cell IDs is CommonLook's strong point, but the price is high and there is a learning curve. And I've experienced some troublesome issues involving borders and shading in some files. Still if you have Commonlook available it can be a REAL timesaver for tagging complex tables.
Lastly, there are some tricks and workarounds that would make the structure of this table simple and therefore accessible without all of this. If you are experienced working in the Tags Panel in Acrobat. In the example above you could convert the first row of content Headings Period 1 and Period 2 to Artifacts and then entirely delete that row from the table within the tags panel, Then add alternative text to the second row of headings so FTE will always read as "Period 1 FTE" or Period 2 FTE" and so forth. Some purists may object to this method, but it would work.
NOTE: Any of these methods require further checking with a screen reader to ensure the tables are recognized by tables and no mistakes were made in assigning the headings to the cells and I would also check to make sure any blank cells read as "Blank" as they may be mistagged in the tags panel by the authoring application (e.g., MS Word).

SQL Server 2012 - DB Table Record Merge help needed

Ok, so here is what I have and what I am trying to do. I have a couple of tables I need to pull information out of. The information is stored singly per record in each table like this:
User 1 Info
User 1 Info1
User 1 Info2
User 1
Info3
User 2 Info
User 2 Info1
etc...
What i want to do is query these tables and get my results back like this:
User 1 Info, Info1, Info2, Info3
User 2 Info, Info1
Is this even possible? I ask because I need to tie these tables to another table to get some results I need to review but the table in its current state creates multiple records because of their design.
Thanks.
Jayson

Ok, so after looking online for examples and looking at the answers here and my original note, I notice I didn't really explain this very well or correct. So I want to re-explain this.
I have two tables I need to combine into one result list so I am creating a view for this.
Table 1 has Name that I need
Table 2 has ContactKey that I need
The two tables are tied together by a common factor of Group Key. The SQL code I have to combine the tables into one view looks like this:
SELECT dbo.GroupMain.Name, dbo.GroupMember.MemberContactKey
FROM dbo.GroupMain INNER JOIN
dbo.GroupMember ON dbo.GroupMain.GroupKey = dbo.GroupMember.GroupKey
This results in a list of Names (which are group names that any specific record can be tied to and any record can be tied to more than one) and a MemberContactKey number which is a unique identifier for the record tied to this Name. So if I organize the
results, I will get something like this:
Name MemberContactKey
Group1 123456
Group2 123456
Group3 123456
Group1 456789
Group2 456789
Group1 789456
Group2 789456
Group3 789456
And so on. The Name option can be expanded to any number of groups I need/want to create with no problems. How I want this to look is like this:
MemberContactKey Name
123456 Group1, Group2, Group3
456789 Group1, Group2
789456 Group1, Group2, Group3
I tried using a STUFF call but that didn't seem to want to work unless I did it wrong.
Thanks for the assistance
Jayson

Help needed for writing query

help needed for writing query
i have the following tables(with data) as mentioned below
FK*-foregin key (SUBJECTS)
FK**-foregin key (COMBINATION)
1)SUBJECTS(table name)
SUB_ID(NUMBER) SUB_CODE(VARCHAR2) SUB_NAME (VARCHAR2)
2           02           Computer Science
3           03           Physics
4           04           Chemistry
5           05           Mathematics
7           07           Commerce
8           08           Computer Applications
9           09           Biology
2)COMBINATION
COMB_ID(NUMBER) COMB_NAME(VARCHAR2) SUB_ID1(NUMBER(FK*)) SUB_ID2(NUMBER(FK*)) SUB_ID3(NUMBER(FK*)) SUBJ_ID4(NUMBER(FK*))
383           S1      9           4           2           3
384           S2      4           2           5           3
---------I actually designed the ABOVE table also like this
3) a)COMBINATION
COMB_ID(NUMBER) COMB_NAME(VARCHAR2)
383           S1
384           S2
b)COMBINATION_DET
COMBDET_ID(NUMBER) COMB_ID(FK**) SUB_ID(FK*)
1               383          9
2               383          4
3               383          2
4               383          3
5               384          4
6               384          2
7               384          5
8               384          3
Business rule: a combination consists of a maximum of 4 subjects (must contain)
and the user is less relevant to a COMB_NAME(name of combinations) but user need
the subjects contained in combinations
i need the following output
COMB_ID COMB_NAME SUBJECT1 SUBJECT2      SUBJECT3      SUBJECT4
383     S1     Biology Chemistry      Computer Science Physics
384     S2     Chemistry Computer Science Mathematics Physics
or even this is enough(what i actually needed)
COMB_ID     subjects
383           Biology,Chemistry,Computer Science,Physics
384           Chemistry,Computer Science,Mathematics,Physics
you can use any of the COMBINATION table(either (2) or (3))
and i want to know
1)which design is good in this case
(i think SUB_ID1,SUB_ID2,SUB_ID3,SUB_ID4 is not a
good method to link with same table but if 4 subjects only(and must) comes
detail table is not neccessary )
now i am achieving the result by program-coding in C# after getting the rows from oracle
i am using oracle 9i (also ODP.NET)
i want to know how can i get the result in the stored procedure itsef.
2)how it could be designed in any other way.
any help/suggestion is welcome
thanks for your time --Pradeesh

Well I forgot the table-alias, here now with:
SELECT C.COMB_ID
, C.COMB_NAME
, (SELECT SUB_NAME
FROM SUBJECTS
WHERE SUB_ID = C.SUB_ID1) AS SUBJECT_NAME1
, (SELECT SUB_NAME
FROM SUBJECTS
WHERE SUB_ID = C.SUB_ID2) AS SUBJECT_NAME2
, (SELECT SUB_NAME
FROM SUBJECTS
WHERE SUB_ID = C.SUB_ID3) AS SUBJECT_NAME3
, (SELECT SUB_NAME
FROM SUBJECTS
WHERE SUB_ID = C.SUB_ID4) AS SUBJECT_NAME4
FROM COMBINATION C;
As you need exactly 4 subjects, the columns-solution is just fine I would say.

Help needed for grouping.

Hi,
    Help needed .
I have an internal table having 6 .
Ex :
f1     f2    f3     f4    f5    f6
a     aa    11    p1 10    10
a     aa    12    p1 20    20
b     aa    11    p2 30    30
b     aa    12    p2 40    30
Now i want to sum the fields f5 and f6 individually and need to display based upon the fields f1 and f4.
To Display :
f1     f2    f3     f4    f5    f6
a     aa    11    p1 30    30.
b     aa    11    p2 70    60.
can anyone help me.How to do this..?
Thanks

Here you go
DATA:
BEGIN OF cur_tab OCCURS 0,
    f1        TYPE c,
    f2(2)     TYPE c,
    f3(2)     TYPE c,
    f4(2)     TYPE c,
    f5(2)     TYPE c,
    f6(2)     TYPE n,
END OF cur_tab.
DATA:
BEGIN OF sum_tab OCCURS 0,
    f1        TYPE c,
    f4(2)     TYPE c,
    f5        TYPE p,
    f6        TYPE p,
END OF sum_tab.
DATA:
BEGIN OF final_tab OCCURS 0,
    f1        TYPE c,
    f2(2)     TYPE c,
    f3(2)     TYPE c,
    f4(2)     TYPE c,
    f5(5)     TYPE c,
    f6(5)     TYPE c,
END OF final_tab.
START-OF-SELECTION.
cur_tab-f1 = 'a'.
cur_tab-f2 = 'aa'.
cur_tab-f3 = '11'.
cur_tab-f4 = 'p1'.
cur_tab-f5 = '10'.
cur_tab-f6 = '10'.
APPEND cur_tab.
cur_tab-f1 = 'a'.
cur_tab-f2 = 'aa'.
cur_tab-f3 = '11'.
cur_tab-f4 = 'p1'.
cur_tab-f5 = '20'.
cur_tab-f6 = '20'.
APPEND cur_tab.
cur_tab-f1 = 'b'.
cur_tab-f2 = 'aa'.
cur_tab-f3 = '11'.
cur_tab-f4 = 'p2'.
cur_tab-f5 = '30'.
cur_tab-f6 = '30'.
APPEND cur_tab.
cur_tab-f1 = 'b'.
cur_tab-f2 = 'aa'.
cur_tab-f3 = '11'.
cur_tab-f4 = 'p2'.
cur_tab-f5 = '40'.
cur_tab-f6 = '30'.
APPEND cur_tab.
LOOP AT cur_tab.
    MOVE-CORRESPONDING cur_tab TO sum_tab.
    COLLECT sum_tab.
ENDLOOP.
LOOP AT sum_tab.
    READ TABLE cur_tab WITH KEY f1 = sum_tab-f1
                                f4 = sum_tab-f4.
    IF sy-subrc NE 0.
      WRITE:/ 'Something went very wrong'.
      CONTINUE.
    ENDIF.
    MOVE-CORRESPONDING cur_tab TO final_tab.
    MOVE-CORRESPONDING sum_tab TO final_tab.
    APPEND final_tab.
ENDLOOP.
LOOP AT final_tab.
    WRITE:/1 final_tab-f1,
          AT 5 final_tab-f2,
          AT 10 final_tab-f3,
          AT 15 final_tab-f4,
          AT 20 final_tab-f5,
          AT 25 final_tab-f6.
ENDLOOP.
and the output
a   aa   11   p1     30   30
b   aa   11   p2     70   60

Urgent help needed on oracle queueing

Hi
we have created AQ tables and queues but are facing with the following errors
Thu Aug 30 17:25:31 2007
Errors in file e:\orant\ora9i\pds\udump\pds_ora_4092.trc:
ORA-00600: internal error code, arguments: [opidor: call 1], [], [], [], [], [], [], []
Thu Aug 30 17:44:17 2007
Errors in file e:\orant\ora9i\pds\udump\pds_ora_4092.trc:
ORA-00600: internal error code, arguments: [17281], [1001], [0x25EBB628], [], [], [], [], []
ORA-01001: invalid cursor
Thu Aug 30 17:44:17 2007
Errors in file e:\orant\ora9i\pds\udump\pds_ora_4092.trc:
ORA-00600: internal error code, arguments: [17281], [1001], [0x25EBB628], [], [], [], [], []
ORA-01001: invalid cursor
ORA-00600: internal error code, arguments: [17281], [1001], [0x25EBB628], [], [], [], [], []
ORA-01001: invalid cursor
help needed asap
thanx

ORA-600 should be reported to Oracle support with trace files and alertlog.
Well the following note may help you:
Note: 433389.1
Hope this Helps
Regards

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 setting up Japanese Database

Hi there,
Help needed in setting up Japanese Database.
I created database with UTF8 character set on Sun Solaris O/S.
Oracle version 8.1.7.
I am accessing the DB through SQL*Plus (Windows client).
I downloaded the Japanese font on client side and also set the NLS_LANG environment variable to Japanese_Japan.UTF8. Still, I am not able to view Japanese characters. O/S on client side is Windows 2000 professional (English). Is O/S (client) need to be Japanese O/S? When I try to retrieve sysdate, its displaying in Japanese but not all characters in Japanese. Can anyone help me out how to set up the client and is there any parameters to be setup at server side? I also tried to insert japanese characters into table through client, but it displaying as "?????" characters. Any help in this regard is appreciated.
Thanks in advance,
-Shankar

lol
your program is working just fine.
do you know what accept does? if not read below.
serversocket.accept() is where java stops and waits for a (client)socket to connect to it.
only after a socket has connected wil the program continue.
try putting the accept() in its own little thread and let it wait there while your program continues in another thread

In smartform : in a table i need to maintain fixed no of rec

.2.in smartform in a table i need to maintain fixed no of records in each page i.e 10 records in each page and after printing 10 records page break has to occur and print them in New page , how to do this can any body help me.in each page i.e 10 records in each page and after printing 10 records page break has to occur and print them in New page , how to do this can any body help me.

Hi,
I dont know if there is any direct way of doing so, but ican suggest a turn around solution.
declare 2 global tables 1. ITAB_10 type ITAB (in which there is ur data)
2. IT_ROW inwhich 2 cloumn (start_pos & end_pos type i)
Now in intialization.
Caluculate no of rows in ITAB.
Say there are 56 rows, then fill table it_row as 1(start_pos) - 10(end_pos), 11-20,...51-56.
Then in main Window, Create a loop on IT_ROW.
in that create a CODE under this loop in which fill ur ITAB_10 from ITAB as per start_pos& end_pos in IT_ROW.
Then create TABLE under the loop, for ITAB_10.
Regards,
Vaibhav.

Help needed in userexits.

Hi All,
Iam new to userexits.......i have a requirement....
     How to Develop User exit which captures the sales data, delivery data and shipment data at the time of creation and copy that to a custom table?
need ur help pls....
thnx in advance,
Pavani.

How to create user Exit check
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sapgenie.com/abap/code/abap26.htm
http://www.sap-img.com/abap/what-is-user-exits.htm
http://wiki.ittoolbox.com/index.php/HOWTO:Implement_a_screen_exit_to_a_standard_SAP_transaction
http://www.easymarketplace.de/userexit.php
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sappoint.com/abap/userexit.pdfUser-Exit
Transaction Code - VA02                     Change Sales Order
Exit Name           Description
SDTRM001            Reschedule schedule lines without a new ATP check
V45A0001            Determine alternative materials for product selection
V45A0002            Predefine sold-to party in sales document
V45A0003            Collector for customer function modulpool MV45A
V45A0004            Copy packing proposal
V45E0001            Update the purchase order from the sales order
V45E0002            Data transfer in procurement elements (PRreq., assembly)
V45L0001            SD component supplier processing (customer enhancements)
V45P0001            SD customer function for cross-company code sales
V45S0001            Update sales document from configuration
V45S0003            MRP-relevance for incomplete configuration
V45S0004            Effectivity type in sales order
V45W0001            SD Service Management: Forward Contract Data to Item
V46H0001            SD Customer functions for resource-related billing
V60F0001            SD Billing plan (customer enhancement) diff. to billing plan
No of Exits:         15
Rewards if useful....................
Minal

Problem connecting Crystal reports 10 to Oracle 9, urgent help needed

Post Author: SemV
CA Forum: Data Connectivity and SQL
I am working with Crystal reports Developer 10, connecting it to different native and ODBC datasources, everything working fine, exept the case when I am trying to connect to Oracle 9 ( I tested it with Oracle 10 - got the same result) through ODBC driver. I am getting list of users of specified Oracle DB, but instead of further division on Tables, Stored procedures, Views and Qualifiers for certain user, I am gettting plain list of stored procedures, without possibility to select certain table I need. When trying to connect on the same machine, with the same Crystal and Oracle client installation trough native Oracle driver it works fine.
I tried to download and use last version of the Oracle ODBC drivers for Oracle 9.2 from Oracle web-site, but it didn't work and I got message about odbc driver internal error.
Can anyone, pls, suggest, what the might be a reason for the problem and what can I do to fix it or to try to fix it.

Post Author: synapsevampire
CA Forum: Data Connectivity and SQL
Oracle ODBC is more problematic, why not use native?
If you want additional help, state speicifcally what the error was and when you received it.
-k

QM Tables- Help Needed

Similar Messages

Maybe you are looking for