$sql="select distinct a.exp_no,a.create_user,name(a.create_user),a.create_date,a.dept_no,a.acc_name,tot_amt1,tot_amt2,b.flow_code,a.form_key   from exp_main a,flow b 

              e a.form_key=b.form_key  order by a.exp_no desc"; 

#echo "$sql";

$stmt=$dbh->prepare("$sql"); 

$stmt->execute() || die("error");

$i=0;

        while(list($exp_no,$exp_man,$exp_man_name,$create_date,$dept_no,$acc_name,$tot_amt1,$tot_amt2,$flow_code,$form_key)=$stmt->fetch()){  

     list($flow_code)=field("select flow_code from it.flow where form_key=$form_key");

$current_user2='';

       if($flow_code=='Z')

$current_user2=iconv("gb2312","UTF-8","結(jié)案");

elseif($flow_code=='C')

{

$child_sql="select form_key from workflow_subflow where parent_key='$form_key' and reply_flag='N'";

$chis=$dbh->prepare("$child_sql");

$chis->execute()|| die("chile_err");

for($j=0;list($child_key)=$chis->fetch();$j++)

 {

  #if($form_key=='100001245685'){ echo "$child_key,$current_user2".'
';}

  list($current_user1)=fields("select distinct current_user from it.subflow where form_key='$child_key'");

  $current_n[$j]=iconv("gb2312","UTF-8",name($current_user1));

  $current_user2=$current_user2."($current_user1)".$current_n[$j];

 }

 $current_user2=iconv("gb2312","UTF-8",'會(huì)簽中').$current_user2;

}

       else

{

 list($current_user1,$current_user1name)=fields("select current_user,name(current_user) from it.subflow where form_key=$form_key");

 $current_user2="($current_user1)".iconv("gb2312","UTF-8",$current_user1name);

}

 $sel="select get_depart_name(get_depart('$exp_man')),get_depart('$exp_man') from dual";

      $stc=$dbh->prepare("$sel");

      $stc->execute()||die("申請(qǐng)人部門 error");  

      list($depart_name,$getdepart)=$stc->fetch();

$str1="select  acc_depart_name from acc_gl_depart where acc_depart_no='$dept_no'";

list($dep_name)=fields("$str1"); 

$acc_name=iconv("gb2312","UTF-8",$acc_name);

      echo "

      $i=$i+1;

   }

?>