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

Ho fatto troppe modifiche per poterle descrivere tutte in codesto luogo

Browse Source 
pertanto rimando chi fosse interessato ai dettagli, alla consultazione
del documento crono.doc sulla mia macchina.


git-svn-id: svn://10.65.10.50/trunk@4134 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1997-02-14 15:39:49 +00:00
parent d18a572f45
commit 6449f498db
32 changed files with 2966 additions and 2946 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
m770/771100.cpp
View File

@ -43,6 +43,7 @@ class TDati_anagrafici : public TApplication
static bool giuridica_handler(TMask_field&, KEY);
static bool anagrafica_handler(TMask_field&, KEY);
static bool anagr_dich_handler(TMask_field&, KEY);
// bottone ditta in DatiCAAF
static bool DCditta_handler(TMask_field&, KEY);
TMask* _msk;
@ -94,6 +95,7 @@ TDati_anagrafici::TDati_anagrafici(char anagrafica) : _titolo(50), _ana(toupper(
HIDDEN TDati_anagrafici& app() { return (TDati_anagrafici &) main_app(); }
bool TDati_anagrafici::codditta_hnd(TMask_field& f, KEY k)
{
if (k == K_TAB && !(f.mask().is_running()) )
@ -124,15 +126,15 @@ bool TDati_anagrafici::attivita_handler(TMask_field& m, KEY k)
body << "1" << "|";
body << m.mask().get(F_CODDITTA) << "|";
// body << m.mask().get(F_ATTIV) << "|";
// body << m.mask().get(F_ATTIV);
body << m.mask().get(F_ATTIV) << "|";
body << m.mask().get(F_ATTIV);
TMessage msg(cmd2name(appname), MSG_LN, (const char*) body);
TMessage msg(appname, MSG_LN, (const char*) body);
msg.send();
TMailbox mb;
mb.send(msg);
TExternal_app a(appname);
a.run();
m.set_focus();
xvt_statbar_set("");
@ -154,7 +156,7 @@ bool TDati_anagrafici::DCditta_handler(TMask_field& f, KEY k)
body.add(lDittaCaaf); // ditta per il campo codice ditta
body.add(lDittaCaaf); // ditta per il secondo campo codice ditta
TString16 cmd("ba4 -2");
TMessage msg(cmd2name(cmd), MSG_LN, (const char*) body);
TMessage msg(cmd, MSG_LN, (const char*) body);
msg.send();
TExternal_app a(cmd);
a.run();
@ -513,14 +515,18 @@ bool TDati_anagrafici::create()
{
_msk = new TMask ("771100c");
_msk->set_handler(F_FISICA, fisica_handler);
}
if (ScrittureContabili())
{
_msk = new TMask ("771100d");
_msk->set_handler(F_ANAGR, indirizzo);
_msk->set_handler(F_ATTIVITA, attivita_handler);
_msk->set_handler(F_ANAGRAFICA, anagrafica_handler);
_msk->set_handler(F_ANAGR, indirizzo);
_msk->set_handler(F_ATTIVITA, attivita_handler);
_msk->set_handler(F_FISICA, anagrafica_handler);
_msk->set_handler(F_GIURIDICA,anagrafica_handler);
_msk->disable(DLG_SAVEREC);
_msk->disable(DLG_CANCEL);
}
if (DatiCAAF())
@ -529,7 +535,6 @@ bool TDati_anagrafici::create()
_msk->set_handler(F_ANAGR, niscraa);
_msk->set_handler(F_GIURIDICA, giuridica_handler);
_msk->set_handler(F_DITTACAAF, ditta_caaf);
// bottone ditte
_msk->set_handler(DCF_DITTA, DCditta_handler);
}
@ -575,6 +580,11 @@ bool TDati_anagrafici::main_loop()
_rel->lfile().put("CODDITTA", _codditta);
_rel->read();
_msk->autoload(*_rel);
// controllo se indicato rappresentante
if (Rappresentante() && (_msk->get_long(F_ANAGR) == 0L))
message_box("Il rappresentante non e' stato indicato.");
tasto = _msk->run();
switch (tasto)

1
m770/771100.h
View File

@ -66,7 +66,6 @@
#define F_PTELCS 262
#define F_TELCS 263
#define F_ATTIVITA 264
#define F_ANAGRAFICA 265
// Campi maschera dati CAAF 771100e.uml

51
m770/771100c.uml
View File

@ -1,22 +1,16 @@
// 771100c.uml - Dati rappresentante
#include "771100.h"
//
// Lista modifiche
//
// 2.4.96 Aggiunto numero di telefono
//
TOOLBAR "" 0 20 0 2
BUTTON F_FISICA 10 2
BEGIN
PROMPT -14 -1 "~Fisiche"
PROMPT -14 -1 "F~isiche"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -24 -1 ""
PROMPT -24 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
@ -36,7 +30,7 @@ END
ENDPAGE
PAGE "Dati relativi al rappresentante" -1 -1 78 18
PAGE "Rappresentante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
BEGIN
@ -68,7 +62,6 @@ BEGIN
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
FIELD LF_NDITTE->RAPPR
CHECKTYPE NORMAL
JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F"
JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
@ -97,44 +90,6 @@ BEGIN
OUTPUT F_TELRF LF_ANAG->TELRF
END
/*
NUMBER F_ANAGR 5
BEGIN
PROMPT 1 4 "Codice rappresentante "
USE LF_ANAGFIS KEY 1
INPUT CODANAGR F_ANAGR
JOIN LF_ANAG TO LF_ANAGFIS INTO CODANAGR=CODANAGR TIPOA="F"
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
JOIN LF_COMUNI TO LF_ANAG ALIAS 1 INTO COM==COMRES
JOIN LF_COMUNI TO LF_ANAG ALIAS 2 INTO COM==COMRF
DISPLAY "Codice" CODANAGR
DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
OUTPUT F_COFI LF_ANAG->COFI
OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
OUTPUT F_SESSO SESSO
OUTPUT F_DATANASC DATANASC
OUTPUT F_COMNASC LF_COMUNI->DENCOM
OUTPUT F_PROVNASC LF_COMUNI->PROVCOM
OUTPUT F_INDRES LF_ANAG->INDRES
OUTPUT F_CIVRES LF_ANAG->CIVRES
OUTPUT F_CAPRES LF_ANAG->CAPRES
OUTPUT F_INDRF LF_ANAG->INDRF
OUTPUT F_CIVRF LF_ANAG->CIVRF
OUTPUT F_CAPRF LF_ANAG->CAPRF
OUTPUT F_COMRES 1@->DENCOM
OUTPUT F_PROVRES 1@->PROVCOM
OUTPUT F_COMRF 2@->DENCOM
OUTPUT F_PROVRF 2@->PROVCOM
OUTPUT F_DOMFISC LF_ANAG->VARSLORES
OUTPUT F_ANAGR LF_ANAGFIS->CODANAGR
OUTPUT F_PTELRF LF_ANAG->PTELRF
OUTPUT F_TELRF LF_ANAG->TELRF
FIELD LF_BASE->RAPPR
CHECKTYPE NORMAL
FLAGS "R"
END
*/
STRING F_COFI 16
BEGIN
PROMPT 1 5 "Codice fiscale "

11
m770/771100d.uml
View File

@ -2,9 +2,14 @@
TOOLBAR "" 0 20 0 2
BUTTON F_ANAGRAFICA 10 2
BUTTON F_FISICA 10 2
BEGIN
PROMPT -15 -1 "~Anagrafica"
PROMPT -15 -1 "F~isiche"
END
BUTTON F_GIURIDICA 10 2
BEGIN
PROMPT -15 -1 "~Giuridiche"
END
BUTTON F_ATTIVITA 10 2
@ -81,7 +86,9 @@ LIST ASCF_TIPOA 9
BEGIN
PROMPT 1 5 "Tipo persona "
ITEMS "G|Societa'"
MESSAGE HIDE,F_FISICA|SHOW,F_GIURIDICA
ITEMS "F|Fisica"
MESSAGE SHOW,F_FISICA|HIDE,F_GIURIDICA
FLAGS "D"
END

5
m770/771100g.uml
View File

@ -8,14 +8,15 @@ BUTTON F_BTN_GIURIDICA 10 2
BEGIN
PROMPT -14 -1 "~Giuridiche"
END
BUTTON F_BTN_FISICA 10 2
BEGIN
PROMPT -14 -1 "~Fisiche"
PROMPT -14 -1 "F~isiche"
END
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -24 -1 ""
PROMPT -24 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN

6
m770/771230e.uml
View File

@ -21,7 +21,7 @@ END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
FLAGS "GRDP"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
@ -33,13 +33,13 @@ END
STRING F_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
FLAGS "DP"
END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
FLAGS "DRP"
END
TEXT DLG_NULL

8
m770/771230i.uml
View File

@ -27,7 +27,7 @@ END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
FLAGS "GRDP"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
@ -39,13 +39,13 @@ END
STRING F_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
FLAGS "DP"
END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
FLAGS "DRP"
END
TEXT DLG_NULL
@ -103,7 +103,7 @@ END
NUMBER F_CODANAGRCOM 5
BEGIN
PROMPT 15 8 ""
PROMPT 16 8 ""
USE LF_ANAG
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRCOM

4
m770/771230m.uml
View File

@ -13,7 +13,7 @@ END
NUMBER PE1F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
FLAGS "GRDP"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
@ -25,7 +25,7 @@ END
STRING PE1F_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
FLAGS "DP"
END
STRING PE1F_CODCAUS 2

39
m770/771231.cpp
View File

@ -89,7 +89,6 @@ class TQuadroF : public TRelation_application
void fill_ss(TMask& m);
void riempi_prospetto(TMask& m, const char prosp);
int re_write(const TMask& m, bool re);
int elimina();
public:
TString16 _quadro, _aliq_caus;
@ -162,7 +161,7 @@ void TQuadroF::init_insert_mode (TMask& m)
void TQuadroF::init_modify_mode (TMask& m)
{
m.disable(DLG_DELREC); // disabilito Elimina nella toolbar
// m.disable(DLG_DELREC); // disabilito Elimina nella toolbar
}
void TQuadroF::init_query_mode (TMask& m)
@ -658,41 +657,25 @@ int TQuadroF::re_write(const TMask& m, bool re)
return err_b;
}
int TQuadroF::elimina()
{
int err;
// eliminazione righe del quadro
TRectype& recrf = _rf->curr();
recrf.zero();
recrf.put("CODDITTA",_codditta);
_rf->setkey(1);
for (err = _rf->read(_isequal, _lock); // stato iniziale
err == NOERR; // condizione di uscita
err = _rf->read(_isequal, _lock)) // incremento
{
_rf->remove(); // eliminazione riga quadro
}
if (err == _iskeynotfound)
_rf->reread();
return err;
}
bool TQuadroF::remove()
{
bool ok, ok_a, ok_b, ok_c, ok_d;
ok = TRelation_application::remove();
ok_b = _prosp_b->remove();
ok_b = _prosp_b->remove() == NOERR;
_prosp_b->destroy_rows();
if (_quadro == "F")
{
ok_a = _prosp_a->remove();
ok_c = _prosp_c->remove();
ok_d = _prosp_d->remove();
return ok && ok_a && ok_b && ok_c && ok_d;
ok_a = _prosp_a->remove() == NOERR;
_prosp_a->destroy_rows();
ok_c = _prosp_c->remove() == NOERR;
_prosp_c->destroy_rows();
ok_d = _prosp_d->remove() == NOERR;
_prosp_d->destroy_rows();
return _registra = ok && ok_a && ok_b && ok_c && ok_d;
}
else
return ok && ok_b;
return _registra = ok && ok_b;
}
bool TQuadroF::a_notify(TSheet_field& s, int r, KEY k)

16
m770/771232.cpp
View File

@ -128,7 +128,7 @@ void TQuadroG::init_insert_mode (TMask& m)
void TQuadroG::init_modify_mode (TMask& m)
{
m.disable(DLG_DELREC);
}
void TQuadroG::init_query_mode (TMask& m)
@ -303,6 +303,7 @@ bool TQuadroG::user_create()
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
_msk->set_handler(DLG_DISTINTA, exec_distinta);
_msk->set_handler(mainmsk_handler);
TSheet_field& p1 = (TSheet_field&) _msk->field(F_P1);
p1.set_notify(p1_notify);
p1.sheet_mask().set_handler(NUM_AZ, calc_amm);
@ -670,8 +671,8 @@ int TQuadroG::rewrite(const TMask& m)
bool TQuadroG::remove()
{
const bool ok = TRelation_application::remove();
return ok;
_registra = TRelation_application::remove();
return _registra;
}
bool TQuadroG::p1_notify(TSheet_field& s, int r, KEY k)
@ -773,3 +774,12 @@ bool TQuadroG::pIII_notify(TSheet_field& s, int r, KEY k)
return TRUE;
}
bool TQuadroG::mainmsk_handler(TMask& m, KEY k)
{
if (k == K_ESC)
{
TOperable_field& f = m.focus_field();
m.set_focus_field(f.dlg());
}
return TRUE;
}

