rendered paste bodyelsif ($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> <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"> <input type="text" name="bank_from" value="$from" size="11" $input_style> <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"> <input type="text" name="bank_to" value="$to" size="11" $input_style> <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> 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>
<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 & 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();
}