<?php

/*******************************************************************

    App. Name     : SISTEM INFORMASI MONITORING DAN EVALUASI
    Module        : /apps/php/mon/dpa.php
    Desc.         : PHP - Kelola Data DPA
    Created By    : Siau Pheng (siaupheng@3fonia.com).
    Created Date  : October 28th, 2011.
    Last Modified : March 14th, 2025.

    (c) 2011 - 2025, 3FONIA Software; WWW.3FONIA.COM.

*******************************************************************/

require_once(__DIR__."/../../../../../vendor/autoload.php");
require_once(__DIR__."/../func.emonev.php");

use siaupheng\fonia3\DB\MySQL;
use siaupheng\fonia3\DB\SQL;
use siaupheng\fonia3\Web\Param;
use siaupheng\fonia3\Web\Table;
use siaupheng\fonia3\Web\Form;
use siaupheng\fonia3\Web\Button;

$db = $db ?? new MySQL();
$ajson = [];
$data = Param::Get("data");
$mode = Param::Get("mode");
$mode_detail = Param::Get("mode_detail");
$emon_en = Param::Get("Hak_DPA", 0);
$id_rpjmd = $_SESSION['__WEB_APP']['REAL_RPJMDID'];
$thn_renja = $_SESSION['__WEB_APP']['REAL_THN'];
$id_org = Param::Get("ORGID", 0);
$id_opd = Param::Get("OPDID", 0);
$id_prog = Param::Get("ProgID", 0);
$id_keg = Param::Get("KegID", 0);
$id_sub = Param::Get("SubID", 0);
$id_akun = Param::Get("AkunID", 0);

if ( in_array($data, ["tabel-opd","tabel-prog","tabel-keg","tabel-sub","tabel-prog-indi","tabel-keg-keluar","tabel-keg-hasil","tabel-sub-output","tabel-akun"]) ) {
    $qsql = "Tahun='".$thn_renja."'";
    $msql = "M.Aktif=1";

    if ( $data == "tabel-opd" ) {
        if (in_array($_SESSION['__WEB_USER']['Level'],[1,3,4])) {
            $qsql .= " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")";
            $msql .= " AND M.OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")";
        }
    } else if ( $data == "tabel-prog" ) {
        $qsql .= " AND OPDID='".$id_opd."'";
    } else if ( $data == "tabel-keg" || $data == "tabel-prog-indi" ) {
        $qsql .= " AND OPDID='".$id_opd."' AND ProgID='".$id_prog."'";
    } else if ( $data == "tabel-sub" || $data == "tabel-keg-keluar" || $data == "tabel-keg-hasil" ) {
        $qsql .= " AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."'";
    } else if ( $data == "tabel-akun" || $data == "tabel-sub-output" ) {
        $qsql .= " AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."' AND SubID='".$id_sub."'";
    }
}

