% if ($ms_search){
<& /_shared/procs/mensagens/show_msgset.m, section=>'arquivo', subset=>1, onlyone=>0, maxhits=>10, ms_nrec=>$ms_nrec, ms_date=>$ms_date, ms_query=>$ms_query, ms_sector=>$ms_sector &>
% }else{
<& form.html &>
% }	
<%ARGS>
$ms_search=>undef
$ms_day=> undef
$ms_month=> undef
$ms_year=> undef
$ms_nrec=>undef
$ms_query=>undef
$ms_sector=>undef
</%ARGS>
<%init>
my $ms_date = undef;
if ($ms_month && $ms_year){
	$ms_date = $ms_year.'-'.$ms_month.'-'.$ms_day;
}elsif($ms_year){
	$ms_date = $ms_year . "-";
}
</%init>
<%method set_painel>
<& PARENT:set_painel, fsection=>'arquivo' &>
</%method>