upgrade mengikuti dalev
This commit is contained in:
+1
-1
@@ -15,7 +15,7 @@
|
||||
|
||||
require_once(__DIR__."/../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/mysql.php");
|
||||
require_once(__DIR__."/../php/func.emonev.php");
|
||||
require_once(__DIR__."/../php/func/emonev.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/ehasil_kinerja.js
|
||||
Module : /apps/js/hasil/kinerja.js
|
||||
Desc. : JS - Laporan Evaluasi Kinerja Triwulan Per OPD
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : March 20th, 2012.
|
||||
@@ -11,7 +11,7 @@
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EHasilKinerjaJS = {
|
||||
var HasilKinerjaJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/ehasil_real.js
|
||||
Module : /apps/js/hasil/real.js
|
||||
Desc. : JS - Laporan Realisasi Bulanan Per OPD
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : March 20th, 2012.
|
||||
@@ -11,7 +11,7 @@
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EHasilRealJS = {
|
||||
var HasilRealJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
@@ -1,8 +1,8 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/tran_dpa_real.js
|
||||
Desc. : JS - Transaksi Realisasi Triwulan DPA
|
||||
Module : /apps/js/hasil/renja.js
|
||||
Desc. : JS - Evaluasi Hasil Renja
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : March 13th, 2025.
|
||||
@@ -11,7 +11,7 @@
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EHasilRenjaJS = {
|
||||
var HasilRenjaJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
@@ -1,642 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/dpa.js
|
||||
Desc. : JS - Kelola Data DPA
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : October 28th, 2011.
|
||||
Last Modified : March 14th, 2025.
|
||||
|
||||
(c) 2011 - 2025, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var DPAJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
$('#butPROG').click(function(){
|
||||
if ($('#ProgID').val()>0) this.show_hide(2);
|
||||
}.bind(this));
|
||||
$('#butKEG').click(function(){
|
||||
if ($('#KegID').val()>0) this.show_hide(3);
|
||||
}.bind(this));
|
||||
$('#butSUB').click(function(){
|
||||
if ($('#SubID').val()>0) this.show_hide(4);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divPROG').css('display', 'none'); $('#butPROG').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divKEG').css('display', 'none'); $('#butKEG').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divSUB').css('display', 'none'); $('#butSUB').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divAKUN').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#ORGID').val(0);
|
||||
$('#AK_Bidu').val('');
|
||||
$('#K_Bidu1').val('');
|
||||
$('#Nama_OPD').val('');
|
||||
$('#Hak_DPA').val(1);
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#ProgID').val(0);
|
||||
$('#Nama_PROG').val('');
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 2) {
|
||||
$('#KegID').val(0);
|
||||
$('#Nama_KEG').val('');
|
||||
$('#butPROG').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 3) {
|
||||
$('#SubID').val(0);
|
||||
$('#Nama_SUB').val('');
|
||||
$('#butKEG').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 4) {
|
||||
$('#butSUB').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divPROG').css('display', ''); this.data_query('tabel-prog'); }
|
||||
if (no == 3) { $('#divKEG').css('display', ''); this.data_query('tabel-keg'); }
|
||||
if (no == 4) { $('#divSUB').css('display', ''); this.data_query('tabel-sub'); }
|
||||
if (no == 5) { $('#divAKUN').css('display', ''); this.data_query('tabel-akun'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#ORGID').val(acell[1]);
|
||||
$('#Nama_OPD').val(acell[2]);
|
||||
$('#AK_Bidu').val(acell[3]);
|
||||
$('#K_Bidu1').val(acell[4]);
|
||||
$('#Hak_DPA').val(acell[5]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
prog_select: function(acell){
|
||||
$('#ProgID').val(acell[1]);
|
||||
$('#Nama_PROG').val(acell[2]);
|
||||
this.show_hide(3);
|
||||
},
|
||||
|
||||
prog_brow: function() {
|
||||
var _isi = new String('<div class="row mb-1"><div class="col"><div class="input-group"><input class="form-control" id="Cari_Prog" placeholder="Kunci Pencarian" type="text"><button class="btn btn-info shadow-none" type="button" id="butSearch">Cari</button><button class="btn btn-secondary shadow-none" type="button" id="butAll">Semua</button></div></div></div><div id="divBrowProg"> </div>');
|
||||
this.winBProg = FoniaJS.showWindow('BProg', 'Daftar Program', _isi, 900, '', function(){
|
||||
$('#winBProg').find('#Cari_Prog').keydown(function(e){
|
||||
var key = e.keyCode || e.which || 0;
|
||||
if (key==13 && e.target.value!='') this.data_query('brow-prog');
|
||||
}.bind(this));
|
||||
$('#winBProg').find('#butSearch').click(function(e){
|
||||
this.data_query('brow-prog');
|
||||
}.bind(this));
|
||||
$('#winBProg').find('#butAll').click(function(){
|
||||
$('#winBProg').find('#Cari_Prog').val('');
|
||||
this.data_query('brow-prog');
|
||||
}.bind(this));
|
||||
this.data_query('brow-prog');
|
||||
}.bind(this));
|
||||
},
|
||||
|
||||
prog_brow_select: function(acell) {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog','mode_detail=insert','Hak_DPA','ORGID','OPDID','K_Bidu1','ProgID='+acell[0],'K_Bidu='+acell[1],'K_Prog='+acell[2]],
|
||||
onSuccess: function(){
|
||||
FoniaJS.closeWindow(this.winBProg);
|
||||
FoniaJS.showInfo("Program baru telah ditambahkan.");
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
prog_edit: function(acell){
|
||||
$('#ProgID').val(acell[1]);
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-prog','Hak_DPA','ORGID','OPDID','ProgID','DPAProgID='+acell[0]],
|
||||
onSuccess: function(txt){
|
||||
this.winProg = FoniaJS.showWindow('Prog', 'Detail Program', txt, 1000, [{},{i:'butTutup'}], function(){
|
||||
this.data_query('tabel-prog-indi');
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
prog_indi_add: function(){
|
||||
var dt = $('#divProgIndiTabel').DataTable(), l_row;
|
||||
dt.order([1,'asc']);
|
||||
l_row = dt.row(':last');
|
||||
if (!dt.data().count() || l_row.data()[0]!=='0'){
|
||||
dt.row.add(['0','','','<a class="table-icon fon-tabel-dt" tabindex="-1" title="Detail"><i class="bi-pencil"></i></a>']).draw(true);
|
||||
l_row = dt.row(':last');
|
||||
}
|
||||
if (!l_row.child.isShown()) l_row.nodes().to$().find('.fon-tabel-dt').click();
|
||||
},
|
||||
|
||||
prog_indi_form: function(acell, div){
|
||||
new Request.JSON({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-prog-indi','Hak_DPA','ORGID','OPDID','ProgID','DPAProgIndiID='+acell[0]],
|
||||
onSuccess: (adata) => {
|
||||
$(div).html(adata.html);
|
||||
$(div).find('#butSimpanIndi').click(() => this.prog_indi_save());
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
prog_indi_del: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[1]+'"</b> ?', () => {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog-indi','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','DPAProgIndiID='+acell[0]],
|
||||
onSuccess: () => FoniaJS.showInfo('Proses hapus data sukses!')
|
||||
|
||||
}).send();
|
||||
}, 'danger');
|
||||
},
|
||||
|
||||
prog_indi_save: function(){
|
||||
if ($('#Text_Indi').val()==''){
|
||||
FoniaJS.showInfo('Mohon lengkapi data Indikator Program !');
|
||||
return false;
|
||||
}
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog-indi','mode_detail','Hak_DPA','ORGID','OPDID','ProgID','DPAProgIndiID','Text_Indi','TipeDataID','Target_Indi','Satuan_Indi'],
|
||||
onSuccess: () => FoniaJS.showInfo('Sukses menyimpan Indikator Program.')
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_select: function(acell){
|
||||
$('#KegID').val(acell[1]);
|
||||
$('#Nama_KEG').val(acell[2]);
|
||||
this.show_hide(4);
|
||||
},
|
||||
|
||||
keg_brow: function() {
|
||||
var _isi = new String('<div class="row mb-1"><div class="col"><div class="input-group"><input class="form-control" id="Cari_Keg" placeholder="Kunci Pencarian" type="text"><button class="btn btn-info shadow-none" type="button" id="butSearch">Cari</button><button class="btn btn-secondary shadow-none" type="button" id="butAll">Semua</button></div></div></div><div id="divBrowKeg"> </div>');
|
||||
this.winBKeg = FoniaJS.showWindow('BKeg', 'Daftar Kegiatan', _isi, 900, '', function(){
|
||||
$('#winBKeg').find('#Cari_Keg').keydown(function(e){
|
||||
var key = e.keyCode || e.which || 0;
|
||||
if (key==13 && e.target.value!='') this.data_query('brow-keg');
|
||||
}.bind(this));
|
||||
$('#winBKeg').find('#butSearch').click(function(e){
|
||||
this.data_query('brow-keg');
|
||||
}.bind(this));
|
||||
$('#winBKeg').find('#butAll').click(function(){
|
||||
$('#winBKeg').find('#Cari_Keg').val('');
|
||||
this.data_query('brow-keg');
|
||||
}.bind(this));
|
||||
this.data_query('brow-keg');
|
||||
}.bind(this));
|
||||
},
|
||||
|
||||
keg_brow_select: function(acell) {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','mode_detail=insert','Hak_DPA','ORGID','OPDID','ProgID','KegID='+acell[0],'K_Keg='+acell[1]],
|
||||
onSuccess: function(){
|
||||
FoniaJS.closeWindow(this.winBKeg);
|
||||
FoniaJS.showInfo("Kegiatan baru telah ditambahkan.");
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_edit: function(acell){
|
||||
$('#KegID').val(acell[1]);
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-keg','Hak_DPA','ORGID','OPDID','ProgID','KegID','DPAKegID='+acell[0]],
|
||||
onSuccess: function(txt){
|
||||
var tombol = [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}];
|
||||
if ($('#Hak_DPA').val()==0) tombol.pop();
|
||||
this.winKeg = FoniaJS.showWindow('Keg', 'Detail Kegiatan', txt, 1000, tombol, function(){
|
||||
$('#winKeg').find('#butWSimpan').click(function(){this.keg_save();}.bind(this));
|
||||
this.data_query('tabel-keg-keluar')
|
||||
this.data_query('tabel-keg-hasil')
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_keluar_add: function(){
|
||||
var dt = $('#divKegKeluarTabel').DataTable(), l_row;
|
||||
dt.order([1,'asc']);
|
||||
l_row = dt.row(':last');
|
||||
if (!dt.data().count() || l_row.data()[0]!=='0'){
|
||||
dt.row.add(['0','','','<a class="table-icon fon-tabel-dt" tabindex="-1" title="Detail"><i class="bi-pencil"></i></a>']).draw(true);
|
||||
l_row = dt.row(':last');
|
||||
}
|
||||
if (!l_row.child.isShown()) l_row.nodes().to$().find('.fon-tabel-dt').click();
|
||||
},
|
||||
|
||||
keg_keluar_form: function(acell, div){
|
||||
new Request.JSON({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-keg-keluar','Hak_DPA','ORGID','OPDID','ProgID','KegID','DPAKegKeluarID='+acell[0]],
|
||||
onSuccess: function(adata){
|
||||
$(div).html(adata.html);
|
||||
$(div).find('#butSimpanKeluar').click(function(e){
|
||||
this.keg_keluar_save();
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_keluar_del: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[1]+'"</b> ?', function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg-keluar','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','KegID','DPAKegKeluarID='+acell[0]],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Proses hapus data sukses!');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}.bind(this), 'danger');
|
||||
},
|
||||
|
||||
keg_keluar_save: function(){
|
||||
if ($('#Text_Keluar').val()==''){
|
||||
FoniaJS.showInfo('Mohon lengkapi data Keluaran Kegiatan !');
|
||||
return false;
|
||||
}
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg-keluar','mode_detail','Hak_DPA','ORGID','OPDID','ProgID','KegID','DPAKegKeluarID','Text_Keluar','Target_Keluar','Satuan_Keluar'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Sukses menyimpan Keluaran Kegiatan.');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_hasil_add: function(){
|
||||
var dt = $('#divKegHasilTabel').DataTable(), l_row;
|
||||
dt.order([1,'asc']);
|
||||
l_row = dt.row(':last');
|
||||
if (!dt.data().count() || l_row.data()[0]!=='0'){
|
||||
dt.row.add(['0','','','<a class="table-icon fon-tabel-dt" tabindex="-1" title="Detail"><i class="bi-pencil"></i></a>']).draw(true);
|
||||
l_row = dt.row(':last');
|
||||
}
|
||||
if (!l_row.child.isShown()) l_row.nodes().to$().find('.fon-tabel-dt').click();
|
||||
},
|
||||
|
||||
keg_hasil_form: function(acell, div){
|
||||
new Request.JSON({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-keg-hasil','Hak_DPA','ORGID','OPDID','ProgID','KegID','DPAKegHasilID='+acell[0]],
|
||||
onSuccess: function(adata){
|
||||
$(div).html(adata.html);
|
||||
$(div).find('#butSimpanHasil').click(function(e){
|
||||
this.keg_hasil_save();
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_hasil_del: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[1]+'"</b> ?', function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg-hasil','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','KegID','DPAKegHasilID='+acell[0]],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Proses hapus data sukses!');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}.bind(this), 'danger');
|
||||
},
|
||||
|
||||
keg_hasil_save: function(){
|
||||
if ($('#Text_Hasil').val()==''){
|
||||
FoniaJS.showInfo('Mohon lengkapi data Hasil Kegiatan !');
|
||||
return false;
|
||||
}
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg-hasil','mode_detail','Hak_DPA','ORGID','OPDID','ProgID','KegID','DPAKegHasilID','Text_Hasil','Target_Hasil','Satuan_Hasil'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Sukses menyimpan Hasil Kegiatan.');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_save: function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','mode_detail=update','Hak_DPA','ORGID','OPDID','ProgID','KegID','DPAKegID','Sasaran'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.closeWindow(this.winKeg);
|
||||
FoniaJS.showInfo('Sukses menyimpan Kegiatan.');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_select: function(acell){
|
||||
$('#SubID').val(acell[1]);
|
||||
$('#Nama_SUB').val(acell[2]);
|
||||
this.show_hide(5);
|
||||
},
|
||||
|
||||
sub_brow: function() {
|
||||
var _isi = new String('<div class="row mb-1"><div class="col"><div class="input-group"><input class="form-control" id="Cari_Sub" placeholder="Kunci Pencarian" type="text"><button class="btn btn-info shadow-none" type="button" id="butSearch">Cari</button><button class="btn btn-secondary shadow-none" type="button" id="butAll">Semua</button></div></div></div><div id="divBrowSub"> </div>');
|
||||
this.winBSub = FoniaJS.showWindow('BSub', 'Daftar Sub Kegiatan', _isi, 900, '', function(){
|
||||
$('#winBSub').find('#Cari_Sub').keydown(function(e){
|
||||
var key = e.keyCode || e.which || 0;
|
||||
if (key==13 && e.target.value!='') this.data_query('brow-sub');
|
||||
}.bind(this));
|
||||
$('#winBSub').find('#butSearch').click(function(e){
|
||||
this.data_query('brow-sub');
|
||||
}.bind(this));
|
||||
$('#winBSub').find('#butAll').click(function(){
|
||||
$('#winBSub').find('#Cari_Sub').val('');
|
||||
this.data_query('brow-sub');
|
||||
}.bind(this));
|
||||
this.data_query('brow-sub');
|
||||
}.bind(this));
|
||||
},
|
||||
|
||||
sub_brow_select: function(acell) {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub','mode_detail=insert','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID='+acell[0],'K_Sub='+acell[1]],
|
||||
onSuccess: function(){
|
||||
FoniaJS.closeWindow(this.winBSub);
|
||||
FoniaJS.showInfo("Sub Kegiatan baru telah ditambahkan.");
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_edit: function(acell){
|
||||
$('#SubID').val(acell[1]);
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-sub','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID='+acell[1],'DPASubID='+acell[0]],
|
||||
onSuccess: function(txt){
|
||||
var tombol = [{i:'butWBagi',v:'Bagi Rata Belanja ke Rencana Triwulan',c:'info'},{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}];
|
||||
if ($('#Hak_DPA').val()==0) tombol = [{},{i:'butTutup'}];
|
||||
this.winSub = FoniaJS.showWindow('Sub', 'Detail Sub Kegiatan', txt, 1000, tombol, function(){
|
||||
$('#winSub')
|
||||
.find('#butWBagi').click(function(){this.sub_bagi_triw();}.bind(this)).end()
|
||||
.find('#butWSimpan').click(function(){this.sub_save();}.bind(this));
|
||||
$('#formSub').validate({
|
||||
rules: {
|
||||
required: true,
|
||||
Waktu1: {required:true, min:1},
|
||||
Waktu2: {required:true, min:1},
|
||||
}
|
||||
});
|
||||
this.data_query('tabel-sub-output')
|
||||
this.Calc_Belanja();
|
||||
this.Calc_RencK();
|
||||
this.Calc_RencF();
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_output_add: function(){
|
||||
var dt = $('#divSubOutputTabel').DataTable(), l_row;
|
||||
dt.order([1,'asc']);
|
||||
l_row = dt.row(':last');
|
||||
if (!dt.data().count() || l_row.data()[0]!=='0'){
|
||||
dt.row.add(['0','','','<a class="table-icon fon-tabel-dt" tabindex="-1" title="Detail"><i class="bi-pencil"></i></a>']).draw(true);
|
||||
l_row = dt.row(':last');
|
||||
}
|
||||
if (!l_row.child.isShown()) l_row.nodes().to$().find('.fon-tabel-dt').click();
|
||||
},
|
||||
|
||||
sub_output_form: function(acell, div){
|
||||
new Request.JSON({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-sub-output','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubOutputID='+acell[0]],
|
||||
onSuccess: function(adata){
|
||||
$(div).html(adata.html);
|
||||
$(div).find('#butSimpanOutput').click(function(e){
|
||||
this.sub_output_save();
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_output_del: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[1]+'"</b> ?', function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub-output','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubOutputID='+acell[0]],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Proses hapus data sukses!');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}.bind(this), 'danger');
|
||||
},
|
||||
|
||||
sub_output_save: function(){
|
||||
if ($('#Text_Output').val()==''){
|
||||
FoniaJS.showInfo('Mohon lengkapi data Output Sub Kegiatan !');
|
||||
return false;
|
||||
}
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub-output','mode_detail','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubOutputID','Text_Output','Target_Output','Satuan_Output'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Sukses menyimpan Output Sub Kegiatan.');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_hapus: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[2]+'"</b> ?', function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubID='+acell[0]],
|
||||
onSuccess: function(adata){
|
||||
FoniaJS.showInfo('Proses hapus data sukses!');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}.bind(this), 'danger');
|
||||
},
|
||||
|
||||
sub_save: function(){
|
||||
$('#formSub').submit();
|
||||
if (true !== $('#formSub').validate().checkForm()) return false;
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub','mode_detail=update','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubID','Lokasi','Waktu1','Waktu2','Pagu_Dpn','B_Operasi','B_Modal','B_Terduga','B_Transfer','RencK_TW1','RencK_TW2','RencK_TW3','RencK_TW4','RencF_TW1','RencF_TW2','RencF_TW3','RencF_TW4'],
|
||||
onSuccess: function(adata){
|
||||
FoniaJS.closeWindow(this.winSub);
|
||||
FoniaJS.showInfo('Sukses menyimpan detail Sub Kegiatan.');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
akun_detail: function(mode, ID){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-akun','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPAAkunID='+ID],
|
||||
onSuccess: function(txt){
|
||||
var tombol = [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}];
|
||||
if ($('#Hak_DPA').val()==0) tombol.pop();
|
||||
this.winDAkun = FoniaJS.showWindow('DAkun', 'Detail Akun', txt, 900, tombol, function(){
|
||||
$('#winDAkun').find('#butWSimpan').click(function(){this.akun_save();}.bind(this));
|
||||
this.Hitung_Akun();
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
akun_tambah: function(){
|
||||
this.akun_detail('insert', 0);
|
||||
},
|
||||
|
||||
akun_ubah: function(acell){
|
||||
this.akun_detail('update', acell[0]);
|
||||
},
|
||||
|
||||
akun_hapus: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[3]+'"</b> ?', function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-akun','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPAAkunID='+acell[0]],
|
||||
onSuccess: function(adata){
|
||||
FoniaJS.showInfo('Proses hapus data sukses!');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}.bind(this), 'danger');
|
||||
},
|
||||
|
||||
akun_save: function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-akun','mode_detail','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','AkunID','K_Akun','Volume','SatuanID','Harga_Satuan','Renc_Keu','Renc_Fisik','DPAAkunID'],
|
||||
onSuccess: function(adata){
|
||||
FoniaJS.closeWindow(this.winDAkun);
|
||||
FoniaJS.showInfo('Sukses menyimpan detail Akun.');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-prog"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog','Hak_DPA','ORGID','OPDID']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-prog-indi"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog-indi','Hak_DPA','ORGID','OPDID','ProgID']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-keg" || tipe=="tabel-prog-indi"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data='+tipe,'Hak_DPA','ORGID','OPDID','ProgID']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-sub" || tipe=="tabel-keg-keluar" || tipe=="tabel-keg-hasil"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data='+tipe,'Hak_DPA','ORGID','OPDID','ProgID','KegID']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-akun" || tipe=="tabel-sub-output"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data='+tipe,'Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID']
|
||||
}).send();
|
||||
} else if (tipe=="brow-prog"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=brow-prog','ORGID','OPDID','AK_Bidu','Cari_Prog'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.setFocus('#Cari_Prog');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
} else if (tipe=="brow-keg"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=brow-keg','ORGID','OPDID','ProgID','Cari_Keg'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.setFocus('#Cari_Keg');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
} else if (tipe=="brow-sub"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=brow-sub','ORGID','OPDID','ProgID','KegID','Cari_Sub'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.setFocus('#Cari_Sub');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}
|
||||
},
|
||||
|
||||
sub_bagi_triw: function(){
|
||||
var dnilai = FoniaJS.StrToFloat($('#Jumlah_Bel').val());
|
||||
if (dnilai > 0) dnilai = FoniaJS.FloatToStr(dnilai / 4, 2);
|
||||
var tnilai = FoniaJS.FloatToStr(dnilai, 2);
|
||||
$('#RencK_TW1').val(tnilai);
|
||||
$('#RencK_TW2').val(tnilai);
|
||||
$('#RencK_TW3').val(tnilai);
|
||||
$('#RencK_TW4').val(tnilai);
|
||||
$('#RencF_TW1').val(25.00);
|
||||
$('#RencF_TW2').val(50.00);
|
||||
$('#RencF_TW3').val(75.00);
|
||||
$('#RencF_TW4').val(100.00);
|
||||
this.Calc_RencK();
|
||||
this.Calc_RencF();
|
||||
},
|
||||
|
||||
Calc_Belanja: function(){
|
||||
$('#Jumlah_Bel').val(FoniaJS.FloatToStr(FoniaJS.StrToFloat($('#B_Operasi').val()) + FoniaJS.StrToFloat($('#B_Modal').val()) + FoniaJS.StrToFloat($('#B_Terduga').val()) + FoniaJS.StrToFloat($('#B_Transfer').val()), 2));
|
||||
this.Check_Rencana();
|
||||
},
|
||||
|
||||
Calc_RencK: function(){
|
||||
$('#Jumlah_RencK').val(FoniaJS.FloatToStr(FoniaJS.StrToFloat($('#RencK_TW1').val()) + FoniaJS.StrToFloat($('#RencK_TW2').val()) + FoniaJS.StrToFloat($('#RencK_TW3').val()) + FoniaJS.StrToFloat($('#RencK_TW4').val()), 2));
|
||||
this.Check_Rencana();
|
||||
},
|
||||
|
||||
Calc_RencF: function(){
|
||||
$('#Jumlah_RencF').val(FoniaJS.FloatToStr(Math.max(FoniaJS.StrToFloat($('#RencF_TW1').val()), FoniaJS.StrToFloat($('#RencF_TW2').val()), FoniaJS.StrToFloat($('#RencF_TW3').val()), FoniaJS.StrToFloat($('#RencF_TW4').val())), 2));
|
||||
this.Check_Rencana();
|
||||
},
|
||||
|
||||
Check_Rencana: function(){
|
||||
var brenc = (FoniaJS.StrToFloat($('#Jumlah_Bel').val())==FoniaJS.StrToFloat($('#Jumlah_RencK').val())) ? true : false;
|
||||
var nsave = 0;
|
||||
if (FoniaJS.StrToFloat($('#Jumlah_Bel').val())==FoniaJS.StrToFloat($('#Jumlah_RencK').val())) {
|
||||
if (FoniaJS.StrToFloat($('#Jumlah_RencF').val())==100) nsave = 1;
|
||||
}
|
||||
$('#Status_Save').val(nsave);
|
||||
if (brenc){
|
||||
$('#Jumlah_RencK').removeClass('is-invalid').addClass('is-valid').prop('aria-invalid', false);
|
||||
} else {
|
||||
$('#Jumlah_RencK').removeClass('is-valid').addClass('is-invalid').prop('aria-invalid', true);
|
||||
}
|
||||
},
|
||||
|
||||
Hitung_Akun: function(){
|
||||
var harga = FoniaJS.StrToFloat($('#Harga_Satuan').val());
|
||||
var volume = FoniaJS.StrToFloat($('#Volume').val());
|
||||
$('#Pagu_Ini').val(FoniaJS.FloatToStr(harga * volume, 2));
|
||||
$('#Renc_Keu').val(FoniaJS.FloatToStr(harga * volume, 2));
|
||||
},
|
||||
|
||||
oc_ProgTipe: function(){
|
||||
new Request.JSON({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=change-tipedata','Hak_DPA','TipeDataID','Target_Indi'],
|
||||
onSuccess: (ajson) => $('#inputTarget').html(ajson.html)
|
||||
}).send();
|
||||
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,88 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/ebijak_renja.js
|
||||
Desc. : JS - Evaluasi Kebijakan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : February 19th, 2024.
|
||||
|
||||
(c) 2011 - 2024, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EBijakRenjaJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divKEG').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divKEG').css('display', ''); this.data_query('tabel-keg'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
keg_detail: function(id_k, nm_k){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-keg','OPDID','KendaliID='+id_k],
|
||||
onSuccess: function(txt){
|
||||
this.winKeg = FoniaJS.showWindow('Keg', 'Detail Pengendalian', txt, 900, [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}], function(){
|
||||
$('#winKeg').find('#butWSimpan').click(function(){this.keg_save();}.bind(this));
|
||||
$('#N_Kendali').val(nm_k);
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_ubah: function(acell){
|
||||
this.keg_detail(acell[0], acell[2]);
|
||||
},
|
||||
|
||||
keg_save: function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','OPDID','KendaliID','Sesuai','Sebab','Tindak','mode_detail=save'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Proses simpan data sukses!');
|
||||
FoniaJS.closeWindow(this.winKeg);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-keg"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','OPDID']
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,88 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/ebijak_renja.js
|
||||
Desc. : JS - Evaluasi Kebijakan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : February 19th, 2024.
|
||||
|
||||
(c) 2011 - 2024, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EBijakRenstraJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divKEG').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divKEG').css('display', ''); this.data_query('tabel-keg'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
keg_detail: function(id_k, nm_k){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-keg','OPDID','KendaliID='+id_k],
|
||||
onSuccess: function(txt){
|
||||
this.winKeg = FoniaJS.showWindow('Keg', 'Detail Pengendalian', txt, 900, [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}], function(){
|
||||
$('#winKeg').find('#butWSimpan').click(function(){this.keg_save();}.bind(this));
|
||||
$('#N_Kendali').val(nm_k);
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_ubah: function(acell){
|
||||
this.keg_detail(acell[0], acell[2]);
|
||||
},
|
||||
|
||||
keg_save: function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','OPDID','KendaliID','Sesuai','Sebab','Tindak','mode_detail=save'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Proses simpan data sukses!');
|
||||
FoniaJS.closeWindow(this.winKeg);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-keg"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','OPDID']
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,88 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/ebijak_renja.js
|
||||
Desc. : JS - Evaluasi Kebijakan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : February 19th, 2024.
|
||||
|
||||
(c) 2011 - 2024, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EBijakRKPDJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divKEG').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divKEG').css('display', ''); this.data_query('tabel-keg'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
keg_detail: function(id_k, nm_k){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-keg','OPDID','KendaliID='+id_k],
|
||||
onSuccess: function(txt){
|
||||
this.winKeg = FoniaJS.showWindow('Keg', 'Detail Pengendalian', txt, 900, [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}], function(){
|
||||
$('#winKeg').find('#butWSimpan').click(function(){this.keg_save();}.bind(this));
|
||||
$('#N_Kendali').val(nm_k);
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_ubah: function(acell){
|
||||
this.keg_detail(acell[0], acell[2]);
|
||||
},
|
||||
|
||||
keg_save: function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','OPDID','KendaliID','Sesuai','Sebab','Tindak','mode_detail=save'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Proses simpan data sukses!');
|
||||
FoniaJS.closeWindow(this.winKeg);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-keg"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','OPDID']
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,88 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/ebijak_renja.js
|
||||
Desc. : JS - Evaluasi Kebijakan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : February 19th, 2024.
|
||||
|
||||
(c) 2011 - 2024, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EBijakRPJMDJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divKEG').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divKEG').css('display', ''); this.data_query('tabel-keg'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
keg_detail: function(id_k, nm_k){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-keg','OPDID','KendaliID='+id_k],
|
||||
onSuccess: function(txt){
|
||||
this.winKeg = FoniaJS.showWindow('Keg', 'Detail Pengendalian', txt, 900, [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}], function(){
|
||||
$('#winKeg').find('#butWSimpan').click(function(){this.keg_save();}.bind(this));
|
||||
$('#N_Kendali').val(nm_k);
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_ubah: function(acell){
|
||||
this.keg_detail(acell[0], acell[2]);
|
||||
},
|
||||
|
||||
keg_save: function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','OPDID','KendaliID','Sesuai','Sebab','Tindak','mode_detail=save'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Proses simpan data sukses!');
|
||||
FoniaJS.closeWindow(this.winKeg);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-keg"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','OPDID']
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,84 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/tran_dpa_real.js
|
||||
Desc. : JS - Transaksi Realisasi Triwulan DPA
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : July 4th, 2020.
|
||||
|
||||
(c) 2011 - 2020, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EHasilRenstraJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
$('#butUPT').click(function(){
|
||||
if ($('#UPTID').val()>0) this.show_hide(2);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divUPT').css('display', 'none'); $('#butUPT').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divOUTPUT').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#UPTID').val(0);
|
||||
$('#Nama_UPT').val('');
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 2) {
|
||||
$('#butUPT').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divUPT').css('display', ''); this.data_query('tabel-upt'); }
|
||||
if (no == 3) { $('#divOUTPUT').css('display', ''); this.data_query('tabel-output'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
upt_select: function(acell){
|
||||
$('#UPTID').val(acell[0]);
|
||||
$('#Nama_UPT').val(acell[1]);
|
||||
this.show_hide(3);
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-upt"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-upt','OPDID'],
|
||||
}).send();
|
||||
} else if (tipe=="tabel-output"){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-output','OPDID','UPTID'],
|
||||
onSuccess: function(txt){
|
||||
$('#divOUTPUT').html(txt);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,84 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/tran_dpa_real.js
|
||||
Desc. : JS - Transaksi Realisasi Triwulan DPA
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : July 4th, 2020.
|
||||
|
||||
(c) 2011 - 2020, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EHasilRKPDJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
$('#butUPT').click(function(){
|
||||
if ($('#UPTID').val()>0) this.show_hide(2);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divUPT').css('display', 'none'); $('#butUPT').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divOUTPUT').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#UPTID').val(0);
|
||||
$('#Nama_UPT').val('');
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 2) {
|
||||
$('#butUPT').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divUPT').css('display', ''); this.data_query('tabel-upt'); }
|
||||
if (no == 3) { $('#divOUTPUT').css('display', ''); this.data_query('tabel-output'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
upt_select: function(acell){
|
||||
$('#UPTID').val(acell[0]);
|
||||
$('#Nama_UPT').val(acell[1]);
|
||||
this.show_hide(3);
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-upt"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-upt','OPDID'],
|
||||
}).send();
|
||||
} else if (tipe=="tabel-output"){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-output','OPDID','UPTID'],
|
||||
onSuccess: function(txt){
|
||||
$('#divOUTPUT').html(txt);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,84 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/tran_dpa_real.js
|
||||
Desc. : JS - Transaksi Realisasi Triwulan DPA
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : July 4th, 2020.
|
||||
|
||||
(c) 2011 - 2020, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var EHasilRPJMDJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
$('#butUPT').click(function(){
|
||||
if ($('#UPTID').val()>0) this.show_hide(2);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divUPT').css('display', 'none'); $('#butUPT').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divOUTPUT').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#UPTID').val(0);
|
||||
$('#Nama_UPT').val('');
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 2) {
|
||||
$('#butUPT').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divUPT').css('display', ''); this.data_query('tabel-upt'); }
|
||||
if (no == 3) { $('#divOUTPUT').css('display', ''); this.data_query('tabel-output'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
upt_select: function(acell){
|
||||
$('#UPTID').val(acell[0]);
|
||||
$('#Nama_UPT').val(acell[1]);
|
||||
this.show_hide(3);
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-upt"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-upt','OPDID'],
|
||||
}).send();
|
||||
} else if (tipe=="tabel-output"){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-output','OPDID','UPTID'],
|
||||
onSuccess: function(txt){
|
||||
$('#divOUTPUT').html(txt);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,63 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/tran_dpa_real.js
|
||||
Desc. : JS - Transaksi Realisasi Triwulan DPA
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 12th, 2017.
|
||||
|
||||
(c) 2011 - 2017, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var ELaksaRenjaJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divOUTPUT').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divOUTPUT').css('display', ''); this.data_query('tabel-output'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-output"){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-output','OPDID'],
|
||||
onSuccess: function(txt){
|
||||
$('#divOUTPUT').html(txt);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,84 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/tran_dpa_real.js
|
||||
Desc. : JS - Transaksi Realisasi Triwulan DPA
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 12th, 2017.
|
||||
|
||||
(c) 2011 - 2017, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var ELaksaRKPDJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
$('#butUPT').click(function(){
|
||||
if ($('#UPTID').val()>0) this.show_hide(2);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divUPT').css('display', 'none'); $('#butUPT').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divOUTPUT').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#UPTID').val(0);
|
||||
$('#Nama_UPT').val('');
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 2) {
|
||||
$('#butUPT').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divUPT').css('display', ''); this.data_query('tabel-upt'); }
|
||||
if (no == 3) { $('#divOUTPUT').css('display', ''); this.data_query('tabel-output'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
upt_select: function(acell){
|
||||
$('#UPTID').val(acell[0]);
|
||||
$('#Nama_UPT').val(acell[1]);
|
||||
this.show_hide(3);
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-upt"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-upt','OPDID'],
|
||||
}).send();
|
||||
} else if (tipe=="tabel-output"){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-output','OPDID','UPTID'],
|
||||
onSuccess: function(txt){
|
||||
$('#divOUTPUT').html(txt);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,84 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/tran_dpa_real.js
|
||||
Desc. : JS - Transaksi Realisasi Triwulan DPA
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 12th, 2017.
|
||||
|
||||
(c) 2011 - 2017, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var ELaksaRPJMDJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
//$('butPrint').addEvent('click', function(){this.proses_print();}.bind(this));
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
$('#butUPT').click(function(){
|
||||
if ($('#UPTID').val()>0) this.show_hide(2);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divUPT').css('display', 'none'); $('#butUPT').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divOUTPUT').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#UPTID').val(0);
|
||||
$('#Nama_UPT').val('');
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 2) {
|
||||
$('#butUPT').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divUPT').css('display', ''); this.data_query('tabel-upt'); }
|
||||
if (no == 3) { $('#divOUTPUT').css('display', ''); this.data_query('tabel-output'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
upt_select: function(acell){
|
||||
$('#UPTID').val(acell[0]);
|
||||
$('#Nama_UPT').val(acell[1]);
|
||||
this.show_hide(3);
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-upt"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-upt','OPDID'],
|
||||
}).send();
|
||||
} else if (tipe=="tabel-output"){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-output','OPDID','UPTID'],
|
||||
onSuccess: function(txt){
|
||||
$('#divOUTPUT').html(txt);
|
||||
}.bind(this)
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -0,0 +1,86 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/faktor_opd.js
|
||||
Desc. : JS - Kelola Faktor Pendukung OPD
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : May 24th, 2026.
|
||||
|
||||
(c) 2011 - 2026, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var FaktorOPDJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
$('#butOPD').click(() => {
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
});
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').addClass('d-none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divFAKTOR').addClass('d-none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#ORGID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
$('#Hak_Real').val(1);
|
||||
$('#K_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').removeClass('d-none'); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divFAKTOR').removeClass('d-none'); this.data_query('detail-faktor'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#ORGID').val(acell[1]);
|
||||
$('#Nama_OPD').val(acell[2]);
|
||||
$('#Hak_Real').val(acell[3]);
|
||||
$('#K_OPD').val(acell[4]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
faktor_save: function(){
|
||||
var _param = ['data=simpan-faktor','ORGID','OPDID','K_OPD','DalevRenjaID'];
|
||||
$(':input[id^="Pendorong_"]').each((i,e) => { _param.push(e.id); });
|
||||
$(':input[id^="Penghambat_"]').each((i,e) => { _param.push(e.id); });
|
||||
$(':input[id^="Lanjut_"]').each((i,e) => { _param.push(e.id); });
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: _param,
|
||||
onSuccess: () => {
|
||||
FoniaJS.showInfo('Sukses menyimpan Faktor Pendukung OPD.');
|
||||
this.data_query('detail-faktor');
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="detail-faktor"){
|
||||
new Request.JSON({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-faktor','Hak_Real','ORGID','OPDID'],
|
||||
onSuccess: (adata) => {
|
||||
$('#divFAKTOR').html(adata.html);
|
||||
$('#divFAKTOR')
|
||||
.find('#butBatalFaktor').click((e) => this.show_hide(1)).end()
|
||||
.find('#butSimpanFaktor').click((e) => this.faktor_save());
|
||||
}
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,135 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/tran_dpa.js
|
||||
Desc. : JS - Transaksi Input DPA
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : October 28th, 2011.
|
||||
Last Modified : February 19th, 2024.
|
||||
|
||||
(c) 2011 - 2024, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var ILaksaJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
$('#butOPD').click(function(){
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
$('#butPROG').click(function(){
|
||||
if ($('#ProgID').val()>0) this.show_hide(2);
|
||||
}.bind(this));
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divPROG').css('display', 'none'); $('#butPROG').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divKEG').css('display', 'none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#Nama_OPD').val('');
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#ProgID').val(0);
|
||||
$('#Nama_PROG').val('');
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 2) {
|
||||
$('#butPROG').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divPROG').css('display', ''); this.data_query('tabel-prog'); }
|
||||
if (no == 3) { $('#divKEG').css('display', ''); this.data_query('tabel-keg'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#Nama_OPD').val(acell[1]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
prog_select: function(acell){
|
||||
$('#ProgID').val(acell[0]);
|
||||
$('#Nama_PROG').val(acell[1]);
|
||||
this.show_hide(3);
|
||||
},
|
||||
|
||||
keg_detail: function(mode, k_rka){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-keg','mode_detail='+mode,'OPDID','UPTID','ProgID','K_RKA='+k_rka],
|
||||
onSuccess: function(txt){
|
||||
this.winKeg = FoniaJS.showWindow('Keg', 'Detail Kegiatan', txt, 900, [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}], function(){
|
||||
$('#winKeg')
|
||||
.find('#butWSimpan').click(function(){this.keg_save();}.bind(this)).end()
|
||||
.find('#butXCopyMasuk').click(function(e){
|
||||
$('#T_Masuk').val($('#Jumlah_Bel').val()); this.Check_Belanja(); this.Check_Rencana();
|
||||
}.bind(this)).end()
|
||||
.find('#butXCopyTriw').click(function(e){
|
||||
this.keg_bagi_triw();
|
||||
}.bind(this)).end()
|
||||
.find('#T_Masuk').keyup(function(e){
|
||||
this.Check_Belanja();
|
||||
this.Check_Rencana();
|
||||
}.bind(this));
|
||||
this.Calc_Belanja();
|
||||
this.Calc_RencK();
|
||||
this.Calc_RencF();
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_ubah: function(acell){
|
||||
this.keg_detail('update', acell[0]);
|
||||
},
|
||||
|
||||
keg_save: function(){
|
||||
/*if ($('#K_Keg').val()==''){
|
||||
FoniaJS.showError("Silakan input nomor Kegiatan !");
|
||||
FoniaJS.setFocus('#K_Keg');
|
||||
return false;
|
||||
}
|
||||
if (parseInt($('#Status_Save').val())==0){
|
||||
FoniaJS.showError("Tolong periksa kembali Data Anda !");
|
||||
return false;
|
||||
}
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','mode_detail','OPDID','UPTID','ProgID','RKegID','MKegID','K_RKA','K_Keg','B_Pegawai','B_Barang','B_Modal','U_Capai','T_Capai','U_Masuk','T_Masuk','U_Keluar','T_Keluar','U_Hasil','T_Hasil','RencK_TW1','RencK_TW2','RencK_TW3','RencK_TW4','RencF_TW1','RencF_TW2','RencF_TW3','RencF_TW4','Lokasi','Catatan','N_Keg'],
|
||||
onSuccess: function(){
|
||||
FoniaJS.showInfo('Proses simpan data sukses!');
|
||||
FoniaJS.closeWindow(this.winKeg);
|
||||
}.bind(this)
|
||||
}).send();*/
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-upt"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-upt','OPDID'],
|
||||
}).send();
|
||||
} else if (tipe=="tabel-prog"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog','OPDID','UPTID'],
|
||||
}).send();
|
||||
} else if (tipe=="tabel-keg"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','OPDID','UPTID','ProgID']
|
||||
}).send();
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,42 +1,42 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/dpa_real.js
|
||||
Desc. : JS - Kelola Realisasi Triwulan DPA
|
||||
Module : /apps/js/mon/kinerja.js
|
||||
Desc. : JS - Kelola Realisasi Kinerja OPD
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 14th, 2026.
|
||||
Last Modified : May 24th, 2026.
|
||||
|
||||
(c) 2011 - 2026, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var DPARealJS = {
|
||||
var KinerjaJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
$('#butOPD').click(function(){
|
||||
$('#butOPD').click(() => {
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
}.bind(this));
|
||||
$('#butPROG').click(function(){
|
||||
});
|
||||
$('#butPROG').click(() => {
|
||||
if ($('#ProgID').val()>0) this.show_hide(2);
|
||||
}.bind(this));
|
||||
$('#butKEG').click(function(){
|
||||
});
|
||||
$('#butKEG').click(() => {
|
||||
if ($('#KegID').val()>0) this.show_hide(3);
|
||||
}.bind(this));
|
||||
$('#butSUB').click(function(){
|
||||
});
|
||||
$('#butSUB').click(() => {
|
||||
if ($('#SubID').val()>0) this.show_hide(4);
|
||||
}.bind(this));
|
||||
});
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').css('display', 'none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divPROG').css('display', 'none'); $('#butPROG').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divKEG').css('display', 'none'); $('#butKEG').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divSUB').css('display', 'none'); $('#butSUB').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divAKUN').css('display', 'none');
|
||||
$('#divOPD').addClass('d-none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divPROG').addClass('d-none'); $('#butPROG').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divKEG').addClass('d-none'); $('#butKEG').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divSUB').addClass('d-none'); $('#butSUB').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divAKUN').addClass('d-none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#ORGID').val(0);
|
||||
@@ -61,11 +61,11 @@ var DPARealJS = {
|
||||
if (no <= 4) {
|
||||
$('#butSUB').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').css('display', ''); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divPROG').css('display', ''); this.data_query('tabel-prog'); }
|
||||
if (no == 3) { $('#divKEG').css('display', ''); this.data_query('tabel-keg'); }
|
||||
if (no == 4) { $('#divSUB').css('display', ''); this.data_query('tabel-sub'); }
|
||||
if (no == 5) { $('#divAKUN').css('display', ''); this.data_query('tabel-akun'); }
|
||||
if (no == 1) { $('#divOPD').removeClass('d-none'); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divPROG').removeClass('d-none'); this.data_query('tabel-prog'); }
|
||||
if (no == 3) { $('#divKEG').removeClass('d-none'); this.data_query('tabel-keg'); }
|
||||
if (no == 4) { $('#divSUB').removeClass('d-none'); this.data_query('tabel-sub'); }
|
||||
if (no == 5) { $('#divAKUN').removeClass('d-none'); this.data_query('tabel-akun'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
@@ -90,7 +90,7 @@ var DPARealJS = {
|
||||
onSuccess: (txt) => {
|
||||
var tombol = [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}];
|
||||
if ($('#Hak_Real').val()==0) tombol.pop();
|
||||
this.winProg = FoniaJS.showWindow('Prog', 'Detail Capaian Program', txt, 1000, tombol, () => {
|
||||
this.winProg = FoniaJS.showWindow('Prog', 'Detail Capaian Program', txt, 'xl', tombol, () => {
|
||||
$('#winProg').find('#butWSimpan').click(() => this.prog_save());
|
||||
});
|
||||
}
|
||||
@@ -98,17 +98,7 @@ var DPARealJS = {
|
||||
},
|
||||
|
||||
prog_save: function(){
|
||||
var bnsave = false;
|
||||
if ($('select[id^="Prog_TW_"]').length){
|
||||
$('select[id^="Prog_TW_"]').each((i,e) => {
|
||||
if (e.value == '') bnsave = true;
|
||||
});
|
||||
}
|
||||
if (bnsave){
|
||||
FoniaJS.showError('Mohon Pilih Capaian Indikator TW Ini.');
|
||||
return false;
|
||||
}
|
||||
var _param = ['data=tabel-prog','mode_detail=update','Hak_Real','ORGID','OPDID','ProgID','DPAProgID','Real_Kendala','Real_Tindak','Real_Bantu'];
|
||||
var _param = ['data=tabel-prog','mode_detail=update','Hak_Real','ORGID','OPDID','ProgID','DPAProgID'];
|
||||
$(':input[id^="Prog_TW_"]').each((i,e) => { _param.push(e.id); });
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
@@ -126,35 +116,6 @@ var DPARealJS = {
|
||||
this.show_hide(4);
|
||||
},
|
||||
|
||||
keg_real: function(acell){
|
||||
$('#KegID').val(acell[1]);
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-keg','Hak_Real','ORGID','OPDID','ProgID','KegID','DPAKegID='+acell[0]],
|
||||
onSuccess: function(txt){
|
||||
var tombol = [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}];
|
||||
if ($('#Hak_Real').val()==0) tombol.pop();
|
||||
this.winKeg = FoniaJS.showWindow('Keg', 'Detail Kinerja Kegiatan', txt, 1000, tombol, function(){
|
||||
$('#winKeg').find('#butWSimpan').click(function(){this.keg_save();}.bind(this));
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_save: function(){
|
||||
var _param = ['data=tabel-keg','mode_detail=update','Hak_Real','ORGID','OPDID','ProgID','KegID','DPAKegID','Real_Kendala','Real_Tindak','Real_Bantu'];
|
||||
$('input[id^="Keluar_TW_"]').each((i,e) => { _param.push(e.id); });
|
||||
$('input[id^="Hasil_TW_"]').each((i,e) => { _param.push(e.id); });
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: _param,
|
||||
onSuccess: function(){
|
||||
FoniaJS.closeWindow(this.winKeg);
|
||||
FoniaJS.showInfo('Sukses menyimpan Kinerja Kegiatan.');
|
||||
}.bind(this)
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_select: function(acell){
|
||||
$('#SubID').val(acell[1]);
|
||||
$('#Nama_SUB').val(acell[2]);
|
||||
@@ -166,26 +127,26 @@ var DPARealJS = {
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-sub','Hak_Real','ORGID','OPDID','ProgID','KegID','SubID='+acell[1],'DPASubID='+acell[0]],
|
||||
onSuccess: function(txt){
|
||||
onSuccess: (txt) => {
|
||||
var tombol = [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}];
|
||||
if ($('#Hak_Real').val()==0) tombol.pop();
|
||||
this.winDSub = FoniaJS.showWindow('DSub', 'Kinerja dan Informasi Sub Kegiatan', txt, 900, tombol, function(){
|
||||
$('#winDSub').find('#butWSimpan').click(function(){this.sub_save();}.bind(this));
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
this.winDSub = FoniaJS.showWindow('DSub', 'Kinerja dan Informasi Sub Kegiatan', txt, 'xl', tombol, () => {
|
||||
$('#winDSub').find('#butWSimpan').click(() => this.sub_save());
|
||||
});
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_save: function(){
|
||||
var _param = ['data=tabel-sub','Hak_Real','ORGID','OPDID','ProgID','KegID','SubID','DPASubID','Real_Kendala','Real_Tindak','Real_Bantu','Real_No_Kontrak','Real_Pelaksana','mode_detail=update'];
|
||||
$('input[id^="Output_TW_"]').each((i,e) => { _param.push(e.id); });
|
||||
var _param = ['data=tabel-sub','Hak_Real','ORGID','OPDID','ProgID','KegID','SubID','DPASubID','Real_Catatan','Real_No_Kontrak','Real_Pelaksana','mode_detail=update'];
|
||||
$(':input[id^="Output_TW_"]').each((i,e) => { _param.push(e.id); });
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: _param,
|
||||
onSuccess: function(){
|
||||
onSuccess: () => {
|
||||
FoniaJS.closeWindow(this.winDSub);
|
||||
FoniaJS.showInfo('Sukses menyimpan Kinerja Sub Kegiatan.');
|
||||
}.bind(this)
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
@@ -193,27 +154,27 @@ var DPARealJS = {
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-akun','Hak_Real','ORGID','OPDID','ProgID','KegID','SubID','DPAAkunID='+acell[0]],
|
||||
onSuccess: function(txt){
|
||||
onSuccess: (txt) => {
|
||||
var tombol = [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}];
|
||||
if ($('#Hak_Real').val()==0) tombol.pop();
|
||||
this.winDAkun = FoniaJS.showWindow('DAkun', 'Detail Akun', txt, 900, tombol, function(){
|
||||
this.winDAkun = FoniaJS.showWindow('DAkun', 'Detail Akun', txt, 'xl', tombol, () => {
|
||||
$('#winDAkun')
|
||||
.find('#butWSimpan').click(function(){this.akun_save();}.bind(this)).end()
|
||||
.find('#RealK_Tot').keyup(function(e){
|
||||
.find('#butWSimpan').click(() => this.akun_save()).end()
|
||||
.find('#RealK_Tot').keyup((e) => {
|
||||
this.oc_RealK();
|
||||
if ((e.keyCode || e.which || 0)==13) FoniaJS.setFocus('#RealF_Tot');
|
||||
}.bind(this)).attr('title', 'Total Realisasi Keuangan S/D Bulan ini !').end()
|
||||
.find('#RealF_Tot').keyup(function(e){
|
||||
}).attr('title', 'Total Realisasi Keuangan S/D Bulan ini !').end()
|
||||
.find('#RealF_Tot').keyup((e) => {
|
||||
this.oc_RealF();
|
||||
if ((e.keyCode || e.which || 0)==13) FoniaJS.setFocus('#RealN_Tot');
|
||||
}.bind(this)).attr('title', 'Total Realisasi Fisik S/D Bulan ini !').end()
|
||||
.find('#RealN_Tot').keyup(function(e){
|
||||
}).attr('title', 'Total Realisasi Fisik S/D Bulan ini !').end()
|
||||
.find('#RealN_Tot').keyup((e) => {
|
||||
this.oc_RealN();
|
||||
if ((e.keyCode || e.which || 0)==13) $('#winDAkun').find('#butWSimpan').focus();
|
||||
}.bind(this)).attr('title', 'Total Realisasi Non-Fisik S/D Bulan ini !').end()
|
||||
}).attr('title', 'Total Realisasi Non-Fisik S/D Bulan ini !').end()
|
||||
if (parseInt($('#Hak_Real').val())==1) FoniaJS.setFocus('#RealK_Tot');
|
||||
}.bind(this));
|
||||
}.bind(this)
|
||||
});
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
@@ -235,10 +196,10 @@ var DPARealJS = {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-akun','mode_detail=update','Hak_Real','ORGID','OPDID','ProgID','KegID','SubID','DPAAkunID','AkunID','RealK_Bln','RealF_Bln','RealN_Bln'],
|
||||
onSuccess: function(adata){
|
||||
onSuccess: (adata) => {
|
||||
FoniaJS.closeWindow(this.winDAkun);
|
||||
FoniaJS.showInfo('Sukses menyimpan Realisasi Akun.');
|
||||
}.bind(this)
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
@@ -0,0 +1,473 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/renja.js
|
||||
Desc. : JS - Kelola Data Renja OPD
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : October 28th, 2011.
|
||||
Last Modified : May 24th, 2026.
|
||||
|
||||
(c) 2011 - 2026, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var RenjaJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
$('#butOPD').click(() => {
|
||||
if ($('#OPDID').val()>0) this.show_hide(1);
|
||||
});
|
||||
$('#butPROG').click(() => {
|
||||
if ($('#ProgID').val()>0) this.show_hide(2);
|
||||
});
|
||||
$('#butKEG').click(() => {
|
||||
if ($('#KegID').val()>0) this.show_hide(3);
|
||||
});
|
||||
$('#butSUB').click(() => {
|
||||
if ($('#SubID').val()>0) this.show_hide(4);
|
||||
});
|
||||
this.show_hide(1);
|
||||
},
|
||||
|
||||
show_hide: function(no){
|
||||
$('#divOPD').addClass('d-none'); $('#butOPD').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divPROG').addClass('d-none'); $('#butPROG').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divKEG').addClass('d-none'); $('#butKEG').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divSUB').addClass('d-none'); $('#butSUB').removeClass('btn-secondary').addClass('btn-info');
|
||||
$('#divAKUN').addClass('d-none');
|
||||
if (no == 1) {
|
||||
$('#OPDID').val(0);
|
||||
$('#ORGID').val(0);
|
||||
$('#AK_Bidu').val('');
|
||||
$('#K_Bidu1').val('');
|
||||
$('#Nama_OPD').val('');
|
||||
$('#Hak_DPA').val(1);
|
||||
}
|
||||
if (no <= 1) {
|
||||
$('#ProgID').val(0);
|
||||
$('#Nama_PROG').val('');
|
||||
$('#butOPD').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 2) {
|
||||
$('#KegID').val(0);
|
||||
$('#Nama_KEG').val('');
|
||||
$('#butPROG').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 3) {
|
||||
$('#SubID').val(0);
|
||||
$('#Nama_SUB').val('');
|
||||
$('#butKEG').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no <= 4) {
|
||||
$('#butSUB').removeClass('btn-info').addClass('btn-secondary');
|
||||
}
|
||||
if (no == 1) { $('#divOPD').removeClass('d-none'); this.data_query('tabel-opd'); }
|
||||
if (no == 2) { $('#divPROG').removeClass('d-none'); this.data_query('tabel-prog'); }
|
||||
if (no == 3) { $('#divKEG').removeClass('d-none'); this.data_query('tabel-keg'); }
|
||||
if (no == 4) { $('#divSUB').removeClass('d-none'); this.data_query('tabel-sub'); }
|
||||
if (no == 5) { $('#divAKUN').removeClass('d-none'); this.data_query('tabel-akun'); }
|
||||
},
|
||||
|
||||
opd_select: function(acell){
|
||||
$('#OPDID').val(acell[0]);
|
||||
$('#ORGID').val(acell[1]);
|
||||
$('#Nama_OPD').val(acell[2]);
|
||||
$('#AK_Bidu').val(acell[3]);
|
||||
$('#K_Bidu1').val(acell[4]);
|
||||
$('#Hak_DPA').val(acell[5]);
|
||||
this.show_hide(2);
|
||||
},
|
||||
|
||||
prog_select: function(acell){
|
||||
$('#ProgID').val(acell[1]);
|
||||
$('#Nama_PROG').val(acell[2]);
|
||||
this.show_hide(3);
|
||||
},
|
||||
|
||||
prog_brow: function() {
|
||||
var _isi = new String('<div class="row mb-1"><div class="col"><div class="input-group"><input class="form-control" id="Cari_Prog" placeholder="Kunci Pencarian" type="text"><button class="btn btn-info shadow-none" type="button" id="butSearch">Cari</button><button class="btn btn-secondary shadow-none" type="button" id="butAll">Semua</button></div></div></div><div id="divBrowProg"> </div>');
|
||||
this.winBProg = FoniaJS.showWindow('BProg', 'Daftar Program', _isi, 900, '', () => {
|
||||
$('#winBProg')
|
||||
.find('#Cari_Prog').keydown((e) => {
|
||||
var key = e.keyCode || e.which || 0;
|
||||
if (key==13 && e.target.value!='') this.data_query('brow-prog');
|
||||
}).end()
|
||||
.find('#butSearch').click((e) => {
|
||||
this.data_query('brow-prog');
|
||||
}).end()
|
||||
.find('#butAll').click(() => {
|
||||
$('#winBProg').find('#Cari_Prog').val('');
|
||||
this.data_query('brow-prog');
|
||||
});
|
||||
this.data_query('brow-prog');
|
||||
});
|
||||
},
|
||||
|
||||
prog_brow_select: function(acell) {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog','mode_detail=insert','Hak_DPA','ORGID','OPDID','K_Bidu1','ProgID='+acell[0],'K_Bidu='+acell[1],'K_Prog='+acell[2]],
|
||||
onSuccess: () => {
|
||||
FoniaJS.closeWindow(this.winBProg);
|
||||
FoniaJS.showInfo("Program baru telah ditambahkan.");
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
prog_edit: function(acell){
|
||||
$('#ProgID').val(acell[1]);
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-prog','Hak_DPA','ORGID','OPDID','ProgID','DPAProgID='+acell[0]],
|
||||
onSuccess: (txt) => {
|
||||
this.winProg = FoniaJS.showWindow('Prog', 'Detail Program', txt, 'xl', [{},{i:'butTutup'}], () => {
|
||||
this.data_query('tabel-prog-indi');
|
||||
});
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
prog_indi_batal: function(){
|
||||
var dt = $('#divProgIndiTabel').DataTable(), tr, l_row;
|
||||
tr = $('#butBatalIndi').closest('tr');
|
||||
l_row = dt.row(tr.prev('tr'));
|
||||
if (l_row.child.isShown()) l_row.nodes().to$().find('.fon-tabel-dt').click();
|
||||
if (l_row.data()[0]=='0') l_row.remove().draw(true);
|
||||
},
|
||||
|
||||
prog_indi_add: function(){
|
||||
var dt = $('#divProgIndiTabel').DataTable(), l_row;
|
||||
dt.order([1,'asc']);
|
||||
l_row = dt.row(':last');
|
||||
if (!dt.data().count() || l_row.data()[0]!=='0'){
|
||||
dt.row.add(['0','','','','<a class="table-icon fon-tabel-dt" tabindex="-1" title="Detail"><i class="bi-plus-circle-dotted"></i></a>']).draw(true);
|
||||
l_row = dt.row(':last');
|
||||
}
|
||||
if (!l_row.child.isShown()) l_row.nodes().to$().find('.fon-tabel-dt').click();
|
||||
},
|
||||
|
||||
prog_indi_form: function(acell, div){
|
||||
new Request.JSON({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-prog-indi','Hak_DPA','ORGID','OPDID','ProgID','DPAProgIndiID='+acell[0]],
|
||||
onSuccess: (adata) => {
|
||||
$(div).html(adata.html);
|
||||
$(div)
|
||||
.find('#butSimpanIndi').click(() => this.prog_indi_save()).end()
|
||||
.find('#butBatalIndi').click(() => this.prog_indi_batal());
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
prog_indi_del: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[1]+'"</b> ?', () => {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog-indi','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','DPAProgIndiID='+acell[0]],
|
||||
onSuccess: () => FoniaJS.showInfo('Proses hapus data sukses!')
|
||||
}).send();
|
||||
}, 'danger');
|
||||
},
|
||||
|
||||
prog_indi_save: function(){
|
||||
if ($('#Text_Indi').val()==''){
|
||||
FoniaJS.showInfo('Mohon lengkapi data Indikator Program !');
|
||||
return false;
|
||||
}
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog-indi','mode_detail','Hak_DPA','ORGID','OPDID','ProgID','DPAProgIndiID','TipeDataID','Status_Indi','Text_Indi','Target_Indi','Satuan_Indi'],
|
||||
onSuccess: () => FoniaJS.showInfo('Sukses menyimpan Indikator Program.')
|
||||
}).send();
|
||||
},
|
||||
|
||||
keg_select: function(acell){
|
||||
$('#KegID').val(acell[1]);
|
||||
$('#Nama_KEG').val(acell[2]);
|
||||
this.show_hide(4);
|
||||
},
|
||||
|
||||
keg_brow: function() {
|
||||
var _isi = new String('<div class="row mb-1"><div class="col"><div class="input-group"><input class="form-control" id="Cari_Keg" placeholder="Kunci Pencarian" type="text"><button class="btn btn-info shadow-none" type="button" id="butSearch">Cari</button><button class="btn btn-secondary shadow-none" type="button" id="butAll">Semua</button></div></div></div><div id="divBrowKeg"> </div>');
|
||||
this.winBKeg = FoniaJS.showWindow('BKeg', 'Daftar Kegiatan', _isi, 'xl', '', () => {
|
||||
$('#winBKeg')
|
||||
.find('#Cari_Keg').keydown((e) => {
|
||||
var key = e.keyCode || e.which || 0;
|
||||
if (key==13 && e.target.value!='') this.data_query('brow-keg');
|
||||
}).end()
|
||||
.find('#butSearch').click((e) => {
|
||||
this.data_query('brow-keg');
|
||||
}).end()
|
||||
.find('#butAll').click(() => {
|
||||
$('#winBKeg').find('#Cari_Keg').val('');
|
||||
this.data_query('brow-keg');
|
||||
});
|
||||
this.data_query('brow-keg');
|
||||
});
|
||||
},
|
||||
|
||||
keg_brow_select: function(acell) {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-keg','mode_detail=insert','Hak_DPA','ORGID','OPDID','ProgID','KegID='+acell[0],'K_Keg='+acell[1]],
|
||||
onSuccess: () => {
|
||||
FoniaJS.closeWindow(this.winBKeg);
|
||||
FoniaJS.showInfo("Kegiatan baru telah ditambahkan.");
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_select: function(acell){
|
||||
$('#SubID').val(acell[1]);
|
||||
$('#Nama_SUB').val(acell[2]);
|
||||
this.show_hide(5);
|
||||
},
|
||||
|
||||
sub_brow: function() {
|
||||
var _isi = new String('<div class="row mb-1"><div class="col"><div class="input-group"><input class="form-control" id="Cari_Sub" placeholder="Kunci Pencarian" type="text"><button class="btn btn-info shadow-none" type="button" id="butSearch">Cari</button><button class="btn btn-secondary shadow-none" type="button" id="butAll">Semua</button></div></div></div><div id="divBrowSub"> </div>');
|
||||
this.winBSub = FoniaJS.showWindow('BSub', 'Daftar Sub Kegiatan', _isi, 'xl', '', () => {
|
||||
$('#winBSub')
|
||||
.find('#Cari_Sub').keydown((e) => {
|
||||
var key = e.keyCode || e.which || 0;
|
||||
if (key==13 && e.target.value!='') this.data_query('brow-sub');
|
||||
}).end()
|
||||
.find('#butSearch').click((e) => {
|
||||
this.data_query('brow-sub');
|
||||
}).end()
|
||||
.find('#butAll').click(() => {
|
||||
$('#winBSub').find('#Cari_Sub').val('');
|
||||
this.data_query('brow-sub');
|
||||
});
|
||||
this.data_query('brow-sub');
|
||||
});
|
||||
},
|
||||
|
||||
sub_brow_select: function(acell) {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub','mode_detail=insert','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID='+acell[0],'K_Sub='+acell[1]],
|
||||
onSuccess: () => {
|
||||
FoniaJS.closeWindow(this.winBSub);
|
||||
FoniaJS.showInfo("Sub Kegiatan baru telah ditambahkan.");
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_edit: function(acell){
|
||||
$('#SubID').val(acell[1]);
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-sub','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID='+acell[1],'DPASubID='+acell[0]],
|
||||
onSuccess: (txt) => {
|
||||
var tombol = [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}];
|
||||
if ($('#Hak_DPA').val()==0) tombol = tombol.pop();
|
||||
this.winSub = FoniaJS.showWindow('Sub', 'Detail Sub Kegiatan', txt, 'xl', tombol, () => {
|
||||
$('#winSub').find('#butWSimpan').click(() => this.sub_save());
|
||||
$('#formSub').validate({
|
||||
rules: {
|
||||
required: true,
|
||||
Waktu1: {required:true, min:1},
|
||||
Waktu2: {required:true, min:1},
|
||||
}
|
||||
});
|
||||
this.data_query('tabel-sub-output')
|
||||
});
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_output_batal: function(){
|
||||
var dt = $('#divSubOutputTabel').DataTable(), tr, l_row;
|
||||
tr = $('#butBatalOutput').closest('tr');
|
||||
l_row = dt.row(tr.prev('tr'));
|
||||
if (l_row.child.isShown()) l_row.nodes().to$().find('.fon-tabel-dt').click();
|
||||
if (l_row.data()[0]=='0') l_row.remove().draw(true);
|
||||
},
|
||||
|
||||
sub_output_add: function(){
|
||||
var dt = $('#divSubOutputTabel').DataTable(), l_row;
|
||||
dt.order([1,'asc']);
|
||||
l_row = dt.row(':last');
|
||||
if (!dt.data().count() || l_row.data()[0]!=='0'){
|
||||
dt.row.add(['0','','','<a class="table-icon fon-tabel-dt" tabindex="-1" title="Detail"><i class="bi-plus-circle-dotted"></i></a>']).draw(true);
|
||||
l_row = dt.row(':last');
|
||||
}
|
||||
if (!l_row.child.isShown()) l_row.nodes().to$().find('.fon-tabel-dt').click();
|
||||
},
|
||||
|
||||
sub_output_form: function(acell, div){
|
||||
new Request.JSON({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-sub-output','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubOutputID='+acell[0]],
|
||||
onSuccess: (adata) => {
|
||||
$(div).html(adata.html);
|
||||
$(div)
|
||||
.find('#butBatalOutput').click((e) => this.sub_output_batal()).end()
|
||||
.find('#butSimpanOutput').click((e) => this.sub_output_save());
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_output_del: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[1]+'"</b> ?', () => {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub-output','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubOutputID='+acell[0]],
|
||||
onSuccess: () => FoniaJS.showInfo('Proses hapus data sukses!')
|
||||
}).send();
|
||||
}, 'danger');
|
||||
},
|
||||
|
||||
sub_output_save: function(){
|
||||
if ($('#Text_Output').val()==''){
|
||||
FoniaJS.showInfo('Mohon lengkapi data Output Sub Kegiatan !');
|
||||
return false;
|
||||
}
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub-output','mode_detail','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubOutputID','Text_Output','Target_Output','Satuan_Output','Status_Output'],
|
||||
onSuccess: () => FoniaJS.showInfo('Sukses menyimpan Output Sub Kegiatan.')
|
||||
}).send();
|
||||
},
|
||||
|
||||
sub_hapus: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[2]+'"</b> ?', () => {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubID='+acell[0]],
|
||||
onSuccess: () => FoniaJS.showInfo('Proses hapus data sukses!')
|
||||
}).send();
|
||||
}, 'danger');
|
||||
},
|
||||
|
||||
sub_save: function(){
|
||||
$('#formSub').submit();
|
||||
if (true !== $('#formSub').validate().checkForm()) return false;
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-sub','mode_detail=update','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPASubID','Lokasi','Waktu1','Waktu2','Pagu_Dpn'],//Pagu_Ini
|
||||
onSuccess: () => {
|
||||
FoniaJS.closeWindow(this.winSub);
|
||||
FoniaJS.showInfo('Sukses menyimpan detail Sub Kegiatan.');
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
akun_detail: function(mode, ID){
|
||||
new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=detail-akun','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPAAkunID='+ID],
|
||||
onSuccess: (txt) => {
|
||||
var tombol = [{},{i:'butTutup'},{i:'butWSimpan',v:'Simpan',c:'success'}];
|
||||
if ($('#Hak_DPA').val()==0) tombol.pop();
|
||||
this.winDAkun = FoniaJS.showWindow('DAkun', 'Detail Akun', txt, 900, tombol, () => {
|
||||
$('#winDAkun').find('#butWSimpan').click(() => this.akun_save());
|
||||
this.Hitung_Akun();
|
||||
});
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
akun_tambah: function(){
|
||||
this.akun_detail('insert', 0);
|
||||
},
|
||||
|
||||
akun_ubah: function(acell){
|
||||
this.akun_detail('update', acell[0]);
|
||||
},
|
||||
|
||||
akun_hapus: function(acell){
|
||||
FoniaJS.showConfirm('Konfirmasi', 'Yakin akan hapus <b>"'+acell[3]+'"</b> ?', () => {
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-akun','mode_detail=delete','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','DPAAkunID='+acell[0]],
|
||||
onSuccess: () => FoniaJS.showInfo('Proses hapus data sukses!')
|
||||
}).send();
|
||||
}, 'danger');
|
||||
},
|
||||
|
||||
akun_save: function(){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-akun','mode_detail','Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID','AkunID','K_Akun','Volume','SatuanID','Harga_Satuan','Renc_Keu','Renc_Fisik','DPAAkunID'],
|
||||
onSuccess: () => {
|
||||
FoniaJS.closeWindow(this.winDAkun);
|
||||
FoniaJS.showInfo('Sukses menyimpan detail Akun.');
|
||||
}
|
||||
}).send();
|
||||
},
|
||||
|
||||
data_query: function(tipe, mode){
|
||||
if (tipe=="tabel-opd"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-opd']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-prog"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog','Hak_DPA','ORGID','OPDID']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-prog-indi"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=tabel-prog-indi','Hak_DPA','ORGID','OPDID','ProgID']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-keg" || tipe=="tabel-prog-indi"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data='+tipe,'Hak_DPA','ORGID','OPDID','ProgID']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-sub"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data='+tipe,'Hak_DPA','ORGID','OPDID','ProgID','KegID']
|
||||
}).send();
|
||||
} else if (tipe=="tabel-akun" || tipe=="tabel-sub-output"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data='+tipe,'Hak_DPA','ORGID','OPDID','ProgID','KegID','SubID']
|
||||
}).send();
|
||||
} else if (tipe=="brow-prog"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=brow-prog','ORGID','OPDID','AK_Bidu','Cari_Prog'],
|
||||
onSuccess: () => FoniaJS.setFocus('#Cari_Prog')
|
||||
}).send();
|
||||
} else if (tipe=="brow-keg"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=brow-keg','ORGID','OPDID','ProgID','Cari_Keg'],
|
||||
onSuccess: () => FoniaJS.setFocus('#Cari_Keg')
|
||||
}).send();
|
||||
} else if (tipe=="brow-sub"){
|
||||
new Request.JSONF({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=brow-sub','ORGID','OPDID','ProgID','KegID','Cari_Sub'],
|
||||
onSuccess: () => FoniaJS.setFocus('#Cari_Sub')
|
||||
}).send();
|
||||
}
|
||||
},
|
||||
|
||||
Hitung_Akun: function(){
|
||||
var harga = FoniaJS.StrToFloat($('#Harga_Satuan').val());
|
||||
var volume = FoniaJS.StrToFloat($('#Volume').val());
|
||||
$('#Pagu_Ini').val(FoniaJS.FloatToStr(harga * volume, 2));
|
||||
$('#Renc_Keu').val(FoniaJS.FloatToStr(harga * volume, 2));
|
||||
},
|
||||
|
||||
oc_ProgTipe: function(){
|
||||
new Request.JSON({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=change-tipedata','Hak_DPA','TipeDataID','Status_Indi','Target_Indi'],
|
||||
onSuccess: (ajson) => {
|
||||
$('#inputStatus').html(ajson.status);
|
||||
$('#inputTarget').html(ajson.target);
|
||||
}
|
||||
}).send();
|
||||
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,58 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/repo_eval_tujuan.js
|
||||
Desc. : JS - Laporan Realisasi Triwulan / UPT
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : March 20th, 2012.
|
||||
Last Modified : April 12th, 2017.
|
||||
|
||||
(c) 2012 - 2017, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
var RepoEvalTujuanJS = {
|
||||
PHP: '',
|
||||
KODE: '',
|
||||
|
||||
loading: function(){
|
||||
$('#butPrint').click(function(){this.proses_print('print');}.bind(this));
|
||||
$('#butPreview').click(function(){this.proses_print('preview');}.bind(this));
|
||||
//$('#butExcel').click(function(){this.proses_dload();}.bind(this));
|
||||
},
|
||||
|
||||
proses_print: function(prt){
|
||||
var cetak = new cPRINTER(this.PHP);
|
||||
cetak.set_zoom(80);
|
||||
cetak.add_param("data", "print");
|
||||
cetak.add_param("Tahun");
|
||||
cetak.add_param("TW");
|
||||
cetak.add_param("OPDID");
|
||||
cetak.add_param("UPTID");
|
||||
cetak.add_param("RD_TUJUANINDIID");
|
||||
if (prt=='print') { cetak.doPrint(); } else cetak.doPreview();
|
||||
},
|
||||
|
||||
proses_dload: function(){
|
||||
var dload = new cEXPORT(this.PHP);
|
||||
dload.add_param("data", "export");
|
||||
dload.add_param("Tahun");
|
||||
dload.add_param("TW");
|
||||
dload.add_param("OPDID");
|
||||
dload.add_param("UPTID");
|
||||
dload.add_param("RD_TUJUANINDIID");
|
||||
dload.download();
|
||||
},
|
||||
|
||||
oc_Tipe : function(){
|
||||
/*new Request({
|
||||
url: this.PHP,
|
||||
sendParam: ['data=default','Tahun','TW','OPDID','UPTID','RD_TUJUANINDIID'],
|
||||
onSuccess: function(txt){
|
||||
div_isi = this.KODE+'_content';
|
||||
$(div_isi).set('html', txt);
|
||||
}.bind(this)
|
||||
}).send();*/
|
||||
}
|
||||
|
||||
};
|
||||
@@ -1,8 +1,8 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/repo_tw_upt.js
|
||||
Desc. : JS - Laporan Realisasi Triwulan / UPT
|
||||
Module : /apps/js/repo/rekap_hasil_opd.js
|
||||
Desc. : JS - Laporan Rekap Hasil Per OPD
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : March 20th, 2012.
|
||||
Last Modified : June 24th, 2024.
|
||||
@@ -1,8 +1,8 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/repo_tw_upt.js
|
||||
Desc. : JS - Laporan Realisasi Triwulan / UPT
|
||||
Module : /apps/js/repo/rekap_hasil_prog.js
|
||||
Desc. : JS - Laporan Rekap Hasil Program
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : March 20th, 2012.
|
||||
Last Modified : June 24th, 2024.
|
||||
@@ -1,8 +1,8 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/js/mon/repo_tw_upt.js
|
||||
Desc. : JS - Laporan Realisasi Triwulan / UPT
|
||||
Module : /apps/js/repo/rekap_progkeg.js
|
||||
Desc. : JS - Laporan Rekap Program & Kegiatan
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : March 20th, 2012.
|
||||
Last Modified : June 24th, 2024.
|
||||
@@ -52,4 +52,4 @@ var SYSChpasswdJS = {
|
||||
}).send();
|
||||
}
|
||||
|
||||
};
|
||||
};
|
||||
|
||||
@@ -3,7 +3,7 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/func.emonev.php
|
||||
Module : /apps/php/func/emonev.php
|
||||
Desc. : PHP - Fungsi SiMONEv
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : May 15th, 2012.
|
||||
@@ -13,7 +13,7 @@
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(__DIR__."/../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
use siaupheng\fonia3\DB\SQL;
|
||||
@@ -23,7 +23,7 @@ $fdb = new MySQL();
|
||||
function tahun_ang($t_extra = "") {//oke
|
||||
global $fdb;
|
||||
$atahun = [];
|
||||
$fdb->Query("SELECT Tahun FROM para_periode WHERE Tahun IN (SELECT Tahun FROM dpa90_prog) ORDER BY Tahun");
|
||||
$fdb->Query("SELECT Tahun FROM para_periode WHERE Tahun IN (SELECT Tahun FROM dpa_prog) ORDER BY Tahun");
|
||||
while ($fdb->Next()){
|
||||
$atahun[$fdb->Row("Tahun")] = $t_extra . $fdb->Row("Tahun");
|
||||
}
|
||||
@@ -76,20 +76,69 @@ function Renstra_KegID($id_rpjmd = 0) {
|
||||
}
|
||||
|
||||
/*************** TIPE DATA INDIKATOR ***************/
|
||||
// 0 : numeric / 1 : range / 2 : rasio / * : enum_v2
|
||||
|
||||
function input_tipedata($id_target = "Target_Indi", $id_tipe = 0, $val_target = "", $bol_en = false, $a_input = []) {
|
||||
function tipedata_query() {
|
||||
return "SELECT TipeDataID,CONCAT(N_Tipe,IF(TipeDataID<3,'',CONCAT(' - ',JSON_UNQUOTE(JSON_EXTRACT(P_Input,'$.*'))))) Nama_Tipe FROM para_tipedata WHERE Aktif=1 ORDER BY TipeDataID";
|
||||
}
|
||||
|
||||
function tipedata_select($id_target = "Target_Indi", $id_tipe = 0, $val_target = "", $bol_en = false, $a_input = [], $tcss = "") {
|
||||
$ttarget = '<input type="double" class="form-control double" id="'.$id_target.'" value="'.floatval($val_target).'"'.($bol_en?:' readonly').' required=true />';
|
||||
if ($id_tipe > 0) {
|
||||
$ttarget = '<select class="form-select option-tags" id="'.$id_target.'" name="'.$id_target.'"'.($bol_en?:' disabled=true').'>';
|
||||
$ttarget .= '<option value="">-</option>';
|
||||
foreach(array_keys($a_input) as $_key) {
|
||||
$ttarget .= '<option value="'.$_key.'"'.($_key==$val_target?' selected="selected"':'').'>'.$_key.'</option>';
|
||||
if ($id_tipe == 2) { // rasio
|
||||
$atarget = ($val_target == "") ? [0,0] : explode(":", $val_target);
|
||||
for ($i = 0; $i < 10; $i++) $vtarget .= array_merge(range('a','z'),range('A','Z'))[rand(0,51)];
|
||||
$ttarget = '<div class="input-group '.$tcss.'"><input type="number" class="form-control" id="'.$vtarget.'_b" value="'.$atarget[0].'"'.($bol_en?:' readonly').' required=true onchange="$(\'#'.$id_target.'\').val(($(\'#'.$vtarget.'_b\').val()||\'0\')+\':\'+($(\'#'.$vtarget.'_a\').val()||\'0\'));" /><span class="input-group-text">:<input type="hidden" id="'.$id_target.'" value="'.$val_target.'"></span><input type="number" class="form-control" id="'.$vtarget.'_a" value="'.$atarget[1].'"'.($bol_en?:' readonly').' required=true onchange="$(\'#'.$id_target.'\').val(($(\'#'.$vtarget.'_b\').val()||\'0\')+\':\'+($(\'#'.$vtarget.'_a\').val()||\'0\'));" /></div>';
|
||||
} else if ($id_tipe > 2) { // enum_v2
|
||||
$ttarget = '<select class="form-select" id="'.$id_target.'" name="'.$id_target.'"'.($bol_en?:' disabled=true').'>';
|
||||
//$ttarget .= '<option value="">-</option>'; option-tags
|
||||
foreach($a_input as $_key => $_val) {
|
||||
$ttarget .= '<option value="'.$_key.'"'.($_key==$val_target?' selected="selected"':'').'>'.$_val.'</option>';
|
||||
}
|
||||
$ttarget .= '</select>';
|
||||
}
|
||||
return $ttarget;
|
||||
}
|
||||
|
||||
function tipedata_status($id_target = "Status_Indi", $id_tipe = 0, $val_target = "", $bol_en = false) {
|
||||
$astatus = ['komulatif' => "Komulatif", 'positif' => "Positif", 'negatif' => "Negatif", 'rata-rata' => "Rata-rata"];
|
||||
if ($id_tipe >= 2) { // rasio + enum_v2
|
||||
array_shift($astatus);
|
||||
array_pop($astatus);
|
||||
}
|
||||
$ttarget = '<select class="form-select" id="'.$id_target.'" name="'.$id_target.'"'.($bol_en?:' disabled=true').'>';
|
||||
foreach($astatus as $_key => $_val) {
|
||||
$ttarget .= '<option value="'.$_key.'"'.($_key==$val_target?' selected="selected"':'').'>'.$_val.'</option>';
|
||||
}
|
||||
$ttarget .= '</select>';
|
||||
return $ttarget;
|
||||
}
|
||||
|
||||
function tipedata_poin($val_target = "") {
|
||||
$thasil = $val_target;
|
||||
if (strpos($val_target, ":") !== false) { // rasio
|
||||
$atmp = explode(":", $val_target);
|
||||
$thasil = (in_array(0, $atmp)) ? "" : $atmp[0] / $atmp[1];
|
||||
}
|
||||
return $thasil;
|
||||
}
|
||||
|
||||
/*function tipedata_poin($id_tipe = 0, $val_target = "") {
|
||||
$thasil = $val_target;
|
||||
if ($id_tipe == 2) { // rasio
|
||||
if (strpos($val_target, ":") !== false) {
|
||||
$atmp = explode(":", $val_target);
|
||||
$thasil = (in_array(0, $atmp, true)) ? "" : $atmp[0] / $atmp[1];
|
||||
} else $thasil = "";
|
||||
}
|
||||
return $thasil;
|
||||
}*/
|
||||
|
||||
function tipedata_tipe($id_tipe = 0) {
|
||||
$atipe = [ 0 => "Numeric", 1 => "Range", 2 => "Rasio" ];
|
||||
if ($atipe[$id_tipe]) return $atipe[$id_tipe];
|
||||
return "Enum_v2";
|
||||
}
|
||||
|
||||
/*************** RENJA ***************/
|
||||
|
||||
function Keg_Baru($id_prog = 0) {
|
||||
@@ -3,18 +3,18 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ehasil_kinerja.php
|
||||
Module : /apps/php/hasil/kinerja.php
|
||||
Desc. : PHP - Evaluasi Hasil Kinerja Triwulan
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 29th, 2026.
|
||||
Last Modified : May 24th, 2026.
|
||||
|
||||
(c) 2011 - 2026, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../func.emonev.php");
|
||||
require_once(__DIR__."/../func/emonev.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
use siaupheng\fonia3\Web\Param;
|
||||
@@ -95,29 +95,29 @@ if ( in_array($data, ["print","export"]) ) {
|
||||
$db->Query("CREATE TEMPORARY TABLE IF NOT EXISTS emonev_renja LIKE templ_emonev_renja");
|
||||
$db->Query("TRUNCATE emonev_renja");
|
||||
// ambil data sub kegiatan
|
||||
$db->Query("INSERT INTO emonev_renja (RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,K_Sub,S_7RP".$qf1.",S_12RP,S_Kendala,S_Tindak) SELECT RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,REPLACE(K_Sub,'X.XX','0.00'),Pagu_Ini".$qv1.",".$qv2.",Real_Kendala,Real_Tindak FROM dpa90_sub".$tsql." AND Pagu_Ini>0");
|
||||
$db->Query("INSERT INTO emonev_renja (RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,K_Sub,S_7RP".$qf1.",S_12RP,S_Kendala,S_Tindak) SELECT RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,REPLACE(K_Sub,'X.XX','0.00'),Pagu_Ini".$qv1.",".$qv2.",Real_Kendala,Real_Tindak FROM dpa_sub".$tsql." AND Pagu_Ini>0");
|
||||
|
||||
// update k_sub2, k_keg2, k_prog2 sesuai bidang urusan dari program dpa
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_prog".$tsql.") B SET A.K_Bidu=B.K_Bidu,A.K_Sub2=CONCAT(B.K_Bidu,RIGHT(A.K_Sub,13)) WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_prog".$tsql.") B SET A.K_Bidu=B.K_Bidu,A.K_Sub2=CONCAT(B.K_Bidu,RIGHT(A.K_Sub,13)) WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A SET A.K_Keg2=LEFT(A.K_Sub2,12),A.K_Prog2=LEFT(A.K_Sub2,7)");
|
||||
|
||||
// TIDAK DI PROSES RENSTRA : S_5K, S_5RP, S_6K, S_6RP
|
||||
|
||||
// sub kegiatan
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_sub_output".$tsql.") B SET A.S_Indi=B.Text_Output,A.S_Satuan=B.Satuan_Output,A.S_7K=B.Target_Output".$qv3." WHERE A.SubID=B.SubID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_sub_output".$tsql.") B SET A.S_Indi=B.Text_Output,A.S_Satuan=B.Satuan_Output,A.S_7K=B.Target_Output".$qv3." WHERE A.SubID=B.SubID");
|
||||
$db->Query("UPDATE emonev_renja A SET A.S_12K=A.S_TW1K+A.S_TW2K+A.S_TW3K+A.S_TW4K");
|
||||
$db->Query("UPDATE emonev_renja A SET A.S_13K=IFNULL(A.S_12K/A.S_7K*100,0),A.S_13RP=IFNULL(A.S_12RP/A.S_7RP*100,0),A.S_13KRP=(A.S_13K+A.S_13RP)/2");
|
||||
|
||||
// kegiatan
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_keg".$tsql.") B SET A.K_Kendala=B.Real_Kendala,A.K_Tindak=B.Real_Tindak WHERE A.KegID=B.KegID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_keg_keluar".$tsql.") B SET A.K_Indi=B.Text_Keluar,A.K_Satuan=B.Satuan_Keluar,A.K_7K=B.Target_Keluar WHERE A.KegID=B.KegID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_keg".$tsql.") B SET A.K_Kendala=B.Real_Kendala,A.K_Tindak=B.Real_Tindak WHERE A.KegID=B.KegID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_keg_keluar".$tsql.") B SET A.K_Indi=B.Text_Keluar,A.K_Satuan=B.Satuan_Keluar,A.K_7K=B.Target_Keluar WHERE A.KegID=B.KegID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT KegID,SUM(S_7RP) K_7RP,AVG(S_TW1K/S_7K)*100 K_TW1K,SUM(S_TW1RP) K_TW1RP,AVG(S_TW2K/S_7K)*100 K_TW2K,SUM(S_TW2RP) K_TW2RP,AVG(S_TW3K/S_7K)*100 K_TW3K,SUM(S_TW3RP) K_TW3RP,AVG(S_TW4K/S_7K)*100 K_TW4K,SUM(S_TW4RP) K_TW4RP,SUM(S_12RP) K_12RP FROM emonev_renja".$tsql." GROUP BY KegID) B SET A.K_7RP=B.K_7RP,A.K_TW1K=B.K_TW1K,A.K_TW1RP=B.K_TW1RP,A.K_TW2K=B.K_TW2K,A.K_TW2RP=B.K_TW2RP,A.K_TW3K=B.K_TW3K,A.K_TW3RP=B.K_TW3RP,A.K_TW4K=B.K_TW4K,A.K_TW4RP=B.K_TW4RP,A.K_12K=B.K_TW1K+B.K_TW2K+B.K_TW3K+B.K_TW4K,A.K_12RP=B.K_12RP WHERE A.KegID=B.KegID");
|
||||
$db->Query("UPDATE emonev_renja A SET A.K_13K=IFNULL(A.K_12K/A.K_7K*100,0),A.K_13RP=IFNULL(A.K_12RP/A.K_7RP*100,0),A.K_13KRP=(A.K_13K+A.K_13RP)/2");
|
||||
|
||||
// program
|
||||
//$db->Query("UPDATE emonev_renja A,(SELECT *,GREATEST(".$qp1.") P_12K FROM dpa90_prog_indi".$tsql.") B SET A.P_Indi=B.Text_Indi,A.P_Satuan=B.Satuan_Indi,A.P_7K=B.Target_Indi,A.P_12K=B.P_12K".$qp2." WHERE A.ProgID=B.ProgID");
|
||||
//$db->Query("UPDATE emonev_renja A,(SELECT *,GREATEST(".$qp1.") P_12K FROM dpa_prog_indi".$tsql.") B SET A.P_Indi=B.Text_Indi,A.P_Satuan=B.Satuan_Indi,A.P_7K=B.Target_Indi,A.P_12K=B.P_12K".$qp2." WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT ProgID,SUM(DISTINCT K_7RP) P_7RP,SUM(DISTINCT K_TW1RP) P_TW1RP,SUM(DISTINCT K_TW2RP) P_TW2RP,SUM(DISTINCT K_TW3RP) P_TW3RP,SUM(DISTINCT K_TW4RP) P_TW4RP,SUM(DISTINCT K_12RP) P_12RP FROM emonev_renja".$tsql." GROUP BY ProgID) B SET A.P_7RP=B.P_7RP,A.P_TW1RP=B.P_TW1RP,A.P_TW2RP=B.P_TW2RP,A.P_TW3RP=B.P_TW3RP,A.P_TW4RP=B.P_TW4RP,A.P_12RP=B.P_12RP WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT ProgID,".$qp3." P_13K,Real_Kendala,Real_Tindak FROM dpa90_prog".$tsql.") B SET A.P_13K=B.P_13K,A.P_Kendala=B.Real_Kendala,A.P_Tindak=B.Real_Tindak WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT ProgID,".$qp3." P_13K,Real_Kendala,Real_Tindak FROM dpa_prog".$tsql.") B SET A.P_13K=B.P_13K,A.P_Kendala=B.Real_Kendala,A.P_Tindak=B.Real_Tindak WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A SET A.P_13RP=IFNULL(A.P_12RP/A.P_7RP*100,0),A.P_13KRP=(A.P_13K+A.P_13RP)/2");
|
||||
|
||||
// bidang urusan
|
||||
@@ -160,8 +160,8 @@ if ( $data == "print" ) {
|
||||
$prog = $db->Row("ProgID");
|
||||
$aprog = $db->AllRow();
|
||||
// cek lagi rumus greatest, harusnya ambil dari tw terakhir sesuai pilihan !
|
||||
// $db2->Query("SELECT *,GREATEST(".$qp1.") P_12K FROM dpa90_prog_indi".$tsql." AND ProgID='".$aprog["ProgID"]."'");
|
||||
$db2->Query("SELECT *,IF(TipeDataID=0,".$qp4.",".$qp3.") P_12K FROM dpa90_prog_indi".$tsql." AND ProgID='".$aprog["ProgID"]."'");
|
||||
// $db2->Query("SELECT *,GREATEST(".$qp1.") P_12K FROM dpa_prog_indi".$tsql." AND ProgID='".$aprog["ProgID"]."'");
|
||||
$db2->Query("SELECT *,IF(TipeDataID=0,".$qp4.",".$qp3.") P_12K FROM dpa_prog_indi".$tsql." AND ProgID='".$aprog["ProgID"]."'");
|
||||
if ($db2->RecordCount() == 0) {
|
||||
$body .= sprintf($_progkeg, "prog b", $no_prog++, " ", $aprog["K_Prog2"]." ".$aprog["N_Prog"], $aprog["P_Indi"]." <i>(".$aprog["P_Satuan"].")</i>", $aprog["P_7K"], uang($aprog["P_7RP"],0), $aprog["P_TW1K"], uang($aprog["P_TW1RP"],0), $aprog["P_TW2K"], uang($aprog["P_TW2RP"],0), $aprog["P_TW3K"], uang($aprog["P_TW3RP"],0), $aprog["P_TW4K"], uang($aprog["P_TW4RP"],0), $aprog["P_12K"], uang($aprog["P_12RP"],0), uang2($aprog["P_13K"]), uang2($aprog["P_13RP"]), uang2($aprog["P_13KRP"]), $db->Row("P_Kendala"), $db->Row("P_Tindak"), " ");
|
||||
}
|
||||
@@ -211,7 +211,7 @@ if ( $data == "print" ) {
|
||||
}
|
||||
|
||||
$form = new Form($db);
|
||||
$tthn = $form->option_que("_", "Tahun", $tahun, true, false, "SELECT Tahun,CONCAT('Tahun ',Tahun) N_Tahun FROM dpa90_prog GROUP BY Tahun ORDER BY Tahun", ["Tahun","N_Tahun"]);
|
||||
$tthn = $form->option_que("_", "Tahun", $tahun, true, false, "SELECT Tahun,CONCAT('Tahun ',Tahun) N_Tahun FROM dpa_prog GROUP BY Tahun ORDER BY Tahun", ["Tahun","N_Tahun"]);
|
||||
$topd = $form->option_db("_", "OPDID", $id_opd, true, false, "vi_para90_opd", ["OPDID","Nama_OPD"], "Aktif=1".$q_opd." ORDER BY K_OPD");
|
||||
$ttw = $form->radio("_", "TW", $twulan, true, false, [1=>"I",2=>"II",3=>"III",4=>"IV"]);
|
||||
echo '
|
||||
@@ -3,7 +3,7 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ehasil_real.php
|
||||
Module : /apps/php/hasil/real.php
|
||||
Desc. : PHP - Laporan Realisasi Bulanan Per OPD
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : March 20th, 2012.
|
||||
@@ -14,7 +14,7 @@
|
||||
*******************************************************************/
|
||||
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../func.emonev.php");
|
||||
require_once(__DIR__."/../func/emonev.php");
|
||||
require_once("Spreadsheet/Excel/Writer.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
@@ -88,21 +88,21 @@ if ( $data == "print" || $data == "export") {
|
||||
}
|
||||
|
||||
// proses rekap database
|
||||
Report_Empty("dpa90_prog");
|
||||
Report_Empty("dpa90_keg");
|
||||
Report_Empty("dpa90_sub");
|
||||
Report_Empty("dpa_prog");
|
||||
Report_Empty("dpa_keg");
|
||||
Report_Empty("dpa_sub");
|
||||
// insert prog | GREATEST untuk fisik
|
||||
$db->Query("INSERT INTO rep_dpa90_prog SELECT A.Tahun,A.OPDID,A.ProgID,'',SUM(A.Pagu_Ini),SUM(A.Renc_Keu),SUM".$qK.",0,'".user_unix()."','".user_id()."' FROM (SELECT * FROM dpa90_akun WHERE".$tsql.") A GROUP BY A.ProgID");
|
||||
$db->Query("INSERT INTO rep_dpa_prog SELECT A.Tahun,A.OPDID,A.ProgID,'',SUM(A.Pagu_Ini),SUM(A.Renc_Keu),SUM".$qK.",0,'".user_unix()."','".user_id()."' FROM (SELECT * FROM dpa_akun WHERE".$tsql.") A GROUP BY A.ProgID");
|
||||
// insert keg
|
||||
$db->Query("INSERT INTO rep_dpa90_keg SELECT A.Tahun,A.OPDID,A.ProgID,A.KegID,'',SUM(A.Pagu_Ini),SUM(A.Renc_Keu),SUM".$qK.",0,'".user_unix()."','".user_id()."' FROM (SELECT * FROM dpa90_akun WHERE".$tsql.") A GROUP BY A.KegID");
|
||||
$db->Query("INSERT INTO rep_dpa_keg SELECT A.Tahun,A.OPDID,A.ProgID,A.KegID,'',SUM(A.Pagu_Ini),SUM(A.Renc_Keu),SUM".$qK.",0,'".user_unix()."','".user_id()."' FROM (SELECT * FROM dpa_akun WHERE".$tsql.") A GROUP BY A.KegID");
|
||||
// insert sub
|
||||
$db->Query("INSERT INTO rep_dpa90_sub SELECT A.Tahun,A.OPDID,A.ProgID,A.KegID,A.SubID,'',SUM(A.Pagu_Ini),SUM(A.Renc_Keu),SUM".$qK.",0,'".user_unix()."','".user_id()."' FROM (SELECT * FROM dpa90_akun WHERE".$tsql.") A GROUP BY A.SubID");
|
||||
$db->Query("INSERT INTO rep_dpa_sub SELECT A.Tahun,A.OPDID,A.ProgID,A.KegID,A.SubID,'',SUM(A.Pagu_Ini),SUM(A.Renc_Keu),SUM".$qK.",0,'".user_unix()."','".user_id()."' FROM (SELECT * FROM dpa_akun WHERE".$tsql.") A GROUP BY A.SubID");
|
||||
// update kode prog, keg dan subkeg
|
||||
$db->Query("UPDATE rep_dpa90_prog A,dpa90_prog B SET A.PROG_KODE=B.K_Prog WHERE A.Tahun=B.Tahun AND A.OPDID=B.OPDID AND A.ProgID=B.ProgID AND A.Tahun='".$tahun."'");
|
||||
$db->Query("UPDATE rep_dpa90_keg A,dpa90_keg B SET A.KEG_KODE=B.K_Keg WHERE A.Tahun=B.Tahun AND A.OPDID=B.OPDID AND A.ProgID=B.ProgID AND A.KegID=B.KegID AND A.Tahun='".$tahun."'");
|
||||
//$db->Query("UPDATE rep_dpa90_sub A,dpa90_sub B SET A.SUB_KODE=B.K_Sub WHERE A.Tahun=B.Tahun AND A.OPDID=B.OPDID AND A.ProgID=B.ProgID AND A.KegID=B.KegID AND A.SubID=B.SubID AND A.Tahun='".$tahun."'");
|
||||
$db->Query("UPDATE rep_dpa_prog A,dpa_prog B SET A.PROG_KODE=B.K_Prog WHERE A.Tahun=B.Tahun AND A.OPDID=B.OPDID AND A.ProgID=B.ProgID AND A.Tahun='".$tahun."'");
|
||||
$db->Query("UPDATE rep_dpa_keg A,dpa_keg B SET A.KEG_KODE=B.K_Keg WHERE A.Tahun=B.Tahun AND A.OPDID=B.OPDID AND A.ProgID=B.ProgID AND A.KegID=B.KegID AND A.Tahun='".$tahun."'");
|
||||
//$db->Query("UPDATE rep_dpa_sub A,dpa_sub B SET A.SUB_KODE=B.K_Sub WHERE A.Tahun=B.Tahun AND A.OPDID=B.OPDID AND A.ProgID=B.ProgID AND A.KegID=B.KegID AND A.SubID=B.SubID AND A.Tahun='".$tahun."'");
|
||||
|
||||
$db->Query("SELECT A.*,RP.*,RK.*,RS.*,S.K_Sub,S.Real_No_Kontrak,S.Real_Pelaksana,M.N_Prog,M.N_Keg,M.N_Sub,MA.N_Akun,T.N_Satuan,A.Pagu_Ini/RS.SUB_INI*100 Nilai_Bobot,".$qK." AKUN_REALK,GREATEST".$qF." AKUN_REALF FROM (SELECT * FROM dpa90_akun WHERE".$tsql.") A LEFT JOIN (SELECT * FROM dpa90_sub WHERE".$tsql.") S ON (S.KegID=A.KegID AND S.SubID=A.SubID) LEFT JOIN (SELECT * FROM rep_dpa90_sub WHERE Tahun='".$tahun."' AND UserID='".user_id()."' AND Unix='".user_unix()."') RS ON (RS.OPDID=A.OPDID AND RS.ProgID=A.ProgID AND RS.KegID=A.KegID AND RS.SubID=A.SubID) LEFT JOIN (SELECT * FROM rep_dpa90_keg WHERE Tahun='".$tahun."' AND UserID='".user_id()."' AND Unix='".user_unix()."') RK ON (RK.OPDID=A.OPDID AND RK.ProgID=A.ProgID AND RK.KegID=A.KegID) LEFT JOIN (SELECT * FROM rep_dpa90_prog WHERE Tahun='".$tahun."' AND UserID='".user_id()."' AND Unix='".user_unix()."') RP ON (RP.OPDID=A.OPDID AND RP.ProgID=A.ProgID) LEFT JOIN (SELECT * FROM para90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['AKUN_TAHUN']."') MA ON (MA.AkunID=A.AkunID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$thn_submap."') M ON (M.SubID=A.SubID) LEFT JOIN para_satuan T ON (T.SatuanID=A.SatuanID) ORDER BY RP.PROG_KODE,RK.KEG_KODE,S.K_Sub,A.K_Akun");
|
||||
$db->Query("SELECT A.*,RP.*,RK.*,RS.*,S.K_Sub,S.Real_No_Kontrak,S.Real_Pelaksana,M.N_Prog,M.N_Keg,M.N_Sub,MA.N_Akun,T.N_Satuan,A.Pagu_Ini/RS.SUB_INI*100 Nilai_Bobot,".$qK." AKUN_REALK,GREATEST".$qF." AKUN_REALF FROM (SELECT * FROM dpa_akun WHERE".$tsql.") A LEFT JOIN (SELECT * FROM dpa_sub WHERE".$tsql.") S ON (S.KegID=A.KegID AND S.SubID=A.SubID) LEFT JOIN (SELECT * FROM rep_dpa_sub WHERE Tahun='".$tahun."' AND UserID='".user_id()."' AND Unix='".user_unix()."') RS ON (RS.OPDID=A.OPDID AND RS.ProgID=A.ProgID AND RS.KegID=A.KegID AND RS.SubID=A.SubID) LEFT JOIN (SELECT * FROM rep_dpa_keg WHERE Tahun='".$tahun."' AND UserID='".user_id()."' AND Unix='".user_unix()."') RK ON (RK.OPDID=A.OPDID AND RK.ProgID=A.ProgID AND RK.KegID=A.KegID) LEFT JOIN (SELECT * FROM rep_dpa_prog WHERE Tahun='".$tahun."' AND UserID='".user_id()."' AND Unix='".user_unix()."') RP ON (RP.OPDID=A.OPDID AND RP.ProgID=A.ProgID) LEFT JOIN (SELECT * FROM para90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['AKUN_TAHUN']."') MA ON (MA.AkunID=A.AkunID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".$thn_submap."') M ON (M.SubID=A.SubID) LEFT JOIN para_satuan T ON (T.SatuanID=A.SatuanID) ORDER BY RP.PROG_KODE,RK.KEG_KODE,S.K_Sub,A.K_Akun");
|
||||
}
|
||||
|
||||
if ( $data == "print" ) {
|
||||
@@ -328,7 +328,7 @@ if ( $data == "print" ) {
|
||||
}
|
||||
|
||||
$form = new Form($db);
|
||||
$tthn = $form->option_que("_", "Tahun", $tahun, true, false, "SELECT Tahun,CONCAT('Tahun ',Tahun) N_Tahun FROM dpa90_prog GROUP BY Tahun ORDER BY Tahun", ["Tahun","N_Tahun"]);
|
||||
$tthn = $form->option_que("_", "Tahun", $tahun, true, false, "SELECT Tahun,CONCAT('Tahun ',Tahun) N_Tahun FROM dpa_prog GROUP BY Tahun ORDER BY Tahun", ["Tahun","N_Tahun"]);
|
||||
$tbln = $form->option("_", "Bulan", $bulan, true, false, bulan_array());
|
||||
$topd = $form->option_db("_", "OPDID", $id_opd, true, false, "vi_para90_opd", array("OPDID","Nama_OPD"), "Aktif=1".$q_opd." ORDER BY K_OPD");//, (user_level(3)?array(0,"SEMUA OPD"):null)
|
||||
echo '
|
||||
@@ -3,7 +3,7 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ehasil_renja.php
|
||||
Module : /apps/php/hasil/renja.php
|
||||
Desc. : PHP - Evaluasi Hasil Renja
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : December 7th, 2011.
|
||||
@@ -14,7 +14,7 @@
|
||||
*******************************************************************/
|
||||
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../func.emonev.php");
|
||||
require_once(__DIR__."/../func/emonev.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
use siaupheng\fonia3\DB\SQL;
|
||||
@@ -80,26 +80,26 @@ if ( in_array($data, ["print","export"]) ) {
|
||||
$db->Query("CREATE TEMPORARY TABLE IF NOT EXISTS emonev_renja LIKE templ_emonev_renja");
|
||||
$db->Query("TRUNCATE emonev_renja");
|
||||
// ambil data sub kegiatan
|
||||
$db->Query("INSERT INTO emonev_renja (RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,K_Sub,S_7RP".$qf1.",S_12RP) SELECT RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,REPLACE(K_Sub,'X.XX','0.00'),Pagu_Ini".$qv1.",".$qv2." FROM dpa90_sub".$tsql." AND Pagu_Ini>0");
|
||||
$db->Query("INSERT INTO emonev_renja (RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,K_Sub,S_7RP".$qf1.",S_12RP) SELECT RPJMDID,Tahun,ORGID,OPDID,ProgID,KegID,SubID,REPLACE(K_Sub,'X.XX','0.00'),Pagu_Ini".$qv1.",".$qv2." FROM dpa_sub".$tsql." AND Pagu_Ini>0");
|
||||
|
||||
// update k_sub2 sesuai bidang urusan dari program dpa
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_prog".$tsql.") B SET A.K_Bidu=B.K_Bidu,A.K_Sub2=CONCAT(B.K_Bidu,RIGHT(A.K_Sub,13)) WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_prog".$tsql.") B SET A.K_Bidu=B.K_Bidu,A.K_Sub2=CONCAT(B.K_Bidu,RIGHT(A.K_Sub,13)) WHERE A.ProgID=B.ProgID");
|
||||
|
||||
// ambil target renstra + realisasi lalu
|
||||
// YG BELUM : S_5K, S_5RP, S_6K, S_6RP
|
||||
|
||||
// sub kegiatan
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_sub_output".$tsql.") B SET A.S_Indi=B.Text_Output,A.S_Satuan=B.Satuan_Output,A.S_7K=B.Target_Output".$qv3." WHERE A.SubID=B.SubID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_sub_output".$tsql.") B SET A.S_Indi=B.Text_Output,A.S_Satuan=B.Satuan_Output,A.S_7K=B.Target_Output".$qv3." WHERE A.SubID=B.SubID");
|
||||
$db->Query("UPDATE emonev_renja A SET A.S_12K=A.S_TW1K+A.S_TW2K+A.S_TW3K+A.S_TW4K");
|
||||
$db->Query("UPDATE emonev_renja A SET A.S_13K=IFNULL(A.S_12K/A.S_7K*100,0),A.S_13RP=IFNULL(A.S_12RP/A.S_7RP*100,0),A.S_14K=A.S_6K+A.S_12K,A.S_14RP=A.S_6RP+A.S_12RP,A.S_15K=IFNULL(A.S_14K/A.S_5K*100,0),A.S_15RP=IFNULL(A.S_14RP/A.S_5RP*100,0)");
|
||||
|
||||
// kegiatan ( YG BELUM : K_5K, K_5RP, K_6K, K_6RP )
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_keg_keluar".$tsql.") B SET A.K_Indi=B.Text_Keluar,A.K_Satuan=B.Satuan_Keluar,A.K_7K=B.Target_Keluar WHERE A.KegID=B.KegID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_keg_keluar".$tsql.") B SET A.K_Indi=B.Text_Keluar,A.K_Satuan=B.Satuan_Keluar,A.K_7K=B.Target_Keluar WHERE A.KegID=B.KegID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT KegID,SUM(S_7RP) K_7RP,AVG(S_TW1K/S_7K)*100 K_TW1K,SUM(S_TW1RP) K_TW1RP,AVG(S_TW2K/S_7K)*100 K_TW2K,SUM(S_TW2RP) K_TW2RP,AVG(S_TW3K/S_7K)*100 K_TW3K,SUM(S_TW3RP) K_TW3RP,AVG(S_TW4K/S_7K)*100 K_TW4K,SUM(S_TW4RP) K_TW4RP,SUM(S_12RP) K_12RP FROM emonev_renja".$tsql." GROUP BY KegID) B SET A.K_7RP=B.K_7RP,A.K_TW1K=B.K_TW1K,A.K_TW1RP=B.K_TW1RP,A.K_TW2K=B.K_TW2K,A.K_TW2RP=B.K_TW2RP,A.K_TW3K=B.K_TW3K,A.K_TW3RP=B.K_TW3RP,A.K_TW4K=B.K_TW4K,A.K_TW4RP=B.K_TW4RP,A.K_12K=B.K_TW1K+B.K_TW2K+B.K_TW3K+B.K_TW4K,A.K_12RP=B.K_12RP WHERE A.KegID=B.KegID");
|
||||
$db->Query("UPDATE emonev_renja A SET A.K_13K=IFNULL(A.K_12K/A.K_7K*100,0),A.K_13RP=IFNULL(A.K_12RP/A.K_7RP*100,0),A.K_14K=A.K_6K+A.K_12K,A.K_14RP=A.K_6RP+A.K_12RP,A.K_15K=IFNULL(A.K_14K/A.K_5K*100,0),A.K_15RP=IFNULL(A.K_14RP/A.K_5RP*100,0)");
|
||||
|
||||
// program ( YG BELUM : P_5K, P_5RP, P_6K, P_6RP )
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa90_prog_indi".$tsql.") B SET A.P_Indi=B.Text_Indi,A.P_Satuan=B.Satuan_Indi,A.P_7K=B.Target_Indi WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT * FROM dpa_prog_indi".$tsql.") B SET A.P_Indi=B.Text_Indi,A.P_Satuan=B.Satuan_Indi,A.P_7K=B.Target_Indi WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A,(SELECT ProgID,SUM(DISTINCT K_7RP) P_7RP,AVG(DISTINCT K_TW1K) P_TW1K,SUM(DISTINCT K_TW1RP) P_TW1RP,AVG(DISTINCT K_TW2K) P_TW2K,SUM(DISTINCT K_TW2RP) P_TW2RP,AVG(DISTINCT K_TW3K) P_TW3K,SUM(DISTINCT K_TW3RP) P_TW3RP,AVG(DISTINCT K_TW4K) P_TW4K,SUM(DISTINCT K_TW4RP) P_TW4RP,SUM(DISTINCT K_12RP) P_12RP FROM emonev_renja".$tsql." GROUP BY ProgID) B SET A.P_7RP=B.P_7RP,A.P_TW1K=B.P_TW1K,A.P_TW1RP=B.P_TW1RP,A.P_TW2K=B.P_TW2K,A.P_TW2RP=B.P_TW2RP,A.P_TW3K=B.P_TW3K,A.P_TW3RP=B.P_TW3RP,A.P_TW4K=B.P_TW4K,A.P_TW4RP=B.P_TW4RP,A.P_12K=B.P_TW1K+B.P_TW2K+B.P_TW3K+B.P_TW4K,A.P_12RP=B.P_12RP WHERE A.ProgID=B.ProgID");
|
||||
$db->Query("UPDATE emonev_renja A SET A.P_13K=IFNULL(A.P_12K/A.P_7K*100,0),A.P_13RP=IFNULL(A.P_12RP/A.P_7RP*100,0),A.P_14K=A.P_6K+A.P_12K,A.P_14RP=A.P_6RP+A.P_12RP,A.P_15K=IFNULL(A.P_14K/A.P_5K*100,0),A.P_15RP=IFNULL(A.P_14RP/A.P_5RP*100,0)");
|
||||
|
||||
@@ -181,7 +181,7 @@ if ( $data == "print" ) {
|
||||
}
|
||||
|
||||
$form = new Form($db);
|
||||
$tthn = $form->option_que("_", "Tahun", $tahun, true, false, "SELECT Tahun,CONCAT('Tahun ',Tahun) N_Tahun FROM dpa90_prog GROUP BY Tahun ORDER BY Tahun", ["Tahun","N_Tahun"]);
|
||||
$tthn = $form->option_que("_", "Tahun", $tahun, true, false, "SELECT Tahun,CONCAT('Tahun ',Tahun) N_Tahun FROM dpa_prog GROUP BY Tahun ORDER BY Tahun", ["Tahun","N_Tahun"]);
|
||||
$topd = $form->option_db("_", "OPDID", $id_opd, true, false, "vi_para90_opd", ["OPDID","Nama_OPD"], "Aktif=1".$q_opd." ORDER BY K_OPD");
|
||||
$ttw = $form->radio("_", "TW", $twulan, true, false, [1=>"I",2=>"II",3=>"III",4=>"IV"]);
|
||||
echo '
|
||||
+3
-3
@@ -13,7 +13,7 @@
|
||||
*******************************************************************/
|
||||
|
||||
require_once(__DIR__."/../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/func.emonev.php");
|
||||
require_once(__DIR__."/func/emonev.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
use siaupheng\fonia3\Web\Param;
|
||||
@@ -141,7 +141,7 @@ if ( $data == "periode-show" ) {
|
||||
|
||||
} else if ( $data == "chart1" ) {
|
||||
$ajson['tipe'] = "chart";
|
||||
$db->Query("SELECT * FROM (SELECT M.S_OPD,(SUM(K.R_Keu)/SUM(K.Renc_Keu))*100 REAL_KEU,SUM(K.R_Fisik*K.Renc_Keu/TT.OPD_PAGU) REAL_FISIK,(((SUM(K.R_Keu)/SUM(K.Renc_Keu))*100)+SUM(K.R_Fisik*K.Renc_Keu/TT.OPD_PAGU))/2 REAL_KINERJA FROM (SELECT *,".$qK." R_Keu,GREATEST".$qF." R_Fisik FROM dpa90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['REAL_THN']."') K LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) OPD_PAGU FROM dpa90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['REAL_THN']."' GROUP BY OPDID) TT ON (TT.OPDID=K.OPDID) LEFT JOIN para90_opd M ON (M.OPDID=K.OPDID) WHERE M.Aktif=1 GROUP BY K.OPDID) A ORDER BY A.REAL_KINERJA DESC LIMIT 10");
|
||||
$db->Query("SELECT * FROM (SELECT M.S_OPD,(SUM(K.R_Keu)/SUM(K.Renc_Keu))*100 REAL_KEU,SUM(K.R_Fisik*K.Renc_Keu/TT.OPD_PAGU) REAL_FISIK,(((SUM(K.R_Keu)/SUM(K.Renc_Keu))*100)+SUM(K.R_Fisik*K.Renc_Keu/TT.OPD_PAGU))/2 REAL_KINERJA FROM (SELECT *,".$qK." R_Keu,GREATEST".$qF." R_Fisik FROM dpa_akun WHERE Tahun='".$_SESSION['__WEB_APP']['REAL_THN']."') K LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) OPD_PAGU FROM dpa_akun WHERE Tahun='".$_SESSION['__WEB_APP']['REAL_THN']."' GROUP BY OPDID) TT ON (TT.OPDID=K.OPDID) LEFT JOIN para90_opd M ON (M.OPDID=K.OPDID) WHERE M.Aktif=1 GROUP BY K.OPDID) A ORDER BY A.REAL_KINERJA DESC LIMIT 10");
|
||||
|
||||
$adata['datasets'] = array();
|
||||
$adata['labels'] = array();
|
||||
@@ -177,7 +177,7 @@ if ( $data == "periode-show" ) {
|
||||
|
||||
} else if ( $data == "chart2" ) {
|
||||
$ajson['tipe'] = "chart";
|
||||
$db->Query("SELECT * FROM (SELECT M.S_OPD,(SUM(K.R_Keu)/SUM(K.Renc_Keu))*100 REAL_KEU,SUM(K.R_Fisik*K.Renc_Keu/TT.OPD_PAGU) REAL_FISIK,(((SUM(K.R_Keu)/SUM(K.Renc_Keu))*100)+SUM(K.R_Fisik*K.Renc_Keu/TT.OPD_PAGU))/2 REAL_KINERJA FROM (SELECT *,".$qK." R_Keu,GREATEST".$qF." R_Fisik FROM dpa90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['REAL_THN']."') K LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) OPD_PAGU FROM dpa90_akun WHERE Tahun='".$_SESSION['__WEB_APP']['REAL_THN']."' GROUP BY OPDID) TT ON (TT.OPDID=K.OPDID) LEFT JOIN para90_opd M ON (M.OPDID=K.OPDID) WHERE M.Aktif=1 GROUP BY K.OPDID) A ORDER BY A.REAL_KINERJA ASC LIMIT 10");
|
||||
$db->Query("SELECT * FROM (SELECT M.S_OPD,(SUM(K.R_Keu)/SUM(K.Renc_Keu))*100 REAL_KEU,SUM(K.R_Fisik*K.Renc_Keu/TT.OPD_PAGU) REAL_FISIK,(((SUM(K.R_Keu)/SUM(K.Renc_Keu))*100)+SUM(K.R_Fisik*K.Renc_Keu/TT.OPD_PAGU))/2 REAL_KINERJA FROM (SELECT *,".$qK." R_Keu,GREATEST".$qF." R_Fisik FROM dpa_akun WHERE Tahun='".$_SESSION['__WEB_APP']['REAL_THN']."') K LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) OPD_PAGU FROM dpa_akun WHERE Tahun='".$_SESSION['__WEB_APP']['REAL_THN']."' GROUP BY OPDID) TT ON (TT.OPDID=K.OPDID) LEFT JOIN para90_opd M ON (M.OPDID=K.OPDID) WHERE M.Aktif=1 GROUP BY K.OPDID) A ORDER BY A.REAL_KINERJA ASC LIMIT 10");
|
||||
|
||||
$adata['datasets'] = array();
|
||||
$adata['labels'] = array();
|
||||
|
||||
+1
-1
@@ -13,7 +13,7 @@
|
||||
*******************************************************************/
|
||||
|
||||
require_once(__DIR__."/../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/func.emonev.php");
|
||||
require_once(__DIR__."/func/emonev.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
use siaupheng\fonia3\Web\Auth;
|
||||
|
||||
@@ -1,149 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ebijak_renja.php
|
||||
Desc. : PHP - Evaluasi Kebijakan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : October 21st, 2019.
|
||||
|
||||
(c) 2011 - 2019, 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;
|
||||
|
||||
$db = $db ?? new MySQL();
|
||||
$ajson = [];
|
||||
$data = Param::Get("data");
|
||||
$mode = Param::Get("mode");
|
||||
$mode_detail = Param::Get("mode_detail");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
||||
$id_opd = Param::Get("OPDID", 0);
|
||||
$id_kendali = Param::Get("KendaliID", 0);
|
||||
|
||||
if ( in_array($data, ["tabel-opd","tabel-keg"]) ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(1,3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new Table($db);
|
||||
$obj->set_query("SELECT S.* FROM vi_para90_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hid");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hid");
|
||||
$obj->add_field("K_OPD", "Kode", "c");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "awr");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Kegiatan", "EBijakRenjaJS.opd_select");
|
||||
$obj->set_func_navi("EBijakRenjaJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
if ($mode_detail=="save") {
|
||||
$isedit = true;
|
||||
$db->Query("SELECT COUNT(*) Item FROM kendali_detail WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND KendaliID='".$id_kendali."'");
|
||||
if ($db->Next()) {
|
||||
if ($db->Row("Item",0)==0) $isedit = false;
|
||||
}
|
||||
$sql = new SQL($db);
|
||||
$sql->set_table("kendali_detail");
|
||||
if (!$isedit) {
|
||||
$sql->add_param("Tahun", $thn_renja);
|
||||
$sql->add_param("ID", Kendali_ID($thn_renja));
|
||||
$sql->add_param("OPDID", $id_opd);
|
||||
$sql->add_param("KendaliID", $id_kendali);
|
||||
}
|
||||
$sql->add_param("Sesuai");
|
||||
$sql->add_param("Sebab");
|
||||
$sql->add_param("Tindak");
|
||||
$sql->add_param_stamp();
|
||||
$sql->add_param_userid();
|
||||
$sql->add_where("Tahun", $thn_renja);
|
||||
$sql->add_where("OPDID", $id_opd);
|
||||
$sql->add_where("KendaliID", $id_kendali);
|
||||
if ($isedit) { $sql->UpdateDB(); } else $sql->InsertDB();
|
||||
}
|
||||
|
||||
$obj = new Table($db);
|
||||
$obj->set_query("SELECT K.*,P.KendaliID ID2,P.K_Kendali,P.N_Kendali,P.Edit FROM para_kendali P LEFT JOIN (SELECT * FROM kendali_detail WHERE ".$qsql.") K ON (P.KendaliID=K.KendaliID) WHERE P.Spesial='" .($id_opd==37 ? 0 : 1). "'");
|
||||
$obj->add_field("ID2", "ID", "hid");
|
||||
$obj->add_field("K_Kendali", "Kode", "c");
|
||||
$obj->add_field("N_Kendali", "Nama Pengendalian", "awr");
|
||||
$obj->add_field("Sesuai", "Kesesuaian", "c", "checkbox");
|
||||
$obj->add_field("Sebab", "Penyebab", "hid");
|
||||
$obj->add_field("Tindak", "Tidak Lanjut", "hid");
|
||||
$obj->set_field_order("K_Kendali", "A");
|
||||
//$obj->set_button_field("Edit", "1");
|
||||
$obj->add_row_btn("clipboard", "Ubah", "EBijakRenjaJS.keg_ubah");
|
||||
$obj->set_func_navi("EBijakRenjaJS.data_query('tabel-keg')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divKEG");
|
||||
|
||||
} else if ( $data == "detail-keg" ) {
|
||||
$db->Query("SELECT D.* FROM kendali_detail D WHERE D.Tahun='".$thn_renja."' AND D.OPDID='".$id_opd."' AND D.KendaliID='".$id_kendali."'");
|
||||
if ($db->Next()) $adata = $db->AllRow();
|
||||
|
||||
$form = new Form($db);
|
||||
$tkendali = $form->textarea("_", "N_Kendali", $adata['N_Kendali'], false, false, 2);
|
||||
$tsesuai = $form->radio("_", "Sesuai", $adata['Sesuai'], true, true, array(1=>"Ada",0=>"Tidak Ada"));
|
||||
$tsebab = $form->textarea("_", "Sebab", $adata['Sebab'], true, true, 2);
|
||||
$ttindak = $form->textarea("_", "Tindak", $adata['Tindak'], true, true, 2);
|
||||
|
||||
echo '
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="N_Kendali">Nama Pengendalian</label>
|
||||
<div class="col">'.$tkendali.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Sesuai">Kesesuaian</label>
|
||||
<div class="col">'.$tsesuai.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Sebab">Faktor Penyebab</label>
|
||||
<div class="col">'.$tsebab.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Tindak">Tindak Lanjut</label>
|
||||
<div class="col">'.$ttindak.'</div>
|
||||
</div>
|
||||
<input type="hidden" id="KendaliID" value="'.$id_kendali.'">
|
||||
';
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Kebijakan Renja // Tahun '.$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="OPDID" type="hidden" value="0">
|
||||
<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 id="divOPD"> </div>
|
||||
<div id="divKEG"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,150 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ebijak_renja.php
|
||||
Desc. : PHP - Evaluasi Kebijakan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : October 21st, 2019.
|
||||
|
||||
(c) 2011 - 2019, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
||||
require_once(dirname(__FILE__)."/../func.emonev.php");
|
||||
|
||||
$db = DB();
|
||||
$ajson = array();
|
||||
$data = $ap->getParam("data");
|
||||
$mode = $ap->getParam("mode");
|
||||
$mode_detail = $ap->getParam("mode_detail");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_kendali = $ap->getParam("KendaliID", 0);
|
||||
|
||||
if ( $data == "tabel-opd" || $data == "tabel-keg" ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hidden");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hidden");
|
||||
$obj->add_field("K_OPD", "Kode", "center");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Kegiatan", "EBijakRenstraJS.opd_select");
|
||||
$obj->set_func_navi("EBijakRenstraJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
if ($mode_detail=="save") {
|
||||
$isedit = true;
|
||||
$db->Query("SELECT COUNT(*) Item FROM kendali_detail WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND KendaliID='".$id_kendali."'");
|
||||
if ($db->Next()) {
|
||||
if ($db->Row("Item",0)==0) $isedit = false;
|
||||
}
|
||||
$sql = new cSQL();
|
||||
$sql->set_table("kendali_detail");
|
||||
if (!$isedit) {
|
||||
$sql->add_param("Tahun", $thn_renja);
|
||||
$sql->add_param("ID", Kendali_ID($thn_renja));
|
||||
$sql->add_param("OPDID", $id_opd);
|
||||
$sql->add_param("KendaliID", $id_kendali);
|
||||
}
|
||||
$sql->add_param("Sesuai");
|
||||
$sql->add_param("Sebab");
|
||||
$sql->add_param("Tindak");
|
||||
$sql->add_param_stamp();
|
||||
$sql->add_param_userid();
|
||||
$sql->add_where("Tahun", $thn_renja);
|
||||
$sql->add_where("OPDID", $id_opd);
|
||||
$sql->add_where("KendaliID", $id_kendali);
|
||||
if ($isedit) { $sql->UpdateDB(); } else $sql->InsertDB();
|
||||
}
|
||||
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT K.*,P.KendaliID ID2,P.K_Kendali,P.N_Kendali,P.Edit FROM para_kendali P LEFT JOIN (SELECT * FROM kendali_detail WHERE ".$qsql.") K ON (P.KendaliID=K.KendaliID) WHERE P.Spesial='" .($id_opd==37 ? 0 : 1). "'");
|
||||
$obj->add_field("ID2", "ID", "hidden");
|
||||
$obj->add_field("K_Kendali", "Kode", "center");
|
||||
$obj->add_field("N_Kendali", "Nama Pengendalian", "left autowrap");
|
||||
$obj->add_field("Sesuai", "Kesesuaian", "center", "checkbox");
|
||||
$obj->add_field("Sebab", "Penyebab", "hidden");
|
||||
$obj->add_field("Tindak", "Tidak Lanjut", "hidden");
|
||||
$obj->set_field_order("K_Kendali", "A");
|
||||
//$obj->set_button_field("Edit", "1");
|
||||
$obj->add_row_btn("clipboard", "Ubah", "EBijakRenstraJS.keg_ubah");
|
||||
$obj->set_func_navi("EBijakRenstraJS.data_query('tabel-keg')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divKEG");
|
||||
|
||||
} else if ( $data == "detail-keg" ) {
|
||||
$db->Query("SELECT D.* FROM kendali_detail D WHERE D.Tahun='".$thn_renja."' AND D.OPDID='".$id_opd."' AND D.KendaliID='".$id_kendali."'");
|
||||
if ($db->Next()) $adata = $db->AllRow();
|
||||
|
||||
$form = new cFORM();
|
||||
$tkendali = $form->textarea("_", "N_Kendali", $adata['N_Kendali'], false, false, 2);
|
||||
$tsesuai = $form->radio("_", "Sesuai", $adata['Sesuai'], true, true, array(1=>"Ada",0=>"Tidak Ada"));
|
||||
$tsebab = $form->textarea("_", "Sebab", $adata['Sebab'], true, true, 2);
|
||||
$ttindak = $form->textarea("_", "Tindak", $adata['Tindak'], true, true, 2);
|
||||
|
||||
echo '
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="N_Kendali">Nama Pengendalian</label>
|
||||
<div class="col">'.$tkendali.'</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Sesuai">Kesesuaian</label>
|
||||
<div class="col">'.$tsesuai.'</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Sebab">Faktor Penyebab</label>
|
||||
<div class="col">'.$tsebab.'</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Tindak">Tindak Lanjut</label>
|
||||
<div class="col">'.$ttindak.'</div>
|
||||
</div>
|
||||
<input type="hidden" id="KendaliID" value="'.$id_kendali.'">
|
||||
';
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Kebijakan Renstra // Tahun '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="form-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="OPDID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="divOPD"> </div>
|
||||
<div id="divKEG"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,150 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ebijak_renja.php
|
||||
Desc. : PHP - Evaluasi Kebijakan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : October 21st, 2019.
|
||||
|
||||
(c) 2011 - 2019, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
||||
require_once(dirname(__FILE__)."/../func.emonev.php");
|
||||
|
||||
$db = DB();
|
||||
$ajson = array();
|
||||
$data = $ap->getParam("data");
|
||||
$mode = $ap->getParam("mode");
|
||||
$mode_detail = $ap->getParam("mode_detail");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_kendali = $ap->getParam("KendaliID", 0);
|
||||
|
||||
if ( $data == "tabel-opd" || $data == "tabel-keg" ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hidden");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hidden");
|
||||
$obj->add_field("K_OPD", "Kode", "center");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Kegiatan", "EBijakRKPDJS.opd_select");
|
||||
$obj->set_func_navi("EBijakRKPDJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
if ($mode_detail=="save") {
|
||||
$isedit = true;
|
||||
$db->Query("SELECT COUNT(*) Item FROM kendali_detail WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND KendaliID='".$id_kendali."'");
|
||||
if ($db->Next()) {
|
||||
if ($db->Row("Item",0)==0) $isedit = false;
|
||||
}
|
||||
$sql = new cSQL();
|
||||
$sql->set_table("kendali_detail");
|
||||
if (!$isedit) {
|
||||
$sql->add_param("Tahun", $thn_renja);
|
||||
$sql->add_param("ID", Kendali_ID($thn_renja));
|
||||
$sql->add_param("OPDID", $id_opd);
|
||||
$sql->add_param("KendaliID", $id_kendali);
|
||||
}
|
||||
$sql->add_param("Sesuai");
|
||||
$sql->add_param("Sebab");
|
||||
$sql->add_param("Tindak");
|
||||
$sql->add_param_stamp();
|
||||
$sql->add_param_userid();
|
||||
$sql->add_where("Tahun", $thn_renja);
|
||||
$sql->add_where("OPDID", $id_opd);
|
||||
$sql->add_where("KendaliID", $id_kendali);
|
||||
if ($isedit) { $sql->UpdateDB(); } else $sql->InsertDB();
|
||||
}
|
||||
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT K.*,P.KendaliID ID2,P.K_Kendali,P.N_Kendali,P.Edit FROM para_kendali P LEFT JOIN (SELECT * FROM kendali_detail WHERE ".$qsql.") K ON (P.KendaliID=K.KendaliID) WHERE P.Spesial='" .($id_opd==37 ? 0 : 1). "'");
|
||||
$obj->add_field("ID2", "ID", "hidden");
|
||||
$obj->add_field("K_Kendali", "Kode", "center");
|
||||
$obj->add_field("N_Kendali", "Nama Pengendalian", "left autowrap");
|
||||
$obj->add_field("Sesuai", "Kesesuaian", "center", "checkbox");
|
||||
$obj->add_field("Sebab", "Penyebab", "hidden");
|
||||
$obj->add_field("Tindak", "Tidak Lanjut", "hidden");
|
||||
$obj->set_field_order("K_Kendali", "A");
|
||||
//$obj->set_button_field("Edit", "1");
|
||||
$obj->add_row_btn("clipboard", "Ubah", "EBijakRKPDJS.keg_ubah");
|
||||
$obj->set_func_navi("EBijakRKPDJS.data_query('tabel-keg')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divKEG");
|
||||
|
||||
} else if ( $data == "detail-keg" ) {
|
||||
$db->Query("SELECT D.* FROM kendali_detail D WHERE D.Tahun='".$thn_renja."' AND D.OPDID='".$id_opd."' AND D.KendaliID='".$id_kendali."'");
|
||||
if ($db->Next()) $adata = $db->AllRow();
|
||||
|
||||
$form = new cFORM();
|
||||
$tkendali = $form->textarea("_", "N_Kendali", $adata['N_Kendali'], false, false, 2);
|
||||
$tsesuai = $form->radio("_", "Sesuai", $adata['Sesuai'], true, true, array(1=>"Ada",0=>"Tidak Ada"));
|
||||
$tsebab = $form->textarea("_", "Sebab", $adata['Sebab'], true, true, 2);
|
||||
$ttindak = $form->textarea("_", "Tindak", $adata['Tindak'], true, true, 2);
|
||||
|
||||
echo '
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="N_Kendali">Nama Pengendalian</label>
|
||||
<div class="col">'.$tkendali.'</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Sesuai">Kesesuaian</label>
|
||||
<div class="col">'.$tsesuai.'</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Sebab">Faktor Penyebab</label>
|
||||
<div class="col">'.$tsebab.'</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Tindak">Tindak Lanjut</label>
|
||||
<div class="col">'.$ttindak.'</div>
|
||||
</div>
|
||||
<input type="hidden" id="KendaliID" value="'.$id_kendali.'">
|
||||
';
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Kebijakan RKPD // Tahun '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="form-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="OPDID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="divOPD"> </div>
|
||||
<div id="divKEG"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,150 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ebijak_renja.php
|
||||
Desc. : PHP - Evaluasi Kebijakan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : October 21st, 2019.
|
||||
|
||||
(c) 2011 - 2019, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
||||
require_once(dirname(__FILE__)."/../func.emonev.php");
|
||||
|
||||
$db = DB();
|
||||
$ajson = array();
|
||||
$data = $ap->getParam("data");
|
||||
$mode = $ap->getParam("mode");
|
||||
$mode_detail = $ap->getParam("mode_detail");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_kendali = $ap->getParam("KendaliID", 0);
|
||||
|
||||
if ( $data == "tabel-opd" || $data == "tabel-keg" ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hidden");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hidden");
|
||||
$obj->add_field("K_OPD", "Kode", "center");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Kegiatan", "EBijakRPJMDJS.opd_select");
|
||||
$obj->set_func_navi("EBijakRPJMDJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
if ($mode_detail=="save") {
|
||||
$isedit = true;
|
||||
$db->Query("SELECT COUNT(*) Item FROM kendali_detail WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' AND KendaliID='".$id_kendali."'");
|
||||
if ($db->Next()) {
|
||||
if ($db->Row("Item",0)==0) $isedit = false;
|
||||
}
|
||||
$sql = new cSQL();
|
||||
$sql->set_table("kendali_detail");
|
||||
if (!$isedit) {
|
||||
$sql->add_param("Tahun", $thn_renja);
|
||||
$sql->add_param("ID", Kendali_ID($thn_renja));
|
||||
$sql->add_param("OPDID", $id_opd);
|
||||
$sql->add_param("KendaliID", $id_kendali);
|
||||
}
|
||||
$sql->add_param("Sesuai");
|
||||
$sql->add_param("Sebab");
|
||||
$sql->add_param("Tindak");
|
||||
$sql->add_param_stamp();
|
||||
$sql->add_param_userid();
|
||||
$sql->add_where("Tahun", $thn_renja);
|
||||
$sql->add_where("OPDID", $id_opd);
|
||||
$sql->add_where("KendaliID", $id_kendali);
|
||||
if ($isedit) { $sql->UpdateDB(); } else $sql->InsertDB();
|
||||
}
|
||||
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT K.*,P.KendaliID ID2,P.K_Kendali,P.N_Kendali,P.Edit FROM para_kendali P LEFT JOIN (SELECT * FROM kendali_detail WHERE ".$qsql.") K ON (P.KendaliID=K.KendaliID) WHERE P.Spesial='" .($id_opd==37 ? 0 : 1). "'");
|
||||
$obj->add_field("ID2", "ID", "hidden");
|
||||
$obj->add_field("K_Kendali", "Kode", "center");
|
||||
$obj->add_field("N_Kendali", "Nama Pengendalian", "left autowrap");
|
||||
$obj->add_field("Sesuai", "Kesesuaian", "center", "checkbox");
|
||||
$obj->add_field("Sebab", "Penyebab", "hidden");
|
||||
$obj->add_field("Tindak", "Tidak Lanjut", "hidden");
|
||||
$obj->set_field_order("K_Kendali", "A");
|
||||
//$obj->set_button_field("Edit", "1");
|
||||
$obj->add_row_btn("clipboard", "Ubah", "EBijakRPJMDJS.keg_ubah");
|
||||
$obj->set_func_navi("EBijakRPJMDJS.data_query('tabel-keg')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divKEG");
|
||||
|
||||
} else if ( $data == "detail-keg" ) {
|
||||
$db->Query("SELECT D.* FROM kendali_detail D WHERE D.Tahun='".$thn_renja."' AND D.OPDID='".$id_opd."' AND D.KendaliID='".$id_kendali."'");
|
||||
if ($db->Next()) $adata = $db->AllRow();
|
||||
|
||||
$form = new cFORM();
|
||||
$tkendali = $form->textarea("_", "N_Kendali", $adata['N_Kendali'], false, false, 2);
|
||||
$tsesuai = $form->radio("_", "Sesuai", $adata['Sesuai'], true, true, array(1=>"Ada",0=>"Tidak Ada"));
|
||||
$tsebab = $form->textarea("_", "Sebab", $adata['Sebab'], true, true, 2);
|
||||
$ttindak = $form->textarea("_", "Tindak", $adata['Tindak'], true, true, 2);
|
||||
|
||||
echo '
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="N_Kendali">Nama Pengendalian</label>
|
||||
<div class="col">'.$tkendali.'</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Sesuai">Kesesuaian</label>
|
||||
<div class="col">'.$tsesuai.'</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Sebab">Faktor Penyebab</label>
|
||||
<div class="col">'.$tsebab.'</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Tindak">Tindak Lanjut</label>
|
||||
<div class="col">'.$ttindak.'</div>
|
||||
</div>
|
||||
<input type="hidden" id="KendaliID" value="'.$id_kendali.'">
|
||||
';
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Kebijakan RPJMD // Tahun '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="form-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="OPDID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="divOPD"> </div>
|
||||
<div id="divKEG"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,212 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ehasil_renja.php
|
||||
Desc. : PHP - Evaluasi Hasil Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : July 4th, 2020.
|
||||
|
||||
(c) 2011 - 2020, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
||||
require_once(dirname(__FILE__)."/../func.emonev.php");
|
||||
|
||||
function t_wulan($ntw = 1, $nilai = 0) {
|
||||
return ($ntw<=$_SESSION['__WEB_APP']['REAL_TW'] ? rupiah($nilai) : "");
|
||||
}
|
||||
|
||||
$db = DB();
|
||||
$db2 = DB();
|
||||
$ajson = array();
|
||||
$data = $ap->getParam("data");
|
||||
$mode = $ap->getParam("mode");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['REAL_THN'];
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_upt = $ap->getParam("UPTID", 0);
|
||||
|
||||
if ( $data == "tabel-opd" || $data == "tabel-upt" || $data == "tabel-output" ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$qsql = " U.Aktif=1";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND U.OPDID='".$id_opd."'";
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
$qsql .= ($id_upt==0) ? "" : " AND UPTID='".$id_upt."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
$qsql .= ($_SESSION['__WEB_USER']['Level']==4) ? " AND UPTID IN (".$_SESSION['__WEB_USER']['AK_UPT'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "print" || $data == "excel" || $data == "tabel-output" ) {
|
||||
$tahun = $ap->getParam("Tahun", $_SESSION['__WEB_APP']['REAL_THN']);
|
||||
$is_rutin = $ap->getParam("Cetak_Rutin", 1);
|
||||
$twulan = $_SESSION['__WEB_APP']['REAL_TW'];
|
||||
$nama_opd = "Kabupaten Mempawah";
|
||||
$k_bu = "0.00";
|
||||
if ($id_opd>0) {
|
||||
$db->Query("SELECT Nama_OPD,K_BidangU FROM vi_para_opd WHERE OPDID='".$id_opd."'");
|
||||
if ($db->Next()) {
|
||||
$nama_opd = ucwords(strtolower($db->Row("Nama_OPD")));
|
||||
$k_bu = $db->Row("K_BidangU");
|
||||
}
|
||||
}
|
||||
|
||||
$tabel_data = "dpa_detail"; $tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND T.UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND T.ProgID>7";
|
||||
|
||||
// proses rekap database
|
||||
Report_Empty("hasil_urus");
|
||||
Report_Empty("hasil_fung");
|
||||
Report_Empty("hasil_prog");
|
||||
|
||||
// insert urusan
|
||||
$db->Query("INSERT INTO rep_hasil_urus SELECT T.Tahun,BU.K_Urusan,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
||||
$db->Query("SELECT T.Tahun,BU.K_Urusan,SUM(T.RealF_TW1*T.B_Total/RU.URUS_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RU.URUS_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RU.URUS_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RU.URUS_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) LEFT JOIN rep_hasil_urus RU ON (T.Tahun=RU.Tahun AND BU.K_Urusan=RU.K_Urusan AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
||||
while ($db->Next()){
|
||||
$db2->Query("UPDATE rep_hasil_urus SET URUS_T1_PSN='".$db->Row("T1_PSN")."',URUS_T2_PSN='".$db->Row("T2_PSN")."',URUS_T3_PSN='".$db->Row("T3_PSN")."',URUS_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND K_Urusan='".$db->Row("K_Urusan")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
}
|
||||
// insert fungsi
|
||||
$db->Query("INSERT INTO rep_hasil_fung SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
||||
$db->Query("SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,SUM(T.RealF_TW1*T.B_Total/RF.FUNG_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RF.FUNG_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RF.FUNG_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RF.FUNG_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN rep_hasil_fung RF ON (T.Tahun=RF.Tahun AND P.K_BidangU=RF.K_BidangU AND RF.UserID='".user_id()."' AND RF.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
||||
while ($db->Next()){
|
||||
$db2->Query("UPDATE rep_hasil_fung SET FUNG_T1_PSN='".$db->Row("T1_PSN")."',FUNG_T2_PSN='".$db->Row("T2_PSN")."',FUNG_T3_PSN='".$db->Row("T3_PSN")."',FUNG_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND K_BidangU='".$db->Row("K_BidangU")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
}
|
||||
// insert program
|
||||
$db->Query("INSERT INTO rep_hasil_prog SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
||||
$db->Query("SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,SUM(T.RealF_TW1*T.B_Total/RP.PROG_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RP.PROG_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RP.PROG_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RP.PROG_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN rep_hasil_prog RP ON (T.Tahun=RP.Tahun AND T.OPDID=RP.OPDID AND T.UPTID=RP.UPTID AND T.ProgID=RP.ProgID AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
||||
while ($db->Next()){
|
||||
$db2->Query("UPDATE rep_hasil_prog SET PROG_T1_PSN='".$db->Row("T1_PSN")."',PROG_T2_PSN='".$db->Row("T2_PSN")."',PROG_T3_PSN='".$db->Row("T3_PSN")."',PROG_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND OPDID='".$db->Row("OPDID")."' AND UPTID='".$db->Row("UPTID")."' AND ProgID='".$db->Row("ProgID")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
}
|
||||
|
||||
$tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND ProgID>7";
|
||||
if ($twulan == 1) {
|
||||
$qR = "A.RealK_TW1";
|
||||
$qRF = "A.RealF_TW1";
|
||||
} else if ($twulan == 2) {
|
||||
$qR = "A.RealK_TW1+A.RealK_TW2";
|
||||
$qRF = "A.RealF_TW2";
|
||||
} else if ($twulan == 3) {
|
||||
$qR = "A.RealK_TW1+A.RealK_TW2+A.RealK_TW3";
|
||||
$qRF = "A.RealF_TW3";
|
||||
} else if ($twulan == 4) {
|
||||
$qR = "A.RealK_TW1+A.RealK_TW2+A.RealK_TW3+A.RealK_TW4";
|
||||
$qRF = "A.RealF_TW4";
|
||||
}
|
||||
$db->Query("SELECT A.K_RKA,A.K_Urusan KO_URUSAN,A.K_BidangU KO_FUNGSI,A.K_UPT KO_UPT,A.K_Prog KO_PROGRAM,CONCAT(A.K_Prog,'.',A.K_Keg) KO_KEG,A.N_Urusan N_URUSAN,A.N_BidangU N_FUNGSI,A.N_UPT N_UPT,A.N_Prog N_PROGRAM,A.N_Keg,A.B_Total PAGU,GREATEST(A.RealF_TW1,A.RealF_TW2,A.RealF_TW3,A.RealF_TW4) R_FISIK,(".$qR.") R_RP,A.T_Keluar TARGET_K,A.U_Keluar INDI_KEG,A.T_Hasil TAR_KEG,RU.*,RF.*,RP.*,A.Lokasi,A.Prog_Indi INDI_PROG,A.Prog_Target TAR_PROG,A.RealK_TW1,A.RealK_TW2,A.RealK_TW3,A.RealK_TW4,A.RealF_TW1,A.RealF_TW2,A.RealF_TW3,A.RealF_TW4 FROM (SELECT T.*,PR.K_Prog,PR.Prog_Indi,PR.Prog_Target,U.N_UPT,P.N_Urut,P.N_Prog,IF(ISNULL(R.K_Urusan),S.K_Urusan,R.K_Urusan) K_Urusan,IF(ISNULL(R.K_Urusan),S.N_Urusan,R.N_Urusan) N_Urusan,IF(ISNULL(R.K_Urusan),S.K_BidangU,BU.K_BidangU) K_BidangU,IF(ISNULL(R.K_Urusan),S.N_BidangU,BU.N_BidangU) N_BidangU FROM (SELECT * FROM ".$tabel_data." WHERE Tahun='".$tahun."'".$tsql.") T LEFT JOIN dpa_prog PR ON (T.Tahun=PR.Tahun AND T.OPDID=PR.OPDID AND T.UPTID=PR.UPTID AND T.ProgID=PR.ProgID) LEFT JOIN vi_para_opd S ON (T.OPDID=S.OPDID) LEFT JOIN para_upt U ON (T.UPTID=U.UPTID) LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (P.K_BidangU=BU.K_BidangU) LEFT JOIN para_urusan R ON (BU.K_Urusan=R.K_Urusan)) A LEFT JOIN rep_hasil_urus RU ON (A.K_Urusan=RU.K_Urusan AND A.Tahun=RU.Tahun AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') LEFT JOIN rep_hasil_fung RF ON (A.K_BidangU=RF.K_BidangU AND A.Tahun=RF.Tahun AND RF.UserID='".user_id()."' AND RF.Unix='".user_unix()."') LEFT JOIN rep_hasil_prog RP ON (A.ProgID=RP.ProgID AND A.OPDID=RP.OPDID AND A.UPTID=RP.UPTID AND A.Tahun=RP.Tahun AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') ORDER BY A.K_Urusan, A.K_BidangU, A.N_Urut, A.K_Prog, A.K_UPT, A.K_Keg");
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hidden");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hidden");
|
||||
$obj->add_field("K_OPD", "Kode", "center");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Unit / UPTD", "EHasilRenstraJS.opd_select");
|
||||
$obj->set_func_navi("EHasilRenstraJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT U.* FROM vi_para_upt U WHERE ".$qsql);
|
||||
$obj->add_field("UPTID", "UPT", "hidden");
|
||||
$obj->add_field("Nama_UPT", "Nama UPT", "hidden");
|
||||
$obj->add_field("K_UPT", "Kode", "center");
|
||||
$obj->add_field("N_UPT", "Nama Unit / UPTD", "left autowrap");
|
||||
$obj->set_field_order("K_UPT", "A");
|
||||
$obj->add_row_btn("folder", "Output", "EHasilRenstraJS.upt_select");
|
||||
$obj->set_func_navi("EHasilRenstraJS.data_query('tabel-upt')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divUPT");
|
||||
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$header = '<hr>
|
||||
<table width="100%" class="garis">
|
||||
<tr><td width="20" class="center bold" rowspan="3">No.</td><td width="50" class="center bold" rowspan="3">Kode</td><td width="100" class="center bold" rowspan="3">Urusan/Bidang Urusan<br>Pemerintahan Daerah<br>dan Program/Kegiatan</td><td width="100" class="center bold" rowspan="3">Indikator Kinerja Program<br>(Outcome) Kegiatan<br>(Output)</td><td width="100" class="center bold" rowspan="2" colspan="2">Target Renstra Perangkat<br>Daerah Provinsi pada Tahun 2023</td><td width="100" class="center bold" rowspan="2" colspan="2">Realisasi Capaian Kinerja<br>Renstra Perangkat Daerah<br>Provinsi Sampai Dengan Renja<br>Perangkat Daerah Tahun Lalu (n-2)</td><td width="100" class="center bold" rowspan="2" colspan="2">Target Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>Provinsi Tahun Berjalan (n-1) yang dievaluasi</td><td width="800" class="center bold" colspan="8">Realisasi Kinerja Pada Triwulan</td><td width="100" class="center bold" colspan="2">Realisasi Capaian<br>Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>Provinsi yang dievaluasi</td><td width="100" class="center bold" colspan="2">Tingkat Capaian Kinerja<br>dan Realisasi Anggaran<br>Renja PD Tahun n-1 (%)</td><td width="100" class="center bold" colspan="2">Realisasi Kinerja dan<br>Anggaran Renstra Perangkat<br>Daerah Provinsi s/d Tahun ...<br>(akhir tahun pelaksanaan Renja PD Provinsi Tahun ...)</td><td width="100" class="center bold" colspan="2">Tingkat Capaian Kinerja dan<br>Realisasi Anggaran Renstra<br>Perangkat Daerah Provinsi s/d<br>tahun ... (%)</td><td width="100" class="center bold" rowspan="3">Unit Perangkat Daerah<br>Penanggungjawab</td><td width="100" class="center bold" rowspan="3">Lokasi / <br>Keterangan</td></tr>
|
||||
<tr><td width="100" class="center bold" colspan="2">I</td><td width="100" class="center bold" colspan="2">II</td><td width="100" class="center bold" colspan="2">III</td><td width="100" class="center bold" colspan="2">IV</td><td width="100" class="center bold" colspan="2">8+9+10+11</td><td width="100" class="center bold" colspan="2">12/7 x 100%</td><td width="100" class="center bold" colspan="2">6+12</td><td width="100" class="center bold" colspan="2">5/4 x 100%</td></tr>
|
||||
<tr><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td></tr>
|
||||
<tr><td class="center">1</td><td class="center">2</td><td class="center">3</td><td class="center">4</td><td class="center" colspan="2">5</td><td class="center" colspan="2">6</td><td class="center" colspan="2">7</td><td class="center" colspan="2">8</td><td class="center" colspan="2">9</td><td class="center" colspan="2">10</td><td class="center" colspan="2">11</td><td class="center" colspan="2">12</td><td class="center" colspan="2">13</td><td class="center" colspan="2">14</td><td class="center" colspan="2">15</td><td class="center">16</td><td class="center">17</td></tr>';
|
||||
$_line = '<tr><td class="center" nowrap>%s</td><td class="left" nowrap>%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="left">%s</td><td class="left">%s</td></tr>';
|
||||
$body = $urus = $fung = $prog = ""; $nurut = 1;
|
||||
while ($db->Next()) {
|
||||
if ($urus <> $db->Row("KO_URUSAN")) {
|
||||
//todo: experiment
|
||||
$t_psn = max($db->Row("URUS_T1_PSN"), $db->Row("URUS_T2_PSN"), $db->Row("URUS_T3_PSN"), $db->Row("URUS_T4_PSN"));
|
||||
$t_rp = $db->Row("URUS_T1") + $db->Row("URUS_T2") + $db->Row("URUS_T3") + $db->Row("URUS_T4");
|
||||
$body .= sprintf($_line, "", $db->Row("KO_URUSAN"), $db->Row("N_URUSAN"), "", "", "", "", "", "", rupiah($db->Row("URUS_PAGU")), t_wulan(1,$db->Row("URUS_T1_PSN")), t_wulan(1,$db->Row("URUS_T1")), t_wulan(2,$db->Row("URUS_T2_PSN")), t_wulan(2,$db->Row("URUS_T2")), t_wulan(3,$db->Row("URUS_T3_PSN")), t_wulan(3,$db->Row("URUS_T3")), t_wulan(4,$db->Row("URUS_T4_PSN")), t_wulan(4,$db->Row("URUS_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("URUS_PAGU")*100), "", "", "", "", "", "");
|
||||
$urus = $db->Row("KO_URUSAN");
|
||||
}
|
||||
if ($fung <> $db->Row("KO_FUNGSI")) {
|
||||
//todo: experiment
|
||||
$t_psn = max($db->Row("FUNG_T1_PSN"), $db->Row("FUNG_T2_PSN"), $db->Row("FUNG_T3_PSN"), $db->Row("FUNG_T4_PSN"));
|
||||
$t_rp = $db->Row("FUNG_T1") + $db->Row("FUNG_T2") + $db->Row("FUNG_T3") + $db->Row("FUNG_T4");
|
||||
$body .= sprintf($_line, "", $db->Row("KO_FUNGSI"), $db->Row("N_FUNGSI"), "", "", "", "", "", "", rupiah($db->Row("FUNG_PAGU")), t_wulan(1,$db->Row("FUNG_T1_PSN")), t_wulan(1,$db->Row("FUNG_T1")), t_wulan(2,$db->Row("FUNG_T2_PSN")), t_wulan(2,$db->Row("FUNG_T2")), t_wulan(3,$db->Row("FUNG_T3_PSN")), t_wulan(3,$db->Row("FUNG_T3")), t_wulan(4,$db->Row("FUNG_T4_PSN")), t_wulan(4,$db->Row("FUNG_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("FUNG_PAGU")*100), "", "", "", "", "", "");
|
||||
$fung = $db->Row("KO_FUNGSI");
|
||||
}
|
||||
if ($prog <> $db->Row("KO_PROGRAM")) {
|
||||
//todo: experiment
|
||||
$t_psn = max($db->Row("PROG_T1_PSN"), $db->Row("PROG_T2_PSN"), $db->Row("PROG_T3_PSN"), $db->Row("PROG_T4_PSN"));
|
||||
$t_rp = $db->Row("PROG_T1") + $db->Row("PROG_T2") + $db->Row("PROG_T3") + $db->Row("PROG_T4");
|
||||
$body .= sprintf($_line, "", $db->Row("KO_PROGRAM"), $db->Row("N_PROGRAM"), $db->Row("TAR_PROG"), "", "", "", "", "", rupiah($db->Row("PROG_PAGU")), t_wulan(1,$db->Row("PROG_T1_PSN")), t_wulan(1,$db->Row("PROG_T1")), t_wulan(2,$db->Row("PROG_T2_PSN")), t_wulan(2,$db->Row("PROG_T2")), t_wulan(3,$db->Row("PROG_T3_PSN")), t_wulan(3,$db->Row("PROG_T3")), t_wulan(4,$db->Row("PROG_T4_PSN")), t_wulan(4,$db->Row("PROG_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("PROG_PAGU")*100), "", "", "", "", $db->Row("N_UPT"), "");
|
||||
$prog = $db->Row("KO_PROGRAM");
|
||||
}
|
||||
$body .= sprintf($_line, $nurut, $db->Row("KO_KEG"), $db->Row("N_Keg"), $db->Row("INDI_KEG"), "", "", "", "", $db->Row("TARGET_K"), rupiah($db->Row("PAGU")), t_wulan(1,$db->Row("RealF_TW1")), t_wulan(1,$db->Row("RealK_TW1")), t_wulan(2,$db->Row("RealF_TW2")), t_wulan(2,$db->Row("RealK_TW2")), t_wulan(3,$db->Row("RealF_TW3")), t_wulan(3,$db->Row("RealK_TW3")), t_wulan(4,$db->Row("RealF_TW4")), t_wulan(4,$db->Row("RealK_TW4")), rupiah($db->Row("R_FISIK")), rupiah($db->Row("R_RP")), "", rupiah($db->Row("R_RP")/$db->Row("PAGU")*100), "", "", "", "", "", $db->Row("Lokasi"));
|
||||
$nurut++;
|
||||
}
|
||||
echo $header . $body . "</table>";
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Hasil Renstra // Tahun '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="form-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="OPDID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<div class="col">
|
||||
<div class="input-group">
|
||||
<input class="form-control" id="Nama_UPT" placeholder="Nama Unit / UPTD " type="text" readonly>
|
||||
<input id="UPTID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butUPT"><span><i class="bi-arrow-left-right"></span></i>UPTD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="divOPD"> </div>
|
||||
<div id="divUPT"> </div>
|
||||
<div id="divOUTPUT"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,212 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ehasil_renja.php
|
||||
Desc. : PHP - Evaluasi Hasil Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : July 4th, 2020.
|
||||
|
||||
(c) 2011 - 2020, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
||||
require_once(dirname(__FILE__)."/../func.emonev.php");
|
||||
|
||||
function t_wulan($ntw = 1, $nilai = 0) {
|
||||
return ($ntw<=$_SESSION['__WEB_APP']['REAL_TW'] ? rupiah($nilai) : "");
|
||||
}
|
||||
|
||||
$db = DB();
|
||||
$db2 = DB();
|
||||
$ajson = array();
|
||||
$data = $ap->getParam("data");
|
||||
$mode = $ap->getParam("mode");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['REAL_THN'];
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_upt = $ap->getParam("UPTID", 0);
|
||||
|
||||
if ( $data == "tabel-opd" || $data == "tabel-upt" || $data == "tabel-output" ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$qsql = " U.Aktif=1";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND U.OPDID='".$id_opd."'";
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
$qsql .= ($id_upt==0) ? "" : " AND UPTID='".$id_upt."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
$qsql .= ($_SESSION['__WEB_USER']['Level']==4) ? " AND UPTID IN (".$_SESSION['__WEB_USER']['AK_UPT'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "print" || $data == "excel" || $data == "tabel-output" ) {
|
||||
$tahun = $ap->getParam("Tahun", $_SESSION['__WEB_APP']['REAL_THN']);
|
||||
$is_rutin = $ap->getParam("Cetak_Rutin", 1);
|
||||
$twulan = $_SESSION['__WEB_APP']['REAL_TW'];
|
||||
$nama_opd = "Kabupaten Mempawah";
|
||||
$k_bu = "0.00";
|
||||
if ($id_opd>0) {
|
||||
$db->Query("SELECT Nama_OPD,K_BidangU FROM vi_para_opd WHERE OPDID='".$id_opd."'");
|
||||
if ($db->Next()) {
|
||||
$nama_opd = ucwords(strtolower($db->Row("Nama_OPD")));
|
||||
$k_bu = $db->Row("K_BidangU");
|
||||
}
|
||||
}
|
||||
|
||||
$tabel_data = "dpa_detail"; $tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND T.UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND T.ProgID>7";
|
||||
|
||||
// proses rekap database
|
||||
Report_Empty("hasil_urus");
|
||||
Report_Empty("hasil_fung");
|
||||
Report_Empty("hasil_prog");
|
||||
|
||||
// insert urusan
|
||||
$db->Query("INSERT INTO rep_hasil_urus SELECT T.Tahun,BU.K_Urusan,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
||||
$db->Query("SELECT T.Tahun,BU.K_Urusan,SUM(T.RealF_TW1*T.B_Total/RU.URUS_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RU.URUS_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RU.URUS_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RU.URUS_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) LEFT JOIN rep_hasil_urus RU ON (T.Tahun=RU.Tahun AND BU.K_Urusan=RU.K_Urusan AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
||||
while ($db->Next()){
|
||||
$db2->Query("UPDATE rep_hasil_urus SET URUS_T1_PSN='".$db->Row("T1_PSN")."',URUS_T2_PSN='".$db->Row("T2_PSN")."',URUS_T3_PSN='".$db->Row("T3_PSN")."',URUS_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND K_Urusan='".$db->Row("K_Urusan")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
}
|
||||
// insert fungsi
|
||||
$db->Query("INSERT INTO rep_hasil_fung SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
||||
$db->Query("SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,SUM(T.RealF_TW1*T.B_Total/RF.FUNG_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RF.FUNG_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RF.FUNG_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RF.FUNG_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN rep_hasil_fung RF ON (T.Tahun=RF.Tahun AND P.K_BidangU=RF.K_BidangU AND RF.UserID='".user_id()."' AND RF.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
||||
while ($db->Next()){
|
||||
$db2->Query("UPDATE rep_hasil_fung SET FUNG_T1_PSN='".$db->Row("T1_PSN")."',FUNG_T2_PSN='".$db->Row("T2_PSN")."',FUNG_T3_PSN='".$db->Row("T3_PSN")."',FUNG_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND K_BidangU='".$db->Row("K_BidangU")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
}
|
||||
// insert program
|
||||
$db->Query("INSERT INTO rep_hasil_prog SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
||||
$db->Query("SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,SUM(T.RealF_TW1*T.B_Total/RP.PROG_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RP.PROG_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RP.PROG_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RP.PROG_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN rep_hasil_prog RP ON (T.Tahun=RP.Tahun AND T.OPDID=RP.OPDID AND T.UPTID=RP.UPTID AND T.ProgID=RP.ProgID AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
||||
while ($db->Next()){
|
||||
$db2->Query("UPDATE rep_hasil_prog SET PROG_T1_PSN='".$db->Row("T1_PSN")."',PROG_T2_PSN='".$db->Row("T2_PSN")."',PROG_T3_PSN='".$db->Row("T3_PSN")."',PROG_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND OPDID='".$db->Row("OPDID")."' AND UPTID='".$db->Row("UPTID")."' AND ProgID='".$db->Row("ProgID")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
}
|
||||
|
||||
$tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND ProgID>7";
|
||||
if ($twulan == 1) {
|
||||
$qR = "A.RealK_TW1";
|
||||
$qRF = "A.RealF_TW1";
|
||||
} else if ($twulan == 2) {
|
||||
$qR = "A.RealK_TW1+A.RealK_TW2";
|
||||
$qRF = "A.RealF_TW2";
|
||||
} else if ($twulan == 3) {
|
||||
$qR = "A.RealK_TW1+A.RealK_TW2+A.RealK_TW3";
|
||||
$qRF = "A.RealF_TW3";
|
||||
} else if ($twulan == 4) {
|
||||
$qR = "A.RealK_TW1+A.RealK_TW2+A.RealK_TW3+A.RealK_TW4";
|
||||
$qRF = "A.RealF_TW4";
|
||||
}
|
||||
$db->Query("SELECT A.K_RKA,A.K_Urusan KO_URUSAN,A.K_BidangU KO_FUNGSI,A.K_UPT KO_UPT,A.K_Prog KO_PROGRAM,CONCAT(A.K_Prog,'.',A.K_Keg) KO_KEG,A.N_Urusan N_URUSAN,A.N_BidangU N_FUNGSI,A.N_UPT N_UPT,A.N_Prog N_PROGRAM,A.N_Keg,A.B_Total PAGU,GREATEST(A.RealF_TW1,A.RealF_TW2,A.RealF_TW3,A.RealF_TW4) R_FISIK,(".$qR.") R_RP,A.T_Keluar TARGET_K,A.U_Keluar INDI_KEG,A.T_Hasil TAR_KEG,RU.*,RF.*,RP.*,A.Lokasi,A.Prog_Indi INDI_PROG,A.Prog_Target TAR_PROG,A.RealK_TW1,A.RealK_TW2,A.RealK_TW3,A.RealK_TW4,A.RealF_TW1,A.RealF_TW2,A.RealF_TW3,A.RealF_TW4 FROM (SELECT T.*,PR.K_Prog,PR.Prog_Indi,PR.Prog_Target,U.N_UPT,P.N_Urut,P.N_Prog,IF(ISNULL(R.K_Urusan),S.K_Urusan,R.K_Urusan) K_Urusan,IF(ISNULL(R.K_Urusan),S.N_Urusan,R.N_Urusan) N_Urusan,IF(ISNULL(R.K_Urusan),S.K_BidangU,BU.K_BidangU) K_BidangU,IF(ISNULL(R.K_Urusan),S.N_BidangU,BU.N_BidangU) N_BidangU FROM (SELECT * FROM ".$tabel_data." WHERE Tahun='".$tahun."'".$tsql.") T LEFT JOIN dpa_prog PR ON (T.Tahun=PR.Tahun AND T.OPDID=PR.OPDID AND T.UPTID=PR.UPTID AND T.ProgID=PR.ProgID) LEFT JOIN vi_para_opd S ON (T.OPDID=S.OPDID) LEFT JOIN para_upt U ON (T.UPTID=U.UPTID) LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (P.K_BidangU=BU.K_BidangU) LEFT JOIN para_urusan R ON (BU.K_Urusan=R.K_Urusan)) A LEFT JOIN rep_hasil_urus RU ON (A.K_Urusan=RU.K_Urusan AND A.Tahun=RU.Tahun AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') LEFT JOIN rep_hasil_fung RF ON (A.K_BidangU=RF.K_BidangU AND A.Tahun=RF.Tahun AND RF.UserID='".user_id()."' AND RF.Unix='".user_unix()."') LEFT JOIN rep_hasil_prog RP ON (A.ProgID=RP.ProgID AND A.OPDID=RP.OPDID AND A.UPTID=RP.UPTID AND A.Tahun=RP.Tahun AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') ORDER BY A.K_Urusan, A.K_BidangU, A.N_Urut, A.K_Prog, A.K_UPT, A.K_Keg");
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hidden");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hidden");
|
||||
$obj->add_field("K_OPD", "Kode", "center");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Unit / UPTD", "EHasilRKPDJS.opd_select");
|
||||
$obj->set_func_navi("EHasilRKPDJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT U.* FROM vi_para_upt U WHERE ".$qsql);
|
||||
$obj->add_field("UPTID", "UPT", "hidden");
|
||||
$obj->add_field("Nama_UPT", "Nama UPT", "hidden");
|
||||
$obj->add_field("K_UPT", "Kode", "center");
|
||||
$obj->add_field("N_UPT", "Nama Unit / UPTD", "left autowrap");
|
||||
$obj->set_field_order("K_UPT", "A");
|
||||
$obj->add_row_btn("folder", "Output", "EHasilRKPDJS.upt_select");
|
||||
$obj->set_func_navi("EHasilRKPDJS.data_query('tabel-upt')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divUPT");
|
||||
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$header = '<hr>
|
||||
<table width="100%" class="garis">
|
||||
<tr><td width="20" class="center bold" rowspan="3">No.</td><td width="50" class="center bold" rowspan="3">Kode</td><td width="100" class="center bold" rowspan="3">Urusan/Bidang Urusan<br>Pemerintahan Daerah<br>dan Program/Kegiatan</td><td width="100" class="center bold" rowspan="3">Indikator Kinerja Program<br>(Outcome) Kegiatan<br>(Output)</td><td width="100" class="center bold" rowspan="2" colspan="2">Target Renstra Perangkat<br>Daerah Provinsi pada Tahun 2023</td><td width="100" class="center bold" rowspan="2" colspan="2">Realisasi Capaian Kinerja<br>Renstra Perangkat Daerah<br>Provinsi Sampai Dengan Renja<br>Perangkat Daerah Tahun Lalu (n-2)</td><td width="100" class="center bold" rowspan="2" colspan="2">Target Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>Provinsi Tahun Berjalan (n-1) yang dievaluasi</td><td width="800" class="center bold" colspan="8">Realisasi Kinerja Pada Triwulan</td><td width="100" class="center bold" colspan="2">Realisasi Capaian<br>Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>Provinsi yang dievaluasi</td><td width="100" class="center bold" colspan="2">Tingkat Capaian Kinerja<br>dan Realisasi Anggaran<br>Renja PD Tahun n-1 (%)</td><td width="100" class="center bold" colspan="2">Realisasi Kinerja dan<br>Anggaran Renstra Perangkat<br>Daerah Provinsi s/d Tahun ...<br>(akhir tahun pelaksanaan Renja PD Provinsi Tahun ...)</td><td width="100" class="center bold" colspan="2">Tingkat Capaian Kinerja dan<br>Realisasi Anggaran Renstra<br>Perangkat Daerah Provinsi s/d<br>tahun ... (%)</td><td width="100" class="center bold" rowspan="3">Unit Perangkat Daerah<br>Penanggungjawab</td><td width="100" class="center bold" rowspan="3">Lokasi / <br>Keterangan</td></tr>
|
||||
<tr><td width="100" class="center bold" colspan="2">I</td><td width="100" class="center bold" colspan="2">II</td><td width="100" class="center bold" colspan="2">III</td><td width="100" class="center bold" colspan="2">IV</td><td width="100" class="center bold" colspan="2">8+9+10+11</td><td width="100" class="center bold" colspan="2">12/7 x 100%</td><td width="100" class="center bold" colspan="2">6+12</td><td width="100" class="center bold" colspan="2">5/4 x 100%</td></tr>
|
||||
<tr><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td></tr>
|
||||
<tr><td class="center">1</td><td class="center">2</td><td class="center">3</td><td class="center">4</td><td class="center" colspan="2">5</td><td class="center" colspan="2">6</td><td class="center" colspan="2">7</td><td class="center" colspan="2">8</td><td class="center" colspan="2">9</td><td class="center" colspan="2">10</td><td class="center" colspan="2">11</td><td class="center" colspan="2">12</td><td class="center" colspan="2">13</td><td class="center" colspan="2">14</td><td class="center" colspan="2">15</td><td class="center">16</td><td class="center">17</td></tr>';
|
||||
$_line = '<tr><td class="center" nowrap>%s</td><td class="left" nowrap>%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="left">%s</td><td class="left">%s</td></tr>';
|
||||
$body = $urus = $fung = $prog = ""; $nurut = 1;
|
||||
while ($db->Next()) {
|
||||
if ($urus <> $db->Row("KO_URUSAN")) {
|
||||
//todo: experiment
|
||||
$t_psn = max($db->Row("URUS_T1_PSN"), $db->Row("URUS_T2_PSN"), $db->Row("URUS_T3_PSN"), $db->Row("URUS_T4_PSN"));
|
||||
$t_rp = $db->Row("URUS_T1") + $db->Row("URUS_T2") + $db->Row("URUS_T3") + $db->Row("URUS_T4");
|
||||
$body .= sprintf($_line, "", $db->Row("KO_URUSAN"), $db->Row("N_URUSAN"), "", "", "", "", "", "", rupiah($db->Row("URUS_PAGU")), t_wulan(1,$db->Row("URUS_T1_PSN")), t_wulan(1,$db->Row("URUS_T1")), t_wulan(2,$db->Row("URUS_T2_PSN")), t_wulan(2,$db->Row("URUS_T2")), t_wulan(3,$db->Row("URUS_T3_PSN")), t_wulan(3,$db->Row("URUS_T3")), t_wulan(4,$db->Row("URUS_T4_PSN")), t_wulan(4,$db->Row("URUS_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("URUS_PAGU")*100), "", "", "", "", "", "");
|
||||
$urus = $db->Row("KO_URUSAN");
|
||||
}
|
||||
if ($fung <> $db->Row("KO_FUNGSI")) {
|
||||
//todo: experiment
|
||||
$t_psn = max($db->Row("FUNG_T1_PSN"), $db->Row("FUNG_T2_PSN"), $db->Row("FUNG_T3_PSN"), $db->Row("FUNG_T4_PSN"));
|
||||
$t_rp = $db->Row("FUNG_T1") + $db->Row("FUNG_T2") + $db->Row("FUNG_T3") + $db->Row("FUNG_T4");
|
||||
$body .= sprintf($_line, "", $db->Row("KO_FUNGSI"), $db->Row("N_FUNGSI"), "", "", "", "", "", "", rupiah($db->Row("FUNG_PAGU")), t_wulan(1,$db->Row("FUNG_T1_PSN")), t_wulan(1,$db->Row("FUNG_T1")), t_wulan(2,$db->Row("FUNG_T2_PSN")), t_wulan(2,$db->Row("FUNG_T2")), t_wulan(3,$db->Row("FUNG_T3_PSN")), t_wulan(3,$db->Row("FUNG_T3")), t_wulan(4,$db->Row("FUNG_T4_PSN")), t_wulan(4,$db->Row("FUNG_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("FUNG_PAGU")*100), "", "", "", "", "", "");
|
||||
$fung = $db->Row("KO_FUNGSI");
|
||||
}
|
||||
if ($prog <> $db->Row("KO_PROGRAM")) {
|
||||
//todo: experiment
|
||||
$t_psn = max($db->Row("PROG_T1_PSN"), $db->Row("PROG_T2_PSN"), $db->Row("PROG_T3_PSN"), $db->Row("PROG_T4_PSN"));
|
||||
$t_rp = $db->Row("PROG_T1") + $db->Row("PROG_T2") + $db->Row("PROG_T3") + $db->Row("PROG_T4");
|
||||
$body .= sprintf($_line, "", $db->Row("KO_PROGRAM"), $db->Row("N_PROGRAM"), $db->Row("TAR_PROG"), "", "", "", "", "", rupiah($db->Row("PROG_PAGU")), t_wulan(1,$db->Row("PROG_T1_PSN")), t_wulan(1,$db->Row("PROG_T1")), t_wulan(2,$db->Row("PROG_T2_PSN")), t_wulan(2,$db->Row("PROG_T2")), t_wulan(3,$db->Row("PROG_T3_PSN")), t_wulan(3,$db->Row("PROG_T3")), t_wulan(4,$db->Row("PROG_T4_PSN")), t_wulan(4,$db->Row("PROG_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("PROG_PAGU")*100), "", "", "", "", $db->Row("N_UPT"), "");
|
||||
$prog = $db->Row("KO_PROGRAM");
|
||||
}
|
||||
$body .= sprintf($_line, $nurut, $db->Row("KO_KEG"), $db->Row("N_Keg"), $db->Row("INDI_KEG"), "", "", "", "", $db->Row("TARGET_K"), rupiah($db->Row("PAGU")), t_wulan(1,$db->Row("RealF_TW1")), t_wulan(1,$db->Row("RealK_TW1")), t_wulan(2,$db->Row("RealF_TW2")), t_wulan(2,$db->Row("RealK_TW2")), t_wulan(3,$db->Row("RealF_TW3")), t_wulan(3,$db->Row("RealK_TW3")), t_wulan(4,$db->Row("RealF_TW4")), t_wulan(4,$db->Row("RealK_TW4")), rupiah($db->Row("R_FISIK")), rupiah($db->Row("R_RP")), "", rupiah($db->Row("R_RP")/$db->Row("PAGU")*100), "", "", "", "", "", $db->Row("Lokasi"));
|
||||
$nurut++;
|
||||
}
|
||||
echo $header . $body . "</table>";
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Hasil RKPD // Tahun '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="form-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="OPDID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<div class="col">
|
||||
<div class="input-group">
|
||||
<input class="form-control" id="Nama_UPT" placeholder="Nama Unit / UPTD " type="text" readonly>
|
||||
<input id="UPTID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butUPT"><span><i class="bi-arrow-left-right"></span></i>UPTD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="divOPD"> </div>
|
||||
<div id="divUPT"> </div>
|
||||
<div id="divOUTPUT"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,212 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ehasil_renja.php
|
||||
Desc. : PHP - Evaluasi Hasil Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : July 4th, 2020.
|
||||
|
||||
(c) 2011 - 2020, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
||||
require_once(dirname(__FILE__)."/../func.emonev.php");
|
||||
|
||||
function t_wulan($ntw = 1, $nilai = 0) {
|
||||
return ($ntw<=$_SESSION['__WEB_APP']['REAL_TW'] ? rupiah($nilai) : "");
|
||||
}
|
||||
|
||||
$db = DB();
|
||||
$db2 = DB();
|
||||
$ajson = array();
|
||||
$data = $ap->getParam("data");
|
||||
$mode = $ap->getParam("mode");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['REAL_THN'];
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_upt = $ap->getParam("UPTID", 0);
|
||||
|
||||
if ( $data == "tabel-opd" || $data == "tabel-upt" || $data == "tabel-output" ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$qsql = " U.Aktif=1";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND U.OPDID='".$id_opd."'";
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
$qsql .= ($id_upt==0) ? "" : " AND UPTID='".$id_upt."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
$qsql .= ($_SESSION['__WEB_USER']['Level']==4) ? " AND UPTID IN (".$_SESSION['__WEB_USER']['AK_UPT'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "print" || $data == "excel" || $data == "tabel-output" ) {
|
||||
$tahun = $ap->getParam("Tahun", $_SESSION['__WEB_APP']['REAL_THN']);
|
||||
$is_rutin = $ap->getParam("Cetak_Rutin", 1);
|
||||
$twulan = $_SESSION['__WEB_APP']['REAL_TW'];
|
||||
$nama_opd = "Kabupaten Mempawah";
|
||||
$k_bu = "0.00";
|
||||
if ($id_opd>0) {
|
||||
$db->Query("SELECT Nama_OPD,K_BidangU FROM vi_para_opd WHERE OPDID='".$id_opd."'");
|
||||
if ($db->Next()) {
|
||||
$nama_opd = ucwords(strtolower($db->Row("Nama_OPD")));
|
||||
$k_bu = $db->Row("K_BidangU");
|
||||
}
|
||||
}
|
||||
|
||||
$tabel_data = "dpa_detail"; $tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND T.UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND T.ProgID>7";
|
||||
|
||||
// proses rekap database
|
||||
Report_Empty("hasil_urus");
|
||||
Report_Empty("hasil_fung");
|
||||
Report_Empty("hasil_prog");
|
||||
|
||||
// insert urusan
|
||||
$db->Query("INSERT INTO rep_hasil_urus SELECT T.Tahun,BU.K_Urusan,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
||||
$db->Query("SELECT T.Tahun,BU.K_Urusan,SUM(T.RealF_TW1*T.B_Total/RU.URUS_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RU.URUS_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RU.URUS_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RU.URUS_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) LEFT JOIN rep_hasil_urus RU ON (T.Tahun=RU.Tahun AND BU.K_Urusan=RU.K_Urusan AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
||||
while ($db->Next()){
|
||||
$db2->Query("UPDATE rep_hasil_urus SET URUS_T1_PSN='".$db->Row("T1_PSN")."',URUS_T2_PSN='".$db->Row("T2_PSN")."',URUS_T3_PSN='".$db->Row("T3_PSN")."',URUS_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND K_Urusan='".$db->Row("K_Urusan")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
}
|
||||
// insert fungsi
|
||||
$db->Query("INSERT INTO rep_hasil_fung SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
||||
$db->Query("SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,SUM(T.RealF_TW1*T.B_Total/RF.FUNG_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RF.FUNG_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RF.FUNG_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RF.FUNG_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN rep_hasil_fung RF ON (T.Tahun=RF.Tahun AND P.K_BidangU=RF.K_BidangU AND RF.UserID='".user_id()."' AND RF.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
||||
while ($db->Next()){
|
||||
$db2->Query("UPDATE rep_hasil_fung SET FUNG_T1_PSN='".$db->Row("T1_PSN")."',FUNG_T2_PSN='".$db->Row("T2_PSN")."',FUNG_T3_PSN='".$db->Row("T3_PSN")."',FUNG_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND K_BidangU='".$db->Row("K_BidangU")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
}
|
||||
// insert program
|
||||
$db->Query("INSERT INTO rep_hasil_prog SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,SUM(T.B_Total),SUM(T.RealK_TW1),0,SUM(T.RealK_TW2),0,SUM(T.RealK_TW3),0,SUM(T.RealK_TW4),0,'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
||||
$db->Query("SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,SUM(T.RealF_TW1*T.B_Total/RP.PROG_PAGU) T1_PSN,SUM(T.RealF_TW2*T.B_Total/RP.PROG_PAGU) T2_PSN,SUM(T.RealF_TW3*T.B_Total/RP.PROG_PAGU) T3_PSN,SUM(T.RealF_TW4*T.B_Total/RP.PROG_PAGU) T4_PSN FROM ".$tabel_data." T LEFT JOIN rep_hasil_prog RP ON (T.Tahun=RP.Tahun AND T.OPDID=RP.OPDID AND T.UPTID=RP.UPTID AND T.ProgID=RP.ProgID AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
||||
while ($db->Next()){
|
||||
$db2->Query("UPDATE rep_hasil_prog SET PROG_T1_PSN='".$db->Row("T1_PSN")."',PROG_T2_PSN='".$db->Row("T2_PSN")."',PROG_T3_PSN='".$db->Row("T3_PSN")."',PROG_T4_PSN='".$db->Row("T4_PSN")."' WHERE Tahun='".$db->Row("Tahun")."' AND OPDID='".$db->Row("OPDID")."' AND UPTID='".$db->Row("UPTID")."' AND ProgID='".$db->Row("ProgID")."' AND UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
}
|
||||
|
||||
$tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND ProgID>7";
|
||||
if ($twulan == 1) {
|
||||
$qR = "A.RealK_TW1";
|
||||
$qRF = "A.RealF_TW1";
|
||||
} else if ($twulan == 2) {
|
||||
$qR = "A.RealK_TW1+A.RealK_TW2";
|
||||
$qRF = "A.RealF_TW2";
|
||||
} else if ($twulan == 3) {
|
||||
$qR = "A.RealK_TW1+A.RealK_TW2+A.RealK_TW3";
|
||||
$qRF = "A.RealF_TW3";
|
||||
} else if ($twulan == 4) {
|
||||
$qR = "A.RealK_TW1+A.RealK_TW2+A.RealK_TW3+A.RealK_TW4";
|
||||
$qRF = "A.RealF_TW4";
|
||||
}
|
||||
$db->Query("SELECT A.K_RKA,A.K_Urusan KO_URUSAN,A.K_BidangU KO_FUNGSI,A.K_UPT KO_UPT,A.K_Prog KO_PROGRAM,CONCAT(A.K_Prog,'.',A.K_Keg) KO_KEG,A.N_Urusan N_URUSAN,A.N_BidangU N_FUNGSI,A.N_UPT N_UPT,A.N_Prog N_PROGRAM,A.N_Keg,A.B_Total PAGU,GREATEST(A.RealF_TW1,A.RealF_TW2,A.RealF_TW3,A.RealF_TW4) R_FISIK,(".$qR.") R_RP,A.T_Keluar TARGET_K,A.U_Keluar INDI_KEG,A.T_Hasil TAR_KEG,RU.*,RF.*,RP.*,A.Lokasi,A.Prog_Indi INDI_PROG,A.Prog_Target TAR_PROG,A.RealK_TW1,A.RealK_TW2,A.RealK_TW3,A.RealK_TW4,A.RealF_TW1,A.RealF_TW2,A.RealF_TW3,A.RealF_TW4 FROM (SELECT T.*,PR.K_Prog,PR.Prog_Indi,PR.Prog_Target,U.N_UPT,P.N_Urut,P.N_Prog,IF(ISNULL(R.K_Urusan),S.K_Urusan,R.K_Urusan) K_Urusan,IF(ISNULL(R.K_Urusan),S.N_Urusan,R.N_Urusan) N_Urusan,IF(ISNULL(R.K_Urusan),S.K_BidangU,BU.K_BidangU) K_BidangU,IF(ISNULL(R.K_Urusan),S.N_BidangU,BU.N_BidangU) N_BidangU FROM (SELECT * FROM ".$tabel_data." WHERE Tahun='".$tahun."'".$tsql.") T LEFT JOIN dpa_prog PR ON (T.Tahun=PR.Tahun AND T.OPDID=PR.OPDID AND T.UPTID=PR.UPTID AND T.ProgID=PR.ProgID) LEFT JOIN vi_para_opd S ON (T.OPDID=S.OPDID) LEFT JOIN para_upt U ON (T.UPTID=U.UPTID) LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (P.K_BidangU=BU.K_BidangU) LEFT JOIN para_urusan R ON (BU.K_Urusan=R.K_Urusan)) A LEFT JOIN rep_hasil_urus RU ON (A.K_Urusan=RU.K_Urusan AND A.Tahun=RU.Tahun AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') LEFT JOIN rep_hasil_fung RF ON (A.K_BidangU=RF.K_BidangU AND A.Tahun=RF.Tahun AND RF.UserID='".user_id()."' AND RF.Unix='".user_unix()."') LEFT JOIN rep_hasil_prog RP ON (A.ProgID=RP.ProgID AND A.OPDID=RP.OPDID AND A.UPTID=RP.UPTID AND A.Tahun=RP.Tahun AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') ORDER BY A.K_Urusan, A.K_BidangU, A.N_Urut, A.K_Prog, A.K_UPT, A.K_Keg");
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hidden");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hidden");
|
||||
$obj->add_field("K_OPD", "Kode", "center");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Unit / UPTD", "EHasilRPJMDJS.opd_select");
|
||||
$obj->set_func_navi("EHasilRKPDJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT U.* FROM vi_para_upt U WHERE ".$qsql);
|
||||
$obj->add_field("UPTID", "UPT", "hidden");
|
||||
$obj->add_field("Nama_UPT", "Nama UPT", "hidden");
|
||||
$obj->add_field("K_UPT", "Kode", "center");
|
||||
$obj->add_field("N_UPT", "Nama Unit / UPTD", "left autowrap");
|
||||
$obj->set_field_order("K_UPT", "A");
|
||||
$obj->add_row_btn("folder", "Output", "EHasilRKPDJS.upt_select");
|
||||
$obj->set_func_navi("EHasilRKPDJS.data_query('tabel-upt')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divUPT");
|
||||
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$header = '<hr>
|
||||
<table width="100%" class="garis">
|
||||
<tr><td width="20" class="center bold" rowspan="3">No.</td><td width="50" class="center bold" rowspan="3">Kode</td><td width="100" class="center bold" rowspan="3">Urusan/Bidang Urusan<br>Pemerintahan Daerah<br>dan Program/Kegiatan</td><td width="100" class="center bold" rowspan="3">Indikator Kinerja Program<br>(Outcome) Kegiatan<br>(Output)</td><td width="100" class="center bold" rowspan="2" colspan="2">Target Renstra Perangkat<br>Daerah Provinsi pada Tahun 2023</td><td width="100" class="center bold" rowspan="2" colspan="2">Realisasi Capaian Kinerja<br>Renstra Perangkat Daerah<br>Provinsi Sampai Dengan Renja<br>Perangkat Daerah Tahun Lalu (n-2)</td><td width="100" class="center bold" rowspan="2" colspan="2">Target Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>Provinsi Tahun Berjalan (n-1) yang dievaluasi</td><td width="800" class="center bold" colspan="8">Realisasi Kinerja Pada Triwulan</td><td width="100" class="center bold" colspan="2">Realisasi Capaian<br>Kinerja dan Anggaran<br>Renja Perangkat Daerah<br>Provinsi yang dievaluasi</td><td width="100" class="center bold" colspan="2">Tingkat Capaian Kinerja<br>dan Realisasi Anggaran<br>Renja PD Tahun n-1 (%)</td><td width="100" class="center bold" colspan="2">Realisasi Kinerja dan<br>Anggaran Renstra Perangkat<br>Daerah Provinsi s/d Tahun ...<br>(akhir tahun pelaksanaan Renja PD Provinsi Tahun ...)</td><td width="100" class="center bold" colspan="2">Tingkat Capaian Kinerja dan<br>Realisasi Anggaran Renstra<br>Perangkat Daerah Provinsi s/d<br>tahun ... (%)</td><td width="100" class="center bold" rowspan="3">Unit Perangkat Daerah<br>Penanggungjawab</td><td width="100" class="center bold" rowspan="3">Lokasi / <br>Keterangan</td></tr>
|
||||
<tr><td width="100" class="center bold" colspan="2">I</td><td width="100" class="center bold" colspan="2">II</td><td width="100" class="center bold" colspan="2">III</td><td width="100" class="center bold" colspan="2">IV</td><td width="100" class="center bold" colspan="2">8+9+10+11</td><td width="100" class="center bold" colspan="2">12/7 x 100%</td><td width="100" class="center bold" colspan="2">6+12</td><td width="100" class="center bold" colspan="2">5/4 x 100%</td></tr>
|
||||
<tr><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td><td width="50" class="center bold">K</td><td width="50" class="center bold">Rp</td></tr>
|
||||
<tr><td class="center">1</td><td class="center">2</td><td class="center">3</td><td class="center">4</td><td class="center" colspan="2">5</td><td class="center" colspan="2">6</td><td class="center" colspan="2">7</td><td class="center" colspan="2">8</td><td class="center" colspan="2">9</td><td class="center" colspan="2">10</td><td class="center" colspan="2">11</td><td class="center" colspan="2">12</td><td class="center" colspan="2">13</td><td class="center" colspan="2">14</td><td class="center" colspan="2">15</td><td class="center">16</td><td class="center">17</td></tr>';
|
||||
$_line = '<tr><td class="center" nowrap>%s</td><td class="left" nowrap>%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="left">%s</td><td class="left">%s</td></tr>';
|
||||
$body = $urus = $fung = $prog = ""; $nurut = 1;
|
||||
while ($db->Next()) {
|
||||
if ($urus <> $db->Row("KO_URUSAN")) {
|
||||
//todo: experiment
|
||||
$t_psn = max($db->Row("URUS_T1_PSN"), $db->Row("URUS_T2_PSN"), $db->Row("URUS_T3_PSN"), $db->Row("URUS_T4_PSN"));
|
||||
$t_rp = $db->Row("URUS_T1") + $db->Row("URUS_T2") + $db->Row("URUS_T3") + $db->Row("URUS_T4");
|
||||
$body .= sprintf($_line, "", $db->Row("KO_URUSAN"), $db->Row("N_URUSAN"), "", "", "", "", "", "", rupiah($db->Row("URUS_PAGU")), t_wulan(1,$db->Row("URUS_T1_PSN")), t_wulan(1,$db->Row("URUS_T1")), t_wulan(2,$db->Row("URUS_T2_PSN")), t_wulan(2,$db->Row("URUS_T2")), t_wulan(3,$db->Row("URUS_T3_PSN")), t_wulan(3,$db->Row("URUS_T3")), t_wulan(4,$db->Row("URUS_T4_PSN")), t_wulan(4,$db->Row("URUS_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("URUS_PAGU")*100), "", "", "", "", "", "");
|
||||
$urus = $db->Row("KO_URUSAN");
|
||||
}
|
||||
if ($fung <> $db->Row("KO_FUNGSI")) {
|
||||
//todo: experiment
|
||||
$t_psn = max($db->Row("FUNG_T1_PSN"), $db->Row("FUNG_T2_PSN"), $db->Row("FUNG_T3_PSN"), $db->Row("FUNG_T4_PSN"));
|
||||
$t_rp = $db->Row("FUNG_T1") + $db->Row("FUNG_T2") + $db->Row("FUNG_T3") + $db->Row("FUNG_T4");
|
||||
$body .= sprintf($_line, "", $db->Row("KO_FUNGSI"), $db->Row("N_FUNGSI"), "", "", "", "", "", "", rupiah($db->Row("FUNG_PAGU")), t_wulan(1,$db->Row("FUNG_T1_PSN")), t_wulan(1,$db->Row("FUNG_T1")), t_wulan(2,$db->Row("FUNG_T2_PSN")), t_wulan(2,$db->Row("FUNG_T2")), t_wulan(3,$db->Row("FUNG_T3_PSN")), t_wulan(3,$db->Row("FUNG_T3")), t_wulan(4,$db->Row("FUNG_T4_PSN")), t_wulan(4,$db->Row("FUNG_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("FUNG_PAGU")*100), "", "", "", "", "", "");
|
||||
$fung = $db->Row("KO_FUNGSI");
|
||||
}
|
||||
if ($prog <> $db->Row("KO_PROGRAM")) {
|
||||
//todo: experiment
|
||||
$t_psn = max($db->Row("PROG_T1_PSN"), $db->Row("PROG_T2_PSN"), $db->Row("PROG_T3_PSN"), $db->Row("PROG_T4_PSN"));
|
||||
$t_rp = $db->Row("PROG_T1") + $db->Row("PROG_T2") + $db->Row("PROG_T3") + $db->Row("PROG_T4");
|
||||
$body .= sprintf($_line, "", $db->Row("KO_PROGRAM"), $db->Row("N_PROGRAM"), $db->Row("TAR_PROG"), "", "", "", "", "", rupiah($db->Row("PROG_PAGU")), t_wulan(1,$db->Row("PROG_T1_PSN")), t_wulan(1,$db->Row("PROG_T1")), t_wulan(2,$db->Row("PROG_T2_PSN")), t_wulan(2,$db->Row("PROG_T2")), t_wulan(3,$db->Row("PROG_T3_PSN")), t_wulan(3,$db->Row("PROG_T3")), t_wulan(4,$db->Row("PROG_T4_PSN")), t_wulan(4,$db->Row("PROG_T4")), rupiah($t_psn), rupiah($t_rp), "", rupiah($t_rp/$db->Row("PROG_PAGU")*100), "", "", "", "", $db->Row("N_UPT"), "");
|
||||
$prog = $db->Row("KO_PROGRAM");
|
||||
}
|
||||
$body .= sprintf($_line, $nurut, $db->Row("KO_KEG"), $db->Row("N_Keg"), $db->Row("INDI_KEG"), "", "", "", "", $db->Row("TARGET_K"), rupiah($db->Row("PAGU")), t_wulan(1,$db->Row("RealF_TW1")), t_wulan(1,$db->Row("RealK_TW1")), t_wulan(2,$db->Row("RealF_TW2")), t_wulan(2,$db->Row("RealK_TW2")), t_wulan(3,$db->Row("RealF_TW3")), t_wulan(3,$db->Row("RealK_TW3")), t_wulan(4,$db->Row("RealF_TW4")), t_wulan(4,$db->Row("RealK_TW4")), rupiah($db->Row("R_FISIK")), rupiah($db->Row("R_RP")), "", rupiah($db->Row("R_RP")/$db->Row("PAGU")*100), "", "", "", "", "", $db->Row("Lokasi"));
|
||||
$nurut++;
|
||||
}
|
||||
echo $header . $body . "</table>";
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Hasil RPJMD // Tahun '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="form-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="OPDID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<div class="col">
|
||||
<div class="input-group">
|
||||
<input class="form-control" id="Nama_UPT" placeholder="Nama Unit / UPTD " type="text" readonly>
|
||||
<input id="UPTID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butUPT"><span><i class="bi-arrow-left-right"></span></i>UPTD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="divOPD"> </div>
|
||||
<div id="divUPT"> </div>
|
||||
<div id="divOUTPUT"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,158 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/elaksa_renja.php
|
||||
Desc. : PHP - Evaluasi Pelaksanaan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 12th, 2017.
|
||||
|
||||
(c) 2011 - 2017, 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;
|
||||
|
||||
$db = $db ?? new MySQL();
|
||||
$ajson = [];
|
||||
$data = Param::Get("data");
|
||||
$mode = Param::Get("mode");
|
||||
$mode_detail = Param::Get("mode_detail");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
||||
$id_opd = Param::Get("OPDID", 0);
|
||||
|
||||
if ( in_array($data, ["tabel-opd","tabel-output"]) ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(1,3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "print" || $data == "excel" || $data == "tabel-output" ) {
|
||||
$tahun = Param::Get("Tahun", $_SESSION['__WEB_APP']['RENC_THN']);
|
||||
$is_rutin = Param::Get("Cetak_Rutin", 1);
|
||||
$nama_opd = "Kabupaten Mempawah";
|
||||
$k_bu = "0.00";
|
||||
if ($id_opd>0) {
|
||||
$db->Query("SELECT Nama_OPD FROM vi_para90_opd WHERE OPDID='".$id_opd."'");
|
||||
if ($db->Next()) {
|
||||
$nama_opd = ucwords(strtolower($db->Row("Nama_OPD")));
|
||||
}
|
||||
$db->Query("SELECT K_Bidu1 FROM para90_opd WHERE OPDID='".$id_opd."'");
|
||||
if ($db->Next()) {
|
||||
$k_bu = $db->Row("K_Bidu1");
|
||||
}
|
||||
}
|
||||
|
||||
$tabel_data = "dpa90_sub"; $tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
|
||||
if ($is_rutin>1) $tsql .= " AND T.ProgID<>422";
|
||||
|
||||
/* proses rekap database
|
||||
Report_Empty("laksa_urus");
|
||||
Report_Empty("laksa_bidu");
|
||||
Report_Empty("laksa_opd");
|
||||
Report_Empty("laksa_upt");
|
||||
Report_Empty("laksa_prog");
|
||||
|
||||
// insert urusan
|
||||
$db->Query("INSERT INTO rep_laksa_urus SELECT T.Tahun,BU.K_Urusan,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
||||
// insert bidang urusan
|
||||
$db->Query("INSERT INTO rep_laksa_bidu SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
||||
// insert opd
|
||||
$db->Query("INSERT INTO rep_laksa_opd SELECT T.Tahun,T.OPDID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID");
|
||||
// insert upt
|
||||
$db->Query("INSERT INTO rep_laksa_upt SELECT T.Tahun,T.OPDID,T.UPTID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID");
|
||||
// insert program
|
||||
$db->Query("INSERT INTO rep_laksa_prog SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
||||
|
||||
$tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND ProgID>7";
|
||||
$db->Query("SELECT A.K_RKA,A.K_Urusan KO_URUSAN,A.K_BidangU KO_FUNGSI,A.K_OPD KO_OPD,A.K_UPT KO_UPT,A.K_Prog KO_PROGRAM,CONCAT(A.K_Prog,'.',A.K_Keg) KO_KEG,UCASE(A.N_Urusan) N_URUSAN,A.N_BidangU N_FUNGSI,A.N_OPD,A.N_UPT,A.N_Prog N_PROGRAM,A.N_Keg,A.Lokasi,B.Lokasi LokasiR,A.B_Total PAGU,A.T_Hasil,B.Indi_Hasil T_HasilR,A.T_Keluar,B.Ini_Target T_KeluarR,B.Ini_Pagu PAGUR,A.Eval_Sesuai,A.Eval_Evaluasi,A.Eval_Tindak,A.Eval_Lanjut,RU.*,RB.*,RO.*,RT.*,RP.* FROM (SELECT T.*,PR.K_Prog,PR.Prog_Indi,PR.Prog_Target,S.K_OPD,S.N_OPD,U.N_UPT,P.N_Urut,P.N_Prog,IF(ISNULL(R.K_Urusan),S.K_Urusan,R.K_Urusan) K_Urusan,IF(ISNULL(R.K_Urusan),S.N_Urusan,R.N_Urusan) N_Urusan,IF(ISNULL(R.K_Urusan),S.K_BidangU,BU.K_BidangU) K_BidangU,IF(ISNULL(R.K_Urusan),S.N_BidangU,BU.N_BidangU) N_BidangU FROM (SELECT * FROM ".$tabel_data." WHERE Tahun='".$tahun."'".$tsql.") T LEFT JOIN dpa_prog PR ON (T.Tahun=PR.Tahun AND T.OPDID=PR.OPDID AND T.UPTID=PR.UPTID AND T.ProgID=PR.ProgID) LEFT JOIN vi_para_opd S ON (T.OPDID=S.OPDID) LEFT JOIN para_upt U ON (T.UPTID=U.UPTID) LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (P.K_BidangU=BU.K_BidangU) LEFT JOIN para_urusan R ON (BU.K_Urusan=R.K_Urusan)) A LEFT JOIN (SELECT * FROM renja_detail WHERE Tahun='".$tahun."'".$tsql.") B ON (A.RKegID=B.RKegID) LEFT JOIN rep_laksa_urus RU ON (A.K_Urusan=RU.K_Urusan AND A.Tahun=RU.Tahun AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') LEFT JOIN rep_laksa_bidu RB ON (A.K_BidangU=RB.K_BidangU AND A.Tahun=RB.Tahun AND RB.UserID='".user_id()."' AND RB.Unix='".user_unix()."') LEFT JOIN rep_laksa_opd RO ON (A.OPDID=RO.OPDID AND A.Tahun=RO.Tahun AND RO.UserID='".user_id()."' AND RO.Unix='".user_unix()."') LEFT JOIN rep_laksa_upt RT ON (A.OPDID=RT.OPDID AND A.UPTID=RT.UPTID AND A.Tahun=RT.Tahun AND RT.UserID='".user_id()."' AND RT.Unix='".user_unix()."') LEFT JOIN rep_laksa_prog RP ON (A.ProgID=RP.ProgID AND A.OPDID=RP.OPDID AND A.UPTID=RP.UPTID AND A.Tahun=RP.Tahun AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') ORDER BY A.K_Urusan, A.K_BidangU, A.N_Urut, A.K_Prog, A.K_UPT, A.K_Keg");*/
|
||||
$db->Query("SELECT TRUE");
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new Table($db);
|
||||
$obj->set_query("SELECT S.* FROM vi_para90_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hid");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hid");
|
||||
$obj->add_field("K_OPD", "Kode", "c");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "awr");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Output", "ELaksaRenjaJS.opd_select");
|
||||
$obj->set_func_navi("ELaksaRenjaJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$header = '<hr>
|
||||
<table width="100%" class="garis"><thead>
|
||||
<tr><th width="50" rowspan="3">Kode</th><th width="100" rowspan="3">Urusan/Bidang Urusan<br>Pemerintahan Daerah<br>dan Program/Kegiatan</th><th width="100" rowspan="2" colspan="2">Indikator Kinerja<br>Program/Kegiatan</th><th width="100" colspan="6">Rencana Tahun '.$thn_renja.'</th><th width="100" colspan="6">Prakiraan Maju Tahun '.($thn_renja+1).'</th><th width="100" rowspan="2" colspan="2">Kesesuaian</th><th width="100" rowspan="3">Evaluasi</th><th width="100" rowspan="3">Tindak Lanjut</th><th width="100" rowspan="3">Hasil Tindak Lanjut</th></tr>
|
||||
<tr><th width="100" colspan="2">Lokasi</th><th width="100" colspan="2">Target Capaian Kinerja</th><th width="100" colspan="2">Dana</th><th width="100" colspan="2">Lokasi</th><th width="100" colspan="2">Target Capaian Kinerja</th><th width="100" colspan="2">Dana</th></tr>
|
||||
<tr><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Renja</th><th width="50">RKA</th><th width="50">Ya</th><th width="50">Tidak</th></tr>
|
||||
<tr><th>1</th><th>2</th><th>3</th><th>4</th><th>5</th><th>6</th><th>7</th><th>8</th><th>9</th><th>10</th><th>11</th><th>12</th><th>13</th><th>14</th><th>15</th><th>16</th><th>17</th><th>18</th><th>19</th><th>20</th><th>21</th></tr></thead><tbody>';
|
||||
$_sub = '<tr><td nowrap>%s</td><td colspan="15">%s</td><td class="r">%s</td><td class="r">%s</td><td colspan="3">%s</td</tr>';
|
||||
$_line = '<tr><td nowrap>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td class="r">%s</td><td class="r">%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td class="r">%s</td><td class="r">%s</td><td class="c">%s</td><td class="c">%s</td><td>%s</td><td>%s</td><td>%s</td></tr>';
|
||||
$body = $urus = $fung = $opd = $upt = $prog = "";
|
||||
while ($db->Next()) {
|
||||
if ($urus <> $db->Row("KO_URUSAN")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_URUSAN"), $db->Row("N_URUSAN"), rupiah($db->Row("URUS_YA")), rupiah($db->Row("URUS_TIDAK")), "");
|
||||
$urus = $db->Row("KO_URUSAN");
|
||||
}
|
||||
if ($fung <> $db->Row("KO_FUNGSI")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_FUNGSI"), $db->Row("N_FUNGSI"), rupiah($db->Row("BIDU_YA")), rupiah($db->Row("BIDU_TIDAK")), "");
|
||||
$fung = $db->Row("KO_FUNGSI");
|
||||
}
|
||||
if ($opd <> $db->Row("KO_OPD")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_OPD"), $db->Row("N_OPD"), rupiah($db->Row("OPD_YA")), rupiah($db->Row("OPD_TIDAK")), "");
|
||||
$opd = $db->Row("KO_OPD");
|
||||
}
|
||||
if ($upt <> $db->Row("KO_UPT")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_UPT"), $db->Row("N_UPT"), rupiah($db->Row("UPT_YA")), rupiah($db->Row("UPT_TIDAK")), "");
|
||||
$upt = $db->Row("KO_UPT");
|
||||
}
|
||||
if ($prog <> $db->Row("KO_PROGRAM")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_PROGRAM"), $db->Row("N_PROGRAM"), rupiah($db->Row("PROG_YA")), rupiah($db->Row("PROG_TIDAK")), "");
|
||||
$prog = $db->Row("KO_PROGRAM");
|
||||
}
|
||||
$body .= sprintf($_line, $db->Row("KO_KEG"), $db->Row("N_Keg"), $db->Row("T_HasilR"), $db->Row("T_Hasil"), $db->Row("LokasiR"), $db->Row("Lokasi"), $db->Row("T_KeluarR"), $db->Row("T_Keluar"), rupiah($db->Row("PAGUR")), rupiah($db->Row("PAGU")), "", "", "", "", "", "", ($db->Row("Eval_Sesuai")==1?"V":""), ($db->Row("Eval_Sesuai")==2?"V":""), $db->Row("Eval_Evaluasi"), $db->Row("Eval_Tindak"), $db->Row("Eval_Lanjut"));
|
||||
}
|
||||
echo $header . $body . "</tbody></table>";
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Pelaksanaan Renja // Tahun '.$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="OPDID" type="hidden" value="0">
|
||||
<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 id="divOPD"> </div>
|
||||
<div id="divOUTPUT"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,186 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/elaksa_renja.php
|
||||
Desc. : PHP - Evaluasi Pelaksanaan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 12th, 2017.
|
||||
|
||||
(c) 2011 - 2017, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
||||
require_once(dirname(__FILE__)."/../func.emonev.php");
|
||||
|
||||
$db = DB();
|
||||
$ajson = array();
|
||||
$data = $ap->getParam("data");
|
||||
$mode = $ap->getParam("mode");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_upt = $ap->getParam("UPTID", 0);
|
||||
|
||||
if ( $data == "tabel-opd" || $data == "tabel-upt" || $data == "tabel-output" ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$qsql = " U.Aktif=1";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND U.OPDID='".$id_opd."'";
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
$qsql .= ($id_upt==0) ? "" : " AND UPTID='".$id_upt."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
$qsql .= ($_SESSION['__WEB_USER']['Level']==4) ? " AND UPTID IN (".$_SESSION['__WEB_USER']['AK_UPT'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "print" || $data == "excel" || $data == "tabel-output" ) {
|
||||
$tahun = $ap->getParam("Tahun", $_SESSION['__WEB_APP']['RENC_THN']);
|
||||
$is_rutin = $ap->getParam("Cetak_Rutin", 1);
|
||||
$nama_opd = "Kabupaten Mempawah";
|
||||
$k_bu = "0.00";
|
||||
if ($id_opd>0) {
|
||||
$db->Query("SELECT Nama_OPD,K_BidangU FROM vi_para_opd WHERE OPDID='".$id_opd."'");
|
||||
if ($db->Next()) {
|
||||
$nama_opd = ucwords(strtolower($db->Row("Nama_OPD")));
|
||||
$k_bu = $db->Row("K_BidangU");
|
||||
}
|
||||
}
|
||||
|
||||
$tabel_data = "dpa_detail"; $tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND T.UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND T.ProgID>7";
|
||||
|
||||
// proses rekap database
|
||||
Report_Empty("laksa_urus");
|
||||
Report_Empty("laksa_bidu");
|
||||
Report_Empty("laksa_opd");
|
||||
Report_Empty("laksa_upt");
|
||||
Report_Empty("laksa_prog");
|
||||
|
||||
// insert urusan
|
||||
$db->Query("INSERT INTO rep_laksa_urus SELECT T.Tahun,BU.K_Urusan,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
||||
// insert bidang urusan
|
||||
$db->Query("INSERT INTO rep_laksa_bidu SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
||||
// insert opd
|
||||
$db->Query("INSERT INTO rep_laksa_opd SELECT T.Tahun,T.OPDID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID");
|
||||
// insert upt
|
||||
$db->Query("INSERT INTO rep_laksa_upt SELECT T.Tahun,T.OPDID,T.UPTID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID");
|
||||
// insert program
|
||||
$db->Query("INSERT INTO rep_laksa_prog SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
||||
|
||||
$tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND ProgID>7";
|
||||
$db->Query("SELECT A.K_RKA,A.K_Urusan KO_URUSAN,A.K_BidangU KO_FUNGSI,A.K_OPD KO_OPD,A.K_UPT KO_UPT,A.K_Prog KO_PROGRAM,CONCAT(A.K_Prog,'.',A.K_Keg) KO_KEG,UCASE(A.N_Urusan) N_URUSAN,A.N_BidangU N_FUNGSI,A.N_OPD,A.N_UPT,A.N_Prog N_PROGRAM,A.N_Keg,A.Lokasi,B.Lokasi LokasiR,A.B_Total PAGU,A.T_Hasil,B.Indi_Hasil T_HasilR,A.T_Keluar,B.Ini_Target T_KeluarR,B.Ini_Pagu PAGUR,A.Eval_Sesuai,A.Eval_Evaluasi,A.Eval_Tindak,A.Eval_Lanjut,RU.*,RB.*,RO.*,RT.*,RP.* FROM (SELECT T.*,PR.K_Prog,PR.Prog_Indi,PR.Prog_Target,S.K_OPD,S.N_OPD,U.N_UPT,P.N_Urut,P.N_Prog,IF(ISNULL(R.K_Urusan),S.K_Urusan,R.K_Urusan) K_Urusan,IF(ISNULL(R.K_Urusan),S.N_Urusan,R.N_Urusan) N_Urusan,IF(ISNULL(R.K_Urusan),S.K_BidangU,BU.K_BidangU) K_BidangU,IF(ISNULL(R.K_Urusan),S.N_BidangU,BU.N_BidangU) N_BidangU FROM (SELECT * FROM ".$tabel_data." WHERE Tahun='".$tahun."'".$tsql.") T LEFT JOIN dpa_prog PR ON (T.Tahun=PR.Tahun AND T.OPDID=PR.OPDID AND T.UPTID=PR.UPTID AND T.ProgID=PR.ProgID) LEFT JOIN vi_para_opd S ON (T.OPDID=S.OPDID) LEFT JOIN para_upt U ON (T.UPTID=U.UPTID) LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (P.K_BidangU=BU.K_BidangU) LEFT JOIN para_urusan R ON (BU.K_Urusan=R.K_Urusan)) A LEFT JOIN (SELECT * FROM renja_detail WHERE Tahun='".$tahun."'".$tsql.") B ON (A.RKegID=B.RKegID) LEFT JOIN rep_laksa_urus RU ON (A.K_Urusan=RU.K_Urusan AND A.Tahun=RU.Tahun AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') LEFT JOIN rep_laksa_bidu RB ON (A.K_BidangU=RB.K_BidangU AND A.Tahun=RB.Tahun AND RB.UserID='".user_id()."' AND RB.Unix='".user_unix()."') LEFT JOIN rep_laksa_opd RO ON (A.OPDID=RO.OPDID AND A.Tahun=RO.Tahun AND RO.UserID='".user_id()."' AND RO.Unix='".user_unix()."') LEFT JOIN rep_laksa_upt RT ON (A.OPDID=RT.OPDID AND A.UPTID=RT.UPTID AND A.Tahun=RT.Tahun AND RT.UserID='".user_id()."' AND RT.Unix='".user_unix()."') LEFT JOIN rep_laksa_prog RP ON (A.ProgID=RP.ProgID AND A.OPDID=RP.OPDID AND A.UPTID=RP.UPTID AND A.Tahun=RP.Tahun AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') ORDER BY A.K_Urusan, A.K_BidangU, A.N_Urut, A.K_Prog, A.K_UPT, A.K_Keg");
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hidden");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hidden");
|
||||
$obj->add_field("K_OPD", "Kode", "center");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Unit / UPTD", "ELaksaRKPDJS.opd_select");
|
||||
$obj->set_func_navi("ELaksaRKPDJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT U.* FROM vi_para_upt U WHERE ".$qsql);
|
||||
$obj->add_field("UPTID", "UPT", "hidden");
|
||||
$obj->add_field("Nama_UPT", "Nama UPT", "hidden");
|
||||
$obj->add_field("K_UPT", "Kode", "center");
|
||||
$obj->add_field("N_UPT", "Nama Unit / UPTD", "left autowrap");
|
||||
$obj->set_field_order("K_UPT", "A");
|
||||
$obj->add_row_btn("folder", "Output", "ELaksaRKPDJS.upt_select");
|
||||
$obj->set_func_navi("ELaksaRKPDJS.data_query('tabel-upt')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divUPT");
|
||||
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$header = '<hr>
|
||||
<table width="100%" class="garis">
|
||||
<tr><td width="50" class="center bold" rowspan="3">Kode</td><td width="100" class="center bold" rowspan="3">Urusan/Bidang Urusan<br>Pemerintahan Daerah<br>dan Program/Kegiatan</td><td width="100" class="center bold" rowspan="2" colspan="2">Indikator Kinerja<br>Program/Kegiatan</td><td width="100" class="center bold" colspan="6">Rencana Tahun '.$thn_renja.'</td><td width="100" class="center bold" colspan="6">Prakiraan Maju Tahun '.($thn_renja+1).'</td><td width="100" class="center bold" rowspan="2" colspan="2">Kesesuaian</td><td width="100" class="center bold" rowspan="3">Evaluasi</td><td width="100" class="center bold" rowspan="3">Tindak Lanjut</td><td width="100" class="center bold" rowspan="3">Hasil Tindak Lanjut</td></tr>
|
||||
<tr><td width="100" class="center bold" colspan="2">Lokasi</td><td width="100" class="center bold" colspan="2">Target Capaian Kinerja</td><td width="100" class="center bold" colspan="2">Dana</td><td width="100" class="center bold" colspan="2">Lokasi</td><td width="100" class="center bold" colspan="2">Target Capaian Kinerja</td><td width="100" class="center bold" colspan="2">Dana</td></tr>
|
||||
<tr><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Ya</td><td width="50" class="center bold">Tidak</td></tr>
|
||||
<tr><td class="center">1</td><td class="center">2</td><td class="center">3</td><td class="center">4</td><td class="center">5</td><td class="center">6</td><td class="center">7</td><td class="center">8</td><td class="center">9</td><td class="center">10</td><td class="center">11</td><td class="center">12</td><td class="center">13</td><td class="center">14</td><td class="center">15</td><td class="center">16</td><td class="center">17</td><td class="center">18</td><td class="center">19</td><td class="center">20</td><td class="center">21</td></tr>';
|
||||
$_sub = '<tr><td class="left" nowrap>%s</td><td colspan="15" class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td colspan="3" class="left">%s</td</tr>';
|
||||
$_line = '<tr><td class="left" nowrap>%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="center">%s</td><td class="center">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td></tr>';
|
||||
$body = $urus = $fung = $opd = $upt = $prog = "";
|
||||
while ($db->Next()) {
|
||||
if ($urus <> $db->Row("KO_URUSAN")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_URUSAN"), $db->Row("N_URUSAN"), rupiah($db->Row("URUS_YA")), rupiah($db->Row("URUS_TIDAK")), "");
|
||||
$urus = $db->Row("KO_URUSAN");
|
||||
}
|
||||
if ($fung <> $db->Row("KO_FUNGSI")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_FUNGSI"), $db->Row("N_FUNGSI"), rupiah($db->Row("BIDU_YA")), rupiah($db->Row("BIDU_TIDAK")), "");
|
||||
$fung = $db->Row("KO_FUNGSI");
|
||||
}
|
||||
if ($opd <> $db->Row("KO_OPD")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_OPD"), $db->Row("N_OPD"), rupiah($db->Row("OPD_YA")), rupiah($db->Row("OPD_TIDAK")), "");
|
||||
$opd = $db->Row("KO_OPD");
|
||||
}
|
||||
if ($upt <> $db->Row("KO_UPT")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_UPT"), $db->Row("N_UPT"), rupiah($db->Row("UPT_YA")), rupiah($db->Row("UPT_TIDAK")), "");
|
||||
$upt = $db->Row("KO_UPT");
|
||||
}
|
||||
if ($prog <> $db->Row("KO_PROGRAM")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_PROGRAM"), $db->Row("N_PROGRAM"), rupiah($db->Row("PROG_YA")), rupiah($db->Row("PROG_TIDAK")), "");
|
||||
$prog = $db->Row("KO_PROGRAM");
|
||||
}
|
||||
$body .= sprintf($_line, $db->Row("KO_KEG"), $db->Row("N_Keg"), $db->Row("T_HasilR"), $db->Row("T_Hasil"), $db->Row("LokasiR"), $db->Row("Lokasi"), $db->Row("T_KeluarR"), $db->Row("T_Keluar"), rupiah($db->Row("PAGUR")), rupiah($db->Row("PAGU")), "", "", "", "", "", "", ($db->Row("Eval_Sesuai")==1?"V":""), ($db->Row("Eval_Sesuai")==2?"V":""), $db->Row("Eval_Evaluasi"), $db->Row("Eval_Tindak"), $db->Row("Eval_Lanjut"));
|
||||
}
|
||||
echo $header . $body . "</table>";
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Pelaksanaan RKPD // Tahun '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="form-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="OPDID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<div class="col">
|
||||
<div class="input-group">
|
||||
<input class="form-control" id="Nama_UPT" placeholder="Nama Unit / UPTD " type="text" readonly>
|
||||
<input id="UPTID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butUPT"><span><i class="bi-arrow-left-right"></span></i>UPTD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="divOPD"> </div>
|
||||
<div id="divUPT"> </div>
|
||||
<div id="divOUTPUT"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,186 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/elaksa_renja.php
|
||||
Desc. : PHP - Evaluasi Pelaksanaan Renja
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 12th, 2017.
|
||||
|
||||
(c) 2011 - 2017, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.table.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
||||
require_once(dirname(__FILE__)."/../func.emonev.php");
|
||||
|
||||
$db = DB();
|
||||
$ajson = array();
|
||||
$data = $ap->getParam("data");
|
||||
$mode = $ap->getParam("mode");
|
||||
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_upt = $ap->getParam("UPTID", 0);
|
||||
|
||||
if ( $data == "tabel-opd" || $data == "tabel-upt" || $data == "tabel-output" ) {
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$qsql = " S.Aktif=1";
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$qsql = " U.Aktif=1";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND U.OPDID='".$id_opd."'";
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$qsql = " Tahun='".$thn_renja."'";
|
||||
$qsql .= ($id_opd==0) ? "" : " AND OPDID='".$id_opd."'";
|
||||
$qsql .= ($id_upt==0) ? "" : " AND UPTID='".$id_upt."'";
|
||||
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")" : "";
|
||||
$qsql .= ($_SESSION['__WEB_USER']['Level']==4) ? " AND UPTID IN (".$_SESSION['__WEB_USER']['AK_UPT'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "print" || $data == "excel" || $data == "tabel-output" ) {
|
||||
$tahun = $ap->getParam("Tahun", $_SESSION['__WEB_APP']['RENC_THN']);
|
||||
$is_rutin = $ap->getParam("Cetak_Rutin", 1);
|
||||
$nama_opd = "Kabupaten Mempawah";
|
||||
$k_bu = "0.00";
|
||||
if ($id_opd>0) {
|
||||
$db->Query("SELECT Nama_OPD,K_BidangU FROM vi_para_opd WHERE OPDID='".$id_opd."'");
|
||||
if ($db->Next()) {
|
||||
$nama_opd = ucwords(strtolower($db->Row("Nama_OPD")));
|
||||
$k_bu = $db->Row("K_BidangU");
|
||||
}
|
||||
}
|
||||
|
||||
$tabel_data = "dpa_detail"; $tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND T.UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND T.ProgID>7";
|
||||
|
||||
// proses rekap database
|
||||
Report_Empty("laksa_urus");
|
||||
Report_Empty("laksa_bidu");
|
||||
Report_Empty("laksa_opd");
|
||||
Report_Empty("laksa_upt");
|
||||
Report_Empty("laksa_prog");
|
||||
|
||||
// insert urusan
|
||||
$db->Query("INSERT INTO rep_laksa_urus SELECT T.Tahun,BU.K_Urusan,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (BU.K_BidangU=IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,BU.K_Urusan");
|
||||
// insert bidang urusan
|
||||
$db->Query("INSERT INTO rep_laksa_bidu SELECT T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU) K_BidangU,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T LEFT JOIN para_program P ON (T.ProgID=P.ProgID) WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,IF(P.K_BidangU='0.00','".$k_bu."',P.K_BidangU)");
|
||||
// insert opd
|
||||
$db->Query("INSERT INTO rep_laksa_opd SELECT T.Tahun,T.OPDID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID");
|
||||
// insert upt
|
||||
$db->Query("INSERT INTO rep_laksa_upt SELECT T.Tahun,T.OPDID,T.UPTID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID");
|
||||
// insert program
|
||||
$db->Query("INSERT INTO rep_laksa_prog SELECT T.Tahun,T.OPDID,T.UPTID,T.ProgID,0,0,SUM(IF(T.Eval_Sesuai=1,1,0)),SUM(IF(T.Eval_Sesuai=2,1,0)),'".user_unix()."','".user_id()."' FROM ".$tabel_data." T WHERE T.Tahun='".$tahun."'".$tsql." GROUP BY T.Tahun,T.OPDID,T.UPTID,T.ProgID");
|
||||
|
||||
$tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND UPTID='".$id_upt."'";
|
||||
if ($is_rutin>1) $tsql .= " AND ProgID>7";
|
||||
$db->Query("SELECT A.K_RKA,A.K_Urusan KO_URUSAN,A.K_BidangU KO_FUNGSI,A.K_OPD KO_OPD,A.K_UPT KO_UPT,A.K_Prog KO_PROGRAM,CONCAT(A.K_Prog,'.',A.K_Keg) KO_KEG,UCASE(A.N_Urusan) N_URUSAN,A.N_BidangU N_FUNGSI,A.N_OPD,A.N_UPT,A.N_Prog N_PROGRAM,A.N_Keg,A.Lokasi,B.Lokasi LokasiR,A.B_Total PAGU,A.T_Hasil,B.Indi_Hasil T_HasilR,A.T_Keluar,B.Ini_Target T_KeluarR,B.Ini_Pagu PAGUR,A.Eval_Sesuai,A.Eval_Evaluasi,A.Eval_Tindak,A.Eval_Lanjut,RU.*,RB.*,RO.*,RT.*,RP.* FROM (SELECT T.*,PR.K_Prog,PR.Prog_Indi,PR.Prog_Target,S.K_OPD,S.N_OPD,U.N_UPT,P.N_Urut,P.N_Prog,IF(ISNULL(R.K_Urusan),S.K_Urusan,R.K_Urusan) K_Urusan,IF(ISNULL(R.K_Urusan),S.N_Urusan,R.N_Urusan) N_Urusan,IF(ISNULL(R.K_Urusan),S.K_BidangU,BU.K_BidangU) K_BidangU,IF(ISNULL(R.K_Urusan),S.N_BidangU,BU.N_BidangU) N_BidangU FROM (SELECT * FROM ".$tabel_data." WHERE Tahun='".$tahun."'".$tsql.") T LEFT JOIN dpa_prog PR ON (T.Tahun=PR.Tahun AND T.OPDID=PR.OPDID AND T.UPTID=PR.UPTID AND T.ProgID=PR.ProgID) LEFT JOIN vi_para_opd S ON (T.OPDID=S.OPDID) LEFT JOIN para_upt U ON (T.UPTID=U.UPTID) LEFT JOIN para_program P ON (T.ProgID=P.ProgID) LEFT JOIN para_bidang_u BU ON (P.K_BidangU=BU.K_BidangU) LEFT JOIN para_urusan R ON (BU.K_Urusan=R.K_Urusan)) A LEFT JOIN (SELECT * FROM renja_detail WHERE Tahun='".$tahun."'".$tsql.") B ON (A.RKegID=B.RKegID) LEFT JOIN rep_laksa_urus RU ON (A.K_Urusan=RU.K_Urusan AND A.Tahun=RU.Tahun AND RU.UserID='".user_id()."' AND RU.Unix='".user_unix()."') LEFT JOIN rep_laksa_bidu RB ON (A.K_BidangU=RB.K_BidangU AND A.Tahun=RB.Tahun AND RB.UserID='".user_id()."' AND RB.Unix='".user_unix()."') LEFT JOIN rep_laksa_opd RO ON (A.OPDID=RO.OPDID AND A.Tahun=RO.Tahun AND RO.UserID='".user_id()."' AND RO.Unix='".user_unix()."') LEFT JOIN rep_laksa_upt RT ON (A.OPDID=RT.OPDID AND A.UPTID=RT.UPTID AND A.Tahun=RT.Tahun AND RT.UserID='".user_id()."' AND RT.Unix='".user_unix()."') LEFT JOIN rep_laksa_prog RP ON (A.ProgID=RP.ProgID AND A.OPDID=RP.OPDID AND A.UPTID=RP.UPTID AND A.Tahun=RP.Tahun AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') ORDER BY A.K_Urusan, A.K_BidangU, A.N_Urut, A.K_Prog, A.K_UPT, A.K_Keg");
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT S.* FROM vi_para_opd S WHERE ".$qsql);
|
||||
$obj->add_field("OPDID", "OPD", "hidden");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hidden");
|
||||
$obj->add_field("K_OPD", "Kode", "center");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "left autowrap");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Unit / UPTD", "ELaksaRPJMDJS.opd_select");
|
||||
$obj->set_func_navi("ELaksaRKPDJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT U.* FROM vi_para_upt U WHERE ".$qsql);
|
||||
$obj->add_field("UPTID", "UPT", "hidden");
|
||||
$obj->add_field("Nama_UPT", "Nama UPT", "hidden");
|
||||
$obj->add_field("K_UPT", "Kode", "center");
|
||||
$obj->add_field("N_UPT", "Nama Unit / UPTD", "left autowrap");
|
||||
$obj->set_field_order("K_UPT", "A");
|
||||
$obj->add_row_btn("folder", "Output", "ELaksaRKPDJS.upt_select");
|
||||
$obj->set_func_navi("ELaksaRKPDJS.data_query('tabel-upt')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divUPT");
|
||||
|
||||
} else if ( $data == "tabel-output" ) {
|
||||
$header = '<hr>
|
||||
<table width="100%" class="garis">
|
||||
<tr><td width="50" class="center bold" rowspan="3">Kode</td><td width="100" class="center bold" rowspan="3">Urusan/Bidang Urusan<br>Pemerintahan Daerah<br>dan Program/Kegiatan</td><td width="100" class="center bold" rowspan="2" colspan="2">Indikator Kinerja<br>Program/Kegiatan</td><td width="100" class="center bold" colspan="6">Rencana Tahun '.$thn_renja.'</td><td width="100" class="center bold" colspan="6">Prakiraan Maju Tahun '.($thn_renja+1).'</td><td width="100" class="center bold" rowspan="2" colspan="2">Kesesuaian</td><td width="100" class="center bold" rowspan="3">Evaluasi</td><td width="100" class="center bold" rowspan="3">Tindak Lanjut</td><td width="100" class="center bold" rowspan="3">Hasil Tindak Lanjut</td></tr>
|
||||
<tr><td width="100" class="center bold" colspan="2">Lokasi</td><td width="100" class="center bold" colspan="2">Target Capaian Kinerja</td><td width="100" class="center bold" colspan="2">Dana</td><td width="100" class="center bold" colspan="2">Lokasi</td><td width="100" class="center bold" colspan="2">Target Capaian Kinerja</td><td width="100" class="center bold" colspan="2">Dana</td></tr>
|
||||
<tr><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Renja</td><td width="50" class="center bold">RKA</td><td width="50" class="center bold">Ya</td><td width="50" class="center bold">Tidak</td></tr>
|
||||
<tr><td class="center">1</td><td class="center">2</td><td class="center">3</td><td class="center">4</td><td class="center">5</td><td class="center">6</td><td class="center">7</td><td class="center">8</td><td class="center">9</td><td class="center">10</td><td class="center">11</td><td class="center">12</td><td class="center">13</td><td class="center">14</td><td class="center">15</td><td class="center">16</td><td class="center">17</td><td class="center">18</td><td class="center">19</td><td class="center">20</td><td class="center">21</td></tr>';
|
||||
$_sub = '<tr><td class="left" nowrap>%s</td><td colspan="15" class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td colspan="3" class="left">%s</td</tr>';
|
||||
$_line = '<tr><td class="left" nowrap>%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="center">%s</td><td class="center">%s</td><td class="left">%s</td><td class="left">%s</td><td class="left">%s</td></tr>';
|
||||
$body = $urus = $fung = $opd = $upt = $prog = "";
|
||||
while ($db->Next()) {
|
||||
if ($urus <> $db->Row("KO_URUSAN")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_URUSAN"), $db->Row("N_URUSAN"), rupiah($db->Row("URUS_YA")), rupiah($db->Row("URUS_TIDAK")), "");
|
||||
$urus = $db->Row("KO_URUSAN");
|
||||
}
|
||||
if ($fung <> $db->Row("KO_FUNGSI")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_FUNGSI"), $db->Row("N_FUNGSI"), rupiah($db->Row("BIDU_YA")), rupiah($db->Row("BIDU_TIDAK")), "");
|
||||
$fung = $db->Row("KO_FUNGSI");
|
||||
}
|
||||
if ($opd <> $db->Row("KO_OPD")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_OPD"), $db->Row("N_OPD"), rupiah($db->Row("OPD_YA")), rupiah($db->Row("OPD_TIDAK")), "");
|
||||
$opd = $db->Row("KO_OPD");
|
||||
}
|
||||
if ($upt <> $db->Row("KO_UPT")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_UPT"), $db->Row("N_UPT"), rupiah($db->Row("UPT_YA")), rupiah($db->Row("UPT_TIDAK")), "");
|
||||
$upt = $db->Row("KO_UPT");
|
||||
}
|
||||
if ($prog <> $db->Row("KO_PROGRAM")) {
|
||||
$body .= sprintf($_sub, $db->Row("KO_PROGRAM"), $db->Row("N_PROGRAM"), rupiah($db->Row("PROG_YA")), rupiah($db->Row("PROG_TIDAK")), "");
|
||||
$prog = $db->Row("KO_PROGRAM");
|
||||
}
|
||||
$body .= sprintf($_line, $db->Row("KO_KEG"), $db->Row("N_Keg"), $db->Row("T_HasilR"), $db->Row("T_Hasil"), $db->Row("LokasiR"), $db->Row("Lokasi"), $db->Row("T_KeluarR"), $db->Row("T_Keluar"), rupiah($db->Row("PAGUR")), rupiah($db->Row("PAGU")), "", "", "", "", "", "", ($db->Row("Eval_Sesuai")==1?"V":""), ($db->Row("Eval_Sesuai")==2?"V":""), $db->Row("Eval_Evaluasi"), $db->Row("Eval_Tindak"), $db->Row("Eval_Lanjut"));
|
||||
}
|
||||
echo $header . $body . "</table>";
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Evaluasi Pelaksanaan RPJMD // Tahun '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="form-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="OPDID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butOPD"><span><i class="bi-arrow-left-right"></span></i>OPD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="form-row mb-1">
|
||||
<div class="col">
|
||||
<div class="input-group">
|
||||
<input class="form-control" id="Nama_UPT" placeholder="Nama Unit / UPTD " type="text" readonly>
|
||||
<input id="UPTID" type="hidden" value="0">
|
||||
<span class="input-group-append">
|
||||
<button class="btn btn-info btn-ganti" type="button" id="butUPT"><span><i class="bi-arrow-left-right"></span></i>UPTD</button>
|
||||
</span>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div id="divOPD"> </div>
|
||||
<div id="divUPT"> </div>
|
||||
<div id="divOUTPUT"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -0,0 +1,136 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/faktor_opd.php
|
||||
Desc. : PHP - Kelola Faktor Pendukung OPD
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 14th, 2026.
|
||||
|
||||
(c) 2011 - 2026, 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\Web\Param;
|
||||
use siaupheng\fonia3\Web\Table;
|
||||
use siaupheng\fonia3\Web\Form;
|
||||
|
||||
$db = $db ?? new MySQL();
|
||||
$ajson = [];
|
||||
$data = Param::Get("data");
|
||||
$mode = Param::Get("mode");
|
||||
$mode_detail = Param::Get("mode_detail");
|
||||
$emon_en = Param::Get("Hak_Real", 0);
|
||||
$id_rpjmd = $_SESSION['__WEB_APP']['REAL_RPJMDID'];
|
||||
$thn_renja = $_SESSION['__WEB_APP']['REAL_THN'];
|
||||
$tw_data = $_SESSION['__WEB_APP']['REAL_TW'];
|
||||
$id_org = Param::Get("ORGID", 0);
|
||||
$id_opd = Param::Get("OPDID", 0);
|
||||
$k_opd = Param::Get("K_OPD", "");
|
||||
$id_faktor = Param::Get("DalevRenjaID", 0);
|
||||
|
||||
if ( in_array($data, ["tabel-opd","detail-faktor"]) ) {
|
||||
$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 == "detail-faktor" ) {
|
||||
$qsql .= " AND OPDID='".$id_opd."'";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$f_real = (in_array($_SESSION['__WEB_USER']['Level'],[0,1])) ? "1" : "0";
|
||||
if (in_array($_SESSION['__WEB_USER']['Level'],[3,4])) {
|
||||
$f_real = "IFNULL(H.Hak_Real,1)";
|
||||
}
|
||||
$obj = new Table($db);
|
||||
$obj->set_query("SELECT M.OPDID,M.ORGID,M.K_OPD,M.N_OPD,M.Nama_OPD,".$f_real." Hak_Real FROM vi_para90_opd M LEFT JOIN (SELECT OPDID,Hak_Real FROM sippd_akses_sip WHERE Tahun='".$thn_renja."') H ON (H.OPDID=M.OPDID) WHERE ".$msql);
|
||||
$obj->add_field("OPDID", "OPD", "hid");
|
||||
$obj->add_field("ORGID", "ORG", "hid");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hid");
|
||||
$obj->add_field("Hak_Real", "Real", "hid");
|
||||
$obj->add_field("K_OPD", "Kode", "c");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "awr");
|
||||
//$obj->add_field("TGL", "Update", "c nwr", "sqljams", "", "val-tgljams");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Faktor Pendukung", "FaktorOPDJS.opd_select");
|
||||
$obj->set_func_navi("FaktorOPDJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "simpan-faktor" ) {
|
||||
$pdor = Param::Get("Pendorong_TWX", "");
|
||||
$pham = Param::Get("Penghambat_TWX", "");
|
||||
$pla1 = Param::Get("Lanjut_TWX", "");
|
||||
$pla2 = Param::Get("Lanjut_RKPD_TWX", "");
|
||||
$db->Query("REPLACE INTO dpa_dalev_renja (DalevRenjaID,RPJMDID,Tahun,ORGID,OPDID,K_OPD,Pendorong_TW".$tw_data.",Penghambat_TW".$tw_data.",Lanjut_TW".$tw_data.",Lanjut_RKPD_TW".$tw_data.") VALUES ('".$id_faktor."','".$id_rpjmd."','".$thn_renja."','".$id_org."','".$id_opd."','".$k_opd."','".$pdor."','".$pham."','".$pla1."','".$pla2."')");
|
||||
|
||||
} else if ( $data == "detail-faktor" ) {
|
||||
$arec = [];
|
||||
$db->Query("SELECT * FROM dpa_dalev_renja WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' LIMIT 1");
|
||||
if ($db->Next()) $arec = $db->AllRow();
|
||||
|
||||
$form = new Form($db);
|
||||
$tdor = $form->textarea("_", "Pendorong_TWX", $arec['Pendorong_TW'.$tw_data], $emon_en, true, 3);
|
||||
$tham = $form->textarea("_", "Penghambat_TWX", $arec['Penghambat_TW'.$tw_data], $emon_en, true, 3);
|
||||
$tla1 = $form->textarea("_", "Lanjut_TWX", $arec['Lanjut_TW'.$tw_data], $emon_en, true, 3);
|
||||
$tla2 = $form->textarea("_", "Lanjut_RKPD_TWX", $arec['Lanjut_RKPD_TW'.$tw_data], $emon_en, true, 3);
|
||||
|
||||
$ajson['html'] = '
|
||||
<div class="row mb-2">
|
||||
<div class="col"><h5 class="text-center">Faktor dan Tindak Lanjut <strong>Triwulan '.romawi($tw_data).'</strong></h5></div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Pendorong_TWX">Faktor Pendukung Keberhasilan Kinerja</label>
|
||||
<div class="col">'.$tdor.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Penghambat_TWX">Faktor Penghambat Pencapaian Kinerja</label>
|
||||
<div class="col">'.$tham.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Lanjut_TWX">Tindak Lanjut yang Diperlukan Dalam Triwulan Berikutnya</label>
|
||||
<div class="col">'.$tla1.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Lanjut_RKPD_TWX">Tindak Lanjut yang Diperlukan Dalam RKPD Berikutnya</label>
|
||||
<div class="col">'.$tla2.'</div>
|
||||
</div>
|
||||
'.($emon_en?'<div class="row mt-1"><div class="col text-end"><button type="button" class="btn btn-warning me-2" id="butBatalFaktor">Batal</button><button type="button" class="btn btn-success" id="butSimpanFaktor">Simpan</button></div></div>':'').'
|
||||
<input type="hidden" id="DalevRenjaID" value="'.$arec['DalevRenjaID'].'">';
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Kelola Data Faktor Pendukung OPD // 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="K_OPD" type="hidden" value="">
|
||||
<input id="Hak_Real" 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 id="divOPD"> </div>
|
||||
<div id="divFAKTOR"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -1,314 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/tran_dpa.php
|
||||
Desc. : PHP - Transaksi Input DPA
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : October 30th, 2011.
|
||||
Last Modified : April 12th, 2017.
|
||||
|
||||
(c) 2011 - 2017, 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;
|
||||
|
||||
$db = $db ?? new MySQL();
|
||||
$ajson = [];
|
||||
$data = Param::Get("data");
|
||||
$mode = Param::Get("mode");
|
||||
$mode_detail = Param::Get("mode_detail");
|
||||
$emon_enable = Param::Get("Hak_Real", 0);
|
||||
$id_rpjmd = $_SESSION['__WEB_APP']['RENC_RPJMDID'];
|
||||
$thn_renja = $_SESSION['__WEB_APP']['RENC_THN'];
|
||||
$id_opd = Param::Get("OPDID", 0);
|
||||
$id_prog = Param::Get("ProgID", 0);
|
||||
$id_rkeg = Param::Get("RKegID", 0);
|
||||
$k_rka = Param::Get("K_RKA", "");
|
||||
|
||||
if ( in_array($data, ["tabel-opd","tabel-upt","tabel-prog","tabel-keg"]) ) {
|
||||
$qsql = "Tahun='".$thn_renja."'";
|
||||
$msql = "M.Aktif=1";
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
} else if ( $data == "tabel-upt" ) {
|
||||
$qsql .= ($id_opd==0) ? "" : " AND K.OPDID='".$id_opd."'";
|
||||
$msql .= ($id_opd==0) ? "" : " AND M.OPDID='".$id_opd."'";
|
||||
} else if ( $data == "tabel-prog" ) {
|
||||
$qsql .= ($id_opd==0) ? "" : " AND K.OPDID='".$id_opd."'";
|
||||
$qsql .= ($id_upt==0) ? "" : " AND K.UPTID='".$id_upt."'";
|
||||
$msql .= " AND PR.ProgID IS NOT NULL";
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
$qsql .= ($id_opd==0) ? "" : " AND K.OPDID='".$id_opd."'";
|
||||
$qsql .= ($id_upt==0) ? "" : " AND K.UPTID='".$id_upt."'";
|
||||
$qsql .= ($id_prog>0) ? " AND K.ProgID='".$id_prog."'" : "";
|
||||
}
|
||||
|
||||
//todo: perbolehkan sesuai opd dan upt, jika dari hak user di perbolehkan.
|
||||
$qsql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND K.OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")": "";
|
||||
$qsql .= ($_SESSION['__WEB_USER']['Level']==4) ? " AND K.UPTID IN (".$_SESSION['__WEB_USER']['AK_UPT'].")" : "";
|
||||
if ( $data == "tabel-opd" || $data == "tabel-upt" ) {
|
||||
$msql .= (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? " AND M.OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")": "";
|
||||
}
|
||||
if ( $data == "tabel-upt" ) {
|
||||
$msql .= ($_SESSION['__WEB_USER']['Level']==4) ? " AND M.UPTID IN (".$_SESSION['__WEB_USER']['AK_UPT'].")" : "";
|
||||
}
|
||||
}
|
||||
|
||||
if ( $data == "tabel-opd" ) {
|
||||
$f_usul = "0";//todo: debug zero
|
||||
if (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) {
|
||||
$f_usul = "IFNULL(H.Hak_Laksa,1)";
|
||||
}
|
||||
$obj = new Table($db);
|
||||
$obj->set_query("SELECT K.*,M.K_OPD,M.N_OPD,M.Nama_OPD,1 Hak_Laksa FROM (SELECT * FROM dpa90_akun WHERE ".$qsql.") K LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) OPD_PAGU FROM dpa90_akun WHERE ".$qsql." GROUP BY OPDID) TT ON (TT.OPDID=K.OPDID) LEFT JOIN (SELECT OPDID,Hak_DPA FROM sippd_akses_sip WHERE Tahun='".$thn_renja."') H ON (H.OPDID=TT.OPDID) LEFT JOIN vi_para90_opd M ON (M.OPDID=TT.OPDID) WHERE M.Aktif=1 GROUP BY K.OPDID");
|
||||
//$obj->set_query("SELECT K.*,M.OPDID OPDID2,M.K_OPD,M.N_OPD,M.Nama_OPD FROM vi_para90_opd M LEFT JOIN (SELECT K.OPDID,COUNT(DISTINCT K.ProgID) ITEM_PROG,COUNT(*) ITEM_KEG,SUM(K.B_Total) TOT_DPA,SUM(A.Pagu_Ini) TOT_REN FROM dpa90_sub K LEFT JOIN renja90_awal_sub A ON (K.Tahun=A.Tahun AND K.SubID=A.SubID) WHERE ".$qsql." GROUP BY K.OPDID) K ON (K.OPDID=M.OPDID) WHERE ".$msql);
|
||||
$obj->add_field("OPDID", "OPD", "hid");
|
||||
$obj->add_field("Nama_OPD", "Nama OPD", "hid");
|
||||
$obj->add_field("K_OPD", "Kode", "c");
|
||||
$obj->add_field("N_OPD", "Nama Perangkat Daerah", "awr");
|
||||
$obj->add_field("TOT_REN", "Jumlah Renja", "r", "uang");
|
||||
$obj->add_field("TOT_DPA", "Jumlah DPA", "r", "uang");
|
||||
$obj->add_field("ITEM_PROG", "PROG", "r", "rupiah");
|
||||
$obj->add_field("ITEM_KEG", "KEG", "r", "rupiah");
|
||||
$obj->set_field_order("K_OPD", "A");
|
||||
$obj->add_row_btn("folder", "Program", "ILaksaJS.opd_select");
|
||||
$obj->set_func_navi("ILaksaJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
} else if ( $data == "tabel-prog" ) {
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT TRUE");
|
||||
//$obj->set_query("SELECT K.*,PR.K_Prog,M.ProgID ProgID2,M.N_Prog,CONCAT('(',PR.K_Prog,') ',M.N_Prog) Nama_Prog FROM para_program M LEFT JOIN (SELECT K.ProgID,K.K_Prog FROM dpa_prog K WHERE ".$qsql." GROUP BY K.ProgID) PR ON (M.ProgID=PR.ProgID) LEFT JOIN (SELECT K.ProgID,COUNT(*) ITEM_KEG,SUM(B_Total) TOT_DPA,SUM(A.Ini_Pagu) TOT_REN FROM dpa_detail K LEFT JOIN renja_detail A ON (K.Tahun=A.Tahun AND K.RKegID=A.RKegID) WHERE ".$qsql." GROUP BY K.ProgID) K ON (M.ProgID=K.ProgID) WHERE ".$msql."");
|
||||
$obj->add_field("ProgID2", "ID", "hidden");
|
||||
$obj->add_field("Nama_Prog", "Nama PROG", "hidden");
|
||||
$obj->add_field("RUTIN", "RUTIN", "hidden");
|
||||
$obj->add_field("K_Prog", "Kode", "center");
|
||||
$obj->add_field("N_Prog", "Nama Program", "left autowrap");
|
||||
$obj->add_field("TOT_REN", "Jumlah Renja", "right", "uang");
|
||||
$obj->add_field("TOT_DPA", "Jumlah DPA", "right", "uang");
|
||||
$obj->add_field("ITEM_KEG", "KEG", "right", "rupiah");
|
||||
$obj->set_field_order("K_Prog", "A");
|
||||
$obj->add_row_btn("folder", "Kegiatan", "ILaksaJS.prog_select");
|
||||
$obj->set_func_navi("ILaksaJS.data_query('tabel-prog')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divPROG");
|
||||
|
||||
} else if ( $data == "tabel-keg" ) {
|
||||
if ($mode_detail=="update") {
|
||||
$sql = new cSQL();
|
||||
$sql->set_table("dpa_detail");
|
||||
$sql->add_param("Eval_Sesuai");
|
||||
$sql->add_param("Eval_Evaluasi");
|
||||
$sql->add_param("Eval_Tindak");
|
||||
$sql->add_param("Eval_Lanjut");
|
||||
$sql->add_param_stamp();
|
||||
$sql->add_param_userid();
|
||||
$sql->add_where("Tahun", $thn_renja);
|
||||
$sql->add_where("K_RKA");
|
||||
$sql->UpdateDB();
|
||||
}
|
||||
|
||||
$qsql = " AND R.Tahun='".$thn_renja."' AND R.OPDID='".$id_opd."' AND R.UPTID='".$id_upt."'";
|
||||
$obj = new cGRIDTABLE();
|
||||
$obj->set_query("SELECT R.*,P.K_Prog,CONCAT(P.K_Prog,'.',R.K_Keg) Kode_Keg,A.Ini_Pagu FROM dpa_detail R LEFT JOIN dpa_prog P ON (R.Tahun=P.Tahun AND R.OPDID=P.OPDID AND R.UPTID=P.UPTID AND R.ProgID=P.ProgID) LEFT JOIN renja_detail A ON (R.Tahun=A.Tahun AND R.RKegID=A.RKegID) WHERE R.ProgID='".$id_prog."'".$qsql);
|
||||
$obj->set_query_footer("SELECT SUM(R.B_Total) B_DPA FROM dpa_detail R WHERE R.ProgID='".$id_prog."'".$qsql);
|
||||
$obj->add_field("K_RKA", "RKA", "hidden");
|
||||
$obj->add_field("RKegID", "ID", "hidden");
|
||||
$obj->add_field("Kode_Keg", "KODE", "center");
|
||||
$obj->add_field("N_Keg", "KEGIATAN", "left autowrap");
|
||||
$obj->add_field("Ini_Pagu", "Jumlah Renja", "right", "uang", "uang");
|
||||
$obj->add_field("B_Total", "Jumlah DPA", "right", "uang", "uang");
|
||||
$obj->add_field("Lokasi", "Lokasi", "left autowrap");
|
||||
$obj->set_field_order("Kode_Keg", "A");
|
||||
$obj->add_row_btn("clipboard", "Evaluasi", "ILaksaJS.keg_ubah");
|
||||
$obj->set_func_navi("ILaksaJS.data_query('tabel-keg')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divKEG");
|
||||
|
||||
} else if ( $data == "detail-keg" ) {
|
||||
$akeg = array();
|
||||
$db->Query("SELECT R.*,CONCAT(P.K_Prog,'.',R.K_Keg) Kode_Keg,A.Ini_Pagu B_Total2,A.Indi_Hasil UCapai2,A.Ini_Target TCapai2,A.Lokasi Lokasi2 FROM (SELECT * FROM dpa_detail WHERE Tahun='".$thn_renja."' AND RKegID='".$id_rkeg."' AND K_RKA='".$k_rka."' LIMIT 1) R LEFT JOIN dpa_prog P ON (R.Tahun=P.Tahun AND R.OPDID=P.OPDID AND R.UPTID=P.UPTID AND R.ProgID=P.ProgID) LEFT JOIN renja_detail A ON (R.Tahun=A.Tahun AND R.RKegID=A.RKegID)");
|
||||
if ($db->Next()) $akeg = $db->AllRow();
|
||||
|
||||
$e_sesuai = 1;
|
||||
$t_ucapai = '<i class="fa fa-lg fa-check w-hijau"></i>';
|
||||
$t_tcapai = '<i class="fa fa-lg fa-check w-hijau"></i>';
|
||||
$t_lokasi = '<i class="fa fa-lg fa-check w-hijau"></i>';
|
||||
$t_total = '<i class="fa fa-lg fa-check w-hijau"></i>';
|
||||
$t_sesuai = '<i class="fa fa-lg fa-check w-hijau"></i> Sesuai';
|
||||
if (trim($akeg['T_Hasil'])<>trim($akeg['UCapai2'])) {
|
||||
$t_ucapai = '<i class="fa fa-lg fa-delete w-merah"></i>';
|
||||
$e_sesuai = 2;
|
||||
}
|
||||
if (trim($akeg['T_Keluar'])<>trim($akeg['TCapai2'])) {
|
||||
$t_tcapai = '<i class="fa fa-lg fa-delete w-merah"></i>';
|
||||
$e_sesuai = 2;
|
||||
}
|
||||
if ($akeg['B_Total']<>$akeg['B_Total2']) {
|
||||
$t_total = '<i class="fa fa-lg fa-delete w-merah"></i>';
|
||||
$e_sesuai = 2;
|
||||
}
|
||||
if (trim($akeg['Lokasi'])<>trim($akeg['Lokasi2'])) {
|
||||
$t_lokasi = '<i class="fa fa-lg fa-delete w-merah"></i>';
|
||||
$e_sesuai = 2;
|
||||
}
|
||||
if ($e_sesuai==2) $t_sesuai = '<i class="fa fa-lg fa-delete w-merah"></i> Tidak Sesuai';
|
||||
|
||||
$form = new cFORM();
|
||||
$txkeg = $form->textbox("_", "X_Keg", $akeg['Kode_Keg'], false, false);
|
||||
$tnkeg = $form->textarea("_", "N_Keg", $akeg['N_Keg'], false, false, 2);
|
||||
$tucapa1 = $form->textarea("_", "UCapai1", $akeg['UCapai2'], false, false, 1);
|
||||
$ttcapa1 = $form->textarea("_", "TCapai1", $akeg['TCapai2'], false, false, 1);
|
||||
$tucapa2 = $form->textarea("_", "UCapai2", $akeg['T_Hasil'], false, false, 1);
|
||||
$ttcapa2 = $form->textarea("_", "TCapai2", $akeg['T_Keluar'], false, false, 1);
|
||||
$tlokasi1 = $form->textbox("_", "Lokasi1", $akeg['Lokasi2'], false, false, "text");
|
||||
$tlokasi2 = $form->textbox("_", "Lokasi", $akeg['Lokasi'], false, false, "text");
|
||||
$tjumlah1 = $form->textbox("_", "Jumlah1", $akeg['B_Total2'], false, false, "double");
|
||||
$tjumlah2 = $form->textbox("_", "Jumlah2", $akeg['B_Total'], false, false, "double");
|
||||
$teval = $form->textarea("_", "Eval_Evaluasi", $akeg['Eval_Evaluasi'], true, true, 1);
|
||||
$ttindak = $form->textarea("_", "Eval_Tindak", $akeg['Eval_Tindak'], true, true, 1);
|
||||
$tlanjut = $form->textarea("_", "Eval_Lanjut", $akeg['Eval_Lanjut'], true, true, 1);
|
||||
|
||||
echo '
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="X_Keg">Kode Kegiatan</label>
|
||||
<div class="col-sm-6 col-lg-3">'.$txkeg.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="N_Keg">Nama Kegiatan</label>
|
||||
<div class="col">'.$tnkeg.'</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="Catatan">Catatan</label>
|
||||
<div class="col">'.$tcatat.'</div>
|
||||
</div>
|
||||
<div class="row mb-1"><div class="col"><hr class="my-1"></div></div>
|
||||
<div class="row mb-1 text-center"><div class="col"><h5>INDIKATOR & TARGET</h5></div></div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="U_Capai">Capaian Program</label>
|
||||
<div class="col-sm-6 col-lg-7">'.$tucapai.'</div>
|
||||
<div class="col-sm-2 col-lg-3"><div class="form-group"><div class="input-group"><div class="input-group-prepend"><span class="input-group-text">Target</span></div>'.$ttcapai.'</div></div></div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="U_Masuk">Masukan</label>
|
||||
<div class="col-sm-6 col-lg-7">'.$tumasuk.'</div>
|
||||
<div class="col-sm-2 col-lg-3"><div class="form-group"><div class="input-group"><div class="input-group-prepend"><span class="input-group-text">Target</span></div>'.$ttmasuk.'</div></div></div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="U_Keluar">Keluaran</label>
|
||||
<div class="col-sm-6 col-lg-7">'.$tukeluar.'</div>
|
||||
<div class="col-sm-2 col-lg-3"><div class="form-group"><div class="input-group"><div class="input-group-prepend"><span class="input-group-text">Target</span></div>'.$ttkeluar.'</div></div></div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="U_Keluar">Hasil</label>
|
||||
<div class="col-sm-6 col-lg-7">'.$tuhasil.'</div>
|
||||
<div class="col-sm-2 col-lg-3"><div class="form-group"><div class="input-group"><div class="input-group-prepend"><span class="input-group-text">Target</span></div>'.$tthasil.'</div></div></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-6">
|
||||
<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-4 col-form-label" for="B_Pegawai">Belanja Pegawai</label>
|
||||
<div class="col">'.$tb_peg.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-8 col-lg-4 col-form-label" for="B_Barang">Belanja Barang & Jasa</label>
|
||||
<div class="col">'.$tb_bar.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-8 col-lg-4 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-4 col-form-label" for="Jumlah_Bel">JUMLAH BELANJA</label>
|
||||
<div class="col">'.$tj_bel.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<div class="col text-right">
|
||||
<button type="button" class="btn btn-info ml-2" id="butXCopyMasuk">Salin ke Target Masukan</button>
|
||||
<button type="button" class="btn btn-info ml-2" id="butXCopyTriw">Bagi Rata ke Triwulan</button>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<div class="col-12 col-lg-6">
|
||||
<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="form-group"><div class="input-group"><div class="input-group-prepend"><span class="input-group-text">Fisik</span></div>'.$tfis1.'</div></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="form-group"><div class="input-group"><div class="input-group-prepend"><span class="input-group-text">Fisik</span></div>'.$tfis2.'</div></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="form-group"><div class="input-group"><div class="input-group-prepend"><span class="input-group-text">Fisik</span></div>'.$tfis3.'</div></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="form-group"><div class="input-group"><div class="input-group-prepend"><span class="input-group-text">Fisik</span></div>'.$tfis4.'</div></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="form-group"><div class="input-group"><div class="input-group-prepend"><span class="input-group-text">Fisik</span></div>'.$tj_fis.'</div></div></div>
|
||||
</div>
|
||||
</div>
|
||||
</div>
|
||||
<input type="hidden" id="K_RKA" value="'.$adetail['K_RKA'].'">
|
||||
<input type="hidden" id="MKegID" value="'.$adetail['MKegID'].'">
|
||||
<input type="hidden" id="Status_Save" value="0">
|
||||
<input type="hidden" id="mode_detail" value="'.$mode_detail.'">
|
||||
';
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Input Evaluasi Pelaksanaan // Tahun '.$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="OPDID" type="hidden" value="0">
|
||||
<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 id="divOPD"> </div>
|
||||
<div id="divPROG"> </div>
|
||||
<div id="divKEG"> </div>
|
||||
</div></div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
@@ -3,8 +3,8 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/dpa.php
|
||||
Desc. : PHP - Kelola Realisasi Triwulan DPA
|
||||
Module : /apps/php/mon/kinerja.php
|
||||
Desc. : PHP - Kelola Realisasi Kinerja OPD
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : December 7th, 2011.
|
||||
Last Modified : April 14th, 2026.
|
||||
@@ -14,14 +14,13 @@
|
||||
*******************************************************************/
|
||||
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../func.emonev.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 = [];
|
||||
@@ -136,8 +135,8 @@ if ( $data == "tabel-opd" ) {
|
||||
$f_real = "IFNULL(H.Hak_Real,1)";
|
||||
}
|
||||
$obj = new Table($db);
|
||||
$obj->set_query("SELECT K.*,M.ORGID,M.K_OPD,M.N_OPD,M.Nama_OPD,".$f_real." Hak_Real 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 dpa90_akun WHERE".$qsql.") A LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) TOT_PAGU FROM dpa90_akun WHERE".$qsql." GROUP BY OPDID) B ON (B.OPDID=A.OPDID) GROUP BY A.OPDID) K LEFT JOIN (SELECT OPDID,Hak_Real FROM sippd_akses_sip WHERE Tahun='".$thn_renja."') 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 dpa90_akun WHERE".$qsql.") A LEFT JOIN (SELECT 1 OPDID,SUM(Renc_Keu) TOT_PAGU FROM dpa90_akun WHERE".$qsql.") B ON (B.OPDID=A.OPDID)");
|
||||
$obj->set_query("SELECT K.*,M.ORGID,M.K_OPD,M.N_OPD,M.Nama_OPD,".$f_real." Hak_Real 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_Real FROM sippd_akses_sip WHERE Tahun='".$thn_renja."') 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");
|
||||
@@ -145,79 +144,62 @@ if ( $data == "tabel-opd" ) {
|
||||
$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");
|
||||
//if ($bln_data>1) $obj->add_field("REAL_LALU", "Real. Lalu", "r", "rupiah", "rupiah");
|
||||
$obj->add_field("REAL_TOTAL", "Real. S/D ".bulan_array()[$bln_data], "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", "DPARealJS.opd_select");
|
||||
$obj->set_func_navi("DPARealJS.data_query('tabel-opd')");
|
||||
$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") {
|
||||
$sql = new SQL($db);
|
||||
$sql->set_table("dpa90_prog");
|
||||
$sql->add_param("Real_Kendala");
|
||||
$sql->add_param("Real_Tindak");
|
||||
$sql->add_param("Real_Bantu");
|
||||
$sql->add_param_stamp("Real_Stamp");
|
||||
$sql->add_param_userid("Real_UserID");
|
||||
$sql->add_where("Tahun", $thn_renja);
|
||||
$sql->add_where("DPAProgID", Param::Get("DPAProgID",0));
|
||||
$sql->UpdateDB();
|
||||
|
||||
$aparam = Param::Get_Array();
|
||||
foreach($aparam as $key => $val) {
|
||||
if (strpos($key, "Prog_TW_") !== false) {
|
||||
$aid = explode("_", str_replace("Prog_TW_","",$key));
|
||||
$db->Query("UPDATE dpa90_prog_indi SET Real_TW".$aid[0]."='".$val."',Poin_TW".$aid[0]."=func_tipedata(TipeDataID,'".$val."') WHERE Tahun='".$thn_renja."' AND DPAProgIndiID='".$aid[1]."' LIMIT 1");
|
||||
$db->Query("UPDATE dpa_prog_indi SET Real_TW".$aid[0]."='".($val=='0:0'?'':$val)."',Poin_TW".$aid[0]."='".tipedata_poin($val)."' WHERE Tahun='".$thn_renja."' AND DPAProgIndiID='".$aid[1]."' LIMIT 1");
|
||||
}
|
||||
}
|
||||
/*$_real_prog = Param::Get("Real_TW_Data", 0);
|
||||
if ($_real_prog > 0) {
|
||||
$db->Query("UPDATE dpa90_prog SET Real_TW".$tw_data."='".$_real_prog."' WHERE DPAProgID='".$id_dpa_prog."'");
|
||||
}*/
|
||||
$q_poin = "IF(TipeDataID=0,Poin_TW1,Poin_TW".$tw_data.")";
|
||||
$q_poin = "IF(TipeDataID<2,Poin_TW1,Poin_TW".$tw_data.")";
|
||||
if ($tw_data == 2) {
|
||||
$q_poin = "IF(TipeDataID=0,Poin_TW1+Poin_TW2,Poin_TW".$tw_data.")";
|
||||
$q_poin = "IF(TipeDataID<2,IF(Status_Indi='komulatif',Poin_TW1+Poin_TW2,IF(Status_Indi='rata-rata',(Poin_TW1+Poin_TW2)/2,Poin_TW".$tw_data.")),Poin_TW".$tw_data.")";
|
||||
} else if ($tw_data == 3) {
|
||||
$q_poin = "IF(TipeDataID=0,Poin_TW1+Poin_TW2+Poin_TW3,Poin_TW".$tw_data.")";
|
||||
$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_TW".$tw_data.")),Poin_TW".$tw_data.")";
|
||||
} else if ($tw_data == 4) {
|
||||
$q_poin = "IF(TipeDataID=0,Poin_TW1+Poin_TW2+Poin_TW3+Poin_TW4,Poin_TW".$tw_data.")";
|
||||
$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_TW".$tw_data.")),Poin_TW".$tw_data.")";
|
||||
}
|
||||
$db->Query("UPDATE dpa90_prog A,(SELECT ProgID,AVG(IF(Poin_Target=0,0,".$q_poin."/Poin_Target*100)) Poin FROM dpa90_prog_indi WHERE Tahun='".$thn_renja."' 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."'");
|
||||
$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_renja."' 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 dpa90_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 dpa90_prog_indi WHERE ".$qsql." GROUP BY ProgID) I ON (I.ProgID=A.ProgID) LEFT JOIN (SELECT ProgID,SUM(Renc_Keu) TOT_PAGU FROM dpa90_akun WHERE".$qsql." GROUP BY ProgID) B ON (B.ProgID=A.ProgID) LEFT JOIN (SELECT *,Real_TW".$tw_data." Kinerja_Ini FROM dpa90_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 dpa90_akun WHERE".$qsql.") A LEFT JOIN (SELECT OPDID,SUM(Renc_Keu) TOT_PAGU FROM dpa90_akun WHERE".$qsql." GROUP BY OPDID) B ON (B.OPDID=A.OPDID)");
|
||||
$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");
|
||||
//if ($bln_data>1) $obj->add_field("REAL_LALU", "Real. Lalu", "r", "rupiah", "rupiah");
|
||||
$obj->add_field("REAL_TOTAL", "Real. S/D ".bulan_array()[$bln_data], "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", "DPARealJS.prog_real", "", "", "CSS_INDI", [1=>"warning",2=>"danger"]);
|
||||
$obj->add_row_btn("folder", "Kegiatan", "DPARealJS.prog_select");
|
||||
$obj->set_func_navi("DPARealJS.data_query('tabel-prog')");
|
||||
$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" ) {
|
||||
if ($mode_detail=="update") {
|
||||
/*if ($mode_detail=="update") {
|
||||
$sql = new SQL($db);
|
||||
$sql->set_table("dpa90_keg");
|
||||
$sql->set_table("dpa_keg");
|
||||
$sql->add_param("Real_Kendala");
|
||||
$sql->add_param("Real_Tindak");
|
||||
$sql->add_param("Real_Bantu");
|
||||
@@ -231,44 +213,44 @@ if ( $data == "tabel-opd" ) {
|
||||
foreach($aparam as $key => $val) {
|
||||
if (strpos($key, "Keluar_TW_") !== false) {
|
||||
$aid = explode("_", str_replace("Keluar_TW_","",$key));
|
||||
$db->Query("UPDATE dpa90_keg_keluar SET Real_TW".$aid[0]."='".$val."' WHERE Tahun='".$thn_renja."' AND DPAKegKeluarID='".$aid[1]."' LIMIT 1");
|
||||
$db->Query("UPDATE dpa_keg_keluar SET Real_TW".$aid[0]."='".$val."' WHERE Tahun='".$thn_renja."' AND DPAKegKeluarID='".$aid[1]."' LIMIT 1");
|
||||
}
|
||||
if (strpos($key, "Hasil_TW_") !== false) {
|
||||
$aid = explode("_", str_replace("Hasil_TW_","",$key));
|
||||
$db->Query("UPDATE dpa90_keg_hasil SET Real_TW".$aid[0]."='".$val."' WHERE Tahun='".$thn_renja."' AND DPAKegHasilID='".$aid[1]."' LIMIT 1");
|
||||
$db->Query("UPDATE dpa_keg_hasil SET Real_TW".$aid[0]."='".$val."' WHERE Tahun='".$thn_renja."' AND DPAKegHasilID='".$aid[1]."' LIMIT 1");
|
||||
}
|
||||
}
|
||||
}
|
||||
}*/
|
||||
|
||||
$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,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) AND IFNULL(I1.Indi_Text,0)+IFNULL(I2.Indi_Text,0)=IFNULL(I1.Indi_Real,0)+IFNULL(I2.Indi_Real,0),0,1)) CSS_INDI FROM (SELECT * FROM dpa90_akun WHERE".$qsql.") A LEFT JOIN (SELECT KegID,SUM(IF(Text_Keluar='',0,1)) Indi_Text,SUM(IF(Target_Keluar=0,0,1)) Indi_Target,SUM(IF(Real_TW".$tw_data."=0,0,1)) Indi_Real FROM dpa90_keg_keluar WHERE ".$qsql." GROUP BY KegID) I1 ON (I1.KegID=A.KegID) LEFT JOIN (SELECT KegID,SUM(IF(Text_Hasil='',0,1)) Indi_Text,SUM(IF(Target_Hasil='',0,1)) Indi_Target,SUM(IF(Real_TW".$tw_data."=0,0,1)) Indi_Real FROM dpa90_keg_hasil WHERE ".$qsql." GROUP BY KegID) I2 ON (I2.KegID=A.KegID) LEFT JOIN (SELECT KegID,SUM(Renc_Keu) TOT_PAGU FROM dpa90_akun WHERE".$qsql." GROUP BY KegID) B ON (B.KegID=A.KegID) GROUP BY A.KegID) K LEFT JOIN (SELECT * FROM dpa90_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 dpa90_akun WHERE".$qsql.") A LEFT JOIN (SELECT ProgID,SUM(Renc_Keu) TOT_PAGU FROM dpa90_akun WHERE".$qsql." GROUP BY ProgID) B ON (B.ProgID=A.ProgID)");
|
||||
$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");
|
||||
//if ($bln_data>1) $obj->add_field("REAL_LALU", "Real. Lalu", "r", "rupiah", "rupiah");
|
||||
$obj->add_field("REAL_TOTAL", "Real. S/D ".bulan_array()[$bln_data], "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("clipboard", "Kinerja", "DPARealJS.keg_real", "", "", "CSS_INDI", [1=>"warning",2=>"danger"]);
|
||||
$obj->add_row_btn("folder", "Sub Kegiatan", "DPARealJS.keg_select");
|
||||
$obj->set_func_navi("DPARealJS.data_query('tabel-keg')");
|
||||
//$obj->add_row_btn("clipboard", "Kinerja", "KinerjaJS.keg_real");
|
||||
$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("dpa90_sub");
|
||||
$sql->add_param("Real_Kendala");
|
||||
$sql->add_param("Real_Tindak");
|
||||
$sql->add_param("Real_Bantu");
|
||||
$sql->set_table("dpa_sub");
|
||||
//$sql->add_param("Real_Kendala");
|
||||
//$sql->add_param("Real_Tindak");
|
||||
//$sql->add_param("Real_Bantu");
|
||||
$sql->add_param("Real_Catatan");
|
||||
$sql->add_param("Real_No_Kontrak");
|
||||
$sql->add_param("Real_Pelaksana");
|
||||
$sql->add_param_stamp("Real_Stamp");
|
||||
@@ -281,39 +263,38 @@ if ( $data == "tabel-opd" ) {
|
||||
foreach($aparam as $key => $val) {
|
||||
if (strpos($key, "Output_TW_") !== false) {
|
||||
$aid = explode("_", str_replace("Output_TW_","",$key));
|
||||
$db->Query("UPDATE dpa90_sub_output SET Real_TW".$aid[0]."='".$val."' WHERE Tahun='".$thn_renja."' AND DPASubOutputID='".$aid[1]."' LIMIT 1");
|
||||
// update kinerja ke dpa90_sub
|
||||
$db->Query("UPDATE dpa90_sub A, (SELECT 1 Kode,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 dpa90_sub_output WHERE Tahun='".$thn_renja."' 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_renja."' AND DPASubID='".Param::Get("DPASubID",0)."' AND B.Kode=1 LIMIT 1");
|
||||
$db->Query("UPDATE dpa_sub_output SET Real_TW".$aid[0]."='".$val."' WHERE Tahun='".$thn_renja."' 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_renja."' 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_renja."' 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.Renc_K>0 AND B.Renc_F>0 AND B.Real_KF>0,0,1)) CSS_INDI FROM (SELECT * FROM dpa90_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 dpa90_sub_output WHERE ".$qsql." GROUP BY SubID) I ON (I.SubID=A.SubID) LEFT JOIN (SELECT SubID,SUM(Renc_Keu) TOT_PAGU,GREATEST(RencK_TW1,RencK_TW2,RencK_TW3,RencK_TW4) Renc_K,GREATEST(RencF_TW1,RencF_TW2,RencF_TW3,RencF_TW4) Renc_F,GREATEST(RealK_TW".$tw_data.",RealF_TW".$tw_data.") Real_KF FROM dpa90_sub WHERE".$qsql." GROUP BY SubID) B ON (B.SubID=A.SubID) GROUP BY A.SubID) K LEFT JOIN (SELECT * FROM dpa90_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 dpa90_akun WHERE".$qsql.") A LEFT JOIN (SELECT KegID,SUM(Renc_Keu) TOT_PAGU FROM dpa90_akun WHERE".$qsql." GROUP BY KegID) B ON (B.KegID=A.KegID)");
|
||||
$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");
|
||||
//if ($bln_data>1) $obj->add_field("REAL_LALU", "Real. Lalu", "r", "rupiah", "rupiah");
|
||||
$obj->add_field("REAL_TOTAL", "Real. S/D ".bulan_array()[$bln_data], "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", "DPARealJS.sub_ubah", "", "", "CSS_INDI", [0=>"success",1=>"warning",2=>"danger"]);
|
||||
$obj->add_row_btn("folder", "Akun", "DPARealJS.sub_select");
|
||||
$obj->set_func_navi("DPARealJS.data_query('tabel-sub')");
|
||||
$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("dpa90_akun");
|
||||
$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));
|
||||
@@ -326,64 +307,54 @@ if ( $data == "tabel-opd" ) {
|
||||
$sql->add_where("DPAAkunID", Param::Get("DPAAkunID",0));
|
||||
$sql->UpdateDB();
|
||||
// update sub
|
||||
$db->Query("UPDATE dpa90_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 dpa90_akun WHERE Tahun='".$thn_renja."' 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_renja."' AND A.OPDID='".$id_opd."' AND A.ProgID='".$id_prog."' AND A.KegID='".$id_keg."'");
|
||||
$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_renja."' 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_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(Real_Keu) P1 FROM dpa90_sub WHERE Tahun='".$thn_renja."' 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_renja."' AND A.OPDID='".$id_opd."' AND A.ProgID='".$id_prog."'");
|
||||
$db->Query("UPDATE dpa_keg A, (SELECT KegID,SUM(Real_Keu) P1 FROM dpa_sub WHERE Tahun='".$thn_renja."' 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_renja."' AND A.OPDID='".$id_opd."' AND A.ProgID='".$id_prog."'");
|
||||
// update prog
|
||||
$db->Query("UPDATE dpa90_prog A, (SELECT ProgID,SUM(Real_Keu) P1 FROM dpa90_keg WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' GROUP BY ProgID) B SET A.Real_Keu=B.P1 WHERE A.ProgID=B.ProgID AND A.Tahun='".$thn_renja."' AND A.OPDID='".$id_opd."'");
|
||||
$db->Query("UPDATE dpa_prog A, (SELECT ProgID,SUM(Real_Keu) P1 FROM dpa_keg WHERE Tahun='".$thn_renja."' AND OPDID='".$id_opd."' GROUP BY ProgID) B SET A.Real_Keu=B.P1 WHERE A.ProgID=B.ProgID AND A.Tahun='".$thn_renja."' 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 dpa90_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 dpa90_akun WHERE".$qsql.") A LEFT JOIN (SELECT SubID,SUM(Renc_Keu) TOT_PAGU FROM dpa90_akun WHERE".$qsql." GROUP BY SubID) B ON (B.SubID=A.SubID)");
|
||||
$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");
|
||||
//if ($bln_data>1) $obj->add_field("REAL_LALU", "Real. Lalu", "r", "rupiah", "rupiah");
|
||||
$obj->add_field("REAL_TOTAL", "Real. S/D ".bulan_array()[$bln_data], "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 ($emon_en) {
|
||||
$obj->add_row_btn("clipboard", "Realisasi", "DPARealJS.akun_ubah");
|
||||
$obj->add_row_btn("clipboard", "Realisasi", "KinerjaJS.akun_ubah");
|
||||
} else {
|
||||
$obj->add_row_btn("clipboard", "Detail", "DPARealJS.akun_ubah");
|
||||
$obj->add_row_btn("clipboard", "Detail", "KinerjaJS.akun_ubah");
|
||||
}
|
||||
$obj->set_func_navi("DPARealJS.data_query('tabel-akun')");
|
||||
$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 dpa90_prog WHERE Tahun='".$thn_renja."' AND DPAProgID='".$id_dpa_prog."' LIMIT 1");
|
||||
$db->Query("SELECT * FROM dpa_prog WHERE Tahun='".$thn_renja."' 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());
|
||||
}
|
||||
|
||||
$form = new Form($db);
|
||||
$tprog = $form->textarea("_", "N_Prog", $arec['N_Prog'], false, false, 2);
|
||||
$tkendala = $form->textarea("_", "Real_Kendala", $arec['Real_Kendala'], $emon_en, false, 2);
|
||||
$ttindak = $form->textarea("_", "Real_Tindak", $arec['Real_Tindak'], $emon_en, false, 2);
|
||||
$tbantu = $form->textarea("_", "Real_Bantu", $arec['Real_Bantu'], $emon_en, false, 2);
|
||||
|
||||
echo '
|
||||
<div class="row mb-2">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Nama Program</label>
|
||||
<div class="col">'.$tprog.'</div>
|
||||
<div class="col"><textarea class="form-control" disabled="true" rows="2">'.$arec['N_Prog'].'</textarea></div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<div class="col"><h5 class="text-center">Capaian Indikator Program <strong>Sampai Dengan Triwulan '.romawi($tw_data).'</strong></h5></div>
|
||||
</div>';
|
||||
|
||||
<div class="accordion" id="accorDPAReal">
|
||||
<div class="accordion-item">
|
||||
<h2 class="accordion-header" id="flush-one"><button class="accordion-button" type="button" data-bs-toggle="collapse" data-bs-target="#flush-coll-one" aria-controls="flush-coll-one" aria-expanded="true">Capaian Indikator Program <strong>Sampai Dengan Triwulan '.romawi($tw_data).'</strong></button></h2>
|
||||
<div id="flush-coll-one" class="accordion-collapse collapse show" aria-labelledby="flush-head-one" data-bs-parent="#accorDPAReal">
|
||||
<div class="accordion-body">';
|
||||
|
||||
$db->Query("SELECT I.*,IFNULL(T.P_Input,'{}') P_Input FROM (SELECT * FROM dpa90_prog_indi WHERE ".$qsql.") I LEFT JOIN para_tipedata T ON (T.TipeDataID=I.TipeDataID)");
|
||||
$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 '
|
||||
<div class="card"><div class="card-body">
|
||||
@@ -392,171 +363,42 @@ if ( $data == "tabel-opd" ) {
|
||||
}
|
||||
while ($db->Next()) {
|
||||
$_p_input = ($db->Row("TipeDataID", 0) > 0) ? json_decode($db->Row("P_Input", "{}"), true) : [];
|
||||
//$_val_cap = ($db->Row("Real_TW".$tw_data, "") == "" && $db->Row("TipeDataID", 0) > 0 && $tw_data>1) ? $db->Row("Real_TW".($tw_data-1)) : $db->Row("Real_TW".$tw_data);
|
||||
$_val_cap = $db->Row("Real_TW".$tw_data);
|
||||
$tindi = '<textarea class="form-control" disabled="true" rows="2">'.$db->Row("Text_Indi")." (".$db->Row("Satuan_Indi").')</textarea>';
|
||||
$ttarget = '<input type="text" class="form-control" value="'.$db->Row("Target_Indi").'" readonly="">';
|
||||
$treal = input_tipedata("Prog_TW_".$tw_data."_".$db->Row("DPAProgIndiID"), $db->Row("TipeDataID", 0), $_val_cap, $emon_en, $_p_input);
|
||||
$ttarget = '<input type="text" class="form-control" value="'.$db->Row("Target_Indi2").'" readonly="">';
|
||||
$tcss = 'border '.($_val_cap==""?'border-danger':'border-success').' rounded';
|
||||
$treal = tipedata_select("Prog_TW_".$tw_data."_".$db->Row("DPAProgIndiID"), $db->Row("TipeDataID", 0), $_val_cap, $emon_en, $_p_input, $tcss);
|
||||
$tcapaian = "";
|
||||
for ($_tw = 1; $_tw < $tw_data; $_tw++) {
|
||||
$tcapaian .= ' / TW'.$_tw.' : '.$db->Row("Real_TW".$_tw);
|
||||
}
|
||||
echo '
|
||||
<div class="card"><div class="card-body">
|
||||
<div class="card mb-2"><div class="card-body">
|
||||
<div class="row mb-2">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Tolok Ukur</label>
|
||||
<div class="col">'.$tindi.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Target Indikator</label>
|
||||
<div class="col-sm-6 col-lg-3">'.$ttarget.'</div>
|
||||
<div class="col-sm-10 col-lg-5"><div class="input-group border '.($_val_cap==""?'border-danger':'border-success').' rounded"><span class="input-group-text">Capaian Indikator TW '.romawi($tw_data).'</span>'.$treal.'<button class="btn btn-outline-secondary shadow-none text-info" title="Input hanya Capaian per Triwulan '.romawi($tw_data).' saja."><i class="bi-lightbulb"></i></button></div></div>
|
||||
<div class="col-sm-6 col-lg-4">'.$ttarget.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Capaian Indikator</label>
|
||||
<div class="col-sm-6 col-lg-4">'.$treal.'</div>
|
||||
<div class="col"><button class="btn btn-outline-secondary shadow-none text-info" title="Input hanya Capaian per Triwulan '.romawi($tw_data).' saja."><i class="bi-lightbulb"></i></button></div>
|
||||
</div>
|
||||
<div class="row'.($tw_data==1?' d-none':'').'">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Histori Capaian</label>
|
||||
<div class="col"><input type="text" class="form-control" value="'.substr($tcapaian,3).'" readonly=""></div>
|
||||
</div>
|
||||
</div></div>';
|
||||
|
||||
}
|
||||
echo '
|
||||
</div></div></div>
|
||||
|
||||
<div class="accordion-item">
|
||||
<h2 class="accordion-header" id="flush-tri"><button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#flush-coll-tri" aria-controls="flush-coll-tri" aria-expanded="false">Kendala dan Tindak Lanjut dari Program</button></h2>
|
||||
<div id="flush-coll-tri" class="accordion-collapse collapse" aria-labelledby="flush-head-tri" data-bs-parent="#accorDPAReal">
|
||||
<div class="accordion-body">
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-5 col-lg-3 col-form-label" for="Real_Kendala">Kendala yang dihadapi</label>
|
||||
<div class="col">'.$tkendala.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-5 col-lg-3 col-form-label" for="Real_Tindak">Tindak lanjut yang diperlukan</label>
|
||||
<div class="col">'.$ttindak.'</div>
|
||||
</div>
|
||||
<div class="row mb-1 d-none">
|
||||
<label class="col-sm-5 col-lg-3 col-form-label" for="Real_Bantu">Pihak yang diharapkan dapat membantu</label>
|
||||
<div class="col">'.$tbantu.'</div>
|
||||
</div>
|
||||
</div></div></div>
|
||||
</div>
|
||||
<input type="hidden" id="DPAProgID" value="'.$id_dpa_prog.'">';
|
||||
|
||||
} else if ( $data == "detail-keg" ) {
|
||||
$arec = [];
|
||||
$id_dpa_keg = Param::Get("DPAKegID", 0);
|
||||
$db->Query("SELECT * FROM dpa90_keg WHERE Tahun='".$thn_renja."' AND DPAKegID='".$id_dpa_keg."' LIMIT 1");
|
||||
if ($db->Next()) $arec = $db->AllRow();
|
||||
if ($arec['KegID'] > 0) {
|
||||
$db->Query("SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND KegID='".$arec['KegID']."' LIMIT 1");
|
||||
if ($db->Next()) $arec = array_merge($arec, $db->AllRow());
|
||||
}
|
||||
|
||||
$form = new Form($db);
|
||||
$tkeg = $form->textarea("_", "N_Keg", $arec['N_Keg'], false, false, 2);
|
||||
$tkendala = $form->textarea("_", "Real_Kendala", $arec['Real_Kendala'], $emon_en, false, 2);
|
||||
$ttindak = $form->textarea("_", "Real_Tindak", $arec['Real_Tindak'], $emon_en, false, 2);
|
||||
$tbantu = $form->textarea("_", "Real_Bantu", $arec['Real_Bantu'], $emon_en, false, 2);
|
||||
|
||||
echo '
|
||||
<div class="row mb-2">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Nama Kegiatan</label>
|
||||
<div class="col">'.$tkeg.'</div>
|
||||
</div>
|
||||
<div class="accordion" id="accorDPAReal">
|
||||
<div class="accordion-item">
|
||||
<h2 class="accordion-header" id="flush-one"><button class="accordion-button" type="button" data-bs-toggle="collapse" data-bs-target="#flush-coll-one" aria-controls="flush-coll-one" aria-expanded="true">Kinerja Indikator Keluaran <strong>Sampai Dengan Triwulan '.romawi($tw_data).'</strong></button></h2>
|
||||
<div id="flush-coll-one" class="accordion-collapse collapse show" aria-labelledby="flush-head-one" data-bs-parent="#accorDPAReal">
|
||||
<div class="accordion-body">';
|
||||
|
||||
$db->Query("SELECT * FROM dpa90_keg_keluar WHERE ".$qsql);
|
||||
if ($db->RecordCount()==0) {
|
||||
echo '
|
||||
<div class="card"><div class="card-body">
|
||||
<div class="row mb-2"><div class="col text-center"><h3>Belum ada Indikator Keluaran Kegiatan</h3></div></div>
|
||||
</div></div>
|
||||
';
|
||||
}
|
||||
while ($db->Next()) {
|
||||
$tindi = $form->textarea("_", "Text_Indi", $db->Row("Text_Keluar"), false, false, 2);
|
||||
$ttarget = $form->textbox("_", "Target_Indi", (float)$db->Row("Target_Keluar")." ".$db->Row("Satuan_Keluar"), false, false, "text");
|
||||
$treal = $form->textbox("_", "Keluar_TW_".$tw_data."_".$db->Row("DPAKegKeluarID"), $db->Row("Real_TW".$tw_data), $emon_en, true, "double");
|
||||
echo '
|
||||
<div class="card"><div class="card-body">
|
||||
<div class="row mb-2">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Tolok Ukur</label>
|
||||
<div class="col">'.$tindi.'</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Target & Realisasi</label>
|
||||
<div class="col-sm-6 col-lg-3">'.$ttarget.'</div>
|
||||
<div class="col-sm-8 col-lg-4"><div class="input-group">'.$treal.'<span class="input-group-text">'.$db->Row("Satuan_Keluar").'</span></div></div>
|
||||
</div>
|
||||
</div></div>
|
||||
';
|
||||
}
|
||||
|
||||
echo '
|
||||
</div></div></div>
|
||||
|
||||
<div class="accordion-item">
|
||||
<h2 class="accordion-header" id="flush-two"><button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#flush-coll-two" aria-controls="flush-coll-two" aria-expanded="false">Kinerja Indikator Hasil <strong>Sampai Dengan Triwulan '.romawi($tw_data).'</strong></button></h2>
|
||||
<div id="flush-coll-two" class="accordion-collapse collapse" aria-labelledby="flush-head-two" data-bs-parent="#accorDPAReal">
|
||||
<div class="accordion-body">';
|
||||
|
||||
$db->Query("SELECT * FROM dpa90_keg_hasil WHERE ".$qsql);
|
||||
if ($db->RecordCount()==0) {
|
||||
echo '
|
||||
<div class="card"><div class="card-body">
|
||||
<div class="row mb-2"><div class="col text-center"><h3>Belum ada Indikator Hasil Kegiatan</h3></div></div>
|
||||
</div></div>
|
||||
';
|
||||
}
|
||||
while ($db->Next()) {
|
||||
$tindi = $form->textarea("_", "Text_Indi", $db->Row("Text_Hasil"), false, false, 2);
|
||||
$ttarget = $form->textbox("_", "Target_Indi", $db->Row("Target_Hasil")." ".$db->Row("Satuan_Hasil"), false, false, "text");
|
||||
$treal = $form->textbox("_", "Hasil_TW_".$tw_data."_".$db->Row("DPAKegHasilID"), $db->Row("Real_TW".$tw_data), $emon_en, true, "text");
|
||||
echo '
|
||||
<div class="card"><div class="card-body">
|
||||
<div class="row mb-2">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Tolok Ukur</label>
|
||||
<div class="col">'.$tindi.'</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Target & Realisasi</label>
|
||||
<div class="col-sm-6 col-lg-3">'.$ttarget.'</div>
|
||||
<div class="col-sm-8 col-lg-4"><div class="input-group">'.$treal.'<span class="input-group-text">'.$db->Row("Satuan_Hasil").'</span></div></div>
|
||||
</div>
|
||||
</div></div>
|
||||
';
|
||||
}
|
||||
echo '
|
||||
</div></div></div>
|
||||
|
||||
<div class="accordion-item">
|
||||
<h2 class="accordion-header" id="flush-tri"><button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#flush-coll-tri" aria-controls="flush-coll-tri" aria-expanded="false">Kendala dan Tindak Lanjut dari Kegiatan</button></h2>
|
||||
<div id="flush-coll-tri" class="accordion-collapse collapse" aria-labelledby="flush-head-tri" data-bs-parent="#accorDPAReal">
|
||||
<div class="accordion-body">
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-5 col-lg-3 col-form-label" for="Real_Kendala">Kendala yang dihadapi</label>
|
||||
<div class="col">'.$tkendala.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-5 col-lg-3 col-form-label" for="Real_Tindak">Tindak lanjut yang diperlukan</label>
|
||||
<div class="col">'.$ttindak.'</div>
|
||||
</div>
|
||||
<div class="row mb-1 d-none">
|
||||
<label class="col-sm-5 col-lg-3 col-form-label" for="Real_Bantu">Pihak yang diharapkan dapat membantu</label>
|
||||
<div class="col">'.$tbantu.'</div>
|
||||
</div>
|
||||
</div></div></div>
|
||||
</div>
|
||||
<input type="hidden" id="DPAKegID" value="'.$id_dpa_keg.'">';
|
||||
echo '<input type="hidden" id="DPAProgID" value="'.$id_dpa_prog.'">';
|
||||
|
||||
} 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 dpa90_sub WHERE Tahun='".$thn_renja."' AND DPASubID='".$id_dpa_sub."' LIMIT 1");
|
||||
$db->Query("SELECT *,(RealK_TW1+RealK_TW2+RealK_TW3+RealK_TW4) Tot_Real FROM dpa_sub WHERE Tahun='".$thn_renja."' 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());
|
||||
@@ -565,15 +407,13 @@ if ( $data == "tabel-opd" ) {
|
||||
$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, "RencK_")!==false || strpos($_key, "RencF_")!==false || strpos($_key, "RealK_")!==false || strpos($_key, "RealF_")!==false) $adetail[$_key] = doubleval($_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);
|
||||
$tkendala = $form->textarea("_", "Real_Kendala", $adetail['Real_Kendala'], $emon_en, false, 2);
|
||||
$ttindak = $form->textarea("_", "Real_Tindak", $adetail['Real_Tindak'], $emon_en, false, 2);
|
||||
$tbantu = $form->textarea("_", "Real_Bantu", $adetail['Real_Bantu'], $emon_en, false, 2);
|
||||
$tcatatan = $form->textarea("_", "Real_Catatan", $adetail['Real_Catatan'], $emon_en, false, 2);
|
||||
$tno_kontr = $form->textbox("_", "Real_No_Kontrak", $adetail['Real_No_Kontrak'], $emon_en, false, "text", "nomor kontrak");
|
||||
$tpelak = $form->textarea("_", "Real_Pelaksana", $adetail['Real_Pelaksana'], $emon_en, false, 2, "nama pelaksana");
|
||||
$tinfo = $form->textbox("_", "Informasi", "Diperbaharui oleh : ".$adetail['Update_User'].", pada : ".tgl_sql2str($adetail['Update_Stamp'], true), false, false);
|
||||
@@ -594,7 +434,7 @@ if ( $data == "tabel-opd" ) {
|
||||
<div id="flush-coll-one" class="accordion-collapse collapse show" aria-labelledby="flush-head-one" data-bs-parent="#accorDPAReal">
|
||||
<div class="accordion-body">';
|
||||
|
||||
$db->Query("SELECT * FROM dpa90_sub_output WHERE ".$qsql);
|
||||
$db->Query("SELECT * FROM dpa_sub_output WHERE ".$qsql);
|
||||
if ($db->RecordCount()==0) {
|
||||
echo '
|
||||
<div class="card"><div class="card-body">
|
||||
@@ -604,6 +444,7 @@ if ( $data == "tabel-opd" ) {
|
||||
}
|
||||
while ($db->Next()) {
|
||||
$tindi = $form->textarea("_", "Text_Indi", $db->Row("Text_Output"), false, false, 2);
|
||||
$tstatus = $form->textbox("_", "Status_Indi", ucfirst($db->Row("Status_Output")), false, false, "text");
|
||||
$ttarget = $form->textbox("_", "Target_Indi", (float)$db->Row("Target_Output")." ".$db->Row("Satuan_Output"), false, false, "text");
|
||||
$treal = $form->textbox("_", "Output_TW_".$tw_data."_".$db->Row("DPASubOutputID"), $db->Row("Real_TW".$tw_data), $emon_en, true, "double");
|
||||
echo '
|
||||
@@ -612,9 +453,13 @@ if ( $data == "tabel-opd" ) {
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Tolok Ukur</label>
|
||||
<div class="col">'.$tindi.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Status Indikator</label>
|
||||
<div class="col-sm-6 col-lg-4">'.$tstatus.'</div>
|
||||
</div>
|
||||
<div class="row">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label">Target & Realisasi</label>
|
||||
<div class="col-sm-6 col-lg-3">'.$ttarget.'</div>
|
||||
<div class="col-sm-6 col-lg-4">'.$ttarget.'</div>
|
||||
<div class="col-sm-8 col-lg-4"><div class="input-group">'.$treal.'<span class="input-group-text">'.$db->Row("Satuan_Output").'</span></div></div>
|
||||
</div>
|
||||
</div></div>
|
||||
@@ -625,20 +470,12 @@ if ( $data == "tabel-opd" ) {
|
||||
</div></div></div>
|
||||
|
||||
<div class="accordion-item">
|
||||
<h2 class="accordion-header" id="flush-two"><button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#flush-coll-two" aria-controls="flush-coll-two" aria-expanded="false">Kendala, Tindak Lanjut dan Bantuan dari Sub Kegiatan</button></h2>
|
||||
<h2 class="accordion-header" id="flush-two"><button class="accordion-button collapsed" type="button" data-bs-toggle="collapse" data-bs-target="#flush-coll-two" aria-controls="flush-coll-two" aria-expanded="false">Catatan / Kendala / Permasalahan dari Sub Kegiatan</button></h2>
|
||||
<div id="flush-coll-two" class="accordion-collapse collapse" aria-labelledby="flush-head-two" data-bs-parent="#accorDPAReal">
|
||||
<div class="accordion-body">
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-5 col-lg-3 col-form-label" for="Real_Kendala">Kendala yang dihadapi</label>
|
||||
<div class="col">'.$tkendala.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-5 col-lg-3 col-form-label" for="Real_Tindak">Tindak lanjut yang diperlukan</label>
|
||||
<div class="col">'.$ttindak.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-5 col-lg-3 col-form-label" for="Real_Bantu">Pihak yang diharapkan dapat membantu</label>
|
||||
<div class="col">'.$tbantu.'</div>
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Real_Catatan">Catatan /<br>Kendala / DLL</label>
|
||||
<div class="col">'.$tcatatan.'</div>
|
||||
</div>
|
||||
</div></div></div>
|
||||
|
||||
@@ -662,7 +499,7 @@ if ( $data == "tabel-opd" ) {
|
||||
} else if ( $data == "detail-akun" ) {
|
||||
$id_dpa_akun = Param::Get("DPAAkunID", 0);
|
||||
$adetail = array();
|
||||
$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']."')");
|
||||
$db->Query("SELECT D.*,A.N_Akun FROM (SELECT * FROM dpa_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();
|
||||
$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());
|
||||
@@ -678,10 +515,6 @@ if ( $data == "tabel-opd" ) {
|
||||
$realF_tot = max($adetail['RealF_B'.$x], $realF_las);
|
||||
$realN_tot = max($adetail['RealN_B'.$x], $realN_las);
|
||||
}
|
||||
/*$realF_las = $adetail['RealF_B'.($bln_data-1)];//todo: using biggest !
|
||||
$realF_tot = $adetail['RealF_B'.$bln_data];
|
||||
$realN_las = $adetail['RealN_B'.($bln_data-1)];//todo: using biggest !
|
||||
$realN_tot = $adetail['RealN_B'.$bln_data];*/
|
||||
|
||||
$form = new Form($db);
|
||||
$f_kakun = $form->textbox("_", "K_Akun", $adetail['K_Akun'], false, false, "text");
|
||||
@@ -742,22 +575,16 @@ if ( $data == "tabel-opd" ) {
|
||||
<div class="form-group"><div class="input-group"><span class="input-group-text">%</span>'.$f_n_tot.'</div></div>
|
||||
</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-2 col-form-label">Informasi</label>
|
||||
<div class="col">'.$tinfo.'</div>
|
||||
</div>
|
||||
<div class="row mb-1"><div class="col">'.$tinfo.'</div></div>
|
||||
<input type="hidden" id="AkunID" value="'.$adetail['AkunID'].'">
|
||||
<input type="hidden" id="DPAAkunID" value="'.$adetail['DPAAkunID'].'">
|
||||
<input type="hidden" id="REALRP" value="'.$realK_las.'">
|
||||
<input type="hidden" id="PAGURP" value="'.$adetail['Renc_Keu'].'">
|
||||
';
|
||||
//<input type="hidden" id="REALRP" value="'.($adetail['Real_Keu']-$adetail['RealK_B'.$bln_data]).'">
|
||||
<input type="hidden" id="PAGURP" value="'.$adetail['Renc_Keu'].'">';
|
||||
|
||||
} else if ( $data == "default") {
|
||||
echo '
|
||||
<div class="fade-in">
|
||||
<div class="card"><div class="card-header custom-style">Kelola Data Realisasi DPA // Bulan '.bulan_array()[$bln_data].' '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="card"><div class="card-header custom-style">Kelola Data Realisasi Kinerja Renja OPD // Bulan '.bulan_array()[$bln_data].' '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="row mb-1">
|
||||
<div class="col">
|
||||
<div class="input-group">
|
||||
@@ -1,368 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/ehasil_kinerja.php
|
||||
Desc. : PHP - Laporan Evaluasi Kinerja Triwulan Per OPD
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : March 20th, 2012.
|
||||
Last Modified : November 12th, 2024.
|
||||
|
||||
(c) 2012 - 2024, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../func.emonev.php");
|
||||
//require_once("Spreadsheet/Excel/Writer.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
use siaupheng\fonia3\DB\SQL;
|
||||
use siaupheng\fonia3\Web\Param;
|
||||
use siaupheng\fonia3\Web\Form;
|
||||
|
||||
$db = $db ?? new MySQL();
|
||||
$db2 = new MySQL();
|
||||
$db3 = new MySQL();
|
||||
$ajson = [];
|
||||
$data = Param::Get("data");
|
||||
$tahun = Param::Get("Tahun", $_SESSION['__WEB_APP']['REAL_THN']);
|
||||
$twulan = Param::Get("TW", $_SESSION['__WEB_APP']['REAL_TW']);
|
||||
$id_opd = Param::Get("OPDID", 0);
|
||||
|
||||
if ( $data == "print" || $data == "export") {
|
||||
$a_opd = [];
|
||||
$db->Query("SELECT * FROM para90_opd WHERE OPDID='".$id_opd."' LIMIT 1");
|
||||
if ($db->Next()) $a_opd = $db->AllRow();
|
||||
$tsql = " WHERE Tahun='".$tahun."' AND OPDID='".$id_opd."'";
|
||||
|
||||
if ($twulan == 1) {
|
||||
$field_indi = "(Real_TW1,0)";
|
||||
$field_keu = "(A.RealK_TW1)";
|
||||
$field_kin = "(A.Kin_TW1,0)";
|
||||
} else if ($twulan == 2) {
|
||||
$field_indi = "(Real_TW1,Real_TW2)";
|
||||
$field_keu = "(A.RealK_TW1+A.RealK_TW2)";
|
||||
$field_kin = "(A.Kin_TW1,A.Kin_TW2)";
|
||||
} else if ($twulan == 3) {
|
||||
$field_indi = "(Real_TW1,Real_TW2,Real_TW3)";
|
||||
$field_keu = "(A.RealK_TW1+A.RealK_TW2+A.RealK_TW3)";
|
||||
$field_kin = "(A.Kin_TW1,A.Kin_TW2,A.Kin_TW3)";
|
||||
} else if ($twulan == 4) {
|
||||
$field_indi = "(Real_TW1,Real_TW2,Real_TW3,Real_TW4)";
|
||||
$field_keu = "(A.RealK_TW1+A.RealK_TW2+A.RealK_TW3+A.RealK_TW4)";
|
||||
$field_kin = "(A.Kin_TW1,A.Kin_TW2,A.Kin_TW3,A.Kin_TW4)";
|
||||
}
|
||||
|
||||
$db->Query("SELECT P_A.K_Prog,P_I.*,T.Tot_Pagu,T.Tot_Real,T.Kinerja,P.OPD_Pagu,P.OPD_Real,P.OPD_Kinerja,O.K_OPD,O.N_OPD,X.N_Prog FROM (SELECT OPDID,ProgID,K_Prog FROM dpa90_prog".$tsql.") P_A INNER JOIN (SELECT OPDID,ProgID,Text_Indi IP_Text,CONCAT(Target_Indi,' ',Satuan_Indi) IP_Target,CONCAT(GREATEST".$field_indi.",' ',Satuan_Indi) IP_Real FROM dpa90_prog_indi".$tsql.") P_I ON (P_I.OPDID=P_A.OPDID AND P_I.ProgID=P_A.ProgID) LEFT JOIN (SELECT A.OPDID,A.ProgID,SUM(A.Pagu_Ini) Tot_Pagu,SUM".$field_keu." Tot_Real,SUM(GREATEST".$field_kin."*A.Pagu_Ini/B.TOTAL_PAGU) Kinerja FROM (SELECT * FROM dpa90_sub".$tsql.") A LEFT JOIN (SELECT OPDID,ProgID,SUM(Pagu_Ini) TOTAL_PAGU FROM dpa90_sub".$tsql." GROUP BY OPDID,ProgID) B ON (B.OPDID=A.OPDID AND B.ProgID=A.ProgID) GROUP BY A.OPDID,A.ProgID) T ON (T.OPDID=P_A.OPDID AND T.ProgID=P_A.ProgID) LEFT JOIN (SELECT A.OPDID,SUM(A.Pagu_Ini) OPD_Pagu,SUM".$field_keu." OPD_Real,SUM(GREATEST".$field_kin."*A.Pagu_Ini/B.TOTAL_PAGU) OPD_Kinerja FROM (SELECT * FROM dpa90_sub".$tsql.") A LEFT JOIN (SELECT OPDID,SUM(Pagu_Ini) TOTAL_PAGU FROM dpa90_sub".$tsql." GROUP BY OPDID) B ON (B.OPDID=A.OPDID) GROUP BY A.OPDID) P ON (P.OPDID=P_A.OPDID) LEFT JOIN (SELECT * FROM para90_opd WHERE Aktif=1) O ON (O.OPDID=P_A.OPDID) LEFT JOIN (SELECT ProgID,N_Prog FROM para90_submap WHERE Tahun='".map_tahun_submap($tahun)."' GROUP BY ProgID) X ON (X.ProgID=P_A.ProgID) WHERE O.Aktif IS NOT NULL ORDER BY O.K_OPD,P_A.K_Prog");
|
||||
}
|
||||
|
||||
if ( $data == "print" ) {
|
||||
$header = '<div class="text-center fs-5"><b>LAPORAN KINERJA PERANGKAT DAERAH<br>KABUPATEN MEMPAWAH TRIWULAN '.romawi($twulan).' TAHUN ANGGARAN '.$tahun.'</b></div><br><table class="garis"><thead><tr><th width="20">Kode</th><th width="100">Nama Program/Kegiatan/Sub Kegiatan</th><th width="100">Indikator Program/Kegiatan/Sub Kegiatan</th><th width="80">Target Program/Kegiatan/Sub Kegiatan</th><th width="80">Realisasi/Capaian Indikator</th><th width="60">Anggaran (Rp.)</th><th width="60">Realisasi (Rp.)</th><th width="60">Kinerja (%)</th><th width="60">Lokasi</th><th width="60">Kendala</th><th width="60">Tindak Lanjut</th><th width="60">Pihak Yang Dapat Membantu</th></tr></thead><tbody>';
|
||||
$_line = '<tr class="%s"><td class="l" nowrap>%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td><td class="r">%s</td><td class="r">%s</td><td class="r">%s</td><td>%s</td><td>%s</td><td>%s</td><td>%s</td></tr>';
|
||||
$_oline = '<tr><td class="b l">%s</td><td class="b" colspan="4">%s</td><td class="b r">%s</td><td class="b r">%s</td><td class="b r">%s</td><td class="b" colspan="4"> </td></tr>';
|
||||
$body = ""; $id_opd = 0; $id_prog = 0; $id_keg = 0;
|
||||
while ($db->Next()) {
|
||||
if ($id_opd <> $db->Row("OPDID")) {
|
||||
$body .= sprintf($_oline, $db->Row("K_OPD"), $db->Row("N_OPD"), uang2($db->Row("OPD_Pagu")), uang2($db->Row("OPD_Real")), uang2($db->Row("OPD_Kinerja")));
|
||||
$id_opd = $db->Row("OPDID");
|
||||
}
|
||||
if ($id_prog <> $db->Row("ProgID")) {
|
||||
$vp_kode = $db->Row("K_Prog");
|
||||
$vp_nama = $db->Row("N_Prog");
|
||||
$vp_pagu = uang2($db->Row("Tot_Pagu"));
|
||||
$vp_real = uang2($db->Row("Tot_Real"));
|
||||
$vp_kine = uang2($db->Row("Kinerja"));
|
||||
//$id_keg = 0;
|
||||
} else {
|
||||
$vp_kode = "";
|
||||
$vp_nama = "";
|
||||
$vp_pagu = "";
|
||||
$vp_real = "";
|
||||
$vp_kine = "";
|
||||
}
|
||||
if ($id_prog <> 0 && $id_prog <> $db->Row("ProgID")) {
|
||||
$id_keg = 0;
|
||||
$xsql = " WHERE Tahun='".$tahun."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."'";
|
||||
$db2->Query("SELECT K_A.K_Keg,K_I.*,T.Tot_Pagu,T.Tot_Real,T.Kinerja,X.N_Keg FROM (SELECT OPDID,KegID,K_Keg FROM dpa90_keg".$xsql.") K_A INNER JOIN ((SELECT OPDID,KegID,1 Indi,CONCAT('Hasil: ',Text_Hasil) Indi_Text,CONCAT(Target_Hasil,' ',Satuan_Hasil) Indi_Target,CONCAT(GREATEST".$field_indi.",' ',Satuan_Hasil) Indi_Real FROM dpa90_keg_hasil".$xsql.") UNION ALL (SELECT OPDID,KegID,2 Indi,CONCAT('Keluaran: ',Text_Keluar) Indi_Text,CONCAT(Target_Keluar,' ',Satuan_Keluar) Indi_Target,CONCAT(GREATEST".$field_indi.",' ',Satuan_Keluar) Indi_Real FROM dpa90_keg_keluar".$xsql.")) K_I ON (K_I.OPDID=K_A.OPDID AND K_I.KegID=K_A.KegID) LEFT JOIN (SELECT A.OPDID,A.KegID,SUM(A.Pagu_Ini) Tot_Pagu,SUM".$field_keu." Tot_Real,SUM(GREATEST".$field_kin."*A.Pagu_Ini/B.TOTAL_PAGU) Kinerja FROM (SELECT * FROM dpa90_sub".$tsql.") A LEFT JOIN (SELECT OPDID,KegID,SUM(Pagu_Ini) TOTAL_PAGU FROM dpa90_sub".$tsql." GROUP BY OPDID,KegID) B ON (B.OPDID=A.OPDID AND B.KegID=A.KegID) GROUP BY A.OPDID,A.KegID) T ON (T.OPDID=K_A.OPDID AND T.KegID=K_A.KegID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".map_tahun_submap($tahun)."' GROUP BY KegID) X ON (X.KegID=K_A.KegID) ORDER BY K_A.K_Keg,K_I.Indi");
|
||||
while ($db2->Next()) {
|
||||
if ($id_keg <> $db2->Row("KegID")) {
|
||||
$vk_kode = $db2->Row("K_Keg");
|
||||
$vk_nama = $db2->Row("N_Keg");
|
||||
$vk_pagu = uang2($db2->Row("Tot_Pagu"));
|
||||
$vk_real = uang2($db2->Row("Tot_Real"));
|
||||
$vk_kine = uang2($db2->Row("Kinerja"));
|
||||
} else {
|
||||
$vk_kode = "";
|
||||
$vk_nama = "";
|
||||
$vk_pagu = "";
|
||||
$vk_real = "";
|
||||
$vk_kine = "";
|
||||
}
|
||||
if ($id_keg <> 0 && $id_keg <> $db2->Row("KegID")) {
|
||||
// start subkeg
|
||||
$zsql = " WHERE Tahun='".$tahun."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."'";
|
||||
$db3->Query("SELECT S_A.*,S_I.Indi_Text,S_I.Indi_Target,S_I.Indi_Real,X.N_Sub FROM (SELECT A.OPDID,A.SubID,A.K_Sub,A.Pagu_Ini Tot_Pagu,".$field_keu." Tot_Real,A.Lokasi,A.Real_Kendala,A.Real_Tindak,A.Real_Bantu,GREATEST".$field_kin." Kinerja FROM dpa90_sub A".$zsql.") S_A INNER JOIN (SELECT OPDID,SubID,Text_Output Indi_Text,CONCAT(Target_Output,' ',Satuan_Output) Indi_Target,CONCAT(GREATEST".$field_indi.",' ',Satuan_Output) Indi_Real FROM dpa90_sub_output".$xsql.") S_I ON (S_I.OPDID=S_A.OPDID AND S_I.SubID=S_A.SubID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".map_tahun_submap($tahun)."') X ON (X.SubID=S_A.SubID) ORDER BY S_A.K_Sub");
|
||||
while ($db3->Next()) {
|
||||
$body .= sprintf($_line, "sub", $db3->Row("K_Sub"), $db3->Row("N_Sub"), $db3->Row("Indi_Text"), $db3->Row("Indi_Target"), $db3->Row("Indi_Real"), uang2($db3->Row("Tot_Pagu")), uang2($db3->Row("Tot_Real")), uang2($db3->Row("Kinerja")), $db3->Row("Lokasi"), $db3->Row("Real_Kendala"), $db3->Row("Real_Tindak"), $db3->Row("Real_Bantu"));
|
||||
}
|
||||
// end subkeg
|
||||
}
|
||||
$body .= sprintf($_line, "keg", $vk_kode, $vk_nama, $db2->Row("Indi_Text"), $db2->Row("Indi_Target"), $db2->Row("Indi_Real"), $vk_pagu, $vk_real, $vk_kine, "", "", "", "");
|
||||
$id_keg = $db2->Row("KegID");
|
||||
}
|
||||
if ($id_keg > 0 ) {
|
||||
// start subkeg
|
||||
$zsql = " WHERE Tahun='".$tahun."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."'";
|
||||
$db3->Query("SELECT S_A.*,S_I.Indi_Text,S_I.Indi_Target,S_I.Indi_Real,X.N_Sub FROM (SELECT A.OPDID,A.SubID,A.K_Sub,A.Pagu_Ini Tot_Pagu,".$field_keu." Tot_Real,A.Lokasi,A.Real_Kendala,A.Real_Tindak,A.Real_Bantu,GREATEST".$field_kin." Kinerja FROM dpa90_sub A".$zsql.") S_A INNER JOIN (SELECT OPDID,SubID,Text_Output Indi_Text,CONCAT(Target_Output,' ',Satuan_Output) Indi_Target,CONCAT(GREATEST".$field_indi.",' ',Satuan_Output) Indi_Real FROM dpa90_sub_output".$xsql.") S_I ON (S_I.OPDID=S_A.OPDID AND S_I.SubID=S_A.SubID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".map_tahun_submap($tahun)."') X ON (X.SubID=S_A.SubID) ORDER BY S_A.K_Sub");
|
||||
while ($db3->Next()) {
|
||||
$body .= sprintf($_line, "sub", $db3->Row("K_Sub"), $db3->Row("N_Sub"), $db3->Row("Indi_Text"), $db3->Row("Indi_Target"), $db3->Row("Indi_Real"), uang2($db3->Row("Tot_Pagu")), uang2($db3->Row("Tot_Real")), uang2($db3->Row("Kinerja")), $db3->Row("Lokasi"), $db3->Row("Real_Kendala"), $db3->Row("Real_Tindak"), $db3->Row("Real_Bantu"));
|
||||
}
|
||||
// end subkeg
|
||||
}
|
||||
}
|
||||
$body .= sprintf($_line, "prog", $vp_kode, $vp_nama, $db->Row("IP_Text"), $db->Row("IP_Target"), $db->Row("IP_Real"), $vp_pagu, $vp_real, $vp_kine, "", "", "", "");
|
||||
$id_prog = $db->Row("ProgID");
|
||||
}
|
||||
|
||||
if ($id_prog > 0 ) {
|
||||
$xsql = " WHERE Tahun='".$tahun."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."'";
|
||||
$db2->Query("SELECT K_A.K_Keg,K_I.*,T.Tot_Pagu,T.Tot_Real,T.Kinerja,X.N_Keg FROM (SELECT OPDID,KegID,K_Keg FROM dpa90_keg".$xsql.") K_A INNER JOIN ((SELECT OPDID,KegID,1 Indi,CONCAT('Hasil: ',Text_Hasil) Indi_Text,CONCAT(Target_Hasil,' ',Satuan_Hasil) Indi_Target,CONCAT(GREATEST".$field_indi.",' ',Satuan_Hasil) Indi_Real FROM dpa90_keg_hasil".$xsql.") UNION ALL (SELECT OPDID,KegID,2 Indi,CONCAT('Keluaran: ',Text_Keluar) Indi_Text,CONCAT(Target_Keluar,' ',Satuan_Keluar) Indi_Target,CONCAT(GREATEST".$field_indi.",' ',Satuan_Keluar) Indi_Real FROM dpa90_keg_keluar".$xsql.")) K_I ON (K_I.OPDID=K_A.OPDID AND K_I.KegID=K_A.KegID) LEFT JOIN (SELECT A.OPDID,A.KegID,SUM(A.Pagu_Ini) Tot_Pagu,SUM".$field_keu." Tot_Real,SUM(GREATEST".$field_kin."*A.Pagu_Ini/B.TOTAL_PAGU) Kinerja FROM (SELECT * FROM dpa90_sub".$tsql.") A LEFT JOIN (SELECT OPDID,KegID,SUM(Pagu_Ini) TOTAL_PAGU FROM dpa90_sub".$tsql." GROUP BY OPDID,KegID) B ON (B.OPDID=A.OPDID AND B.KegID=A.KegID) GROUP BY A.OPDID,A.KegID) T ON (T.OPDID=K_A.OPDID AND T.KegID=K_A.KegID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".map_tahun_submap($tahun)."' GROUP BY KegID) X ON (X.KegID=K_A.KegID) ORDER BY K_A.K_Keg,K_I.Indi");
|
||||
while ($db2->Next()) {
|
||||
if ($id_keg <> $db2->Row("KegID")) {
|
||||
$vk_kode = $db2->Row("K_Keg");
|
||||
$vk_nama = $db2->Row("N_Keg");
|
||||
$vk_pagu = uang2($db2->Row("Tot_Pagu"));
|
||||
$vk_real = uang2($db2->Row("Tot_Real"));
|
||||
$vk_kine = uang2($db2->Row("Kinerja"));
|
||||
} else {
|
||||
$vk_kode = "";
|
||||
$vk_nama = "";
|
||||
$vk_pagu = "";
|
||||
$vk_real = "";
|
||||
$vk_kine = "";
|
||||
}
|
||||
if ($id_keg <> 0 && $id_keg <> $db2->Row("KegID")) {
|
||||
// start subkeg
|
||||
$zsql = " WHERE Tahun='".$tahun."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."'";
|
||||
$db3->Query("SELECT S_A.*,S_I.Indi_Text,S_I.Indi_Target,S_I.Indi_Real,X.N_Sub FROM (SELECT A.OPDID,A.SubID,A.K_Sub,A.Pagu_Ini Tot_Pagu,".$field_keu." Tot_Real,A.Lokasi,A.Real_Kendala,A.Real_Tindak,A.Real_Bantu,GREATEST".$field_kin." Kinerja FROM dpa90_sub A".$zsql.") S_A INNER JOIN (SELECT OPDID,SubID,Text_Output Indi_Text,CONCAT(Target_Output,' ',Satuan_Output) Indi_Target,CONCAT(GREATEST".$field_indi.",' ',Satuan_Output) Indi_Real FROM dpa90_sub_output".$xsql.") S_I ON (S_I.OPDID=S_A.OPDID AND S_I.SubID=S_A.SubID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".map_tahun_submap($tahun)."') X ON (X.SubID=S_A.SubID) ORDER BY S_A.K_Sub");
|
||||
while ($db3->Next()) {
|
||||
$body .= sprintf($_line, "sub", $db3->Row("K_Sub"), $db3->Row("N_Sub"), $db3->Row("Indi_Text"), $db3->Row("Indi_Target"), $db3->Row("Indi_Real"), uang2($db3->Row("Tot_Pagu")), uang2($db3->Row("Tot_Real")), uang2($db3->Row("Kinerja")), $db3->Row("Lokasi"), $db3->Row("Real_Kendala"), $db3->Row("Real_Tindak"), $db3->Row("Real_Bantu"));
|
||||
}
|
||||
// end subkeg
|
||||
}
|
||||
$body .= sprintf($_line, "keg", $vk_kode, $vk_nama, $db2->Row("Indi_Text"), $db2->Row("Indi_Target"), $db2->Row("Indi_Real"), $vk_pagu, $vk_real, $vk_kine, "", "", "", "");
|
||||
$id_keg = $db2->Row("KegID");
|
||||
}
|
||||
if ($id_keg > 0) {
|
||||
// start subkeg
|
||||
$zsql = " WHERE Tahun='".$tahun."' AND OPDID='".$id_opd."' AND ProgID='".$id_prog."' AND KegID='".$id_keg."'";
|
||||
$db3->Query("SELECT S_A.*,S_I.Indi_Text,S_I.Indi_Target,S_I.Indi_Real,X.N_Sub FROM (SELECT A.OPDID,A.SubID,A.K_Sub,A.Pagu_Ini Tot_Pagu,".$field_keu." Tot_Real,A.Lokasi,A.Real_Kendala,A.Real_Tindak,A.Real_Bantu,GREATEST".$field_kin." Kinerja FROM dpa90_sub A".$zsql.") S_A INNER JOIN (SELECT OPDID,SubID,Text_Output Indi_Text,CONCAT(Target_Output,' ',Satuan_Output) Indi_Target,CONCAT(GREATEST".$field_indi.",' ',Satuan_Output) Indi_Real FROM dpa90_sub_output".$xsql.") S_I ON (S_I.OPDID=S_A.OPDID AND S_I.SubID=S_A.SubID) LEFT JOIN (SELECT * FROM para90_submap WHERE Tahun='".map_tahun_submap($tahun)."') X ON (X.SubID=S_A.SubID) ORDER BY S_A.K_Sub");
|
||||
while ($db3->Next()) {
|
||||
$body .= sprintf($_line, "sub", $db3->Row("K_Sub"), $db3->Row("N_Sub"), $db3->Row("Indi_Text"), $db3->Row("Indi_Target"), $db3->Row("Indi_Real"), uang2($db3->Row("Tot_Pagu")), uang2($db3->Row("Tot_Real")), uang2($db3->Row("Kinerja")), $db3->Row("Lokasi"), $db3->Row("Real_Kendala"), $db3->Row("Real_Tindak"), $db3->Row("Real_Bantu"));
|
||||
}
|
||||
// end subkeg
|
||||
}
|
||||
}
|
||||
echo $header . $body . "</tbody></table>";
|
||||
|
||||
/*} else if ( $data == "export" ) {
|
||||
$wbook = new Spreadsheet_Excel_Writer();
|
||||
$fjudul =& $wbook->addFormat();
|
||||
$fjudul->setBold();
|
||||
$fjudul->setAlign("center");
|
||||
$fhead =& $wbook->addFormat();
|
||||
$fhead->setBold();
|
||||
$fhead->setAlign("center");
|
||||
$fhead->setVAlign("vcenter");
|
||||
$fhead->setBorder(1);
|
||||
$fhead->setTextWrap();
|
||||
$ftxt =& $wbook->addFormat();
|
||||
$ftxt->setVAlign("top");
|
||||
$ftxt->setBottom(1);
|
||||
$ftxt->setTextWrap();
|
||||
$ftxt->setNumFormat("@");
|
||||
$fnum =& $wbook->addFormat();
|
||||
$fnum->setNumFormat(4);
|
||||
$fnum->setBottom(1);
|
||||
$f_sjudul =& $wbook->addFormat(['NumFormat'=>"@"]);
|
||||
|
||||
$f_opd =& $wbook->addFormat(['FgColor'=>55,'NumFormat'=>"@"]);
|
||||
$f_opd_num =& $wbook->addFormat(['FgColor'=>55,'NumFormat'=>4]);
|
||||
$f_prog =& $wbook->addFormat(['FgColor'=>10,'NumFormat'=>"@"]);
|
||||
$f_prog_num =& $wbook->addFormat(['FgColor'=>10,'NumFormat'=>4]);
|
||||
$f_keg =& $wbook->addFormat(['FgColor'=>45,'NumFormat'=>"@"]);
|
||||
$f_keg_num =& $wbook->addFormat(['FgColor'=>45,'NumFormat'=>4]);
|
||||
$f_sub =& $wbook->addFormat(['FgColor'=>39,'NumFormat'=>"@"]);
|
||||
$f_sub_num =& $wbook->addFormat(['FgColor'=>39,'NumFormat'=>4]);
|
||||
|
||||
$wsheet =& $wbook->addWorksheet("Real-Bulanan");
|
||||
$wsheet->setColumn(0,0,18);
|
||||
$wsheet->setColumn(1,1,60);
|
||||
$wsheet->setColumn(2,7,16);
|
||||
$wsheet->setColumn(8,8,12);
|
||||
$wsheet->setColumn(9,15,16);
|
||||
$wsheet->setColumn(16,16,8);
|
||||
$wsheet->write(0,0,"LAPORAN REALISASI FISIK DAN KEUANGAN",$fjudul);
|
||||
$wsheet->setMerge(0,0,0,16);
|
||||
$wsheet->write(1,0,"TAHUN ANGGARAN ".$tahun,$fjudul);
|
||||
$wsheet->setMerge(1,0,1,16);
|
||||
|
||||
$baris = 3;
|
||||
$wsheet->write($baris,0,"Nama Perangkat Daerah",$f_sjudul);
|
||||
$wsheet->write($baris,2,$a_opd['N_OPD'],$f_sjudul);
|
||||
$wsheet->write(($baris+1),0,"Pengguna Anggaran / Kuasa Pengguna Anggaran",$f_sjudul);
|
||||
$wsheet->write(($baris+1),2,$a_opd['P_Nama'],$f_sjudul);
|
||||
$wsheet->write(($baris+2),0,"Bendahara Pengeluaran",$f_sjudul);
|
||||
$wsheet->write(($baris+2),2,$a_opd['B_Nama'],$f_sjudul);
|
||||
$wsheet->write(($baris+3),0,"Tahun Anggaran",$f_sjudul);
|
||||
$wsheet->write(($baris+3),2,$tahun,$f_sjudul);
|
||||
$wsheet->write(($baris+4),0,"Bulan",$f_sjudul);
|
||||
$wsheet->write(($baris+4),2,bulan_array()[$bulan],$f_sjudul);
|
||||
|
||||
$baris += 5;
|
||||
for ($x=$baris; $x<=($baris+3); $x++) {
|
||||
for ($y=0; $y<=16; $y++) $wsheet->write($x,$y,"",$fhead);
|
||||
}
|
||||
$wsheet->write($baris,0,"Kode",$fhead);
|
||||
$wsheet->setMerge($baris,0,($baris+2),0);
|
||||
$wsheet->write($baris,1,"Uraian",$fhead);
|
||||
$wsheet->setMerge($baris,1,($baris+2),1);
|
||||
$wsheet->write($baris,2,"Target",$fhead);
|
||||
$wsheet->setMerge($baris,2,$baris,5);
|
||||
$wsheet->write($baris,6,"Bobot (%)",$fhead);
|
||||
$wsheet->setMerge($baris,6,($baris+2),6);
|
||||
$wsheet->write($baris,7,"Nilai Kontrak Swakelola (Rp)",$fhead);
|
||||
$wsheet->setMerge($baris,7,($baris+2),7);
|
||||
$wsheet->write($baris,8,"Pelaksana/Rekanan No & Tanggal Kontrak",$fhead);
|
||||
$wsheet->setMerge($baris,8,($baris+2),8);
|
||||
$wsheet->write($baris,9,"Realisasi",$fhead);
|
||||
$wsheet->setMerge($baris,9,$baris,14);
|
||||
$wsheet->write($baris,15,"Sisa Anggaran",$fhead);
|
||||
$wsheet->setMerge($baris,15,($baris+2),15);
|
||||
$wsheet->write($baris,16,"Keterangan",$fhead);
|
||||
$wsheet->setMerge($baris,16,($baris+2),16);
|
||||
$wsheet->write(($baris+1),2,"Fisik",$fhead);
|
||||
$wsheet->setMerge(($baris+1),2,($baris+1),3);
|
||||
$wsheet->write(($baris+1),4,"Harga Satuan (Rp)",$fhead);
|
||||
$wsheet->setMerge(($baris+1),4,($baris+2),4);
|
||||
$wsheet->write(($baris+1),4,"Keuangan Dana (Rp)",$fhead);
|
||||
$wsheet->setMerge(($baris+1),5,($baris+2),5);
|
||||
$wsheet->write(($baris+1),9,"Fisik (%)",$fhead);
|
||||
$wsheet->setMerge(($baris+1),9,($baris+1),12);
|
||||
$wsheet->write(($baris+1),13,"Keuangan",$fhead);
|
||||
$wsheet->setMerge(($baris+1),13,($baris+1),14);
|
||||
$wsheet->write(($baris+2),2,"Volume",$fhead);
|
||||
$wsheet->write(($baris+2),3,"Satuan",$fhead);
|
||||
$wsheet->write(($baris+2),9,"Rencana",$fhead);
|
||||
$wsheet->write(($baris+2),10,"Realisasi",$fhead);
|
||||
$wsheet->write(($baris+2),11,"Deviasi",$fhead);
|
||||
$wsheet->write(($baris+2),12,"Tertimbang",$fhead);
|
||||
for ($x=1; $x<=17; $x++) $wsheet->write(($baris+3),$x-1,$x,$fhead);
|
||||
|
||||
$baris += 4;
|
||||
$kprog = ""; $kkeg = ""; $ksub = ""; $tot_ini = 0; $tot_renc = 0; $tot_real = 0;
|
||||
while ($db->Next()) {
|
||||
if ($kprog <> $db->Row("ProgID")) {
|
||||
for ($x=0; $x<=16; $x++) $wsheet->write($baris, $x, "", $f_prog);
|
||||
$wsheet->write($baris,0,$db->Row("PROG_KODE"), $f_prog);
|
||||
$wsheet->write($baris,1,$db->Row("N_Prog"), $f_prog);
|
||||
$wsheet->write($baris,5,$db->Row("PROG_INI"), $f_prog_num);
|
||||
$wsheet->write($baris,7,$db->Row("PROG_RENC"), $f_prog_num);
|
||||
$wsheet->write($baris,13,$db->Row("PROG_REAL"), $f_prog_num);
|
||||
$wsheet->write($baris,14,$db->Row("PROG_REAL")/$db->Row("PROG_RENC")*100, $f_prog_num);
|
||||
$wsheet->write($baris,15,$db->Row("PROG_RENC")-$db->Row("PROG_REAL"), $f_prog_num);
|
||||
$baris++;
|
||||
$kprog = $db->Row("ProgID");
|
||||
}
|
||||
if ($kkeg <> $db->Row("KegID")) {
|
||||
for ($x=0; $x<=16; $x++) $wsheet->write($baris, $x, "", $f_keg);
|
||||
$wsheet->write($baris,0,$db->Row("KEG_KODE"), $f_keg);
|
||||
$wsheet->write($baris,1,$db->Row("N_Keg"), $f_keg);
|
||||
$wsheet->write($baris,5,$db->Row("KEG_INI"), $f_keg_num);
|
||||
$wsheet->write($baris,7,$db->Row("KEG_RENC"), $f_keg_num);
|
||||
$wsheet->write($baris,13,$db->Row("KEG_REAL"), $f_keg_num);
|
||||
$wsheet->write($baris,14,$db->Row("KEG_REAL")/$db->Row("KEG_RENC")*100, $f_keg_num);
|
||||
$wsheet->write($baris,15,$db->Row("KEG_RENC")-$db->Row("KEG_REAL"), $f_keg_num);
|
||||
$baris++;
|
||||
$kkeg = $db->Row("KegID");
|
||||
}
|
||||
if ($ksub <> $db->Row("SubID")) {
|
||||
$psn_realk = ($db->RowFloat("SUB_RENC")==0) ? 0 : ($db->RowFloat("SUB_REAL")/$db->RowFloat("SUB_RENC")*100);
|
||||
for ($x=0; $x<=16; $x++) $wsheet->write($baris, $x, "", $f_sub);
|
||||
$wsheet->write($baris,0,$db->Row("K_Sub"), $f_sub);
|
||||
$wsheet->write($baris,1,$db->Row("N_Sub"), $f_sub);
|
||||
$wsheet->write($baris,5,$db->Row("SUB_INI"), $f_sub_num);
|
||||
$wsheet->write($baris,7,$db->Row("SUB_RENC"), $f_sub_num);
|
||||
$wsheet->write($baris,13,$db->Row("SUB_REAL"), $f_sub_num);
|
||||
$wsheet->write($baris,14,$psn_realk, $f_sub_num);
|
||||
$wsheet->write($baris,15,$db->Row("SUB_RENC")-$db->Row("SUB_REAL"), $f_sub_num);
|
||||
$baris++;
|
||||
$ksub = $db->Row("SubID");
|
||||
}
|
||||
$info_kontrak = $db->Row("Real_No_Kontrak"); $info_kontrak .= ($info_kontrak==""?"":"<br>").$db->Row("Real_Pelaksana");
|
||||
$psn_realk = ($db->RowFloat("Renc_Keu")==0) ? 0 : ($db->RowFloat("AKUN_REALK")/$db->RowFloat("Renc_Keu")*100);
|
||||
|
||||
for ($x=0; $x<=16; $x++) $wsheet->write($baris, $x, "", $ftxt);
|
||||
$wsheet->write($baris,0,$db->Row("K_Akun"), $ftxt);
|
||||
$wsheet->write($baris,1,$db->Row("N_Akun"), $ftxt);
|
||||
$wsheet->write($baris,2,$db->Row("Volume"), $fnum);
|
||||
$wsheet->write($baris,3,$db->Row("N_Satuan"), $ftxt);
|
||||
$wsheet->write($baris,4,$db->Row("Harga_Satuan"), $fnum);
|
||||
$wsheet->write($baris,5,$db->Row("Pagu_Ini"), $fnum);
|
||||
$wsheet->write($baris,6,$db->Row("Nilai_Bobot"), $fnum);
|
||||
$wsheet->write($baris,7,$db->Row("Renc_Keu"), $fnum);
|
||||
$wsheet->write($baris,8,$info_kontrak, $ftxt);
|
||||
$wsheet->write($baris,9,$db->Row("Renc_Fisik"), $fnum);
|
||||
$wsheet->write($baris,10,$db->Row("AKUN_REALF"), $fnum);
|
||||
$wsheet->write($baris,11,$db->Row("Renc_Fisik")-$db->Row("AKUN_REALF"), $fnum);
|
||||
$wsheet->write($baris,12,$db->Row("AKUN_REALF")*$db->Row("Nilai_Bobot")/100, $fnum);
|
||||
$wsheet->write($baris,13,$db->Row("AKUN_REALK"), $fnum);
|
||||
$wsheet->write($baris,14,$psn_realk, $fnum);
|
||||
$wsheet->write($baris,15,$db->Row("Renc_Keu")-$db->Row("AKUN_REALK"), $fnum);
|
||||
$baris++;
|
||||
$tot_ini += $db->Row("Pagu_Ini");
|
||||
$tot_renc += $db->Row("Renc_Keu");
|
||||
$tot_real += $db->Row("AKUN_REALK");
|
||||
}
|
||||
for ($x=0; $x<=16; $x++) $wsheet->write($baris, $x, "", $f_opd);
|
||||
$wsheet->write($baris,0,"Jumlah", $f_opd);
|
||||
$wsheet->setMerge($baris,0,$baris,1);
|
||||
$wsheet->write($baris,5,$tot_ini, $f_opd_num);
|
||||
$wsheet->write($baris,7,$tot_renc, $f_opd_num);
|
||||
$wsheet->write($baris,13,$tot_real, $f_opd_num);
|
||||
$wsheet->write($baris,14,$tot_real/$tot_renc*100, $f_opd_num);
|
||||
$wsheet->write($baris,15,$tot_renc-$tot_real, $f_opd_num);
|
||||
$baris++;
|
||||
|
||||
$wbook->send("Laporan Realisasi F & K ".bulan_array()[$bulan]."-".$tahun." - ".tgl_dmy(true).".xls");
|
||||
$wbook->close();*/
|
||||
|
||||
} else if ( $data == "default") {//oke
|
||||
$q_opd = "";
|
||||
if (in_array($_SESSION['__WEB_USER']['Level'],[1,3,4])) {
|
||||
$id_opd = $_SESSION['__WEB_USER']['A_OPD'][0];
|
||||
$q_opd = " AND OPDID IN (".$_SESSION['__WEB_USER']['AK_OPD'].")";
|
||||
}
|
||||
|
||||
$form = new Form($db);
|
||||
$tthn = $form->option_que("_", "Tahun", $tahun, true, false, "SELECT Tahun,CONCAT('Tahun ',Tahun) N_Tahun FROM dpa90_prog GROUP BY Tahun ORDER BY Tahun", ["Tahun","N_Tahun"]);
|
||||
$topd = $form->option_db("_", "OPDID", $id_opd, true, false, "vi_para90_opd", ["OPDID","Nama_OPD"], "Aktif=1".$q_opd." ORDER BY K_OPD");//, (user_level(3)?array(0,"SEMUA OPD"):null)
|
||||
$ttw = $form->radio("_", "TW", $twulan, true, false, [1=>"I",2=>"II",3=>"III",4=>"IV"]);
|
||||
echo '
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-3 col-form-label" for="OPDID">Nama Perangkat Daerah</label>
|
||||
<div class="col-sm-8 col-lg-9">'.$topd.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-3 col-form-label" for="Tahun">Tahun Data</label>
|
||||
<div class="col-sm-5 col-lg-4">'.$tthn.'</div>
|
||||
</div>
|
||||
<div class="row mb-1">
|
||||
<label class="col-sm-4 col-lg-3 col-form-label" for="TW">Triwulan</label>
|
||||
<div class="col-sm-8 col-lg-9">'.$ttw.'</div>
|
||||
</div>';
|
||||
}
|
||||
|
||||
?>
|
||||
@@ -3,25 +3,24 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/dpa.php
|
||||
Desc. : PHP - Kelola Data DPA
|
||||
Module : /apps/php/mon/renja.php
|
||||
Desc. : PHP - Kelola Data Renja OPD
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : October 28th, 2011.
|
||||
Last Modified : March 14th, 2025.
|
||||
Last Modified : May 24th, 2026.
|
||||
|
||||
(c) 2011 - 2025, 3FONIA Software; WWW.3FONIA.COM.
|
||||
(c) 2011 - 2026, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../func.emonev.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 = [];
|
||||
@@ -38,7 +37,7 @@ $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"]) ) {
|
||||
if ( in_array($data, ["tabel-opd","tabel-prog","tabel-keg","tabel-sub","tabel-prog-indi","tabel-sub-output","tabel-akun"]) ) {
|
||||
$qsql = "Tahun='".$thn_renja."'";
|
||||
$msql = "M.Aktif=1";
|
||||
|
||||
@@ -64,7 +63,7 @@ if ( $data == "tabel-opd" ) {
|
||||
$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->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 dpa_prog WHERE ".$qsql." GROUP BY OPDID) KP ON (KP.OPDID=M.OPDID) LEFT JOIN (SELECT OPDID,COUNT(*) ITEM_KEG FROM dpa_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 dpa_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");
|
||||
@@ -78,8 +77,8 @@ if ( $data == "tabel-opd" ) {
|
||||
$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->add_row_btn("folder", "Program", "RenjaJS.opd_select");
|
||||
$obj->set_func_navi("RenjaJS.data_query('tabel-opd')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divOPD");
|
||||
|
||||
@@ -91,14 +90,14 @@ if ( $data == "tabel-opd" ) {
|
||||
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()."')");
|
||||
$db->Query("INSERT IGNORE INTO dpa_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->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 dpa_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 dpa_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 dpa_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 dpa_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");
|
||||
@@ -108,22 +107,22 @@ if ( $data == "tabel-opd" ) {
|
||||
$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->add_row_btn("clipboard", "Indikator", "RenjaJS.prog_edit", "", "", "CSS_INDI", [1=>"warning",2=>"danger"]);
|
||||
$obj->add_row_btn("folder", "Kegiatan", "RenjaJS.prog_select");
|
||||
$obj->set_func_navi("RenjaJS.data_query('tabel-prog')");
|
||||
if ($emon_en) $obj->set_func_btn("RenjaJS.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->set_table("dpa_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_param("Poin_Target", tipedata_poin(Param::Get("Target_Indi","")));
|
||||
$sql->add_where("Tahun", $thn_renja);
|
||||
$sql->add_where("DPAProgIndiID");
|
||||
|
||||
@@ -148,30 +147,31 @@ if ( $data == "tabel-opd" ) {
|
||||
}
|
||||
|
||||
$obj = new Table($db);
|
||||
$obj->set_query("SELECT *,CONCAT(Text_Indi,' (<i>',Satuan_Indi,'</i>)') Indi_Satuan FROM dpa90_prog_indi WHERE ".$qsql."");
|
||||
$obj->set_query("SELECT *,func_tipedata(TipeDataID,Target_Indi) Target_Indi2,CONCAT(Text_Indi,' (<i>',Satuan_Indi,'</i>)') Indi_Satuan FROM dpa_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->add_field("TipeDataID", "Tipe Data", "l", "tipedata_tipe");
|
||||
$obj->add_field("Target_Indi2", "Target", "c");
|
||||
$obj->set_field_order("Text_Indi", "A");
|
||||
$obj->add_row_form("Detail", "DPAJS.prog_indi_form");
|
||||
$obj->add_row_form("Detail", "RenjaJS.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");
|
||||
$obj->add_row_btn("trash", "Hapus", "RenjaJS.prog_indi_del");
|
||||
$obj->set_func_btn("RenjaJS.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()."')");
|
||||
$db->Query("INSERT IGNORE INTO dpa_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)."'");
|
||||
//$db->Query("UPDATE dpa_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->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 FROM (SELECT * FROM dpa_keg WHERE ".$qsql.") KR 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 dpa_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");
|
||||
@@ -180,99 +180,17 @@ if ( $data == "tabel-opd" ) {
|
||||
$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->add_row_btn("clipboard", "Detail", "RenjaJS.keg_edit");
|
||||
$obj->add_row_btn("folder", "Sub Kegiatan", "RenjaJS.keg_select");
|
||||
$obj->set_func_navi("RenjaJS.data_query('tabel-keg')");
|
||||
if ($emon_en) $obj->set_func_btn("RenjaJS.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->set_table("dpa_sub");
|
||||
$sql->add_where("Tahun", $thn_renja);
|
||||
$sql->add_where("DPASubID");
|
||||
|
||||
@@ -290,32 +208,20 @@ if ( $data == "tabel-opd" ) {
|
||||
} 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_Ini");
|
||||
$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."'");
|
||||
$db->Query("DELETE IGNORE FROM dpa_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->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),0,1)) CSS_INDI,IF(IFNULL(AR.ITEM_AKUN,0)>0,0,1) DEL_SUB FROM (SELECT * FROM dpa_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 dpa_sub_output WHERE ".$qsql." GROUP BY SubID) I ON (I.SubID=SR.SubID) LEFT JOIN (SELECT SubID,COUNT(*) ITEM_AKUN FROM dpa_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");
|
||||
@@ -324,20 +230,21 @@ if ( $data == "tabel-opd" ) {
|
||||
$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"]);
|
||||
$obj->add_row_btn("clipboard", "Detail", "RenjaJS.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("trash", "Hapus", "RenjaJS.sub_hapus", "DEL_SUB", 1);
|
||||
$obj->set_func_btn("RenjaJS.sub_brow", "+ Sub Kegiatan");
|
||||
}
|
||||
$obj->add_row_btn("folder", "Akun", "DPAJS.sub_select");
|
||||
$obj->set_func_navi("DPAJS.data_query('tabel-sub')");
|
||||
$obj->add_row_btn("folder", "Akun", "RenjaJS.sub_select");
|
||||
$obj->set_func_navi("RenjaJS.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->set_table("dpa_sub_output");
|
||||
$sql->add_param("Status_Output");
|
||||
$sql->add_param("Text_Output");
|
||||
$sql->add_param("Target_Output");
|
||||
$sql->add_param("Satuan_Output");
|
||||
@@ -364,22 +271,22 @@ if ( $data == "tabel-opd" ) {
|
||||
}
|
||||
|
||||
$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->set_query("SELECT *,CONCAT(TRIM(TRAILING '0' FROM CAST(Target_Output as CHAR))*1,' ',Satuan_Output) Target_Satuan FROM dpa_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");
|
||||
$obj->add_row_form("Detail", "RenjaJS.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");
|
||||
$obj->add_row_btn("trash", "Hapus", "RenjaJS.sub_output_del");
|
||||
$obj->set_func_btn("RenjaJS.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->set_table("dpa_akun");
|
||||
$sql->add_param("Volume");
|
||||
$sql->add_param("SatuanID");
|
||||
$sql->add_param("Harga_Satuan");
|
||||
@@ -412,15 +319,15 @@ if ( $data == "tabel-opd" ) {
|
||||
$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."'");
|
||||
$db->Query("UPDATE dpa_sub A, (SELECT SubID,SUM(Pagu_Ini) P1,SUM(Renc_Keu) P2 FROM dpa_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 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."'");
|
||||
$db->Query("UPDATE dpa_keg A, (SELECT KegID,SUM(Pagu_Ini) P1,SUM(Renc_Keu) P2 FROM dpa_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."'");
|
||||
$db->Query("UPDATE dpa_prog A, (SELECT ProgID,SUM(Pagu_Ini) P1,SUM(Renc_Keu) P2 FROM dpa_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->set_query("SELECT AR.*,IF(AR.Real_Keu=0,1,0) DEL_AKUN,M.N_Akun FROM (SELECT * FROM dpa_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");
|
||||
@@ -428,12 +335,12 @@ if ( $data == "tabel-opd" ) {
|
||||
$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");
|
||||
$obj->add_row_btn("clipboard", "Detail", "RenjaJS.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->add_row_btn("trash", "Hapus", "RenjaJS.akun_hapus", "DEL_AKUN", 1);
|
||||
$obj->set_func_btn("RenjaJS.akun_tambah", "+ Akun");
|
||||
}
|
||||
$obj->set_func_navi("DPAJS.data_query('tabel-akun')");
|
||||
$obj->set_func_navi("RenjaJS.data_query('tabel-akun')");
|
||||
$obj->set_textbtn(true);
|
||||
$ajson[] = $obj->json_table("divAKUN");
|
||||
|
||||
@@ -441,82 +348,76 @@ if ( $data == "tabel-opd" ) {
|
||||
$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->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 dpa_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')");
|
||||
$obj->add_row_btn("save", "Pilih", "RenjaJS.prog_brow_select");
|
||||
$obj->set_func_navi("RenjaJS.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->set_query("SELECT * FROM para90_submap WHERE Tahun='".$_SESSION['__WEB_APP']['SUBMAP_TAHUN']."' AND ProgID='".$id_prog."' AND KegID NOT IN (SELECT KegID FROM dpa_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')");
|
||||
$obj->add_row_btn("save", "Pilih", "RenjaJS.keg_brow_select");
|
||||
$obj->set_func_navi("RenjaJS.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->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 dpa_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')");
|
||||
$obj->add_row_btn("save", "Pilih", "RenjaJS.sub_brow_select");
|
||||
$obj->set_func_navi("RenjaJS.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)");
|
||||
$db->Query("SELECT D.*,M.N_Prog FROM (SELECT * FROM dpa_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 class="col"><textarea class="form-control" disabled="true" rows="2">'.$arec['N_Prog'].'</textarea></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'].'">
|
||||
';
|
||||
<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");
|
||||
$db->Query("SELECT * FROM dpa_prog_indi WHERE DPAProgIndiID='".$id_dpa_prog_indi."' LIMIT 1");
|
||||
if ($db->Next()) $arec = $db->AllRow();
|
||||
if ($arec['TipeDataID'] > 0) {
|
||||
if ($arec['TipeDataID'] > 2) { // enum_v2
|
||||
$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);
|
||||
$ttipe = $form->option_que("_", "TipeDataID", $arec['TipeDataID'], $emon_en, false, tipedata_query(), ["TipeDataID","Nama_Tipe"], [0,"Numeric"], null, "RenjaJS.oc_ProgTipe()");
|
||||
$ttarget = tipedata_select("Target_Indi", $arec['TipeDataID'], $arec['Target_Indi'], $emon_en, $_p_input);
|
||||
$tstatus = tipedata_status("Status_Indi", $arec['TipeDataID'], $arec['Status_Indi'], $emon_en);
|
||||
$tsatuan = $form->textbox("_", "Satuan_Indi", $arec['Satuan_Indi'], $emon_en, true, "text", "satuan");
|
||||
$ajson['html'] = '
|
||||
<div class="card"><div class="card-body">
|
||||
@@ -528,114 +429,25 @@ if ( $data == "tabel-opd" ) {
|
||||
<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 mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Status_Indi">Status Indikator</label>
|
||||
<div class="col-sm-6 col-lg-4" id="inputStatus">'.$tstatus.'</div>
|
||||
<div class="col"><div class="input-group"><span class="input-group-text">Satuan Indikator</span>'.$tsatuan.'</div></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 class="col-sm-6 col-lg-4" id="inputTarget">'.$ttarget.'</div>
|
||||
<div class="col text-end">'.($emon_en?'<button type="button" class="btn btn-warning me-2" id="butBatalIndi">Batal</button><button type="button" class="btn btn-success" id="butSimpanIndi">Simpan</button>':'').'</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>
|
||||
';
|
||||
</div></div>';
|
||||
|
||||
} else if ( $data == "detail-sub" ) {
|
||||
$arec = array();
|
||||
$arec = [];
|
||||
$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)");
|
||||
$db->Query("SELECT D.*,M.N_Sub FROM (SELECT * FROM dpa_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());
|
||||
@@ -648,22 +460,8 @@ if ( $data == "tabel-opd" ) {
|
||||
$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_ini = $form->textbox("_", "Pagu_Ini", $arec['Pagu_Ini'], false, false, "double");
|
||||
$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">
|
||||
@@ -684,108 +482,54 @@ if ( $data == "tabel-opd" ) {
|
||||
<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.'">
|
||||
';
|
||||
<input type="hidden" id="mode_detail" value="'.$mode_detail.'">';
|
||||
|
||||
} else if ( $data == "detail-sub-output" ) {
|
||||
$arec = array(); $mode_detail = "insert";
|
||||
$arec = []; $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");
|
||||
$db->Query("SELECT * FROM dpa_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");
|
||||
$tstatus = tipedata_status("Status_Output", 0, $arec['Status_Output'], $emon_en);
|
||||
$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 mb-1">
|
||||
<label class="col-sm-4 col-lg-2 col-form-label" for="Status_Output">Status Output</label>
|
||||
<div class="col-sm-6 col-lg-4">'.$tstatus.'</div>
|
||||
<div class="col"><div class="input-group"><span class="input-group-text">Satuan Output</span>'.$tsatuan.'</div></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 class="col-sm-6 col-lg-4">'.$ttarget.'</div>
|
||||
<div class="col text-end">'.($emon_en?'<button type="button" class="btn btn-warning me-2" id="butBatalOutput">Batal</button><button type="button" class="btn btn-success" id="butSimpanOutput">Simpan</button>':'').'</div>
|
||||
</div>
|
||||
<input type="hidden" id="DPASubOutputID" value="'.$arec['DPASubOutputID'].'">
|
||||
<input type="hidden" id="mode_detail" value="'.$mode_detail.'">
|
||||
</div></div>
|
||||
';
|
||||
</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."')";
|
||||
$qakun = " AND AkunID NOT IN (SELECT AkunID FROM dpa_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']."')");
|
||||
$db->Query("SELECT D.*,A.N_Akun FROM (SELECT * FROM dpa_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";
|
||||
@@ -794,9 +538,9 @@ if ( $data == "tabel-opd" ) {
|
||||
$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," "));
|
||||
$f_vol = $form->textbox("_", "Volume", $adetail['Volume'], $emon_en, $emon_en, "double", "masukkan volume", null, null, "DPAJS.Hitung_Akun()");
|
||||
$f_vol = $form->textbox("_", "Volume", $adetail['Volume'], $emon_en, $emon_en, "double", "masukkan volume", null, null, "RenjaJS.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," "));
|
||||
$f_harga = $form->textbox("_", "Harga_Satuan", $adetail['Harga_Satuan'], $emon_en, $emon_en, "double", "masukkan harga satuan", null, null, "DPAJS.Hitung_Akun()");
|
||||
$f_harga = $form->textbox("_", "Harga_Satuan", $adetail['Harga_Satuan'], $emon_en, $emon_en, "double", "masukkan harga satuan", null, null, "RenjaJS.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)");
|
||||
@@ -837,18 +581,20 @@ if ( $data == "tabel-opd" ) {
|
||||
} else if ( $data == "change-tipedata" ) {
|
||||
$id_tipe = Param::Get("TipeDataID", 0);
|
||||
$indi_target = Param::Get("Target_Indi", "");
|
||||
$indi_status= Param::Get("Status_Indi", "");
|
||||
$_p_input = [];
|
||||
|
||||
if ($id_tipe > 0) {
|
||||
if ($id_tipe > 2) { // enum_v2
|
||||
$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);
|
||||
$ajson['target'] = tipedata_select("Target_Indi", $id_tipe, $indi_target, $emon_en, $_p_input);
|
||||
$ajson['status'] = tipedata_status("Status_Indi", $id_tipe, $indi_status, $emon_en);
|
||||
|
||||
} 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="card"><div class="card-header custom-style">Kelola Data Rencana Kerja OPD // Tahun Anggaran '.$thn_renja.'</div><div class="card-body">
|
||||
<div class="row mb-1">
|
||||
<div class="col">
|
||||
<div class="input-group">
|
||||
@@ -1,270 +0,0 @@
|
||||
<?php
|
||||
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/repo_eval_tujuan.php
|
||||
Desc. : PHP - Laporan Realisasi Triwulan / UPT
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : March 20th, 2012.
|
||||
Last Modified : October 17th, 2018.
|
||||
|
||||
(c) 2012 - 2018, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.print.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../vendor/autoload.php");
|
||||
require_once(dirname(__FILE__)."/../func.emonev.php");
|
||||
|
||||
function report_show() {
|
||||
global $ap;
|
||||
$ntahun = $ap->getParam("Tahun", $_SESSION['__WEB_APP']['REAL_THN']);
|
||||
$ntw = $ap->getParam("TW", $_SESSION['__WEB_APP']['REAL_TW']);
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_upt = $ap->getParam("UPTID", 0);
|
||||
if (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) $id_opd = $_SESSION['__WEB_USER']['A_OPD'][0];
|
||||
if ($_SESSION['__WEB_USER']['Level']==4) $id_upt = $_SESSION['__WEB_USER']['A_UPT'][0];
|
||||
$q_opd = (in_array($_SESSION['__WEB_USER']['Level'],array(3,4))) ? "OPDID='".$_SESSION['__WEB_USER']['A_OPD'][0]."'" : "TRUE";
|
||||
$q_upt = ($_SESSION['__WEB_USER']['Level']==4) ? "AND UPTID='".$_SESSION['__WEB_USER']['A_UPT'][0]."'" : "OPDID='".$id_opd."'";
|
||||
|
||||
$form = new cFORM();
|
||||
$form->option_db("Tahun Data", "Tahun", $ntahun, true, true, "para_periode", array("Tahun","Tahun"));
|
||||
$form->option_db("Indikator Tujuan", "RD_TUJUANINDIID", $ap->getParam("RD_TUJUANINDIID", 0), true, true, "rpjmd_tujuan_indi", array("RD_TUJUANINDIID","Txt_Indi"), " TRUE ORDER BY No_Indi", array(0,"-- SEMUA INDIKATOR --"));
|
||||
$form->option_db("Nama OPD", "OPDID", $id_opd, true, true, "vi_para_opd", array("OPDID","Nama_OPD"), $q_opd." AND Aktif=1 ORDER BY K_OPD", (user_level(1)?array(0,"-- SEMUA OPD --"):null), null, "RepoEvalTujuanJS.oc_Tipe();");
|
||||
$form->option_db("Nama UPT", "UPTID", $id_upt, true, true, "vi_para_upt", array("UPTID","Nama_UPT"), $q_upt." AND Aktif=1 ORDER BY K_UPT", (user_level(3)?array(0,"-- SEMUA UPT --"):null));
|
||||
$form->radio("Triwulan", "TW", $ntw, true, true, array(1=>"I",2=>"II",3=>"III",4=>"IV"));
|
||||
$form->radio("Rutin / Penunjang", "Cetak_Rutin", $i_rutin, true, true, array(1=>"Ya",2=>"Tidak"));
|
||||
$form->show(' _Tahun_ _RD_TUJUANINDIID_ _OPDID_ _UPTID_ _TW_ _Cetak_Rutin_ ');
|
||||
}
|
||||
|
||||
/************************** RESPON HERE ***************************/
|
||||
|
||||
$db = DB();
|
||||
$db2 = DB();
|
||||
$data = $ap->getParam("data");
|
||||
$tahun = $ap->getParam("Tahun", $_SESSION['__WEB_APP']['REAL_THN']);
|
||||
$twulan = $ap->getParam("TW", $_SESSION['__WEB_APP']['REAL_TW']);
|
||||
$id_opd = $ap->getParam("OPDID", 0);
|
||||
$id_upt = $ap->getParam("UPTID", 0);
|
||||
$id_indi = $ap->getParam("RD_TUJUANINDIID", 0);
|
||||
|
||||
if ( $data == "print" || $data == "export") {
|
||||
$tsql = " WHERE Tahun='".$tahun."'";
|
||||
if ($id_opd>0) $tsql .= " AND OPDID='".$id_opd."'";
|
||||
if ($id_upt>0) $tsql .= " AND UPTID='".$id_upt."'";
|
||||
|
||||
if ($twulan == 1) {
|
||||
$field_tw = "TW1";
|
||||
} else if ($twulan == 2) {
|
||||
$field_tw = "TW2";
|
||||
} else if ($twulan == 3) {
|
||||
$field_tw = "TW3";
|
||||
} else if ($twulan == 4) {
|
||||
$field_tw = "TW4";
|
||||
}
|
||||
|
||||
// proses rekap database
|
||||
Report_Empty("eval_prog");
|
||||
Report_Empty("eval_prog_indi");
|
||||
Report_Empty("eval_keg");
|
||||
Report_Empty("eval_itarget");
|
||||
// insert urusan
|
||||
$db->Query("INSERT INTO rep_eval_prog SELECT Tahun,ProgID,SUM(B_Total),'".user_unix()."','".user_id()."' FROM dpa_detail".$tsql." GROUP BY ProgID");
|
||||
// insert program indi
|
||||
$db->Query("INSERT INTO rep_eval_prog_indi SELECT '".$tahun."',ProgID,RD_PROGRAMINDIID,0,'".user_unix()."','".user_id()."' FROM rpjmd_program_indi WHERE RD_PROGRAMINDIID IN (SELECT RD_PROGRAMINDIID FROM renja_detail_indi".$tsql.")");
|
||||
$db->Query("DELETE FROM rep_eval_prog_indi WHERE ProgID NOT IN (SELECT ProgID FROM dpa_detail".$tsql.")");
|
||||
// insert kegiatan
|
||||
$db->Query("INSERT INTO rep_eval_keg SELECT D.Tahun,D.ProgID,IFNULL(MIN(I.RD_PROGRAMINDIID),0),D.RKegID,D.B_Total,IFNULL(D.B_Total/P.PAGU_PROG*100,0),IFNULL(D.RealF_TW2/D.RencF_TW2*100,0),0,'".user_unix()."','".user_id()."' FROM (SELECT * FROM dpa_detail".$tsql.") D LEFT JOIN (SELECT * FROM renja_detail_indi".$tsql.") I ON (D.RKegID=I.RKegID) LEFT JOIN rep_eval_prog P ON (D.Tahun=P.Tahun AND D.ProgID=P.ProgID AND P.UserID='".user_id()."' AND P.Unix='".user_unix()."') GROUP BY D.RKegID");
|
||||
$db->Query("UPDATE rep_eval_keg SET KON_REAL=KON_KINERJA*KON_PAGU/100 WHERE UserID='".user_id()."' AND Unix='".user_unix()."'");
|
||||
$db->Query("UPDATE rep_eval_prog_indi A, (SELECT ProgID,AVG(KON_KINERJA) KON_PROGRAM FROM rep_eval_keg WHERE UserID='".user_id()."' AND Unix='".user_unix()."' GROUP BY ProgID) B SET A.KON_PROGRAM=B.KON_PROGRAM WHERE A.ProgID=B.ProgID AND A.UserID='".user_id()."' AND A.Unix='".user_unix()."'");
|
||||
// insert target indikator
|
||||
$db->Query("INSERT INTO rep_eval_itarget SELECT A.Tahun,P.RD_TUJUANINDIID,AVG(A.KON_PROGRAM)/100,'".user_unix()."','".user_id()."' FROM rep_eval_prog_indi A LEFT JOIN para_program P ON (A.ProgID=P.ProgID) WHERE A.Tahun='".$tahun."' AND A.UserID='".user_id()."' AND A.Unix='".user_unix()."' GROUP BY P.RD_TUJUANINDIID");
|
||||
|
||||
$db->Query("SELECT P.RD_TUJUANINDIID,D.ProgID,D.RKegID,T.No_Misi,T.Txt_Misi,T.Kode_Tujuan,T.Txt_Tujuan,T.Kode_Indi_Tujuan,T.Txt_Indi,T.Indi_T2,RT.KON_TUJUANINDI*T.Indi_T2 PRO_INDI,P.N_Prog,RP.PAGU_PROG,D.K_Keg,D.N_Keg,D.RencF_TW2,D.B_Total,RK.KON_PAGU,D.RealF_TW2,RK.KON_KINERJA,RK.KON_REAL,U.N_UPT FROM (SELECT * FROM dpa_detail".$tsql.") D LEFT JOIN rep_eval_prog RP ON (D.Tahun=RP.Tahun AND D.ProgID=RP.ProgID AND RP.UserID='".user_id()."' AND RP.Unix='".user_unix()."') LEFT JOIN rep_eval_keg RK ON (D.Tahun=RK.Tahun AND D.ProgID=RK.ProgID AND D.RKegID=RK.RKegID AND RK.UserID='".user_id()."' AND RK.Unix='".user_unix()."') LEFT JOIN para_program P ON (D.ProgID=P.ProgID) LEFT JOIN rep_eval_itarget RT ON (RT.Tahun=D.Tahun AND RT.RD_TUJUANINDIID=P.RD_TUJUANINDIID AND RT.UserID='".user_id()."' AND RT.Unix='".user_unix()."') LEFT JOIN para_upt U ON (D.UPTID=U.UPTID) LEFT JOIN vi_rpjmd_tujuan_indi T ON (T.RD_TUJUANINDIID=P.RD_TUJUANINDIID) WHERE P.RD_TUJUANINDIID>0 ORDER BY T.Kode_Indi_Tujuan,D.ProgID,D.K_Keg");
|
||||
}
|
||||
|
||||
if ( $data == "print" ) {
|
||||
echo "dalam progress .. sementara baru excel !";
|
||||
/*$_head = '<div style="text-align:center;font-size:120%;"><b>LAPORAN PELAKSANAAN RENCANA PROGRAM DAN ANGGARAN KEGIATAN PEMBANGUNAN DAERAH APBD<br>PROVINSI KALIMANTAN BARAT TRIWULAN '.romawi($twulan).' TAHUN ANGGARAN '.$tahun.'</b></div><br>
|
||||
<table width="100%" class="pborder">
|
||||
<tr><td width="20" class="center bold" rowspan="2">Kode</td><td width="180" class="center bold" rowspan="2">Urusan/Bidang Urusan Pemerintahan Daerah</td><td width="50" class="center bold" rowspan="2">Jumlah Anggaran (Rp)</td><td width="100" class="center bold" colspan="4">Penyerapan Keuangan (%)</td><td width="100" class="center bold" colspan="2">Indikator Keluaran (OUTPUT)</td></tr>
|
||||
<tr><td class="center bold">Target</td><td class="center bold">%</td><td class="center bold">Realisasi</td><td class="center bold">%</td><td class="center bold">S (%)</td><td class="center bold">R (%)</td></tr>
|
||||
<tr><td class="center">1</td><td class="center">2</td><td class="center">3</td><td class="center">4</td><td class="center">5</td><td class="center">6</td><td class="center">7</td><td class="center">8</td><td class="center">9</td></tr>';
|
||||
$_line = '<tr><td class="left" nowrap>%s</td><td class="left">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td><td class="right">%s</td></tr>';
|
||||
$_bline = '<tr><td class="bold left" nowrap>%s</td><td class="bold left">%s</td><td class="bold right">%s</td><td class="bold right">%s</td><td class="bold right">%s</td><td class="bold right">%s</td><td class="bold right">%s</td><td class="bold right">%s</td><td class="bold right">%s</td></tr>';
|
||||
$header = $_head;
|
||||
$body = $urus = $fung = $opd = "";
|
||||
while ($db->Next()) {
|
||||
if ($urus <> $db->Row("KO_URUSAN")) {
|
||||
$body .= sprintf($_bline, $db->Row("KO_URUSAN"), $db->Row("N_URUSAN"), uang2($db->Row("URUS_PAGU")), uang2($db->Row("URUS_TARGET")), uang2($db->Row("URUS_TARGET_PSN")), uang2($db->Row("URUS_REAL")), uang2($db->Row("URUS_REAL_PSN")), uang2($db->Row("URUS_INDI_S")), uang2($db->Row("URUS_INDI_R")));
|
||||
$urus = $db->Row("KO_URUSAN");
|
||||
}
|
||||
if ($fung <> $db->Row("KO_FUNGSI")) {
|
||||
$body .= sprintf($_bline, $db->Row("KO_FUNGSI"), $db->Row("N_FUNGSI"), uang($db->Row("FUNG_PAGU"),2), uang($db->Row("FUNG_TARGET"),2), uang($db->Row("FUNG_TARGET_PSN"),2), uang($db->Row("FUNG_REAL"),2), uang($db->Row("FUNG_REAL_PSN"),2), uang($db->Row("FUNG_INDI_S"),2), uang($db->Row("FUNG_INDI_R"),2));
|
||||
$fung = $db->Row("KO_FUNGSI");
|
||||
}
|
||||
if ($opd <> $db->Row("KO_OPD")) {
|
||||
$body .= sprintf($_bline, $db->Row("KO_OPD"), $db->Row("N_OPD"), uang($db->Row("OPD_PAGU"),2), uang($db->Row("OPD_TARGET"),2), uang($db->Row("OPD_TARGET_PSN"),2), uang($db->Row("OPD_REAL"),2), uang($db->Row("OPD_REAL_PSN"),2), uang($db->Row("OPD_INDI_S"),2), uang($db->Row("OPD_INDI_R"),2));
|
||||
$opd = $db->Row("KO_OPD");
|
||||
}
|
||||
$body .= sprintf($_line, $db->Row("KO_UPT"), $db->Row("N_UPT"), uang($db->Row("UPT_PAGU"),2), uang($db->Row("UPT_TARGET"),2), uang($db->Row("UPT_TARGET_PSN"),2), uang($db->Row("UPT_REAL"),2), uang($db->Row("UPT_REAL_PSN"),2), uang($db->Row("UPT_INDI_S"),2), uang($db->Row("UPT_INDI_R"),2));
|
||||
}
|
||||
echo $header . $body . "</table>";*/
|
||||
|
||||
} else if ( $data == "export" ) {
|
||||
\PhpOffice\PhpSpreadsheet\Cell\Cell::setValueBinder( new \PhpOffice\PhpSpreadsheet\Cell\AdvancedValueBinder() );
|
||||
|
||||
$styleTxt = [
|
||||
'numberFormat' => ['formatCode' => \PhpOffice\PhpSpreadsheet\Style\NumberFormat::FORMAT_TEXT]
|
||||
];
|
||||
|
||||
$ssheet = new \PhpOffice\PhpSpreadsheet\Spreadsheet();
|
||||
$ssheet->getProperties()
|
||||
->setCreator($_SESSION['__WEB_APP']['APP_NAME']." v".$_SESSION['__WEB_APP']['APP_VER'])
|
||||
->setLastModifiedBy($_SESSION['__WEB_APP']['APP_NAME']." v".$_SESSION['__WEB_APP']['APP_VER'])
|
||||
->setTitle("Evaluasi ".$tahun)
|
||||
->setCategory("Evaluasi ".$tahun)
|
||||
->setSubject("Evaluasi")
|
||||
->setDescription("Evaluasi ".$tahun)
|
||||
->setCompany("BAPPERIDA Provinsi Kalimantan Barat");
|
||||
$sheet = $ssheet->getActiveSheet();
|
||||
$sheet->setTitle("EVALUASI");
|
||||
|
||||
// header
|
||||
$styleHeader = [
|
||||
'font' => ['bold' => true],
|
||||
'alignment' => ['horizontal' => \PhpOffice\PhpSpreadsheet\Style\Alignment::HORIZONTAL_CENTER]
|
||||
];
|
||||
$sheet->setCellValue("A1", "EVALUASI");
|
||||
$sheet->mergeCells('A1:Y1');
|
||||
$sheet->setCellValue("A2", "Tahun ".$tahun);
|
||||
$sheet->mergeCells('A2:Y2');
|
||||
$sheet->getStyle('A1:Y2')->applyFromArray($styleHeader);
|
||||
|
||||
// table header
|
||||
$sheet->getColumnDimension('A')->setWidth(6);
|
||||
$sheet->getColumnDimension('B')->setWidth(30);
|
||||
$sheet->getColumnDimension('C')->setWidth(6);
|
||||
$sheet->getColumnDimension('D')->setWidth(30);
|
||||
$sheet->getColumnDimension('E')->setWidth(6);
|
||||
$sheet->getColumnDimension('F')->setWidth(30);
|
||||
$sheet->getColumnDimension('G')->setWidth(16);
|
||||
$sheet->getColumnDimension('H')->setWidth(16);
|
||||
$sheet->getColumnDimension('I')->setWidth(16);
|
||||
$sheet->getColumnDimension('J')->setWidth(50);
|
||||
$sheet->getColumnDimension('K')->setWidth(16);
|
||||
$sheet->getColumnDimension('L')->setWidth(25);
|
||||
$sheet->getColumnDimension('M')->setWidth(16);
|
||||
$sheet->getColumnDimension('N')->setWidth(16);
|
||||
$sheet->getColumnDimension('O')->setWidth(16);
|
||||
$sheet->getColumnDimension('P')->setWidth(20);
|
||||
$sheet->getColumnDimension('Q')->setWidth(20);
|
||||
$sheet->getColumnDimension('R')->setWidth(20);
|
||||
$sheet->getColumnDimension('S')->setWidth(20);
|
||||
$sheet->getColumnDimension('T')->setWidth(16);
|
||||
$sheet->getColumnDimension('U')->setWidth(16);
|
||||
$sheet->getColumnDimension('V')->setWidth(16);
|
||||
$sheet->getColumnDimension('W')->setWidth(16);
|
||||
$sheet->getColumnDimension('X')->setWidth(16);
|
||||
$sheet->getColumnDimension('Y')->setWidth(25);
|
||||
$styleTableH1 = [
|
||||
'font' => ['bold' => true],
|
||||
'alignment' => ['horizontal' => \PhpOffice\PhpSpreadsheet\Style\Alignment::HORIZONTAL_CENTER, 'vertical' => \PhpOffice\PhpSpreadsheet\Style\Alignment::VERTICAL_CENTER, 'wrapText' => true],
|
||||
'fill' => ['fillType' => \PhpOffice\PhpSpreadsheet\Style\Fill::FILL_SOLID, 'startColor' => ['rgb'=>"2187AC"]],
|
||||
'borders' => ['allBorders' => ['borderStyle' => \PhpOffice\PhpSpreadsheet\Style\Border::BORDER_THIN, 'color' => ['rgb'=>"000000"]]]
|
||||
];
|
||||
$sheet->setCellValue("A4", "Misi RPJMD");
|
||||
$sheet->mergeCells('A4:B4');
|
||||
$sheet->setCellValue("C4", "Tujuan RPJMD");
|
||||
$sheet->mergeCells('C4:D4');
|
||||
$sheet->setCellValue("E4", "Indikator Tujuan RPJMD");
|
||||
$sheet->mergeCells('E4:F4');
|
||||
$sheet->setCellValue("G4", "Target ".$tahun);
|
||||
$sheet->setCellValue("H4", "Realisasi Tahun n-1 (".($tahun-1).")");
|
||||
$sheet->setCellValue("I4", "Proyeksi Berdasar Kontribusi Program ".$tahun);
|
||||
$sheet->setCellValue("J4", "Program");
|
||||
$sheet->setCellValue("K4", "Anggaran");
|
||||
$sheet->setCellValue("L4", "Indikator Program");
|
||||
$sheet->setCellValue("M4", "Target ".$tahun);
|
||||
$sheet->setCellValue("N4", "Proyeksi Realisasi ".$tahun);
|
||||
$sheet->setCellValue("O4", "Kontribusi Program");
|
||||
$sheet->setCellValue("P4", "Kegiatan");
|
||||
$sheet->setCellValue("Q4", "Indikator Kegiatan");
|
||||
$sheet->setCellValue("R4", "Target Kinerja");
|
||||
$sheet->setCellValue("S4", "Satuan");
|
||||
$sheet->setCellValue("T4", "Anggaran");
|
||||
$sheet->setCellValue("U4", "Kontribusi Pagu Program");
|
||||
$sheet->setCellValue("V4", "Realisasi Kinerja ".$tahun);
|
||||
$sheet->setCellValue("W4", "Kontribusi Kegiatan Per Kinerja");
|
||||
$sheet->setCellValue("X4", "Kontribusi Realisasi Anggaran");
|
||||
$sheet->setCellValue("Y4", "OPD Penanggung Jawab");
|
||||
$sheet->getStyle('A4:Y4')->applyFromArray($styleTableH1);
|
||||
// jika ada nomor dibawah header disini !!
|
||||
|
||||
$baris = 5; $k_misi = $k_tujuan = $k_tujuanindi = $k_prog = "";
|
||||
while ($db->Next()) {
|
||||
if ($k_misi <> $db->Row("No_Misi")) {
|
||||
$sheet->getCell("A".$baris)->setValueExplicit($db->Row("No_Misi"), \PhpOffice\PhpSpreadsheet\Cell\DataType::TYPE_STRING);
|
||||
$sheet->setCellValue("B".$baris, $db->Row("Txt_Misi"));
|
||||
$k_misi = $db->Row("No_Misi");
|
||||
}
|
||||
if ($k_tujuan <> $db->Row("Kode_Tujuan")) {
|
||||
$sheet->getCell("C".$baris)->setValueExplicit($db->Row("Kode_Tujuan"), \PhpOffice\PhpSpreadsheet\Cell\DataType::TYPE_STRING);
|
||||
$sheet->setCellValue("D".$baris, $db->Row("Txt_Tujuan"));
|
||||
$k_tujuan = $db->Row("Kode_Tujuan");
|
||||
}
|
||||
if ($k_tujuanindi <> $db->Row("Kode_Indi_Tujuan")) {
|
||||
$sheet->getCell("E".$baris)->setValueExplicit($db->Row("Kode_Indi_Tujuan"), \PhpOffice\PhpSpreadsheet\Cell\DataType::TYPE_STRING);
|
||||
$sheet->setCellValue("F".$baris, $db->Row("Txt_Indi"));
|
||||
$sheet->setCellValue("G".$baris, $db->Row("Indi_T2"));
|
||||
$sheet->setCellValue("I".$baris, $db->RowFloat("PRO_INDI"));//angka
|
||||
$k_tujuanindi = $db->Row("Kode_Indi_Tujuan");
|
||||
}
|
||||
if ($k_prog <> $db->Row("ProgID")) {
|
||||
$sheet->setCellValue("J".$baris, $db->Row("N_Prog"));
|
||||
$sheet->setCellValue("K".$baris, $db->RowFloat("PAGU_PROG"));//angka
|
||||
$k_prog = $db->Row("ProgID");
|
||||
$db2->Query("SELECT PI.Txt_Indi,PI.Indi_T2,IFNULL(PI.Indi_T2/100*I.KON_PROGRAM,0) PRO_REAL,I.KON_PROGRAM FROM rep_eval_prog_indi I LEFT JOIN rpjmd_program_indi PI ON (I.RD_PROGRAMINDIID=PI.RD_PROGRAMINDIID AND PI.RPJMDID=2) WHERE I.Tahun='".$tahun."' AND I.ProgID='".$db->Row("ProgID")."' AND I.UserID='".user_id()."' AND I.Unix='".user_unix()."' ORDER BY PI.No_Indi");
|
||||
}
|
||||
if ($db2->Next()) {
|
||||
$sheet->setCellValue("L".$baris, $db2->Row("Txt_Indi"));
|
||||
$sheet->setCellValue("M".$baris, $db2->Row("Indi_T2"));//angka
|
||||
$sheet->setCellValue("N".$baris, $db2->RowFloat("PRO_REAL"));//angka
|
||||
$sheet->setCellValue("O".$baris, $db2->RowFloat("KON_PROGRAM"));//angka
|
||||
}
|
||||
$sheet->setCellValue("P".$baris, "(".$db->Row("K_Keg").") ". $db->Row("N_Keg"));
|
||||
//$sheet->setCellValue("Q".$baris, $db->Row("N_Prog"));
|
||||
$sheet->setCellValue("R".$baris, $db->RowFloat("RencF_".$field_tw));
|
||||
// S satuan
|
||||
$sheet->setCellValue("T".$baris, $db->RowFloat("B_Total"));
|
||||
$sheet->setCellValue("U".$baris, $db->RowFloat("KON_PAGU"));
|
||||
$sheet->setCellValue("V".$baris, $db->RowFloat("RealF_".$field_tw));
|
||||
$sheet->setCellValue("W".$baris, $db->RowFloat("KON_KINERJA"));
|
||||
$sheet->setCellValue("X".$baris, $db->RowFloat("KON_REAL"));
|
||||
$sheet->setCellValue("Y".$baris, $db->Row("N_UPT"));
|
||||
$baris++;
|
||||
}
|
||||
$baris--;
|
||||
$sheet->getStyle('A5:Y'.$baris)->applyFromArray(['borders' => ['allBorders' => ['borderStyle' => \PhpOffice\PhpSpreadsheet\Style\Border::BORDER_THIN, 'color' => ['rgb'=>"000000"]]]]);
|
||||
|
||||
$sheet->getSheetView()->setZoomScale(90);
|
||||
$sheet->getHeaderFooter()->setOddFooter('&LeMONEv - Kabupaten Mempawah &CEvaluasi &R&I&D &T // Halaman : &P dari &N');
|
||||
$sheet->getHeaderFooter()->setEvenFooter('&LeMONEv - Kabupaten Mempawah &CEvaluasi &R&I&D &T // Halaman : &P dari &N');
|
||||
|
||||
header('Content-Type: application/vnd.openxmlformats-officedocument.spreadsheetml.sheet');
|
||||
header('Content-Disposition: attachment;filename="Evaluasi '.$tahun.'.xlsx"');
|
||||
header('Cache-Control: max-age=0');
|
||||
$writer = \PhpOffice\PhpSpreadsheet\IOFactory::createWriter($ssheet, 'Xlsx');
|
||||
$writer->save('php://output');
|
||||
$ssheet->disconnectWorksheets();
|
||||
unset($ssheet);
|
||||
unset($writer);
|
||||
|
||||
} else if ( $data == "default") {
|
||||
report_show();
|
||||
}
|
||||
|
||||
?>
|
||||
@@ -3,8 +3,8 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/repo_tw_upt.php
|
||||
Desc. : PHP - Laporan Realisasi Triwulan / UPT
|
||||
Module : /apps/php/repo/rekap_hasil_opd.php
|
||||
Desc. : PHP - Laporan Rekap Hasil Per OPD
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : March 20th, 2012.
|
||||
Last Modified : June 24th, 2024.
|
||||
@@ -18,7 +18,7 @@ ini_set("max_execution_time", "900");
|
||||
ini_set("pcre.backtrack_limit", "5000000");
|
||||
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../func.emonev.php");
|
||||
require_once(__DIR__."/../func/emonev.php");
|
||||
//require_once("Spreadsheet/Excel/Writer.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
@@ -3,8 +3,8 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/repo_tw_upt.php
|
||||
Desc. : PHP - Laporan Realisasi Triwulan / UPT
|
||||
Module : /apps/php/repo/rekap_hasil_prog.php
|
||||
Desc. : PHP - Laporan Rekap Hasil Program
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : March 20th, 2012.
|
||||
Last Modified : June 24th, 2024.
|
||||
@@ -18,7 +18,7 @@ ini_set("max_execution_time", "900");
|
||||
ini_set("pcre.backtrack_limit", "5000000");
|
||||
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../func.emonev.php");
|
||||
require_once(__DIR__."/../func/emonev.php");
|
||||
//require_once("Spreadsheet/Excel/Writer.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
@@ -39,7 +39,7 @@ if ( $data == "print" || $data == "export") {
|
||||
$nama_opd = "";
|
||||
$db->Query("SELECT Nama_OPD FROM vi_para90_opd WHERE OPDID='".$id_opd."'");
|
||||
if ($db->Next()) $nama_opd = $db->Row("Nama_OPD");
|
||||
$tabel_data = "dpa90_sub"; $tsql = "";
|
||||
$tabel_data = "dpa_sub"; $tsql = "";
|
||||
if ($id_opd>0) $tsql .= " AND T.OPDID='".$id_opd."'";
|
||||
|
||||
if ($twulan == 1) {
|
||||
@@ -3,8 +3,8 @@
|
||||
/*******************************************************************
|
||||
|
||||
App. Name : SISTEM INFORMASI MONITORING DAN EVALUASI
|
||||
Module : /apps/php/mon/repo_tw_upt.php
|
||||
Desc. : PHP - Laporan Realisasi Triwulan / UPT
|
||||
Module : /apps/php/repo/rekap_progkeg.php
|
||||
Desc. : PHP - Laporan Rekap Program & Kegiatan
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : March 20th, 2012.
|
||||
Last Modified : June 24th, 2024.
|
||||
@@ -18,7 +18,7 @@ ini_set("max_execution_time", "900");
|
||||
ini_set("pcre.backtrack_limit", "5000000");
|
||||
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
require_once(__DIR__."/../func.emonev.php");
|
||||
require_once(__DIR__."/../func/emonev.php");
|
||||
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
use siaupheng\fonia3\Web\Param;
|
||||
@@ -43,7 +43,7 @@ if ( $data == "print" || $data == "export") {
|
||||
$db->Query("SELECT COUNT(DISTINCT ProgID) Prog,COUNT(*) Keg FROM renja90_awal_keg WHERE RPJMDID=2 AND Tahun='".$tahun."'".$tsql);
|
||||
if ($db->Next()) $adata['RKPD'] = $db->AllRow();
|
||||
|
||||
$db->Query("SELECT COUNT(DISTINCT ProgID) Prog,COUNT(*) Keg FROM dpa90_keg WHERE RPJMDID=2 AND Tahun='".$tahun."'".$tsql);
|
||||
$db->Query("SELECT COUNT(DISTINCT ProgID) Prog,COUNT(*) Keg FROM dpa_keg WHERE RPJMDID=2 AND Tahun='".$tahun."'".$tsql);
|
||||
if ($db->Next()) $adata['RKA'] = $db->AllRow();
|
||||
}
|
||||
|
||||
+23
-24
@@ -12,42 +12,41 @@
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.auth.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.form.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/web.misc.php");
|
||||
require_once(dirname(__FILE__)."/../../../../../modules3/data.json.php");
|
||||
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
||||
|
||||
$db = DB();
|
||||
$auth = new cAUTH();
|
||||
$ajson = array();
|
||||
$data = $ap->getParam("data");
|
||||
use siaupheng\fonia3\DB\MySQL;
|
||||
use siaupheng\fonia3\DB\SQL;
|
||||
use siaupheng\fonia3\Web\Auth;
|
||||
use siaupheng\fonia3\Web\Param;
|
||||
use siaupheng\fonia3\Web\Form;
|
||||
|
||||
$db = $db ?? new MySQL();
|
||||
$auth = new Auth($db);
|
||||
$ajson = [];
|
||||
$data = Param::Get("data");
|
||||
|
||||
if ( $data == "default") {
|
||||
$form = new cFORM();
|
||||
$form = new Form($db);
|
||||
$form->password("Password Lama", "LPass", $l_pass, true, true, "masukkan password lama", 20);
|
||||
$form->password("Password Baru 1", "BPass1", $b_pass1, true, true, "masukkan password baru 1", 20);
|
||||
$form->password("Password Baru 2", "BPass2", $b_pass2, true, true, "masukkan password baru 2", 20);
|
||||
$form->show('
|
||||
_LPass_
|
||||
_BPass1_
|
||||
_BPass2_
|
||||
');
|
||||
$form->show(' _LPass_ _BPass1_ _BPass2_ ');
|
||||
|
||||
} else if ( $data == "chpasswd") {
|
||||
$l_pass = $ap->getParam("LPass");
|
||||
$b_pass1 = $ap->getParam("BPass1");
|
||||
$b_pass2 = $ap->getParam("BPass2");
|
||||
$l_pass = Param::Get("LPass");
|
||||
$b_pass1 = Param::Get("BPass1");
|
||||
$b_pass2 = Param::Get("BPass2");
|
||||
|
||||
$ajson['status'] = false;
|
||||
if ($auth->user_check(user_user(), $l_pass)) {
|
||||
$db->Query("UPDATE app_operator SET Password=MD5('".$b_pass1."') WHERE UserID='".user_id()."'");
|
||||
if ($auth->user_check(user_user(), $l_pass)) {
|
||||
$db->Query("UPDATE app_operator SET Password=MD5('".$b_pass1."') WHERE UserID='".user_id()."'");
|
||||
$ajson['status'] = true;
|
||||
$ajson['msg'] = "Sukses merubah password Anda!";
|
||||
} else {
|
||||
$ajson['msg'] = "Password lama Anda salah!";
|
||||
}
|
||||
$ajson['msg'] = "Sukses merubah password Anda!";
|
||||
} else {
|
||||
$ajson['msg'] = "Password lama Anda salah!";
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
send_json($ajson);
|
||||
?>
|
||||
?>
|
||||
|
||||
@@ -1,7 +1,7 @@
|
||||
/*******************************************************************
|
||||
|
||||
Module : /assets/css/pdf-pokir.css
|
||||
Desc. : CSS Class for PDF Pokir DPRD
|
||||
Module : /assets/css/emonev.css
|
||||
Desc. : CSS Class for EMONEV
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : October 7th, 2008.
|
||||
Last Modified : April 30th, 2020.
|
||||
@@ -1,20 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
Module : /assets/css/fonts.css
|
||||
Desc. : CSS Fonts
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : December 20th, 2007.
|
||||
Last Modified : November 22nd, 2020.
|
||||
|
||||
(c) 2009 - 2020, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
@font-face {
|
||||
font-family: coreui-icons-linear;
|
||||
src: url(../assets/fonts/coreui/CoreUI-Icons-Linear.eot?64h6xh);
|
||||
src: url(../assets/fonts/coreui/CoreUI-Icons-Linear.eot?64h6xh#iefix) format("embedded-opentype"), url(../assets/fonts/coreui/CoreUI-Icons-Linear.ttf?64h6xh) format("truetype"), url(../assets/fonts/coreui/CoreUI-Icons-Linear.woff?64h6xh) format("woff"),
|
||||
url(../assets/fonts/coreui/CoreUI-Icons-Linear.svg?64h6xh#CoreUI-Icons-Linear) format("svg");
|
||||
font-weight: 400;
|
||||
font-style: normal;
|
||||
}
|
||||
@@ -1,7 +1,7 @@
|
||||
/*******************************************************************
|
||||
|
||||
Module : /assets/css/pdf-pokir.css
|
||||
Desc. : CSS Class for PDF Pokir DPRD
|
||||
Module : /assets/css/pdf/emonev.css
|
||||
Desc. : CSS Class for PDF EMONEV
|
||||
Created By : Siau Pheng (siaupheng@3fonia.com).
|
||||
Created Date : October 7th, 2008.
|
||||
Last Modified : April 30th, 2020.
|
||||
@@ -129,7 +129,3 @@ table.dataTable a.fon-tabel-dt:hover i, table.dataTable tr.dt-hasChild a.fon-tab
|
||||
transition: .2s linear;
|
||||
color: #48b0f7 !important;
|
||||
}
|
||||
|
||||
.text-fisik {
|
||||
width: 100px;
|
||||
}
|
||||
Binary file not shown.
File diff suppressed because one or more lines are too long
|
Before Width: | Height: | Size: 1.0 MiB |
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -1,25 +0,0 @@
|
||||
/*******************************************************************
|
||||
|
||||
Module : /assets/locale/pickdate.id.js
|
||||
Desc. : JS - Date & Pickdate Locale
|
||||
Created By : Siau Pheng ([email protected]).
|
||||
Created Date : January 28th, 2013.
|
||||
Last Modified : November 8th, 2023.
|
||||
|
||||
(c) 2013 - 2023, 3FONIA Software; WWW.3FONIA.COM.
|
||||
|
||||
*******************************************************************/
|
||||
|
||||
if (jQuery.fn.datepicker) {
|
||||
jQuery.fn.datepicker.dates.id = {
|
||||
days: ["Minggu","Senin","Selasa","Rabu","Kamis","Jumat","Sabtu"],
|
||||
daysShort: ["Min","Sen","Sel","Rab","Kam","Jum","Sab"],
|
||||
daysMin: ["Mg","Sn","Sl","Rb","Km","Jm","Sb"],
|
||||
months: ["Januari","Februari","Maret","April","Mei","Juni","Juli","Agustus","September","Oktober","November","Desember"],monthsShort: ["Jan","Feb","Mar","Apr","Mei","Jun","Jul","Agt","Sep","Okt","Nov","Des"],
|
||||
today: "Hari Ini",
|
||||
monthsTitle: "Bulan",
|
||||
clear: "Kosongkan",
|
||||
weekStart: 0,
|
||||
format: "dd-mm-yyyy"
|
||||
};
|
||||
}
|
||||
Reference in New Issue
Block a user