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

Aggiunta box riepilogativa del test di velocita'.

Browse Source 
Spostato all'inizio il codice Altro per la lista del Tipo IVA.


git-svn-id: svn://10.65.10.50/trunk@39 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1994-08-19 10:42:50 +00:00
parent 5e5176d3c8
commit 617fd7e074
6 changed files with 143 additions and 165 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cg/cg2100.cpp
View File

@ -595,16 +595,11 @@ void TPrimanota_application::mask2rel(const TMask& m)
r.put("ANNOES", annoes); r.put("ANNOES", annoes);
r.put("NUMREG", numreg); r.put("NUMREG", numreg);
r.put("NUMRIG", cur); r.put("NUMRIG", cur);
r.put("IMPONIBILE", row.get(0));
const char* imponibile = row.get(0);
r.put("IMPONIBILE", imponibile);
r.put("CODIVA", row.get()); r.put("CODIVA", row.get());
const char* imposta = row.get();
r.put("IMPOSTA", imposta);
r.put("TIPOCR", row.get());
r.put("TIPODET", row.get()); r.put("TIPODET", row.get());
r.put("IMPOSTA", row.get());
r.put("TIPOCR", row.get());
const TConto c(row, -1, 0x1); const TConto c(row, -1, 0x1);
const int rimp = bill2pos(c, 'I')+1; const int rimp = bill2pos(c, 'I')+1;

9
cg/cg2100c.uml
View File

@ -182,6 +182,7 @@ DISPLAY "Descrizione@50" DESCR
DISPLAY "Codice" CODCAUS DISPLAY "Codice" CODCAUS
COPY OUTPUT F_CODCAUS COPY OUTPUT F_CODCAUS
MESSAGE COPY,H_DESCRCAUS MESSAGE COPY,H_DESCRCAUS
CHECKTYPE REQUIRED
ADD RUN cg0 -4 ADD RUN cg0 -4
END END
@ -214,8 +215,8 @@ BEGIN
PROMPT 51 9 "Riepilogo fino al n. " PROMPT 51 9 "Riepilogo fino al n. "
FIELD LF_MOV->UPROTIVA FIELD LF_MOV->UPROTIVA
NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA) NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)
WARNING "Il riepilogo non puo' essere inferiore al protocollo IVA" WARNING "Il riepilogo non puo' essere inferiore al protocollo IVA"
END END
STRING F_CLIFO 1 STRING F_CLIFO 1
BEGIN BEGIN
@ -291,6 +292,7 @@ NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)
DISPLAY "Partita IVA@12" PAIV DISPLAY "Partita IVA@12" PAIV
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_FORNITORE COPY OUTPUT F_FORNITORE
CHECKTYPE REQUIRED
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
@ -305,6 +307,7 @@ NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)
DISPLAY "Partita IVA@12" PAIV DISPLAY "Partita IVA@12" PAIV
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_CLIENTE COPY OUTPUT F_CLIENTE
CHECKTYPE REQUIRED
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
@ -320,6 +323,7 @@ NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_CLIENTE COPY OUTPUT F_CLIENTE
CHECKTYPE NORMAL
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
@ -333,6 +337,7 @@ NUM_EXPR (#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)
INPUT PAIV F_PIVAFORNITORE INPUT PAIV F_PIVAFORNITORE
COPY DISPLAY F_PIVACLIENTE COPY DISPLAY F_PIVACLIENTE
COPY OUTPUT F_FORNITORE COPY OUTPUT F_FORNITORE
CHECKTYPE NORMAL
ADD RUN cg0 -1 ADD RUN cg0 -1
END END

18
cg/cg2103.cpp
View File

@ -14,6 +14,7 @@ const char* iva2name(TipoIVA iva)
case nessuna_iva : i = "Nessuna IVA"; break; case nessuna_iva : i = "Nessuna IVA"; break;
case iva_acquisti: i = "IVA Acquisti"; break; case iva_acquisti: i = "IVA Acquisti"; break;
case iva_vendite : i = "IVA Vendite"; break; case iva_vendite : i = "IVA Vendite"; break;
case iva_generica: i = "IVA Generica"; break;
default : i = "IVA ERRATA!"; break; default : i = "IVA ERRATA!"; break;
} }
@ -73,7 +74,7 @@ TRegistro& TRegistro::operator =(const TRegistro& r)
int TRegistro::tipo() const int TRegistro::tipo() const
{ {
const int t = _rec.ok() ? _rec.get_int("I0") : 0; const int t = ok() ? _rec.get_int("I0") : 0;
return t; return t;
} }
@ -238,14 +239,11 @@ bool TCausale::read(const char* cod, int year)
for (int riga = 1; riga < size(); riga++) // Fill gaps for (int riga = 1; riga < size(); riga++) // Fill gaps
if (objptr(riga) == NULL) add(rcaus.curr(), riga); if (objptr(riga) == NULL) add(rcaus.curr(), riga);
if (year > 0) TString16 codreg(caus.get("REG"));
{ const bool ok = _reg.read(codreg, year); // Read register
TString16 codreg(caus.get("REG")); if (!ok && codreg.not_empty())
const bool ok = _reg.read(codreg, year); // Read register return error_box("Non esiste il registro '%s' per l'anno %d",
if (!ok && codreg.not_empty()) (const char*)codreg, year);
return error_box("Non esiste il registro '%s' per l'anno %d",
(const char*)codreg, year);
}
} }
else else
{ {
@ -318,7 +316,7 @@ TipoIVA TCausale::iva() const
if (tpd.read() == NOERR) if (tpd.read() == NOERR)
{ {
i = (TipoIVA)tpd.get_int("I0"); // IVA acquisti, vendite, generica i = (TipoIVA)tpd.get_int("I0"); // IVA acquisti, vendite, generica
if (i != iva_vendite && i != iva_acquisti) if (i == iva_generica)
i = _reg.iva(); i = _reg.iva();
} }
} }