6
m770/771232.h
View File

@ -32,6 +32,7 @@ class TQuadroG : public TRelation_application
static bool calc_amm(TMask_field& f, KEY k);
static bool exec_distinta(TMask_field& f, KEY k);
static void update_totals(TSheet_field& f, int ss);
static bool mainmsk_handler(TMask& m, KEY k);
protected:
virtual bool user_create();
virtual bool user_destroy();
@ -113,8 +114,9 @@ class TQuadroG1 : public TRelation_application
TString16 _quadro;
TString80 _title;
bool _registra;
static bool p1_notify(TSheet_field& s, int r, KEY k);
static void update_totals(TSheet_field& f);
static bool p1_notify(TSheet_field& s, int r, KEY k);
static void update_totals(TSheet_field& f);
static bool mainmsk_handler(TMask& m, KEY k);
protected:
virtual bool user_create();
virtual bool user_destroy();

2
m770/771234a.h
View File

@ -188,4 +188,4 @@
#define F_DATADELIB 293
#define F_DATADISTR 294
#define DLG_AZZERA 295

4
m770/771234b.uml
View File

@ -50,9 +50,9 @@ BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_NULL 9 2
BUTTON DLG_AZZERA 9 2
BEGIN
PROMPT -33 -1 "Azzera"
PROMPT -33 -1 "A~zzera"
MESSAGE RESET,1@
END

