form界面写按时间时分秒查询

PROCEDURE EVENT_HANDLER(EVENT VARCHAR2) IS
l_where_sql VARCHAR2(1200) := ' EXISTS (SELECT 1
FROM cux_xm_dbd_lines_iface xdl
WHERE xdl.header_id = xdh.header_id
AND xdl.process_quantity IS NOT NULL';
l_item_sql VARCHAR2(200);
l_hwdbd_sql VARCHAR2(200);--add bylix 20181025 海外调拨单业务增加查询参数
l_date_from_sql VARCHAR2(300);
l_date_to_sql VARCHAR2(300);
BEGIN
IF EVENT = 'PRE-QUERY' THEN
IF :PARAMETER.G_QUERY_FIND = 'TRUE' THEN
APP_QUERY.RESET('SUMMARY');

COPY(NAME_IN('QUERY_FIND.DOC_NUMBER'), 'SUMMARY.DOC_NUMBER');
COPY(NAME_IN('QUERY_FIND.LC_DOC_NUMBER'), 'SUMMARY.LC_DOC_NUMBER');
COPY(NAME_IN('QUERY_FIND.STATUS_CODE'), 'SUMMARY.STATUS_CODE');
COPY(NAME_IN('QUERY_FIND.BUS_TYPE'), 'SUMMARY.BUSINESS_TYPE');
COPY(NAME_IN('QUERY_FIND.HBP_DOC_NUMBER'), 'SUMMARY.HBP_DOC_NUMBER'); -- ADD BY STAR.TONG@2018.4.16

IF :QUERY_FIND.ITEM_NUMBER IS NOT NULL THEN
l_item_sql := ' AND xdl.item_number = ''' || :QUERY_FIND.ITEM_NUMBER || '''';
END IF;
--add by lix 20181025 海外调拨单业务
IF :QUERY_FIND.HW_DBDNUMBER IS NOT NULL THEN
l_hwdbd_sql := ' AND xdl.po_number = ''' || :QUERY_FIND.HW_DBDNUMBER || '''';
END IF;
--end

IF :QUERY_FIND.PROCESS_DATE_FORM IS NOT NULL THEN
l_date_from_sql := ' AND xdl.process_date >= TO_DATE(''' || TO_CHAR(:QUERY_FIND.PROCESS_DATE_FORM, 'YYYY-MM-DD HH24:MI:SS') ||
''', ''YYYY-MM-DD HH24:MI:SS'')';
END IF;

IF :QUERY_FIND.PROCESS_DATE_TO IS NOT NULL THEN
l_date_to_sql := ' AND xdl.process_date <= TO_DATE(''' || TO_CHAR(:QUERY_FIND.PROCESS_DATE_TO, 'YYYY-MM-DD HH24:MI:SS') ||
''', ''YYYY-MM-DD HH24:MI:SS'')';
END IF;

IF l_item_sql IS NOT NULL OR l_date_from_sql IS NOT NULL OR l_date_to_sql IS NOT NULL OR l_hwdbd_sql IS NOT NULL THEN
l_where_sql := l_where_sql || l_item_sql || l_date_from_sql || l_date_to_sql|| l_hwdbd_sql;
END IF;
l_where_sql := l_where_sql || ')';
APP_QUERY.APPEND('SUMMARY', l_where_sql);

:PARAMETER.G_QUERY_FIND := 'FALSE';
END IF;

ELSE
APP_EXCEPTION.INVALID_ARGUMENT('SUMMARY', 'EVENT_HANDLER', EVENT);
END IF;

END;

form里打印:
FND_MESSAGE.DEBUG(':PARAMETER.LC_DOC_NUM:'||:PARAMETER.LC_DOC_NUM||','||':PARAMETER.HEADER_ID'||:PARAMETER.HEADER_ID);

posted on 2026-04-03 14:26  miss斯娃  阅读(2)  评论(0)    收藏  举报