ceshi555555555555

ccc

-- 隐式提交
IF NOT app_form.quietcommit THEN        
     RAISE form_trigger_failure;
END IF;
        
        -- 执行一次自查询 
        Set_Block_Property('QC_HEADER',onetime_where,'QUALITY_CHECK_ID = '||:QC_HEADER.QUALITY_CHECK_ID);
        Go_Block('QC_HEADER');
        Execute_Query;
        
 --隐式保存（相当于手动ctrl+s） 
 IF NOT app_form.quietcommit THEN        
  RAISE form_trigger_failure;
 END IF;

  *  查询按钮                

  PROCEDURE SUMMARY_FIND_BTN(event VARCHAR2) IS
  BEGIN
      
      IF event = 'WHEN-BUTTON-PRESSED' THEN
          
           :parameter.G_query_find := 'TRUE';
           app_find.find('DELIVER_SUMMARY');
       :parameter.G_query_find := 'FALSE';
       
       go_block('DELIVER_SUMMARY');
       
      END IF;
      
  END SUMMARY_FIND_BTN;