first commit

2026-06-07 14:39:54 +07:00
commit 74f29bf756
104 changed files with 26026 additions and 0 deletions
@@ -0,0 +1,89 @@
+<?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;
+}
+
+
+?>