When Button Pressed: 3171265167539056707

I have a choice 3171265167539056707 listed under "When Button Pressed". What is that?

Yeah, I have seen these cases where "foreign keys" are left dangling in the App Builder.
When you delete a item, all computations based on that item are deleted
Similarly, when you delete a button, all after-submit components based on that button should be automatically deleted (or at least set to Unconditional).

Similar Messages

Error -- No Such Trigger('when-button-pressed')

Hi,
I am getting the error ""No Such Trigger('when-button-pressed')"",
when I am executing the code EXECUTE_TRIGGER( 'WHEN-BUTTON-PRESSED' );
on some item(Key-Next-Item), although WHEN-BUTTON-PRESSED trigger exists.
What could be the problem ?. It worked till yesterday, giving error from today, I havent
changed any thing.
Thanks in Advance
Devender

Steve's tip is the only good solution for this case.
The problem in your case for example is:
Let's say you have a block-trigger, which fires after your execute-trigger.
Now a colleague of you, which don't know your code, create a WHEN-BUTTON-PRESSED on an item, then the new code is started and not the block-trigger-code.
So, don't ever do this. Write your code in a package-function or -procedure and call it from the trigger. So you can re-user the functionality
Gerd

Calling a report from forms - FRM-40735 when-button-pressed raised unhandle

Hi,
I created a form to generate a pdf report.
its not going too well, so i need some help.
my form only has one button , when pressed I want it to generate a report in pdf format.
i created a when-button-pressed trigger and the following code is below:
I also create a web service proxy jar file,
the jar file is in the FORMS_BUILDER_CLASSPATH, and the jar file is imported from forms builder without any issues.
As of now I am hard coding everything in the code below to see if it works.
The error I am getting FRM-40735 when-button-pressed raised unhandled exception ORA-105100 i dont know why ?
This error is occurring at this line of code, please help, this is my first time doing something like this.
obj := publicreportserviceclient.new(); DECLARE
param_name varchar2(200);
un varchar2(200);
pw varchar2(200);
out_file varchar2(200);
obj ORA_JAVA.JOBJECT;
BEGIN
obj := publicreportserviceclient.new();
param_name := 'EMP';
un := 'Administrator';
pw := 'Oracle123';
out_file := 'D:\DevSuiteHome_1\j2ee\home\default-web-app'||'output';
publicreportserviceclient.callRunReport(obj,'/~administrator/Learn/Test1/Test1.xdo','EMP','141414',un,
pw,'pdf','New_Template',out_file);
web.show_document('http://jmenge-de.de.oracle.com:8889/j2ee/' || 'output');
exception
--check for ORA-105101
when ORA_JAVA.EXCEPTION_THROWN then
     message('Java Exception : '
      || Exception_.toString(ORA_JAVA.LAST_EXCEPTION));
      ORA_JAVA.CLEAR_EXCEPTION;
      return;
--check for ORA-105100
when ORA_JAVA.JAVA_ERROR then
               message('Unable to call out to Java, ' ||ORA_JAVA.LAST_ERROR);
          return;
