<?php
/*
 * Copyright 2005-2017 de Solis Soluções Livres Ltda.
 *
 * Este arquivo é parte do programa Gnuteca.
 *
 * O Gnuteca é um software de propriedade da SOLIS, sendo desenvolvido
 * e mantido exclusivamente por esta empresa.
 *
 * A licença de uso está disponível mediante aquisição exclusiva junto à
 * SOLIS. A licença é concedida sem caráter de exclusividade ao licenciado.
 * Os direitos de uso são perpétuos.
 *
 * Embora os códigos fontes sejam fornecidos, o software é de propriedade
 * da SOLIS, não sendo permitido ao adquirente da licença a sua revenda,
 * empréstimo ou cessão (onerosa ou não) à terceiros. Também não é permitido,
 * a qualquer título e tempo, promover no software qualquer tipo de alienação,
 * reprodução, distribuição, divulgação, registro, licenciamento, transferência
 * ou qualquer outro ato que prejudique ou comprometa os direitos de propriedade
 * de software, o nome e a imagem da sua proprietária e do próprio software,
 * além de configurar concorrência à SOLIS.
 *
 * O licenciado, com o acesso ao código fonte do software, terá o direito de
 * promover mudanças no respectivo código. No entanto, nas situações em que ele
 * contar com o suporte oficial prestado pela SOLIS, não poderá promover mudanças
 * no código fonte, sob pena de perda do referido suporte.
 *
 * Para conhecer em detalhes o Termo de Licenciamento do Software Gnuteca
 * leia o arquivo “LICENCA.txt” disponível junto ao código deste software.
 * 
 * 
 *
 *
 *
 *
 *
 **/

include("GnutecaWebServices.class.php");

class gnuteca3WebServicesLoansWSDL
{

    private $webService;
    private $MIOLO;

    public function __construct()
    {
        $this->webService = new GWebServices();
        $this->MIOLO = MIOLO::getInstance();
    }

    /**
     * Webservice para listagem de empréstimos abertos.
     * @param int $clientId
     * @param string $clientPassword
     * @param int $personId
     */
    public function listOpenLoans(
        $clientId,
        $clientPassword,
        $personId
    ) {
        $retorno = new stdClass();
        // Define acesso ao método e define a classe do Webservice
        $this->webService->__setClient($clientId, $clientPassword);
        $this->webService->setClassName(get_class($this));
        // Verifica se o usuário possui acesso ao WebService
        if (!$this->webService->__checkMethod("listOpenLoans", false)) {
            $retorno->message = $this->webService->__getErrorStr();
            return json_encode($retorno);
        }
        // Busca os empréstimos baseados no (nome do método) da (classe)
        $busLoan = $this->MIOLO->getBusiness('gnuteca3', 'BusLoan');

        $emprestimosAbertos = $busLoan->getLoanOpenByPerson($personId);
        
        $busSearchFormat = $this->MIOLO->getBusiness('gnuteca3', 'BusSearchFormat');
        $busExemplaryControl = $this->MIOLO->getBusiness('gnuteca3', 'BusExemplaryControl');
        $busReserve = $this->MIOLO->getBusiness('gnuteca3', 'BusReserve');
        $busOperationRenew = $this->MIOLO->getBusiness('gnuteca3', 'BusOperationRenew');
        
        $busOperationRenew->setRenewType(ID_RENEWTYPE_APP);
        foreach ($emprestimosAbertos as $emprestimo) 
        {
            
            $busOperationRenew->checkLoan($emprestimo->loanId, $personId);
            // Mensagem caso o usuário não possa renovar o material
            $canRenew = !$busOperationRenew->messagesToString(GMessages::TYPE_ERROR, ' ', true);
            $message = $busOperationRenew->messagesToString(GMessages::TYPE_ERROR, ' ', true);
            $busOperationRenew->clearMessages();
            
            $material = $busExemplaryControl->getExemplaryControl($emprestimo->itemNumber, true);
            $controlNumber = $material->controlNumber;
            $title = $material->title;
            
            
            $retorno->openLoans[] = [
                "loanId" => $emprestimo->loanId,
                "itemNumber" => $emprestimo->itemNumber,
                "searchFormat" => $busSearchFormat->getFormatedString($controlNumber, 5),
                "loanDate" => $emprestimo->loanDate,
                "returnForecastDate" => explode(' ', $emprestimo->returnForecastDate)[0],
                "returnDate" => $emprestimo->returnDate,
                "renewAmount" => $emprestimo->renewalWebAmount,
                "renewWebAmount" => $emprestimo->renewalWebAmount,
                "reserveAmount" => $busReserve->getTotalQueueByItemNumber($emprestimo->itemNumber),
                "libraryName" => $emprestimo->libraryName,
                "title" => $title,
                "controlNumber" => $controlNumber,
                "canRenew" => $canRenew,
                "message" => $message
            ];
        }
        
        
        return json_encode($retorno);
    }

