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

Patch level : 2.0

Browse Source 
Files correlati     : cg2.exe cg2100a.msk cg2100b.msk cg2100c.msk
Ricompilazione Demo : [ ]
Commento            :

Nuove implementazioni:

18
Implementare la possibilità di portare nel saldaconto anche le partite
su conti normali. (Creazione scadenze)

28
Implementare la visualizzazione del saldo in fase di inserimento.
Nuovo bottone o funzione automatica di visualizzazione


git-svn-id: svn://10.65.10.50/trunk@11457 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2003-10-01 14:22:06 +00:00
parent 015ff08914
commit e6f0d3a92d
12 changed files with 587 additions and 384 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

73
cg/cg2100.cpp
View File

@ -49,7 +49,7 @@ TMask* TPrimanota_application::load_mask(int n)
if (_msk[n] != NULL) if (_msk[n] != NULL)
return _msk[n]; return _msk[n];
TFilename name("cg2100"); name << char(n == 3 ? 'o' : 'a'+n); TString8 name = "cg2100"; name << char(n == 3 ? 'o' : 'a'+n);
TMask* m = new TMask(name); TMask* m = new TMask(name);
switch (n) switch (n)
@ -74,8 +74,6 @@ TMask* TPrimanota_application::load_mask(int n)
case 2: case 2:
if (m) if (m)
{ {
m->set_handler(F_DATADOC, datadoc_handler);
m->set_handler(F_NUMDOC, numdoc_handler);
m->set_handler(F_DATA74TER, data74ter_handler); m->set_handler(F_DATA74TER, data74ter_handler);
m->set_handler(F_PROTIVA, protiva_handler); m->set_handler(F_PROTIVA, protiva_handler);
m->set_handler(F_CLIENTE, clifo_handler); m->set_handler(F_CLIENTE, clifo_handler);
@ -90,7 +88,7 @@ TMask* TPrimanota_application::load_mask(int n)
m->set_handler(F_SHEETIVA, iva_handler); m->set_handler(F_SHEETIVA, iva_handler);
m->set_handler(F_CODPAG, codpag_handler); m->set_handler(F_CODPAG, codpag_handler);
TSheet_field& is = (TSheet_field&)m->field(F_SHEETIVA); TSheet_field& is = m->sfield(F_SHEETIVA);
is.set_notify(iva_notify); is.set_notify(iva_notify);
TMask& ism = is.sheet_mask(); TMask& ism = is.sheet_mask();
ism.set_handler(101, imponibile_handler); ism.set_handler(101, imponibile_handler);
@ -115,27 +113,6 @@ TMask* TPrimanota_application::load_mask(int n)
ism.hide(id); // Descrizioni commessa e fase ism.hide(id); // Descrizioni commessa e fase
} }
} }
// Se esiste lo sheet delle rate
if (is_fattura())
{
TSheet_field& ps = (TSheet_field&)m->field(FS_RATESHEET);
ps.set_notify(pag_notify);
m->set_handler(FS_RATESHEET, pag_sheet_handler);
m->set_handler(F_ANNORIF, annorif_handler);
m->set_handler(F_NUMRIF, numrif_handler);
m->set_handler(FS_RESET, reset_handler);
m->set_handler(FS_NRATE, nrate_handler);
m->set_handler(FS_RECALC, recalc_handler);
m->set_handler(FS_NSCAB, codcab_handler);
m->set_handler(FS_VSCAB, codcab_handler);
TMask& sm = ps.sheet_mask();
sm.set_handler(102, ratalit_handler);
sm.set_handler(103, rataval_handler);
sm.set_handler(105, tipopag_handler);
sm.set_handler(106, tipopag_handler);
}
} }
case 1: case 1:
if (m) if (m)
@ -143,6 +120,8 @@ TMask* TPrimanota_application::load_mask(int n)
m->first_focus(_firstfocus); m->first_focus(_firstfocus);
m->set_handler(F_DATAREG, datareg_handler); m->set_handler(F_DATAREG, datareg_handler);
m->set_handler(F_DATACOMP, datacomp_handler); m->set_handler(F_DATACOMP, datacomp_handler);
m->set_handler(F_DATADOC, datadoc_handler);
m->set_handler(F_NUMDOC, numdoc_handler);
m->set_handler(F_DESCR, descr_handler); m->set_handler(F_DESCR, descr_handler);
m->set_handler(F_CODCAUS, caus_modify_handler); m->set_handler(F_CODCAUS, caus_modify_handler);
m->set_handler(F_TOTALE, totdoc_handler); m->set_handler(F_TOTALE, totdoc_handler);
@ -152,7 +131,7 @@ TMask* TPrimanota_application::load_mask(int n)
m->set_handler(SK_CAMBIO, cambio_handler); m->set_handler(SK_CAMBIO, cambio_handler);
m->set_handler(SK_TOTDOCVAL, totdocval_handler); m->set_handler(SK_TOTDOCVAL, totdocval_handler);
TSheet_field& cg = (TSheet_field&)m->field(F_SHEETCG); TSheet_field& cg = m->sfield(F_SHEETCG);
cg.set_notify(cg_notify); cg.set_notify(cg_notify);
TMask& cgm = cg.sheet_mask(); TMask& cgm = cg.sheet_mask();
@ -179,6 +158,26 @@ TMask* TPrimanota_application::load_mask(int n)
cg.delete_column(CG_DESC_FASE); cg.delete_column(CG_DESC_CDC); cg.delete_column(CG_DESC_FASE); cg.delete_column(CG_DESC_CDC);
cg.delete_column(CG_FASE); cg.delete_column(CG_COMMESSA); cg.delete_column(CG_FASE); cg.delete_column(CG_COMMESSA);
} }
// Se esiste lo sheet delle rate
if (is_fattura())
{
TSheet_field& ps = (TSheet_field&)m->field(FS_RATESHEET);
ps.set_notify(pag_notify);
m->set_handler(FS_RATESHEET, pag_sheet_handler);
m->set_handler(F_ANNORIF, annorif_handler);
m->set_handler(F_NUMRIF, numrif_handler);
m->set_handler(FS_RESET, reset_handler);
m->set_handler(FS_NRATE, nrate_handler);
m->set_handler(FS_RECALC, recalc_handler);
m->set_handler(FS_NSCAB, codcab_handler);
m->set_handler(FS_VSCAB, codcab_handler);
TMask& sm = ps.sheet_mask();
sm.set_handler(102, ratalit_handler);
sm.set_handler(103, rataval_handler);
sm.set_handler(105, tipopag_handler);
sm.set_handler(106, tipopag_handler);
}
} }
break; break;
case 3: case 3:
@ -188,7 +187,7 @@ TMask* TPrimanota_application::load_mask(int n)
CHECKD(0, "Che ca$$o di maschera e' la ", n); CHECKD(0, "Che ca$$o di maschera e' la ", n);
break; break;
} }
_msk[n] = m; _msk[n] = m;
return m; return m;
} }
@ -284,6 +283,7 @@ bool TPrimanota_application::read_caus(const char* cod, int year)
m->enable(F_PROVVISORIO, !_is_saldaconto); // Il saldaconto vieta i movimenti provvisori m->enable(F_PROVVISORIO, !_is_saldaconto); // Il saldaconto vieta i movimenti provvisori
m->show(SK_TIPORIGA, is_pagamento()); // Abilita scelta tipo riga m->show(SK_TIPORIGA, is_pagamento()); // Abilita scelta tipo riga
m->enable(SK_TIPORIGA); m->enable(SK_TIPORIGA);
activate_numrif(*m, FALSE);
} }
else else
{ {
@ -473,6 +473,8 @@ void TPrimanota_application::init_mask(TMask& m)
if (_iva == nessuna_iva) if (_iva == nessuna_iva)
{ {
m.show(-5, _is_saldaconto); // Abilita campi saldaconto m.show(-5, _is_saldaconto); // Abilita campi saldaconto
m.show(-6, _is_saldaconto && is_fattura()); // Abilita gestione rate
m.show(K_RESIDUO, _is_saldaconto && !is_fattura());
} }
else else
{ {
@ -809,6 +811,16 @@ int TPrimanota_application::read(TMask& m)
disable_cgs_cells(i, tipo); disable_cgs_cells(i, tipo);
} }
if (_iva == nessuna_iva && is_fattura()) // Ci dovrebbero essere delle scadenze
{
pags().reset(); // Azzera sheet rate
if (!read_scadenze(m)) // Se non esiste fattura
{
const TString dd(m.get(F_DATADOC));
set_pagamento(NULL, dd); // Ignora codice pagamento in testata
}
}
if (_iva == nessuna_iva) if (_iva == nessuna_iva)
return _rel->status(); return _rel->status();
@ -1093,7 +1105,6 @@ int TPrimanota_application::write(const TMask& m)
check_saldi(); check_saldi();
bool salvaconto = FALSE; bool salvaconto = FALSE;
// const long old_nreg = numreg - (lasterr == _isreinsert ? 1 : 0);
const long old_nreg = NUMREG_PROVVISORIO; const long old_nreg = NUMREG_PROVVISORIO;
if (iva() != nessuna_iva) if (iva() != nessuna_iva)
@ -1104,7 +1115,6 @@ int TPrimanota_application::write(const TMask& m)
switch (causale().tipomov()) switch (causale().tipomov())
{ {
case tm_fattura: case tm_fattura:
// partite().update_reg(_rel->curr(), old_nreg); // L'array e' sempre vuoto!
write_scadenze(m); // Salva fattura write_scadenze(m); // Salva fattura
break; break;
case tm_nota_credito: case tm_nota_credito:
@ -1127,6 +1137,9 @@ int TPrimanota_application::write(const TMask& m)
} }
else else
{ {
if (is_fattura())
write_scadenze(m); // Salva fattura
salvaconto = is_pagamento(); salvaconto = is_pagamento();
} }
@ -1170,6 +1183,8 @@ int TPrimanota_application::rewrite(const TMask& m)
} }
else else
{ {
if (is_fattura())
write_scadenze(m); // Salva fattura
salvaconto = is_pagamento(); salvaconto = is_pagamento();
} }

