first commit

2026-06-07 14:39:54 +07:00
commit 74f29bf756
104 changed files with 26026 additions and 0 deletions
@@ -0,0 +1,90 @@
+<?php
+
+/*******************************************************************
+
+    Module        : /apps/php/api/asmas
+    Created By    : Siau Pheng ([email protected]).
+    Created Date  : January 31st, 2026.
+
+    (c) 2026, 3FONIA Software; WWW.3FONIA.COM.
+
+*******************************************************************/
+
+require_once(__DIR__."/../../../../../vendor/autoload.php");
+require_once(__DIR__."/../func.sippd.php");
+
+use siaupheng\fonia3\Web\Param;
+
+function singkron_asmas($db = null) {
+    $aret = ['status' => "success", 'message' => 'Berhasil singkron data!'];
+    $aasmas = [];
+
+    $tahun = Param::Get("tahun_anggaran", 0);
+    $id_asmas = Param::Get("id_asmas", 0);
+    $adata = json_decode(stripslashes(html_entity_decode($_POST['asmas'])), true);
+    if ($id_asmas > 0) {
+        $db->Query("SELECT * FROM para_asmas WHERE SIPD_UserID='".$id_asmas."' LIMIT 1");
+        if ($db->Next()) $aasmas = $db->AllRow();
+    }
+
+    //ambil dari db : alamat, koefisien, masalah, kamusid
+    $aasmas_db = [];
+    $db->Query("SELECT U.UsulanLID,MD5(CONCAT(IFNULL(J.N_Jalan,U.Lokasi),' RT. ',U.RT,', ',U.Dusun,U.Masalah,IFNULL(K.KamusID,0))) Kode_MD5 FROM (SELECT * FROM mus_usulan WHERE Tahun='".$tahun."' AND KecID='".$aasmas['KecID']."' AND KelID='".$aasmas['KelID']."') U LEFT JOIN para_jalan J ON (J.JalanID=U.JalanID) LEFT JOIN (SELECT * FROM i_submap WHERE Tahun='".$tahun."') M ON (M.Lama_SubID=U.SubID) LEFT JOIN (SELECT * FROM mus_kamus WHERE Tahun='".$tahun."') K ON (K.OPDID=U.OPDID AND K.ProgID=M.ProgID) ORDER BY U.Kode");
+    while ($db->Next()) {
+        $aasmas_db[$db->Row("UsulanLID")] = $db->Row("Kode_MD5");
+    }
+
+    // tanpa : koefisien
+    foreach ($adata as $_key1 => $ausul) {
+        $tmp_md5 = md5($ausul['alamat_teks'].$ausul['masalah'].$ausul['id_kamus']);
+        foreach ($aasmas_db as $id_usul => $k_md5) {
+            if ($tmp_md5 === $k_md5) {
+                fastUpdate("mus_usulan", ['SIPD_UsulanID'=>$ausul['id_usulan']], ['UsulanLID'=>$id_usul]);
+                break;
+            }
+        }
+    }
+    return $aret;
+}
+
+function ambil_asmas($db = null) {
+    $aret = ['status' => "success", 'message' => 'Berhasil mendapatkan data!', 'action' => $_POST['action'], 'run' => $_POST['run'], 'data' => []];
+    $aasmas = [];
+
+    $tahun = Param::Get("tahun_anggaran", 0);
+    $id_asmas = Param::Get("id_asmas", 0);
+    if ($id_asmas > 0) {
+        $db->Query("SELECT * FROM para_asmas WHERE SIPD_UserID='".$id_asmas."' LIMIT 1");
+        if ($db->Next()) $aasmas = $db->AllRow();
+    }
+
+    $data_asmas = [];
+    $tsql = (count($aasmas)==0) ? "" : " AND KecID='".$aasmas['KecID']."' AND KelID='".$aasmas['KelID']."'";
+    $db->Query("SELECT U.Kode,U.Masalah,M.ProgID,M.Lama_ProgID,O.SIPD_Unit,O.N_OPD,K.KamusID,K.Uraian N_Kamus,K.Bidu N_Bidu,D.SIPD_DESA,D.SIPD_KEC,CONCAT(IFNULL(J.N_Jalan,U.Lokasi),' RT. ',U.RT,', ',U.Dusun) Alamat,U.Volume,S.N_Satuan,K.IsuID,U.SIPD_UsulanID FROM (SELECT OPDID,SubID,KelID,JalanID,Lokasi,RT,Dusun,Masalah,Volume,SatuanID,Kode,SIPD_UsulanID FROM mus_usulan WHERE Tahun='".$tahun."'".$tsql.") U LEFT JOIN para_jalan J ON (J.JalanID=U.JalanID) LEFT JOIN (SELECT * FROM i_submap WHERE Tahun='".$tahun."') M ON (M.Lama_SubID=U.SubID) LEFT JOIN (SELECT * FROM mus_kamus WHERE Tahun='".$tahun."') K ON (K.OPDID=U.OPDID AND K.ProgID=M.ProgID) LEFT JOIN vi_para_desa D ON (D.DesaID=U.KelID) LEFT JOIN para90_opd O ON (O.OPDID=U.OPDID) LEFT JOIN para_satuan S ON (U.SatuanID=S.SatuanID) ORDER BY U.Kode");
+    while ($db->Next()) {
+        $data_asmas[] = [
+            'kode' => $db->Row("Kode"),
+            'id_usulan' => $db->Row("SIPD_UsulanID"),
+            'id_kamus' => $db->Row("KamusID"),
+            'nama_kamus' => $db->Row("N_Kamus"),
+            'nama_bidang_urusan' => $db->Row("N_Bidu"),
+            'id_program' => $db->Row("IsuID"),//update program_id
+            'id_skpd' => $db->Row("SIPD_Unit"),
+            'nama_skpd' => $db->Row("N_OPD"),
+            'alamat_teks' => substr(str_replace("'","\'",$db->Row("Alamat")), 0, 255),
+            'volume' => $db->Row("Volume"),
+            'satuan' => $db->Row("N_Satuan"),
+            'id_kecamatan' => $db->Row("SIPD_KEC"),
+            'id_kelurahan' => $db->Row("SIPD_DESA"),
+            'masalah' => substr($db->Row("Masalah"), 0, 255)
+        ];
+    }
+
+    if (!empty($data_asmas)) {
+        $aret['data'] = $data_asmas;
+    }
+
+    return $aret;
+}
+
+?>