set_query("SELECT K.*,M.ORGID,M.K_OPD,M.N_OPD,M.Nama_OPD,".$f_bln." Hak_Bln,".$f_tw." Hak_Tw FROM (SELECT A.OPDID,SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON,MAX(A.Real_Stamp) TGL FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql." GROUP BY OPDID) B ON (B.OPDID=A.OPDID) GROUP BY A.OPDID) K LEFT JOIN (SELECT * FROM sippd_akses_mon WHERE Tahun='".$thn_data."') H ON (H.OPDID=K.OPDID) LEFT JOIN vi_para90_opd M ON (M.OPDID=K.OPDID) WHERE M.Aktif=1"); $obj->set_query_footer("SELECT 1 OPDID,SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT 1 OPDID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql.") B ON (B.OPDID=A.OPDID)"); $obj->add_field("OPDID", "OPD", "hid"); $obj->add_field("ORGID", "ORG", "hid"); $obj->add_field("Nama_OPD", "Nama OPD", "hid"); $obj->add_field("Hak_Bln", "Hak Bln", "hid"); $obj->add_field("Hak_Tw", "Hak Tw", "hid"); $obj->add_field("K_OPD", "Kode", "c"); $obj->add_field("N_OPD", "Nama Perangkat Daerah", "awr"); //$obj->add_field("TOT_PAGU", "Jumlah Pagu", "r", "rupiah", "rupiah"); //$obj->add_field("REAL_TOTAL", "Real s/d ".substr(bulan_array()[$bln_data],0,3), "r", "rupiah", "rupiah"); $obj->add_field("REAL_PSN", "Keu. %", "r", "rupiah2", "rupiah2"); $obj->add_field("REAL_FISIK", "Fisik %", "r", "rupiah2", "rupiah2"); $obj->add_field("REAL_NON", "N-Fisik %", "r", "rupiah2", "rupiah2"); $obj->add_field("TGL", "Update", "c nwr", "sqljams", "", "val-tgljams"); $obj->set_field_order("K_OPD", "A"); $obj->add_row_btn("folder", "Program", "ValidKinerjaJS.opd_select"); $obj->set_func_navi("ValidKinerjaJS.data_query('tabel-opd')"); $obj->set_textbtn(true); $ajson[] = $obj->json_table("divOPD"); } else if ( $data == "tabel-prog" ) { if ($mode_detail=="update") { $aparam = Param::Get_Array(); $_sql = []; foreach($aparam as $key => $val) { if (strpos($key, "B_Catat_TW_") !== false) { $aid = explode("_", str_replace("B_Catat_TW_","",$key)); $_sql[$aid[1]][] = 'B_Catatan=\''.$val.'\''; } } if (count($_sql) > 0) { foreach ($_sql as $id => $val) { $db->Query("UPDATE dpa_prog_indi SET ".implode(',', $val)." WHERE Tahun='".$thn_data."' AND DPAProgIndiID='".$id."' LIMIT 1"); } } } $obj = new Table($db); $obj->set_query("SELECT K.*,M.N_Prog,CONCAT('(',M.K_Prog,') ',M.N_Prog) Nama_Prog FROM (SELECT C.DPAProgID,C.K_Prog,A.ProgID,SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON,MAX(A.Real_Stamp) TGL,IF(IFNULL(I.Indi_Text,0)=0 OR IFNULL(C.Kinerja_Ini,0)=0,2,IF(IFNULL(I.Indi_Text,0)=IFNULL(I.Indi_Target,0) AND IFNULL(I.Indi_Text,0)=IFNULL(I.Indi_Real,0),0,1)) CSS_INDI FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT ProgID,SUM(IF(Text_Indi='',0,1)) Indi_Text,SUM(IF(Poin_Target=0,0,1)) Indi_Target,SUM(IF(Poin_TW".$tw_data."=0,0,1)) Indi_Real FROM dpa_prog_indi WHERE ".$qsql." GROUP BY ProgID) I ON (I.ProgID=A.ProgID) LEFT JOIN (SELECT ProgID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql." GROUP BY ProgID) B ON (B.ProgID=A.ProgID) LEFT JOIN (SELECT *,Real_TW".$tw_data." Kinerja_Ini FROM dpa_prog WHERE".$qsql.") C ON (C.ProgID=A.ProgID) GROUP BY A.ProgID) K LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' GROUP BY ProgID) M ON (M.ProgID=K.ProgID)"); $obj->set_query_footer("SELECT SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql." GROUP BY OPDID) B ON (B.OPDID=A.OPDID)"); $obj->add_field("DPAProgID", "PID", "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_PAGU", "Jumlah Pagu", "r", "rupiah", "rupiah"); //$obj->add_field("REAL_TOTAL", "Real s/d ".substr(bulan_array()[$bln_data],0,3), "r nwr", "rupiah", "rupiah"); $obj->add_field("REAL_PSN", "Keu. %", "r", "rupiah2", "rupiah2"); $obj->add_field("REAL_FISIK", "Fisik %", "r", "rupiah2", "rupiah2"); $obj->add_field("REAL_NON", "N-Fisik %", "r", "rupiah2", "rupiah2"); $obj->add_field("TGL", "Update", "c nwr", "sqljams", "", "val-tgljams"); $obj->set_field_order("K_Prog", "A"); //$obj->add_row_btn("clipboard", "Capaian", "ValidKinerjaJS.prog_real", "", "", "CSS_INDI", [1=>"warning",2=>"danger"]); $obj->add_row_btn("check-circle", "Validasi", "ValidKinerjaJS.prog_real"); $obj->add_row_btn("folder", "Kegiatan", "ValidKinerjaJS.prog_select"); $obj->set_func_navi("ValidKinerjaJS.data_query('tabel-prog')"); $obj->set_textbtn(true); $ajson[] = $obj->json_table("divPROG"); } else if ( $data == "tabel-keg" ) { $obj = new Table($db); $obj->set_query("SELECT K.*,KR.DPAKegID,KR.K_Keg,M.N_Keg,CONCAT('(',M.K_Keg,') ',M.N_Keg) Nama_Keg FROM (SELECT A.KegID,SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON,MAX(A.Real_Stamp) TGL FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT KegID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql." GROUP BY KegID) B ON (B.KegID=A.KegID) GROUP BY A.KegID) K LEFT JOIN (SELECT * FROM dpa_keg WHERE".$qsql.") KR ON (KR.KegID=K.KegID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND ProgID='".$id_prog."' GROUP BY KegID) M ON (M.KegID=K.KegID)"); $obj->set_query_footer("SELECT SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT ProgID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql." GROUP BY ProgID) B ON (B.ProgID=A.ProgID)"); $obj->add_field("DPAKegID", "KID", "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_PAGU", "Jumlah Pagu", "r", "rupiah", "rupiah"); //$obj->add_field("REAL_TOTAL", "Real s/d ".substr(bulan_array()[$bln_data],0,3), "r", "rupiah", "rupiah"); $obj->add_field("REAL_PSN", "Keu. %", "r", "rupiah2", "rupiah2"); $obj->add_field("REAL_FISIK", "Fisik %", "r", "rupiah2", "rupiah2"); $obj->add_field("REAL_NON", "N-Fisik %", "r", "rupiah2", "rupiah2"); $obj->add_field("TGL", "Update", "c nwr", "sqljams", "", "val-tgljams"); $obj->set_field_order("K_Keg", "A"); $obj->add_row_btn("folder", "Sub Kegiatan", "ValidKinerjaJS.keg_select"); $obj->set_func_navi("ValidKinerjaJS.data_query('tabel-keg')"); $obj->set_textbtn(true); $ajson[] = $obj->json_table("divKEG"); } else if ( $data == "tabel-sub" ) { /*if ($mode_detail=="update") { $sql = new SQL($db); $sql->set_table("dpa_sub"); $sql->add_param("Real_Catatan"); $sql->add_param("Real_No_Kontrak"); $sql->add_param("Real_Pelaksana"); $sql->add_param_stamp("Real_Stamp"); $sql->add_param_userid("Real_UserID"); $sql->add_where("Tahun", $thn_data); $sql->add_where("DPASubID", $id_dpa_sub); $sql->UpdateDB(); $db->Query("UPDATE dpa_sub_output SET Real_TW".$tw_data."='".Param::Get("Real_TW")."' WHERE Tahun='".$thn_data."' AND DPASubOutputID='".Param::Get("DPASubOutputID")."' LIMIT 1"); }*/ $obj = new Table($db); $obj->set_query("SELECT K.*,SR.DPASubID,SR.K_Sub,M.N_Sub,CONCAT('(',M.K_Sub,') ',M.N_Sub) Nama_Sub FROM (SELECT A.SubID,SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON,MAX(A.Real_Stamp) TGL,IF(IFNULL(I.Indi_Text,0)=0,2,IF(IFNULL(I.Indi_Text,0)=IFNULL(I.Indi_Target,0) AND B.Real_KF>0,0,1)) CSS_INDI FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT SubID,SUM(IF(Text_Output='',0,1)) Indi_Text,SUM(IF(Target_Output=0,0,1)) Indi_Target FROM dpa_sub_output WHERE ".$qsql." GROUP BY SubID) I ON (I.SubID=A.SubID) LEFT JOIN (SELECT SubID,SUM(Renc_Keu) TOT_PAGU,GREATEST(RealK_TW".$tw_data.",RealF_TW".$tw_data.") Real_KF FROM dpa_sub WHERE".$qsql." GROUP BY SubID) B ON (B.SubID=A.SubID) GROUP BY A.SubID) K LEFT JOIN (SELECT * FROM dpa_sub WHERE".$qsql.") SR ON (SR.SubID=K.SubID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND KegID='".$id_keg."') M ON (M.SubID=K.SubID)"); $obj->set_query_footer("SELECT SUM(A.Renc_Keu) TOT_PAGU,SUM".$q_keu_lalu." REAL_LALU,SUM".$q_keu_ini." REAL_TOTAL,(SUM".$q_keu_ini."/SUM(A.Renc_Keu))*100 REAL_PSN,SUM(GREATEST".$q_fis_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_FISIK,SUM(GREATEST".$q_non_ini."*A.Renc_Keu/B.TOT_PAGU) REAL_NON FROM (SELECT * FROM dpa_akun WHERE".$qsql.") A LEFT JOIN (SELECT KegID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql." GROUP BY KegID) B ON (B.KegID=A.KegID)"); $obj->add_field("DPASubID", "SID", "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("TOT_PAGU", "Jumlah Pagu", "r", "rupiah", "rupiah"); //$obj->add_field("REAL_TOTAL", "Real s/d ".substr(bulan_array()[$bln_data],0,3), "r", "rupiah", "rupiah"); $obj->add_field("REAL_PSN", "Keu. %", "r", "rupiah2", "rupiah2"); $obj->add_field("REAL_FISIK", "Fisik %", "r", "rupiah2", "rupiah2"); $obj->add_field("REAL_NON", "N-Fisik %", "r", "rupiah2", "rupiah2"); $obj->add_field("TGL", "Update", "c nwr", "sqljams", "", "val-tgljams"); $obj->set_field_order("K_Sub", "A"); //$obj->add_row_btn("clipboard", "Kinerja", "ValidKinerjaJS.sub_ubah", "", "", "CSS_INDI", [0=>"success",1=>"warning",2=>"danger"]); //$obj->add_row_btn("folder", "Akun", "ValidKinerjaJS.sub_select"); $obj->add_row_btn("check-circle", "Validasi", "ValidKinerjaJS.sub_ubah"); $obj->set_func_navi("ValidKinerjaJS.data_query('tabel-sub')"); $obj->set_textbtn(true); $ajson[] = $obj->json_table("divSUB"); } else if ( $data == "tabel-eviden" ) { if ($mode_detail === "update") { $sql = new SQL($db); $sql->set_table("dpa_sub_eviden"); $sql->add_param("B_Catatan"); $sql->add_param("B_Valid"); $sql->add_where("Tahun", $thn_data); $sql->add_where("DPAEvidenID"); $sql->UpdateDB(); } $tbl_evi = '