4
m770/771234c.uml
View File

@ -53,9 +53,9 @@ BEGIN
PROMPT -23 -1 ""
END
BUTTON DLG_NULL 9 2
BUTTON DLG_AZZERA 9 2
BEGIN
PROMPT -33 -1 "Azzera"
PROMPT -33 -1 "A~zzera"
MESSAGE RESET,1@
END

8
m770/774200.cpp
View File

@ -1698,12 +1698,8 @@ void TRiporti::calcola_riporti_F1(TCursor* cur, const long dich)
TString scritta(60);
scritta.format("Calcolo riporti del quadro F-1 per la ditta %ld", _codditta);
TLocalisamfile f1(LF_QUAF1);
f1.zero();
f1.put("CODDITTA", _codditta);
f1.read();
f1a1 = f1.get_real("F1_A1");
f1a2 = f1.get_real("F1_A2");
f1a1 = cur->curr().get_real("F1_A1");
f1a2 = cur->curr().get_real("F1_A2");
almeno_una_riga = (f1a1 != ZERO) || (f1a2 != ZERO);
rf = new TLocalisamfile(LF_RIGHEF1);

60
m770/776100.cpp
View File

@ -25,7 +25,7 @@
HIDDEN TString80 __tmp;
HIDDEN const int NUM_QUADRI = 26;
HIDDEN const int QUADRO_L = 30;
HIDDEN const int QUADRO_L = 27;
typedef enum { grassetto=0, sottolineato, piano } stile;
@ -38,7 +38,8 @@ class TManutenzione_quadri : public TApplication
TLocalisamfile* _base, *_basebis;
int _anno_dic;
bool _soci;
long _codditta, _coddic;
long _codditta, _coddic;
TString _qcomp_prev;
protected:
virtual bool create();
@ -194,6 +195,9 @@ bool TManutenzione_quadri::create()
_rel = new TRelation(LF_BASE);
_rel->add(LF_BASEBIS, "CODDITTA=CODDITTA");
// inizializza stato precedente quadri per ottimizzazione enphasize
_qcomp_prev.spaces(NUM_QUADRI+1);
load_mask(0);
dispatch_e_menu (BAR_ITEM(1));
@ -328,35 +332,49 @@ void TManutenzione_quadri::inibith(TString& qric, TMask& m)
//
// Metto in grassetto i quadri gia' compilati
// ma solo quelli variati dal ciclo precedente
// Il quadro L non ha il flag di compilato sul base.
//
void TManutenzione_quadri::enphasize(TString& qcomp, TMask& m)
void TManutenzione_quadri::enphasize(TString& qcomp,TMask& m)
{
int start_dlg = DLG_NULL_A;
const char* prompt;
const int L = 19;
int dlg = 0;
int start_dlg = DLG_NULL_A;
const char* prompt;
const int L = 19;
int dlg = 0;
char qcompL;
// quadri fino al quadro L non compreso
for (int i = 0; i < L; i++)
{
dlg = start_dlg + (i * 2);
prompt = make_prompt(i, qcomp[i] == 'X' ? grassetto : piano);
m.field(dlg).set_prompt(prompt);
if (qcomp[i] != _qcomp_prev[i])
{
dlg = start_dlg + (i * 2);
prompt = make_prompt(i, qcomp[i] == 'X' ? grassetto : piano);
m.field(dlg).set_prompt(prompt);
_qcomp_prev[i] = qcomp[i];
}
}
prompt = esiste_record_L(get_firm_770(), _anno_dic) ?
make_prompt(QUADRO_L, grassetto) :
make_prompt(QUADRO_L, piano);
dlg = start_dlg + (i * 2);
m.field(dlg).set_prompt(prompt);
// quadro L
qcompL = esiste_record_L(get_firm_770(), _anno_dic) ? 'X' : ' ';
if (qcompL != _qcomp_prev[QUADRO_L])
{
dlg = start_dlg + (i * 2);
prompt = make_prompt(QUADRO_L, qcompL == 'X' ? grassetto : piano);
m.field(dlg).set_prompt(prompt);
_qcomp_prev[QUADRO_L] = qcompL;
}
// rimanenti quadri
for (i = L+1; i < NUM_QUADRI; i++)
{
int dlg = start_dlg + (i * 2);
// Controlla qcomp[i-1] perche' in QCOMP non c'e' il flag del quadro L
prompt = make_prompt(i-1, qcomp[i-1] == 'X' ? grassetto : piano);
m.field(dlg).set_prompt(prompt);
// Controlla qcomp[i-1] perche' in QCOMP non c'e' il flag del quadro L
if (qcomp[i-1] != _qcomp_prev[i-1])
{
int dlg = start_dlg + (i * 2);
prompt = make_prompt(i-1, qcomp[i-1] == 'X' ? grassetto : piano);
m.field(dlg).set_prompt(prompt);
_qcomp_prev[i-1] = qcomp[i-1];
}
}
}

