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

- corretto errori XI societa' trasformate

Browse Source 
- data la possibilita' di uscire dai menu che dipendono
  dal menu manutenzione dichiarazione con il tasto esc
- modificato descrizioni causali quadro D
- disabilitato scelta ditta dal menu dell'applicazioni
- modificato conteggio max per indicatore progressivo
  delle dichiarazioni selezionate
- L.A. -


git-svn-id: svn://10.65.10.50/trunk@4099 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1997-01-23 10:02:49 +00:00
parent a65ce870f8
commit df9e3d48b1
16 changed files with 601 additions and 619 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
m770/771100.h
View File

@ -2,11 +2,11 @@
#ifndef _771100_H #ifndef _771100_H
#define _771100_H #define _771100_H
#define F_CODDITTA 500 #define F_CODDITTA 500
#define F_RAGSOC 501 #define F_RAGSOC 501
#define APF_CODDITTA 101 #define APF_CODDITTA 101
#define APF_RAGSOC 102 #define APF_RAGSOC 102
#define F_COFI 103 #define F_COFI 103
#define F_COGNOME 104 #define F_COGNOME 104
#define F_NOME 105 #define F_NOME 105
@ -78,7 +78,7 @@
#define F_CONTROLLI 325 #define F_CONTROLLI 325
// Campi maschera Dati Vari 771100g.uml // Campi maschera Dati Vari 771100g.uml
#define F_TIPOA 503 #define F_TIPOA 503
#define F_CODCONC1 350 #define F_CODCONC1 350
#define F_CODCONC2 351 #define F_CODCONC2 351
#define F_CODCONC3 352 #define F_CODCONC3 352
@ -100,7 +100,6 @@
// Campi maschera Societa' trasformate 771100h.uml // Campi maschera Societa' trasformate 771100h.uml
#define MDSTF_CODDITTA 181 #define MDSTF_CODDITTA 181
#define MDSTF_RAGSOC 415
#define F_SOC_COFI 400 #define F_SOC_COFI 400
#define F_SOC_COGNOME 401 #define F_SOC_COGNOME 401
#define F_SOC_NOME 402 #define F_SOC_NOME 402
@ -117,5 +116,7 @@
#define F_SOC_DATAINPI 413 #define F_SOC_DATAINPI 413
#define F_SOC_DATAFINPI 414 #define F_SOC_DATAFINPI 414
#define DCF_DITTA 415 #define DCF_DITTA 415
#define MDSTF_RAGSOC 416
#define F_SOC_COFIG 417
#endif #endif

4
m770/771100h.uml
View File

@ -1,3 +1,5 @@
// Manutenzione società trasformate
#include "771100.h" #include "771100.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
@ -145,7 +147,7 @@ BEGIN
GROUP 2 GROUP 2
END END
STRING F_SOC_COFI 16 STRING F_SOC_COFIG 16
BEGIN BEGIN
PROMPT 1 5 "Codice fiscale " PROMPT 1 5 "Codice fiscale "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED

76
m770/771230b.uml
View File

@ -87,53 +87,39 @@ BEGIN
ADD RUN 773mod -3 %CA7 ADD RUN 773mod -3 %CA7
END END
STRING QDF_CODCAUSD 1
BEGIN
PROMPT 17 3 ""
FLAGS "D"
END
LISTBOX F_DESCRCAUS 57
BEGIN
PROMPT 20 3 ""
ITEM "|"
ITEM "A|Prestazione di arte o professione abituale"
ITEM "B|Prestazioni rese da amministratori,sindaci e .."
ITEM "C|Prestazioni rese da collaboratori a giornali,.."
ITEM "D|Prestazioni rese da partecipanti a collegi e commissioni"
ITEM "E|Prestazioni rese da sportivi con contratto di lavoro .."
ITEM "F|Prestazioni rese nell'ambito di rapporti di collaboraz.."
ITEM "G|Utilizzazione economica da parte dell'autore o .."
ITEM "H|Utili derivanti da contratti di associazione .."
ITEM "I|Utili spettanti ai soci promotori e soci fondatori .."
ITEM "L|Levata di protesti cambiari da segretari comunali"
ITEM "M|Utilizzazione economica da parte di soggetto diverso .."
ITEM "N|Indennità corrisposte per la cessaz.di rapporti di .."
ITEM "P|Indennità corrisposte per la cessaz.da funzioni notarili"
ITEM "R|Indennità corrisposte per la cessaz.di attività sportiva"
ITEM "S|Indennità di trasferta o di rimborso L.25.3.86 n.80"
FLAGS "D"
// LASCIATI PERCHE' NON SI SA MAI OMERO ...
// ITEM "A|Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale"
// ITEM "B|Per prestazioni rese da amministratori, sindaci e revisori di società, associazione ed altri enti con o senza personalità giuridica"
// ITEM "C|Per prestazioni rese da collaboratori a giornali, riviste, enciclopedie e simili"
// ITEM "D|Per prestazioni rese da partecipanti a collegi e commissioni"
// ITEM "E|Per prestazioni rese dagli sportivi con contratto di lavoro autonomo"
// ITEM "F|Per prestazioni rese nell'ambito di rapporti di collaborazione coordinata e continuativa diversi da quelli sopra elencati"
// ITEM "G|Per l'utilizzazione economica da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienze acquisite in campo industriale.."
// ITEM "H|A titolo di utili derivanti da contratti di associazione in partecipazione e da contratti di cointeresenza quando l'apporto è costituito esclusivamente dalla prestazione di lavoro"
// ITEM "I|A titolo di utili spettanti ai soci promotori ed ai soci fondatori delle società di capitali"
// ITEM "L|Per la levata di protesti cambiari da parte dei segretari comunali"
// ITEM "M|Per l'utilizzazione economica da parte di soggetto diverso dall'autore o dall'inventore di opere dell'ingegno, brevetti, formule .."
// ITEM "N|A titolo di indennità corrisposte per la cessazione di rapporti di collaborazione coordinata e continuativa, se il diritto all'indennità risulta da atto di data certa anteriore .."
// ITEM "P|A titolo di indennità corrisposte per la cessazione da funzioni notarili"
// ITEM "R|A titolo di indennità corrisposte per la cessazione di attività sportiva professionale"
// ITEM "S|A titolo di indennità di trasferta o di rimborso forfetario di spese spettanti a soggetti che svolgono attività sportiva dilettantistica di cui L.25.3.86 n.80"
END
NUMBER F_CODTRIB 4 NUMBER F_CODTRIB 4
BEGIN BEGIN
PROMPT 11 4 "" PROMPT 3 4 ""
FLAGS "D"
END
STRING QDF_CODCAUSD 1
BEGIN
PROMPT 9 4 ""
FLAGS "D"
END
LISTBOX F_DESCRCAUS 60
BEGIN
PROMPT 12 4 ""
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"
FLAGS "D" FLAGS "D"
END END

