- corretto errori XI societa' trasformate

- 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

View File

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

View File

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

View File

@ -87,53 +87,39 @@ BEGIN
ADD RUN 773mod -3 %CA7
END
STRING QDF_CODCAUSD 1
NUMBER F_CODTRIB 4
BEGIN
PROMPT 17 3 ""
PROMPT 3 4 ""
FLAGS "D"
END
LISTBOX F_DESCRCAUS 57
STRING QDF_CODCAUSD 1
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"
PROMPT 9 4 ""
FLAGS "D"
END
NUMBER F_CODTRIB 4
LISTBOX F_DESCRCAUS 60
BEGIN
PROMPT 11 4 ""
PROMPT 12 4 ""
ITEM "|"
ITEM "A|prestaz. di lav. aut. ... nelles. 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 dellautore o dellinventore..."
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 dallautore 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"
END

View File

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

View File

@ -30,7 +30,8 @@ class Tab770_application : public Tab_application
bool user_create();
virtual void init_modify_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() {}
virtual ~Tab770_application() {}
};
@ -161,6 +162,11 @@ bool Tab770_application::user_create()
_msk->set_handler(TCF_CAUSD1, TC_causD1_handler);
}
return TRUE;
}
bool Tab770_application::firm_change_enabled() const
{
return FALSE;
}
m73400(int argc, char* argv[])

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 <config.h>
#include <msksheet.h>
@ -38,18 +45,12 @@ class TManutenzione_quadri : public TApplication
virtual bool destroy();
virtual bool menu(MENU_TAG m);
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 menu_stampe (TMask_field& fld, KEY k);
static bool cancel_menu_stampe (TMask_field& fld, KEY k);
static bool menu_dich (TMask_field& fld, KEY k);
static bool cancel_menu_dich (TMask_field& fld, KEY k);
static bool menu_anagrafici (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);
static bool filtra_ditte(const TRelation * r);
static bool show_menu(TMask_field& fld, KEY k);
static bool hide_menu(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&);
TMask* load_mask(int n);
@ -68,7 +69,8 @@ class TManutenzione_quadri : public TApplication
public:
TManutenzione_quadri ();
~TManutenzione_quadri() {};
~TManutenzione_quadri() {};
virtual bool firm_change_enabled() const;
};
inline TManutenzione_quadri& app() { return (TManutenzione_quadri&) main_app(); }
@ -102,6 +104,11 @@ void TManutenzione_quadri::on_config_change()
TConfig conf(CONFIG_STUDIO);
_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
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" ;
break;
case 1:
__tmp << "Quadro A-1" ;
__tmp << "Quadro A1" ;
break;
case 2:
__tmp << "Quadro A-2";
__tmp << "Quadro A2";
break;
case 3:
__tmp << "Quadro A-3" ;
__tmp << "Quadro A3" ;
break;
case 4:
__tmp << "Quadro B" ;
break;
case 5:
__tmp << "Quadro B-1";
__tmp << "Quadro B1";
break;
case 6:
__tmp << "Quadro C" ;
@ -244,31 +251,31 @@ const char* TManutenzione_quadri::make_prompt(int i, stile vivid)
__tmp << "Quadro D" ;
break;
case 8:
__tmp << "Quadro D-1";
__tmp << "Quadro D1";
break;
case 9:
__tmp << "Quadro E" ;
break;
case 10:
__tmp << "Quadro E-1";
__tmp << "Quadro E1";
break;
case 11:
__tmp << "Quadro E-2";
__tmp << "Quadro E2";
break;
case 12:
__tmp << "Quadro F" ;
break;
case 13:
__tmp << "Quadro F-1";
__tmp << "Quadro F1";
break;
case 14:
__tmp << "Quadro F-2";
__tmp << "Quadro F2";
break;
case 15:
__tmp << "Quadro G" ;
break;
case 16:
__tmp << "Quadro G-1";
__tmp << "Quadro G1";
break;
case 17:
__tmp << "Quadro H" ;
@ -353,82 +360,78 @@ 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);
m.hide(DLG_NULL_SOCI);
m.hide(DLG_MANUTENZ_SOCI);
m.show(group);
}
else
if (f.dlg() == DLG_MANUTENZ) // enter su menu
{ // dati anagrafici
f.mask().hide(-MENU_MAIN);
f.mask().show(-MENU_DATIANAG);
f.mask().set_focus_field(DLG_STOPREC_DICH);
return TRUE;
}
if (f.dlg() == DLG_STOPREC_ST) // enter su menu
{ // stampe
f.mask().hide(-MENU_MAIN);
f.mask().show(-MENU_STAMPE);
f.mask().set_focus_field(DLG_STOPREC_ST0);
return TRUE;
}
if (f.dlg() == DLG_STOPREC_SD) // enter su menu
{ // soggetto dichiarante
f.mask().hide(-MENU_MAIN);
f.mask().show(-MENU_SOGGDICH);
f.mask().set_focus_field(DLG_STOPREC_SD0);
return TRUE;
}
if (f.dlg() == DLG_STOPREC_STQD) // enter su menu
{ // stampe dichiarazioni
f.mask().hide(-MENU_STAMPE);
f.mask().show(-MENU_STAMPEDICH);
f.mask().set_focus_field(B_BASE);
return TRUE;
}
return FALSE;
}
return TRUE;
}
bool TManutenzione_quadri::hide_menu(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
m.hide(group);
m.show(-1);
m.show(DLG_NULL_SOCI);
m.show(DLG_MANUTENZ_SOCI);
m.enable(DLG_NULL_SOCI, app()._soci);
m.enable(DLG_MANUTENZ_SOCI, app()._soci);
if (f.mask().field(DLG_STOPREC_DICH).shown()) // cancel da menu
{ // dati anagrafici
f.mask().hide(-MENU_DATIANAG);
f.mask().show(-MENU_MAIN);
f.mask().first_focus(DLG_MANUTENZ);
return TRUE;
}
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;
}
}
bool TManutenzione_quadri::menu_dich(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
TMask& m = f.mask();
m.hide(-1);
m.hide(DLG_NULL_SOCI);
m.hide(DLG_MANUTENZ_SOCI);
m.hide(-3);
m.show(-5);
}
return TRUE;
}
bool TManutenzione_quadri::cancel_menu_dich(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
TMask& m = f.mask();
m.hide(-5);
m.show(-3);
m.show(-1);
m.show(DLG_NULL_SOCI);
m.show(DLG_MANUTENZ_SOCI);
m.enable(DLG_NULL_SOCI, app()._soci);
m.enable(DLG_MANUTENZ_SOCI, app()._soci);
}
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;
return TRUE;
}
void TManutenzione_quadri::init_menu(TMask& m)
@ -442,24 +445,17 @@ void TManutenzione_quadri::init_menu(TMask& m)
// Se persona giuridica c'e' la voce "Amministratori"
_soci = tipo_persona(_codditta) == 'G';
m.enable(DLG_NULL_SOCI, _soci);
m.enable(DLG_MANUTENZ_SOCI, _soci);
m.set_handler(DLG_MANUTENZ_SOCI, exec_soci);
// Se non e' giuridica non si puo' usare il quadro G
m.enable(DLG_STOPREC_G, _soci);
// Fa uscire/entrare il menu' dati anagrafici
m.set_handler(DLG_MANUTENZ, menu_anagrafici);
m.set_handler(DLG_CANCEL_MENU, cancel_menu_anagrafici);
// Fa entrare e uscire il menu' STAMPE
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);
// aggancio handler d'ingresso sui menu
m.set_handler(DLG_MANUTENZ, show_menu);
m.set_handler(DLG_STOPREC_ST, show_menu);
m.set_handler(DLG_STOPREC_SD, show_menu);
m.set_handler(DLG_STOPREC_STQD,show_menu);
// Se non e' un dichiarante disabilita la corrispondente voce
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()
{
KEY tasto;
KEY tasto = K_TAB;
do {
if (!query_mask())
return FALSE;
while (tasto != K_QUIT)
{
// 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
enable_menu_item(M_FILE_NEW, FALSE);
enable_menu_item(M_FILE_NEW, FALSE);
// Disabilita cambio parametri
enable_menu_item(M_FILE_REVERT, FALSE);
if (!lock(TRUE))
continue;
load_mask(1);
_msk[1]->autoload(*_rel);
init_menu(*_msk[1]);
enable_menu_item(M_FILE_REVERT, FALSE);
// Impegna ditta
if (!lock(TRUE))
continue;
// carico la maschera di manutenzione quadri
load_mask(1);
_msk[1]->autoload(*_rel);
init_menu(*_msk[1]);
_msk[1]->open_modal();
}
// eseguo la maschera di manutenzione quadri
tasto = _msk[1]->run();
switch (tasto)
{
case K_ESC :
case K_QUIT :
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 :
lock(FALSE); // release lock
_msk[1]->close_modal(); // chiude maschera
break;
case K_SAVE :
break;
default:
break;
}
lock(FALSE); // release lock
} while (tasto != K_QUIT);
}
return FALSE;
}