146
cg/cg21iva.uml
View File

@ -2,33 +2,33 @@ PAGE "RIGA IVA" -1 -1 70 15
GROUPBOX DLG_NULL 67 4 GROUPBOX DLG_NULL 67 4
BEGIN BEGIN
PROMPT 1 1 "Conto" PROMPT 1 1 "Conto"
END END
LIST 106 1 12 LIST 106 1 12
BEGIN BEGIN
PROMPT 2 2 "Tipo " PROMPT 2 2 "Tipo "
FIELD TMCF FIELD TMCF
ITEM " |Conto" ITEM " |Conto"
MESSAGE SHOW,109|HIDE,209|HIDE,309 MESSAGE SHOW,109|HIDE,209|HIDE,309
ITEM "C|Cliente" ITEM "C|Cliente"
MESSAGE SHOW,209|HIDE,109|HIDE,309 MESSAGE SHOW,209|HIDE,109|HIDE,309
ITEM "F|Fornitore" ITEM "F|Fornitore"
MESSAGE SHOW,309|HIDE,109|HIDE,209 MESSAGE SHOW,309|HIDE,109|HIDE,209
FLAGS "U" FLAGS "U"
END END
NUMBER 107 3 NUMBER 107 3
BEGIN BEGIN
PROMPT 21 2 "Gruppo " PROMPT 21 2 "Gruppo "
FIELD GRUPPO FIELD GRUPPO
END END
NUMBER 108 3 NUMBER 108 3
BEGIN BEGIN
PROMPT 33 2 "Conto " PROMPT 33 2 "Conto "
FIELD CONTO FIELD CONTO
USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="") USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
INPUT GRUPPO 107 INPUT GRUPPO 107
INPUT CONTO 108 INPUT CONTO 108
DISPLAY "Gruppo" GRUPPO DISPLAY "Gruppo" GRUPPO
@ -39,15 +39,15 @@ USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
OUTPUT 107 GRUPPO OUTPUT 107 GRUPPO
OUTPUT 108 CONTO OUTPUT 108 CONTO
OUTPUT 110 DESCR OUTPUT 110 DESCR
OUTPUT 104 TIPOSPRIC OUTPUT 105 TIPOSPRIC
ADD RUN cg0 -0 ADD RUN cg0 -0
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Conto inesistente nella riga IVA" WARNING "Conto inesistente nella riga IVA"
END END
NUMBER 109 6 NUMBER 109 6
BEGIN BEGIN
PROMPT 46 2 "Sottoconto " PROMPT 46 2 "Sottoconto "
FIELD SOTTOCONTO FIELD SOTTOCONTO
USE LF_PCON SELECT SOTTOCONTO!="" USE LF_PCON SELECT SOTTOCONTO!=""
@ -58,7 +58,7 @@ USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
DISPLAY "Conto" CONTO DISPLAY "Conto" CONTO
DISPLAY "Sottoconto" SOTTOCONTO DISPLAY "Sottoconto" SOTTOCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT 104 TIPOSPRIC OUTPUT 105 TIPOSPRIC
OUTPUT 107 GRUPPO OUTPUT 107 GRUPPO
OUTPUT 108 CONTO OUTPUT 108 CONTO
OUTPUT 109 SOTTOCONTO OUTPUT 109 SOTTOCONTO
@ -66,11 +66,11 @@ USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
ADD RUN cg0 -0 ADD RUN cg0 -0
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Sottoconto inesistente nella riga IVA" WARNING "Sottoconto inesistente nella riga IVA"
END END
NUMBER 209 6 NUMBER 209 6
BEGIN BEGIN
PROMPT 46 2 "Cliente " PROMPT 46 2 "Cliente "
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "C" INPUT TIPOCF "C"
@ -84,11 +84,11 @@ USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -1 ADD RUN cg0 -1
FLAGS "G" FLAGS "G"
MESSAGE COPY,109|RESET,104 MESSAGE COPY,109|RESET,105
END END
NUMBER 309 6 NUMBER 309 6
BEGIN BEGIN
PROMPT 46 2 "Fornitore " PROMPT 46 2 "Fornitore "
USE LF_CLIFO USE LF_CLIFO
INPUT TIPOCF "F" INPUT TIPOCF "F"
@ -102,22 +102,22 @@ USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN cg0 -1 ADD RUN cg0 -1
FLAGS "G" FLAGS "G"
MESSAGE COPY,109|RESET,104 MESSAGE COPY,109|RESET,105
END END
STRING 110 50 STRING 110 50
BEGIN BEGIN
PROMPT 2 3 "Descrizione " PROMPT 2 3 "Descrizione "
FLAGS "D" FLAGS "D"
END END
GROUPBOX DLG_NULL 67 5 GROUPBOX DLG_NULL 67 5
BEGIN BEGIN
PROMPT 1 5 "Imposta" PROMPT 1 5 "Imposta"
END END
STRING 102 4 STRING 102 4
BEGIN BEGIN
PROMPT 2 6 "IVA " PROMPT 2 6 "IVA "
FLAGS "U" FLAGS "U"
USE %IVA USE %IVA
@ -129,16 +129,16 @@ USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
OUTPUT 102 CODTAB OUTPUT 102 CODTAB
OUTPUT 211 S0 OUTPUT 211 S0
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END
STRING 211 50 STRING 211 50
BEGIN BEGIN
PROMPT 15 6 "" PROMPT 15 6 ""
FLAGS "D" FLAGS "D"
END END
NUMBER 103 1 NUMBER 103 1
BEGIN BEGIN
PROMPT 2 7 "Detraz. " PROMPT 2 7 "Detraz. "
SHEET "Codice|Descrizione@60" SHEET "Codice|Descrizione@60"
INPUT 103 INPUT 103
@ -148,37 +148,37 @@ USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
ITEM "9|IVA non detraibile per l'articolo 19" ITEM "9|IVA non detraibile per l'articolo 19"
OUTPUT 103 OUTPUT 103
OUTPUT 213 OUTPUT 213
END END
STRING 213 50 STRING 213 50
BEGIN BEGIN
PROMPT 15 7 "" PROMPT 15 7 ""
FLAGS "D" FLAGS "D"
END END
NUMBER 101 14 NUMBER 101 14
BEGIN BEGIN
PROMPT 2 8 "Imponibile " PROMPT 2 8 "Imponibile "
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
NUMBER 104 14 NUMBER 104 14
BEGIN BEGIN
PROMPT 41 8 "Imposta " PROMPT 41 8 "Imposta "
FLAGS "RV" FLAGS "RV"
PICTURE "." PICTURE "."
END END
GROUPBOX DLG_NULL 67 3 GROUPBOX DLG_NULL 67 3
BEGIN BEGIN
PROMPT 1 10 "Costo/Ricavo" PROMPT 1 10 "Costo/Ricavo"
END END
STRING 105 1 STRING 105 1
BEGIN BEGIN
PROMPT 2 11 "Tipo " PROMPT 2 11 "Tipo "
FLAGS "D" FLAGS "D"
HELP "Specifica il tipo Costo/Ricavo" HELP "Specifica il tipo Costo/Ricavo"
@ -193,30 +193,30 @@ USE LF_PCON SELECT (CONTO!="") && (SOTTOCONTO="")
ITEM "8|Altri beni strumentali acquistati in leasing" ITEM "8|Altri beni strumentali acquistati in leasing"
OUTPUT 105 OUTPUT 105
OUTPUT 212 OUTPUT 212
END END
STRING 212 50 STRING 212 50
BEGIN BEGIN
PROMPT 15 11 "" PROMPT 15 11 ""
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON DLG_DELREC 9 2 BUTTON DLG_DELREC 9 2
BEGIN BEGIN
PROMPT -33 -1 "Elimina" PROMPT -33 -1 "Elimina"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

2
cg/cg4.h
View File

@ -5,6 +5,6 @@
//int cg4300(int argc, char* argv[]); //int cg4300(int argc, char* argv[]);
int cg4400(int argc, char* argv[]); int cg4400(int argc, char* argv[]);
int cg4500(int argc, char* argv[]); int cg4500(int argc, char* argv[]);
//int cg4600(int argc, char* argv[]); int cg4600(int argc, char* argv[]);
#endif // __CG4_H #endif // __CG4_H

100
cg/cg4600.cpp
View File

@ -1,20 +1,18 @@
// Chiusura/Apertura Conti // Chiusura/Apertura Conti
#include <config.h>
#include <mask.h>
#include <printapp.h>
#include <relation.h> #include <relation.h>
#include <tabutil.h> #include <tabutil.h>
#include <printapp.h>
#include <mask.h>
#include <date.h>
#include <scanner.h>
#include <utility.h>
#include <prefix.h>
#include <config.h>
#include <urldefid.h> #include <urldefid.h>
#include <utility.h>
#include "cg4.h"
#include "cg4600.h"
#include "cg2101.h"
#include "cglib.h"
#include <cglib.h>
#include <cg4.h>
#include <cg4600.h>
#include <cg2101.h>
#include <pconti.h> #include <pconti.h>
#include <mov.h> #include <mov.h>
#include <saldi.h> #include <saldi.h>
@ -41,7 +39,8 @@ class CG4600_application : public TApplication
TSaldo_agg* _sld; TSaldo_agg* _sld;
Saldo _sale; Saldo _sale;
long _annoes_msk, _sproper, _numreg; int _annoes_msk;
long _sproper, _numreg;
TDate _datareg; TDate _datareg;
TString _codcaus, _annoeseprec; TString _codcaus, _annoeseprec;
int _gproper, _cproper; int _gproper, _cproper;
@ -132,14 +131,14 @@ bool mask_datac (TMask_field& f, KEY k)
bool mask_dataap (TMask_field& f, KEY k) bool mask_dataap (TMask_field& f, KEY k)
{ {
TTable TabEs ("ESC");
TTable TabReg("REG");
int anno = 0;
TString annos (4);
bool ok = TRUE; bool ok = TRUE;
if ( (k == K_ENTER) && f.to_check(k) ) if ( (k == K_ENTER) && f.to_check(k) )
{ {
TTable TabEs ("ESC");
TTable TabReg("REG");
int anno = 0;
TabEs.last(); TabEs.last();
TDate inizio = TabEs.get_date("D0"); TDate inizio = TabEs.get_date("D0");
TDate fine = TabEs.get_date("D1"); TDate fine = TabEs.get_date("D1");
@ -148,28 +147,19 @@ bool mask_dataap (TMask_field& f, KEY k)
TDate iniziop = TabEs.get_date("D0"); TDate iniziop = TabEs.get_date("D0");
TDate finep = TabEs.get_date("D1"); TDate finep = TabEs.get_date("D1");
if (f.get() < inizio) if (f.get() < inizio)
{ return f.error_box ("La data di apertura non puo' essere inferiore alla data di inizio esercizio in corso");
f.warning_box ("La data di apertura non puo' essere inferiore alla data di inizio esercizio in corso");
return FALSE;
}
if (f.get() > fine) if (f.get() > fine)
{ return f.error_box ("La data di apertura non puo' essere superiore alla data di fine esercizio in corso");
f.warning_box ("La data di apertura non puo' essere superiore alla data di fine esercizio in corso");
return FALSE;
}
if ( scarico.ok() && (f.get() <= scarico) ) if ( scarico.ok() && (f.get() <= scarico) )
{ return f.error_box ("La data di apertura non puo' essere inferiore o uguale alla data di scarico");
f.warning_box ("La data di apertura non puo' essere inferiore o uguale alla data di scarico");
return FALSE;
}
if ( (f.get() >= inizio) && (f.get() <= fine) ) //la data di apertura e' cioe' relativa all'esercizio in corso if ( (f.get() >= inizio) && (f.get() <= fine) ) //la data di apertura e' cioe' relativa all'esercizio in corso
anno = fine.year(); anno = fine.year();
else if( (f.get() >= iniziop) && (f.get() <= finep) ) //la data di apertura e' cioe' relativa all'esercizio precedente else if( (f.get() >= iniziop) && (f.get() <= finep) ) //la data di apertura e' cioe' relativa all'esercizio precedente
anno = finep.year(); anno = finep.year();
TabReg.zero(); TabReg.zero();
annos = format ("%04d", anno); TString16 annos(format ("%04d", anno));
TabReg.put ("CODTAB", annos); TabReg.put ("CODTAB", annos);
TRectype r (TabReg.curr()); TRectype r (TabReg.curr());
TabReg.read(_isgteq); TabReg.read(_isgteq);
@ -180,19 +170,16 @@ bool mask_dataap (TMask_field& f, KEY k)
int tiporeg = TabReg.get_int("I0"); int tiporeg = TabReg.get_int("I0");
if (tiporeg == 5) if (tiporeg == 5)
{ {
TDate datast = TabReg.get_date("D3"); TDate datast = TabReg.get_date("D3");
if (f.get() < datast) if (f.get() < datast)
{ {
ok = FALSE; ok = FALSE;
break; break;
} }
} }
} }
if (!ok) if (!ok)
{ return f.error_box("La data di apertura non puo' essere inferiore alla data ultima stampa bollato");
f.warning_box("La data di apertura non puo' essere inferiore alla data ultima stampa bollato");
return FALSE;
}
} }
return TRUE; return TRUE;
} }
@ -237,7 +224,6 @@ bool mask_distinti (TMask_field& f, KEY k)
idg = idg + 3; idg = idg + 3;
idc = idc + 3; idc = idc + 3;
ids = ids + 3; ids = ids + 3;
} }
} }
return TRUE; return TRUE;
@ -262,9 +248,7 @@ bool CG4600_application::create()
TApplication::create(); TApplication::create();
_rel = new TRelation (LF_PCON); _rel = new TRelation (LF_PCON);
_cur = new TCursor(_rel,"((GRUPPO!=\"\")&&(CONTO!=\"\")&&(SOTTOCONTO==\"\"))",1); _cur = new TCursor(_rel,"((GRUPPO!=\"\")&&(CONTO!=\"\")&&(SOTTOCONTO==\"\"))",1);
_pn = new TMovimentoPN(); _pn = new TMovimentoPN();
_saldi = new TLocalisamfile (LF_SALDI); _saldi = new TLocalisamfile (LF_SALDI);
_mov = new TLocalisamfile (LF_MOV); _mov = new TLocalisamfile (LF_MOV);
@ -293,19 +277,18 @@ bool CG4600_application::destroy()
void CG4600_application::anno_ese_precedente() void CG4600_application::anno_ese_precedente()
{ {
TTable tabesc ("ESC"); TTable tabesc ("ESC");
TString16 chiave; TString16 chiave; chiave << _annoes_msk;
int err = "NOERR";
tabesc.zero(); tabesc.zero();
chiave << _annoes_msk;
tabesc.put("CODTAB", chiave); tabesc.put("CODTAB", chiave);
err = tabesc.read(); const int err = tabesc.read();
if (err == NOERR) if (err == NOERR)
{ {
tabesc.prev(); tabesc.prev();
_annoeseprec = tabesc.get("CODTAB"); _annoeseprec = tabesc.get("CODTAB");
} }
else
_annoeseprec = 0;
} }
void CG4600_application::ultima_registrazione() void CG4600_application::ultima_registrazione()
@ -370,7 +353,7 @@ bool CG4600_application::set()
if (tasto == K_ENTER) if (tasto == K_ENTER)
{ {
_annoes_msk = m.get_long(F_ANNO); _annoes_msk = m.get_int (F_ANNO);
_datareg = m.get (F_DATAC); _datareg = m.get (F_DATAC);
_codcaus = m.get (F_CHIUSURA); _codcaus = m.get (F_CHIUSURA);
_gproper = m.get_int (F_PROPERG); _gproper = m.get_int (F_PROPERG);
@ -413,7 +396,7 @@ void CG4600_application::record_rmov_proper(long numrig,TRectype& rmov,real& tot
if (tot_saldo.sign() < 0) if (tot_saldo.sign() < 0)
{ {
sez_rmov = 'D'; sez_rmov = 'D';
tot_saldo = tot_saldo * (-1.00); tot_saldo = -tot_saldo;
} }
rmov.put(RMV_SEZIONE, sez_rmov); rmov.put(RMV_SEZIONE, sez_rmov);
@ -619,7 +602,7 @@ void CG4600_application::ricavi()
if (j >= 1) if (j >= 1)
{ {
record_rmov_proper (numrig, rmov); record_rmov_proper (numrig, rmov, tot_saldo);
if (tot_saldo.sign() > 0) if (tot_saldo.sign() > 0)
sez_rmov = 'A'; sez_rmov = 'A';
@ -662,7 +645,7 @@ void CG4600_application::ricavi()
// di tutti i saldi aventi lo stesso sottoconto, indicandola // di tutti i saldi aventi lo stesso sottoconto, indicandola
// con una sezione opposta al risultato (della somma). // con una sezione opposta al risultato (della somma).
record_rmov_proper (numrig, rmov); record_rmov_proper (numrig, rmov, tot_saldo);
if (tot_saldo.sign() > 0) if (tot_saldo.sign() > 0)
sez_rmov = 'A'; sez_rmov = 'A';
@ -719,17 +702,14 @@ bool CG4600_application::menu(MENU_TAG m)
return FALSE; return FALSE;
} }
int main /* cg4600 */(int argc, char* argv[])
int cg4600 (int argc, char* argv[])
{ {
CG4600_application main_app; CG4600_application main_app;
main_app.run(argc, argv, "Chiusura Apertura Conti"); main_app.run(argc, argv, "Chiusura/Apertura Conti");
return TRUE; return TRUE;
} }