modelo300.cpp

Go to the documentation of this file.

/***************************************************************************
 *   Copyright (C) 2003 by Josep Burcion                                   *
 *   josep@burcion.com                                                     *
 *   David Gutierrez Rubio                                                 *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 *                                                                         *
 *   This program is distributed in the hope that it will be useful,       *
 *   but WITHOUT ANY WARRANTY; without even the implied warranty of        *
 *   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the         *
 *   GNU General Public License for more details.                          *
 *                                                                         *
 *   You should have received a copy of the GNU General Public License     *
 *   along with this program; if not, write to the                         *
 *   Free Software Foundation, Inc.,                                       *
 *   59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.             *
 ***************************************************************************/

#include <stdio.h>
#include <fstream>
#include <iostream>
#include <unistd.h>

#include <QString>
#include <QComboBox>
#include <QRadioButton>
#include <QLineEdit>
#include <QMessageBox>
#include <QObject>

#include "modelo300.h"
#include "configuracion.h"
#include "postgresiface2.h"
#include "funcaux.h"



Mod300ps::Mod300ps(QWidget *parent) : QDialog(parent) {
    _depura("Mod300ps::Mod300ps", 0);
    setupUi(this);
    QString query = "SELECT descripcion, bancoent_cuenta, codigo FROM cuenta WHERE codigo LIKE '572%%' AND codigo > 572";

    postgresiface2 *metabase = new postgresiface2();

    metabase->inicializa("bulmages"); 

    metabase->begin();
    fprintf(stderr, "%s\n", query.toAscii().constData());
    cursor2 *cur = metabase->cargacursor(query, "bancos");

    int nTuples = cur->numregistros();
    nombresccc = new QString[nTuples];

    numerccc = new QString[nTuples];

    for (int i = 0; i < nTuples; i++) {
        nombresccc[i] = cur->valor("descripcion");
        nombresccc[i] += "  ";
        nombresccc[i] += cur->valor("codigo");

        numerccc[i] = cur->valor("bancoent_cuenta");
//        cout << nombresccc[i].toAscii().constData() << "\t" << numerccc[i].toAscii().constData() << "\n";
        combocuentas->addItem(nombresccc[i]);
        cur->siguienteregistro();
    } // end for
    delete cur;
    delete metabase;

    if (nTuples == 0) 
    {
        sincuentasbancarias = true;
        personalButton->setChecked(true);
        personalButtonPressed();
        cuentaButton->setDisabled(true);
    } // end if
    _depura("END Mod300ps::Mod300ps", 0);
}



Mod300ps::~Mod300ps() {
    _depura("Mod300ps::~Mod300ps", 0);
    _depura("END Mod300ps::~Mod300ps", 0);
}



void Mod300ps::accept() {
    _depura("Mod300ps::accept", 0);
    m_es_borrador = borradorcheckbox->isChecked();

    if (cuentaButton->isChecked()) {
        ccc = new numerocuenta(numerccc[combocuentas->currentIndex()]);
    } else
        ccc = new numerocuenta(banco->text(), entidad->text(), dc->text(), cuenta->text());

//    cout << "Elegida cuenta numero " << ccc->getcodigo("-").toAscii().constData() << "\n";
//    cout << "dc=" << ccc->getdc().toAscii().constData() << "\n";

   if (!ccc->cuentaesvalida()) {
        switch (QMessageBox::warning(this,
                                     QObject::tr("Formulario 300"),
                                     QObject::tr("Aviso: El numero de cuenta bancario introducido\n"
                                                 "no se corresponde con un CCC correcto."),
                                     QObject::tr("Generar de todas formas"), QObject::tr("Volver"), 0,
                                     0, 1 )) {
        case 0:
            generaps();
            break;
        case 1:
            break;
        }
   } else {
        generaps();
   } // end if
   _depura("END Mod300ps::accept", 0);
}


