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)) {
