Use Formule on FORM with REPORT - result stored at table

Question

Hi all,
What is the best solution for?
I have region with FORM WITH REPORT on the same PAGE.
Values stored at table INFO with column ID, MYDATE, TIME_START_HOUR, TIME_START_MIN, TIME_END_HOUR, TIME_END_MIN, SUM1, SUM2
ITEMS on the form:
P1_ID (hidden)
P1_MYDATE (date picker)
P1_TIME_START_HOUR (select list)
P1_TIME_START_MIN (select list)
P1_TIME_END_HOUR (select list)
P1_TIME_END_MIN (select list)
P1_SUM1 (hidden)
P1_SUM2 (hidden)
After user fill in MYDATE, TIME_START_HOUR, TIME_START_MIN, TIME_END_HOUR, TIME_END_MIN then I need proces for calculation SUM1 en SUM2. Result stored (one record) at table INFO.
Report shows all columns. User had possibility to update the record
Formule:
Select
(CASE
when to_char(mydate,'DY','nls_date_language=dutch') in ('ZA','ZO')
THEN substr(to_timestamp (mydate||':'||TIME_END_HOUR||':'||TIME_END_MIN ||':00','DD-MM-YY:HH24:MI:SS') -
to_timestamp (mydate||':'||TIME_START_HOUR||':'||TIME_START_MIN ||':00','DD-MM-YY:HH24:MI:SS') -
(interval '00 00:00:00' day to second)
,12,5)
ELSE '08:00'
END) SUM1,
(CASE
when to_char(mydate,'DY','nls_date_language=dutch') in ('ZA','ZO')
THEN substr(to_timestamp (mydate||':'||TIME_END_HOUR||':'||TIME_END_MIN ||':00','DD-MM-YY:HH24:MI:SS') -
to_timestamp (mydate||':'||TIME_START_HOUR||':'||TIME_START_MIN ||':00','DD-MM-YY:HH24:MI:SS') -
(interval '00 04:00:00' day to second)
,12,5)
ELSE '04:00'
END) SUM2
FROM INFO
where id=:ID
What is the best way for the calculation: computation or processes or etc? The calculation after or before user push button(New:create button of Update:Apply Changes)?
How to fill the answer (SUM1 and SUM2) at table INFO?
Thanks Walter

Answer 1

I have something similar I use:
DECLARE
  str_day      VARCHAR2(10);
  dt_indx      DATE;
  db_dt_indx   VARCHAR2(20);
  str_st_tm    VARCHAR2(20);
  dt_st_tm     DATE;
  db_st_tm     VARCHAR2(20);
  str_ed_tm    VARCHAR2(20);
  dt_ed_tm     DATE;
  db_ed_tm     VARCHAR2(20);
  shft_flag    NUMBER;
BEGIN
  str_day    := :P1050_DATE_MM || '/' || :P1050_DATE_DD || '/' ||  :P1050_DATE_YYYY;
  dt_indx    := to_date(str_day, 'MM/DD/YYYY');
  db_dt_indx := to_char(dt_indx, 'MM/DD/YYYY');
  str_st_tm  := str_day || ' ' || :P1050_TIME_IN_HH || ':' || :P1050_TIME_IN_MI || ' ' || :P1050_TIME_IN_AM;
  dt_st_tm   := TO_DATE(str_st_tm, 'MM/DD/YYYY HH:MI AM');
  str_ed_tm  := str_day || ' ' || :P1050_TIME_OUT_HH || ':' || :P1050_TIME_OUT_MI || ' ' || :P1050_TIME_OUT_AM;
  dt_ed_tm   := TO_DATE(str_ed_tm, 'MM/DD/YYYY HH:MI AM');
  --Alter date if night shift
  SELECT NVL(:P1050_NIGHT_FLAG,0) into shft_flag from dual;
  IF dt_ed_tm < dt_st_tm THEN
    dt_ed_tm := dt_ed_tm + 1;
  END IF;
  db_st_tm   := to_char(dt_st_tm + shft_flag,'MM/DD/YYYY HH:MI AM');
  db_ed_tm   := to_char(dt_ed_tm + shft_flag,'MM/DD/YYYY HH:MI AM');
end;You'll need to modify it for your page variables.