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 OPDID,Hak_Renja 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", "KinerjaJS.opd_select"); $obj->set_func_navi("KinerjaJS.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, "Prog_TW_") !== false) { $aid = explode("_", str_replace("Prog_TW_","",$key)); $_sql[$aid[1]][] = 'Real_TW'.$aid[0].'=\''.($val=='0:0'?'':$val).'\''; $_sql[$aid[1]][] = 'Poin_TW'.$aid[0].'=\''.tipedata_poin($val).'\''; } if (strpos($key, "Sumber_TW_") !== false) { $aid = explode("_", str_replace("Sumber_TW_","",$key)); $_sql[$aid[1]][] = 'Sumber_Data=\''.$val.'\''; } if (strpos($key, "Catat_TW_") !== false) { $aid = explode("_", str_replace("Catat_TW_","",$key)); $_sql[$aid[1]][] = '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"); } } $q_poin = "IF(TipeDataID<2,Poin_TW1,Poin_TW1)"; if ($tw_data == 2) { $q_poin = "IF(TipeDataID<2,IF(Status_Indi='komulatif',Poin_TW1+Poin_TW2,IF(Status_Indi='rata-rata',(Poin_TW1+Poin_TW2)/2,Poin_TW2)),Poin_TW2)"; } else if ($tw_data == 3) { $q_poin = "IF(TipeDataID<2,IF(Status_Indi='komulatif',Poin_TW1+Poin_TW2+Poin_TW3,IF(Status_Indi='rata-rata',(Poin_TW1+Poin_TW2+Poin_TW3)/3,Poin_TW3)),Poin_TW3)"; } else if ($tw_data == 4) { $q_poin = "IF(TipeDataID<2,IF(Status_Indi='komulatif',Poin_TW1+Poin_TW2+Poin_TW3+Poin_TW4,IF(Status_Indi='rata-rata',(Poin_TW1+Poin_TW2+Poin_TW3+Poin_TW4)/4,Poin_TW4)),Poin_TW4)"; } $db->Query("UPDATE dpa_prog A,(SELECT ProgID,IF(Poin_Target=0,0,AVG(".$q_poin."/Poin_Target)*100) Poin FROM dpa_prog_indi WHERE Tahun='".$thn_data."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' GROUP BY ProgID) B SET A.Real_TW".$tw_data."=B.Poin WHERE A.DPAProgID='".$id_dpa_prog."'"); } $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", "KinerjaJS.prog_real", "", "", "CSS_INDI", [1=>"warning",2=>"danger"]); $obj->add_row_btn("folder", "Kegiatan", "KinerjaJS.prog_select"); $obj->set_func_navi("KinerjaJS.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", "KinerjaJS.keg_select"); $obj->set_func_navi("KinerjaJS.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", Param::Get("DPASubID",0)); $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"); /*$aparam = Param::Get_Array(); foreach($aparam as $key => $val) { if (strpos($key, "Output_TW_") !== false) { $aid = explode("_", str_replace("Output_TW_","",$key)); $db->Query("UPDATE dpa_sub_output SET Real_TW".$aid[0]."='".$val."' WHERE Tahun='".$thn_data."' AND DPASubOutputID='".$aid[1]."' LIMIT 1"); // update kinerja ke dpa_sub //$db->Query("UPDATE dpa_sub A, (SELECT IF(Real_TW1=0,0,IF(Target_Output=0,100,Real_TW1/Target_Output*100)) Kin_TW1,IF(Real_TW2=0,0,IF(Target_Output=0,100,Real_TW2/Target_Output*100)) Kin_TW2,IF(Real_TW3=0,0,IF(Target_Output=0,100,Real_TW3/Target_Output*100)) Kin_TW3,IF(Real_TW4=0,0,IF(Target_Output=0,100,Real_TW4/Target_Output*100)) Kin_TW4 FROM dpa_sub_output WHERE Tahun='".$thn_data."' AND DPASubOutputID='".$aid[1]."' LIMIT 1) B SET A.Kin_TW1=B.Kin_TW1,A.Kin_TW2=B.Kin_TW2,A.Kin_TW3=B.Kin_TW3,A.Kin_TW4=B.Kin_TW4 WHERE A.Tahun='".$thn_data."' AND DPASubID='".Param::Get("DPASubID",0)."' 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", "KinerjaJS.sub_ubah", "", "", "CSS_INDI", [0=>"success",1=>"warning",2=>"danger"]); $obj->add_row_btn("folder", "Akun", "KinerjaJS.sub_select"); $obj->set_func_navi("KinerjaJS.data_query('tabel-sub')"); $obj->set_textbtn(true); $ajson[] = $obj->json_table("divSUB"); } else if ( $data == "tabel-akun" ) { if ($mode_detail=="update") { $sql = new SQL($db); $sql->set_table("dpa_akun"); $sql->add_param("RealK_B".$bln_data, Param::Get("RealK_Bln",0)); $sql->add_param("RealF_B".$bln_data, Param::Get("RealF_Bln",0)); $sql->add_param("RealN_B".$bln_data, Param::Get("RealN_Bln",0)); $sql->add_param("Real_Keu", "RealK_B1+RealK_B2+RealK_B3+RealK_B4+RealK_B5+RealK_B6+RealK_B7+RealK_B8+RealK_B9+RealK_B10+RealK_B11+RealK_B12", true); $sql->add_param("Real_Fisik", "GREATEST(RealF_B1,RealF_B2,RealF_B3,RealF_B4,RealF_B5,RealF_B6,RealF_B7,RealF_B8,RealF_B9,RealF_B10,RealF_B11,RealF_B12)", true); $sql->add_param("Real_Non", "GREATEST(RealN_B1,RealN_B2,RealN_B3,RealN_B4,RealN_B5,RealN_B6,RealN_B7,RealN_B8,RealN_B9,RealN_B10,RealN_B11,RealN_B12)", true); $sql->add_param_stamp("Real_Stamp"); $sql->add_param_userid("Real_UserID"); $sql->add_where("Tahun", $thn_data); $sql->add_where("DPAAkunID", Param::Get("DPAAkunID",0)); $sql->UpdateDB(); // update sub $db->Query("UPDATE dpa_sub A, (SELECT SubID,SUM(Real_Keu) P1,SUM(RealK_B1+RealK_B2+RealK_B3) K1,SUM(RealK_B4+RealK_B5+RealK_B6) K2,SUM(RealK_B7+RealK_B8+RealK_B9) K3,SUM(RealK_B10+RealK_B11+RealK_B12) K4,GREATEST(RealF_B1,RealF_B2,RealF_B3) F1,GREATEST(RealF_B4,RealF_B5,RealF_B6) F2,GREATEST(RealF_B7,RealF_B8,RealF_B9) F3,GREATEST(RealF_B10,RealF_B11,RealF_B12) F4,GREATEST(RealN_B1,RealN_B2,RealN_B3) N1,GREATEST(RealN_B4,RealN_B5,RealN_B6) N2,GREATEST(RealN_B7,RealN_B8,RealN_B9) N3,GREATEST(RealN_B10,RealN_B11,RealN_B12) N4 FROM dpa_akun WHERE Tahun='".$thn_data."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."' GROUP BY SubID) B SET A.Real_Keu=B.P1,A.RealK_TW1=B.K1,A.RealK_TW2=B.K2,A.RealK_TW3=B.K3,A.RealK_TW4=B.K4,A.RealF_TW1=B.F1,A.RealF_TW2=B.F2,A.RealF_TW3=B.F3,A.RealF_TW4=B.F4,A.RealN_TW1=B.N1,A.RealN_TW2=B.N2,A.RealN_TW3=B.N3,A.RealN_TW4=B.N4 WHERE A.SubID=B.SubID AND A.Tahun='".$thn_data."' AND A.OPDID='".$id_opd."' AND A.ProgID='".$id_prog."' AND A.KegID='".$id_keg."'"); // update keg $db->Query("UPDATE dpa_keg A, (SELECT KegID,SUM(Real_Keu) P1 FROM dpa_sub WHERE Tahun='".$thn_data."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' GROUP BY KegID) B SET A.Real_Keu=B.P1 WHERE A.KegID=B.KegID AND A.Tahun='".$thn_data."' AND A.OPDID='".$id_opd."' AND A.ProgID='".$id_prog."'"); // update prog $db->Query("UPDATE dpa_prog A, (SELECT ProgID,SUM(Real_Keu) P1 FROM dpa_keg WHERE Tahun='".$thn_data."' AND OPDID='".$id_opd."' GROUP BY ProgID) B SET A.Real_Keu=B.P1 WHERE A.ProgID=B.ProgID AND A.Tahun='".$thn_data."' AND A.OPDID='".$id_opd."'"); } $obj = new Table($db); $obj->set_query("SELECT A.*,A.Renc_Keu TOT_PAGU,".$q_keu_lalu." REAL_LALU,".$q_keu_ini." REAL_TOTAL,(".$q_keu_ini."/A.Renc_Keu)*100 REAL_PSN,GREATEST".$q_fis_ini." REAL_FISIK,GREATEST".$q_non_ini." REAL_NON,M.N_Akun FROM (SELECT * FROM dpa_akun WHERE ".$qsql.") A LEFT JOIN (SELECT * FROM para90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['AKUN_TAHUN']."') M ON (M.AkunID=A.AkunID)"); $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 SubID,SUM(Renc_Keu) TOT_PAGU FROM dpa_akun WHERE".$qsql." GROUP BY SubID) B ON (B.SubID=A.SubID)"); $obj->add_field("DPAAkunID", "ID", "hid"); $obj->add_field("K_Akun", "Kode", "c"); $obj->add_field("N_Akun", "Nama Akun", "awr"); $obj->add_field("TOT_PAGU", "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("Real_Stamp", "Update", "c nwr", "sqljams", "", "val-tgljams"); $obj->set_field_order("K_Akun", "A"); if ($bln_en) { $obj->add_row_btn("clipboard", "Realisasi", "KinerjaJS.akun_ubah"); } else { $obj->add_row_btn("clipboard", "Detail", "KinerjaJS.akun_ubah"); } $obj->set_func_navi("KinerjaJS.data_query('tabel-akun')"); $obj->set_textbtn(true); $ajson[] = $obj->json_table("divAKUN"); } else if ( $data == "detail-prog" ) { $arec = []; $db->Query("SELECT * FROM dpa_prog WHERE Tahun='".$thn_data."' AND DPAProgID='".$id_dpa_prog."' LIMIT 1"); if ($db->Next()) $arec = $db->AllRow(); if ($arec['ProgID'] > 0) { $db->Query("SELECT N_Prog FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND ProgID='".$arec['ProgID']."' LIMIT 1"); if ($db->Next()) $arec = array_merge($arec, $db->AllRow()); } echo '
Capaian Indikator Program
'; $db->Query("SELECT I.*,IFNULL(T.P_Input,'{}') P_Input FROM (SELECT *,func_tipedata(TipeDataID,Target_Indi) Target_Indi2 FROM dpa_prog_indi WHERE ".$qsql.") I LEFT JOIN para_tipedata T ON (T.TipeDataID=I.TipeDataID)"); if ($db->RecordCount()==0) { echo '

