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

Corretto MI0363 liquidiazione piu' altre cose qua e la'

Browse Source 
Altri modificati per cause spurie cvs-related


git-svn-id: svn://10.65.10.50/trunk@801 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1994-12-29 14:49:03 +00:00
parent f3c7cb1e11
commit 929a349a3c
18 changed files with 1001 additions and 884 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
cg/cg0.h
View File

@ -1,24 +1,24 @@
#ifndef __CG0_H #ifndef __CG0_H
#define __CG0_H #define __CG0_H
int cg0100(int argc, char* argv[]); int cg0100(int argc, char* argv[]);
int cg0200(int argc, char* argv[]); int cg0200(int argc, char* argv[]);
int cg0300(int argc, char* argv[]); int cg0300(int argc, char* argv[]);
int cg0400(int argc, char* argv[]); int cg0400(int argc, char* argv[]);
int cg0500(int argc, char* argv[]); int cg0500(int argc, char* argv[]);
#endif // __CG0_H #endif // __CG0_H

36
cg/cg0300.h
View File

@ -9,21 +9,21 @@
#define N_CODCF "CODCF" #define N_CODCF "CODCF"
#define F_ANNO 101 #define F_ANNO 101
#define F_CODATT 102 #define F_CODATT 102
#define F_TIPOCF 103 #define F_TIPOCF 103
#define F_CODCF 104 #define F_CODCF 104
#define F_IMMESSO 105 #define F_IMMESSO 105
#define F_IMPESC 106 #define F_IMPESC 106
#define F_IVAESC 107 #define F_IVAESC 107
#define F_NIESC 108 #define F_NIESC 108
#define F_E8ESC 109 #define F_E8ESC 109
#define F_NDOCESC 110 #define F_NDOCESC 110
#define F_IMPESP 111 #define F_IMPESP 111
#define F_IVAESP 112 #define F_IVAESP 112
#define F_NIESP 113 #define F_NIESP 113
#define F_E8ESP 114 #define F_E8ESP 114
#define F_NDOCESP 115 #define F_NDOCESP 115
#define F_PROG101102 116 #define F_PROG101102 116
#define F_CODDITTA 117 #define F_CODDITTA 117
#define F_RAGSOC 118 #define F_RAGSOC 118
#define F_COFI 119 #define F_COFI 119
@ -38,7 +38,7 @@
#define F_PROMPT 128 #define F_PROMPT 128
#define F_RAGSOC_D 129 #define F_RAGSOC_D 129
#define F_DENATT 130 #define F_DENATT 130
#define F_CODATTH 131 #define F_CODATTH 131
#define F_CODCFH 132 #define F_CODCFH 132
#endif // __CG0300_H #endif // __CG0300_H

30
cg/cg0400.h
View File

@ -1,13 +1,13 @@
#ifndef __CG0400_H #ifndef __CG0400_H
#define __CG0400_H #define __CG0400_H
/**** /****
#define TCLI "C" #define TCLI "C"
#define N_CODDITTA "CODDITTA" #define N_CODDITTA "CODDITTA"
#define N_CODATTPREV "CODATTPREV" #define N_CODATTPREV "CODATTPREV"
#define N_CODATT "CODATT" #define N_CODATT "CODATT"
#define N_CODCF "CODCF" #define N_CODCF "CODCF"
***/ ***/
#define TAB_REG "REG" #define TAB_REG "REG"
#define TAB_PIM "PIM" #define TAB_PIM "PIM"
@ -25,16 +25,16 @@
#define F_VUOILORDI 111 #define F_VUOILORDI 111
#define F_TIPO1 112 #define F_TIPO1 112
/* /*
#define F_TOTALE1 122 #define F_TOTALE1 122
#define F_TOTALE2 123 #define F_TOTALE2 123
#define F_TOTALE3 124 #define F_TOTALE3 124
#define F_TOTALE4 125 #define F_TOTALE4 125
#define F_TOTALE5 126 #define F_TOTALE5 126
#define F_TOTALE6 127 #define F_TOTALE6 127
#define F_PROMPT 128 #define F_PROMPT 128
*/ */
#endif // __CG0400_H #endif // __CG0400_H

8
cg/cg2200.h
View File

@ -1,4 +1,4 @@
#define F_FROMDATE 101 #define F_FROMDATE 101
#define F_FROMREG 102 #define F_FROMREG 102
#define F_TODATE 103 #define F_TODATE 103
#define F_TOREG 104 #define F_TOREG 104

20
cg/cg3300.h
View File

