FORM中执行查询form的方法

    IF Pi_Event = 'PRE-QUERY' THEN
      IF :Parameter.g_Query_Find = 'TRUE' THEN
        App_Query.Reset('BILL_LIST');
        IF :Blk_Find.Balance_Flag = 'Y' THEN
          l_Sql_Where := 'TFB.DOCUMENT_QTY - TFB.RETURN_QTY > 0';
          App_Query.Append('BILL_LIST', l_Sql_Where);
        END IF;
        
        --2023-07-19 brayden.liu add
        IF :Blk_Find.Effective_Flag IS NULL  THEN
          l_Sql_Where := 'nvl(EFFECTIVE_FLAG,' || '''' || 'Y' || '''' || ') != '|| '''' || 'N' ||  '''';
          App_Query.Append('BILL_LIST', l_Sql_Where);
          fnd_message.debug(l_Sql_Where);
            
        END IF;
        --2023-07-19 brayden.liu add
      
        --ADDED BY MIKE ON 2023/2/28
        App_Find.Query_Range(:Blk_Find.Date1, :Blk_Find.Date2, 'BILL_LIST.CREATION_DATE');
      
        --END ADDED
      
        IF :Blk_Find.Effective_Flag IS not NULL  THEN
          Copy(:Blk_Find.Effective_Flag, 'BILL_LIST.EFFECTIVE_FLAG');
            
        end if;
        
        Copy(:Blk_Find.Organization_Id, 'BILL_LIST.ORGANIZATION_ID');
        Copy(:Blk_Find.Item_Id, 'BILL_LIST.ITEM_ID');
        Copy(:Blk_Find.Document_No, 'BILL_LIST.DOCUMENT_NO');
        Copy(:Blk_Find.Lot, 'BILL_LIST.LOT');
        Copy(:Blk_Find.Vendor_Id, 'BILL_LIST.VENDOR_ID');
        Copy(:Blk_Find.Subinventory, 'BILL_LIST.SUBINVENTORY');
        Copy(:Blk_Find.Create_By, 'BILL_LIST.CREATED_BY');
        Copy(:Blk_Find.Buyer_Id, 'BILL_LIST.BUYER_ID');
      
      END IF;