Belum ada Indikator Program

'; } while ($db->Next()) { $arec = $db->AllRow(); $_p_input = (($arec['TipeDataID'] ?? 0) > 0) ? json_decode($arec['P_Input'] ?? '{}', true) : []; $_val_cap = $arec['Real_TW'.$tw_data]; $tcss = 'border '.($_val_cap==""?'border-danger':'border-success').' rounded'; $form = new Form($db); $tindi = $form->textarea('_', 'Text_Indi', $arec['Text_Indi']." (".$arec['Satuan_Indi'].')', false, false, 2); $ttarget = ''; $treal = tipedata_select("Prog_TW_".$tw_data."_".$arec['DPAProgIndiID'], $arec['TipeDataID'], $_val_cap, $tw_en, $_p_input, $tcss); $tstatus = $form->textbox('_', "Status_Indi", ucfirst($arec['Status_Indi']), false, false); $tsumb = $form->textbox('_', 'Sumber_TW_'.$tw_data.'_'.$arec['DPAProgIndiID'], $arec['Sumber_Data'], $tw_en, true, 'text', 'sumber data capaian / link / informasi pendukung'); $tcatat = $form->textbox('_', 'Catat_TW_'.$tw_data.'_'.$arec['DPAProgIndiID'], $arec['Catatan'], $tw_en, true, 'text', 'catatan atau kendala, jika ada'); $tcapaian = ""; for ($_tw = 1; $_tw < $tw_data; $_tw++) { $tcapaian .= ' / TW'.$_tw.' : '.$db->Row("Real_TW".$_tw); } echo '
'.$tindi.'
'.$ttarget.'
Status Indikator'.$tstatus.'
'.$treal.'
'.$tsumb.'
'.$tcatat.'
'; } echo ''; } else if ( $data == "detail-sub" ) { $id_dpa_sub = Param::Get("DPASubID", 0); $adetail = []; $db->Query("SELECT *,(RealK_TW1+RealK_TW2+RealK_TW3+RealK_TW4) Tot_Real FROM dpa_sub WHERE Tahun='".$thn_data."' AND DPASubID='".$id_dpa_sub."' LIMIT 1"); if ($db->Next()) $adetail = $db->AllRow(); $db->Query("SELECT N_Sub FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND SubID='".$id_sub."' LIMIT 1"); if ($db->Next()) $adetail = array_merge($adetail, $db->AllRow()); $db->Query("SELECT Username Update_User FROM app_operator WHERE UserID='".$adetail['Update_UserID']."' LIMIT 1"); if ($db->Next()) $adetail = array_merge($adetail, $db->AllRow()); $db->Query("SELECT Username Real_User FROM app_operator WHERE UserID='".$adetail['Real_UserID']."' LIMIT 1"); if ($db->Next()) $adetail = array_merge($adetail, $db->AllRow()); foreach($adetail as $_key => $_val) { if (strpos($_key, "Pagu_")!==false || strpos($_key, "RealK_")!==false || strpos($_key, "RealF_")!==false) $adetail[$_key] = doubleval($_val); } $form = new Form($db); $tkode = $form->textbox("_", "K_Sub", $adetail['K_Sub'], false, false); $tsub = $form->textarea("_", "N_Sub", $adetail['N_Sub'], false, false, 2); $tcatatan = $form->textarea("_", "Real_Catatan", $adetail['Real_Catatan'], $bln_en, false, 2); $tno_kontr = $form->textbox("_", "Real_No_Kontrak", $adetail['Real_No_Kontrak'], $bln_en, false, "text", "nomor kontrak"); $tpelak = $form->textarea("_", "Real_Pelaksana", $adetail['Real_Pelaksana'], $bln_en, false, 2, "nama pelaksana"); $tinfo = $form->textbox("_", "Informasi", "Diperbaharui oleh : ".$adetail['Update_User'].", pada : ".tgl_sql2str($adetail['Update_Stamp'], true), false, false); echo '
'.$tkode.'
'.$tsub.'

