<?php

include_once __DIR__.'/../../core.php';

include $docroot.'/modules/articoli/modutil.php';

$module = Modules::getModule($id_module);

if ($module['name'] == 'Ordini cliente') {
    $dir = 'entrata';
} else {
    $dir = 'uscita';
}

switch (post('op')) {
    case 'add':
        $idanagrafica = post('idanagrafica');

        $data = $post['data'];

        // Leggo se l'ordine è cliente o fornitore
        $rs = $dbo->fetchArray('SELECT id FROM or_tipiordine WHERE dir='.prepare($dir));
        $idtipoordine = $rs[0]['id'];

        if (isset($post['idanagrafica'])) {
            $numero = get_new_numeroordine($data);
            if ($dir == 'entrata') {
                $numero_esterno = get_new_numerosecondarioordine($data);
            } else {
                $numero_esterno = '';
            }

            $campo = ($dir == 'entrata') ? 'idpagamento_vendite' : 'idpagamento_acquisti';

            // Tipo di pagamento predefinito dall'anagrafica
            $query = 'SELECT id FROM co_pagamenti WHERE id=(SELECT '.$campo.' AS pagamento FROM an_anagrafiche WHERE idanagrafica='.prepare($idanagrafica).')';
            $rs = $dbo->fetchArray($query);
            $idpagamento = $rs[0]['id'];

            // Se l'ordine è un ordine cliente e non è stato associato un pagamento predefinito al cliente leggo il pagamento dalle impostazioni
            if ($dir == 'entrata' && $idpagamento == '') {
                $idpagamento = get_var('Tipo di pagamento predefinito');
            }

            $query = 'INSERT INTO or_ordini( numero, numero_esterno, idanagrafica, idtipoordine, idpagamento, data, idstatoordine ) VALUES ( '.prepare($numero).', '.prepare($numero_esterno).', '.prepare($idanagrafica).', '.prepare($idtipoordine).', '.prepare($idpagamento).', '.prepare($data).", (SELECT `id` FROM `or_statiordine` WHERE `descrizione`='Non evaso') )";
            $dbo->query($query);

            $id_record = $dbo->lastInsertedID();

            $_SESSION['infos'][] = str_replace('_NUM_', $numero, _('Aggiunto ordine numero _NUM_!'));
        }
        break;

    case 'update':
        if ($id_record != '') {
            $numero_esterno = post('numero_esterno');
            $numero = post('numero');
            $data = $post['data'];
            $idanagrafica = post('idanagrafica');
            $note = post('note');
            $idstatoordine = post('idstatoordine');
            $idpagamento = post('idpagamento');
            $idsede = post('idsede');
            $idconto = post('idconto');
            $idagente = post('idagente');
            $totale_imponibile = get_imponibile_ordine($id_record);
            $totale_ordine = get_totale_ordine($id_record);

            $tipo_sconto = $post['tipo_sconto_generico'];
            $sconto = $post['sconto_generico'];

            if ($dir == 'uscita') {
                $idrivalsainps = post('idrivalsainps');
                $idritenutaacconto = post('idritenutaacconto');
                $bollo = post('bollo');
            } else {
                $idrivalsainps = 0;
                $idritenutaacconto = 0;
                $bollo = 0;
            }

            // Leggo la descrizione del pagamento
            $query = 'SELECT descrizione FROM co_pagamenti WHERE id='.prepare($idpagamento);
            $rs = $dbo->fetchArray($query);
            $pagamento = $rs[0]['descrizione'];

            // Query di aggiornamento
            $query = 'UPDATE or_ordini SET idanagrafica='.prepare($idanagrafica).','.
                ' numero='.prepare($numero).','.
                ' data='.prepare($data).','.
                ' idagente='.prepare($idagente).','.
                ' idstatoordine='.prepare($idstatoordine).','.
                ' idpagamento='.prepare($idpagamento).','.
                ' idsede='.prepare($idsede).','.
                ' numero_esterno='.prepare($numero_esterno).','.
                ' note='.prepare($note).','.
                ' idconto='.prepare($idconto).','.
                ' idrivalsainps='.prepare($idrivalsainps).','.
                ' idritenutaacconto='.prepare($idritenutaacconto).','.
                ' tipo_sconto_globale='.prepare($tipo_sconto).','.
                ' sconto_globale='.prepare($sconto).','.
                ' bollo=0, rivalsainps=0, ritenutaacconto=0 WHERE id='.prepare($id_record);

            if ($dbo->query($query)) {
                $dbo->query("DELETE FROM or_righe_ordini WHERE descrizione LIKE '%SCONTO%' AND idordine=".prepare($id_record));

                // Sconto unitario, quello percentuale viene gestito a fondo pagina
                if ($tipo_sconto == 'UNT' && $sconto > 0) {
                    $subtotale = -$sconto;

                    // Calcolo anche l'iva da scontare
                    $rsi = $dbo->fetchArray('SELECT descrizione, percentuale FROM co_iva WHERE id='.prepare(get_var('Iva predefinita')));
                    $iva = $subtotale / 100 * $rsi[0]['percentuale'];

                    $dbo->query('INSERT INTO or_righe_ordini(idordine, descrizione, idiva, desc_iva, iva, subtotale, sconto, qta, idgruppo, `order`) VALUES( '.prepare($id_record).", 'SCONTO', ".prepare($idiva).', '.prepare($rsi[0]['descrizione']).', '.prepare($iva).', '.prepare($subtotale).', 0, 1, (SELECT IFNULL(MAX(`idgruppo`) + 1, 0) FROM or_righe_ordini AS t WHERE idordine='.prepare($id_record).'), (SELECT IFNULL(MAX(`order`) + 1, 0) FROM or_righe_ordini AS t WHERE idordine='.prepare($id_record).'))');
                }

                $query = 'SELECT descrizione FROM or_statiordine WHERE id='.prepare($idstatoordine);
                $rs = $dbo->fetchArray($query);

                // Ricalcolo inps, ritenuta e bollo (se l'ordine non è stato evaso)
                if ($dir == 'entrata') {
                    if ($rs[0]['descrizione'] != 'Pagato') {
                        ricalcola_costiagg_ordine($id_record);
                    }
                } else {
                    if ($rs[0]['descrizione'] != 'Pagato') {
                        ricalcola_costiagg_ordine($id_record, $idrivalsainps, $idritenutaacconto, $bollo);
                    }
                }

                $_SESSION['infos'][] = _('Ordine modificato correttamente!');
            }
        }
        break;

    case 'addarticolo':
        if ($id_record != '' && isset($post['idarticolo'])) {
            $idarticolo = post('idarticolo');
            $idiva = post('idiva');
            $descrizione = post('descrizione');
            $qta = post('qta');
            $prezzo_vendita = post('prezzo');

            // Calcolo dello sconto
            $sconto_unitario = $post['sconto'];
            $tipo_sconto = $post['tipo_sconto'];
            $sconto = ($tipo_sconto == 'PRC') ? ($prezzo * $sconto_unitario) / 100 : $sconto_unitario;
            $sconto = $sconto * $qta;

            // Calcolo idgruppo per questo inserimento
            $ridgruppo = $dbo->fetchArray('SELECT IFNULL(MAX(idgruppo) + 1, 0) AS idgruppo FROM or_righe_ordini WHERE idordine = '.prepare($id_record));
            $idgruppo = $ridgruppo[0]['idgruppo'];

            add_articolo_inordine($id_record, $idarticolo, $descrizione, $idiva, $qta, $prezzo_vendita * $qta, $sconto, $sconto_unitario, $tipo_sconto, '', '', '', $idgruppo);

            $_SESSION['infos'][] = _('Articolo aggiunto!');
        }
        ricalcola_costiagg_ordine($id_record);
        break;

    case 'addriga':
        if ($id_record != '') {
            // Selezione costi da intervento
            $descrizione = post('descrizione');
            $prezzo = post('prezzo');
            $qta = post('qta');
            $idiva = post('idiva');
            $um = post('um');
            $subtot = $prezzo * $qta;

            // Calcolo dello sconto
            $sconto_unitario = $post['sconto'];
            $tipo_sconto = $post['tipo_sconto'];
            $sconto = ($tipo_sconto == 'PRC') ? ($prezzo * $sconto_unitario) / 100 : $sconto_unitario;
            $sconto = $sconto * $qta;

            // Calcolo iva
            $query = 'SELECT descrizione, percentuale, indetraibile FROM co_iva WHERE id='.prepare($idiva);
            $rs = $dbo->fetchArray($query);
            $iva = ($subtot - $sconto) / 100 * $rs[0]['percentuale'];
            $iva_indetraibile = $iva / 100 * $rs[0]['indetraibile'];

            $query = 'INSERT INTO or_righe_ordini(idordine, idiva, desc_iva, iva, iva_indetraibile, descrizione, subtotale, sconto, sconto_unitario, tipo_sconto, um, qta, idgruppo, `order`) VALUES('.prepare($id_record).', '.prepare($idiva).', '.prepare($rs[0]['descrizione']).', '.prepare($iva).', '.prepare($iva_indetraibile).', '.prepare($descrizione).', '.prepare($subtot).', '.prepare($sconto).', '.prepare($sconto_unitario).', '.prepare($tipo_sconto).', '.prepare($um).', '.prepare($qta).', (SELECT IFNULL(MAX(`idgruppo`) + 1, 0) FROM or_righe_ordini AS t WHERE idordine='.prepare($id_record).'), (SELECT IFNULL(MAX(`order`) + 1, 0) FROM or_righe_ordini AS t WHERE idordine='.prepare($id_record).'))';

            if ($dbo->query($query)) {
                $_SESSION['infos'][] = _('Riga aggiunta!');

                // Ricalcolo inps, ritenuta e bollo
                if ($dir == 'entrata') {
                    ricalcola_costiagg_ordine($id_record);
                } else {
                    ricalcola_costiagg_ordine($id_record);
                }
            }
        }
        break;

    // Scollegamento articolo da ordine
    case 'unlink_articolo':
        $idarticolo = post('idarticolo');
        $idriga = post('idriga');

        if ($id_record != '' && $idarticolo != '') {
            rimuovi_articolo_daordine($idarticolo, $id_record, $idriga);

            // if( $dbo->query($query) ){
                // Ricalcolo inps, ritenuta e bollo
            if ($dir == 'entrata') {
                ricalcola_costiagg_ordine($id_record);
            } else {
                ricalcola_costiagg_ordine($id_record, 0, 0, 0);
            }

            $_SESSION['infos'][] = _('Articolo rimosso!');
        }

        break;

    // Scollegamento riga generica da ordine
    case 'unlink_riga':
        $idriga = post('idriga');

        if ($id_record != '' && $idriga != '') {
            $query = 'DELETE FROM or_righe_ordini WHERE idordine='.prepare($id_record).' AND id='.prepare($idriga);

            $dbo->query($query);

            // Ricalcolo inps, ritenuta e bollo
            if ($dir == 'entrata') {
                ricalcola_costiagg_ordine($id_record);
            } else {
                ricalcola_costiagg_ordine($id_record, 0, 0, 0);
            }

            $_SESSION['infos'][] = _('Riga rimossa!');
        }
        break;

    // Modifica riga
    case 'editriga':
        if (isset($post['idriga'])) {
            $idriga = post('idriga');
            $descrizione = post('descrizione');
            $prezzo = post('prezzo');
            $qta = post('qta');
            $idiva = post('idiva');
            $um = post('um');
            $subtot = $prezzo * $qta;

            // Calcolo dello sconto
            $sconto_unitario = $post['sconto'];
            $tipo_sconto = $post['tipo_sconto'];
            $sconto = ($tipo_sconto == 'PRC') ? ($prezzo * $sconto_unitario) / 100 : $sconto_unitario;
            $sconto = $sconto * $qta;

            // Calcolo iva
            $query = 'SELECT * FROM co_iva WHERE id='.prepare($idiva);
            $rs = $dbo->fetchArray($query);
            $iva = ($subtot - $sconto) / 100 * $rs[0]['percentuale'];
            $iva_indetraibile = $iva / 100 * $rs[0]['indetraibile'];
            $desc_iva = $rs[0]['descrizione'];

            // Lettura idarticolo dalla riga documento
            $rs = $dbo->fetchArray('SELECT idgruppo, idordine, idarticolo, qta, abilita_serial FROM or_righe_ordini WHERE id='.prepare($idriga));
            $idarticolo = $rs[0]['idarticolo'];
            $old_qta = $rs[0]['qta'];
            $idgruppo = $rs[0]['idgruppo'];
            $idordine = $rs[0]['idordine'];
            $abilita_serial = $rs[0]['abilita_serial'];

            // Modifica riga generica sul documento
            $query = 'UPDATE or_righe_ordini SET idiva='.prepare($idiva).', desc_iva='.prepare($rs[0]['descrizione']).', iva='.prepare($iva).', iva_indetraibile='.prepare($iva_indetraibile).', descrizione='.prepare($descrizione).', subtotale='.prepare($subtot).', sconto='.prepare($sconto).', sconto_unitario='.prepare($sconto_unitario).', tipo_sconto='.prepare($tipo_sconto).', um='.prepare($um).' WHERE idgruppo='.prepare($idgruppo).' AND idordine='.prepare($idordine);
            if ($dbo->query($query)) {
                // Modifica della quantità
                $dbo->query('UPDATE or_righe_ordini SET qta='.prepare($qta).' WHERE idgruppo='.prepare($idgruppo));

                // Modifica per gestire i serial
                if (!empty($idarticolo)) {
                    $new_qta = $qta - $old_qta;
                    $new_qta = ($old_qta < $qta) ? $new_qta : -$new_qta;

                    if (!empty($abilita_serial)) {
                        if ($old_qta < $qta) {
                            for ($i = 0; $i < $new_qta; ++$i) {
                                $dbo->query('INSERT INTO or_righe_ordini(idordine, idarticolo, idconto, idiva, desc_iva, iva, iva_indetraibile, descrizione, subtotale, sconto, sconto_unitario, tipo_sconto, um, qta, idgruppo, `order`) SELECT idordine, idarticolo, idconto, idiva, desc_iva, iva, iva_indetraibile, descrizione, subtotale, sconto, sconto_unitario, tipo_sconto, um, qta, idgruppo, `order` FROM or_righe_ordini WHERE id='.prepare($idriga));
                            }
                        } else {
                            if ($dir == 'uscita') {
                                if ($new_qta > $dbo->fetchArray("SELECT COUNT(*) AS rimovibili FROM or_righe_ordini WHERE serial NOT IN (SELECT serial FROM vw_serials WHERE dir = 'entrata') AND idgruppo=".prepare($idgruppo).' AND idordine='.prepare($idordine))[0]['rimovibili']) {
                                    $_SESSION['errors'][] = _('Alcuni serial number sono già stati utilizzati!');

                                    return;
                                } else {
                                    $deletes = $dbo->fetchArray('SELECT id FROM or_righe_ordini AS t WHERE idgruppo = '.prepare($idgruppo).' AND idordine='.prepare($idordine)." AND serial NOT IN (SELECT serial FROM vw_serials WHERE dir = 'entrata') ORDER BY serial ASC LIMIT ".$new_qta);
                                }
                            } else {
                                $deletes = $dbo->fetchArray('SELECT id FROM or_righe_ordini AS t WHERE idgruppo = '.prepare($idgruppo).' AND idordine='.prepare($idordine).' ORDER BY serial ASC LIMIT '.$new_qta);
                            }

                            foreach ((array) $deletes as $delete) {
                                $dbo->query('DELETE FROM or_righe_ordini WHERE id = '.prepare($delete['id']));
                            }
                        }
                    }
                }

                $_SESSION['infos'][] = _('Riga modificata!');

                // Ricalcolo inps, ritenuta e bollo
                if ($dir == 'entrata') {
                    ricalcola_costiagg_ordine($id_record);
                } else {
                    ricalcola_costiagg_ordine($id_record);
                }
            }
        }
        break;

    // eliminazione ordine
    case 'delete':
        if ($dir == 'uscita') {
            $non_rimovibili = $dbo->fetchArray("SELECT COUNT(*) AS non_rimovibili FROM or_righe_ordini WHERE serial IN (SELECT serial FROM vw_serials WHERE dir = 'entrata') AND idordine=".prepare($id_record))[0]['non_rimovibili'];
            if ($non_rimovibili != 0) {
                $_SESSION['errors'][] = _('Alcuni serial number sono già stati utilizzati!');

                return;
            }
        }

        $dbo->query('DELETE FROM or_ordini WHERE id='.prepare($id_record));
        $dbo->query('DELETE FROM or_righe_ordini WHERE idordine='.prepare($id_record));
        $_SESSION['infos'][] = _('Ordine eliminato!');

        break;

    case 'add_serial':
        $idgruppo = $post['idgruppo'];
        $serial = $post['serial'];

        $q = 'SELECT * FROM or_righe_ordini WHERE idordine='.prepare($id_record).' AND idgruppo='.prepare($idgruppo).' ORDER BY id';
        $rs = $dbo->fetchArray($q);

        foreach ($rs as $i => $r) {
            $dbo->query('UPDATE or_righe_ordini SET serial='.prepare($serial[$i]).' WHERE id='.prepare($r['id']));
        }

        break;

    case 'update_position':
        $start = filter('start');
        $end = filter('end');
        $id = filter('id');

        if ($start > $end) {
            $dbo->query('UPDATE `or_righe_ordini` SET `order`=`order` + 1 WHERE `order`>='.prepare($end).' AND `order`<'.prepare($start).' AND `idordine`='.prepare($id_record));
            $dbo->query('UPDATE `or_righe_ordini` SET `order`='.prepare($end).' WHERE id='.prepare($id));
        } elseif ($end != $start) {
            $dbo->query('UPDATE `or_righe_ordini` SET `order`=`order` - 1 WHERE `order`>'.prepare($start).' AND `order`<='.prepare($end).' AND `idordine`='.prepare($id_record));
            $dbo->query('UPDATE `or_righe_ordini` SET `order`='.prepare($end).' WHERE id='.prepare($id));
        }

        break;
}

