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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            : Riportata la versione 98.01.03pl015


git-svn-id: svn://10.65.10.50/trunk@6582 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1998-04-30 15:59:34 +00:00
parent 5e6ec4d235
commit 22adfa73ba
58 changed files with 5155 additions and 3929 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
cg/cg0200.h
View File

@ -1,5 +1,5 @@
#ifndef __CG0200_H #ifndef __CG0200_H
#define __CG0200_H #define __CG0200_H
#define TCLI "C" #define TCLI "C"
#define TFOR "F" #define TFOR "F"
@ -21,7 +21,7 @@
#define F_CONTO 115 #define F_CONTO 115
#define F_DESCONTO 137 #define F_DESCONTO 137
#define F_GRUPPORIC 116 #define F_GRUPPORIC 116
#define F_CONTORIC 117 #define F_CONTORIC 117
#define F_SOTTOCRIC 118 #define F_SOTTOCRIC 118
#define F_DESCRIC 138 #define F_DESCRIC 138
@ -38,12 +38,12 @@
#define F_COMNASC 129 #define F_COMNASC 129
#define F_DENCOMNASC 135 #define F_DENCOMNASC 135
#define F_CODSTAT 130 #define F_CODSTAT 130
#define F_CODPAG 131 #define F_CODPAG 131
#define F_DESPAG 331 #define F_DESPAG 331
#define F_RAGSOC1 132 #define F_RAGSOC1 132
#define F_CODABI 133 #define F_CODABI 133
#define F_CODBAN 134 #define F_CODBAN 134
#define F_DESBAN 140 #define F_DESBAN 140
#define F_CODVAL 136 #define F_CODVAL 136
#define F_DESVAL 336 #define F_DESVAL 336
#define F_FIDO 139 #define F_FIDO 139
@ -55,7 +55,7 @@
#define F_DENCOMCF 150 #define F_DENCOMCF 150
#define F_PROVCF 152 #define F_PROVCF 152
#define F_RICALT 151 #define F_RICALT 151
#define F_PTEL2 153 #define F_PTEL2 153
#define F_TEL2 154 #define F_TEL2 154
#define F_PTEL3 155 #define F_PTEL3 155
@ -132,6 +132,7 @@
#define F_DESTACF 224 #define F_DESTACF 224
#define F_CODDEP 230 #define F_CODDEP 230
#define F_RAGGEFF 232 #define F_RAGGEFF 232
#define F_NUMCC 233
#define DLG_RIC 300 #define DLG_RIC 300
#define DLG_CST 301 #define DLG_CST 301

41
cg/cg0200a.uml
View File

@ -669,9 +669,16 @@ DISPLAY "Codice CAB" CODTAB[6,10]
COPY OUTPUT F_CODBAN COPY OUTPUT F_CODBAN
END END
STRING F_NUMCC 20
BEGIN
PROMPT 2 6 "Conto corrente "
FIELD NUMCC
FLAGS "U"
END
STRING F_CODVAL 3 STRING F_CODVAL 3
BEGIN BEGIN
PROMPT 2 6 "Valuta " PROMPT 2 7 "Valuta "
FLAGS "UZ" FLAGS "UZ"
FIELD CODVAL FIELD CODVAL
USE %VAL USE %VAL
@ -685,7 +692,7 @@ END
STRING F_DESVAL 50 STRING F_DESVAL 50
BEGIN BEGIN
PROMPT 22 6 "" PROMPT 22 7 ""
USE %VAL KEY 2 USE %VAL KEY 2
INPUT S0 F_DESVAL INPUT S0 F_DESVAL
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -696,7 +703,7 @@ END
STRING F_CODLIN 1 STRING F_CODLIN 1
BEGIN BEGIN
PROMPT 2 7 "Lingua " PROMPT 2 8 "Lingua "
FIELD CODLIN FIELD CODLIN
USE %LNG USE %LNG
FLAGS "U" FLAGS "U"
@ -711,7 +718,7 @@ END
STRING F_DESLIN 50 STRING F_DESLIN 50
BEGIN BEGIN
PROMPT 22 7 "" PROMPT 22 8 ""
USE %LNG KEY 2 USE %LNG KEY 2
INPUT S0 F_DESLIN INPUT S0 F_DESLIN
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -722,7 +729,7 @@ END
STRING F_CODPAG 4 STRING F_CODPAG 4
BEGIN BEGIN
PROMPT 2 8 "Pagamento " PROMPT 2 9 "Pagamento "
FIELD CODPAG FIELD CODPAG
FLAGS "U#" FLAGS "U#"
USE %CPG USE %CPG
@ -738,7 +745,7 @@ END
STRING F_DESPAG 50 STRING F_DESPAG 50
BEGIN BEGIN
PROMPT 22 8 "" PROMPT 22 9 ""
USE %CPG KEY 2 USE %CPG KEY 2
INPUT S0 F_DESPAG INPUT S0 F_DESPAG
DISPLAY "Descrizione@50" S0 DISPLAY "Descrizione@50" S0
@ -749,7 +756,7 @@ END
NUMBER F_FIDO 15 NUMBER F_FIDO 15
BEGIN BEGIN
PROMPT 2 9 "Fido " PROMPT 2 10 "Fido "
FIELD FIDO FIELD FIDO
FLAGS "R" FLAGS "R"
PICTURE "." PICTURE "."
@ -758,18 +765,18 @@ END
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
PROMPT 1 10 "Conto cliente/fornitore" PROMPT 1 11 "Conto cliente/fornitore"
END END
NUMBER F_GRUPPO 3 NUMBER F_GRUPPO 3
BEGIN BEGIN
PROMPT 2 11 "Gruppo " PROMPT 2 12 "Gruppo "
FIELD GRUPPO FIELD GRUPPO
END END
NUMBER F_CONTO 3 NUMBER F_CONTO 3
BEGIN BEGIN
PROMPT 27 11 "Conto " PROMPT 27 12 "Conto "
FIELD CONTO FIELD CONTO
USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) USE LF_PCON SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
INPUT GRUPPO F_GRUPPO INPUT GRUPPO F_GRUPPO
@ -787,7 +794,7 @@ END
STRING F_DESCONTO 50 STRING F_DESCONTO 50
BEGIN BEGIN
PROMPT 2 12 "Descrizione " PROMPT 2 13 "Descrizione "
USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF) USE LF_PCON KEY 2 SELECT (CONTO!="")&&(SOTTOCONTO="")&&(TMCF=#F_TIPOCF)
INPUT DESCR F_DESCONTO INPUT DESCR F_DESCONTO
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
@ -800,18 +807,18 @@ END
GROUPBOX DLG_RIC 76 4 GROUPBOX DLG_RIC 76 4
BEGIN BEGIN
PROMPT 1 14 "Conto di ricavo" PROMPT 1 15 "Conto di ricavo"
END END
GROUPBOX DLG_CST 76 4 GROUPBOX DLG_CST 76 4
BEGIN BEGIN
PROMPT 1 14 "Conto di costo" PROMPT 1 15 "Conto di costo"
FLAGS "H" FLAGS "H"
END END
NUMBER F_GRUPPORIC 3 NUMBER F_GRUPPORIC 3
BEGIN BEGIN
PROMPT 2 15 "Gruppo " PROMPT 2 16 "Gruppo "
FIELD GRUPPORIC FIELD GRUPPORIC
FLAGS "R" FLAGS "R"
HELP "Gruppo di contropartita" HELP "Gruppo di contropartita"
@ -819,7 +826,7 @@ END
NUMBER F_CONTORIC 3 NUMBER F_CONTORIC 3
BEGIN BEGIN
PROMPT 27 15 "Conto " PROMPT 27 16 "Conto "
FIELD CONTORIC FIELD CONTORIC
FLAGS "R" FLAGS "R"
HELP "Conto di contropartita" HELP "Conto di contropartita"
@ -827,7 +834,7 @@ END
NUMBER F_SOTTOCRIC 6 NUMBER F_SOTTOCRIC 6
BEGIN BEGIN
PROMPT 47 15 "Sottoconto " PROMPT 47 16 "Sottoconto "
FIELD SOTTOCRIC FIELD SOTTOCRIC
FLAGS "R" FLAGS "R"
USE LF_PCON SELECT SOTTOCONTO!="" USE LF_PCON SELECT SOTTOCONTO!=""
@ -849,7 +856,7 @@ END
STRING F_DESCRIC 50 STRING F_DESCRIC 50
BEGIN BEGIN
PROMPT 2 16 "Descrizione " PROMPT 2 17 "Descrizione "
USE LF_PCON KEY 2 SELECT SOTTOCONTO!="" USE LF_PCON KEY 2 SELECT SOTTOCONTO!=""
INPUT DESCR F_DESCRIC INPUT DESCR F_DESCRIC
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR

11
cg/cg0200b.uml
View File

@ -136,17 +136,22 @@ END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -14 -1 ""
END
BUTTON DLG_DELREC 9 2
BEGIN
PROMPT -24 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -34 -1 ""
END END
BUTTON DLG_NULL 9 2 BUTTON DLG_NULL 9 2
BEGIN BEGIN
PROMPT -33 -1 "A~zzera" PROMPT -44 -1 "A~zzera"
MESSAGE RESET,1@ MESSAGE RESET,1@
MESSAGE EXIT,K_ENTER MESSAGE EXIT,K_ENTER
END END

2
cg/cg0400.cpp
View File

@ -1111,7 +1111,7 @@ void TProgressivi_iva::setta_intestazione()
if (_livelloprog == 1) if (_livelloprog == 1)
set_header(r++, "IVA %s",(const char*) _codivamsk); set_header(r++, "IVA %s",(const char*) _codivamsk);
else set_header(r++, "ATTIVITA' %s",(const char*)_codattmsk); else set_header(r++, "ATTIVITA' %s",(const char*)_codattmsk);
set_header(++r, "@29gImponibile@60gImposta"); set_header(++r, "@31gImponibile@64gImposta");
} }
void TProgressivi_iva::preprocess_header() void TProgressivi_iva::preprocess_header()

6
cg/cg1300.cpp
View File

@ -20,6 +20,7 @@
#include "cg1305.h" #include "cg1305.h"
#include "cg1306.h" #include "cg1306.h"
#include "cg1307.h" #include "cg1307.h"
#include "cg1308.h"
#include "cglib01.h" #include "cglib01.h"
class TAgg_attiv : public TApplication class TAgg_attiv : public TApplication
@ -166,7 +167,10 @@ int cg1300(int argc, char* argv[])
} }
break; break;
case 'Z': case 'Z':
elimina_zoppi(argc, argv); elimina_zoppi(argc, argv);
break;
case 'M':
setta_meseliq(argc, argv);
break; break;
default: default:
break; break;

70
cg/cg1300e.uml Executable file
View File

@ -0,0 +1,70 @@
#include "cg1300.h"
PAGE "Impostazione mese liquidazione" -1 -1 78 10
GROUPBOX DLG_NULL 77 4
BEGIN
PROMPT 1 1 "Registro"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 2 "Anno "
FLAGS "Z"
END
STRING F_REG 3
BEGIN
PROMPT 2 3 "Codice registro "
USE REG SELECT (I0=1)
FLAGS "UZ"
INPUT CODTAB[1,4] F_ANNO
INPUT CODTAB[5,7] F_REG
DISPLAY "Anno" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
DISPLAY "Descrizione@50" S0
DISPLAY "Tipo" I0
OUTPUT F_ANNO CODTAB[1,4]
OUTPUT F_REG CODTAB[5,7]
OUTPUT F_RAGSOC S0
CHECKTYPE REQUIRED
WARNING "Registro inesistente"
END
STRING F_RAGSOC 50
BEGIN
PROMPT 25 3 ""
FLAGS "D"
END
NUMBER F_DA 5
BEGIN
PROMPT 2 5 "Da nr. protocollo "
END
NUMBER F_A 5
BEGIN
PROMPT 2 6 "A nr. protocollo "
END
LISTBOX F_PASS 12
BEGIN
PROMPT 27 5 "Mese da impostare "
ITEM "0|<Normale>"
FLAGS "M"
END
BUTTON DLG_OK 9 2
BEGIN
PROMPT -12 -1 "~Conferma"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 9 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
ENDMASK

98
cg/cg1307.cpp
View File

