fixed penomoran usulan TJSLP

2026-01-30 14:45:04 +07:00
parent 9f9d4053fe
commit f7889aff1a
3 changed files with 28 additions and 4 deletions
@@ -69,4 +69,28 @@ function MusPrio_Array() {
    return [0=>"0", 1=>"1", 2=>"2", 3=>"3", 4=>"4", 5=>"5"];
 }

+/*******  TJSLP  *******/
+
+function ID_Usulan_TJSLP($id_rpjmd = 0, $tahun = 0) {
+    global $fdb;
+    $ino = 1;
+    $fdb->Query("SELECT MAX(UsulanLID)+1 Nomor FROM mus_usulan_tjslp WHERE RPJMDID='".$id_rpjmd."' AND Tahun='".$tahun."'");
+    if ($fdb->Next()) $ino = $fdb->Row("Nomor", 1);
+    return $ino;
+}
+
+function Kode_Usulan_TJSLP($tahun = 0, $id_desa = 0) {
+    global $fdb;
+    $k_desa = "000";
+    if ($id_desa > 0) {
+        $fdb->Query("SELECT K_Lokasi FROM para_lokasi WHERE LokasiID='".$id_desa."' LIMIT 1");
+        if ($fdb->Next()) $k_desa = $fdb->Row("K_Lokasi");
+    }
+    $tno = $k_desa . "-T"; $ino = 0;
+    $fdb->Query("SELECT MAX(RIGHT(Kode,3)) Nomor FROM mus_usulan_tjslp WHERE Tahun='".$tahun."' AND Kode LIKE '".$tno."%'");
+    if ($fdb->Next()) $ino = (int)$fdb->Row("Nomor", 0);
+    $tno .= isi_nol(++$ino, 3);
+    return $tno;
+}
+
 ?>