90 lines
3.7 KiB
PHP
90 lines
3.7 KiB
PHP
<?php
|
|
|
|
/*******************************************************************
|
|
|
|
Module : /apps/php/api/rpjmd.php
|
|
Desc. : PHP - Fungsi RPJMD
|
|
Created By : Siau Pheng ([email protected]).
|
|
Created Date : December 18th, 2025.
|
|
|
|
(c) 2025, 3FONIA Software; WWW.3FONIA.COM.
|
|
|
|
*******************************************************************/
|
|
|
|
require_once(__DIR__."/../../../../../vendor/autoload.php");
|
|
require_once(__DIR__."/../func.sippd.php");
|
|
|
|
use siaupheng\fonia3\DB\MySQL;
|
|
use siaupheng\fonia3\DB\SQL;
|
|
use siaupheng\fonia3\Web\Param;
|
|
|
|
$id_rpjmd = $_SESSION['__WEB_APP']['RENC_RPJMDID'];
|
|
$thn_submap = map_tahun_submap($id_rpjmd);
|
|
|
|
function simpan_rpjmd_prog($db = null, $adata = []) {
|
|
global $id_rpjmd, $thn_submap;
|
|
$aret = ['status' => "success", 'message' => 'Berhasil simpan data Program RPJMD !'];
|
|
|
|
foreach ($adata as $_key1 => $aprog) {
|
|
$apull = [ 'RPJMDID' => $id_rpjmd,
|
|
'BUID' => 0,
|
|
'ProgID' => 0,
|
|
'K_Bidu' => $aprog['K_Bidu'],
|
|
'K_Prog' => $aprog['K_Prog'],
|
|
'Pagu_T1' => $aprog['Pagu_T1'],
|
|
'Pagu_T2' => $aprog['Pagu_T2'],
|
|
'Pagu_T3' => $aprog['Pagu_T3'],
|
|
'Pagu_T4' => $aprog['Pagu_T4'],
|
|
'Pagu_T5' => $aprog['Pagu_T5']
|
|
];
|
|
// program rpjmd
|
|
$db->Query("SELECT BUID,ProgID FROM para90_submap WHERE Tahun='".$thn_submap."' AND K_Prog='".$aprog['K_Prog']."' LIMIT 1");
|
|
if ($db->Next()) $apull = array_merge($apull, $db->AllRow());
|
|
$rd_progid = fastInsert("rpjmd_prog", $apull);
|
|
|
|
// outcome
|
|
foreach ($aprog['outcome'] as $_key2 => $arec) {
|
|
$apull = [ 'RD_PROGID' => $rd_progid,
|
|
'RPJMDID' => $id_rpjmd,
|
|
'No_Outcome' => $arec['No_Outcome'],
|
|
'Txt_Outcome' => $arec['Txt_Outcome'],
|
|
'A_OPD' => "0",
|
|
'A_RDSASAR' => "0",
|
|
'Limit_T1' => $arec['Limit_T1'],
|
|
'Limit_T2' => $arec['Limit_T2'],
|
|
'Limit_T3' => $arec['Limit_T3'],
|
|
'Limit_T4' => $arec['Limit_T4'],
|
|
'Limit_T5' => $arec['Limit_T5'],
|
|
'SIPD_UNIK' => $arec['SIPD_UNIK']
|
|
];
|
|
// sasaran rpjmd
|
|
if (count($arec['A_RDSASAR']) > 0) {
|
|
$_tsa = "";
|
|
foreach ($arec['A_RDSASAR'] as $_key_sa => $arec_sa) {
|
|
$db->Query("SELECT RD_SASARID FROM rpjmd_sasaran WHERE SIPD_SASAR='".$arec_sa."' LIMIT 1");
|
|
if ($db->Next()) $_tsa .= ",".$db->Row("RD_SASARID", 0)."";
|
|
}
|
|
$apull['A_RDSASAR'] = substr($_tsa, 1);
|
|
}
|
|
// opd
|
|
if (count($arec['A_OPD']) > 0) {
|
|
$_topd = "";
|
|
foreach ($arec['A_OPD'] as $_key_opd => $arec_opd) {
|
|
$db->Query("SELECT OPDID FROM para90_opd WHERE K_OPD='".$arec_opd."' LIMIT 1");
|
|
if ($db->Next()) $_topd .= ",".$db->Row("OPDID", 0)."";
|
|
}
|
|
$apull['A_OPD'] = substr($_topd, 1);
|
|
}
|
|
fastInsert("rpjmd_outcome", $apull);
|
|
}
|
|
}
|
|
// update yg buid = 0 dan progid = 0
|
|
$db->Query("UPDATE rpjmd_prog SET ProgID=(SELECT ProgID FROM para90_submap WHERE Tahun='".$thn_submap."' AND UrusanID=20 GROUP BY ProgID) WHERE ProgID=0 AND RPJMDID='".$id_rpjmd."'");
|
|
$db->Query("UPDATE rpjmd_prog A, (SELECT K_Bidu,BUID FROM para90_submap WHERE Tahun='".$thn_submap."' GROUP BY K_Bidu) B SET A.BUID=B.BUID WHERE A.K_Bidu=B.K_Bidu AND A.RPJMDID='".$id_rpjmd."'");
|
|
|
|
return $aret;
|
|
}
|
|
|
|
|
|
?>
|