14
m770/776100b.uml
View File

@ -1060,7 +1060,7 @@ BEGIN
PROMPT 39 ROW4 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E,D|K_TAB,RILEGGI_QUADRI
FLAGS "H"
FLAGS "HD"
GROUP MENU_STAMPEDICH
END
@ -1076,7 +1076,7 @@ BEGIN
PROMPT 39 ROW5 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E1,D|K_TAB,RILEGGI_QUADRI
FLAGS "H"
FLAGS "HD"
GROUP MENU_STAMPEDICH
END
@ -1092,7 +1092,7 @@ BEGIN
PROMPT 39 ROW6 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E2,D|K_TAB,RILEGGI_QUADRI
FLAGS "H"
FLAGS "HD"
GROUP MENU_STAMPEDICH
END
// Fine terza colonna
@ -1110,7 +1110,7 @@ BEGIN
PROMPT 58 ROW1 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI
FLAGS "H"
FLAGS "HD"
GROUP MENU_STAMPEDICH
END
@ -1126,7 +1126,7 @@ BEGIN
PROMPT 58 ROW2 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI
FLAGS "H"
FLAGS "HD"
GROUP MENU_STAMPEDICH
END
@ -1142,7 +1142,7 @@ BEGIN
PROMPT 58 ROW3 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI
FLAGS "H"
FLAGS "HD"
GROUP MENU_STAMPEDICH
END
@ -1174,7 +1174,7 @@ BEGIN
PROMPT 58 ROW5 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI
FLAGS "H"
FLAGS "HD"
GROUP MENU_STAMPEDICH
END