    /**
     * Webservice para renovacao de emprestimo.
     *
     * @param int $clientId Codigo do cliente SOAP.
     * @param string $clientPassword Senha do cliente SOAP.
     * @param int $personId Codigo do usuario.
     * @param string $itemNumber Numero do tombo do exemplar.
     *
     * @return string
     */
    public function renewLoan($clientId, $clientPassword, $personId, $itemNumber)
    {
        $retorno = new stdClass();
        $retorno->itemNumber = $itemNumber;
        $retorno->return = false;
        $retorno->returnForecastDate = '';
        $retorno->message = '';

        // Checa acesso ao método.
        $this->webService->__setClient($clientId, $clientPassword);

        // Define classe Werbservice.
        $this->webService->setClassName(get_class($this));

        // Verifica se usuário possuí acesso ao WebService.
        if (!$this->webService->__checkMethod("renewLoan", false)) {
            $retorno->message = $this->webService->__getErrorStr();
        } else {
            $busOperationRenew = $this->MIOLO->getBusiness('gnuteca3', 'BusOperationRenew');

            $busOperationRenew->setRenewType(ID_RENEWTYPE_APP);
            $busLoan = $this->MIOLO->getBusiness('gnuteca3', 'BusLoan');

            // Obtém empréstimo aberto para do usuário e exemplar.
            $loan = $busLoan->getLoanOpen($itemNumber);

            if ($loan) {
                // Define como data prevista a data atual de devolução.
                $returnForecastDate = explode(' ', $loan->returnForecastDate);
                $retorno->returnForecastDate = $returnForecastDate[0];

                $loanId = $loan->loanId;

                $busOperationRenew->clearMessages();

                // Verifica se é possível renovar. CHECADO manualmente, para verificar se o empréstimo é realmente do usuário.
                $check = $busOperationRenew->checkLoan($loanId, $personId);

                if ($check) {
                    $busOperationRenew->addLoan($loan);

                    $busPersonConfig = $this->MIOLO->getBusiness('gnuteca3', 'BusPersonConfig');

                    // Define se será enviado recibo de renovação.
                    $sendReceipt = MUtil::getBooleanValue($busPersonConfig->getValuePersonConfig($personId, 'USER_SEND_RECEIPT_RENEW_WEB'));

                    // Finaliza renovação.
                    $ok = $busOperationRenew->finalize(null, $sendReceipt, false);

                    // Gera e envia recibo.
                    $busOperationRenew->receipt->generate();
                    
                    // Obtém nova data prevista de devolução e define sucesso.
                    if ($ok) {
                        
                        $retorno->receipt = $this->getLoanReceipt($busOperationRenew);

                        $retorno->return = true;
                        $retorno->receiptText = $busOperationRenew->receipt->getReceiptsText();
                        
                        $loan = $busLoan->getLoanOpen($itemNumber);

                        // Define a nova data prevista de devolução.
                        $returnForecastDate = explode(' ', $loan->returnForecastDate);
                        $retorno->returnForecastDate = $returnForecastDate[0];
                        
                        $retorno->renewWebAmount = $loan->renewalWebAmount;
                        $retorno->renewAmount = $loan->renewalAmount;
                    }
                }

                $retorno->message = $busOperationRenew->messagesToString($retorno->return ? GMessages::TYPE_INFORMATION : GMessages::TYPE_ERROR, ' ', true);
            } else {
                $retorno->message = _M('Empréstimo não localizado.', 'gnuteca3');
            }
        }
        
        return json_encode($retorno);
    }

