root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzione errori contabilita'

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@3320 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
ale 1996-08-02 12:44:22 +00:00
parent 0190701f58
commit c528cc2de4
13 changed files with 80 additions and 61 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
cg/cg1500.cpp
View File

@ -4055,38 +4055,38 @@ void CG1500_application::preprocess_header()
if (_tipo_stampa1 == 1) if (_tipo_stampa1 == 1)
{ {
set_header(r,"@42gdalla data %s alla data %s", (const char*)datada, set_header(r,"@30gdalla data %s alla data %s", (const char*)datada,
(const char*) dataa); (const char*) dataa);
//modifica del 20/04/1995 //modifica del 20/04/1995
if (_annoes != 0) //se l'anno e' 0 non si considera la competenza if (_annoes != 0) //se l'anno e' 0 non si considera la competenza
{ {
TString d1(InizioEsercizio(_annoes).string()); TString d1(InizioEsercizio(_annoes).string());
TString d2(FineEsercizio(_annoes).string()); TString d2(FineEsercizio(_annoes).string());
set_header(r,"@86gEsercizio %s %s", (const char*)d1, (const char*)d2); /**/ set_header(r,"@74gEsercizio %s %s", (const char*)d1, (const char*)d2); /**/
} }
} }
else if (_tipo_stampa1 == 2) else if (_tipo_stampa1 == 2)
{ {
set_header(r,"@42gall'ultima immissione Es. %d", _annoes); set_header(r,"@36gall'ultima immissione Es. %d", _annoes);
//modifica del 20/04/1995 //modifica del 20/04/1995
TString d1(InizioEsercizio(_annoes).string()); TString d1(InizioEsercizio(_annoes).string());
TString d2(FineEsercizio(_annoes).string()); TString d2(FineEsercizio(_annoes).string());
set_header(r,"@86gEsercizio %s %s", (const char*)d1, (const char*)d2); /**/ set_header(r,"@72gEsercizio %s %s", (const char*)d1, (const char*)d2); /**/
} }
if ( (_verifica == 1)||(_verifica == 2) ) if ( (_verifica == 1)||(_verifica == 2) )
{ {
if (_stampav == 1) if (_stampav == 1)
set_header(r,"@103gTutti i conti movimentati"); set_header(r,"@107gTutti i conti movimentati");
else if (_stampav == 2) else if (_stampav == 2)
set_header(r,"@103gConti con saldo <> 0"); set_header(r,"@107gConti con saldo <> 0");
else set_header(r,"@103gTutti i conti"); else set_header(r,"@107gTutti i conti");
} }
else else
{ {
if (_stampac == 1) if (_stampac == 1)
set_header(r,"@103gTutti i conti movimentati"); set_header(r,"@107gTutti i conti movimentati");
else set_header(r,"@103gConti con saldo <> 0"); else set_header(r,"@107gConti con saldo <> 0");
} }
r++; r++;

4
cg/cg3100.cpp
View File

@ -73,6 +73,7 @@ class TListaMov_application : public TPrintapp
friend bool data_fine (TMask_field&, KEY); friend bool data_fine (TMask_field&, KEY);
TRigaiva_array _c; TRigaiva_array _c;
TEsercizi_contabili _ec;
TTable * _tabiva, * _tabtpd, * _tabreg, * _tabes; TTable * _tabiva, * _tabtpd, * _tabreg, * _tabes;
TLocalisamfile * _caus,* _comuni,* _rmoviva, * _clifo, * _pcon, * _attiv, *_nditte, *_saldi; TLocalisamfile * _caus,* _comuni,* _rmoviva, * _clifo, * _pcon, * _attiv, *_nditte, *_saldi;
TRelation * _relmov1,* _relmov2,* _relmov3; TRelation * _relmov1,* _relmov2,* _relmov3;
@ -1568,7 +1569,8 @@ bool TListaMov_application::segnala_errori_primariga()
if (ae) if (ae)
{ {
int pr; // Esercizio precedente int pr; // Esercizio precedente
const int ar = date2esc(_datareg, &pr); // Esercizio in corso const int ar = date2esc(_datareg); // Esercizio in corso
pr = _ec.pred(ar);
if (ae != ar && ae != pr) if (ae != ar && ae != pr)
_err.set(4); _err.set(4);
} }

26
cg/cg3200.cpp
View File