END;This is my java function
    public void callRunReport (String reportPath, String paramName, String paramValue, String
    username, String password, String format, String template, String outFile) {
    try {
            bip_webservice.proxy.PublicReportServiceClient myPort = new bip_webservice.proxy.PublicReportServiceClient();
            // Calling runReport
            ReportRequest repRequest = new ReportRequest();
            repRequest.setReportAbsolutePath(reportPath);
            repRequest.setAttributeTemplate(template);
            repRequest.setAttributeFormat(format);
            repRequest.setAttributeLocale("en-US");
            repRequest.setSizeOfDataChunkDownload(-1);
           ParamNameValue[] paramNameValue = new ParamNameValue[1];
            paramNameValue[0] = new ParamNameValue();
            paramNameValue[0].setName(paramName);
            String[] values = new String[1];
            values[0] = paramValue;
            paramNameValue[0].setValues(values);
            repRequest.setParameterNameValues(paramNameValue);
            ReportResponse repResponse = new ReportResponse();
            repResponse = myPort.runReport(repRequest,username,password);
            byte[] baReport = repResponse.getReportBytes();
            FileOutputStream fio = new FileOutputStream(outFile);
            fio.write(baReport);
            fio.close();
        } catch (Exception ex) {
                    ex.printStackTrace();
    }Thanks - please help

If there is a way to make it work with Bi publisher, Please let me know.
I need to something to make it work with BI publisher.
thanks,
Edited by: Rooney on May 27, 2010 1:27 PM

How can I call my chart in Forms6i on When Button Press Trigger?

Hi Friends,
I have make a chart in Graphic Builder 6i and save on path C:\graph\test.ogd
Now I want to run this Chart from Form6i on When Button Press trigger.
I have call my report in forms using this command on When Button Press trigger.
Run_Product(reports,'C:\Cheema\Qdir_store\reports\pmms\sec_backlog',asynchronous,runtime,filesystem,TO_CHAR(NULL));
So tell me How can I call my chart in Forms6i?
Please reply me on urgent.
Thanks,
Shahzad

Just to recall after a long break of couple of years..... Pls check out if not wrong.
First of all you need to embeed the chart object on your layout window and make it visible = FALSE. This is a design time work. In the button press event, show the chart object by setting the visible property = TRUE.
Note, i could not paste u the sample code as i don't have forms installation on my PC. The above states is a logic you can apply.

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

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

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

Calling a function in WHEN-BUTTON-PRESSED

Hello,
i have in when-button-pressed a line containing
select pachet_salarizare.ani_vechime(data_min, to_number(to_char(sysdate,'YYYY')), to_number(to_char(sysdate,'MM'))) into ani_vechime from dual;so i call a function which is in pachet_salarizare package (package created in program units, in Forms).
when compiling, i get: function 'PACHET_SALARIZARE.ANI_VECHIME' mai not be user in SQL.
how can i deal with this? i need the result of that function in a variabie, ani_vechime.
Thanks!

Uh, thank you. i thought it's not possible what i wanted..
but strange why cannot be called function in select statements
Regards,

Requerying in WHEN-BUTTON-PRESSED

Hi,
I have two forms. I have a button that opens up modal form 2 from form 1 and passes some parameters. I allow the user to update something in form 2 (which has an effect on form 1). When user exits form 2, I want to requery the block in form 1 so that any updates effected in form 2 can be visible.
I tried putting in a do_key('execute_query') in the WHEN-BUTTON-PRESSED trigger in form 1 after the call to open form 2. This had no effect (probably because it didn't get called when I expected it to). The only way I am able to get the new data (after an update in form 2) is to manually issue a requery in form 1.
Any suggestions would be deeply appreciated!
Thanks,
Niranjan

Hi Niranjan
Put the Execute_query in the when-new-form-instance of the Called form.
With Regards
Harish
<BLOCKQUOTE><font size="1" face="Verdana, Arial">quote:</font><HR>Originally posted by Niranjan Ramakrishnan:
Hi,
I have two forms. I have a button that opens up modal form 2 from form 1 and passes some parameters. I allow the user to update something in form 2 (which has an effect on form 1). When user exits form 2, I want to requery the block in form 1 so that any updates effected in form 2 can be visible.
I tried putting in a do_key('execute_query') in the WHEN-BUTTON-PRESSED trigger in form 1 after the call to open form 2. This had no effect (probably because it didn't get called when I expected it to). The only way I am able to get the new data (after an update in form 2) is to manually issue a requery in form 1.
Any suggestions would be deeply appreciated!
Thanks,
Niranjan<HR></BLOCKQUOTE>
null

Ticker bean and WHEN-BUTTON-PRESSED trigger

Hi,
In Forms 6i, I use the Ticker bean. The problem with it, is that it appears on all canevas of my form.
But if the bean is "stopped" (i.e. the clock is stopped), it works fine and it does not appear on the next canevas I show.
However, I must have a button for the "stop" and another one that shows my next canevas. If I put the two code lines in the same WHEN-BUTTON-PRESSED trigger of a unique button, the ticker bean is still visible in the new canevas.
Any help is appreciated.
Regards,
Olivier.

Olivier,
I think I remember having heard of this before. The reason for this could be that the ticker bean uses AWT classes, which are heavyweight. All you can try is to call
synchronize;
between starting and stopping the ticker if using one button only. If this doesn't help, then I don't know of any other solution that could work.
Frank

When-button-pressed---adding a "select statement"

Hi friends,
i have a select statement:
select count(*) from employees
where emp_no=:control.emp_no;
i would like that when i press a button, count for instance, i get the number of employees.
I need the codes used in oracle in the when-button-pressed.
Thanks.

DECLARE
RESULT NUMBER :=0;
CURSOR CUR
select count(*) from employees
where emp_no=:control.emp_no;
BEGIN
OPEN CUR;
FETCH CUR INTO RESULT;
:ITEM_NAME := RESULT;
CLOSE CUR
END;
I hope this will help
This will be shown in item, if you want to show a message then use
MESSAGE(RESULT);
Regards
Abbas
Edited by: Abbas on Jul 19, 2011 12:37 PM

FRM-40732 ORA-06502 in when button pressed triger

I Have a the code below in when button pressed
If :block1.text_item is not null Then
:control.title := :block1.text_item
end if;
go_block('block2);
Here the when button-button-pressed unhandled exception Frm-40735 Ora-06502 appears. I know this may be because of datatype problem, but how would I know the culprit item. The form allow the user to save the data. Am using forms 6i 10G database.

Can check the maximum length of :control.title
It seems that it can handle the amount of data you are assigning to it

Frm-40735 when-button-pressed trigger raised unhandled exception ora-03114

hi everybody,
i am using oracle 10g release 2 in my test server and 10g release 1 in production server with forms in 10g running through the oracle 10g application server with no problem with our production server.
but the same form when i try to use through the same application server for my
with my test database server which is oracle 10g release 2 is giving me
frm exceptions and disconnecting the session.
like i get frm-40735 when-button-pressed trigger raised unhandled exception
ora-03114. then frm-40655 sql error forced rollback;clear form and reenter transaction. then when i try to exit it shows ora-24324 service handle not initialized.
The same thing when i try with my production server i dont get any exception handle error or forced rollback error.
i am not facing any problem as such to connect to my test database(release 2)
through sql plus client or TOAD OR ENTERPRISE MANAGER THEY ARE ALL FINE. IT IS ONLY WHEN I GO THROUGH THE APPLICATION SERVER TO ACCESS MY FORMS I GET THIS ERROR. BUT MY PRODUCTION IS RUNNING THE SAME WAY WITH NO ERRORS.
any suggestions welcome as i have to bring release 2 in the production next month
thanks and regards
manish

ORA-03114 not connected to ORACLE
Cause: A call to Oracle was attempted when no connection was established. Usually this happens because a user-written program has not logged on. It may happen if communication trouble causes a disconnection. In addition, this message could occur when ALTER SYSTEM KILL SESSION or ALTER SYSTEM DISCONNECT SESSION were issued with the IMMEDIATE qualifier because, in those cases, the client's connection to the database is terminated without waiting for the client to issue a request.
Action: Try again. If the message recurs and the program is user written, check the program.
zaibi.

FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception ORA-106561

I m working on Fusion Middleware forms 11g with windows plateform. I want to launch an exe (like notepad.exe) from my form on button click, which i m doing using the webutil dde.app_begin. My form is deployed on server, and i want to launch this application from client. The server is on linux. Now when i press the button it gives me error "FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception ORA-106561". Here is my code:
DECLARE
AppID PLS_INTEGER;
BEGIN
AppID := DDE.App_Begin('notepad.exe',DDE.App_Mode_Normal);
END;
Any help will be highly appreciable. Also, please tell me for any possibility, if i can call this exe from server, which is on linux.
Regards,
Sharjeel

Any one there pls help me in this. I seen all the forums and threads, for this, but could'nt find any solutions.
Any help will be highly appreciable.
Regards,
Sharjeel

FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception ORA-04063

Hi experts,
This problem as titled happened to me recently, and i found no way out.
I collected the FRD information, what i can get is:
GMDRCDSG, 11, Prog Unit, Entry, 361120504, /XGMDSRCHGMD_BASIC_SEARCH_PKG/INIT_GROUP
Unhandled Exception ORA-04063
State Delta:
Error Message: FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception ORA-04063.
ON-ERROR Trigger Fired:
Form: GMDRCDSGORA-04063 means some database object is broken, but this information does not specify exactly which
object it is . I thought it is caused by GMD_BASIC_SEARCH_PKG, which is programmed in GMDSRCH.pll.
So i recompiled the pld file, but didn't work.
The further action i took is to find out all the invalid package/package body in database, and recompile them.
Unfortunately, this also didn't work.
Any help is greatly appreciated, thanks in advance:)
Ted

Could anybody help? Please.
Thanks,
Ted

FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception ORA-29516

Hi,
The users are facing problem on opening the OAF pages on R12 instance.
They face this error when they,
1. Go to System Administrator responsibility.
2. Open page under Workflow > Administrator Workflow > Status Monitor.
3. This error pops up in the lower half of the form page.
FRM-40735: WHEN-BUTTON-PRESSED trigger raised unhandled exception ORA-29516
However, this error doesn't happen when people make direct login from homepage. Kindly help and suggest what need to be done.
EBS 12.1.3
DB 11.2.0.2.0
Thanks in advance.*
Holi*

Can you find any details about the error in Apache log files and the application.log file?Saw two files, error*.log, and access.log. Please suggest if I need to see some other files, I am new to R12 environment.
error log
n request for destination: application://forms (no island or jgroup).
+[Fri Apr 1 09:05:04 2011] [error] [client 10.182.1.5] [ecid: 1301666704:10.10.241.79:3809:0:89,0] mod_oc4j: Failed to find a failover oc4j process for session request for destination: application://forms (no island or jgroup).+
+[Fri Apr 1 09:05:48 2011] [error] [client 10.182.1.5] [ecid: 1301666748:10.10.241.79:2404:0:299,0] mod_oc4j: Failed to find a failover oc4j process for session request for destination: application://oacore (no island or jgroup).+
+[Fri Apr 1 11:34:36 2011] [error] [client 10.11.219.90] [ecid: 1301675676:10.10.241.79:2404:0:414,0] File does not exist: /p01/app/applmgr/oappsp1/apps/apps_st/comn/java/classes//+
+[Fri Apr 1 11:34:38 2011] [error] [client 10.11.219.90] [ecid: 1301675678:10.10.241.79:8458:0:332,0] File does not exist: /p01/app/applmgr/oappsp1/apps/apps_st/comn/java/classes//+
+[Fri Apr 1 11:40:10 2011] [error] [client 10.11.219.90] [ecid: 1301676010:10.10.241.79:2562:0:467,0] File does not exist: /usr/local/oraapps/tmp/inst/apps/OAPPSP1_c201u334/portal/favicon.ico+
access log
+27.0.0.1 - - [01/Apr/2011:23:36:00 -0500] "HEAD /index.html HTTP/1.1" 200 0 0 "-" "-"+
+127.0.0.1 - - [01/Apr/2011:23:36:20 -0500] "HEAD /index.html HTTP/1.1" 200 0 0 "-" "-"+
+127.0.0.1 - - [01/Apr/2011:23:36:40 -0500] "HEAD /index.html HTTP/1.1" 200 0 0 "-" "-"+
+10.32.16.114 - - [01/Apr/2011:23:36:55 -0500] "POST /forms/lservlet;jsessionid=3218513816b7b7e5c75d2c1e812eca1e21eb118fdac1cbb0d8eb1d618ee6ccbb.e3qKbN0Mc3yNe38Lb34KahuTbx10 HTTP/1.1" 200 2 0 "-" "Mozilla/4.0 (Windows XP 5.1) Java/1.6.0_07"+
+127.0.0.1 - - [01/Apr/2011:23:37:00 -0500] "HEAD /index.html HTTP/1.1" 200 0 0 "-" "-"+127.0.0.1 - - [01/Apr/2011:23:37:20 -0500] "HEAD /index.html HTTP/1.1" 200 0 0 "-" "-"

FRM-40735 WHEN-BUTTON-PRESSED TRIGGER RAISED UNHANDLED EXCEPTION ORA-01843

Hi everyone
When I run My form in Microsoft Windows Melinem , and I have Button on the form WHEN I press the button it works fine ,but when I run the same form in Microsoft Windows XP and WHEN I press the button it give this message :
FRM-40735
WHEN-BUTTON-PRESSED TRIGGER RAISED UNHANDLED EXCEPTION ORA-01843
AND I RECOMPILE THE FORM IN Microsoft Windows XP BUT STILL I AM GETING THE SAME MESSAGE
WAITING FOR YOU VALUABLE ANSWER .
BEST REGARDS
JAMIL ALSHAIBANI

Forms [32 Bit] Version 6.0.8.23.2 (Production)
Oracle9i Enterprise Edition Release 9.0.1.1.1 - Production
With the Partitioning option
JServer Release 9.0.1.1.1 - Production
and the script which is used in the button as the following :
DECLARE
CURSOR C1 IS
SELECT ITEM_CODE,AVERAGE_COST,STORE_CODE,ITEM_QUANTITY,TOTAL_COST
FROM IM_GOODS_RECIEVE_DETAILS
WHERE DOC_CODE = :IM_GOODS_RECIEVE_HEADER.DOC_CODE;
LOC_DOC_CODE VARCHAR2(10);
LOC_DOC_DATE DATE;
LOC_ITEM_CODE VARCHAR2(30);
LOC_ITEM_QUANTITY NUMBER(20,3);
LOC_CART_QTY NUMBER(20,3);
LOC_UNIT_CODE VARCHAR2(10);
LOC_TOTAL_COST NUMBER(20,6);
LOC_AVERAGE_COST NUMBER(20,6);
LOC_SUM_QTY NUMBER(20,6);
LOC_BALANCE NUMBER(20,6);
LOC_PRICE NUMBER(20,6);
LOC_BALANCE_COST NUMBER(25,6);
LOC_ITEM VARCHAR2(30);
L0C_TOT_COST NUMBER(20,6);
LOC_TOT_QTY NUMBER(20,6);
LOC_NEW_AVERAGE NUMBER(20,6);
LOC_ON_HAND_QTY NUMBER(20,3);
al_id Alert;
al_button NUMBER;
LOC_SYS_DATE DATE;
BEGIN
SELECT TO_DATE(TO_CHAR(SYSDATE,'DD/MM/YYYY')) INTO LOC_SYS_DATE FROM DUAL;
FOR R IN C1
LOOP
BEGIN
     SELECT B.ITEM_CODE ,SUM(NVL(ITEM_QUANTITY,0)) INTO LOC_ITEM ,LOC_SUM_QTY
FROM IM_TRANS_ISSUE_HEADER A,IM_TRANS_ISSUE_DETAILS B
WHERE A.DOC_CODE = B.DOC_CODE
AND B.DEL_STORE = R.STORE_CODE
AND ITEM_CODE = R.ITEM_CODE
AND DOC_DATE BETWEEN :IM_GOODS_RECIEVE_HEADER.DOC_DATE
AND LOC_SYS_DATE
GROUP BY
ITEM_CODE
ORDER BY B.ITEM_CODE ;
exception
     when no_data_found then
     NULL;
     when form_trigger_failure then
show_message(sqlerrm);
     raise form_trigger_failure;
     when others then
     show_message(sqlerrm);
     raise form_trigger_failure;
END;
     BEGIN
     BEGIN
     SELECT (NVL(QUANTITY_ON_HAND,0) + (NVL(LOC_SUM_QTY,0))),NVL(ITEM_PRICE1,0),
     NVL(QUANTITY_ON_HAND,0)
     INTO LOC_TOT_QTY,LOC_PRICE,LOC_ON_HAND_QTY
     FROM IM_LOCATION A, IM_INVENTORY B
     WHERE A.ITEM_CODE = B.ITEM_CODE
     AND A.ITEM_CODE = R.ITEM_CODE
     AND A.STORE_CODE = R.STORE_CODE;
     LOC_BALANCE := (:IM_GOODS_RECIEVE_DETAILS.ITEM_QUANTITY) - (LOC_TOT_QTY);
     LOC_BALANCE := - (LOC_BALANCE);
     LOC_BALANCE_COST := ((LOC_BALANCE) * (LOC_PRICE));
     L0C_TOT_COST := LOC_BALANCE_COST + :IM_GOODS_RECIEVE_DETAILS.TOTAL_COST;
     LOC_NEW_AVERAGE := ROUND(((L0C_TOT_COST)/(LOC_TOT_QTY)),5);
     exception
     when no_data_found then
     NULL;
     when form_trigger_failure then
show_message(sqlerrm);
     raise form_trigger_failure;
     when others then
     show_message(sqlerrm);
     raise form_trigger_failure;
     END;
     BEGIN
     SELECT 1 INTO :GLOBAL.DUMMY
     FROM COST_TEMP_SUM
     WHERE S_GOODS_DOC = :IM_GOODS_RECIEVE_HEADER.DOC_CODE
     AND S_GOODS_DATE = :IM_GOODS_RECIEVE_HEADER.DOC_DATE
     AND S_ITEM_CODE = R.ITEM_CODE;
     exception
     when no_data_found then
     INSERT INTO COST_TEMP_SUM
     VALUES(:IM_GOODS_RECIEVE_HEADER.DOC_CODE,
     :IM_GOODS_RECIEVE_HEADER.DOC_DATE,LOC_SUM_QTY,LOC_ON_HAND_QTY,
     LOC_TOT_QTY,LOC_BALANCE,R.ITEM_QUANTITY,
     LOC_PRICE,LOC_BALANCE_COST,R.TOTAL_COST,
     L0C_TOT_COST,LOC_NEW_AVERAGE,R.ITEM_CODE,LOC_SYS_DATE);
     when form_trigger_failure then
show_message(sqlerrm);
     raise form_trigger_failure;
     when others then
     show_message(sqlerrm);
     raise form_trigger_failure;
     END;
     END;
IF LOC_BALANCE_COST = 0 THEN
     UPDATE IM_INVENTORY
          SET ITEM_PRICE1 = R.AVERAGE_COST
          WHERE ITEM_CODE = R.ITEM_CODE;
ELSE
     UPDATE IM_INVENTORY
          SET ITEM_PRICE1 = LOC_NEW_AVERAGE,ITEM_PRICE2 = LOC_PRICE
          WHERE ITEM_CODE = R.ITEM_CODE;
END IF;
-- THIS FOR ISSUED ITEMS QUANTITY
FOR R2 IN (
SELECT B.ITEM_CODE as LOC_ITEM_CODE, NVL(ITEM_QUANTITY,0) as LOC_ITEM_QUANTITY,
A.DOC_CODE as LOC_DOC_CODE, AVERAGE_COST as LOC_AVERAGE_COST,
TOTAL_COST as LOC_TOTAL_COST,A.DOC_DATE as LOC_DOC_DATE,
CART_QTY as LOC_CART_QTY,UNIT_CODE as LOC_UNIT_CODE
FROM IM_TRANS_ISSUE_HEADER A,IM_TRANS_ISSUE_DETAILS B
WHERE A.DOC_CODE = B.DOC_CODE
AND B.DEL_STORE = R.STORE_CODE
AND ITEM_CODE = R.ITEM_CODE
AND DOC_DATE BETWEEN :IM_GOODS_RECIEVE_HEADER.DOC_DATE
AND LOC_SYS_DATE
-- AND :EXPENSES_TAB.EXP_DATE
ORDER BY B.ITEM_CODE )
LOOP
BEGIN
SELECT 1 INTO :GLOBAL.DUMMY
     FROM COST_TEMP
     WHERE T_DOC_CODE = R2.LOC_DOC_CODE
     AND T_DATE = R2.LOC_DOC_DATE
     AND T_ITEM_CODE = R2.LOC_ITEM_CODE;
exception
     when no_data_found then
INSERT INTO COST_TEMP
VALUES(R2.LOC_DOC_CODE,R2.LOC_DOC_DATE,R2.LOC_CART_QTY,R2.LOC_ITEM_QUANTITY,
R2.LOC_AVERAGE_COST,:IM_GOODS_RECIEVE_HEADER.DOC_CODE,
:IM_GOODS_RECIEVE_HEADER.DOC_DATE,R.ITEM_CODE,R.STORE_CODE);
when form_trigger_failure then
show_message(sqlerrm);
     raise form_trigger_failure;
     when others then
     show_message(sqlerrm);
     raise form_trigger_failure;
     END;
Begin
al_id := Find_Alert('POST_DATA');
IF Id_Null(al_id) THEN
Message('User_Warning alert does not exist');
RAISE Form_Trigger_Failure;
ELSE
** Show the warning alert
-- jamil al_button := Show_Alert(al_id);
** If user pressed OK (button 1) then bring up another
** alert to confirm -- button mappings are specified
** in the alert design
-- IF R2.LOC_ITEM_QUANTITY != 0 AND al_button = ALERT_BUTTON1 THEN
     IF R2.LOC_ITEM_QUANTITY != 0 THEN
BEGIN
UPDATE IM_TRANS_ISSUE_DETAILS
SET AVERAGE_COST = LOC_NEW_AVERAGE,
TOTAL_COST = LOC_NEW_AVERAGE * R2.LOC_ITEM_QUANTITY
WHERE DOC_CODE = R2.LOC_DOC_CODE
AND ITEM_CODE = R2.LOC_ITEM_CODE ;
END;
END IF;
END IF;
END;
END LOOP;
END LOOP;
GO_BLOCK('IM_GOODS_RECIEVE_HEADER');
:IM_GOODS_RECIEVE_HEADER.FLAG_COST := 1;
COMMIT;
SET_ITEM_PROPERTY('IM_GOODS_RECIEVE_HEADER.PUSH_BUTTON152',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('EXPENSES_TAB.PUSH_BUTTON151',ENABLED,PROPERTY_FALSE);
SHOW_MESSAGE('The New Cost Price updated Successfully !!!');
END;
BEGIN
     IF nvl(:IM_GOODS_RECIEVE_HEADER.FLAG_COST,0) = 1 THEN
Make_Block_Query_Only('IM_GOODS_RECIEVE_DETAILS');
     ELSIF nvl(:IM_GOODS_RECIEVE_HEADER.FLAG_COST,0) = 0 THEN
     Make_Block_Query_Only('IM_GOODS_RECIEVE_DETAILS');
     END IF;
END;
best regards
Jamil Alshaibani

When Button Pressed: 3171265167539056707

Similar Messages

Maybe you are looking for