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

4
cg/cg2100o.uml
View File

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

91
cg/cg5800.cpp
View File

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

2
cg/cg5800a.frm
View File

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

5
cg/cg5800b.uml
View File

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

2
cg/cglib01.cpp
View File

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