15
m770/776300.cpp
View File

@ -24,7 +24,7 @@ class TSelezioneDich : public TConfig_application
int _anno_dic;
TRelation* _nditte;
long _da_cod, _a_cod;
bool _builded_nomiditte;
bool _builded_nomiditte;
void build_nomiditte();
void build_ditte_sheet();
@ -88,7 +88,7 @@ bool TSelezioneDich::user_create()
"@1|Cod.@5|Ragione Sociale@50");
_ditte_sel = new TArray_sheet(11, 1, 67, 20, "Dichiarazioni selezionate",
"@1|Cod.@5|Ragione Sociale@50", 0);
"Cod.@5|Ragione Sociale@50", 0x10);
_builded_nomiditte = FALSE;
@ -456,21 +456,20 @@ void TSelezioneDich::build_ditte_sheet()
// gia' selezionate
void TSelezioneDich::build_ditte_sel_sheet()
{
long codditta = 0L;
// build sheet
_ditte_sel->destroy();
for (int i = 0; i < _nomiditte.items(); i++)
{
// copia da quelle selezionate
TToken_string* d = new TToken_string(64);
*d = (TToken_string&)_nomiditte[i];
codditta = d->get_long(1);
// elimina il token riservato alla selezione
d->destroy(0);
// se selezionata o era nei parametri precedenti
// se selezionata o era nei parametri precedenti
if (_selected[i])
{
const long pos = _ditte_sel->add(d);
// _ditte_sel->check(pos);
}
}
}

2
m770/776300a.uml
View File

@ -60,7 +60,7 @@ END
STRING F_SELECT 5
BEGIN
PROMPT 2 8 "Dichiarazioni selezionate "
FLAGS "D"
FLAGS "DR"
END
NUMBER F_ANNODIC 4

17
m770/77g1.cpp
View File

@ -32,8 +32,7 @@ void TQuadroG1::init_insert_mode (TMask& m)
void TQuadroG1::init_modify_mode (TMask& m)
{
// init_mask(m);
m.disable(DLG_DELREC);
}
int TQuadroG1::read(TMask& m)
@ -98,6 +97,7 @@ bool TQuadroG1::user_create()
_msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
_msk->set_handler(mainmsk_handler);
TSheet_field& p1 = (TSheet_field&) _msk->field(F_PI);
p1.set_notify(p1_notify);
return TRUE;
@ -250,8 +250,8 @@ int TQuadroG1::rewrite(const TMask& m)
bool TQuadroG1::remove()
{
const bool ok = TRelation_application::remove();
return ok;
_registra = TRelation_application::remove();
return _registra;
}
bool TQuadroG1::p1_notify(TSheet_field& s, int r, KEY k)
@ -277,3 +277,12 @@ bool TQuadroG1::p1_notify(TSheet_field& s, int r, KEY k)
return TRUE;
}
bool TQuadroG1::mainmsk_handler(TMask& m, KEY k)
{
if (k == K_ESC)
{
TOperable_field& f = m.focus_field();
m.set_focus_field(f.dlg());
}
return TRUE;
}

4
m770/77qn.uml
View File

@ -46,8 +46,8 @@ BEGIN
DISPLAY "N°" NPROG
DISPLAY "Mese" MESERIF
DISPLAY "Anno" ANNORIF
DISPLAY "Imposta rimborsata" IMPOSTA
DISPLAY "Compensi per l'assistenza" COMPENSI
DISPLAY "Imposta rimborsata" IMPOSTA
DISPLAY "Compensi per l'assistenza" COMPENSI
OUTPUT QNF_NPROG NPROG
OUTPUT QNF_COMPENSI COMPENSI
OUTPUT QNF_IMPOSTA IMPOSTA