View File

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

View File

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

View File

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

File diff suppressed because it is too large Load Diff

View File

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

View File

@ -7,6 +7,7 @@
#include <progind.h>
#include <lffiles.h>
#include <utility.h>
#include <relation.h>
#include "776300a.h"
#include "77lib.h"
@ -21,7 +22,8 @@ class TSelezioneDich : public TConfig_application
TConfig* _user_cnf, * _studio_cnf;
int _n_ditte;
int _anno_dic;
TLocalisamfile* _nditte;
// TLocalisamfile* _nditte;
TRelation* _nditte;
long _da_cod, _a_cod;
bool _builded_nomiditte;
@ -54,7 +56,7 @@ class TSelezioneDich : public TConfig_application
virtual bool user_create();
virtual bool user_destroy();
virtual bool firm_change_enabled() const;
TSelezioneDich() : TConfig_application(CONFIG_USER) ,
_a_cod(0L), _da_cod(0L) {}
virtual ~TSelezioneDich() {}
@ -80,7 +82,9 @@ bool TSelezioneDich::user_create()
_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",
"@1|Cod.@5|Ragione Sociale@50");
@ -100,7 +104,12 @@ bool TSelezioneDich::user_destroy()
delete _user_cnf;
delete _studio_cnf;
return TRUE;
}
}
bool TSelezioneDich::firm_change_enabled() const
{
return FALSE;
}
void TSelezioneDich::init_sheet()
{
@ -411,14 +420,15 @@ void TSelezioneDich::build_nomiditte()
{
_nomiditte.destroy();
// 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);
for (dt.first(); !dt.eof(); dt.next())
for (_nditte->first(); !_nditte->eof(); _nditte->next())
{
prg.addstatus(1);
bool good = exist_dichiar_770(dt.get_long("CODDITTA"));
if (!good) continue;
// bool good = exist_dichiar_770(dt.get_long("CODDITTA"));
// if (!good) continue;
_n_ditte++;
TToken_string* d = new TToken_string(64);

View File

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

View File

@ -171,33 +171,33 @@ BEGIN
MESSAGE COPY,F_DESCR1,1,22
END
LISTBOX TCF_CAUSD 1 250
LISTBOX TCF_CAUSD 1 62
BEGIN
PROMPT 1 5 "Causale D "
ITEM "|"
ITEM "A|A Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale"
ITEM "B|B Per prestazioni rese da amministratori, sindaci e revisori di società, associazione ed altri enti con o senza personalità giuridica"
ITEM "C|C Per prestazioni rese da collaboratori a giornali, riviste, enciclopedie e simili"
ITEM "D|D Per prestazioni rese da partecipanti a collegi e commissioni"
ITEM "E|E Per prestazioni rese dagli sportivi con contratto di lavoro autonomo"
ITEM "F|F Per prestazioni rese nell'ambito di rapporti di collaborazione coordinata e continuativa diversi da quelli sopra elencati"
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 "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 "I|I A titolo di utili spettanti ai soci promotori ed ai soci fondatori delle società di capitali"
ITEM "L|L Per la levata di protesti cambiari da parte dei segretari comunali"
ITEM "M|M Per l'utilizzazione economica da parte di soggetto diverso dall'autore o dall'inventore di opere dell'ingegno, brevetti, formule .."
ITEM "N|N A titolo di indennità corrisposte per la cessazione di rapporti di collaborazione coordinata e continuativa, assoggettabili a tassazione separata"
ITEM "P|P A titolo di indennità corrisposte per la cessazione dei rapporti di agenzia delle persone fisiche"
ITEM "Q|Q A titolo di indennità corrisposte per la cessazione da funzioni notarili"
ITEM "R|R A titolo di indennità corrisposte per la cessazione di attività sportiva professionale"
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 "T|T Altro titolo diverso dai precedenti"
ITEM "A|A prestaz. di lav. aut. ... nelles. 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 dellautore o dellinventore..."
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 dallautore 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"
FIELD LF_TABCOM->S2
FLAGS "D"
GROUP GR_CAUDD1
END
LISTBOX TCF_CAUSD1 1 60
LISTBOX TCF_CAUSD1 1 62
BEGIN
PROMPT 1 6 "Causale D1 "
ITEM "|"
@ -212,53 +212,6 @@ BEGIN
GROUP GR_CAUDD1
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
BEGIN
PROMPT 1 8 "Somme assoggettate a titolo di ritenute d'acconto"

View File

@ -82,7 +82,8 @@ class TGenericRel_application : public TRelation_application
void init_mask(TMask&);
public:
bool _ADCheckFallito;
bool _ADCheckFallito;
virtual bool firm_change_enabled() const;
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()
{
_alterna_field = FALSE;
@ -717,6 +723,7 @@ protected:
public:
TGeneric_application(const char* name) : _maskname(name) {}
virtual bool firm_change_enabled() const;
};
@ -746,14 +753,20 @@ bool TGeneric_application::menu(MENU_TAG)
if (k == K_QUIT) stop_run();
return k != K_QUIT;
}
bool TGeneric_application::firm_change_enabled() const
{
return FALSE;
}
///////////////////////////////////////////////////////////
// 2 modi :
// RUN,773,-1,771230m,89,"Prospetto del Quadro E1","E1" [771230i.uml]
// 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[])
{
// TApplication::check_parameters(argc, argv);

View File

@ -1,9 +1,7 @@
// Menu' stampe quadri a livello di studio
#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
BEGIN
@ -378,7 +376,7 @@ END
BUTTON DLG_QUIT 20 2
BEGIN
PROMTP -12 -1 "Fine"
PROMPT -12 -1 "Fine"
END
ENDPAGE