Help: i need smtp single attachment code

hy
i need smtp single attachment code with out any html tag.
thnx with regards

There is some sample code on OTN
http://www.oracle.com/technology/sample_code/tech/pl_sql/htdocs/Utl_Smtp_Sample.html

Similar Messages

Help is needed in my RMI code to read in data from input file

Hi All,
As part of my assignment, I have to develope a client/server application using RMI (not sure why????).
I am new to java and using after going through numerous examples I have come up a class on the server side
to read in the stored data. However during the search I can only display one item (2nd last one) not the entire list
available in the csv file. Any idea how I can fix this? Here is my code..
package rmiexample;
import java.rmi.*;
import java.util.*;
import java.io.*;
public class PropertyServer {
private static final String HOST="localhost";
public static void main (String[] args) throws Exception {
    File file = new File("c:\\temp\\property.csv");
    try {
            // Following line use Scanner class to read data file content line-by-line.
            Scanner scanner = new Scanner(file);
            int housecount=0;
            String line = scanner.nextLine();
            while (scanner.hasNextLine()) {
            int count=0;
                // From the above line of code we got a line from the file
                // content. I am spliting the line using '%' as the delimiting
                // character. Comma not used as it can be included
                // in the address of a property
                String[] houseDetail = line.split("%");
                String location=houseDetail[0];
                String hsePrice=houseDetail[1];
                String bedroom=houseDetail[2];
                String houseType=houseDetail[3];
                    String address=houseDetail[4];
                    String agency=houseDetail[5];
                //Converting the price and # of beds to Integer.
                double price;
                int beds;
                beds=Integer.parseInt(bedroom);
                price=Integer.parseInt(hsePrice);
                PropertyDetails[] propertyList = {
                    new PropertyDetails(location,beds,houseType,price)};
                //I think thisis were I have my problem is....
                Vector<PropertyDetails> propDetail = new Vector<PropertyDetails>();
                    propDetail.add(propertyList[count]);
                    System.out.println(propertyList[count]);
                    PropertyImpl temp = new PropertyImpl(propDetail);
                    String rmiObjectName = "rmi://" + HOST + "/PropertyDetails";
                    Naming.rebind(rmiObjectName, temp);
                    count++;
                    line = scanner.nextLine();
    }System.out.println("Binding Complete!!");
catch (FileNotFoundException e) {
            e.printStackTrace();
}

Take a look at: http://java.sun.com/j2se/1.3/docs/guide/rmi/getstart.doc.html
You need start by declaring an interface that extends Remote.

Pros help needed with post data code

i needed to change the code below to post the userAnswer from radio button group, to an ASPX page so i can read the data in and post it to a database. can anyone help. thanks
btnCheck.addEventListener(MouseEvent.CLICK, checkAnswer);
function checkAnswer(evt:MouseEvent):void {
userAnswer = String(rbg.selectedData);
    messageBox.text = userAnswer + " has been clicked";

//Create the loader object
var prodloader:URLLoader = new URLLoader ();
//Create a URLVariables object to store the details
var variables: URLVariables = new URLVariables();
//Createthe URLRequest object to specify the file to be loaded and the method ie post
var url:String = "url here";
var prodreq:URLRequest = new URLRequest (url);
prodreq.method = URLRequestMethod.POST;
prodreq.data = variables;
function submitHandler(event:Event):void {
    variables.productId = whatever;
    prodloader.load(prodreq);
    btnSubmit.addEventListener(MouseEvent.CLICK, submitHandler);
    function contentLoaded(event:Event):void {
       //Stuff here
        prodloader.addEventListener(Event.COMPLETE, contentLoaded);

Return Current month Data:Help needed in modifying this code of a Procedure

Hello Folks i have this scenario where i need to modify this code so that it has to return data from the Current month First Day to the previous Day if its a daily report and previous month data if its a monthly report.
I have no clue how to modify this code below. Currently the code is returning data for Monthly reports for the previous month. Does anyone have any idea how to modify so that the code meets the requirements of both daily and monthly reprts.
BEGIN
if v_lowdate is null or v_highdate is null then
select to_number(to_char(sysdate, 'DD')) into v_cur_day from dual;
if v_cur_day < 25 then
-- this is for the previous month run
Select Add_Months(trunc(sysdate, 'MONTH'), -1)
INTO V_LOWDATE
FROM DUAL;
SELECT Last_Day(ADD_Months(Sysdate, -1)) INTO V_Highdate From Dual;
else
-- this is for the current month run
Select trunc(sysdate, 'MONTH') INTO V_LOWDATE FROM DUAL;
SELECT Last_Day(Sysdate) INTO V_Highdate From Dual;
end if;
end if;
Thanks
Edited by: user11961230 on Sep 30, 2009 8:34 PM

Hi Frank, This is code till the "modifying Code" which we were working. I will post the code after the "modifying Code" in the next reply. Thanks
CREATE OR REPLACE PROCEDURE "POPULATE_RECOVERY_ACTIVITYHN"(p_lowdate date,
p_highdate date) IS
v_lowdate date := p_lowdate;
v_highdate date := p_highdate;
v_error_code NUMBER(20);
v_error_text VARCHAR2(300);
v_recovery_id Recovery.Recovery_ID%type;
v_loop_control Number(20);
v_settlement_id recovery.settlement_id%type;
V_Event_ID Event.Event_ID%Type;
V_Event_Case_ID Event_Case.Event_Case_ID%Type;
V_Recovery_Month Varchar2(100);
V_Major_Company Major_Client.Major_Client_Name%Type;
V_Company Client.Client_Name%Type;
V_Client_Policy_Identifier Varchar2(100);
V_Lan_ID Varchar2(10) := 'TROVERIS';
V_Recovery_Account Client.Account_Number%Type;
V_AccountA Number(2) := 0;
V_AccountB Number(2) := 0;
V_Unit Event_Client_Field.Client_Field_Data%Type;
V_Market Event_Client_Field.Client_Field_Data%Type;
V_case_open_date Event_case.Open_Date%type;
V_Employer_Group_Code Employer_Group.Employer_Group_Code%Type;
V_Unknown1 Number(2) := 0;
V_Fee_Schedule_Code Event_Case.Fee_Schedule_Code%Type;
V_Total_Fee_Percent Number(20, 2) := 0.00;
V_Subrogation_Fee_Percent Number(20, 2) := 0.00;
V_Unknown2 Number(2) := NULL;
V_Unknown3 Number(2) := NULL;
V_TOTAL_MEDICAL Number(20, 2) := 0.00;
V_Recovery_Amount Number(20, 2) := 0.00;
V_Total_Tax Number(20, 2) := 0.00;
V_Administrative_Tax Number(20, 2) := 0.00;
V_Total_NonCash_Fee Number(20, 2) := 0.00;
V_Total_NonCash_Positive Number(20, 2) := 0.00;
V_Total_NonCash_Negative Number(20, 2) := 0.00;
V_Total_Recovery Number(20, 2) := 0.00;
V_Total_NonCash_Fee_Positive Number(20, 2) := 0.00;
V_Total_NonCash_Fee_Negative Number(20, 2) := 0.00;
V_Total_Admin_Fee Number(20, 2) := 0.00;
V_Total_Fee Number(20, 2) := 0.00;
V_Total_NonCash_Tax_Positive Number(20, 2) := 0.00;
V_Total_NonCash_Tax_Negative Number(20, 2) := 0.00;
report_type                  Varchar2(2);
v_gl_num client.gl_num%type; -- *002*
v_net_billable client.net_billable%type; -- *003*
vevent_id event.event_id%type; -- *006*
v_prev_event event.event_id%type; -- *006*
v_prev_case event_case.event_case_id%type; -- *006*
v_tot_recovery recovery.amount%type; -- *006*
v_rec_amount recovery.amount%type; -- *006*
v_prev_rec_amt recovery.amount%type; -- *006*
v_prev_rec_month recovery_activity.recovery_month%type; -- *006*
v_tot_fee recovery_activity.total_fee%type; --*006*
v_mth_rev unbundled_recoveries.monthly_revenue%type; -- *006*
v_diff number(18, 2); -- *006*
v_nc_count number := 0; -- *006*
v_c_count number := 0; -- *006*
v_nc_tot recovery.amount%type; -- *006*
v_used_rev recovery_activity.total_fee%type; -- *006*
v_use_mth_rev unbundled_recoveries.monthly_revenue%type := 0; -- *006*
v_use_nc_mth_rev unbundled_recoveries.monthly_revenue%type := 0; -- *006*
v_prev_netbill client.net_billable%type; -- *006*
v_event_type event.event_type_code%type;
v_date_typed event.date_typed%type;
v_acc_client_id client.acc_client_id%Type;
v_Recovery_Revenue_GL_Num client.recovery_revenue_gl_num%Type;
v_Funds_Due_GL_num client.funds_due_gl_num%Type;
v_lob Varchar2(20);
v_nc_recovery_id recovery.recovery_id%Type;
/*Changed the Client_Policy_Identifier to concatenate the Retlation to insured code instead of the description
which was exceeding the column size in the table. SWL 09/03/02. Checked with the Design Doc.*/
CURSOR RECOVERY_INFO IS
SELECT Event.Event_ID,
Event_Case.Event_Case_ID,
TO_CHAR(Recovery.Recovery_Date, 'FMMONTHYYYY') As Recovery_Month,
Major_Client.Major_Client_Name AS Major_Company,
-- Client.Client_Name AS Company,
-- nvl(client.legacy_client_id,'DC')||'-'||substr(Client.Client_Name,1,55) AS Company, -- SWL 04/01/04 52653
substr(nvl(client.legacy_client_id,
decode(client.client_id, 1, 'DC', client.client_code)) || '-' ||
Client.Client_Name,
1,
60) AS Company,
Event.Client_Policy_Identifier ||
Event_Case.Relation_To_Insured_code as Client_Policy_Identifier,
Client.Account_Number as Recovery_Account,
Employer_Group.Employer_Group_Code,
Event_Case.Fee_Schedule_Code,
Recovery_ID,
Event_case.Open_Date,
'(' || recovery.recovery_transaction_internal || ')' ||
l.recovery_transaction_descripti, --fml 110276
recovery.settlement_id,
trim(client.gl_num), -- *002*
nvl(trim(client.net_billable), 'N'), -- *003*
recovery.amount, -- *006*,
event.event_type_code,
event.date_typed,
recovery_id,
Client.ACC_CLIENT_ID,
Recovery_Revenue_GL_Num,
Funds_Due_GL_num
FROM Recovery,
Settlement,
Event_Case,
Event,
Employer_Group,
Client,
Major_Client,
recovery_transaction_lookup l
Where to_date(Recovery.Recovery_Date, 'DD-MON-RR') between
TO_DATE(v_lowdate, 'DD-MON-RR') and
TO_DATE(v_highdate, 'DD-MON-RR')
AND Settlement.Settlement_id = Recovery.Settlement_id
AND Settlement.Event_Case_ID = Event_Case.Event_Case_id
AND Event_Case.Event_ID = Event.Event_ID
AND Event.Employer_Group_ID = Employer_Group.Employer_Group_ID(+)
AND Event.Client_ID = Client.Client_ID
AND Client.Major_Client_id = Major_Client.Major_Client_ID(+)
and recovery.settlement_id not in
(select settlement_id
from recovery
where to_date(Recovery.Recovery_Date, 'DD-MON-RR') between
TO_DATE(v_lowdate, 'DD-MON-RR') and
TO_DATE(v_highdate, 'DD-MON-RR')
AND recovery_transaction_internal in
('05', '50', '52', '51'))
--001
and    client.invoice_flag = 'N'            *005* commenting
-- SWL 05/03/05 #71231
and event.event_id in
(select event_id
from event_end_user eeu
where eeu.active_flag = 'Y'
and eeu.owner_flag = 'Y'
and eeu.end_user_id in
(select end_user_id
from end_user
where end_user.research_internal_user = 'Y'))
and recovery.recovery_transaction_internal =
l.recovery_transaction_internal --fml 110276
order by event.event_id, recovery.amount; -- *006*
-- SWL 05/03/05 #71231
-- end of 001
-- SWL 11/10/03 # 52743
-- *006*
CURSOR get_recovery(vevent_id event.event_id%type) IS
SELECT sum(r.amount)
FROM Recovery r
Where to_date(r.Recovery_Date, 'DD-MON-RR') between
TO_DATE(v_lowdate, 'DD-MON-RR') and
TO_DATE(v_highdate, 'DD-MON-RR')
and r.event_id = vevent_id
and r.settlement_id not in
(select settlement_id
from recovery
where to_date(Recovery.Recovery_Date, 'DD-MON-RR') between
TO_DATE(v_lowdate, 'DD-MON-RR') and
TO_DATE(v_highdate, 'DD-MON-RR')
AND recovery_transaction_internal in
('05', '50', '52', '51'))
and r.event_id in
(select event_id
from event_end_user eeu
where eeu.active_flag = 'Y'
and eeu.owner_flag = 'Y'
and eeu.end_user_id in
(select end_user_id
from end_user
where end_user.research_internal_user = 'Y'));
CURSOR RECOVERY_INFO_NC IS
SELECT distinct Event.Event_ID,
Event_Case.Event_Case_ID,
TO_CHAR(Recovery.Recovery_Date, 'FMMONTHYYYY') As Recovery_Month,
Major_Client.Major_Client_Name AS Major_Company,
-- Client.Client_Name AS Company,
-- nvl(client.legacy_client_id,'DC')||'-'||substr(Client.Client_Name,1,55) AS Company, /* SWL 04/01/04 52653 */
substr(nvl(client.legacy_client_id,
decode(client.client_id,
1,
'DC',
client.client_code)) || '-' ||
Client.Client_Name,
1,
60) AS Company,
Event.Client_Policy_Identifier ||
Event_Case.Relation_To_Insured_code as Client_Policy_Identifier,
Client.Account_Number as Recovery_Account,
Employer_Group.Employer_Group_Code,
Event_Case.Fee_Schedule_Code,
'(' || recovery.recovery_transaction_internal || ')' ||
l.recovery_transaction_descripti, --fml 110276
recovery.settlement_id,
trim(client.gl_num), -- *002*
nvl(trim(client.net_billable), 'N'), -- *003*
recovery.amount,-- *006*
recovery.recovery_id,
event.event_type_code,
event.date_typed,
Client.ACC_CLIENT_ID,
Recovery_Revenue_GL_Num,
Funds_Due_GL_num
FROM Recovery,
Settlement,
Event_Case,
Event,
Employer_Group,
Client,
Major_Client,
recovery_transaction_lookup l
Where to_date(Recovery.Recovery_Date, 'DD-MON-RR') between
TO_DATE(v_lowdate, 'DD-MON-RR') and
TO_DATE(v_highdate, 'DD-MON-RR')
AND Settlement.Settlement_id = Recovery.Settlement_id
AND Settlement.Event_Case_ID = Event_Case.Event_Case_id
AND Event_Case.Event_ID = Event.Event_ID
AND Event.Employer_Group_ID = Employer_Group.Employer_Group_ID(+)
AND Event.Client_ID = Client.Client_ID
AND Client.Major_Client_id = Major_Client.Major_Client_ID(+)
and recovery.settlement_id in
(select settlement_id
from recovery
where to_date(Recovery.Recovery_Date, 'DD-MON-RR') between
TO_DATE(v_lowdate, 'DD-MON-RR') and
TO_DATE(v_highdate, 'DD-MON-RR')
--001
AND recovery.recovery_transaction_internal in
('05', '50', '52', '51')
and    client.invoice_flag = 'N'   *005* commenting
/* SWL 05/03/05 #71231 */
and event.event_id in
(select event_id
from event_end_user eeu
where eeu.active_flag = 'Y'
and eeu.owner_flag = 'Y'
and eeu.end_user_id in
(select end_user_id
from end_user
where end_user.research_internal_user = 'Y'))
and recovery.recovery_transaction_internal =
l.recovery_transaction_internal --fml 110276
order by event.event_id, recovery.amount; -- *006*
/* SWL 05/03/05 #71231 */
--end of 001
-- *006*
CURSOR get_recovery_nc(vevent_id event.event_id%type) IS
SELECT sum(r.amount)
FROM Recovery r
Where to_date(r.Recovery_Date, 'DD-MON-RR') between
TO_DATE(v_lowdate, 'DD-MON-RR') and
TO_DATE(v_highdate, 'DD-MON-RR')
AND r.event_id = vevent_id
and r.settlement_id in
(select settlement_id
from recovery
where to_date(Recovery.Recovery_Date, 'DD-MON-RR') between
TO_DATE(v_lowdate, 'DD-MON-RR') and
TO_DATE(v_highdate, 'DD-MON-RR'))
AND recovery_transaction_internal in ('05', '50', '52', '51')
and r.event_id in
(select event_id
from event_end_user eeu
where eeu.active_flag = 'Y'
and eeu.owner_flag = 'Y'
and eeu.end_user_id in
(select end_user_id
from end_user
where end_user.research_internal_user = 'Y'));
CURSOR Recovery_Totals_Nc IS
Select Recovery_Detail.Recovery_Id, /* SWL 07/01/04 59016 */
max(NVL(Recovery_Detail.Fees_Percent, 0) +
NVL(Recovery_Detail.Admin_Percent, 0)) as Total_Fee_Percent,
max(NVL(Recovery_Detail.Fees_Percent, 0)) as Subrogation_Fee_Percent,
max(NVL(Recovery.Amount, 0)) as Recovery_Amount, /* SWL 04/01/04 52653 */
Sum(NVL(Recovery_detail.Fees, 0) + NVL(Recovery_Detail.Admin, 0)) as Total_Fee,
Sum(NVL(Recovery_Detail.Fees_Taxes, 0) +
NVL(Recovery_Detail.Admin_Taxes, 0)) as Total_Tax,
Sum(NVL(Recovery_Detail.Admin_Taxes, 0)) as Administrative_tax,
Sum(NVL(Recovery_Detail.Admin, 0)) as Total_Admin_Fee,
sum(recovery.retained_by_client) as Non_cash_fee, --fml 110276
sum(recovery.allocation_check_amount) as cash --fml 110276
From Settlement, Recovery, Recovery_Detail
Where Recovery.settlement_id = v_settlement_id
And recovery.recovery_id = v_recovery_id
And Settlement.Settlement_id = Recovery.Settlement_id
And Recovery.Recovery_id = Recovery_detail.Recovery_id(+)
and to_date(Recovery.Recovery_Date, 'DD-MON-RR') between
TO_DATE(v_lowdate, 'DD-MON-RR') and
TO_DATE(v_highdate, 'DD-MON-RR') /*SWL 12/03/04 */
-- Group by Recovery_Detail.Fees_Percent; /* SWL 04/01/04 52653 */
Group by Recovery_Detail.recovery_id;
v_cash_recovery recovery_activity.cash_recovery%type;
CURSOR Recovery_Totals_Positive_Nc IS
-- Select Sum(Recovery.Amount) as Total_NonCash_Positive, /* SWL 04/01/04 52653 */
Select max(Recovery.Amount) as Total_NonCash_Positive,
Sum(NVL(Recovery_Detail.Fees_Taxes, 0) +
NVL(Recovery_Detail.Admin_Taxes, 0)) as Total_NonCash_Tax_Positive
From Settlement, Recovery, Recovery_detail
Where Recovery.settlement_id = v_settlement_id
And Settlement.Settlement_id = Recovery.Settlement_id
and recovery.recovery_id = v_recovery_id /* SWL 07/01/04 59016 */
And Recovery.Amount >= 0
And Recovery.Recovery_id = Recovery_detail.Recovery_id(+)
And Recovery.Recovery_Transaction_Internal in
('05', '50', '52', '51')
-- Group by Recovery_Detail.Fees_Percent; /* SWL 04/01/04 52653 */
Group by Recovery_Detail.recovery_id;
CURSOR Recovery_Totals_Negative_Nc IS
-- Select Sum(Recovery.Amount) as Total_NonCash_Negative, /* SWL 04/01/04 52653 */
Select max(Recovery.Amount) as Total_NonCash_Negative,
Sum(NVL(Recovery_Detail.Fees_Taxes, 0) +
NVL(Recovery_Detail.Admin_Taxes, 0)) as Total_NonCash_Tax_Negative
From Settlement, Recovery, Recovery_Detail
Where Recovery.settlement_id = v_settlement_id
And Settlement.Settlement_id = Recovery.Settlement_id
and recovery.recovery_id = v_recovery_id /* SWL 07/01/04 59016 */
And Recovery.Amount < 0
And Recovery.Recovery_id = Recovery_detail.Recovery_id(+)
And Recovery.Recovery_Transaction_Internal in
('05', '50', '52', '51')
Group by Recovery_Detail.recovery_id;
-- Group by Recovery_Detail.Fees_Percent; /* SWL 04/01/04 52653 */
/* SWL 11/10/03 # 52743 */
CURSOR Event_Client_Unit IS
Select e.Client_Field_Data as Unit
From Event_Client_Field e, recovery r
Where r.Event_ID = e.Event_ID
AND r.Recovery_ID = V_Recovery_ID
AND e.Client_Field_Name = 'UNIT';
CURSOR Bill_totals IS
Select mv_billdetail_case_sum.sum_paid as TOTAL_MEDICAL
From mv_billdetail_case_sum
where mv_billdetail_case_sum.event_id = V_Event_ID;
CURSOR NonCash_Fee IS
Select NVL(Sum(Recovery.Amount), 0) as Total_NonCash_Fee
From Settlement, Recovery
Where Recovery.Recovery_ID = V_Recovery_ID
And Settlement.Settlement_id = Recovery.Settlement_id
And Recovery.
Recovery_Transaction_Internal in ('05', '50', '52', '51');
/* SWL 04/01/04 52653 */
CURSOR Recovery_Totals IS
Select round(avg(NVL(Recovery_Detail.Fees_Percent, 0) +
NVL(Recovery_Detail.Admin_Percent, 0)),
2) as Total_Fee_Percent,
round(avg(NVL(Recovery_Detail.Fees_Percent, 0)), 2) as Subrogation_Fee_Percent,
max(NVL(Recovery.Amount, 0)) as Recovery_Amount,
Sum(NVL(Recovery_detail.Fees, 0) + NVL(Recovery_Detail.Admin, 0)) as Total_Fee,
Sum(NVL(Recovery_Detail.Fees_Taxes, 0) +
NVL(Recovery_Detail.Admin_Taxes, 0)) as Total_Tax,
Sum(NVL(Recovery_Detail.Admin_Taxes, 0)) as Administrative_tax,
Sum(NVL(Recovery_Detail.Admin, 0)) as Total_Admin_Fee
From Settlement, Recovery, Recovery_Detail
Where Recovery.Recovery_ID = V_Recovery_ID
And Settlement.Settlement_id = Recovery.Settlement_id
And Recovery.Recovery_id = Recovery_detail.Recovery_id(+)
Group by Recovery_Detail.recovery_id;
CURSOR Recovery_Totals_Positive IS
/* Select Sum(Recovery.Amount) as Total_NonCash_Positive,
Sum(NVL(Recovery_Detail.Fees_Taxes,0)+ NVL(Recovery_Detail.Admin_Taxes,0)) as Total_NonCash_Tax_Positive
*/ /* SWL 04/01/04 52653 */
Select max(Recovery.Amount) as Total_NonCash_Positive,
Sum(NVL(Recovery_Detail.Fees_Taxes, 0) +
NVL(Recovery_Detail.Admin_Taxes, 0)) as Total_NonCash_Tax_Positive
From Settlement, Recovery, Recovery_detail
Where Recovery.Recovery_ID = V_Recovery_ID
And Settlement.Settlement_id = Recovery.Settlement_id
And Recovery.Amount >= 0
And Recovery.Recovery_id = Recovery_detail.Recovery_id(+)
And Recovery.Recovery_Transaction_Internal in ('04', '17', '15') /*SWL 10/05/04 #63919*/--*009* added 15
Group by Recovery_Detail.recovery_id;
-- Group by Recovery_Detail.Fees_Percent; /* SWL 04/01/04 52653 */
CURSOR Recovery_NonFEE_Positive IS
Select Sum(NVL(Recovery_Detail.Fees, 0) + NVL(Recovery_Detail.Admin, 0)) as Total_NonCash_Fee_Positive
From Settlement, Recovery, Recovery_detail
Where Recovery.Recovery_ID = V_Recovery_ID
And Settlement.Settlement_id = Recovery.Settlement_id
And Recovery.Amount >= 0
And Recovery.Recovery_id = Recovery_detail.Recovery_id(+)
And Recovery.Recovery_Transaction_Internal in
('05', '50', '52', '51')
Group by Recovery_Detail.recovery_id;
-- Group by Recovery_Detail.Fees_Percent; /* SWL 04/01/04 52653 */
CURSOR Recovery_Totals_Negative IS
/* Select Sum(Recovery.Amount) as Total_NonCash_Negative,*/ /* SWL 04/01/04 52653 */
Select max(Recovery.Amount) as Total_NonCash_Negative,
Sum(NVL(Recovery_Detail.Fees_Taxes, 0) +
NVL(Recovery_Detail.Admin_Taxes, 0)) as Total_NonCash_Tax_Negative
From Settlement, Recovery, Recovery_Detail
Where Recovery.Recovery_ID = V_Recovery_ID
And Settlement.Settlement_id = Recovery.Settlement_id
And Recovery.Amount < 0
And Recovery.Recovery_id = Recovery_detail.Recovery_id(+)
And Recovery.Recovery_Transaction_Internal in ('04', '17', '15') /*SWL 10/05/04 #63919*/--*009* added 15
Group by Recovery_Detail.recovery_id;
-- Group by Recovery_Detail.Fees_Percent; /* SWL 04/01/04 52653 */
CURSOR Recovery_NonFEE_Negative IS
Select Sum(NVL(Recovery_Detail.Fees, 0) + NVL(Recovery_Detail.Admin, 0)) as Total_NonCash_Fee_Negative
From Settlement, Recovery, Recovery_Detail
Where Recovery.Recovery_ID = V_Recovery_ID
And Settlement.Settlement_id = Recovery.Settlement_id
And Recovery.Amount < 0
And Recovery.Recovery_id = Recovery_detail.Recovery_id(+)
And Recovery.Recovery_Transaction_Internal in
('05', '50', '52', '51')
Group by Recovery_Detail.recovery_id;
-- Group by Recovery_Detail.Fees_Percent; /* SWL 04/01/04 52653 */
--This is a generic cursor which will be used to control the number of rows inserted into the recovery_activity table
--There has to be 1 row inserted into the recovery_activity table for each detail record in the recovery_detail table.
--However, if no recovery_detail record exists there will be only 1 insert into the recovery_activity table.
CURSOR Control_Detail_Loop
IS
Select 1
FROM Recovery,
Recovery_Detail
Where Recovery.Recovery_ID = Recovery_Detail.Recovery_ID(+)
And Recovery.Recovery_ID = V_Recovery_ID;
/* SWL 04/01/04 Commented since the only time there were more entries in rd for a recovery is when there is a split fees */
/* accounting does not want this to be displayed in detail. They need this aggregated as a single fee entry so the recovery */
/* activity table will now have a single entry corresponding to each recovery in the recovery table. (#52653) */
CURSOR Control_Detail_Loop IS
Select 1 FROM Recovery where Recovery.Recovery_ID = V_Recovery_ID;
/* DJ 10/25/04 # 64633 start*/
CURSOR Event_Client_Market IS
Select e.Client_Field_Data as Market
From Event_Client_Field e, recovery r
Where r.Event_ID = e.Event_ID
AND r.Recovery_ID = V_Recovery_ID
AND e.Client_Field_Name = 'MARKET';
/* DJ 10/25/04 # 64633 end*/
v_cur_day integer := 0;
-----dj
v_vendor_fee_wh number;
v_total_vendor_fee_wh number;
v_rec_itc recovery_activity.recovery_transaction_internal%type;
--v_settlement_id settlement.settlement_id%type;
--*004* start
function unbundled_fee(pevent_id event.event_id%type,
plowdate date,
phighdate date) return number is
-- function variables
v_fee number(18, 2) := 0;
v_month_revenue unbundled_recoveries.monthly_revenue%type := 0;
v_cum_revenue unbundled_recoveries.cum_revenue%type := 0;
v_contract_fee_per unbundled_recoveries.contractual_fee_per%type := 0;
v_prev_cum_revenue unbundled_recoveries.cum_revenue%type := 0;
v_cum_ub_rec unbundled_recoveries.cum_ub_recoveries%type := 0;
v_cum_inv_paid unbundled_recoveries.cum_inv_paid%type := 0;
v_month_rec unbundled_recoveries.monthly_recoveries%type := 0;
v_cum_rec unbundled_recoveries.cum_recoveries%type := 0;
v_event_id event.event_id%type;
begin
--v_month_rec and v_cum_inv_paid
begin
select event_id,
(select sum(r.amount)
from recovery r
where r.event_id = e.event_id
and trunc(r.recovery_date) between plowdate and phighdate) as monthly_recoveries,
-- *006* added cum_rec
(select nvl(sum(r.amount), 0)
from recovery r
where r.event_id = e.event_id
and trunc(r.recovery_date) <= trunc(phighdate)) as cum_recoveries,
(select sum(decode(nvl(ex.client_invoice_closed, 'N'),
'N',
ex.paid_amount,
ex.client_invoice_received))
from expense ex
where ex.event_id = e.event_id
and upper(ex.status) = 'PAID'
and trunc(ex.check_date) <= phighdate
and trim(ex.orig_client_invoice_date) is not null
and nvl(ex.client_invoice_dispute, 'Y') = 'N') as cum_invoiced_paid
into v_event_id, v_month_rec, v_cum_rec, v_cum_inv_paid
from event e
where e.event_id = pevent_id;
exception
when no_data_found then
v_event_id := 0;
v_month_rec := 0;
v_cum_rec := 0;
v_cum_inv_paid := 0;
when others then
v_event_id := 0;
v_month_rec := 0;
v_cum_rec := 0;
v_cum_inv_paid := 0;
end;
-- *007* start
-- if event previously written to table, get values from table
begin
select nvl(ub.cum_revenue, 0)
into v_prev_cum_revenue
from unbundled_recoveries ub
where ub.event_id = pevent_id
and ub.month_id =
(select max(a.month_id)
from unbundled_recoveries a
where a.event_id = pevent_id
and a.month_id < to_char(v_lowdate, 'YYYYMM'));
exception
when no_data_found then
v_prev_cum_revenue := 0;
when others then
v_prev_cum_revenue := 0;
end;
-- *007* end
--v_contract_fee_per
begin
select nvl(max(rd.fees_percent), 0)
into v_contract_fee_per
from recovery_detail rd
where rd.recovery_id in
(select r.recovery_id
from recovery r,
(select a.event_id, max(amount) as amount
from recovery a
where a.event_id = pevent_id
and trunc(a.recovery_date) between plowdate and
phighdate
group by a.event_id) max_r
where r.event_id = max_r.event_id
and trunc(r.recovery_date) between plowdate and phighdate
and r.amount = max_r.amount);
exception
when no_data_found then
v_contract_fee_per := 0;
when others then
v_contract_fee_per := 0;
end;
v_cum_ub_rec := nvl(v_cum_rec, 0) - nvl(v_cum_inv_paid, 0);
if ((nvl(v_cum_ub_rec, 0) > 0) and (nvl(v_month_rec, 0) <> 0)) then
-- latest cumulative unbundled recoveries > 0
v_cum_revenue := round(((v_contract_fee_per / 100) * v_cum_ub_rec),
2);
v_month_revenue := v_cum_revenue - v_prev_cum_revenue;
end if;
v_fee := v_month_revenue;
return v_fee;
exception
when others then
raise_application_error(-20106,
substr('populate_recovery_activity.undebundled_fee: ' ||
Sqlcode || Sqlerrm,
1,
500));
return v_fee;
end;

Need a little beginner code help, please

How do I modify the following code so that a different button
(like btnAbout) can use the same function?
btnHome.addEventListener(MouseEvent.ROLL_OVER, over);
btnHome.addEventListener(MouseEvent.ROLL_OUT, out);
function over(event:MouseEvent)):void {
btnHome.gotoAndPlay(2);
function out(event:MouseEvent):void {
btnHome.gotoAndPlay(7);
}

use the attach code option to display code in this forum:

Urgent help in needed for StorProc

Hi All,
How are you today?
We have a package in which we have a SP called SERVICE_TO_PRNTMNGR.
Database Version 11.2.0.2
The issue now is-
The store procedure checks if all print jobs which have the same Fulfillment id (which is kept in PrintJobQueueDI.sessionID) have finished or not;
If not, it will throw exception. The error code is 20004.
What we want as a fix is-
The store procedure should check if all print jobs which have the same Fulfillment id (which is kept in PrintJobQueueDI.sessionID)
and Service Request ID (it is ketp in PrintJobDataDI.docId) have finished or not;
If not, it will throw exception. The error code is 20004.
Here is the package which has sp(SERVICE_TO_PRNTMNGR):
Create or Replace PACKAGE XSP_POPULATE_PRNTMNGR
IS
FUNCTION FULFILLMENT_TO_PRNTMNGR
            (P_FULFILLMENT_ID IN FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE,
             P_MODE           IN VARCHAR2)
            RETURN SYS_REFCURSOR;
FUNCTION SERVICE_TO_PRNTMNGR
            (P_SERVICE_ID     IN SERVICE_REQUEST.SERVICE_ID%TYPE)
            RETURN SYS_REFCURSOR;
END;
Create or Replace PACKAGE BODY XSP_POPULATE_PRNTMNGR
IS
   l_package_name                       VARCHAR2(50) := 'XSP_POPULATE_PRNTMNGR';
   l_PrintJobQueueDI_REC            PrintJobQueueDI%ROWTYPE;
   l_PrintJobDataDI_REC             PrintJobDataDI%ROWTYPE;
   e_NOT_S_F_STATUS_IND_REQ         EXCEPTION;
   e_NO_SERVICES_FOR_THE_PRINTMGR   EXCEPTION;
   e_NOT_ALL_PREV_REQ_COMPLETED     EXCEPTION;
   e_ALREADY_INITIALLY_PRINTED      EXCEPTION;
   e_NOT_PRINTED_INITIALLY          EXCEPTION;
   l_NUM_REC_CREATED                NUMBER :=0;
   PROCEDURE *SERVICE_TO_PRNTMNGR*
            (P_SERVICE_ID     IN SERVICE_REQUEST.SERVICE_ID%TYPE,
             P_FULFILLMENT_ID IN FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE,
             P_MODE           IN VARCHAR2);
   PROCEDURE INSERT_PrintJobQueueDI
            (P_FULFILLMENT_ID IN FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE,
             P_MODE           IN VARCHAR2);
       FUNCTION FULFILLMENT_TO_PRNTMNGR
       FUNCTION FULFILLMENT_TO_PRNTMNGR
                (P_FULFILLMENT_ID IN FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE,
                 P_MODE           IN VARCHAR2)
                RETURN SYS_REFCURSOR
          Name: FULFILLMENT_TO_PRNTMNGR
        Params: P_FULFILLMENT_ID IN FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE,
                P_MODE        IN VARCHAR2
          Desc: The procedure loops through FULFILLMENT_SERVICE table
                and calls xsp_service_to_printmanager for each serviceId.
        MGS - legal aid liens not printing or e-mail Do not insert RECEIPT
               record into PrintJobDataDI if the RECEIPT is NULL
     IS
     l_errmsg                      VARCHAR2(1000):= '';
     l_module_name                 VARCHAR2(200) := l_package_name || '.' || 'FULFILLMENT_TO_PRNTMNGR';
     l_selcnt                      INTEGER;
     l_error                      INTEGER;
     l_rowcnt            INTEGER;
     l_sqlstatus                       INTEGER;
     l_wrong_parameter              VARCHAR2(50);
     l_TABLE_NAME                   VARCHAR2(30);
     l_EXISTS                       NUMBER(1);
     l_FULFILLMENT_ID               FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE;
     l_PrintJobQueueDI_populated    BOOLEAN:=FALSE;
     CURSOR_out                     SYS_REFCURSOR;
    BEGIN
      IF P_FULFILLMENT_ID IS NULL OR
          P_MODE IS NULL
      THEN
          RAISE appl_error.e_missing_parameter;
      END IF;
      IF P_MODE NOT IN ('I','R')
      THEN
        l_wrong_parameter := 'P_MODE' || '=' || P_MODE;
        RAISE appl_error.e_wrong_parameter;
      END IF;
      -- Check if the Fulfillment Request
      -- completed successfully or failed
      l_NUM_REC_CREATED :=0;
      BEGIN
        SELECT 1 INTO l_EXISTS
         FROM FULFILLMENT_REQUEST
          WHERE FULFILLMENT_ID = P_FULFILLMENT_ID
           AND STATUS_IND IN ('S', 'F'); -- Successfull
      EXCEPTION
      WHEN NO_DATA_FOUND THEN
       RAISE e_NOT_S_F_STATUS_IND_REQ;
      END;
      IF P_MODE = 'I'
      THEN
          FOR l_SERVICE_REQ IN (SELECT sr.SERVICE_ID
                                  FROM FULFILLMENT_SERVICE fs,
                                       SERVICE_REQUEST sr,
                                       REQUEST_DESTINATION rd
                                  WHERE rd.SERVICE_ID = fs.SERVICE_ID
                                   AND sr.SERVICE_ID = fs.SERVICE_ID
                                    AND fs.FULFILLMENT_ID = P_FULFILLMENT_ID
                                     AND DELIVERY_METHOD_ID = 'P' -- Print
                                   AND sr.STATUS_IND = 'S')
          LOOP
            IF NOT l_PrintJobQueueDI_populated
            THEN
                INSERT_PrintJobQueueDI (P_FULFILLMENT_ID,P_MODE);
               l_PrintJobQueueDI_populated := TRUE;
                -- The data in the l_PrintJobDataDI_REC is populated by INSERT_PrintJobQueueDI
                IF l_PrintJobDataDI_REC.CONTENT IS NOT NULL THEN -- The Condition added on 01-APR-2011
                    INSERT INTO PrintJobDataDI VALUES l_PrintJobDataDI_REC; -- Receipt
                END IF;
                l_NUM_REC_CREATED := l_NUM_REC_CREATED + SQL%ROWCOUNT;
            END IF;
            *SERVICE_TO_PRNTMNGR*(l_SERVICE_REQ.SERVICE_ID,P_FULFILLMENT_ID,P_MODE);
          END LOOP;
          IF NOT l_PrintJobQueueDI_populated
          THEN
            RAISE e_NO_SERVICES_FOR_THE_PRINTMGR;
          END IF;
      ELSE -- P_MODE = 'R'
        INSERT_PrintJobQueueDI (P_FULFILLMENT_ID,'RF');
        l_PrintJobQueueDI_populated := TRUE;
      END IF;
      OPEN CURSOR_out FOR
       select l_NUM_REC_CREATED from dual;
       RETURN CURSOR_out;
      EXCEPTION
         WHEN appl_error.e_missing_parameter THEN
              l_error := 20001;
              l_errmsg:= appl_error.get_error_message(l_error,l_module_name,null,null);
              raise_application_error(l_error*(-1), l_errmsg);
         WHEN appl_error.e_wrong_parameter THEN
              l_error := 20003;
              l_errmsg:= appl_error.get_error_message(l_error,l_wrong_parameter,l_module_name,null);
              raise_application_error(l_error*(-1), l_errmsg);
         WHEN appl_error.e_no_records_retrieved THEN
              l_error := 20122;
              l_errmsg:= appl_error.get_error_message(l_error,l_module_name,l_TABLE_NAME,null);
              raise_application_error(l_error*(-1), l_errmsg);
         WHEN e_NOT_S_F_STATUS_IND_REQ THEN
              l_error := 20004;
              l_errmsg:= appl_error.get_error_message(l_error,l_module_name,
                'The Status_Ind of the Fulfillment_Id=' || P_FULFILLMENT_ID ||
                ' is not S or F',null);
              raise_application_error(l_error*(-1), l_errmsg);
         WHEN e_NO_SERVICES_FOR_THE_PRINTMGR THEN
              l_error := 20004;
              l_errmsg:= appl_error.get_error_message(l_error,l_module_name,
                'No Successfully completed services w/Delivery Method=P for the Fulfillment_Id=' ||
                P_FULFILLMENT_ID,null);
              raise_application_error(l_error*(-1), l_errmsg);
       END FULFILLMENT_TO_PRNTMNGR;
       FUNCTION SERVICE_TO_PRNTMNGR
       FUNCTION SERVICE_TO_PRNTMNGR
            (P_SERVICE_ID     IN SERVICE_REQUEST.SERVICE_ID%TYPE)
            RETURN SYS_REFCURSOR
          Name: SERVICE_TO_PRNTMNGR
        Params: P_SERVICE_ID IN SERVICE_REQUEST.SERVICE_ID%TYPE
          Desc: To be called from Application for the single Service_Id reprint.
    IS
       CURSOR_out                       SYS_REFCURSOR;
    BEGIN
       SERVICE_TO_PRNTMNGR(P_SERVICE_ID,NULL,'R');
       OPEN CURSOR_out FOR
       select l_NUM_REC_CREATED from dual;
       RETURN CURSOR_out;
    END SERVICE_TO_PRNTMNGR;
       *PROCEDURE SERVICE_TO_PRNTMNGR*
       PROCEDURE *SERVICE_TO_PRNTMNGR*
            (P_SERVICE_ID     IN SERVICE_REQUEST.SERVICE_ID%TYPE,
             P_FULFILLMENT_ID IN FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE,
             P_MODE           IN VARCHAR2)
          Name: SERVICE_TO_PRNTMNGR
          Params: P_SERVICE_ID IN SERVICE_REQUEST.SERVICE_ID%TYPE,
                  P_FULFILLMENT_ID IN FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE,
                  P_MODE        IN VARCHAR2
          Desc: The procedure populates the PrintJobQueueDI and PrintJobDataDI
                PrintManager tables.
                It works in two modes (P_MODE parameter)
                -I - Inital print request
                -R - reprint
                For the initial print request the P_FULFILLMENT_ID parameter
                will be passed in.
                For the Reprint mode the P_FULFILLMENT_ID will be NULL.
    IS
     l_errmsg                   VARCHAR2(1000):= '';
     l_module_name              VARCHAR2(200) := l_package_name || '.' || 'SERVICE_TO_PRNTMNGR';
     l_selcnt                   INTEGER;
     l_error                   INTEGER;
     l_rowcnt                   INTEGER;
     l_sqlstatus              INTEGER;
     l_wrong_parameter           VARCHAR2(50);
     l_TABLE_NAME                VARCHAR2(30);
     l_EXISTS                    NUMBER(1);
     l_FULFILLMENT_ID            FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE;
     e_NOT_PRINT_DELIVERY_METHOD EXCEPTION;
     e_NOT_SUCCESS_COMPL_SRV_REQ EXCEPTION;
    BEGIN
      IF P_SERVICE_ID IS NULL OR
          P_MODE IS NULL OR
          (P_MODE = 'I' AND P_FULFILLMENT_ID IS NULL)
         THEN
          RAISE appl_error.e_missing_parameter;
      END IF;
      IF P_MODE NOT IN ('I','R')
      THEN
        l_wrong_parameter := 'P_MODE' || '=' || P_MODE;
        RAISE appl_error.e_wrong_parameter;
      END IF;
      -- Check if the Service Request
      -- successfully completed
      BEGIN
        SELECT 1
          INTO l_EXISTS
          FROM SERVICE_REQUEST
         WHERE SERVICE_ID = P_SERVICE_ID
           AND STATUS_IND = 'S'; -- Successfull
      EXCEPTION
      WHEN NO_DATA_FOUND THEN
        RAISE e_NOT_SUCCESS_COMPL_SRV_REQ;
      END;
      -- Check if the Service Request of the
      -- REQUEST_DESTINATION.DELIVERY_METHOD_ID=P
      BEGIN
        SELECT 1
          INTO l_EXISTS
          FROM REQUEST_DESTINATION
         WHERE SERVICE_ID = P_SERVICE_ID
           AND DELIVERY_METHOD_ID = 'P'; -- Print
      EXCEPTION
      WHEN NO_DATA_FOUND THEN
        RAISE e_NOT_PRINT_DELIVERY_METHOD;
      END;
      IF P_FULFILLMENT_ID IS NULL
      THEN
          SELECT FULFILLMENT_ID
            INTO l_FULFILLMENT_ID
            FROM FULFILLMENT_SERVICE
           WHERE SERVICE_ID = P_SERVICE_ID;
      ELSE
        l_FULFILLMENT_ID := P_FULFILLMENT_ID;
      END IF;
      IF P_MODE = 'R' -- Request to Repring single service
      THEN
        INSERT_PrintJobQueueDI (l_FULFILLMENT_ID,P_MODE);
      END IF;
      --dbms_output.put_line(P_FULFILLMENT_ID);
      FOR l_PrintJobDataDI_REC1 IN (SELECT l_PrintJobQueueDI_REC.PRINTJOBDIID PRINTJOBDIID,
                                          ri.SERVICE_ID DOCID,
                                          rownum+1 DOCORDER,
                                          l_PrintJobQueueDI_REC.QUEUEDIID,
                                          3,
                                          ri.NAME,
                                          1,
                                          ri.NUMBER_OF_PAGES,
                                          ri.RESPONSE_BLOB
                                     FROM RESPONSE_IMAGE ri
                                    WHERE ri.SERVICE_ID=P_SERVICE_ID)
      LOOP
        --dbms_output.put_line(l_PrintJobDataDI_REC1.PRINTJOBDIID);
        --dbms_output.put_line(l_PrintJobDataDI_REC1.DOCID);
        --dbms_output.put_line(l_PrintJobDataDI_REC1.DOCORDER);
        INSERT INTO PrintJobDataDI VALUES l_PrintJobDataDI_REC1;
        l_NUM_REC_CREATED := l_NUM_REC_CREATED + SQL%ROWCOUNT;
      END LOOP;
      EXCEPTION
         WHEN appl_error.e_missing_parameter THEN
              l_error := 20001;
              l_errmsg:= appl_error.get_error_message(l_error,l_module_name,null,null);
              raise_application_error(l_error*(-1), l_errmsg);
         WHEN appl_error.e_wrong_parameter THEN
              l_error := 20003;
              l_errmsg:= appl_error.get_error_message(l_error,l_wrong_parameter,l_module_name,null);
              raise_application_error(l_error*(-1), l_errmsg);
         WHEN appl_error.e_no_records_retrieved THEN
              l_error := 20122;
              l_errmsg:= appl_error.get_error_message(l_error,l_module_name,l_TABLE_NAME,null);
              raise_application_error(l_error*(-1), l_errmsg);
         WHEN e_NOT_PRINT_DELIVERY_METHOD THEN
              l_error := 20004;
              l_errmsg:= appl_error.get_error_message(l_error,l_module_name,
                'The Delivery Method for the Service_Id=' || P_SERVICE_ID ||
                ' is not PRINT',null);
              raise_application_error(l_error*(-1), l_errmsg);
         WHEN e_NOT_SUCCESS_COMPL_SRV_REQ THEN
              l_error := 20004;
              l_errmsg:= appl_error.get_error_message(l_error,l_module_name,
                'The Status_Ind of the Service_Id=' || P_SERVICE_ID ||
                ' is not S',null);
              raise_application_error(l_error*(-1), l_errmsg);
    END SERVICE_TO_PRNTMNGR;
   PROCEDURE INSERT_PrintJobQueueDI
   PROCEDURE INSERT_PrintJobQueueDI
            (P_FULFILLMENT_ID IN FULFILLMENT_REQUEST.FULFILLMENT_ID%TYPE,
             P_MODE           IN VARCHAR2)
    It works in two modes (P_MODE parameter)
            -I - Inital print request
            -R - reprint single SERVICE REQUEST
            -RF - reprint entire fulfillment
    IS
     l_errmsg                   VARCHAR2(1000):= '';
     l_module_name              VARCHAR2(200) := l_package_name || '.' || 'INSERT_PrintJobQueueDI';
     l_selcnt                   INTEGER;
     l_error                   INTEGER;
     l_rowcnt                   INTEGER;
     l_sqlstatus              INTEGER;
     l_wrong_parameter           VARCHAR2(50);
     l_TABLE_NAME                VARCHAR2(100);
     l_EXISTS                    NUMBER(1);
    BEGIN
      IF P_FULFILLMENT_ID IS NULL OR
          P_MODE IS NULL
         THEN
          RAISE appl_error.e_missing_parameter;
      END IF;
      IF P_MODE NOT IN ('I','R','RF')
      THEN
        l_wrong_parameter := 'P_MODE' || '=' || P_MODE;
        RAISE appl_error.e_wrong_parameter;
      END IF;
      -- For reprint request confirm that
      -- all previouse print requests
      -- completed successfully.
      IF P_MODE IN ('R','RF')
      THEN
        SELECT count(*)
          INTO l_EXISTS
          FROM PrintJobQueueDI
         WHERE SESSIONID = P_FULFILLMENT_ID
           AND PRINTTYPE = 'REGULAR';
        IF l_EXISTS = 0
        THEN
          RAISE e_NOT_PRINTED_INITIALLY;
        END IF;
        SELECT count(*)
          INTO l_EXISTS
          FROM PrintJobQueueDI
         WHERE SESSIONID = P_FULFILLMENT_ID
           AND STATUS != 'STATUS_COMPLETED';
        IF l_EXISTS > 0
        THEN
          RAISE e_NOT_ALL_PREV_REQ_COMPLETED;
        END IF;
      ELSIF P_MODE = 'I'
      THEN
        SELECT count(*)
          INTO l_EXISTS
          FROM PrintJobQueueDI
         WHERE SESSIONID = P_FULFILLMENT_ID;
        IF l_EXISTS > 0
        THEN
          RAISE e_ALREADY_INITIALLY_PRINTED;
        END IF;
      END IF;
      IF P_MODE IN ('I','R')
      THEN
          l_TABLE_NAME := 'FULFILLMENT_REQUEST and more';
          SELECT SEQ_PrintJobQueueDI.NEXTVAL,
                 SEQ_PrintJobDIID.NEXTVAL,
                 us.KIOSK_ID,p.PRINTER_NAME,
                 fr.FULFILLMENT_ID,SYSDATE,
                 TO_DATE('1900/01/01','YYYY/MM/DD'),
                 DECODE(P_MODE,'I','REGULAR','REPRINT'),
                 'STATUS_SPOOLED',
                 DECODE(P_MODE,'I','ALL','COVER_AND_SEARCH'),
                 NULL,
                 -- Only for the initial printing
                 -- for the PrintJobDataDI for the Receipt
                 fr.FULFILLMENT_ID,
                 1,3,'RECEIPT',0,0,
                 fr.RECEIPT_BLOB
            INTO l_PrintJobQueueDI_REC.QUEUEDIID,
                 l_PrintJobQueueDI_REC.PRINTJOBDIID,
                 l_PrintJobQueueDI_REC.KIOSKID,
                 l_PrintJobQueueDI_REC.PRINTERNAME,
                 l_PrintJobQueueDI_REC.SESSIONID,
                 l_PrintJobQueueDI_REC.SPOOLTIME,
                 l_PrintJobQueueDI_REC.PRINTTIME,
                 l_PrintJobQueueDI_REC.PRINTTYPE,
                 l_PrintJobQueueDI_REC.STATUS,
                 l_PrintJobQueueDI_REC.PRINTOPTION,
                 l_PrintJobQueueDI_REC.PROCESSSTATEID,
                 l_PrintJobDataDI_REC.DOCID,
                 l_PrintJobDataDI_REC.DOCORDER,
                 l_PrintJobDataDI_REC.DOCTYPEID,
                 l_PrintJobDataDI_REC.DOCNAME,
                 l_PrintJobDataDI_REC.STARTPAGE,
                 l_PrintJobDataDI_REC.ENDPAGE,
                 l_PrintJobDataDI_REC.CONTENT
            FROM LRO_PRINTER p,
                 KIOSK k,
                 USER_SESSION us,
                 BUSINESS_AUDIT ba,
                 FULFILLMENT_REQUEST fr
           WHERE p.PRINTER_ID = k.PRINTER_ID
             AND p.LRO_ID = k.LRO_ID
             AND k.KIOSK_ID = us.KIOSK_ID
             AND us.USER_SESSION_ID = ba.USER_SESSION_ID
             --AND ba.BUSINESS_AUDIT_ID = fr.BUSINESS_AUDIT_ID
             AND ba.BUSINESS_AUDIT_ID = (select min(BUSINESS_AUDIT_ID)
                                           from fulfillment_service fs,service_request sr
                                          where fs.FULFILLMENT_ID = fr.FULFILLMENT_ID
                                            and sr.SERVICE_ID = fs.SERVICE_ID)
             AND fr.FULFILLMENT_ID = P_FULFILLMENT_ID;
      ELSE -- 'RF'
          l_TABLE_NAME := 'PrintJobQueueDI, KIOSK, LRO_PRINTER';
          SELECT SEQ_PrintJobQueueDI.NEXTVAL,
                 q.printJobDIID,
                 q.KIOSKID,
                 p.PRINTER_NAME,
                 q.SESSIONID,
                 SYSDATE,
                 TO_DATE('1900/01/01','YYYY/MM/DD'),
                 'REPRINT',
                 'STATUS_SPOOLED',
                 'ALL',
                 NULL
            INTO l_PrintJobQueueDI_REC.QUEUEDIID,
                 l_PrintJobQueueDI_REC.PRINTJOBDIID,
                 l_PrintJobQueueDI_REC.KIOSKID,
                 l_PrintJobQueueDI_REC.PRINTERNAME,
                 l_PrintJobQueueDI_REC.SESSIONID,
                 l_PrintJobQueueDI_REC.SPOOLTIME,
                 l_PrintJobQueueDI_REC.PRINTTIME,
                 l_PrintJobQueueDI_REC.PRINTTYPE,
                 l_PrintJobQueueDI_REC.STATUS,
                 l_PrintJobQueueDI_REC.PRINTOPTION,
                 l_PrintJobQueueDI_REC.PROCESSSTATEID
            FROM PrintJobQueueDI q,
                 KIOSK k,
                 LRO_PRINTER p
           WHERE q.SESSIONID = P_FULFILLMENT_ID
             AND printType = 'REGULAR'
             AND k.KIOSK_ID = q.KIOSKID
             AND p.PRINTER_ID = k.PRINTER_ID
             AND p.LRO_ID = k.LRO_ID;
      END IF;
      INSERT INTO PrintJobQueueDI VALUES l_PrintJobQueueDI_REC;
      l_NUM_REC_CREATED := l_NUM_REC_CREATED + SQL%ROWCOUNT;
      l_PrintJobDataDI_REC.PRINTJOBDIID := l_PrintJobQueueDI_REC.PRINTJOBDIID;
      l_PrintJobDataDI_REC.QUEUEDIID:= l_PrintJobQueueDI_REC.QUEUEDIID;
     EXCEPTION
     WHEN appl_error.e_missing_parameter THEN
          l_error := 20001;
          l_errmsg:= appl_error.get_error_message(l_error,l_module_name,null,null);
          raise_application_error(l_error*(-1), l_errmsg);
     WHEN appl_error.e_wrong_parameter THEN
          l_error := 20003;
          l_errmsg:= appl_error.get_error_message(l_error,l_wrong_parameter,l_module_name,null);
          raise_application_error(l_error*(-1), l_errmsg);
     WHEN e_NOT_ALL_PREV_REQ_COMPLETED THEN
          l_error := 20004;
          l_errmsg:= appl_error.get_error_message(l_error,l_module_name,
          'Not all print requests for the Fulfillment_Id=' || P_FULFILLMENT_ID ||
          ' were successfully completed',null);
          raise_application_error(l_error*(-1), l_errmsg);
     WHEN e_ALREADY_INITIALLY_PRINTED THEN
          l_error := 20004;
          l_errmsg:= appl_error.get_error_message(l_error,l_module_name,'Initial print request for the Fulfillment_Id=' || P_FULFILLMENT_ID ||
          ' has been already created',null);
          raise_application_error(l_error*(-1), l_errmsg);
     WHEN e_NOT_PRINTED_INITIALLY THEN
          l_error := 20004;
          l_errmsg:= appl_error.get_error_message(l_error,l_module_name,
            'Can''t reprint the print request for the Fulfillment_Id=' || P_FULFILLMENT_ID ||
            ' because it was not printed intially',null);
          raise_application_error(l_error*(-1), l_errmsg);
     WHEN NO_DATA_FOUND THEN
          l_error := 20122;
          l_errmsg:= appl_error.get_error_message(l_error,l_module_name,l_TABLE_NAME,null);
          raise_application_error(l_error*(-1), l_errmsg);
   END INSERT_PrintJobQueueDI;
END XSP_POPULATE_PRNTMNGR;Please help in writing this piece of code.
Would appreciate your help...
Edited by: BluShadow on 04-Oct-2011 15:39
added {noformat}{noformat} tags for readability. See {message:id=9360002} to learn to do this yourself.
Edited by: user548261 on Oct 4, 2011 7:46 AM

rudi wrote:
Hi sb92075,
I'm absolutely newbie in this discussion forum, because I expected that this forum will be helpfull for all. I have found really so much perfect answers and advices.
You have high number of posts, but I can't found any your answer for new programmers which have some issues. If you can't answer, ignore the query posted, I think that this is spamming, I have found your 10 negative posts within 5 minutes.
I know, that all forums have rules, but review number of "posts with not correct subjects like URGENT, ASAP...." and the other, correct with absolutely same queries and requests for advise.
Thanks for understanding
rudisb92075's response was helpful. It was pointing out that we need to have tables and data to work with and not just a piece of unfamiliar code that we are told doesn't work in some way. Without the tables and example data and expected output we could only guess what the problem may be. The OP has also said their issue is urgent, which it isn't as I pointed out to them, but then their response to sb92065's request for tables and data was just to say that they want us to do their work for them and they'll test it. That's not only rude, but also wastes our time as we have to make a guess as to what the problem may be then wait for the OP to test it, to no doubt tell us that it still doesn't work, so we can make another guess.
This is not the way a professional forum works. If the OP wants help with the issue they need to provide relevant information as requested. The fact they seem to keep asking questions and non of them are being marked as answered should be a good indication that they are not asking the questions correctly.
So, before you criticize members as being unhelpful, it is perhaps better if you read what they have requested and understand what they've said.
Therefore, we still await the OP's response providing some useful information to be able to help...

Can a single tax code (v5) have more than one rate of intrest?

can a single tax code (v5) have more than one rate of intrest?..
v5 can it have both 4 % and 5 % ??
(v5 comes under a condition type jipc..it is used for cst in a PO)

in that case ,(two rates)
if i use
function module, CALCULATE_TAX_FROM_NET_AMOUNT
how will get correct tax amount?
coz i will just mention
bukrs,
tacode,
amount,
currency
in the FUNCTION MODULE..
also can u help me find VAT CST amounts RATES for a invoice?
if i use the above FM i get the follwoing error
'tacode v5 not found in procedure TAXINN'
functional guy says configuraion is right..
pls help..
i need to make purchase register...

Single Vendor code-imp

Issue:
Presently we have some vendors who have their offices / factories at various locations. Eg: Crompton, ABB etc. Each of these locations have a different vendor code and there is no co-relation between two vendor codes.
We would like to use SAP features available similar to that of a single customer code (sold-to-party) and multiple ship-to-party, bill-to-party etc.
Here, we would like to have one vendor code for placing all POs for one corporate identity, and have selection options to pick up the vendors location from where the material will be shipped.
Concerns which we can think of at this stage:
1.Are there any implications with regards to the choice of tax codes?
2.On which vendor code will the vendors invoice be booked? On the vendor on whom the PO is booked or on the Invoice presented by vendor code?
3.We are going in for electronic payments. Will the payment process pick up the correct bank details based on the invoice presented by code?
4.When we take reports of purchasing values, list of PO etc, will data of all codes get clubbed under the main vendor code?
5.Data from Spiridon goes into MODIAS, a system used worldwide for purchasing information. Will the new process have any implications regarding MODIAS ?
6.Can we have different ship-from codes attached to the same parent vendor code in one purchase order ? The ship-to site location may not be the same place.
Please let me know, As i have to submit my report on it.
Rgds
Bidhu

Hello Bidhu,
You can do this with the partner functionality for vendors. Have one main vendor and mutliple partner vendors for the same.
PI - Pay to partner
GS - Goods supplier
OA - Ordering address
Cheers !

Changing controlling area from single company code to cross company code

Hi,
Due to my client requirement, in the middle of the year, we need to change the controlling area from being same as company code to cross company code controlling area. Although the currency is same. We are going to create a new company code. Is the changing controlling area settings possible to do? what are the precautions and changes need to be taken?
One more question, we need to change the company code when the new company code is created in the system in Cost Center Masters in the middle of the year. Is this possible after changing controlling area from single company code to cross company code. Right now company code is not appearing in the cost center master.
Thanks & Regards,
Saidarao

Hi,
If both companies having transaction data its not possible,Normally before defining Organisational Strucutre only we have to deside both companies is assigning same controlling are or have to maitain separately for this we have to compare the Fiscal year,Operating chart of accounts ,if both having same then we will assign both the company codes to one controlling area if these two companies having different currencies also its not a problem.When we creating Controlling Area we have to choose option of controlling area as same company code (if one company code one controlling Area) for example if you assigning two companies then we have to use cross company code cost accounting.If u need any further information let me know.
Regards,
Satya

Please help i need a sourcecode i think it�s easy

Please help
i need the source code
for a programm
which should ask me for a number
for instance: "7"
and then should the programm write "seven"
please help

I wrote it as a test some time ago:
import java.awt.*;
import java.awt.event.*;
import java.util.*;
public class N2t extends Frame
     Panel pr = new Panel();
     TextField fin = new TextField(20);
     Label     fot = new Label();
     Button    but = new Button(" Go ");
     Vector    vy = new Vector();
     Vector    va = new Vector();
     Vector    vh = new Vector();
public N2t()
     super();
     setBounds(10,10,550,200);
     addWindowListener(new WindowAdapter()
    {     public void windowClosing(WindowEvent ev)
               dispose();
               System.exit(0);
     pr.setBackground(Color.pink);
     add(pr);
     pr.setLayout(null);
     fin.setBounds(10,20,100,20);
     fot.setBounds(10,50,500,20);
     fot.setBackground(Color.white);
     but.setBounds(10,90,100,20);
     pr.add(fin);
     pr.add(fot);
     pr.add(but);
     setVisible(true);
     vy.add("");
     vy.add("one");
     vy.add("two");
     vy.add("three");
     vy.add("four");
     vy.add("five");
     vy.add("six");
     vy.add("seven");
     vy.add("eight");
     vy.add("nine");
     vy.add("ten");
     vy.add("eleven");
     vy.add("twelve");
     vy.add("threaten");
     vy.add("fourteen ");
     vy.add("fifteen");
     vy.add("sixteen");
     vy.add("seventeen");
     vy.add("eighteen");
     vy.add("nineteen");
     va.add("twenty");
     va.add("threaty");
     va.add("fourty ");
     va.add("fifty");
     va.add("sixty");
     va.add("seventy");
     va.add("eighty");
     va.add("ninety");
     vh.add("");
     vh.add("Tousend");
     vh.add("Milion");
     but.addActionListener(new ActionListener()
     {     public void actionPerformed(ActionEvent be)
               calc();
private void calc()
     int i=0, m=0, y;
     try
           i = Integer.parseInt(fin.getText());
     catch(NumberFormatException e) {return;}
     String txt = "";
     while (i > 0)
          y = i%1000;
          i = i/1000;
          if (y > 0) txt = calcI(y)+" "+(String)vh.get(m)+" "+txt;
          m++;
     fot.setText(txt);
private String calcI(int i)
     String txt = "";
     if (i > 99)
          txt = (String)vy.get(i/100)+" Hundred ";
          i = i%100;
     if (i > 19)
          i = i - 20;
          int a = i / 10;
          i = i - (a * 10);
          txt = txt+(String)va.get(a)+" ";
     return(txt+(String)vy.get(i));
public static void main (String[] args)
     new N2t();
Noah

Need information about t-code SCAT

Hi All,
         I need information about t-code *SCAT.*
         I dont know any thing about this transaction. I need information about how to use. What for we will use. Basis people how they can use this SCAT t-code.
         Try to help me out in solving this issue.
Regards,
Sateesh J

SCAT is used to upload the data with the transaction.The use of CATT is for bulk uploading of data. Although CATT is primarily a testing tool, it can be used for the mass upload of data. The way CATT works is like a real user actually inputting on the SAP screen.
The over-all procedure to upload data using CATT is as follows:
· Creation of the CATT test case & recording the sample data input.
· Download of the source file template.
· Modification of the source file.
· Upload of the data from the source file.
Refer the links:-
http://sap.ittoolbox.com/documents/popular-q-and-a/catt-procedure-1795
http://www.thespot4sap.com/Articles/CATT.asp

Need information about release codes

Hi,
I need information about release codes.In which Transcation we will get it.
Please give the information ASAP.
Regards,
Chow.

Hi Naidu,
Release code is a two-character identifier with which a person responsible for processing a document can release/ approve an item of a purchase requisition, a complete purchase requisition, or a complete external purchasing document, or cancel a release.
If a link to SAP Business Workflow has been defined for the release code, the person can refuse to effect release (withhold approval), thus rejecting the item or document.
You can find the relelase codes Using the following path :
Go to Transaction : SPRO and click on SAP Reference IMG and follow the menu :
-> Material Management ->Purchasing->Purchase Requisition->Release Procedure ->Procedure with classification -> Setup procedure with classification
Hope this helps..
Thank you
Srinivas

Multple Services Vendors to have Single Vendor Code and also Multiple TaxCd

Hey SAP Gurus,
Please help me with my problem.
Background:
1. Currently on SAP 4.7 there are close to 10,000 Vendors. Many of these Vendors are acting as more than ONE Goods / Services Provider.
2. Few Services rendered by Vendors are subject to Withholding Tax (Tax Deduction at Source).
3. For the Withholding Tax we are using Std SAP provided functionalities and hence for each Service, attracting a separate TDS Provision, we have set up a dedicated Vendor Code. All Vendor codes are linked to one Payee so that the Automatic Payment Run issues the Cheques to ONE Vendor code only.
4. The Vendors masters creation is an ongoing activity. So, say for ex, in 2008 one Vendor was providing X service, started providing Y Service in 2009 leading to creation of dedicated Vendor code. The same Vendor is now providing 3rd service attracting a different provision of With. tax - Hence in 2010 for the "same" Vendor / Party, a 3rd Vendor Master Record with different Vendor Code (system generated internal numbering) is created.
Problem:
A. Our client wants to have ONE single Vendor code with MULTIPLE Roles assignment. I am not very sure if we can have it done in SAP by creating some ROLES.
B. The MM module is not live here. This means, the PO related functionalities (if possible) cannot be used.
C. There are multiple systems from where the Vendor Liability Line item is generated and it comes to SAP for GL Posting and Final payout (Thru Cheque or Electronic Fund Transfer etc.).
D. In our Indian Scenario, each Section or Provision, leads to set up of 4 TDS Tax Codes: Basic, Surcharge, Cess 1 and Cess 2.
Due to this requirement, we have configured the said respective 4 Tax Codes per section.
E. If a Vendor is providing 4 different services attracting 4 different Sections of TDS, this will lead to having 4 X 4 = 16 Tax Codes for each such Vendor.
F. The problem would become more complex on receiving the Transactional Data File (thru Interface) from various Applications generating the Liability Line Item for Vendor.
Revisiting the Requirement:
Have One Vendor Code per Vendor or Party.
Your help would be highly appreciated.
Many Thanks
SAP Consultant

Hi
To overcome this problem you have two options.
1. you can create only one vendor code.For the withholding tax purpose you can have multiple tax code options.At the time of giving input you can select withholding tax code from the drop down list.why dont you use that option?
2. Here you can use the Head office concept.
first you create vendor(ex: xyz).
after that you can create one more vendor code(for same vendor for different service) and assign first vendor(main vendor) in the head office field in the account information tab under recon account field.
what ever the posting are doing for the different services automatically routed to main vendor(Ex: xyz)

I need to retrieve the code I was given to activate my creative suite design & web premium.

PLEASE can someone help me. I need to retrieve the code I was given to activate my creative suite design & web premium. I have got a new mac and it is only saying I have a 30 day trial.

Sign in, activation, or connection errors | CS5.5 and later
Find your serial number quickly
Mylenium

Do I really need to write ANY code to create menus

I need to create a Enhanced CD. You know....a CD, that when
put into a computer pops up with menus and options to play music,
videos, goto a website display a PDF etc......
I know Director does this, because the last Enhanced CD I saw
had a lillte "d" in the upper left hand corner and also a message
that said MADE WITH MACROMEDIA (now Adobe).
So my question is if I buy Director, will I need to know any
code or Lingo? I know very little HTML, but thats about it. Was
something like this created via a drag and drop process, or do I
need to be a genius...or maybe a super genius?
Any help or suggestions would be greatly appreciated!
Chaz

It's been a long time since I first used Director, I can't
recall a
project that didn't some amount of coding.
Your brief description doesn't include anything overly
complicated, but
will require an understanding of the fundamentals of Lingo.
Director
comes with some pre-built code widgits and there are 3rd
party Xtras
(some free, some that cost) which can make the job easier.
The best thing of all is the tremendous help that you will
get on this
forum. The only real question is do you have the time
required to learn
how to use the product?
Xaos wrote:
> I need to create a Enhanced CD. You know....a CD, that
when put into a computer
> pops up with menus and options to play music, videos,
goto a website display a
> PDF etc......
>
> I know Director does this, because the last Enhanced CD
I saw had a lillte "d"
> in the upper left hand corner and also a message that
said MADE WITH MACROMEDIA
> (now Adobe).
>
> So my question is if I buy Director, will I need to know
any code or Lingo? I
> know very little HTML, but thats about it. Was something
like this created via
> a drag and drop process, or do I need to be a
genius...or maybe a super genius?
>
> Any help or suggestions would be greatly appreciated!
>
> Chaz
>

Help: i need smtp single attachment code

Similar Messages

Maybe you are looking for