Problem in sorting data

Hello Friends,
I have a table which has four columns
RCV
RCVDATE date,
RCVITEM varchar2(30),
RCVQNTY number(13,3)
RCVRATE number(6,2)
Now for example i have data as following
12-07-2004 YARN 250 100
18-07-2004 Fabric 300 120
29-07-2004 YARN 750 122
03-08-2004 FABRIC 150 80
15-08-2008 FABRIC 100 50
NOW WHEN I MOVE TO SUMMARY THESE ITEM MONTHWISE I GOT THE DATA 100% CORRECT,BUT THATS DISORDED
MEANS I USE TO_CHAR(RCVDATE,'MON-RRRR') BOTH IN SELECT AND ORDER BY CLUSE
BUT AUG-2004 COMES FIRST
AND JUL-2004 COMES AFTER THAT..
HOW CAN I GET IT IN ASC ORDER OF DATE
I.E JULY FIRST AND AUG SEC..

Hello
Just get rid of the TO_CHAR in the order by clause, this way oracle will be able to sort by the actual date value and not the character representation of it.
HTH

Similar Messages

Problem when sorting data based on date

I am trying to sort the following data based on the Transaction Receipt date column,unable to do it usi g the following syntax:
<?sort:TRANSACTION_RECEIPT_DATE;'ascending';data-type='date'?>
I have problem in converting the date in report to canonical date ,is there any other way to achieve the output without converting the date format.
<?xml version="1.0"?>

<RECDTREP>
<LIST_G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO104</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>07-APR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1></SNO_ATTRIBUTE1>
<OBJECT_ID>24636</OBJECT_ID>
<INITIALIZATION_DATE>07-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863063</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>07-Apr-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO107</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>07-APR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1></SNO_ATTRIBUTE1>
<OBJECT_ID>24641</OBJECT_ID>
<INITIALIZATION_DATE>07-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863068</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>07-Apr-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO123</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>07-APR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1>2008/06/11 00:00:00</SNO_ATTRIBUTE1>
<OBJECT_ID>24658</OBJECT_ID>
<INITIALIZATION_DATE>07-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863086</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>07-Apr-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO75</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>31-MAR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1></SNO_ATTRIBUTE1>
<OBJECT_ID>22190</OBJECT_ID>
<INITIALIZATION_DATE>14-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510860842</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>31-Mar-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>971515</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO116</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>25-JUN-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1>2008/06/11 00:00:00</SNO_ATTRIBUTE1>
<OBJECT_ID>64271</OBJECT_ID>
<INITIALIZATION_DATE>30-JUN-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863077</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>25-Jun-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO92</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>31-MAR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1>2008/06/11 00:00:00</SNO_ATTRIBUTE1>
<OBJECT_ID>22253</OBJECT_ID>
<INITIALIZATION_DATE>14-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510860890</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>31-Mar-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>971515</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO99</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>31-MAR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1></SNO_ATTRIBUTE1>
<OBJECT_ID>22263</OBJECT_ID>
<INITIALIZATION_DATE>14-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510860899</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>31-Mar-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>971515</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO109</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>25-JUN-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1></SNO_ATTRIBUTE1>
<OBJECT_ID>64204</OBJECT_ID>
<INITIALIZATION_DATE>30-JUN-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863070</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>25-Jun-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO135</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>25-JUN-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1>2008/06/18 00:00:00</SNO_ATTRIBUTE1>
<OBJECT_ID>64296</OBJECT_ID>
<INITIALIZATION_DATE>30-JUN-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510875546</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>25-Jun-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO101</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>07-APR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1></SNO_ATTRIBUTE1>
<OBJECT_ID>24618</OBJECT_ID>
<INITIALIZATION_DATE>07-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863046</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>07-Apr-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO120</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>07-APR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1>2008/06/11 00:00:00</SNO_ATTRIBUTE1>
<OBJECT_ID>24653</OBJECT_ID>
<INITIALIZATION_DATE>07-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863081</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>07-Apr-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO122</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>07-APR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1>2008/06/11 00:00:00</SNO_ATTRIBUTE1>
<OBJECT_ID>24657</OBJECT_ID>
<INITIALIZATION_DATE>07-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863085</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>07-Apr-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO127</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>07-APR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1>2008/06/11 00:00:00</SNO_ATTRIBUTE1>
<OBJECT_ID>24662</OBJECT_ID>
<INITIALIZATION_DATE>07-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863090</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>07-Apr-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO100</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>07-APR-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1></SNO_ATTRIBUTE1>
<OBJECT_ID>24585</OBJECT_ID>
<INITIALIZATION_DATE>07-APR-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863033</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>07-Apr-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO110</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>25-JUN-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1>2008/06/11 00:00:00</SNO_ATTRIBUTE1>
<OBJECT_ID>64265</OBJECT_ID>
<INITIALIZATION_DATE>30-JUN-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510863071</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>25-Jun-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
<G_ASW_REC_DATE>
<SNO_CREATED_BY>1433</SNO_CREATED_BY>
<SNO_REQUEST_ID>-1</SNO_REQUEST_ID>
<VENDOR_LOT_NUM>PO130</VENDOR_LOT_NUM>
<SNO_CREATION_DATE>25-JUN-09</SNO_CREATION_DATE>
<SNO_ATTRIBUTE1>2008/06/13 00:00:00</SNO_ATTRIBUTE1>
<OBJECT_ID>64275</OBJECT_ID>
<INITIALIZATION_DATE>30-JUN-09</INITIALIZATION_DATE>
<ORGANIZATION_CODE>10</ORGANIZATION_CODE>
<ORGANISATION_NAME>NDC - PARTS</ORGANISATION_NAME>
<SERIAL_NUMBER>6510875487</SERIAL_NUMBER>
<ITEM_CODE>3000.006</ITEM_CODE>
<DESCRIPTION>ALLISON 3000 SERIES ON HWY TRANSMISSION E016392</DESCRIPTION>
<MANUFACTURER>ALLISON</MANUFACTURER>
<APPLICATION>On Highway</APPLICATION>
<ITEM_COST>8879.02</ITEM_COST>
<MATERIAL_COST>631.09</MATERIAL_COST>
<CURRENCY_CODE>AUD</CURRENCY_CODE>
<PO_UNIT_PRICE></PO_UNIT_PRICE>
<TRANSACTION_RECEIPT_DATE>25-Jun-09</TRANSACTION_RECEIPT_DATE>
<PO_NUMBER>982121</PO_NUMBER>
</G_ASW_REC_DATE>
</LIST_G_ASW_REC_DATE>
<CF_SORT_BY>Manufacture,Receipt Date,Organization,Item Code</CF_SORT_BY>
<CF_SERIAL_WHERE></CF_SERIAL_WHERE>
</RECDTREP>

HI Mahesh,
<TRANSACTION_RECEIPT_DATE>07-Apr-09</TRANSACTION_RECEIPT_DATE>
this is not a date,
so you should change the query to get you the format in xsd format : YYYY-MM-DDThh:mm:ss+HH:MM
otherwise, you have to write a custom sort function to decode and order it it.
if you dont do the custom order and use
<?sort:TRANSACTION_RECEIPT_DATE;'ascending';data-type='date'?>
the data will be treated as string and you will see the row is sorted on string.

Problem with sorting dates

I am taking date from the user in mm/dd/yyyy in the text field.
Since I am maintaing a document management system,
I need to sort docs with respect to dates. Latest date first.
Can anyone help me how do I do this.
I have to get docs from database(mysql) and I cant use order by ....
Please help

How you enter and what gets stored and what gets displayed are controlled by your formating and can be 3 different things.
If you use an sqldate as a type for the mysql then you have raw date data ( some big integer type). This you push through a format to display.
Calendar work = Calendar.getInstance();
java.sql.Date sqldate = new java.sql.Date(work.getTimeInMillis());String displayDate= sqldate.toString();
gives you todays date in the format yyyy-mm-dd
to use something else see:
http://java.sun.com/docs/books/tutorial/i18n/format/simpleDateFormat.html
In the mySQL dates are stored in a sortable format - how they show is NOT how they are stored.
I have dates in mySQL also, I have to display the records in ascending or descending order depending on the module.
Dates are a bitch to work with. You get it working on your local host and then you up load it to your server and it is running with a different date format and everything crashes.
Just wait till they ask for time, it is even worse.
so basically
1- input your date info
2 - tranfrom it into sql date format
3 store it inmysql as a date
4 search it and generate a datset in order of xdate desc
5 read through the data set and format your date for display
Lena

Discoverer 2000 : Problem in sorting date field on report

Hello,
I am not able to sort on date field on report
it is giving error as
( illegal operation).

Thanks Savitha.
I found one more way of making that code work, just want to share this.
If we add the following statement, the same code works without having to add the time part along with date.
"DBMS_XMLSave.setdateformat(updctx, 'yyyy-MM-dd');"
note the format is case sensitive. Instead of MM, if you give 'mm' it won't work, it uses java format.

Problem in sorting with date

Hi,
I have a requirement of sorting a column which displays date or a comment. Because of the presence of comment in some of the rows, the data type is not maintained as Date but as String.
That is cause of problem as the dates are getting sorted as per the String rules.
Could anyone suggest an approach of sorting strings with date??
Many Thanks,
Anagha

