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

Correzione errori

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@1657 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-07-31 09:49:11 +00:00
parent 5be42f00f4
commit 5ec94653a6
8 changed files with 5914 additions and 5906 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
cg/cg1100.cpp
View File

@ -667,8 +667,11 @@ void CG1100_application::set_senza_IV()
} }
if (sottoc != 0l) if (sottoc != 0l)
{ {
char tipospric = rec.get_char(PCN_TIPOSPRIC);
if (tipospric == '\0') tipospric = '0';
set_row (i, "@104g@1n", FLD(LF_PCON, PCN_RICSER) ); set_row (i, "@104g@1n", FLD(LF_PCON, PCN_RICSER) );
set_row (i, "@109g@1n", FLD(LF_PCON, PCN_TIPOSPRIC) ); //set_row (i, "@109g@1n", FLD(LF_PCON, PCN_TIPOSPRIC) );
set_row (i, "@109g%c", tipospric);
set_row (i, "@115g@1s", FLD(LF_PCON, PCN_SEZSALDI) ); set_row (i, "@115g@1s", FLD(LF_PCON, PCN_SEZSALDI) );
set_row (i, "@129g@f", FLD(LF_PCON, PCN_STSOTTAB) ); set_row (i, "@129g@f", FLD(LF_PCON, PCN_STSOTTAB) );
} }
@ -712,7 +715,6 @@ void CG1100_application::set_con_ana()
void CG1100_application::set_senza_ana() void CG1100_application::set_senza_ana()
{ {
reset_row (1); reset_row (1);
set_row (1, "$[r]@pn$[n] $[r]@pn$[n] $[r]@pn$[n]", set_row (1, "$[r]@pn$[n] $[r]@pn$[n] $[r]@pn$[n]",
@ -731,14 +733,14 @@ void CG1100_application::set_senza_ana()
set_row (1, "@92g@1s", FLD(LF_PCON, PCN_TMCF) ); set_row (1, "@92g@1s", FLD(LF_PCON, PCN_TMCF) );
set_row (1, "@99g@f", FLD(LF_PCON, PCN_STSOTTBIL) ); set_row (1, "@99g@f", FLD(LF_PCON, PCN_STSOTTBIL) );
set_row (1, "@107g@f", FLD(LF_PCON, PCN_COMPENS) ); set_row (1, "@107g@f", FLD(LF_PCON, PCN_COMPENS) );
set_row (1, "@114g@1n", FLD(LF_PCON, PCN_TIPOSPRIC) ); //set_row (1, "@114g@1n", FLD(LF_PCON, PCN_TIPOSPRIC) );
set_row (1, "@120g@1s", FLD(LF_PCON, PCN_SEZSALDI) ); set_row (1, "@120g@1s", FLD(LF_PCON, PCN_SEZSALDI) );
} }
void CG1100_application::set_completa() void CG1100_application::set_completa()
{ {
TRectype & rec = current_cursor()->curr(); TRectype& rec = current_cursor()->curr();
char sezione; char sezione;
int i; int i;
@ -790,8 +792,11 @@ void CG1100_application::set_completa()
} }
if (sottoc != 0l) if (sottoc != 0l)
{ {
char tipospric = rec.get_char(PCN_TIPOSPRIC);
if (tipospric == '\0') tipospric = '0';
set_row (i, "@104g@1n", FLD(LF_PCON, PCN_RICSER) ); set_row (i, "@104g@1n", FLD(LF_PCON, PCN_RICSER) );
set_row (i, "@109g@1n", FLD(LF_PCON, PCN_TIPOSPRIC) ); //set_row (i, "@109g@1n", FLD(LF_PCON, PCN_TIPOSPRIC) );
set_row (i, "@109g%c", tipospric);
set_row (i, "@115g@1s", FLD(LF_PCON, PCN_SEZSALDI) ); set_row (i, "@115g@1s", FLD(LF_PCON, PCN_SEZSALDI) );
set_row (i, "@129g@f", FLD(LF_PCON, PCN_STSOTTAB) ); set_row (i, "@129g@f", FLD(LF_PCON, PCN_STSOTTAB) );
} }
@ -818,6 +823,9 @@ bool CG1100_application::elabora_riga()
// se e' un sottoconto stampo sotttab in 127 // se e' un sottoconto stampo sotttab in 127
if (sottoc != 0) if (sottoc != 0)
{ {
char tipospric = curr_rec.get_char(PCN_TIPOSPRIC);
if (tipospric == '\0') tipospric = '0';
set_row (1, "@114g%c", tipospric);
set_row (1, "@127g@f", FLD(LF_PCON, PCN_STSOTTAB)); set_row (1, "@127g@f", FLD(LF_PCON, PCN_STSOTTAB));
set_row (1, "@117g "); set_row (1, "@117g ");
} }
@ -908,7 +916,7 @@ bool CG1100_application::preprocess_page(int file,int counter)
{ {
if (file == LF_PCON) if (file == LF_PCON)
{ {
TRectype & rec = current_cursor()->curr(); TRectype& rec = current_cursor()->curr();
int gruppo = rec.get_int (PCN_GRUPPO); int gruppo = rec.get_int (PCN_GRUPPO);
int conto = rec.get_int (PCN_CONTO); int conto = rec.get_int (PCN_CONTO);
long sottoc = rec.get_long(PCN_SOTTOCONTO); long sottoc = rec.get_long(PCN_SOTTOCONTO);
@ -963,8 +971,8 @@ bool CG1100_application::preprocess_page(int file,int counter)
} }
if (_tipo_stampa == senza_ana_bil) if (_tipo_stampa == senza_ana_bil)
{ {
TRectype & rec = current_cursor()->curr(); TRectype& rec = current_cursor()->curr();
force_setpage();
if (rec.get_int(PCN_CONTO) == 0) return FALSE; if (rec.get_int(PCN_CONTO) == 0) return FALSE;
if (rec.get_long(PCN_SOTTOCONTO) == 0L) if (rec.get_long(PCN_SOTTOCONTO) == 0L)
a1 = rec.get(PCN_CODCBL); a1 = rec.get(PCN_CODCBL);
@ -1165,7 +1173,7 @@ bool CG1100_application::user_create()
add_file(LF_PCON); add_file(LF_PCON);
set_print_zero(); //set_print_zero();
_tipo_stampa = completa; _tipo_stampa = completa;
_salto_pag = FALSE; _salto_pag = FALSE;

326
cg/cg1302.cpp
View File

@ -1,163 +1,163 @@
//**************************** //****************************
//* Aggiornamento Tipo Conto * //* Aggiornamento Tipo Conto *
//**************************** //****************************
#include <mov.h> #include <mov.h>
#include <rmoviva.h> #include <rmoviva.h>
#include <nditte.h> #include <nditte.h>
#include "conto.h" #include "conto.h"
#include "cg1302.h" #include "cg1302.h"
const int TAgg_tconto::look_reg (const char* cod, int anno) const int TAgg_tconto::look_reg (const char* cod, int anno)
{ {
TTable tab_reg("REG"); TTable tab_reg("REG");
TString codtab; TString codtab;
codtab.format("%4d%-3s", anno, cod); codtab.format("%4d%-3s", anno, cod);
int tipo_reg; int tipo_reg;
tab_reg.zero(); tab_reg.zero();
tab_reg.put("CODTAB", codtab); tab_reg.put("CODTAB", codtab);
if (tab_reg.read() == NOERR) if (tab_reg.read() == NOERR)
tipo_reg = tab_reg.get_int("I0"); tipo_reg = tab_reg.get_int("I0");
else else
tipo_reg = 0; tipo_reg = 0;
return tipo_reg; return tipo_reg;
} }
bool TAgg_tconto::user_create() bool TAgg_tconto::user_create()
{ {
_rel = new TRelation(LF_MOV); _rel = new TRelation(LF_MOV);
_rel->add(LF_RMOVIVA, "NUMREG=NUMREG",1); _rel->add(LF_RMOVIVA, "NUMREG=NUMREG",1);
_cur = new TCursor(_rel,"",1); _cur = new TCursor(_rel,"",1);
add_cursor(_cur); add_cursor(_cur);
add_file (LF_MOV); add_file (LF_MOV);
add_file (LF_RMOVIVA); add_file (LF_RMOVIVA);
_pcon = new TLocalisamfile(LF_PCON); _pcon = new TLocalisamfile(LF_PCON);
_nditte = new TLocalisamfile(LF_NDITTE); _nditte = new TLocalisamfile(LF_NDITTE);
_tabreg = new TTable("REG"); _tabreg = new TTable("REG");
return TRUE; return TRUE;
} }
bool TAgg_tconto::user_destroy() bool TAgg_tconto::user_destroy()
{ {
delete _rel; delete _rel;
delete _cur; delete _cur;
delete _pcon; delete _pcon;
delete _nditte; delete _nditte;
delete _tabreg; delete _tabreg;
return TRUE; return TRUE;
} }
bool TAgg_tconto::set_print(int) bool TAgg_tconto::set_print(int)
{ {
TMask msk("cg1300a"); TMask msk("cg1300a");
while (msk.run() == K_ENTER) while (msk.run() == K_ENTER)
{ {
setta_intestazione(); setta_intestazione();
printer().footerlen(5); printer().footerlen(5);
return TRUE; return TRUE;
} }
return FALSE; return FALSE;
} }
void TAgg_tconto::postclose_print() void TAgg_tconto::postclose_print()
{ {
message_box("Aggiornamento tipo conto completato"); message_box("Aggiornamento tipo conto completato");
} }
bool TAgg_tconto::preprocess_page(int file,int counter) bool TAgg_tconto::preprocess_page(int file,int counter)
{ {
if (counter) return TRUE; if (counter) return TRUE;
TCursor* cur = current_cursor(); TCursor* cur = current_cursor();
if (file == LF_MOV) if (file == LF_MOV)
{ {
TString16 reg = cur->curr().get(MOV_REG); TString16 reg = cur->curr().get(MOV_REG);
if (reg.empty()) return FALSE; if (reg.empty()) return FALSE;
} }
else if (file == LF_RMOVIVA) else if (file == LF_RMOVIVA)
{ {
TRectype pcon(LF_PCON); TRectype pcon(LF_PCON);
int gruppo = cur->curr(LF_RMOVIVA).get_int(RMI_GRUPPO); int gruppo = cur->curr(LF_RMOVIVA).get_int(RMI_GRUPPO);
int conto = cur->curr(LF_RMOVIVA).get_int(RMI_CONTO); int conto = cur->curr(LF_RMOVIVA).get_int(RMI_CONTO);
long sottoconto = cur->curr(LF_RMOVIVA).get_long(RMI_SOTTOCONTO); long sottoconto = cur->curr(LF_RMOVIVA).get_long(RMI_SOTTOCONTO);
long numreg = cur->curr(LF_RMOVIVA).get_long(RMI_NUMREG); long numreg = cur->curr(LF_RMOVIVA).get_long(RMI_NUMREG);
int nrigimp = cur->curr(LF_RMOVIVA).get_int("RIGAIMP"); int nrigimp = cur->curr(LF_RMOVIVA).get_int("RIGAIMP");
TBill tc (gruppo,conto,0L); TBill tc (gruppo,conto,0L);
tc.read(pcon); tc.read(pcon);
if (!pcon.empty()) if (!pcon.empty())
if (pcon.get_char("TMCF") != '\0') if (pcon.get_char("TMCF") != '\0')
return FALSE; return FALSE;
tc.set(gruppo,conto,sottoconto); tc.set(gruppo,conto,sottoconto);
tc.read(pcon); tc.read(pcon);
if (!pcon.empty()) if (!pcon.empty())
{ {
if (tc.sospeso()) if (tc.sospeso())
{ {
set_row(1, "@4g%7ld@23g%3d@31g%3d@37g%3d@45g%6ld ** Conto sospeso **", set_row(1, "@4g%7ld@23g%3d@31g%3d@37g%3d@45g%6ld ** Conto sospeso **",
numreg, nrigimp, gruppo, conto, sottoconto); numreg, nrigimp, gruppo, conto, sottoconto);
return TRUE; return TRUE;
} }
int t = tc.tipo_cr(); int t = tc.tipo_cr();
TString16 reg = cur->curr().get(MOV_REG); TString16 reg = cur->curr().get(MOV_REG);
int annoiva = cur->curr().get_int(MOV_ANNOIVA); int annoiva = cur->curr().get_int(MOV_ANNOIVA);
const int tipo = look_reg(reg, annoiva); //cerca il tipo del registro const int tipo = look_reg(reg, annoiva); //cerca il tipo del registro
//aggiorno sul movimento iva il tipo costo/ricavo //aggiorno sul movimento iva il tipo costo/ricavo
//con quello letto dal piano conti //con quello letto dal piano conti
_rel->lfile(LF_RMOVIVA).put(RMI_TIPOCR, t); _rel->lfile(LF_RMOVIVA).put(RMI_TIPOCR, t);
if (tipo == 1 && (t == 2 || t == 3)) if (tipo == 1 && (t == 2 || t == 3))
_rel->lfile(LF_RMOVIVA).put(RMI_TIPOCR, 4); _rel->lfile(LF_RMOVIVA).put(RMI_TIPOCR, 4);
_rel->lfile(LF_RMOVIVA).rewrite(); _rel->lfile(LF_RMOVIVA).rewrite();
} }
else else
{ {
set_row(1, "@4g%7ld@23g%3d@31g%3d@37g%3d@45g%6ld ** Conto inesistente **", set_row(1, "@4g%7ld@23g%3d@31g%3d@37g%3d@45g%6ld ** Conto inesistente **",
numreg, nrigimp, gruppo, conto, sottoconto); numreg, nrigimp, gruppo, conto, sottoconto);
return TRUE; return TRUE;
} }
return FALSE; return FALSE;
} }
return TRUE; return TRUE;
} }
void TAgg_tconto::setta_intestazione() void TAgg_tconto::setta_intestazione()
{ {
int soh = 1; int soh = 1;
TString sep(132); TString sep(132);
TString ragsoc(50); TString ragsoc(50);
TLocalisamfile nditte(LF_NDITTE); TLocalisamfile nditte(LF_NDITTE);
nditte.zero(); nditte.zero();
nditte.put(NDT_CODDITTA, get_firm()); nditte.put(NDT_CODDITTA, get_firm());
if (nditte.read() == NOERR) if (nditte.read() == NOERR)
ragsoc = nditte.get(NDT_RAGSOC); ragsoc = nditte.get(NDT_RAGSOC);
reset_header(); reset_header();
sep << "Ditta " << get_firm(); sep << "Ditta " << get_firm();
sep << " " << ragsoc; sep << " " << ragsoc;
sep.left_just(132); sep.left_just(132);
set_header (soh++, (const char*) sep); set_header (soh++, (const char*) sep);
sep = ""; sep = "";
sep << "Data @< Pag. @#"; sep << "Data @< Pag. @#";
sep.right_just(127); sep.right_just(127);
sep.overwrite ("AGGIORNAMENTO TIPO CONTO SU MOVIMENTI IVA - Lista errori"); sep.overwrite ("AGGIORNAMENTO TIPO CONTO SU MOVIMENTI IVA - Lista errori");
set_header (soh++, (const char*)sep); set_header (soh++, (const char*)sep);
sep.fill('-'); sep.fill('-');
set_header (soh++, (const char *) sep); set_header (soh++, (const char *) sep);
set_header (soh++, "Numero Registrazione Riga Gruppo Conto Sottoconto"); set_header (soh++, "Numero Registrazione Riga Gruppo Conto Sottoconto");
set_header (soh++, (const char *) sep); set_header (soh++, (const char *) sep);
set_header (soh, ""); set_header (soh, "");
} }

56
cg/cg1302.h
View File

@ -1,28 +1,28 @@
#include <printapp.h> #include <printapp.h>
#include <mask.h> #include <mask.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
#include <progind.h> #include <progind.h>
#include <urldefid.h> #include <urldefid.h>
#include <prefix.h> #include <prefix.h>
class TAgg_tconto : public TPrintapp class TAgg_tconto : public TPrintapp
{ {
TLocalisamfile* _pcon,* _nditte; TLocalisamfile* _pcon,* _nditte;
TTable* _tabreg; TTable* _tabreg;
TRelation* _rel; TRelation* _rel;
TCursor* _cur; TCursor* _cur;
public: public:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual bool set_print(int i); virtual bool set_print(int i);
virtual bool preprocess_page(int, int); virtual bool preprocess_page(int, int);
virtual void postclose_print(); virtual void postclose_print();
void setta_intestazione(); void setta_intestazione();
const int look_reg(const char*, int); const int look_reg(const char*, int);
TAgg_tconto() {}; TAgg_tconto() {};
virtual ~TAgg_tconto() {}; virtual ~TAgg_tconto() {};
}; };

336
cg/cg1304.cpp
View File

@ -1,168 +1,168 @@
//***************************************************** //*****************************************************
//* Aggiornamento codice attivita' su progressivi IVA * //* Aggiornamento codice attivita' su progressivi IVA *
//***************************************************** //*****************************************************
#include <mov.h> #include <mov.h>
#include "cg1300.h" #include "cg1300.h"
#include "cg1304.h" #include "cg1304.h"
#include "cg2103.h" #include "cg2103.h"
HIDDEN TAgg_codatt& app() { return (TAgg_codatt&) main_app(); } HIDDEN TAgg_codatt& app() { return (TAgg_codatt&) main_app(); }
bool TAgg_codatt::create() bool TAgg_codatt::create()
{ {
TApplication::create(); TApplication::create();
_tab = new TLocalisamfile(LF_TAB); _tab = new TLocalisamfile(LF_TAB);
dispatch_e_menu (BAR_ITEM(1)); dispatch_e_menu (BAR_ITEM(1));
return TRUE; return TRUE;
} }
bool TAgg_codatt::destroy() bool TAgg_codatt::destroy()
{ {
delete _tab; delete _tab;
return TApplication::destroy(); return TApplication::destroy();
} }
bool TAgg_codatt::menu(MENU_TAG m) bool TAgg_codatt::menu(MENU_TAG m)
{ {
TProgind* pri; TProgind* pri;
TMask msk("cg1300c"); TMask msk("cg1300c");
/* /*
TConfig conf(CONFIG_DITTA); TConfig conf(CONFIG_DITTA);
int annoiva = conf.get_int("AnLiIv"); int annoiva = conf.get_int("AnLiIv");
msk.set(F_ANNO, annoiva); msk.set(F_ANNO, annoiva);
*/ */
while (msk.run() == K_ENTER) while (msk.run() == K_ENTER)
{ {
pri = new TProgind(2,"Aggiornamento in corso...",FALSE,TRUE,50); pri = new TProgind(2,"Aggiornamento in corso...",FALSE,TRUE,50);
_pass = msk.get_bool(F_PASS); _pass = msk.get_bool(F_PASS);
if (_pass) if (_pass)
{ {
_anno = msk.get_int(F_ANNO); _anno = msk.get_int(F_ANNO);
_da = msk.get(F_DA); //se c'e' _da c'e' anche _a e viceversa _da = msk.get(F_DA); //se c'e' _da c'e' anche _a e viceversa
_a = msk.get(F_A); //_da e' la vecchia attivita' _a = msk.get(F_A); //_da e' la vecchia attivita'
//_a e' la nuova attivita' //_a e' la nuova attivita'
pri->addstatus(1); pri->addstatus(1);
aggiorna_att("PIM"); aggiorna_att("PIM");
aggiorna_att("PUM"); aggiorna_att("PUM");
aggiorna_att("POM"); aggiorna_att("POM");
aggiorna_att("PAM"); aggiorna_att("PAM");
aggiorna_att("PPA"); aggiorna_att("PPA");
aggiorna_att("PLA"); aggiorna_att("PLA");
aggiorna_att("PLM"); aggiorna_att("PLM");
} }
else else
{ {
pri->addstatus(1); pri->addstatus(1);
cancella_rec(); cancella_rec();
} }
pri->addstatus(1); pri->addstatus(1);
msk.reset(); msk.reset();
//msk.reset(F_ANNO); //msk.reset(F_ANNO);
//msk.reset(F_DA); //msk.reset(F_DA);
//msk.reset(F_A); //msk.reset(F_A);
delete pri; delete pri;
message_box("Aggiornamento codice attivita' completato"); message_box("Aggiornamento codice attivita' completato");
} }
return FALSE; return FALSE;
} }
void TAgg_codatt::cancella_rec() void TAgg_codatt::cancella_rec()
{ {
TTable plm("PLM"); TTable plm("PLM");
for (plm.first(); !plm.eof(); plm.next()) for (plm.first(); !plm.eof(); plm.next())
plm.remove(); plm.remove();
TTable pum("PUM"); TTable pum("PUM");
for (pum.first(); !pum.eof(); pum.next()) for (pum.first(); !pum.eof(); pum.next())
pum.remove(); pum.remove();
TTable pom("POM"); TTable pom("POM");
for (pom.first(); !pom.eof(); pom.next()) for (pom.first(); !pom.eof(); pom.next())
pom.remove(); pom.remove();
TTable pam("PAM"); TTable pam("PAM");
for (pam.first(); !pam.eof(); pam.next()) for (pam.first(); !pam.eof(); pam.next())
pam.remove(); pam.remove();
TTable ppa("PPA"); TTable ppa("PPA");
for (ppa.first(); !ppa.eof(); ppa.next()) for (ppa.first(); !ppa.eof(); ppa.next())
ppa.remove(); ppa.remove();
//non e' indicata la vecchia attivita' => : //non e' indicata la vecchia attivita' => :
TTable pim("PIM"); TTable pim("PIM");
for (pim.first(); !pim.eof(); pim.next()) for (pim.first(); !pim.eof(); pim.next())
{ {
const TString80 codtab = pim.get("CODTAB"); const TString80 codtab = pim.get("CODTAB");
int anno = atoi(codtab.mid(0,4)); int anno = atoi(codtab.mid(0,4));
const TString16 codatt = codtab.mid(4,5); const TString16 codatt = codtab.mid(4,5);
const TString16 codreg = codtab.mid(10,3); const TString16 codreg = codtab.mid(10,3);
if (codreg.not_empty()) if (codreg.not_empty())
{ {
TRegistro reg(codreg,anno); TRegistro reg(codreg,anno);
if (!reg.name().empty()) //se esiste quel registro (ma perche' non dovrebbe?) if (!reg.name().empty()) //se esiste quel registro (ma perche' non dovrebbe?)
{ {
const TString16 cda = reg.attivita(); const TString16 cda = reg.attivita();
if (codatt != cda) if (codatt != cda)
{ {
TRectype vecchio (pim.curr()); TRectype vecchio (pim.curr());
TRectype nuovo (pim.curr()); TRectype nuovo (pim.curr());
const TString80 cc = codtab.sub(9); const TString80 cc = codtab.sub(9);
TString80 cod; TString80 cod;
cod << anno << cda << cc; cod << anno << cda << cc;
nuovo.put("CODTAB", cod); nuovo.put("CODTAB", cod);
pim.write(nuovo); pim.write(nuovo);
pim.read(vecchio); pim.read(vecchio);
pim.remove(); pim.remove();
} }
} }
} }
} }
TTable pla("PLA"); TTable pla("PLA");
for (pla.first(); !pla.eof(); pla.next()) for (pla.first(); !pla.eof(); pla.next())
pla.remove(); pla.remove();
/*** /***
TTable rmb("RMB"); TTable rmb("RMB");
for (rmb.first(); !rmb.eof(); rmb.next()) for (rmb.first(); !rmb.eof(); rmb.next())
rmb.remove(); rmb.remove();
***/ ***/
} }
void TAgg_codatt::aggiorna_att(const char* nome) void TAgg_codatt::aggiorna_att(const char* nome)
{ {
TTable tab(nome); TTable tab(nome);
tab.setkey(1); tab.setkey(1);
tab.zero(); tab.zero();
TString16 chiave; TString16 chiave;
TString16 old_att(_da); old_att.right_just(5,'0'); TString16 old_att(_da); old_att.right_just(5,'0');
TString16 new_att(_a); new_att.right_just(5,'0'); TString16 new_att(_a); new_att.right_just(5,'0');
chiave << _anno << old_att; chiave << _anno << old_att;
tab.put("CODTAB", chiave); tab.put("CODTAB", chiave);
TRectype curr (tab.curr()); TRectype curr (tab.curr());
tab.read(_isgteq); tab.read(_isgteq);
for (; !tab.eof(); tab.next()) for (; !tab.eof(); tab.next())
{ {
if (tab.curr() != curr) break; if (tab.curr() != curr) break;
const TString80 codtab = tab.get("CODTAB"); const TString80 codtab = tab.get("CODTAB");
//const TString16 cod_att = codtab.mid(4,5); //e' uguale a old_att //const TString16 cod_att = codtab.mid(4,5); //e' uguale a old_att
if (old_att != new_att) if (old_att != new_att)
{ {
TRectype vecchio (tab.curr()); TRectype vecchio (tab.curr());
TRectype nuovo (tab.curr()); TRectype nuovo (tab.curr());
const TString80 cc = codtab.sub(9); const TString80 cc = codtab.sub(9);
TString80 cod; TString80 cod;
cod << _anno << new_att << cc; cod << _anno << new_att << cc;
nuovo.put("CODTAB", cod); nuovo.put("CODTAB", cod);
tab.write(nuovo); tab.write(nuovo);
tab.read(vecchio); tab.read(vecchio);
tab.remove(); tab.remove();
} }
} }
} }

3998
cg/cg3400.cpp
View File

File diff suppressed because it is too large Load Diff

6642
cg/cg4400.cpp
View File

File diff suppressed because it is too large Load Diff

320
cg/cg4400.h
View File

@ -1,160 +1,160 @@
// //
// cg4400.h // cg4400.h
// //
#include <isam.h> #include <isam.h>
#include <printapp.h> #include <printapp.h>
#include <mask.h> #include <mask.h>
#include <tabutil.h> #include <tabutil.h>
#include <utility.h> #include <utility.h>
#include <urldefid.h> #include <urldefid.h>
#include <text.h> #include <text.h>
#include <mailbox.h> #include <mailbox.h>
#include <execp.h> #include <execp.h>
#include <sheet.h> #include <sheet.h>
#include <config.h> #include <config.h>
#include <prefix.h> #include <prefix.h>
#include <progind.h> #include <progind.h>
#include <nditte.h> #include <nditte.h>
#include <anagr.h> #include <anagr.h>
#include <comuni.h> #include <comuni.h>
#include <unloc.h> #include <unloc.h>
#include <mov.h> #include <mov.h>
#include <rmoviva.h> #include <rmoviva.h>
#include <clifo.h> #include <clifo.h>
#include <occas.h> #include <occas.h>
#include <causali.h> #include <causali.h>
#include "cglib03.h" #include "cglib03.h"
#include "cglib04.h" #include "cglib04.h"
#include "conto.h" #include "conto.h"
enum messaggio { enum messaggio {
no_liquidazione, no_liquidazione,
B0_settato, B0_settato,
non_proseguire, non_proseguire,
prosegui_stampa, prosegui_stampa,
prosegui_cal_stampa prosegui_cal_stampa
}; };
class CG4400_application : public TPrintapp class CG4400_application : public TPrintapp
{ {
TCursor * _cur; TCursor * _cur;
TRelation *_rel, *_nditte; TRelation *_rel, *_nditte;
TLocalisamfile *_clifo, *_occas, *_tab, *_tabcom, *_com, *_anag, *_unloc, *_attiv, *_indlib; TLocalisamfile *_clifo, *_occas, *_tab, *_tabcom, *_com, *_anag, *_unloc, *_attiv, *_indlib;
TTable *_tabreg, *_tablbu, *_tablim, *_tabpim, *_tablia, *_tabiva; TTable *_tabreg, *_tablbu, *_tablim, *_tabpim, *_tablia, *_tabiva;
TTable *_tabpla, *_tabppa, *_tabvid; 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;
TBit_array _selected; TBit_array _selected;
TArray_sheet *_ditte; TArray_sheet *_ditte;
TArray _nomiditte; TArray _nomiditte;
bool _st_liq[13]; bool _st_liq[13];
bool _test; bool _test;
TRecnotype _nrec; 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, _riep_liq, _stampa_ind_comp, _esiste_riga_iva, _stampa_cred_pre; bool _corrispettivi, _liquidazione, _riep_liq, _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;
bool _sosp_imposta; bool _sosp_imposta;
char _frequiva, _tipo_riepilogativo; char _frequiva, _tipo_riepilogativo;
TDate _data_da, _data_a, _data_stampa, _dataregp, _dataregs, _datareg; TDate _data_da, _data_a, _data_stampa, _dataregp, _dataregs, _datareg;
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, _tipo_reg, _tipo_stampa, _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, _pippo;
TParagraph_string* _desc27; TParagraph_string* _desc27;
messaggio _scelta; messaggio _scelta;
protected: protected:
static bool filter_func (const TRelation * r); static bool filter_func (const TRelation * r);
static bool mask_tipo_stampa (TMask_field&, KEY); static bool mask_tipo_stampa (TMask_field&, KEY);
static bool to_ditt_handler (TMask_field&, KEY); static bool to_ditt_handler (TMask_field&, KEY);
static bool fr_ditt_handler (TMask_field&, KEY); static bool fr_ditt_handler (TMask_field&, KEY);
static bool to_butt_handler (TMask_field&, KEY); static bool to_butt_handler (TMask_field&, KEY);
static bool fr_butt_handler (TMask_field&, KEY); static bool fr_butt_handler (TMask_field&, KEY);
static bool mask_cod (TMask_field&, KEY); static bool mask_cod (TMask_field&, KEY);
static bool mask_libun (TMask_field&, KEY); static bool mask_libun (TMask_field&, KEY);
static bool mask_data (TMask_field&, KEY); static bool mask_data (TMask_field&, KEY);
static bool mask_mese (TMask_field&, KEY); static bool mask_mese (TMask_field&, KEY);
static bool mask_fino_a_mese (TMask_field&, KEY); static bool mask_fino_a_mese (TMask_field&, KEY);
static bool mask_select (TMask_field&, KEY); static bool mask_select (TMask_field&, KEY);
static bool mask_azzera (TMask_field&, KEY); static bool mask_azzera (TMask_field&, KEY);
static bool year_handler (TMask_field&, KEY); static bool year_handler (TMask_field&, KEY);
public: public:
const char* desc_attivita (); const char* desc_attivita ();
const char* tipo_attivita (); const char* tipo_attivita ();
const char* descr_doc (); const char* descr_doc ();
const char* descr_iva (const char *); const char* descr_iva (const char *);
TRectype& ricerca_occ(const char*); TRectype& ricerca_occ(const char*);
TRectype& ricerca_cf (char, long); TRectype& ricerca_cf (char, long);
TRectype& look_comuni(const char*); TRectype& look_comuni(const char*);
TArray_sheet* get_ditte_sheet() { return _ditte; } TArray_sheet* get_ditte_sheet() { return _ditte; }
int setta_riga (int, const TRigaiva&, real&, real&, real&, real&); int setta_riga (int, const TRigaiva&, real&, real&, real&, real&);
int riga_rmoviva(); int riga_rmoviva();
bool set_print(int); bool set_print(int);
bool set_ditte(TMask&); bool set_ditte(TMask&);
bool compila_reg(const TMask&); bool compila_reg(const TMask&);
bool compila_lib(); bool compila_lib();
messaggio controlla_liquidazione(); messaggio controlla_liquidazione();
messaggio controlla_b0(); messaggio controlla_b0();
bool controlla_mov(); bool controlla_mov();
bool stampo_liquidazione(int); bool stampo_liquidazione(int);
bool ventilazione(const char*); bool ventilazione(const char*);
bool cerca_libro_gio(TString&, bool*); bool cerca_libro_gio(TString&, bool*);
bool look_reg (int, int, TString&, int, const char*, int*, long); bool look_reg (int, int, TString&, int, const char*, int*, long);
bool look_regs(int, TString&, int, int*, long, TProgind*); bool look_regs(int, TString&, int, int*, long, TProgind*);
bool stampa_totali_finali(); bool stampa_totali_finali();
bool stampa_datareg(); bool stampa_datareg();
bool stampa_registri_IVA(const TMask&); bool stampa_registri_IVA(const TMask&);
bool look_lia(long ditta = 0l); bool look_lia(long ditta = 0l);
bool ricerca_mese(TString&,TString&,int,int,TMask_field&); bool ricerca_mese(TString&,TString&,int,int,TMask_field&);
void set_choice_limits(TMask&); void set_choice_limits(TMask&);
void build_ditte_sheet(); void build_ditte_sheet();
void cerca_reg(const TString&, byte*); void cerca_reg(const TString&, byte*);
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);
void aggiorna_lib(); void aggiorna_lib();
void calcola_progressivi(); void calcola_progressivi();
void stampa_liq_mesi_succ(); void stampa_liq_mesi_succ();
void look_reg(); void look_reg();
void no_movimenti(); void no_movimenti();
void liq_b0_settato(); void liq_b0_settato();
void liq_other_case(); void liq_other_case();
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();
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();
void stampa_vidi(); void stampa_vidi();
void scrivi_reg(); void scrivi_reg();
int stampa_acquisti(int); int stampa_acquisti(int);
real stampa_valori_plafonds(const real&, const int, TTable&, const char*); real stampa_valori_plafonds(const real&, const int, TTable&, const char*);
void build_nomiditte(TProgind* pnd = NULL); void build_nomiditte(TProgind* pnd = NULL);
void set_year(int y) { _annoes = y; } void set_year(int y) { _annoes = y; }
void clear_stliq(); void clear_stliq();
virtual bool preprocess_print(int, int); virtual bool preprocess_print(int, int);
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
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) {} CG4400_application() : TPrintapp(), _ditte(NULL), _selected(10000), _nomiditte(100), _test(FALSE) {}
virtual ~CG4400_application() {} virtual ~CG4400_application() {}
}; };

116
cg/cg4400b.uml
View File

@ -1,59 +1,59 @@
#include "cg4400b.h" #include "cg4400b.h"
PAGE "Stampa registri IVA" -1 -1 78 12 PAGE "Stampa registri IVA" -1 -1 78 12
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "D" FLAGS "D"
END END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
STRING COD_LIB 3 STRING COD_LIB 3
BEGIN BEGIN
PROMPT 3 4 "Codice Libro " PROMPT 3 4 "Codice Libro "
FLAGS "D" FLAGS "D"
END END
LISTBOX U_MESE 10 LISTBOX U_MESE 10
BEGIN BEGIN
PROMPT 3 5 "Stampa mese " PROMPT 3 5 "Stampa mese "
FLAGS "MD" FLAGS "MD"
ITEM "00|Nessuno" ITEM "00|Nessuno"
END END
NUMBER U_PAGINA 4 NUMBER U_PAGINA 4
BEGIN BEGIN
PROMPT 3 6 "Ult.num.pagina stampata libro ditta " PROMPT 3 6 "Ult.num.pagina stampata libro ditta "
FLAGS "R" FLAGS "R"
END END
DATE U_DATA DATE U_DATA
BEGIN BEGIN
PROMPT 3 7 "Ultima data di stampa " PROMPT 3 7 "Ultima data di stampa "
FLAGS "D" FLAGS "D"
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK