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)
{
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);
//modifica del 20/04/1995
if (_annoes != 0) //se l'anno e' 0 non si considera la competenza
{
TString d1(InizioEsercizio(_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)
{
set_header(r,"@42gall'ultima immissione Es. %d", _annoes);
set_header(r,"@36gall'ultima immissione Es. %d", _annoes);
//modifica del 20/04/1995
TString d1(InizioEsercizio(_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 (_stampav == 1)
set_header(r,"@103gTutti i conti movimentati");
set_header(r,"@107gTutti i conti movimentati");
else if (_stampav == 2)
set_header(r,"@103gConti con saldo <> 0");
else set_header(r,"@103gTutti i conti");
set_header(r,"@107gConti con saldo <> 0");
else set_header(r,"@107gTutti i conti");
}
else
{
if (_stampac == 1)
set_header(r,"@103gTutti i conti movimentati");
else set_header(r,"@103gConti con saldo <> 0");
set_header(r,"@107gTutti i conti movimentati");
else set_header(r,"@107gConti con saldo <> 0");
}
r++;

10
cg/cg3100.cpp
View File

@ -71,8 +71,9 @@ class TListaMov_application : public TPrintapp
friend bool annoes (TMask_field&, KEY);
friend bool data_inizio (TMask_field&, KEY);
friend bool data_fine (TMask_field&, KEY);
TRigaiva_array _c;
TRigaiva_array _c;
TEsercizi_contabili _ec;
TTable * _tabiva, * _tabtpd, * _tabreg, * _tabes;
TLocalisamfile * _caus,* _comuni,* _rmoviva, * _clifo, * _pcon, * _attiv, *_nditte, *_saldi;
TRelation * _relmov1,* _relmov2,* _relmov3;
@ -1566,9 +1567,10 @@ bool TListaMov_application::segnala_errori_primariga()
}
if (ae)
{
{
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)
_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, "@12g%-.45s", (const char*) _ragsoc);
int len = _indulc.len();
if (len <= 25)
_indulc << " " << _civulc.mid(0,9);
if (len <= 31)
{
if (len <= 26)
_indulc << " " << _civulc;
else
_indulc << " " << _civulc.mid(0,5);
}
else
{
_indulc = _indulc.mid(0,25);
_indulc << " " << _civulc.mid(0,9);
_indulc = _indulc.mid(0,31);
_indulc << " " << _civulc.mid(0,5);
}
set_header (1, "@59g%s", (const char*) _indulc);
//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, "@12g%-45s", (const char*) _ragsoc);
int len = _indulc.len();
if (len <= 25)
_indulc << " " << _civulc.mid(0,9);
if (len <= 31)
{
if (len <= 26)
_indulc << " " << _civulc;
else
_indulc << " " << _civulc.mid(0,5);
}
else
{
_indulc = _indulc.mid(0,25);
_indulc << " " << _civulc.mid(0,9);
_indulc = _indulc.mid(0,31);
_indulc << " " << _civulc.mid(0,5);
}
set_row (r, "@59g%s", (const char*) _indulc);
// set_row (r, "@86g%-9s", (const char*) _civulc);

5
cg/cg4500.cpp
View File

@ -211,8 +211,9 @@ bool TAp_eser::apertura_es()
{
ok = TRUE;
nuovo = TabReg.curr();
TString16 cod;
cod << _newanno << cod_reg;
TString16 cod;
annonew = format ("%04d", _newanno);
cod << annonew << cod_reg;
nuovo.put("CODTAB", cod);
nuovo.put("D2", 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;
_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);
if (_tab_tra->read() == NOERR)
{
@ -923,7 +923,7 @@ void TRic_archivi::aggiorna_tabella()
TString dep;
_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);
if (_tab_tra->read() == NOERR)
{

6
cg/cg6500.cpp
View File

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

28
cg/cg6700.cpp
View File

@ -23,6 +23,7 @@
#include <scadenze.h>
#include <pagsca.h>
#include "cglib.h"
#include "cg2103.h"
#include "cglib04.h"
#include "cg6700.h"
@ -71,16 +72,17 @@ HIDDEN const char* err_msg[] = {"*** Data operazione non valida",
class TRic_ListaMov : public TPrintapp
{
TTable* _tab_tra,* _tab_pag,* _tab_tpd,* _tab_iva, *_tab_ese;
TIsamtempfile* _tmov,* _trmov,* _tiva,* _tpart,* _tscad,* _tpagsca;
TLocalisamfile* _caus,* _ditte,* _clifo,* _pcon, *_mov, *_rmov, *_rmoviva;
TLocalisamfile* _part,* _scad,* _pagsca;
TRelation* _rel, *_relSC;
//TCursor* _cur, *_curSC;
int _cur, _curSC;
TTransfer_file* _trasfer;
TLibro_giornale* _giornale;
char _ric_auto,_tipo_lista;
TTable* _tab_tra,* _tab_pag,* _tab_tpd,* _tab_iva, *_tab_ese;
TIsamtempfile* _tmov,* _trmov,* _tiva,* _tpart,* _tscad,* _tpagsca;
TLocalisamfile* _caus,* _ditte,* _clifo,* _pcon, *_mov, *_rmov, *_rmoviva;
TLocalisamfile* _part,* _scad,* _pagsca;
TRelation* _rel, *_relSC;
//TCursor* _cur, *_curSC;
int _cur, _curSC;
TTransfer_file* _trasfer;
TLibro_giornale* _giornale;
TEsercizi_contabili _ec;
char _ric_auto,_tipo_lista;
TString80 _pathfile, _descr_causale, _descr_conto;
TString16 _causale, _registro, _numdoc, _tipodoc, _codval;
@ -542,7 +544,8 @@ bool TRic_ListaMov::controlla_mov()
if ( TDate::isdate(_datareg.string()) )
{
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)
{
_err.set(1);
@ -562,7 +565,8 @@ bool TRic_ListaMov::controlla_mov()
}
int pp;
_annoese = date2esc(_datacomp, &pp); // Esercizio in corso
_annoese = date2esc(_datacomp); // Esercizio in corso
pp = _ec.pred(_annoese);
if ( !TDate::isdate(_datacomp.string()) )
{

18
cg/cg6800.cpp
View File

@ -34,12 +34,13 @@
class TVar_mov : public TApplication
{
TIsamtempfile* _tmov, *_trmov, *_tiva, *_toccas;
TLocalisamfile* _pcon, *_clifo, *_mov, *_rmov, *_rmoviva, *_occas;
TTable* _tab_reg;
TRectype* _rec_mov,* _rec_rmov,* _rec_riva;
TTransfer_file _tras_file;
char _scelta;
TIsamtempfile* _tmov, *_trmov, *_tiva, *_toccas;
TLocalisamfile* _pcon, *_clifo, *_mov, *_rmov, *_rmoviva, *_occas;
TTable* _tab_reg;
TRectype* _rec_mov,* _rec_rmov,* _rec_riva;
TTransfer_file _tras_file;
TEsercizi_contabili _ec;
char _scelta;
TString _trasf,_std,_descr_civa;
long _dittaric,_numreg;
@ -930,7 +931,8 @@ bool TVar_mov::data_competenza_hnd(TMask_field& f, KEY k)
if (ae)
{
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)
{
TString80 e;
@ -1435,7 +1437,7 @@ void TVar_mov::registra_IVA(TMask& m)
progr = 0;
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'

8
cg/cg6800b.uml
View File

@ -34,7 +34,7 @@ END
NUMBER F_NUMRIG 2
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"
FLAGS "RZ"
END
@ -46,12 +46,12 @@ END
DATE F_DATACOMP
BEGIN
PROMPT 40 3 "Data competenza "
PROMPT 38 3 "Data competenza "
END
NUMBER F_ANNO 4
BEGIN
PROMPT 68 3 "Anno "
PROMPT 66 3 "Codice "
FLAGS "D"
END
@ -62,7 +62,7 @@ END
STRING F_NUMDOC 7
BEGIN
PROMPT 40 4 "Numero documento "
PROMPT 38 4 "Numero documento "
END
STRING F_REGIVA 3

8
cg/cg6900.cpp
View File

@ -681,7 +681,7 @@ bool TInv_cont::tabella_ditta()
TTable ind ("%IND");
TString dep;
dep.format("%05d", _ditta);
dep.format("%05ld", _ditta);
ind.zero();
ind.put("CODTAB", dep);
@ -836,7 +836,7 @@ void TInv_cont::crea_marker(TMask& m)
str = format("%-10s", (const char*) _nome_simbolico);
buffer.overwrite(str,0);
long ditta = m.get_long(F_DITTAINV);
str = format("%05d", ditta);
str = format("%05ld", ditta);
buffer.overwrite(str,10);
int num = m.get_int(F_NUMULINV);
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);
dep.format("%05d", ditta);
dep.format("%05ld", ditta);
ind.zero();
ind.put("CODTAB", dep);
@ -973,7 +973,7 @@ void TInv_cont::crea_record_controllo(TMask& m)
buffer.overwrite(str,60); //Nome studio
long ditta = m.get_long(F_DITTAINV);
str = format("%05d", ditta);
str = format("%05ld", ditta);
buffer.overwrite(str,70); //Ditta inviante
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");
TString dep;
dep.format("%05d", _ditta);
dep.format("%05ld", _ditta);
ind.zero();
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
str.format("%05d", _protiva);
str.format("%05ld", _protiva);
record.overwrite(str,36); //Numero protocollo IVA
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);
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("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;
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);
@ -2200,7 +2200,7 @@ void TTransfer_file::partita(TString& record)
if (!solo_saldaconto)
{
long app = atol(field);
field.format("%7d", app);
field.format("%7ld", app);
/* real imposta;
if (tipomov == 1) // L'imposta va calcolata solo in caso di FATTURA