Hello Anagha!
Try to this code.
class MyComparator implements Comparator {
     public int compare(Object o1, Object o2) {
     IWDNodeElement element1 = (IWDNodeElement) o1;
     IWDNodeElement element2 = (IWDNodeElement) o2;
     Date date1 = new Date(element1.getAttributeAsText("Your name of Attribute"));
     Date date2 = new Date(element2.getAttributeAsText("Your name of Attribute"));
     return date1.compareTo(date2);
And just use it for your node, like this
    I"YourNode"Node node = wdContext.node"YourNode"();
    MyComparator myComparator = new MyComparator();
    node.sortElements(myComparator);
I hope it helps!
Message was edited by:
        Vitali Bashko

Pb retrieving sorted data from Table in SQL.

Hi,
I get problem to retrieve data in the right order from table in database SQL.
See code attached: code.png
I want to sort data according to ID number And then to retrieve those data and fill out a ring control in the right order "descending" .
But i got always ID 2 instead of 1. See attached picture : control.png
it seems that the select statement (see under) is not woking properly. But it is working well in a query in Access DataBase .
//Select statement
hstmt = DBActivateSQL (hdbc, ("SELECT * FROM %s ORDER BY ID DESCENDING",szTableName));
if (hstmt<= DB_SUCCESS) {ShowError(); goto Error;}
Some idea ??
Lionel.
Attachments:
code.PNG ‏39 KB
control.png ‏32 KB

Hello Lionel,
According to the document Robert linked, the prototype of DBActivateSQL() is:
int statementHandle = DBActivateSQL (int connectionHandle, char SQLStatement[]);
For the 2nd parameter(SQLStatement), you're sending:
("SELECT * FROM %s ORDER BY ID DESCENDING",szTableName)
Probably your intention is to substitute %s with szTableName, but that's not what it happens.
By using comma operator, ("SELECT * FROM %s ORDER BY ID DESCENDING",szTableName) is evaluated to szTableName, so you call is equivalent to:
hstmt = DBActivateSQL (hdbc, szTableName);
In order to substitute %s with szTableName you need to first build the string you're passing as the 2nd parameter:
char query[512];
sprintf(query, "SELECT * FROM %s ORDER BY ID DESCENDING",szTableName);
hstmt = DBActivateSQL (hdbc, query);

How to sort data in cl_gui_alv_tree class?

Hi,
I thought that since this object uses an alv grid that the standard sort functionality would exist. Now that I've developed most of the code, I realize that there is no native sorting functionality.
Is there some way I can make use of the Superclass CL_ALV_TREE_BASE?
It has some methods that are "Private", "Instance" - I'm still a rookie at OO programming in SAP so I'm not sure how best to approach the situation.
As I see it, I have a few options:
1) Manually manage sorting by providing an ascending and descending button/icon on the toolbar and then delete and rebuild the nodes in the tree.
2) Manually track the data along with the nodekeys and then use method MOVE_NODE to reposition the data in the tree
3) Clone these objects and somehow find the code that is causing the sort options to be suppressed in the toolbar.
Has anyone built any applications using CL_ALV_TREE_BASE that permit sorting?
Please don't waste my time by pasting in the links to all the SAP online help for ALV and expect to get points. Been there, done that. If there is a particular section that is of specific value, I'll happily study it and report my findings. Particularly something that explains how to invoke the methods of a superclass and the difference between protected, public, and private.
Mostly though, I really need a way to sort data in the CL_GUI_ALV_TREE class.
Thanks

Hi Ray,
As far as I know, this will not work. I've had the same problem. The only solution I have found was to re-build the tree each time. It is easier than moving nodes around.
You can take a look at the class cl_wa_notifications_wps - in case you have a PM or an A&D system.
Ferenc

Problem: new entered data is saved but I am facing one error message --- no

This is a module program for gate entry of materials(miro). This is a simple entry form which updates z tables with data entered. I have to send the new record details automatically through mail to the particular vendor email id from where the material has been purchased.
Problem: new entered data is saved but I am facing one error message --- no authorization to unpack list with rfc when the program is sending list through mail.
PROGRAM ZMMI001_GRN_ENTRY_BARCODE MESSAGE-ID ZMM .
*Table Declaration
TABLES : EKKO , EKPO , LFA1 , MARC ,
 MARD , J_1IMTCHID , EKET , MSEG,
 MKPF , ZMMT001_GRN_GATE,
 ZMMT002_GRN_ITEM.
TABLES: ADR6.
*Table Control Declaration
CONTROLS : TC1 TYPE TABLEVIEW USING SCREEN 1000.
DATA: COLS LIKE LINE OF TC1-COLS.
*Internal Table Declaration
DATA : BEGIN OF IT_TC1 OCCURS 0,
 SEL,
 SNO(2) TYPE C,
 ITEMCODE(18) TYPE C,
 ITEMNAME(40) TYPE C,
 QUANTITY TYPE P DECIMALS 2,
 EXCISE(13) TYPE P DECIMALS 2,
 END OF IT_TC1.
DATA : IT_TEMP_TC1 LIKE IT_TC1 OCCURS 0 WITH HEADER LINE.
DATA: BDCDATA LIKE BDCDATA OCCURS 0 WITH HEADER LINE.
DATA : IT_EKPO LIKE EKPO OCCURS 0 WITH HEADER LINE.
DATA : IT_EKKO LIKE EKKO OCCURS 0 WITH HEADER LINE.
DATA : IT_EKET LIKE EKET OCCURS 0 WITH HEADER LINE.
DATA : WK_ZMMT01 LIKE ZMMT001_GRN_GATE.
DATA : IT_ZMMT01 LIKE ZMMT001_GRN_GATE OCCURS 0 WITH HEADER LINE.
DATA : IT_ZMMT02 LIKE ZMMT002_GRN_ITEM OCCURS 0 WITH HEADER LINE.
DATA : BEGIN OF IT_TEMP_EKPO OCCURS 0,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 MATNR LIKE EKPO-MATNR,
 END OF IT_TEMP_EKPO.
DATA : BEGIN OF IT_MSEG OCCURS 0,
 MBLNR LIKE MSEG-MBLNR,
 MJAHR LIKE MSEG-MJAHR,
 ZEILE LIKE MSEG-ZEILE,
 BWART LIKE MSEG-BWART,
 MATNR LIKE MSEG-MATNR,
 EBELN LIKE MSEG-EBELN,
 EBELP LIKE MSEG-EBELP,
 BUDAT LIKE MKPF-BUDAT,
 MENGE LIKE MSEG-MENGE,
 END OF IT_MSEG.
DATA : BEGIN OF IT_TEMP_MSEG OCCURS 0,
 MBLNR LIKE MSEG-MBLNR,
 MJAHR LIKE MSEG-MJAHR,
 ZEILE LIKE MSEG-ZEILE,
 BWART LIKE MSEG-BWART,
 EBELN LIKE MSEG-EBELN,
 END OF IT_TEMP_MSEG.
DATA : BEGIN OF IT_TEMP_MKPF OCCURS 0,
 MBLNR LIKE MKPF-MBLNR,
 MJAHR LIKE MKPF-MJAHR,
 BUDAT LIKE MKPF-BUDAT,
 BKTXT LIKE MKPF-BKTXT,
 END OF IT_TEMP_MKPF.
*Data Declaration
DATA : WK_SNO TYPE I,
 WK_LIFNR LIKE LFA1-LIFNR,
 WK_EBELN(10) TYPE C,
 WK_VBELN(10) TYPE C,
 WK_FKDAT TYPE D,
 WK_NAME LIKE LFA1-NAME1,
 WK_SCHNO(10) TYPE C,
 WK_CHALNO(10) TYPE C,
 WK_CHALDATE(10) TYPE C,
 WK_GRNO(10) TYPE C,
 WK_GRDATE(10) TYPE C,
 WK_VEHICLE(10) TYPE C,
 WK_CARRIER(10) TYPE C,
 WK_FREIGHT(13) TYPE P DECIMALS 2,
 WK_MDOC(3) TYPE C,
 WK_DEPT(7) TYPE C,
 WK_MODE(7) TYPE C,
 WK_BASIC(13) TYPE P DECIMALS 2,
 WK_EXCISE(13) TYPE P DECIMALS 2,
 WK_TAX(13) TYPE P DECIMALS 2,
 WK_APPVAL(13) TYPE P DECIMALS 2,
 WK_CHAL(2) TYPE C,
 WK_FORM38(9) TYPE C,
 WK_COMMENT(30) TYPE C,
 WK_MAKTX(40) TYPE C,
 WK_LINES TYPE I,
 WK_TOTAL LIKE MARD-LABST,
 WK_LGORT LIKE MARD-LGORT,
 WK_EXCISE_IND,
 WK_TOT_EXCISE LIKE EKPO-NETWR,
 WK_DIFF LIKE EKPO-NETWR,
 WK_BSTYP LIKE EKKO-BSTYP,
 WK_BSART LIKE EKKO-BSART,
 WK_DIFF_QTY LIKE EKET-MENGE,
 WK_101_QTY LIKE EKET-MENGE,
 WK_102_QTY LIKE EKET-MENGE,
 WK_122_QTY LIKE EKET-MENGE,
 WK_WERKS LIKE EKPO-WERKS,
 WK_CHAR_SNO TYPE STRING,
 WK_DATE LIKE SY-DATUM,
 WK_TIME LIKE SY-UZEIT.