if ( $data == "tabel-opd" ) {
    $f_usul = (in_array($_SESSION['__WEB_USER']['Level'],[0,1])) ? "1" : "0";
    if (in_array($_SESSION['__WEB_USER']['Level'],[3,4])) {
        $f_usul = "IFNULL(H.Hak_DPA,1)";
    }
    $obj = new Table($db);
    $obj->set_query("SELECT M.OPDID OPDID2,M.ORGID,M.K_OPD,M.N_OPD,M.Nama_OPD,M.AK_Bidu,M.K_Bidu1,".$f_usul." Hak_DPA,KP.ITEM_PROG,KK.ITEM_KEG,KS.ITEM_SUB,KS.TOT_SEMUA FROM vi_para90_opd M LEFT JOIN (SELECT OPDID,COUNT(*) ITEM_PROG FROM dpa90_prog WHERE ".$qsql." GROUP BY OPDID) KP ON (KP.OPDID=M.OPDID) LEFT JOIN (SELECT OPDID,COUNT(*) ITEM_KEG FROM dpa90_keg WHERE ".$qsql." GROUP BY OPDID) KK ON (KK.OPDID=M.OPDID) LEFT JOIN (SELECT OPDID,COUNT(*) ITEM_SUB,SUM(Pagu_Ini) TOT_SEMUA FROM dpa90_sub WHERE ".$qsql." GROUP BY OPDID) KS ON (KS.OPDID=M.OPDID) LEFT JOIN (SELECT OPDID,Hak_DPA FROM sippd_akses_sip WHERE Tahun='".$thn_renja."') H ON (H.OPDID=M.OPDID) WHERE ".$msql);
    $obj->add_field("OPDID2", "OPD", "hid");
    $obj->add_field("ORGID", "ORG", "hid");
    $obj->add_field("Nama_OPD", "Nama OPD", "hid");
    $obj->add_field("AK_Bidu", "AK_Bidu", "hid");
    $obj->add_field("K_Bidu1", "K_Bidu1", "hid");
    $obj->add_field("Hak_DPA", "DPA", "hid");
    $obj->add_field("K_OPD", "Kode", "c");
    $obj->add_field("N_OPD", "Nama Perangkat Daerah", "awr");
    $obj->add_field("TOT_SEMUA", "Jumlah Pagu", "r", "rupiah");
    $obj->add_field("ITEM_PROG", "Prog", "r", "rupiah");
    $obj->add_field("ITEM_KEG", "Keg", "r", "rupiah");
    $obj->add_field("ITEM_SUB", "Sub", "r", "rupiah");
    $obj->set_field_order("K_OPD", "A");
    $obj->add_row_btn("folder", "Program", "DPAJS.opd_select");
    $obj->set_func_navi("DPAJS.data_query('tabel-opd')");
    $obj->set_textbtn(true);
    $ajson[] = $obj->json_table("divOPD");

} else if ( $data == "tabel-prog" ) {
    if (in_array($mode_detail, ["insert","update","delete"])) {
        if ($mode_detail=="insert") {
            $k_bidu = Param::Get("K_Bidu");
            $k_prog = Param::Get("K_Prog");
            if ($k_bidu == "X.XX") {
                $k_bidu = Param::Get("K_Bidu1");
            }
            $db->Query("INSERT IGNORE INTO dpa90_prog (RPJMDID,Tahun,ORGID,OPDID,ProgID,K_Bidu,K_Prog,Input_UserID) VALUES('".$id_rpjmd."','".$thn_renja."','".$id_org."','".$id_opd."','".$id_prog."','".$k_bidu."','".$k_prog."','".user_id()."')");
        } else if ($mode_detail=="update") {
        } else if ($mode_detail=="delete") {
        }
    }

    $obj = new Table($db);
    $obj->set_query("SELECT PR.DPAProgID,PR.ProgID,PR.K_Prog,M.N_Prog,CONCAT('(',M.K_Prog,') ',M.N_Prog) Nama_Prog,KK.ITEM_KEG,KS.ITEM_SUB,KS.TOT_SEMUA,IF(IFNULL(I.Indi_Text,0)=0,2,IF(IFNULL(I.Indi_Text,0)=IFNULL(I.Indi_Target,0),0,1)) CSS_INDI FROM (SELECT * FROM dpa90_prog WHERE ".$qsql.") PR LEFT JOIN (SELECT ProgID,SUM(IF(Text_Indi='',0,1)) Indi_Text,SUM(IF(Poin_Target=0,0,1)) Indi_Target FROM dpa90_prog_indi WHERE ".$qsql." GROUP BY ProgID) I ON (I.ProgID=PR.ProgID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' GROUP BY ProgID) M ON (M.ProgID=PR.ProgID) LEFT JOIN (SELECT ProgID,COUNT(*) ITEM_KEG FROM dpa90_keg WHERE ".$qsql." GROUP BY ProgID) KK ON (KK.ProgID=PR.ProgID) LEFT JOIN (SELECT ProgID,COUNT(DISTINCT SubID) ITEM_SUB,SUM(Pagu_Ini) TOT_SEMUA FROM dpa90_sub WHERE ".$qsql." GROUP BY ProgID) KS ON (KS.ProgID=PR.ProgID)");
    $obj->add_field("DPAProgID", "DPAID", "hid");
    $obj->add_field("ProgID", "ID", "hid");
    $obj->add_field("Nama_Prog", "Nama PROG", "hid");
    $obj->add_field("K_Prog", "Kode", "c", null, null, "dom-nomen");
    $obj->add_field("N_Prog", "Nama Program", "awr");
    $obj->add_field("TOT_SEMUA", "Jumlah Pagu", "r", "rupiah");
    $obj->add_field("ITEM_KEG", "Keg", "r", "rupiah");
    $obj->add_field("ITEM_SUB", "Sub", "r", "rupiah");
    $obj->set_field_order("K_Prog", "A");
    $obj->add_row_btn("clipboard", "Indikator", "DPAJS.prog_edit", "", "", "CSS_INDI", [1=>"warning",2=>"danger"]);
    $obj->add_row_btn("folder", "Kegiatan", "DPAJS.prog_select");
    $obj->set_func_navi("DPAJS.data_query('tabel-prog')");
    if ($emon_en) $obj->set_func_btn("DPAJS.prog_brow", "+ Program");
    $obj->set_textbtn(true);
    $ajson[] = $obj->json_table("divPROG");

} else if ( $data == "tabel-prog-indi" ) {
    if (in_array($mode_detail, ["insert","update","delete"])) {
        $sql = new SQL($db);
        $sql->set_table("dpa90_prog_indi");
        $sql->add_param("Text_Indi");
        $sql->add_param("TipeDataID");
        $sql->add_param("Target_Indi");
        $sql->add_param("Satuan_Indi");
        $sql->add_param("Poin_Target", "func_tipedata(".Param::Get("TipeDataID",0).",'".Param::Get("Target_Indi")."')", true);
        $sql->add_where("Tahun", $thn_renja);
        $sql->add_where("DPAProgIndiID");

        if ($mode_detail=="insert") {
            $sql->add_param("RPJMDID", $id_rpjmd);
            $sql->add_param("Tahun", $thn_renja);
            $sql->add_param("ORGID", $id_org);
            $sql->add_param("OPDID", $id_opd);
            $sql->add_param("ProgID", $id_prog);
            $sql->add_param_userid("Input_UserID");
            $sql->InsertDB();
        } else if ($mode_detail=="update") {
            $sql->add_param_stamp("Update_Stamp");
            $sql->add_param_userid("Update_UserID");
            $sql->UpdateDB();
        } else if ($mode_detail=="delete") {
            $sql->DeleteDB();
        }
        if ($mode_detail!=="delete") {

        }
    }

    $obj = new Table($db);
    $obj->set_query("SELECT *,CONCAT(Text_Indi,' (<i>',Satuan_Indi,'</i>)') Indi_Satuan FROM dpa90_prog_indi WHERE ".$qsql."");
    $obj->add_field("DPAProgIndiID", "ID", "hid");
    $obj->add_field("Indi_Satuan", "Uraian Indikator", "awr", "", "", "val-emptylast");
    $obj->add_field("Target_Indi", "Target", "c");
    $obj->set_field_order("Text_Indi", "A");
    $obj->add_row_form("Detail", "DPAJS.prog_indi_form");
    if ($emon_en) {
        $obj->add_row_btn("trash", "Hapus", "DPAJS.prog_indi_del");
        $obj->set_func_btn("DPAJS.prog_indi_add", "+ Indikator");
    }
    $ajson[] = $obj->json_table("divProgIndi");

} else if ( $data == "tabel-keg" ) {
    if (in_array($mode_detail, ["insert","update","delete"])) {
        if ($mode_detail=="insert") {
            $db->Query("INSERT IGNORE INTO dpa90_keg (RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,K_Keg,Input_UserID) VALUES('".$id_rpjmd."','".$thn_renja."','".$id_org."','".$id_opd."','".$id_prog."','".$id_keg."','".Param::Get("K_Keg")."','".user_id()."')");
        } else if ($mode_detail=="update") {
            $db->Query("UPDATE dpa90_keg SET Sasaran='".Param::Get("Sasaran","")."' WHERE Tahun='".$thn_renja."' AND DPAKegID='".Param::Get("DPAKegID",0)."'");
        } else if ($mode_detail=="delete") {
        }
    }

    $obj = new Table($db);
    $obj->set_query("SELECT KR.DPAKegID,KR.KegID,KR.K_Keg,M.N_Keg,CONCAT('(',M.K_Keg,') ',M.N_Keg) Nama_Keg,KS.ITEM_SUB,KS.TOT_SEMUA,IF(IFNULL(I1.Indi_Text,0)+IFNULL(I2.Indi_Text,0)=0,2,IF(IFNULL(I1.Indi_Text,0)+IFNULL(I2.Indi_Text,0)=IFNULL(I1.Indi_Target,0)+IFNULL(I2.Indi_Target,0),0,1)) CSS_INDI FROM (SELECT * FROM dpa90_keg WHERE ".$qsql.") KR LEFT JOIN (SELECT KegID,SUM(IF(Text_Keluar='',0,1)) Indi_Text,SUM(IF(Target_Keluar=0,0,1)) Indi_Target FROM dpa90_keg_keluar WHERE ".$qsql." GROUP BY KegID) I1 ON (I1.KegID=KR.KegID) LEFT JOIN (SELECT KegID,SUM(IF(Text_Hasil='',0,1)) Indi_Text,SUM(IF(Target_Hasil='',0,1)) Indi_Target FROM dpa90_keg_hasil WHERE ".$qsql." GROUP BY KegID) I2 ON (I2.KegID=KR.KegID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' GROUP BY KegID) M ON (KR.KegID=M.KegID) LEFT JOIN (SELECT KegID,COUNT(DISTINCT SubID) ITEM_SUB,SUM(Pagu_Ini) TOT_SEMUA FROM dpa90_sub WHERE ".$qsql." GROUP BY KegID) KS ON (KS.KegID=KR.KegID)");
    $obj->add_field("DPAKegID", "DPAID", "hid");
    $obj->add_field("KegID", "ID", "hid");
    $obj->add_field("Nama_Keg", "Nama KEG", "hid");
    $obj->add_field("K_Keg", "Kode", "c", null, null, "dom-nomen");
    $obj->add_field("N_Keg", "Nama Kegiatan", "awr");
    $obj->add_field("TOT_SEMUA", "Jumlah Pagu", "r", "rupiah");
    $obj->add_field("ITEM_SUB", "Sub", "r", "rupiah");
    $obj->set_field_order("K_Keg", "A");
    $obj->add_row_btn("clipboard", "Detail", "DPAJS.keg_edit", "", "", "CSS_INDI", [1=>"warning",2=>"danger"]);
    $obj->add_row_btn("folder", "Sub Kegiatan", "DPAJS.keg_select");
    $obj->set_func_navi("DPAJS.data_query('tabel-keg')");
    if ($emon_en) $obj->set_func_btn("DPAJS.keg_brow", "+ Kegiatan");
    $obj->set_textbtn(true);
    $ajson[] = $obj->json_table("divKEG");

} else if ( $data == "tabel-keg-keluar" ) {
    if (in_array($mode_detail, ["insert","update","delete"])) {
        $sql = new SQL($db);
        $sql->set_table("dpa90_keg_keluar");
        $sql->add_param("Text_Keluar");
        $sql->add_param("Target_Keluar");
        $sql->add_param("Satuan_Keluar");
        $sql->add_where("Tahun", $thn_renja);
        $sql->add_where("DPAKegKeluarID");

        if ($mode_detail=="insert") {
            $sql->add_param("RPJMDID", $id_rpjmd);
            $sql->add_param("Tahun", $thn_renja);
            $sql->add_param("ORGID", $id_org);
            $sql->add_param("OPDID", $id_opd);
            $sql->add_param("ProgID", $id_prog);
            $sql->add_param("KegID", $id_keg);
            $sql->add_param_userid("Input_UserID");
            $sql->InsertDB();
        } else if ($mode_detail=="update") {
            $sql->add_param_stamp("Update_Stamp");
            $sql->add_param_userid("Update_UserID");
            $sql->UpdateDB();
        } else if ($mode_detail=="delete") {
            $sql->DeleteDB();
        }
    }

    $obj = new Table($db);
    $obj->set_query("SELECT *,CONCAT(TRIM(TRAILING '0' FROM CAST(Target_Keluar as CHAR))*1,' ',Satuan_Keluar) Target_Satuan FROM dpa90_keg_keluar WHERE ".$qsql."");
    $obj->add_field("DPAKegKeluarID", "ID", "hid");
    $obj->add_field("Text_Keluar", "Tolok Ukur Keluaran", "awr", "", "", "val-emptylast");
    $obj->add_field("Target_Satuan", "Target", "r");
    $obj->set_field_order("Text_Keluar", "A");
    $obj->add_row_form("Detail", "DPAJS.keg_keluar_form");
    if ($emon_en) {
        $obj->add_row_btn("trash", "Hapus", "DPAJS.keg_keluar_del");
        $obj->set_func_btn("DPAJS.keg_keluar_add", "+ Keluaran");
    }
    $ajson[] = $obj->json_table("divKegKeluar");

} else if ( $data == "tabel-keg-hasil" ) {
    if (in_array($mode_detail, ["insert","update","delete"])) {
        $sql = new SQL($db);
        $sql->set_table("dpa90_keg_hasil");
        $sql->add_param("Text_Hasil");
        $sql->add_param("Target_Hasil");
        $sql->add_param("Satuan_Hasil");
        $sql->add_where("Tahun", $thn_renja);
        $sql->add_where("DPAKegHasilID");

        if ($mode_detail=="insert") {
            $sql->add_param("RPJMDID", $id_rpjmd);
            $sql->add_param("Tahun", $thn_renja);
            $sql->add_param("ORGID", $id_org);
            $sql->add_param("OPDID", $id_opd);
            $sql->add_param("ProgID", $id_prog);
            $sql->add_param("KegID", $id_keg);
            $sql->add_param_userid("Input_UserID");
            $sql->InsertDB();
        } else if ($mode_detail=="update") {
            $sql->add_param_stamp("Update_Stamp");
            $sql->add_param_userid("Update_UserID");
            $sql->UpdateDB();
        } else if ($mode_detail=="delete") {
            $sql->DeleteDB();
        }
    }

    $obj = new Table($db);
    $obj->set_query("SELECT *,CONCAT(Target_Hasil,' ',Satuan_Hasil) Target_Satuan FROM dpa90_keg_hasil WHERE ".$qsql."");
    $obj->add_field("DPAKegHasilID", "ID", "hid");
    $obj->add_field("Text_Hasil", "Tolok Ukur Hasil", "awr", "", "", "val-emptylast");
    $obj->add_field("Target_Satuan", "Target", "r");
    $obj->set_field_order("Text_Hasil", "A");
    $obj->add_row_form("Detail", "DPAJS.keg_hasil_form");
    if ($emon_en) {
        $obj->add_row_btn("trash", "Hapus", "DPAJS.keg_hasil_del");
        $obj->set_func_btn("DPAJS.keg_hasil_add", "+ Hasil");
    }
    $ajson[] = $obj->json_table("divKegHasil");

} else if ( $data == "tabel-sub" ) {
    if (in_array($mode_detail, ["insert","update","delete"])) {
        $sql = new SQL($db);
        $sql->set_table("dpa90_sub");
        $sql->add_where("Tahun", $thn_renja);
        $sql->add_where("DPASubID");

        if ($mode_detail=="insert") {
            $sql->add_param("RPJMDID", $id_rpjmd);
            $sql->add_param("Tahun", $thn_renja);
            $sql->add_param("ORGID", $id_org);
            $sql->add_param("OPDID", $id_opd);
            $sql->add_param("ProgID", $id_prog);
            $sql->add_param("KegID", $id_keg);
            $sql->add_param("SubID", $id_sub);
            $sql->add_param("K_Sub");
            $sql->add_param_userid("Input_UserID");
            $sql->InsertDB();
        } else if ($mode_detail=="update") {
            $sql->add_param("Waktu1");
            $sql->add_param("Waktu2");
            $sql->add_param("B_Operasi");
            $sql->add_param("B_Modal");
            $sql->add_param("B_Terduga");
            $sql->add_param("B_Transfer");
            $sql->add_param("Pagu_Ini", "B_Operasi+B_Modal+B_Terduga+B_Transfer", true);
            $sql->add_param("Pagu_Dpn");
            $sql->add_param("Lokasi");
            $sql->add_param("RencK_TW1");
            $sql->add_param("RencK_TW2");
            $sql->add_param("RencK_TW3");
            $sql->add_param("RencK_TW4");
            $sql->add_param("RencF_TW1");
            $sql->add_param("RencF_TW2");
            $sql->add_param("RencF_TW3");
            $sql->add_param("RencF_TW4");
            $sql->add_param_stamp("Update_Stamp");
            $sql->add_param_userid("Update_UserID");
            $sql->UpdateDB();
        } else if ($mode_detail=="delete") {
            $sql->DeleteDB();
            $db->Query("DELETE IGNORE FROM dpa90_sub_output WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND KegID='".$id_keg."' AND SubID='".$id_sub."'");
        }
    }
    
    $obj = new Table($db);
    $obj->set_query("SELECT SR.*,M.N_Sub,CONCAT('(',M.K_Sub,') ',M.N_Sub) Nama_Sub,IF(IFNULL(I.Indi_Text,0)=0,2,IF(IFNULL(I.Indi_Text,0)=IFNULL(I.Indi_Target,0) AND SR.Renc_K>0 AND SR.Renc_F>0,0,1)) CSS_INDI,IF(IFNULL(AR.ITEM_AKUN,0)>0,0,1) DEL_SUB FROM (SELECT *,GREATEST(RencK_TW1,RencK_TW2,RencK_TW3,RencK_TW4) Renc_K,GREATEST(RencF_TW1,RencF_TW2,RencF_TW3,RencF_TW4) Renc_F FROM dpa90_sub WHERE ".$qsql.") SR LEFT JOIN (SELECT SubID,SUM(IF(Text_Output='',0,1)) Indi_Text,SUM(IF(Target_Output=0,0,1)) Indi_Target FROM dpa90_sub_output WHERE ".$qsql." GROUP BY SubID) I ON (I.SubID=SR.SubID) LEFT JOIN (SELECT SubID,COUNT(*) ITEM_AKUN FROM dpa90_akun WHERE ".$qsql." GROUP BY SubID) AR ON (AR.SubID=SR.SubID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND KegID='".$id_keg."') M ON (M.SubID=SR.SubID)");
    $obj->add_field("DPASubID", "DPAID", "hid");
    $obj->add_field("SubID", "ID", "hid");
    $obj->add_field("Nama_Sub", "Nama SUB", "hid");
    $obj->add_field("K_Sub", "Kode", "c", null, null, "dom-nomen");
    $obj->add_field("N_Sub", "Nama Sub Kegiatan", "awr");
    $obj->add_field("Pagu_Ini", "Jumlah Pagu", "r", "rupiah");
    $obj->add_field("Lokasi", "Lokasi", "awr");
    $obj->set_field_order("K_Sub", "A");
    $obj->add_row_btn("clipboard", "Detail", "DPAJS.sub_edit", "", "", "CSS_INDI", [1=>"warning",2=>"danger"]);
    if ($emon_en) {
        $obj->add_row_btn("trash", "Hapus", "DPAJS.sub_hapus", "DEL_SUB", 1);
        $obj->set_func_btn("DPAJS.sub_brow", "+ Sub Kegiatan");
    }
    $obj->add_row_btn("folder", "Akun", "DPAJS.sub_select");
    $obj->set_func_navi("DPAJS.data_query('tabel-sub')");
    $obj->set_textbtn(true);
    $ajson[] = $obj->json_table("divSUB");

} else if ( $data == "tabel-sub-output" ) {
    if (in_array($mode_detail, ["insert","update","delete"])) {
        $sql = new SQL($db);
        $sql->set_table("dpa90_sub_output");
        $sql->add_param("Text_Output");
        $sql->add_param("Target_Output");
        $sql->add_param("Satuan_Output");
        $sql->add_where("Tahun", $thn_renja);
        $sql->add_where("DPASubOutputID");

        if ($mode_detail=="insert") {
            $sql->add_param("RPJMDID", $id_rpjmd);
            $sql->add_param("Tahun", $thn_renja);
            $sql->add_param("ORGID", $id_org);
            $sql->add_param("OPDID", $id_opd);
            $sql->add_param("ProgID", $id_prog);
            $sql->add_param("KegID", $id_keg);
            $sql->add_param("SubID", $id_sub);
            $sql->add_param_userid("Input_UserID");
            $sql->InsertDB();
        } else if ($mode_detail=="update") {
            $sql->add_param_stamp("Update_Stamp");
            $sql->add_param_userid("Update_UserID");
            $sql->UpdateDB();
        } else if ($mode_detail=="delete") {
            $sql->DeleteDB();
        }
    }

    $obj = new Table($db);
    $obj->set_query("SELECT *,CONCAT(TRIM(TRAILING '0' FROM CAST(Target_Output as CHAR))*1,' ',Satuan_Output) Target_Satuan FROM dpa90_sub_output WHERE ".$qsql."");
    $obj->add_field("DPASubOutputID", "ID", "hid");
    $obj->add_field("Text_Output", "Tolok Ukur Output", "awr", "", "", "val-emptylast");
    $obj->add_field("Target_Satuan", "Target", "r");
    $obj->set_field_order("Text_Output", "A");
    $obj->add_row_form("Detail", "DPAJS.sub_output_form");
    if ($emon_en) {
        $obj->add_row_btn("trash", "Hapus", "DPAJS.sub_output_del");
        $obj->set_func_btn("DPAJS.sub_output_add", "+ Output");
    }
    $ajson[] = $obj->json_table("divSubOutput");

} else if ( $data == "tabel-akun" ) {
    if (in_array($mode_detail, ["insert","update","delete"])) {
        $sql = new SQL($db);
        $sql->set_table("dpa90_akun");
        $sql->add_param("Volume");
        $sql->add_param("SatuanID");
        $sql->add_param("Harga_Satuan");
        $sql->add_param("Pagu_Ini", "Volume*Harga_Satuan", true);
        $sql->add_param("Renc_Keu");
        $sql->add_param("Renc_Fisik");
        $sql->add_where("Tahun", $thn_renja);
        $sql->add_where("DPAAkunID");

        if ($mode_detail=="insert") {
            $k_akun = Param::Get("K_Akun");
            $db->Query("SELECT * FROM para90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['AKUN_TAHUN']."' AND AkunID='".$id_akun."' LIMIT 1");
            if ($db->Next()) $k_akun = $db->Row("K_Akun");
            $sql->add_param("RPJMDID", $id_rpjmd);
            $sql->add_param("Tahun", $thn_renja);
            $sql->add_param("ORGID", $id_org);
            $sql->add_param("OPDID", $id_opd);
            $sql->add_param("ProgID", $id_prog);
            $sql->add_param("KegID", $id_keg);
            $sql->add_param("SubID", $id_sub);
            $sql->add_param("AkunID", $id_akun);
            $sql->add_param("K_Akun", $k_akun);
            $sql->add_param_userid("Input_UserID");
            $sql->InsertDB();
        } else if ($mode_detail=="update") {
            $sql->add_param_stamp("Update_Stamp");
            $sql->add_param_userid("Update_UserID");
            $sql->UpdateDB();
        } else if ($mode_detail=="delete") {
            $sql->DeleteDB();
        }
        // update sub
        $db->Query("UPDATE dpa90_sub A, (SELECT SubID,SUM(Pagu_Ini) P1,SUM(Renc_Keu) P2,SUM(IF(LEFT(K_Akun,3)='5.1',Pagu_Ini,0)) Ope,SUM(IF(LEFT(K_Akun,3)='5.2',Pagu_Ini,0)) Modal,SUM(IF(LEFT(K_Akun,3)='5.3',Pagu_Ini,0)) Duga,SUM(IF(LEFT(K_Akun,3)='5.4',Pagu_Ini,0)) Trans FROM dpa90_akun WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."' GROUP BY SubID) B SET A.Pagu_Ini=B.P1,A.Renc_Keu=B.P2,A.B_Operasi=B.Ope,A.B_Modal=B.Modal,A.B_Terduga=B.Duga,A.B_Transfer=B.Trans WHERE A.SubID=B.SubID AND A.Tahun='".$thn_renja."' AND A.OPDID='".$id_opd."' AND A.ProgID='".$id_prog."' AND A.KegID='".$id_keg."'");
        // update keg
        $db->Query("UPDATE dpa90_keg A, (SELECT KegID,SUM(Pagu_Ini) P1,SUM(Renc_Keu) P2 FROM dpa90_sub WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' GROUP BY KegID) B SET A.Pagu_Ini=B.P1,A.Renc_Keu=B.P2 WHERE A.KegID=B.KegID AND A.Tahun='".$thn_renja."' AND A.OPDID='".$id_opd."' AND A.ProgID='".$id_prog."'");
        // update prog
        $db->Query("UPDATE dpa90_prog A, (SELECT ProgID,SUM(Pagu_Ini) P1,SUM(Renc_Keu) P2 FROM dpa90_keg WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' GROUP BY ProgID) B SET A.Pagu_Ini=B.P1,A.Renc_Keu=B.P2 WHERE A.ProgID=B.ProgID AND A.Tahun='".$thn_renja."' AND A.OPDID='".$id_opd."'");
    }

    $obj = new Table($db);
    $obj->set_query("SELECT AR.*,IF(AR.Real_Keu=0,1,0) DEL_AKUN,M.N_Akun FROM (SELECT * FROM dpa90_akun WHERE ".$qsql.") AR LEFT JOIN (SELECT * FROM para90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['AKUN_TAHUN']."') M ON (AR.AkunID=M.AkunID)");
    $obj->add_field("DPAAkunID", "DPA ID", "hid");
    $obj->add_field("AkunID", "ID", "hid");
    $obj->add_field("K_Akun", "Kode", "c");
    $obj->add_field("N_Akun", "Nama Akun", "awr");
    $obj->add_field("Renc_Keu", "Keuangan", "r", "rupiah");
    $obj->add_field("Renc_Fisik", "Fisik (%)", "r", "rupiah");
    $obj->set_field_order("K_Akun", "A");
    $obj->add_row_btn("clipboard", "Detail", "DPAJS.akun_ubah");
    if ($emon_en) {
        $obj->add_row_btn("trash", "Hapus", "DPAJS.akun_hapus", "DEL_AKUN", 1);
        $obj->set_func_btn("DPAJS.akun_tambah", "+ Akun");
    }
    $obj->set_func_navi("DPAJS.data_query('tabel-akun')");
    $obj->set_textbtn(true);
    $ajson[] = $obj->json_table("divAKUN");

} else if ( $data == "brow-prog" ) {
    $tcari = trim(Param::Get("Cari_Prog"));
    $tsql = ($tcari=="") ? "" : " AND CONCAT(K_Prog,N_Prog) LIKE '%".$tcari."%'";
    $obj = new Table($db);
    $obj->set_query("SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND K_Bidu IN (".stripslashes(Param::Get("AK_Bidu")).") AND ProgID NOT IN (SELECT ProgID FROM dpa90_prog WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."')".$tsql." GROUP BY ProgID");
    $obj->add_field("ProgID", "ID", "hid");
    $obj->add_field("K_Bidu", "K_Bidu", "hid");
    $obj->add_field("K_Prog", "Kode", "c");
    $obj->add_field("N_Prog", "Nama Program", "awr");
    $obj->set_field_order("K_Prog", "A");
    $obj->add_row_btn("save", "Pilih", "DPAJS.prog_brow_select");
    $obj->set_func_navi("DPAJS.data_query('brow-prog')");
    $ajson[] = $obj->json_table("divBrowProg");

} else if ( $data == "brow-keg" ) {
    $tcari = trim(Param::Get("Cari_Keg"));
    $tsql = ($tcari=="") ? "" : " AND CONCAT(K_Keg,N_Keg) LIKE '%".$tcari."%'";
    $obj = new Table($db);
    $obj->set_query("SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND ProgID='".$id_prog."' AND KegID NOT IN (SELECT KegID FROM dpa90_keg WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."')".$tsql." GROUP BY KegID");
    $obj->add_field("KegID", "ID", "hid");
    $obj->add_field("K_Keg", "Kode", "c");
    $obj->add_field("N_Keg", "Nama Kegiatan", "awr");
    $obj->set_field_order("K_Keg", "A");
    $obj->add_row_btn("save", "Pilih", "DPAJS.keg_brow_select");
    $obj->set_func_navi("DPAJS.data_query('brow-keg')");
    $ajson[] = $obj->json_table("divBrowKeg");

} else if ( $data == "brow-sub" ) {
    $tcari = trim(Param::Get("Cari_Sub"));
    $tsql = ($tcari=="") ? "" : " AND CONCAT(K_Sub,N_Sub) LIKE '%".$tcari."%'";
    $obj = new Table($db);
    $obj->set_query("SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."' AND SubID NOT IN (SELECT SubID FROM dpa90_sub WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."')".$tsql."");
    $obj->add_field("SubID", "ID", "hid");
    $obj->add_field("K_Sub", "Kode", "c");
    $obj->add_field("N_Sub", "Nama Sub Kegiatan", "awr");
    $obj->set_field_order("K_Sub", "A");
    $obj->add_row_btn("save", "Pilih", "DPAJS.sub_brow_select");
    $obj->set_func_navi("DPAJS.data_query('brow-sub')");
    $ajson[] = $obj->json_table("divBrowSub");

} else if ( $data == "detail-prog" ) {
    $arec = [];
    $id_dpa_prog = Param::Get("DPAProgID", 0);
    if ($id_dpa_prog > 0) {
        $db->Query("SELECT D.*,M.N_Prog FROM (SELECT * FROM dpa90_prog WHERE DPAProgID='".$id_dpa_prog."' LIMIT 1) D LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' GROUP BY ProgID) M ON (M.ProgID=D.ProgID)");
        if ($db->Next()) $arec = $db->AllRow();
    }

    $form = new Form($db);
    $tprog = $form->textarea("_", "N_Prog", $arec['N_Prog'], false, false, 2);

    echo '
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-2 col-form-label">Nama Program</label>
        <div class="col">'.$tprog.'</div>
    </div>
    <div class="row mb-1"><div class="col"><hr /><div id="divProgIndi"></div></div></div>
    <input type="hidden" id="DPAProgID" value="'.$arec['DPAProgID'].'">
    ';

} else if ( $data == "detail-prog-indi" ) {
    $arec = []; $_p_input = []; $mode_detail = "insert";
    $id_dpa_prog_indi = Param::Get("DPAProgIndiID", 0);
    if ($id_dpa_prog_indi > 0) {
        $db->Query("SELECT * FROM dpa90_prog_indi WHERE DPAProgIndiID='".$id_dpa_prog_indi."' LIMIT 1");
        if ($db->Next()) $arec = $db->AllRow();
        if ($arec['TipeDataID'] > 0) {
            $db->Query("SELECT * FROM para_tipedata WHERE TipeDataID='".$arec['TipeDataID']."' LIMIT 1");
            if ($db->Next()) $_p_input = json_decode($db->Row("P_Input", "{}"), true);
        }
        $mode_detail = "update";
    }    

    $butt = new Button();
    $butt->success("butSimpanIndi", "Simpan");

    $form = new Form($db);
    $tindi = $form->textarea("_", "Text_Indi", $arec['Text_Indi'], $emon_en, true, 2);
    $ttipe = $form->option_que("_", "TipeDataID", $arec['TipeDataID'], $emon_en, false, "SELECT TipeDataID,CONCAT(N_Tipe,' - ',JSON_UNQUOTE(JSON_KEYS(P_Input))) Nama_Tipe FROM para_tipedata WHERE Aktif=1 ORDER BY N_Tipe", ["TipeDataID","Nama_Tipe"], [0,"Numeric"], null, "DPAJS.oc_ProgTipe()");
    $ttarget = input_tipedata("Target_Indi", $arec['TipeDataID'], $arec['Target_Indi'], $emon_en, $_p_input);
    $tsatuan = $form->textbox("_", "Satuan_Indi", $arec['Satuan_Indi'], $emon_en, true, "text", "satuan");
    $ajson['html'] = '
    <div class="card"><div class="card-body">
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Text_Indi">Uraian Indikator</label>
        <div class="col">'.$tindi.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-2 col-form-label" for="TipeDataID">Tipe Data Indikator</label>
        <div class="col">'.$ttipe.'</div>
    </div>
    <div class="row">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Target_Indi">Target Indikator</label>
        <div class="col-sm-6 col-lg-3" id="inputTarget">'.$ttarget.'</div>
        <div class="col-sm-4 col-lg-3">'.$tsatuan.'</div>
        <div class="col-sm-4 col-lg-4">'.($emon_en?$butt->Button(3):'').'</div>
    </div>
    <input type="hidden" id="DPAProgIndiID" value="'.$arec['DPAProgIndiID'].'">
    <input type="hidden" id="mode_detail" value="'.$mode_detail.'">
    </div></div>
    ';

} else if ( $data == "detail-keg" ) {
    $arec = array();
    $id_dpa_keg = Param::Get("DPAKegID", 0);
    if ($id_dpa_keg > 0) {
        $db->Query("SELECT D.*,M.N_Keg FROM (SELECT * FROM dpa90_keg WHERE DPAKegID='".$id_dpa_keg."' LIMIT 1) D LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND ProgID='".$id_prog."' GROUP BY KegID) M ON (M.KegID=D.KegID)");
        if ($db->Next()) $arec = $db->AllRow();
    }

    $form = new Form($db);
    $tkeg = $form->textarea("_", "N_Keg", $arec['N_Keg'], false, false, 2);
    $tsasaran = $form->textbox("_", "Sasaran", $arec['Sasaran'], $emon_en, true, "text");

    echo '
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-2 col-form-label">Nama Kegiatan</label>
        <div class="col">'.$tkeg.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Sasaran">Sasaran Kegiatan</label>
        <div class="col">'.$tsasaran.'</div>
    </div>
    <div class="row mb-1"><div class="col"><hr /><div id="divKegKeluar"></div></div></div>
    <div class="row mb-1"><div class="col"><hr /><div id="divKegHasil"></div></div></div>
    <input type="hidden" id="DPAKegID" value="'.$arec['DPAKegID'].'">
    ';

} else if ( $data == "detail-keg-keluar" ) {
    $arec = array(); $mode_detail = "insert";
    $id_dpa_keg_keluar = Param::Get("DPAKegKeluarID", 0);
    if ($id_dpa_keg_keluar > 0) {
        $db->Query("SELECT * FROM dpa90_keg_keluar WHERE DPAKegKeluarID='".$id_dpa_keg_keluar."' LIMIT 1");
        if ($db->Next()) $arec = $db->AllRow();
        $mode_detail = "update";
    }

    $butt = new Button();
    $butt->success("butSimpanKeluar", "Simpan");

    $form = new Form($db);
    $tindi = $form->textarea("_", "Text_Keluar", $arec['Text_Keluar'], $emon_en, true, 2);
    $ttarget = $form->textbox("_", "Target_Keluar", $arec['Target_Keluar'], $emon_en, true, "double");
    $tsatuan = $form->textbox("_", "Satuan_Keluar", $arec['Satuan_Keluar'], $emon_en, true, "text", "satuan");
    $ajson['html'] = '
    <div class="card"><div class="card-body">
    <div class="row mb-2">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Text_Keluar">Tolok Ukur Keluaran</label>
        <div class="col">'.$tindi.'</div>
    </div>
    <div class="row">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Target_Keluar">Target Keluaran</label>
        <div class="col-sm-6 col-lg-3">'.$ttarget.'</div>
        <div class="col-sm-4 col-lg-3">'.$tsatuan.'</div>
        <div class="col-sm-4 col-lg-4">'.($emon_en?$butt->Button(3):'').'</div>
    </div>
    <input type="hidden" id="DPAKegKeluarID" value="'.$arec['DPAKegKeluarID'].'">
    <input type="hidden" id="mode_detail" value="'.$mode_detail.'">
    </div></div>
    ';

} else if ( $data == "detail-keg-hasil" ) {
    $arec = array(); $mode_detail = "insert";
    $id_dpa_keg_hasil = Param::Get("DPAKegHasilID", 0);
    if ($id_dpa_keg_hasil > 0) {
        $db->Query("SELECT * FROM dpa90_keg_hasil WHERE DPAKegHasilID='".$id_dpa_keg_hasil."' LIMIT 1");
        if ($db->Next()) $arec = $db->AllRow();
        $mode_detail = "update";
    }

    $butt = new Button();
    $butt->success("butSimpanHasil", "Simpan");

    $form = new Form($db);
    $tindi = $form->textarea("_", "Text_Hasil", $arec['Text_Hasil'], $emon_en, true, 2);
    $ttarget = $form->textbox("_", "Target_Hasil", $arec['Target_Hasil'], $emon_en, true, "text");
    $tsatuan = $form->textbox("_", "Satuan_Hasil", $arec['Satuan_Hasil'], $emon_en, true, "text", "satuan");
    $ajson['html'] = '
    <div class="card"><div class="card-body">
    <div class="row mb-2">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Text_Hasil">Tolok Ukur Hasil</label>
        <div class="col">'.$tindi.'</div>
    </div>
    <div class="row">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Target_Hasil">Target Hasil</label>
        <div class="col-sm-6 col-lg-3">'.$ttarget.'</div>
        <div class="col-sm-4 col-lg-3">'.$tsatuan.'</div>
        <div class="col-sm-4 col-lg-4">'.($emon_en?$butt->Button(3):'').'</div>
    </div>
    <input type="hidden" id="DPAKegHasilID" value="'.$arec['DPAKegHasilID'].'">
    <input type="hidden" id="mode_detail" value="'.$mode_detail.'">
    </div></div>
    ';

} else if ( $data == "detail-sub" ) {
    $arec = array();
    $id_dpa_sub = Param::Get("DPASubID", 0);
    if ($id_dpa_sub > 0) {
        $db->Query("SELECT D.*,M.N_Sub FROM (SELECT * FROM dpa90_sub WHERE DPASubID='".$id_dpa_sub."' LIMIT 1) D LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND KegID='".$id_keg."') M ON (M.SubID=D.SubID)");
        if ($db->Next()) $arec = $db->AllRow();
        $db->Query("SELECT Username Input_User FROM app_operator WHERE UserID='".$arec['Input_UserID']."' LIMIT 1");
        if ($db->Next()) $arec = array_merge($arec, $db->AllRow());
        $db->Query("SELECT Username Update_User FROM app_operator WHERE UserID='".$arec['Update_UserID']."' LIMIT 1");
        if ($db->Next()) $arec = array_merge($arec, $db->AllRow());
    }

    $form = new Form($db);
    $tsub = $form->textarea("_", "N_Sub", $arec['N_Sub'], false, false, 2);
    $twaktu1 = $form->option("_", "Waktu1", $arec['Waktu1'], $emon_en, true, bulan_array());
    $twaktu2 = $form->option("_", "Waktu2", $arec['Waktu2'], $emon_en, true, bulan_array());
    $tlokasi = $form->textbox("_", "Lokasi", $arec['Lokasi'], $emon_en, true, "text");
    $tb_ope = $form->textbox("_", "B_Operasi", $arec['B_Operasi'], false, false, "double", null, null, null, "DPAJS.Calc_Belanja()");
    $tb_mod = $form->textbox("_", "B_Modal", $arec['B_Modal'], false, false, "double", null, null, null, "DPAJS.Calc_Belanja()");
    $tb_dug = $form->textbox("_", "B_Terduga", $arec['B_Terduga'], false, false, "double", null, null, null, "DPAJS.Calc_Belanja()");
    $tb_trf = $form->textbox("_", "B_Transfer", $arec['B_Transfer'], false, false, "double", null, null, null, "DPAJS.Calc_Belanja()");
    $tpagu_dpn = $form->textbox("_", "Pagu_Dpn", $arec['Pagu_Dpn'], $emon_en, true, "double");
    $tj_bel = $form->textbox("_", "Jumlah_Bel", 0, false, false, "double");
    $tj_keu = $form->textbox("_", "Jumlah_RencK", 0, false, false, "double");
    $tj_fis = $form->textbox("_", "Jumlah_RencF", 0, false, false, "double");
    $tkeu1 = $form->textbox("_", "RencK_TW1", $arec['RencK_TW1'], $emon_en, true, "double", null, null, null, "DPAJS.Calc_RencK()");
    $tkeu2 = $form->textbox("_", "RencK_TW2", $arec['RencK_TW2'], $emon_en, true, "double", null, null, null, "DPAJS.Calc_RencK()");
    $tkeu3 = $form->textbox("_", "RencK_TW3", $arec['RencK_TW3'], $emon_en, true, "double", null, null, null, "DPAJS.Calc_RencK()");
    $tkeu4 = $form->textbox("_", "RencK_TW4", $arec['RencK_TW4'], $emon_en, true, "double", null, null, null, "DPAJS.Calc_RencK()");
    $tfis1 = $form->textbox("_", "RencF_TW1", $arec['RencF_TW1'], $emon_en, true, "double", null, null, null, "DPAJS.Calc_RencF()");
    $tfis2 = $form->textbox("_", "RencF_TW2", $arec['RencF_TW2'], $emon_en, true, "double", null, null, null, "DPAJS.Calc_RencF()");
    $tfis3 = $form->textbox("_", "RencF_TW3", $arec['RencF_TW3'], $emon_en, true, "double", null, null, null, "DPAJS.Calc_RencF()");
    $tfis4 = $form->textbox("_", "RencF_TW4", $arec['RencF_TW4'], $emon_en, true, "double", null, null, null, "DPAJS.Calc_RencF()");
    $tinfo = $form->plaintext("_", "Info", "Diinput : ".($arec['Input_User']??"...")." (".tgl_sql2str($arec['Input_Stamp'], true)."), Diperbaharui : ".($arec['Update_User']??"...")." (".tgl_sql2str($arec['Update_Stamp'], true).")");

    echo '<form id="formSub" novalidate="novalidate">
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-2 col-form-label">Nama Sub Kegiatan</label>
        <div class="col">'.$tsub.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Lokasi">Lokasi Kegiatan</label>
        <div class="col">'.$tlokasi.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Waktu1">Waktu Pelaksanaan</label>
        <div class="col-sm-4 col-lg-4">'.$twaktu1.'</div>
        <div class="col-sm-4 col-lg-4">'.$twaktu2.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Pagu_Dpn">Pagu Tahun N+1</label>
        <div class="col-sm-4 col-lg-4">'.$tpagu_dpn.'</div>
    </div>
    <div class="row mb-1"><div class="col"><hr class="my-1"></div></div>
    <div class="row">
        <div class="col-12 col-lg-5">
            <div class="row mb-1 text-center"><div class="col"><h5>Rincian Nilai Pagu (Rp.)</h5></div></div>
            <div class="row mb-1">
                <label class="col-sm-8 col-lg-5 col-form-label" for="B_Operasi">Belanja Operasi</label>
                <div class="col">'.$tb_ope.'</div>
            </div>
            <div class="row mb-1">
                <label class="col-sm-8 col-lg-5 col-form-label" for="B_Modal">Belanja Modal</label>
                <div class="col">'.$tb_mod.'</div>
            </div>
            <div class="row mb-1">
                <label class="col-sm-8 col-lg-5 col-form-label" for="B_Terduga">Belanja Terduga</label>
                <div class="col">'.$tb_dug.'</div>
            </div>
            <div class="row mb-1">
                <label class="col-sm-8 col-lg-5 col-form-label" for="B_Transfer">Belanja Transfer</label>
                <div class="col">'.$tb_trf.'</div>
            </div>
            <div class="row mb-1">
                <label class="col-sm-8 col-lg-5 col-form-label" for="Jumlah_Bel">JUMLAH BELANJA</label>
                <div class="col">'.$tj_bel.'</div>
            </div>
        </div>
        <div class="col-12 col-lg-7">
            <div class="row mb-1 text-center"><div class="col"><h5>Rencana Keuangan (Rp.) & Fisik (%)</h5></div></div>
            <div class="row mb-1">
                <label class="col-sm-3 col-lg-3 col-form-label" for="RencK_TW1">Triwulan I</label>
                <div class="col-sm-5 col-lg-5">'.$tkeu1.'</div>
                <div class="col-sm-4 col-lg-4"><div class="input-group"><span class="input-group-text text-fisik">Fisik TW I</span>'.$tfis1.'</div></div>
            </div>
            <div class="row mb-1">
                <label class="col-sm-3 col-lg-3 col-form-label" for="RencK_TW2">Triwulan II</label>
                <div class="col-sm-5 col-lg-5">'.$tkeu2.'</div>
                <div class="col-sm-4 col-lg-4"><div class="input-group"><span class="input-group-text text-fisik">Fisik TW II</span>'.$tfis2.'</div></div>
            </div>
            <div class="row mb-1">
                <label class="col-sm-3 col-lg-3 col-form-label" for="RencK_TW3">Triwulan III</label>
                <div class="col-sm-5 col-lg-5">'.$tkeu3.'</div>
                <div class="col-sm-4 col-lg-4"><div class="input-group"><span class="input-group-text text-fisik">Fisik TW III</span>'.$tfis3.'</div></div>
            </div>
            <div class="row mb-1">
                <label class="col-sm-3 col-lg-3 col-form-label" for="RencK_TW4">Triwulan IV</label>
                <div class="col-sm-5 col-lg-5">'.$tkeu4.'</div>
                <div class="col-sm-4 col-lg-4"><div class="input-group"><span class="input-group-text text-fisik">Fisik TW IV</span>'.$tfis4.'</div></div>
            </div>
            <div class="row mb-1">
                <label class="col-sm-3 col-lg-3 col-form-label">JUMLAH RENCANA</label>
                <div class="col-sm-5 col-lg-5">'.$tj_keu.'</div>
                <div class="col-sm-4 col-lg-4"><div class="input-group"><span class="input-group-text text-fisik">Max Fisik</span>'.$tj_fis.'</div></div>
            </div>
        </div>
    </div>
    </form>
    <div class="row mb-1"><div class="col"><hr /><div id="divSubOutput"></div></div></div>
    <div class="row mt-2"><div class="col">'.$tinfo.'</div></div>
    <input type="hidden" id="DPASubID" value="'.$arec['DPASubID'].'">
    <input type="hidden" id="mode_detail" value="'.$mode_detail.'">
    ';

} else if ( $data == "detail-sub-output" ) {
    $arec = array(); $mode_detail = "insert";
    $id_dpa_sub_output = Param::Get("DPASubOutputID", 0);
    if ($id_dpa_sub_output > 0) {
        $db->Query("SELECT * FROM dpa90_sub_output WHERE DPASubOutputID='".$id_dpa_sub_output."' LIMIT 1");
        if ($db->Next()) $arec = $db->AllRow();
        $mode_detail = "update";
    }

    $butt = new Button();
    $butt->success("butSimpanOutput", "Simpan");

    $form = new Form($db);
    $tindi = $form->textarea("_", "Text_Output", $arec['Text_Output'], $emon_en, true, 2);
    $ttarget = $form->textbox("_", "Target_Output", $arec['Target_Output'], $emon_en, true, "double");
    $tsatuan = $form->textbox("_", "Satuan_Output", $arec['Satuan_Output'], $emon_en, true, "text", "satuan");
    $ajson['html'] = '
    <div class="card"><div class="card-body">
    <div class="row mb-2">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Text_Output">Tolok Ukur Output</label>
        <div class="col">'.$tindi.'</div>
    </div>
    <div class="row">
        <label class="col-sm-4 col-lg-2 col-form-label" for="Target_Output">Target Output</label>
        <div class="col-sm-6 col-lg-3">'.$ttarget.'</div>
        <div class="col-sm-4 col-lg-3">'.$tsatuan.'</div>
        <div class="col-sm-4 col-lg-4">'.($emon_en?$butt->Button(3):'').'</div>
    </div>
    <input type="hidden" id="DPASubOutputID" value="'.$arec['DPASubOutputID'].'">
    <input type="hidden" id="mode_detail" value="'.$mode_detail.'">
    </div></div>
    ';

} else if ( $data == "detail-akun" ) {
    $adetail = array('Renc_Fisik' => 100); $mode_detail = "insert";
    $emode = $emon_en; $mode_detail = "insert";
    $qakun = " AND AkunID NOT IN (SELECT AkunID FROM dpa90_akun WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."' AND SubID='".$id_sub."')";
    $id_dpa_akun = Param::Get("DPAAkunID", 0);
    if ($id_dpa_akun > 0) {
        $emode = false;
        $db->Query("SELECT D.*,A.N_Akun FROM (SELECT * FROM dpa90_akun WHERE Tahun='".$thn_renja."' AND DPAAkunID='".$id_dpa_akun."' LIMIT 1) D LEFT JOIN para90_akun A ON (D.AkunID=A.AkunID AND A.Tahun='".$_SESSION['__WEB_APP']['AKUN_TAHUN']."')");
        if ($db->Next()) $adetail = $db->AllRow();
        $qakun = " AND AkunID='".$adetail['AkunID']."'";
        $mode_detail = "update";
    }

    $form = new Form($db);
    $f_kakun = $form->textbox("_", "K_Akun", $adetail['K_Akun'], false, false, "text");
    $f_nakun = $form->option_que("_", "AkunID", $adetail['AkunID'], $emode, $emode, "SELECT AkunID,CONCAT(K_Akun,' - ',N_Akun) Nama_Akun FROM para90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['AKUN_TAHUN']."' AND Set_Input=1".$qakun, array("AkunID","Nama_Akun"), array(0,"&nbsp;"));
    $f_vol = $form->textbox("_", "Volume", $adetail['Volume'], $emon_en, $emon_en, "double", "masukkan volume", null, null, "DPAJS.Hitung_Akun()");
    $f_satuan = $form->option_db("_", "SatuanID", $adetail['SatuanID'], $emon_en, $emon_en, "para_satuan", array("SatuanID","N_Satuan"), "Aktif=1 ORDER BY N_Satuan", array(0,"&nbsp;"));
    $f_harga = $form->textbox("_", "Harga_Satuan", $adetail['Harga_Satuan'], $emon_en, $emon_en, "double", "masukkan harga satuan", null, null, "DPAJS.Hitung_Akun()");
    $f_pagu = $form->textbox("_", "Pagu_Ini", $adetail['Pagu_Ini'], false, false, "double");
    $f_renck = $form->textbox("_", "Renc_Keu", $adetail['Renc_Keu'], $emon_en, $emon_en, "double", "masukkan rencana keuangan");
    $f_rencf = $form->textbox("_", "Renc_Fisik", $adetail['Renc_Fisik'], $emon_en, $emon_en, "double", "masukkan rencana fisik / non-fisik (default 100)");
    echo '
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label">Kode Akun</label>
        <div class="col-sm-4 col-lg-4">'.$f_kakun.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="AkunID">Nama Akun</label>
        <div class="col-sm-8 col-lg-9">'.$f_nakun.'</div>
    </div>
    <div class="row mb-1"><div class="col"><hr class="my-1"></div></div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="Volume">Volume & Satuan</label>
        <div class="col-sm-4 col-lg-4">'.$f_vol.'</div>
        <div class="col-sm-4 col-lg-5">'.$f_satuan.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="Harga_Satuan">Harga Satuan (Rp.)</label>
        <div class="col-sm-6 col-lg-6">'.$f_harga.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label">Total Dana (Rp.)</label>
        <div class="col-sm-6 col-lg-6">'.$f_pagu.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="Renc_Keu">Nilai Kontrak / Swakelola (Rp.)</label>
        <div class="col-sm-6 col-lg-6">'.$f_renck.'</div>
    </div>
    <div class="row mb-1">
        <label class="col-sm-4 col-lg-3 col-form-label" for="Catatan">Rencana Fisik / Non-Fisik (%)</label>
        <div class="col-sm-4 col-lg-4">'.$f_rencf.'</div>
    </div>
    <input type="hidden" id="DPAAkunID" value="'.$adetail['DPAAkunID'].'">
    <input type="hidden" id="mode_detail" value="'.$mode_detail.'">';

} else if ( $data == "change-tipedata" ) {
    $id_tipe = Param::Get("TipeDataID", 0);
    $indi_target = Param::Get("Target_Indi", "");
    $_p_input = [];

    if ($id_tipe > 0) {
        $db->Query("SELECT * FROM para_tipedata WHERE TipeDataID='".$id_tipe."' LIMIT 1");
        if ($db->Next()) $_p_input = json_decode($db->Row("P_Input", "{}"), true);
    }
    $ajson['html'] = input_tipedata("Target_Indi", $id_tipe, $indi_target, $emon_en, $_p_input);

} else if ( $data == "default" ) {
    echo '
    <div class="fade-in">
    <div class="card"><div class="card-header custom-style">Kelola Data DPA // Tahun Anggaran '.$thn_renja.'</div><div class="card-body">
    <div class="row mb-1">
        <div class="col">
            <div class="input-group">
                <input class="form-control" id="Nama_OPD" placeholder="Nama Perangkat Daerah" type="text" readonly>
                <input id="ORGID" type="hidden" value="0">
                <input id="OPDID" type="hidden" value="0">
                <input id="AK_Bidu" type="hidden" value="">
                <input id="K_Bidu1" type="hidden" value="">
                <input id="Hak_DPA" type="hidden" value="1">
                <button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
            </div>
        </div>
    </div>
    <div class="row mb-1">
        <div class="col">
            <div class="input-group">
                <input class="form-control" id="Nama_PROG" placeholder="Nama Program" type="text" readonly>
                <input id="ProgID" type="hidden" value="0">
                <button class="btn btn-info btn-ganti" type="button" id="butPROG"><span><i class="bi-arrow-left-right"></span></i>Program</button>
            </div>
        </div>
    </div>
    <div class="row mb-1">
        <div class="col">
            <div class="input-group">
                <input class="form-control" id="Nama_KEG" placeholder="Nama Kegiatan" type="text" readonly>
                <input id="KegID" type="hidden" value="0">
                <button class="btn btn-info btn-ganti" type="button" id="butKEG"><span><i class="bi-arrow-left-right"></span></i>Kegiatan</button>
            </div>
        </div>
    </div>
    <div class="row mb-1">
        <div class="col">
            <div class="input-group">
                <input class="form-control" id="Nama_SUB" placeholder="Nama Sub Kegiatan" type="text" readonly>
                <input id="SubID" type="hidden" value="0">
                <button class="btn btn-info btn-ganti" type="button" id="butSUB"><span><i class="bi-arrow-left-right"></span></i>Sub Kegiatan</button>
            </div>
        </div>
    </div>
    <div id="divOPD">&nbsp;</div>
    <div id="divPROG">&nbsp;</div>
    <div id="divKEG">&nbsp;</div>
    <div id="divSUB">&nbsp;</div>
    <div id="divAKUN">&nbsp;</div>
    </div></div>
    </div>';
}

send_json($ajson);
?>