@ -14,7 +14,6 @@
#include <pconti.h> #include <pconti.h>
#include <rmov.h> #include <rmov.h>
#include <rmoviva.h> #include <rmoviva.h>
#include <partite.h>
#ifndef FOR_EACH_FILE_RECORD #ifndef FOR_EACH_FILE_RECORD
@ -34,9 +33,11 @@ class TElimina_zoppi : public TSkeleton_application
protected: protected:
static bool test_row_file(int rmov, TString_array& arr); static bool test_row_file(int rmov, TString_array& arr);
static bool test_scrow_file(int rmov, TString_array& arr);
static bool test_head_file(TString_array& arr); static bool test_head_file(TString_array& arr);
static int kill_game(long numreg, int numrig); static int kill_game(long numreg, int numrig);
static int kill_pagsca(long recno, int lfile);
static int kill_row(long numreg, char tipor, int numrig); static int kill_row(long numreg, char tipor, int numrig);
static bool firm_handler(TMask_field& f, KEY k); static bool firm_handler(TMask_field& f, KEY k);
@ -139,7 +140,7 @@ bool TElimina_zoppi::test_row_file(int lf_rmov, TString_array& arr)
{ {
case LF_RMOV : msg << "contabili"; break; case LF_RMOV : msg << "contabili"; break;
case LF_RMOVIVA: msg << "iva"; break; case LF_RMOVIVA: msg << "iva"; break;
case LF_PARTITE: msg << "saldaconto";break; case LF_PARTITE: msg << "saldaconto"; break;
default: CHECKD(0, "Invalid row file %d", lf_rmov); break; default: CHECKD(0, "Invalid row file %d", lf_rmov); break;
} }
msg << ": 0"; msg << ": 0";
@ -203,7 +204,7 @@ bool TElimina_zoppi::test_row_file(int lf_rmov, TString_array& arr)
riga << " "; riga << " ";
break; break;
case LF_PARTITE: case LF_PARTITE:
riga.format(" |%6ld|S%4d", reg, row.get_int(PART_NRIGA)); riga.format(" |%6ld|P%4d", reg, row.get_int(PART_NRIGA));
riga.add(row.get(PART_ANNO)); riga.add(row.get(PART_ANNO));
riga.add(row.get_real(PART_IMPORTO).string(".")); riga.add(row.get_real(PART_IMPORTO).string("."));
riga << ' ' << row.get(PART_SEZ); riga << ' ' << row.get(PART_SEZ);
@ -254,6 +255,73 @@ bool TElimina_zoppi::test_row_file(int lf_rmov, TString_array& arr)
return ok; return ok;
} }
bool TElimina_zoppi::test_scrow_file(int lf_pagsca, TString_array& arr)
{
bool ok = TRUE;
TLocalisamfile& pagsca = app().file(lf_pagsca);
long found = 0;
TString msg;
msg << "Controllo righe ";
switch (lf_pagsca)
{
case LF_SCADENZE: msg << "scadenze"; break;
case LF_PAGSCA : msg << "pagamento"; break;
default: CHECKD(0, "Invalid row file %d", lf_pagsca); break;
}
msg << ": 0";
msg.center_just(50);
TProgind pi(pagsca.items(), msg, TRUE, TRUE, 50);
TToken_string riga, descr;
FOR_EACH_FILE_RECORD(pagsca)
{
if (pi.iscancelled())
{
ok = FALSE;
break;
}
pi.addstatus(1);
bool to_kill = FALSE;
if (pagsca.get_int(SCAD_NRIGA) <= 0 ||
pagsca.get_int(SCAD_NRATA) <= 0)
to_kill = TRUE;
if (lf_pagsca == LF_PAGSCA && pagsca.get_int(PAGSCA_NRIGP) <= 0)
to_kill = TRUE;
if (to_kill)
{
found++;
const int colon = msg.find(':');
msg.cut(colon+2);
msg << found;
pi.set_text(msg);
riga.format(" |%6ld", pagsca.recno());
if (lf_pagsca == LF_SCADENZE)
riga.add("S");
else
riga.add("G");
riga << lf_pagsca;
riga.add(pagsca.get(SCAD_ANNO));
riga.add("Partita "); riga << pagsca.get(SCAD_NUMPART);
riga.add(pagsca.get(SCAD_GRUPPO));
riga.add(pagsca.get(SCAD_CONTO));
riga.add(pagsca.get(SCAD_SOTTOCONTO));
if (lf_pagsca == LF_SCADENZE)
riga.add("Riga scadenze inconsistente");
else
riga.add("Riga pagamenti inconsistente");
arr.add(riga);
}
}
return ok;
}
bool TElimina_zoppi::test_head_file(TString_array& arr) bool TElimina_zoppi::test_head_file(TString_array& arr)
{ {
bool ok = TRUE; bool ok = TRUE;
@ -289,7 +357,7 @@ bool TElimina_zoppi::test_head_file(TString_array& arr)
rmoviva.put(RMI_NUMRIG, 1); rmoviva.put(RMI_NUMRIG, 1);
rmoviva_err = rmoviva.read(); rmoviva_err = rmoviva.read();
} }
if (reg == 0 || rmov_err != NOERR && rmoviva_err != NOERR) if (reg == 0 || (rmov_err != NOERR && rmoviva_err != NOERR))
{ {
riga.format(" |%6ld|T", reg); riga.format(" |%6ld|T", reg);
riga.add(mov.get(MOV_ANNOES)); riga.add(mov.get(MOV_ANNOES));
@ -299,7 +367,7 @@ bool TElimina_zoppi::test_head_file(TString_array& arr)
descr = mov.get(MOV_DESCR); descr = mov.get(MOV_DESCR);
if (descr.empty()) if (descr.empty())
{ {
char tipo = rmov.get_char(MOV_TIPO); char tipo = mov.get_char(MOV_TIPO);
if (tipo == 'C' || tipo == 'F') if (tipo == 'C' || tipo == 'F')
{ {
descr << tipo << '|' << mov.get(MOV_CODCF); descr << tipo << '|' << mov.get(MOV_CODCF);
@ -369,6 +437,16 @@ int TElimina_zoppi::kill_game(long numreg, int numrig)
return NOERR; return NOERR;
} }
int TElimina_zoppi::kill_pagsca(long recno, int lfile)
{
CHECK(lfile == LF_SCADENZE || lfile == LF_PAGSCA, "Invalid file");
TLocalisamfile& pagsca = app().file(lfile);
int err = pagsca.readat(recno);
if (err == NOERR)
err = pagsca.remove();
return err;
}
int TElimina_zoppi::kill_row(long numreg, char tipor, int numrig) int TElimina_zoppi::kill_row(long numreg, char tipor, int numrig)
{ {
int lf = 0; int lf = 0;
@ -377,7 +455,9 @@ int TElimina_zoppi::kill_row(long numreg, char tipor, int numrig)
case 'C': lf = LF_RMOV; break; case 'C': lf = LF_RMOV; break;
case 'I': lf = LF_RMOVIVA; break; case 'I': lf = LF_RMOVIVA; break;
case 'T': lf = LF_MOV; break; case 'T': lf = LF_MOV; break;
case 'S': return kill_game(numreg, numrig); case 'P': return kill_game(numreg, numrig);
case 'S':
case 'G': return kill_pagsca(numreg, numrig);
default : break; default : break;
} }
@ -405,13 +485,17 @@ bool TElimina_zoppi::select_handler(TMask_field& f, KEY k)
ok = test_head_file(arr); ok = test_head_file(arr);
if (ok) if (ok)
ok = test_row_file(LF_PARTITE, arr); ok = test_row_file(LF_PARTITE, arr);
if (ok)
ok = test_scrow_file(LF_SCADENZE, arr);
if (ok)
ok = test_scrow_file(LF_PAGSCA, arr);
if (ok) if (ok)
arr.sort(); arr.sort();
if (ok && sheet.run() == K_ENTER) if (ok && sheet.run() == K_ENTER)
{ {
const long total = sheet.checked(); const long total = sheet.checked();
if (total > 0 && if (total > 0 &&
yesno_box("Confermare l'eliminazione di %ld righe di prima nota.", total)) yesno_box("Confermare l'eliminazione di %ld righe.", total))
{ {
TProgind pi(total, "Eliminazione righe...", TRUE, TRUE); TProgind pi(total, "Eliminazione righe...", TRUE, TRUE);
FOR_EACH_ARRAY_ROW(arr, i, riga) FOR_EACH_ARRAY_ROW(arr, i, riga)

82
cg/cg1308.cpp Executable file
View File

@ -0,0 +1,82 @@
// Setta il mese liquidazione sui movimenti del registro vendite
#include <applicat.h>
#include <mask.h>
#include <progind.h>
#include <relation.h>
#include "cglib01.h"
#include <mov.h>
#include "cg1300.h"
#include "cg1308.h"
class TImposta_meseliq : public TSkeleton_application
{
protected:
static bool prot_handler(TMask_field& f, KEY k);
virtual void main_loop();
public:
TImposta_meseliq () {};
virtual ~TImposta_meseliq() {};
};
bool TImposta_meseliq::prot_handler(TMask_field& f, KEY k)
{
if (k == K_ENTER && f.to_check(k))
{
const TMask& m = f.mask();
const long da = m.get_long(F_DA);
const long a = m.get_long(F_A);
if (a < da)
return f.error_box("L'intervallo dei numeri protocollo specificati non e' valido.");
}
return TRUE;
}
void TImposta_meseliq::main_loop()
{
TString expr, es, reg;
TDate d(TODAY);
TMask m("cg1300e");
m.set_handler(F_A, prot_handler);
m.set_handler(F_DA, prot_handler);
TRelation r(LF_MOV);
TCursor c(&r);
TLocalisamfile& fl = c.file();
TEsercizi_contabili esc;
while (m.run() != K_QUIT)
{
const int meseliq = m.get_int(F_PASS);
d.set_year(m.get_int(F_ANNO));
es.format("%04d",esc.date2esc(d));
expr.format("(ANNOES==\"%s\")&&(REG==\"%s\")&&(STR((STR(PROTIVA))>=%ld))&&(STR((STR(PROTIVA))<=%ld))",
(const char*)es, (const char*) m.get(F_REG), m.get_long(F_DA), m.get_long(F_A));
c.setfilter(expr); // Setta l'espressione filtro
const long items = c.items();
if (items == 0)
continue;
TProgind* pi = new TProgind(c.items(), "Aggiornamento mese liquidazione in corso...", FALSE, TRUE, 50);
for (c = 0L; c.pos() < items; c+=1L) //scorre i movimenti e li aggiorna
{
if (c.pos() & 0x7F)
pi->addstatus(1L);
fl.put(MOV_MESELIQ,meseliq);
fl.rewrite();
}
delete pi;
warning_box("Aggiornati %ld records.",c.items());
}
}
int setta_meseliq(int argc, char* argv[])
{
TImposta_meseliq a;
a.run(argc, argv, "Impostazione mese liq.");
return 0;
}

1
cg/cg1308.h Executable file
View File

@ -0,0 +1 @@
int setta_meseliq(int argc, char* argv[]);

10
cg/cg2100c.uml
View File

@ -209,15 +209,17 @@ END
NUMBER F_RIEPILOGO 5 NUMBER F_RIEPILOGO 5
BEGIN BEGIN
PROMPT 25 9 "Riepilogo fino al n. " PROMPT 25 9 "Riepilogo al n. "
FIELD UPROTIVA FIELD UPROTIVA
NUM_EXPR {(#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)} NUM_EXPR {(#F_RIEPILOGO==0)||(#F_RIEPILOGO>=#F_PROTIVA)}
WARNING "Inserire un riepilogo non inferiore al protocollo IVA (Obbigatorio se il cliete/fornitore ha codice inserimento in allegati uguale a 3)" WARNING "Inserire un riepilogo non inferiore al protocollo IVA (Obbigatorio se il cliete/fornitore ha codice inserimento in allegati uguale a 3)"
END END
BOOLEAN F_DIFFERITA LIST F_DIFFERITA 1 19
BEGIN BEGIN
PROMPT 54 9 "Liquid. periodo prec." PROMPT 48 9 "Liquid. "
ITEM " |periodo in corso"
ITEM "X|periodo precedente"
END END
NUMBER F_CLIENTE 6 NUMBER F_CLIENTE 6
@ -610,7 +612,7 @@ BEGIN
PROMPT 0 4 "" PROMPT 0 4 ""
ITEM "Imponibile@15" ITEM "Imponibile@15"
ITEM "Iva@5" ITEM "Iva@5"
ITEM "Det@1" ITEM "Det@2"
ITEM "Imposta@15" ITEM "Imposta@15"
ITEM "CR@1" ITEM "CR@1"
ITEM "CF@1" ITEM "CF@1"

4
cg/cg2102.cpp
View File

@ -108,7 +108,7 @@ bool TPrimanota_application::suspended_handler(TMask_field& f, KEY k)
// Determina se un codice detrazione e' di tipo detraibile o no // Determina se un codice detrazione e' di tipo detraibile o no
// Certified 70% // Certified 90%
bool TPrimanota_application::detraibile(TToken_string& row) bool TPrimanota_application::detraibile(TToken_string& row)
{ {
const TPrimanota_application& a = app(); const TPrimanota_application& a = app();
@ -1239,7 +1239,7 @@ bool TPrimanota_application::iva_notify(TSheet_field& iva, int r, KEY k)
if (oldiva.is_zero() && cau.corrispettivi()) // In caso di corrispettivi ... if (oldiva.is_zero() && cau.corrispettivi()) // In caso di corrispettivi ...
{ {
const TString zanicchi(row.get(1)); // Codice IVA const TString16 zanicchi(row.get(1)); // Codice IVA
const TCodiceIVA i(zanicchi); const TCodiceIVA i(zanicchi);
oldiva.valore() = i.scorpora(oldimp.valore()); // ... scorpora imposta dall'imponibile oldiva.valore() = i.scorpora(oldimp.valore()); // ... scorpora imposta dall'imponibile
} }

2
cg/cg2105.cpp
View File

@ -1819,7 +1819,7 @@ bool TGame_mask::edit_pagamento(TPartita& p, int nriga, int nrata, int nrigp) co
#endif #endif
} }
delete pm; // delete pm;
return key != K_ESC; return key != K_ESC;
} }

6
cg/cg2106.cpp
View File

@ -322,7 +322,8 @@ bool TPrimanota_application::test_prorata()
bool ok = TRUE; bool ok = TRUE;
if (esistono_righe_senza_tipo_detrazione) if (esistono_righe_senza_tipo_detrazione)
{ {
const int annodoc = _msk[2]->get_date(F_DATADOC).year(); int annodoc = _msk[2]->get_date(F_DATADOC).year();
if (annodoc < 1900) annodoc = _msk[2]->get_int(F_ANNOIVA);
const bool prorata100 = causale().reg().prorata100(annodoc); const bool prorata100 = causale().reg().prorata100(annodoc);
const bool esiste_riga_iva_detraibile = type2pos('D') >= 0; const bool esiste_riga_iva_detraibile = type2pos('D') >= 0;
if (prorata100) if (prorata100)
@ -342,7 +343,8 @@ bool TPrimanota_application::aggiusta_prorata()
return FALSE; return FALSE;
TRegistro& reg = causale().reg(); TRegistro& reg = causale().reg();
const int annodoc = _msk[2]->get_date(F_DATADOC).year(); int annodoc = _msk[2]->get_date(F_DATADOC).year();
if (annodoc < 1900) annodoc = _msk[2]->get_int(F_ANNOIVA);
const real prorata_attuale = reg.prorata(annodoc); const real prorata_attuale = reg.prorata(annodoc);
const real vecchio_prorata = prorata_attuale < 100.0 ? 100.0 : 0.0; const real vecchio_prorata = prorata_attuale < 100.0 ? 100.0 : 0.0;

74
cg/cg3100.cpp
View File

@ -464,19 +464,24 @@ const int CodiceRegistro (const char* cod, int anno)
return tipo_reg; return tipo_reg;
} }
bool filter_func_fatture (const TRelation * rel) bool filter_func_fatture (const TRelation* rel)
{ {
int tipo_reg; const TRectype& mov = rel->curr(LF_MOV);
int ann_reg;
TString cod_reg; // Altrimenti stampa anche i corrispettivi! Pseudo errore MI2396
TLocalisamfile* mov = &(rel->lfile(LF_MOV)); long codcf = mov.get_long(MOV_CODCF);
TRectype from (mov->curr()); if (codcf <= 0)
TRectype to (mov->curr()); return FALSE;
ann_reg = mov->get_int (MOV_ANNOIVA);
cod_reg = mov->get (MOV_REG); int ann_reg = mov.get_int (MOV_ANNOIVA);
tipo_reg = CodiceRegistro (cod_reg, ann_reg); TString16 cod_reg = mov.get (MOV_REG);
from.zero(); int tipo_reg = CodiceRegistro (cod_reg, ann_reg);
to.zero();
// Considera solo iva acquisti o vendite
if (tipo_reg != 1 && tipo_reg != 2)
return FALSE;
TRectype from (LF_MOV), to (LF_MOV);
if (app()._annoes != 0) //anno esercizio specificato nella maschera if (app()._annoes != 0) //anno esercizio specificato nella maschera
{ {
from.put(MOV_ANNOES, app()._annoes); from.put(MOV_ANNOES, app()._annoes);
@ -493,8 +498,7 @@ bool filter_func_fatture (const TRelation * rel)
if (app()._codice_fin != 0) if (app()._codice_fin != 0)
to.put(MOV_CODCF, app()._codice_fin); to.put(MOV_CODCF, app()._codice_fin);
if (((mov->curr() >= from) && (mov->curr() <= to)) && if (mov >= from && mov <= to)
((tipo_reg == 1) || (tipo_reg == 2)))
return TRUE; return TRUE;
return FALSE; return FALSE;
@ -1137,10 +1141,11 @@ bool TListaMov_application::preprocess_page(int file,int counter)
{ {
reset_print(); reset_print();
set_row(1, ""); set_row(1, "");
set_row(2,"@7n",FLD(LF_MOV,MOV_NUMREG)); set_row(2,"@7,rn",FLD(LF_MOV,MOV_NUMREG));
set_row(2,"@8g@d",FLD(LF_MOV,MOV_DATAREG)); set_row(2,"@8g@d",FLD(LF_MOV,MOV_DATAREG));
set_row(2,"@17g@3,rs",FLD(LF_MOV,MOV_REG)); set_row(2,"@17g@3,rs",FLD(LF_MOV,MOV_REG));
set_row(2,"@21g@5n",FLD(LF_MOV,MOV_PROTIVA)); set_row(2,"@20g@5,rn",FLD(LF_MOV,MOV_PROTIVA));
set_row(2,"@26g@2,rn",FLD(LF_MOV,MOV_MESELIQ));
TString protiva = cur->curr(LF_MOV).get(MOV_PROTIVA); TString protiva = cur->curr(LF_MOV).get(MOV_PROTIVA);
TString uprotiva = cur->curr(LF_MOV).get(MOV_UPROTIVA); TString uprotiva = cur->curr(LF_MOV).get(MOV_UPROTIVA);
@ -1232,23 +1237,30 @@ print_action TListaMov_application::postprocess_page(int file,int count)
TRigaiva& riga = (TRigaiva&)_c[j]; TRigaiva& riga = (TRigaiva&)_c[j];
//r = j+1; //r = j+1;
r++; r++;
set_row(r, "Imponibile@12g%r", &riga._imponibile); set_row(r, "Imponibile@11g%r", &riga._imponibile);
set_row(r, "@31gImposta@39g%r", &riga._imposta); set_row(r, "@31gImposta@38g%r", &riga._imposta);
set_row(r, "@58gCodice Iva@69g%3s", (const char*)riga._codiva); set_row(r, "@58gCodice Iva@69g%3s", (const char*)riga._codiva);
switch (riga._tipodet) switch (riga._tipodet)
{ {
case 0 : set_row(r, "@76gDetraibile"); case 0 : set_row(r, "@76gDetraibile");
break; break;
case 1 : set_row(r, "@76gIndetraibile su op.es."); case 1 : set_row(r, "@76gIndetraibile su op.es.");
break; break;
case 3 : set_row(r, "@76gPassaggi interni"); case 3 : set_row(r, "@76gPassaggi interni");
break; break;
case 9 : set_row(r, "@76gIndetraibile art.19"); case 9 : set_row(r, "@76gIndetraibile art.19");
break; break;
default: break; default: break;
} }
if (j == 0) // Se e' la prima riga che stampa
{
const int meseliq = current_cursor()->file(LF_MOV).get_int(MOV_MESELIQ);
if (meseliq > 0) // Stampa il mese liquidazione
set_row(r," Mese liq. %2d", meseliq);
}
if (riga._intra) if (riga._intra)
set_row(r, "@104gOper.intrac."); set_row(r, "@111gOper.intrac.");
if (_controllo_mov_errati != 3) if (_controllo_mov_errati != 3)
if (!_esiste_riga_iva && ! _nonesiste_riga_iva) if (!_esiste_riga_iva && ! _nonesiste_riga_iva)
stampa_errori_iva(&r, riga._codiva, riga._tipodet, riga._tipocr); stampa_errori_iva(&r, riga._codiva, riga._tipodet, riga._tipocr);
@ -2440,8 +2452,8 @@ void TListaMov_application::preprocess_header()
} }
sep.fill('-'); sep.fill('-');
set_header (++soh, (const char *) sep); set_header (++soh, (const char *) sep);
set_header (++soh, "Numero Data Cod Protoc. Documento@49gCod Tp @75gTotale@101gCd Tp T O@129gNo"); set_header (++soh, "Numero Data Cod Prot. M Documento@49gCod Tp @75gTotale@101gCd Tp T O@129gNo");
set_header (++soh, "Regis. Operaz. Reg Numero Data@42gNumero@49gCau Dc @56gDescrizione@75gDocumento@90gImponibile@101gIv Det A I@121gImposta@129gAll"); set_header (++soh, "Regis. Operaz. Reg Num. L Data@42gNumero@49gCau Dc @56gDescrizione@75gDocumento@90gImponibile@101gIv Det A I@121gImposta@129gAll");
break; break;
default: default:

40
cg/cg3400.cpp
View File

@ -232,11 +232,11 @@ HIDDEN TStampa_giornale& app() { return (TStampa_giornale&)main_app(); }
bool TStampa_giornale::filtra_reg(const TRelation * r) bool TStampa_giornale::filtra_reg(const TRelation * r)
{ {
bool ok = TRUE; bool ok = TRUE;
if (app()._ae) if (app()._ae_solare)
{ {
const TRectype& rec = r->lfile().curr(); const TRectype& rec = r->lfile().curr();
const int anno = atoi(rec.get("CODTAB").left(4)); const int anno = atoi(rec.get("CODTAB").left(4));
ok = anno == app()._ae; ok = anno == app()._ae_solare;
} }
return ok; return ok;
} }
@ -1344,36 +1344,40 @@ int TStampa_giornale::setta_righe_iva()
// set_row(r, " Imponibile@15g%15r", &riga._imponibile); // set_row(r, " Imponibile@15g%15r", &riga._imponibile);
// set_row(r, "@31gImposta@39g%15r", &riga._imposta); // set_row(r, "@31gImposta@39g%15r", &riga._imposta);
set_row(r, " Imponibile@15g%15s", (const char*)impon_str); set_row(r, " Imponibile@15g%15s", (const char*)impon_str);
set_row(r, "@31gImposta@39g%15s", (const char*)impos_str); set_row(r, "@35gImposta@43g%15s", (const char*)impos_str);
// set_row(r, "@58gCod.Iva@68g%3s", (const char*)riga._codiva); // set_row(r, "@58gCod.Iva@68g%3s", (const char*)riga._codiva);
set_row(r, "@56gCod.Iva %3s", (const char*)riga._codiva); set_row(r, "@64gCod.Iva %3s", (const char*)riga._codiva);
const TString80 codiva_des(get_codiva_des(riga._codiva)); const TString80 codiva_des(get_codiva_des(riga._codiva));
const int tipoatt = riga._tipoatt; const int tipoatt = riga._tipoatt;
if (_stampa_width == 132) if (_stampa_width == 132)
set_row(r, "@68g%-.17s", (const char*)codiva_des); set_row(r, "@76g%-.17s", (const char*)codiva_des);
else else
set_row(r, "@68g%-.50s", (const char*)codiva_des); set_row(r, "@76g%-.50s", (const char*)codiva_des);
const int S132 = 89; const int S132 = 97;
const int S198 = 119; const int S198 = 127;
rig.format("@%dg", _stampa_width == 132 ? S132 : S198); rig.format("@%dg", _stampa_width == 132 ? S132 : S198);
switch (riga._tipodet) switch (riga._tipodet)
{ {
case 0 : case 0 :
rig << "Detraibile "; rig << "Detraibile ";
break; break;
case 1 : case 1 :
rig << "Indetraibile su op.es. "; rig << "Indetraib. su op.es. ";
break; break;
case 3 : case 3 :
rig << "Passaggi interni "; rig << "Passaggi interni ";
break; break;
case 9 : case 9 :
rig << "Indetraibile art.19 "; rig << "Indetraibile art.19 ";
break; break;
default: break; default: break;
} }
set_row(r, (const char*)rig); set_row(r, (const char*)rig);
const int meseliq = _cur->file(LF_MOV).get_int(MOV_MESELIQ);
if (meseliq > 0)
set_row(r, " Mese liq. %2d", meseliq);
TRegistro reg(_reg, _anno_iva); TRegistro reg(_reg, _anno_iva);
const bool att_mista_ev = reg.attivita_mista(); const bool att_mista_ev = reg.attivita_mista();
if (tipoatt != 0 && att_mista_ev) if (tipoatt != 0 && att_mista_ev)
@ -1640,8 +1644,10 @@ bool TStampa_giornale::data_a_hndl (TMask_field& f, KEY k)
if (!data_a.ok()) if (!data_a.ok())
return TRUE; return TRUE;
TEsercizi_contabili esc;
app()._ae_solare = data_a.year(); app()._ae_solare = data_a.year();
app()._ae = app()._ae_solare; app()._ae = esc.date2esc(data_a);//app()._ae_solare;
m.set(ANNO_ESER, app()._ae_solare); m.set(ANNO_ESER, app()._ae_solare);
m.send_key(K_TAB, CODREG); m.send_key(K_TAB, CODREG);
@ -1653,8 +1659,6 @@ bool TStampa_giornale::data_a_hndl (TMask_field& f, KEY k)
const TDate data_da(m.get(DATA_DA)); const TDate data_da(m.get(DATA_DA));
const TDate data_a(f.get()); const TDate data_a(f.get());
TString16 dtda(data_da.string()); TString16 dtda(data_da.string());
const int ae = app()._ae;
const TMask_field& fld_dtda = m.field(DATA_DA);
if (definitiva) if (definitiva)
{ {
@ -1725,8 +1729,9 @@ bool TStampa_giornale::mask_a_cod_reg (TMask_field& f, KEY k)
return TRUE; return TRUE;
else else
{ {
TEsercizi_contabili esc;
a._ae_solare = data_a.year(); // Anno solare usato per la tabella dei registri a._ae_solare = data_a.year(); // Anno solare usato per la tabella dei registri
a._ae = a._ae_solare; // Anno esercizio a._ae = esc.date2esc(data_a); //a._ae_solare; // Anno esercizio
} }
const TString16 reg_cod(f.get()); const TString16 reg_cod(f.get());
@ -1913,7 +1918,8 @@ bool TStampa_giornale::set_print(int)
// e si scartano i movimenti gia' stampati su bollato // e si scartano i movimenti gia' stampati su bollato
if (_stampa_definitiva) if (_stampa_definitiva)
{ {
_data_da = TDate(1,1,_ae); TEsercizi_contabili esc;
_data_da = esc.esercizio(_ae).inizio();//TDate(1,1,_ae);
// Controlla che non siano rimasti movimenti ancora da stampare dell'es.prec. // Controlla che non siano rimasti movimenti ancora da stampare dell'es.prec.
if (_stampa_stesso_registro) if (_stampa_stesso_registro)

6
cg/cg3700.cpp
View File

@ -671,8 +671,8 @@ void TLista_fatture::set_the_header()
rw.fill('-'); rw.fill('-');
set_header(soh++, (const char *) rw); set_header(soh++, (const char *) rw);
set_header(soh++, "@12gNum@21gDocumento@66gCod.@70gTipo@106gCod@110g%c@128gNum.",c[0]); set_header(soh++, "@12gNum@21gDocumento@63gCod.@68gM@70gTipo@106gCod@110g%c@128gNum.",c[0]);
set_header(soh++, "Data reg.@12gprot.@18gData@30gNumero@37gCodice@44gRagione sociale@66gReg.@70gDoc." set_header(soh++, "Data reg.@12gprot.@18gData@30gNumero@37gCodice@44gRagione sociale@63gReg.@68gL@70gDoc."
"@75gTot.documento@94gImponibile@106gIva@110g%c@118gImposta@128gReg.",c[1]); "@75gTot.documento@94gImponibile@106gIva@110g%c@118gImposta@128gReg.",c[1]);
set_header(soh++, (const char *) rw); set_header(soh++, (const char *) rw);
@ -689,7 +689,7 @@ void TLista_fatture::set_page(int file, int counter)
{ {
set_row(nriga,"@ld@12g@5,rs@18g@ld@29g@7,rs",FLD(LF_MOV,MOV_DATAREG),FLD(LF_MOV,MOV_PROTIVA), set_row(nriga,"@ld@12g@5,rs@18g@ld@29g@7,rs",FLD(LF_MOV,MOV_DATAREG),FLD(LF_MOV,MOV_PROTIVA),
FLD(LF_MOV,MOV_DATADOC),FLD(LF_MOV,MOV_NUMDOC)); FLD(LF_MOV,MOV_DATADOC),FLD(LF_MOV,MOV_NUMDOC));
set_row(nriga,"@37g@6,rn@44g#-21t@66g@3s",FLD(LF_MOV,MOV_CODCF),&_ragsoc,FLD(LF_MOV,MOV_REG)); set_row(nriga,"@37g@6,rn@44g#-18t@63g@3s@67g@2,rn",FLD(LF_MOV,MOV_CODCF),&_ragsoc,FLD(LF_MOV,MOV_REG), FLD(LF_MOV,MOV_MESELIQ));
set_row(nriga,"@70g@2s@73g@15n",FLD(LF_MOV,MOV_TIPODOC),FLD(LF_MOV,MOV_TOTDOC)); set_row(nriga,"@70g@2s@73g@15n",FLD(LF_MOV,MOV_TIPODOC),FLD(LF_MOV,MOV_TOTDOC));
set_row(nriga,"@125g@7,rn",FLD(LF_MOV,MOV_NUMREG)); set_row(nriga,"@125g@7,rn",FLD(LF_MOV,MOV_NUMREG));
} }

20
cg/cg4.cpp
View File

@ -4,7 +4,7 @@
#define __MAIN__ #define __MAIN__
#include "cg4.h" #include "cg4.h"
const char* const usage = "Errore - uso : %s -{0|1|2|3|4|5}"; const char* const usage = "Errore - uso : %s -{0|1|2|3|4|5|6|7|8}";
int main(int argc,char** argv) int main(int argc,char** argv)
{ {
@ -13,23 +13,23 @@ int main(int argc,char** argv)
switch (n) switch (n)
{ {
case 0: case 0:
cg4100(argc,argv); break; cg4100(argc,argv); break; // Rinumerazione
case 1: case 1:
cg4200(argc,argv); break; cg4200(argc,argv); break; // Copia archivi
case 2: case 2:
cg4300(argc,argv); break; cg4300(argc,argv); break; // Calcolo liquidazione
case 3: case 3:
cg4400(argc,argv); break; cg4400(argc,argv); break; // Stampa registri
case 4: case 4:
cg4500(argc,argv); break; cg4500(argc,argv); break; // Apertura nuovo esercizio
case 5: case 5:
cg4600(argc,argv); break; cg4600(argc,argv); break; // Chiusura /Apertura
case 6: case 6:
cg4700(argc,argv); break; cg4700(argc,argv); break; // Gestione acconti
case 7: case 7:
cg4800(argc,argv); break; cg4800(argc,argv); break; // Creazione versamenti per acconto
case 8: case 8:
cg4900(argc,argv); break; cg4900(argc,argv); break; // Visualizzazione liquidazione acconti
default: default:
error_box(usage, argv[0]); error_box(usage, argv[0]);
} }

115
cg/cg4300.cpp
View File

@ -35,6 +35,7 @@ bool _Iva11Array::sub(const real& val, const char* fld_name, int num_file)
return add(v1,fld_name, num_file); return add(v1,fld_name, num_file);
} }
void _Iva11Array::zero(const char* fld_name) void _Iva11Array::zero(const char* fld_name)
{ {
const bool is_key = TAssoc_array::is_key(fld_name); const bool is_key = TAssoc_array::is_key(fld_name);
@ -80,7 +81,7 @@ _year(4), _nomiditte(100), _menu(m), _firm_bookmark(-1)
_isvent = _isagricolo = _isbenzinaro = _isviaggio = FALSE; _isvent = _isagricolo = _isbenzinaro = _isviaggio = FALSE;
_row = 1; _what = all; _comp_acconto = FALSE; _row = 1; _what = all; _comp_acconto = FALSE;
_isriepilogo = FALSE; _calcall = FALSE; _isriepilogo = FALSE; _calcall = FALSE;
_isfinal = _isregis = FALSE; _recalc_only = _recalc_regis = _isfinal = _isregis = FALSE;
_stampa_vers = _stampa_acc = FALSE; _stampa_vers = _stampa_acc = FALSE;
_recalc = needed; _recalc = needed;
} }
@ -93,9 +94,8 @@ bool TLiquidazione_app::user_create()
TMessage* msg = mail.next_s("RCL"); TMessage* msg = mail.next_s("RCL");
TToken_string subj(36); TToken_string subj(36);
_is_interactive = msg == NULL; _is_interactive = msg == NULL;
_recalc_only = FALSE;
bool is_header = TRUE; bool is_header = TRUE;
int headerlen; int bodylen;
TDate printdate; TDate printdate;
TString filename; TString filename;
long ditta; long ditta;
@ -141,11 +141,13 @@ bool TLiquidazione_app::user_create()
_month = subj.get_int(1); _month = subj.get_int(1);
ditta = subj.get_long(2); ditta = subj.get_long(2);
char rcl = *(subj.get(3)); char rcl = *(subj.get(3));
_recalc_only = rcl == 'C'; _recalc_only = rcl == 'C';
_is_visliq = rcl == 'V'; _recalc_regis = rcl == 'R' && atoi(_year) > 1997;
_is_visliq = rcl == 'V';
// S/s = stampa senza ricalcolo (minuscolo = definitivo) // S/s = stampa senza ricalcolo (minuscolo = definitivo)
// L/l = stampa con ricalcolo se necessario (minuscolo = definitivo) // L/l = stampa con ricalcolo se necessario (minuscolo = definitivo)
// C = solo ricalcolo // C = solo ricalcolo
// R = solo ricalcolo per registri: aggiorna solo progressivi PRM e PRP. Non fa niente altro ne write_liq() ne pim, ne stampe...
// V = stampa ed ev. ricalcolo per visualizzazione // V = stampa ed ev. ricalcolo per visualizzazione
// s o l minuscoli = registro bollato // s o l minuscoli = registro bollato
_isregis = (rcl == 'l' || rcl == 'L' || _isregis = (rcl == 'l' || rcl == 'L' ||
@ -156,12 +158,9 @@ bool TLiquidazione_app::user_create()
filename = subj.get(5); filename = subj.get(5);
char rliq = *(subj.get(6)); char rliq = *(subj.get(6));
_riepilogo = rliq == 'X'; _riepilogo = rliq == 'X';
headerlen = subj.get_int(7); bodylen = subj.get_int(7);
is_header = subj.items() == 8; is_header = subj.items() == 8;
//modifica del 5/07/1995 printer().formlen(bodylen);
int f = printer().formlen();
printer().formlen(f - headerlen);
//fine
} }
if(pnd) pnd->addstatus(1); if(pnd) pnd->addstatus(1);
@ -176,6 +175,9 @@ bool TLiquidazione_app::user_create()
_ver = new TInteressi_IVA_table(); _ver = new TInteressi_IVA_table();
_pim = new TTable("PIM"); _pim = new TTable("PIM");
_pis = new TTable("PIS");
_prm = new TTable("PRM");
_prp = new TTable("PRP");
_pum = new TTable("PUM"); _pum = new TTable("PUM");
_pam = new TTable("PAM"); _pam = new TTable("PAM");
_pom = new TTable("POM"); _pom = new TTable("POM");
@ -192,10 +194,13 @@ bool TLiquidazione_app::user_create()
_mov = &_cur->file(LF_MOV); _mov = &_cur->file(LF_MOV);
_rmoviva = &_cur->file(LF_RMOVIVA); _rmoviva = &_cur->file(LF_RMOVIVA);
_pcon_1 = &_cur->file(-AGR_PCON1); _pcon_1 = &_cur->file(-AGR_PCON1);
_pcon_2 = &_cur->file(-AGR_PCON2); _pcon_2 = &_cur->file(-AGR_PCON2);
_pim_r = &(_pim->curr()); _pim_r = &(_pim->curr());
_pis_r = &(_pis->curr());
_prm_r = &(_prm->curr());
_prp_r = &(_prp->curr());
_plm_r = &(_plm->curr()); _plm_r = &(_plm->curr());
_pia_r = &(_pia->curr()); _pia_r = &(_pia->curr());
_pum_r = &(_pum->curr()); _pum_r = &(_pum->curr());
@ -225,6 +230,27 @@ bool TLiquidazione_app::user_create()
_pim_tipocr = new TRecfield(*_pim_r,"CODTAB",15,15); _pim_tipocr = new TRecfield(*_pim_r,"CODTAB",15,15);
_pim_codiva = new TRecfield(*_pim_r,"CODTAB",16,19); _pim_codiva = new TRecfield(*_pim_r,"CODTAB",16,19);
_pim_tipodet = new TRecfield(*_pim_r,"CODTAB",20,20); _pim_tipodet = new TRecfield(*_pim_r,"CODTAB",20,20);
_pis_anno = new TRecfield(*_pis_r,"CODTAB",0,3);
_pis_codatt = new TRecfield(*_pis_r,"CODTAB",4,9);
_pis_codreg = new TRecfield(*_pis_r,"CODTAB",10,12);
_pis_mese = new TRecfield(*_pis_r,"CODTAB",13,14);
_pis_tipocr = new TRecfield(*_pis_r,"CODTAB",15,15);
_pis_codiva = new TRecfield(*_pis_r,"CODTAB",16,19);
_pis_tipodet = new TRecfield(*_pis_r,"CODTAB",20,20);
_prm_anno = new TRecfield(*_prm_r,"CODTAB",0,3);
_prm_codatt = new TRecfield(*_prm_r,"CODTAB",4,9);
_prm_codreg = new TRecfield(*_prm_r,"CODTAB",10,12);
_prm_mese = new TRecfield(*_prm_r,"CODTAB",13,14);
_prm_tipocr = new TRecfield(*_prm_r,"CODTAB",15,15);
_prm_codiva = new TRecfield(*_prm_r,"CODTAB",16,19);
_prm_tipodet = new TRecfield(*_prm_r,"CODTAB",20,20);
_prp_anno = new TRecfield(*_prp_r,"CODTAB",0,3);
_prp_codatt = new TRecfield(*_prp_r,"CODTAB",4,9);
_prp_codreg = new TRecfield(*_prp_r,"CODTAB",10,12);
_prp_mese = new TRecfield(*_prp_r,"CODTAB",13,14);
_prp_tipocr = new TRecfield(*_prp_r,"CODTAB",15,15);
_prp_codiva = new TRecfield(*_prp_r,"CODTAB",16,19);
_prp_tipodet = new TRecfield(*_prp_r,"CODTAB",20,20);
_pum_anno = new TRecfield(*_pum_r,"CODTAB",0,3); _pum_anno = new TRecfield(*_pum_r,"CODTAB",0,3);
_pum_codatt = new TRecfield(*_pum_r,"CODTAB",4,9); _pum_codatt = new TRecfield(*_pum_r,"CODTAB",4,9);
_pum_mese = new TRecfield(*_pum_r,"CODTAB",10,11); _pum_mese = new TRecfield(*_pum_r,"CODTAB",10,11);
@ -338,7 +364,7 @@ bool TLiquidazione_app::user_create()
_nditte->read(); _nditte->read();
for (int mese = 1; mese < _month; mese++) for (int mese = 1; mese < _month; mese++)
if (is_month_plain(mese) || _recalc == ever) if ((is_month_plain(mese) && !(_freqviva == "T" && _recalc_regis)) || _recalc == ever)
update_firm(mese); update_firm(mese);
if (is_month_plain(_month) || _month == 13) if (is_month_plain(_month) || _month == 13)
@ -363,9 +389,11 @@ bool TLiquidazione_app::user_create()
TApplication::set_firm(__firm); TApplication::set_firm(__firm);
end_wait(); end_wait();
user_destroy();
} }
else delete pnd; else
delete pnd;
return _is_interactive; return _is_interactive;
} }
@ -378,6 +406,29 @@ bool TLiquidazione_app::user_destroy()
delete _pim_mese; delete _pim_mese;
delete _pim_tipocr; delete _pim_tipocr;
delete _pim_codiva; delete _pim_codiva;
delete _pim_codatt;
delete _pim_tipodet;
delete _pis_anno;
delete _pis_codreg;
delete _pis_mese;
delete _pis_tipocr;
delete _pis_codiva;
delete _pis_codatt;
delete _pis_tipodet;
delete _prm_anno;
delete _prm_codreg;
delete _prm_mese;
delete _prm_tipocr;
delete _prm_codiva;
delete _prm_codatt;
delete _prm_tipodet;
delete _prp_anno;
delete _prp_codreg;
delete _prp_mese;
delete _prp_tipocr;
delete _prp_codiva;
delete _prp_codatt;
delete _prp_tipodet;
delete _ppa_year; delete _ppa_year;
delete _ppa_codatt; delete _ppa_codatt;
delete _ppa_month; delete _ppa_month;
@ -405,7 +456,6 @@ bool TLiquidazione_app::user_destroy()
delete _lam_mese; delete _lam_mese;
delete _pla_anno; delete _pla_anno;
delete _pla_codatt; delete _pla_codatt;
delete _pim_codatt;
delete _del_ditta; delete _del_ditta;
delete _del_anno; delete _del_anno;
delete _del_mese; delete _del_mese;
@ -413,6 +463,9 @@ bool TLiquidazione_app::user_destroy()
delete _ver; delete _ver;
delete _pim; delete _pim;
delete _pis;
delete _prm;
delete _prp;
delete _pum; delete _pum;
delete _pam; delete _pam;
delete _pom; delete _pom;
@ -446,19 +499,7 @@ bool TLiquidazione_app::set_print(int)
while (set_liquidazione()) while (set_liquidazione())
{ {
if (_selected.ones() > 0l) if (_selected.ones() > 0l)
{
TRectype& mov = _cur->curr();
TRectype from(_cur->curr()); from.zero();
TRectype to(from);
TDate f(1, 1, atoi(_year));
TDate t(1, _month == 13 ? 12 : _month, atoi(_year));
t.set_end_month();
from.put(MOV_DATAREG, f);
to.put(MOV_DATAREG, t);
_cur->setregion(from, to);
return recalc_all() && _isprint; return recalc_all() && _isprint;
}
else warning_box("Nessuna ditta selezionata!"); else warning_box("Nessuna ditta selezionata!");
} }
break; break;
@ -471,15 +512,6 @@ bool TLiquidazione_app::set_print(int)
{ {
if (_calcall || _selected.ones() > 0l) if (_calcall || _selected.ones() > 0l)
{ {
TRectype & mov = _cur->curr();
TRectype from(_cur->curr()); from.zero();
TRectype to(from);
TDate f(1, _recalc == one ? _month : 1, atoi(_year));
TDate t(1, _month == 13 ? 12 : _month, atoi(_year));
t.set_end_month();
from.put(MOV_DATAREG, f);
to.put(MOV_DATAREG, t);
_cur->setregion(from, to);
extract_deleghe(); extract_deleghe();
return _isprint; return _isprint;
} }
@ -497,15 +529,6 @@ bool TLiquidazione_app::set_print(int)
{ {
if (_calcall || _selected.ones() > 0l) if (_calcall || _selected.ones() > 0l)
{ {
TRectype & mov = _cur->curr();
TRectype from(_cur->curr()); from.zero();
TRectype to(from);
TDate f(1, _recalc == one ? _month : 1, atoi(_year));
TDate t(1, _month == 13 ? 12 : _month, atoi(_year));
t.set_end_month();
from.put(MOV_DATAREG, f);
to.put(MOV_DATAREG, t);
_cur->setregion(from, to);
recalc_acconti(inf, ina); recalc_acconti(inf, ina);
return _isprint; return _isprint;
} }

55
cg/cg4300.h
View File

@ -77,10 +77,10 @@ class TProgind;
#define NETTO "1" #define NETTO "1"
#define LORDO "2" #define LORDO "2"
enum tiporeg { vendita = 1, acquisto = 2 };
enum recalc { needed = 1, one = 2, ever = 3, never = 4 }; enum recalc { needed = 1, one = 2, ever = 3, never = 4 };
enum wht { all = 1, mnt = 2, trimestre = 3}; enum wht { all = 1, mnt = 2, trimestre = 3};
enum tbc { precedente = 1, incorso = 2}; enum tbc { precedente = 1, incorso = 2};
enum tiporeg { vendita = 1, acquisto = 2 };
// flags per gli items di stampa // flags per gli items di stampa
#define CHG_PARMS 1 // cambiato qualcosa (attivita', ditta...) #define CHG_PARMS 1 // cambiato qualcosa (attivita', ditta...)
@ -103,7 +103,8 @@ enum tbc { precedente = 1, incorso = 2};
#define PIM_HEAD 18 // bytes sprecati per far vedere l'intestazione pim #define PIM_HEAD 18 // bytes sprecati per far vedere l'intestazione pim
#define LIQACC 19 // prospetto liquidazione acconto #define LIQACC 19 // prospetto liquidazione acconto
#define PROGAGR 20 // progressivi per prospetto agricolo dal 1998 #define PROGAGR 20 // progressivi per prospetto agricolo dal 1998
#define PIS_HEAD 21 // intestazione per i PIS (stampa cappelletto iniziale)
#define PIS_ROW 22 // riga totali parziali per codiva (tabella progressivi di cui da periodo successivo)
// ............................................................... // ...............................................................
// support structs // support structs
// ............................................................... // ...............................................................
@ -248,7 +249,6 @@ class TLiquidazione_app : public TPrint_application
bool _isannual; // dichiarazione annuale bool _isannual; // dichiarazione annuale
bool _mixed; // attivita' mista bool _mixed; // attivita' mista
bool _isriepilogo; // 13a liq bool _isriepilogo; // 13a liq
bool _isannual_12; // annuale con mese = 12 (trimestre)
bool _isendliq; // annuale o riepilogo bool _isendliq; // annuale o riepilogo
bool _isservizio; // servizi, professionisti, artisti bool _isservizio; // servizi, professionisti, artisti
bool _isrimborso; // vuole il rimborso infraannuale bool _isrimborso; // vuole il rimborso infraannuale
@ -257,6 +257,7 @@ class TLiquidazione_app : public TPrint_application
bool _isdiffacc; // liq. differita (usato per stampa registri) bool _isdiffacc; // liq. differita (usato per stampa registri)
bool _isagr98; // TRUE se l'anno e' > 1997 e si sta calcolando una attivita' agricola bool _isagr98; // TRUE se l'anno e' > 1997 e si sta calcolando una attivita' agricola
bool _recalc_only; // solo ricalcolo progressivi bool _recalc_only; // solo ricalcolo progressivi
bool _recalc_regis; // solo ricalcolo progressivi per registri
bool _calcall; // tutte le ditte nessuna esclusa bool _calcall; // tutte le ditte nessuna esclusa
bool _isbase; // stampa base di calcolo acconto bool _isbase; // stampa base di calcolo acconto
bool _isfinal; // stampa definitiva (su registro bollato) bool _isfinal; // stampa definitiva (su registro bollato)
@ -315,6 +316,9 @@ class TLiquidazione_app : public TPrint_application
TInteressi_IVA_table* _ver; TInteressi_IVA_table* _ver;
TTable* _pim; TTable* _pim;
TTable* _pis;
TTable* _prm;
TTable* _prp;
TTable* _pum; TTable* _pum;
TTable* _pam; TTable* _pam;
TTable* _pom; TTable* _pom;
@ -336,6 +340,9 @@ class TLiquidazione_app : public TPrint_application
TRectype* _pcon_2_r; TRectype* _pcon_2_r;
TRectype* _iva_r; TRectype* _iva_r;
TRectype* _pim_r; TRectype* _pim_r;
TRectype* _pis_r;
TRectype* _prm_r;
TRectype* _prp_r;
TRectype* _pum_r; TRectype* _pum_r;
TRectype* _pam_r; TRectype* _pam_r;
TRectype* _pom_r; TRectype* _pom_r;
@ -358,6 +365,27 @@ class TLiquidazione_app : public TPrint_application
TRecfield* _pim_tipocr; TRecfield* _pim_tipocr;
TRecfield* _pim_codiva; TRecfield* _pim_codiva;
TRecfield* _pim_tipodet; TRecfield* _pim_tipodet;
TRecfield* _pis_anno;
TRecfield* _pis_codatt;
TRecfield* _pis_codreg;
TRecfield* _pis_mese;
TRecfield* _pis_tipocr;
TRecfield* _pis_codiva;
TRecfield* _pis_tipodet;
TRecfield* _prm_anno;
TRecfield* _prm_codatt;
TRecfield* _prm_codreg;
TRecfield* _prm_mese;
TRecfield* _prm_tipocr;
TRecfield* _prm_codiva;
TRecfield* _prm_tipodet;
TRecfield* _prp_anno;
TRecfield* _prp_codatt;
TRecfield* _prp_codreg;
TRecfield* _prp_mese;
TRecfield* _prp_tipocr;
TRecfield* _prp_codiva;
TRecfield* _prp_tipodet;
TRecfield* _pum_anno; TRecfield* _pum_anno;
TRecfield* _pum_codatt; TRecfield* _pum_codatt;
TRecfield* _pum_mese; TRecfield* _pum_mese;
@ -409,7 +437,7 @@ protected:
static bool select_button(TMask_field& f, KEY key); static bool select_button(TMask_field& f, KEY key);
static bool reset_button(TMask_field& f, KEY key); static bool reset_button(TMask_field& f, KEY key);
static bool chk_final_handler(TMask_field& f, KEY key); static bool chk_final_handler(TMask_field& f, KEY key);
static TLiquidazione_app& app() { return (TLiquidazione_app&)main_app(); } static TLiquidazione_app& app() { return (TLiquidazione_app&)main_app(); }
public: public:
@ -434,7 +462,6 @@ public:
// ricalcolo progressivi mese // ricalcolo progressivi mese
bool update_firm (int month, bool recalc = TRUE); bool update_firm (int month, bool recalc = TRUE);
bool update_att (int month, const char* codatt, bool recalc = TRUE); bool update_att (int month, const char* codatt, bool recalc = TRUE);
void zero_firm (int month);
void zero_att (int month, const char* codatt); void zero_att (int month, const char* codatt);
void zero_annual (int month); void zero_annual (int month);
void recalc_att (int month, const char* codatt); void recalc_att (int month, const char* codatt);
@ -443,9 +470,9 @@ public:
// Le funzioni che hanno come prefisso iva11 sono per creare il file di trasferimento per IVA11 // Le funzioni che hanno come prefisso iva11 sono per creare il file di trasferimento per IVA11
// Viene chiamata quando vengono scorsi tutti i movimenti, settando gli elementi di _iva11_arr. // Viene chiamata quando vengono scorsi tutti i movimenti, settando gli elementi di _iva11_arr.
void iva11_set_arr (const TString& codatt); void iva11_set_arr_phase_1 (const TString& codatt);
// Scorre tutti i PIM della ditta, per completare _iva11_arr prima di chiamare write_IVA11() // Scorre tutti i PIM della ditta, per completare _iva11_arr prima di chiamare write_IVA11()
void iva11_set_arr_pim (const TString& codatt); void iva11_set_arr_phase_2 (const TString& codatt);
// Scrive per la ditta/attivita' corrente, i dati relativi al trasferimento IVA11 // Scrive per la ditta/attivita' corrente, i dati relativi al trasferimento IVA11
// Se viene passato TRUE come parametro, azzera i campi R1 ed R2. // Se viene passato TRUE come parametro, azzera i campi R1 ed R2.
void iva11_write (bool reset_r1r2 = FALSE); void iva11_write (bool reset_r1r2 = FALSE);
@ -481,7 +508,7 @@ public:
void describe_ventilation(int month, const char* codatt); void describe_ventilation(int month, const char* codatt);
void describe_agricolo(int month, const char* codatt); void describe_agricolo(int month, const char* codatt);
void describe_viaggio(int month, const char* codatt); void describe_viaggio(int month, const char* codatt);
void describe_pims(int month, const char* codatt); void describe_pims(int month, const char* codatt, const bool describe_pis);
void describe_liq(int month, const char* codatts, _DescrItem* d = NULL); void describe_liq(int month, const char* codatts, _DescrItem* d = NULL);
void describe_error(const char* errstr, const char* codatt); void describe_error(const char* errstr, const char* codatt);
void describe_annual(const char* codatt); void describe_annual(const char* codatt);
@ -523,7 +550,7 @@ public:
void add_corrisp (int month, const char* codreg, real& r, real& p, void add_corrisp (int month, const char* codreg, real& r, real& p,
int tipodet, const char* codiva, const char* codatt); int tipodet, const char* codiva, const char* codatt);
//vergine immacolata, richiamata per scorporare l'iva nei peccatori corrispettivi //vergine immacolata, richiamata per scorporare l'iva nei corrispettivi peccatori
void lordo2netto(const real& totale, real& imponibile, real& imposta, const real& aliquota); void lordo2netto(const real& totale, real& imponibile, real& imposta, const real& aliquota);
void lordo2netto(real& imponibile, real& imposta, const real& aliquota); void lordo2netto(real& imponibile, real& imposta, const real& aliquota);
@ -550,6 +577,12 @@ public:
// cercapalle in tabelle con opzione di creazione se serve // cercapalle in tabelle con opzione di creazione se serve
bool look_pim(int m, const char* a, const char* r, const char* cr, bool look_pim(int m, const char* a, const char* r, const char* cr,
const char* i, int tipodet = 0, bool create = FALSE); const char* i, int tipodet = 0, bool create = FALSE);
bool look_pis(int m, const char* a, const char* r, const char* cr,
const char* i, int tipodet = 0, bool create = FALSE);
bool look_prm(int m, const char* a, const char* r, const char* cr,
const char* i, int tipodet = 0, bool create = FALSE);
bool look_prp(int m, const char* a, const char* r, const char* cr,
const char* i, int tipodet = 0, bool create = FALSE);
bool look_pum(int m, const char* a, bool create = FALSE); bool look_pum(int m, const char* a, bool create = FALSE);
bool look_pam(int m, const char* a, bool create = FALSE); bool look_pam(int m, const char* a, bool create = FALSE);
bool look_pom(int m, const char* a, bool create = FALSE); bool look_pom(int m, const char* a, bool create = FALSE);
@ -561,7 +594,7 @@ public:
bool look_ppa(int m, const char* a, int t, bool create = FALSE); bool look_ppa(int m, const char* a, int t, bool create = FALSE);
bool look_del(int month, int type, bool create = FALSE); bool look_del(int month, int type, bool create = FALSE);
bool look_iva(const char* cod); bool look_iva(const char* cod);
bool look_reg(const char* reg); bool look_reg(const char* reg);
bool look_lia(long ditta = 0l, bool create = FALSE, int anno = 0); bool look_lia(long ditta = 0l, bool create = FALSE, int anno = 0);
// trova il mytical ufficio concessione da mettere nelle deleghe // trova il mytical ufficio concessione da mettere nelle deleghe
@ -590,7 +623,7 @@ public:
// questa serve per i progressivi: la data passata va bene // questa serve per i progressivi: la data passata va bene
// se il movimento deve essere considerato in calcolo e riepilogo // se il movimento deve essere considerato in calcolo e riepilogo
// per la liquidazione di month // per la liquidazione di month
bool is_date_ok (TDate& d, int month); bool is_date_ok (TDate& d, int month, int liqmonth, int year);
bool is_in_liq_period(TDate& d); bool is_in_liq_period(TDate& d);
bool is_first_month (int m); bool is_first_month (int m);
int liq_month(int x); int liq_month(int x);

931
cg/cg4301.cpp
View File

File diff suppressed because it is too large Load Diff

189
cg/cg4302.cpp
View File

@ -63,12 +63,14 @@ int TLiquidazione_app::liq_month(int x)
{ {
if (x == 13 || _freqviva == "M") if (x == 13 || _freqviva == "M")
return x; return x;
else return next_trim(x); else
return next_trim(x);
} }
int TLiquidazione_app::next_trim(int x) int TLiquidazione_app::next_trim(int x)
{ {
if (x == 13) x = 12; if (x == 13)
x = 12;
return x + (2 - ((x-1) % 3)); return x + (2 - ((x-1) % 3));
} }
@ -96,19 +98,40 @@ int TLiquidazione_app::previous_month(int m)
// vale per LIM (mese o trimestre precedente) // vale per LIM (mese o trimestre precedente)
if (_freqviva == "M") if (_freqviva == "M")
return m == 1 ? 1 : m - 1; return m == 1 ? 1 : m - 1;
else return m == 3 ? 3 : m - 3; else
return m == 3 ? 3 : m - 3;
} }
bool TLiquidazione_app::is_date_ok(TDate& d, int month) bool TLiquidazione_app::is_date_ok(TDate& d, int month, int liqmonth, int year)
// TRUE se la data (di mov o pim) passata va considerata nel // TRUE se la data passata va considerata nel
// ricalcolo dei progressivi mensili per il mese e anno // ricalcolo dei progressivi mensili per il mese e anno
// selezionati; se month == 13 vanno bene tutte purche' // selezionati. Vedi cg4301.cpp per maggiori informazioni
// sia giusto l'anno // sul nuovo filtro di selezione movimenti.
{ {
if (d.month() > month || d.year() != atoi(_year))
return FALSE; bool ok;
if (month == 13) return d.month() <= month;
else return d.month() == month; if (year < 1998 || _recalc_regis) // Vecchia selezione o calcolo progoressivi per stampa registri bollati
{
if (d.month() > month || d.year() != atoi(_year))
return FALSE;
if (month == 13)
ok = d.month() <= month;
else
ok = d.month() == month;
}
else // Nuova selezione dal 1998 in poi
{
const int regmonth = d.month();
const int regyear = d.year();
if (month <= 12)
ok = (regmonth == month && liqmonth == 0) || (liqmonth == month);
else // Annuale, month == 13
ok = (regyear == year && liqmonth != 12) || (regyear == year + 1 && liqmonth == 12);
}
return ok;
} }
@ -200,6 +223,7 @@ void TLiquidazione_app::lordo2netto(real& imponibile, real& imposta, const real&
lordo2netto(totale, imponibile, imposta, aliquota); lordo2netto(totale, imponibile, imposta, aliquota);
} }
// Funzione per trovare i PIM: Progressivi liquidazione Iva Mensili.
bool TLiquidazione_app::look_pim(int month, const char* codatt, const char* codreg, bool TLiquidazione_app::look_pim(int month, const char* codatt, const char* codreg,
const char* tipocr, const char* codiva, int tipodet, const char* tipocr, const char* codiva, int tipodet,
bool create) bool create)
@ -230,6 +254,95 @@ bool TLiquidazione_app::look_pim(int month, const char* codatt, const char* codr
return ok; return ok;
} }
// Le tabelle seguenti (PIS, PRM, PRP) sono vengono introdotte solo dal 1998 in poi.
// Pertanto il loro utilizzo e' significativo in tale periodo.
// Funzione per trovare i PIS: Progressivi liquidazione Iva mensili di cui periodo Successivo
bool TLiquidazione_app::look_pis(int month, const char* codatt, const char* codreg,
const char* tipocr, const char* codiva, int tipodet,
bool create)
{
bool ok = FALSE;
_pis_r->zero();
(*_pis_anno) = _year;
(*_pis_mese) = format("%02d", month);
(*_pis_codreg) = codreg;
(*_pis_codiva) = codiva;
(*_pis_codatt) = codatt;
(*_pis_tipocr) = tipocr;
(*_pis_tipodet) = tipodet;
TString s = _pis_r->get("CODTAB");
_pis->read();
ok = _pis->good();
if (!ok && create)
{
_pis_r->zero();
_pis_r->put("CODTAB",s);
_pis->write();
}
return ok;
}
// Funzione per trovare i PRM: Progressivi Registri iva Mensili.
bool TLiquidazione_app::look_prm(int month, const char* codatt, const char* codreg,
const char* tipocr, const char* codiva, int tipodet,
bool create)
{
bool ok = FALSE;
_prm_r->zero();
(*_prm_anno) = _year;
(*_prm_mese) = format("%02d", month);
(*_prm_codreg) = codreg;
(*_prm_codiva) = codiva;
(*_prm_codatt) = codatt;
(*_prm_tipocr) = tipocr;
(*_prm_tipodet) = tipodet;
TString s = _prm_r->get("CODTAB");
_prm->read();
ok = _prm->good();
if (!ok && create)
{
_prm_r->zero();
_prm_r->put("CODTAB",s);
_prm->write();
}
return ok;
}
// Funzione per trovare i PRP: Progressivi Registri iva mensili di cui da periodo Precedente
bool TLiquidazione_app::look_prp(int month, const char* codatt, const char* codreg,
const char* tipocr, const char* codiva, int tipodet,
bool create)
{
bool ok = FALSE;
_prp_r->zero();
(*_prp_anno) = _year;
(*_prp_mese) = format("%02d", month);
(*_prp_codreg) = codreg;
(*_prp_codiva) = codiva;
(*_prp_codatt) = codatt;
(*_prp_tipocr) = tipocr;
(*_prp_tipodet) = tipodet;
TString s = _prp_r->get("CODTAB");
_prp->read();
ok = _prp->good();
if (!ok && create)
{
_prp_r->zero();
_prp_r->put("CODTAB",s);
_prp->write();
}
return ok;
}
bool TLiquidazione_app::look_plm(int m, const char* a, bool create) bool TLiquidazione_app::look_plm(int m, const char* a, bool create)
{ {
bool ok = FALSE; bool ok = FALSE;
@ -527,6 +640,12 @@ bool TLiquidazione_app::look_del(int month, int type, bool create)
isdel = anag.get_long("TIPOSTDEL") == 0l; isdel = anag.get_long("TIPOSTDEL") == 0l;
uffiva = anag.get_int("UFFIVA"); uffiva = anag.get_int("UFFIVA");
} }
TString16 con;
TString uva;
if (titcf)
look_conc(con, uva); // Legge la concessione se titolare conto fiscale
if (!titcf || isdel) if (!titcf || isdel)
{ {
// non titolare conto fiscale oppure paga con delega: // non titolare conto fiscale oppure paga con delega:
@ -542,24 +661,25 @@ bool TLiquidazione_app::look_del(int month, int type, bool create)
cab = c.get("CodCAB"); cab = c.get("CodCAB");
} }
_del->put("S7", abi); _del->put("S7", abi);
_del->put("S8", cab); _del->put("S8", cab);
_del->put("S9", ""); // per sicurezza! (visto che non devono mai if (titcf && isdel) // Se e' titolare CF e stampa la delega, va riportata anche la conc
} // esistere entrambe {
_del->put("S9", con);
_del->put("S2", uva);
}
else
_del->put("S9", "");
}
else else
{ {
// non usa delega bensi' bollettino o distinta: // non usa delega bensi' bollettino o distinta:
// cerca concessione comune // cerca concessione comune
// infila ufficio concessione in S9 // infila ufficio concessione in S9
// e descrizione comune in S2 // e descrizione comune in S2
TString16 con; _del->put("S9", con);
TString uva; _del->put("S2", uva);
if (look_conc(con, uva)) _del->put("S7", "");
{ _del->put("S8", "");
_del->put("S9", con);
_del->put("S2", uva);
_del->put("S7", "");
_del->put("S8", "");
}
} }
} //fine create } //fine create
@ -604,7 +724,8 @@ bool TLiquidazione_app::look_del(int month, int type, bool create)
_del->put("S2", desiva); _del->put("S2", desiva);
} }
} }
else if (con.not_empty()) // Descrizione cod. concessione
if (con.not_empty())
{ {
TString uva; TString uva;
if (look_conc(con, uva)) if (look_conc(con, uva))
@ -683,19 +804,33 @@ real TLiquidazione_app::credito_prec(int month)
// ritorna l'appropriato credito precedente al mese in corso // ritorna l'appropriato credito precedente al mese in corso
{ {
real c(0.0); real c(0.0);
const bool lia_ok = look_lia();
if (is_first_month(month)) if (is_first_month(month))
{ {
// credito inizio anno // credito inizio anno
if (look_lia()) if (lia_ok)
c = _lia->get_real("R0"); c = _lia->get_real("R0");
// e' positivo o 0 // e' positivo o 0
} }
else else
{ {
c = result_liq(previous_month(month)); c = result_liq(previous_month(month));
if (c.sign() < 0) c = abs(c); if (c.sign() < 0)
else c = real(0.0); c = abs(c);
else
c = real(0.0);
// Nel caso di trimestrali considera dal trimestre corrispondente a
// quello impostato+1. Ad es. se m == 1 considera dal I trim. (m=3)
// se m == 2 idem (m=3). Se m == 3 considera dal II trim. (m=6).
const int crm = _lia->get_int("I0") + 1;
if (lia_ok && crm > 1) // Vale dal mese successivo a quello impostato
{
// Toglie il Credito Trasferito
if (month == liq_month(crm))
c -= _lia->get_real("R15");
}
} }
return c; return c;

319
cg/cg4304.cpp
View File

@ -42,9 +42,11 @@ void TLiquidazione_app::set_page(int file, int cnt)
case SET_FIRM: case SET_FIRM:
set_firm(d); set_firm(d);
break; break;
case PIS_ROW:
case PIM_ROW: case PIM_ROW:
set_pim(d); set_pim(d);
break; break;
case PIS_HEAD:
case PIM_HEAD: case PIM_HEAD:
set_pim_head(d); set_pim_head(d);
break; break;
@ -119,7 +121,9 @@ void TLiquidazione_app::describe_att(int month, const char* codatt,
describe_agricolo(month, codatt); describe_agricolo(month, codatt);
if (atts.items() == 1 && _isviaggio) if (atts.items() == 1 && _isviaggio)
describe_viaggio(month, codatt); describe_viaggio(month, codatt);
describe_pims(month,codatt); describe_pims(month,codatt,FALSE);
if (atoi(_year) > 1997) // Descrive anche i PIS se esistono
describe_pims(month,codatt,TRUE);
if (atts.items() == 1) if (atts.items() == 1)
describe_consistence(codatt); describe_consistence(codatt);
} }
@ -452,13 +456,14 @@ void TLiquidazione_app::describe_viaggio(int month, const char* codatt)
} }
void TLiquidazione_app::describe_pims(int month, const char* codatt) void TLiquidazione_app::describe_pims(int month, const char* codatt, const bool describe_pis)
// le si passa una tokenstring (o un codatt) e lei, da brava, calcola // le si passa una tokenstring (o un codatt) e lei, da brava, calcola
// cumulando per tutte le attivita' nominatele // cumulando per tutte le attivita' nominatele
// ogni riga riguarda un codiva ma tutti i registri // ogni riga riguarda un codiva ma tutti i registri
// se il mese e' 13 si guarda tutto l'anno // se il mese e' 13 si guarda tutto l'anno
// se si tratta di una sola attivita' in att. mista evidenziata o servizievole, // se si tratta di una sola attivita' in att. mista evidenziata o servizievole,
// stampa solo vendite e corrispettivi // stampa solo vendite e corrispettivi
// L'ultimo parametro serve per calcolare i PIS (progressivi del periodo successivo)
{ {
TToken_string atts(codatt); TToken_string atts(codatt);
TString ref(atts.items() == 1 ? codatt : "ALL"); TString ref(atts.items() == 1 ? codatt : "ALL");
@ -474,29 +479,46 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
_DescrItem* ads = NULL; _DescrItem* ads = NULL;
// descrittore riga iva dovuta ag. viaggio' // descrittore riga iva dovuta ag. viaggio'
_DescrItem* iads = NULL; _DescrItem* iads = NULL;
// Seleziona la tabella corretta: PIM o PIS e l'identificatore
TTable * tab = describe_pis ? _pis : _pim;
const word PIM_PIS = describe_pis ? PIS_ROW : PIM_ROW;
// questa cazzata serve per far apparire l'intestazione delle colonne // questa cazzata serve per far apparire l'intestazione delle colonne
// anche se le colonne non ci sono; in tal modo si ottiene una peggior // anche se le colonne non ci sono; in tal modo si ottiene una peggior
// chiarezza, una peggiore efficienza, una gran rottura di coglioni, // chiarezza, una peggiore efficienza, una gran rottura di coglioni,
// ma risulta identico al dio Sistema. // ma risulta identico al dio Sistema.
_DescrItem* hea = new _DescrItem(PIM_HEAD); _DescrItem* hea = new _DescrItem(describe_pis ? PIS_HEAD : PIM_HEAD);
hea->_f0 = skip_acq; // cosi' non compare nemmeno la colonnina! contento? hea->_f0 = skip_acq; // cosi' non compare nemmeno la colonnina! contento?
hea->_f1 = FALSE;
_descr_arr.add(hea); _descr_arr.add(hea);
// Assoc array per memorizzare i corrispettivi da scorporare. Tali corrispettivi verranno // Assoc array per memorizzare i corrispettivi da scorporare. Tali corrispettivi verranno
// aggiunti alla fine del ciclo, scorrendo tutte le righe generate. // aggiunti alla fine del ciclo, scorrendo tutte le righe generate.
TAssoc_array corr_ann; TAssoc_array corr_ann;
_CorrItem cx; _CorrItem cx;
bool is_key; bool is_key;
// Never mind the bollox
TString codtab, codreg, codiva, activity, anno;
int mese;
while ((tmpatt = atts.get()) != NULL) while ((tmpatt = atts.get()) != NULL)
{ {
TString att(tmpatt); TString att(tmpatt);
for (_pim->first(); !_pim->eof(); _pim->next()) for (tab->first(); !tab->eof(); tab->next())
{ {
_DescrItem* d = NULL; _DescrItem* d = NULL;
// compute // compute
bool ok = look_reg(*_pim_codreg); codtab = tab->get("CODTAB");
ok |= look_iva(*_pim_codiva); anno = codtab.mid(0,4);
activity= codtab.mid(4,6);
codreg = codtab.mid(10,3);
mese = atoi(codtab.mid(13,2));
codiva = codtab.mid(16,4);
bool ok = look_reg(codreg);
ok |= look_iva(codiva);
bool isnew = FALSE; bool isnew = FALSE;
if (!ok) continue; if (!ok) continue;
@ -504,10 +526,9 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
tiporeg tipomov = (tiporeg)_reg->get_long("I0"); tiporeg tipomov = (tiporeg)_reg->get_long("I0");
bool corrisp = _reg->get_bool("B0"); bool corrisp = _reg->get_bool("B0");
TString tipoiva = _iva->get("S1"); TString tipoiva = _iva->get("S1");
int tipodet = atoi(*_pim_tipodet); int tipodet = atoi(codtab.mid(20,1));
TString codiva((const char*)(*_pim_codiva)); TString other = tab->get("S4");
TString other = _pim->get("S4"); TToken_string s1(tab->get("S1"),'!'); // Imponibile/iva fatture in ritardo
TToken_string s1(_pim->get("S1"),'!'); // Imponibile/iva fatture in ritardo
real rit_imp(s1.get(0)); real rit_imp(s1.get(0));
real rit_iva(s1.get(1)); real rit_iva(s1.get(1));
const bool is_rit= tipodet != 0 && month == 13 && rit_imp != 0.0; //Se fattura in ritardo con tipo detr. != 0 e si sta calcolando l'annuale const bool is_rit= tipodet != 0 && month == 13 && rit_imp != 0.0; //Se fattura in ritardo con tipo detr. != 0 e si sta calcolando l'annuale
@ -521,7 +542,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
} }
// se e' corrispettivo da ventilare non // se e' corrispettivo da ventilare non
// scrivo un cannolo ripieno visto che e' stato ventilato // scrivo un cannolo ripieno visto che e' stato ventilato
if (tipomov == vendita && tipoiva == "VE") continue; if (tipomov == vendita && tipoiva == "VE" && !describe_pis) continue;
// se e' il dettaglio di una attivita' mista non stampa // se e' il dettaglio di una attivita' mista non stampa
// gli acquisti, il perche' losalamadonna // gli acquisti, il perche' losalamadonna
@ -534,29 +555,27 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
// se ha tutti gli importi nulli viene da un annullamento di // se ha tutti gli importi nulli viene da un annullamento di
// progressivi esistenti (achtung fatture con scontrino) // progressivi esistenti (achtung fatture con scontrino)
if (_pim->get_real("R0").is_zero() && if (tab->get_real("R0").is_zero() &&
_pim->get_real("R1").is_zero() && tab->get_real("R1").is_zero() &&
_pim->get_real("R2").is_zero() && tab->get_real("R2").is_zero() &&
_pim->get_real("R5").is_zero() && tab->get_real("R5").is_zero() &&
_pim->get_real("R6").is_zero()) tab->get_real("R6").is_zero())
continue; continue;
if (strcmp((const char*)*_pim_codatt, att) == 0 && if (activity == att && is_month_plain(mese) && _year == anno)
(is_month_plain(atoi(*_pim_mese))) &&
_year == (const char*)*_pim_anno)
{ {
// vedi se c'e' gia' un item corrispondente // vedi se c'e' gia' un item corrispondente
for(int i = last+1; i < _descr_arr.items(); i++) for(int i = last+1; i < _descr_arr.items(); i++)
{ {
d = (_DescrItem*)&_descr_arr[i]; d = (_DescrItem*)&_descr_arr[i];
if (d->_flags == PIM_ROW && if (d->_flags == PIM_PIS &&
d->_s0 == ref && d->_s0 == ref &&
d->_s1 == codiva) d->_s1 == codiva)
break; break;
if (d->_s1 > codiva) if (d->_s1 > codiva)
{ {
isnew = TRUE; isnew = TRUE;
_DescrItem* dd = new _DescrItem(PIM_ROW); _DescrItem* dd = new _DescrItem(PIM_PIS);
// CicciaPrassi li vuole in ordine crescente // CicciaPrassi li vuole in ordine crescente
_descr_arr.insert(dd,i); _descr_arr.insert(dd,i);
// che due maron stereofonic: se quello dopo // che due maron stereofonic: se quello dopo
@ -578,7 +597,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
if (!isnew && i == _descr_arr.items()) if (!isnew && i == _descr_arr.items())
{ {
isnew = TRUE; isnew = TRUE;
d = new _DescrItem(PIM_ROW); d = new _DescrItem(PIM_PIS);
if (isfirst) { d->_f0 = TRUE; isfirst = FALSE; } if (isfirst) { d->_f0 = TRUE; isfirst = FALSE; }
_descr_arr.add(d); _descr_arr.add(d);
} }
@ -586,33 +605,33 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
if (tipomov == acquisto) if (tipomov == acquisto)
{ {
// Ci sono anche le fatture in ritardo (solo in annuale)! Con tipo detraibilita' 1,3,9 // Ci sono anche le fatture in ritardo (solo in annuale)! Con tipo detraibilita' 1,3,9
d->_r4 += is_rit ? rit_imp : _pim->get_real("R0"); d->_r4 += is_rit ? rit_imp : tab->get_real("R0");
d->_r5 += is_rit ? rit_iva : _pim->get_real("R1"); d->_r5 += is_rit ? rit_iva : tab->get_real("R1");
t4 += is_rit ? rit_imp : _pim->get_real("R0"); t4 += is_rit ? rit_imp : tab->get_real("R0");
t5 += is_rit ? rit_iva : _pim->get_real("R1"); t5 += is_rit ? rit_iva : tab->get_real("R1");
} }
else // vendita else // vendita
{ {
is_key = corr_ann.is_key(codiva); is_key = corr_ann.is_key(codiva);
cx._totale = 0; cx._totale = 0;
_CorrItem& ca = is_key ? (_CorrItem&) corr_ann[codiva] : cx; _CorrItem& ca = is_key ? (_CorrItem&) corr_ann[codiva] : cx;
ca._totale += _pim->get_real("R3"); ca._totale += tab->get_real(tipoiva == "VE" ? "R2" : "R3"); // Se e' codice IVA da Vent. stiamo scorrendo i PIS: va stampato il lordo dei progressivi successivi
if (!is_key) // se non c'e' lo aggiunge if (!is_key) // se non c'e' lo aggiunge
{ {
ca._aliquota = _iva->get_real("R0")/CENTO; // Se e' nuovo setta l'aliquota ca._aliquota = _iva->get_real("R0")/CENTO; // Se e' nuovo setta l'aliquota
corr_ann.add(codiva,ca); corr_ann.add(codiva,ca);
} }
// vedi corrispettivi veri e falsi // vedi corrispettivi veri e falsi
real cvi = _pim->get_real("R0"); // imp. totale real cvi = tab->get_real("R0"); // imp. totale
real cvv = _pim->get_real("R1"); // iva totale real cvv = tab->get_real("R1"); // iva totale
real cfi = _pim->get_real("R13"); // imp. falsi corrispettivi real cfi = tab->get_real("R13"); // imp. falsi corrispettivi
real cfv = _pim->get_real("R14"); // iva falsi corrispettivi real cfv = tab->get_real("R14"); // iva falsi corrispettivi
// MI3404... // MI3404...
// Giochiamo sopra la particolarita' che se non e' un registro di corrispettivi // Giochiamo sopra la particolarita' che se non e' un registro di corrispettivi
// allora se R5 o R6 sono <> 0 significa che trattasi di documento FS, // allora se R5 o R6 sono <> 0 significa che trattasi di documento FS,
// che pertanto va stornato dal totale corrispettivi. (Cosi' volle Vladimiro) // che pertanto va stornato dal totale corrispettivi. (Cosi' volle Vladimiro)
real ifs(_pim->get_real("R5")); // imp. fatture con scontrino real ifs(tab->get_real("R5")); // imp. fatture con scontrino
real vfs(_pim->get_real("R6")); // iva fatture con scontrino real vfs(tab->get_real("R6")); // iva fatture con scontrino
if (!corrisp) if (!corrisp)
{ {
d->_r2 -= ifs; // tolgo FS dai corrispettivi d->_r2 -= ifs; // tolgo FS dai corrispettivi
@ -620,7 +639,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
t2 -= ifs; // idem per i totali t2 -= ifs; // idem per i totali
t3 -= vfs; t3 -= vfs;
} }
// ... E qui finisce.
if (corrisp) if (corrisp)
{ {
@ -648,18 +667,18 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
real adf, adi; // autofatture non residenti art. 17 real adf, adi; // autofatture non residenti art. 17
real va7i, va7v; // ammontare art 40 c. 5/6/8 real va7i, va7v; // ammontare art 40 c. 5/6/8
real vendi = corrisp ? cfi : _pim->get_real("R0"); real vendi = corrisp ? cfi : tab->get_real("R0");
real vendv = corrisp ? cfv : _pim->get_real("R1"); real vendv = corrisp ? cfv : tab->get_real("R1");
// si scorporano solo per l'annuale, altrimenti // si scorporano solo per l'annuale, altrimenti
// vengono normalmente considerati nelle vendite // vengono normalmente considerati nelle vendite
if (month == 13) if (month == 13)
{ {
TToken_string kr(_pim->get("S0"),'!'); TToken_string kr(tab->get("S0"),'!');
va7i = kr.get(0); va7i = kr.get(0);
va7v = kr.get(1); va7v = kr.get(1);
adf = _pim->get_real("R7"); adf = tab->get_real("R7");
adi = _pim->get_real("R8"); adi = tab->get_real("R8");
} }
d->_r0 += vendi - adf - va7i; d->_r0 += vendi - adf - va7i;
@ -680,14 +699,14 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
// flag per stampare l'intestazione colonne // flag per stampare l'intestazione colonne
} }
} }
} } // End of _pim cycle
real impc,ivac; // Aggiunge lo scorporo dei corrispettivi real impc,ivac; // Aggiunge lo scorporo dei corrispettivi
const int ditems = _descr_arr.items(); const int ditems = _descr_arr.items();
for (int i=last+1;i<ditems;i++) // scorre le righe memorizzate for (int i=last+1;i<ditems;i++) // scorre le righe memorizzate
{ {
_DescrItem& dd = (_DescrItem&) _descr_arr[i]; _DescrItem& dd = (_DescrItem&) _descr_arr[i];
if (corr_ann.is_key(dd._s1) && dd._flags == PIM_ROW && dd._s0 == ref) // Se esiste il codice iva corrispondente sull'array corrispettivi if (corr_ann.is_key(dd._s1) && dd._flags == PIM_PIS && dd._s0 == ref) // Se esiste il codice iva corrispondente sull'array corrispettivi
{ {
_CorrItem& cc = (_CorrItem &) corr_ann[dd._s1]; _CorrItem& cc = (_CorrItem &) corr_ann[dd._s1];
lordo2netto(cc._totale,impc,ivac,cc._aliquota); lordo2netto(cc._totale,impc,ivac,cc._aliquota);
@ -700,7 +719,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
corr_ann.destroy(); corr_ann.destroy();
look_plm(month,att); look_plm(month,att);
real iva74t = _pom->get_real("R13"); real iva74t = _pom->get_real("R13");
if (iva74t.sign() > 0) if (!describe_pis && iva74t.sign() > 0)
{ {
if(iads == NULL) iads = new _DescrItem(PIM_ROW); if(iads == NULL) iads = new _DescrItem(PIM_ROW);
iads->_s0 = "74TER"; // cosi' vollero iads->_s0 = "74TER"; // cosi' vollero
@ -714,9 +733,9 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
iads->_f0 = TRUE; iads->_f0 = TRUE;
} }
} }
} } // fine while (codatt)
if (art40.sign() > 0 || art40_iva.sign() > 0) if (!describe_pis && (art40.sign() > 0 || art40_iva.sign() > 0))
{ {
_DescrItem* ads = new _DescrItem(PIM_ROW); _DescrItem* ads = new _DescrItem(PIM_ROW);
ads->_s0 = ref; ads->_s0 = ref;
@ -731,7 +750,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
_descr_arr.add(ads); _descr_arr.add(ads);
} }
if (autodafe.sign() > 0 || autodafe_iva.sign() > 0) if (!describe_pis && (autodafe.sign() > 0 || autodafe_iva.sign() > 0))
{ {
_DescrItem* ads = new _DescrItem(PIM_ROW); _DescrItem* ads = new _DescrItem(PIM_ROW);
ads->_s0 = ref; ads->_s0 = ref;
@ -749,34 +768,41 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
// ag. viaggio: iva dovuta 74 ter la vogliono in mezzo ai progressivi // ag. viaggio: iva dovuta 74 ter la vogliono in mezzo ai progressivi
if (iads != NULL) _descr_arr.add(iads); if (iads != NULL) _descr_arr.add(iads);
// prepara una bella riga di totali if (describe_pis)
if (/* !isfirst */ TRUE)
{ {
_DescrItem* d = new _DescrItem(TOT_ROW); _DescrItem& d = (_DescrItem&)_descr_arr[_descr_arr.last()];
d->_r0 = t0; d->_r1 = t1; if (d._flags == PIS_HEAD) // Nessun PIS_ROW presente
d->_r2 = t2; d->_r3 = t3; d._f1 = TRUE; // Evita la stampa dell'intestazione
d->_r4 = t4; d->_r5 = t5; }
// aggiunge dati ptm // prepara una bella riga di totali
_DescrItem* t = new _DescrItem(MISC_LIQ); _DescrItem* d = new _DescrItem(TOT_ROW);
t->_f1 = isfirst; // per il form feed d->_r0 = t0; d->_r1 = t1;
d->_r2 = t2; d->_r3 = t3;
d->_r4 = t4; d->_r5 = t5;
// aggiunge dati ptm
_DescrItem* t = new _DescrItem(MISC_LIQ);
t->_f2 = atoi(_year) > 1997 ? describe_pis : TRUE; //isfirst; // per il form feed o meno alla fine
if (!describe_pis)
{
TToken_string ttm("0|0|0"); TToken_string ttm("0|0|0");
const bool annual = month == 13; const bool annual = month == 13;
const int limit = annual ? 13 : month; const int limit = annual ? 13 : month;
int m = annual ? month : 1; int m = annual ? month : 1;
for (; m <= limit; m++) for (; m <= limit; m++)
{ {
if (!is_month_ok(m,month)) continue; if (!is_month_ok(m,month)) continue;
atts.restart(); atts.restart();
while ((tmpatt = atts.get()) != NULL) while ((tmpatt = atts.get()) != NULL)
{ {
TString att(tmpatt); TString att(tmpatt);
look_plm(m, att); look_plm(m, att);
real ad1, ad2; real ad1, ad2;
d->_r6 += _pom->get_real("R0"); // acq. intracomunitari d->_r6 += _pom->get_real("R0"); // acq. intracomunitari
d->_r7 += _pom->get_real("R1"); // inded. art 19 d->_r7 += _pom->get_real("R1"); // inded. art 19
d->_r8 += _pom->get_real("R2"); // IVA su inded. art. 19 d->_r8 += _pom->get_real("R2"); // IVA su inded. art. 19
@ -806,12 +832,12 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
ttm.add(ad1.string(),1); // imp. acq. amm. indetr. ttm.add(ad1.string(),1); // imp. acq. amm. indetr.
ttm.add(ad2.string(),2); // IVA acq. amm. indetr ttm.add(ad2.string(),2); // IVA acq. amm. indetr
t->_s0 = ttm; t->_s0 = ttm;
t->_f0 = !_prorata.current().is_zero() && (month != 13); // flag per segnalare l'esistenza t->_f0 = !_prorata.current().is_zero() && (month != 13); // flag per segnalare l'esistenza
t->_f1 = _plm->get_bool("B1"); // flag per segnalare errore tabella prorata precedente mancante t->_f1 += _plm->get_bool("B1"); // flag per segnalare errore tabella prorata precedente mancante
d->_r9 += _pom->get_real("R9"); // acq. inded. su ricavi esenti d->_r9 += _pom->get_real("R9"); // acq. inded. su ricavi esenti
d->_r10 += _pom->get_real("R10"); // IVA acq. inded. su ricavi esenti d->_r10 += _pom->get_real("R10"); // IVA acq. inded. su ricavi esenti
// passaggi interni // passaggi interni
real aipip(d->_s0); // progressivo ... real aipip(d->_s0); // progressivo ...
real aipivp(d->_s1); // ... (che mazzata sulle palle...) real aipivp(d->_s1); // ... (che mazzata sulle palle...)
@ -819,7 +845,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
aipivp += _pum->get_real("R9"); // IVA acq. inded. per pass. int aipivp += _pum->get_real("R9"); // IVA acq. inded. per pass. int
d->_s0 = aipip.string(); // risbatto ... d->_s0 = aipip.string(); // risbatto ...
d->_s1 = aipivp.string(); // .. d->_s1 = aipivp.string(); // ..
// spese generali. // spese generali.
real spgnp(t->_s2); // progressivo ... real spgnp(t->_s2); // progressivo ...
real spgnvp(t->_s3); // ... (che doppia mazzata sulle palle...) real spgnvp(t->_s3); // ... (che doppia mazzata sulle palle...)
@ -827,30 +853,30 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
spgnvp += _pam->get_real("R11"); // IVA spese generali. spgnvp += _pam->get_real("R11"); // IVA spese generali.
t->_s2 = spgnp.string(); // risbatto ... t->_s2 = spgnp.string(); // risbatto ...
t->_s3 = spgnvp.string(); // .. t->_s3 = spgnvp.string(); // ..
// sospensione imposta: non piu' due palle, ma QUATTRO // sospensione imposta: non piu' due palle, ma QUATTRO
TToken_string tt(t->_s4); TToken_string tt(t->_s4);
real aqsi(tt.get(0)); real aqsi(tt.get(0));
real aqsv(tt.get(1)); real aqsv(tt.get(1));
real vnsi(tt.get(2)); real vnsi(tt.get(2));
real vnsv(tt.get(3)); real vnsv(tt.get(3));
aqsi += _pam->get_real("R6"); aqsi += _pam->get_real("R6");
aqsv += _pam->get_real("R7"); aqsv += _pam->get_real("R7");
vnsi += _pam->get_real("R8"); vnsi += _pam->get_real("R8");
vnsv += _pam->get_real("R9"); vnsv += _pam->get_real("R9");
tt = ""; tt = "";
tt.add(aqsi.string()); tt.add(aqsi.string());
tt.add(aqsv.string()); tt.add(aqsv.string());
tt.add(vnsi.string()); tt.add(vnsi.string());
tt.add(vnsv.string()); tt.add(vnsv.string());
t->_s4 = tt; t->_s4 = tt;
} // while (attivita') } // while (attivita')
} // for (mese ok) } // for (mese ok)
// annual follows in _arr // annual follows in _arr
if (month == 13 && ref != "ALL") if (month == 13 && ref != "ALL")
{ {
@ -867,7 +893,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
real am = _pla->get_real("R4"); real am = _pla->get_real("R4");
real iaq = _pla->get_real("R11"); // IVA acquisti real iaq = _pla->get_real("R11"); // IVA acquisti
real ppg = _pla->get_real("R12"); // pro-rata pagato real ppg = _pla->get_real("R12"); // pro-rata pagato
// calcola nuovo prorata per ogni attivita' (miste: 1+2) // calcola nuovo prorata per ogni attivita' (miste: 1+2)
real pr(0.0); real pr(0.0);
if (!ris.is_zero()) if (!ris.is_zero())
@ -875,7 +901,7 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
real co = 0.0; real co = 0.0;
real topay = 0.0; real topay = 0.0;
pr.round(ROUND_LIRA); pr.round(ROUND_LIRA);
if (pr != _prorata.current()) //if (pr != _prorata.current())
{ {
// calcolo conguaglio -- se positivo e' a debito // calcolo conguaglio -- se positivo e' a debito
if (pr > 0.0) if (pr > 0.0)
@ -886,9 +912,9 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
co = topay - ppg; co = topay - ppg;
round_mille_lire(co); round_mille_lire(co);
} }
_DescrItem* dd = new _DescrItem(ANNUAL); _DescrItem* dd = new _DescrItem(ANNUAL);
// MonsterFish: arrotonda alle 1000 LIRE B1,B2,B3,B4 // MonsterFish: arrotonda alle 1000 LIRE B1,B2,B3,B4
round_mille_lire(e1); round_mille_lire(e1);
round_mille_lire(e2); round_mille_lire(e2);
@ -907,12 +933,11 @@ void TLiquidazione_app::describe_pims(int month, const char* codatt)
t->_arr.add(dd); t->_arr.add(dd);
} }
} }
_descr_arr.add(d);
_descr_arr.add(t);
} }
_descr_arr.add(d);
_descr_arr.add(t);
} }
void TLiquidazione_app::describe_liq(int month, const char* codatts, void TLiquidazione_app::describe_liq(int month, const char* codatts,
_DescrItem* di) _DescrItem* di)
{ {
@ -939,6 +964,7 @@ void TLiquidazione_app::describe_liq(int month, const char* codatts,
tt.add(_lam->get_real("R1").string()); tt.add(_lam->get_real("R1").string());
tt.add(_lam->get_real("R2").string()); tt.add(_lam->get_real("R2").string());
tt.add(_lam->get_real("R3").string()); tt.add(_lam->get_real("R3").string());
tt.add(_lam->get_real("R4").string());
d->_s0 = tt; d->_s0 = tt;
d->_s1 = _lim->get_real("R11").string(); d->_s1 = _lim->get_real("R11").string();
@ -966,7 +992,8 @@ void TLiquidazione_app::describe_liq(int month, const char* codatts,
{ {
if (d->_r0.sign() < 0) if (d->_r0.sign() < 0)
d->_arr.add(di); d->_arr.add(di);
else delete di; else
delete di;
} }
if (!_is_visliq) if (!_is_visliq)
@ -1003,15 +1030,13 @@ _DescrItem* TLiquidazione_app::describe_deleghe(int month)
if (_stampa_vers) //solo se sono a debito if (_stampa_vers) //solo se sono a debito
if (look_del(month,month == 13 ? 2 : 1)) if (look_del(month,month == 13 ? 2 : 1))
{ {
if (_del->get("S9").not_empty())
d->_f0 = 2;
else d->_f0 = 1;
if (_del->get_bool("B0")) if (_del->get_bool("B0"))
{ {
d->_s0 = _del->get("S2"); // ufficio iva/concessione //_del->S2 descr. ufficio iva/concessione
d->_s1 = _del->get("S1"); // descrizione banca //_del->S1 descrizione banca
d->_s2 = _del->get("S7"); // ABI d->_s0 = _del->get("S9"); // Cod Ufficio concessione
d->_s3 = _del->get("S8"); // CAB d->_s1 = _del->get("S7"); // Cod ABI
d->_s2 = _del->get("S8"); // Cod CAB
d->_r0 = _del->get_real("R0"); d->_r0 = _del->get_real("R0");
d->_d0 = _del->get_date("D0"); d->_d0 = _del->get_date("D0");
} // altrimenti lascia tutto in bianco e ci scriveranno i dati a mano } // altrimenti lascia tutto in bianco e ci scriveranno i dati a mano
@ -1022,16 +1047,14 @@ _DescrItem* TLiquidazione_app::describe_deleghe(int month)
if (look_del(12,7)) //sia che sia a debito che a credito if (look_del(12,7)) //sia che sia a debito che a credito
{ {
d->_s4 = "ACC"; d->_s4 = "ACC";
if (_del->get("S9").not_empty())
d->_f1 = 2;
else d->_f1 = 1;
TToken_string t; TToken_string t;
if (_del->get_bool("B0")) if (_del->get_bool("B0"))
{ {
t.add(_del->get("S2")); //_del->S2 descr. ufficio iva/concessione
t.add(_del->get("S1")); //_del->S1 descrizione banca
t.add(_del->get("S7")); t.add(_del->get("S9")); // Cod Conc
t.add(_del->get("S8")); t.add(_del->get("S7")); // Cod ABI
t.add(_del->get("S8")); // Cod CAB
t.add(_del->get_real("R0").string()); t.add(_del->get_real("R0").string());
t.add(_del->get("D0")); t.add(_del->get("D0"));
} }
@ -1311,19 +1334,30 @@ void TLiquidazione_app::set_liqacc(_DescrItem& d)
void TLiquidazione_app::set_pim_head(_DescrItem& d) void TLiquidazione_app::set_pim_head(_DescrItem& d)
{ {
set_bookmark("Riepilogo progressivi", _att_bookmark); int r = 1;
if (d._flags == PIM_HEAD)
set_bookmark("Riepilogo progressivi", _att_bookmark);
else // PIS_HEAD
{
if (d._f1)
return; // No header please
set_bookmark("Riepilogo progressivi successivi", _att_bookmark);
set_row(r++," Di cui da periodo successivo");
set_row(r++,"");
}
if (d._f0) if (d._f0)
{ {
set_row(1," Cod.@41gVENDITE@71gCORRISPETTIVI"); set_row(r++," Cod.@41gVENDITE@71gCORRISPETTIVI");
set_row(2," IVA Descrizione@30gImponibile@49gImposta@63gImponibile@82gImposta"); set_row(r++," IVA Descrizione@30gImponibile@49gImposta@63gImponibile@82gImposta");
} }
else else
{ {
set_row(1," Cod.@41gVENDITE@71gCORRISPETTIVI@106gACQUISTI"); set_row(r++," Cod.@41gVENDITE@71gCORRISPETTIVI@106gACQUISTI");
set_row(2," IVA Descrizione@30gImponibile@49gImposta@63gImponibile" set_row(r++," IVA Descrizione@30gImponibile@49gImposta@63gImponibile"
"@82gImposta@96gImponibile@115gImposta"); "@82gImposta@96gImponibile@115gImposta");
} }
set_row(3,""); set_row(r,"");
} }
void TLiquidazione_app::set_pim(_DescrItem& d) void TLiquidazione_app::set_pim(_DescrItem& d)
@ -1524,14 +1558,23 @@ void TLiquidazione_app::set_pumpam(_DescrItem& d)
set_row(row++, "%% PRO-RATA ed IVA non detraibile (%s%%)@69g%r", set_row(row++, "%% PRO-RATA ed IVA non detraibile (%s%%)@69g%r",
(const char*)prc.string(), &(d._r11)); (const char*)prc.string(), &(d._r11));
if (atoi(_year) > 1997 && d._r12 != ZERO) // prorata 1998 if (atoi(_year) > 1997 /*&& d._r12 != ZERO*/) // prorata 1998
{ // Anno precedente {
set_row(row++, "%% PRO-RATA ed IVA non detraibile (%s%%)@69g%r", if (d._f1)
(const char*)d._r13.string(), &(d._r12));
if (d._f1) // Segnala errore per tabella anno precedente non esistente
{ {
row++; // Stampa errore solo se NON definitiva. Errore MI2414
set_row(row++, "Impossibile reperire la %% PRO-RATA relativa all'anno precedente."); if (!_isfinal)
{
// Segnala errore per tabella anno precedente non esistente
row++;
set_row(row++, "Impossibile reperire la %% PRO-RATA relativa all'anno precedente.");
}
}
else if (d._r13 != prc)
{
// Stampa % solo se la tabella dell'anno precedente esiste ma non e' uguale. Errore MI2415
set_row(row++, "%% PRO-RATA ed IVA non detraibile (%s%%)@69g%r",
(const char*)d._r13.string(), &(d._r12));
} }
} }
} }
@ -1552,14 +1595,18 @@ void TLiquidazione_app::set_pumpam(_DescrItem& d)
set_row(3,"ALTRI DATI RELATIVI ALLA DICHIARAZIONE@55gimponibile" set_row(3,"ALTRI DATI RELATIVI ALLA DICHIARAZIONE@55gimponibile"
"@77gimposta@91gdetrazione"); "@77gimposta@91gdetrazione");
set_row(4,""); set_row(4,"");
set_row(row++,"");
set_row(row,"");
} }
else else
set_row(1,""); set_row(1,"");
// form feed // form feed
set_auto_ff(TRUE); if (d._f2)
set_auto_ff(TRUE);
} }
void TLiquidazione_app::set_grand(_DescrItem& d) void TLiquidazione_app::set_grand(_DescrItem& d)
{ {
real& risultato = d._r0; real& risultato = d._r0;
@ -1577,6 +1624,7 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
real iva_acq(tt.get(1)); real iva_acq(tt.get(1));
real cred_prec(tt.get(2)); real cred_prec(tt.get(2));
real debt_prec(tt.get(3)); real debt_prec(tt.get(3));
real cred_trasf(tt.get(4)); cred_trasf = -cred_trasf;
real acc_dec(d._s1); real acc_dec(d._s1);
real res_cred(d._s2); real res_cred(d._s2);
@ -1611,7 +1659,11 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
set_row(rw++,"@11gRISULTATO@75g%r", &res_debt); set_row(rw++,"@11gRISULTATO@75g%r", &res_debt);
set_row(rw++,"@11gIva ammessa in detrazione@58g%r", &iva_acq); set_row(rw++,"@11gIva ammessa in detrazione@58g%r", &iva_acq);
if (_isannual || d._f1) if (_isannual || d._f1)
{
set_row(rw++,"@11gCredito inizio anno@58g%r", &cred_prec); set_row(rw++,"@11gCredito inizio anno@58g%r", &cred_prec);
if (cred_trasf != ZERO)
set_row(rw++,"@11gCredito trasferito @58g%r", &cred_trasf);
}
else else
set_row(rw++,"@11gCredito precedente@58g%r", &cred_prec); set_row(rw++,"@11gCredito precedente@58g%r", &cred_prec);
@ -1789,7 +1841,8 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
if (rw < (printer().formlen() - cont)) if (rw < (printer().formlen() - cont))
rw = printer().formlen() - cont; rw = printer().formlen() - cont;
for (int i = rr; i < rw; i++) set_row(i,""); for (int i = rr; i < rw; i++)
set_row(i,"");
set_bookmark("Riepilogo versamenti", _firm_bookmark); set_bookmark("Riepilogo versamenti", _firm_bookmark);
@ -1797,65 +1850,41 @@ void TLiquidazione_app::set_grand(_DescrItem& d)
TString vr = di._r0.string("###.###.###.###"); TString vr = di._r0.string("###.###.###.###");
// la cincia non vuole lo zero // la cincia non vuole lo zero
if (atof(vr) == 0.0 && vr[vr.len()-1] == '0') vr[vr.len()-1] = ' '; if (atof(vr) == 0.0 && vr[vr.len()-1] == '0')
vr[vr.len()-1] = ' ';
if (di._s4 == "ACC") if (di._s4 == "ACC") // Acconto
{ {
TToken_string ac(di._s5); TToken_string ac(di._s5);
if (!ac.empty_items()) if (!ac.empty_items())
{ {
TString dt (ac.get(5)); TString dt (ac.get(4));
real app (ac.get(4)); real app (ac.get(3));
TString vr (app.string("###.###.###.###")); TString vr (app.string("###.###.###.###"));
TString loc (ac.get(0)); TString con (ac.get(0));
TString ban (ac.get(1)); TString abi (ac.get(1));
TString abi (ac.get(2)); TString cab (ac.get(2));
TString cab (ac.get(3)); if (atof(vr) == 0.0 && vr[vr.len()-1] == '0')
if (atof(vr) == 0.0 && vr[vr.len()-1] == '0') vr[vr.len()-1] = ' '; vr[vr.len()-1] = ' ';
set_row(rw++, "- ACCONTO DICEMBRE -"); set_row(rw++, "- ACCONTO DICEMBRE -");
set_row(rw, " Versamento di L. %s effettuato il %s", set_row(rw, " Versamento di L. %s effettuato il %s",
(const char*)vr, (const char*)vr,
(const char*)dt); (const char*)dt);
if (di._f1 == 1) set_row(rw++, "@68gCod Conc.: %3s",(const char*)con);
{ set_row(rw++, "@68gCod. ABI: %5s Cod. CAB o Cod. Dipendenza: %5s",(const char*)abi,(const char*)cab);
set_row(rw++, "@68gdiretto all'ufficio IVA di %s", (const char*)loc);
set_row(rw++, "@68gtramite %s", (const char*)ban);
set_row(rw++, "@68gcodice azienda %s codice dipendenza %s",
(const char*)abi, (const char*)cab);
}
else if (di._f1 == 2)
{
set_row(rw++, "@68gdiretto al Ministero delle Finanze");
set_row(rw++, "@68gConcessione %s", (const char*)loc);
}
} }
} }
if (_stampa_acc && _stampa_vers) set_row(rw++, "- SALDO -"); if (_stampa_acc && _stampa_vers)
set_row(rw++, "- SALDO -");
if (_stampa_vers) if (_stampa_vers)
{ {
set_row(rw, " Versamento di L. %s effettuato il %s", set_row(rw, " Versamento di L. %s effettuato il %s",
(const char*)vr, (const char*)vr,
(const char*)dt); (const char*)dt);
if (di._f0 == 1) set_row(rw++, "@68gCod Conc.: %3s",(const char*)di._s0);
{ set_row(rw++, "@68gCod. ABI: %5s Cod. CAB o Cod. Dipendenza: %5s",(const char*)di._s1,(const char*)di._s2);
set_row(rw++, "@68gdiretto all'ufficio IVA di %s",
(const char*)(di._s0));
set_row(rw++, "@68gtramite %s", (const char*)(di._s1));
set_row(rw++, "@68gcodice azienda %s codice dipendenza %s",
(const char*)(di._s2), (const char*)(di._s3));
}
else if (di._f0 == 2)
{
set_row(rw++, "@68gdiretto al Ministero delle Finanze");
set_row(rw++, "@68gConcessione %s", (const char*)(di._s0));
}
else
{
set_row(rw++, "@68gdiretto");
set_row(rw++, "@68gtramite");
}
} }
} }
} }

7
cg/cg4305.cpp
View File

@ -223,8 +223,8 @@ bool TLiquidazione_app::extract_delega(int month, TArray& desc)
ucc.put("CODTAB", _del->get("S9")); ucc.put("CODTAB", _del->get("S9"));
if (ucc.read() == NOERR) if (ucc.read() == NOERR)
desc = ucc.get("S0"); desc = ucc.get("S0");
} }
else if (_del->get("S7").not_empty()) if (_del->get("S7").not_empty())
{ {
TTable ban("%BAN"); TTable ban("%BAN");
TString16 cod; TString16 cod;
@ -249,7 +249,8 @@ bool TLiquidazione_app::extract_delega(int month, TArray& desc)
} }
// Se non e' stampata invece visualizza la delega presente su file e l'importo a credito che ha calcolato // Se non e' stampata invece visualizza la delega presente su file e l'importo a credito che ha calcolato
// chiedendo cosa fare: Registra elimina fisicamente la delega dal file, Annulla lo fa proseguire // chiedendo cosa fare: Registra elimina fisicamente la delega dal file, Annulla lo fa proseguire
if (!stampato) video_conferma(topay, intr, nrnd, TRUE); if (!stampato)
video_conferma(topay, intr, nrnd, TRUE);
} }
} }

1834
cg/cg4400.cpp
View File

File diff suppressed because it is too large Load Diff

49
cg/cg4400.h
View File

@ -1,7 +1,6 @@
// //
// cg4400.h // cg4400.h
// //
#include <isam.h>
#include <printapp.h> #include <printapp.h>
#include <mask.h> #include <mask.h>
@ -13,24 +12,40 @@ enum messaggio {
non_proseguire, non_proseguire,
prosegui_stampa, prosegui_stampa,
prosegui_cal_stampa prosegui_cal_stampa
}; };
class CG4400_application : public TPrintapp enum tipo_stampa {
prova = 1,
bollato = 2,
libro_unico = 3,
rif_giornale = 4
};
enum tiporeg {
vendita = 1,
acquisto = 2,
riepilogativo = 3,
incassi = 4,
giornale = 5,
sociale = 6,
cespiti = 7
};
class TStampa_registri_app : public TPrintapp
{ {
TSorted_cursor * _cur; TSorted_cursor * _cur;
TRelation *_rel, *_nditte; TRelation *_rel, *_nditte;
TLocalisamfile *_clifo, *_occas, *_tab, *_tabcom, *_com, *_anag, *_unloc, *_attiv, *_indlib; TLocalisamfile *_clifo, *_occas, *_com, *_anag, *_unloc, *_attiv, *_indlib;
TTable *_tabreg, *_tablbu, *_tablim, *_tabpim, *_tablia, *_tabiva; TTable *_tabreg, *_tablia, *_tabpim, *_tabprm, *_tabprp, *_table;
TTable *_tabpla, *_tabppa, *_tabvid;
TRigaiva_array _iva_array, _riga_rmi; TRigaiva_array _iva_array, _riga_rmi;
TTipodoc_array _doc_array; TTipodoc_array _doc_array;
TRiga_array _tot_iva_array; TRiga_array _tot_iva_array, _tot_prec_iva_array;
TBit_array _selected; TBit_array _selected;
TArray_sheet *_ditte; TArray_sheet *_ditte;
TArray _nomiditte; TArray _nomiditte;
tiporeg _tipo_reg;
bool _st_liq[13]; bool _st_liq[13];
bool _test; bool _test;
TRecnotype _nrec;
bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa; bool _mov_empty, _stampa_ind_ditta, _stampa_tutti_i_registri, _auto_intraf, _stampa;
bool _corrispettivi, _liquidazione, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre; bool _corrispettivi, _liquidazione, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre;
bool _rif_vid, _intesta_vidi, _intesta_liq, _stampa_data_reg, _ok_vidi; bool _rif_vid, _intesta_vidi, _intesta_liq, _stampa_data_reg, _ok_vidi;
@ -41,17 +56,18 @@ class CG4400_application : public TPrintapp
TDate _u_data; TDate _u_data;
long _n_ditte, _u_stampata, _primast, __firm, _uprotivap, _ditta; long _n_ditte, _u_stampata, _primast, __firm, _uprotivap, _ditta;
long _numini, _pagine_stampate; long _numini, _pagine_stampate;
int _fino_a_mese, _tipo_reg, _tipo_stampa, _cod_un_loc; int _fino_a_mese, _cod_un_loc;
int _annoes, _r, _stampa_width, _mese_ultima_liq, _mese_credito; int _annoes, _r, _stampa_width, _mese_ultima_liq, _mese_credito;
int _stampa_len, _stampa_mese, _size_header; int _stampa_len, _stampa_mese, _size_header;
real _totale_doc, _credito; real _totale_doc, _credito;
TString _codreg, _desc_lib, _codatt, _attivita, _tipoatt; TString _codreg, _desc_lib, _codatt, _attivita, _tipoatt;
TString _tipodoc, _descr_doc, _codlib, _codice_vidi; TString _tipodoc, _descr_doc, _codlib, _codice_vidi;
TString _cofi,_cap,_paiva,_ragsoc,_comunefis,_provfis,_viafis; TString _cofi,_cap,_paiva,_ragsoc,_comunefis,_provfis,_viafis;
TFilename _t, _pippo; TFilename _t;
TParagraph_string* _desc27; TParagraph_string* _desc27;
messaggio _scelta; messaggio _scelta;
tipo_stampa _tipo_stampa;
protected: protected:
@ -100,10 +116,11 @@ public:
bool look_lia(long ditta = 0l); bool look_lia(long ditta = 0l);
bool ricalcola(int); bool ricalcola(int);
bool stampa_riepilogo(int); bool stampa_riepilogo(int);
void stampa_pims(TPrintrow&, TRiga_array&, TRigaiva_array&, int); void stampa_prospetto_riepilogo(tiporeg, const TString&, const TString&, const bool);
void stampa_progressivi(TRiga_array&, TRigaiva_array&, tiporeg, const bool);
void set_choice_limits(TMask&); void set_choice_limits(TMask&);
void build_ditte_sheet(); void build_ditte_sheet();
void cerca_reg(const TString&, byte*); tiporeg cerca_reg(const TString&);
void set_page_tot_reg(); void set_page_tot_reg();
void send_message(char,const TFilename&,int); void send_message(char,const TFilename&,int);
void aggiorna_reg(const bool aggiorna_vidi); void aggiorna_reg(const bool aggiorna_vidi);
@ -117,7 +134,7 @@ public:
bool setta_mask(long); bool setta_mask(long);
bool preprocess_page(int, int); bool preprocess_page(int, int);
int stampa_intestazione(); int stampa_intestazione();
int stampa_prospetto(); int stampa_prospetto(int, bool);
long select_firm_range(long,long); long select_firm_range(long,long);
void stampa_plafonds(int); void stampa_plafonds(int);
void get_dati_ditta(); void get_dati_ditta();
@ -134,8 +151,8 @@ public:
virtual print_action postprocess_page (int, int); virtual print_action postprocess_page (int, int);
virtual void preprocess_header(); virtual void preprocess_header();
CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100), _test(FALSE) {} TStampa_registri_app() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100), _test(FALSE) {}
virtual ~CG4400_application() {} virtual ~TStampa_registri_app() {}
}; };

115
cg/cg4400a.uml
View File

@ -1,40 +1,24 @@
#include "cg4400a.h" #include "cg4400a.h"
TOOLBAR "" 0 20 0 2 PAGE "Stampa registri" -1 -1 72 20
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -11 "~Stampa"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -11 ""
END
ENDPAGE
PAGE "Stampa registri" -1 -1 60 18
LISTBOX TIPO_STAMPA 1 40 LISTBOX TIPO_STAMPA 1 40
BEGIN BEGIN
PROMPT 2 1 "Tipo " PROMPT 2 1 "Tipo "
HELP "Indicare il tipo di stampa da eseguire" HELP "Indicare il tipo di stampa da eseguire"
ITEM "1|Stampa di prova" ITEM "1|Stampa di prova"
MESSAGE SHOW,3@|SHOW,CODICE_LIBRO_PROVA|SHOW,DATA_STAMPA|SHOW,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID|HIDE,1@|RESET,1@|HIDE,2@|RESET,2@ MESSAGE SHOW,3@|SHOW,CODICE_LIBRO_PROVA|SHOW,DATA_STAMPA|SHOW,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID|HIDE,1@|RESET,1@|HIDE,2@|RESET,2@|DISABLE,5@
ITEM "2|Libri bollati della ditta" ITEM "2|Libri bollati della ditta"
MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,TIPO_RIEPILOGATIVO|RESET,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,TIPO_RIEPILOGATIVO|RESET,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID|DISABLE,5@
ITEM "3|Libri unici dello studio" ITEM "3|Libri unici dello studio"
MESSAGE SHOW,2@|HIDE,1@|RESET,1@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,TIPO_RIEPILOGATIVO|RESET,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID MESSAGE SHOW,2@|HIDE,1@|RESET,1@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,TIPO_RIEPILOGATIVO|RESET,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID|ENABLE,5@
ITEM "4|Libri con riferimenti al libro giornale" ITEM "4|Libri con riferimenti al libro giornale"
MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,TIPO_RIEPILOGATIVO|RESET,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,TIPO_RIEPILOGATIVO|RESET,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID|DISABLE,5@
END END
NUMBER ANNO 4 NUMBER ANNO 4
BEGIN BEGIN
PROMPT 2 3 "Anno " PROMPT 2 2 "Anno "
HELP "Anno di cui si vuole stampare il registro" HELP "Anno di cui si vuole stampare il registro"
FLAGS "A" FLAGS "A"
WARNING "Inserire l'anno" WARNING "Inserire l'anno"
@ -42,48 +26,48 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
GROUPBOX DLG_NULL 39 5 GROUPBOX DLG_NULL 35 5
BEGIN BEGIN
PROMPT 16 2 "Scelta ditte" PROMPT 2 3 "Scelta ditte"
END END
NUMBER DA_CODICE 5 NUMBER DA_CODICE 5
BEGIN BEGIN
PROMPT 17 3 "Da codice " PROMPT 3 4 "Da codice "
HELP "Codice ditta di inizio selezione" HELP "Codice ditta di inizio selezione"
FLAGS "B" FLAGS "B"
END END
NUMBER A_CODICE 5 NUMBER A_CODICE 5
BEGIN BEGIN
PROMPT 17 4 "A codice " PROMPT 3 5 "A codice "
HELP "Codice ditta di fine selezione" HELP "Codice ditta di fine selezione"
FLAGS "B" FLAGS "B"
END END
STRING F_SELECT 5 STRING F_SELECT 5
BEGIN BEGIN
PROMPT 17 5 "Scelte n. " PROMPT 3 6 "Scelte n. "
FLAGS "DR" FLAGS "DR"
END END
BUTTON DLG_SELECT 10 2 BUTTON DLG_SELECT 10 2
BEGIN BEGIN
PROMPT 41 3 "~Selezione" PROMPT 22 4 "~Selezione"
HELP "Indicare le ditte da selezionare per la stampa" HELP "Indicare le ditte da selezionare per la stampa"
MESSAGE EXIT, DLG_SELECT MESSAGE EXIT, DLG_SELECT
END END
BUTTON F_ANNULLA 10 BUTTON F_ANNULLA 10
BEGIN BEGIN
PROMPT 41 5 "A~zzera" PROMPT 22 6 "A~zzera"
HELP "Annullare la selezione delle ditte" HELP "Annullare la selezione delle ditte"
MESSAGE RESET,DA_CODICE|RESET,A_CODICE MESSAGE RESET,DA_CODICE|RESET,A_CODICE
END END
STRING CODICE_LIBRO 3 STRING CODICE_LIBRO 3
BEGIN BEGIN
PROMPT 2 7 "Codice libro " PROMPT 41 4 "Codice libro "
HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate" HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate"
USE REG SELECT (I0<="3") && (S6=="") && (CODTAB[1,4]==#111) USE REG SELECT (I0<="3") && (S6=="") && (CODTAB[1,4]==#111)
INPUT CODTAB[1,4] ANNO INPUT CODTAB[1,4] ANNO
@ -100,7 +84,7 @@ END
STRING CODICE_LIBRO_PROVA 3 STRING CODICE_LIBRO_PROVA 3
BEGIN BEGIN
PROMPT 2 7 "Codice libro " PROMPT 41 4 "Codice libro "
HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate" HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate"
USE REG SELECT (I0<="3") && (CODTAB[1,4]==#111) USE REG SELECT (I0<="3") && (CODTAB[1,4]==#111)
INPUT CODTAB[1,4] ANNO INPUT CODTAB[1,4] ANNO
@ -116,7 +100,7 @@ END
STRING CODICE_LIB_UN 3 STRING CODICE_LIB_UN 3
BEGIN BEGIN
PROMPT 2 7 "Libro unico " PROMPT 41 4 "Libro unico "
HELP "Codice del libro unico su cui deve essere effettuata la stampa" HELP "Codice del libro unico su cui deve essere effettuata la stampa"
USE %LBU SELECT CODTAB[1,4]==#111 USE %LBU SELECT CODTAB[1,4]==#111
INPUT CODTAB[1,4] ANNO INPUT CODTAB[1,4] ANNO
@ -135,13 +119,13 @@ END
DATE DATA_STAMPA DATE DATA_STAMPA
BEGIN BEGIN
PROMPT 28 7 "Data stampa " PROMPT 41 5 "Data stampa "
FLAGS "A" FLAGS "A"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
WARNING "Inserire la data di stampa" WARNING "Inserire la data di stampa"
END END
GROUPBOX DLG_NULL 52 3 GROUPBOX DLG_NULL 35 4
BEGIN BEGIN
PROMPT 2 8 "Stampa movimenti" PROMPT 2 8 "Stampa movimenti"
END END
@ -155,7 +139,7 @@ END
DATE A_DATA DATE A_DATA
BEGIN BEGIN
PROMPT 30 9 "Alla data " PROMPT 3 10 "Alla data "
HELP "Data di fine stampa registro" HELP "Data di fine stampa registro"
VALIDATE DATE_CMP_FUNC >= DA_DATA VALIDATE DATE_CMP_FUNC >= DA_DATA
WARNING "Inserire una data non inferiore alla data limite inferiore" WARNING "Inserire una data non inferiore alla data limite inferiore"
@ -172,28 +156,20 @@ END
LISTBOX MESE 10 LISTBOX MESE 10
BEGIN BEGIN
PROMPT 4 9 "Mese " PROMPT 3 9 "Mese "
HELP "Mese di cui eseguire la stampa" HELP "Mese di cui eseguire la stampa"
FLAGS "M" FLAGS "M"
GROUP 2 GROUP 2
END END
LISTBOX TIPO_RIEPILOGATIVO 11 GROUPBOX DLG_NULL 28 4
BEGIN BEGIN
PROMPT 2 11 "Tipo riepilogativo " PROMPT 40 8 "Formato pagina"
HELP "Indicare il tipo stampa di liquidazione sul registro"
ITEM "P|Del periodo"
ITEM "A|Annuale"
END
GROUPBOX DLG_NULL 35 4
BEGIN
PROMPT 2 12 "Formato pagina"
END END
LISTBOX STAMPA_WIDTH 4 LISTBOX STAMPA_WIDTH 4
BEGIN BEGIN
PROMPT 3 13 "Numero di colonne " PROMPT 41 9 "Numero di colonne "
HELP "Numero di colonne per pagina del modulo di stampa." HELP "Numero di colonne per pagina del modulo di stampa."
ITEM "1|132" ITEM "1|132"
ITEM "2|198" ITEM "2|198"
@ -201,26 +177,32 @@ END
NUMBER STAMPA_LEN 3 NUMBER STAMPA_LEN 3
BEGIN BEGIN
PROMPT 3 14 "Numero di righe " PROMPT 41 10 "Numero di righe "
HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe" HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe"
END END
ENDPAGE LISTBOX TIPO_RIEPILOGATIVO 11
BEGIN
PROMPT 3 12 "Tipo riepilogativo "
ITEM "P|Del periodo"
ITEM "A|Annuale"
END
PAGE "Parametri addizionali" -1 -1 56 18 GROUPBOX DLG_NULL 52 6
BEGIN
PROMPT 2 13 "Parametri addizionali"
END
NUMBER ULTIMA_PAGINA 4 NUMBER ULTIMA_PAGINA 4
BEGIN BEGIN
PROMPT 2 2 "Ultimo numero di pagina stampata libro unico " PROMPT 3 14 "Ultimo nr. di pagina stampata libro unico "
HELP "Numero dell'ultima pagina del libro unico stampata"
FLAGS "R" FLAGS "R"
GROUP 2 GROUP 5
END END
STRING CODICE_LIBRO_IVA 3 STRING CODICE_LIBRO_IVA 3
BEGIN BEGIN
PROMPT 2 3 "Eventuale codice libro IVA " PROMPT 3 15 "Eventuale codice libro IVA "
HELP "Libro IVA da stampare. Vuoto = tutti"
USE REG SELECT (I0<="3") && (CODTAB[1,4]==#111) USE REG SELECT (I0<="3") && (CODTAB[1,4]==#111)
INPUT CODTAB[1,4] ANNO INPUT CODTAB[1,4] ANNO
INPUT CODTAB[5,7] CODICE_LIBRO_IVA INPUT CODTAB[5,7] CODICE_LIBRO_IVA
@ -232,22 +214,35 @@ BEGIN
//CHECKTYPE NORMAL //CHECKTYPE NORMAL
FLAGS "U" FLAGS "U"
VALIDATE ZEROFILL_FUNC 3 VALIDATE ZEROFILL_FUNC 3
GROUP 2 GROUP 5
END END
LISTBOX ULTIMO_MESE 10 LISTBOX ULTIMO_MESE 10
BEGIN BEGIN
PROMPT 2 4 "Ultimo mese stampa su libro unico " PROMPT 3 16 "Ultimo mese stampa su libro unico "
FLAGS "MD" FLAGS "MD"
ITEM "00|Nessuno" ITEM "00|Nessuno"
GROUP 2 //GROUP 2
// Sempre disabilitato...
END END
BOOLEAN RIF_VID BOOLEAN RIF_VID
BEGIN BEGIN
PROMPT 2 5 "Stampa riferimenti vidimazione" // Abilitato solo se mese == 12 && stampa libri unici
PROMPT 3 17 "Stampa riferimenti vidimazione"
END END
BUTTON DLG_PRINT 10 2
BEGIN
PROMPT -12 -1 "~Stampa"
MESSAGE EXIT,K_ENTER
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

14
cg/cg4600a.uml
View File

@ -46,20 +46,20 @@ BEGIN
INPUT CODCAUS F_APERTURA INPUT CODCAUS F_APERTURA
END END
DATE F_DATAC
BEGIN
PROMPT 36 4 "Data/Anno chiusura "
HELP "Data in cui effettuare il movimento di chiusura"
END
DATE F_DATAAP DATE F_DATAAP
BEGIN BEGIN
PROMPT 36 5 "Data/Anno apertura " PROMPT 36 4 "Data/Anno apertura "
HELP "Data in cui effettuare il movimento di apertura" HELP "Data in cui effettuare il movimento di apertura"
WARNING "Inserire una data non inferiore alla data di chiusura" WARNING "Inserire una data non inferiore alla data di chiusura"
VALIDATE DATE_CMP_FUNC >= F_DATAC VALIDATE DATE_CMP_FUNC >= F_DATAC
END END
DATE F_DATAC
BEGIN
PROMPT 36 5 "Data/Anno chiusura "
HELP "Data in cui effettuare il movimento di chiusura"
END
NUMBER F_ANNOCH 4 NUMBER F_ANNOCH 4
BEGIN BEGIN
PROMPT 69 4 "" PROMPT 69 4 ""

25
cg/cg4700.cpp
View File

@ -98,31 +98,6 @@ bool GesAcc_app::msk_acconto(TMask_field& f, KEY k)
return TRUE; return TRUE;
} }
/*** Deve farlo il programma di stampa versamenti!
int GesAcc_app::rewrite(const TMask& m)
{
TString16 chiave;
int anno = m.get_int(F_ANNO);
chiave << anno << 12;
TTable lim ("LIM");
lim.put("CODTAB", chiave);
if (lim.read() == NOERR)
{
real new_acc (m.get(F_ACCONTO));
real new_cred = lim.get_real("R12") - lim.get_real("R11") + new_acc;
lim.put("R11", new_acc);
lim.put("R12", new_cred);
lim.put("R0", lim.get_real("R13")- new_cred);
lim.rewrite();
}
m.autosave(_rel);
return _rel->rewrite();
}
***/
TMask* GesAcc_app::get_mask(int mode) TMask* GesAcc_app::get_mask(int mode)
{ {
return _mask; return _mask;

19
cg/cg5300.cpp
View File

@ -30,6 +30,7 @@ protected: // Applicat
virtual void on_config_change(); virtual void on_config_change();
static bool gelidi_handler(TMask_field& f, KEY k); static bool gelidi_handler(TMask_field& f, KEY k);
static bool agrmin_handler(TMask_field& f, KEY k); static bool agrmin_handler(TMask_field& f, KEY k);
static bool credres_handler(TMask_field& f, KEY k);
protected: // Relapp protected: // Relapp
virtual bool user_create(); virtual bool user_create();
@ -107,6 +108,22 @@ bool TParaliq_app::agrmin_handler(TMask_field& f, KEY k)
return TRUE; return TRUE;
} }
bool TParaliq_app::credres_handler(TMask_field& f, KEY k)
{
if (k == K_ENTER) // In uscita dalla maschera
{
const TMask& m = f.mask();
const short id = f.dlg();
const real r = m.get_real(F_CRED_RES);
const int i = m.get_int(F_MESE_RES_AL);
if (id == F_MESE_RES_AL && r != 0.0 && i == 0)
return f.error_box("Impostare anche il mese.");
if (id == F_CRED_RES && i != 0 && r == 0.0)
return f.error_box("Impostare anche il credito residuo.");
}
return TRUE;
}
void TParaliq_app::check_registers(int year) void TParaliq_app::check_registers(int year)
{ {
// controlla che per ogni data attivita' esistano almeno un registro // controlla che per ogni data attivita' esistano almeno un registro
@ -210,6 +227,8 @@ bool TParaliq_app::user_create()
_msk->set_handler(F_GELIDI,gelidi_handler); _msk->set_handler(F_GELIDI,gelidi_handler);
_msk->set_handler(F_AGRMIN,agrmin_handler); _msk->set_handler(F_AGRMIN,agrmin_handler);
_msk->set_handler(F_CRED_RES,credres_handler);
_msk->set_handler(F_MESE_RES_AL,credres_handler);
((TSheet_field&)_msk->field(F_SHEET_PLA)).set_notify(sheet_action); ((TSheet_field&)_msk->field(F_SHEET_PLA)).set_notify(sheet_action);
return TRUE; return TRUE;
} }

3
cg/cg5300a.h
View File

@ -7,6 +7,9 @@
#define F_RAGSOC 307 #define F_RAGSOC 307
#define F_CRED_COST 308 #define F_CRED_COST 308
#define F_AGRMIN 309 #define F_AGRMIN 309
#define F_CRED_RES 310
#define F_MESE_RES_AL 311
#define F_CODATT 101 #define F_CODATT 101
#define F_DESATT 150 #define F_DESATT 150
#define F_TIPOATT 102 #define F_TIPOATT 102

20
cg/cg5300a.uml
View File

@ -57,7 +57,7 @@ BEGIN
ADD NONE ADD NONE
END END
GROUPBOX DLG_NULL 75 5 GROUPBOX DLG_NULL 75 6
BEGIN BEGIN
PROMPT 2 4 "Parametri ditta" PROMPT 2 4 "Parametri ditta"
END END
@ -103,6 +103,24 @@ BEGIN
NUM_CALC ROUND(#THIS_FIELD,-3) NUM_CALC ROUND(#THIS_FIELD,-3)
END END
NUMBER F_CRED_RES 15
BEGIN
PROMPT 4 8 "Credito residuo "
FIELD R15
PICTURE "."
FLAGS "R"
NUM_EXPR #THIS<=#F_CRED_PREC
WARNING "L'importo non puo' essere maggiore del Credito Precedente"
END
LISTBOX F_MESE_RES_AL 14
BEGIN
PROMPT 45 8 "Al mese di "
ITEM "0|"
FLAGS "M"
FIELD I0
END
SPREADSHEET F_SHEET_PLA 78 SPREADSHEET F_SHEET_PLA 78
BEGIN BEGIN
PROMPT 1 10 "Parametri attivita'" PROMPT 1 10 "Parametri attivita'"

81
cg/cg5500.cpp
View File

@ -443,11 +443,20 @@ bool Visliq_app::sel_mese_sh2 (TMask_field& f, KEY k)
if (app().look_del(month, /* sel == (sh.items() - 1) ? 7 : */ 1)) if (app().look_del(month, /* sel == (sh.items() - 1) ? 7 : */ 1))
{ {
TToken_string& tv = sh.row(sel);
tv.add(app().del()->get("D0"),1);
tv.add(app().del()->get("S7"),2);
tv.add(app().del()->get("S8"),3);
tv.add(app().del()->get("S9"),4);
tv.add(app().del()->get("R0"),5);
sh.force_update(sel);
/*
sv.field(102).set(app().del()->get("D0")); sv.field(102).set(app().del()->get("D0"));
sv.field(103).set(app().del()->get("S7")); sv.field(103).set(app().del()->get("S7"));
sv.field(104).set(app().del()->get("S8")); sv.field(104).set(app().del()->get("S8"));
sv.field(105).set(app().del()->get("S9")); sv.field(105).set(app().del()->get("S9"));
sv.field(106).set(app().del()->get("R0")); sv.field(106).set(app().del()->get("R0"));
*/
} }
return TRUE; return TRUE;
@ -1536,44 +1545,44 @@ void Visliq_app::write_general(TMask& m)
rstart = risl; rstart = risl;
} }
else else
{ {
// salva i valori modificati senza fare controlli // salva i valori modificati senza fare controlli
// e rimetti a lui i suoi debiti mettendo B0 a FALSE // e rimetti a lui i suoi debiti mettendo B0 a FALSE
if (was_lim) if (was_lim)
{ {
if (orett != nrett) if (orett != nrett)
_lim->put("R5", nrett); _lim->put("R5", nrett);
if (orimb != nrimb) if (orimb != nrimb)
_lim->put("R1", nrimb); _lim->put("R1", nrimb);
_lim->put("B0", ""); _lim->put("B0", "");
_lim->rewrite(); _lim->rewrite();
} }
} }
// Rimetti a posto righe sheet se serve // Rimetti a posto righe sheet se serve
if (was_lim) if (was_lim)
{ {
int sr0 = (_lim->get_real("R0")).sign(); int sr0 = (_lim->get_real("R0")).sign();
int sr5 = (_lim->get_real("R5")).sign(); int sr5 = (_lim->get_real("R5")).sign();
real r0abs = abs(_lim->get_real("R0"));
real r5abs = abs(_lim->get_real("R5"));
tt_ln.add(r0abs.string(),1);
tt_ln.add(sr0 == 0 ? "" : (sr0 > 0 ? "D" : "C"), 2);
tt_ln.add((_lim->get_real("R1")).string(),3);
tt_ln.add(r5abs.string(),4);
tt_ln.add(sr5 == 0 ? "" : (sr5 > 0 ? "D" : "C"),5);
// sh.force_update(row);
}
_from_one = FALSE;
} // for mese liq. (riga sheet)
real r0abs = abs(_lim->get_real("R0")); sh.force_update();
real r5abs = abs(_lim->get_real("R5")); if (shm.is_running())
sh.force_update(sh.selected());
tt_ln.add(r0abs.string(),1);
tt_ln.add(sr0 == 0 ? "" : (sr0 > 0 ? "D" : "C"), 2);
tt_ln.add((_lim->get_real("R1")).string(),3);
tt_ln.add(r5abs.string(),4);
tt_ln.add(sr5 == 0 ? "" : (sr5 > 0 ? "D" : "C"),5);
// sh.force_update(row);
}
_from_one = FALSE;
} // for mese liq. (riga sheet)
sh.force_update();
if (shm.is_running())
sh.force_update(sh.selected());
// Rileggi array righe vecchie // Rileggi array righe vecchie
set_vers_rows(sv); set_vers_rows(sv);
set_liq_rows(sh); set_liq_rows(sh);

10
cg/cg5500b.uml
View File

@ -221,9 +221,15 @@ END
NUMBER 105 3 NUMBER 105 3
BEGIN BEGIN
PROMPT 1 5 "Concessione " PROMPT 1 5 "Concessione "
HELP "Codice Concessione del Comune di residenza fiscale"
// FIELD S9
FLAGS "RZ" FLAGS "RZ"
USE %UCC
INPUT CODTAB 105
DISPLAY "Concessione " CODTAB[1,5]
DISPLAY "Descrizione @50" S0
OUTPUT 105 CODTAB
CHECKTYPE NORMAL
WARNING "Concessione assente"
HELP "Codice Concessione del Comune di residenza fiscale"
END END

7
cg/cg5500d.uml
View File

@ -158,6 +158,13 @@ BEGIN
PROMPT 51 18 "Concessione " PROMPT 51 18 "Concessione "
HELP "Codice Concessione del Comune di residenza fiscale" HELP "Codice Concessione del Comune di residenza fiscale"
FLAGS "RZH" FLAGS "RZH"
USE %UCC
INPUT CODTAB F_DELCON
DISPLAY "Concessione " CODTAB[1,5]
DISPLAY "Descrizione @50" S0
OUTPUT F_DELCON CODTAB
CHECKTYPE NORMAL
WARNING "Concessione assente"
GROUP 4 GROUP 4
END END

24
cg/cg6400.cpp
View File

@ -30,10 +30,10 @@ class TRic_archivi : public TSkeleton_application
TLocalisamfile* _rmov; TLocalisamfile* _rmov;
TLocalisamfile* _rmoviva; TLocalisamfile* _rmoviva;
TLocalisamfile* _occas; TLocalisamfile* _occas;
TLocalisamfile* _part; //TLocalisamfile* _part;
TLocalisamfile* _scad; //TLocalisamfile* _scad;
TLocalisamfile* _pagsca; //TLocalisamfile* _pagsca;
TLocalisamfile* _tab; //TLocalisamfile* _tab;
TString80 TEMP; TString80 TEMP;
@ -103,10 +103,10 @@ bool TRic_archivi::create()
_rmov = new TLocalisamfile (LF_RMOV); _rmov = new TLocalisamfile (LF_RMOV);
_rmoviva = new TLocalisamfile (LF_RMOVIVA); _rmoviva = new TLocalisamfile (LF_RMOVIVA);
_occas = new TLocalisamfile (LF_OCCAS); _occas = new TLocalisamfile (LF_OCCAS);
_part = new TLocalisamfile (LF_PARTITE); //_part = new TLocalisamfile (LF_PARTITE);
_scad = new TLocalisamfile (LF_SCADENZE); //_scad = new TLocalisamfile (LF_SCADENZE);
_pagsca = new TLocalisamfile (LF_PAGSCA); //_pagsca = new TLocalisamfile (LF_PAGSCA);
_tab = new TLocalisamfile (LF_TAB); //_tab = new TLocalisamfile (LF_TAB);
_numdisk = 1; _numdisk = 1;
_prima_volta = TRUE; _prima_volta = TRUE;
@ -132,10 +132,10 @@ bool TRic_archivi::destroy()
delete _rmov; delete _rmov;
delete _rmoviva; delete _rmoviva;
delete _occas; delete _occas;
delete _part; //delete _part;
delete _scad; //delete _scad;
delete _pagsca; //delete _pagsca;
delete _tab; //delete _tab;
return TApplication::destroy(); return TApplication::destroy();
} }