DATA : WK_DATE1 LIKE SY-DATUM,
 WK_DATE2 LIKE SY-DATUM,
 WK_FISYEAR TYPE I,
 WK_CHAR_YEAR(20) TYPE C.
DATA : V_UCOMM TYPE SY-UCOMM,
 V_INDEX(10) TYPE C,
 V_QUANTITY(8) TYPE C.
**DECLARATION FOR INPUT HELP*
TYPES : BEGIN OF VALUES,
 TXZ01 LIKE EKPO-TXZ01,
 MENGE LIKE EKPO-MENGE,
 MATNR LIKE EKPO-MATNR,
 END OF VALUES.
TYPES : BEGIN OF VALUES1,
 EBELN LIKE EKKO-EBELN,
 END OF VALUES1.
TYPES : BEGIN OF VALUES2,
 NAME1 LIKE LFA1-NAME1,
 LIFNR LIKE LFA1-LIFNR,
 END OF VALUES2.
DATA: PROGNAME LIKE SY-REPID,
 DYNNUM LIKE SY-DYNNR,
 DYNPRO_VALUES TYPE TABLE OF DYNPREAD,
 FIELD_VALUE LIKE LINE OF DYNPRO_VALUES,
 VALUES_TAB TYPE TABLE OF VALUES WITH HEADER LINE,
 VALUES_TAB1 TYPE TABLE OF VALUES1,
 VALUE_EBELN TYPE TABLE OF VALUES1.
 VALUES_TAB2 TYPE TABLE OF VALUES2.
DATA : VALUES_TAB2 TYPE VALUES2 OCCURS 0 WITH HEADER LINE.
DATA : RETURN_TAB LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.
*nidhi
DATA: BEGIN OF IT_LFA1 OCCURS 0,
LIFNR LIKE LFA1-LIFNR,
ADRNR LIKE LFA1-ADRNR,
END OF IT_LFA1.
DATA: BEGIN OF IT_ADR6 OCCURS 0,
 ADDRNUMBER TYPE ADR6-ADDRNUMBER,
 SMTP_ADDR TYPE ADR6-SMTP_ADDR,
 END OF IT_ADR6.
*nidhi
*& Module FILL_TABLE_CONTROL OUTPUT
 text
MODULE FILL_TABLE_CONTROL OUTPUT.
READ TABLE IT_TEMP_TC1 INTO IT_TC1 INDEX TC1-CURRENT_LINE.
ENDMODULE. " FILL_TABLE_CONTROL OUTPUT
*& Module READ_TABLE_CONTROL INPUT
 text
MODULE READ_TABLE_CONTROL INPUT.
*Validation for Item code
CLEAR : EKPO-MATNR,
 EKPO-WERKS.
IF sy-uname = 'GATE1020'.
IF ( SY-UNAME = 'GATE1010' OR SY-UNAME = 'GATE1020' OR
 SY-UNAME = 'GATE1030' OR SY-UNAME = 'GATE1040' OR
 SY-UNAME = 'GATE1050' OR SY-UNAME = 'GATE1060' OR
 SY-UNAME = 'GATE1070' OR SY-UNAME = 'GATE1080' OR
 SY-UNAME = 'ABAP' ).
**SELECT SINGLE bstyp FROM EKKO INTO WK_BSTYP WHERE ebeln = wk_ebeln.
**SELECT SINGLE bsart FROM EKKO INTO WK_BSART WHERE ebeln = wk_ebeln.
 READ TABLE VALUES_TAB WITH KEY MATNR = IT_TC1-ITEMCODE.
**ELSE.
 SELECT SINGLE MATNR WERKS
 FROM EKPO CLIENT SPECIFIED
 INTO (EKPO-MATNR , EKPO-WERKS )
 WHERE MANDT = SY-MANDT AND
 EBELN = WK_EBELN AND
 MATNR EQ IT_TC1-ITEMCODE.
ENDIF.
 IF SY-SUBRC NE 0 AND NOT IT_TC1-ITEMCODE IS INITIAL.
CLEAR it_tc1.
 MESSAGE E003 WITH TEXT-002.
 ELSE.
 SELECT SINGLE MAKTX FROM MAKT
 CLIENT SPECIFIED
 INTO WK_MAKTX WHERE
 MANDT = SY-MANDT AND
 MATNR = IT_TC1-ITEMCODE AND SPRAS = SY-LANGU.
 ENDIF.
ENDIF.
**SELECT SINGLE bstyp FROM EKKO INTO WK_BSTYP WHERE ebeln = wk_ebeln.
**SELECT SINGLE bsart FROM EKKO INTO WK_BSART WHERE ebeln = wk_ebeln.
IF ( SY-UNAME = 'GATE1010' OR SY-UNAME = 'GATE1020' OR
 SY-UNAME = 'GATE1030' OR SY-UNAME = 'GATE1040' OR
 SY-UNAME = 'GATE1050' OR SY-UNAME = 'GATE1060' OR
 SY-UNAME = 'GATE1070' OR SY-UNAME = 'GATE1080' OR SY-UNAME =
 'ABAP' ).
 IF WK_BSART = 'ZLR' .
Validation for Quantity.
 IF NOT IT_TC1-QUANTITY IS INITIAL.
 READ TABLE VALUES_TAB WITH KEY MATNR = IT_TC1-ITEMCODE.
 IF SY-SUBRC EQ 0 AND IT_TC1-QUANTITY GT VALUES_TAB-MENGE.
 MESSAGE E003 WITH TEXT-013.
 ENDIF.
 ENDIF.
 ENDIF.
ENDIF.
*Validation for Max.Stock Level
CLEAR : MARC-MABST.
SELECT SINGLE MABST FROM MARC
 CLIENT SPECIFIED
 INTO MARC-MABST
 WHERE MANDT = SY-MANDT AND
 MATNR = IT_TC1-ITEMCODE AND
 WERKS = EKPO-WERKS.
CLEAR : MARD-LABST ,
 MARD-INSME .
SELECT SINGLE labst insme FROM mard
 CLIENT SPECIFIED
 INTO (mard-labst , mard-insme )
 WHERE MANDT = SY-MANDT AND
 matnr = it_tc1-itemcode
 AND werks = ekpo-werks.
SELECT SUM( LABST ) SUM( INSME ) FROM MARD
 CLIENT SPECIFIED
 INTO (MARD-LABST , MARD-INSME )
 WHERE MANDT = SY-MANDT AND
 MATNR = IT_TC1-ITEMCODE
 AND WERKS = EKPO-WERKS.
CLEAR : WK_TOTAL.
WK_TOTAL = MARD-LABST + MARD-INSME + IT_TC1-QUANTITY.
IF WK_BSART = 'ZLR'.
 IF WK_TOTAL GT MARC-MABST.
 MESSAGE E001 WITH IT_TC1-ITEMCODE.
 ENDIF.
ENDIF.
Appending the table control data to Internal table
READ TABLE IT_TEMP_TC1 INDEX TC1-CURRENT_LINE.
IT_TC1-SNO = TC1-CURRENT_LINE.
IF SY-SUBRC EQ 0.
 MODIFY IT_TEMP_TC1 FROM IT_TC1 INDEX TC1-CURRENT_LINE.
ELSE.
 READ TABLE IT_TEMP_TC1 WITH KEY ITEMCODE = IT_TC1-ITEMCODE.
 IF SY-SUBRC NE 0.
 IT_TC1-ITEMNAME = WK_MAKTX.
 IF IT_TC1-ITEMCODE IS INITIAL.
 CLEAR IT_TC1.
 ELSE.
 APPEND IT_TC1 TO IT_TEMP_TC1.
 ENDIF.
 ELSE.
 MESSAGE E003 WITH TEXT-004.
 ENDIF.
ENDIF.
CLEAR : J_1IMTCHID-J_1ICAPIND.
SELECT SINGLE J_1ICAPIND FROM J_1IMTCHID
 CLIENT SPECIFIED
 INTO J_1IMTCHID-J_1ICAPIND
 WHERE MANDT = SY-MANDT AND
 MATNR = IT_TC1-ITEMCODE AND
 WERKS = EKPO-WERKS.
IF SY-SUBRC EQ 0.
 IF J_1IMTCHID-J_1ICAPIND = 'N'.
 WK_EXCISE_IND = 'N'.
 ELSE.
 WK_EXCISE_IND = 'E'.
 ENDIF.
ENDIF.
ENDMODULE. " READ_TABLE_CONTROL INPUT
*& Module USER_COMMAND_1000 INPUT
 text