void Mod300ps::generaps() {
    _depura("Mod300ps::generaps", 0);
    QString pdfname, tempname, psname, command;
    char *cad1 = NULL;
    QString cadaux;

//    cout << "Elegido trimestre" << trimestre->currentIndex() << "\n";

    tempname = QString(getenv("HOME")) + "/.bulmages/mod300temp.ps";
    pdfname = QString(getenv("HOME")) + "/.bulmages/formularios/mod300e.pdf";

    if (!QFile::exists(pdfname))
        pdfname = confpr->valor(CONF_PROGDATA) + "formularios/mod300e.pdf";

    bool doit = true;
    if (!QFile::exists(pdfname)) {
        QMessageBox::warning(this,
                             QObject::tr("Formulario 300"),
                             QObject::tr("Lo siento, no encuentro el formulario original en pdf.\n"
                                         "Pruebe a descargarlo desde www.aeat.es y guaedelo en\n"
                                         "/usr/share/bulmages/formularios/ o en\n"
                                         "~/.bulmages/formularios/."),
                             QObject::tr("&Aceptar"), 0, 0, 0, 1);
        doit = false;
    } // end if

    if (doit) {
//        cout << "Convirtiendo a postscript...\n";
        if (m_es_borrador) {
            command = "pdftops " + pdfname + " " + tempname;
            system(command.toAscii().constData());
        } else {
            Psprogressdialog progress(tr("Creando formulario"), tr("&Cancelar"), 0, 50, this, 0);
            this->convierte_a_postscript = new Genps_thread(pdfname, tempname, &progress);
            progress.setValue(0);

            this->convierte_a_postscript->start();

            progress.setModal(true);
            progress.exec();
            if (progress.wasCanceled()) {
                system("kill $(ps aux|grep 'Xvfb :5.0'|grep -v grep|awk '{print $2}')");
                doit = false;
            }
        }
    } // end if

    if (doit) {
        psname = QString(getenv("HOME")) + "/.bulmages/mod300.ps";
//        cout << psname.toAscii().constData();
        m_fich.setFileName(psname);
        if (m_fich.open(QIODevice::WriteOnly)) {
            m_output.setDevice(&m_fich);
            m_fichlec.setFileName(tempname);
            if (!m_fichlec.open(QIODevice::ReadOnly)) {
                _depura("Error al abrir fichero de lectura!!", 2);
                exit(1);
            } // end if
            m_fichlec.readLine(cad1, 256);
            cadaux = cad1;
            while (cadaux.left(7) != "%%Page:") {
                m_output << cad1 ;
                m_fichlec.readLine(cad1, 256);
            }
            m_output << cad1;
            escribe_postscriptdefs();

            m_fichlec.readLine(cad1, 256);
            while (cad1 != "showpage\n") 
            {
                m_output << cad1;
                m_fichlec.readLine(cad1, 256);
            } // end while
            if (m_es_borrador) {
                marcadeagua_borrador();
            } // end if
            rellena_identificacion();
            rellena_liquidacion();
            rellena_compensacion();
            m_output << cad1;

            m_fichlec.readLine(cad1, 256);
            while (cad1 != "showpage\n") 
            {
                m_output << cad1;
                m_fichlec.readLine(cad1, 256);
            } // end while
            if (m_es_borrador) {
                marcadeagua_borrador();
            } // end if
            rellena_identificacion();
            rellena_liquidacion();
            rellena_compensacion();
            m_output << cad1;

            m_fichlec.readLine(cad1, 256);
            while (cad1 != "showpage\n") 
            {
                m_output << cad1;
                m_fichlec.readLine(cad1, 256);
            } // end while
            if (m_es_borrador) {
                marcadeagua_borrador();
            } // end if
            rellena_identificacion();
            rellena_compensacion();
            m_output << cad1;

            while (!m_fichlec.atEnd()) 
            {
                m_fichlec.readLine(cad1, 256);
                m_output << cad1 << "\n";
            } // end while

            m_fichlec.close();
            m_fich.close();

//            cout << "Se supone que tengo que leer los formularios desde " << confpr->valor(CONF_PROGDATA).toAscii().constData() << "\n";
//            cout << "[TODO] OJO!! Los formularios que genera no son validos, ya que han de tener un numero de serie UNICO\n";
//            cout << "[TODO]  Es decir, hay que bajarse de internet uno nuevo CADA VEZ que se haga un modelo nuevo\n";

            command = "rm " + tempname + "; kghostview " + psname;
            system(command.toAscii().constData());
        } else {
            _depura("EEEEHH!!! !QUE NO  HE ABIERTO EL FICHEROOOOOOOOOO!", 2);
        } // end if
    } // end if
    _depura("END Mod300ps::generaps", 0);
}



void Mod300ps::personalButtonPressed() {
    _depura("Mod300ps::personalButtonPressed", 0);
    bool dis = cuentaButton->isChecked();
    banco->setDisabled(dis);
    entidad->setDisabled(dis);
    dc->setDisabled(dis);
    cuenta->setDisabled(dis);
    combocuentas->setDisabled(!dis);
    _depura("END Mod300ps::personalButtonPressed", 0);
}


void Mod300ps::escribe_postscriptdefs() {
    _depura("Mod300ps::escribe_postscriptdefs", 0);

    m_output << "%bulmages\n"
    "%Texto introducido manualmente\n"
    "/Courier-Bold\n"
    "findfont\n"
    "12 scalefont\n"
    "setfont\n"
    "%(texto) numcar escrizq\n"
    "% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%\n"
    "/escrizq{\n"
    "% (texto) x_barrita y_barrita numcar escrizq\n"
    " -7  mul -5 add exch 3 add 3 -2 roll add  exch moveto\n"
    "  show\n"
    "  } def\n"
    "  %\n"
    "  /escrder{\n"
    "  % (texto) x_barrita y_barrita numcar escrizq\n"
    "  %newpath\n"
    "  exch 3 add 3 -2 roll add 5 add exch moveto\n"
    "  show} def\n";
    _depura("END Mod300ps::escribe_postscriptdefs", 0);
}