'; $aoutput = ['DPASubOutputID'=>0, 'Text_Output'=>"", 'Sasaran_Output'=>"", 'Status_Output'=>"", 'Target_Output'=>"", 'Satuan_Output'=>""]; $db->Query("SELECT * FROM dpa_sub_output WHERE ".$qsql); if ($db->Next()) $aoutput = array_merge($aoutput, $db->AllRow()); $tindi = $form->textarea("_", "Text_Indi", $aoutput['Text_Output'], false, false, 1); $tsasar = $form->textbox("_", "Sasaran_Output", $aoutput['Sasaran_Output'], false, false, "text"); $tstatus = $form->textbox("_", "Status_Indi", ucfirst($aoutput['Status_Output']), false, false, "text"); $ttarget = $form->textbox("_", "Target_Indi", (int)$aoutput['Target_Output']." ".$aoutput['Satuan_Output'], false, false, "text"); $treal = $form->textbox("_", "Real_TW", (int)$aoutput["Real_TW".$tw_data], $bln_en, true, "integer"); echo '
'.$tindi.'
'.$tsasar.'
'.$tstatus.'
'.$ttarget.'
'.$treal.''.$aoutput['Satuan_Output'].'
'; echo '

'.$tcatatan.'

'.$tno_kontr.'
'.$tpelak.'
'.$tinfo.'
'; } else if ( $data == "detail-akun" ) { $id_dpa_akun = Param::Get("DPAAkunID", 0); $adetail = ['Real_User'=>""]; $db->Query("SELECT D.*,A.N_Akun FROM (SELECT * FROM dpa_akun WHERE Tahun='".$thn_data."' 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 = array_merge($adetail, $db->AllRow()); $db->Query("SELECT Username Real_User FROM app_operator WHERE UserID='".$adetail['Real_UserID']."' LIMIT 1"); if ($db->Next()) $adetail = array_merge($adetail, $db->AllRow()); $realK_las = 0; $realK_tot = 0; $realF_las = 0; $realF_tot = 0; $realN_las = 0; $realN_tot =0; for ($x=1; $x<=$bln_data; $x++) { if ($x<$bln_data) { $realK_las += $adetail['RealK_B'.$x]; $realF_las = max($adetail['RealF_B'.$x], $realF_las); $realN_las = max($adetail['RealN_B'.$x], $realN_las); } $realK_tot += $adetail['RealK_B'.$x]; $realF_tot = max($adetail['RealF_B'.$x], $realF_las); $realN_tot = max($adetail['RealN_B'.$x], $realN_las); } $form = new Form($db); $f_kakun = $form->textbox("_", "K_Akun", $adetail['K_Akun'], false, false, "text"); $f_akun = $form->textarea("_", "N_Akun", $adetail['N_Akun'], false, false, 2); $f_pagu = $form->textbox("_", "Pagu_Ini", $adetail['Renc_Keu'], false, false, "double"); $f_k_las = $form->textbox("_", "RealK_Las", $realK_las, false, false, "double"); $f_k_bln = $form->textbox("_", "RealK_Bln", $adetail['RealK_B'.$bln_data], false, false, "double"); $f_k_tot = $form->textbox("_", "RealK_Tot", $realK_tot, $bln_en, $bln_en, "double"); $f_f_las = $form->textbox("_", "RealF_Las", $realF_las, false, false, "double"); $f_f_bln = $form->textbox("_", "RealF_Bln", $realF_tot, false, false, "double"); $f_f_tot = $form->textbox("_", "RealF_Tot", $realF_tot, $bln_en, $bln_en, "double"); $f_n_las = $form->textbox("_", "RealN_Las", $realN_las, false, false, "double"); $f_n_bln = $form->textbox("_", "RealN_Bln", $realN_tot, false, false, "double"); $f_n_tot = $form->textbox("_", "RealN_Tot", $realN_tot, $bln_en, $bln_en, "double"); $tinfo = $form->textbox("_", "Informasi", "Diperbaharui oleh : ".$adetail['Real_User'].", pada : ".tgl_sql2str($adetail['Real_Stamp'], true), false, false); echo '
'.$f_kakun.'
'.$f_akun.'
Rp'.$f_pagu.'
 
S/D BULAN LALU
BULAN '.strtoupper(bulan_array()[$bln_data]).' '.$thn_data.'
S/D BULAN '.strtoupper(bulan_array()[$bln_data]).' '.$thn_data.'
Realisasi Keuangan
'.$f_k_las.'
'.$f_k_bln.'
Rp'.$f_k_tot.'
Realisasi Fisik
'.$f_f_las.'
'.$f_f_bln.'
%'.$f_f_tot.'
Realisasi Non-Fisik
'.$f_n_las.'
'.$f_n_bln.'
%'.$f_n_tot.'
'.$tinfo.'
'; } else if ( $data == "default") { echo '
Kelola Data Realisasi Kinerja Renja OPD // Bulan '.bulan_array()[$bln_data].' '.$thn_data.'
 
 
 
 
 
'; } send_json($ajson); ?>