MODULE USER_COMMAND_1000 INPUT.
V_UCOMM = SY-UCOMM.
CASE V_UCOMM.
 WHEN 'WK_SAVE'.
 IF WK_APPVAL > 0.
 IF ( SY-UNAME = 'STORE1010' OR SY-UNAME = 'STORE1020' OR
 SY-UNAME = 'STORE1030' OR SY-UNAME = 'STORE1040' OR
 SY-UNAME = 'STORE1050' OR SY-UNAME = 'STORE1060' OR
 SY-UNAME = 'STORE1070' OR SY-UNAME = 'STORE1080' ).
 CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'
 EXPORTING
 INPUT = WK_VBELN
 IMPORTING
 OUTPUT = WK_VBELN.
 SELECT * FROM EKKO INTO TABLE IT_EKKO WHERE EBELN = WK_EBELN
 AND
 LOEKZ NE 'X'.
 IF SY-SUBRC EQ 0.
 READ TABLE IT_EKKO INDEX 1.
 WK_BSTYP = IT_EKKO-BSTYP.
 ENDIF.
 SELECT * FROM EKPO CLIENT SPECIFIED
 INTO TABLE IT_EKPO WHERE
 MANDT = SY-MANDT AND
 EBELN = WK_EBELN AND LOEKZ NE 'X'.
 SORT IT_EKPO BY EBELN EBELP.
 IF WK_BSTYP = 'L'.
 SELECT * FROM EKET CLIENT SPECIFIED
 INTO TABLE IT_EKET WHERE
 MANDT = SY-MANDT AND
 EBELN = WK_EBELN.
 IF SY-SUBRC EQ 0.
 SORT IT_EKET BY EBELN EBELP ETENR.
 LOOP AT IT_EKPO.
 CLEAR WK_DIFF_QTY.
 LOOP AT IT_EKET WHERE EBELN = IT_EKPO-EBELN
 AND EBELP = IT_EKPO-EBELP
 AND EINDT LE SY-DATUM.
 WK_DIFF_QTY = WK_DIFF_QTY + IT_EKET-MENGE -
 IT_EKET-WEMNG.
 ENDLOOP.
 IF WK_DIFF_QTY GT 0.
 IT_TEMP_EKPO-EBELN = IT_EKET-EBELN.
 IT_TEMP_EKPO-EBELP = IT_EKET-EBELP.
 IT_TEMP_EKPO-MATNR = IT_EKPO-MATNR.
 APPEND IT_TEMP_EKPO.
 ENDIF.
 ENDLOOP.
 ENDIF.
 ELSEIF WK_BSTYP = 'F'.
 SELECT * FROM EKET
 CLIENT SPECIFIED
 INTO TABLE IT_EKET
 WHERE MANDT = SY-MANDT AND
 EBELN = IT_EKPO-EBELN.
 LOOP AT IT_EKPO.
 CLEAR : WK_DIFF_QTY.
 READ TABLE IT_EKET WITH KEY EBELN = IT_EKPO-EBELN
 EBELP = IT_EKPO-EBELP.
 IF SY-SUBRC EQ 0.
 WK_DIFF_QTY = IT_EKPO-MENGE - IT_EKET-WEMNG.
 ENDIF.
 IF WK_DIFF_QTY GT 0.
 IT_TEMP_EKPO-EBELN = IT_EKET-EBELN.
 IT_TEMP_EKPO-EBELP = IT_EKET-EBELP.
 IT_TEMP_EKPO-MATNR = IT_EKPO-MATNR.
 APPEND IT_TEMP_EKPO.
 ENDIF.
 ENDLOOP.
 ENDIF.
 SORT IT_TEMP_EKPO BY EBELN EBELP.
 PERFORM BDC_DYNPRO USING 'SAPLMIGO' '0001'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=OK_GO'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'GODYNPRO-PO_NUMBER'.
 PERFORM BDC_FIELD USING 'GODYNPRO-PO_NUMBER'
 WK_EBELN.
 PERFORM BDC_DYNPRO USING 'SAPLMIGO' '0001'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=OK_GO'.
 IF WK_EXCISE_IND = 'E'.
 PERFORM BDC_FIELD USING 'J_1IEXHEAD-EXNUM'
 WK_VBELN.
 PERFORM BDC_FIELD USING 'J_1IEXHEAD-EXDAT'
 WK_FKDAT.
 PERFORM BDC_FIELD USING 'GOHEAD-LFSNR'
 WK_VBELN.
 ELSE.
 PERFORM BDC_FIELD USING 'GOHEAD-LFSNR'
 WK_VBELN.
 ENDIF.
 CLEAR : WK_CHAR_SNO.
 WK_CHAR_SNO = WK_SNO.
 CONDENSE WK_CHAR_SNO NO-GAPS.
 PERFORM BDC_FIELD USING 'GOHEAD-BKTXT'
 WK_CHAR_SNO.
 LOOP AT IT_TEMP_TC1.
 READ TABLE IT_TEMP_EKPO WITH KEY MATNR =
 IT_TEMP_TC1-ITEMCODE.
 IF SY-SUBRC EQ 0.
 CLEAR V_INDEX.
 V_INDEX = SY-TABIX.
 CONDENSE V_INDEX NO-GAPS.
 PERFORM BDC_DYNPRO USING 'SAPLMIGO' '0001'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=OK_GO'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'GODYNPRO-DETAIL_ZEILE'.
 PERFORM BDC_FIELD USING 'GODYNPRO-DETAIL_ZEILE'
 PERFORM BDC_FIELD USING 'GODYNPRO-DETAIL_ZEILE'
 V_INDEX.
 PERFORM BDC_DYNPRO USING 'SAPLMIGO' '0001'.
 PERFORM BDC_FIELD USING 'BDC_OKCODE'
 '=OK_GO'.
 PERFORM BDC_FIELD USING 'BDC_CURSOR'
 'GOITEM-ERFMG'.
 PERFORM BDC_FIELD USING 'GOITEM-ERFMG'
 CLEAR V_QUANTITY.
 V_QUANTITY = IT_TEMP_TC1-QUANTITY.
 CONDENSE V_QUANTITY NO-GAPS.
 PERFORM BDC_FIELD USING 'GOITEM-ERFMG'
 V_QUANTITY.
 PERFORM BDC_FIELD USING 'GOITEM-LSMNG'
 V_QUANTITY.
 perform bdc_field using 'GOITEM-LGOBE'
 WK_LGORT.
 ENDIF.
 ENDLOOP.
 CALL TRANSACTION 'MIGO' USING BDCDATA
 MODE 'E'
 UPDATE 'L'.
 IF SY-SUBRC NE 0.
 MESSAGE E003 WITH TEXT-003.
 LOOP AT SCREEN.
 SCREEN-INPUT = 1.
 MODIFY SCREEN.
 ENDLOOP.
 ENDIF.
 LEAVE PROGRAM.
 ELSE.
 CLEAR : WK_TOT_EXCISE.
 IF NOT WK_EXCISE IS INITIAL.
 LOOP AT IT_TEMP_TC1.
 READ TABLE IT_EKPO WITH KEY MATNR = IT_TEMP_TC1-ITEMCODE.
 IF SY-SUBRC EQ 0.
 WK_TOT_EXCISE = WK_TOT_EXCISE +
 ( ( ( IT_EKPO-NETWR / IT_EKPO-MENGE ) * 16 / 100 )
IT_TEMP_TC1-QUANTITY ).
 ENDIF.
 ENDLOOP.
 WK_DIFF = WK_EXCISE - WK_TOT_EXCISE.
 IF WK_DIFF LE 0.
 WK_DIFF = -1 * WK_DIFF.
 ENDIF.
 IF WK_DIFF GE 1.
 WK_COMMENT = 'Difference in Excise. Please Check!'.
 ENDIF.
 ENDIF.
 SELECT * FROM EKPO CLIENT SPECIFIED
 INTO TABLE IT_EKPO WHERE
 MANDT = SY-MANDT AND
 EBELN = WK_EBELN.
 IF SY-SUBRC EQ 0.
 READ TABLE IT_EKPO INDEX 1.
 WK_WERKS = IT_EKPO-WERKS.
 ENDIF.
 SELECT * FROM ZMMT001_GRN_GATE
 CLIENT SPECIFIED
 INTO TABLE IT_ZMMT01
 WHERE MANDT = SY-MANDT AND
 WERKS = WK_WERKS.
 IF SY-SUBRC EQ 0.
 SORT IT_ZMMT01 BY SERIAL DESCENDING.
 READ TABLE IT_ZMMT01 INDEX 1.
 WK_SNO = IT_ZMMT01-SERIAL + 1.
 ELSE.
 WK_SNO = 1.
 ENDIF.
 CLEAR WK_ZMMT01.
 WK_ZMMT01-MANDT = SY-MANDT.
 WK_ZMMT01-SERIAL = WK_SNO.
 WK_ZMMT01-WERKS = WK_WERKS.
 WK_ZMMT01-EBELN = WK_EBELN.
 WK_ZMMT01-LIFNR = WK_LIFNR.
 WK_ZMMT01-CHALNO = WK_CHALNO.
 WK_ZMMT01-CHALDATE = WK_CHALDATE.
 WK_ZMMT01-BILLNO = WK_VBELN.
 WK_ZMMT01-BILLDATE = WK_FKDAT.
 WK_ZMMT01-GRNUMBER = WK_GRNO.
 WK_ZMMT01-GRDATE = WK_GRDATE.
 WK_ZMMT01-VEHICLE = WK_VEHICLE.
 WK_ZMMT01-CARRIER = WK_CARRIER.
 WK_ZMMT01-FREIGHT = WK_FREIGHT.
 WK_ZMMT01-MDOC = WK_MDOC.
 WK_ZMMT01-DEPT = WK_DEPT.
 WK_ZMMT01-PAYMODE = WK_MODE.
 WK_ZMMT01-BASIC = WK_BASIC.
 WK_ZMMT01-EXCISE = WK_EXCISE.
 WK_ZMMT01-TAXAMT = WK_TAX.
 WK_ZMMT01-APPVAL = WK_APPVAL.
 WK_ZMMT01-CHALINV = WK_CHAL.
 WK_ZMMT01-FORM38 = WK_FORM38.
 WK_ZMMT01-COMMENTS = WK_COMMENT.
 WK_ZMMT01-CDATE = SY-DATUM.
 WK_ZMMT01-CTIME = SY-UZEIT.
 WK_ZMMT01-PERSON = SY-UNAME.
 IF WK_FKDAT+4(2) = '04' OR
 WK_FKDAT+4(2) = '05' OR
 WK_FKDAT+4(2) = '06' OR
 WK_FKDAT+4(2) = '07' OR
 WK_FKDAT+4(2) = '08' OR
 WK_FKDAT+4(2) = '09' OR
 WK_FKDAT+4(2) = '10' OR
 WK_FKDAT+4(2) = '11' OR
 WK_FKDAT+4(2) = '12'.
 WK_DATE10(4) = WK_FKDAT0(4).
 WK_DATE1+4(2) = '04'.
 WK_DATE1+6(2) = '01'.
 ELSEIF
 WK_FKDAT+4(2) = '01' OR
 WK_FKDAT+4(2) = '02' OR
 WK_FKDAT+4(2) = '03'.
 WK_FISYEAR = WK_FKDAT+0(4).
 WK_FISYEAR = WK_FISYEAR - 1.
 WK_CHAR_YEAR = WK_FISYEAR.
 CONDENSE WK_CHAR_YEAR NO-GAPS.
 WK_DATE1+0(4) = WK_CHAR_YEAR.
 WK_DATE1+4(2) = '04'.
 WK_DATE1+6(2) = '01'.
 ELSE.
 ENDIF.