@ -2499,12 +2499,17 @@ void TMastrini_application::crea_intestazione()
set_header (1, "@0gDITTA@6g%5ld", _codice_ditta); set_header (1, "@0gDITTA@6g%5ld", _codice_ditta);
set_header (1, "@12g%-.45s", (const char*) _ragsoc); set_header (1, "@12g%-.45s", (const char*) _ragsoc);
int len = _indulc.len(); int len = _indulc.len();
if (len <= 25) if (len <= 31)
_indulc << " " << _civulc.mid(0,9); {
if (len <= 26)
_indulc << " " << _civulc;
else
_indulc << " " << _civulc.mid(0,5);
}
else else
{ {
_indulc = _indulc.mid(0,25); _indulc = _indulc.mid(0,31);
_indulc << " " << _civulc.mid(0,9); _indulc << " " << _civulc.mid(0,5);
} }
set_header (1, "@59g%s", (const char*) _indulc); set_header (1, "@59g%s", (const char*) _indulc);
//set_header (1, "@86g%-.9s", (const char*) _civulc); //set_header (1, "@86g%-.9s", (const char*) _civulc);
@ -2669,12 +2674,17 @@ int TMastrini_application::crea_intestazione(int start_riga)
set_row (r, "@0gDITTA@6g%5ld", _codice_ditta); set_row (r, "@0gDITTA@6g%5ld", _codice_ditta);
set_row (r, "@12g%-45s", (const char*) _ragsoc); set_row (r, "@12g%-45s", (const char*) _ragsoc);
int len = _indulc.len(); int len = _indulc.len();
if (len <= 25) if (len <= 31)
_indulc << " " << _civulc.mid(0,9); {
if (len <= 26)
_indulc << " " << _civulc;
else
_indulc << " " << _civulc.mid(0,5);
}
else else
{ {
_indulc = _indulc.mid(0,25); _indulc = _indulc.mid(0,31);
_indulc << " " << _civulc.mid(0,9); _indulc << " " << _civulc.mid(0,5);
} }
set_row (r, "@59g%s", (const char*) _indulc); set_row (r, "@59g%s", (const char*) _indulc);
// set_row (r, "@86g%-9s", (const char*) _civulc); // set_row (r, "@86g%-9s", (const char*) _civulc);

3
cg/cg4500.cpp
View File

@ -212,7 +212,8 @@ bool TAp_eser::apertura_es()
ok = TRUE; ok = TRUE;
nuovo = TabReg.curr(); nuovo = TabReg.curr();
TString16 cod; TString16 cod;
cod << _newanno << cod_reg; annonew = format ("%04d", _newanno);
cod << annonew << cod_reg;
nuovo.put("CODTAB", cod); nuovo.put("CODTAB", cod);
nuovo.put("D2", data); nuovo.put("D2", data);
nuovo.put("D3", data); nuovo.put("D3", data);

4
cg/cg6400.cpp
View File

