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 giuridica_handler(TMask_field&, KEY);
static bool anagrafica_handler(TMask_field&, KEY); static bool anagrafica_handler(TMask_field&, KEY);
static bool anagr_dich_handler(TMask_field&, KEY); static bool anagr_dich_handler(TMask_field&, KEY);
// bottone ditta in DatiCAAF // bottone ditta in DatiCAAF
static bool DCditta_handler(TMask_field&, KEY); static bool DCditta_handler(TMask_field&, KEY);
TMask* _msk; 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(); } HIDDEN TDati_anagrafici& app() { return (TDati_anagrafici &) main_app(); }
bool TDati_anagrafici::codditta_hnd(TMask_field& f, KEY k) bool TDati_anagrafici::codditta_hnd(TMask_field& f, KEY k)
{ {
if (k == K_TAB && !(f.mask().is_running()) ) 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 << "1" << "|";
body << m.mask().get(F_CODDITTA) << "|"; 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); TExternal_app a(appname);
a.run(); a.run();
m.set_focus(); m.set_focus();
xvt_statbar_set(""); 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 campo codice ditta
body.add(lDittaCaaf); // ditta per il secondo campo codice ditta body.add(lDittaCaaf); // ditta per il secondo campo codice ditta
TString16 cmd("ba4 -2"); TString16 cmd("ba4 -2");
TMessage msg(cmd2name(cmd), MSG_LN, (const char*) body); TMessage msg(cmd, MSG_LN, (const char*) body);
msg.send(); msg.send();
TExternal_app a(cmd); TExternal_app a(cmd);
a.run(); a.run();
@ -513,14 +515,18 @@ bool TDati_anagrafici::create()
{ {
_msk = new TMask ("771100c"); _msk = new TMask ("771100c");
_msk->set_handler(F_FISICA, fisica_handler); _msk->set_handler(F_FISICA, fisica_handler);
} }
if (ScrittureContabili()) if (ScrittureContabili())
{ {
_msk = new TMask ("771100d"); _msk = new TMask ("771100d");
_msk->set_handler(F_ANAGR, indirizzo); _msk->set_handler(F_ANAGR, indirizzo);
_msk->set_handler(F_ATTIVITA, attivita_handler); _msk->set_handler(F_ATTIVITA, attivita_handler);
_msk->set_handler(F_ANAGRAFICA, anagrafica_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()) if (DatiCAAF())
@ -529,7 +535,6 @@ bool TDati_anagrafici::create()
_msk->set_handler(F_ANAGR, niscraa); _msk->set_handler(F_ANAGR, niscraa);
_msk->set_handler(F_GIURIDICA, giuridica_handler); _msk->set_handler(F_GIURIDICA, giuridica_handler);
_msk->set_handler(F_DITTACAAF, ditta_caaf); _msk->set_handler(F_DITTACAAF, ditta_caaf);
// bottone ditte
_msk->set_handler(DCF_DITTA, DCditta_handler); _msk->set_handler(DCF_DITTA, DCditta_handler);
} }
@ -575,6 +580,11 @@ bool TDati_anagrafici::main_loop()
_rel->lfile().put("CODDITTA", _codditta); _rel->lfile().put("CODDITTA", _codditta);
_rel->read(); _rel->read();
_msk->autoload(*_rel); _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(); tasto = _msk->run();
switch (tasto) switch (tasto)

1
m770/771100.h
View File

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

51
m770/771100c.uml
View File

@ -1,22 +1,16 @@
// 771100c.uml - Dati rappresentante // 771100c.uml - Dati rappresentante
#include "771100.h" #include "771100.h"
//
// Lista modifiche
//
// 2.4.96 Aggiunto numero di telefono
//
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
BUTTON F_FISICA 10 2 BUTTON F_FISICA 10 2
BEGIN BEGIN
PROMPT -14 -1 "~Fisiche" PROMPT -14 -1 "F~isiche"
END END
BUTTON DLG_SAVEREC 10 2 BUTTON DLG_SAVEREC 10 2
BEGIN BEGIN
PROMPT -24 -1 "" PROMPT -24 -1 "~Registra"
MESSAGE EXIT,K_SAVE MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN PICTURE BMP_SAVERECDN
@ -36,7 +30,7 @@ END
ENDPAGE ENDPAGE
PAGE "Dati relativi al rappresentante" -1 -1 78 18 PAGE "Rappresentante" -1 -1 78 18
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
@ -68,7 +62,6 @@ BEGIN
USE LF_NDITTE USE LF_NDITTE
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
FIELD LF_NDITTE->RAPPR FIELD LF_NDITTE->RAPPR
CHECKTYPE NORMAL
JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F" JOIN LF_ANAG INTO CODANAGR=RAPPR TIPOA="F"
JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR JOIN LF_ANAGFIS TO LF_ANAG INTO CODANAGR=CODANAGR
JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
@ -97,44 +90,6 @@ BEGIN
OUTPUT F_TELRF LF_ANAG->TELRF OUTPUT F_TELRF LF_ANAG->TELRF
END 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 STRING F_COFI 16
BEGIN BEGIN
PROMPT 1 5 "Codice fiscale " PROMPT 1 5 "Codice fiscale "

11
m770/771100d.uml
View File

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

5
m770/771100g.uml
View File

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

6
m770/771230e.uml
View File

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

8
m770/771230i.uml
View File

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

4
m770/771230m.uml
View File

@ -13,7 +13,7 @@ END
NUMBER PE1F_CODDITTA 5 NUMBER PE1F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRDP"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
@ -25,7 +25,7 @@ END
STRING PE1F_RAGDITTA 50 STRING PE1F_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "DP"
END END
STRING PE1F_CODCAUS 2 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 fill_ss(TMask& m);
void riempi_prospetto(TMask& m, const char prosp); void riempi_prospetto(TMask& m, const char prosp);
int re_write(const TMask& m, bool re); int re_write(const TMask& m, bool re);
int elimina();
public: public:
TString16 _quadro, _aliq_caus; TString16 _quadro, _aliq_caus;
@ -162,7 +161,7 @@ void TQuadroF::init_insert_mode (TMask& m)
void TQuadroF::init_modify_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) void TQuadroF::init_query_mode (TMask& m)
@ -658,41 +657,25 @@ int TQuadroF::re_write(const TMask& m, bool re)
return err_b; 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 TQuadroF::remove()
{ {
bool ok, ok_a, ok_b, ok_c, ok_d; bool ok, ok_a, ok_b, ok_c, ok_d;
ok = TRelation_application::remove(); ok = TRelation_application::remove();
ok_b = _prosp_b->remove(); ok_b = _prosp_b->remove() == NOERR;
_prosp_b->destroy_rows();
if (_quadro == "F") if (_quadro == "F")
{ {
ok_a = _prosp_a->remove(); ok_a = _prosp_a->remove() == NOERR;
ok_c = _prosp_c->remove(); _prosp_a->destroy_rows();
ok_d = _prosp_d->remove(); ok_c = _prosp_c->remove() == NOERR;
return ok && ok_a && ok_b && ok_c && ok_d; _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 else
return ok && ok_b; return _registra = ok && ok_b;
} }
bool TQuadroF::a_notify(TSheet_field& s, int r, KEY k) 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) void TQuadroG::init_modify_mode (TMask& m)
{ {
m.disable(DLG_DELREC);
} }
void TQuadroG::init_query_mode (TMask& m) 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_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar _msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
_msk->set_handler(DLG_DISTINTA, exec_distinta); _msk->set_handler(DLG_DISTINTA, exec_distinta);
_msk->set_handler(mainmsk_handler);
TSheet_field& p1 = (TSheet_field&) _msk->field(F_P1); TSheet_field& p1 = (TSheet_field&) _msk->field(F_P1);
p1.set_notify(p1_notify); p1.set_notify(p1_notify);
p1.sheet_mask().set_handler(NUM_AZ, calc_amm); p1.sheet_mask().set_handler(NUM_AZ, calc_amm);
@ -670,8 +671,8 @@ int TQuadroG::rewrite(const TMask& m)
bool TQuadroG::remove() bool TQuadroG::remove()
{ {
const bool ok = TRelation_application::remove(); _registra = TRelation_application::remove();
return ok; return _registra;
} }
bool TQuadroG::p1_notify(TSheet_field& s, int r, KEY k) 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; 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 calc_amm(TMask_field& f, KEY k);
static bool exec_distinta(TMask_field& f, KEY k); static bool exec_distinta(TMask_field& f, KEY k);
static void update_totals(TSheet_field& f, int ss); static void update_totals(TSheet_field& f, int ss);
static bool mainmsk_handler(TMask& m, KEY k);
protected: protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
@ -113,8 +114,9 @@ class TQuadroG1 : public TRelation_application
TString16 _quadro; TString16 _quadro;
TString80 _title; TString80 _title;
bool _registra; bool _registra;
static bool p1_notify(TSheet_field& s, int r, KEY k); static bool p1_notify(TSheet_field& s, int r, KEY k);
static void update_totals(TSheet_field& f); static void update_totals(TSheet_field& f);
static bool mainmsk_handler(TMask& m, KEY k);
protected: protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();

2
m770/771234a.h
View File

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

4
m770/771234b.uml
View File

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

4
m770/771234c.uml
View File

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

8
m770/774200.cpp
View File

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

60
m770/776100.cpp
View File

@ -25,7 +25,7 @@
HIDDEN TString80 __tmp; HIDDEN TString80 __tmp;
HIDDEN const int NUM_QUADRI = 26; 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; typedef enum { grassetto=0, sottolineato, piano } stile;
@ -38,7 +38,8 @@ class TManutenzione_quadri : public TApplication
TLocalisamfile* _base, *_basebis; TLocalisamfile* _base, *_basebis;
int _anno_dic; int _anno_dic;
bool _soci; bool _soci;
long _codditta, _coddic; long _codditta, _coddic;
TString _qcomp_prev;
protected: protected:
virtual bool create(); virtual bool create();
@ -194,6 +195,9 @@ bool TManutenzione_quadri::create()
_rel = new TRelation(LF_BASE); _rel = new TRelation(LF_BASE);
_rel->add(LF_BASEBIS, "CODDITTA=CODDITTA"); _rel->add(LF_BASEBIS, "CODDITTA=CODDITTA");
// inizializza stato precedente quadri per ottimizzazione enphasize
_qcomp_prev.spaces(NUM_QUADRI+1);
load_mask(0); load_mask(0);
dispatch_e_menu (BAR_ITEM(1)); 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 // 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. // 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; int start_dlg = DLG_NULL_A;
const char* prompt; const char* prompt;
const int L = 19; const int L = 19;
int dlg = 0; int dlg = 0;
char qcompL;
// quadri fino al quadro L non compreso
for (int i = 0; i < L; i++) for (int i = 0; i < L; i++)
{ {
dlg = start_dlg + (i * 2); if (qcomp[i] != _qcomp_prev[i])
prompt = make_prompt(i, qcomp[i] == 'X' ? grassetto : piano); {
m.field(dlg).set_prompt(prompt); 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) ? // quadro L
make_prompt(QUADRO_L, grassetto) : qcompL = esiste_record_L(get_firm_770(), _anno_dic) ? 'X' : ' ';
make_prompt(QUADRO_L, piano); if (qcompL != _qcomp_prev[QUADRO_L])
{
dlg = start_dlg + (i * 2); dlg = start_dlg + (i * 2);
m.field(dlg).set_prompt(prompt); 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++) 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
// Controlla qcomp[i-1] perche' in QCOMP non c'e' il flag del quadro L if (qcomp[i-1] != _qcomp_prev[i-1])
prompt = make_prompt(i-1, qcomp[i-1] == 'X' ? grassetto : piano); {
m.field(dlg).set_prompt(prompt); 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 "" PROMPT 39 ROW4 ""
PICTURE 123 PICTURE 123
MESSAGE RUN,772MOD,-4,E,D|K_TAB,RILEGGI_QUADRI MESSAGE RUN,772MOD,-4,E,D|K_TAB,RILEGGI_QUADRI
FLAGS "H" FLAGS "HD"
GROUP MENU_STAMPEDICH GROUP MENU_STAMPEDICH
END END
@ -1076,7 +1076,7 @@ BEGIN
PROMPT 39 ROW5 "" PROMPT 39 ROW5 ""
PICTURE 123 PICTURE 123
MESSAGE RUN,772MOD,-4,E1,D|K_TAB,RILEGGI_QUADRI MESSAGE RUN,772MOD,-4,E1,D|K_TAB,RILEGGI_QUADRI
FLAGS "H" FLAGS "HD"
GROUP MENU_STAMPEDICH GROUP MENU_STAMPEDICH
END END
@ -1092,7 +1092,7 @@ BEGIN
PROMPT 39 ROW6 "" PROMPT 39 ROW6 ""
PICTURE 123 PICTURE 123
MESSAGE RUN,772MOD,-4,E2,D|K_TAB,RILEGGI_QUADRI MESSAGE RUN,772MOD,-4,E2,D|K_TAB,RILEGGI_QUADRI
FLAGS "H" FLAGS "HD"
GROUP MENU_STAMPEDICH GROUP MENU_STAMPEDICH
END END
// Fine terza colonna // Fine terza colonna
@ -1110,7 +1110,7 @@ BEGIN
PROMPT 58 ROW1 "" PROMPT 58 ROW1 ""
PICTURE 123 PICTURE 123
// MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI // MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI
FLAGS "H" FLAGS "HD"
GROUP MENU_STAMPEDICH GROUP MENU_STAMPEDICH
END END
@ -1126,7 +1126,7 @@ BEGIN
PROMPT 58 ROW2 "" PROMPT 58 ROW2 ""
PICTURE 123 PICTURE 123
// MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI // MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI
FLAGS "H" FLAGS "HD"
GROUP MENU_STAMPEDICH GROUP MENU_STAMPEDICH
END END
@ -1142,7 +1142,7 @@ BEGIN
PROMPT 58 ROW3 "" PROMPT 58 ROW3 ""
PICTURE 123 PICTURE 123
// MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI // MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI
FLAGS "H" FLAGS "HD"
GROUP MENU_STAMPEDICH GROUP MENU_STAMPEDICH
END END
@ -1174,7 +1174,7 @@ BEGIN
PROMPT 58 ROW5 "" PROMPT 58 ROW5 ""
PICTURE 123 PICTURE 123
// MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI // MESSAGE RUN,771MOD,-1|K_TAB,RILEGGI_QUADRI
FLAGS "H" FLAGS "HD"
GROUP MENU_STAMPEDICH GROUP MENU_STAMPEDICH
END END

15
m770/776300.cpp
View File

@ -24,7 +24,7 @@ class TSelezioneDich : public TConfig_application
int _anno_dic; int _anno_dic;
TRelation* _nditte; TRelation* _nditte;
long _da_cod, _a_cod; long _da_cod, _a_cod;
bool _builded_nomiditte; bool _builded_nomiditte;
void build_nomiditte(); void build_nomiditte();
void build_ditte_sheet(); void build_ditte_sheet();
@ -88,7 +88,7 @@ bool TSelezioneDich::user_create()
"@1|Cod.@5|Ragione Sociale@50"); "@1|Cod.@5|Ragione Sociale@50");
_ditte_sel = new TArray_sheet(11, 1, 67, 20, "Dichiarazioni selezionate", _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; _builded_nomiditte = FALSE;
@ -456,21 +456,20 @@ void TSelezioneDich::build_ditte_sheet()
// gia' selezionate // gia' selezionate
void TSelezioneDich::build_ditte_sel_sheet() void TSelezioneDich::build_ditte_sel_sheet()
{ {
long codditta = 0L;
// build sheet // build sheet
_ditte_sel->destroy(); _ditte_sel->destroy();
for (int i = 0; i < _nomiditte.items(); i++) for (int i = 0; i < _nomiditte.items(); i++)
{ {
// copia da quelle selezionate
TToken_string* d = new TToken_string(64); TToken_string* d = new TToken_string(64);
*d = (TToken_string&)_nomiditte[i]; *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]) if (_selected[i])
{
const long pos = _ditte_sel->add(d); 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 STRING F_SELECT 5
BEGIN BEGIN
PROMPT 2 8 "Dichiarazioni selezionate " PROMPT 2 8 "Dichiarazioni selezionate "
FLAGS "D" FLAGS "DR"
END END
NUMBER F_ANNODIC 4 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) void TQuadroG1::init_modify_mode (TMask& m)
{ {
// init_mask(m);
m.disable(DLG_DELREC);
} }
int TQuadroG1::read(TMask& m) int TQuadroG1::read(TMask& m)
@ -98,6 +97,7 @@ bool TQuadroG1::user_create()
_msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar _msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar _msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar _msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
_msk->set_handler(mainmsk_handler);
TSheet_field& p1 = (TSheet_field&) _msk->field(F_PI); TSheet_field& p1 = (TSheet_field&) _msk->field(F_PI);
p1.set_notify(p1_notify); p1.set_notify(p1_notify);
return TRUE; return TRUE;
@ -250,8 +250,8 @@ int TQuadroG1::rewrite(const TMask& m)
bool TQuadroG1::remove() bool TQuadroG1::remove()
{ {
const bool ok = TRelation_application::remove(); _registra = TRelation_application::remove();
return ok; return _registra;
} }
bool TQuadroG1::p1_notify(TSheet_field& s, int r, KEY k) 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; 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 "N°" NPROG
DISPLAY "Mese" MESERIF DISPLAY "Mese" MESERIF
DISPLAY "Anno" ANNORIF DISPLAY "Anno" ANNORIF
DISPLAY "Imposta rimborsata" IMPOSTA DISPLAY "Imposta rimborsata" IMPOSTA
DISPLAY "Compensi per l'assistenza" COMPENSI DISPLAY "Compensi per l'assistenza" COMPENSI
OUTPUT QNF_NPROG NPROG OUTPUT QNF_NPROG NPROG
OUTPUT QNF_COMPENSI COMPENSI OUTPUT QNF_COMPENSI COMPENSI
OUTPUT QNF_IMPOSTA IMPOSTA OUTPUT QNF_IMPOSTA IMPOSTA

6
m770/77qp.uml
View File

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

4
m770/77qq.uml
View File

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

4
m770/77qr.uml
View File

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

6
m770/77qs.uml
View File

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

4
m770/77qt.uml
View File

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

44
m770/batbca7.h
View File

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

85
m770/batbca7.uml
View File

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

5
m770/batbcaf.uml
View File

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

9
m770/batbent.uml
View File

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

6
m770/generic.cpp
View File

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

12
m770/menu_st.uml
View File

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