18
cg/cg6700.cpp
View File

@ -291,7 +291,14 @@ bool TRic_ListaMov::user_create()
_mov = new TLocalisamfile (LF_MOV); _mov = new TLocalisamfile (LF_MOV);
_rmov = new TLocalisamfile (LF_RMOV); _rmov = new TLocalisamfile (LF_RMOV);
_rmoviva = new TLocalisamfile (LF_RMOVIVA); _rmoviva = new TLocalisamfile (LF_RMOVIVA);
_part = NULL;
_scad = NULL;
_pagsca = NULL;
_tpart = NULL;
_tscad = NULL;
_tpagsca = NULL;
// _part = new TLocalisamfile (LF_PARTITE); // _part = new TLocalisamfile (LF_PARTITE);
// _scad = new TLocalisamfile (LF_SCADENZE); // _scad = new TLocalisamfile (LF_SCADENZE);
// _pagsca = new TLocalisamfile (LF_PAGSCA); // _pagsca = new TLocalisamfile (LF_PAGSCA);
@ -2200,6 +2207,11 @@ bool TRic_ListaMov::preprocess_page(int file,int counter)
set_row(r," protocollo n. %-5ld", _protiva); set_row(r," protocollo n. %-5ld", _protiva);
} }
set_row(r, " comp. %d", _anno); set_row(r, " comp. %d", _anno);
// Guy: Aggiunta stampa mese di liquidazione se presente
const int meseliq = cur->curr(LF_MOV).get_int(MOV_MESELIQ);
if (meseliq > 0)
set_row(r, " mese liq. %d", meseliq);
stampa_errori_mov(r); stampa_errori_mov(r);
@ -2337,9 +2349,9 @@ bool TRic_ListaMov::preprocess_page(int file,int counter)
aggiorna_partite(); aggiorna_partite();
bool controlla = controlla_partite(); //se TRUE => ci sono errori nella testata
bool verpagsca = controlla_pagsca(); bool verpagsca = controlla_pagsca();
bool verscad = controlla_scadenze(); bool verscad = controlla_scadenze();
bool controlla = controlla_partite(); //se TRUE => ci sono errori nella testata
bool verifica = (verpagsca || verscad); bool verifica = (verpagsca || verscad);
if ( (_controllo == 1 && controlla) || _controllo == 2 || if ( (_controllo == 1 && controlla) || _controllo == 2 ||
@ -3249,7 +3261,7 @@ bool TRic_ListaMov::set_print(int m)
printer().footerlen(5); printer().footerlen(5);
setta_intestazione(); setta_intestazione();
_err.reset(); _err.reset();
} }