6
m770/77qp.uml
View File

@ -53,11 +53,11 @@ BEGIN
INPUT NPROG QPF_NPROG
DISPLAY "N°" NPROG
DISPLAY "Imposta versata" IMPOSTA
DISPLAY "Data versamento" DATAVERS
DISPLAY "Tipo" TIPOVERS
DISPLAY "Codice tributo" CODTRIB
DISPLAY "Interessi dipendente" INTERDIP
DISPLAY "Interessi datore di lavoro" INTERDAT
DISPLAY "Tipo" TIPOVERS
DISPLAY "Codice tributo" CODTRIB
DISPLAY "Data versamento" DATAVERS
DISPLAY "Serie/ABI" SERIE
DISPLAY "Numero/Bollettino/CAB" NUMERO
OUTPUT QPF_NPROG NPROG

4
m770/77qq.uml
View File

@ -46,10 +46,10 @@ BEGIN
DISPLAY "N°" NPROG
DISPLAY "Mese" MESEPAG
DISPLAY "Anno" ANNOPAG
DISPLAY "Cod.reg." CODREG
DISPLAY "Interessi o soprattasse" INTERESSI
DISPLAY "Contributo versato" CONTVERS
DISPLAY "Contributo rimborsato" CONTRIMB
DISPLAY "Interessi o soprattasse" INTERESSI
DISPLAY "Cod.reg." CODREG
OUTPUT QQF_NPROG NPROG
OUTPUT QQF_CONTRIMB CONTRIMB
OUTPUT QQF_CONTVERS CONTVERS

4
m770/77qr.uml
View File

@ -46,8 +46,8 @@ BEGIN
DISPLAY "N°" NPROG
DISPLAY "Mese" MESERIF
DISPLAY "Anno" ANNORIF
DISPLAY "Imposta rimborsata" IMPRIMB
DISPLAY "Compensi per l'assistenza" COMPENSI
DISPLAY "Imposta rimborsata" IMPRIMB
DISPLAY "Compensi per l'assistenza" COMPENSI
OUTPUT QRF_NPROG NPROG
OUTPUT QRF_COMPENSI COMPENSI
OUTPUT QRF_IMPOSTA IMPRIMB

6
m770/77qs.uml
View File

@ -53,11 +53,11 @@ BEGIN
INPUT NPROG QSF_NPROG
DISPLAY "N°" NPROG
DISPLAY "Imposta versata" IMPOSTA
DISPLAY "Data versamento" DATAVERS
DISPLAY "Tipo" TIPOVERS
DISPLAY "Codice tributo" CODTRIB
DISPLAY "Interessi dipendente" INTERDIP
DISPLAY "Interessi datore di lavoro" INTERDAT
DISPLAY "Tipo" TIPOVERS
DISPLAY "Codice tributo" CODTRIB
DISPLAY "Data versamento" DATAVERS
DISPLAY "Serie/ABI" SERIE
DISPLAY "Numero/Bollettino/CAB" NUMERO
OUTPUT QSF_NPROG NPROG

4
m770/77qt.uml
View File

@ -46,10 +46,10 @@ BEGIN
DISPLAY "N°" NPROG
DISPLAY "Mese" MESEPAG
DISPLAY "Anno" ANNOPAG
DISPLAY "Cod.reg." CODREG
DISPLAY "Interessi o soprattasse" INTERESSI
DISPLAY "Contributo versato" CONTVERS
DISPLAY "Contributo rimborsato" CONTRIMB
DISPLAY "Interessi o soprattasse" INTERESSI
DISPLAY "Cod.reg." CODREG
OUTPUT QTF_NPROG NPROG
OUTPUT QTF_CONTRIMB CONTRIMB
OUTPUT QTF_CONTVERS CONTVERS

44
m770/batbca7.h
View File

@ -1,27 +1,27 @@
// batbca7.h - Tabella causali 770
#define F_CODCAUS 100
#define F_CODTRIB 101
#define F_DESCR1 102
#define F_QUADRAT 103
#define F_QUADRCE2 104
#define F_ASSRIT 105
#define F_IC 106
#define F_CT 107
#define F_PERASS 108
#define F_PERRIT 109
#define F_ARTBIL 110
#define F_DESCR2 111
#define F_CODQUA 112
// Aggiunte 96
#define TCF_CAUSD 113
#define TCF_CAUSD1 114
#define TCF_BINPS 115
#define TCF_PERCINPS 116
#define TCF_ASSIMPINPS 117
#define TCF_COMMINPS 118
#define TCF_PERCASSPREV 119
#define F_CODCAUS 100
#define F_CODTRIB 101
#define F_DESCR1 102
#define F_QUADRAT 103
#define F_QUADRCE2 104
#define F_ASSRIT 105
#define F_IC 106
#define F_CT 107
#define F_PERASS 108
#define F_PERRIT 109
#define F_ARTBIL 110
#define F_DESCR2 111
#define F_CODQUA 112
#define TCF_CAUSD 113
#define TCF_CAUSD1 114
#define TCF_BINPS 115
#define TCF_PERCINPS 116
#define TCF_ASSIMPINPS 117
#define TCF_COMMINPS 118
#define TCF_PERCASSPREV 119
#define TCF_CAUSD_DESCR 120
#define TCF_CAUSD1_DESCR 121
#define G_INPS 10
#define INPS_GROUP 7

85
m770/batbca7.uml
View File

@ -17,10 +17,11 @@ BEGIN
HELP "Inserire il codice della causale"
USE %CA7
INPUT CODTAB F_CODCAUS
DISPLAY "Codice causale " CODTAB
DISPLAY "Codice tributo " I0
DISPLAY "Cod.caus." CODTAB
DISPLAY "Cod.trib." I0
DISPLAY "Art.bil." I3
DISPLAY "Quadro " S1
DISPLAY "Descrizione @60" S0
DISPLAY "Codice quadro " S1
OUTPUT F_CODCAUS CODTAB
OUTPUT F_DESCR2 S0
OUTPUT F_CODTRIB I0
@ -151,7 +152,7 @@ BEGIN
FIELD LF_TABCOM->S1
END
STRING F_DESCR1 35
STRING F_DESCR1 60 35
BEGIN
PROMPT 1 4 "Descrizione "
HELP "Inserire la descrizione della causale"
@ -171,47 +172,69 @@ BEGIN
MESSAGE COPY,F_DESCR1,1,22
END
LISTBOX TCF_CAUSD 1 62
STRING TCF_CAUSD 1
BEGIN
PROMPT 1 5 "Causale D "
ITEM "|"
ITEM "A|A prestaz. di lav. aut. ... nell’es. arti o prof. abituale"
ITEM "B|B prestaz. rese da amministratori, sindaci e revisori..."
ITEM "C|C prestaz. rese da collaboratori a giornali, riviste, ..."
ITEM "D|D prestaz. rese da partecipanti a collegi e commissioni"
ITEM "E|E prestaz. rese dagli sportivi con contratto di lav. autonomo"
ITEM "F|F prestaz. ... di rapp. di coll. coord. e c. diversi dai prec"
ITEM "G|G utiliz. economica, da parte dell’autore o dell’inventore..."
ITEM "H|H utili ... da contratti di associazione in partecipazioni..."
ITEM "I|I utili ... ai soci promot. e/o fond. delle soc. di capitale"
ITEM "L|L per la levata di protesti cambiari da parte dei segretar..."
ITEM "M|M utiliz. economica, ... di soggetto diverso dall’autore o..."
ITEM "N|N indennità corrisp. per la cessaz. di rapporti di coll..."
ITEM "P|P indennità corrisp. per la cessaz. dei rapporti di agenzia"
ITEM "Q|Q indennità corrisp. per la cessaz. da funzioni notarili"
ITEM "R|R indennità corrisp. per la cessaz. di attività sportiva prof"
ITEM "S|S indennità di trasf. o di rimborso forfettario di spese..."
ITEM "T|T altro titolo diverso dai precedenti"
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSD
ITEM " | "
ITEM "A|prestaz. di lav. aut. ... nell’es. arti o prof. abituale"
ITEM "B|prestaz. rese da amministratori, sindaci e revisori..."
ITEM "C|prestaz. rese da collaboratori a giornali, riviste, ..."
ITEM "D|prestaz. rese da partecipanti a collegi e commissioni"
ITEM "E|prestaz. rese dagli sportivi con contratto di lav. autonomo"
ITEM "F|prestaz. ... di rapp. di coll. coord. e c. diversi dai prec"
ITEM "G|utiliz. economica, da parte dell’autore o dell’inventore..."
ITEM "H|utili ... da contratti di associazione in partecipazioni..."
ITEM "I|utili ... ai soci promot. e/o fond. delle soc. di capitale"
ITEM "L|per la levata di protesti cambiari da parte dei segretar..."
ITEM "M|utiliz. economica, ... di soggetto diverso dall’autore o..."
ITEM "N|indennità corrisp. per la cessaz. di rapporti di coll..."
ITEM "P|indennità corrisp. per la cessaz. dei rapporti di agenzia"
ITEM "Q|indennità corrisp. per la cessaz. da funzioni notarili"
ITEM "R|indennità corrisp. per la cessaz. di attività sportiva prof"
ITEM "S|indennità di trasf. o di rimborso forfettario di spese..."
ITEM "T|altro titolo diverso dai precedenti"
OUTPUT TCF_CAUSD
OUTPUT TCF_CAUSD_DESCR
FIELD LF_TABCOM->S2
FLAGS "D"
GROUP GR_CAUDD1
END
LISTBOX TCF_CAUSD1 1 62
STRING TCF_CAUSD_DESCR 60
BEGIN
PROMPT 16 5 ""
FLAGS "D"
GROUP GR_CAUDD1
END
STRING TCF_CAUSD1 1
BEGIN
PROMPT 1 6 "Causale D1 "
ITEM "|"
ITEM "A|A Agente o rappresentante di commercio monomadatario"
ITEM "B|B Agente o rappresentate plurimandatario"
ITEM "C|C Commissionario"
ITEM "D|D Mediatore"
ITEM "E|E Procacciatore d'affari"
ITEM "F|F Per somme assoggettate a ritenuta a titolo d'imposta"
SHEET "Codice|Descrizione@60"
INPUT TCF_CAUSD1
ITEM " | "
ITEM "A|Agente o rappresentante di commercio monomadatario"
ITEM "B|Agente o rappresentate plurimandatario"
ITEM "C|Commissionario"
ITEM "D|Mediatore"
ITEM "E|Procacciatore d'affari"
ITEM "F|Per somme assoggettate a ritenuta a titolo d'imposta"
OUTPUT TCF_CAUSD1
OUTPUT TCF_CAUSD1_DESCR
FIELD LF_TABCOM->S3
FLAGS "D"
GROUP GR_CAUDD1
END
STRING TCF_CAUSD1_DESCR 60
BEGIN
PROMPT 16 6 ""
FLAGS "D"
GROUP GR_CAUDD1
END
BOOLEAN F_ASSRIT
BEGIN
PROMPT 1 8 "Somme assoggettate a titolo di ritenute d'acconto"

5
m770/batbcaf.uml
View File

@ -14,10 +14,13 @@ BEGIN
USE %CAF
CHECKTYPE REQUIRED
INPUT CODTAB F_CODCAAF
DISPLAY "Codice CAA " CODTAB
DISPLAY "Cod.CAA " CODTAB
DISPLAY "Denominazione@50" S0
DISPLAY "Codice fiscale@11" S1
DISPLAY "N.iscr.albo" I1
OUTPUT F_CODCAAF CODTAB
KEY 1
FLAGS "RZ"
END
STRING F_DENOM 50

9
m770/batbent.uml
View File

@ -16,19 +16,20 @@ BEGIN
USE %ENT
CHECKTYPE REQUIRED
INPUT CODTAB F_CODENTE
DISPLAY "Codice Ente " CODTAB
DISPLAY "Descrizione@60 " S0
DISPLAY "Cod.Ente" CODTAB
DISPLAY "Denominazione@60 " S0
OUTPUT F_CODENTE CODTAB
OUTPUT F_DESCR S0
KEY 1
FLAGS "RZ"
END
STRING F_DESCR 60
BEGIN
PROMPT 4 3 "Descrizione "
PROMPT 4 3 "Denominazione "
FIELD LF_TABCOM->S0
HELP "Inserire la descrizione dell' Ente"
WARNING "Manca la descrizione"
WARNING "Manca la denominazione"
CHECKTYPE REQUIRED
END

6
m770/generic.cpp
View File

@ -746,11 +746,9 @@ bool TGeneric_application::menu(MENU_TAG)
TMask m(_maskname);
// if (m.id2pos(F_CODDITTA) > 0)
// m.set_handler(F_CODDITTA, codditta77_handler);
k = m.run();
if (k == K_QUIT) stop_run();
if (k == K_QUIT || k == K_ESC) stop_run();
return k != K_QUIT;
}

12
m770/menu_st.uml
View File

@ -9,7 +9,6 @@ BEGIN
GROUP 1
END
// Il menu' viene richiamato nell'handler di questo bottone
BUTTON B_SELDIC 1 1
BEGIN
PROMPT 1 3 ""
@ -256,6 +255,7 @@ BEGIN
PROMPT 39 ROW4 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E,S
FLAG "D"
GROUP 1
END
@ -270,6 +270,7 @@ BEGIN
PROMPT 39 ROW5 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E1,S
FLAG "D"
GROUP 1
END
@ -284,6 +285,7 @@ BEGIN
PROMPT 39 ROW6 ""
PICTURE 123
MESSAGE RUN,772MOD,-4,E2,S
FLAG "D"
GROUP 1
END
// Fine terza colonna
@ -300,6 +302,7 @@ BEGIN
PROMPT 58 ROW1 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1
FLAG "D"
GROUP 1
END
@ -314,6 +317,7 @@ BEGIN
PROMPT 58 ROW2 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1
FLAG "D"
GROUP 1
END
@ -328,6 +332,7 @@ BEGIN
PROMPT 58 ROW3 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1
FLAG "D"
GROUP 1
END
@ -356,6 +361,7 @@ BEGIN
PROMPT 58 ROW5 ""
PICTURE 123
// MESSAGE RUN,771MOD,-1
FLAG "D"
GROUP 1
END
@ -374,9 +380,9 @@ BEGIN
END
// Fine QUARTA colonna
BUTTON DLG_QUIT 20 2
BUTTON DLG_CANCEL 20 2
BEGIN
PROMPT -12 -1 "Fine"
PROMPT -22 -1 "Menu precedente"
END
ENDPAGE