nidhi
 SELECT LIFNR ADRNR FROM LFA1 INTO TABLE IT_LFA1 WHERE LIFNR =
 WK_ZMMT01-LIFNR.
 SELECT ADDRNUMBER SMTP_ADDR FROM ADR6 INTO TABLE IT_ADR6 FOR
ALL ENTRIES IN IT_LFA1 WHERE ADDRNUMBER = IT_LFA1-ADRNR.
 SELECT SINGLE * FROM ZMMT001_GRN_GATE
 CLIENT SPECIFIED
 WHERE MANDT = SY-MANDT AND
 WERKS = WK_WERKS AND
 LIFNR = WK_LIFNR AND
 BILLNO = WK_VBELN AND
 BILLDATE GE WK_DATE1.
 IF SY-SUBRC EQ 0.
 MESSAGE E003 WITH TEXT-006.
 ENDIF.
 CLEAR IT_ZMMT02.
 REFRESH IT_ZMMT02.
 LOOP AT IT_TEMP_TC1.
 IT_ZMMT02-MANDT = SY-MANDT.
 IT_ZMMT02-SERIAL = WK_SNO.
 IT_ZMMT02-WERKS = WK_WERKS.
 IT_ZMMT02-EBELN = WK_EBELN.
 IT_ZMMT02-ITEMCODE = IT_TEMP_TC1-ITEMCODE.
 IT_ZMMT02-DESCRIPTION = IT_TEMP_TC1-ITEMNAME.
 IT_ZMMT02-QUANTITY = IT_TEMP_TC1-QUANTITY.
 IT_ZMMT02-EXCISE = IT_TEMP_TC1-EXCISE.
 APPEND IT_ZMMT02.
 CLEAR IT_ZMMT02.
 ENDLOOP.
 IF IT_ZMMT02[] IS INITIAL.
 MESSAGE E003 WITH TEXT-007.
 ENDIF.
 IF SY-UNAME = 'GATE1010' AND WK_WERKS NE '1010'.
 MESSAGE E003 WITH TEXT-008.
 ELSEIF SY-UNAME = 'GATE1020' AND WK_WERKS NE '1020'.
 MESSAGE E003 WITH TEXT-008.
 ELSEIF SY-UNAME = 'GATE1030' AND WK_WERKS NE '1030'.
 MESSAGE E003 WITH TEXT-008.
 ELSEIF SY-UNAME = 'GATE1040' AND WK_WERKS NE '1040'.
 MESSAGE E003 WITH TEXT-008.
 ELSEIF SY-UNAME = 'GATE1050' AND WK_WERKS NE '1050'.
 MESSAGE E003 WITH TEXT-008.
 ELSEIF SY-UNAME = 'GATE1060' AND WK_WERKS NE '1060'.
 MESSAGE E003 WITH TEXT-008.
 ELSEIF SY-UNAME = 'ABAP' AND WK_WERKS NE 'ABAP'.
 MESSAGE E003 WITH TEXT-008.
 ELSEIF SY-UNAME = 'GATE1070' AND WK_WERKS NE '1070'.
 MESSAGE E003 WITH TEXT-008.
 ELSEIF SY-UNAME = 'GATE1080' AND WK_WERKS NE '1080'.
 MESSAGE E003 WITH TEXT-008.
 ENDIF.
 INSERT ZMMT001_GRN_GATE FROM WK_ZMMT01.
 INSERT ZMMT002_GRN_ITEM FROM TABLE IT_ZMMT02.
 IF SY-SUBRC EQ 0.
 COMMIT WORK.
 MESSAGE I002 WITH WK_SNO.
********nidhi*******************************************************
 CALL SCREEN 1001.
 CLEAR WK_LIFNR.
 CLEAR WK_EBELN.
 CLEAR WK_NAME.
 CLEAR WK_SCHNO.
 CLEAR WK_CHALNO.
 CLEAR WK_CHALDATE.
 CLEAR WK_VBELN.
 CLEAR WK_FKDAT.
 CLEAR WK_GRNO.
 CLEAR WK_GRDATE.
 CLEAR WK_VEHICLE.
 CLEAR WK_CARRIER.
 CLEAR WK_FREIGHT.
 CLEAR WK_MDOC.
 CLEAR WK_DEPT.
 CLEAR WK_MODE.
 CLEAR WK_BASIC.
 CLEAR WK_EXCISE.
 CLEAR WK_TAX.
 CLEAR WK_APPVAL.
 CLEAR WK_CHAL.
 CLEAR WK_FORM38.
 REFRESH IT_TEMP_TC1.
 CLEAR WK_FISYEAR.
 CLEAR WK_DATE1.
 CLEAR WK_CHAR_YEAR.
 CALL TRANSACTION 'ZMMI001'.
 ELSE.
 ROLLBACK WORK.
 MESSAGE E003 WITH TEXT-006.
 ENDIF.
 ENDIF.
 ELSE.
 MESSAGE E009 WITH TEXT-014.
 ENDIF.
 WHEN 'WK_EXIT'.
 WHEN 'WK_CLEAR'.
 CLEAR WK_LIFNR.
 CLEAR WK_EBELN.
 CLEAR WK_NAME.
 CLEAR WK_SCHNO.
 CLEAR WK_CHALNO.
 CLEAR WK_CHALDATE.
 CLEAR WK_VBELN.
 CLEAR WK_FKDAT.
 CLEAR WK_GRNO.
 CLEAR WK_GRDATE.
 CLEAR WK_VEHICLE.
 CLEAR WK_CARRIER.
 CLEAR WK_FREIGHT.
 CLEAR WK_MDOC.
 CLEAR WK_DEPT.
 CLEAR WK_MODE.
 CLEAR WK_BASIC.
 CLEAR WK_EXCISE.
 CLEAR WK_TAX.
 CLEAR WK_APPVAL.
 CLEAR WK_CHAL.
 CLEAR WK_FORM38.
 REFRESH IT_TEMP_TC1 .
 CLEAR WK_FISYEAR.
 CLEAR WK_DATE1.
 CLEAR WK_CHAR_YEAR.
 WHEN 'DELETE'.
 DELETE IT_TEMP_TC1 WHERE SEL = 'X'.
ENDCASE.
ENDMODULE. " USER_COMMAND_1000 INPUT
 Start new screen *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR BDCDATA.
BDCDATA-PROGRAM = PROGRAM.
BDCDATA-DYNPRO = DYNPRO.
BDCDATA-DYNBEGIN = 'X'.
APPEND BDCDATA.
ENDFORM. "BDC_DYNPRO
 Insert field *
FORM BDC_FIELD USING FNAM FVAL.
IF FVAL <> NODATA.
CLEAR BDCDATA.
BDCDATA-FNAM = FNAM.
BDCDATA-FVAL = FVAL.
APPEND BDCDATA.
ENDIF.
ENDFORM. "BDC_FIELD
*& Module STATUS_1000 OUTPUT
 text