3420
cg/cg6800.cpp
View File

File diff suppressed because it is too large Load Diff

145
cg/cg6800.h
View File

@ -1,73 +1,74 @@
// Campi maschera cg2800a.uml // Campi maschera cg2800a.uml
#define F_NUMREG 101 #define F_NUMREG 101
#define F_NUMRIG 102 #define F_NUMRIG 102
// Campi maschera cg2800b.uml // Campi maschera cg2800b.uml
#define F_DATAREG 103 #define F_DATAREG 103
#define F_DATADOC 104 #define F_DATADOC 104
#define F_ANNO 105 #define F_ANNO 105
#define F_REGIVA 106 #define F_REGIVA 106
#define F_PROTIVA 107 #define F_PROTIVA 107
#define F_NUPROTIVA 108 #define F_NUPROTIVA 108
#define F_CODCAUS 109 #define F_CODCAUS 109
#define F_CODPAG 110 #define F_CODPAG 110
#define F_GRUPPO 111 #define F_GRUPPO 111
#define F_CONTO 112 #define F_CONTO 112
#define F_SOTTOCONTO 113 #define F_SOTTOCONTO 113
#define F_SEZIONE 114 #define F_SEZIONE 114
#define F_IMPORTO 115 #define F_IMPORTO 115
#define F_DESCR 116 #define F_DESCR 116
#define F_GRUPPOC 117 #define F_GRUPPOC 117
#define F_CONTOC 118 #define F_CONTOC 118
#define F_SOTTOC 119 #define F_SOTTOC 119
#define F_NUMDOC 120 #define F_NUMDOC 120
#define F_DESCRREG 121 #define F_DESCRREG 121
#define F_DESCRCAU 122 #define F_DESCRCAU 122
#define F_DESCRPAG 123 #define F_DESCRPAG 123
#define F_DESCRPARTITA 124 #define F_DESCRPARTITA 124
#define F_DESCRCPARTITA 125 #define F_DESCRCPARTITA 125
#define F_DATACOMP 126 #define F_DATACOMP 126
#define F_PROVV 127 #define F_PROVV 127
#define F_MESELIQ 128
// Campi maschera cg2800c.uml
// Campi maschera cg2800c.uml
#define F_CODCF 150
#define F_RAGSOCOCC 151 #define F_CODCF 150
#define F_DATA74TER 152 #define F_RAGSOCOCC 151
#define F_INDOCC 153 #define F_DATA74TER 152
#define F_LOCALITA 154 #define F_INDOCC 153
#define F_CAPOCC 155 #define F_LOCALITA 154
#define F_PROVOCC 156 #define F_CAPOCC 155
#define F_IMPONIBILE 157 #define F_PROVOCC 156
#define F_IMPOSTA 158 #define F_IMPONIBILE 157
#define F_CODIVA 159 #define F_IMPOSTA 158
#define F_TIPODET 160 #define F_CODIVA 159
#define F_TIPOCR 161 #define F_TIPODET 160
#define F_RAGSOCCF 162 #define F_TIPOCR 161
#define F_DESCRCODIVA 163 #define F_RAGSOCCF 162
#define F_CFPI 164 #define F_DESCRCODIVA 163
#define F_CIVOCC 165 #define F_CFPI 164
#define F_COMOCC 166 #define F_CIVOCC 165
#define F_COMOCC 166
// Campi maschera cg2801a.uml
// Campi maschera cg2801a.uml
#define F_CODDITTA 200
#define F_RAGDITTA 201 #define F_CODDITTA 200
#define F_RAGDITTA 201
// Campi maschera cg2803a.uml
// Campi maschera cg2803a.uml
#define F_CODDITTARIC 250
#define F_RAGSOC 251 #define F_CODDITTARIC 250
#define F_NULTRAS 252 #define F_RAGSOC 251
#define F_DATAULTRAS 253 #define F_NULTRAS 252
#define F_STD 254 #define F_DATAULTRAS 253
#define F_USELAB 255 #define F_STD 254
#define F_STATO 256 #define F_USELAB 255
#define F_AGGCAUSALI 257 #define F_STATO 256
#define F_AGGCLIFO 258 #define F_AGGCAUSALI 257
#define F_AGGPCON 259 #define F_AGGCLIFO 258
#define F_AGGIVD 260 #define F_AGGPCON 259
#define F_FATTEM 261 #define F_AGGIVD 260
#define F_FATTEM 261
#define F_FATTRIC 262 #define F_FATTRIC 262

