<?php

/*******************************************************************

    Module        : /apps/php/api/rpjmd.php
    Desc.         : PHP - Fungsi RPJMD
    Created By    : Siau Pheng (siaupheng@3fonia.com).
    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;
}


?>