MODULE STATUS_1000 OUTPUT.
SET PF-STATUS 'GRN'.
SET TITLEBAR 'GRN'.
PROGNAME = SY-REPID.
DYNNUM = SY-DYNNR.
CLEAR: FIELD_VALUE, DYNPRO_VALUES.
FIELD_VALUE-FIELDNAME = 'IT_TC1-ITEMCODE'.
APPEND FIELD_VALUE TO DYNPRO_VALUES.
FIELD_VALUE-FIELDNAME = 'WK_EBELN'.
APPEND FIELD_VALUE TO DYNPRO_VALUES.
FIELD_VALUE-FIELDNAME = 'WK_LIFNR'.
APPEND FIELD_VALUE TO DYNPRO_VALUES.
LOOP AT SCREEN.
 IF SCREEN-NAME NE 'WK_COMMENT'.
 SCREEN-INPUT = 1.
 ENDIF.
 MODIFY SCREEN.
ENDLOOP.
IF ( SY-UNAME = 'GATE1010' OR SY-UNAME = 'GATE1020' OR
 SY-UNAME = 'GATE1030' OR SY-UNAME = 'GATE1040' OR
 SY-UNAME = 'GATE1050' OR SY-UNAME = 'GATE1060' OR
 SY-UNAME = 'GATE1070' OR SY-UNAME = 'GATE1080' OR SY-UNAME =
 'ABAP' ).
 LOOP AT SCREEN.
 IF SCREEN-NAME = 'WK_SNO' OR
 SCREEN-NAME = 'SNO' OR
 SCREEN-NAME = 'WK_COMMENT' .
 SCREEN-INVISIBLE = 1.
 SCREEN-ACTIVE = 0.
 SCREEN-INPUT = 0.
 SCREEN-OUTPUT = 0.
 ENDIF.
 MODIFY SCREEN.
 ENDLOOP.
 IF WK_LIFNR IS INITIAL.
 SET CURSOR FIELD 'WK_LIFNR'.
 ELSEIF WK_EBELN IS INITIAL.
 SET CURSOR FIELD 'WK_EBELN'.
 ELSEIF WK_VBELN IS INITIAL.
 SET CURSOR FIELD 'WK_VBELN'.
 ELSEIF WK_FKDAT IS INITIAL.
 SET CURSOR FIELD 'WK_FKDAT'.
 ENDIF.
ELSE.
 IF NOT WK_SNO IS INITIAL.
 IF SY-UNAME = 'STORE1010'.
 WK_WERKS = '1010'.
 ELSEIF SY-UNAME = 'STORE1020'.
 WK_WERKS = '1020'.
 ELSEIF SY-UNAME = 'STORE1030'.
 WK_WERKS = '1030'.
 ELSEIF SY-UNAME = 'STORE1040'.
 WK_WERKS = '1040'.
 ELSEIF SY-UNAME = 'STORE1050'.
 WK_WERKS = '1050'.
 ELSEIF SY-UNAME = 'STORE1060'.
 WK_WERKS = '1060'.
 ELSEIF SY-UNAME = 'STORE1070'.
 WK_WERKS = '1070'.
 ELSEIF SY-UNAME = 'STORE1080'.
 WK_WERKS = '1080'.
 ENDIF.
 SELECT SINGLE * FROM ZMMT001_GRN_GATE INTO WK_ZMMT01
 WHERE SERIAL = WK_SNO AND
 WERKS = WK_WERKS.
 IF SY-SUBRC EQ 0.
 WK_WERKS = WK_ZMMT01-WERKS.
 WK_EBELN = WK_ZMMT01-EBELN.
 WK_LIFNR = WK_ZMMT01-LIFNR.
 WK_CHALNO = WK_ZMMT01-CHALNO.
 WK_CHALDATE = WK_ZMMT01-CHALDATE.
 WK_VBELN = WK_ZMMT01-BILLNO.
 WK_FKDAT = WK_ZMMT01-BILLDATE.
 WK_GRNO = WK_ZMMT01-GRNUMBER.
 WK_GRDATE = WK_ZMMT01-GRDATE.
 WK_VEHICLE = WK_ZMMT01-VEHICLE.
 WK_CARRIER = WK_ZMMT01-CARRIER.
 WK_FREIGHT = WK_ZMMT01-FREIGHT.
 WK_MDOC = WK_ZMMT01-MDOC.
 WK_DEPT = WK_ZMMT01-DEPT.
 WK_MODE = WK_ZMMT01-PAYMODE.
 WK_BASIC = WK_ZMMT01-BASIC.
 WK_EXCISE = WK_ZMMT01-EXCISE.
 WK_TAX = WK_ZMMT01-TAXAMT.
 WK_APPVAL = WK_ZMMT01-APPVAL.
 WK_CHAL = WK_ZMMT01-CHALINV.
 WK_FORM38 = WK_ZMMT01-FORM38.
 WK_COMMENT = WK_ZMMT01-COMMENTS.
 SELECT * FROM ZMMT002_GRN_ITEM INTO TABLE IT_ZMMT02
 WHERE SERIAL = WK_SNO AND
 WERKS = WK_WERKS.
 IF SY-SUBRC EQ 0.
 CLEAR IT_TEMP_TC1.
 REFRESH IT_TEMP_TC1.
 LOOP AT IT_ZMMT02.
 IT_TEMP_TC1-SNO = SY-TABIX.
 IT_TEMP_TC1-ITEMCODE = IT_ZMMT02-ITEMCODE.
 IT_TEMP_TC1-ITEMNAME = IT_ZMMT02-DESCRIPTION.
 IT_TEMP_TC1-QUANTITY = IT_ZMMT02-QUANTITY.
 APPEND IT_TEMP_TC1.
 CLEAR IT_TEMP_TC1.
 ENDLOOP.
 ENDIF.
 ENDIF.
 LOOP AT SCREEN.
 IF ( SCREEN-NAME NE 'WK_SNO' ) AND
 ( SCREEN-NAME NE 'WK_SAVE' ) AND
 ( SCREEN-NAME NE 'WK_CLEAR' ) AND
 ( SCREEN-NAME NE 'WK_EXIT' ).
 SCREEN-INPUT = 0.
 ENDIF.
 MODIFY SCREEN.
 ENDLOOP.
 LOOP AT TC1-COLS INTO COLS WHERE INDEX GT 0.
 COLS-SCREEN-INPUT = '0'.
 MODIFY TC1-COLS FROM COLS INDEX SY-TABIX.
 ENDLOOP.
 ENDIF.
ENDIF.
WK_DATE = SY-DATUM.
WK_TIME = SY-UZEIT.
TC1-LINES = 20.
ENDMODULE. " STATUS_1000 OUTPUT
*& Module EXIT_1000 INPUT
 text
MODULE EXIT_1000 INPUT.
CASE SY-UCOMM.
 WHEN 'BACK' OR 'CANCEL' OR 'EXIT' OR 'WK_EXIT'.
 LEAVE PROGRAM.
ENDCASE.
ENDMODULE. " EXIT_1000 INPUT
*& Module ITEM_CODE INPUT
 text
MODULE ITEM_CODE INPUT.
REFRESH : VALUES_TAB.
CLEAR : VALUES_TAB.
IF ( SY-UNAME = 'GATE1020' OR
SY-UNAME = 'GATE1010' OR
SY-UNAME = 'GATE1030' OR
SY-UNAME = 'GATE1040' OR
SY-UNAME = 'GATE1050' OR
SY-UNAME = 'GATE1060' OR
SY-UNAME = 'GATE1070' OR
SY-UNAME = 'STORE1020' OR
SY-UNAME = 'STORE1030' OR
SY-UNAME = 'STORE1040' OR
SY-UNAME = 'STORE1050' OR
SY-UNAME = 'STORE1060' OR
SY-UNAME = 'STORE1070' OR
SY-UNAME = 'STORE1010' OR
 SY-UNAME = 'ABAP' ).
 SELECT * FROM EKKO CLIENT SPECIFIED
 INTO TABLE IT_EKKO WHERE
 MANDT = SY-MANDT AND
 EBELN = WK_EBELN AND
 LOEKZ NE 'X'.
 IF SY-SUBRC EQ 0.
 READ TABLE IT_EKKO INDEX 1.
 WK_BSTYP = IT_EKKO-BSTYP.
 WK_BSART = IT_EKKO-BSART.
 ENDIF.
 if wk_bsart = 'ZLR'.
 SELECT * FROM EKPO CLIENT SPECIFIED
 INTO TABLE IT_EKPO WHERE
 MANDT = SY-MANDT AND
 EBELN = WK_EBELN AND
 LOEKZ NE 'X'.
 SORT IT_EKPO BY EBELN EBELP.
 IF WK_BSTYP = 'L' AND WK_BSART = 'ZLR'.
 SELECT * FROM EKET CLIENT SPECIFIED
 INTO TABLE IT_EKET WHERE
 MANDT = SY-MANDT AND
 EBELN = WK_EBELN.
 IF SY-SUBRC EQ 0.
 SORT IT_EKET BY EBELN EBELP ETENR.
 LOOP AT IT_EKPO.
 CLEAR WK_DIFF_QTY.
 LOOP AT IT_EKET WHERE EBELN = IT_EKPO-EBELN
 AND EBELP = IT_EKPO-EBELP
 AND EINDT LE SY-DATUM.
 WK_DIFF_QTY = WK_DIFF_QTY + IT_EKET-MENGE - IT_EKET-WEMNG.
 ENDLOOP.
 IF WK_DIFF_QTY GT 0.
 VALUES_TAB-TXZ01 = IT_EKPO-TXZ01.
 VALUES_TAB-MENGE = WK_DIFF_QTY.
 VALUES_TAB-MATNR = IT_EKPO-MATNR.
 APPEND VALUES_TAB.
 ENDIF.
 ENDLOOP.
 ENDIF.
 ELSEIF WK_BSTYP = 'F'.
 SELECT mseg~mblnr
 mseg~mjahr
 mseg~zeile
 mseg~bwart
 mseg~matnr
 mseg~ebeln
 mseg~ebelp
 mkpf~budat
 mseg~menge INTO TABLE it_mseg
 FROM mkpf INNER JOIN mseg
 ON mkpfmblnr EQ msegmblnr
 AND mkpfmjahr EQ msegmjahr