399
cg/cg6800c.uml
View File

@ -1,196 +1,203 @@
#include "cg6800.h" #include "cg6800.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -15 -1 "~Registra" PROMPT -15 -1 "~Registra"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -45 -1 "" PROMPT -45 -1 ""
MESSAGE EXIT,K_ESC MESSAGE EXIT,K_ESC
END END
BUTTON DLG_QUIT 10 2 BUTTON DLG_QUIT 10 2
BEGIN BEGIN
PROMPT -55 -1 "" PROMPT -55 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
PAGE "" -1 -1 78 18 PAGE "" -1 -1 78 18
NUMBER F_NUMREG 6 NUMBER F_NUMREG 6
BEGIN BEGIN
PROMPT 1 1 "Numero registrazione " PROMPT 1 1 "Numero registrazione "
HELP "Inserire il numero di registrazione che si vuole modificare" HELP "Inserire il numero di registrazione che si vuole modificare"
FLAGS "RZ" FLAGS "RZ"
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
NUMBER F_NUMRIG 2 NUMBER F_NUMRIG 2
BEGIN BEGIN
PROMPT 52 1 "Numero di riga " PROMPT 52 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
NUMBER F_CODCF 6 NUMBER F_CODCF 6
BEGIN BEGIN
PROMPT 1 3 "Codice C/F " PROMPT 1 3 "Codice C/F "
FLAGS "R" FLAGS "R"
END END
STRING F_RAGSOCCF 50 STRING F_RAGSOCCF 50
BEGIN BEGIN
PROMPT 26 3 "" PROMPT 26 3 ""
FLAGS "D" FLAGS "D"
END END
DATE F_DATA74TER DATE F_DATA74TER
BEGIN BEGIN
PROMPT 1 4 "Data reg. 74TER " PROMPT 1 4 "Data reg. 74TER "
END END
LIST F_PROVV 1 16 LIST F_MESELIQ 2 10
BEGIN BEGIN
PROMPT 36 4 "Movimento provvisorio " PROMPT 1 5 "Mese liquidazione "
ITEM " |No (Definitivo)" FLAGS "M"
ITEM "C|Cespiti" ITEM " |Nessuno"
ITEM "P|Contabile" END
END
LIST F_PROVV 1 16
GROUPBOX DLG_NULL 78 5 BEGIN
BEGIN PROMPT 36 4 "Movimento provvisorio "
PROMPT 0 6 "Cliente occasionale" ITEM " |No (Definitivo)"
END ITEM "C|Cespiti"
ITEM "P|Contabile"
STRING F_CFPI 16 END
BEGIN
PROMPT 1 1 "" GROUPBOX DLG_NULL 78 5
FLAGS "HG" BEGIN
END PROMPT 0 6 "Cliente occasionale"
END
STRING F_RAGSOCOCC 25
BEGIN STRING F_CFPI 16
PROMPT 1 7 "Ragione sociale " BEGIN
END PROMPT 1 1 ""
FLAGS "HG"
STRING F_INDOCC 22 END
BEGIN
PROMPT 1 8 "Indirizzo " STRING F_RAGSOCOCC 25
END BEGIN
PROMPT 1 7 "Ragione sociale "
STRING F_CIVOCC 6 END
BEGIN
PROMPT 41 8 "" STRING F_INDOCC 22
END BEGIN
PROMPT 1 8 "Indirizzo "
STRING F_LOCALITA 18 END
BEGIN
PROMPT 1 9 "Localita' " STRING F_CIVOCC 6
END BEGIN
PROMPT 41 8 ""
STRING F_CAPOCC 5 END
BEGIN
PROMPT 46 9 "C.A.P. " STRING F_LOCALITA 18
END BEGIN
PROMPT 1 9 "Localita' "
STRING F_PROVOCC 2 END
BEGIN
PROMPT 62 9 "Provincia " STRING F_CAPOCC 5
END BEGIN
PROMPT 46 9 "C.A.P. "
STRING F_COMOCC 4 END
BEGIN
PROMPT 1 10 "" STRING F_PROVOCC 2
FLAGS "HG" BEGIN
END PROMPT 62 9 "Provincia "
END
NUMBER F_IMPONIBILE 15
BEGIN STRING F_COMOCC 4
PROMPT 1 11 "Imponibile " BEGIN
FLAGS "R" PROMPT 1 10 ""
PICTURE "." FLAGS "HG"
END END
STRING F_CODIVA 4 NUMBER F_IMPONIBILE 15
BEGIN BEGIN
PROMPT 1 12 "Codice IVA " PROMPT 1 11 "Imponibile "
FLAGS "U" FLAGS "R"
END PICTURE "."
END
STRING F_DESCRCODIVA 50 46
BEGIN STRING F_CODIVA 4
PROMPT 30 12 "" BEGIN
FLAGS "D" PROMPT 1 12 "Codice IVA "
END FLAGS "U"
END
NUMBER F_IMPOSTA 15
BEGIN STRING F_DESCRCODIVA 50 46
PROMPT 1 13 "Imposta " BEGIN
FLAGS "R" PROMPT 30 12 ""
PICTURE "." FLAGS "D"
END END
NUMBER F_TIPODET 1 NUMBER F_IMPOSTA 15
BEGIN BEGIN
PROMPT 1 14 "Tipo detraibilita' " PROMPT 1 13 "Imposta "
SHEET "Codice|Tipo detraibilita'@75" FLAGS "R"
INPUT F_TIPODET PICTURE "."
ITEM " |Regime normale" END
ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione" NUMBER F_TIPODET 1
ITEM "9|IVA non detraibile per l'articolo 19" BEGIN
OUTPUT F_TIPODET PROMPT 1 14 "Tipo detraibilita' "
END SHEET "Codice|Tipo detraibilita'@75"
INPUT F_TIPODET
NUMBER F_TIPOCR 1 ITEM " |Regime normale"
BEGIN ITEM "1|IVA indetraibile su acquisti riferiti a ricavi esenti"
PROMPT 1 15 "Tipo Costo/Ricavo " ITEM "3|IVA indicata per passaggi interni al solo fine del calcolo di ventilazione"
SHEET "Codice|Tipo costo ricavo@50" ITEM "9|IVA non detraibile per l'articolo 19"
INPUT F_TIPOCR OUTPUT F_TIPODET
ITEM " |0. Acquisti o vendite in genere" END
ITEM "1|1. Acquisti beni per rivendita"
ITEM "2|2. Acquisti beni ammortizzabili" NUMBER F_TIPOCR 1
ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%" BEGIN
ITEM "4|4. Vendita beni strumentali art. 17" PROMPT 1 15 "Tipo Costo/Ricavo "
ITEM "5|5. Beni per rivendita da non ventilare" SHEET "Codice|Tipo costo ricavo@50"
ITEM "8|8. Altri beni strumentali acquistati in leasing" INPUT F_TIPOCR
ITEM "9|9. Spese generali" ITEM " |0. Acquisti o vendite in genere"
HELP "Tipo Costo/Ricavo del conto" ITEM "1|1. Acquisti beni per rivendita"
OUTPUT F_TIPOCR ITEM "2|2. Acquisti beni ammortizzabili"
END ITEM "3|3. Acquisti beni ammortizzabili con detr. 6%"
ITEM "4|4. Vendita beni strumentali art. 17"
NUMBER F_GRUPPO 3 ITEM "5|5. Beni per rivendita da non ventilare"
BEGIN ITEM "8|8. Altri beni strumentali acquistati in leasing"
PROMPT 1 16 "Sottoconto costo/ricavo " ITEM "9|9. Spese generali"
FLAGS "R" HELP "Tipo Costo/Ricavo del conto"
END OUTPUT F_TIPOCR
END
NUMBER F_CONTO 3
BEGIN NUMBER F_GRUPPO 3
PROMPT 30 16 "" BEGIN
FLAGS "R" PROMPT 1 16 "Sottoconto costo/ricavo "
END FLAGS "R"
END
NUMBER F_SOTTOCONTO 6
BEGIN NUMBER F_CONTO 3
PROMPT 35 16 "" BEGIN
FLAGS "R" PROMPT 30 16 ""
END FLAGS "R"
END
STRING F_DESCRPARTITA 50
BEGIN NUMBER F_SOTTOCONTO 6
PROMPT 1 17 "Descrizione sottoconto " BEGIN
FLAGS "D" PROMPT 35 16 ""
END FLAGS "R"
END
ENDPAGE
STRING F_DESCRPARTITA 50
ENDMASK BEGIN
PROMPT 1 17 "Descrizione sottoconto "
FLAGS "D"
END
ENDPAGE
ENDMASK