if (post('op') !== null) {
    $rs_sconto = $dbo->fetchArray('SELECT sconto_globale, tipo_sconto_globale FROM or_ordini WHERE id='.prepare($id_record));

    // Aggiorno l'eventuale sconto gestendolo con le righe in fattura
    if ($rs_sconto[0]['tipo_sconto_globale'] == 'PRC' && !empty($rs_sconto[0]['sconto_globale'])) {
        // Se lo sconto c'è già lo elimino e lo ricalcolo
        $dbo->query("DELETE FROM or_righe_ordini WHERE descrizione LIKE '%SCONTO %' AND idordine=".prepare($id_record));

        $subtotale = get_imponibile_ordine($id_record);
        $subtotale = -$subtotale / 100 * $rs_sconto[0]['sconto_globale'];

        // Calcolo anche l'iva da scontare
        $rsi = $dbo->fetchArray('SELECT descrizione, percentuale FROM co_iva WHERE id='.prepare(get_var('Iva predefinita')));
        $iva = $subtotale / 100 * $rsi[0]['percentuale'];

        $descrizione = 'SCONTO '.Translator::numberToLocale($rs_sconto[0]['sconto_globale']).'%';

        $dbo->query('INSERT INTO or_righe_ordini(idordine, descrizione, idiva, desc_iva, iva, subtotale, sconto, qta, idgruppo, `order`) VALUES( '.prepare($id_record).', '.prepare($descrizione).', '.prepare($idiva).', '.prepare($rsi[0]['descrizione']).', '.prepare($iva).', '.prepare($subtotale).', 0, 1, (SELECT IFNULL(MAX(`idgruppo`) + 1, 0) FROM or_righe_ordini AS t WHERE idordine='.prepare($id_record).'), (SELECT IFNULL(MAX(`order`) + 1, 0) FROM or_righe_ordini AS t WHERE idordine='.prepare($id_record).'))');
    }
}