$BEssd=$Essd+$DEssd+$BNessdy1+$BEssd1; $BNessdy=$Nessdy+$DNessdy; $BNessdn=$Nessdn+$DNessdn; $equip=$DPY+$Tool+$Tooly; //TOOL-���������ͧ��ͷҧ���ᾷ��, DPY-��ҫ��͵���ػ�ó�ҧ���ᾷ�� $medcare=$Surg+$Surgy+$Ncare+$Ncarey+$Dent+$Denty+$Physi+$Physiy+$Stx+$Stxy; $Ysubtotal=$BFY+$invlab+$BEssd+$BNessdy+$DSY+$equip+$medcare; $Nsubtotal=$BFN+$BNessdn+$DSN+$DPN+$Mc+$Mcy+$Mcn+$Bloodn+$Labon+$Xrayn+$Sinvn+$Surgn+$Ncaren+$Dentn+$Physin+$Stxn+$Tooln; $billsum=$BFY+$BFN+$invlab+$Essd+$Nessdy+$Nessdn+$Essd1+$Nessdy1+$Nessdn1+$DSY+ $DSN+$DEssd+$DNessdy+$DNessdn+$equip+$DPN+$medcare+$Mc+$Mcy+$Mcn+$Bloodn+$Labon+$Xrayn+$Sinvn+$Surgn+$Ncaren+$Dentn+$Physin+$Stxn+$Tooln; $debt=$billsum-$paid; $cbaht=baht($paid); /* echo "$billsum<br>"; print "��ػ�����ŧ�����<br>"; print "1. �����ͧ��Ф���������� $cDays �ѹ...�ԡ��.. $BFY ........�ԡ�����... $BFN<br>"; print "2. ��ҵ�Ǩ ������������ä.....................�ԡ��.. $invlab <br>"; print "3. �����(㹺ѭ������ѡ��觪ҵ�)............�ԡ��.. $BEssd <br>"; print "4. �����(�͡�ѭ������ѡ��觪ҵ�).........�ԡ��.. $BNessdy ...�ԡ�����... $BNessdn<br>"; print "5. ����Ǫ�ѳ�����������........................�ԡ��... $DSY.........�ԡ�����... $DSN <br>"; print "6. ����ػ�ó�/����ͧ��ͷҧ���ᾷ��....�ԡ��... $equip .......�ԡ�����... $DPN <br>"; print "7. ��Һ�ԡ�÷ҧ���ᾷ��....................�ԡ��.. $medcare <br>"; print "8. ��Һ�ԡ����蹷���������Ǣ�ͧ�Ѻ����ѡ��............................... �ԡ�����... $Mc<br>"; print "����Թ $billsum <br>"; //print " ".baht($billsum)."<br>";//���˹ѧ���
$cPono = $row->pono;
$cPodate = $row->podate;
$cBounddate = $row->bounddate;
//�ӹǹ��ҵ�ҧ�
$nVat = $nNetprice - $nNetprice / 1.07;
/// $nVat=number_format($nVat,2,'.',''); //convert to string �ȹ��� 2 ���˹� �Ѵ���
///$nVat=floatval ($nVat);// convert to float-number
$nVat = vat($nVat);
//use function vat
$nNetprice = $nNetprice - $nVat;
$nPriadvat = $nVat + $nNetprice;
$cPriadvat = baht($nPriadvat);
//����ѡ��
$nTax = 0.01 * $nNetprice;
$nNetpaid = $nPriadvat - $nTax;
$cNetpaid = baht($nNetpaid);
//����ѡ��
////�������3��, 1��
$cKumkan = "������õ�Ǩ�Ѻ��ʴ�";
$nKumkan = 3;
$cBe = "��";
if ($nPriadvat < 10000) {
$cKumkan = "����Ǩ�Ѻ��ʴ�";
$nKumkan = 1;
$aPost[6] = "����Ǩ�Ѻ��ʴ�";
$aYot[7] = "";
$aFname[7] = "";
$aPost[7] = "";
$aYot[8] = "";
$aFname[8] = "";
$aPost[8] = "";
$cRead = $cRead.$cVar1;
}
}
$nUnit--;
}
$cRead = $cRead."ʵҧ��**" ;
}
else{
$cRead = $cRead."��ǹ**" ;
}
include("connect.inc");
return $cRead;
}
///end function baht
$cbaht=baht($debt);
print "<b><center><FONT SIZE='4' COLOR=''><font face='Angsana New'>��ҧ���·���������ҳ $debt �ҷ ( $cbaht )</FONT></b><br>";
print "<FONT SIZE='4' COLOR=><font face='Angsana New'><U><B>���Դ�����ǹ���Թ��������ͪ��Ф������Ф�Һ�ԡ��</B></U><br>";
print "***�ʹ���������ʹ����ҳ����Ҩ����¡���������***</FONT></center><br>";
print "<font face='Angsana New'><FONT SIZE='3' COLOR=''><CENTER>�����................................................���˹�ҷ�����Թ.........................................�������/�Ţ���...........................</CENTER></FONT>";
print "<BR><BR><font face='Angsana New'><FONT SIZE='2' COLOR=''>***�͡��ù���͡�ҡ��ǹ���Թ����� �ջѭ�����͢��ʧ��µԴ��ͷ����ǹ���Թ����� �� 054-839305 ��� 6302</FONT>";
// print "<form method='POST' action='ipbill.php'>";
// print "���Թ������ <input type='text' name='paid' size='10' value=$debt> �ҷ ������Ţ��� <input type='text' name='billno' size='10' ><br>";
// print "<input type='submit' value='���Թ �͡�����' name='B1'> ";
// print "<input type='reset' value='ź���' name='B2'>";
print "</form>";
?>
}
include("unconnect.inc");
print "</table>";
//
$nYprice=$BFY;
$nNprice=$BFN;
$allprice=$nYprice+$nNprice;
// print " ����Թ������ <B>$allprice</B> �ҷ<BR>";
print "<b><CENTER><font face='Angsana New' size='4'>����Թ������ $nNprice �ҷ</b> ";
//print "(�������� $Netpaid �ҷ ";
$Netpri2=number_format($Netpri,2,".","");
$cbaht=baht($Netpri2);
print " ( $cbaht)";
////////////////////
//�ҷ����� þ. ��¡�������� �ѡ�Թ�����������͡
$BFY = array_sum($aBBFY);
$BFN = array_sum($aBBFN);
$Essd =array_sum($aBEssd); //����Թ�����㹺ѭ������ѡ��觪ҵ�
$Nessdy=array_sum($aBNessdy); //����Թ����ҹ͡�ѭ������ѡ��觪ҵ� �ԡ��
$DDLDDY =$Essd+$Nessdy; //3.������������÷ҧ������ʹ(�ԡ��)
$Nessdn=array_sum($aBNessdn); //����Թ����ҹ͡�ѭ������ѡ��觪ҵ� �ԡ�����
//���Ǫ�ѳ���������ͷ���ҹ
$DEssd =array_sum($aBDEssd); //����Թ�����㹺ѭ������ѡ��觪ҵ�
print " <tr>";
print " <td width='30%'><font face='Angsana New' size ='3'>".$_POST["detail_2"][$xx]."</td>"; //à´ÔÁ 63
print " <td width='15%' align='right'><font face='Angsana New' size ='3'>300</td>"; //à´ÔÁ 28
print " <td width='10%' align='right'><font face='Angsana New' size ='3'>0</td>"; //à´ÔÁ 28
print " <td width='30%'><font face='Angsana New' size ='3'></td>";
print " </tr>";
}
print " </table>";
print "</div>";
if($count_detail_2 > 1)
$yy = 600;
else
$yy = 300;
$cbaht=baht(number_format($yy,2));
$Ppaid = $yy;
$PsNetprice = $yy;
$PsSumYprice = $yy;
$PsSumNprice = 0;
}else if($sDepart<>'PATHO'){
//begin ᨧÃÒ¡ÒöéÒäÁèãªè¤èÒ¾ÂÒ¸Ô
//$Items=0;
for($r=0;$r<count($_SESSION['idnumber']);$r++){
$query = "SELECT a.code,a.detail,a.amount,a.price,a.yprice,a.nprice FROM patdata as a,depart as b WHERE a.idno = '".$_SESSION['idnumber'][$r]."' and a.hn='".$hn_now."' and b.tvn='".$_SESSION["sVn"]."' AND a.idno = b.row_id";
$result = mysql_query($query) or die("patdata2 Query failed");
$count = mysql_num_rows($result);
if($count <= 16){
while (list ($code,$detail,$amount, $price,$yprice,$nprice) = mysql_fetch_row ($result)) {
$DENTA=number_format( $DENTA,2);
$PHYSI=number_format( $PHYSI,2);
$EMER=number_format( $EMER,2);
$SURG=number_format( $SURG,2);
$NID=number_format($NID,2);
$EYE=number_format($EYE,2);
$HEMO=number_format($HEMO,2);
$OTHER=number_format($OTHER,2);
$OTHER2=number_format($OTHER2,2);
$sum=number_format($sum,2,".","");
if(strlen($sum) > 10){
$cbaht="**ÊÔº".baht(substr($sum,-10),"T");
}else{
$cbaht="**".baht($sum,"T");
}
$sum=number_format($sum,2);
//$cbaht=$sum;
/*
echo "<tr><b><td> </td><td> </td><td><b><font face='Angsana New' size ='2'><center>ÃÇÁ·Ñé§ËÁ´</td><td> </td><td align='right'><font face='Angsana New' size ='2'><b> ".$PHAR." </td><td align='right'><font face='Angsana New' size ='2'><b> ".$PATHO." </td><td align='right'><font face='Angsana New' size ='2'><b> ".$XRAY." </td><td align='right'><font face='Angsana New' size ='2'><b> ".$DENTA." </td><td align='right'><font face='Angsana New' size ='2'><b> ".$PHYSI." </td><td align='right'><font face='Angsana New' size ='2'><b> ".$EMER." </td><td align='right'><font face='Angsana New' size ='2'><b> ".$SURG." </td><td align='right'><font face='Angsana New' size ='2'><b>".$NID."</td><td align='right'><font face='Angsana New' size ='2'><b> ".$OTHER." </td><td align='right'><font face='Angsana New' size ='2'><b> ".$OTHER2." </td><td align='right'><font face='Angsana New' size ='2'><b> ".$sum." </td></b></tr></FONT>";
echo "</table>";
print ("<tr><td><div style=\"page-break-before: always;\"></div></td></tr>");
if ($xpaid > 0){
//á¡é¤èÒºÃÔ¡Ò÷ҧ¡ÒÃá¾·Âì
$sDSYN=$sDSN; //àǪÀѳ±ì·ÕèäÁèãªèÂÒ àºÔ¡ OPD CASE äÁèä´é
$netpay=$sNessdn+$sDPN+$sDSN; //àºÔ¡äÁèä´é
$netfree=$sEssd+$sNessdy+$sDPY+$sDSY+0; //àºÔ¡ä´é
$total=$sEssd+$sNessdy+$sDSY+$sDPY+$sNessdn+$sDSN+$sDPN+0; //ÃÇÁ·Ñé§ÊÔé¹ opd case
if (!empty($sAn)){
$netfree=$netfree-0;
$total =$total-0;
}
$netfree=number_format($netfree,2);
$netpay=number_format($netpay,2);
$total=number_format($total,2);
$cbaht=baht($xpaid);
print "<div align='left'>";
print " <table border='0' cellpadding='0' cellspacing='0' width='100%'>";
print " <tr>";
print " <td width='20%'><font face='Angsana New' TEXT-ALIGN:RIGHT> à§Ô¹Ê´ HN:$sHn</td>";
print " <td width='80%'><font face='Angsana New'> $sPtname »èÇÂà»ç¹âä: $sDiag $Thdate ,$billtime</font></td>";
print " </tr>";
print " </table>";
print "</div>";
print "<div align='left'>";
print " <table border='0' cellpadding='0' cellspacing='0' width='100%'>";
print " <tr>";
print " <td width='20%'></td>";
print " <td width='80%'><font face='Angsana New' TEXT-ALIGN:RIGHT></font></td>";
print " </tr>";
