Procedure from forms6i to excel

HI,
I need to create a procedure
that passing the select query is created
an Excel spreadsheet with the output of the select
can someone help me?
thank
Silvia

To create an xls-file on the client you can use the OLE-package of forms and "remote-control" excel to create a file.
have a look at this thread Re: can we generate reports from oracle froms 6i into excel format
This option needs the excel-software to be installed on the client where your program runs.

Similar Messages

Error while executing a stored procedure from forms6i

When I execute a STORED PROCEDURE from ORACLE DB 10g this procedure works perfectly fine.
But when I execute the same from the FORMs 6i I get the following error:
PDE-PLU022 Don't have access to the stored program unit
XMLPARSERCOVER in schema CARE.
where XMLPARSERCOVER is the class and
CARE is the schema.
Regards,
Jignesh S

I have tried this with both the owner of the schema and the intended user, -from both forms and directly.
All rights was granted on the stored procedure. Since posting I have found that one of the tables that the procedure might insert into, was not explicitly granted to the intended user, and after rectifying that the error message went away.
-however, the procedure now silently "finishes" without any evidence that it ever ran, if invoked from the forms application. When invoked from SQL Plus (or JDev, or Toad) it runs as expected.
I have no public synonym for the procedure, -is that necessary?
The stored procedure in question is implemented in java, and published as a stored procedure. It does rather heavy lifting, when running, using a view against another server , updating local tables and quite a lot of data validation/cleansing, and logging. All recourses are within the same schema.
Any ideas?

Problem executing a Java Stored Procedure from Forms6i

I'm executing a Stored Procedure which invokes a Java Stored procedure.Till the invoking it works fine but for accessing a particular class it gives an error:
PDE-PLU022 Don't have access to the stored program unit XMLPARSERCOVER in schema CARE
where care is the schema name....
Please assist me for this...

hi Jignesh
Maybe you can find some useful information in:
"Oracle Database Java Developer's Guide"
http://download-west.oracle.com/docs/cd/B14117_01/java.101/b12021.pdf
success
Jan Vervecken

Execute Oracle Stored Procedure from Excel

Is it possible to execute an Oracle Stored Procedure from Microsoft Excel and return the result of the Oracle Store Procedure into the excel spreadsheet.

Yes. You can use Oracle Objects for OLE to accomplish this. It comes with Excel examples and an online help file with many more examples.

From database to excel and back to database from excel - how?

Environment: db 8,10 server (HPUX), IAS (SUSE), forms6i,10+report6i,10
On principle there is no problem to get data from database to excel but there is the problem how to get data from excel back to database. I don't have intention to use APEX. The goal is to move the cursor to certain row in excel sheet and depends of data in this row call Oracle form in query only mode. Here is the solution to write URL into the excel cell but still exists the problem how to reduce number of session because each call of the form open the new session what I don't like to do.
Thanks for purposes!
m.

Inolau, I'd like to open form between watching excel sheet depends of data in excel. For example:
Cells:
A B C
1. 1 2 3
2. 4 5 6
When I put the cursor on B:2 cell I'd like to open a form. After this I'd like to put the cursor on cell C:1 and I'd like to open the same form again. All in one session.

Running a SQL Stored Procedure from Power Query with Dynamic Parameters

