elsif ($action eq "bank")
{

	 $old_emp_id = $query -> param ('old_emp_id');
	 $old_co_id  = $query -> param('old_co_id');

	 $mycount = $query -> param ('count');

	
	 if ($mycount eq "")
	 {
	  	&common_error ("add employee", "Please enter number from 1 to 99");
	 }
	 if ($mycount =~ /\D/)
	 {
	  	&common_error ("add employee","Please do not enter other than number.");
	 }


	 $sqlstatement3 =qq~
	  SELECT date_from, date_to
	  FROM   job_details
	  WHERE  employee_id = "$EMP{employee_id}"
		 AND company_id = '$EMP{company_id}'
	 ~;
	 $sth2 = $dbh -> prepare ($sqlstatement3);
	 $sth2->execute() or &common_error ("SQL Error", "Couldn't execute statement2: $DBI::errstr", 1);
	 ($from, $to) = $sth2 -> fetchrow_array();
	 $sth2->finish();


	 ($year, $month, $day) = split ('-', $from);
	 $from = "$day/$month/$year";
	 ($year, $month, $day) = split('-', $to);
	 $to = "$day/$month/$year";

	 $employee_table = &employee_table;

	
	$content .= qq~
	 <table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber15">
	  <tr>
	   <td>$employee_table</td>
	  </tr>
	 </table>
	 ~;

  

$content .=qq~
  <table width="100%" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber15">
   <tr height="20">
    <td width="100%" bgcolor="$table_color"><$table_title>&nbsp;<b>Bank Information</b></font></td>
   </tr>
   <tr>
    <td valign="top" width="100%">
     <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber15" width="480">
             
         <form method="POST" action="$thisprog" name="mainform">
          <input type="hidden" name="action" value="add_bank">
          <input type="hidden" name="count" value="$mycount">
          <input type="hidden" name="old_emp_id" value="$old_emp_id">
	  <input type="hidden" name="old_co_id" value="$old_co_id">
	  <input type="hidden" name="currency" value="$currency">
	     <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber8" width="100%">

           <tr height="21"  align="center">
		<td width="15%" bgcolor="#C0C0C0"><b><$table_header>Date From</font></b></td>
		<td align="left">&nbsp;<input type="text" name="bank_from" value="$from" size="11" $input_style>&nbsp;<a href onclick='popUpCalendar(this, mainform.bank_from, "dd/mm/yyyy")' value='select'><img src="$calendar"></a></td>
		</tr>

		<tr>
		<td width="15%" bgcolor="#C0C0C0" align="center"><b><$table_header>Date To</font></b></td>
		<td align="left">&nbsp;<input type="text" name="bank_to" value="$to" size="11" $input_style>&nbsp;<a href onclick='popUpCalendar(this, mainform.bank_to, "dd/mm/yyyy")' value='select'><img src="$calendar"></a></td>
     	 </tr>
 ~;
	for ($count = 1; $count <= $mycount; $count++)
	{

	   $content .=qq~
	    <input type="hidden" name="record" value="$record">
	    <input type="hidden" name="count" value="$mycount">
	     <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber8" width="100%">
	      <tr height="21" bgcolor="#C0C0C0" align="center">
	       <td width="15%" align="center"><$table_header><b>Payment Type</b></font></td>
	       <td width="30%" align="center"><$table_header><b>Bank Name</font></td>
	       <td width="40%"align="center"><$table_header><b>Branch</font></td>
	       <td rowspan = "2" width="15%" align="center"><$table_header><b>Percentage (%)</b></font></td>
	      </tr>
	      <tr height="25">
	      <td align="center"><select name="bank_payment$count" size="1" $input_style>
	            <option value="">- Select One -</option>
	            <option value="1">Cash</option>
	            <option value="2">Cheque</option>
	            <option value="3">Bank</option>
	       
	  ~;
	  
	      
	  $content .=qq~    
	       <td align="center"><select name="bank_name$count" size="1" $input_style>
	           <option value="">- Select One -</option>
	        ~;
	        
	        $sqlstatement3 =qq~
	         SELECT setting_bank_employee.bank_id, setting_bank.bank	  
	         FROM   setting_bank_employee, setting_bank
	         WHERE  setting_bank_employee.company_id = "$co_id"
	        	 AND setting_bank.id = setting_bank_employee.bank_id
	        ~;
	        $sth7 = $dbh->prepare($sqlstatement3);
	        $sth7->execute() or &common_error("SQL Error","Couldn't execute statement2: $DBI::errstr",1);
	       
	        while (($code, $bank) = $sth7->fetchrow_array())
	        {
	         $content .=qq~
	          <option value="$code">$bank</option>
	         ~;                                   
	        }
	        
	  $sth7->finish(); 
	   $content .=qq~ 
	       <td align="center"><input type="text" name="bank_branch$count" value="$branch" size="35" $input_style></td>
	 
	      </tr>
	     
	    ~; 
	      
	  $content .=qq~	
	      
	      <tr height="21" bgcolor="#C0C0C0">
	       <td width="15%"align="center"><b><$table_header>&nbsp;Acc. Type</font></b></td>
	       <td width="30%"align="center"><b><$table_header>Acc. No.</font></b></td>
	       <td width="40%" align="center"><b><$table_header>IC Type Use</font></b></td>
	       <td rowspan="2" bgcolor="#FFFFFF"align="center"><input type="text" name="percent$count" value="$percent" size="7" $input_style maxlength="3"></td>
	 
	 
	       </tr> 
	      
	      
	      <tr height="25">
	      <td align="center">
	            <select name="bank_type$count" size="1" style="font-family: Tahoma; font-size: 8pt">
	            <option value="">- Select One -</option>
	            <option value="1">Saving</option>
	            <option value="2">Current</option>
	            </select>
	       </td>
	       <td align="center"><input type="text" name="bank_acc$count" value="$no" size="25" $input_style></td>
	 ~;
	          	   $content .=qq~
	       	    <td>
	       	    <$table_data>&nbsp;
	       	    <input type="radio" value="n" name="select_n$count" $input_style $check1> New IC
	       	    <input type="radio" value="o" name="select_n$count" $input_style $check2> Old IC
	       	    <input type="radio" value="p" name="select_n$count" $input_style $check3> Passport
	       	    </font>
	       	    </td>
	       	   ~;
	       	  
	 $content .=qq~
	            
	       </tr>
	     </table>
	 ~;


	
         }#for

	 $content .=qq~
	 	 </td>
	 	</tr>
	 	<tr height="8"><td></td></tr>
	         <tr>
	     	 <td width="100%" height="1">
	     	 <p align="right"><input type="submit" value="Save &amp; Next" $button_style>
	     	 </td>
	     	</tr>
	        </table>
	        </form>
	 
	       </td>
	      </tr>
	     </table>
	 
	    </td>
	   </tr>
	  </table>
~;

}