FOR ALL entries IN it_ekpo
WHERE bwart IN ('101','122','102')
AND werks = it_ekpo-werks
AND ebeln = it_ekpo-ebeln
AND ebelp = it_ekpo-ebelp.
 SELECT * FROM EKET CLIENT SPECIFIED
 INTO TABLE IT_EKET
 WHERE MANDT = SY-MANDT AND
 EBELN = IT_EKPO-EBELN.
 LOOP AT IT_EKPO.
 CLEAR : WK_DIFF_QTY.
 wk_101_qty,
 wk_102_qty,
 wk_122_qty.
 LOOP AT it_mseg WHERE ebeln = it_ekpo-ebeln AND
 ebelp = it_ekpo-ebelp.
 IF it_mseg-bwart = '101'.
 wk_101_qty = wk_101_qty + it_mseg-menge.
 ENDIF.
 IF it_mseg-bwart = '102'.
 wk_102_qty = wk_102_qty + it_mseg-menge.
 ENDIF.
 IF it_mseg-bwart = '122'.
 wk_122_qty = wk_122_qty + it_mseg-menge.
 ENDIF.
 ENDLOOP.
 if not it_mseg[] is initial.
 wk_diff_qty = it_ekpo-menge - wk_101_qty
 - wk_102_qty - wk_122_qty.
 else.
 wk_diff_qty = it_ekpo-menge.
 endif.
 READ TABLE IT_EKET WITH KEY EBELN = IT_EKPO-EBELN
 EBELP = IT_EKPO-EBELP.
 IF SY-SUBRC EQ 0.
 WK_DIFF_QTY = IT_EKPO-MENGE - IT_EKET-WEMNG.
 ENDIF.
 IF wk_diff_qty LE it_ekpo-menge.
 IF WK_DIFF_QTY GT 0.
 VALUES_TAB-TXZ01 = IT_EKPO-TXZ01.
 VALUES_TAB-MENGE = WK_DIFF_QTY.
 VALUES_TAB-MATNR = IT_EKPO-MATNR.
 APPEND VALUES_TAB.
 ENDIF.
 ENDLOOP.
 ENDIF.
 ELSE.
 SELECT TXZ01
 MATNR FROM EKPO CLIENT SPECIFIED
 INTO CORRESPONDING FIELDS OF TABLE VALUES_TAB
 WHERE MANDT = SY-MANDT AND
 EBELN = WK_EBELN AND
 LOEKZ NE 'X'.
 ENDIF.
ELSE.
 SELECT TXZ01
 MATNR FROM EKPO CLIENT SPECIFIED
 INTO CORRESPONDING FIELDS OF TABLE VALUES_TAB
 WHERE MANDT = SY-MANDT AND
 EBELN = WK_EBELN AND
 LOEKZ NE 'X'.
ENDIF.
SORT VALUES_TAB BY TXZ01.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
 EXPORTING
 RETFIELD = 'IT_TC1-ITEMCODE'
 DYNPPROG = PROGNAME
 DYNPNR = DYNNUM
 DYNPROFIELD = 'IT_TC1-ITEMCODE'
 VALUE_ORG = 'S'
 TABLES
 VALUE_TAB = VALUES_TAB
 RETURN_TAB = RETURN_TAB
 EXCEPTIONS
 PARAMETER_ERROR = 1
 NO_VALUES_FOUND = 2
 OTHERS = 3.
*BREAK-POINT.
IF SY-SUBRC = 0.
 READ TABLE RETURN_TAB INDEX 1.
 SELECT SINGLE MAKTX FROM MAKT CLIENT SPECIFIED
 INTO WK_MAKTX WHERE
 MANDT = SY-MANDT AND
 MATNR = RETURN_TAB-FIELDVAL AND SPRAS = SY-LANGU.
ENDIF.
ENDMODULE. " ITEM_CODE INPUT
*& Module CHECK_INPUT INPUT
 text
MODULE CHECK_INPUT INPUT.
CLEAR : EKKO-EBELN , EKKO-LIFNR.
SELECT SINGLE EBELN LIFNR FROM EKKO CLIENT SPECIFIED
INTO (EKKO-EBELN , EKKO-LIFNR ) WHERE
MANDT = SY-MANDT AND
EBELN = WK_EBELN.
IF SY-SUBRC NE 0 AND ( SY-UNAME = 'GATE1010' OR
 SY-UNAME = 'GATE1020' OR
 SY-UNAME = 'GATE1030' OR
 SY-UNAME = 'GATE1040' OR
 SY-UNAME = 'GATE1050' OR
 SY-UNAME = 'GATE1060' OR
 SY-UNAME = 'GATE1070' OR
 SY-UNAME = 'GATE1080' OR SY-UNAME = 'ABAP' ).
 IF WK_EBELN NE SPACE.
 MESSAGE E003 WITH TEXT-001.
 ENDIF.
ELSE.
 WK_LIFNR = EKKO-LIFNR.
 CLEAR : LFA1-NAME1.
 SELECT SINGLE NAME1 FROM LFA1 CLIENT SPECIFIED
 INTO LFA1-NAME1 WHERE
 MANDT = SY-MANDT AND
 LIFNR = WK_LIFNR.
 IF SY-SUBRC EQ 0.
 WK_NAME = LFA1-NAME1.
 ENDIF.
ENDIF.
IF ( SY-UNAME = 'GATE1010' OR SY-UNAME = 'GATE1020' OR
 SY-UNAME = 'GATE1030' OR SY-UNAME = 'GATE1040' OR
 SY-UNAME = 'GATE1050' OR SY-UNAME = 'GATE1060' OR
 SY-UNAME = 'GATE1070' OR SY-UNAME = 'GATE1080' OR SY-UNAME =
 'ABAP' ).
 IF wk_vbeln IS INITIAL.
 set cursor field wk_vbeln.
 MESSAGE E003 WITH text-009.
 ENDIF.
 IF wk_fkdat IS INITIAL.
 MESSAGE E003 WITH text-010.
 ENDIF.
ENDIF.
IF ( SY-UNAME = 'STORE1010' OR SY-UNAME = 'STORE1020' OR
 SY-UNAME = 'STORE1030' OR SY-UNAME = 'STORE1040' OR
 SY-UNAME = 'STORE1050' OR SY-UNAME = 'STORE1060' OR
 SY-UNAME = 'STORE1070' OR SY-UNAME = 'STORE1080' ).
 CLEAR : ZMMT001_GRN_GATE.
 SELECT SINGLE EBELN CDATE FROM ZMMT001_GRN_GATE
 CLIENT SPECIFIED
 INTO (ZMMT001_GRN_GATE-EBELN ,
 ZMMT001_GRN_GATE-CDATE )
 WHERE MANDT = SY-MANDT AND
 SERIAL = WK_SNO AND WERKS = WK_WERKS.
 IF SY-SUBRC EQ 0.
 SELECT MBLNR
 MJAHR
 BUDAT
 BKTXT FROM MKPF CLIENT SPECIFIED
 INTO TABLE IT_TEMP_MKPF
 WHERE MANDT = SY-MANDT AND
 BUDAT = ZMMT001_GRN_GATE-CDATE
 AND BKTXT = WK_SNO.
 IF

Hi,
after calling you programm and get the message call transaction su53. That willl display the authorization that you need.
Hope this helps.
Regards
Bernd

Problems with the "Date Created" Metadata in Adobe Bridge

Hi everyone.
I am currently working on an electronic photo library for our organization. Part of my mandate is to add a Date Created metadata on all the photos since it is very important to know when the photo was taken. Some photos were dated since 1980s. Since we do not have the digital version of the old photos, we end up scanning these and, in effect the date specified on the "Date Created" was the date it was scanned.
I have the date of some of the old photos when it was taken, but for some, I only have the month and the year (sometimes, just the year). Inventing a day and a month is not an option.
Is it possible to enter a month-year or just the year on the Date Created field under Metadata?
I appreciate your help.
Thanks,
.m.u.r.d.o.c.h.

The problem is that dates are recorded in the file in different schemas. Bridge is displaying the XMP Date Created field which was likely derived from the original Exif date (probably DateTimeOriginal, but may be DateTimeDigitized). This will be the date recorded in the file by the scanner software at the time it was scanned.
The IPTC Date Created field is handled differently. It seems counterintuitive, but if you work in the news business you will know that news photographers often use the IPTC Date Created field more like a "date submitted" or "date scheduled" property, so that photos for a particular shoot which may have been captured over multiple days will sort together. Because of this, most image browsers will not update the XMP Date Created (or Date Taken) fields when the IPTC Core date is changed.
You can edit the original capture date in various programs, which should cause both the Exif and the XMP Date Created fields to be updated. Two that come to mind are Lightroom and BreezeBrowser Pro (for Windows). I've found that with certain images it is necessary to use both programs to get all the dates to line up.

