Query("SELECT Tahun FROM para_periode WHERE Tahun IN (SELECT Tahun FROM sapi_keg) ORDER BY Tahun");
while ($fdb->Next()){
$atahun[$fdb->Row("Tahun")] = $prefix . $fdb->Row("Tahun");
}
return $atahun;
}
function map_tahun_submap($thn_map = 0) {
$amap = [2021 => 2022, 2024 => 2025];
return $amap[$thn_map] ?? $thn_map;
}
function Kolom_Status1($err = 0) {
$stat = ''.$err.'';
if ($err == 0) $stat = '';
return $stat;
}
function Kolom_Status2($err = 0) {
$stat = '';
if ($err == 0) $stat = '';
return $stat;
}
function Kegiatan_Baru($tahun = 0, $kd_jenis = "R") {
global $fdb;
$ino = 0;
$fdb->Query("SELECT MAX(RIGHT(Kode,6)) Nomor FROM sapi_keg WHERE Tahun='".$tahun."' AND Kode LIKE '".$kd_jenis.substr($tahun,-2)."%'");
if ($fdb->Next()) $ino = (int)$fdb->Row("Nomor", 0);
return $kd_jenis.substr($tahun,-2).isi_nol(++$ino, 6);
}
?>