Hi,
I want to execute a stored procedure from Power Query with dynamic parameters.
In normal process, query will look like below in Power Query. Here the value 'Dileep' is passed as a parameter value to SP.
    Source = Sql.Database("ABC-PC", "SAMPLEDB", [Query="EXEC DBO.spGetData 'Dileep'"]
Now I want to pass the value dynamically taking from excel sheet. I can get the required excel cell value in a variable but unable to pass it to query.
    Name_Parameter = Excel.CurrentWorkbook(){[Name="Table3"]}[Content],
    Name_Value = Name_Parameter{0}[Value],
I have tried like below but it is not working.
Source = Sql.Database("ABC-PC", "SAMPLEDB", [Query="EXEC DBO.spGetData Name_Value"]
Can anyone please help me with this issue.
Thanks
Dileep

Hi,
I got it. Below is the correct syntax.
Source = Sql.Database("ABC-PC", "SAMPLEDB", [Query="EXEC DBO.spGetData '" & Name_Value & "'"]
Thanks
Dileep

Exporting Data from Forms to Excel

Hi,
How can I export the data from Forms to Excel like which Export function in the Oracle Applications.
Thank you,
Voon

Hello,
By using dde package you can export the data from Form to Excel. Here is the sample code which i have used. you can write this code in the when_button_pressed trigger.
declare
appl_name varchar2(255);
channel_id pls_integer;
application_id pls_integer;
x number;
y number;
V_TIME VARCHAR2(30);
begin
if :global.application_id is not null then
message('Application already open');
else
appl_name := 'c:\program files\microsoft office\office\excel.exe';
:global.application_id := dde.app_begin(appl_name,dde.app_mode_normal);
end if;
if :global.channel_id is not null then
message('Communication channel already established.');
elsif :global.application_id is null then
message('Application must be launched first.');
else
:global.channel_id := dde.initiate('excel','book1');
end if;
DDE.POKE(:global.channel_id,'R1C1','Col1 Heading',DDE.CF_TEXT,1000);
DDE.POKE(:global.channel_id,'R1C2','Col2 Heading',DDE.CF_TEXT,1000);
DDE.POKE(:global.channel_id,'R1C3','Col3 Heading',DDE.CF_TEXT,1000);
FIRST_RECORD;
X := No of Records;
for y in 2..x
loop
launch_excel is a program unit--
launch_excel(y,:global.channel_id,:block.item1,:block.item2,::block.item3);
next_record;
end loop;
FIRST_RECORD;
EXCEPTION
WHEN DDE.DDE_APP_FAILURE THEN
MESSAGE('Could not launch application for DDE operations.');
RAISE FORM_TRIGGER_FAILURE;
WHEN DDE.DDE_INIT_FAILED THEN
MESSAGE('Could not initialize DDE communication channel.');
RAISE FORM_TRIGGER_FAILURE;
WHEN DDE.DMLERR_NO_CONV_ESTABLISHED THEN
MESSAGE('Could not establish DDE communication channel.');
RAISE FORM_TRIGGER_FAILURE;
WHEN OTHERS THEN
MESSAGE('Error: '| |TO_CHAR(SQLCODE)| |' '| |SQLERRM);
RAISE FORM_TRIGGER_FAILURE;
END;
LAUNCH_EXCEL
PROCEDURE LAUNCH_EXCEL(
y in number,
channel_id pls_integer,
param1 varchar2,
param2 VARCHAR2,
param3 varchar2) IS
v_rowno varchar2(20) := 'R'| |y;
BEGIN
dde.poke(channel_id,v_rowno| |'C1',col1,dde.cf_text,2000);
dde.poke(channel_id,v_rowno| |'C2',col2,dde.cf_text,2000);
dde.poke(channel_id,v_rowno| |'C3',col3,dde.cf_text,2000);
EXCEPTION
when others then
message('Error --'| |sqlcode| |sqlerrm);
message('Error --'| |sqlcode| |sqlerrm);
raise form_trigger_failure;
END;
null

Microsoft excel error while exporting a FRS report from Planning to excel

I have multiple screen shots of the issue.
are getting issues when within citrix trying to run an FRS report from workspace into excel.
first they get a windows login window looking for credentials of a User name and a Password.
the first error:
"Could not open 'http:SERVERNAME:19000/hr/hrget/modules/com/hyperion/reporting/web/office/HROfficeReport.jsp/FOLDERNAMEandFILENAME.xls?format=excel.20028viewAs=excel&instanceId=11165278&previewDone=true'.
second error:
Microsoft Excel cannot access the file 'http:SERVERNAME:19000/hr/hrget/modules/com/hyperion/reporting/web/office/HROfficeReport.jsp/FOLDERNAMEandFILENAME.xls?format=excel.20028viewAs=excel&instanceId=11165278&previewDone=true'. There are several possible reasons:
The file name or path does not exist.
The file is being used by another person
The workbook you are trying to save has the same name as a currently open workbook.
Third error:
The file you are trying to open, 'FILENAME.xls', is in a different format than specified by the file extension. Verify that the file is not corrupted and is from a trusted source before opening the file do you want to open the file now?
yes , no, or help
I am trying to figure out if its a CITRIX issue? An EPM issue? or what
We have Office 2010 32 bit with smart view and excel add-in.
Does anybody know why this may occur? I have screen shots I just don't know how to post them.

When you export a FR report to excel, yes, you will get a prompt for credentials, but as said in 11.1.2 HFR guide, you have to ignore that by clicking "Cancel" and then you will get a second warning pop-up saying "The file you are trying to open, 'FILENAME.xls', is in a different format ........"... Click on "Yes"... you should be able to see the report in excel....
Both these are known issues in HFR export to excel and you can find them in oracle features guide. And they are not related to Citrix.
As in Oracle HFR user guide "When exporting a Financial Reporting document to a Microsoft Office format (Excel, Word or PowerPoint), when using Microsoft Office 2007, you may receive the following warning: "The file your are trying to open <filename>, is in a different format than specified by the file extension. Verify that the file is not corrupted and is from a trusted source before opening the file. Do you want to open the file now?". This warning notifies users that, although the file has an Office extension ( ".xls", ".doc" or ".ppt"), the content of the file is different from the expected (native) Office format. Although Financial Reporting reports are generated in an MHTML format during export, this is not a security concern. Microsoft Office is just warning a user of a file format that is different than expected. Upon selecting “Yes” in the warning, the file will successfully open in Microsoft Office."
Thanks,
Siva

Error while calling a procedure from ESB

Hi,
I am calling a procedure from ESB using DB adapter. and in the routing rules i am mapping the i/p values for schema to procedure input variables using mappings(transformation) but the values are going as null to the procedure call.
Please help me out.
The exception follows...
An unhandled exception has been thrown in the ESB system. The exception reported is: "org.collaxa.thirdparty.apache.wsif.WSIFException: esb:///ESB_Projects/ESB-Issues_issue3/db3.wsdl [ db3_ptt::db3(InputParameters,OutputParameters) ] - WSIF JCA Execute of operation 'db3' failed due to: Error while trying to prepare and execute an API.
An error occurred while preparing and executing the SYSTEM.INSERT_ISSUE_PROC API. Cause: java.sql.SQLException: ORA-01400: cannot insert NULL into ("SYSTEM"."ISSUES"."ISSUE_NAME")
ORA-06512: at "SYSTEM.INSERT_ISSUE_PROC", line 16
ORA-06512: at line 1
[Caused by: ORA-01400: cannot insert NULL into ("SYSTEM"."ISSUES"."ISSUE_NAME")
ORA-06512: at "SYSTEM.INSERT_ISSUE_PROC", line 16

This is likely being caused by a problem that we've seen a number of times. You'll have namespace issues and problems with NULLs if your JDev is 10.1.3.1 and SOA is 10.1.3.3 (or vice-versa). You MUST synchronize JDev 10.1.3.3 (or higher) with SOA 10.1.3.3 (or higher). It doesn't matter if you mix 10.1.3.3 and 10.1.3.4. You just need to get away from 10.1.3.1.

Can not connect from Forms6i to PO8i.

Hi,
My PC is a NT named 'oracle'. I have first installed Forms6i in DEFAULT_HOME, c:/orant.
PO8i is installed as:
Oracle Home: ora8i
Full Path: c:\orant\ora8i
Choose Typical Install
Global Database Name: ora8i.oracle.master.com.au
SID: ora8i
Then I added an entry in c:\orant\net80\admin\tnsnames.ora as:
test.world
(DESCRIPTION
(ADDRESS_LIST
(ADDRESS
(PROTOCOL = TCP)
(Host = 127.0.0.1)
(Port = 1521)
(CONNECT_DATA = (SID = ora8i)
I can connect to PO8i from SQL*Plus using scott/tiger or scott/tiger@ora8i.
When I tried to connect to PO8i from Forms6i using scott/tiger@test or scott/tiger@ora8i. I got ORA-12154: TNS:could not resolve service name.
If I use scott/tiger@test from SQL*Plus, I got the same error.
If I use scott/tiger from Forms6i, I got ORA-12203: TNS:unable to connect to destination.
Help please.
Sue
null

Try taking off the .world in the NET80 tnsnames.ora file
Jason Pepper
Snr Product Manager
Oracle Enterprise Internet Tools

How to call a PL/SQL procedure from a Java class?

Hi,
I am new to the E-BusinessSuite and I want to develop a Portal with Java Portlets which display and write data from some E-Business databases (e.g. Customer Relationship Management or Human Resource). These data have been defined in the TCA (Trading Community Architecture) data model. I can access this data with PL/SQL API's. The next problem is how to get the data in the Java class. So, how do you call a PL/SQL procedure from a Java program?
Can anyone let me know how to solve that problem?
Thanks in advance,
Chang Si Chou

Have a look at this example:
final ApplicationModule am = panelBinding.getApplicationModule();
try
     final CallableStatement stmt = ((DBTransaction)am.getTransaction()).
                                                                                     createCallableStatement("{? = call some_pck.some_function(?, ?)}", 10);
     stmt.registerOutParameter(1, OracleTypes.VARCHAR);
     stmt.setInt(2, ((oracle.jbo.domain.Number)key.getAttribute(0)).intValue());
     stmt.setString(3, "Test");
     stmt.execute();
     stmt.close();
     return stmt.getString(1);
catch (Exception ex)
     panelBinding.reportException(ex);
     return null;
}Hope This Helps

How to call a PL/SQL procedure from a xml Data Template

We have a requirement in which we need to call a pl/sql package.(dot)procedure from a Data Template of XML Publisher.
we have registered a Data Template & a RTF Template in the XML Publisher Responsibility in the Oracle 11.5.10 instance(Front End).
In the Data Query part of the Data Template , we have to get the data from a Custom View.
This view needs to be populated by a PL/SQL procedure.And this procedure needs to be called from this Data Template only.
Can anybody suggest the solution.
Thanks,
Sachin

Call the procecure in the After Parameter Form trigger, which can be scripted in the Data Template.
BTW, there is a specialized XML Publisher forum:
BI Publisher

PL/SQL: Executing a procedure from within another procedure

Hello, I'm a newbie and I need help on how to execute procedures from within another procedure. The procedure that I call from within the procedure have return values that I want to check.
I tried: EXECUTE(user_get_forum_info(p_forumid, var_forum_exists, var_forum_access, var_forumname));
but I get the error message:
PLS-00103: Encountered the symbol "USER_GET_FORUM_INFO" when expecting one of the following::= . ( @ % ; immediate
The symbol ":=" was substituted for "USER_GET_FORUM_INFO" to continue.
And when I tried: EXECUTE(user_get_forum_info(p_forumid, var_forum_exists, var_forum_access, var_forumname));
I get the error message:
PLS-00222: no function with name 'USER_GET_FORUM_INFO' exists in this scope
PL/SQL: Statement ignored
The procedure USER_GET_FORUM_INFO exists. (don't understand why it says "no FUNCTION with name", it's a procedure I'm executing)
I'm stuck so thanks for any help...
Below is all the code. I'm using Oracle 9i on RedHat Linux 7.3.
================================================================================
CREATE OR REPLACE PROCEDURE user_forum_requestsaccess (
p_forumid IN NUMBER,
p_requestmessage IN VARCHAR2
AS
var_forumid NUMBER;
var_forum_exists NUMBER;
var_forum_access NUMBER;
request_exists NUMBER;
var_forumname VARCHAR2(30);
FORUM_DOESNT_EXIST EXCEPTION;
FORUM_USER_HAS_ACCESS EXCEPTION;
FORUM_REQUEST_EXIST EXCEPTION;
BEGIN
SELECT SIGN(NVL((SELECT request_id FROM forum.vw_all_forum_requests WHERE forum_id = p_forumid AND db_user = user),0)) INTO request_exists FROM DUAL;
EXECUTE(user_get_forum_info(p_forumid, var_forum_exists, var_forum_access, var_forumname));
IF var_forum_exists = 0 THEN
RAISE FORUM_DOESNT_EXIST;
ELSIF var_forum_access = 1 THEN
RAISE FORUM_USER_HAS_ACCESS;
ELSIF request_exists = 1 THEN
RAISE FORUM_REQUEST_EXIST;
ELSE
INSERT INTO tbl_forum_requests VALUES (SEQ_TBL_FORUM_REQ_REQ_ID.NEXTVAL, SYSDATE, p_requestmessage, p_forumid, user);
INSERT INTO tbl_forum_eventlog VALUES (SEQ_TBL_FORUM_EVNTLOG_EVNT_ID.NEXTVAL,SYSDATE,1,'User ' || user || ' requested access to forum ' || var_forumname || '.', p_forumid,user);
COMMIT;
END IF;
EXCEPTION
WHEN
FORUM_DOESNT_EXIST
THEN RAISE_APPLICATION_ERROR(-20003,'Forum doesnt exist.');
WHEN
FORUM_USER_HAS_ACCESS
THEN RAISE_APPLICATION_ERROR(-20004,'User already have access to this forum.');
WHEN
FORUM_REQUEST_EXIST
THEN RAISE_APPLICATION_ERROR(-20005,'A request to this forum already exist.');
END;
GRANT EXECUTE ON user_forum_requestsaccess TO forum_user;
================================================================================
Regards Goran

you don't have to use execute when you want to execute a procedure (only on sql*plus, you would use it)
just give the name of the funtion
create or replace procedure test
as
begin
    dbms_output.put_line('this is the procedure test');
end test;
create or replace procedure call_test
as
begin
    dbms_output.put_line('this is the procedure call_test going to execute the procedure test');
    test;
end call_test;
begin
    dbms_output.put_line('this is an anonymous block calling the procedure call_test');
    call_test;
end;
/

Unable to call a procedure from inside a another procedure

Dear members
I am trying to call a procedure from inside an another procedure.Both the procedures are present within the same package.I am trying to call the second procedure just before the end of the first procedure.Both the procedures are compiling fine but the tables are not getting populated inside the second procedure.Also the DBMS_OUTPUT statements present in second procedures are not getting displayed.(I feel the second procedured is not getting called).
The package specification is as follows:
CREATE OR REPLACE package ANVESH.conv_api_pkg
is
    PROCEDURE PROC_CONVERSION_API(FILE_PATH IN VARCHAR2,FILE_NAME IN VARCHAR2) ;
    TYPE cts_order_details IS TABLE OF XXCTS_ORDER_DETAILS_STG%ROWTYPE;
    PROCEDURE proc_conversion_api2(p_orderdetails IN cts_order_details) ;
end conv_api_pkg;The package body is as follows:
CREATE OR REPLACE package body ANVESH.conv_api_pkg
is
PROCEDURE PROC_CONVERSION_API(FILE_PATH IN VARCHAR2,FILE_NAME IN VARCHAR2)
IS
    v_file_type utl_file.file_type;
    v_buffer VARCHAR2(1000);
    V_CUSTOMER_NAME VARCHAR2(100);
    V_MANUFACTURER VARCHAR2(100);
    V_PRODUCT_NAME VARCHAR2(100);
    V_QUANTITY NUMBER;
    V_REQ_SHIP_DATE DATE;
    V_REQ_PRICE NUMBER;
    V_LOG_FILE utl_file.file_type;
    V_COUNT_CUST NUMBER;
    V_COUNT_PROD NUMBER;
   L_ORDER_LINES CONV_API_PKG.cts_order_details:=CONV_API_PKG.cts_order_details();
BEGIN
    DBMS_OUTPUT.PUT_LINE('Inside begin 1');
    v_file_type := UTL_FILE.fopen(FILE_PATH, FILE_NAME, 'r',null);
        DBMS_OUTPUT.PUT_LINE('Inside begin 1.1');
    LOOP
        BEGIN
                    DBMS_OUTPUT.PUT_LINE('Inside begin 2');
                     UTL_FILE.GET_LINE (v_file_type,v_buffer);
                    DBMS_OUTPUT.PUT_LINE('Inside begin 2.1');
                    DBMS_OUTPUT.PUT_LINE('the buffer is '||v_buffer);
                    DBMS_OUTPUT.PUT_LINE('the length of buffer is '||length(v_buffer));
                     V_CUSTOMER_NAME := trim(substr(v_buffer, 1, 30));
                     DBMS_OUTPUT.PUT_LINE('Customer Name is '||V_CUSTOMER_NAME);
                     V_MANUFACTURER := trim(substr(v_buffer, 31, 40));
                     DBMS_OUTPUT.PUT_LINE('Manufacturer is '||V_MANUFACTURER);
                     V_PRODUCT_NAME := trim(substr(v_buffer, 71, 20));
                     DBMS_OUTPUT.PUT_LINE('Product Name is '||V_PRODUCT_NAME);
                     V_QUANTITY      := to_number(trim(substr(v_buffer, 91, 5)));
                     DBMS_OUTPUT.PUT_LINE('Quantity is '||V_QUANTITY);
                     V_REQ_SHIP_DATE     := to_date(trim(substr(v_buffer, 96, 20)), 'DD-MON-YYYY');
                     DBMS_OUTPUT.PUT_LINE('Requested Ship Date is '|| V_REQ_SHIP_DATE);
                    V_REQ_PRICE        :=nvl(substr( trim(v_buffer), 116, length(v_buffer)-116),0);
                    --DBMS_OUTPUT.PUT_LINE('Requested Price is1 '||substr(v_buffer, 116, 5));
                    DBMS_OUTPUT.PUT_LINE('The requested price is '||V_REQ_PRICE);
            V_LOG_FILE := UTL_FILE.FOPEN(FILE_PATH, 'LOG_FILE.dat', 'A');
                IF (V_QUANTITY > 0)
                 THEN
                 DBMS_OUTPUT.PUT_LINE('The quantity is '||V_QUANTITY);
                   SELECT COUNT (*)
                   INTO V_COUNT_CUST
                   FROM CONVERSION_CUSTOMERS
                   WHERE CUSTOMER_NAME = V_CUSTOMER_NAME;
                   DBMS_OUTPUT.PUT_LINE('The Customer count is '||V_COUNT_CUST);
                   IF(V_COUNT_CUST > 0)
                   THEN
                       SELECT COUNT(*)
                       INTO V_COUNT_PROD
                       FROM conversion_products
                       WHERE PRODUCT_NAME = V_PRODUCT_NAME;
                       DBMS_OUTPUT.PUT_LINE('The Product count is '||V_COUNT_PROD);
                      IF(V_COUNT_PROD >0)
                       THEN
                            INSERT INTO XXCTS_ORDER_DETAILS_STG VALUES (V_CUSTOMER_NAME, V_PRODUCT_NAME, V_MANUFACTURER, V_QUANTITY, V_REQ_SHIP_DATE, V_REQ_PRICE, 'ACTIVE', 'ORDER TAKEN');
                       ELSE
                            DBMS_OUTPUT.PUT_LINE('PRODUCT SHOULD BE VALID');
                            UTL_FILE.PUT_LINE(V_LOG_FILE, 'PRODUCT SHOULD BE VALID');
                       END IF;
                   ELSE
                      DBMS_OUTPUT.PUT_LINE('CUSTOMER SHOULD BE VALID');
                      UTL_FILE.PUT_LINE(V_LOG_FILE, 'CUSTOMER SHOULD BE VALID');
                   END IF;
                ELSE
                    DBMS_OUTPUT.PUT_LINE('QUANTITY SHOULD BE VALID');
                    UTL_FILE.PUT_LINE(V_LOG_FILE, 'QUANTITY SHOULD BE VALID');
                END IF;
                EXCEPTION
                WHEN NO_DATA_FOUND THEN
                    EXIT;
                END;
    END LOOP;
SELECT CUSTOMER_NAME, PRODUCT_NAME, MANUFACTURER, QUANTITY, REQUESTED_SHIP_DATE, REQUESTED_PRICE, STATUS,MESSAGE
BULK COLLECT
INTO L_ORDER_LINES
FROM XXCTS_ORDER_DETAILS_STG;
DBMS_OUTPUT.PUT_LINE('values inserted');
proc_conversion_api2(p_orderdetails=>L_ORDER_LINES);
END;
PROCEDURE proc_conversion_api2(p_orderdetails IN cts_order_details)
IS
V_AVL_QUANTITY CONVERSION_PRODUCTS.AVL_QUANTITY%TYPE;
V_REQ_SHIP_DATE DATE;
V_LIST_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_NET_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_NET CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_EXTN_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_CUST_DISC CONVERSION_CUSTOMERS.DISCOUNT%TYPE;
V_CERT_DISC CONVERSION_CERTIFICATION.DISCOUNT%TYPE;
V_CUST_ID XXCTS_ORDER_DETAILS.CUSTOMER_ID%TYPE;
V_PROD_ID XXCTS_ORDER_DETAILS.PRODUCT_ID%TYPE;
V_DISC_PRICE CONVERSION_PRODUCTS.LIST_PRICE%TYPE;
V_DISC_NAME CONVERSION_CERTIFICATION.CERTIFICATION%TYPE;
V_TOTAL_DISC_AMT NUMBER;
V_TOTAL_DISC NUMBER;
V_LIMIT NUMBER;
BEGIN
    DBMS_OUTPUT.PUT_LINE('INSIDE API_2 BEGIN 1');
        FOR i IN p_orderdetails.FIRST..p_orderdetails.LAST
        LOOP
             BEGIN
            DBMS_OUTPUT.PUT_LINE('INSIDE API_2 BEGIN 2');
            SELECT PRODUCT_ID,AVL_QUANTITY,LIST_PRICE
            INTO V_PROD_ID,V_AVL_QUANTITY,V_LIST_PRICE
            FROM CONVERSION_PRODUCTS
            WHERE PRODUCT_NAME=p_orderdetails(i).PRODUCT_NAME;
            DBMS_OUTPUT.PUT_LINE('PRODUCT QUANTITY is '||V_PROD_ID);
            DBMS_OUTPUT.PUT_LINE('AVAILABLE QUANTITY is '||V_AVL_QUANTITY);
            DBMS_OUTPUT.PUT_LINE('LIST PRICE is '||V_LIST_PRICE);
            SELECT CUSTOMER_ID,NVL(DISCOUNT,0)
            INTO V_CUST_ID,V_CUST_DISC
            FROM CONVERSION_CUSTOMERS
            WHERE CUSTOMER_NAME=p_orderdetails(i).CUSTOMER_NAME;
            DBMS_OUTPUT.PUT_LINE('CUSTOMER ID is '||V_CUST_ID);
            DBMS_OUTPUT.PUT_LINE('CUSTOMER DISCOUNT IS '||V_CUST_DISC);
            SELECT A.DISCOUNT,A.CERTIFICATION
            INTO V_CERT_DISC,V_DISC_NAME
            FROM CONVERSION_CERTIFICATION A,CONVERSION_CUSTOMERS B
            WHERE A.CERTIFICATION=B.CERTIFICATION(+)
            AND B.CUSTOMER_NAME=p_orderdetails(i).CUSTOMER_NAME;
            DBMS_OUTPUT.PUT_LINE('CERTIFICATION DISCOUNT IS '||V_CERT_DISC);
            V_NET:=((V_LIST_PRICE)-(V_LIST_PRICE)*(V_CERT_DISC)/100);
            DBMS_OUTPUT.PUT_LINE('NET PRICE AFTER CERTIFICATION DISCOUNT IS '||V_NET);
            V_NET_PRICE:=((V_NET)-(V_NET)*(V_CUST_DISC)/100);
            DBMS_OUTPUT.PUT_LINE('NET PRICE AFTER COMPLETE DISCOUNT IS '||V_NET_PRICE);
            V_EXTN_PRICE:=(V_NET_PRICE)*(p_orderdetails(i).QUANTITY);
            DBMS_OUTPUT.PUT_LINE('EXTENDED PRICE IS '||V_EXTN_PRICE);
            V_TOTAL_DISC:=((V_CERT_DISC)/100+(V_CUST_DISC)/100);
            DBMS_OUTPUT.PUT_LINE('TOTAL DISCOUNT IS '|| V_TOTAL_DISC);
            V_TOTAL_DISC_AMT:=(V_LIST_PRICE)-(V_NET_PRICE);
            DBMS_OUTPUT.PUT_LINE('TOTAL DISCOUNT PRICE IS '|| V_TOTAL_DISC_AMT);
            SELECT MAX(A.LIMIT)
            INTO V_LIMIT
            FROM CONVERSION_CERTIFICATION A,CONVERSION_CUSTOMERS B
            WHERE A.CERTIFICATION=B.CERTIFICATION(+)
            AND B.CUSTOMER_NAME=p_orderdetails(i).CUSTOMER_NAME;
            IF p_orderdetails(i).QUANTITY<V_AVL_QUANTITY THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'QTY HOLD','REQ QNTY LESS THAN AVL QTY',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;
            IF p_orderdetails(i).REQUESTED_SHIP_DATE<SYSDATE THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'DATE HOLD','SHIPDATE CANNOT BE LESS THAN CURR DATE',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;
            IF V_NET_PRICE>p_orderdetails(i).REQUESTED_PRICE THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'PRICE HOLD','NET PRICE CANNOT BE MORE THAN REQ PRICE',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;
           /* IF V_LIMIT<p_orderdetails(i).REQUESTED_PRICE THEN
            INSERT INTO XXCTS_ORDER_DETAILS VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,V_CUST_ID,V_PROD_ID,p_orderdetails(i).QUANTITY,p_orderdetails(i).REQUESTED_SHIP_DATE,p_orderdetails(i).REQUESTED_PRICE,V_LIST_PRICE,V_TOTAL_DISC,V_NET_PRICE,V_EXTN_PRICE,'ORDER LIMIT HOLD','PRICE CANNOT EXCEED ORDER LIMIT',SYSDATE);
            INSERT INTO xxcts_order_discounts VALUES(SEQ_HEADER_ID.NEXTVAL,SEQ_LINE_ID.NEXTVAL,SEQ_DISCOUNT_ID.NEXTVAL,V_DISC_NAME,V_TOTAL_DISC_AMT);
            END IF;*/
            EXCEPTION
            WHEN NO_DATA_FOUND THEN
            DBMS_OUTPUT.PUT_LINE(' INSIDE EXCEPTION BLOCK');
            END;
        END LOOP;
END;
end conv_api_pkg;
/the pl/sql block to invoke the the procedure :
declare
begin
PROC_CONVERSION_API('/usr/tmp' ,'Walmart_Orders_062908.dat');
end;please let me know what is wrong in the program.
Thanks
Anvesh

Hi Walter
Yes 'Inside begin 1' and 'Inside begin 2' were printed.Please find the the DBMS_OUTPUT statements that were printed.
Inside begin 1
Inside begin 1.1
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       SONY ERICSSON                           W580i               25   1-AUG-2008          50
the length of buffer is 118
Customer Name is BESTBUY
Manufacturer is SONY ERICSSON
Product Name is W580i
Quantity is 25
Requested Ship Date is 01-AUG-08
The requested price is 50
The quantity is 25
The Customer count is 1
The Product count is 0
PRODUCT SHOULD BE VALID
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       SAMSUNG                                 BLACKJACK           50   15-JUL-2008         150
the length of buffer is 119
Customer Name is BESTBUY
Manufacturer is SAMSUNG
Product Name is BLACKJACK
Quantity is 50
Requested Ship Date is 15-JUL-08
The requested price is 150
The quantity is 50
The Customer count is 1
The Product count is 1
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       APPLE                                   IPHONE 4GB          50   15-JUL-2008
the length of buffer is 116
Customer Name is BESTBUY
Manufacturer is APPLE
Product Name is IPHONE 4GB
Quantity is 50
Requested Ship Date is 15-JUL-08
The requested price is 0
The quantity is 50
The Customer count is 1
The Product count is 1
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       ATT                                     TILT                100 15-JUN-2008
the length of buffer is 116
Customer Name is BESTBUY
Manufacturer is ATT
Product Name is TILT
Quantity is 100
Requested Ship Date is 15-JUN-08
The requested price is 0
The quantity is 100
The Customer count is 1
The Product count is 1
Inside begin 2
Inside begin 2.1
the buffer is BESTBUY                       NOKIA                                   N73                 50   15-JUL-2008         200
the length of buffer is 118
Customer Name is BESTBUY
Manufacturer is NOKIA
Product Name is N73
Quantity is 50
Requested Ship Date is 15-JUL-08
The requested price is 20
The quantity is 50
The Customer count is 1
The Product count is 0
PRODUCT SHOULD BE VALID
Inside begin 2In the first procedure I am trying to read the data from a flat file and store it in a table.Here is the sample data from the flat file.
BESTBUY                       SONY ERICSSON                           W580i               25   1-AUG-2008          50
BESTBUY                       SAMSUNG                                 BLACKJACK           50   15-JUL-2008         150
BESTBUY                       APPLE                                   IPHONE 4GB          50   15-JUL-2008
BESTBUY                       ATT                                     TILT                100 15-JUN-2008
BESTBUY                       NOKIA                                   N73                 50   15-JUL-2008         200When tried to execute the second procedure independently using the PL/SQL block,the tables in second procedure were populated and the DBMS_Output statements were also displayed.I have made use of the same query in that case
Thanks
Anvesh
Edited by: Anvesh Reddy on Dec 23, 2008 12:40 PM

Export from ALV to Excel - problem with numeric values

hi folks,
when exporting from alv to excel and we have negative values (and using an u.s.a. setting where . and , are different to r/3) negetive values are not shown correctly in excel.
when changing in win nt the regional settings to europe one's (e.g. germany) everything works fine.
any hints welcome,
kind regards
oliver

I guess this has something to do with the excel settings. In the control panel you have regional settings.try some options there. It might work.
Regards
Sudhi

Procedure from forms6i to excel

Similar Messages

Maybe you are looking for