update dalev prog
This commit is contained in:
+23
-7
@@ -60,7 +60,7 @@ function ambil_dalev_subkeg($db = null) {//oke
|
|||||||
$_thn_kin = $_thn_kin / $twulan;
|
$_thn_kin = $_thn_kin / $twulan;
|
||||||
break;
|
break;
|
||||||
default:
|
default:
|
||||||
$_thn_kin = (float)$db->Row("RealF_TW".$twulan);
|
$_thn_kin = (int)$db->Row("RealF_TW".$twulan);
|
||||||
}
|
}
|
||||||
|
|
||||||
$data_subkeg[] = [
|
$data_subkeg[] = [
|
||||||
@@ -97,6 +97,10 @@ function ambil_dalev_subkeg($db = null) {//oke
|
|||||||
|
|
||||||
/* DALEV PROGRAM */
|
/* DALEV PROGRAM */
|
||||||
|
|
||||||
|
function titik_ke_koma($nilai = "") {
|
||||||
|
return str_replace(".", ",", (string)$nilai);
|
||||||
|
}
|
||||||
|
|
||||||
function sinkron_dalev_prog($db = null) {
|
function sinkron_dalev_prog($db = null) {
|
||||||
$aret = ['status' => "success", 'message' => 'Berhasil singkron data!'];
|
$aret = ['status' => "success", 'message' => 'Berhasil singkron data!'];
|
||||||
|
|
||||||
@@ -125,19 +129,31 @@ function ambil_dalev_prog($db = null) {
|
|||||||
$tsql = " AND OPDID IN (".$aopd['OPDID'].")";
|
$tsql = " AND OPDID IN (".$aopd['OPDID'].")";
|
||||||
$db->Query("SELECT P.*,D.*,IFNULL(RPI.Indi_Status,'') Status_Renstra FROM (SELECT TipeDataID,Status_Indi Status_Renja,Real_TW1,Real_TW2,Real_TW3,Real_TW4,SIPD_PROG_INDI FROM dpa_prog_indi WHERE Tahun='".$tahun."'".$tsql.") P LEFT JOIN (SELECT * FROM dpa_dalev_prog WHERE Tahun='".$tahun."'".$tsql.") D ON (D.SIPD_PROG_INDI=P.SIPD_PROG_INDI) LEFT JOIN renstra_prog_indi RPI ON (RPI.SIPD_UNIK=P.SIPD_PROG_INDI) WHERE D.SIPD_PROG_INDI IS NOT NULL ORDER BY D.K_Prog");
|
$db->Query("SELECT P.*,D.*,IFNULL(RPI.Indi_Status,'') Status_Renstra FROM (SELECT TipeDataID,Status_Indi Status_Renja,Real_TW1,Real_TW2,Real_TW3,Real_TW4,SIPD_PROG_INDI FROM dpa_prog_indi WHERE Tahun='".$tahun."'".$tsql.") P LEFT JOIN (SELECT * FROM dpa_dalev_prog WHERE Tahun='".$tahun."'".$tsql.") D ON (D.SIPD_PROG_INDI=P.SIPD_PROG_INDI) LEFT JOIN renstra_prog_indi RPI ON (RPI.SIPD_UNIK=P.SIPD_PROG_INDI) WHERE D.SIPD_PROG_INDI IS NOT NULL ORDER BY D.K_Prog");
|
||||||
while ($db->Next()) {
|
while ($db->Next()) {
|
||||||
$atriw = [];
|
$atriw = []; $real_thn = 0;
|
||||||
//for ($_tri = 1; $_tri <= 4; $_tri++) {
|
for ($_tri = 1; $_tri <= $twulan; $_tri++) {
|
||||||
$atriw['triwulan_1'] = $db->Row("Real_TW1");
|
$atriw['triwulan_'.$_tri] = titik_ke_koma($db->Row("Real_TW".$_tri));
|
||||||
//}
|
$real_thn += $db->Row("Real_TW".$_tri);
|
||||||
$real_thn = $db->Row("Real_TW1");//todo: hitung utk tw berikutnya
|
}
|
||||||
|
|
||||||
|
//komulatif / positif / negatif / rata-rata
|
||||||
|
switch ($db->Row("Status", "komulatif")) {
|
||||||
|
case "komulatif":
|
||||||
|
break;
|
||||||
|
case "rata-rata":
|
||||||
|
$real_thn = $real_thn / $twulan;
|
||||||
|
break;
|
||||||
|
default:
|
||||||
|
$real_thn = $db->Row("Real_TW".$twulan);
|
||||||
|
}
|
||||||
$tipe_data = ($db->Row("TipeDataID")==0 ? "numeric" : ($db->Row("TipeDataID")==2 ? "rasio" : "enumv2"));
|
$tipe_data = ($db->Row("TipeDataID")==0 ? "numeric" : ($db->Row("TipeDataID")==2 ? "rasio" : "enumv2"));
|
||||||
|
$real_thn = titik_ke_koma($real_thn);
|
||||||
|
|
||||||
$atahun = [0 => 2025, 1 => 2026, 2 => 2027, 3 => 2028, 4 => 2029, 5 => 2030]; //todo: bisa automatis
|
$atahun = [0 => 2025, 1 => 2026, 2 => 2027, 3 => 2028, 4 => 2029, 5 => 2030]; //todo: bisa automatis
|
||||||
$atarget = [];
|
$atarget = [];
|
||||||
foreach ($atahun as $idx => $thn) {
|
foreach ($atahun as $idx => $thn) {
|
||||||
$atarget['target_'.$idx] = $db->Row("Target_".$idx);
|
$atarget['target_'.$idx] = $db->Row("Target_".$idx);
|
||||||
$atarget['target_'.$thn] = $db->Row("Target_".$idx);
|
$atarget['target_'.$thn] = $db->Row("Target_".$idx);
|
||||||
$atarget['realisasi_'.$thn] = ($thn == 2026 ? $real_thn : "");
|
$atarget['realisasi_'.$thn] = ($thn == $tahun ? $real_thn : "");
|
||||||
}
|
}
|
||||||
|
|
||||||
$data_prog[] = [
|
$data_prog[] = [
|
||||||
|
|||||||
Reference in New Issue
Block a user