void Mod300ps::escribe_cuenta_bancaria(int x, int y) {
    _depura("Mod300ps::escribe_cuenta_bancaria", 0);

    const int steps[] = {
                           0, 11, 11, 11, 12, 11, 11, 11, 12, 11, 12, 11, 11, 11, 12, 11,
                           11, 11, 12, 11, 11
                       };
    //76,32 para devolver
    //338,73 para pagar
    int acum = x; 
    QString tem = ccc->getcodigo();
    for (int i = 0; i < 20; i++) {
        acum += steps[i];
        marca_casilla(QString(tem[i]), acum, y);
    } // end for
    _depura("END Mod300ps::escribe_cuenta_bancaria", 0);
}



void Mod300ps::rellena_identificacion() {
    _depura("Mod300ps::rellena_identificacion", 0);
    QString cad1;

    postgresiface2 *m = new postgresiface2();

    m->inicializa("bulmages"); 
    escrder(m->propiedadempresa("CIF"), 78, 601);
    escrder(m->propiedadempresa("NombreEmpresa"), 213, 601);
    escrder(m->propiedadempresa("TipoVia"), 78, 576);
    escrder(m->propiedadempresa("NombreVia"), 141, 576);
    escrder(m->propiedadempresa("NumeroVia"), 389, 576);
    escrder(m->propiedadempresa("Escalera"), 431, 576);
    escrder(m->propiedadempresa("Piso"), 461, 576);
    escrder(m->propiedadempresa("Puerta"), 490, 576);
    escrder(m->propiedadempresa("Municipio"), 78, 550);
    escrder(m->propiedadempresa("Provincia"), 360, 550);
    escribe_codigo_postal(m->propiedadempresa("CodPostal"));

    delete m;

    cad1.sprintf("%d", trimestre->currentIndex() + 1); 

    marca_casilla(cad1, 452, 690);
    marca_casilla("T", 467, 690);

    escrder(empresa, 209, 601);
    for (int i = 0; i < 4; i++) {
        marca_casilla(QString(ano[i]), 453 + i * 14, 706);
    } // end for
    _depura("END Mod300ps::rellena_identificacion", 0);
}



void Mod300ps::rellena_liquidacion() {
    _depura("Mod300ps::rellena_liquidacion", 0);
    escrizqder(baser16, 328, 516); 
    escrizqder(baser7, 328, 502); 
    escrizqder(baser4, 328, 487); 
    escrizq(16, 435, 516); 
    escrizq(7, 435, 502); 
    escrizq(4, 435, 487); 
    escrizqder(ivar16, 531, 516); 
    escrizqder(ivar7, 531, 502); 
    escrizqder(ivar4, 531, 487); 
    escrizqder(ivar16 + ivar7 + ivar4, 531, 400); 
    escrizqder(ivas4 + ivas7 + ivas16, 532, 366); 
    escrizqder(ivas4 + ivas7 + ivas16, 532, 295); 
    cas34 = ivas4 + ivas7 + ivas16 - (ivar16 + ivar7 + ivar4);
    escrizqder(cas34, 532, 196); 
    _depura("END Mod300ps::rellena_liquidacion", 0);
}



void Mod300ps::rellena_compensacion() {
    _depura("Mod300ps::rellena_compensacion", 0);
    if (cas34 < 0) {
        escrizqder(-cas34, 248, 145); 
        if (trimestre->currentIndex() == 3) { 
            escribe_cuenta_bancaria(76,32); 
        } // end if
    } else {
        if (trimestre->currentIndex() == 3) 
        {
            marca_casilla("X", 464, 134); 
            escribe_cuenta_bancaria(338, 73);
        } // end if
    } // end if
    _depura("END Mod300ps::rellena_compensacion", 0);
}



void Mod300ps::escribe_codigo_postal(QString cod) {
    _depura("Mod300ps::escribe_codigo_postal", 0);
    int offset = 3;
    marca_casilla(QString(cod[0]), 528 - offset, 550);
    marca_casilla(QString(cod[1]), 537 - offset, 550);
    marca_casilla(QString(cod[2]), 546 - offset, 550);
    marca_casilla(QString(cod[3]), 554 - offset, 550);
    marca_casilla(QString(cod[4]), 563 - offset, 550);
    _depura("END Mod300ps::escribe_codigo_postal", 0);
}

---