7
cg/cg6804.cpp
View File

@ -2594,7 +2594,8 @@ bool TVar_sc::esegui_controlli()
_std = conf.get("FlStTra"); _std = conf.get("FlStTra");
if (!prefix().exist(_dittaric)) if (!prefix().exist(_dittaric))
return error_box("Rilevati gravi errori negli archivi: procedura interrotta"); //return error_box("Rilevati gravi errori negli archivi: procedura interrotta");
return error_box("Gli archivi della ditta %05ld non esistono.", _dittaric);
if (!leggi_trasfer()) if (!leggi_trasfer())
return FALSE; return FALSE;
@ -2648,6 +2649,10 @@ bool TVar_sc::controlli()
if (_std == "T") if (_std == "T")
return error_box("Variazione NON POSSIBILE: eseguire prima la ricezione delle tabelle"); return error_box("Variazione NON POSSIBILE: eseguire prima la ricezione delle tabelle");
const bool is_sc = _control_rec.sub(86,95).find('B') >= 0;
if (!is_sc)
return error_box("Variazione NON POSSIBILE: non esistono movimenti saldaconto.");
return TRUE; return TRUE;
} }

251
cg/cginst.ini Executable file
View File

@ -0,0 +1,251 @@
[cg]
Data = 01-04-1998
Descrizione = Contabilita' Generale
Dischi = 1
Moduli = ba
Patch = 304
PostProcess = bainst -0 CG
PreProcess =
Prezzo(1) = 1000,350
Versione = 19980102
[cg0]
File(0) = cg00.bmp
File(1) = cgarea.men
Patch = 304
Versione = 19980102
[cg1]
File(2) = ab0.exe|X
File(3) = ab0200a.msk|X
File(4) = bastcfi.msk
File(5) = bastdpn.msk
File(6) = bastivd.msk
File(7) = bastver.msk
File(8) = batbcfi.msk
File(9) = batbcfi.rpt
File(10) = batbdel.msk
File(11) = batbdpn.msk
File(12) = batbdpn.rpt
File(13) = batbind.msk
File(14) = batbinl.msk
File(15) = batbins.msk
File(16) = batbivd.msk
File(17) = batbivd.rpt
File(18) = batblbu.msk
File(19) = batblia.msk
File(20) = batbpdb.msk|X
File(21) = batbtra.msk
File(22) = batbver.msk
File(23) = batbver.rpt
File(24) = cb0000.exe
File(25) = cg01.bmp
File(26) = cg0500a.msk
File(27) = cg2.exe
File(28) = cg2100a.msk
File(29) = cg2100b.msk
File(30) = cg2100c.msk
File(31) = cg2100i.msk
File(32) = cg2100k.msk
File(33) = cg2100n.msk
File(34) = cg2100o.msk
File(35) = cg2100p.msk
File(36) = cg2100s.msk
File(37) = cg2200a.msk
File(38) = cg3.exe
File(39) = cg3100a.msk
File(40) = cg3100b.msk
File(41) = cg3100c.msk
File(42) = cg3200a.msk
File(43) = cg3300.frm
File(44) = cg3300a.msk
File(45) = cg3300b.msk
File(46) = cg3300c.msk
File(47) = cg3400a.msk
File(48) = cg3400b.msk
File(49) = cg3500a.msk
File(50) = cg3600a.msk
File(51) = cg3600b.msk
File(52) = cg3700a.msk
File(53) = cg4.exe
File(54) = cg4100a.msk
File(55) = cg4100b.msk
File(56) = cg4200a.msk
File(57) = cg4300a.msk
File(58) = cg4300b.msk
File(59) = cg4300c.msk
File(60) = cg4400a.msk
File(61) = cg4400b.msk
File(62) = cg4500a.msk
File(63) = cg4500b.msk
File(64) = cg4600a.msk
File(65) = cg4700a.msk
File(66) = cg4800a.msk
File(67) = cg4800b.msk
File(68) = cg4900a.msk
File(69) = cg4900b.msk
File(70) = cg4900c.msk
File(71) = cg4900d.msk
File(72) = cg5.exe
File(73) = cg5000a.msk
File(74) = cg5100a.msk
File(75) = cg5200a.msk
File(76) = cg5300a.msk
File(77) = cg5400a.msk
File(78) = cg5400b.msk
File(79) = cg5500a.msk
File(80) = cg5500b.msk
File(81) = cg5500c.msk
File(82) = cg5500d.msk
File(83) = cg5600a.msk
File(84) = cg6.exe
File(85) = cg6400a.msk
File(86) = cg6400b.msk
File(87) = cg6400c.msk
File(88) = cg6600a.msk
File(89) = cg6700a.msk
File(90) = cg6800a.msk
File(91) = cg6800b.msk
File(92) = cg6800c.msk
File(93) = cg6801a.msk
File(94) = cg6802a.msk
File(95) = cg6802b.msk
File(96) = cg6803a.msk
File(97) = cg6804a.msk
File(98) = cg6804b.msk
File(99) = cg6804c.msk
File(100) = cg6804d.msk
File(101) = cg6804e.msk
File(102) = cg6804f.msk
File(103) = cg6804g.msk
File(104) = cg6900a.msk
File(105) = cg6900b.msk
File(106) = cg6903a.msk
File(107) = cgaddon.men
File(108) = cgprassi.hlp
File(109) = cgprassi.men
File(110) = cgtrc.ini
File(111) = cgtrcpc.ini
File(112) = dummy.ldb
File(113) = dummy.mdb
File(114) = pec.frm
File(115) = trrice.exe
File(116) = vcopia.exe
Patch = 304
Versione = 19980102
[cg2]
File(117) = recdesc\f103.dir
File(118) = recdesc\f103.trr
File(119) = recdesc\f104.dir
File(120) = recdesc\f104.trr
File(121) = recdesc\f21.dir
File(122) = recdesc\f21.trr
File(123) = recdesc\f22.dir
File(124) = recdesc\f22.trr
File(125) = recdesc\f23.dir
File(126) = recdesc\f23.trr
File(127) = recdesc\f24.dir
File(128) = recdesc\f24.trr
File(129) = recdesc\f25.dir
File(130) = recdesc\f25.trr
File(131) = recdesc\f26.dir
File(132) = recdesc\f26.trr
File(133) = recdesc\f27.dir
File(134) = recdesc\f27.trr
File(135) = recdesc\f28.dir
File(136) = recdesc\f28.trr
File(137) = recdesc\f29.dir
File(138) = recdesc\f29.trr
File(139) = recdesc\f30.dir
File(140) = recdesc\f30.trr
File(141) = recdesc\f78.dir|X
File(142) = recdesc\f78.trr|X
Patch = 304
Versione = 19980102
[cg9]
File(143) = bastcam.msk
File(144) = bastcco.msk
File(145) = bastcve.msk
File(146) = bastesc.msk
File(147) = bastleg.msk
File(148) = bastmag.msk
File(149) = bastmsp.msk
File(150) = bastndo.msk
File(151) = bastnot.msk
File(152) = bastpor.msk
File(153) = bastreg.msk
File(154) = bastscc.msk
File(155) = bastspp.msk
File(156) = basttit.msk
File(157) = basttri.msk
File(158) = bastums.msk
File(159) = bastvet.msk
File(160) = bastzon.msk
File(161) = batbcam.msk
File(162) = batbcam.rpt
File(163) = batbcco.msk
File(164) = batbcco.rpt
File(165) = batbcve.msk
File(166) = batbcve.rpt
File(167) = batbesc.msk
File(168) = batbesc.rpt
File(169) = batbleg.msk
File(170) = batbleg.rpt
File(171) = batbmsp.msk
File(172) = batbmsp.rpt
File(173) = batbndo.msk
File(174) = batbndo.rpt
File(175) = batbnot.msk
File(176) = batbnot.rpt
File(177) = batbpor.msk
File(178) = batbpor.rpt
File(179) = batbreg.msk
File(180) = batbreg.rpt
File(181) = batbscc.msk
File(182) = batbscc.rpt
File(183) = batbspp.msk
File(184) = batbspp.rpt
File(185) = batbtit.msk
File(186) = batbtit.rpt
File(187) = batbtri.msk
File(188) = batbtri.rpt
File(189) = batbums.msk
File(190) = batbums.rpt
File(191) = batbvet.msk
File(192) = batbvet.rpt
File(193) = batbzon.msk
File(194) = batbzon.rpt
File(195) = cg0.exe
File(196) = cg0100a.msk
File(197) = cg0200a.msk|X
File(198) = cg0200b.msk
File(199) = cg0300a.msk
File(200) = cg0400a.msk
File(201) = cg0400b.msk
File(202) = cg1.exe
File(203) = cg1100a.msk
File(204) = cg1200a.msk
File(205) = cg1200b.msk
File(206) = cg1300a.msk
File(207) = cg1300b.msk
File(208) = cg1300c.msk
File(209) = cg1300d.msk
File(210) = cg1400a.msk
File(211) = cg1500a.msk
File(212) = cg1600a.msk
File(213) = cg1700a.msk
File(214) = recdesc\f16.dir
File(215) = recdesc\f16.trr
File(216) = recdesc\f17.dir
File(217) = recdesc\f17.trr
File(218) = recdesc\f18.dir
File(219) = recdesc\f18.trr
File(220) = recdesc\f19.dir
File(221) = recdesc\f19.trr
File(222) = recdesc\f20.dir|X
File(223) = recdesc\f20.trr|X
Patch = 304
Versione = 19980102

