declare
xx number(1) := 0;
begin
if USER IN ('PMS','SUPER') THEN
xx :=1;
elsif PMS.IS_PERMITTED_TO_FORM(USER,'BILL','ACNO_REB') = 1 THEN
xx :=1;
ELSIF PMS.IS_PERMITTED_TO_FORM(USER,'BILL','ACNO_REB') = 0 THEN
xx :=0;
ELSE
xx :=0;
end if;
-- ===============
if xx = 1 then
CALL_FORM('BILL\FORMS\ACNO_REB.fmx',NO_HIDE,NO_REPLACE);
else
message('You...
Friday, February 9, 2018
Sunday, February 4, 2018
procedure
12:44 PM
No comments
Use procedure in oracle forms :
CREATE PROCEDURE PRC_BED_WARD (p_ADMISSION_NO IN IP_ADMISSION.ADMISSION_NO%TYPE,
p_COMPANY_NO IN SC_SYSTEM_CONTROL.COMPANY_NO%TYPE,
p_BED_NAME OUT IP_BED.BED_NAME%TYPE,
p_WARD_NAME OUT IP_WARD.WARD_NAME%TYPE)
used in oracle forms :
just type procedure name in any block:
PRC_BED_WARD( v_addmission, :GLOBAL.G_COMPANY_NO, :CTRL_PATIENTINFO.BED_NAME, :CTRL_PATIENTINFO.WARD_NAME);
description : here...
function
12:41 PM
No comments
**
THIS FUNCTION WILL CHECK WEEKEND DAY<>
CREATE OR REPLACE FUNCTION FNC_ROOMWEEKFLAG (p_room_no varchar,p_day date )
return int
as
v_s char(1);
v_n char(1);
v_m char(1);
v_t char(1);
v_w char(1);
v_h char(1);
v_f char(1);
begin
select SAT_DAY,SUN_DAY,MON_DAY,TUE_DAY,WED_DAY,TUS_DAY,FRI_DAY into v_s,v_n,v_m,v_t,v_w,v_h,v_f
from ot_weekend where OT_NO=p_room_no;
if to_char(p_day,'DY') ='SAT' and nvl(v_s,'N')='Y' then
return 1;
elsif...
PARAMLIST & pass parameter value from one form to another form.
12:18 PM
No comments
MAIN STRUCTURE TO CREATE PARAMETER:
Pass Parameter from One Form to another
You can easily pass parameters from one form to another form by using this code. we need to transfer values of parent form to child form for different purposes for example for Login name ect….
1- Make one parent form in oracle forms builder
2- Write this code behind the button of parent form that will transfer parameters to child form.
Child form Name and location : D:\SUB_CAT_SIZES.FMX
Child form parameter name: ...