SQL Order - matching results to a list
I have a list which I query, matchin the list on the camp_uid. The problem is that I want to display the results in the same order as the list was originally compiled, which is not in numeric order. One option is to set up a loop on the original list values, then use a query over query to obtain the results that are appropriate to that camp_uid, but there must be a better way? I search the ORDER command, there does not seem to be anything in place to make it keep the order of the supplied list in the IN statement.
Anybody have any better ideas than my query over query? I am a lilttle concerned over the the performance being forced to run multiple queries over data that I already have, even if they are in a Query over Query
<CFQUERY name="GetCamp" DATASOURCE="#datasource#">
SELECT camp_uid,camp_title,camp_text,camp_image_type
FROM campaigns
WHERE camp_uid IN (
<cfqueryparam value="#session.camp_list#" cfsqltype="CF_SQL_INTEGER" list="true">
</CFQUERY>
Thanks
Mark
You might try adding a column to your query based on the order the camp ids appear in the list.
To items to consider:
1. This code is not tested.
2. You should validate that your session.camp_list variable contains only integers, else you are vulnerable to a SQL injection attack.
3. This code assume that your list does not contain any duplicate values.
<CFQUERY name="GetCamp" DATASOURCE="#datasource#">
SELECT camp_uid,camp_title,camp_text,camp_image_type,
CASE
<!--- loop over list and create an order value for each camp, this assumes that list does not contain any duplicates --->
<cfloop from="1" to="#ListLen(session.camp_list)#" index="listIdx">
WHEN camp_uid = #ListGetAt(session.camp_list ,listIdx)#
THEN #listIdx#
</cfloop>
END AS camp_order
FROM campaigns
WHERE camp_uid IN ( <cfqueryparam value="#session.camp_list#" cfsqltype="CF_SQL_INTEGER" list="true"> )
ORDER BY camp_order;
</CFQUERY>
Assume that your session.camp_list variable contains "23,17,5" the query qenerated should look like:
SELECT camp_uid,camp_title,camp_text,camp_image_type,
CASE
WHEN camp_uid = 23
THEN 1
WHEN camp_uid = 17
THEN 2
WHEN camp_uid = 5
THEN 3
END AS camp_order
FROM campaigns
WHERE camp_uid IN ( 23,17,5 )
ORDER BY camp_order;
Message was edited by: JR \"Bob\" Dobbs.
Similar Messages
-
In what order are results from gather_database_stats 'LIST AUTO' returned?
11.2.0.1.0. The results from the following seem to have some order to them (groupings of objects returned alphabetically). Didn't see anywhere in the docs to indicate what's getting returned in what order (empty stats, stale stats). I looked at table stats for one at the top of the list and it looks like the table had stats gathered recently, so i'm confused. I ran this from sqlplus:
set serveroutput on size unlimited;
DECLARE
ObjList dbms_stats.ObjectTab;
BEGIN
dbms_stats.gather_database_stats(objlist=>ObjList, options=>'LIST AUTO');
FOR i in ObjList.FIRST..ObjList.LAST
LOOP
dbms_output.put_line(ObjList(i).ownname || '.' || ObjList(i).ObjName || ' ' || ObjList(i).ObjType || ' ' || ObjList(i).partname);
END LOOP;
END;
/Enlightened answer: "So bug off and work with what you get"
The report was run on a database that doesnt have any auto stat collection occurring. There are 4000 items returned in the list. One of the items looks ok when you look at dba_tables (row count correct and last_analyzed recent). Just trying to figure out why this table was included in the list. Might be the way stats collected for it isn't updating some mechanism that gather_database_stats is utilizing. From what I can tell the order is 1) tables with no stats, 2) indexes with no stats, 3) stale tables. -
C5.5 Issue with color/colour in matching question drop down list
Hi is there a way to change the colour of the letters that appear in the drop down lists for a matching question in 5.5?
I'm using white text on a grey background for my quiz slides, which is nice and easy to read, but then in the preview the letters in the drop down appear as white text on a white background. I can't see a way to change the font in the drop down back to black (as it is on my editing view), without also changing the colour of the answer text.
Is there a way to change this?
I've just tried covering the lists over with a chunk of background image - so that the user doesn't even know they're there, but the quiz slide has ordered the image behind the lists.
Failing there being a way to change the colour, is there a way to have a matching slide without a drop down list at all?
Thanks for reading
LynnHi Shekhar
Thanks for the extra info - I'd tried changing the properties and using the object style manager before, but hadn't considered using them together.
This time, I followed your advice and:
I set the colour for 'Matching entries' to black in the object style manager
Then went into each column 1 entry and set the text to white
The result was white text in the column, with black in the list. Much better than before!
However, when I changed the text in column 2 to white, the list entries became white as well.
After a lot of experimentation, I've discovered that if you just select the text object and change the colour, you change all the text including the lettering and numbering of the answer - this changes the list colour.
If you change the text in the answer by highlighting it, this doesn't affect the lettering/numbering, however it still changes the drop down
To leave the drop down the right colour you need to change the answer colour by highlighting first, but, and the order is vital, you need to insert a space between the letter/number and the answer text first.
So, the end result I have is that the column 1 text is the right colour, the column 2 text is the right colour and the text in the drop down is the right colour. Unfortunately the lettering for the column 2 answers has to stay the same as the letters in the drop down list, so they don't show up brilliantly (black on a dark grey background), but it's a massive improvement on the invisible list I had before!
Thanks again!
Lynn -
Divide a string in order to get the distinct list level.
Hi,
I want to divide a string in order to get the distinct list level to relate this with a category table.
The size of my list is dynamic and because of this I’m unable to find a way to do this!
Here goes an example of what I need to do:
Consider the following list:
Category Category_ID
Age 1
Less than 3 months 1.1
Less than 9 months 1.2
Less than 1 year 1.3
Risk 2
Danger 2.1
High 2.1.1
medium 2.1.2
low 2.1.3
If I have a row that has category_id "2.1.3" I want to present values as:
"Risk.Danger.Low"
If I have a row that has category_id "1.1" I want to present values as:
"Age.Less than 3 months"Any hint on what I should search in order to accomplish this?
This will be used to produce a report. This report will contain a few thousand rows and the categories will be around 100.
Thanks,
RicardoHello
I think this is a job for sys_connect_by_path....
with p as
( select 'Age' descr ,'1' cat from dual union all
select 'Less than 3 months' ,'1.1' cat from dual UNION ALL
select 'Less than 9 months' ,'1.2' cat from dual union all
select 'Less than 1 year' ,'1.3' cat from dual union all
select 'Risk' ,'2' cat from dual union all
select 'Danger' ,'2.1' cat from dual union all
select 'High' ,'2.1.1' cat from dual union all
select 'medium' ,'2.1.2' cat from dual union all
select 'low' ,'2.1.3' cat from dual
SELECT
cat,
LTRIM(SYS_CONNECT_BY_PATH(descr,'.'),'.') route
FROM
SELECT
descr,
cat,
SUBSTR(cat,1,INSTR(cat,'.',-1)-1) parent
FROM
p
START WITH
parent IS NULL
CONNECT BY
PRIOR cat = parent
SQL> with p as
2 ( select 'Age' descr ,'1' cat from dual union all
3 select 'Less than 3 months' ,'1.1' cat from dual UNION ALL
4 select 'Less than 9 months' ,'1.2' cat from dual union all
5 select 'Less than 1 year' ,'1.3' cat from dual union all
6 select 'Risk' ,'2' cat from dual union all
7 select 'Danger' ,'2.1' cat from dual union all
8 select 'High' ,'2.1.1' cat from dual union all
9 select 'medium' ,'2.1.2' cat from dual union all
10 select 'low' ,'2.1.3' cat from dual
11 )
12 SELECT
13 cat,
14 LTRIM(SYS_CONNECT_BY_PATH(descr,'.'),'.') route
15 FROM
16 (
17 SELECT
18 descr,
19 cat,
20 SUBSTR(cat,1,INSTR(cat,'.',-1)-1) parent
21 FROM
22 p
23 )
24 START WITH
25 parent IS NULL
26 CONNECT BY
27 PRIOR cat = parent
28 /
CAT ROUTE
1 Age
1.1 Age.Less than 3 months
1.2 Age.Less than 9 months
1.3 Age.Less than 1 year
2 Risk
2.1 Risk.Danger
2.1.1 Risk.Danger.High
2.1.2 Risk.Danger.medium
2.1.3 Risk.Danger.lowHTH
David
Edited by: Bravid on Sep 2, 2011 2:50 PM -
AWR SQL ordered by Cluster Wait Time
I am beginner in Oracle Performance issue, I am working on sql query which appear on the top of queries list in the section SQL ordered by Cluster Wait Time
have any one an explanation for this ?
Thanks,
Edited by: BIJGA on 19 sept. 2011 09:44====================SQL ordered by Elapsed Time
Elapsed Time (s) Executions Elapsed Time per Exec (s) %Total %CPU %IO SQL Id SQL Module SQL Text
1,769.05 2 884.53 3.51 64.30 35.91 acgncjwd5hmjc MYPROG BEGIN MY_PROC (15400...
==============================SQL ordered by Cluster Wait Time
Cluster Wait Time (s) Executions %Total Elapsed Time(s) %Clu %CPU %IO SQL Id SQL Module SQL Text
33.60 12 3.78 888.29 25.96 35.07 61.61 284532152m5up MYPROG SELECT 1 FROM MYTABLE L WHERE (..
Remrak the query 284532152m5up was executed by
OPEN myLock for SELECT 1 FROM MYTABLE L WHERE... for update;
close myLock;
Thanks, -
I'm looking to do some custom ordering of results. Lets say I have a table:
CREATE TABLE test_ordering (
ID NUMBER PRIMARY KEY,
NAME VARCHAR2(40));With some records..
INSERT INTO test_ordering (id, name) VALUES (1,'Apartment 1');
INSERT INTO test_ordering (id, name) VALUES (2,'Apartment 5');
INSERT INTO test_ordering (id, name) VALUES (3,'Apartment 9');
INSERT INTO test_ordering (id, name) VALUES (4,'Apartment 10');
INSERT INTO test_ordering (id, name) VALUES (5,'Apartment 11');
INSERT INTO test_ordering (id, name) VALUES (6,'Apartment 13');
INSERT INTO test_ordering (id, name) VALUES (7,'Apartment 21');
INSERT INTO test_ordering (id, name) VALUES (8,'Unit 1');
INSERT INTO test_ordering (id, name) VALUES (9,'Unit 9');
INSERT INTO test_ordering (id, name) VALUES (10,'Unit 10');
INSERT INTO test_ordering (id, name) VALUES (11,'Unit 15');
INSERT INTO test_ordering (id, name) VALUES (12,'Unit 31');
COMMIT;So if I select and order by name I get
SQL> SELECT * FROM test_ordering ORDER BY name;
ID NAME
1 Apartment 1
4 Apartment 10
5 Apartment 11
6 Apartment 13
7 Apartment 21
2 Apartment 5
3 Apartment 9
8 Unit 1
10 Unit 10
11 Unit 15
12 Unit 31
9 Unit 9
17 rows selected.Now I would like the results in a slightly different order.
ID NAME
1 Apartment 1
2 Apartment 5
3 Apartment 9
4 Apartment 10
5 Apartment 11
6 Apartment 13
7 Apartment 21
8 Unit 1
9 Unit 9
10 Unit 10
11 Unit 15
12 Unit 31So if I want to order by the alpha characters and then by the numeric portion of the NAME.
Any ideas? I've been trying a few things using REGEXP_SUBSTR, but its not working out...
SELECT * FROM test_ordering ORDER BY REGEXP_SUBSTR(name,'[[:alpha:]]'), REGEXP_SUBSTR(name,'[[:digit:]]');Ok, actually I can think of a few more examples now that need a different solution.
Let say we have
DROP TABLE test_ordering;
CREATE TABLE test_ordering (
ID NUMBER PRIMARY KEY,
NAME VARCHAR2(40));
CREATE UNIQUE INDEX test_ordering_sanity_check ON test_ordering(name);
INSERT INTO test_ordering (id, name) VALUES (1,'Apartment 21');
INSERT INTO test_ordering (id, name) VALUES (2,'Apartment 5');
INSERT INTO test_ordering (id, name) VALUES (3,'Apartment 1');
INSERT INTO test_ordering (id, name) VALUES (4,'Apartment 11');
INSERT INTO test_ordering (id, name) VALUES (5,'Apartment 9');
INSERT INTO test_ordering (id, name) VALUES (6,'Apartment 10');
INSERT INTO test_ordering (id, name) VALUES (7,'Apartment 13');
INSERT INTO test_ordering (id, name) VALUES (8,'Unit 1');
INSERT INTO test_ordering (id, name) VALUES (9,'Unit 9');
INSERT INTO test_ordering (id, name) VALUES (10,'Unit 10');
INSERT INTO test_ordering (id, name) VALUES (11,'Unit 15');
INSERT INTO test_ordering (id, name) VALUES (12,'Unit 1a');
INSERT INTO test_ordering (id, name) VALUES (13,'Unit 1b');
INSERT INTO test_ordering (id, name) VALUES (14,'Unit 5');
INSERT INTO test_ordering (id, name) VALUES (15,'Unit 15d');
INSERT INTO test_ordering (id, name) VALUES (16,'Unit 11');
INSERT INTO test_ordering (id, name) VALUES (17,'Unit 11a');
INSERT INTO test_ordering (id, name) VALUES (18,'Unit 20');
INSERT INTO test_ordering (id, name) VALUES (19,'Unit 20a');
INSERT INTO test_ordering (id, name) VALUES (20,'Unit 20b');
INSERT INTO test_ordering (id, name) VALUES (21,'Unit 11b');
INSERT INTO test_ordering (id, name) VALUES (22,'Unit A');
INSERT INTO test_ordering (id, name) VALUES (23,'Unit B');
INSERT INTO test_ordering (id, name) VALUES (24,'Unit C');
COMMIT;And I'd like that ordered like this...
ID NAME
3 Apartment 1
2 Apartment 5
5 Apartment 9
6 Apartment 10
4 Apartment 11
7 Apartment 13
1 Apartment 21
8 Unit 1
10 Unit 10
16 Unit 11
17 Unit 11a
21 Unit 11b
11 Unit 15
15 Unit 15d
12 Unit 1a
13 Unit 1b
14 Unit 5
9 Unit 9
18 Unit 20
19 Unit 20a
20 Unit 20b
22 Unit A
23 Unit B
24 Unit CThanks. -
Been trying for days but it just gets to "Waiting for Apple to deliver your iTunes Match results..." and then stops and allows me to press the Start button again to start the match process. Sometimes I get error -3231.
I've called Apple and they want $19 to solve the issue even though I paid the $25 for Match.
I've turned iTunes Match off. Turned Genius off. Logged out of my iTunes account. Quit iTunes. Restarted. Logged back into iTunes account. Turn Genius on. Turn iTunes Match back on and let it go through the process again with no success.
My library has a couple hundred songs less than the 25,000 max but it is pretty large. Had the same issue when I tried with a smaller library some time ago. I've created a new library and have the same issue.Hi,
You should consider rebooting your internet router
Then try holding option key whilst turning off match. Close iTunes and then reopen. Turn on iTunes Match and select add this computer.
Jim -
Waiting for apple to deliver your itunes match results - time out -uk
Hi,
Help me please
I seem to be stuck in a loop that after the gathering of information has finished, the info is sent to apple and then I get 'waiting for apple to deliver your itunes match results' after about 30 or so seconds I then get an error message
'we could not complete your request, the network timed out, blah blah blah make sure network connection is active' no error code.
I am a windows 7 user, I have comodo fire wall, nod32 and sky broadband.
I have forwarded the ports 80 and 443, i have turned off comodo and disabled nod32, uninstalled, rebooted and reinstalled itunes and I am still no further forward.
My internet connection is fine, i can access and download from the itunes store so there should be no issues, genius is on and working and getting results from apple so what is wrong with match?
Thanks
MarcMarcus_30,
thanks, unfortunately tried almost all of that already...
You must be able to disable the firewall, even just temporarily.
Did that already, no change
Plug directly into the router and have nothing else running.
no change either if connected via Wifi or cable
I take it that you can connect to the store ok?
yes, iTunes store is working fine - even can download at the same time I am getting the network timeout error
Have you been through the re-installing iTunes motions?
this will be my next step - had hoped to avoid that... -
Waiting for apple to deliver your itunes match results
Out of the blue, iMatch is hung-up on step 1 and displays this in the progress bar
"waiting for apple to deliver your itunes match results". Nothing ever happens after that. Songs that I have been adding since the beginning are in the cloud and play on all my devices -even thought in itunes it indicated that they are not in the cloud. Anything new I have added to my library appears on my other devices as grayed-out and do not play. They do play on my PC.
I have a Dell PC with Vista running the latest version of iTunes.
I have signed in/out
Turned iMatch (and genious) off/on
Deauthorized and re-authorized the PC
restarted iTunes
restarted the PC.
I have no other issues with this machine.
Support has not been able to help other than claiming it is Apple's fault.
Thanks, VJI had to restart iTunes.
-
Values in "vendor batch" in the Goods-in-order and Goods-in-plan lists are
Vendor batch No. : Transaction ZJPMPU322
(Background)
There are "vendor batch" and "batch" fields in Goods-in-order and Goods-in-plan lists (transaction ZJPMPU322). Values for these fields are retrieved from inbound delivery document (transaction VL33N). After core 7.0 upgrade, "vendor batch" is not copied from "batch" in inbound delivery document any more so that nothing appears in the vendor batch field in the lists.
(Change request)
Values in "vendor batch" in the Goods-in-order and Goods-in-plan lists are retrieved from "batch" in inbound delivery document ONLY IF "vendor batch" is blank in the inbound delivery document.
(Current design)
Batch is retrieved from LIPS-CHARG
Vendor batch is retrieved from LIPS-LICHN
(If there is no record in LIPS, blank will be printed out for both fields)
(After change)
Batch is retrieved from LIPS-CHARG
Vendor batch is retrieved from LIPS-LICHN only if LIPS-LICHN is not blank.
If LIPS-LICHN is blank, vendor batch is retrieved from LIPS-CHARG.
(If there is no record in LIPS, blank will be printed out for both fields. If both LIPS-CHARG and LIPS-LICHN are blank, blank will be printed out for both fields),
Following is the program:
REPORT zjpmrpu322 MESSAGE-ID zjpm001
NO STANDARD PAGE HEADING
LINE-COUNT 50
LINE-SIZE 255.
*& Development ID: PU_DD_322_LJP *
*& Report : ZJPMRPU322 *
*& The Purpose of this program is to print the Goods-in-order list *
*& and the Goods in plan list for raw materials, materials purchase *
*& etc at the Sasayama plant, Japan. *
*& Change Log: *
*& Init Who Date Text *
*& PV P V R S Varma 07-May-2003 Initial Version *
*& DU D.Usui 2004/02/26 CR No. 1432 *
*& DU D.Usui 2004/03/08 CR No. 1447 *
*& DU D.Usui 2004/05/06 CR No. 1591 *
Constants
CONSTANTS:
c_werks LIKE ekpo-werks VALUE 'JP01', "Plant code - Sasayama plant
c_id LIKE thead-tdid VALUE 'F02', "Text ID for Info record
c_object LIKE thead-tdobject VALUE 'EKPO',"Object of text for info rec
*c_zzjp_r1 LIKE marc-zzjp_re1 VALUE 'GMP', "Goods in plan- Domestic
*c_zzjp_r2 LIKE marc-zzjp_re1 VALUE 'GMPI', "Import sales order document
c_plus TYPE c VALUE '', "Holding '' sign
c_spras LIKE makt-spras VALUE 'J', "Language key Japan
*c_device(7) type c value 'PRINTER', "Device type
c_form(16) TYPE c VALUE 'ZJPMPU305', "Form name
c_ele_gmp(4) TYPE c VALUE 'GMP', "GMP Text element
c_ele_gmpi(4) TYPE c VALUE 'GMPI', "GMPI Text element
add begin CR1432
c_ele_bgmp(4) TYPE c VALUE 'BGMP', "BGMP
c_ele_bgmpi(5) TYPE c VALUE 'BGMPI', "BGMPI
add end CR1432
c_function(3) TYPE c VALUE 'SET', "Function
c_type(4) TYPE c VALUE 'BODY', "Window area in main window
c_win_head(7) TYPE c VALUE 'HEADING', "Heading window
c_win_shead(7) TYPE c VALUE 'SUBHEAD', "sub heading window
c_win_fot1(7) TYPE c VALUE 'FOOTER1', "Footer 1 window
c_win_main(4) TYPE c VALUE 'MAIN', "Main window
c_comd(8) TYPE c VALUE 'NEW-PAGE', "New-page command
c_zar TYPE ekko-bsart VALUE 'ZAR',
c_x TYPE c VALUE 'X', "Indicator for print options
c_f TYPE c VALUE 'F', "Indicator for Purchase Order
add begin CR1591
Deletion indicator in purchasing document
c_loekz(1) TYPE c VALUE 'L',
For ranges tables
c_sign_i(1) TYPE c VALUE 'I', "Sign(include)
c_op_eq(2) TYPE c VALUE 'EQ', "Option(=)
Confirmation category
c_ebtyp_ab(2) TYPE c VALUE 'AB', "Order acknowledgment
add end CR1591
c_la(2) TYPE c VALUE 'LA'. "Indicator for Inbound deliver
Database Tables
Vaiables / Internal tables *
Internal table to store PO information
Not used after CR1591
DATA: BEGIN OF t_purc OCCURS 0,
ebeln LIKE eket-ebeln, "Purchasing Document Number
ebelp LIKE eket-ebelp, "Item Number of Purchasing Document
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled quantity
charg LIKE eket-charg, "Batch number
matnr LIKE ekpo-matnr, "Material code
werks LIKE ekpo-werks, "Plant
meins LIKE ekpo-meins, "Unit of measure
lifnr LIKE ekko-lifnr, "Vendor number
END OF t_purc.
Internal table to store material description.
DATA: BEGIN OF t_makt OCCURS 0,
matnr LIKE makt-matnr, "Material code
maktx LIKE makt-maktx, "Material description
END OF t_makt.
Internal table for storage of final EKET data
DATA: BEGIN OF t_eket OCCURS 0,
ebeln LIKE eket-ebeln, "Purchasing Document Number
ebelp LIKE eket-ebelp, "Item Number of Purchasing Document
ebelp_ex(6) TYPE n, "Extended ebelp with length 6
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled quantity
dabmg LIKE ekes-dabmg, " Delivered Quantity
charg LIKE eket-charg, "Batch number
matnr LIKE ekpo-matnr, "Material code
werks LIKE ekpo-werks, "Plant
maktx LIKE makt-maktx, "Material Description-- jp check
etens LIKE ekes-etens, "Sequence Number
meins LIKE ekpo-meins, "Unit of measure
lifnr LIKE ekko-lifnr, "Vendor number
vbeln LIKE ekes-vbeln,
vbelp LIKE ekes-vbelp,
vpnam(40) TYPE c, "Vendor product name
END OF t_eket.
Internal table for extraction of data from EKES
Not used after CR1591
DATA: BEGIN OF t_ekes OCCURS 0,
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE ekes-eindt, "Item delivery date
menge LIKE ekes-menge, "Scheduled Quantity
dabmg LIKE ekes-dabmg, " delivered quantity
vbeln LIKE ekes-vbeln,
vbelp LIKE ekes-vbelp,
mark TYPE c,
END OF t_ekes.
Internal table for extraction of data from EKES
Not used after CR1591
DATA: BEGIN OF t_ekes_temp OCCURS 0,
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE ekes-eindt, "Item delivery date
menge LIKE ekes-menge, "Scheduled Quantity
END OF t_ekes_temp.
Internal table for storing data from MLGN table.
DATA: BEGIN OF t_mlgn OCCURS 0,
matnr LIKE mlgn-matnr, "material code
lhmg1 LIKE mlgn-lhmg1, "Standard pallet size
lhme1 LIKE mlgn-lhme1, "Unit of measure
lety1 LIKE mlgn-lety1, "tower
ltkze LIKE mlgn-ltkze, "Storage location
END OF t_mlgn.
Internal table for storing data from MARM table.
DATA: BEGIN OF t_marm OCCURS 0,
matnr LIKE marm-matnr, "material code
umrez LIKE marc-zzjp_cas_size, "Std package unit
meins LIKE ekpo-meins, "alternate unit
END OF t_marm.
Internal table for storing data from MARC table.
DATA: BEGIN OF t_marc OCCURS 0,
matnr LIKE marc-matnr, "Material code
zzjp_nyu_sop LIKE marc-zzjp_nyu_sop, "Product Std number
zzjp_dos_frm LIKE marc-zzjp_dos_frm, "Dosage form
zzjp_aprn LIKE marc-zzjp_aprn, "Apperance
zzjp_re1 LIKE marc-zzjp_re1, "Heading
END OF t_marc.
Internal table for storing data from lfa1 table.
DATA: BEGIN OF t_lfa1 OCCURS 0,
lifnr LIKE lfa1-lifnr, "Vendor code
name1 LIKE lfa1-name1, "Vendor name
END OF t_lfa1.
Internal table for Storing data from LIPS table.
DATA: BEGIN OF t_lips OCCURS 0,
vbeln LIKE lips-vbeln, "Delivery document no
posnr LIKE lips-posnr, "Item number for Delivery document
charg LIKE lips-charg, "Batch number
lichn LIKE lips-lichn, "Vendor Batch number
END OF t_lips.
Internal table for storing the final display data.
DATA: BEGIN OF t_display OCCURS 0,
g_checkbox type c, "check box for selection of records
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled Quantity
vpnam(40) TYPE c, "Vendor product name
lifnr LIKE ekko-lifnr, "Vendor code
name1 LIKE lfa1-name1, "Vendor name
meins LIKE ekpo-meins, "Unit of measure
matnr LIKE ekpo-matnr, "Material Number
maktx LIKE makt-maktx, "Material Description-- jp check
charg LIKE lips-charg, "Batch number
lichn LIKE lips-lichn, "Vendor Batch number
lhmg1 LIKE mlgn-lhmg1, "standard pallet size
lhme1 LIKE mlgn-lhme1, "Unit of standard pallet
lety1 LIKE mlgn-lety1, "tower
ltkze LIKE mlgn-ltkze, "Storage location
umrez LIKE marc-zzjp_cas_size, "Std package unit
meinh LIKE ekpo-meins, "alternate unit
zzjp_nyu_sop LIKE marc-zzjp_nyu_sop, "Product Std number
zzjp_dos_frm LIKE marc-zzjp_dos_frm, "Dosage form
zzjp_aprn LIKE marc-zzjp_aprn, "Apperance
zzjp_re1 LIKE marc-zzjp_re1, "Heading
std_pac_no(13) TYPE n, "Std receipt package no
tot_std_pt(13) TYPE n, "Total no of std pallets
add begin CR1447
Add new field 'Goods-in-order','Item' for goods in plan list
vbeln like ekes-vbeln, "Goods-in-order
vbelp like ekes-vbelp, "Item
add end CR1447
END OF t_display.
Internal table for storing the final display data -Goods in order list
DATA: BEGIN OF t_display1 OCCURS 0,
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled Quantity
vpnam(40) TYPE c, "Vendor product name
lifnr LIKE ekko-lifnr, "Vendor code
name1 LIKE lfa1-name1, "Vendor name
meins LIKE ekpo-meins, "Unit of measure
matnr LIKE ekpo-matnr, "Material Number
maktx LIKE makt-maktx, "Material Description-- jp check
charg LIKE lips-charg, "Batch number
lichn LIKE lips-lichn, "Vendor Batch number
lhmg1 LIKE mlgn-lhmg1, "standard pallet size
lhme1 LIKE mlgn-lhme1, "Unit of standard pallet
lety1 LIKE mlgn-lety1, "tower
ltkze LIKE mlgn-ltkze, "Storage location
umrez LIKE marc-zzjp_cas_size, "Std package unit
meinh LIKE ekpo-meins, "alternate unit
zzjp_nyu_sop LIKE marc-zzjp_nyu_sop, "Product Std number
zzjp_dos_frm LIKE marc-zzjp_dos_frm, "Dosage form
zzjp_aprn LIKE marc-zzjp_aprn, "Apperance
zzjp_re1 LIKE marc-zzjp_re1, "Heading
std_pac_no(13) TYPE n, "Std receipt package no
tot_std_pt(13) TYPE n, "Total no of std pallets
END OF t_display1.
Internal table for storing the final display data - Goods in plan list
DATA: BEGIN OF t_display2 OCCURS 0,
ebeln LIKE ekes-ebeln, "Purchasing Document Number
ebelp LIKE ekes-ebelp, "Item Number of Purchasing Document
etens LIKE ekes-etens, "Sequence No
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled Quantity
name1 LIKE lfa1-name1, "Vendor name
meins LIKE ekpo-meins, "Unit of measure
matnr LIKE ekpo-matnr, "Material Number
maktx LIKE makt-maktx, "Material Description-- jp check
charg LIKE lips-charg, "Batch number
lichn LIKE lips-lichn, "Vendor Batch number
lhmg1 LIKE mlgn-lhmg1, "standard pallet size
lety1 LIKE mlgn-lety1, "tower
ltkze LIKE mlgn-ltkze, "Storage location
tot_std_pt(13) TYPE n, "Total no of std pallets
add begin CR1447
Add new field 'Goods-in-order','Item' for goods in plan list
vbeln like ekes-vbeln, "Goods-in-order
vbelp like ekes-vbelp, "Item
add end CR1447
END OF t_display2.
add begin CR1591
RANGES: r_matnr FOR mara-matnr, "for p_matnr
r_ebeln FOR ekpo-ebeln. "for p_ebeln
add end CR1591
DATA: line TYPE i. " line number
DATA: g_checkbox TYPE c. "check box for selection of records
DATA: g_tab LIKE sy-index. "variable to hold index
DATA g_tabix LIKE sy-tabix. "holder for table index
Printing Options.
DATA: lw_pr_options LIKE itcpo.
*lw_pr_options-tddest = 'SA03'. " Print Device Name
lw_pr_options-tdpreview = 'X'. " Print Preview
lw_pr_options-tdnewid = 'X'. " New Request
lw_pr_options-tdlifetime = 2. " Retention in Spool
Selection Screen *
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME.
SELECT-OPTIONS:
s_date FOR sy-datum DEFAULT sy-datum. " Search period.
PARAMETERS:
p_matnr LIKE mara-matnr, " Material code
p_ebeln LIKE ekpo-ebeln. " Purchase Document No
SELECTION-SCREEN END OF BLOCK blk1.
Selection Screen Checks *
AT SELECTION-SCREEN.
IF ( s_date-low IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
MESSAGE e000 WITH 'Entry Must in atleast one of the Fields'(t00).
ENDIF.
IF ( NOT p_matnr IS INITIAL ) AND
( s_date IS INITIAL ) AND
( p_ebeln IS INITIAL ).
MESSAGE e000 WITH 'Date should also be Entered'(t01).
ENDIF.
del begin CR1591
This check is not found in original FS
IF ( NOT p_matnr IS INITIAL ) AND
( s_date IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
MESSAGE e000 WITH 'Date should also be Entered'(t01).
ENDIF.
del end CR1591
Validations for Data selection *
del begin CR1591
Waste check
IF ( NOT s_date IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
PERFORM f_check_date_in_eket.
ENDIF.
IF ( NOT s_date IS INITIAL ) AND
( NOT p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
PERFORM f_check_matnr_in_plant.
PERFORM f_check_matnr_in_ekpo.
PERFORM f_check_date_in_eket.
PERFORM f_check_matnr_in_plant.
PERFORM f_check_matnr_in_ekpo.
ENDIF.
IF ( NOT s_date IS INITIAL ) AND
( NOT p_matnr IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
PERFORM f_check_matnr_in_plant.
PERFORM f_check_matnr_in_ekpo.
PERFORM f_check_date_in_eket.
PERFORM f_check_ebeln_in_ekpo.
PERFORM f_check_werks_in_ekpo.
ENDIF.
IF ( NOT p_ebeln IS INITIAL ) AND
( NOT s_date IS INITIAL ) AND
( p_matnr IS INITIAL ).
PERFORM f_check_date_in_eket.
PERFORM f_check_ebeln_in_ekpo.
PERFORM f_check_werks_in_ekpo.
ENDIF.
IF ( NOT p_ebeln IS INITIAL ) AND
( s_date IS INITIAL ) AND
( p_matnr IS INITIAL ).
PERFORM f_check_ebeln_in_ekpo.
PERFORM f_check_werks_in_ekpo.
ENDIF.
del end CR1591
Data selection from Tables *
START-OF-SELECTION.
SET PF-STATUS 'SELECT'.
add begin CR1591
Set ranges tables
PERFORM set_ranges.
add end CR1591
mod begin CR1591
**Selection of PO data from EKET into internal table t_purc.
PERFORM f_select_eket.
**Selection of corresponding PO data for EKET from EKES into t_ekes.
PERFORM f_select_ekes.
**Selection of material desc from MAKT table into T_makt.
PERFORM f_select_makt.
**Copy the contents of t_purc and t_makt into t_eket table.
PERFORM f_move_eket.
**Replace the corresponding entries of t_eket with t_ekes.
PERFORM f_update_eket.
Selection of PO data from EKET into internal table T_EKET.
PERFORM f_select_eket2.
Selection of corresponding PO data from EKES appending to T_EKET.
PERFORM f_select_ekes2.
Selection of material desc from MAKT table into T_MAKT.
PERFORM f_select_makt2.
mod end CR1591
*Selection of vendor product name.
PERFORM f_select_vpnam.
del begin CR1591
No need
**copy t_eket-ebelp into temporary variable.
PERFORM f_copy_ebelp.
del end CR1591
*selection of data from MLGN table into t_mlgn internal table
PERFORM f_select_mlgn.
*selection of data from marm table into t_marm internal table
PERFORM f_select_marm.
*selection of data from marc table into t_marc internal table
PERFORM f_select_marc.
*selection of data from lfa1 table into t_lfa1 internal table
PERFORM f_select_lfa1.
*Selection of data from LIPS table into t_lips internal table
PERFORM f_select_lips.
del begin CR1591
Don't display list screen when no data exists
*END-OF-SELECTION.
del end CR1591
*lines = sy-linno - 1.
*Collection of data into the final display internal table t_Display
PERFORM f_collect_final.
*Display the contents of t_display as a simple List
PERFORM f_list_display.
AT USER-COMMAND.
PERFORM f_select_layout.
INCLUDE zjpmipu315.
INCLUDE zjpmipu316.
*& Form f_check_MATNR_in_plant
This Routine is to check if the the selected material code is
available in the plant 'JP01'.
FORM f_check_matnr_in_plant.
DATA: l_matnr LIKE mara-matnr.
SELECT matnr UP TO 1 ROWS FROM marc
INTO l_matnr
WHERE
matnr = p_matnr AND
werks = c_werks.
ENDSELECT.
IF l_matnr IS INITIAL.
MESSAGE e000 WITH
'The material is not available in '(t02) c_werks 'plant'(t20).
ENDIF.
ENDFORM. " f_check_MATNR_in_plant
*& Form f_check_EBELN_in_EKPO
This Routine is to check if the Purchase order number selected
is existing or not and if it exists, check if it is related to
the plant 'JP01'.
FORM f_check_ebeln_in_ekpo.
DATA: l_ebeln LIKE ekpo-ebeln.
SELECT ebeln UP TO 1 ROWS FROM ekpo
INTO l_ebeln
WHERE
ebeln = p_ebeln AND
werks = c_werks.
ENDSELECT.
IF l_ebeln IS INITIAL.
MESSAGE e000 WITH
'PO not available or not related to '(t03) c_werks 'plant'(t21).
ENDIF.
ENDFORM. " f_check_EBELN_in_EKPO
*& Form f_check_matnr_in_ekko
This routine is to check if any PO exist for the selected
Material code.
FORM f_check_matnr_in_ekpo.
DATA: l_matnr LIKE ekpo-matnr.
SELECT matnr UP TO 1 ROWS FROM ekpo
INTO l_matnr
WHERE
matnr = p_matnr.
ENDSELECT.
IF l_matnr IS INITIAL.
MESSAGE e000 WITH
'PO does not exist for the material no'(t04) p_matnr.
ENDIF.
ENDFORM. " f_check_matnr_in_ekpo
*& Form f_check_date_in_eket
This routine is to check if any purchase order exists
with the selected
FORM f_check_date_in_eket.
DATA: l_eindt LIKE eket-eindt.
SELECT eindt UP TO 1 ROWS FROM eket
INTO l_eindt
WHERE
eindt IN s_date.
ENDSELECT.
IF l_eindt IS INITIAL.
MESSAGE e000 WITH
'No PO exist with the selected delivery date '(t05).
ENDIF.
ENDFORM. " f_check_date_in_eket
*& Form f_check_werks_in_ekpo
This Routine is to check if the selected purchase order
is associated with the plant JP01
FORM f_check_werks_in_ekpo.
DATA: l_ebeln LIKE ekpo-ebeln.
SELECT ebeln UP TO 1 ROWS FROM ekpo
INTO l_ebeln
WHERE
werks = c_werks.
ENDSELECT.
IF l_ebeln IS INITIAL.
MESSAGE e000 WITH
'The selected P0 is not relevant to '(t06) c_werks 'plant'(t22).
ENDIF.
ENDFORM. " f_check_werks_in_ekpo
*& Form f_select_eket
Routine to collect data from EKET, EKPO, MAKT, EKKO tables
using inner join and store the data into internal table
t_PURC. The data selection is based on the selection screen's
input.
FORM f_select_eket.
IF ( NOT s_date-low IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~eindt IN s_date AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ELSEIF ( NOT s_date-low IS INITIAL ) AND
( NOT p_matnr IS INITIAL ) AND
( p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~eindt IN s_date AND
ekpo~matnr = p_matnr AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ELSEIF ( NOT s_date-low IS INITIAL ) AND
( NOT p_matnr IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~eindt IN s_date AND
ekpo~matnr = p_matnr AND
ekpo~ebeln = p_ebeln AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ELSEIF ( s_date-low IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
ekpo~ebeln = p_ebeln AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ELSEIF ( NOT s_date-low IS INITIAL ) AND
( p_matnr IS INITIAL ) AND
( NOT p_ebeln IS INITIAL ).
SELECT
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO TABLE t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~eindt IN s_date AND
ekpo~ebeln = p_ebeln AND
ekpo~werks = c_werks AND
ekpo~elikz NE c_x AND
ekko~bstyp EQ c_f AND
ekko~bsart NE c_zar.
ENDIF.
IF sy-subrc <> 0.
MESSAGE s000 WITH 'Data not found'(t07).
LEAVE LIST-PROCESSING.
ELSE.
SORT t_purc.
ENDIF.
ENDFORM. " f_select_eket
*& Form f_select_makt
Routine to select the material description for all the
materials present in T_purc table
FORM f_select_makt.
DATA: l_t_makt(4) TYPE c VALUE 'MAKT'.
SELECT
matnr
maktx
FROM
makt
INTO TABLE t_makt
FOR ALL ENTRIES IN t_purc
WHERE
matnr = t_purc-matnr AND
spras = c_spras.
IF sy-subrc <> 0.
MESSAGE s000 WITH
'Relevant data not found in'(t09) l_t_makt 'table'(t23).
ELSE.
SORT t_makt.
ENDIF.
ENDFORM. " f_select_makt
*& Form f_move_eket
Routine to join data in T_PURC and T_MAKT tables into
internal table T_MAKT.
FORM f_move_eket.
LOOP AT t_purc.
t_eket-ebeln = t_purc-ebeln.
t_eket-ebelp = t_purc-ebelp.
t_eket-eindt = t_purc-eindt.
t_eket-menge = t_purc-menge.
t_eket-charg = t_purc-charg.
t_eket-matnr = t_purc-matnr.
t_eket-werks = t_purc-werks.
t_eket-meins = t_purc-meins.
t_eket-lifnr = t_purc-lifnr.
READ TABLE t_makt WITH KEY matnr = t_purc-matnr
BINARY SEARCH.
IF sy-subrc = 0.
t_eket-maktx = t_makt-maktx.
ENDIF.
APPEND t_eket.
CLEAR t_eket.
ENDLOOP.
ENDFORM. " f_move_eket
*& Form f_select_ekes
Routine to select EKES data for all corresponding entries
of T_EKET.
FORM f_select_ekes.
DATA: l_tabix TYPE i.
IF NOT s_date IS INITIAL.
SELECT
ebeln
ebelp
etens
eindt
menge
INTO TABLE t_ekes
FROM
ekes
WHERE
eindt IN s_date.
ELSE.
DESCRIBE TABLE t_purc LINES l_tabix.
IF l_tabix GT 0.
SELECT
ebeln
ebelp
etens
eindt
menge
dabmg
vbeln
vbelp
FROM
ekes
INTO TABLE t_ekes
FOR ALL ENTRIES IN t_eket
FOR ALL ENTRIES IN t_purc
WHERE
ebeln = t_purc-ebeln AND
ebelp = t_purc-ebelp AND
eindt IN s_date.
AND ebeln eq p_ebeln.
and matnr in p_matnr.
ENDIF.
CLEAR l_tabix.
IF NOT s_date IS INITIAL AND NOT p_ebeln IS INITIAL.
SELECT
ekes~ebeln
ekes~ebelp
ekes~etens
ekes~eindt
ekes~menge
ekes~dabmg
APPENDING TABLE t_ekes
FROM ekes
WHERE
eindt IN s_date AND
ebeln EQ p_ebeln AND
ebtyp EQ c_la.
ELSEIF NOT s_date IS INITIAL AND p_ebeln IS INITIAL.
SELECT
ekes~ebeln
ekes~ebelp
ekes~etens
ekes~eindt
ekes~menge
ekes~dabmg
APPENDING TABLE t_ekes
FROM ekes
WHERE
eindt IN s_date AND
ebeln EQ p_ebeln AND
ebtyp EQ c_la.
ELSEIF s_date IS INITIAL AND NOT p_ebeln IS INITIAL.
SELECT
ekes~ebeln
ekes~ebelp
ekes~etens
ekes~eindt
ekes~menge
ekes~dabmg
APPENDING TABLE t_ekes
FROM ekes
WHERE
eindt IN s_date AND
ebeln EQ p_ebeln AND
ebtyp EQ c_la.
ENDIF.
IF sy-subrc = 0.
SORT t_ekes.
ENDIF.
IF NOT t_ekes[] IS INITIAL.
t_ekes_temp[] = t_ekes[].
SORT t_ekes_temp BY ebeln ebelp.
DELETE ADJACENT DUPLICATES FROM t_ekes_temp COMPARING ebeln ebelp.
LOOP AT t_ekes_temp.
READ TABLE t_purc WITH KEY ebeln = t_ekes_temp-ebeln
ebelp = t_ekes_temp-ebelp.
IF sy-subrc NE 0.
CLEAR t_purc.
SELECT SINGLE
eket~ebeln
eket~ebelp
eket~eindt
eket~menge
eket~charg
ekpo~matnr
ekpo~werks
ekpo~meins
ekko~lifnr
INTO CORRESPONDING FIELDS OF t_purc
FROM
( ( eket INNER JOIN ekko ON
eketebeln = ekkoebeln ) INNER JOIN ekpo ON
eketebelp = ekpoebelp AND
ekpoebeln = ekkoebeln )
WHERE
eket~ebeln = t_ekes_temp-ebeln
AND eket~ebelp = t_ekes_temp-ebelp
AND ekpo~elikz NE c_x
AND ekko~bstyp EQ c_f
AND ekko~bsart NE c_zar.
IF sy-subrc EQ 0.
APPEND t_purc.
CLEAR t_purc.
ENDIF.
ENDIF.
ENDLOOP.
ENDIF.
REFRESH: t_ekes_temp, t_ekes.
CLEAR: t_ekes_temp, t_ekes.
Once the header is filled up get the details from EKES
SELECT ebeln ebelp etens eindt menge dabmg vbeln vbelp
INTO TABLE t_ekes
FROM ekes
FOR ALL ENTRIES IN t_purc
WHERE ebeln EQ t_purc-ebeln.
Mark the entries as 'X' which falls in the date range
LOOP AT t_ekes.
IF t_ekes-eindt IN s_date.
t_ekes-mark = 'X'.
MODIFY t_ekes INDEX sy-tabix TRANSPORTING mark.
ENDIF.
ENDLOOP.
SORT t_ekes BY ebeln ebelp ASCENDING mark DESCENDING.
Delete the entries from eket if no entries in EKES falls in the period
LOOP AT t_purc.
l_tabix = sy-tabix.
READ TABLE t_ekes WITH KEY ebeln = t_purc-ebeln
ebelp = t_purc-ebelp.
IF sy-subrc EQ 0.
IF t_ekes-mark NE 'X'.
DELETE t_purc INDEX l_tabix.
ENDIF.
ENDIF.
ENDLOOP.
delete the entries from EKES which do not fall in the specified period
DELETE t_ekes WHERE mark NE 'X'.
ENDFORM. " f_select_ekes
*& Form f_update_eket
Routine to substitute relevant t_eket entries with that of
t_ekes entries.It does not modify the remaining entries for
for which the corresponding values in t_ekes doesnot exist.
FORM f_update_eket.
DATA: BEGIN OF lt_temp_eket OCCURS 0,
ebeln LIKE eket-ebeln, "Purchasing Document Number
ebelp LIKE eket-ebelp, "Item Number of Purchasing Document
eindt LIKE eket-eindt, "Item delivery date
menge LIKE eket-menge, "Scheduled quantity
dabmg LIKE ekes-dabmg, " Delivered quantity
matnr LIKE ekpo-matnr, "Material code
maktx LIKE makt-maktx, "Material Description-- jp check
etens LIKE ekes-etens, "Sequence Number
meins LIKE ekpo-meins, "Unit of measure
lifnr LIKE ekko-lifnr, "Vendor number
charg LIKE eket-charg, " Batch number Added by PD 08/08/03
vbeln LIKE ekes-vbeln,
vbelp LIKE ekes-vbelp,
END OF lt_temp_eket,
l_menge LIKE ekes-menge.
LOOP AT t_eket.
LOOP AT t_ekes WHERE ebeln = t_eket-ebeln
AND ebelp = t_eket-ebelp.
Added by PD 08/08/03
MOVE t_eket-charg TO lt_temp_eket-charg.
addition ends
MOVE t_eket-ebeln TO lt_temp_eket-ebeln.
MOVE t_eket-ebelp TO lt_temp_eket-ebelp.
MOVE t_eket-meins TO lt_temp_eket-meins.
CLEAR l_menge.
l_menge = t_ekes-menge - t_ekes-dabmg.
IF l_menge LE 0.
CONTINUE.
ELSE.
MOVE l_menge TO lt_temp_eket-menge.
ENDIF.
MOVE t_ekes-eindt TO lt_temp_eket-eindt.
MOVE t_ekes-etens TO lt_temp_eket-etens.
MOVE t_eket-lifnr TO lt_temp_eket-lifnr.
MOVE t_eket-maktx TO lt_temp_eket-maktx.
MOVE t_eket-matnr TO lt_temp_eket-matnr.
MOVE t_ekes-vbeln TO lt_temp_eket-vbeln.
MOVE t_ekes-vbelp TO lt_temp_eket-vbelp.
APPEND lt_temp_eket.
CLEAR lt_temp_eket.
CLEAR t_ekes.
ENDLOOP.
IF sy-subrc NE 0.
Added by PD 08/08/03
MOVE t_eket-charg TO lt_temp_eket-charg.
addition ends
MOVE t_eket-ebelnDear
Problem No 1 : we are working in a process industries with three plants each of them have three order type. we have define MRP group in "OPPR" then assign each MRP group to Orde types in "OPPE". Now the problem is whn i convert plan order in process order for any material systme automaticaly pick the order type PIi01.
Answer :
1.Please check the OPPR -Plant and MRP group -Select Order Type Button -Check what Order Type you have assinged here ( PI01( May be the default Process Order Type )
2.If you are maintaing MRP group ( 0001 or 0002) , did you asisng the same in MRP1 view ?? because
3.Did you maintain the similar Order type in OPKP -Define Production Scheduling Profile ? -This has highest priority .
4.Did you maintain correct order type in OPJH-Maintain Order Type ??
Refer the expert comments on the same issue : Strategy group to define production order type
Problem No 2: 2nd Problem is system system is not creating plan order for prrevios dates. say i enter PIR for month of november from first november to 30th november and run MRP on 29th the sytem create plan order on 30th of november with exception message 30.
Answer : You can plan the order in back dated , if you maitain Satrt date in the Past optiuon in OPU3/OPU5-Define Scheduling parameters .Goto OPU3 -Select the Order Type -Double click -Maintain 90-60 days in the Start Date in the past in Scheduling Control and Details scheduling tab .
Hope it helps
regards
JH -
The ABAP/4 Open SQL array insert results in duplicate database records
Hi,
Iam getting following error :
The ABAP/4 Open SQL array insert results in duplicate database records.
Error in ABAP application program.
The current ABAP program "SAPLV60U" had to be terminated because one of the
statements could not be executed.
This is probably due to an error in the ABAP program.
" Information on where terminated
The termination occurred in the ABAP program "SAPLV60U" in "VBUK_BEARBEITEN".
The main program was "SAPMSSY4 ".
The termination occurred in line 503 of the source code of the (Include)
program "LV60UF0V"
of the source code of program "LV60UF0V" (when calling the editor 5030).
Processing was terminated because the exception "CX_SY_OPEN_SQL_DB" occurred in
the
procedure "VBUK_BEARBEITEN" "(FORM)" but was not handled locally, not declared
in the
RAISING clause of the procedure.
The procedure is in the program "SAPLV60U ". Its source code starts in line 469
of the (Include) program "LV60UF0V "."
Please assist how to proceed further ..
Many thanks
Mujeeb.Sorry, THe correct note is 402221.
Description from the note
<< Please do not post SAP notes - they are copyrighed material >>
Edited by: Rob Burbank on Feb 22, 2009 3:46 PM -
The ABAP/4 Open SQL array insert results in duplicate Record in database
Hi All,
I am trying to transfer 4 plants from R/3 to APO. The IM contains only these 4 plants. However a queue gets generated in APO saying 'The ABAP/4 Open SQL array insert results in duplicate record in database'. I checked for table /SAPAPO/LOC, /SAPAPO/LOCMAP & /SAPAPO/LOCT for duplicate entry but the entry is not found.
Can anybody guide me how to resolve this issue?
Thanks in advance
Sandeep PatilHi Sandeep,
Now try to delete ur location before activating the IM again.
Use the program /SAPAPO/DELETE_LOCATIONS to delete locations.
Note :
1. Set the deletion flag (in /SAPAPO/LOC : Location -> Deletion Flag)
2. Remove all the dependencies (like transportation lane, Model ........ )
Check now and let me know.
Regards,
Siva.
null -
Always "Delivering your iTunes Match Result"
I have around 23.5K songs in my iTunes library, and everything works fine for me before. Now, I am going to rip some new CDs to iTunes, the new songs won't upload to iTunes Match. After I manually clicked "Update iTunes Match". It keeps looping with "Delivering your iTunes Match Result" for the whole night. Even I turn it off, and turn it on again (reset the iTunes Match result), but no luck.
I do even remove the newly ripped songs, and reset the iTunes Match result. It works without any new songs. But, after I ripped the CD again, it still keeps "Delivering your iTunes Match Result". It's sad.
Any one has similar problem?
Thanks.
RegardsHi,
I have had this problem on a number of occasions recently.
Usually holding option key (Mac) or shift key (PC) whilst turning off match then relaunching iTunes, turning on match and selecting add this computer works.
These days I don't usually let the automatic scan kick in. If it does, I stop match then go to "Update iTunes match". Usually works but if I think it is taking too long, I stop match go to "Update iTunes match" again.
Try deleting tracks again, select "update genius" then "Update iTunes match". Leave a short time before reripping your CD.
Jim -
SQL function column in drop down list's data provider's query
Just wondering, if it is somehow possible to use SQL function column for drop down list through data provider.
At the moment, I am using id column as return value and name as display value from this query through CachedRowSetDataProvider:
SELECT ALL someTable.Id,
someTable.Name,
someTable.Postal_Code,
FROM someTable
However, I want to change display to use calculated column as display value, for example Name_PostalCode from below mentioned changed query:
SELECT ALL someTable.Id,
CONCAT(someTable.Name, ' - Pin Code: ',someTable.Postal_Code) Name_PostalCode ,
someTable.Name,
someTable.Postal_Code,
FROM someTable
But JSC doesn't seem to like this.
Is it someway possible to achieve this?
Thanks.>
But JSC doesn't seem to like this. Can you explain more. When doesn't it like it, in the design view, in the query editor, when your run it? What is the error you are seeing?
See http://blogs.sun.com/divas/entry/displaying_multiple_fields_in_a -
PL/SQL function returning a colon delimited list of headings
Hello,
Apex version 4.1.0.23. I am editing an existing classic report which has the column heading option set to 'PL/SQL function returning a colon delimited list of headings'. I have been looking for some time but I cannot find where this PL/SQL function is defined. Can any one point me to the right direction? I do not see anything in the documentation either.
Thanks,
UsmanHi Usman,
I looked into this issue and found that there's some JavaScript code executed when opening the page with the PL/SQL headings option enabled, or when selecting that option after loading the page, and this JavaScript attempts to set a background color for the column heading fields. Since we only display attributes for up to 100 columns, this JavaScript fails once you have more than 100 columns.
I would certainly agree with Tony that 60 or 100 columns are a bit much. But there should be some indication why something is not working, even if it's only a message stating that there's only a certain number of columns supported. So I'll log a bug to improve this in APEX 5.0.
Thanks,
Marc
Maybe you are looking for
-
I've had issues with my iPhoto "not responding" and as a result I am attempting to save my photos to an external hard drive using iPhoto library Manager but each time I start the program it saves some, and then when it starts iPhoto, iPhoto then goes
-
I have the brand new X1 Carbon with the WQHD display. I wiped the drive and installed Ubuntu Linux 13.10. Everything works perfectly. Sound, WiFi, camera, trackpad...all running fine with no issues. I also have a new T540p running Windows 8.1. When I
-
FCP 5.1.4 & Sony HDR-V1U (Log/Caputure)
I am running into issues where Final Cut Pro 5.1.4 will no longer recognize my Sony HDR-V1U. Originally, when first connected to FCP, the Sony was able to communicate fine. I also had a few cassettes that were standard def... and since going from NTS
-
with : resultset = stmt.executeQuery("select nxtid from mytable .. for update"); I have the ora-1002 Erreur. Could you help me. null
-
Error Handler (File not Found) missing .cfm
Hi, I have multiple applications on my server. For each application I would like an error handler that will catch missing .cfm files. If a user types in www.abc.com/test.cfm, and test.cfm does not exist, each site will use its own "errorHandler.cfm"