SPGridView - sorting Dates doesn't work properly & how to display the title column as link?

Hi,
I've got a SPGridView that is being filled with data from several lists. Some of them are a date-field and a title-field. I already added sorting, paging and filtering options and at first look they seem to work fine. But now I noticed that sorting dates
doesn't work as expected. If I select ascending sorting, the result is something like this:
01.08.2014
02.08.2014
17.07.2014
18.07.2014
23.07.2014
If I select descending sorting, the result is this:
23.07.2014
18.07.2014
17.07.2014
02.08.2014
01.08.2014
This isn't what I want obviously.
I just added the EventReceiver for the sorting like it is shown in several tutorials:
(The date field is a BoundField.)
grid.Sorting += new GridViewSortEventHandler(grid_Sorting);
private void grid_Sorting(object sender, GridViewSortEventArgs e)
if (ViewState["FilterExpression"] != null)
gridDS.FilterExpression = (string)ViewState["FilterExpression"];
And my second problem is how to add a link to the title column. In my grid I'm displaying tasks from different lists and I want to link the title to the related task. I stumbled accross HyperLinkFields and tried this:
HyperLinkField hyperLinkField = new HyperLinkField();
hyperLinkField.DataTextField = "Titel";
hyperLinkField.DataNavigateUrlFields = new string[] { "Titel" };
hyperLinkField.DataNavigateUrlFormatString = "{0}";
hyperLinkField.HeaderText = "Titel";
hyperLinkField.SortExpression = "Titel";
grid.Columns.Add(hyperLinkField);
The resulting link is something like ...sites/MySite/_catalogs/masterpage/A1-V1-2 where "A1-V1-2" is the name of the task and also shown in the title field.
The actual link should look more like ...sites/MySite/Lists/mytasklistname/DispForm.aspx?ID=.... or something like that to display the task details. How could I achieve that?
Thanks in advance

http://www.experts-exchange.com/OS/Microsoft_Operating_Systems/Server/MS-SharePoint/Q_27718782.html
Here is the exact code you need to use:
http://social.msdn.microsoft.com/Forums/ar/sharepointcustomization/thread/c463a8c6-4806-4233-b6a4-8db8369c5fc2
http://sharepoint.stackexchange.com/questions/53459/change-title-linked-to-item-with-edit-menu-to-different-column
Open the AllItems.aspx page for the specific list.
Search for the <ViewFields> tag
List item LinkToItem="TRUE" to whichever column you want the link:
<ViewFields> 
<FieldRef Name="Attachments"/> 
<FieldRef Name="LinkTitle"/> 
<FieldRef Name="linkThisColumn" LinkToItem="TRUE"/> 
<FieldRef Name="data_x0020_column"/> 
<FieldRef Name="Another_x0020_column"/> 
</ViewFields> 
http://sharepoint.stackexchange.com/questions/58954/link-title-in-list-to-value-in-url-column
Create calculated column.
Insert following formula -
="<a href='"&UrlFieldName&"'>"&Title&"</a>"
Set "data type returned from this formula is" to integer.
As a result on list view you will see the title with link to your url.
UPD: It seems that URL field is not valid for calculated column, as workaround you can copy url value in a receiver into the another text field, which is not shown on the view.
If this helped you resolve your issue, please mark it Answered

Sort data does not match song info

I've just discovered that some of my songs have sort data from different files. Short of going though all my music song by song is there a way to clear all sort data?

Generally setting a common Album Artist will fix split albums.
For deeper problems see Grouping tracks into albums.
tt2

Efficent method to sort data from tab delimited text file

I am currently writing a program to sort through data that was acquired and display it on a graph and some other indicators. The file is a tab delimited text file with possibly 100,000s of data points. the current method that I have tried using was that if I wanted all of the data from Oct, I would parse out the month from the timestamp, compare that to the desired month, and add it to the array if it is the same. Other possible options of sorting are yearly and daily, possibly even hourly.
The method does work, however it does take some time (up to a minute on a P4 3.6 GHz with 2 gb ram), and most of the other computers are not nearly as fast or with as much memory. Is there a more efficent method to sorting the data??
I attached my sorting vi as well as a sample data file.
thanks for the advice. It is saved in LV8.0.1
Kenny
Kenny
Attachments:
data sort.zip ‏84 KB
oven1.txt ‏21 KB

First of all, "sorting" has usually a different meaning (Sorting and numeric array ascending or descending, a string array aphabetically, etc.). Your data already seems sorted by date and time, you just want to pick a subset having certain characteristics.
The main problem that is slowing you down is your constant growing of large arrays. This causes constant memory reallocations.
Since your data is already sorted by date and time, all you need is to place your data in a sutable data structure, find the start and end point of your selection, then use "array subset" for example.
Your code also seems to have a lot of unecessary complexity. See for example your "test for sort data" (see image below).
the four cases only differ by filename --> only the file name belongs into the case and the file operation outside the inner case. Even better, just use autoindexing.
that shift register does not do anything, because it always contains the same data. Using "index array" with index wired to [i] is equivalent to an autoindexing tunnel.
You have a case structure to select which files to read, skipped files give you an empty array. Do you really need to do all these operations on an empty array. Why not place all code inside the TRUE case??
Below is an image of one possible code alternative that addresses some of these points.
Message Edited by altenbach on 10-26-2006 09:32 AM
LabVIEW Champion . Do more with less code and in less time .
Attachments:
testForSortData.png ‏33 KB

UDF for sorting date

Hi Guys,
I am doing scenario File to Idoc, i have to sort date in acending order, the date format will be in either 22.10.2007 or 22/10/2007 . can any one send UDF for this.
Regards,
venu gopal

Hi Venu
You can execute this without UDF. Use " Transform" function in the Date functions.
When you are using the UDF....you keep the strucure as "yyyMMddhhmmss" for that clickon Trnasform function and there you can see ShowAdvancedProperties...there u can find the format of the source which you are expecting and also change the strucutre of you target expected format.
You please try this and check the mapping it will get execute.
Use Standard Date Function DATATRANS. It have the property for format and input is the source date field. It will convert the date format to required specified format which you menstion in the DARTATRANS function
for UDF
Re: UDF for this mapping rule
Re: Problem in UDF please Help?
Thanks!

Sorting Data

Hi All (any help will be appreciated)
Sorting Data in Business Objects modify view is just like sorting in excel, However in the view where you would just click on the report name you want to open, there does'nt seem to be a sorting option.
My problem is i have set up a report with prompts for dates and agent names. However when i clcik on agent name promt to select a single name the list of names in the report is not in order but in modify view it is. i tried to refresh to see if that would work but it didnt.
Does anyone know how to correct this? it may be something really simple that i am not seeing!
Thanks very much
Kelly

Hi Kelly,
As I mentioned in my post, If you are using Interactive Viewer you can sort the Data.
To Use interactive view you have to change the view format of your report using Infoview preferences.
Follow the below mentioned Steps:
1. Open the Business Objects Enterprise Java Infoview.
2. at the top right hand side there you will find 3 buttons, click extreme left button u201C Preferencesu201D below User Name.
3. Click Web intelligence Document tab and change the View format to Interactive.
4. Now open the report by clicking on it in View mode it will open in interactive mode.
Please follow the Steps I mentioned in my post for other queries I mentioned all in detail.
I Hope this Helpsu2026.
Thanksu2026.
Pratik

Problem with sorting involving user defined types and reports

Hello!
I have a problem with sorting involving Reports and user defined objet types.
I have created the following object types
CREATE TYPE type_balance_compte AS OBJECT
NUM_CPT_SEQ NUMBER(8)
,NUM_CPT VARCHAR2(35)
CREATE TYPE TB_type_balance_compte IS TABLE OF type_balance_compte
At the reports query I use:
SELECT ...
FROM table(cast(test_pkg.balance_comptes(:P_num_soc) as TB_type_balance_compte)) c
The procedure balance_comptes will retrieve data from various tables into the type.
The report is ordered by a certain string field that usually contains characters and numbers.
I need to have numbers always before characters, meaning the data should come in this order in the report for example:
0
1
A
B
So, before the report query, I have placed a call to DBMS_SESSION.SET_NLS( 'nls_sort', 'binary' ) to guarantee NLS_SORT in case it is originally set to FRENCH.
The problem here is that even after this call, I have the report ordered like this
A
B
0
1
And not the numbers before as it should be.
To try and find out where the problem was, I have created a table to use instead of the object type described above. In this case, it worked correctly. So all I know by now is that is has something to do with the type or cast, but what exactly? Does anybody now how to solve this without using a table?
Many thanks
Ariadne

I have placed a call to DBMS_SESSION.SET_NLS( 'nls_sort', 'binary' ) why not order directly then:
SQL> select *
      from table (sys.dbms_debug_vc2coll ('A', 1, '5', 'C', 'a'))
order by nlssort (column_value, 'NLS_SORT = binary')
COLUMN_VALUE
1
5
A
C
a
5 rows selected.?

Problem in sorting data

Similar Messages

Maybe you are looking for