Declare
	c_Where Varchar2(32767) := Null;
       Cursor Cur_Xml_Ngay(c_codition varchar2) Is
		Select Column_Value
		From   Table(Sys.Get_Dir_List('/home/oracle/xml/*.xml'))
		Where  1 = 1 || c_codition;
Begin
  If :Blk_Cv11_Control.Txt_Tu_Ngay is not null Then
		c_Where:=c_Where||'	And To_Date(Substr(Column_Value, Instr(Column_Value,'
		||'''-'''||', -1) + 1, Length(Column_Value) - 4 - Instr(Column_Value, '
		||'''-'''||', -1)),'||'''rrrr/mm/dd:hh:mi:ss'''
		||') >= to_date(:Blk_Cv11_Control.Txt_Tu_Ngay,'||'''dd/mm/rrrr'''||')';
	End If;
		Go_Block('blk_cv12_xml');
		Clear_Block;
		For v_Xml In Cur_Xml_Ngay(c_where) Loop
			:Blk_Cv12_Xml.Txt_Ten_File_Xml := Substr(v_Xml.Column_Value, Instr(v_Xml.Column_Value, '/', -1) + 1,
																  Length(v_Xml.Column_Value) - 4 - Instr(v_Xml.Column_Value, '/', -1));
			:Blk_Cv12_Xml.Txt_Duong_Dan    := v_Xml.Column_Value;
			Next_Record;
			Exit When Cur_Xml_Ngay%Notfound;
		End Loop;
		First_Record;
End;

'	And To_Date(Substr(Column_Value, Instr(Column_Value,'
		||'''-'''||', -1) + 1, Length(Column_Value) - 4 - Instr(Column_Value, '
		||'''-'''||', -1)),'||'''rrrr/mm/dd:hh:mi:ss'''
		||') >= to_date(:Blk_Cv11_Control.Txt_Tu_Ngay,'||'''dd/mm/rrrr'''||')'

Declare
	c_Where Varchar2(32767) := Null;
	Cursor Cur_Xml_Ngay(c_Dieu_Kien Varchar2) Is
		Select Column_Value From Table(Sys.Get_Dir_List('/home/oracle/xml/*.xml')) Where 1 = 1 || c_Dieu_Kien;
Begin
	
	------------------
	If :Blk_Cv11_Control.Txt_Tu_Ngay Is Not Null Then
		c_Where := c_Where || '     And      To_Date(Substr(Column_Value, Instr(Column_Value,' || '''-''' ||
					  ', -1) + 1, Length(Column_Value) - 4 - Instr(Column_Value, ' || '''-''' || ', -1)),' || '''rrrr/mm/dd:hh:mi:ss''' ||
					  ') >=to_date(' || Chr(39) || To_Char(:Blk_Cv11_Control.Txt_Tu_Ngay, 'dd/mm/rrrr') || Chr(39) || ',' || '''dd/mm/rrrr''' || ')';
	End If;
	Go_Block('blk_cv12_xml');
	Clear_Block;
	For v_Xml In Cur_Xml_Ngay(c_Where) Loop
		:Blk_Cv12_Xml.Txt_Ten_File_Xml := Substr(v_Xml.Column_Value, Instr(v_Xml.Column_Value, '/', -1) + 1,
															  Length(v_Xml.Column_Value) - 4 - Instr(v_Xml.Column_Value, '/', -1));
		:Blk_Cv12_Xml.Txt_Duong_Dan    :=        v_Xml.Column_Value;
		Next_Record;
		Exit When Cur_Xml_Ngay%Notfound;
	End Loop;
	First_Record;
	---------------------------
End;

    Select Column_Value From Table(Sys.Get_Dir_List('/home/oracle/xml/*.xml')) Where 1 = 1 || c_Dieu_Kien;