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

Migliorato collegamento occasionali -> comuni

Browse Source 
git-svn-id: svn://10.65.10.50/branches/R_10_00@22790 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2013-01-30 16:56:45 +00:00
parent 93a4af8c3c
commit 07bb60d62b
6 changed files with 45 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
cg/cg0700a.uml
View File

@ -111,8 +111,10 @@ BEGIN
USE LF_COMUNI USE LF_COMUNI
INPUT STATO O_STATO INPUT STATO O_STATO
INPUT COM O_COMUNE INPUT COM O_COMUNE
DISPLAY "Stato" STATO
DISPLAY "Codice" COM DISPLAY "Codice" COM
DISPLAY "Denominazione@50" DENCOM DISPLAY "Denominazione@50" DENCOM
OUTPUT O_STATO STATO
OUTPUT O_COMUNE COM OUTPUT O_COMUNE COM
OUTPUT O_DENCOM DENCOM OUTPUT O_DENCOM DENCOM
OUTPUT O_CAP CAPCOM OUTPUT O_CAP CAPCOM
@ -132,8 +134,10 @@ BEGIN
PROMPT 2 8 "Denominazione " PROMPT 2 8 "Denominazione "
HELP "Nome del comune di residenza della persona" HELP "Nome del comune di residenza della persona"
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
INPUT STATO O_STATO
INPUT DENCOM O_DENCOM INPUT DENCOM O_DENCOM
DISPLAY "Denominazione@50" DENCOM DISPLAY "Denominazione@50" DENCOM
DISPLAY "Stato" STATO
DISPLAY "Codice@10" COM DISPLAY "Codice@10" COM
COPY OUTPUT O_COMUNE COPY OUTPUT O_COMUNE
CHECKTYPE NORMAL CHECKTYPE NORMAL

4
cg/cg2100o.uml
View File

@ -98,8 +98,10 @@ BEGIN
USE LF_COMUNI USE LF_COMUNI
INPUT STATO O_STATO INPUT STATO O_STATO
INPUT COM O_COMUNE INPUT COM O_COMUNE
DISPLAY "Stato" STATO
DISPLAY "Codice" COM DISPLAY "Codice" COM
DISPLAY "Denominazione@50" DENCOM DISPLAY "Denominazione@50" DENCOM
OUTPUT O_STATO STATO
OUTPUT O_COMUNE COM OUTPUT O_COMUNE COM
OUTPUT O_DENCOM DENCOM OUTPUT O_DENCOM DENCOM
OUTPUT O_CAP CAPCOM OUTPUT O_CAP CAPCOM
@ -119,9 +121,11 @@ BEGIN
PROMPT 2 6 "Denominazione " PROMPT 2 6 "Denominazione "
HELP "Nome del comune di residenza della persona" HELP "Nome del comune di residenza della persona"
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
INPUT STATO O_STATO
INPUT DENCOM O_DENCOM INPUT DENCOM O_DENCOM
DISPLAY "Denominazione@50" DENCOM DISPLAY "Denominazione@50" DENCOM
DISPLAY "Codice@10" COM DISPLAY "Codice@10" COM
DISPLAY "Stato" STATO
COPY OUTPUT O_COMUNE COPY OUTPUT O_COMUNE
CHECKTYPE NORMAL CHECKTYPE NORMAL
ADD RUN ba4 -0 ADD RUN ba4 -0

71
cg/cg5800.cpp
View File

