$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>";