function format_fld($zq1, $zq2) { global $hd, $LANG; $zqr = ''; if (strlen($zq2) > 0) { if (substr($zq2, 0, 1) == '(') { $zqr = substr($zq2, strpos($zq2, $zq1 . ':') + 2, 100); // echo '['.strpos($zq2,$zq1.':').']'; if (strpos($zqr, '&') > 0) { $zqr = substr($zqr, 0, strpos($zqr, '&')); } $zqr = $zq1 . '-' . $zqr; } ////////////////////// $ if ($zq2 == 'M') { $zqr = msg($zq1); } if ($zq2 == '$') { $zqr = Number_format($zq1 / 100, 2); } ////////////////////// $R if ($zq2 == '$R' or $zq2 == '2') { $zqr = Number_format($zq1, 2); if ($LANG == 'en_US') { $zqr = $zqr; } if ($LANG == 'pt_BR' or $zq2 == '2') { $zqr = troca(troca(troca($zqr, '.', '#'), ',', '.'), '#', '.'); } } ////////////////////// C if (substr($zq2, 0, 1) == 'C') { $zqr = '<CENTER>'; $zqr = $zqr . $zq1; } ////////////////////// # if (substr($zq2, 0, 1) == '#') { $zqr = '<CENTER>'; $zqr = $zqr . $zq1; } ////////////////////// @ if ($zq2 == 'SHORT') { $zqr = $zqr . SubStr($zq1, 0, 1) . LowerCase(SubStr($zq1, 1, strpos($zq1, ' '))); } if ($zq2 == '@') { $zqr = UpperCase(SubStr($zq1, 0, 1)); if (substr($zq1, 1, 1) == ' ') { $zqr = $zqr . ' '; } $zqr = $zqr . LowerCase(SubStr($zq1, 1, 200)); } ////////////////////// Bold if ($zq2 == 'B') { $zqr = $zqr . '<B>' . $zq1 . '</B>'; } ////////////////////// CB if ($zq2 == 'CB') { $varf = $vars[$varf]; $vvvt = ''; $vvvt = $vars['chk' . $zq1]; if ($vvvt == "1") { $vvvt = "checked"; } $zqr = $zqr . '<input type="checkbox" name="chk' . $zq1 . '" ' . $vvvt . ' value="1">'; } ////////////////////// CEP if ($zq2 == 'CEP') { $xxcep = sonumero($zq1); if (strlen($xxcep) == 8) { $xxcep = substr($xxcep, 0, 2) . '.' . substr($xxcep, 2, 3) . '-' . substr($xxcep, 5, 3); } $zqr = $zqr . $xxcep; } ////////////////////// D if ($zq2 == 'D') { $zqr = '<CENTER>'; $dta = trim($zq1); if ($dta == '19000101') { $zqr = $zqr . '-'; } else { $zqr = $zqr . stodbr($zq1); } } ////////////////////// DR if ($zq2 == 'DR') { $zqr = '<CENTER>'; $dta = trim($zq1); if ($dta == '19000101') { $zqr = $zqr . '-'; } else { $zqr = $zqr . substr(stodbr($zq1), 0, 5); } } ////////////////////// H if (substr($zq2, 0, 1) == 'H' and $zq2 != 'H1' and $zq2 != 'H2') { $zqr = ''; if ($hd != trim($zq1)) { $zq1v = $zq1; if (substr($zq2, 1, 1) == 'D') { $zq1v = stodbr($zq1); } // $zqr .= '<TR><TD colspan="15" height="1" bgcolor="#c0c0c0"></TD></TR>'; $zqr .= '<TR><TD bgcolor="#FFFFFF" colspan="15" class="lt2" align="left"><HR size="1"><B>' . $zq1v . '</TD></TR>'; $hd = trim($zq1); $zqr = $zqr . '<TR><TD></TD>'; } } if ($zq2 == 'H1') { $zqr = $zqr . '<h1>' . $zq1 . '</h1>'; } if ($zq2 == 'H2') { $zqr = $zqr . '<h2>' . $zq1 . '</h2>'; } ////////////////////// Italic if ($zq2 == 'I') { $zqr = $zqr . '<I>' . $zq1 . '</I>'; } if (${$zq2} == 'NL') { $zqr = $zqr . '<TR ' . $xcol . '><TD><TD>' . $linkv . $zq1; } if ($zq2 == 'SHORT') { $zqr = $zqr . LowerCase(SubStr($zq1, 1, strpos($zq1, ' '))); } ////////////////////// SN if ($zq2 == 'SN') { $zqr = '<CENTER>'; $dta = trim($zq1); if ($dta == '1' or $dta == true or $dta == 'S') { $zqr = $zqr . 'SIM'; } else { $zqr = $zqr . 'NAO'; } } ////////////////////// C if (substr($zq2, 0, 2) == 'OB') { $zqr = '<CENTER>'; if ($zq1 == '1') { $zqr .= msg('yes'); } else { $zqr .= msg('no'); } } if ($zq2 == 'Z') { $zqr = '<CENTER>'; $zqr = $zqr . strzero($zq1, '0' . substr($zq2, 1, 2)); } } else { $zqr = $zq1; } return $zqr; }
{$info .= $text_pwd_change." : ".$text_yes."<BR>";} ELSE {$info .= $text_pwd_change." : ".$text_no."<BR>";} IF($row['pwd_crypt']) {$info .= $text_pwd_crypt." : ".$text_yes."<BR>";} ELSE {$info .= $text_pwd_crypt." : ".$text_no."<BR>";} IF($row['login_last'] > 0) {$info .= $text_login_last." : ".Date($VA_setup['timedate_format'], $row['login_last'])."<BR>";} ELSE {$info .= $text_login_last." : ".$text_never."<BR>";} IF($row['logout_last'] > 0) {$info .= $text_logout_last." : ".Date($VA_setup['timedate_format'], $row['logout_last'])."<BR>";} ELSE {$info .= $text_logout_last." : ".$text_never."<BR>";} $info .= $text_login_cnt." : ".Number_format($row['login_cnt'])."<BR>"; $info .= $text_login_ip." : ".$row['login_ip']."<BR>"; IF($row['error_last'] > 0) {$info .= $text_error_last." : ".Date($VA_setup['timedate_format'], $row['error_last'])."<BR>";} ELSE {$info .= $text_error_last." : ".$text_never."<BR>";} $info .= $text_error_cnt." : ".Number_Format($row['error_cnt'])."<BR>"; $info .= $text_error_ip." : ".$row['error_ip']."<BR>"; $info .= $text_email." : ".$row['email']."<BR>"; IF(USR_CLASS >= 3){$info .= $text_note_op." : ".$row['note_op']."<BR>";} $info .= $text_note_usr." : ".$row['note_usr']; $row['nick'] = HTMLSpecialChars($row['nick']); $row['email'] = HTMLSpecialChars($row['email']); $row['reg_op'] = HTMLSpecialChars($row['reg_op']); $row['note_op'] = HTMLSpecialChars($row['note_op']);
function calendar($mes = '', $events = array(), $topcolo = '#000000') { global $date; $sx = ' <TABLE width="200" cellpadding="3" cellspacing="0" class="lt1" border=0> <TR align="center" bgcolor="' . $topcolo . '" align="center" class="lt0"> <TD width="14%"><center><font color="#ffffff">D</TD> <TD width="14%"><center><font color="#ffffff">S</TD> <TD width="14%"><center><font color="#ffffff">T</TD> <TD width="14%"><center><font color="#ffffff">Q</TD> <TD width="14%"><center><font color="#ffffff">Q</TD> <TD width="14%"><center><font color="#ffffff">S</TD> <TD width="14%"><center><font color="#ffffff">S</TD> </TR> <TR> '; if (strlen($mes) == 0) { $dd1 = date("Ym") . '01'; $dd2 = date("Ym") . '01'; } else { $dd1 = substr($mes, 0, 6) . '01'; $dd2 = substr($mes, 0, 6) . '01'; } $dd3 = $date->weekday($dd1) + 1; for ($k = 1; $k < $dd3; $k++) { $sx .= '<TD> </TD>'; } while (substr($dd1, 0, 6) == substr($dd2, 0, 6)) { $ndia = round(substr($dd2, 6, 2)); /* Events */ $bgcolor = ''; for ($r = 0; $r < count($events); $r++) { if ($dd2 == $events[$r][0]) { $bgcolor = 'style="background-color: ' . $events[$r][4] . '; " '; } } /* Monta calendario */ $mst_vlr = ''; if ($vlr[$ndia] > 0) { $mst_vlr = Number_format($vlr[$ndia], 2); } $link = '<A HREF="' . $pg . '?dd0=' . $dd2 . '" title="' . $mst_vlr . '" class="lt1">'; $wd = $date->weekday($dd2) + 1; if ($wd == 1 and $ndia > 1) { $sx .= '<TR align="center">'; } $sx .= '<TD align="center" ' . $bgcolor . ' class="table_calender">'; //$sx .= $link; $sx .= $ndia; $dd2 = DateAdd('d', 1, $dd2); } $sx .= '</TABLE>'; return $sx; }
function CetakTrxAmbil($BPMID, $bal, $Keterangan, $Rep) { global $_lf; //include "terbilang.php"; $nmf = HOME_FOLDER . DS . "tmp/{$_SESSION['_Login']}.dwoprn"; $maxcol = 80; //$div = str_pad('-',$maxcol,'-').$_; $f = fopen($nmf, 'w'); $Nama = GetaField("mhsw", 'MhswID', $_SESSION['mhswid'], 'Nama'); $_bal = Number_format($bal); fwrite($f, chr(27) . chr(18) . chr(27) . chr(108) . chr(0)); fwrite($f, str_pad("BUKTI KELEBIHAN PEMBAYARAN", $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf); fwrite($f, str_pad("SEMESTER : " . NamaTahun($_SESSION['tahun']), $maxcol, ' ', STR_PAD_BOTH) . $_lf . $_lf . $_lf); $isi = str_pad('NIM : ' . $_SESSION['mhswid'], 50, ' ') . $_lf . $_lf . str_pad('NAMA : ' . $Nama, 50, ' ') . $_lf . $_lf . str_pad('JUMLAH : Rp. ' . $_bal, 50, ' ') . $_lf . $_lf . str_pad('TERBILANG : ' . SpellNumberID($bal) . "Rupiah", 50, ' ') . $_lf . $_lf . str_pad('KETERANGAN : ' . $Keterangan, 60, ' ') . $_lf . $_lf . str_pad('Jakarta, ' . date("d-m-Y"), 50, ' ') . $_lf . $_lf . str_pad('Bagian Keuangan,', 50, ' ') . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf . $_lf; fwrite($f, $isi); fwrite($f, "Dicetak Oleh : " . $_SESSION['_Login']); //fwrite($f, $div); fwrite($f, chr(12)); fclose($f); echo "<iframe src='dwoprn.php?f={$nmf}' height=0 width=0 frameborder=0>\r\n </iframe>"; }
FUNCTION RoundShare($share) { IF($share >= 1073741824 * 1024) {$share = Number_format($share / (1073741824 * 1024), 2)." TB";} ELSEIF($share >= 1073741824) {$share = Number_Format($share / 1073741824, 2)." GB";} ELSEIF($share >= 1048576) {$share = Number_Format($share / 1048576, 2)." MB";} ELSEIF($share >= 1024) {$share = Number_Format($share / 1024, 2)." KB";} ELSE {$share = Number_Format($share)." B";} RETURN $share; }