12
cg/cglib01.cpp
View File

@ -319,7 +319,7 @@ real* TRegistro::read_prorata(int anno) const
real TRegistro::prorata(int annodoc) real TRegistro::prorata(int annodoc)
{ {
const int annoiva = year(); const int annoiva = year();
const int annopro = annoiva < 1998 ? annoiva : annodoc; const int annopro = (annoiva < 1998 || annodoc < 1900) ? annoiva : annodoc;
TString16 chiave; chiave << annopro; TString16 chiave; chiave << annopro;
real* pr = (real*)_prorata.objptr(chiave); real* pr = (real*)_prorata.objptr(chiave);
@ -328,9 +328,17 @@ real TRegistro::prorata(int annodoc)
{ {
pr = read_prorata(annopro); pr = read_prorata(annopro);
if (pr == NULL && annopro != annoiva) if (pr == NULL && annopro != annoiva)
pr = read_prorata(annoiva); {
warning_box("Non esistono i dati relativi al pro rata per il %d:\n"
"verra' considerato l'anno %d", annopro, annoiva);
pr = read_prorata(annoiva);
}
if (pr == NULL) if (pr == NULL)
{
warning_box("Non esistono i dati relativi al pro rata per il %d:\n"
"verra' considerato allo 0%", annoiva);
pr = new real; pr = new real;
}
_prorata.add(chiave, pr, TRUE); _prorata.add(chiave, pr, TRUE);
} }

22
cg/cglib03.cpp
View File

@ -8,40 +8,40 @@
// e interessi IVA dalla tabella // // e interessi IVA dalla tabella //
/////////////////////////////////// ///////////////////////////////////
TInteressi_IVA_table::TInteressi_IVA_table() TInteressi_IVA_table::TInteressi_IVA_table() : TTable("%VER")
{ {
_ver = new TTable("%VER"); // _ver = new TTable("%VER");
} }
TInteressi_IVA_table::~TInteressi_IVA_table() TInteressi_IVA_table::~TInteressi_IVA_table()
{ {
delete _ver; //delete _ver;
} }
int TInteressi_IVA_table::read(int anno, int mese) int TInteressi_IVA_table::read(int anno, int mese)
{ {
TString16 k; TString16 k;
k.format("%d%02d",anno,mese); k.format("%d%02d",anno,mese);
_ver->zero();_ver->put("CODTAB",k); zero();put("CODTAB",k);
if (_ver->read(_isgteq) == NOERR) if (TTable::read(_isgteq) == NOERR)
{ {
const TString& cod = _ver->get("CODTAB"); const TString& cod = _ver->get("CODTAB");
if (cod > k) if (cod > k)
if (_ver->prev() != NOERR) if (prev() != NOERR)
_ver->zero(); zero();
} }
else else
if (_ver->last() != NOERR) if (last() != NOERR)
_ver->zero(); zero();
return _ver->status(); return status();
} }
real TInteressi_IVA_table::get(int what) real TInteressi_IVA_table::get(int what)
{ {
TString16 fieldname; TString16 fieldname;
fieldname.format("R%d",what); fieldname.format("R%d",what);
return _ver->get_real(fieldname); return get_real(fieldname);
} }
/////////////////////////////////////////////// ///////////////////////////////////////////////

6
cg/cglib03.h
View File

@ -31,13 +31,13 @@
#define B_LIQ_DIFF 11 #define B_LIQ_DIFF 11
#define B_LIQ_NORM 12 #define B_LIQ_NORM 12
class TInteressi_IVA_table : public TObject class TInteressi_IVA_table : public TTable
{ {
TTable *_ver; // TTable *_ver;
public: public:
int read(int anno, int mese); int read(int anno, int mese);
int status() { return _ver->status();} //int status() { return _ver->status();}
real get(int what); real get(int what);
TInteressi_IVA_table(); TInteressi_IVA_table();
~TInteressi_IVA_table(); ~TInteressi_IVA_table();

29
cg/cglib04.cpp
View File

@ -8,6 +8,7 @@
#include <scanner.h> #include <scanner.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
#include <varrec.h>
#include "cglib01.h" #include "cglib01.h"
#include "cglib04.h" #include "cglib04.h"
@ -3174,21 +3175,29 @@ bool TTransfer_file::fcopytemp(const char* orig, const char* dest)
} }
if ( (pos = sigle.find('B')) >= 0) if ( (pos = sigle.find('B')) >= 0)
{ {
TTrec trec;
_tmppart = "%"; _tmppart = "%";
_tmppart << path(); _tmppart << path();
_tmppart << "\\" << TEMP_PART; _tmppart << "\\" << TEMP_PART;
_tpart = new TIsamtempfile(LF_PARTITE, _tmppart, TRUE); _tpart = new TIsamtempfile(LF_PARTITE, _tmppart, TRUE);
_deppart = new TRectype(LF_PARTITE); //_deppart = new TRectype(LF_PARTITE);
trec.get(LF_PARTITE);
_deppart = new TExtrectype (trec);
_tmpscad = "%"; _tmpscad = "%";
_tmpscad << path(); _tmpscad << path();
_tmpscad << "\\" << TEMP_SCAD; _tmpscad << "\\" << TEMP_SCAD;
_tscad = new TIsamtempfile(LF_SCADENZE, _tmpscad, TRUE); _tscad = new TIsamtempfile(LF_SCADENZE, _tmpscad, TRUE);
_depscad = new TRectype (LF_SCADENZE); //_depscad = new TRectype (LF_SCADENZE);
trec.get(LF_SCADENZE);
_depscad = new TExtrectype (trec);
_tmppagsca = "%"; _tmppagsca = "%";
_tmppagsca << path(); _tmppagsca << path();
_tmppagsca << "\\" << TEMP_PAGSCA; _tmppagsca << "\\" << TEMP_PAGSCA;
_tpagsca = new TIsamtempfile(LF_PAGSCA, _tmppagsca, TRUE); _tpagsca = new TIsamtempfile(LF_PAGSCA, _tmppagsca, TRUE);
_deppagsca = new TRectype (LF_PAGSCA); //_deppagsca = new TRectype (LF_PAGSCA);
trec.get(LF_PAGSCA);
_deppagsca = new TExtrectype (trec);
nrec_salda = atol(nrec.mid(pos*6,6)); nrec_salda = atol(nrec.mid(pos*6,6));
} }
@ -3581,6 +3590,8 @@ bool TTransfer_file::fcopytemp_PC(const char* orig, const char* dest)
} }
if (sigle.find('B') >= 0) if (sigle.find('B') >= 0)
{ {
TTrec trec;
_tmppart = "%"; _tmppart = "%";
_tmppart << path(); _tmppart << path();
_tmppart << "\\" << TEMP_PART; _tmppart << "\\" << TEMP_PART;
@ -3592,11 +3603,17 @@ bool TTransfer_file::fcopytemp_PC(const char* orig, const char* dest)
_tmppagsca << "\\" << TEMP_PAGSCA; _tmppagsca << "\\" << TEMP_PAGSCA;
_tpart = new TIsamtempfile(LF_PARTITE, _tmppart, TRUE); _tpart = new TIsamtempfile(LF_PARTITE, _tmppart, TRUE);
_deppart = new TRectype (LF_PARTITE); //_deppart = new TRectype (LF_PARTITE);
trec.get(LF_PARTITE);
_deppart = new TExtrectype (trec);
_tscad = new TIsamtempfile(LF_SCADENZE, _tmpscad, TRUE); _tscad = new TIsamtempfile(LF_SCADENZE, _tmpscad, TRUE);
_depscad = new TRectype (LF_SCADENZE); //_depscad = new TRectype (LF_SCADENZE);
trec.get(LF_SCADENZE);
_depscad = new TExtrectype (trec);
_tpagsca = new TIsamtempfile(LF_PAGSCA, _tmppagsca, TRUE); _tpagsca = new TIsamtempfile(LF_PAGSCA, _tmppagsca, TRUE);
_deppagsca = new TRectype (LF_PAGSCA); //_deppagsca = new TRectype (LF_PAGSCA);
trec.get(LF_PAGSCA);
_deppagsca = new TExtrectype (trec);
} }
close(); close();