7
m770/773100.cpp
View File

@ -5,7 +5,7 @@ class M73_App : public TConfig_application
{ {
public: public:
virtual bool user_create(); virtual bool user_create();
virtual bool firm_change_enabled() const;
M73_App() : TConfig_application(CONFIG_STUDIO) {} M73_App() : TConfig_application(CONFIG_STUDIO) {}
virtual ~M73_App() {} virtual ~M73_App() {}
}; };
@ -25,6 +25,11 @@ bool M73_App::user_create()
return TRUE; return TRUE;
} }
bool M73_App::firm_change_enabled() const
{
return FALSE;
}
int m73100 (int argc, char* argv[]) int m73100 (int argc, char* argv[])
{ {
M73_App appc; M73_App appc;

6
m770/773400.cpp
View File

@ -31,6 +31,7 @@ class Tab770_application : public Tab_application
virtual void init_modify_mode(TMask& m); virtual void init_modify_mode(TMask& m);
virtual void init_insert_mode(TMask& m); virtual void init_insert_mode(TMask& m);
virtual void init_query_mode(TMask& m); virtual void init_query_mode(TMask& m);
virtual bool firm_change_enabled() const;
Tab770_application() {} Tab770_application() {}
virtual ~Tab770_application() {} virtual ~Tab770_application() {}
}; };
@ -163,6 +164,11 @@ bool Tab770_application::user_create()
return TRUE; return TRUE;
} }
bool Tab770_application::firm_change_enabled() const
{
return FALSE;
}
m73400(int argc, char* argv[]) m73400(int argc, char* argv[])
{ {
Tab770_application a; Tab770_application a;

247
m770/776100.cpp
View File

@ -1,4 +1,11 @@
// 776100.cpp - Menu' manutenzione quadri // 776100.cpp - Menu manutenzione quadri
// menu manutenzione quadri (GROUP 1 alias MENU_MAIN)
// sottomenu manutenzione dati anagrafici (GROUP 2 alias MENU_DATIANAG)
// sottomenu stampe (GROUP 3 alias MENU_STAMPE)
// sottomenu soggetto dichiarante (GROUP 4 alias MENU_SOGGDICH)
// sottomenu stampe dichiarzioni (GROUP 5 alias MENU_STAMPEDICH)
#include <applicat.h> #include <applicat.h>
#include <config.h> #include <config.h>
#include <msksheet.h> #include <msksheet.h>
@ -38,18 +45,12 @@ class TManutenzione_quadri : public TApplication
virtual bool destroy(); virtual bool destroy();
virtual bool menu(MENU_TAG m); virtual bool menu(MENU_TAG m);
virtual void on_config_change(); virtual void on_config_change();
static void show_menu(TMask& m, const int group, bool mostra);
static bool filtra_ditte(const TRelation * r); static bool filtra_ditte(const TRelation * r);
static bool menu_stampe (TMask_field& fld, KEY k); static bool show_menu(TMask_field& fld, KEY k);
static bool cancel_menu_stampe (TMask_field& fld, KEY k); static bool hide_menu(TMask_field& fld, KEY k);
static bool menu_dich (TMask_field& fld, KEY k); static bool codditta_handler(TMask_field& fld, KEY k);
static bool cancel_menu_dich (TMask_field& fld, KEY k); static bool leggi_quadri(TMask_field& f, KEY k);
static bool menu_anagrafici (TMask_field& fld, KEY k); static bool exec_soci(TMask_field& fld, KEY k);
static bool cancel_menu_anagrafici (TMask_field& fld, KEY k);
static bool codditta_handler (TMask_field& fld, KEY k);
static bool leggi_quadri (TMask_field& f, KEY k);
static bool exec_soci (TMask_field& fld, KEY k);
void init_mask(TMask&); void init_mask(TMask&);
TMask* load_mask(int n); TMask* load_mask(int n);
@ -69,6 +70,7 @@ class TManutenzione_quadri : public TApplication
public: public:
TManutenzione_quadri (); TManutenzione_quadri ();
~TManutenzione_quadri() {}; ~TManutenzione_quadri() {};
virtual bool firm_change_enabled() const;
}; };
inline TManutenzione_quadri& app() { return (TManutenzione_quadri&) main_app(); } inline TManutenzione_quadri& app() { return (TManutenzione_quadri&) main_app(); }
@ -103,6 +105,11 @@ void TManutenzione_quadri::on_config_change()
_anno_dic = (int)conf.get_long(ANNO_SEL, NULL, -1, TDate(TODAY).year()); _anno_dic = (int)conf.get_long(ANNO_SEL, NULL, -1, TDate(TODAY).year());
} }
bool TManutenzione_quadri::firm_change_enabled() const
{
return FALSE;
}
// Lancia la gestione soci passando la ditta // Lancia la gestione soci passando la ditta
bool TManutenzione_quadri::exec_soci(TMask_field& f, KEY k) bool TManutenzione_quadri::exec_soci(TMask_field& f, KEY k)
{ {
@ -223,19 +230,19 @@ const char* TManutenzione_quadri::make_prompt(int i, stile vivid)
__tmp << "Quadro A" ; __tmp << "Quadro A" ;
break; break;
case 1: case 1:
__tmp << "Quadro A-1" ; __tmp << "Quadro A1" ;
break; break;
case 2: case 2:
__tmp << "Quadro A-2"; __tmp << "Quadro A2";
break; break;
case 3: case 3:
__tmp << "Quadro A-3" ; __tmp << "Quadro A3" ;
break; break;
case 4: case 4:
__tmp << "Quadro B" ; __tmp << "Quadro B" ;
break; break;
case 5: case 5:
__tmp << "Quadro B-1"; __tmp << "Quadro B1";
break; break;
case 6: case 6:
__tmp << "Quadro C" ; __tmp << "Quadro C" ;
@ -244,31 +251,31 @@ const char* TManutenzione_quadri::make_prompt(int i, stile vivid)
__tmp << "Quadro D" ; __tmp << "Quadro D" ;
break; break;
case 8: case 8:
__tmp << "Quadro D-1"; __tmp << "Quadro D1";
break; break;
case 9: case 9:
__tmp << "Quadro E" ; __tmp << "Quadro E" ;
break; break;
case 10: case 10:
__tmp << "Quadro E-1"; __tmp << "Quadro E1";
break; break;
case 11: case 11:
__tmp << "Quadro E-2"; __tmp << "Quadro E2";
break; break;
case 12: case 12:
__tmp << "Quadro F" ; __tmp << "Quadro F" ;
break; break;
case 13: case 13:
__tmp << "Quadro F-1"; __tmp << "Quadro F1";
break; break;
case 14: case 14:
__tmp << "Quadro F-2"; __tmp << "Quadro F2";
break; break;
case 15: case 15:
__tmp << "Quadro G" ; __tmp << "Quadro G" ;
break; break;
case 16: case 16:
__tmp << "Quadro G-1"; __tmp << "Quadro G1";
break; break;
case 17: case 17:
__tmp << "Quadro H" ; __tmp << "Quadro H" ;
@ -353,84 +360,80 @@ void TManutenzione_quadri::enphasize(TString& qcomp, TMask& m)
} }
} }
void TManutenzione_quadri::show_menu(TMask& m, const int group, bool mostra) bool TManutenzione_quadri::show_menu(TMask_field& f, KEY k)
{ {
if (mostra) if (k == K_SPACE)
{ {
m.hide(-1); if (f.dlg() == DLG_MANUTENZ) // enter su menu
m.hide(DLG_NULL_SOCI); { // dati anagrafici
m.hide(DLG_MANUTENZ_SOCI); f.mask().hide(-MENU_MAIN);
m.show(group); f.mask().show(-MENU_DATIANAG);
} f.mask().set_focus_field(DLG_STOPREC_DICH);
else return TRUE;
{ }
m.hide(group); if (f.dlg() == DLG_STOPREC_ST) // enter su menu
m.show(-1); { // stampe
m.show(DLG_NULL_SOCI); f.mask().hide(-MENU_MAIN);
m.show(DLG_MANUTENZ_SOCI); f.mask().show(-MENU_STAMPE);
m.enable(DLG_NULL_SOCI, app()._soci); f.mask().set_focus_field(DLG_STOPREC_ST0);
m.enable(DLG_MANUTENZ_SOCI, app()._soci); return TRUE;
} }
} if (f.dlg() == DLG_STOPREC_SD) // enter su menu
{ // soggetto dichiarante
bool TManutenzione_quadri::menu_dich(TMask_field& f, KEY k) f.mask().hide(-MENU_MAIN);
{ f.mask().show(-MENU_SOGGDICH);
if (k == K_SPACE) f.mask().set_focus_field(DLG_STOPREC_SD0);
{ return TRUE;
TMask& m = f.mask(); }
m.hide(-1); if (f.dlg() == DLG_STOPREC_STQD) // enter su menu
m.hide(DLG_NULL_SOCI); { // stampe dichiarazioni
m.hide(DLG_MANUTENZ_SOCI); f.mask().hide(-MENU_STAMPE);
m.hide(-3); f.mask().show(-MENU_STAMPEDICH);
m.show(-5); f.mask().set_focus_field(B_BASE);
return TRUE;
}
return FALSE;
} }
return TRUE; return TRUE;
} }
bool TManutenzione_quadri::cancel_menu_dich(TMask_field& f, KEY k) bool TManutenzione_quadri::hide_menu(TMask_field& f, KEY k)
{ {
if (k == K_SPACE) if (k == K_SPACE)
{ {
TMask& m = f.mask(); if (f.mask().field(DLG_STOPREC_DICH).shown()) // cancel da menu
m.hide(-5); { // dati anagrafici
m.show(-3); f.mask().hide(-MENU_DATIANAG);
m.show(-1); f.mask().show(-MENU_MAIN);
m.show(DLG_NULL_SOCI); f.mask().first_focus(DLG_MANUTENZ);
m.show(DLG_MANUTENZ_SOCI); return TRUE;
m.enable(DLG_NULL_SOCI, app()._soci); }
m.enable(DLG_MANUTENZ_SOCI, app()._soci); if (f.mask().field(DLG_STOPREC_ST0).shown()) // cancel da menu
{ // stampe
f.mask().hide(-MENU_STAMPE);
f.mask().show(-MENU_MAIN);
f.mask().first_focus(DLG_STOPREC_ST);
return TRUE;
}
if (f.mask().field(DLG_STOPREC_SD0).shown()) // cancel da menu
{ // soggetto dichiarante
f.mask().hide(-MENU_SOGGDICH);
f.mask().show(-MENU_MAIN);
f.mask().first_focus(DLG_STOPREC_SD);
return TRUE;
}
if (f.mask().field(B_BASE).shown()) // cancel da menu
{ // stampe dichiarazioni
f.mask().hide(-MENU_STAMPEDICH);
f.mask().show(-MENU_STAMPE);
f.mask().first_focus(DLG_STOPREC_STQD);
return TRUE;
}
return FALSE;
} }
return TRUE; return TRUE;
} }
bool TManutenzione_quadri::menu_anagrafici(TMask_field& f, KEY k)
{
if (k == K_SPACE)
show_menu(f.mask(), -2, TRUE);
return TRUE;
}
bool TManutenzione_quadri::cancel_menu_anagrafici(TMask_field& f, KEY k)
{
if (k == K_SPACE)
show_menu(f.mask(), -2, FALSE);
return TRUE;
}
bool TManutenzione_quadri::menu_stampe(TMask_field& f, KEY k)
{
if (k == K_SPACE)
show_menu(f.mask(), -3, TRUE);
return TRUE;
}
bool TManutenzione_quadri::cancel_menu_stampe(TMask_field& f, KEY k)
{
if (k == K_SPACE)
show_menu(f.mask(), -3, FALSE);
return TRUE;
}
void TManutenzione_quadri::init_menu(TMask& m) void TManutenzione_quadri::init_menu(TMask& m)
{ {
m.set(F_ANNODIC, _anno_dic); m.set(F_ANNODIC, _anno_dic);
@ -442,24 +445,17 @@ void TManutenzione_quadri::init_menu(TMask& m)
// Se persona giuridica c'e' la voce "Amministratori" // Se persona giuridica c'e' la voce "Amministratori"
_soci = tipo_persona(_codditta) == 'G'; _soci = tipo_persona(_codditta) == 'G';
m.enable(DLG_NULL_SOCI, _soci);
m.enable(DLG_MANUTENZ_SOCI, _soci); m.enable(DLG_MANUTENZ_SOCI, _soci);
m.set_handler(DLG_MANUTENZ_SOCI, exec_soci); m.set_handler(DLG_MANUTENZ_SOCI, exec_soci);
// Se non e' giuridica non si puo' usare il quadro G // Se non e' giuridica non si puo' usare il quadro G
m.enable(DLG_STOPREC_G, _soci); m.enable(DLG_STOPREC_G, _soci);
// Fa uscire/entrare il menu' dati anagrafici // aggancio handler d'ingresso sui menu
m.set_handler(DLG_MANUTENZ, menu_anagrafici); m.set_handler(DLG_MANUTENZ, show_menu);
m.set_handler(DLG_CANCEL_MENU, cancel_menu_anagrafici); m.set_handler(DLG_STOPREC_ST, show_menu);
m.set_handler(DLG_STOPREC_SD, show_menu);
// Fa entrare e uscire il menu' STAMPE m.set_handler(DLG_STOPREC_STQD,show_menu);
m.set_handler(DLG_STOPREC_ST, menu_stampe);
m.set_handler(DLG_CANCEL_MENU_ST, cancel_menu_stampe);
// Fa entrare e uscire il menu' SOGG. DICHIARANTE
m.set_handler(DLG_STOPREC_SD, menu_dich);
m.set_handler(DLG_CANCEL_MENU_SD, cancel_menu_dich);
// Se non e' un dichiarante disabilita la corrispondente voce // Se non e' un dichiarante disabilita la corrispondente voce
m.enable(DLG_STOPREC_SD, sogg_dic(_codditta)); m.enable(DLG_STOPREC_SD, sogg_dic(_codditta));
@ -545,39 +541,58 @@ void TManutenzione_quadri::init_query_mask(TMask& m)
bool TManutenzione_quadri::main_loop() bool TManutenzione_quadri::main_loop()
{ {
KEY tasto; KEY tasto = K_TAB;
do { while (tasto != K_QUIT)
if (!query_mask()) {
return FALSE;
// eseguo la prima maschera (richiesta codice ditta) solo la prima volta,
// oppure quando esco dal menu manutenzione quadri con "Annulla"
if (tasto != K_ESC)
{
if (!query_mask())
return FALSE;
// Disabilita cambio ditta // Disabilita cambio ditta
enable_menu_item(M_FILE_NEW, FALSE); enable_menu_item(M_FILE_NEW, FALSE);
// Disabilita cambio parametri // Disabilita cambio parametri
enable_menu_item(M_FILE_REVERT, FALSE); enable_menu_item(M_FILE_REVERT, FALSE);
// Impegna ditta
if (!lock(TRUE)) if (!lock(TRUE))
continue; continue;
// carico la maschera di manutenzione quadri
load_mask(1); load_mask(1);
_msk[1]->autoload(*_rel); _msk[1]->autoload(*_rel);
init_menu(*_msk[1]);
init_menu(*_msk[1]); _msk[1]->open_modal();
}
// eseguo la maschera di manutenzione quadri
tasto = _msk[1]->run(); tasto = _msk[1]->run();
switch (tasto) switch (tasto)
{ {
case K_ESC : case K_ESC :
// forzo l'esecuzione dell'handler del bottone "Annulla"
// se ritorna false significa che era attivo il menu principale
// e quindi permetto la riesecuzione della maschera di richiesta ditta
if (!(hide_menu(_msk[1]->field(DLG_CANCEL), K_SPACE)))
{
tasto = K_TAB;
lock(FALSE); // release lock
_msk[1]->close_modal(); // chiude maschera
}
break;
case K_QUIT : case K_QUIT :
lock(FALSE); // release lock
_msk[1]->close_modal(); // chiude maschera
break;
case K_SAVE : case K_SAVE :
break; break;
default: default:
break; break;
} }
lock(FALSE); // release lock }
} while (tasto != K_QUIT);
return FALSE; return FALSE;
} }

1
m770/776100a.h
View File

@ -5,6 +5,5 @@
#define F_RAGDITTA 102 #define F_RAGDITTA 102
#define F_ANNODIC 103 #define F_ANNODIC 103
#define F_TIPOQUA 104 #define F_TIPOQUA 104
#define F_BUTPREC 106
#endif #endif

3
m770/776100a.uml
View File

@ -57,10 +57,9 @@ BEGIN
PROMPT -12 -1 "" PROMPT -12 -1 ""
END END
BUTTON F_BUTPREC 20 2 BUTTON DLG_CANCEL 20 2
BEGIN BEGIN
PROMPT -22 -1 "Menu precedente" PROMPT -22 -1 "Menu precedente"
MESSAGE EXIT,K_QUIT
END END
ENDPAGE ENDPAGE

117
m770/776100b.h
View File

@ -1,18 +1,24 @@
#ifndef __776100b_H #ifndef __776100b_H
#define __776100b_H #define __776100b_H
#define MENU_MAIN 1
#define MENU_DATIANAG 2
#define MENU_STAMPE 3
#define MENU_SOGGDICH 4
#define MENU_STAMPEDICH 5
#define F_CODDITTA 101 #define F_CODDITTA 101
#define F_RAGDITTA 102 #define F_RAGDITTA 102
#define F_ANNODIC 103 #define F_ANNODIC 103
#define DLG_NULL_A 104 #define DLG_NULL_A 104
#define DLG_STOPREC_A 105 #define DLG_STOPREC_A 105
#define DLG_NULL_A1 106 #define DLG_NULL_A1 106
#define DLG_STOPREC_A1 107 #define DLG_STOPREC_A1 107
#define DLG_NULL_A2 108 #define DLG_NULL_A2 108
#define DLG_STOPREC_A2 109 #define DLG_STOPREC_A2 109
#define DLG_NULL_A3 110 #define DLG_NULL_A3 110
#define DLG_STOPREC_A3 111 #define DLG_STOPREC_A3 111
#define DLG_NULL_B 112 #define DLG_NULL_B 112
#define DLG_STOPREC_B 113 #define DLG_STOPREC_B 113
#define DLG_NULL_B1 114 #define DLG_NULL_B1 114
@ -106,54 +112,55 @@
#define RILEGGI_QUADRI 202 #define RILEGGI_QUADRI 202
#define DLG_NULL_STQD 203 #define DLG_NULL_STQD 203
#define DLG_STOPREC_STQD 204 #define DLG_STOPREC_STQD 204
#define T_BASE 205 #define T_BASE 205
#define B_BASE 206 #define B_BASE 206
#define T_LAGG 207 #define T_LAGG 207
#define B_LAGG 208 #define B_LAGG 208
#define T_NAGG 209 #define T_NAGG 209
#define B_NAGG 210 #define B_NAGG 210
#define T_ALLSOC 211 #define T_ALLSOC 211
#define B_ALLSOC 212 #define B_ALLSOC 212
#define T_ALLG 213 #define T_ALLG 213
#define B_ALLG 214 #define B_ALLG 214
#define T_BUST 215 #define T_BUST 215
#define B_BUST 216 #define B_BUST 216
#define T_A 217 #define T_A 217
#define B_A 218 #define B_A 218
#define T_A1 219 #define T_A1 219
#define B_A1 220 #define B_A1 220
#define T_A2 221 #define T_A2 221
#define B_A2 222 #define B_A2 222
#define T_A3 223 #define T_A3 223
#define B_A3 224 #define B_A3 224
#define T_B 225 #define T_B 225
#define B_B 226 #define B_B 226
#define T_B1 227 #define T_B1 227
#define B_B1 228 #define B_B1 228
#define T_C 229 #define T_C 229
#define B_C 230 #define B_C 230
#define T_D 231 #define T_D 231
#define B_D 232 #define B_D 232
#define T_D1 233 #define T_D1 233
#define B_D1 234 #define B_D1 234
#define T_E 235 #define T_E 235
#define B_E 236 #define B_E 236
#define T_E1 237 #define T_E1 237
#define B_E1 238 #define B_E1 238
#define T_E2 239 #define T_E2 239
#define B_E2 240 #define B_E2 240
#define T_F 241 #define T_F 241
#define B_F 242 #define B_F 242
#define T_F1 243 #define T_F1 243
#define B_F1 244 #define B_F1 244
#define T_F2 245 #define T_F2 245
#define B_F2 246 #define B_F2 246
#define T_G 247 #define T_G 247
#define B_G 248 #define B_G 248
#define T_G1 249 #define T_G1 249
#define B_G1 250 #define B_G1 250
#define T_H 251 #define T_H 251
#define B_H 252 #define B_H 252
#define DLG_STOPREC_SP 253 #define DLG_STOPREC_SP 253
#define DLG_CANCEL_MENUSTQ 254
#endif #endif

561
m770/776100b.uml
View File

File diff suppressed because it is too large Load Diff

6
m770/776200.cpp
View File

@ -23,6 +23,7 @@ class TImmissioneDichiarazione : public TApplication
public: public:
TImmissioneDichiarazione() {} TImmissioneDichiarazione() {}
~TImmissioneDichiarazione() {} ~TImmissioneDichiarazione() {}
virtual bool firm_change_enabled() const;
}; };
bool TImmissioneDichiarazione::create() bool TImmissioneDichiarazione::create()
@ -74,6 +75,11 @@ void TImmissioneDichiarazione::on_config_change()
_anno_dic = (int)conf.get_long(ANNO_SEL, NULL); _anno_dic = (int)conf.get_long(ANNO_SEL, NULL);
} }
bool TImmissioneDichiarazione::firm_change_enabled() const
{
return FALSE;
}
int ImmissioneDichiarazioni(int argc, char* argv[]) int ImmissioneDichiarazioni(int argc, char* argv[])
{ {
TImmissioneDichiarazione app; TImmissioneDichiarazione app;

24
m770/776300.cpp
View File

@ -7,6 +7,7 @@
#include <progind.h> #include <progind.h>
#include <lffiles.h> #include <lffiles.h>
#include <utility.h> #include <utility.h>
#include <relation.h>
#include "776300a.h" #include "776300a.h"
#include "77lib.h" #include "77lib.h"
@ -21,7 +22,8 @@ class TSelezioneDich : public TConfig_application
TConfig* _user_cnf, * _studio_cnf; TConfig* _user_cnf, * _studio_cnf;
int _n_ditte; int _n_ditte;
int _anno_dic; int _anno_dic;
TLocalisamfile* _nditte; // TLocalisamfile* _nditte;
TRelation* _nditte;
long _da_cod, _a_cod; long _da_cod, _a_cod;
bool _builded_nomiditte; bool _builded_nomiditte;
@ -54,7 +56,7 @@ class TSelezioneDich : public TConfig_application
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual bool firm_change_enabled() const;
TSelezioneDich() : TConfig_application(CONFIG_USER) , TSelezioneDich() : TConfig_application(CONFIG_USER) ,
_a_cod(0L), _da_cod(0L) {} _a_cod(0L), _da_cod(0L) {}
virtual ~TSelezioneDich() {} virtual ~TSelezioneDich() {}
@ -80,7 +82,9 @@ bool TSelezioneDich::user_create()
_studio_cnf = new TConfig(CONFIG_STUDIO); _studio_cnf = new TConfig(CONFIG_STUDIO);
_nditte = new TLocalisamfile(LF_NDITTE); // _nditte = new TLocalisamfile(LF_NDITTE);
_nditte = new TRelation(LF_NDITTE);
_nditte->add(LF_BASE,"CODDITTA=CODDITTA");
_ditte = new TArray_sheet(11, 1, 67, 20, "Seleziona dichiarazioni", _ditte = new TArray_sheet(11, 1, 67, 20, "Seleziona dichiarazioni",
"@1|Cod.@5|Ragione Sociale@50"); "@1|Cod.@5|Ragione Sociale@50");
@ -102,6 +106,11 @@ bool TSelezioneDich::user_destroy()
return TRUE; return TRUE;
} }
bool TSelezioneDich::firm_change_enabled() const
{
return FALSE;
}
void TSelezioneDich::init_sheet() void TSelezioneDich::init_sheet()
{ {
_n_ditte = 0l; _n_ditte = 0l;
@ -411,14 +420,15 @@ void TSelezioneDich::build_nomiditte()
{ {
_nomiditte.destroy(); _nomiditte.destroy();
// ricostruire _nomiditte e rifare build_ditte_sheet // ricostruire _nomiditte e rifare build_ditte_sheet
TLocalisamfile& dt = *_nditte; // TLocalisamfile& dt = *_nditte;
TRectype& dt = _nditte->curr();
TProgind prg(dt.items(), "Lettura ditte in corso\nAttendere prego...", FALSE, TRUE); TProgind prg(dt.items(), "Lettura ditte in corso\nAttendere prego...", FALSE, TRUE);
for (dt.first(); !dt.eof(); dt.next()) for (_nditte->first(); !_nditte->eof(); _nditte->next())
{ {
prg.addstatus(1); prg.addstatus(1);
bool good = exist_dichiar_770(dt.get_long("CODDITTA")); // bool good = exist_dichiar_770(dt.get_long("CODDITTA"));
if (!good) continue; // if (!good) continue;
_n_ditte++; _n_ditte++;
TToken_string* d = new TToken_string(64); TToken_string* d = new TToken_string(64);

7
m770/776400.cpp
View File

@ -22,7 +22,7 @@ class TPar_Stampa : public TConfig_application
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
virtual bool firm_change_enabled() const;
TPar_Stampa() : TConfig_application(CONFIG_USER) {} TPar_Stampa() : TConfig_application(CONFIG_USER) {}
virtual ~TPar_Stampa() {} virtual ~TPar_Stampa() {}
}; };
@ -51,6 +51,11 @@ bool TPar_Stampa::user_destroy()
return TRUE; return TRUE;
} }
bool TPar_Stampa::firm_change_enabled() const
{
return FALSE;
}
/* /*
bool TPar_Stampa::postprocess_config (TMask& m, TConfig& config) bool TPar_Stampa::postprocess_config (TMask& m, TConfig& config)
{ {

85
m770/batbca7.uml
View File

@ -171,33 +171,33 @@ BEGIN
MESSAGE COPY,F_DESCR1,1,22 MESSAGE COPY,F_DESCR1,1,22
END END
LISTBOX TCF_CAUSD 1 250 LISTBOX TCF_CAUSD 1 62
BEGIN BEGIN
PROMPT 1 5 "Causale D " PROMPT 1 5 "Causale D "
ITEM "|" ITEM "|"
ITEM "A|A Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale" ITEM "A|A prestaz. di lav. aut. ... nell’es. arti o prof. abituale"
ITEM "B|B Per prestazioni rese da amministratori, sindaci e revisori di società, associazione ed altri enti con o senza personalità giuridica" ITEM "B|B prestaz. rese da amministratori, sindaci e revisori..."
ITEM "C|C Per prestazioni rese da collaboratori a giornali, riviste, enciclopedie e simili" ITEM "C|C prestaz. rese da collaboratori a giornali, riviste, ..."
ITEM "D|D Per prestazioni rese da partecipanti a collegi e commissioni" ITEM "D|D prestaz. rese da partecipanti a collegi e commissioni"
ITEM "E|E Per prestazioni rese dagli sportivi con contratto di lavoro autonomo" ITEM "E|E prestaz. rese dagli sportivi con contratto di lav. autonomo"
ITEM "F|F Per prestazioni rese nell'ambito di rapporti di collaborazione coordinata e continuativa diversi da quelli sopra elencati" ITEM "F|F prestaz. ... di rapp. di coll. coord. e c. diversi dai prec"
ITEM "G|G Per l'utilizzazione economica da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienze acquisite in campo industriale.." ITEM "G|G utiliz. economica, da parte dell’autore o dell’inventore..."
ITEM "H|H A titolo di utili derivanti da contratti di associazione in partecipazione e da contratti di cointeresenza quando l'apporto è costituito esclusivamente dalla prestazione di lavoro" ITEM "H|H utili ... da contratti di associazione in partecipazioni..."
ITEM "I|I A titolo di utili spettanti ai soci promotori ed ai soci fondatori delle società di capitali" 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 segretari comunali" ITEM "L|L per la levata di protesti cambiari da parte dei segretar..."
ITEM "M|M Per l'utilizzazione economica da parte di soggetto diverso dall'autore o dall'inventore di opere dell'ingegno, brevetti, formule .." ITEM "M|M utiliz. economica, ... di soggetto diverso dall’autore o..."
ITEM "N|N A titolo di indennità corrisposte per la cessazione di rapporti di collaborazione coordinata e continuativa, assoggettabili a tassazione separata" ITEM "N|N indennità corrisp. per la cessaz. di rapporti di coll..."
ITEM "P|P A titolo di indennità corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche" ITEM "P|P indennità corrisp. per la cessaz. dei rapporti di agenzia"
ITEM "Q|Q A titolo di indennità corrisposte per la cessazione da funzioni notarili" ITEM "Q|Q indennità corrisp. per la cessaz. da funzioni notarili"
ITEM "R|R A titolo di indennità corrisposte per la cessazione di attività sportiva professionale" ITEM "R|R indennità corrisp. per la cessaz. di attività sportiva prof"
ITEM "S|S A titolo di indennità di trasferta o di rimborso forfetario di spese spettanti a soggetti che svolgono attività sportiva dilettantistica di cui L.25.3.86 n.80" ITEM "S|S indennità di trasf. o di rimborso forfettario di spese..."
ITEM "T|T Altro titolo diverso dai precedenti" ITEM "T|T altro titolo diverso dai precedenti"
FIELD LF_TABCOM->S2 FIELD LF_TABCOM->S2
FLAGS "D" FLAGS "D"
GROUP GR_CAUDD1 GROUP GR_CAUDD1
END END
LISTBOX TCF_CAUSD1 1 60 LISTBOX TCF_CAUSD1 1 62
BEGIN BEGIN
PROMPT 1 6 "Causale D1 " PROMPT 1 6 "Causale D1 "
ITEM "|" ITEM "|"
@ -212,53 +212,6 @@ BEGIN
GROUP GR_CAUDD1 GROUP GR_CAUDD1
END END
/*
STRING TCF_CAUSD 1
BEGIN
PROMPT 1 5 "Causale quadro D "
SHEET "Codice|Descrizione@80"
INPUT TCF_CAUSD
ITEM "|"
ITEM "A|Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale"
ITEM "B|Per prestazioni rese da amministratori, sindaci e revisori di società, associazione ed altri enti con o senza personalità giuridica"
ITEM "C|Per prestazioni rese da collaboratori a giornali, riviste, enciclopedie e simili"
ITEM "D|Per prestazioni rese da partecipanti a collegi e commissioni"
ITEM "E|Per prestazioni rese dagli sportivi con contratto di lavoro autonomo"
ITEM "F|Per prestazioni rese nell'ambito di rapporti di collaborazione coordinata e continuativa diversi da quelli sopra elencati"
ITEM "G|Per l'utilizzazione economica da parte dell'autore o dell'inventore, di opere dell'ingegno, di brevetti industriali e di processi, formule o informazioni relativi ad esperienze acquisite in campo industriale.."
ITEM "H|A titolo di utili derivanti da contratti di associazione in partecipazione e da contratti di cointeresenza quando l'apporto è costituito esclusivamente dalla prestazione di lavoro"
ITEM "I|A titolo di utili spettanti ai soci promotori ed ai soci fondatori delle società di capitali"
ITEM "L|Per la levata di protesti cambiari da parte dei segretari comunali"
ITEM "M|Per l'utilizzazione economica da parte di soggetto diverso dall'autore o dall'inventore di opere dell'ingegno, brevetti, formule .."
ITEM "N|A titolo di indennità corrisposte per la cessazione di rapporti di collaborazione coordinata e continuativa, se il diritto all'indennità risulta da atto di data certa anteriore .."
ITEM "P|A titolo di indennità corrisposte per la cessazione da funzioni notarili"
ITEM "R|A titolo di indennità corrisposte per la cessazione di attività sportiva professionale"
ITEM "S|A titolo di indennità di trasferta o di rimborso forfetario di spese spettanti a soggetti che svolgono attività sportiva dilettantistica di cui L.25.3.86 n.80"
FIELD LF_TABCOM->S2
FLAGS "D"
GROUP GR_CAUDD1
OUTPUT TCF_CAUSD
END
STRING TCF_CAUSD1 1
BEGIN
PROMPT 30 5 "Causale quadro D1"
SHEET "Codice|Descrizione@80"
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"
FIELD LF_TABCOM->S3
FLAGS "D"
GROUP GR_CAUDD1
OUTPUT TCF_CAUSD1
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"

25
m770/generic.cpp
View File

@ -83,6 +83,7 @@ class TGenericRel_application : public TRelation_application
public: public:
bool _ADCheckFallito; bool _ADCheckFallito;
virtual bool firm_change_enabled() const;
TGenericRel_application(const char* name, const int num, const char* quadro); TGenericRel_application(const char* name, const int num, const char* quadro);
}; };
@ -115,6 +116,11 @@ void TGenericRel_application::on_config_change()
} }
} }
bool TGenericRel_application::firm_change_enabled() const
{
return FALSE;
}
bool TGenericRel_application::user_create() bool TGenericRel_application::user_create()
{ {
_alterna_field = FALSE; _alterna_field = FALSE;
@ -717,6 +723,7 @@ protected:
public: public:
TGeneric_application(const char* name) : _maskname(name) {} TGeneric_application(const char* name) : _maskname(name) {}
virtual bool firm_change_enabled() const;
}; };
@ -748,12 +755,18 @@ bool TGeneric_application::menu(MENU_TAG)
return k != K_QUIT; return k != K_QUIT;
} }
/////////////////////////////////////////////////////////// bool TGeneric_application::firm_change_enabled() const
// 2 modi : {
// RUN,773,-1,771230m,89,"Prospetto del Quadro E1","E1" [771230i.uml] return FALSE;
// oppure }
// 773 -1 menu_st "Stampe dichiarazioni" [prassi.mnu]
/////////////////////////////////////////////////////////// //
// Modi di chiamata
// [-1][menu_st] Menu stampe dichiarazioni
// [-1][771230m][89]["Prospetto.."][E1]Prospetto quadro E1
// [-1][771150a][45]["Anagraf.."][<user>]Anagrafica dipendenti
// [-1][771100h][102]["Manut.."][<user>] Manutenzione società trasformate
//
int generic(int argc, char* argv[]) int generic(int argc, char* argv[])
{ {
// TApplication::check_parameters(argc, argv); // TApplication::check_parameters(argc, argv);

6
m770/menu_st.uml
View File

@ -1,9 +1,7 @@
// Menu' stampe quadri a livello di studio // Menu' stampe quadri a livello di studio
#include "menu_st.h" #include "menu_st.h"
TOOLBAR "" 0 22 0 2
ENDPAGE
PAGE "Stampa quadri" -1 -1 78 21 PAGE "Stampe dichiarazioni" -1 2 78 18
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
@ -378,7 +376,7 @@ END
BUTTON DLG_QUIT 20 2 BUTTON DLG_QUIT 20 2
BEGIN BEGIN
PROMTP -12 -1 "Fine" PROMPT -12 -1 "Fine"
END END
ENDPAGE ENDPAGE