    /**
     * Webservice para renovacao de todos emprestimos.
     *
     * @param int $clientId Codigo do cliente SOAP.
     * @param string $clientPassword Senha do cliente SOAP.
     * @param int $personId Codigo do usuario.
     *
     * @return string
     */
    public function renewAllLoan($clientId, $clientPassword, $personId)
    {
        $retorno = new stdClass();

        // Checa acesso ao método.
        $this->webService->__setClient($clientId, $clientPassword);

        // Define classe Werbservice.
        $this->webService->setClassName(get_class($this));

        // Verifica se usuário possuí acesso ao WebService.
        if (!$this->webService->__checkMethod("renewAllLoan", false)) {
            $retorno->message = $this->webService->__getErrorStr();
        } else {
            $busOperationRenew = $this->MIOLO->getBusiness('gnuteca3', 'BusOperationRenew');
            $busOperationRenew->clearMessages();

            $busLoan = $this->MIOLO->getBusiness('gnuteca3', 'BusLoan');
            $busPersonConfig = $this->MIOLO->getBusiness('gnuteca3', 'BusPersonConfig');

            $busOperationRenew->setRenewType(ID_RENEWTYPE_APP);

            // Obtém empréstimo aberto para do usuário e exemplar.
            $loans = $busLoan->getLoanOpenByPerson($personId);

            if (is_array($loans)) {
                foreach ($loans as $loan) {
                    // Adiciona o empréstimo.
                    $busOperationRenew->addLoan($loan);
                }
            }

            // Define se será enviado recibo de renovação.
            $sendReceipt = MUtil::getBooleanValue($busPersonConfig->getValuePersonConfig($personId, 'USER_SEND_RECEIPT_RENEW_WEB'));

            $ok = $busOperationRenew->finalize(null, $sendReceipt, false);

            // Gera e envia recibo.
            $busOperationRenew->receipt->generate();

            // Obtém as mensagens de finalização.
            $messages = $busOperationRenew->getMessages();

            $busSearchFormat = $this->MIOLO->getBusiness('gnuteca3', 'BusSearchFormat');
            $busExemplaryControl = $this->MIOLO->getBusiness('gnuteca3', 'BusExemplaryControl');

            // Percorre as mensagens.
            if (is_array($messages)) {
                foreach ($messages as $message) {
                    $ok = $message->type == GMessages::TYPE_INFORMATION;
                    $itemNumber = $message->itemNumber;

                    $exemplarRetorno = new stdClass();
                    $exemplarRetorno->itemNumber = $itemNumber;
                    $exemplarRetorno->return = $ok;

                    // Define data prevista de devolução.
                    $loan = $busLoan->getLoanOpen($itemNumber);
                    $returnForecastDate = explode(' ', $loan->returnForecastDate);
                    $exemplarRetorno->returnForecastDate = $returnForecastDate[0];
                    
                    $material = $busExemplaryControl->getExemplaryControl($itemNumber, true);
                    $controlNumber = $material->controlNumber;
                    $exemplarRetorno->searchFormat = $busSearchFormat->getFormatedString($controlNumber, 5);
                    
                    $exemplarRetorno->message = $message->message;
                    // Ajeitar dps
                    $renewLoans[] = $exemplarRetorno;
                }
            }
            
            $retorno->loans = $renewLoans;
            
           $retorno->receipt = $this->getLoanReceipt($busOperationRenew);
        }

        return json_encode($retorno);
    }
    
    // Obtém o pdf do recibo
    private function getLoanReceipt($busOperationRenew) 
    {
        $itemReceipt = $busOperationRenew->receipt->getItens();
        foreach ($itemReceipt as $person)
        {
            foreach ( $person as $receipt )
            {
                if ( !$receipt->pdf )
                {
                    $receipt->createPDF();
                }
                
                $lastReceiptFileName = $receipt->getPdfFileName();
            }
        }
        
        $filename = baseName($lastReceiptFileName);
        $baseUrl = $this->MIOLO->getAbsoluteURL(null) . 'miolo25/html/file.php?folder=receipt&file=';
        
        return $filename ? $baseUrl . $filename : false;
    }
}