<?php

/*
 *
 * File ini bagian dari:
 *
 * OpenSID
 *
 * Sistem informasi desa sumber terbuka untuk memajukan desa
 *
 * Aplikasi dan source code ini dirilis berdasarkan lisensi GPL V3
 *
 * Hak Cipta 2009 - 2015 Combine Resource Institution (http://lumbungkomunitas.net/)
 * Hak Cipta 2016 - 2025 Perkumpulan Desa Digital Terbuka (https://opendesa.id)
 *
 * Dengan ini diberikan izin, secara gratis, kepada siapa pun yang mendapatkan salinan
 * dari perangkat lunak ini dan file dokumentasi terkait ("Aplikasi Ini"), untuk diperlakukan
 * tanpa batasan, termasuk hak untuk menggunakan, menyalin, mengubah dan/atau mendistribusikan,
 * asal tunduk pada syarat berikut:
 *
 * Pemberitahuan hak cipta di atas dan pemberitahuan izin ini harus disertakan dalam
 * setiap salinan atau bagian penting Aplikasi Ini. Barang siapa yang menghapus atau menghilangkan
 * pemberitahuan ini melanggar ketentuan lisensi Aplikasi Ini.
 *
 * PERANGKAT LUNAK INI DISEDIAKAN "SEBAGAIMANA ADANYA", TANPA JAMINAN APA PUN, BAIK TERSURAT MAUPUN
 * TERSIRAT. PENULIS ATAU PEMEGANG HAK CIPTA SAMA SEKALI TIDAK BERTANGGUNG JAWAB ATAS KLAIM, KERUSAKAN ATAU
 * KEWAJIBAN APAPUN ATAS PENGGUNAAN ATAU LAINNYA TERKAIT APLIKASI INI.
 *
 * @package   OpenSID
 * @author    Tim Pengembang OpenDesa
 * @copyright Hak Cipta 2009 - 2015 Combine Resource Institution (http://lumbungkomunitas.net/)
 * @copyright Hak Cipta 2016 - 2025 Perkumpulan Desa Digital Terbuka (https://opendesa.id)
 * @license   http://www.gnu.org/licenses/gpl.html GPL V3
 * @link      https://github.com/OpenSID/OpenSID
 *
 */

use App\Enums\JenisKelaminEnum;
use App\Enums\StatusEnum;
use App\Models\Wilayah;
use App\Traits\Upload;
use Illuminate\Support\Facades\DB;
use Modules\Analisis\Enums\AnalisisRefSubjekEnum;
use Modules\Analisis\Libraries\Analisis;
use Modules\Analisis\Libraries\Bdt;
use Modules\Analisis\Models\AnalisisIndikator;
use Modules\Analisis\Models\AnalisisMaster;
use Modules\Analisis\Models\AnalisisPeriode;
use Modules\Analisis\Models\AnalisisRespon;
use Modules\Analisis\Models\AnalisisResponBukti;

defined('BASEPATH') || exit('No direct script access allowed');

class AnalisisResponController extends AdminModulController
{
    use Upload;

    public $moduleName    = 'Analisis';
    public $modul_ini     = 'analisis';
    public $sub_modul_ini = 'analisis-respon';
    protected $periodeAktif;
    protected $analisisMaster;
    protected $subjekTipe;
    private $selectedMenu = 'Input Data';

    public function __construct()
    {
        parent::__construct();
        isCan('b');
        $master               = request()->segment(2);
        $this->analisisMaster = AnalisisMaster::findOrFail($master);

        $this->subjekTipe = match ($this->analisisMaster->subjek_tipe) {
            AnalisisRefSubjekEnum::PENDUDUK     => 'penduduk_id',
            AnalisisRefSubjekEnum::KELUARGA     => 'keluarga_id',
            AnalisisRefSubjekEnum::RUMAH_TANGGA => 'rtm_id',
            AnalisisRefSubjekEnum::KELOMPOK     => 'kelompok_id',
            AnalisisRefSubjekEnum::DESA         => 'desa_id',
            AnalisisRefSubjekEnum::DUSUN        => 'dusun_id',
            AnalisisRefSubjekEnum::RW           => 'rw_id',
            AnalisisRefSubjekEnum::RT           => 'rt_id',
        };

        if ($master) {
            $this->periodeAktif = AnalisisPeriode::whereIdMaster($master)->where(['aktif' => StatusEnum::YA])->first();
            if (! $this->periodeAktif) {
                redirect_with('error', 'Tidak ada periode aktif. Entri data respon harus ada periode aktif.', ci_route('analisis_periode', $master));
            }
        }
        view()->share([
            'selectedMenu'    => $this->selectedMenu,
            'analisis_master' => $this->analisisMaster,
        ]);
    }

    public function index($master)
    {
        $data = array_merge([
            'wilayah'     => Wilayah::treeAccess(),
            'namaPeriode' => $this->periodeAktif->nama,
        ], Analisis::judulSubjek($this->analisisMaster->subjek_tipe));

        return view('analisis::respon.index', $data);
    }

