function posting($kodeorg, $periode, $jumlah, $dbname, $conn) { // Default Segment $defSegment = colDefaultValue($dbname, 'keu_5segment', 'kodesegment'); $tgl1 = ''; $tgl2 = ''; $str = "select tanggalmulai,tanggalsampai from " . $dbname . ".sdm_5periodegaji where kodeorg='" . $kodeorg . "'\r\n and periode='" . $periode . "' and jenisgaji='H'"; $res = mysql_query($str); while ($bar = mysql_fetch_object($res)) { $tgl1 = str_replace("-", "", $bar->tanggalmulai); $tgl2 = str_replace("-", "", $bar->tanggalsampai); } if ($tgl1 == '' or $tgl2 == '') { exit(" Error: Periode penggajian Harian tidak ditemukan/ Daily base payrol period not found"); } //periksa periode akuntansi $str = "select * from " . $dbname . ".setup_periodeakuntansi where kodeorg='" . $kodeorg . "' \r\n and periode='" . $periode . "' and tutupbuku=0"; $res = mysql_query($str); if (mysql_num_rows($res) == 0) { exit(" Error: Sorry, accounting period is not active on choson period"); } //periksa periode penggajian unit untuk memastikan apakah sudah selesai inputan BKM,KKD,ABSENSI $str = "select sudahproses from " . $dbname . ".sdm_5periodegaji where kodeorg='" . $kodeorg . "' \r\n and periode='" . $periode . "' and sudahproses=0"; $res = mysql_query($str); if (mysql_num_rows($res) > 0) { exit(" Error: Sorry, input for presence, CARLOG and Foreman daoly book not yet close, please make sure for those transaction by confirmation via Setu->Periode Penggajian unit"); } //periksa tipe organisasi $str = "select tipe from " . $dbname . ".organisasi where kodeorganisasi='" . $kodeorg . "'"; $res = mysql_query($str); $tipe = 'KANWIL'; while ($bar = mysql_fetch_object($res)) { $tipe = $bar->tipe; } if ($tipe == 'KEBUN') { //ambil noakun dari parameter jurnal $debet = ''; $kredit = ''; $nojurnal = str_replace("-", "", $periode) . "28/" . $kodeorg . "/CT01/001"; $str = "select noakundebet,noakunkredit from " . $dbname . ".keu_5parameterjurnal where jurnalid='CT01'"; $res = mysql_query($str); while ($bar = mysql_fetch_object($res)) { $debet = $bar->noakundebet; $kredit = $bar->noakunkredit; } if ($debet == '' or $kredit == '') { exit('Error: Journal parameter for CT01 not defined, contact administrator'); } $kodejurnal = 'CT01'; //ambil porsi biaya umum $byumum = 0; $str = "select sum(jumlahrupiah) as byumum from " . $dbname . ".sdm_catu where periodegaji='" . $periode . "' \r\n and kodeorg='" . $kodeorg . "' and subbagian=''"; $res = mysql_query($str); while ($bar = mysql_fetch_object($res)) { $byumum = $bar->byumum; } $bytanaman = $jumlah - $byumum; //prepare jurnal # Prep Header $dataRes = array(); $dataRes['header'] = array('nojurnal' => $nojurnal, 'kodejurnal' => $kodejurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'tanggalentry' => date('Ymd'), 'posting' => '1', 'totaldebet' => $jumlah, 'totalkredit' => $jumlah * -1, 'amountkoreksi' => '0', 'noreferensi' => 'CT01', 'autojurnal' => '1', 'matauang' => 'IDR', 'kurs' => '1', 'revisi' => '0'); # Data Detail $noUrut = 1; //jika biaya umum>0 if ($byumum > 0) { # Debet $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $debet, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $byumum, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT01', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } //ambil kodeblok dan kegiatan untuk melengkapi sisi debet #1 ambil noakun panen $akunpanen = ''; $str = "select noakundebet from " . $dbname . ".keu_5parameterjurnal where jurnalid='PNN01'"; $res = mysql_query($str); while ($bar = mysql_fetch_object($res)) { $akunpanen = $bar->noakundebet; } if ($akunpanen == '') { exit(" Error: Account for harvesting not defined in journal parameter PNN01"); } #2 Ambil blok panen $sAbsn = "select distinct kodeorg from " . $dbname . ".kebun_prestasi_vw \r\n where tanggal between '" . $tgl1 . "' and '" . $tgl2 . "' and unit ='" . $kodeorg . "'"; $respanen = mysql_query($sAbsn); $jml_baris = mysql_num_rows($respanen); #3 ambil noakun dan blok perawatan $sAbsn = "select distinct noakun,kodeorg,kodekegiatan from " . $dbname . ".kebun_perawatan_vw \r\n where tanggal between '" . $tgl1 . "' and '" . $tgl2 . "' and unit ='" . $kodeorg . "'"; $resrawat = mysql_query($sAbsn); $jml_baris += mysql_num_rows($resrawat); #4 dibagi per masing-masing baris if ($jml_baris == 0 and $bytanaman > 0) { #jika tidak ada pekerjaan lapangan #kembalikan ke biaya umum $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $debet, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $bytanaman, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT01', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } else { $biayaperblok = $bytanaman / $jml_baris; } if ($biayaperblok > 0 and $jml_baris > 0) { #5 Bentuk detail jurnal pelengkap disisi debet while ($bar = mysql_fetch_object($respanen)) { # Debet $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $akunpanen, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $biayaperblok, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => $akunpanen . "01", 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT01', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => $bar->kodeorg, 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } while ($bar = mysql_fetch_object($resrawat)) { # Debet $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $bar->noakun, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $biayaperblok, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => $bar->kodekegiatan, 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT01', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => $bar->kodeorg, 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } } # Kredit (Kreditnya cukup satu saja) $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $kredit, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => -1 * $jumlah, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT01', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } else { if ($tipe == 'TRAKSI') { $debet = ''; $kredit = ''; $nojurnal = str_replace("-", "", $periode) . "28/" . $kodeorg . "/CT03/001"; $str = "select noakundebet,noakunkredit from " . $dbname . ".keu_5parameterjurnal where jurnalid='CT03'"; $res = mysql_query($str); while ($bar = mysql_fetch_object($res)) { $debet = $bar->noakundebet; $kredit = $bar->noakunkredit; } if ($debet == '' or $kredit == '') { exit('Error: Journal parameter for CT03 (Traksi) not defined, contact administrator'); } $kodejurnal = 'CT03'; #1 Ambil semua kendaraan yang bekerja di bulan ini $str = "select distinct kodevhc from " . $dbname . ".vhc_runht where tanggal between '" . $tgl1 . "' and '" . $tgl2 . "' \r\n and kodeorg ='" . $kodeorg . "'"; $res = mysql_query($str); $jml_baris = mysql_num_rows($res); //prepare jurnal # Prep Header $dataRes = array(); $dataRes['header'] = array('nojurnal' => $nojurnal, 'kodejurnal' => $kodejurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'tanggalentry' => date('Ymd'), 'posting' => '1', 'totaldebet' => $jumlah, 'totalkredit' => $jumlah * -1, 'amountkoreksi' => '0', 'noreferensi' => 'CT03', 'autojurnal' => '1', 'matauang' => 'IDR', 'kurs' => '1', 'revisi' => '0'); # Data Detail $noUrut = 1; if ($jml_baris == 0) { //jika tidak ada pekerjaan kendaraan # Debet $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $debet, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $jumlah, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT03', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } else { $byperkendaraan = $jumlah / $jml_baris; while ($bar = mysql_fetch_object($res)) { # Debet $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $debet, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $byperkendaraan, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT03', 'noaruskas' => '', 'kodevhc' => $bar->kodevhc, 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } } # Kredit (Kreditnya cukup satu saja) $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $kredit, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => -1 * $jumlah, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT03', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } else { if ($tipe == 'PABRIK') { $debet = ''; $kredit = ''; $nojurnal = str_replace("-", "", $periode) . "28/" . $kodeorg . "/CT04/001"; $str = "select noakundebet,noakunkredit from " . $dbname . ".keu_5parameterjurnal where jurnalid='CT04'"; $res = mysql_query($str); while ($bar = mysql_fetch_object($res)) { $debet = $bar->noakundebet; $kredit = $bar->noakunkredit; } if ($debet == '' or $kredit == '') { exit('Error: Journal parameter CT04 (PKS) not defined'); } $kodejurnal = 'CT04'; //ambil porsi biaya umum $byumum = 0; $str = "select sum(jumlahrupiah) as byumum from " . $dbname . ".sdm_catu where periodegaji='" . $periode . "' \r\n and kodeorg='" . $kodeorg . "' and subbagian=''"; $res = mysql_query($str); while ($bar = mysql_fetch_object($res)) { $byumum = $bar->byumum; } $bystasiun = $jumlah - $byumum; #1 Ambil semua statiun yang ada dalam pks $str = "select kodeorganisasi from " . $dbname . ".organisasi where tipe='STATION' \r\n and induk ='" . $kodeorg . "'"; $res = mysql_query($str); $jml_baris = mysql_num_rows($res); //prepare jurnal # Prep Header $dataRes = array(); $dataRes['header'] = array('nojurnal' => $nojurnal, 'kodejurnal' => $kodejurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'tanggalentry' => date('Ymd'), 'posting' => '1', 'totaldebet' => $jumlah, 'totalkredit' => $jumlah * -1, 'amountkoreksi' => '0', 'noreferensi' => 'CT04', 'autojurnal' => '1', 'matauang' => 'IDR', 'kurs' => '1', 'revisi' => '0'); # Data Detail $noUrut = 1; if ($jml_baris == 0) { //jika tidak ada pekerjaan kendaraan # Debet $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $debet, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $jumlah, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT04', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } else { //biaya umum masuk dulu if ($byumum > 0) { $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $debet, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $byumum, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT04', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } //bagi biaya station ke setiap station $byperstasiun = $bystasiun / $jml_baris; while ($bar = mysql_fetch_object($res)) { # Debet $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $debet, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $byperstasiun, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT04', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => $bar->kodeorganisasi, 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } } # Kredit (Kreditnya cukup satu saja) $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $kredit, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => -1 * $jumlah, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT04', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } else { $debet = ''; $kredit = ''; $nojurnal = str_replace("-", "", $periode) . "28/" . $kodeorg . "/CT01/001"; $str = "select noakundebet,noakunkredit from " . $dbname . ".keu_5parameterjurnal where jurnalid='CT01'"; $res = mysql_query($str); while ($bar = mysql_fetch_object($res)) { $debet = $bar->noakundebet; $kredit = $bar->noakunkredit; } if ($debet == '' or $kredit == '') { exit('Error: Journal parameter CT01 (Kebun) not defined'); } $kodejurnal = 'CT01'; //prepare jurnal # Prep Header $dataRes = array(); $dataRes['header'] = array('nojurnal' => $nojurnal, 'kodejurnal' => $kodejurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'tanggalentry' => date('Ymd'), 'posting' => '1', 'totaldebet' => $jumlah, 'totalkredit' => $jumlah * -1, 'amountkoreksi' => '0', 'noreferensi' => 'CT01', 'autojurnal' => '1', 'matauang' => 'IDR', 'kurs' => '1', 'revisi' => '0'); # Data Detail $noUrut = 1; # Debet $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $debet, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => $jumlah, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT01', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; $dataRes['detail'][] = array('nojurnal' => $nojurnal, 'tanggal' => str_replace("-", "", $periode) . "28", 'nourut' => $noUrut, 'noakun' => $kredit, 'keterangan' => 'Catu Beras -' . $periode, 'jumlah' => -1 * $jumlah, 'matauang' => 'IDR', 'kurs' => '1', 'kodeorg' => $kodeorg, 'kodekegiatan' => '', 'kodeasset' => '', 'kodebarang' => '', 'nik' => '', 'kodecustomer' => '', 'kodesupplier' => '', 'noreferensi' => 'CT01', 'noaruskas' => '', 'kodevhc' => '', 'nodok' => '', 'kodeblok' => '', 'revisi' => '0', 'kodesegment' => $defSegment); $noUrut++; } } } #execute #========================== Proses Insert dan Update ========================== #>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Insert Header $headErr = ''; $insHead = insertQuery($dbname, 'keu_jurnalht', $dataRes['header']); if (!mysql_query($insHead)) { $headErr .= 'Insert Header Error : ' . mysql_error() . "\n"; } if ($headErr == '') { #>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> Insert Detail $detailErr = ''; foreach ($dataRes['detail'] as $row) { $insDet = insertQuery($dbname, 'keu_jurnaldt', $row); if (!mysql_query($insDet)) { $detailErr .= "Insert Detail Error : " . mysql_error() . "\n"; break; } } if ($detailErr == '') { #update sdm_catu status posting $str = "update " . $dbname . ".sdm_catu set posting=1 where kodeorg='" . $kodeorg . "' and periodegaji='" . $periode . "'"; mysql_query($str); } else { echo $detailErr; # Rollback, Delete Header $RBDet = deleteQuery($dbname, 'keu_jurnalht', "nojurnal='" . $nojurnal . "'"); if (!mysql_query($RBDet)) { echo "Rollback Delete Header Error : " . mysql_error(); exit; } } } else { echo $headErr; exit; } }
$qcek2 = mysql_query($scek2) or die(mysql_error($conn)); $rcek2 = mysql_num_rows($qcek2); if ($rcek2 == 0) { $listTiket .= "- " . $row['notransaksi'] . "\n"; } } if ($listTiket != '') { exit("Warning: Ada Timbangan Pabrik ke Eksternal yang belum diakui\n" . $listTiket); } } } /************************************************************** * [END] Cek Pengakuan Penjualan ****************************** **************************************************************/ // Default Segment $defSegment = colDefaultValue($dbname, 'keu_5segment', 'kodesegment'); switch ($proses) { case 'tutupBuku': #==================== Prep Periode ==================================== # Prep Tahun Bulan untuk periode selanjutnya if ($tmpPeriod[1] == 12) { $bulanLanjut = 1; $tahunLanjut = $tmpPeriod[0] + 1; } else { $bulanLanjut = $tmpPeriod[1] + 1; $tahunLanjut = $tmpPeriod[0]; } # Prep Hari untuk periode selanjutnya $jmlHari = cal_days_in_month(CAL_GREGORIAN, $bulanLanjut, $tahunLanjut); $tglAwal = $tahunLanjut . '-' . addZero($bulanLanjut, 2) . '-01'; $tglAkhir = $tahunLanjut . '-' . addZero($bulanLanjut, 2) . '-' . addZero($jmlHari, 2);
require_once 'config/connection.php'; require_once 'lib/nangkoelib.php'; include_once 'lib/zLib.php'; if (isTransactionPeriod()) { //check if transaction period is normal $tipetransaksi = $_POST['tipetransaksi']; $tanggal = $_POST['tanggal']; $kodebarang = $_POST['kodebarang']; $satuan = $_POST['satuan']; $jumlah = $_POST['jumlah']; $kodept = $_POST['kodept']; $gudangx = $_POST['gudangx']; $untukpt = $_POST['untukpt']; $gudang = $_POST['gudang']; $blok = $_POST['kodeblok']; $segment = !empty($_POST['kodesegment']) ? $_POST['kodesegment'] : colDefaultValue($dbname, 'keu_5segment', 'kodesegment'); $notransaksi = $_POST['notransaksi']; $user = $_SESSION['standard']['userid']; $hargasatuan = $_POST['hargasatuan']; $nopo = $_POST['nopo']; $supplier = $_POST['supplier']; $kodekegiatan = $_POST['kodekegiatan']; $kodemesin = $_POST['kodemesin']; if (!preg_match('/^[0-9]{8}$/', $kodebarang)) { exit("Warning: Kode Barang tidak standard"); } //periksa apakah sudah pernah mempengaruhi saldo $statussaldo = 0; $str = "select statussaldo from " . $dbname . ".log_transaksidt \n where notransaksi='" . $notransaksi . "'\n and kodebarang='" . $kodebarang . "'\n and kodeblok='" . $blok . "'"; $res = mysql_query($str); while ($bar = mysql_fetch_object($res)) {