39
cg/cg2100.h
View File

@ -39,25 +39,28 @@
#define F_CODPAG 122 #define F_CODPAG 122
#define F_DESPAG 123 #define F_DESPAG 123
#define F_ANNORIF 124 #define F_ANNORIF 124
#define F_NUMRIF 125 #define F_NUMRIF 125
#define F_PROVVISORIO 129 #define F_PROVVISORIO 129
#define F_OCCASEDIT 131 #define F_OCCASEDIT 131
#define F_SOLAIVA 132 #define F_SOLAIVA 132
#define F_CORRISPETTIVO 133 #define F_CORRISPETTIVO 133
#define F_CORRVALUTA 134 #define F_CORRVALUTA 134
#define F_DATA74TER 135 #define F_DATA74TER 135
#define F_DESCAGG 136 #define F_DESCAGG 136
#define F_DARE 137 #define F_DARE 137
#define F_AVERE 138 #define F_AVERE 138
#define F_IMPONIBILI 139 #define F_IMPONIBILI 139
#define F_IMPOSTE 140 #define F_IMPOSTE 140
#define F_VALUTAINTRA 141 #define F_VALUTAINTRA 141
#define F_CAMBIOINTRA 142 #define F_CAMBIOINTRA 142
#define F_STAMPATO 143 #define F_STAMPATO 143
#define F_REGST 144 #define F_REGST 144
#define F_DIFFERITA 145 #define F_DIFFERITA 145
#define F_ADJUST_PRORATA 146 #define F_ADJUST_PRORATA 146
#define F_EASYDOC 147 #define F_GRUPPO 180
#define F_CONTO 181
#define F_SOTTOCONTO 182
#define F_SALDOCONTO 183
#define F_SHEETCG 190 #define F_SHEETCG 190
#define F_SHEETIVA 191 #define F_SHEETIVA 191

2
cg/cg2100a.uml
View File

@ -1,6 +1,6 @@
#include "cg2100.h" #include "cg2100.h"
TOOLBAR "" 0 -4 0 4 TOOLBAR "" 0 -2 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE

142
cg/cg2100b.uml
View File

@ -1,15 +1,10 @@
#include "cg2100.h" #include "cg2100.h"
#include "cg21sld.h"
TOOLBAR "" 0 -4 0 4 TOOLBAR "" 0 -2 0 2
#include <toolbar.h> #include <toolbar.h>
BUTTON F_EASYDOC 10
BEGIN
PROMPT -66 -3 "&Immagine"
FLAGS "H"
END
ENDPAGE ENDPAGE
PAGE "Testata" -1 -1 77 20 PAGE "Testata" -1 -1 77 20
@ -165,9 +160,9 @@ BEGIN
COPY OUTPUT F_DESCAGG COPY OUTPUT F_DESCAGG
END END
GROUPBOX DLG_NULL 78 5 GROUPBOX DLG_NULL 78 8
BEGIN BEGIN
PROMPT 1 10 "Voci per saldaconto" PROMPT 1 10 "@bVoci per saldaconto"
GROUP 5 GROUP 5
END END
@ -213,22 +208,13 @@ BEGIN
WARNING "E' stata specificata una valuta senza il cambio relativo" WARNING "E' stata specificata una valuta senza il cambio relativo"
END END
/*
BOOLEAN SK_CONTROEURO
BEGIN
PROMPT 70 11 "Euro"
FIELD CONTROEURO
GROUP 3 5
END
*/
CURRENCY F_TOTALE 18 CURRENCY F_TOTALE 18
BEGIN BEGIN
PROMPT 2 12 "Importo movimento " PROMPT 2 12 "Importo movimento "
GROUP 5 GROUP 5
FIELD TOTDOC FIELD TOTDOC
VALIDATE REQIF_FUNC 1 SK_TOTDOCVAL VALIDATE REQIF_FUNC 1 SK_TOTDOCVAL
MESSAGE COPY,K_TOTALE MESSAGE COPY,K_TOTALE|COPY,FS_IMPONIBILI
END END
CURRENCY SK_TOTDOCVAL 18 CURRENCY SK_TOTDOCVAL 18
@ -240,6 +226,51 @@ BEGIN
FIELD TOTDOCVAL FIELD TOTDOCVAL
END END
STRING F_CODPAG 4
BEGIN
PROMPT 2 14 "Cod. Pagamento "
FIELD CODPAG
FLAGS "U#"
USE %CPG
INPUT CODTAB F_CODPAG
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODPAG CODTAB
OUTPUT F_DESPAG S0
CHECKTYPE NORMAL
ADD RUN ba3 -6
WARNING "Codice pagamento assente"
GROUP 5 6
END
STRING F_DESPAG 50
BEGIN
PROMPT 25 14 ""
USE %CPG KEY 2
INPUT S0 F_DESPAG
DISPLAY "Descrizione@60" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODPAG
ADD RUN ba3 -6
GROUP 5 6
END
NUMBER F_ANNORIF 4
BEGIN
PROMPT 48 15 "Rif.partita "
FIELD LF_PARTITE->ANNO
FLAGS "U"
GROUP 5 6
END
STRING F_NUMRIF 7
BEGIN
PROMPT 66 15 "/ "
FIELD LF_PARTITE->NUMPART
FLAGS "U#"
GROUP 5 6
END
ENDPAGE ENDPAGE
PAGE "Righe" -1 -1 77 20 PAGE "Righe" -1 -1 77 20
@ -255,91 +286,91 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
STRING K_RAGSOC 50 52 STRING K_RAGSOC 50 56
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 21 1 ""
FLAGS "D" FLAGS "D"
END END
NUMBER K_NUMREG 7 NUMBER K_NUMREG 7
BEGIN BEGIN
PROMPT 56 3 "Operazione n. " PROMPT 1 3 "Operazione "
FLAGS "D" FLAGS "D"
END END
DATE K_DATAREG DATE K_DATAREG
BEGIN BEGIN
PROMPT 1 3 "Data operazione " PROMPT 22 3 "del "
FLAGS "D" FLAGS "D"
END END
DATE K_DATACOMP DATE K_DATACOMP
BEGIN BEGIN
PROMPT 1 4 "Data di competenza " PROMPT 41 3 "Competenza "
FLAGS "D" FLAGS "D"
END END
NUMBER K_ANNOES 4 NUMBER K_ANNOES 4
BEGIN BEGIN
PROMPT 56 4 "Codice esercizio " PROMPT 64 3 "Esercizio "
FLAGS "DZ" FLAGS "DZ"
END END
DATE K_DATADOC
BEGIN
PROMPT 1 5 "Data del documento "
FLAGS "D"
END
STRING K_NUMDOC 7 STRING K_NUMDOC 7
BEGIN BEGIN
PROMPT 38 5 "Numero documento " PROMPT 1 4 "Documento "
FLAGS "D"
END
DATE K_DATADOC
BEGIN
PROMPT 22 4 "del "
FLAGS "D" FLAGS "D"
END END
STRING K_TIPODOC 2 STRING K_TIPODOC 2
BEGIN BEGIN
PROMPT 65 5 "Tipo doc. " PROMPT 41 4 "Tipo documento "
FLAGS "D" FLAGS "D"
END END
STRING K_CODCAUS 3 STRING K_CODCAUS 3
BEGIN BEGIN
PROMPT 1 6 "Causale " PROMPT 1 5 "Causale "
FLAGS "D" FLAGS "D"
END END
STRING K_DESCRCAUS 50 52 STRING K_DESCRCAUS 50 52
BEGIN BEGIN
PROMPT 25 6 "" PROMPT 26 5 ""
FLAGS "D" FLAGS "D"
END END
CURRENCY K_TOTALE 18 CURRENCY K_TOTALE 18
BEGIN BEGIN
PROMPT 1 7 "Imp. mov. " PROMPT 1 6 "Imp. mov. "
FLAGS "D" FLAGS "D"
GROUP 5 GROUP 5
END END
CURRENCY K_RESIDUO 18 CURRENCY K_RESIDUO 18
BEGIN BEGIN
PROMPT 32 7 "Residuo " PROMPT 32 6 "Residuo "
FLAGS "D" FLAGS "D"
GROUP 5 GROUP 5
END END
LIST SK_TIPORIGA 1 12 LIST SK_TIPORIGA 1 12
BEGIN BEGIN
PROMPT 60 7 "Riga " PROMPT 60 6 "Riga "
ITEM "K|Saldaconto" ITEM "K|Saldaconto"
ITEM "G|Spese" ITEM "G|Spese"
ITEM "A|Normale" ITEM "A|Normale"
END END
SPREADSHEET F_SHEETCG 0 -2 SPREADSHEET F_SHEETCG 0 -3
BEGIN BEGIN
PROMPT 0 8 "" PROMPT 0 7 ""
ITEM "Dare@15F" ITEM "Dare@15F"
ITEM "Avere@15F" ITEM "Avere@15F"
ITEM "CF@2" ITEM "CF@2"
@ -361,6 +392,30 @@ BEGIN
ITEM "Tipo@4" ITEM "Tipo@4"
END END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 1 -2 "Conto riga corrente "
FLAGS "D"
END
NUMBER F_CONTO 3
BEGIN
PROMPT 31 -2 ""
FLAGS "D"
END
NUMBER F_SOTTOCONTO 6
BEGIN
PROMPT 36 -2 ""
FLAGS "D"
END
STRING F_SALDOCONTO 20
BEGIN
PROMPT 51 -2 "Saldo "
FLAGS "DR"
END
CURRENCY F_DARE 18 CURRENCY F_DARE 18
BEGIN BEGIN
PROMPT 1 -1 "Sbilancio Dare " PROMPT 1 -1 "Sbilancio Dare "
@ -369,14 +424,15 @@ END
CURRENCY F_AVERE 18 CURRENCY F_AVERE 18
BEGIN BEGIN
PROMPT 41 -1 "Sbilancio Avere " PROMPT 42 -1 "Sbilancio Avere "
FLAGS "DRV" FLAGS "DRV"
END END
ENDPAGE ENDPAGE
#include "cg21sld.uml"
ENDMASK ENDMASK
#include "cg21cg.uml" #include "cg21cg.uml"
#include "cg21rata.uml"