9
cg/cglib04.h
View File

@ -148,9 +148,12 @@ class TTransfer_file
TRectype* _deprmov; TRectype* _deprmov;
TRectype* _depriva; TRectype* _depriva;
TRectype* _depoccas; TRectype* _depoccas;
TRectype* _deppart; //TRectype* _deppart;
TRectype* _depscad; //TRectype* _depscad;
TRectype* _deppagsca; //TRectype* _deppagsca;
TExtrectype* _deppart;
TExtrectype* _depscad;
TExtrectype* _deppagsca;
TRecnotype _rec; //Serve alle funzioni per istanziare un Isamtempfile localmente TRecnotype _rec; //Serve alle funzioni per istanziare un Isamtempfile localmente

18
cg/cgp2.cpp Executable file
View File

@ -0,0 +1,18 @@
#include <xvt.h>
#include <checks.h>
#include "cgp2.h"
int main(int argc,char** argv)
{
const int n = (argc > 1) ? atoi(&argv[1][1]) : 0;
switch(n)
{
case 0:
cgp2100(argc, argv); break;
default:
error_box("Usage: cgp2 -0");break;
}
return 0;
}

6
cg/cgp2.h Executable file
View File

@ -0,0 +1,6 @@
#ifndef __cgp2_H
#define __cgp2_H
int cgp2100(int argc, char** argv);
#endif // __cgp2_H

13
cg/cgp2.url Executable file
View File

@ -0,0 +1,13 @@
#include <default.url>
/* cgp0 -0 Programma personalizzato per Istituto Suore */
MENU TASK_MENUBAR
SUBMENU MENU_FILE "~File"
MENUBAR MENU_BAR(1)
MENU MENU_BAR(1)
SUBMENU MENU_FILE "~File"

253
cg/cgp2100.cpp Executable file
View File

@ -0,0 +1,253 @@
#include <applicat.h>
#include <execp.h>
#include <config.h>
#include <mask.h>
#include <relation.h>
#include <utility.h>
#include "..\cg\cgsaldac.h"
#include "cgp2100a.h"
#include "mov.h"
#include "rmov.h"
#include "doc.h"
#include "rdoc.h"
#include "partite.h"
#include "pagsca.h"
#include "clifo.h"
class TGenera_ord_bon : public TSkeleton_application
{
TArray _files;
TMask *_m;
void add_totaledoc(TConfig *ordbon,int nrigadoc,const char * tiporiga, const char * codspesa, real & importo);
protected:
bool create();
bool destroy();
void main_loop();
void genera_ordini(TCursor & cur);
public:
~TGenera_ord_bon ()
{;}
};
bool TGenera_ord_bon::create()
{
_files.add(new TLocalisamfile(LF_PARTITE));
_files.add(new TLocalisamfile(LF_SCADENZE));
_files.add(new TLocalisamfile(LF_PAGSCA));
_m = new TMask ("cgp2100a.msk");
return TSkeleton_application::create();
}
bool TGenera_ord_bon::destroy()
{
delete _m;
return TSkeleton_application::destroy();
}
void TGenera_ord_bon::main_loop()
{
TConfig params("crpa.ini","Main"); // configurazione bonifici
_m->set(F_CAUS,params.get("caus"));
_m->set(F_ABIPRES,params.get("abi_pres"));
_m->set(F_CABPRES,params.get("cab_pres"));
if (_m->run() != K_QUIT)
{
// build cursor
TRectype from(LF_RMOV),to(LF_RMOV);
TRelation *rel= new TRelation(LF_RMOV);
rel->add(LF_MOV,"NUMREG==NUMREG");
rel->add(LF_CLIFO,"TIPOCF==TIPOC|CODCF==SOTTOCONTO");
from.put(RMV_NUMREG,_m->get(F_FROMREG));
to.put(RMV_NUMREG,_m->get(F_TOREG));
TString filter,sortexp;
if (*_m->get(F_FROMDATA))
{
filter << '(' << LF_MOV << "->" << MOV_DATACOMP << ">=" << '"' << _m->get(F_FROMDATA) << '"' << ")";
filter << "&&";
}
if (*_m->get(F_TODATA))
{
filter << '(' << LF_MOV << "->" << MOV_DATACOMP << "<=" << '"' << _m->get(F_TODATA) << '"' << ")";
filter << "&&";
}
filter << '(' << LF_RMOV << "->" << RMV_SEZIONE << "==\"D\")";
filter << "&&";
filter << '(' << LF_RMOV << "->" << RMV_TIPOC << "==\"F\")";
filter << "&&";
filter << "(" <<LF_MOV << "->" << MOV_CODCAUS << "==" << '"'<< _m->get(F_CAUS)<< '"' << ')';
sortexp << LF_RMOV << "->" << RMV_SOTTOCONTO << "|" << LF_MOV << "->" << MOV_DATACOMP
<< "|" << LF_MOV << "->" << MOV_NUMREG;
TSorted_cursor movs(rel,sortexp);
movs.setfilter(filter,TRUE);
movs.setregion(from,to);
genera_ordini(movs);
}
}
void TGenera_ord_bon::genera_ordini(TCursor & cur)
{
{
TString_array transactions;
list_files("crpat*.ini", transactions);
FOR_EACH_ARRAY_ROW(transactions, row, name)
remove(*name);
}
TConfig params("crpa.ini","Main"); // configurazione bonifici
const TString16 tipodoc(params.get("tipodoc"));
const TString16 codnum(params.get("codnum"));
const TString16 tiporiga(params.get("tiporiga"));
const TString16 codspesa(params.get("codspesa"));
const TDate datadoc(_m->get(F_DATADOC));
const long firm(get_firm());
TString descrmov;
TConfig *ordbon=NULL;
TPartite_array partite;
long abi(0),cab(0); // abi e cab di presentazione
long curr_numreg(-1);
int curr_numrig;
long curr_codfor(-1);
int ntransac=0; // contatore di transazione
int nrigadoc=0; // contatore di riga
real totaledoc(ZERO);
const long items=cur.items();
for (long c=0 ;c < items; c++)
{
cur = c;
if (cur.relation()->lfile(LF_RMOV).get_long(RMV_SOTTOCONTO)!=curr_codfor)
{
if (curr_codfor >=0)
{
if (abi==0)
{
abi=_m->get_long(F_ABIPRES);
cab=_m->get_long(F_CABPRES);
}
ordbon->set_paragraph(format("%d",LF_DOC));
ordbon->set(DOC_CODABIP,abi);
ordbon->set(DOC_CODCABP,cab);
add_totaledoc(ordbon,nrigadoc,tiporiga, codspesa, totaledoc);
delete ordbon;
if (nrigadoc)
{
nrigadoc=0;
totaledoc=0;
abi=0;
cab=0;
} else
remove(format("crpat%03d.ini",ntransac));
}
curr_codfor=cur.relation()->lfile(LF_RMOV).get_long(RMV_SOTTOCONTO);
// ciclo sui fornitori
ntransac++;
ordbon = new TConfig(format("crpat%03d.ini",ntransac));
ordbon->set_paragraph("Transaction");
ordbon->set("Action","INSERT");
ordbon->set("Mode","AUTO");
ordbon->set("Firm",firm);
ordbon->set_paragraph(format("%d",LF_DOC));
ordbon->set("ANNO",cur.relation()->lfile(LF_MOV).get(MOV_ANNOES));
ordbon->set("PROVV","D");
ordbon->set("CODNUM",codnum);
ordbon->set("TIPODOC",tipodoc);
ordbon->set("DATADOC",datadoc);
ordbon->set("TIPOCF","F");
ordbon->set("CODCF",cur.relation()->lfile(LF_RMOV).get(RMV_SOTTOCONTO));
ordbon->set(DOC_CODABIA,cur.relation()->lfile(LF_CLIFO).get(CLI_CODABI));
ordbon->set(DOC_CODCABA,cur.relation()->lfile(LF_CLIFO).get(CLI_CODCAB));
}
if (cur.relation()->lfile(LF_MOV).get_long(MOV_NUMREG) != curr_numreg)
{
curr_numreg=cur.relation()->lfile(LF_MOV).get_long(MOV_NUMREG);
partite.destroy();
partite.add_numreg(curr_numreg);
}
curr_numrig=cur.relation()->lfile(LF_RMOV).get_int(RMV_NUMRIG);
for (TPartita* game = partite.first(); game; game = partite.next())
{
const int r = game->mov2rig(curr_numreg,curr_numrig);
if (r > 0)
{
// immette la riga
TRiga_partite &rpart = game->riga(r);
nrigadoc++;
ordbon->set_paragraph(format("%d,%d",LF_RIGHEDOC, nrigadoc));
ordbon->set(RDOC_TIPORIGA,tiporiga);
ordbon->set(RDOC_CODART,codspesa);
ordbon->set(RDOC_PREZZO,rpart.get(PART_IMPORTO));
totaledoc+=rpart.get_real(PART_IMPORTO);
// cerca il riferimento alla fattura per la descrizione
descrmov.cut(0);
TPartita & part=rpart.partita();
const int rigafattura = part.prima_fattura();
TRiga_partite &rpart_fatt = part.riga(rigafattura);
const TDate datadocrif=rpart_fatt.get_date(PART_DATADOC);
const int numdocrif=rpart_fatt.get_int(PART_NUMDOC);
if (numdocrif)
descrmov << "Documento" << format(" n.%d ",numdocrif) << "del " << datadocrif;
if (descrmov.blank())
descrmov=rpart.get(PART_DESCR);
if (descrmov.blank())
descrmov=cur.relation()->lfile(LF_RMOV).get(RMV_DESCR);
if (descrmov.blank())
descrmov=cur.relation()->lfile(LF_MOV).get(MOV_DESCR);
ordbon->set(RDOC_DESCR,descrmov);
ordbon->set(RDOC_LIVELLO,rpart.get(PART_NUMPART));
// aggiunge la banca di presentazione
if (abi==0)
{
const int numrate=rpart_fatt.rate();
if (numrate)
{
abi = rpart_fatt.rata(1).get_long(PAGSCA_CODABIPR);
cab = rpart_fatt.rata(1).get_long(PAGSCA_CODCABPR);
}
}
}
} // cicloo partite
}
// genera l'ultimo documento
if (items)
{
if (abi==0)
{
abi=_m->get_long(F_ABIPRES);
cab=_m->get_long(F_CABPRES);
}
ordbon->set_paragraph(format("%d",LF_DOC));
ordbon->set(DOC_CODABIP,abi);
ordbon->set(DOC_CODCABP,cab);
add_totaledoc(ordbon,nrigadoc,tiporiga, codspesa, totaledoc);
delete ordbon;
}
TExternal_app gestdoc("ve0.exe -1 -icrpat*.ini ");
gestdoc.run();
}
void TGenera_ord_bon::add_totaledoc(TConfig *ordbon,int nrigadoc,const char * tiporiga, const char * codspesa, real & importo)
{
return;
nrigadoc++;
ordbon->set_paragraph(format("%d,%d",LF_RIGHEDOC, nrigadoc));
ordbon->set(RDOC_TIPORIGA,tiporiga);
ordbon->set(RDOC_CODART,codspesa);
ordbon->set(RDOC_PREZZO,importo);
ordbon->set(RDOC_DESCR,"Totale");
}
int cgp2100 (int argc, char** argv)
{
TGenera_ord_bon a;
a.run(argc,argv,"Generazione ordini di bonifico");
return 0;
}

13
cg/cgp2100a.h Executable file
View File

@ -0,0 +1,13 @@
#define F_DATAPAG 101
#define F_DATADOC 102
#define F_CAUS 103
#define F_FROMDATA 104
#define F_TODATA 105
#define F_ANNOES 106
#define F_ABIPRES 107
#define F_CABPRES 108
#define F_BANCA 110
#define F_FILIALE 111
#define F_FROMREG 112
#define F_TOREG 113

139
cg/cgp2100a.uml Executable file
View File

@ -0,0 +1,139 @@
#include "cgp2100a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_OK 10 2
BEGIN
PROMPT -12 -1 ""
END
BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -22 -1 ""
END
ENDPAGE
PAGE "Ordini di bonifico" 0 -1 0 19
NUMBER F_ANNOES 4
BEGIN
FLAGS "H"
PROMPT 4 2 "Esercizio contabile"
USE ESC
INPUT CODTAB[1,4] F_ANNOES
DISPLAY "Esercizio" CODTAB[1,4]
DISPLAY "Codice" CODTAB[5,7]
OUTPUT F_ANNOES CODTAB[1,4]
END
DATE F_DATAPAG
BEGIN
FLAGS "H"
PROMPT 4 4 "Data del pagamento "
MESSAGE COPY,F_FROMDATA|COPY,F_TODATA
CHECKTYPE REQUIRED
END
DATE F_DATADOC
BEGIN
FLAGS "A"
PROMPT 4 4 "Data dell'ordine di bonifico "
CHECKTYPE REQUIRED
END
GROUPBOX DLG_NULL 76 7
BEGIN
PROMPT 3 6 " Selezione movimenti contabili"
END
STRING F_CAUS 3
BEGIN
FLAGS "U"
PROMPT 4 7 "Causale contabile "
USE LF_CAUSALI
INPUT CODCAUS F_CAUS
DISPLAY "Codice" CODCAUS
DISPLAY "Descrizione@50" DESCR
OUTPUT F_CAUS CODCAUS
CHECKTYPE REQUIRED
END
NUMBER F_FROMREG 7
BEGIN
PROMPT 4 9 "Dalla registrazione "
USE LF_MOV
INPUT NUMREG F_FROMREG
DISPLAY "Numero reg." NUMREG
DISPLAY "Descrizione@50" DESCR
OUTPUT F_FROMREG NUMREG
END
NUMBER F_TOREG 7
BEGIN
PROMPT 4 11 "Alla registrazione "
COPY USE F_FROMREG
INPUT NUMREG F_TOREG
COPY DISPLAY F_FROMREG
OUTPUT F_TOREG NUMREG
END
DATE F_FROMDATA
BEGIN
PROMPT 40 9 "Dalla data di competenza "
END
DATE F_TODATA
BEGIN
PROMPT 40 11 "Alla data di competenza "
END
GROUPBOX DLG_NULL 76 5
BEGIN
PROMPT 3 13 " Banca di presentazione "
END
NUMBER F_ABIPRES 5
BEGIN
FLAGS "Z"
PROMPT 4 14 "ABI "
USE %BAN SELECT CODTAB[6,10]==""
INPUT CODTAB[1,5] F_ABIPRES
DISPLAY "Codice@10" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_ABIPRES CODTAB[1,5]
OUTPUT F_BANCA S0
MESSAGE EMPTY "",F_CABPRES
CHECKTYPE NORMAL
END
NUMBER F_CABPRES 5
BEGIN
FLAGS "Z"
PROMPT 20 14 "CAB "
USE %BAN SELECT CODTAB[6,10]!=""
INPUT CODTAB[1,5] F_ABIPRES
INPUT CODTAB[6,10] F_CABPRES
COPY DISPLAY F_ABIPRES
OUTPUT F_ABIPRES CODTAB[1,5]
OUTPUT F_CABPRES CODTAB[6,10]
OUTPUT F_FILIALE S0
CHECKTYPE NORMAL
END
STRING F_BANCA 50
BEGIN
PROMPT 4 15 "Banca "
FLAGS "D"
END
STRING F_FILIALE 50
BEGIN
PROMPT 4 16 " "
FLAGS "D"
END
ENDPAGE
ENDMASK

5
cg/cgprassi.men
View File

@ -172,8 +172,9 @@ Item_05 = "Aggiornamento flag op.Intrac.", "cg1 -2 I", "FP"
Item_06 = "Rinumerazione n. Protocollo", "cg1 -2 P", "FP" Item_06 = "Rinumerazione n. Protocollo", "cg1 -2 P", "FP"
Item_07 = "Aggiornamento Codice Attivita'", "cg1 -2 C", "FP" Item_07 = "Aggiornamento Codice Attivita'", "cg1 -2 C", "FP"
Item_08 = "Riorganizzazione codici esercizio", "cg1 -2 E", "FP" Item_08 = "Riorganizzazione codici esercizio", "cg1 -2 E", "FP"
Item_09 = "Ricerca righe prima nota errate", "cg1 -2 Z", "FP" Item_09 = "Correzione righe di prima nota", "cg1 -2 Z", "FP"
Item_10 = "Collegamento bilanci", [PRASSICG_025] Item_10 = "Impostazione mese liquidazione", "cg1 -2 M", "FP"
Item_11 = "Collegamento bilanci", [PRASSICG_025]
[PRASSICG_019] [PRASSICG_019]
Caption = "Invio" Caption = "Invio"

2
cg/cgsaldac.cpp
View File

@ -1243,7 +1243,7 @@ bool TPartita::esiste(int nriga, int nrata, int nrigp) const
const TRiga_scadenze& scad = r.rata(nrata); const TRiga_scadenze& scad = r.rata(nrata);
return scad.exist(nrigp); // Cerca pagamento vero e proprio return scad.exist(nrigp); // Cerca pagamento vero e proprio
} }
bool TPartita::elimina_pagamento(int nriga, int nrata, int nrigp) bool TPartita::elimina_pagamento(int nriga, int nrata, int nrigp)
{ {

2
cg/cgtrcpc.ini
View File

@ -195,7 +195,7 @@ U1|11|102|104|25|CONTO|||
U1|12|105|110|25|SOTTOCONTO||| U1|12|105|110|25|SOTTOCONTO|||
U1|13|111|113|25|RIGAIMP||| U1|13|111|113|25|RIGAIMP|||
U1|14|114|116|25|RIGAIVA||| U1|14|114|116|25|RIGAIVA|||
U1|15|117|118|23|MESELIQ||| U1|15|117|118|24|MESELIQ|||
B1|1|3|3|28|TIPOC||| B1|1|3|3|28|TIPOC|||
B1|2|4|6|28|GRUPPO||| B1|2|4|6|28|GRUPPO|||
B1|3|7|9|28|CONTO||| B1|3|7|9|28|CONTO|||

9
cg/crpa.ini Executable file
View File

@ -0,0 +1,9 @@
[Main]
tipodoc = ORDB
codnum = ORB
caus = B02
tiporiga = 10
codspesa = BONIF
abi_pres=6275
cab_pres=12811
contoc=26317/A

2
cg/f20.dir
View File

@ -1,3 +1,3 @@
20 20
0 0
$clifo|0|0|566|0|Clienti/Fornitori|NCF|| $clifo|0|0|586|7|Clienti/Fornitori|NCF||

3
cg/f20.trr
View File

@ -1,5 +1,5 @@
20 20
49 50
TIPOCF|1|1|0|Tipo ( <C>liente <F>ornitore TIPOCF|1|1|0|Tipo ( <C>liente <F>ornitore
CODCF|3|6|0|Codice CODCF|3|6|0|Codice
RAGSOC|1|50|0|Ragione sociale RAGSOC|1|50|0|Ragione sociale
@ -39,6 +39,7 @@ COMNASC|1|4|0|Codice comune di nascita
CODSTAT|1|7|0|Codice statistico CODSTAT|1|7|0|Codice statistico
CODABI|10|5|0|Codice ABI banca CODABI|10|5|0|Codice ABI banca
CODCAB|10|5|0|Codice CAB banca CODCAB|10|5|0|Codice CAB banca
NUMCC|1|20|0|Numero di conto corrente
OCCAS|8|1|0|Cliente / fornitore occasionale OCCAS|8|1|0|Cliente / fornitore occasionale
STATO|2|3|0|Codice stato ??? STATO|2|3|0|Codice stato ???
CODVAL|1|3|0|Codice valuta CODVAL|1|3|0|Codice valuta