@ -1,13 +1,8 @@
// Programma per la gestione e la stampa della dichiarazione periodica IVA // Programma per la gestione e la stampa della dichiarazione periodica IVA
#include <applicat.h> #include <applicat.h>
#include <automask.h> #include <automask.h>
#include <currency.h>
#include <form.h> #include <form.h>
#include <prefix.h> #include <reprint.h>
#include <recarray.h>
#include <rePRINT.h>
#include <sheet.h>
#include <tabutil.h>
#include <nditte.h> #include <nditte.h>
@ -29,15 +24,13 @@ public:
const int get_year() const { return _year; } const int get_year() const { return _year; }
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
TQuadro_VT_selfirm_mask(); TQuadro_VT_selfirm_mask();
virtual ~TQuadro_VT_selfirm_mask(); ~TQuadro_VT_selfirm_mask();
}; };
TQuadro_VT_selfirm_mask::TQuadro_VT_selfirm_mask() : TAutomask("cg5800a") TQuadro_VT_selfirm_mask::TQuadro_VT_selfirm_mask() : TAutomask("cg5800a")
{ {
_ditte = new TArray_sheet(-1, -1, -4, -4, TR("Selezione Ditte"), _ditte = new TArray_sheet(-1, -1, -4, -4, TR("Selezione Ditte"), HR("Cod.@5|Ragione Sociale@50"));
HR("Cod.@5|Ragione Sociale@50")); const TDate oggi(TODAY);
TDate oggi(TODAY);
_year = oggi.year(); _year = oggi.year();
build_nomiditte(); build_nomiditte();
@ -51,7 +44,6 @@ TQuadro_VT_selfirm_mask::~TQuadro_VT_selfirm_mask()
void TQuadro_VT_selfirm_mask::build_nomiditte() void TQuadro_VT_selfirm_mask::build_nomiditte()
{ {
TString cod;
TRelation relditte(LF_NDITTE); TRelation relditte(LF_NDITTE);
TRectype & ditta = relditte.lfile().curr(); TRectype & ditta = relditte.lfile().curr();
TCursor cur(&relditte); TCursor cur(&relditte);
@ -98,9 +90,9 @@ bool TQuadro_VT_selfirm_mask::select_button()
TToken_string& row = _ditte->row(_ditte->selected()); TToken_string& row = _ditte->row(_ditte->selected());
set(F_CODDITTA, row.get(0)); set(F_CODDITTA, row.get(0));
set(F_RAGSOC, row.get(1)); set(F_RAGSOC, row.get(1));
return TRUE; return true;
} }
return FALSE; return false;
} }
bool TQuadro_VT_selfirm_mask::on_field_event(TOperable_field& o, TField_event e, long jolly) bool TQuadro_VT_selfirm_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
@ -113,7 +105,7 @@ bool TQuadro_VT_selfirm_mask::on_field_event(TOperable_field& o, TField_event e,
if (e == fe_modify) if (e == fe_modify)
{ {
bool found = FALSE; bool found = false;
TString16 ditta = o.get(); TString16 ditta = o.get();
for (int i = 0; i < _ditte->items(); i++) for (int i = 0; i < _ditte->items(); i++)
{ {
@ -124,7 +116,7 @@ bool TQuadro_VT_selfirm_mask::on_field_event(TOperable_field& o, TField_event e,
{ {
set(F_CODDITTA, row.get(0)); set(F_CODDITTA, row.get(0));
set(F_RAGSOC, row.get(1)); set(F_RAGSOC, row.get(1));
found = TRUE; found = true;
} }
else else
{ {
@ -145,8 +137,8 @@ bool TQuadro_VT_selfirm_mask::on_field_event(TOperable_field& o, TField_event e,
return select_button(); return select_button();
if (e == fe_modify) if (e == fe_modify)
{ {
bool found = FALSE; bool found = false;
TString16 ditta = o.get(); TString8 ditta = o.get();
for (int i = 0; i < _ditte->items(); i++) for (int i = 0; i < _ditte->items(); i++)
{ {
TToken_string& row = _ditte->row(i); TToken_string& row = _ditte->row(i);
@ -157,7 +149,7 @@ bool TQuadro_VT_selfirm_mask::on_field_event(TOperable_field& o, TField_event e,
{ {
set(F_CODDITTA, row.get(0)); set(F_CODDITTA, row.get(0));
set(F_RAGSOC, row.get(1)); set(F_RAGSOC, row.get(1));
found = TRUE; found = true;
break; break;
} }
} }
@ -180,19 +172,18 @@ bool TQuadro_VT_selfirm_mask::on_field_event(TOperable_field& o, TField_event e,
break; break;
} }
return TRUE; return true;
} }
class TQuadro_VT_iva_form : public TForm class TQuadro_VT_iva_form : public TForm
{ {
public: public:
TQuadro_VT_iva_form() : TForm("cg5800a") {}; TQuadro_VT_iva_form() : TForm("cg5800a") {}
virtual ~TQuadro_VT_iva_form() {};
}; };
class TQuadro_VT_iva_mask : public TAutomask class TQuadro_VT_iva_mask : public TAutomask
{ {
TQuadro_VT_selfirm_mask * _sf; TQuadro_VT_selfirm_mask* _sf;
protected: protected:
void read_iva_data(); void read_iva_data();
@ -200,10 +191,8 @@ protected:
public: public:
void set_prospect(); void set_prospect();
void print_prospect(); void print_prospect();
virtual bool on_key(KEY k) { return TAutomask::on_key(k);}
virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly); virtual bool on_field_event(TOperable_field& o, TField_event e, long jolly);
TQuadro_VT_iva_mask(TQuadro_VT_selfirm_mask *m) : TAutomask("cg5800b") {_sf = m;} TQuadro_VT_iva_mask(TQuadro_VT_selfirm_mask *m) : TAutomask("cg5800b"), _sf(m) { }
virtual ~TQuadro_VT_iva_mask() {};
}; };
void TQuadro_VT_iva_mask::read_iva_data() void TQuadro_VT_iva_mask::read_iva_data()
@ -246,7 +235,7 @@ void TQuadro_VT_iva_mask::read_iva_data()
set(F_TOTPRIVA, tpriva); set(F_TOTPRIVA, tpriva);
} }
else else
error_box("Risultati liquidazione non presenti o da ricalcolare per l'anno %d.", _sf->get_year()); warning_box(FR("Risultati liquidazione non presenti o da ricalcolare per l'anno %d."), _sf->get_year());
} }
@ -283,30 +272,24 @@ bool TQuadro_VT_iva_mask::on_field_event(TOperable_field& o, TField_event e, lon
case DLG_PRELPR: case DLG_PRELPR:
if (e == fe_button) if (e == fe_button)
{ {
TReport_book book;
TReport rep; TReport rep;
if (rep.load("cg5800ra.rep")) if (rep.load("cg5800ra.rep"))
{ {
TRecordset * r = rep.recordset(); TRecordset* r = rep.recordset();
if (r != NULL) if (r != NULL)
{ {
TVariant var; const TVariant var = get(F_YEAR);
var = get(F_YEAR);
r->set_var("#ANNO", var); r->set_var("#ANNO", var);
} }
book.add(rep); rep.print_or_preview();
if (book.pages() > 0)
book.print_or_preview();
} }
} }
break;
default: default:
break; break;
} }
return TRUE; return true;
} }
void TQuadro_VT_iva_mask::set_prospect() void TQuadro_VT_iva_mask::set_prospect()
@ -323,7 +306,7 @@ void TQuadro_VT_iva_mask::set_prospect()
TFirm frm(ditta); TFirm frm(ditta);
TIva_round ir; TIva_round ir;
ir.set_default_iva_mode(anno, FALSE, ditta); ir.set_default_iva_mode(anno, false, ditta);
read_iva_data(); read_iva_data();
} }
@ -332,12 +315,9 @@ class TQuadro_VT_iva_app : public TSkeleton_application
{ {
protected: protected:
virtual bool create(); virtual bool create();
virtual bool destroy();
virtual void main_loop(); virtual void main_loop();
public: public:
virtual bool firm_change_enabled() const { return FALSE; } virtual bool firm_change_enabled() const { return false; }
TQuadro_VT_iva_app () {};
virtual ~TQuadro_VT_iva_app () {};
}; };
bool TQuadro_VT_iva_app::create() bool TQuadro_VT_iva_app::create()
@ -346,11 +326,6 @@ bool TQuadro_VT_iva_app::create()
return TSkeleton_application::create(); return TSkeleton_application::create();
} }
bool TQuadro_VT_iva_app::destroy()
{
return TSkeleton_application::destroy();
}
void TQuadro_VT_iva_app::main_loop() void TQuadro_VT_iva_app::main_loop()
{ {
const long ditta = get_firm(); const long ditta = get_firm();

2
cg/cg5800a.frm
View File

@ -27,6 +27,7 @@ BEGIN
PROMPT 2 1 "@bAGENZIA DELLE ENTRATE" PROMPT 2 1 "@bAGENZIA DELLE ENTRATE"
END END
/*
STRINGA -1 STRINGA -1
BEGIN BEGIN
PROMPT 2 2 "[]\ //\ " PROMPT 2 2 "[]\ //\ "
@ -46,6 +47,7 @@ STRINGA -1
BEGIN BEGIN
PROMPT 2 5 "[] \/-----\\" PROMPT 2 5 "[] \/-----\\"
END END
*/
STRINGA -1 STRINGA -1
BEGIN BEGIN

5
cg/cg5800b.uml
View File

@ -14,10 +14,7 @@ BEGIN
PICTURE TOOL_PRINTELENCO PICTURE TOOL_PRINTELENCO
END END
BUTTON DLG_QUIT 10 2 #include <helpbar.h>
BEGIN
PROMPT -33 -11 ""
END
ENDPAGE ENDPAGE

2
cg/cglib01.cpp
View File

@ -299,7 +299,7 @@ bool TEsercizi_contabili::code2range(int codice, TDate& dal, TDate& al) const
return ok; return ok;
} }
TEsercizi_contabili & esercizi() TEsercizi_contabili& esercizi()
{ {
HIDDEN TEsercizi_contabili __esercizi; HIDDEN TEsercizi_contabili __esercizi;
return __esercizi; return __esercizi;