    public function datatables($master)
    {
        if (request()->ajax()) {
            $sumberData = $this->sumberData();

            return datatables()->of($sumberData)
                ->addIndexColumn()
                ->addColumn('aksi', static function ($row) use ($master): string {
                    $aksi = '';
                    if (can('u')) {
                        $aksi .= '<a href="' . ci_route("analisis_respon.{$master}.form", $row->id) . '" class="btn bg-purple btn-sm" title="Input Data"><i class="fa fa-check-square-o"></i></a>';
                    }
                    if ($row->bukti_pengesahan) {
                        $aksi .= ' <a href="' . base_url(LOKASI_PENGESAHAN . $row->bukti_pengesahan) . '" class="btn bg-olive btn-sm" title="Unduh Bukti Pengesahan" target="_blank"><i class="fa fa-paperclip"></i></a>';
                    }

                    return $aksi;
                })->editColumn('cek', static fn ($q) => '<img src="' . base_url('assets/images/icon/') . ($q->cek ? 'ok' : 'nok') . '.png">')
                ->editColumn('sex', static fn ($q) => JenisKelaminEnum::valueToUpper($q->sex))
                ->rawColumns(['ceklist', 'aksi', 'cek'])
                ->make();
        }

        return show_404();
    }

    public function form($master, $idSubjek)
    {
        isCan('u');
        $analisis            = new Analisis();
        $data['fullscreen']  = request()->get('fs') ?? null;
        $data['form_action'] = ci_route('analisis_respon.' . $master . '.update', $idSubjek);
        $data['idSubjek']    = $idSubjek;

        $data['subjek']       = $analisis->getSubjek($this->analisisMaster, $idSubjek) ?? show_404();
        $data['list_jawab']   = $analisis->listIndikator($this->analisisMaster, $this->periodeAktif->id, $idSubjek);
        $data['list_bukti']   = $analisis->listBukti($this->analisisMaster, $this->periodeAktif->id, $idSubjek);
        $data['list_anggota'] = $analisis->listAnggota($this->analisisMaster, $idSubjek);
        $data['perbaharui']   = ci_route('analisis_respon.' . $master . '.perbaharui', $idSubjek);

        return view('analisis::respon.form', $data);
    }

    public function update($master, $idSubjek): void
    {
        isCan('u');
        DB::beginTransaction();

        try {
            if (! empty($_FILES['pengesahan']['name'])) {
                $per                     = $this->periodeAktif->id;
                $namaFile                = implode('_', [$master, $per, $idSubjek, random_int(10000, 99999)]) . '.jpg';
                $config['upload_path']   = LOKASI_PENGESAHAN;
                $config['allowed_types'] = 'jpg|jpeg';
                $config['max_size']      = 1024;
                $config['file_name']     = $namaFile;

                $namaFile                 = $this->upload('pengesahan', $config, ci_route('analisis_respon.' . $master . '.form', $idSubjek));
                $bukti['pengesahan']      = $namaFile;
                $bukti['id_master']       = $master;
                $bukti['id_subjek']       = $idSubjek;
                $bukti[$this->subjekTipe] = $idSubjek;
                $bukti['id_periode']      = $per;
                $bukti                    = AnalisisResponBukti::firstOrCreate($bukti);
                $bukti->pengesahan        = $namaFile;
                $bukti->save();
            }
            AnalisisRespon::updateKuisioner($master, $this->periodeAktif->id, $_POST, $idSubjek, $this->subjekTipe);
            DB::commit();
            redirect_with('success', 'Berhasil Simpan Data Kuisioner', ci_route('analisis_respon.' . $master . '.form', $idSubjek));
        } catch (Exception $e) {
            DB::rollBack();
            log_message('error', $e);
            redirect_with('error', 'Gagal Ubah Data Kuisioner ' . $e->getMessage(), ci_route('analisis_respon.' . $master . '.form', $idSubjek));
        }
    }

    public function perbaharui($master, $idSubjek): void
    {
        isCan('u');
        AnalisisRespon::where('id_subjek', $idSubjek)->whereIn('id_indikator', static fn ($q) => $q->select('id')->from('analisis_indikator')->where(['id_master' => $master]))->delete();
        redirect(ci_route('analisis_respon.' . $master . '.form', $idSubjek));
    }

    public function dataAjax()
    {
        $data['analisis_master'] = $this->analisisMaster;

        return view('analisis::respon.import.data_ajax', $data);
    }

    /**
     * Unduh data analisis respon
     *
     * @param int   $tipe   | 1. Dengan isian data, 2. Dengan kode isian
     * @param mixed $master
     */
    public function dataUnduh($master)
    {
        $paramDatatable      = json_decode((string) request('params'), 1);
        $_GET                = $paramDatatable;
        $tipe                = request('tipe', 1);
        $data['subjek_tipe'] = $this->analisisMaster->subjek_tipe;
        $data['main']        = $this->sumberData()->get()->map(function ($item) {

            $par = AnalisisRespon::selectRaw('kode_jawaban, asign, jawaban, analisis_respon.id_indikator, analisis_respon.id_parameter AS korek')
                ->from('analisis_respon')
                ->join('analisis_parameter', 'analisis_parameter.id', '=', 'analisis_respon.id_parameter')
                ->where('analisis_respon.id_periode', $this->periodeAktif->id)
                ->where('analisis_respon.id_subjek', $item->id)
                ->orderBy('analisis_respon.id_indikator')
                ->get()
                ->toArray();
            $item['par'] = $par;

            return $item;
        })->toArray();
        $data['periode']   = $this->periodeAktif->id;
        $data['indikator'] = AnalisisIndikator::indikatorUnduh($master);
        $data['tipe']      = $tipe;
        $key               = ($data['periode'] + 3) * ($this->analisisMaster->id + 7) * ($this->analisisMaster->subjek_tipe * 3);
        $data['key']       = 'AN' . $key;

        $data['span_kolom'] = match ($this->analisisMaster->subjek_tipe) {
            5, 6 => 3,
            7       => 5,
            8       => 6,
            default => 7,
        };
        $data['judul'] = Analisis::judulSubjek($this->analisisMaster->subjek_tipe);

        return view('analisis::respon.import.data_unduh', $data);
    }

    public function import($master, $op = 0)
    {
        isCan('u');
        $data['form_action'] = ci_route("analisis_respon.{$master}.import_proses", $op);

        return view('analisis::respon.import.import', $data);
    }

    public function importProses($master, $op = 0): void
    {
        isCan('u');
        $periode    = $this->periodeAktif->id;
        $subjekTipe = $this->analisisMaster->subjek_tipe;
        $mapSubjek  = $this->subjekTipe;
        DB::beginTransaction();

        try {
            $result = (new AnalisisRespon())->import_respon($master, $periode, $subjekTipe, $op, $mapSubjek);
            DB::commit();
            redirect_with('success', 'Data berhasil diimpor', ci_route('analisis_respon.' . $master));

            if ($result['success'] === false) {
                redirect_with('error', "Data gagal diimpor {$result['pesan']}", ci_route("analisis_respon.{$master}"));
            }
        } catch (Exception $e) {
            DB::rollBack();
            redirect_with('error', "Data gagal diimpor {$result['pesan']} {$e->getMessage()}", ci_route("analisis_respon.{$master}"));
        }
    }

    public function formImporBdt($master)
    {
        isCan('u');
        $data['form_action']     = ci_route("analisis_respon.{$master}.impor_bdt");
        $data['analisis_master'] = $this->analisisMaster;
        $data['formatImpor']     = ci_route('unduh', encrypt(DEFAULT_LOKASI_IMPOR . 'contoh-data-bdt2015.xlsx'));

        return view('analisis::respon.import.impor_bdt', $data);
    }

    public function imporBdt($master): void
    {
        isCan('u');
        DB::beginTransaction();

        try {
            (new Bdt($master, $this->periodeAktif->id, $this->subjekTipe))->impor();
            DB::commit();
            redirect_with('success', 'Data berhasil diimpor', ci_route('analisis_respon.' . $master));
        } catch (Exception $e) {
            DB::rollBack();
            redirect_with('error', 'Data gagal diimpor ' . $e->getMessage(), ci_route('analisis_respon.' . $master));
        }
    }

    private function sumberData()
    {
        $dusun = request()->get('dusun') ?? null;
        $rw    = request()->get('rw') ?? null;
        $rt    = request()->get('rt') ?? null;
        $isi   = request()->get('isi') ?? null;

        $idCluster = $rt ? [$rt] : [];

        if (empty($idCluster) && ! empty($rw)) {
            [$namaDusun, $namaRw] = explode('__', $rw);
            $idCluster            = Wilayah::whereDusun($namaDusun)->whereRw($namaRw)->select(['id'])->get()->pluck('id')->toArray();
        }

        if (empty($idCluster) && ! empty($dusun)) {
            $idCluster = Wilayah::whereDusun($dusun)->select(['id'])->get()->pluck('id')->toArray();
        }

        $analisisMaster   = $this->analisisMaster;
        $analisSumberData = Analisis::sumberData($analisisMaster->subjek_tipe, $idCluster);
        $utama            = $analisSumberData['utama'];
        $sumber           = $analisSumberData['sumber'];

        $sumber->selectRaw('(SELECT a.id_subjek FROM analisis_respon a WHERE a.id_subjek = ' . $utama . ".id AND a.id_periode = {$this->periodeAktif->id} LIMIT 1) as cek")
            ->selectRaw("(SELECT b.pengesahan FROM analisis_respon_bukti b WHERE b.id_master = {$analisisMaster->id} AND b.id_periode = {$this->periodeAktif->id} AND b.id_subjek = " . $utama . '.id limit 1) as bukti_pengesahan');

        if ($isi) {
            switch($isi) {
                case 1:
                    $sumber->whereRaw("(SELECT COUNT(id_subjek) FROM analisis_respon_hasil WHERE id_subjek = {$utama}.id AND id_periode = {$this->periodeAktif->id}) > 0");
                    break;

                case 2:
                    $sumber->whereRaw("(SELECT COUNT(id_subjek) FROM analisis_respon_hasil WHERE id_subjek = {$utama}.id AND id_periode = {$this->periodeAktif->id}) = 0");
                    break;
            }
        }

        return $sumber;
    }
}
