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;
}