elsif ($action eq "add_bank")
{


 $old_emp_id = $query -> param ('old_emp_id');
 $old_co_id  = $query -> param('old_co_id');
 $currency = $query -> param ('currency');
 $mycount = $query -> param ('count');
 $from = $query -> param("bank_from");
 $to = $query -> param("bank_to");
 


#--- error checking for from ---#
 
 if ($from ne "")
 {
  $dffrom = 0 if $from !~/\d{2}\/\d{2}\/\d{4}/g;
 
  if ($dffrom eq "0")
  {
   &common_error ("You have not entered valid format for FROM column in BANK INFORMATION.","Please enter proper date format (dd/mm/yyyy).", 1);
  }
  else
  {
   $dvfrom = 0;
   $dvfrom = checkDDMMYYYY ($from);
  
   if ($dvfrom eq "0")
   {
    &common_error ("You have entered invalid date value ($from) for FROM column in BANK INFORMATION.","Please enter proper date.", 1);
   }
  }
 }
 #-------------------------------# 
 
 #--- error checking for from ---#
 
 if ($to ne "")
 {
  $dfto = 0 if $to !~/\d{2}\/\d{2}\/\d{4}/g;
 
  if ($dfto eq "0")
  {
   &common_error ("You have not entered valid format for TO column in BANK INFORMATION.","Please enter proper date format (dd/mm/yyyy).", 1);
  }
  else
  {
   $dvto = 0;
   $dvto = checkDDMMYYYY ($to);
  
   if ($dvto eq "0")
   {
    &common_error ("You have entered invalid date value ($to) for TO column in BANK INFORMATION.","Please enter proper date.", 1);
   }
  }
 }
 #-------------------------------# 

  #--- error checking between org from and org to ---#
  if ($from eq "0" && $to ne "")
  {
   &common_error ("You have not entered any value for FROM column in BANK INFORMATION.","Please enter proper date.", 1);
  }
  if ($from ne "" && $to eq "0")
  {
   &common_error ("You have not entered any value for TO column in BANK INFORMATION.","Please enter proper date.", 1);
  }

  
#&sql_error("SQL Error!: "," [$bank_id, $type_id, $no, $pay_type_id, $percent, $branch, $n, $o, $p] File Name : ". __FILE__,"Line Number : ". __LINE__,"Couldn't execute statement: $DBI::errstr",1);

#----------------------------------------------------#
$from = &convertDateDB($from);
$to = &convertDateDB($to);
 
#--------- check percentage for other banks ---------#
	
	$total_percent = 0;
	
	for ($oncount = 1; $oncount <= $mycount; $oncount++)
	{
		$percent = $query -> param("percent$oncount");
		
		$total_percent= $total_percent + $percent;
		
	}

	if ($total_percent < 100)
	{
	   &common_error ("Invalid entry for PERCENTAGE." ,"Total percentage for all banks cannot less than 100%. Please edit.", 1);	
	}
	elsif ($total_percent > 100)
	{
	   &common_error ("Invalid entry for PERCENTAGE." ,"Total percentage for all banks cannot exceed 100%. Please edit existing bank information first.", 1);	
	}
	
	else
	{
	}
 

 #----------------------------------------------------#
	
 for ($oncount = 1; $oncount <= $mycount; $oncount++)
 {
  &sql_error("SQL Error!: "," [$mycount][$from, $to, $bank_id, $type_id, $no, $pay_type_id, $percent, $branch, $n, $o, $p] File Name : ". __FILE__,"Line Number : ". __LINE__,"Couldn't execute statement: $DBI::errstr",1);

  $payment = $query -> param("bank_payment$oncount");
  $percent = $query -> param("percent$oncount");
  $bank = $query -> param("bank_name$oncount");
  $branch = $query -> param("bank_branch$oncount");
  $type = $query -> param("bank_type$oncount");
  $acc = $query -> param("bank_acc$oncount");
  $e_n = $query -> param("select_n$oncount");


  if ($e_n eq "n")
  {$n = "1";}
  else
  {$n = "";}

  if ($e_n eq "o")
  {$o = "1";}
  else
  {$o = "";}

  if ($e_n eq "p")
  {$p = "1";}
  else
  {$p = "";}

  if ($e_n eq "k")
  {$k = "1";}
  else
  {$k = "";}

  if ($e_n eq "d")
  {$d = "1";}
  else
  {$d = "";}


#&sql_error("SQL Error!: "," $payment 2($from','$to','$EMP{employee_id}','$EMP{company_id}','$bank','$branch','$type','$acc','$payment','$percent','$n','$o','$p') File Name : ". __FILE__,"Line Number : ". __LINE__,"Couldn't execute statement: $DBI::errstr",1);
	
		
#--- now, insert new movement into emp_bank ---#
 $sqlstatement2=qq~
  INSERT INTO emp_bank (`date_from`,`date_to`,`employee_id`,`company_id`,`bank_id`,`bank_branch`,`account_type`,`account_no`,`payment_type`,`percentage`,`new`,`old`,`pass`)
  VALUES               ('$from','$to','$EMP{employee_id}','$EMP{company_id}','$bank','$branch','$type','$acc','$payment','$percent','$n','$o','$p')
 ~;
 $sth1 = $dbh->prepare($sqlstatement2);
 $sth1->execute() or &common_error("SQL&Couldn't execute statement: $DBI::errstr");
 $sth1->finish();
#----------------------------------------------------#

 

	 	 	
	 	


	 
 }

 print header();
 print qq~<meta HTTP-EQUIV="REFRESH" CONTENT="0;URL=$thisprog?action=contact&employee_id=$employee_id&co_id=$co_id;">~;
 exit();

}