@ -766,7 +766,7 @@ long TRic_archivi::leggi_tabella_tras()
bool agg_fatatt,agg_fatpas; bool agg_fatatt,agg_fatpas;
_tab_tra->zero(); _tab_tra->zero();
dep = format("%10s%05d", (const char*) _nomeid, _dittainv); dep = format("%10s%05ld", (const char*) _nomeid, _dittainv);
_tab_tra->put("CODTAB", (const char*) dep); _tab_tra->put("CODTAB", (const char*) dep);
if (_tab_tra->read() == NOERR) if (_tab_tra->read() == NOERR)
{ {
@ -923,7 +923,7 @@ void TRic_archivi::aggiorna_tabella()
TString dep; TString dep;
_tab_tra->zero(); _tab_tra->zero();
dep = format("%10s%05d", (const char*) _nomeid, _dittainv); dep = format("%10s%05ld", (const char*) _nomeid, _dittainv);
_tab_tra->put("CODTAB", (const char*) dep); _tab_tra->put("CODTAB", (const char*) dep);
if (_tab_tra->read() == NOERR) if (_tab_tra->read() == NOERR)
{ {

6
cg/cg6500.cpp
View File

@ -65,7 +65,7 @@ char Tabinv_application::cerca_stato(long ditta)
TString dep; TString dep;
char stato = '\0'; char stato = '\0';
dep = format("%05d", ditta); dep = format("%05ld", ditta);
ind.zero(); ind.zero();
ind.put("CODTAB", dep); ind.put("CODTAB", dep);
@ -177,7 +177,7 @@ bool Tabinv_application::ditta_handler(TMask_field& f, KEY k)
TTable ind ("%IND"); TTable ind ("%IND");
TString dep; TString dep;
dep = format("%05d", app()._ditta_tab); dep = format("%05ld", app()._ditta_tab);
ind.zero(); ind.zero();
ind.put("CODTAB", dep); ind.put("CODTAB", dep);
@ -422,7 +422,7 @@ bool Tabinv_application::nome_id(TMask_field& f, KEY k)
if (ditta != 0) if (ditta != 0)
{ {
dep = format("%05d", ditta); dep = format("%05ld", ditta);
ind.zero(); ind.zero();
ind.put("CODTAB", dep); ind.put("CODTAB", dep);

8
cg/cg6700.cpp
View File

@ -23,6 +23,7 @@
#include <scadenze.h> #include <scadenze.h>
#include <pagsca.h> #include <pagsca.h>
#include "cglib.h"
#include "cg2103.h" #include "cg2103.h"
#include "cglib04.h" #include "cglib04.h"
#include "cg6700.h" #include "cg6700.h"
@ -80,6 +81,7 @@ class TRic_ListaMov : public TPrintapp
int _cur, _curSC; int _cur, _curSC;
TTransfer_file* _trasfer; TTransfer_file* _trasfer;
TLibro_giornale* _giornale; TLibro_giornale* _giornale;
TEsercizi_contabili _ec;
char _ric_auto,_tipo_lista; char _ric_auto,_tipo_lista;
TString80 _pathfile, _descr_causale, _descr_conto; TString80 _pathfile, _descr_causale, _descr_conto;
@ -542,7 +544,8 @@ bool TRic_ListaMov::controlla_mov()
if ( TDate::isdate(_datareg.string()) ) if ( TDate::isdate(_datareg.string()) )
{ {
int pr; int pr;
const int ar = date2esc(_datareg, &pr); // Esercizio in corso const int ar = date2esc(_datareg); // Esercizio in corso
pr = _ec.pred(ar); // Esercizio precedente
if (ar == 0) if (ar == 0)
{ {
_err.set(1); _err.set(1);
@ -562,7 +565,8 @@ bool TRic_ListaMov::controlla_mov()
} }
int pp; int pp;
_annoese = date2esc(_datacomp, &pp); // Esercizio in corso _annoese = date2esc(_datacomp); // Esercizio in corso
pp = _ec.pred(_annoese);
if ( !TDate::isdate(_datacomp.string()) ) if ( !TDate::isdate(_datacomp.string()) )
{ {

6
cg/cg6800.cpp
View File

@ -39,6 +39,7 @@ class TVar_mov : public TApplication
TTable* _tab_reg; TTable* _tab_reg;
TRectype* _rec_mov,* _rec_rmov,* _rec_riva; TRectype* _rec_mov,* _rec_rmov,* _rec_riva;
TTransfer_file _tras_file; TTransfer_file _tras_file;
TEsercizi_contabili _ec;
char _scelta; char _scelta;
TString _trasf,_std,_descr_civa; TString _trasf,_std,_descr_civa;
@ -930,7 +931,8 @@ bool TVar_mov::data_competenza_hnd(TMask_field& f, KEY k)
if (ae) if (ae)
{ {
int pr; // Esercizio precedente int pr; // Esercizio precedente
const int ar = date2esc(dr, &pr); // Esercizio in corso const int ar = date2esc(dr); // Esercizio in corso
pr = app()._ec.pred(ar);
if (ae != ar && ae != pr) if (ae != ar && ae != pr)
{ {
TString80 e; TString80 e;
@ -1435,7 +1437,7 @@ void TVar_mov::registra_IVA(TMask& m)
progr = 0; progr = 0;
progr++; progr++;
ocfpi = format("%3s%6d", (const char*) "RIC", progr); ocfpi = format("%3s%6ld", (const char*) "RIC", progr);
} }
// Se invece gia' esisteva sul movimento il campo della maschera nascosto contiene gia' // Se invece gia' esisteva sul movimento il campo della maschera nascosto contiene gia'

8
cg/cg6800b.uml
View File

@ -34,7 +34,7 @@ END
NUMBER F_NUMRIG 2 NUMBER F_NUMRIG 2
BEGIN BEGIN
PROMPT 40 1 "Numero di riga " PROMPT 38 1 "Numero di riga "
HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata" HELP "Inserire il numero della riga desiderata. Se non viene specificata si entra in modifica della testata"
FLAGS "RZ" FLAGS "RZ"
END END
@ -46,12 +46,12 @@ END
DATE F_DATACOMP DATE F_DATACOMP
BEGIN BEGIN
PROMPT 40 3 "Data competenza " PROMPT 38 3 "Data competenza "
END END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 68 3 "Anno " PROMPT 66 3 "Codice "
FLAGS "D" FLAGS "D"
END END
@ -62,7 +62,7 @@ END
STRING F_NUMDOC 7 STRING F_NUMDOC 7
BEGIN BEGIN
PROMPT 40 4 "Numero documento " PROMPT 38 4 "Numero documento "
END END
STRING F_REGIVA 3 STRING F_REGIVA 3

8
cg/cg6900.cpp
View File

@ -681,7 +681,7 @@ bool TInv_cont::tabella_ditta()
TTable ind ("%IND"); TTable ind ("%IND");
TString dep; TString dep;
dep.format("%05d", _ditta); dep.format("%05ld", _ditta);
ind.zero(); ind.zero();
ind.put("CODTAB", dep); ind.put("CODTAB", dep);
@ -836,7 +836,7 @@ void TInv_cont::crea_marker(TMask& m)
str = format("%-10s", (const char*) _nome_simbolico); str = format("%-10s", (const char*) _nome_simbolico);
buffer.overwrite(str,0); buffer.overwrite(str,0);
long ditta = m.get_long(F_DITTAINV); long ditta = m.get_long(F_DITTAINV);
str = format("%05d", ditta); str = format("%05ld", ditta);
buffer.overwrite(str,10); buffer.overwrite(str,10);
int num = m.get_int(F_NUMULINV); int num = m.get_int(F_NUMULINV);
num++; num++;
@ -932,7 +932,7 @@ void TInv_cont::setta_tabella_ditta(TMask& m,const char* flag, bool comp)
long ditta = m.get_long(F_DITTAINV); long ditta = m.get_long(F_DITTAINV);
dep.format("%05d", ditta); dep.format("%05ld", ditta);
ind.zero(); ind.zero();
ind.put("CODTAB", dep); ind.put("CODTAB", dep);
@ -973,7 +973,7 @@ void TInv_cont::crea_record_controllo(TMask& m)
buffer.overwrite(str,60); //Nome studio buffer.overwrite(str,60); //Nome studio
long ditta = m.get_long(F_DITTAINV); long ditta = m.get_long(F_DITTAINV);
str = format("%05d", ditta); str = format("%05ld", ditta);
buffer.overwrite(str,70); //Ditta inviante buffer.overwrite(str,70); //Ditta inviante
int num = m.get_int(F_NUMULINV); int num = m.get_int(F_NUMULINV);

2
cg/cg6901.cpp
View File

@ -71,7 +71,7 @@ bool TLista_archivi::tabella_ditta()
TTable ind ("%IND"); TTable ind ("%IND");
TString dep; TString dep;
dep.format("%05d", _ditta); dep.format("%05ld", _ditta);
ind.zero(); ind.zero();
ind.put("CODTAB", dep); ind.put("CODTAB", dep);

4
cg/cg6902.cpp
View File

@ -1004,7 +1004,7 @@ void TInv_cont::testata_trasfer(long nreg, int nrig, TString& record)
record.overwrite(reg,35); //Codice registro IVA record.overwrite(reg,35); //Codice registro IVA
str.format("%05d", _protiva); str.format("%05ld", _protiva);
record.overwrite(str,36); //Numero protocollo IVA record.overwrite(str,36); //Numero protocollo IVA
const char* cod_causm = (const char*)_codcausm; const char* cod_causm = (const char*)_codcausm;
@ -1014,7 +1014,7 @@ void TInv_cont::testata_trasfer(long nreg, int nrig, TString& record)
str.format("%-2s", (const char*) _codpag); str.format("%-2s", (const char*) _codpag);
record.overwrite(str,95); //Codice di pagamento record.overwrite(str,95); //Codice di pagamento
str.format("%05d", _uprotiva); str.format("%05ld", _uprotiva);
record.overwrite(str,108); //Ultimo numero di protocollo IVA record.overwrite(str,108); //Ultimo numero di protocollo IVA
record.overwrite("0",218); //Flag di solo sezionale record.overwrite("0",218); //Flag di solo sezionale

4
cg/cglib04.cpp
View File

@ -2024,7 +2024,7 @@ void TTransfer_file::calcola_imposta(TString& field, real& imposta)
TIsamtempfile& tab = *_ttab; TIsamtempfile& tab = *_ttab;
long nreg = atol(field); long nreg = atol(field);
TString app (format("%2s%06d", (const char*) "U1", nreg)); TString app (format("%2s%06ld", (const char*) "U1", nreg));
TRic_recfield recf (tab.curr(), "S0", 0, 256); TRic_recfield recf (tab.curr(), "S0", 0, 256);
@ -2200,7 +2200,7 @@ void TTransfer_file::partita(TString& record)
if (!solo_saldaconto) if (!solo_saldaconto)
{ {
long app = atol(field); long app = atol(field);
field.format("%7d", app); field.format("%7ld", app);
/* real imposta; /* real imposta;
if (tipomov == 1) // L'imposta va calcolata solo in caso di FATTURA if (tipomov == 1) // L'imposta va calcolata solo in caso di FATTURA