46
cg/cg2100c.uml
View File

@ -1,22 +1,10 @@
#include "cg2100.h" #include "cg2100.h"
#include "cg21sld.h" #include "cg21sld.h"
TOOLBAR "" 0 -4 0 4 TOOLBAR "" 0 -2 0 2
#include <toolbar.h> #include <toolbar.h>
BUTTON F_ADJUST_PRORATA 40
BEGIN
PROMPT 1 -3 "Corre~zione automatica righe contabili"
FLAGS "H"
END
BUTTON F_EASYDOC 10
BEGIN
PROMPT -66 -3 "~Immagine"
FLAGS "H"
END
ENDPAGE ENDPAGE
PAGE "Testata" -1 -1 77 20 PAGE "Testata" -1 -1 77 20
@ -598,6 +586,12 @@ BEGIN
DRIVENBY F_VALUTAINTRA DRIVENBY F_VALUTAINTRA
END END
BUTTON F_ADJUST_PRORATA 40
BEGIN
PROMPT 1 -1 "Corre~zione automatica righe contabili"
FLAGS "H"
END
ENDPAGE ENDPAGE
PAGE "IVA" -1 -1 77 20 PAGE "IVA" -1 -1 77 20
@ -668,7 +662,7 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
SPREADSHEET F_SHEETCG 0 -2 SPREADSHEET F_SHEETCG 0 -3
BEGIN BEGIN
PROMPT 0 11 "" PROMPT 0 11 ""
ITEM "Dare@15F" ITEM "Dare@15F"
@ -692,6 +686,30 @@ BEGIN
ITEM "Tipo@4" ITEM "Tipo@4"
END END
NUMBER F_GRUPPO 3
BEGIN
PROMPT 1 -2 "Conto riga corrente "
FLAGS "D"
END
NUMBER F_CONTO 3
BEGIN
PROMPT 31 -2 ""
FLAGS "D"
END
NUMBER F_SOTTOCONTO 6
BEGIN
PROMPT 36 -2 ""
FLAGS "D"
END
STRING F_SALDOCONTO 20
BEGIN
PROMPT 51 -2 "Saldo "
FLAGS "DR"
END
CURRENCY F_DARE 18 CURRENCY F_DARE 18
BEGIN BEGIN
PROMPT 1 -1 "Sbilancio Dare " PROMPT 1 -1 "Sbilancio Dare "

116
cg/cg2102.cpp
View File

