Friday, February 9, 2018

MENU ITEM CALL FROM RESTRICTION PL/SQL

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...

Sunday, February 4, 2018

procedure

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

** 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.

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:    ...