$r['idbuku']=buku_makeid();
$r['barkode']=buku_makebarkode();
$r['urut']=buku_getlasturut()+1;;
$r['tanggal']=date("Y-m-d");
$r['harga']=0;
}
$fform->dimension(450,120);
$fform->ptop=20;
$fform->head();
if($opt=='af' || $opt=='uf'){ require_once(MODDIR.'control.php'); // Add or Edit form
$fform->fg('Data Koleksi');
$fform->fl('Judul','<b>'.buku_judul($rk['judul']).'</b>');
if($opt=='af'){
$fform->fi('Jumlah koleksi baru',iText('nbuku',1,'width:30px;text-align:center','','onblur="katalog_buku_getkode('.$cid.')"').' item');
hiddenval('tbarkode',$r['barkode']);
hiddenval('tidbuku',$r['idbuku']);
} else {
hiddenval('nbuku',0);
}
$fform->fi('ID buku',iText('idbuku',$r['idbuku'],$fform->rwidths,'','','disabled'));
//hiddenval('idbuku',$r['idbuku']);
$fform->fi('Barkode',iText('barkode',$r['barkode'],$fform->rwidths,'','','disabled'));
//$fform->fi('Callnumber',iText('callnumber',$r['callnumber'],$fform->rwidths));
hiddenval('callnumber',$r['callnumber']);
$fform->fi('Sumber',iRadio('sumber1','sumber',0,'Beli',$r['sumber'],'','onclick="katalog_buku_getkode('.$cid.')"'));
$fform->fi('',iRadio('sumber2','sumber',1,'Pemberian',$r['sumber'],'','onclick="katalog_buku_getkode('.$cid.')"'));
$tk = mysql_query("SELECT judul,klasifikasi,pengarang FROM pus_katalog WHERE replid='" . $r['katalog'] . "'");
$rk = mysql_fetch_array($tk);
$lok = $r['lokasi'];
$sat = $r['satuan'];
$tingb = $r['tingkatbuku'];
$lokasi = lokasi_r($lok);
$satuan = satuan_r($sat);
$tingkatbuku = tingkatbuku_r($tingb);
}
$fform->ptop = 20;
$fform->head();
if ($opt == 'uf') {
require_once MODDIR . 'control.php';
// Add or Edit form
hiddenval('katalog', $r['katalog']);
$fform->fg('Data buku');
$fform->fl('Judul', '<b>' . buku_judul($rk['judul']) . '</b>');
hiddenval('nbuku', 0);
$fform->fi('ID buku', iText('idbuku', $r['idbuku'], $fform->rwidths, '', '', 'disabled'));
//hiddenval('idbuku',$r['idbuku']);
$fform->fi('Barkode', iText('barkode', $r['barkode'], $fform->rwidths, '', '', 'disabled'));
$fform->fi('Callnumber', iText('callnumber', $r['callnumber'], $fform->rwidths));
$fform->fi('Sumber', iRadio('sumber1', 'sumber', 0, 'Beli', $r['sumber'], '', 'onclick="katalog_buku_getkode(' . $cid . ')"'));
$fform->fi('', iRadio('sumber2', 'sumber', 1, 'Pemberian', $r['sumber'], '', 'onclick="katalog_buku_getkode(' . $cid . ')"'));
$fform->fi('Harga', iSelect('satuan', $satuan, $sat) . ' ' . iText('harga', $r['harga'], 'width:120px'));
$fform->fi('Tanggal diperoleh', inputTanggal('tanggal', $r['tanggal']));
$fform->fg('Alokasi buku');
$fform->fi('Lokasi', iSelect('tlokasi', $lokasi, $lok, '', 'katalog_buku_getkode(' . $cid . ')'));
$fform->fi('Tingkat', iSelect('ttingkatbuku', $tingkatbuku, $tingb, '', 'katalog_buku_getkode(' . $cid . ')'));
} else {
if ($opt == 'df') {
// delete
$q = dbDel($dbtable, "replid='{$cid}'");
}
}
}
$fform->notif($q);
} else {
if ($opt == 'uf' || $opt == 'df') {
// Prepocessing form
} else {
}
$fform->lwidth = 150;
$fform->fwidth = 500;
$fform->ptop = 100;
$fform->head();
if ($opt == 'af' || $opt == 'uf') {
require_once MODDIR . 'control.php';
// Add or Edit form
$fform->fg('Ubah Password');
$fform->fi('Password lama', iText('oldpassword', '', $fform->rwidths));
$fform->fi('Password baru', iPswd('newpassword', '', $fform->rwidths));
$fform->fi('Ulangi password baru', iPswd('rnewpassword', '', $fform->rwidths));
} else {
if ($opt == 'df') {
// Delete form
$fform->reg['dlg_del'] = 'Apakah anda yakin untuk menghapus <idata> <data> bulan?';
$fform->dlg_del($r['cicilan']);
}
}
$fform->foot();
}
if($opt=='u'){ $q=false;
$inp=array();
$inp['bahasa']=gpost('bahasa');
log_print($inp['bahasa'].' admin id:'.$adminid);
if(gpost('newpassword')!=''){
$inp['password']=gpost('newpassword');
}
$q=dbUpdate("admin",$inp,"replid='$adminid'");
$fform->reg['notif_u']='Pengaturan telah disimpan. Silahkan login kembali.';
$fform->notif($q);
} else {
$t=mysql_query("SELECT * FROM admin WHERE replid='$adminid'");
$r=mysql_fetch_array($t);
$fform->lwidth=150; $fform->fwidth=500; $fform->ptop=100;
$fform->head();
require_once(MODDIR.'control.php'); // Add or Edit form
//$fform->fg('Pengaturan Aplikasi');
//$fform->fi('Bahasa',iSelect('bahasa',array('id'=>'Indonesia','en'=>'Bahasa Inggris'),$r['bahasa']));
hiddenval('bahasa','id');
//'pwx' Password ganti (o,'r'+o,'x'+o)
$fform->fg('Ubah Password','(<i>abaikan jika tidak ingin mengubah password</i>)');
$fform->fi('Password lama',iText('oldpassword','',$fform->rwidths));
$fform->fi('Password baru',iPswd('newpassword','',$fform->rwidths));
$fform->fi('Ulangi password baru',iPswd('rnewpassword','',$fform->rwidths));
$fform->foot();
} }?>
$fform->idata = 'jurnal umum';
}
}
//jt_name($jtrans);
$fform->head();
if ($opt == 'af' || $opt == 'uf') {
require_once MODDIR . 'control.php';
// Add or Edit form
hiddenval('trans_pembayaran', $pid);
hiddenval('trans_jenis', $jtrans);
hiddenval('trans_nomer', $r['nomer']);
hiddenval('trans_ct', $r['ct']);
$fform->fl('<b>Nomor</b>', '<b><span id="box_trans_nomer">' . $no['nomer'] . '</span></b>');
$fform->fi('Tanggal', inputTanggal('trans_tanggal', $r['tanggal'], 'transaksi_getnomer()'));
$fform->fi('Rek. Kas/Bank', iSelect('rekkas', $rekasbank, $r['rekkas'], $fform->rwidths, 'transaksi_getnomer()'));
$fform->fg('pada');
$fform->fi('Rek. perkiraan', iSelect('rekitem', $rekening, $r['rekitem'], $fform->rwidths));
$fform->fa('Uraian', iTextArea('uraian', $r['uraian'], $fform->rwidths, 3));
$fform->fi('Nominal', iTextC('nominal', $r['nominal'], 'width:120px'));
} else {
if ($opt == 'df') {
// Delete form
$fform->rheight = '';
$fform->fc('Apakah anda yakin untuk menghapus data transaksi ini?');
$fform->fl('Nomor', '<b>' . $r['nomer'] . '</b>');
$fform->fl('Tanggal', fftgl($r['tanggal']));
$fform->fl('Uraian', $r['uraian']);
}
}
if ($opt == 'af') {
$s = '<div style="float:right;margin-right:-20px">' . iCheckx('trans_print', 'Cetak bukti pembayaran', 0, 'float:right') . '</div>';
$xtable->td(iSelect('rekitem' . $i, $rekening, '-', 'width:100%'));
// traget :: autosuggest ::
// $xtable->td(iSuggest()); // traget :: autosuggest ::
$xtable->td(iTextC('debet' . $i, 0, 'text-align:right;width:120px'), 120);
$xtable->td(iTextC('kredit' . $i, 0, 'text-align:right;width:120px'), 120);
$xtable->row_end();
}
//end of : loop 3 combo box
$xtable->foot();
hiddenval('transaksi_list_num', 4);
} else {
$rekening = rekening_nokasbank_opt();
$rekkasbank = rekening_kasbank_opt();
// $fform->fi('Rek. Kas/Bank',iSelect('rekkas',$rekkasbank,'-','','transaksi_getnomer()'));
$fform->fi('Rek. Kas/Bank', iSuggest('rekkas'));
$fform->fg('pada ' . jt_name($jtrans));
echo '<tr height=""><td id="box_transaksi_list" colspan="2"><div style="">';
$fmod = 'tpi_lain_transaksi_list';
$xtable = new xtable($fmod, 'siswa');
$xtable->noopt = true;
$xtable->row_strip = false;
$dsp = '';
$xtable->head('Rek. Perkiraan{180px}', 'Uraian', 'Nominal{R}');
for ($i = 1; $i <= 10; $i++) {
if ($i == 4) {
$dsp = 'none';
}
$xtable->row_begin($i, 'style="display:' . $dsp . '"');
$xtable->td(iSelect('rekitem' . $i, $rekening, '-', 'width:180px'), 80);
$xtable->td(iTextArea('uraian' . $i, '', 'width:100%;min-height:24px;', 1));
$xtable->td(iTextC('nominal' . $i, 0, 'text-align:right;width:120px', '', 'onblur="transaksi_getsubtotal();' . ($jtrans == JT_OUTCOME ? 'transaksi_cekbudget()' : '') . '"'), 120);
if($opt=='u'){ $q=false;
$inp=array();
$inp['bahasa']=gpost('bahasa');
log_print($inp['bahasa'].' admin id:'.$adminid);
if(gpost('newpassword')!=''){
$inp['password']=gpost('newpassword');
}
$q=dbUpdate("admin",$inp,"replid='$adminid'");
$fform->reg['notif_u']='Pengaturan telah disimpan. Silahkan login kembali.';
$fform->notif($q);
} else {
$t=mysql_query("SELECT * FROM admin WHERE replid='$adminid'");
$r=mysql_fetch_array($t);
$fform->lwidth=150; $fform->fwidth=500; $fform->ptop=100;
$fform->head();
require_once(MODDIR.'control.php'); // Add or Edit form
$fform->fg('Application Setting');
$fform->fi('Language',iSelect('bahasa',array('id'=>'Indonesian (Bahasa)','en'=>'English'),$r['bahasa']));
//'pwx' Password ganti (o,'r'+o,'x'+o)
$fform->fg('Change Passowrd','(<i>leave these fields to keep current password</i>)');
$fform->fi('Current password',iText('oldpassword','',$fform->rwidths));
$fform->fi('New password',iPswd('newpassword','',$fform->rwidths));
$fform->fi('Retype new password',iPswd('rnewpassword','',$fform->rwidths));
$fform->foot();
} }?>