@ -1,5 +1,4 @@
#include <colors.h> #include <colors.h>
#include <currency.h>
#include <msksheet.h> #include <msksheet.h>
#include <progind.h> #include <progind.h>
#include <tabutil.h> #include <tabutil.h>
@ -981,6 +980,83 @@ int TPrimanota_application::crea_somma_spese(TImporto& imp)
return r; return r;
} }
void TPrimanota_application::update_saldo_riga(int r)
{
TSheet_field& sheet = cgs();
TToken_string row = sheet.row(r);
TBill bill; bill.get(row, 2, 0x1);
if (bill.ok())
{
const int annoes = _saldi.anno_es();
// Legge il saldo finale del conto
TBalance bilancio;
bilancio.read(bill, annoes, false, false);
TImporto saldo = bilancio.saldo_finale();
// Sottrae (somma algebricamente) il valore iniziale del conto
const TConto* conto = _saldi.find(bill, annoes);
if (conto != NULL)
{
saldo += TImporto('D', conto->dare());
saldo += TImporto('A', conto->avere());
}
// Somma l'importo delle singole righe con quel conto
for (int i = sheet.items()-1; i >= 0; i--)
{
row = sheet.row(i);
if (!row.empty_items())
{
TBill zio; bill.get(row, 2, 0x1);
if (zio == bill)
{
TImporto da; da = row;
saldo += da;
}
}
}
TString80 s; // Stringa di lavoro
// Trasforma il saldo in stringa
saldo.normalize();
if (!saldo.is_zero())
{
const TCurrency imp = saldo.valore();
s = imp.string(true);
s << ' ' << saldo.sezione();
}
TMask& m = curr_mask();
bill.set(m, F_GRUPPO, F_CONTO, F_SOTTOCONTO); // Stampa conto
m.set(F_SALDOCONTO, s); // Stampa saldo
// Controlla se il conto ha attivato il controllo del segno
s = bill.string(); // Chiave del sottoconto da controllare
if (bill.tipo() > ' ') // Per i clienti/fornitori devo controllare il solo gruppo/conto
{
const int pipe = s.rfind('|');
s.cut(pipe);
}
const TRectype& pcon = cache().get(LF_PCON, s);
const char sez = pcon.get_char(PCN_SEZSALDI);
bool red = false;
if (sez > ' ' && !saldo.is_zero()) // Il conto ha impostato il controllo della sezione!
red = sez != saldo.sezione();
// Scrive in nero o rosso la parola Saldo
s = TR("Saldo");
if (red)
{
s.upper();
s.insert("@b$[r]");
}
m.field(F_SALDOCONTO).set_prompt(s);
}
}
bool TPrimanota_application::cg_notify(TSheet_field& cg, int r, KEY k) bool TPrimanota_application::cg_notify(TSheet_field& cg, int r, KEY k)
{ {
static TImporto old_spesa; static TImporto old_spesa;
@ -1028,6 +1104,7 @@ bool TPrimanota_application::cg_notify(TSheet_field& cg, int r, KEY k)
cg.select(r, 1); // Vado alla prima colonna delle righe vuote cg.select(r, 1); // Vado alla prima colonna delle righe vuote
selecting = FALSE; selecting = FALSE;
} }
a.update_saldo_riga(r);
} }
break; break;
case K_DEL: case K_DEL:
@ -1063,7 +1140,9 @@ bool TPrimanota_application::cg_notify(TSheet_field& cg, int r, KEY k)
a.generazione_righe_cg(r); a.generazione_righe_cg(r);
} }
if (k == K_ENTER) if (k == K_ENTER)
{
a.calcola_saldo(); // Altrimenti ci pensa CTRL-DEL a.calcola_saldo(); // Altrimenti ci pensa CTRL-DEL
}
break; break;
case K_CTRL+K_INS: // Post inserimento case K_CTRL+K_INS: // Post inserimento
if (a.is_pagamento()) if (a.is_pagamento())
@ -1155,6 +1234,7 @@ bool TPrimanota_application::dareavere_handler(TMask_field& f, KEY k)
TPrimanota_application& a = app(); TPrimanota_application& a = app();
TSheet_field& cgs = a.cgs(); TSheet_field& cgs = a.cgs();
const int currig = cgs.selected(); const int currig = cgs.selected();
TMask& m = f.mask();
if (k == K_F8 && a.is_pagamento()) if (k == K_F8 && a.is_pagamento())
{ {
@ -1163,7 +1243,6 @@ bool TPrimanota_application::dareavere_handler(TMask_field& f, KEY k)
const TImporto speso = a.partite().importo_speso(numreg, currig+1); const TImporto speso = a.partite().importo_speso(numreg, currig+1);
const char* ss = speso.valore().string(); const char* ss = speso.valore().string();
TMask& m = f.mask();
m.set(CG_DARE, speso.sezione() == 'D' ? ss : ""); m.set(CG_DARE, speso.sezione() == 'D' ? ss : "");
m.set(CG_AVERE, speso.sezione() == 'A' ? ss : ""); m.set(CG_AVERE, speso.sezione() == 'A' ? ss : "");
@ -1171,6 +1250,7 @@ bool TPrimanota_application::dareavere_handler(TMask_field& f, KEY k)
{ {
speso.add_to(cgs.row(currig), 0); // Aggiorna riga sheet speso.add_to(cgs.row(currig), 0); // Aggiorna riga sheet
a.calcola_saldo(); // Aggiorna saldo e residuo a.calcola_saldo(); // Aggiorna saldo e residuo
a.update_saldo_riga(currig);
} }
} }
@ -1184,12 +1264,21 @@ bool TPrimanota_application::dareavere_handler(TMask_field& f, KEY k)
{ {
// Calcola id del campo da resettare // Calcola id del campo da resettare
const int id = f.dlg() == CG_DARE ? CG_AVERE : CG_DARE; const int id = f.dlg() == CG_DARE ? CG_AVERE : CG_DARE;
f.mask().reset(id); // Aggiorna maschera e ... m.reset(id); // Aggiorna maschera e ...
row.add("", id - CG_DARE); // ... riga dello sheet row.add("", id - CG_DARE); // ... riga dello sheet
} }
if (!f.mask().is_running()) if (!m.is_running())
{
a.calcola_saldo(); // Aggiorna saldo e residuo a.calcola_saldo(); // Aggiorna saldo e residuo
a.update_saldo_riga(currig);
}
}
if (k == K_ENTER && f.dirty() && m.is_running())
{
a.calcola_saldo(); // Aggiorna saldo e residuo
a.update_saldo_riga(currig);
} }
return TRUE; return TRUE;
@ -1210,11 +1299,9 @@ bool TPrimanota_application::fase_handler(TMask_field& f, KEY k)
TSheet_field& TPrimanota_application::pags() const TSheet_field& TPrimanota_application::pags() const
{ {
CHECK(is_fattura(), "Can't use rate sheet without a fattura"); CHECK(is_fattura(), "Can't use rate sheet without a fattura");
const int pos = _msk[2]->id2pos(FS_RATESHEET); TMask& m = *_msk[iva() == nessuna_iva ? 1 : 2];
CHECK(pos > 0, "Can't find rate sheet"); return m.sfield(FS_RATESHEET);
TSheet_field& s = (TSheet_field&)_msk[2]->fld(pos);
return s;
} }
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
@ -2231,13 +2318,13 @@ bool TPrimanota_application::numdoc_handler(TMask_field& f, KEY key)
} }
// Controllo documenti duplicati // Controllo documenti duplicati
if (key == K_ENTER && app().iva() == iva_acquisti) if (key == K_ENTER && !f.empty() && app().iva() == iva_acquisti)
{ {
TMask& m = f.mask(); TMask& m = f.mask();
const int annodoc = m.get_date(F_DATADOC).year(); const int annodoc = m.get_date(F_DATADOC).year();
const long fornitore = m.get_long(F_FORNITORE); const long fornitore = m.get_long(F_FORNITORE);
if (annodoc > 0 && fornitore > 0 && !f.empty()) if (annodoc > 0 && fornitore > 0)
{ {
// SELECT NUMREG,DATAREG,DATADOC,NUMDOC FROM MOV // SELECT NUMREG,DATAREG,DATADOC,NUMDOC FROM MOV
// WHERE TIPO='F' AND CODCF=F_FORNITORE AND // WHERE TIPO='F' AND CODCF=F_FORNITORE AND
@ -2947,8 +3034,11 @@ bool TPrimanota_application::activate_numrif(TMask& m, bool init_pag)
if (shown) if (shown)
{ {
const bool hide = m.get_bool(F_SOLAIVA) || m.field(F_OCCASEDIT).shown(); if (m.id2pos(F_SOLAIVA) >= 0) // Maschera moviventi IVA
if (hide) shown = FALSE; {
const bool hide = m.get_bool(F_SOLAIVA) || m.field(F_OCCASEDIT).shown();
if (hide) shown = FALSE;
}
} }
if (shown != m.field(F_NUMRIF).shown()) if (shown != m.field(F_NUMRIF).shown())

1
cg/cg2102.h
View File

@ -159,6 +159,7 @@ class TPrimanota_application : public TRelation_application
void reset_sheet_row(TSheet_field& s, int n); void reset_sheet_row(TSheet_field& s, int n);
int crea_somma_spese(TImporto& imp); int crea_somma_spese(TImporto& imp);
void update_saldo_riga(int r);
protected: // TApplication protected: // TApplication
virtual void on_firm_change(); virtual void on_firm_change();

80
cg/cg2104.cpp
View File

@ -3,10 +3,7 @@
// fv 24/8/94 // fv 24/8/94
// -------------------------------------------------------------------------- // --------------------------------------------------------------------------
#include <currency.h>
#include <msksheet.h> #include <msksheet.h>
#include <utility.h>
#include "cgpagame.h" #include "cgpagame.h"
#include "cgsaldac.h" #include "cgsaldac.h"
@ -360,7 +357,7 @@ bool TPrimanota_application::annorif_handler(TMask_field& f, KEY key)
if (f.to_check(key)) if (f.to_check(key))
{ {
const TMask& m = f.mask(); const TMask& m = f.mask();
if (!m.get(F_NUMRIF).blank() && f.get().empty()) if (f.empty() && !m.get(F_NUMRIF).blank())
{ {
const TString& anno = m.get(F_DATADOC).right(4); const TString& anno = m.get(F_DATADOC).right(4);
f.set(anno); f.set(anno);
@ -378,14 +375,16 @@ bool TPrimanota_application::numrif_handler(TMask_field& f, KEY key)
{ {
TPrimanota_application& a = app(); TPrimanota_application& a = app();
TMask& m = f.mask(); TMask& m = f.mask();
const bool moviva = a.iva() != nessuna_iva; // Maschera IVA?
bool required = m.insert_mode() && a.is_fattura(); bool required = m.insert_mode() && a.is_fattura();
required &= key == K_ENTER || f.focusdirty(); required &= key == K_ENTER || f.focusdirty();
required &= !(m.get_bool(F_SOLAIVA) || m.field(F_OCCASEDIT).active()); if (moviva)
required &= !(m.get_bool(F_SOLAIVA) || m.field(F_OCCASEDIT).active());
if (required && f.get().blank()) if (required && f.get().blank())
{ {
if (m.get(F_CODPAG).empty()) if (moviva && m.field(F_CODPAG).empty())
{ {
TMask_field& clifo = m.field(a.iva() == iva_vendite ? F_CLIENTE : F_FORNITORE); TMask_field& clifo = m.field(a.iva() == iva_vendite ? F_CLIENTE : F_FORNITORE);
clifo.set_dirty(); clifo.set_dirty();
@ -608,7 +607,8 @@ bool TPrimanota_application::nrate_handler(TMask_field& f, KEY key)
app().set_banche(m); app().set_banche(m);
app().pag_rows() = ps.rows_array(); app().pag_rows() = ps.rows_array();
} }
f.set(format("%d", pag.n_rate())); TString8 r; r.format("%d", pag.n_rate());
f.set(r);
} }
return TRUE; return TRUE;
} }
@ -707,7 +707,7 @@ void TPrimanota_application::set_totale_pagamento(bool update)
const TMask& m = curr_mask(); const TMask& m = curr_mask();
TPagamento& pag = pagamento(); TPagamento& pag = pagamento();
const real imposta = m.get_real(F_IMPOSTE); const real imposta = m.id2pos(F_IMPOSTE) >= 0 ? m.get_real(F_IMPOSTE) : ZERO;
const real imponibile = m.get_real(F_TOTALE) - imposta; const real imponibile = m.get_real(F_TOTALE) - imposta;
const real spese = ZERO; const real spese = ZERO;
@ -827,14 +827,17 @@ bool TPrimanota_application::read_scadenze(TMask& m)
warning_box(FR("Il totale documento (%s) non corrisponde a quello del saldaconto (%s)."), warning_box(FR("Il totale documento (%s) non corrisponde a quello del saldaconto (%s)."),
(const char*)i1, (const char*)i2); (const char*)i1, (const char*)i2);
} }
if (m.get_real(F_IMPOSTE) != partita.get_real(PART_IMPOSTA)) if (iva() != nessuna_iva)
{ {
const TCurrency imposte_c(m.get_real(F_IMPOSTE)); if (m.get_real(F_IMPOSTE) != partita.get_real(PART_IMPOSTA))
const TCurrency imposte_s(partita.get_real(PART_IMPOSTA)); {
const TString i1 = imposte_c.string(TRUE); const TCurrency imposte_c(m.get_real(F_IMPOSTE));
const TString i2 = imposte_s.string(TRUE); const TCurrency imposte_s(partita.get_real(PART_IMPOSTA));
warning_box(FR("Il totale delle imposte (%s) non corrisponde a quello del saldaconto (%s)."), const TString i1 = imposte_c.string(TRUE);
(const char*)i1, (const char*)i2); const TString i2 = imposte_s.string(TRUE);
warning_box(FR("Il totale delle imposte (%s) non corrisponde a quello del saldaconto (%s)."),
(const char*)i1, (const char*)i2);
}
} }
set_totale_pagamento(FALSE); set_totale_pagamento(FALSE);
@ -892,19 +895,38 @@ bool TPrimanota_application::read_scadenze(TMask& m)
int TPrimanota_application::cerca_conto_cf(TBill& bill) const int TPrimanota_application::cerca_conto_cf(TBill& bill) const
{ {
const char tipocf = clifo();
const long codcf = curr_mask().get_long(tipocf == 'C' ? F_CLIENTE : F_FORNITORE);
TString_array& a = cgs().rows_array(); TString_array& a = cgs().rows_array();
for (int r = 0; r < a.items(); r++) if (iva() != nessuna_iva)
{ {
TToken_string& row = a.row(r); const char tipocf = clifo();
bill.get(row, 2, 0x1); const long codcf = curr_mask().get_long(tipocf == 'C' ? F_CLIENTE : F_FORNITORE);
if (bill.tipo() == tipocf && bill.codclifo() == codcf) for (int r = 0; r < a.items(); r++)
return r; {
TToken_string& row = a.row(r);
bill.get(row, 2, 0x1);
if (bill.tipo() == tipocf && bill.codclifo() == codcf)
return r;
}
bill.set(0, 0, codcf, tipocf);
}
else
{
for (int r = 0; r < a.items(); r++)
{
TToken_string& row = a.row(r);
bill.get(row, 2, 0x1);
if (bill.tipo() > ' ')
return r;
}
if (a.items() > 0)
{
TToken_string& row = a.row(0);
bill.get(row, 2, 0x1);
return 0;
}
else
bill.set(0, 0, 0, ' ');
} }
bill.set(0, 0, codcf, tipocf);
return -1; return -1;
} }
@ -950,8 +972,9 @@ void TPrimanota_application::write_scadenze(const TMask& m)
partita.put(PART_DESCR, desc); partita.put(PART_DESCR, desc);
partita.put(PART_CODCAUS, codcaus); partita.put(PART_CODCAUS, codcaus);
partita.put(PART_REG, causale().reg().name()); partita.put(PART_REG, causale().reg().name());
partita.put(PART_PROTIVA, m.get_long(F_PROTIVA));
partita.put(PART_SEZ, sezione); partita.put(PART_SEZ, sezione);
if (iva() != nessuna_iva)
partita.put(PART_PROTIVA, m.get_long(F_PROTIVA));
const TImporto totdoc = get_cgs_imp(riga_clifo); const TImporto totdoc = get_cgs_imp(riga_clifo);
partita.put(PART_IMPTOTDOC, totdoc.valore()); partita.put(PART_IMPTOTDOC, totdoc.valore());
@ -972,8 +995,9 @@ void TPrimanota_application::write_scadenze(const TMask& m)
partita.put(PART_IMPORTO, imponibile); partita.put(PART_IMPORTO, imponibile);
partita.put(PART_IMPORTOVAL, imponibile_val); partita.put(PART_IMPORTOVAL, imponibile_val);
partita.put(PART_IMPOSTA, m.get(F_IMPOSTE));
partita.put(PART_SPESE, pag.spese()); partita.put(PART_SPESE, pag.spese());
if (iva() != nessuna_iva)
partita.put(PART_IMPOSTA, m.get(F_IMPOSTE));
TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET); TSheet_field& ps = (TSheet_field&)m.field(FS_RATESHEET);

180
cg/cg3600.cpp
View File

@ -3,7 +3,6 @@
#include <applicat.h> #include <applicat.h>
#include <colors.h> #include <colors.h>
#include <controls.h> #include <controls.h>
#include <currency.h>
#include <execp.h> #include <execp.h>
#include <mailbox.h> #include <mailbox.h>
#include <progind.h> #include <progind.h>
@ -15,6 +14,7 @@
#include "cg3.h" #include "cg3.h"
#include "cglib01.h" #include "cglib01.h"
#include "cglib02.h"
#include "cg3600.h" #include "cg3600.h"
#include <causali.h> #include <causali.h>
@ -353,184 +353,6 @@ long TList::append(TObject* obj, long index)
#endif #endif
///////////////////////////////////////////////////////////
// TBalance
///////////////////////////////////////////////////////////
class TBalance : public TObject
{
TImporto _saldo_ini, _progr_dare, _progr_avere, _saldo_fin;
protected:
bool find(const TBill& b, int esercizio,
TImporto& si, TImporto& da, TImporto& av, TImporto& sf,
TImporto& pd, TImporto& pa) const;
int indicatore_bilancio(const TBill& b) const;
public:
void read(int g, int c, long s, int esercizio, bool ignora_movap, bool provvis);
void read(const TBill& b, int esercizio, bool ignora_movap, bool provvis);
void reread();
const TImporto& saldo_iniziale() const;
const real& progressivo_dare_iniziale() const;
const real& progressivo_avere_iniziale() const;
real progressivo_dare_finale() const;
real progressivo_avere_finale() const;
TImporto saldo_finale(bool chiusura = FALSE) const;
TImporto saldo_finale_chiusura() const;
TBalance();
TBalance(int g, int c, long s, int esercizio, bool ignora_movap, bool provvis);
TBalance(const TBill& b, int esercizio, bool ignora_movap, bool provvis);
virtual ~TBalance() { }
};
TBalance::TBalance()
{
}
TBalance::TBalance(int g, int c, long s, int esercizio, bool ignora_movap, bool provvis)
{
read(g, c, s, esercizio, ignora_movap, provvis);
}
TBalance::TBalance(const TBill& b, int esercizio, bool ignora_movap, bool provvis)
{
read(b, esercizio, ignora_movap, provvis);
}
bool TBalance::find(const TBill& b, int esercizio,
TImporto& si, TImporto& da, TImporto& av, TImporto& sf,
TImporto& pd, TImporto& pa) const
{
CHECK(b.sottoconto() > 0L, "Sottoconto mancante");
TString key(30);
key.format("%d||%d|%d|%ld", esercizio, b.gruppo(), b.conto(), b.sottoconto());
const TRectype & saldi = cache().get(LF_SALDI, key);
if (!saldi.empty())
{
si.set(saldi.get_char(SLD_FLAGSALINI), saldi.get_real(SLD_SALDO));
da.set('D', saldi.get_real(SLD_PDARE));
av.set('A', saldi.get_real(SLD_PAVERE));
sf.set(saldi.get_char(SLD_FLAGSALFIN), saldi.get_real(SLD_SALDOFIN));
pd.set('D', saldi.get_real(SLD_PDAREPRO));
pa.set('A', saldi.get_real(SLD_PAVEREPRO));
}
else
{
si.set('D', ZERO);
da = av = sf = pd = pa = si;
}
return ok;
}
void TBalance::read(int gruppo, int conto, long sottoconto, int esercizio, bool ignora_movap, bool provvis)
{
const TBill zio(gruppo, conto, sottoconto);
read(zio, esercizio, ignora_movap, provvis);
}
int TBalance::indicatore_bilancio(const TBill& b) const
{
TString16 str;
str.format("%d|%d", b.gruppo(), b.conto());
const int ib = atoi(cache().get(LF_PCON, str, PCN_INDBIL));
if (ib == 0)
NFCHECK("Impossibile stabilire l'indicatore di bilancio");
return ib;
}
void TBalance::read(const TBill& b, int esercizio, bool ignora_movap, bool provvis)
{
TImporto si, sf, pd, pa, prd, pra;
find(b, esercizio, si, pd, pa, sf, prd, pra);
if (provvis)
{
pd += prd;
pa += pra;
}
_saldo_ini = si;
_progr_dare = pd;
_progr_avere = pa;
_saldo_fin = sf;
if (_saldo_ini.is_zero())
{
const int indbil = indicatore_bilancio(b);
if (indbil == 1 || indbil == 2 || indbil == 5)
{
TEsercizi_contabili esercizi;
const int precedente = esercizi.pred(esercizio);
if (precedente > 0 && find(b, precedente, si, pd, pa, sf, prd, pra))
{
if (provvis)
{
pd += prd;
pa += pra;
}
_saldo_ini = si;
_saldo_ini += pd;
_saldo_ini += pa;
_saldo_ini += sf;
}
}
}
else
{
if (ignora_movap)
_saldo_ini.set('D', ZERO);
}
}
const TImporto& TBalance::saldo_iniziale() const
{ return _saldo_ini; }
const real& TBalance::progressivo_dare_iniziale() const
{
return _saldo_ini.sezione() == 'D' ? _saldo_ini.valore() : ZERO;
}
const real& TBalance::progressivo_avere_iniziale() const
{
return _saldo_ini.sezione() == 'A' ? _saldo_ini.valore() : ZERO;
}
real TBalance::progressivo_dare_finale() const
{
real pd = progressivo_dare_iniziale();
pd += _progr_dare.valore();
if (_saldo_fin.sezione() == 'D')
pd += _saldo_fin.valore();
return pd;
}
real TBalance::progressivo_avere_finale() const
{
real pa = progressivo_avere_iniziale();
pa += _progr_avere.valore();
if (_saldo_fin.sezione() == 'A')
pa += _saldo_fin.valore();
return pa;
}
TImporto TBalance::saldo_finale(bool chiusura) const
{
TImporto sf(_saldo_ini);
sf += _progr_dare;
sf += _progr_avere;
if (chiusura)
sf += _saldo_fin;
return sf;
}
TImporto TBalance::saldo_finale_chiusura() const
{
return saldo_finale(TRUE);
}
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////
// TMastrino // TMastrino
/////////////////////////////////////////////////////////// ///////////////////////////////////////////////////////////

155
cg/cglib02.cpp
View File

@ -468,7 +468,7 @@ bool TSaldo::ultima_immissione_bilancio(int annoes,int g,int c,long s,int indbil
return esito; return esito;
} }
real & TSaldo::saldo_periodo(int g, int c, long s, const TDate& dal, const TDate& al, const real& TSaldo::saldo_periodo(int g, int c, long s, const TDate& dal, const TDate& al,
int indbil, bool provv, const TString & codcomm) int indbil, bool provv, const TString & codcomm)
{ {
@ -499,7 +499,6 @@ real & TSaldo::saldo_periodo(int g, int c, long s, const TDate& dal, const TDate
if (_prec) if (_prec)
{ {
_prec = TRUE;
_saldo_iniziale = saldofin_esprec(codes,g,c,s); _saldo_iniziale = saldofin_esprec(codes,g,c,s);
} }
else else
@ -542,7 +541,7 @@ real & TSaldo::saldo_periodo(int g, int c, long s, const TDate& dal, const TDate
const TString& movap = _causali_apertura.decode(_codcaus); const TString& movap = _causali_apertura.decode(_codcaus);
leggi_mov(num_reg); leggi_mov(num_reg);
if ((provv || _provv.empty()) && movap.blank()) if ((provv || _provv.empty()) && movap.blank())
{ {
if (_datacomp >= dal && _datacomp <= al) if (_datacomp >= dal && _datacomp <= al)
{ {
@ -948,3 +947,153 @@ void TSaldo_agg::registra()
tcon.saldo_finale() = sf; tcon.saldo_finale() = sf;
} }
} }
///////////////////////////////////////////////////////////
// TBalance
///////////////////////////////////////////////////////////
TBalance::TBalance()
{
}
TBalance::TBalance(int g, int c, long s, int esercizio, bool ignora_movap, bool provvis)
{
read(g, c, s, esercizio, ignora_movap, provvis);
}
TBalance::TBalance(const TBill& b, int esercizio, bool ignora_movap, bool provvis)
{
read(b, esercizio, ignora_movap, provvis);
}
bool TBalance::find(const TBill& b, int esercizio,
TImporto& si, TImporto& da, TImporto& av, TImporto& sf,
TImporto& pd, TImporto& pa) const
{
CHECK(b.sottoconto() > 0L, "Sottoconto mancante");
TString key(30);
key.format("%d||%d|%d|%ld", esercizio, b.gruppo(), b.conto(), b.sottoconto());
const TRectype & saldi = cache().get(LF_SALDI, key);
if (!saldi.empty())
{
si.set(saldi.get_char(SLD_FLAGSALINI), saldi.get_real(SLD_SALDO));
da.set('D', saldi.get_real(SLD_PDARE));
av.set('A', saldi.get_real(SLD_PAVERE));
sf.set(saldi.get_char(SLD_FLAGSALFIN), saldi.get_real(SLD_SALDOFIN));
pd.set('D', saldi.get_real(SLD_PDAREPRO));
pa.set('A', saldi.get_real(SLD_PAVEREPRO));
}
else
{
si.set('D', ZERO);
da = av = sf = pd = pa = si;
}
return ok;
}
void TBalance::read(int gruppo, int conto, long sottoconto, int esercizio, bool ignora_movap, bool provvis)
{
const TBill zio(gruppo, conto, sottoconto);
read(zio, esercizio, ignora_movap, provvis);
}
int TBalance::indicatore_bilancio(const TBill& b) const
{
TString16 str;
str.format("%d|%d", b.gruppo(), b.conto());
const int ib = atoi(cache().get(LF_PCON, str, PCN_INDBIL));
if (ib == 0)
NFCHECK("Impossibile stabilire l'indicatore di bilancio");
return ib;
}
void TBalance::read(const TBill& b, int esercizio, bool ignora_movap, bool provvis)
{
TImporto si, sf, pd, pa, prd, pra;
find(b, esercizio, si, pd, pa, sf, prd, pra);
if (provvis)
{
pd += prd;
pa += pra;
}
_saldo_ini = si;
_progr_dare = pd;
_progr_avere = pa;
_saldo_fin = sf;
if (_saldo_ini.is_zero())
{
const int indbil = indicatore_bilancio(b);
if (indbil == 1 || indbil == 2 || indbil == 5)
{
TEsercizi_contabili esercizi;
const int precedente = esercizi.pred(esercizio);
if (precedente > 0 && find(b, precedente, si, pd, pa, sf, prd, pra))
{
if (provvis)
{
pd += prd;
pa += pra;
}
_saldo_ini = si;
_saldo_ini += pd;
_saldo_ini += pa;
_saldo_ini += sf;
}
}
}
else
{
if (ignora_movap)
_saldo_ini.set('D', ZERO);
}
}
const TImporto& TBalance::saldo_iniziale() const
{ return _saldo_ini; }
const real& TBalance::progressivo_dare_iniziale() const
{
return _saldo_ini.sezione() == 'D' ? _saldo_ini.valore() : ZERO;
}
const real& TBalance::progressivo_avere_iniziale() const
{
return _saldo_ini.sezione() == 'A' ? _saldo_ini.valore() : ZERO;
}
real TBalance::progressivo_dare_finale() const
{
real pd = progressivo_dare_iniziale();
pd += _progr_dare.valore();
if (_saldo_fin.sezione() == 'D')
pd += _saldo_fin.valore();
return pd;
}
real TBalance::progressivo_avere_finale() const
{
real pa = progressivo_avere_iniziale();
pa += _progr_avere.valore();
if (_saldo_fin.sezione() == 'A')
pa += _saldo_fin.valore();
return pa;
}
TImporto TBalance::saldo_finale(bool chiusura) const
{
TImporto sf(_saldo_ini);
sf += _progr_dare;
sf += _progr_avere;
if (chiusura)
sf += _saldo_fin;
return sf;
}
TImporto TBalance::saldo_finale_chiusura() const
{
return saldo_finale(TRUE);
}

46
cg/cglib02.h
View File

@ -91,8 +91,8 @@ protected:
bool leggi_mov(long numreg); // Leggi testata bool leggi_mov(long numreg); // Leggi testata
real calcola_saldo_iniziale(int g, int c, long s, int indbil); real calcola_saldo_iniziale(int g, int c, long s, int indbil);
bool prg_saldo(int, TConto&, real&, real&, bool); bool prg_saldo(int, TConto&, real&, real&, bool);
const real & iniziale() const { return _saldo_iniziale;} const real& iniziale() const { return _saldo_iniziale;}
void set_iniziale(const real & val) { _saldo_iniziale = val; } void set_iniziale(const real& val) { _saldo_iniziale = val; }
public: public:
@ -106,15 +106,10 @@ public:
bool causale_mov(long, const TDate&, const TDate&, TString&); bool causale_mov(long, const TDate&, const TDate&, TString&);
/* Inutilizzate!
const TString& causale_chiusura_es() const;
const TString& causale_apertura_es() const;
*/
bool ultima_immissione_bilancio(int anno,int g,int c,long s,int indbil,int prov,bool saldo_chiusura = TRUE); bool ultima_immissione_bilancio(int anno,int g,int c,long s,int indbil,int prov,bool saldo_chiusura = TRUE);
bool ultima_immissione_verifica(int anno,int g,int c,long s,int indbil,int prov); bool ultima_immissione_verifica(int anno,int g,int c,long s,int indbil,int prov);
bool data_limite_bilancio(int,int,int,long,const TDate&,const TDate&,int,int, const char* = NULL); bool data_limite_bilancio(int,int,int,long,const TDate&,const TDate&,int,int, const char* = NULL);
real & saldo_periodo(int g,int c,long s,const TDate& dal,const TDate& al,int indbil, bool provv, const TString & codcomm = EMPTY_STRING); const real& saldo_periodo(int g,int c,long s,const TDate& dal,const TDate& al,int indbil, bool provv, const TString & codcomm = EMPTY_STRING);
bool ricerca_progr_prec(int, int, int, long); bool ricerca_progr_prec(int, int, int, long);
@ -140,7 +135,6 @@ public:
virtual ~TSaldo() {} virtual ~TSaldo() {}
}; };
class TTab_conti : public TAssoc_array class TTab_conti : public TAssoc_array
{ {
public: public:
@ -152,7 +146,6 @@ public:
void remove(const TBill& c, int anno, bool provv = FALSE); void remove(const TBill& c, int anno, bool provv = FALSE);
}; };
class TSaldo_agg : public TObject class TSaldo_agg : public TObject
{ {
TTab_conti _tab_conti; TTab_conti _tab_conti;
@ -199,4 +192,37 @@ public:
virtual ~TSaldo_agg() { } virtual ~TSaldo_agg() { }
}; };
///////////////////////////////////////////////////////////
// TBalance
///////////////////////////////////////////////////////////
class TBalance : public TObject
{
TImporto _saldo_ini, _progr_dare, _progr_avere, _saldo_fin;
protected:
bool find(const TBill& b, int esercizio,
TImporto& si, TImporto& da, TImporto& av, TImporto& sf,
TImporto& pd, TImporto& pa) const;
int indicatore_bilancio(const TBill& b) const;
public:
void read(int g, int c, long s, int esercizio, bool ignora_movap, bool provvis);
void read(const TBill& b, int esercizio, bool ignora_movap, bool provvis);
void reread();
const TImporto& saldo_iniziale() const;
const real& progressivo_dare_iniziale() const;
const real& progressivo_avere_iniziale() const;
real progressivo_dare_finale() const;
real progressivo_avere_finale() const;
TImporto saldo_finale(bool chiusura = FALSE) const;
TImporto saldo_finale_chiusura() const;
TBalance();
TBalance(int g, int c, long s, int esercizio, bool ignora_movap, bool provvis);
TBalance(const TBill& b, int esercizio, bool ignora_movap, bool provvis);
virtual ~TBalance() { }
};
#endif #endif

91
cg/cgpagame.cpp
View File

@ -13,6 +13,7 @@
// se settato, si usa per rate nuove l'intervallo rate default (letto da tab. pagamenti) // se settato, si usa per rate nuove l'intervallo rate default (letto da tab. pagamenti)
#define USE_DEFAULT_INT_RATE 1 #define USE_DEFAULT_INT_RATE 1
#define PERC_DECIMALS 2
inline void swap(int& x, int& y) {int tmp = x; x = y; y = tmp; } inline void swap(int& x, int& y) {int tmp = x; x = y; y = tmp; }
@ -203,11 +204,11 @@ void TPagamento::set_numero_rate(int n, int sscad, int rdiff)
int nact = first == 1 ? n - 1 : n; int nact = first == 1 ? n - 1 : n;
real p = real(100) / real(nact); real p = real(100) / real(nact);
p.round(2); p.round(PERC_DECIMALS);
if (_inited || (!_inited && rdiff == 1)) // se e' inited rdiff e' 2 per forza if (_inited || (!_inited && rdiff == 1)) // se e' inited rdiff e' 2 per forza
{ {
real tot = _inited ? importo_da_dividere(FALSE) : real(100.0); real tot = _inited ? importo_da_dividere(FALSE) : CENTO;
real oot; real oot;
if (inv) if (inv)
oot = importo_da_dividere(TRUE); oot = importo_da_dividere(TRUE);
@ -219,7 +220,7 @@ void TPagamento::set_numero_rate(int n, int sscad, int rdiff)
set_imprata(first, tot, FALSE); set_imprata(first, tot, FALSE);
if (inv) set_imprata(first, oot, TRUE); if (inv) set_imprata(first, oot, TRUE);
} }
set_percrata(first, real(100.0)); set_percrata(first, CENTO);
if (_inited && _tpr > 0 && _tpr < 4) if (_inited && _tpr > 0 && _tpr < 4)
{ {
set_imprata(first, importo_rata(first,FALSE) + importo_da_non_dividere(FALSE), FALSE); set_imprata(first, importo_rata(first,FALSE) + importo_da_non_dividere(FALSE), FALSE);
@ -243,13 +244,13 @@ void TPagamento::set_numero_rate(int n, int sscad, int rdiff)
div.round(_roundlit); div.round(_roundlit);
if (inv) oiv.round(_roundval); if (inv) oiv.round(_roundval);
} }
real perc = (100.0 * div) / tot; real perc = (CENTO * div) / tot;
real rem(tot); real rem(tot);
real oem(oot); real oem(oot);
real p(perc); real p(perc);
p.round(2); p.round(PERC_DECIMALS);
for (i = first; i < n; i++) for (i = first; i < n; i++)
{ {
@ -297,7 +298,7 @@ void TPagamento::set_numero_rate(int n, int sscad, int rdiff)
r -= importo_da_non_dividere(FALSE); r -= importo_da_non_dividere(FALSE);
if (inv) or -= importo_da_non_dividere(TRUE); if (inv) or -= importo_da_non_dividere(TRUE);
} }
set_percrata(first, 100 * r / tot); set_percrata(first, CENTO * r / tot);
} }
else else
{ {
@ -337,12 +338,11 @@ void TPagamento::set_numero_rate(int n, int sscad, int rdiff)
if (inv) if (inv)
oiv.round(_roundval); oiv.round(_roundval);
} }
real perc = (100.0 * div)/tot; real perc = (CENTO * div)/tot;
real rem(rest); real rem(rest);
real oem(oest); real oem(oest);
real p(perc); real p(perc);
p.round(PERC_DECIMALS);
p.round(2);
for (i = 1; i < n; i++) for (i = 1; i < n; i++)
{ {
if (i >= nr) if (i >= nr)
@ -380,12 +380,11 @@ void TPagamento::set_numero_rate(int n, int sscad, int rdiff)
if (inv) set_imprata(first, or, TRUE); if (inv) set_imprata(first, or, TRUE);
if (_inited && _tpr > 0 && _tpr < 4) if (_inited && _tpr > 0 && _tpr < 4)
r -= importo_da_non_dividere(FALSE); r -= importo_da_non_dividere(FALSE);
set_percrata(first, 100 * r / tot); set_percrata(first, CENTO * r / tot);
} }
else else
{ {
const real r(perc_rata(first) + rem); const real r(perc_rata(first) + rem);
set_percrata(first, r); set_percrata(first, r);
} }
} }
@ -394,21 +393,21 @@ void TPagamento::set_numero_rate(int n, int sscad, int rdiff)
} }
else else
{ {
for (i = first; sum < real(100.0); i++) for (i = first; sum < CENTO; i++)
{ {
if ((real(100.0) - sum) < p) if ((CENTO - sum) < p)
p = real(100.0) - sum; p = CENTO - sum;
sum += p; sum += p;
// if necessary add remainder on first one // if necessary add remainder on first one
if ((real(100.0) - sum) /* still */ < p) if ((CENTO - sum) /* still */ < p)
{ {
real prc = perc_rata(first); real prc = perc_rata(first);
prc += real(100.0) - sum; prc += CENTO - sum;
TToken_string& rt = rata(first); TToken_string& rt = rata(first);
rt.add(prc.string(),1), rt.add(prc.string(),1),
sum = 100; sum = CENTO;
} }
int scd = i == 0 ? (i < nr ? scad_rata(0) : 0) : int scd = i == 0 ? (i < nr ? scad_rata(0) : 0) :
@ -588,10 +587,11 @@ void TPagamento::set_imprata(int i, const real& r, bool v)
tt.add(r.string(), v ? 4 : 7); tt.add(r.string(), v ? 4 : 7);
} }
void TPagamento::set_percrata(int i, real r) void TPagamento::set_percrata(int i, real perc)
{ {
TToken_string& tt = (TToken_string&)_rate[i]; TToken_string& tt = (TToken_string&)_rate[i];
tt.add(r.string(), 1); perc.round(PERC_DECIMALS);
tt.add(perc.string(), 1);
} }
void TPagamento::set_datarata(int i, const TDate & d) void TPagamento::set_datarata(int i, const TDate & d)
@ -602,15 +602,14 @@ void TPagamento::set_datarata(int i, const TDate & d)
real TPagamento::recalc_percrata(int i, bool v) real TPagamento::recalc_percrata(int i, bool v)
{ {
real hm(importo_da_dividere(v)); if (i == 0 && _tpr > 3)
return ZERO;
if (i == 0 && _tpr > 3) return ZERO;
const real hm = importo_da_dividere(v);
real tpay(importo_rata(i,v)); real tpay = importo_rata(i,v);
if (i == 0 && _tpr > 0 && _tpr < 4) if (i == 0 && _tpr > 0 && _tpr < 4)
tpay -= importo_da_non_dividere(v); tpay -= importo_da_non_dividere(v);
real perc = tpay * 100.0 / hm; const real perc = tpay * CENTO / hm;
perc.round(2);
set_percrata(i, perc); set_percrata(i, perc);
return perc; return perc;
@ -637,8 +636,8 @@ TToken_string& TPagamento::set_rata(int index, const real& impval, const real& i
hm -= importo_da_non_dividere(in_valuta()); hm -= importo_da_non_dividere(in_valuta());
real perc = (_tpr > 3 && index == 0) ? ZERO : hm/toshare; real perc = (_tpr > 3 && index == 0) ? ZERO : hm/toshare;
perc *= real(100.0); perc *= CENTO;
perc.round(2); perc.round(PERC_DECIMALS);
tt->cut(0); tt->cut(0);
tt->add(day); // 0 - scadenza tt->add(day); // 0 - scadenza
@ -669,14 +668,14 @@ word TPagamento::validate() const
{ {
word res = 0x0000; word res = 0x0000;
int warnscad = 0; int warnscad = 0;
real r(0.0); real r;
int first = _tpr < 4 ? 0 : 1; int first = _tpr < 4 ? 0 : 1;
// check percentages & prepare slicer // check percentages & prepare slicer
for (int i = first; i < n_rate(); i++) for (int i = first; i < n_rate(); i++)
r += perc_rata(i); r += perc_rata(i);
r -= real(100.0); r -= CENTO;
real delta(0.005); real delta(0.005);
delta = delta * real(n_rate()); delta = delta * real(n_rate());
r = abs(r); r = abs(r);
@ -870,11 +869,11 @@ word TPagamento::recalc_rate(int row, bool is_perc_modified,
real rsum(0.0), newv(0.0), rmax(0.0); real rsum(0.0), newv(0.0), rmax(0.0);
const int last_rata = _rate.items() - 1; const int last_rata = _rate.items() - 1;
int oldtype = tipo_rata(last_rata); int oldtype = tipo_rata(last_rata);
TString oldulc = ulc_rata(last_rata); TString8 oldulc = ulc_rata(last_rata);
int oldscad = scad_rata(last_rata); int oldscad = scad_rata(last_rata);
TDate lastdate = data_rata(0); TDate lastdate = data_rata(0);
int first = _tpr < 4 ? 0 : 1; int first = _tpr < 4 ? 0 : 1;
TString_array srate(_rate); // rate come erano const TString_array srate(_rate); // rate come erano
int warnscad = 0; int warnscad = 0;
if (oldscad <= 0) oldscad = _int_rate; if (oldscad <= 0) oldscad = _int_rate;
@ -1078,7 +1077,7 @@ bool TPagamento::sign_ok(const real& val, int row) const
word TPagamento::change_value_differenziate(int row, real user_val, bool is_perc, bool v) word TPagamento::change_value_differenziate(int row, real user_val, bool is_perc, bool v)
{ {
// importi totali, da non suddividere, da suddividere // importi totali, da non suddividere, da suddividere
real to_share = is_perc ? real(100.0) : importo_da_dividere(v); real to_share = is_perc ? CENTO : importo_da_dividere(v);
real to_subtract = ZERO; real to_subtract = ZERO;
if (row == 0 && _tpr > 0 && _tpr < 4 && !is_perc) if (row == 0 && _tpr > 0 && _tpr < 4 && !is_perc)
to_subtract = importo_da_non_dividere(v); to_subtract = importo_da_non_dividere(v);
@ -1118,7 +1117,7 @@ word TPagamento::change_value_differenziate(int row, real user_val, bool is_perc
word TPagamento::change_value_uguali(int row, real user_val, bool is_perc, bool v) word TPagamento::change_value_uguali(int row, real user_val, bool is_perc, bool v)
{ {
// importi totali, da non suddividere, da suddividere // importi totali, da non suddividere, da suddividere
real to_share = is_perc ? real(100.0) : importo_da_dividere(v); real to_share = is_perc ? CENTO : importo_da_dividere(v);
real to_subtract = ZERO; real to_subtract = ZERO;
if (row == 0 && _tpr > 0 && _tpr < 4 && !is_perc) if (row == 0 && _tpr > 0 && _tpr < 4 && !is_perc)
to_subtract = importo_da_non_dividere(v); to_subtract = importo_da_non_dividere(v);
@ -1161,7 +1160,7 @@ word TPagamento::change_value_uguali(int row, real user_val, bool is_perc, bool
else // n. rate > 1, modificata la rata 0: _tpr e' per forza < 4 else // n. rate > 1, modificata la rata 0: _tpr e' per forza < 4
{ {
real div = remainder / real(n_rate() - 1); real div = remainder / real(n_rate() - 1);
div.round(is_perc ? 2 : round(v)); div.round(is_perc ? PERC_DECIMALS : round(v));
real delta = remainder - (div * real(n_rate() - 1)); real delta = remainder - (div * real(n_rate() - 1));
rata(0).add(user_val.string(), tok_ind); rata(0).add(user_val.string(), tok_ind);
@ -1223,7 +1222,7 @@ word TPagamento::change_value_uguali_prossima(int row, real user_val, bool is_pe
_rdiff = TRUE; _rdiff = TRUE;
// uguali finche' possibile da row in poi; residuo su first // uguali finche' possibile da row in poi; residuo su first
// importi totali, da non suddividere, da suddividere // importi totali, da non suddividere, da suddividere
real to_share = is_perc ? real(100.0) : importo_da_dividere(v); real to_share = is_perc ? CENTO : importo_da_dividere(v);
real to_subtract = ZERO; real to_subtract = ZERO;
if (row == 0 && _tpr > 0 && _tpr < 4 && !is_perc) if (row == 0 && _tpr > 0 && _tpr < 4 && !is_perc)
to_subtract = importo_da_non_dividere(v); to_subtract = importo_da_non_dividere(v);
@ -1266,7 +1265,7 @@ word TPagamento::change_value_uguali_possible(int row, real user_val, bool is_pe
{ {
_rdiff = TRUE; _rdiff = TRUE;
// uguali finche' possibile da row in poi; residuo come rata a parte // uguali finche' possibile da row in poi; residuo come rata a parte
real to_share = is_perc ? real(100.0) : importo_da_dividere(v); real to_share = is_perc ? CENTO : importo_da_dividere(v);
real to_subtract = ZERO; real to_subtract = ZERO;
if (row == 0 && _tpr > 0 && _tpr < 4 && !is_perc) if (row == 0 && _tpr > 0 && _tpr < 4 && !is_perc)
to_subtract = importo_da_non_dividere(v); to_subtract = importo_da_non_dividere(v);
@ -1357,8 +1356,8 @@ void TPagamento::adjust_perc(int rdiff, bool v)
// togli pezzo di troppo // togli pezzo di troppo
if (j == first && _tpr > 0 && _tpr < 4) if (j == first && _tpr > 0 && _tpr < 4)
rvl -= importo_da_non_dividere(v); rvl -= importo_da_non_dividere(v);
real zpx = (rvl * 100.0) / other; // percentuale real zpx = (rvl * CENTO) / other; // percentuale
zpx.round(2); zpx.round(PERC_DECIMALS);
set_percrata(j, zpx); set_percrata(j, zpx);
} }
if (in_valuta()) if (in_valuta())
@ -1394,7 +1393,7 @@ void TPagamento::adjust_perc_imp(bool is_perc, int rdiff, bool v)
} }
real toshare(importo_da_dividere(v)); real toshare(importo_da_dividere(v));
const real other(100.0); const real other = CENTO;
bool inv = in_valuta(); bool inv = in_valuta();
TDistrib dt(toshare, round(v)); TDistrib dt(toshare, round(v));
@ -1618,7 +1617,7 @@ void TPagamento::set_rate_auto()
const int rut = _tpr > 3 ? n_rate() - 1 : n_rate(); const int rut = _tpr > 3 ? n_rate() - 1 : n_rate();
if (rut > 1) // Guy was here! Don't kill me for this if (rut > 1) // Guy was here! Don't kill me for this
{ {
real refrata = real(100.0)/real(rut); refrata.round(2); real refrata = CENTO/real(rut); refrata.round(PERC_DECIMALS);
if (perc_rata(first+1) == refrata) // tutte uguali nonostante perc arrotondate if (perc_rata(first+1) == refrata) // tutte uguali nonostante perc arrotondate
{ {
ro = toslice / real(rut); ro = toslice / real(rut);
@ -1628,7 +1627,7 @@ void TPagamento::set_rate_auto()
else // la prima e' diversa else // la prima e' diversa
{ {
// usa la percentuale per la prima rata // usa la percentuale per la prima rata
r1 = (toslice * perc_rata(first))/real(100.0); r1 = (toslice * perc_rata(first))/CENTO;
const real reminder = toslice - r1; const real reminder = toslice - r1;
if (!reminder.is_zero()) if (!reminder.is_zero())
@ -1650,7 +1649,7 @@ void TPagamento::set_rate_auto()
{ {
if (_rdiff) if (_rdiff)
{ {
rdi = toslice*(perc_rata(i)/real(100.0)); rdi = toslice*(perc_rata(i)/CENTO);
rdi.round(round(v)); rdi.round(round(v));
if (i > first) rdsum += rdi; if (i > first) rdsum += rdi;
} }
@ -1774,7 +1773,7 @@ void TPagamento::set_sheet(TSheet_field& sf, int sscad)
{ {
if (_tpr > 3) if (_tpr > 3)
add_rata(ZERO, sscad <= 0 ? 0 : sscad, _def_tpr, _def_ulc); add_rata(ZERO, sscad <= 0 ? 0 : sscad, _def_tpr, _def_ulc);
add_rata(real(100.0), sscad <= 0 ? (_tpr < 4 ? 0 : 30) : sscad, _def_tpr, _def_ulc); add_rata(CENTO, sscad <= 0 ? (_tpr < 4 ? 0 : 30) : sscad, _def_tpr, _def_ulc);
_dirty = TRUE; _dirty = TRUE;
} }