Declare
   v_Where   Varchar2 (32000);
Begin
   Validate (Item_Scope);

   If Not Form_Success Then
      Return;
   End If;

   Clear_Message;
   
--  v_where:= Get_Block_Property('EXC_V_CTU_KB_HDR', Default_Where);
--  message(v_Where);

   Message ('Searching data...', NO_ACKNOWLEDGE);
   Set_Application_Property (Cursor_Style, 'Busy');

/* Condition 1*/
   v_Where  := Fnc_DK1 ('Taxoffice', 'tax_id', 'MA_CQTHUE');
   -- my function because I select MA_CQTHUE from Taxoffice so
   -- you find MA_CQTHUE IN() in my error statement.

/* Condition 2: date*/
   If :CG$CTRL.FromDate > :CG$CTRL.ToDate Then
      Prc_Soft_Msg ('USR',
                    '00045',
                    'ToDate',
                    'FromDate');
   Else
      If :CG$CTRL.FromDate IS Not Null Then
         v_Where  := v_Where
                     || ' And MUP.Date01>=to_date('''
                     || to_char (:CG$CTRL.FromDate, 'dd/MM/rrrr')
                     || ''',''dd/MM/rrrr'')';
      End If;

      If :CG$CTRL.ToDate IS Not Null Then
         v_Where  := v_Where
                     || ' And MUP.Date01<to_date('''
                     || to_char (:CG$CTRL.ToDate, 'dd/MM/rrrr')
                     || ''',''dd/MM/rrrr'')+1';
      End If;
   End If;

   Set_Block_Property ('EXC_V_CTU_KB_HDR', Default_Where, v_Where);
   Go_Block ('EXC_V_CTU_KB_HDR');
   Do_Key ('Execute_Query');
   First_Record;
   Set_Application_Property (Cursor_Style, 'Default');
   Message ('Finish', NO_ACKNOWLEDGE);
End;

message(Fnc_DK1 ('Taxoffice', 'tax_id', 'MA_CQTHUE'));