@ -6,7 +6,7 @@ enum stampe {
modulo101=3, modulo101=3,
modulo102=4, modulo102=4,
entrambi=5 entrambi=5
}; };
class desc_campo : public TObject class desc_campo : public TObject
{ {
@ -27,7 +27,7 @@ public:
const desc_campo& campi(int i) { return (const desc_campo&) _campi[i]; } const desc_campo& campi(int i) { return (const desc_campo&) _campi[i]; }
int riga (int i) { return ((const desc_campo&)_campi[i])._riga; } int riga (int i) { return ((const desc_campo&)_campi[i])._riga; }
const char * formato (int i) const char * formato (int i)
{ return ((desc_campo&)_campi[i])._formato; } { return ((desc_campo&)_campi[i])._formato; }
void add (int, const char*); void add (int, const char*);
void leggi_modulo (const char *, const char *); void leggi_modulo (const char *, const char *);
@ -55,7 +55,7 @@ public:
real ivaesc_real() { return ivaesc; } real ivaesc_real() { return ivaesc; }
const char * tot_str() { return tot.string("@@@@@@@@@@@"); } const char * tot_str() { return tot.string("@@@@@@@@@@@"); }
// const char * esc_str() { return esc.string("@@@@@@@@@@@"); } // const char * esc_str() { return esc.string("@@@@@@@@@@@"); }
const char * impesc_str() { return impesc.string("@@@@@@@@@@@"); } const char * impesc_str() { return impesc.string("@@@@@@@@@@@"); }
const char * ivaesc_str() { return ivaesc.string("@@@@@@@@@@@"); } const char * ivaesc_str() { return ivaesc.string("@@@@@@@@@@@"); }
@ -70,7 +70,7 @@ struct alleg_sort {
char cognome_dic [31]; char cognome_dic [31];
char nome_dic [21]; char nome_dic [21];
char ragsoc_dic[51]; char ragsoc_dic[51];
// char datana_dic[11]; // char datana_dic[11];
TDate datana_dic; TDate datana_dic;
char sesso_dic [2]; char sesso_dic [2];
char comunena_dic [51]; char comunena_dic [51];
@ -127,7 +127,7 @@ class SortRecord {
TTable * _tpd; TTable * _tpd;
struct alleg_sort * _all; struct alleg_sort * _all;
protected: protected:
TRectype& look_com(const char *); TRectype& look_com(const char *);
long cerca_codice_all(TString tipo, long codcf) ; long cerca_codice_all(TString tipo, long codcf) ;
const char * decodifica_desc_att (TString & codatt); const char * decodifica_desc_att (TString & codatt);
@ -153,7 +153,7 @@ public:
struct Totali { struct Totali {
// Totali anno corrente // Totali anno corrente
real _tot_tot_rigac; real _tot_tot_rigac;
int _tot_esc; int _tot_esc;
real _tot_impesc; real _tot_impesc;
@ -161,7 +161,7 @@ struct Totali {
real _tot_niesc; real _tot_niesc;
real _tot_e8esc; real _tot_e8esc;
// Totali anno precedente // Totali anno precedente
real _tot_tot_rigap; real _tot_tot_rigap;
int _tot_esp; int _tot_esp;
real _tot_impesp; real _tot_impesp;
@ -169,7 +169,7 @@ struct Totali {
real _tot_niesp; real _tot_niesp;
real _tot_e8esp; real _tot_e8esp;
// Riporti // Riporti
real _rip_tot_riga; real _rip_tot_riga;
int _rip_tot_es; int _rip_tot_es;
real _rip_tot_impes; real _rip_tot_impes;
@ -211,7 +211,7 @@ enum modi_stampa {
modulo=1, modulo=1,
controllo=2, controllo=2,
dischetto=3 dischetto=3
}; };
enum posizioni { enum posizioni {
PAIVA_DIC = 0, PAIVA_DIC = 0,
@ -298,5 +298,5 @@ enum posizioni {
TOT_E8ESP, TOT_E8ESP,
TOT_SEGNO_TOTALE, TOT_SEGNO_TOTALE,
TOT_TOTALE TOT_TOTALE
}; };

246
cg/cg4200a.uml
View File

@ -1,123 +1,123 @@
#include "cg4200.h" #include "cg4200.h"
PAGE "Copia da ditta a ditta" -1 -1 78 16 PAGE "Copia da ditta a ditta" -1 -1 78 16
GROUPBOX DLG_NULL 76 6 GROUPBOX DLG_NULL 76 6
BEGIN BEGIN
PROMPT 1 1 "Copia da" PROMPT 1 1 "Copia da"
END END
RADIOBUTTON F_FROMTYPE 60 RADIOBUTTON F_FROMTYPE 60
BEGIN BEGIN
PROMPT 13 2 "" PROMPT 13 2 ""
HELP "Indicare il tipo di archivi da copiare" HELP "Indicare il tipo di archivi da copiare"
ITEMS "C|Archivi Comuni" ITEMS "C|Archivi Comuni"
MESSAGE CLEAR,F_FROMFIRM|CLEAR,F_DFROMFIRM MESSAGE CLEAR,F_FROMFIRM|CLEAR,F_DFROMFIRM
ITEMS "D|Archivi Ditta" ITEMS "D|Archivi Ditta"
MESSAGE ENABLE,F_FROMFIRM|ENABLE,F_DFROMFIRM MESSAGE ENABLE,F_FROMFIRM|ENABLE,F_DFROMFIRM
FLAGS "Z" FLAGS "Z"
END END
NUMBER F_FROMFIRM 5 NUMBER F_FROMFIRM 5
BEGIN BEGIN
PROMPT 4 5 "Ditta " PROMPT 4 5 "Ditta "
FLAGS "R" FLAGS "R"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT CODDITTA F_FROMFIRM INPUT CODDITTA F_FROMFIRM
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_FROMFIRM CODDITTA OUTPUT F_FROMFIRM CODDITTA
OUTPUT F_DFROMFIRM RAGSOC OUTPUT F_DFROMFIRM RAGSOC
HELP "Codice della ditta da cui prelevare i dati" HELP "Codice della ditta da cui prelevare i dati"
WARNING "Ditta assente" WARNING "Ditta assente"
END END
STRING F_DFROMFIRM 50 STRING F_DFROMFIRM 50
BEGIN BEGIN
PROMPT 20 5 "" PROMPT 20 5 ""
USE LF_NDITTE KEY 2 USE LF_NDITTE KEY 2
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT RAGSOC F_DFROMFIRM INPUT RAGSOC F_DFROMFIRM
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
COPY OUTPUT F_FROMFIRM COPY OUTPUT F_FROMFIRM
HELP "Ragione sociale della ditta da cui prelevare i dati" HELP "Ragione sociale della ditta da cui prelevare i dati"
WARNING "Ditta assente" WARNING "Ditta assente"
END END
GROUPBOX DLG_NULL 76 3 GROUPBOX DLG_NULL 76 3
BEGIN BEGIN
PROMPT 1 7 "Copia su" PROMPT 1 7 "Copia su"
END END
NUMBER F_TOFIRM 5 NUMBER F_TOFIRM 5
BEGIN BEGIN
PROMPT 4 8 "Ditta " PROMPT 4 8 "Ditta "
FLAGS "FR" FLAGS "FR"
COPY USE F_FROMFIRM COPY USE F_FROMFIRM
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_TOFIRM INPUT CODDITTA F_TOFIRM
DISPLAY "Codice" CODDITTA DISPLAY "Codice" CODDITTA
DISPLAY "Ragione sociale @50" RAGSOC DISPLAY "Ragione sociale @50" RAGSOC
OUTPUT F_TOFIRM CODDITTA OUTPUT F_TOFIRM CODDITTA
OUTPUT F_DTOFIRM RAGSOC OUTPUT F_DTOFIRM RAGSOC
HELP "Codice della ditta su cui duplicare i dati" HELP "Codice della ditta su cui duplicare i dati"
WARNING "Ditta assente" WARNING "Ditta assente"
END END
STRING F_DTOFIRM 50 STRING F_DTOFIRM 50
BEGIN BEGIN
PROMPT 20 8 "" PROMPT 20 8 ""
COPY USE F_DFROMFIRM COPY USE F_DFROMFIRM
CHECKTYPE NORMAL CHECKTYPE NORMAL
INPUT RAGSOC F_DTOFIRM INPUT RAGSOC F_DTOFIRM
COPY DISPLAY F_DFROMFIRM COPY DISPLAY F_DFROMFIRM
COPY OUTPUT F_TOFIRM COPY OUTPUT F_TOFIRM
HELP "Ragione sociale della ditta su cui duplicare i dati" HELP "Ragione sociale della ditta su cui duplicare i dati"
WARNING "Ditta assente" WARNING "Ditta assente"
END END
GROUPBOX DLG_NULL 76 4 GROUPBOX DLG_NULL 76 4
BEGIN BEGIN
PROMPT 1 10 "Archivi da duplicare" PROMPT 1 10 "Archivi da duplicare"
END END
BOOLEAN F_PCON BOOLEAN F_PCON
BEGIN BEGIN
PROMPT 4 11 "Piano dei conti" PROMPT 4 11 "Piano dei conti"
HELP "Indicare se duplicare l'archivio piano dei conti" HELP "Indicare se duplicare l'archivio piano dei conti"
END END
BOOLEAN F_CAUS BOOLEAN F_CAUS
BEGIN BEGIN
PROMPT 34 11 "Causali" PROMPT 34 11 "Causali"
HELP "Indicare se duplicare l'archivio causali" HELP "Indicare se duplicare l'archivio causali"
END END
BOOLEAN F_CLIFO BOOLEAN F_CLIFO
BEGIN BEGIN
PROMPT 54 11 "Clienti/Fornitori" PROMPT 54 11 "Clienti/Fornitori"
HELP "Indicare se duplicare l'archivio clienti/fornitori" HELP "Indicare se duplicare l'archivio clienti/fornitori"
END END
BOOLEAN F_IVD BOOLEAN F_IVD
BEGIN BEGIN
PROMPT 4 12 "IV Direttiva C.E.E." PROMPT 4 12 "IV Direttiva C.E.E."
HELP "Indicare se duplicare l'archivio IV Direttiva C.E.E." HELP "Indicare se duplicare l'archivio IV Direttiva C.E.E."
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON DLG_QUIT 9 2 BUTTON DLG_QUIT 9 2
BEGIN BEGIN
PROMPT -22 -1 "" PROMPT -22 -1 ""
MESSAGE EXIT,K_QUIT MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

305
cg/cg4300.cpp
View File

@ -8,6 +8,7 @@
#include <progind.h> #include <progind.h>
#include <sheet.h> #include <sheet.h>
#include <prefix.h> #include <prefix.h>
#include <utility.h>
#include "cg4300.h" #include "cg4300.h"
#include "cg4300a.h" #include "cg4300a.h"
@ -20,11 +21,12 @@ real TLiquidazione_app::CENTO(100.0);
inline TLiquidazione_app& app() inline TLiquidazione_app& app()
{ return (TLiquidazione_app&)main_app(); } { return (TLiquidazione_app&)main_app(); }
TLiquidazione_app::TLiquidazione_app() TLiquidazione_app::TLiquidazione_app() :
: _ditte(NULL), _selected(10000), _year(4), _nomiditte(100) _ditte(NULL), _selected(10000),
_year(4), _nomiditte(100)
{ {
_isprint = _is_interactive = TRUE; _recalc = needed; _isprint = _is_interactive = TRUE; _recalc = needed;
_isplafond = _isfinal = _is_visliq = FALSE; _isplafond = _printonly = _is_visliq = FALSE;
_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;
@ -117,6 +119,7 @@ bool TLiquidazione_app::user_create()
// ACHTUNG: tutti i _codatt (codici attivita') sono // ACHTUNG: tutti i _codatt (codici attivita') sono
// in realta' composti dal codice attivita' piu' il // in realta' composti dal codice attivita' piu' il
// tipo attivita' (1 o 2) // tipo attivita' (1 o 2)
// sarebbe piu' saggio fare 2 campi ma ci vuole 1 vita
_pim_anno = new TRecfield(*_pim_r,"CODTAB",0,3); _pim_anno = new TRecfield(*_pim_r,"CODTAB",0,3);
_pim_codatt = new TRecfield(*_pim_r,"CODTAB",4,9); _pim_codatt = new TRecfield(*_pim_r,"CODTAB",4,9);
@ -153,16 +156,16 @@ bool TLiquidazione_app::user_create()
TLocalisamfile& dt = _nditte->lfile(); TLocalisamfile& dt = _nditte->lfile();
for (dt.first(); !dt.eof(); dt.next()) for (dt.first(); !dt.eof(); dt.next())
{ {
// no archivi // check no archivi
if (!prefhndl->exist(dt.get_long("CODDITTA"))) bool good = prefhndl->exist(dt.get_long("CODDITTA"));
continue;
if (good)
TApplication::set_firm(dt.get_long("CODDITTA")); {
// check no parametri liquidazione
// no parametri liquidazione TApplication::set_firm(dt.get_long("CODDITTA"));
if (!look_lia()) if (!look_lia()) good = FALSE;
continue; }
_n_ditte++; _n_ditte++;
@ -171,9 +174,10 @@ bool TLiquidazione_app::user_create()
// add record // add record
d->add(dt.get("CODDITTA")); d->add(dt.get("CODDITTA"));
d->add(dt.get("RAGSOC")); d->add(dt.get("RAGSOC"));
d->add(_lia->get("S7")); if (good) d->add(_lia->get("S7"));
else d->add("??");
_nomiditte.add(d); _nomiditte.add(d);
} }
} }
@ -339,141 +343,240 @@ bool TLiquidazione_app::set_print(int n)
long TLiquidazione_app::select_firm_range(long from, long to, wht freq) long TLiquidazione_app::select_firm_range(long from, long to, wht freq)
{ {
if (to == 0) to = 99999L; if (to == 0l) to = 99999L;
for (int i = 0; i < _nomiditte.items(); i++) for (int i = 0; i < _ditte->items(); i++)
{ {
TToken_string& d = (TToken_string&)_nomiditte[i]; if (_ditte->disabled(i))
const char vers = d.get_char(2);
if ((freq == mnt && vers == 'T') || (freq == quarter && vers == 'M'))
continue; continue;
const long cod = d.get_long(0);
TToken_string& d = _ditte->row(i);
const char vers = d.get_char(3);
if (vers == '?' || (freq == mnt && vers == 'T') || (freq == quarter && vers == 'M'))
continue;
const long cod = d.get_long(1);
if (cod >= from && cod <= to) if (cod >= from && cod <= to)
_selected.set(i); {
_selected.set(i);
_ditte->check(i);
}
else
{
_selected.set(i,FALSE);
_ditte->uncheck(i);
}
} }
return _selected.ones(); return _selected.ones();
} }
// ----------------------------------------------- handlers
bool TLiquidazione_app::to_ditta_handler(TMask_field& f, KEY key) bool TLiquidazione_app::to_ditt_handler(TMask_field& f, KEY key)
{ {
if (key == K_TAB && f.focusdirty() || key == K_ENTER) TMask& m = f.mask();
if (key == K_F9)
{ {
TMask& m = f.mask(); app().to_butt_handler(m.field(CG43_BUT_DTO), K_SPACE);
const long from = m.get_long(CG43_FLD_DFR); }
const long to = m.get_long(CG43_FLD_DTO); if (key == K_TAB && f.focusdirty())
const wht freq = (wht)m.get_int(CG43_RDB_VERS); {
if (from > 0 || to > 0) const long l = app().select_firm_range(m.get_long(CG43_FLD_DFR),
{ m.get_long(CG43_FLD_DTO),
const long sel = app().select_firm_range(from, to, freq); (wht)m.get_int(CG43_RDB_VERS));
m.set(CG43_FLD_SELECTED, sel); app().set_choice_limits(m);
// m.reset(CG43_FLD_DFR); m.field(CG43_FLD_SELECTED).set(format("%ld", l));
// m.reset(CG43_FLD_DTO);
}
} }
return TRUE; return TRUE;
} }
bool TLiquidazione_app::fr_ditt_handler(TMask_field& f, KEY key)
{
TMask& m = f.mask();
if (key == K_F9)
{
app().fr_butt_handler(m.field(CG43_BUT_DFR), K_SPACE);
}
else if (key == K_TAB && f.focusdirty())
{
const long l = app().select_firm_range(m.get_long(CG43_FLD_DFR),
m.get_long(CG43_FLD_DTO),
(wht)m.get_int(CG43_RDB_VERS));
app().set_choice_limits(m);
m.field(CG43_FLD_SELECTED).set(format("%ld", l));
}
return TRUE;
}
bool TLiquidazione_app::to_butt_handler(TMask_field& f, KEY key)
{
if (key == K_SPACE)
{
TArray_sheet* sh = app().get_ditte_sheet();
TMask& m = f.mask();
sh->disable_check();
if (sh->run() == K_ENTER)
{
app().select_firm_range(m.get_long(CG43_FLD_DFR),sh->row(sh->selected()).get_long(1),
(wht)m.get_int(CG43_RDB_VERS));
app().set_choice_limits(m);
}
}
return TRUE;
}
bool TLiquidazione_app::fr_butt_handler(TMask_field& f, KEY key)
{
if (key == K_SPACE)
{
TMask& m = f.mask();
TArray_sheet* sh = ((TLiquidazione_app&)main_app()).get_ditte_sheet();
sh->disable_check();
if (sh->run() == K_ENTER)
{
app().select_firm_range(sh->row(sh->selected()).get_long(1), m.get_long(CG43_FLD_DTO),
(wht)m.get_int(CG43_RDB_VERS));
app().set_choice_limits(m);
}
}
return TRUE;
}
bool TLiquidazione_app::what_freq_handler(TMask_field& f, KEY key)
{
if (key == K_SPACE && f.dirty())
{
if (*(f.get()) == '3') // trimestre intelligente
{
int month = f.mask().get_int(CG43_LST_MESE);
if (month > 3)
while (!is_trim(month)) month--;
else month = 3;
f.mask().field(CG43_LST_TRIM).set(format("%d",month));
}
app().reset_choices(f.mask());
app().build_ditte_sheet((wht)atoi(f.get()));
}
return TRUE;
}
void TLiquidazione_app::reset_choices(TMask& m)
{
_selected.reset();
m.reset(CG43_FLD_SELECTED);
m.reset(CG43_FLD_DFR);
m.reset(CG43_FLD_DTO);
_ditte->check(-1, FALSE);
}
void TLiquidazione_app::set_choice_limits(TMask& m)
{
long first = -1l, last = -1l;
for (int i = 0; i < _ditte->items(); i++)
{
if (_selected[i])
{
long dit = _ditte->row(i).get_long(1);
if (first == -1l) first = dit;
if (last < dit) last = dit;
}
}
if (first != -1) m.field(CG43_FLD_DFR).set(format("%ld",first));
if (last != -1) m.field(CG43_FLD_DTO).set(format("%ld",last));
m.set(CG43_FLD_SELECTED, _selected.ones());
}
void TLiquidazione_app::build_ditte_sheet(wht what)
{
// build sheet
_ditte->destroy();
_what = what;
for (int i = 0; i < _nomiditte.items(); i++)
{
TToken_string* d = new TToken_string(64);
*d = (TToken_string&)_nomiditte[i];
const char vers = d->get_char(2);
bool selectable = vers == '?';
if ((what == mnt && vers == 'T') || (what == quarter && vers == 'M'))
continue;
d->insert(" |", 0);
const long pos = _ditte->add(d);
if (selectable) _ditte->disable(pos);
else if (_selected[i]) _ditte->check(pos);
}
}
// ----------------------------------------------------
bool TLiquidazione_app::set_liquidazione() bool TLiquidazione_app::set_liquidazione()
{ {
TMask m("cg4300a.msk"); TMask m("cg4300a.msk");
m.set_handler(CG43_FLD_DTO, to_ditta_handler);
m.set_handler(CG43_FLD_DTO, to_ditt_handler);
m.set_handler(CG43_FLD_DFR, fr_ditt_handler);
m.set_handler(CG43_BUT_DTO, to_butt_handler);
m.set_handler(CG43_BUT_DFR, fr_butt_handler);
m.set_handler(CG43_RDB_VERS, what_freq_handler);
m.field(CG43_FLD_SELECTED).set("0"); m.field(CG43_FLD_SELECTED).set("0");
_selected.reset();
KEY k; KEY k;
// stampa abilitata per default // stampa abilitata per default
m.set(CG43_CHK_STAMPA,"X"); m.set(CG43_CHK_STAMPA,"X");
_month = m.get_int(CG43_LST_MESE);
build_ditte_sheet(all);
do do
{ {
k = m.run(); if ((k = m.run()) == K_ESC) break;
if (k == K_ESC) break; // handlers have set everything
_month = _what == quarter ? m.get_int(CG43_LST_TRIM) :
m.get_int(CG43_LST_MESE);
_what = (wht)m.get_int(CG43_RDB_VERS); _year = m.get(CG43_FLD_ANNO);
_month = m.get_int(CG43_LST_MESE); _date = m.get(CG43_FLD_DATA);
_isprint = m.get_bool(CG43_CHK_STAMPA);
if (_what == all) _recalc = (recalc)m.get_long(CG43_LST_CALC);
{ _printonly = m.get_bool(CG43_CHK_FINAL);
if (_month != 3 && _month != 6 && _month != 9 &&
_month != 12 && _month != 13)
_what = mnt;
}
else if (_what == quarter)
_month = m.get_int(CG43_LST_TRIM);
_year = m.get(CG43_FLD_ANNO);
_date = m.get(CG43_FLD_DATA);
_isprint = m.get_bool(CG43_CHK_STAMPA);
_recalc = (recalc)m.get_long(CG43_LST_CALC);
_isfinal = m.get_bool(CG43_CHK_FINAL);
if (_isprint) printer().setdate(_date); if (_isprint) printer().setdate(_date);
if (_printonly) _recalc = never;
// ------------------------------------------------ // ------------------------------------------------
m.first_focus(k); m.first_focus(k);
int i;
switch(k) switch(k)
{ {
case DLG_SELECT: case DLG_SELECT:
// build sheet _ditte->enable_check();
_ditte->destroy();
for (i = 0; i < _nomiditte.items(); i++)
{
TToken_string* d = new TToken_string(64);
*d = (TToken_string&)_nomiditte[i];
const char vers = d->get_char(2);
if ((_what == mnt && vers == 'T') || (_what == quarter && vers == 'M'))
continue;
d->insert(" |", 0);
const long pos = _ditte->add(d);
if (_selected[i]) _ditte->check(pos);
}
// seleziona e aggiungi alle gia' selezionate // seleziona e aggiungi alle gia' selezionate
if (_ditte->run() == K_ENTER) if (_ditte->run() == K_ENTER)
{ {
for (long j = 0l; j < _ditte->items(); j++) for (long j = 0l; j < _ditte->items(); j++)
{ _selected.set(j, _ditte->checked(j));
const long cod = _ditte->row(j).get_long(1); set_choice_limits(m);
for (int d = 0; d < _nomiditte.items(); d++)
{
const long firm = ((TToken_string&)_nomiditte[d]).get_long(0);
if (firm == cod)
{
bool minchia = _ditte->checked(j);
_selected.set(d, _ditte->checked(j));
break;
}
}
#ifdef DBG
if (d >= _nomiditte.items())
yesnofatal_box("Non ritrovo piu' la ditta %ld", cod);
#endif
}
} }
m.set(CG43_FLD_SELECTED, _selected.ones());
break; break;
case CG43_BUT_ANN: case CG43_BUT_ANN:
_selected.reset(); reset_choices(m);
m.reset(CG43_FLD_SELECTED);
break; break;
} }
} }
while (k != K_ENTER && k != K_ESC); while (k != K_ENTER && k != K_ESC);
return k == K_ENTER; return k == K_ENTER;
} }

23
cg/cg4300.h
View File

@ -160,7 +160,7 @@ class TLiquidazione_app : public TPrint_application
int _month; // mese da calcolare int _month; // mese da calcolare
TDate _date; // data di stampa TDate _date; // data di stampa
bool _isprint; // vuoi stampare o no? bool _isprint; // vuoi stampare o no?
bool _isfinal; // calcolo definitivo bool _printonly; // calcolo definitivo
recalc _recalc; // tipo ricalcolo scelto recalc _recalc; // tipo ricalcolo scelto
bool _isplafond; // plafond importatori abituali bool _isplafond; // plafond importatori abituali
bool _isvent; // ventilazione bool _isvent; // ventilazione
@ -259,15 +259,30 @@ class TLiquidazione_app : public TPrint_application
TRecfield* _lim_anno; TRecfield* _lim_anno;
TRecfield* _lim_mese; TRecfield* _lim_mese;
protected: protected:
long select_firm_range(long from, long to, wht freq); long select_firm_range(long from, long to, wht freq);
static bool to_ditta_handler(TMask_field& f, KEY key);
static bool to_ditt_handler(TMask_field& f, KEY key);
static bool fr_ditt_handler(TMask_field& f, KEY key);
static bool to_butt_handler(TMask_field& f, KEY key);
static bool fr_butt_handler(TMask_field& f, KEY key);
static bool what_freq_handler(TMask_field& f, KEY key);
static TLiquidazione_app& app() { return (TLiquidazione_app&)main_app(); }
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);
// cazzatelle per handlers
TArray_sheet* get_ditte_sheet() { return _ditte; }
TBit_array& get_selected() { return _selected; }
void build_ditte_sheet(wht);
void reset_choices(TMask&);
void set_choice_limits(TMask&);
bool set_liquidazione(); bool set_liquidazione();
bool recalc_all(); bool recalc_all();
@ -362,7 +377,7 @@ public:
_VentItem* look_ventilation(int m, const char* codreg); _VentItem* look_ventilation(int m, const char* codreg);
// tutti i controlli del mondo sui mesi da calcolare // tutti i controlli del mondo sui mesi da calcolare
bool is_trim (int x); static bool is_trim (int x);
bool is_month_ok (int x, int month = -1); bool is_month_ok (int x, int month = -1);
bool is_date_ok (TDate& d, int month); bool is_date_ok (TDate& d, int month);
bool is_first_month (int m); bool is_first_month (int m);

2
cg/cg4300a.h
View File

@ -13,3 +13,5 @@
#define CG43_FLD_DTO 114 #define CG43_FLD_DTO 114
#define CG43_LST_CALC 115 #define CG43_LST_CALC 115
#define CG43_CHK_FINAL 116 #define CG43_CHK_FINAL 116
#define CG43_BUT_DFR 117
#define CG43_BUT_DTO 118

67
cg/cg4300a.uml
View File

@ -4,7 +4,7 @@ PAGE "Calcolo Liquidazioni" -1 -1 68 15
RADIOBUTTON CG43_RDB_VERS 15 RADIOBUTTON CG43_RDB_VERS 15
BEGIN BEGIN
PROMPT 4 1 "Versamenti" PROMPT 4 1 "Versamenti"
HELP "Indicare di quali versamenti procedere con la liquidazione" HELP "Indicare di quali versamenti procedere con la liquidazione"
ITEM "1|Tutti" MESSAGE HIDE,CG43_LST_TRIM|SHOW,CG43_LST_MESE ITEM "1|Tutti" MESSAGE HIDE,CG43_LST_TRIM|SHOW,CG43_LST_MESE
ITEM "2|Mensili" MESSAGE HIDE,CG43_LST_TRIM|SHOW,CG43_LST_MESE ITEM "2|Mensili" MESSAGE HIDE,CG43_LST_TRIM|SHOW,CG43_LST_MESE
ITEM "3|Trimestrali" MESSAGE SHOW,CG43_LST_TRIM|HIDE,CG43_LST_MESE ITEM "3|Trimestrali" MESSAGE SHOW,CG43_LST_TRIM|HIDE,CG43_LST_MESE
@ -19,25 +19,25 @@ END
NUMBER CG43_FLD_DFR 5 NUMBER CG43_FLD_DFR 5
BEGIN BEGIN
PROMPT 24 2 "Da codice " PROMPT 24 2 "Da codice "
FLAGS "UR" HELP "Codice ditta di partenza per la selezione"
HELP "Codice ditta di partenza per la selezione" END
USE LF_NDITTE KEY 1
DISPLAY "Codice" CODDITTA BUTTON CG43_BUT_DFR 2 1
DISPLAY "Ragione sociale@50" RAGSOC BEGIN
DISPLAY "Vers" FREQVIVA PROMPT 40 2 "*"
OUTPUT CG43_FLD_DFR CODDITTA PICTURE 109
END END
NUMBER CG43_FLD_DTO 5 NUMBER CG43_FLD_DTO 5
BEGIN BEGIN
PROMPT 24 3 "A codice " PROMPT 24 3 "A codice "
FLAGS "UR" HELP "Codice ditta di fine selezione"
HELP "Codice ditta di fine selezione" END
COPY USE CG43_FLD_DFR
DISPLAY "Codice" CODDITTA BUTTON CG43_BUT_DTO 2 1
DISPLAY "Ragione sociale@50" RAGSOC BEGIN
DISPLAY "Vers" FREQVIVA PROMPT 40 3 "*"
OUTPUT CG43_FLD_DTO CODDITTA PICTURE 109
END END
STRING CG43_FLD_SELECTED 5 STRING CG43_FLD_SELECTED 5
@ -49,45 +49,36 @@ END
BUTTON DLG_SELECT 10 2 BUTTON DLG_SELECT 10 2
BEGIN BEGIN
PROMPT 48 2 "~Selezione" PROMPT 48 2 "~Selezione"
HELP "Selezione ditte di cui fare la liquidazione" HELP "Selezione ditte di cui fare la liquidazione"
MESSAGE EXIT, DLG_SELECT MESSAGE EXIT, DLG_SELECT
END END
BUTTON CG43_BUT_ANN 10 BUTTON CG43_BUT_ANN 10
BEGIN BEGIN
PROMPT 48 4 "A~zzera" PROMPT 48 4 "A~zzera"
HELP "Azzerare la selezione delle ditte da fare la liquidazione" HELP "Azzerare la selezione delle ditte da fare la liquidazione"
MESSAGE EXIT,CG43_BUT_ANN MESSAGE EXIT,CG43_BUT_ANN
END END
/*
BUTTON CG43_BUT_CHK 8
BEGIN
PROMPT 50 4 "Verifica"
MESSAGE EXIT,CG43_BUT_CHK
END
*/
NUMBER CG43_FLD_ANNO 4 NUMBER CG43_FLD_ANNO 4
BEGIN BEGIN
PROMPT 30 7 "Anno " PROMPT 31 7 "Anno "
HELP "Anno per cui effettuare il calcolo" HELP "Anno per cui effettuare il calcolo"
FLAGS "A" FLAGS "A"
END END
LIST CG43_LST_MESE 13
LIST CG43_LST_MESE 10
BEGIN BEGIN
PROMPT 4 7 "Periodo " PROMPT 4 7 "Periodo "
HELP "Mese per cui effettuare il calcolo liquidazione" HELP "Mese per cui effettuare il calcolo liquidazione"
ITEM "13|Annuale" ITEM "13|Annuale"
FLAGS "AM" FLAGS "AM"
END END
LIST CG43_LST_TRIM 12 LIST CG43_LST_TRIM 13
BEGIN BEGIN
PROMPT 4 7 "Periodo " PROMPT 4 7 "Periodo "
HELP "Trimestre di cui effettuare il calcolo liquidazione" HELP "Trimestre di cui effettuare il calcolo liquidazione"
ITEM "3|1 Trimestre " ITEM "3|1 Trimestre "
ITEM "6|2 Trimestre " ITEM "6|2 Trimestre "
ITEM "9|3 Trimestre " ITEM "9|3 Trimestre "
@ -98,7 +89,7 @@ END
LIST CG43_LST_CALC 13 LIST CG43_LST_CALC 13
BEGIN BEGIN
PROMPT 4 8 "Ricalcola " PROMPT 4 8 "Ricalcola "
HELP "Indicare se rifare il calcolo durante la stampa" HELP "Indicare se rifare il calcolo durante la stampa"
// ITEM "1|Se necessario" // ITEM "1|Se necessario"
ITEM "2|Mese corrente" ITEM "2|Mese corrente"
ITEM "3|Tutti i mesi" ITEM "3|Tutti i mesi"
@ -115,7 +106,7 @@ END
BOOLEAN CG43_CHK_STAMPA BOOLEAN CG43_CHK_STAMPA
BEGIN BEGIN
PROMPT 5 11 "Esegui " PROMPT 5 11 "Esegui "
HELP "Indicare se stampare il prospetto delle liquidazioni" HELP "Indicare se stampare il prospetto delle liquidazioni"
MESSAGE TRUE ENABLE,CG43_FLD_DATA MESSAGE TRUE ENABLE,CG43_FLD_DATA
MESSAGE FALSE DISABLE,CG43_FLD_DATA MESSAGE FALSE DISABLE,CG43_FLD_DATA
END END
@ -123,16 +114,18 @@ END
DATE CG43_FLD_DATA DATE CG43_FLD_DATA
BEGIN BEGIN
PROMPT 16 11 "con data " PROMPT 15 11 "con data "
HELP "Data di stampa del prospetto delle liquidazioni" HELP "Data di stampa del prospetto delle liquidazioni"
FLAGS "A" FLAGS "A"
END END
BOOLEAN CG43_CHK_FINAL BOOLEAN CG43_CHK_FINAL
BEGIN BEGIN
PROMPT 47 11 "Definitivo" PROMPT 47 11 "Solo stampa"
HELP "Indicare se la liquidazione e' registrata come definitiva" HELP "Indicare se si desidera la sola stampa delle liquidazioni calcolate"
MESSAGE TRUE DISABLE,CG43_LST_CALC
MESSAGE FALSE ENABLE,CG43_LST_CALC
END END

26
cg/cg4301.cpp
View File

@ -4,36 +4,41 @@
// fv 21-1-94 // fv 21-1-94
// ------------------------------------------------------------ // ------------------------------------------------------------
#include <progind.h> #include <progind.h>
#include <sheet.h>
#include "cg4300.h" #include "cg4300.h"
// -------------------- QUI comincia l'avventura -------------------------- // -------------------- QUI comincia l'avventura --------------------------
bool TLiquidazione_app::recalc_all() bool TLiquidazione_app::recalc_all()
{ {
_prind = new TProgind(_selected.ones()*2, _prind = new TProgind(_selected.ones()*2, _printonly ?
" Stampa liquidazione... \n"
" Preparazione archivi \n"
" " :
" Calcolo liquidazione... \n" " Calcolo liquidazione... \n"
" Preparazione archivi ", " Preparazione archivi \n"
" ",
TRUE,TRUE,45); TRUE,TRUE,45);
for (int l = 0; l < _nomiditte.items(); l++) for (int l = 0; l < _ditte->items(); l++)
{ {
if (_prind->iscancelled()) if (_prind->iscancelled())
break; break;
if (_selected[(long)l]) if (_selected[(long)l])
{ {
TToken_string& nomeditta = (TToken_string&)_nomiditte[l]; TToken_string& nomeditta = _ditte->row(l);
_nditte->zero(); _nditte->zero();
_nditte->curr().put("CODDITTA",nomeditta.get_long(0)); _nditte->curr().put("CODDITTA",nomeditta.get_long(1));
_nditte->read(); _nditte->read();
TApplication::set_firm(nomeditta.get_long(0)); TApplication::set_firm(nomeditta.get_long(1));
_prind->addstatus(1); _prind->addstatus(1);
// trimestrali impropriamente selezionate per mesi intermedi // trimestrali impropriamente selezionate per mesi intermedi
_freqviva = nomeditta.get(2); _freqviva = nomeditta.get(3);
if (!is_month_ok(_month)) continue; if (!is_month_ok(_month)) continue;
int need_refresh = FALSE; int need_refresh = FALSE;
@ -121,7 +126,8 @@ bool TLiquidazione_app::update_firm(int month, bool recalc)
// se diventa TRUE); // se diventa TRUE);
_mixed = FALSE; _mixed = FALSE;
sprintf (buf,"Calcolo liquidazioni (%d)...\n%s: %s", sprintf (buf, _printonly ? "Stampa liquidazione (%d)...\n%s: %s\n" :
"Calcolo liquidazione (%d)...\n%s: %s\n",
month, month,
(const char*)_nditte_r->get("RAGSOC"), (const char*)_nditte_r->get("RAGSOC"),
(const char*)desatt); (const char*)desatt);
@ -813,8 +819,6 @@ void TLiquidazione_app::write_liq(int month, const char* codatts)
_lim->put("R7",ris_cred); _lim->put("R7",ris_cred);
_lim->put("R8",ris_deb); _lim->put("R8",ris_deb);
_lim->put("B0","X"); _lim->put("B0","X");
if (_isfinal) _lim->put("B1","X");
_lim->rewrite(); _lim->rewrite();
if (month == 12) if (month == 12)

8
cg/cg4400b.h
View File

@ -1,4 +1,4 @@
#define COD_LIB 123 #define COD_LIB 123
#define U_MESE 124 #define U_MESE 124
#define U_PAGINA 125 #define U_PAGINA 125
#define U_DATA 126 #define U_DATA 126

76
cg/cg4400b.uml
View File

@ -1,39 +1,39 @@
#include "cg4400b.h" #include "cg4400b.h"
PAGE "Stampa registri IVA" -1 -1 58 10 PAGE "Stampa registri IVA" -1 -1 58 10
STRING COD_LIB 3 STRING COD_LIB 3
BEGIN BEGIN
PROMPT 2 1 "Codice Libro " PROMPT 2 1 "Codice Libro "
END END
LISTBOX U_MESE 10 LISTBOX U_MESE 10
BEGIN BEGIN
PROMPT 2 2 "Stampa mese " PROMPT 2 2 "Stampa mese "
FLAGS "MD" FLAGS "MD"
END END
NUMBER U_PAGINA 4 NUMBER U_PAGINA 4
BEGIN BEGIN
PROMPT 2 3 "Ult.num.pagina stampata libro ditta " PROMPT 2 3 "Ult.num.pagina stampata libro ditta "
FLAGS "R" FLAGS "R"
END END
DATE U_DATA DATE U_DATA
BEGIN BEGIN
PROMPT 2 4 "Ultima data di stampa " PROMPT 2 4 "Ultima data di stampa "
END END
BUTTON DLG_OK 9 2 BUTTON DLG_OK 9 2
BEGIN BEGIN
PROMPT -13 7 "" PROMPT -13 7 ""
END END
BUTTON DLG_CANCEL 9 2 BUTTON DLG_CANCEL 9 2
BEGIN BEGIN
PROMPT -23 7 "" PROMPT -23 7 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

6
cg/cg5300a.h
View File

@ -9,6 +9,6 @@
#define F_DESATT 150 #define F_DESATT 150
#define F_TIPOATT 102 #define F_TIPOATT 102
#define F_PRORATA 103 #define F_PRORATA 103
#define F_P8 104 #define F_P8 104
#define F_P8B 105 #define F_P8B 105
#define F_P9 106 #define F_P9 106

38
cg/cg5500a.h
View File

@ -1,19 +1,19 @@
#define F_CODDITTA 101 #define F_CODDITTA 101
#define F_RAGSOC 102 #define F_RAGSOC 102
#define F_MONTHS 103 #define F_MONTHS 103
#define F_TRIMS 104 #define F_TRIMS 104
#define F_YEAR 105 #define F_YEAR 105
#define F_VISLIQ1 106 #define F_VISLIQ1 106
#define F_VISLIQ2 107 #define F_VISLIQ2 107
#define F_CREDPREC 108 #define F_CREDPREC 108
#define F_VISFLQ 109 #define F_VISFLQ 109
#define F_ACCONTO 110 #define F_ACCONTO 110
#define F_RIMBORSO 111 #define F_RIMBORSO 111
#define F_RETTIFICA 112 #define F_RETTIFICA 112
#define F_DESCR1 113 #define F_DESCR1 113
#define F_DESCR2 114 #define F_DESCR2 114
#define F_DEBCRE 115 #define F_DEBCRE 115
#define F_CODDITTA2 201 #define F_CODDITTA2 201
#define F_RAGSOC2 202 #define F_RAGSOC2 202

398
cg/cg5500b.uml
View File

@ -1,199 +1,199 @@
#include "cg5500a.h" #include "cg5500a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Visualizzazione liquidazione" -1 -1 77 20 PAGE "Visualizzazione liquidazione" -1 -1 77 20
GROUPBOX DLG_NULL 79 3 GROUPBOX DLG_NULL 79 3
BEGIN BEGIN
PROMPT 0 1 "@bDitta corrente" PROMPT 0 1 "@bDitta corrente"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 2 "Codice " PROMPT 2 2 "Codice "
FLAGS "DFR" FLAGS "DFR"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
OUTPUT F_RAGSOC2 RAGSOC OUTPUT F_RAGSOC2 RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 37 50 STRING F_RAGSOC 37 50
BEGIN BEGIN
PROMPT 16 2 "Rag. soc. " PROMPT 16 2 "Rag. soc. "
FLAGS "D" FLAGS "D"
END END
NUMBER F_CREDPREC 15 NUMBER F_CREDPREC 15
BEGIN BEGIN
PROMPT 1 5 "Credito inizio anno " PROMPT 1 5 "Credito inizio anno "
FLAGS "D" FLAGS "D"
END END
SPREADSHEET F_VISLIQ1 80 11 SPREADSHEET F_VISLIQ1 80 11
BEGIN BEGIN
PROMPT 1 7 "Liquidazione" PROMPT 1 7 "Liquidazione"
ITEM "V@1F#109" ITEM "V@1F#109"
ITEM "Mese@10" ITEM "Mese@10"
ITEM "Risultato@15" ITEM "Risultato@15"
ITEM "D/C" ITEM "D/C"
ITEM "IVA rimborso@15" ITEM "IVA rimborso@15"
ITEM "IVA rettifiche@15" ITEM "IVA rettifiche@15"
ITEM "D/C" ITEM "D/C"
END END
ENDPAGE ENDPAGE
PAGE "Visualizzazione liquidazione" -1 -1 77 20 PAGE "Visualizzazione liquidazione" -1 -1 77 20
GROUPBOX DLG_NULL 79 3 GROUPBOX DLG_NULL 79 3
BEGIN BEGIN
PROMPT 0 1 "@bDitta corrente" PROMPT 0 1 "@bDitta corrente"
END END
NUMBER F_CODDITTA2 5 NUMBER F_CODDITTA2 5
BEGIN BEGIN
PROMPT 2 2 "Codice " PROMPT 2 2 "Codice "
FLAGS "DFR" FLAGS "DFR"
END END
STRING F_RAGSOC2 37 50 STRING F_RAGSOC2 37 50
BEGIN BEGIN
PROMPT 16 2 "Rag. soc. " PROMPT 16 2 "Rag. soc. "
FLAGS "D" FLAGS "D"
END END
SPREADSHEET F_VISLIQ2 80 11 SPREADSHEET F_VISLIQ2 80 11
BEGIN BEGIN
PROMPT 1 5 "Versamenti" PROMPT 1 5 "Versamenti"
ITEM "V@1F#109" ITEM "V@1F#109"
ITEM "Mese@15" ITEM "Mese@15"
ITEM "Data@10" ITEM "Data@10"
ITEM "Azienda@5" ITEM "Azienda@5"
ITEM "Dipend.@5" ITEM "Dipend.@5"
ITEM "Concess.@5" ITEM "Concess.@5"
ITEM "Versamenti@15" ITEM "Versamenti@15"
ITEM "D/C" ITEM "D/C"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto mensile" -1 -1 50 10 PAGE "Prospetto mensile" -1 -1 50 10
STRING 102 10 STRING 102 10
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
NUMBER 103 15 0 NUMBER 103 15 0
BEGIN BEGIN
PROMPT 1 3 "Risultato " PROMPT 1 3 "Risultato "
END END
LIST 104 1 8 LIST 104 1 8
BEGIN BEGIN
PROMPT 1 4 "Importo a " PROMPT 1 4 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
NUMBER 105 15 NUMBER 105 15
BEGIN BEGIN
PROMPT 22 5 "IVA a rimborso " PROMPT 22 5 "IVA a rimborso "
END END
NUMBER 106 15 NUMBER 106 15
BEGIN BEGIN
PROMPT 22 6 "Debito/Credito " PROMPT 22 6 "Debito/Credito "
END END
LIST 107 1 8 LIST 107 1 8
BEGIN BEGIN
PROMPT 1 7 "Importo a " PROMPT 1 7 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON 101 10 2 BUTTON 101 10 2
BEGIN BEGIN
PROMPT -22 -1 "Calcola" PROMPT -22 -1 "Calcola"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto versamenti" -1 -1 50 12 PAGE "Prospetto versamenti" -1 -1 50 12
STRNG 102 10 STRNG 102 10
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
DATE 103 DATE 103
BEGIN BEGIN
PROMPT 1 5 "Data " PROMPT 1 5 "Data "
END END
STRING 104 5 STRING 104 5
BEGIN BEGIN
PROMPT 1 6 "Azienda " PROMPT 1 6 "Azienda "
END END
STRING 105 5 STRING 105 5
BEGIN BEGIN
PROMPT 1 7 "Dipendenza " PROMPT 1 7 "Dipendenza "
END END
STRING 106 5 STRING 106 5
BEGIN BEGIN
PROMPT 1 8 "Concessionaria " PROMPT 1 8 "Concessionaria "
END END
NUMBER 107 15 0 NUMBER 107 15 0
BEGIN BEGIN
PROMPT 1 4 "Versamenti " PROMPT 1 4 "Versamenti "
END END
LIST 108 1 8 LIST 108 1 8
BEGIN BEGIN
PROMPT 1 9 "Importo a " PROMPT 1 9 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON 101 10 2 BUTTON 101 10 2
BEGIN BEGIN
PROMPT -22 -1 "Calcola" PROMPT -22 -1 "Calcola"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

358
cg/cg5500c.uml
View File

@ -1,179 +1,179 @@
#include "cg5500a.h" #include "cg5500a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Visualizzazione liquidazione" -1 -1 77 20 PAGE "Visualizzazione liquidazione" -1 -1 77 20
GROUPBOX DLG_NULL 79 3 GROUPBOX DLG_NULL 79 3
BEGIN BEGIN
PROMPT 0 1 "@BDitta corrente" PROMPT 0 1 "@BDitta corrente"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 2 "Codice ditta " PROMPT 2 2 "Codice ditta "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 37 50 STRING F_RAGSOC 37 50
BEGIN BEGIN
PROMPT 22 2 "Rag. soc. " PROMPT 22 2 "Rag. soc. "
FLAGS "D" FLAGS "D"
END END
NUMBER F_CREDPREC 15 NUMBER F_CREDPREC 15
BEGIN BEGIN
PROMPT 1 4 "Credito inizio anno " PROMPT 1 4 "Credito inizio anno "
FLAGS "D" FLAGS "D"
END END
SPREADSHEET F_VISLIQ1 80 5 SPREADSHEET F_VISLIQ1 80 5
BEGIN BEGIN
PROMPT 1 6 "Liquidazione" PROMPT 1 6 "Liquidazione"
ITEM "V@1F#109" ITEM "V@1F#109"
ITEM "Mese@10" ITEM "Mese@10"
ITEM "Risultato@15" ITEM "Risultato@15"
ITEM "D/C" ITEM "D/C"
ITEM "IVA rimborso@15" ITEM "IVA rimborso@15"
ITEM "IVA rettifiche@15" ITEM "IVA rettifiche@15"
ITEM "D/C" ITEM "D/C"
END END
SPREADSHEET F_VISLIQ2 80 5 SPREADSHEET F_VISLIQ2 80 5
BEGIN BEGIN
PROMPT 1 12 "Versamenti" PROMPT 1 12 "Versamenti"
ITEM "V@1F#109" ITEM "V@1F#109"
ITEM "Mese@10" ITEM "Mese@10"
ITEM "Data@10" ITEM "Data@10"
ITEM "Azienda@5" ITEM "Azienda@5"
ITEM "Dipend.@5" ITEM "Dipend.@5"
ITEM "Concess.@5" ITEM "Concess.@5"
ITEM "Versamenti@15" ITEM "Versamenti@15"
ITEM "D/C" ITEM "D/C"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto mensile" -1 -1 50 10 PAGE "Prospetto mensile" -1 -1 50 10
STRING 102 10 STRING 102 10
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
NUMBER 103 15 0 NUMBER 103 15 0
BEGIN BEGIN
PROMPT 1 3 "Risultato " PROMPT 1 3 "Risultato "
END END
LIST 104 1 8 LIST 104 1 8
BEGIN BEGIN
PROMPT 1 4 "Importo a " PROMPT 1 4 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
NUMBER 105 15 NUMBER 105 15
BEGIN BEGIN
PROMPT 22 5 "IVA a rimborso " PROMPT 22 5 "IVA a rimborso "
END END
NUMBER 106 15 NUMBER 106 15
BEGIN BEGIN
PROMPT 22 6 "Debito/Credito " PROMPT 22 6 "Debito/Credito "
END END
LIST 107 1 8 LIST 107 1 8
BEGIN BEGIN
PROMPT 1 7 "Importo a " PROMPT 1 7 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON 101 10 2 BUTTON 101 10 2
BEGIN BEGIN
PROMPT -22 -1 "Calcola" PROMPT -22 -1 "Calcola"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK
PAGE "Prospetto versamenti" -1 -1 50 12 PAGE "Prospetto versamenti" -1 -1 50 12
STRING 102 10 STRING 102 10
BEGIN BEGIN
PROMPT 1 2 "Mese " PROMPT 1 2 "Mese "
END END
DATE 103 DATE 103
BEGIN BEGIN
PROMPT 1 3 "Data " PROMPT 1 3 "Data "
END END
STRING 104 5 STRING 104 5
BEGIN BEGIN
PROMPT 1 4 "Azienda " PROMPT 1 4 "Azienda "
END END
STRING 105 5 STRING 105 5
BEGIN BEGIN
PROMPT 1 5 "Dipendenza " PROMPT 1 5 "Dipendenza "
END END
STRING 106 5 STRING 106 5
BEGIN BEGIN
PROMPT 1 6 "Concessionaria " PROMPT 1 6 "Concessionaria "
END END
NUMBER 107 15 0 NUMBER 107 15 0
BEGIN BEGIN
PROMPT 1 7 "Versamenti " PROMPT 1 7 "Versamenti "
END END
LIST 108 1 8 LIST 108 1 8
BEGIN BEGIN
PROMPT 1 8 "Importo a " PROMPT 1 8 "Importo a "
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
INPUT 105 INPUT 105
OUTPUT 105 OUTPUT 105
END END
BUTTON DLG_CANCEL 10 2 BUTTON DLG_CANCEL 10 2
BEGIN BEGIN
PROMPT -13 -1 "" PROMPT -13 -1 ""
END END
BUTTON DLG_OK 10 2 BUTTON DLG_OK 10 2
BEGIN BEGIN
PROMPT -23 -1 "" PROMPT -23 -1 ""
END END
BUTTON 101 10 2 BUTTON 101 10 2
BEGIN BEGIN
PROMPT -33 -1 "Calcola" PROMPT -33 -1 "Calcola"
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK

190
cg/cg5500d.uml
View File

@ -1,95 +1,95 @@
#include "cg5500a.h" #include "cg5500a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Visualizzazione liquidazione" -1 -1 77 20 PAGE "Visualizzazione liquidazione" -1 -1 77 20
GROUPBOX DLG_NULL 79 3 GROUPBOX DLG_NULL 79 3
BEGIN BEGIN
PROMPT 0 0 "@bDitta corrente" PROMPT 0 0 "@bDitta corrente"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Codice " PROMPT 2 1 "Codice "
FLAGS "FRD" FLAGS "FRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGSOC RAGSOC OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
END END
STRING F_RAGSOC 37 50 STRING F_RAGSOC 37 50
BEGIN BEGIN
PROMPT 16 1 "Rag. soc. " PROMPT 16 1 "Rag. soc. "
FLAGS "D" FLAGS "D"
END END
BROWSEFILE F_VISFLQ 80 11 BROWSEFILE F_VISFLQ 80 11
BEGIN BEGIN
PROMPT 0 3 "" PROMPT 0 3 ""
END END
/* gruppo 1: edit rimborso */ /* gruppo 1: edit rimborso */
NUMBER F_RIMBORSO 15 0 NUMBER F_RIMBORSO 15 0
BEGIN BEGIN
PROMPT 3 16 "Rimborso infraannuale: " PROMPT 3 16 "Rimborso infraannuale: "
GROUP 1 GROUP 1
FLAGS "H" FLAGS "H"
END END
/* gruppo 2: edit rettifiche */ /* gruppo 2: edit rettifiche */
NUMBER F_RETTIFICA 15 0 NUMBER F_RETTIFICA 15 0
BEGIN BEGIN
PROMPT 2 15 "Importo rettif. " PROMPT 2 15 "Importo rettif. "
GROUP 2 GROUP 2
FLAGS "H" FLAGS "H"
END END
LIST F_DEBCRE 7 LIST F_DEBCRE 7
BEGIN BEGIN
PROMPT 35 15 " a " PROMPT 35 15 " a "
GROUP 2 GROUP 2
ITEM "D|Debito" ITEM "D|Debito"
ITEM "C|Credito" ITEM "C|Credito"
FLAGS "H" FLAGS "H"
END END
STRING F_DESCR1 60 STRING F_DESCR1 60
BEGIN BEGIN
PROMPT 2 16 "Descrizione " PROMPT 2 16 "Descrizione "
GROUP 2 GROUP 2
FLAGS "H" FLAGS "H"
END END
STRING F_DESCR2 60 STRING F_DESCR2 60
BEGIN BEGIN
PROMPT 2 17 " " PROMPT 2 17 " "
GROUP 2 GROUP 2
FLAGS "H" FLAGS "H"
END END
/* gruppo 3: edit acconto */ /* gruppo 3: edit acconto */
NUMBER F_ACCONTO 15 0 NUMBER F_ACCONTO 15 0
BEGIN BEGIN
PROMPT 3 16 "Acconto versato: " PROMPT 3 16 "Acconto versato: "
GROUP 3 GROUP 3
FLAGS "H" FLAGS "H"
END END
GROUPBOX DLG_NULL 80 5 GROUPBOX DLG_NULL 80 5
BEGIN BEGIN
PROMPT 1 14 "" PROMPT 1 14 ""
END END
ENDPAGE ENDPAGE
ENDMASK ENDMASK