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

Continuano gli aggiustamenti per i videi veloci

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@4063 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luciano 1997-01-13 08:52:09 +00:00
parent fb1db0e91f
commit 76185dee2a
34 changed files with 3337 additions and 3331 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
m770/771230.cpp
View File

@ -105,10 +105,10 @@ TQuadroC_E2::TQuadroC_E2(char tipo): _rel(NULL), _mode(0), _tipoq(tipo)
bool TQuadroC_E2::changing_mask(int mode)
{
if (mode == MODE_QUERY)
return _mode != MODE_QUERY;
else
return TRUE;
if ((mode == MODE_MOD) && (_mode == MODE_INS))
return FALSE;
else
return _mode != mode;
}
TMask* TQuadroC_E2::get_mask(int mode)

15
m770/771230a.uml
View File

@ -11,7 +11,7 @@ END
ENDPAGE
PAGE "MODULO 770 - QUADRO D" -1 -1 78 18
PAGE "Quadro D" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -38,7 +38,7 @@ END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -55,7 +55,6 @@ BEGIN
ITEM "G|Giuridica"
MESSAGE COPY,F_TIPOAF
FIELD LF_QUAD->TIPOA
CHECKTYPE REQUIRED
KEY 1
END
@ -78,7 +77,7 @@ END
NUMBER F_CODANAGRPERC 5
BEGIN
PROMPT 15 8 ""
PROMPT 16 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA=#F_TIPOA))
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA
@ -98,7 +97,7 @@ END
NUMBER F_CODANAGRCOM 5
BEGIN
PROMPT 15 8 ""
PROMPT 16 8 ""
USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA)
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGRCOM
@ -154,15 +153,13 @@ BEGIN
KEY 1
FIELD LF_QUAD->NPROG
USE LF_QUAD
JOIN LF_ANAG TO LF_QUAD KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGR SELECT
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGR
INPUT NPROG F_NPROG
DISPLAY "N°" NPROG
DISPLAY "Tipo" TIPOA
DISPLAY "Codice@10" CODANAGR
//DISPLAY "Ragione@50" LF_ANAG->RAGSOC
DISPLAY "Causale" CODCAUS
DISPLAY "Totale@15" TOTALE
DISPLAY "Somme n/sogg rit" SOMME

58
m770/771230b.uml
View File

@ -3,21 +3,19 @@ TOOLBAR "" 0 19 0 3
#include <toolbar.h>
ENDPAGE
// Lista modifiche:
// 22.5.96 Output di S2 (causale D) invece di S0 (descrizione)
PAGE "Quadro D" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
FLAGS "H"
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAD->CODDITTA
KEY 1
END
LIST F_TIPOA 1 12
BEGIN
PROMPT 3 0 ""
PROMPT 2 0 ""
FIELD LF_QUAD->TIPOA
ITEM "F|Fisica"
ITEM "G|Giuridica"
@ -29,9 +27,7 @@ LIST F_TIPOAF 1 12
BEGIN
PROMPT 3 1 ""
ITEM "F|Fisica"
MESSAGE SHOW,F_IC
ITEM "G|Giuridica"
MESSAGE HIDE,F_IC|RESET,F_IC
FLAGS "HG"
END
@ -97,26 +93,42 @@ BEGIN
FLAGS "D"
END
LISTBOX F_DESCRCAUS 55
LISTBOX F_DESCRCAUS 57
BEGIN
PROMPT 20 3 ""
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"
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

21
m770/771230e.uml
View File

@ -11,7 +11,7 @@ END
ENDPAGE
PAGE "MODULO 770 - QUADRO D1" -1 -1 78 18
PAGE "Quadro D1" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -38,7 +38,7 @@ END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -55,7 +55,6 @@ BEGIN
ITEM "G|Giuridica"
MESSAGE COPY,F_TIPOAF
FIELD LF_QUAD1->TIPOA
CHECKTYPE REQUIRED
KEY 1
END
@ -78,7 +77,7 @@ END
NUMBER F_CODANAGRPERC 5
BEGIN
PROMPT 15 8 ""
PROMPT 16 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA=#F_TIPOA))
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA
@ -91,16 +90,15 @@ BEGIN
OUTPUT F_CODANAGRPERC CODANAGR
OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
MESSAGE COPY, F_CODANAGR
//FLAGS "P"
ADD RUN 775 -0
GROUP 2
END
NUMBER F_CODANAGRCOM 5
BEGIN
PROMPT 15 8 ""
PROMPT 16 8 ""
USE LF_ANAG KEY 1
INPUT TIPOA F_TIPOA SELECT (TIPOA=#F_TIPOA)
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRCOM
DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR
@ -110,7 +108,6 @@ BEGIN
OUTPUT F_RAGSOCCOM RAGSOC
MESSAGE COPY, F_CODANAGR
ADD RUN BA4 -1
//FLAGS "HP"
FLAGS "H"
GROUP 1
END
@ -132,7 +129,6 @@ BEGIN
OUTPUT F_RAGSOCCOM RAGSOC
OUTPUT F_CODANAGRCOM CODANAGR
OUTPUT F_TIPOA TIPOA
//FLAGS "P"
ADD RUN BA4 -1
MESSAGE COPY, F_RAGSOC
GROUP 1
@ -141,7 +137,6 @@ END
STRING F_RAGSOCPER 50
BEGIN
PROMPT 25 8 ""
//FLAGS "DP"
FLAGS "D"
GROUP 2
MESSAGE COPY, F_RAGSOC
@ -154,15 +149,13 @@ BEGIN
KEY 1
FIELD LF_QUAD1->NPROG
USE LF_QUAD1
JOIN LF_ANAG TO LF_QUAD1 KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGR SELECT
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGR
INPUT NPROG F_NPROG
DISPLAY "N°" NPROG
DISPLAY "Tipo" TIPOA
DISPLAY "Codice@10" CODANAGR
//DISPLAY "Ragione@50" LF_ANAG->RAGSOC
DISPLAY "Causale" CODCAUS
DISPLAY "Totale@15" TOTALE
DISPLAY "Quota provvigioni" QUOTAPRO

5
m770/771230f.uml
View File

@ -7,14 +7,15 @@ PAGE "Quadro C" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
FLAGS "H"
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAC->CODDITTA
KEY 1
END
LIST F_TIPOA 1 12
BEGIN
PROMPT 3 0 ""
PROMPT 2 0 ""
FIELD LF_QUAC->TIPOA
ITEM "F|Fisica"
ITEM "G|Giuridica"

19
m770/771230g.uml
View File

@ -11,7 +11,7 @@ END
ENDPAGE
PAGE "MODULO 770 - QUADRO E" -1 -1 78 18
PAGE "Quadro E" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -38,7 +38,7 @@ END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -55,7 +55,6 @@ BEGIN
ITEM "G|Giuridica"
MESSAGE COPY,F_TIPOAF
FIELD LF_QUAE->TIPOA
CHECKTYPE REQUIRED
KEY 1
END
@ -78,7 +77,7 @@ END
NUMBER F_CODANAGRPERC 5
BEGIN
PROMPT 15 8 ""
PROMPT 16 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA=#F_TIPOA))
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA
@ -91,14 +90,13 @@ BEGIN
OUTPUT F_CODANAGRPERC CODANAGR
OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
MESSAGE COPY, F_CODANAGR
//FLAGS "P"
ADD RUN 775 -0
GROUP 2
END
NUMBER F_CODANAGRCOM 5
BEGIN
PROMPT 15 8 ""
PROMPT 16 8 ""
USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA)
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGRCOM
@ -110,7 +108,6 @@ BEGIN
OUTPUT F_RAGSOCCOM RAGSOC
MESSAGE COPY, F_CODANAGR
ADD RUN BA4 -1
//FLAGS "HP"
FLAGS "H"
GROUP 1
END
@ -132,7 +129,6 @@ BEGIN
OUTPUT F_RAGSOCCOM RAGSOC
OUTPUT F_CODANAGRCOM CODANAGR
OUTPUT F_TIPOA TIPOA
//FLAGS "P"
ADD RUN BA4 -1
MESSAGE COPY, F_RAGSOC
GROUP 1
@ -141,7 +137,6 @@ END
STRING F_RAGSOCPER 50
BEGIN
PROMPT 25 8 ""
//FLAGS "DP"
FLAGS "D"
GROUP 2
MESSAGE COPY, F_RAGSOC
@ -154,15 +149,13 @@ BEGIN
KEY 1
FIELD LF_QUAE->NPROG
USE LF_QUAE
JOIN LF_ANAG TO LF_QUAE KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGR SELECT
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGR
INPUT NPROG F_NPROG
DISPLAY "N°" NPROG
DISPLAY "Tipo" TIPOA
DISPLAY "Codice@10" CODANAGR
//DISPLAY "Ragione@50" LF_ANAG->RAGSOC
DISPLAY "Causale" CODCAUS
DISPLAY "Imponibile@15" IMPONIBILE
DISPLAY "Aliquota" PERC

5
m770/771230h.uml
View File

@ -10,14 +10,15 @@ PAGE "Quadro E" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
FLAGS "H"
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAE->CODDITTA
KEY 1
END
LIST F_TIPOA 1 12
BEGIN
PROMPT 3 0 ""
PROMPT 2 0 ""
FIELD LF_QUAE->TIPOA
ITEM "F|Fisica"
ITEM "G|Giuridica"

25
m770/771230i.uml
View File

@ -17,7 +17,7 @@ END
ENDPAGE
PAGE "MODULO 770 - QUADRO E1" -1 -1 78 18
PAGE "Quadro E1" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -44,7 +44,7 @@ END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -61,7 +61,6 @@ BEGIN
ITEM "G|Giuridica"
MESSAGE COPY,F_TIPOAF
FIELD LF_QUAE1->TIPOA
//CHECKTYPE REQUIRED
FLAGS "D"
KEY 1
END
@ -86,10 +85,10 @@ END
NUMBER F_CODANAGRPERC 5
BEGIN
PROMPT 16 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA="F"))
USE LF_PERC
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPOA
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRPERC
DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR
@ -98,7 +97,6 @@ BEGIN
OUTPUT F_CODANAGRPERC CODANAGR
OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
MESSAGE COPY, F_CODANAGR
//FLAGS "P"
ADD RUN 775 -0
GROUP 2
END
@ -106,8 +104,8 @@ END
NUMBER F_CODANAGRCOM 5
BEGIN
PROMPT 15 8 ""
USE LF_ANAG KEY 1 SELECT (TIPOA="F")
INPUT TIPOA F_TIPOA
USE LF_ANAG
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRCOM
DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR
@ -117,7 +115,6 @@ BEGIN
OUTPUT F_RAGSOCCOM RAGSOC
MESSAGE COPY, F_CODANAGR
ADD RUN BA4 -1
//FLAGS "HP"
FLAGS "H"
GROUP 1
END
@ -139,7 +136,6 @@ BEGIN
OUTPUT F_RAGSOCCOM RAGSOC
OUTPUT F_CODANAGRCOM CODANAGR
OUTPUT F_TIPOA TIPOA
//FLAGS "P"
ADD RUN BA4 -1
MESSAGE COPY, F_RAGSOC
GROUP 1
@ -148,7 +144,6 @@ END
STRING F_RAGSOCPER 50
BEGIN
PROMPT 25 8 ""
//FLAGS "DP"
FLAGS "D"
GROUP 2
MESSAGE COPY, F_RAGSOC
@ -161,15 +156,13 @@ BEGIN
KEY 1
FIELD LF_QUAE1->NPROG
USE LF_QUAE1
JOIN LF_ANAG TO LF_QUAE1 KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGR SELECT
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGR
INPUT NPROG F_NPROG
DISPLAY "N°" NPROG
DISPLAY "Tipo" TIPOA
DISPLAY "Codice@10" CODANAGR
//DISPLAY "Ragione@50" LF_ANAG->RAGSOC
DISPLAY "Causale" CODCAUS
DISPLAY "Ammontare complessivo" AMMONTARE
DISPLAY "Aliquota" PERC

7
m770/771230l.uml
View File

@ -10,14 +10,15 @@ PAGE "Quadro E1" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
FLAGS "H"
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAE1->CODDITTA
KEY 1
END
LIST F_TIPOA 1 12
BEGIN
PROMPT 3 0 ""
PROMPT 2 0 ""
FIELD LF_QUAE1->TIPOA
ITEM "F|Fisica"
ITEM "G|Giuridica"
@ -70,7 +71,7 @@ END
STRING F_CODCAUS 2
BEGIN
PROMPT 3 3 "Causale "
USE %CA7 SELECT ((I0!="1015")&&(S1="E1")&&(B0="X")
USE %CA7 SELECT ((I0!="1015")&&(S1="E1")&&(B0="X"))
INPUT CODTAB F_CODCAUS
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione @60" S0

55
m770/771231.cpp
View File

@ -84,6 +84,7 @@ class TQuadroF : public TRelation_application
virtual TMask* get_mask(int mode) { return _msk; }
virtual bool changing_mask(int mode) { return FALSE; }
virtual void init_query_mode (TMask&);
virtual void init_insert_mode (TMask&);
virtual void init_modify_mode (TMask&);
void init_mask (TMask&);
void fill_ss(TMask& m);
@ -139,12 +140,12 @@ TQuadroF::TQuadroF(const char quadro)
break;
case '1':
_quadro = "F1";
_title = "Quadro F-1";
_title = "Quadro F1";
_tipo_prosp = 'B';
break;
case '2':
_quadro = "F2";
_title = "Quadro F-2";
_title = "Quadro F2";
_tipo_prosp = 'B';
break;
default:
@ -154,22 +155,24 @@ TQuadroF::TQuadroF(const char quadro)
inline TQuadroF& app() { return (TQuadroF&) main_app(); }
void TQuadroF::init_modify_mode (TMask& m)
void TQuadroF::init_insert_mode (TMask& m)
{
init_mask(m);
m.disable(DLG_DELREC);
}
void TQuadroF::init_modify_mode (TMask& m)
{
m.disable(DLG_DELREC); // disabilito Elimina nella toolbar
}
void TQuadroF::init_query_mode (TMask& m)
{
TString16 codditta; codditta << _codditta;
if (codditta != "0")
{
m.field(F_CODDITTA).set(codditta);
m.field(F_CODDITTA).check();
}
TString16 codditta;
codditta << _codditta;
TMask_field& f = m.field(F_CODDITTA);
f.set(codditta);
f.check();
m.send_key(K_AUTO_ENTER,0);
init_mask(m);
}
void TQuadroF::init_mask (TMask& m)
@ -182,7 +185,10 @@ bool TQuadroF::user_create()
if (_quadro == "F")
{
_msk = new TMask("771231a");
_msk->disable(DLG_CANCEL); // disabilito Annulla nella toolbar
_msk->disable(DLG_CANCEL); // disabilito Annulla nella toolbar
_msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
_msk->set_handler(E_PROVENTI, eprov_handler);
_msk->set_handler(E_ALI, ealiq_handler);
_msk->set_handler(F_SOGG, fsogg_handler);
@ -231,7 +237,11 @@ bool TQuadroF::user_create()
if (_quadro == "F1")
{
_msk = new TMask("771232a");
_msk->disable(DLG_CANCEL); // disabilito Annulla nella toolbar
_msk->disable(DLG_CANCEL); // disabilito Annulla nella toolbar
_msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
TSheet_field& p_b = (TSheet_field&) _msk->field(F_B);
p_b.sheet_mask().set_handler(S_CODC, codc_handler);
p_b.sheet_mask().set_handler(S_ALIQ, aliq_handler);
@ -251,7 +261,11 @@ bool TQuadroF::user_create()
if (_quadro == "F2")
{
_msk = new TMask("771233a");
_msk->disable(DLG_CANCEL); // disabilito Annulla nella toolbar
_msk->disable(DLG_CANCEL); // disabilito Annulla nella toolbar
_msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
TSheet_field& p_b = (TSheet_field&) _msk->field(F_B);
p_b.sheet_mask().set_handler(S_CODC, codc_handler);
p_b.sheet_mask().set_handler(S_ALIQ, aliq_handler);
@ -337,7 +351,8 @@ void TQuadroF::riempi_prospetto(TMask& m, const char prosp)
}
for (i = last_a; i < PROSP_RIGHE; i++)
ss.row(i);
ss.force_update();
// dava origine ad una indesiderata doppia visualizzazione
// ss.force_update();
break;
}
case 'B': {
@ -363,8 +378,9 @@ void TQuadroF::riempi_prospetto(TMask& m, const char prosp)
}
for (i = last_b+1; i < PROSP_RIGHE; i++)
ss.row(i);
if (_quadro != "F")
ss.force_update();
// dava origine ad una indesiderata doppia visualizzazione
// if (_quadro != "F")
// ss.force_update();
break; }
case 'C': {
TSheet_field& ss = (TSheet_field&)m.field(F_C);
@ -939,10 +955,11 @@ real TQuadroF::calcola_rope(TMask_field& f, const real& sogg, const bool force)
m.reset(id_rope);
// Nel prospetto A oltre alla ritenuta operata setto anche S_SALD
if (app()._tipo_prosp == 'A')
if ((app()._tipo_prosp == 'E') && (m.get_sheet()->dlg() == F_A))
{
const real pa_col5(m.get(S_TACC));
const real pa_col5(f.mask().get(S_TACC));
real pa_col6 = pa_col4 - pa_col5;
if (pa_col6 > ZERO)
{
TString col6_st(pa_col6.string());

35
m770/771231a.h
View File

@ -1,24 +1,25 @@
// 771231a.h - quadro F
// *NOTA* gli identificatori fino al 119 sono per spreadsheet
#define F_CODDITTA 101
#define F_RAGDITTA 102
#define F_A 103
#define F_B 104
#define F_C 105
#define F_D 106
#define F_A1 107
#define F_A2 108
#define F_A3 109
#define F_A4 110
#define E_CAMBIAL 111
#define E_PROVENTI 112
#define E_ALI 113
#define E_ROP 114
#define F_DESCRCAUS 115
#define F_ALI 116
#define F_SOGG 117
#define F_ROP 118
#define F_CODCAU 119
#define F_A 103
#define F_B 104
#define F_C 105
#define F_D 106
#define F_A1 120
#define F_A2 121
#define F_A3 122
#define F_A4 123
#define E_CAMBIAL 124
#define E_PROVENTI 125
#define E_ALI 126
#define E_ROP 127
#define F_DESCRCAUS 128
#define F_ALI 129
#define F_SOGG 130
#define F_ROP 131
#define F_CODCAU 132

13
m770/771231a.uml
View File

@ -1,9 +1,10 @@
#include "771231a.h"
TOOLBAR "" 0 20 0 2
#include "toolb_77.h"
#include "toolbar.h"
ENDPAGE
PAGE "Modello 770 - Quadro F" -1 -1 78 18
PAGE "Prospetto A" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -13,13 +14,13 @@ END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
USE LF_NDITTE KEY 1
USE LF_NDITTE
INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGDITTA RAGSOC
FIELD LF_QUAF->CODDITTA
KEY 1
CHECKTYPE REQUIRED
FLAGS "GR"
FLAGS "GRD"
END
STRING F_RAGDITTA 50
@ -101,7 +102,7 @@ END
ENDPAGE
PAGE "Modello 770 - Quadro F" -1 -1 78 18
PAGE "Prospetto B,C" -1 -1 78 18
TEXT DLG_NULL
BEGIN
@ -135,7 +136,7 @@ END
ENDPAGE
PAGE "Modello 770 - Quadro F" -1 -1 78 18
PAGE "Prospetto D,E,F" -1 -1 78 18
TEXT DLG_NULL
BEGIN

15
m770/771232.cpp
View File

@ -133,12 +133,11 @@ void TQuadroG::init_modify_mode (TMask& m)
void TQuadroG::init_query_mode (TMask& m)
{
TString16 codditta; codditta << _codditta;
if (codditta != "0")
{
m.field(F_CODDITTA).set(codditta);
m.field(F_CODDITTA).check();
}
TString16 codditta;
codditta << _codditta;
TMask_field& f = m.field(F_CODDITTA);
f.set(codditta);
f.check();
m.send_key(K_AUTO_ENTER,0);
}
@ -299,6 +298,10 @@ bool TQuadroG::user_create()
_msk = new TMask("771234a");
_rel = new TRelation(LF_QUAG);
_codditta = get_firm_770();
_msk->disable(DLG_CANCEL); // disabilito Annulla nella toolbar
_msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
_msk->set_handler(DLG_DISTINTA, exec_distinta);
TSheet_field& p1 = (TSheet_field&) _msk->field(F_P1);
p1.set_notify(p1_notify);

7
m770/771232a.uml
View File

@ -1,9 +1,10 @@
#include "771231a.h"
TOOLBAR "" 0 20 0 2
#include "toolb_77.h"
#include "toolbar.h"
ENDPAGE
PAGE "Modello 770 - Quadro F-1" -1 -1 78 18
PAGE "Quadro F1" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -19,7 +20,7 @@ BEGIN
FIELD LF_QUAF1->CODDITTA
KEY 1
CHECKTYPE REQUIRED
FLAGS "GR"
FLAGS "GRD"
END
STRING F_RAGDITTA 50

7
m770/771233a.uml
View File

@ -1,9 +1,10 @@
#include "771231a.h"
TOOLBAR "" 0 20 0 2
#include "toolb_77.h"
#include "toolbar.h"
ENDPAGE
PAGE "Modello 770 - Quadro F-2" -1 -1 78 18
PAGE "Quadro F2" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -19,7 +20,7 @@ BEGIN
FIELD LF_QUAF2->CODDITTA
KEY 1
CHECKTYPE REQUIRED
FLAGS "GR"
FLAGS "GRD"
END
STRING F_RAGDITTA 50

4
m770/771233b.uml
View File

@ -1,4 +1,4 @@
// 771233b.uml - quadro F2 prospetto delle ...
// 771232b.uml - quadro F2 prospetto B
PAGE "Prospetto B" -1 -1 76 9
@ -6,6 +6,7 @@ NUMBER 101 2
BEGIN
PROMPT 1 1 "Causale "
USE %CA7 SELECT (S1="F2")
VALIDATE REQIF_FUNC 4 102 103 104 105
INPUT CODTAB 101
DISPLAY "Codice " CODTAB
DISPLAY "Descrizione @60" S0
@ -16,7 +17,6 @@ BEGIN
OUTPUT 103 R0
FLAGS "Z"
WARNING "Manca la causale"
VALIDATE REQIF_FUNC 6 102 103 104 105
ADD RUN 773mod -3 %CA7
GROUP 1
END

137
m770/771234a.uml
View File

@ -1,50 +1,61 @@
#include "771234a.h"
TOOLBAR "" 0 20 0 2
BUTTON DLG_SAVEREC 8 2
BEGIN
PROMPT -16 -1 ""
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
PROMPT -17 -1 "~Registra"
MESSAGE EXIT,K_SAVE
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END
BUTTON DLG_DISTINTA 8 2
BUTTON DLG_NEWREC 8 2
BEGIN
PROMPT -26 -1 "~Distinta"
// MESSAGE EXIT,K_SAVE
PROMPT -27 -1 "~Nuovo"
MESSAGE EXIT,K_INS
PICTURE BMP_NEWREC
PICTURE BMP_NEWRECDN
END
BUTTON DLG_DELREC 8 2
BEGIN
PROMPT -36 -1 "~Elimina"
MESSAGE EXIT,K_DEL
FLAGS "D"
PROMPT -37 -1 "~Elimina"
MESSAGE EXIT,K_DEL
PICTURE BMP_DELREC
PICTURE BMP_DELRECDN
END
BUTTON DLG_FINDREC 8 2
BEGIN
PROMPT -46 -1 "Ri~cerca"
MESSAGE EXIT,K_F9
FLAGS "D"
PROMPT -47 -1 "Ri~cerca"
MESSAGE EXIT,K_F9
PICTURE 126
END
BUTTON DLG_CANCEL 8 2
BEGIN
PROMPT -56 -1 ""
MESSAGE EXIT,K_ESC
FLAGS "D"
PROMPT -57 -1 "~Annulla"
MESSAGE EXIT,K_ESC
PICTURE 102
END
BUTTON DLG_QUIT 8 2
BEGIN
PROMPT -66 -1 ""
MESSAGE EXIT,K_QUIT
PROMPT -67 -1 "~Fine"
MESSAGE EXIT,K_QUIT
PICTURE BMP_QUIT
PICTURE BMP_QUITDN
END
BUTTON DLG_DISTINTA 8 2
BEGIN
PROMPT -77 -1 "~Distinta"
END
ENDPAGE
PAGE "Modello 770 - Quadro G" -1 -1 78 18
PAGE "Prospetto 1" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -60,7 +71,7 @@ BEGIN
FIELD LF_QUAG->CODDITTA
KEY 1
CHECKTYPE REQUIRED
FLAGS "GR"
FLAGS "GRD"
MESSAGE COPY,1@
END
@ -73,15 +84,15 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 1 3 "@bPROSPETTO N. 1 DETERMINAZIONE DELL'AMMONTARE DEGLI UTILI "
PROMPT 1 3 "@bDeterminazione dell'ammontare degli utili"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 4 "I - UTILI IN DENARO"
PROMPT 1 4 "I - Utili in denaro"
END
SPREADSHEET F_P1 0 6
SPREADSHEET F_P1 78 5
BEGIN
PROMPT 0 5 ""
ITEM "Data delib."
@ -94,7 +105,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 1 11 "II - UTILI IN NATURA"
PROMPT 1 11 "II - Utili in natura"
END
DATE F_DATADELIB
@ -109,7 +120,6 @@ BEGIN
FIELD LF_QUAG->P2DATADI
END
//SPREADSHEET F_PII 0 6
SPREADSHEET F_PII 78 5
BEGIN
PROMPT 0 13 ""
@ -120,14 +130,14 @@ END
NUMBER F_P1II_35 15
BEGIN
PROMPT 12 18 "IMPORTO IMPUTABILE A CIASCUNA AZIONE O QUOTA "
PROMPT 1 20 "Importo imputabile a ciascuna quota o azione "
PICTURE "."
FIELD LF_QUAG->P2IMPQ
END
ENDPAGE
PAGE "Modello 770 - Quadro G" -1 -1 78 18
PAGE "Prospetto 2" -1 -1 78 18
#define COL1 0
#define COL2 16
@ -137,7 +147,7 @@ PAGE "Modello 770 - Quadro G" -1 -1 78 18
TEXT DLG_NULL
BEGIN
PROMPT COL1 1 "@bPROSPETTO N. 2 PROSPETTO UTILI PAGATI "
PROMPT COL1 1 "@bProspetto utili pagati"
END
SPREADSHEET F_P2 0 8
@ -153,11 +163,11 @@ END
ENDPAGE
PAGE "Modello 770 - Quadro G" -1 -1 78 18
PAGE "Prospetto 3" -1 -1 78 18
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bPROSPETTO N. 3 PROSPETTO DELLE RITENUTE "
PROMPT 1 1 "@bProspetto delle ritenute"
END
SPREADSHEET F_PIII 0 15
@ -177,24 +187,29 @@ ENDPAGE
#define CP31 1
#define CP32 12
#define CP33 29
#define CP34 36
#define CP35 53
#define CP34 52
#define CP35 63
PAGE "Modello 770 - Quadro G" -1 -1 78 18
PAGE "Prospetto 4" -1 -1 78 18
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bPROSPETTO N. 4 PROSPETTO DEI VERSAMENTI DELLE RITENUTE "
PROMPT 1 1 "@bProspetto dei versamenti delle ritenute"
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 2 "Causale dei versamenti Importo versato "
PROMPT CP31 3 "Causale dei versamenti"
END
TEXT DLG_NULL
BEGIN
PROMPT CP35 3 "Importo versato"
END
NUMBER F_P411 15
BEGIN
PROMPT CP35 4 ""
PROMPT CP35 5 ""
PICTURE "."
FIELD LF_QUAG->P421
MESSAGE K_TAB,F_P41TOT
@ -202,7 +217,7 @@ END
NUMBER F_P412 15
BEGIN
PROMPT CP35 7 ""
PROMPT CP35 8 ""
PICTURE "."
FIELD LF_QUAG->P422
MESSAGE K_TAB,F_P41TOT
@ -210,7 +225,7 @@ END
NUMBER F_P413 15
BEGIN
PROMPT CP35 8 ""
PROMPT CP35 9 ""
PICTURE "."
FIELD LF_QUAG->P423
MESSAGE K_TAB,F_P41TOT
@ -218,7 +233,7 @@ END
NUMBER F_P414 15
BEGIN
PROMPT CP35 10 ""
PROMPT CP35 11 ""
PICTURE "."
FIELD LF_QUAG->P424
MESSAGE K_TAB,F_P41TOT
@ -226,7 +241,7 @@ END
NUMBER F_P415 15
BEGIN
PROMPT CP35 11 ""
PROMPT CP35 12 ""
PICTURE "."
FIELD LF_QUAG->P425
MESSAGE K_TAB,F_P41TOT
@ -234,7 +249,7 @@ END
NUMBER F_P416 15
BEGIN
PROMPT CP35 12 ""
PROMPT CP35 13 ""
PICTURE "."
FIELD LF_QUAG->P426
MESSAGE K_TAB,F_P41TOT
@ -242,7 +257,7 @@ END
NUMBER F_P417 15
BEGIN
PROMPT CP35 13 ""
PROMPT CP35 14 ""
PICTURE "."
FIELD LF_QUAG->P427
MESSAGE K_TAB,F_P41TOT
@ -250,7 +265,7 @@ END
NUMBER F_P418 15
BEGIN
PROMPT CP35 16 ""
PROMPT CP35 17 ""
PICTURE "."
FIELD LF_QUAG->P428
MESSAGE K_TAB,F_P41TOT
@ -258,7 +273,7 @@ END
NUMBER F_P419 15
BEGIN
PROMPT CP35 17 ""
PROMPT CP35 18 ""
PICTURE "."
FIELD LF_QUAG->P429
MESSAGE K_TAB,F_P41TOT
@ -266,7 +281,7 @@ END
NUMBER F_P41TOT 15
BEGIN
PROMPT CP35 18 ""
PROMPT CP35 19 ""
PICTURE "."
FLAGS "D"
FIELD LF_QUAG->P42TOT
@ -275,82 +290,82 @@ END
TEXT DLG_NULL
BEGIN
PROMPT CP31 3 "1) Ritenute 10% sugli utili di cui e' stata "
PROMPT CP31 4 "1) Ritenute 10% sugli utili di cui e' stata "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 4 " deliberata la distribuzione nel 1995"
PROMPT CP31 5 " deliberata la distribuzione nel 1995"
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 5 "2) Ritenute 10%,12,50,15%,30%,32,4% o 50% sugli utili in denaro "
PROMPT CP31 6 "2) Ritenute 10%,12,50,15%,30%,32,4% o 50% sugli utili"
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 6 " o in natura, su azioni di risparmio ..."
PROMPT CP31 7 " in denaro o in natura, su azioni di risparmio ..."
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 7 " a) effettuate nel primo semestre 1995 "
PROMPT CP31 8 " a) effettuate nel primo semestre 1995 "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 8 " b) effettuate nel secondo semestre 1995 "
PROMPT CP31 9 " b) effettuate nel secondo semestre 1995 "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 9 "3) Versamento di conguaglio su utili in denaro "
PROMPT CP31 10 "3) Versamento di conguaglio su utili in denaro "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 10 " a) effettuate nel primo semestre 1995 "
PROMPT CP31 11 " a) effettuate nel primo semestre 1995 "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 11 " meno recuperi "
PROMPT CP31 12 " meno recuperi "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 12 " b) effettuate nel secondo semestre 1995 "
PROMPT CP31 13 " b) effettuate nel secondo semestre 1995 "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 13 " meno recuperi "
PROMPT CP31 14 " meno recuperi "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 14 "4) Ritenuta 10% sugli utili corrisposti da società"
PROMPT CP31 15 "4) Ritenuta 10% sugli utili corrisposti da società"
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 15 " cooperative ai soci persone fisiche "
PROMPT CP31 16 " cooperative ai soci persone fisiche "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 16 " a) effettuate nel primo semestre 1995 "
PROMPT CP31 17 " a) effettuate nel primo semestre 1995 "
END
TEXT DLG_NULL
BEGIN
PROMPT CP31 17 " b) effettuate nel secondo semestre 1995 "
PROMPT CP31 18 " b) effettuate nel secondo semestre 1995 "
END
TEXT DLG_NULL
BEGIN
PROMPT CP34 18 "@bTOTALE "
PROMPT CP34 19 "@bTotale"
END
ENDPAGE

5
m770/771290.cpp
View File

@ -54,7 +54,6 @@ public:
static bool dettaglio (TMask_field& f , KEY k);
static bool desc_ente (TMask_field& f , KEY k);
static bool codditta_hnd(TMask_field& f , KEY k);
TQuadro_H_app() {}
};
@ -236,12 +235,10 @@ void TQuadro_H_app::init_insert_mode(TMask& m)
void TQuadro_H_app::init_query_mode(TMask& m)
{
on_config_change();
m.set(F_H1ANNO, _anno);
// m.field(F_H1ANNO).set_dirty(FALSE);
m.disable(F_BTG_GENERA);
m.disable(F_BTG_DETTAGLIO);
m.show(F_ENTE);
m.hide(F_ENTEBIS);
}

31
m770/771290a.uml
View File

@ -16,17 +16,16 @@ END
ENDPAGE
PAGE "Gestione quadro H" -1 -1 78 18
PAGE "Quadro H" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 0 0 ""
FLAGS "R"
PROMPT 1 0 ""
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
PROMPT 3 1 "Ditta "
FLAGS "GRD"
USE LF_NDITTE KEY 1
FIELD LF_QUAH->CODDITTA
@ -40,18 +39,18 @@ END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER F_H1ANNO 4
BEGIN
PROMPT 2 5 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FIELD LF_QUAH->H1ANNO
KEY 1
USE LF_QUAH KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (H1ANNO=#F_H1ANNO))
USE LF_QUAH
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
INPUT CODDITTA F_CODDITTA SELECT
INPUT H1ANNO F_H1ANNO
DISPLAY "Ditta" CODDITTA
DISPLAY "Anno" H1ANNO
@ -67,16 +66,16 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "Ente previdenziale"
PROMPT 2 7 "Ente previdenziale assistenza percettore"
END
NUMBER F_ENTE 2
BEGIN
PROMPT 2 8 "e assistenza percettore "
PROMPT 2 8 ""
COPY USE F_H1ANNO
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
INPUT H1ANNO F_H1ANNO
INPUT CODDITTA F_CODDITTA SELECT
INPUT H1ANNO F_H1ANNO SELECT
INPUT H1ENTE F_ENTE
COPY DISPLAY F_H1ANNO
COPY OUTPUT F_H1ANNO
@ -87,9 +86,9 @@ END
NUMBER F_ENTEBIS 2
BEGIN
PROMPT 2 8 "e assistenza percettore tabella "
PROMPT 2 8 ""
FLAGS "G"
USE %ENT KEY 1
USE %ENT
CHECKTYPE FORCED
INPUT CODTAB F_ENTEBIS
DISPLAY "Codice" CODTAB
@ -104,7 +103,7 @@ END
STRING F_DESCENTE 60
BEGIN
PROMPT 2 9 "Descrizione "
PROMPT 7 8 ""
FLAGS "D"
END

42
m770/771295a.uml
View File

@ -6,17 +6,16 @@ TOOLBAR "" 0 20 0 2
ENDPAGE
PAGE "Gestione dettaglio quadro H" -1 -1 78 18
PAGE "Dettaglio quadro H" -1 -1 78 18
GROUPBOX DLG_NULL 78 4
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 0 0 ""
FLAGS "R"
PROMPT 1 0 ""
END
NUMBER F_CODDITTA 5
BEGIN
PROMPT 2 1 "Ditta "
PROMPT 3 1 "Ditta "
FLAGS "FRD"
USE LF_NDITTE KEY 1
FIELD LF_DETH->CODDITTA
@ -30,13 +29,13 @@ END
STRING F_RAGSOC 50
BEGIN
PROMPT 2 2 "Ragione sociale "
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER F_ANNO 4
BEGIN
PROMPT 2 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FIELD LF_DETH->ANNO
KEY 1
USE LF_DETH KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (ANNO=#F_ANNO) && (ENTE=#F_ENTE))
@ -52,12 +51,17 @@ BEGIN
OUTPUT F_ENTE ENTE
OUTPUT F_DATAVERS DATAVERS
OUTPUT F_NUMVERS NUMVERS
FLAGS "R"
FLAGS "RD"
END
TEXT DLG_NULL
BEGIN
PROMPT 2 7 "Ente previdenziale assistenza percettore"
END
NUMBER F_ENTE 2
BEGIN
PROMPT 2 5 "Ente "
PROMPT 2 8 ""
COPY USE F_ANNO
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
@ -67,19 +71,19 @@ BEGIN
COPY OUTPUT F_ANNO
FIELD LF_DETH->ENTE
VALIDATE NOT_EMPTY_FUNC
FLAGS "G"
FLAGS "GD"
KEY 1
END
STRING F_DESCRENTE 60
BEGIN
PROMPT 2 6 "Descrizione "
PROMPT 7 8 ""
FLAGS "D"
END
DATE F_DATAVERS
BEGIN
PROMPT 2 7 "Data versamento "
PROMPT 2 10 "Data versamento "
COPY USE F_ANNO
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
@ -94,7 +98,7 @@ END
NUMBER F_NUMVERS 5
BEGIN
PROMPT 2 8 "Numero versamento "
PROMPT 2 11 "Numero versamento "
COPY USE F_ANNO
CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA
@ -111,14 +115,14 @@ END
NUMBER F_NREGINOTA 7
BEGIN
PROMPT 2 10 "N.ro registr. I nota "
PROMPT 2 12 "N.ro registr. I nota "
FLAGS "R"
FIELD LF_DETH->NREGINOTA
END
NUMBER F_IMPVERS 15
BEGIN
PROMPT 2 11 "Importo versato "
PROMPT 2 13 "Importo versato "
PICTURE "."
FLAGS "R"
FIELD LF_DETH->IMPVERS
@ -126,12 +130,12 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 12 "Contributi obbligatori"
PROMPT 2 14 "Contributi obbligatori"
END
NUMBER F_CONTRDAT 15
BEGIN
PROMPT 2 13 "a carico del datore di lavoro "
PROMPT 2 15 "a carico del datore di lavoro "
FIELD LF_DETH->CONTRDAT
PICTURE "."
FLAGS "R"
@ -139,12 +143,12 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 2 14 "Contributi obbligatori a"
PROMPT 2 16 "Contributi obbligatori a"
END
NUMBER F_CONTRLAV 15
BEGIN
PROMPT 2 15 "carico del lavoratore dipendente "
PROMPT 2 17 "carico del lavoratore dipendente "
FIELD LF_DETH->CONTRLAV
PICTURE "."
FLAGS "R"

6
m770/77g1.cpp
View File

@ -20,7 +20,7 @@ TQuadroG1::TQuadroG1()
{
_registra = FALSE;
_quadro = "G1";
_title = "Quadro G-1";
_title = "Quadro G1";
}
inline TQuadroG1& app() { return (TQuadroG1&) main_app(); }
@ -94,6 +94,10 @@ bool TQuadroG1::user_create()
_msk = new TMask("77g1a");
_rel = new TRelation(LF_QUAG1);
_codditta = get_firm_770();
_msk->disable(DLG_CANCEL); // disabilito Annulla nella toolbar
_msk->disable(DLG_NEWREC); // disabilito Nuovo nella toolbar
_msk->disable(DLG_DELREC); // disabilito Elimina nella toolbar
_msk->disable(DLG_FINDREC); // disabilito Ricerca nella toolbar
TSheet_field& p1 = (TSheet_field&) _msk->field(F_PI);
p1.set_notify(p1_notify);
return TRUE;

9
m770/77g1a.uml
View File

@ -1,9 +1,10 @@
#include "77g1a.h"
TOOLBAR "" 0 20 0 2
#include "77toolb.h"
#include "toolbar.h"
ENDPAGE
PAGE "Modello 770 - Quadro G-1" -1 -1 78 18
PAGE "Quadro G1" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -19,7 +20,7 @@ BEGIN
FIELD LF_QUAG1->CODDITTA
KEY 1
CHECKTYPE REQUIRED
FLAGS "GR"
FLAGS "GRD"
MESSAGE COPY,1@
END
@ -32,7 +33,7 @@ END
TEXT DLG_NULL
BEGIN
PROMPT 1 3 "@bPROSPETTO DEGLI UTILI E DELLE RITENUTE "
PROMPT 1 3 "@bProspetto degli utili e delle ritenute"
END
SPREADSHEET F_PI 0 13

25
m770/77qe2a.uml
View File

@ -3,7 +3,7 @@ TOOLBAR "" 0 20 0 2
#include "toolbar.h"
ENDPAGE
PAGE "MODULO 770 - QUADRO E2" -1 -1 78 18
PAGE "Quadro E2" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -30,7 +30,7 @@ END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -47,7 +47,6 @@ BEGIN
ITEM "G|Giuridica"
MESSAGE COPY,F_TIPOAF
FIELD LF_QUAE2->TIPOA
CHECKTYPE REQUIRED
KEY 1
END
@ -70,11 +69,11 @@ END
NUMBER F_CODANAGRPERC 5
BEGIN
PROMPT 15 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA=#F_TIPOA))
PROMPT 16 8 ""
USE LF_PERC
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPOA
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRPERC
DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR
@ -89,9 +88,9 @@ END
NUMBER F_CODANAGRCOM 5
BEGIN
PROMPT 15 8 ""
USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA)
INPUT TIPOA F_TIPOA
PROMPT 16 8 ""
USE LF_ANAG
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRCOM
DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR
@ -142,15 +141,13 @@ BEGIN
KEY 1
FIELD LF_QUAE2->NPROG
USE LF_QUAE2
JOIN LF_ANAG TO LF_QUAE2 KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGR SELECT
INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGR
INPUT NPROG F_NPROG
DISPLAY "N°" NPROG
DISPLAY "Tipo" TIPOA
DISPLAY "Codice@10" CODANAGR
//DISPLAY "Ragione@50" LF_ANAG->RAGSOC
DISPLAY "Causale" CODCAUS
DISPLAY "Somme soggette a ritenuta" SOGGRIT
DISPLAY "Aliquota" PERC

33
m770/77qe2b.uml
View File

@ -7,14 +7,15 @@ PAGE "Quadro E2" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
FLAGS "H"
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAE2->CODDITTA
KEY 1
END
LIST F_TIPOA 1 12
BEGIN
PROMPT 3 0 ""
PROMPT 2 0 ""
FIELD LF_QUAE2->TIPOA
ITEM "F|Fisica"
ITEM "G|Giuridica"
@ -106,35 +107,9 @@ BEGIN
FIELD LF_QUAE2->SOGGRIT
PICTURE "."
FLAGS "R"
MESSAGE K_TAB,F_PERC
// MESSAGE K_TAB,F_PERC
END
/****************
TEXT DLG_NULL
BEGIN
PROMPT 38 6 "Amm. compl. premi riscossi"
END
TEXT DLG_NULL
BEGIN
PROMPT 38 7 "sui quali le ritenute sono"
END
TEXT DLG_NULL
BEGIN
PROMPT 38 8 "state commisurate"
END
NUMBER F_IMPONIBILE 15
BEGIN
PROMPT 38 9 ""
FIELD LF_QUAE1->AMMONTARE
PICTURE "."
FLAGS "R"
MESSAGE K_TAB,F_IMPORTO|K_TAB,F_NETTO
END
*******************************/
GROUPBOX DLG_NULL 32 5
BEGIN
PROMPT 3 11 "@bRitenute operate"

23
m770/77qgda.uml
View File

@ -1,5 +1,6 @@
// Distinta quadro G
#include "77qgd.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
@ -11,7 +12,7 @@ ENDPAGE
#define LF_QUAGD 101
PAGE "MODULO 770 - QUADRO G" -1 -1 78 18
PAGE "Distinta quadro G" -1 -1 78 18
GROUPBOX DLG_NULL 78 3
BEGIN
@ -38,7 +39,7 @@ END
NUMBER F_ANNODIC 4
BEGIN
PROMPT 52 4 "Anno dichiarazione "
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
@ -60,7 +61,6 @@ BEGIN
ITEM "G|Giuridica"
MESSAGE COPY,F_TIPOAF
FIELD LF_QUAGD->TIPOA
CHECKTYPE REQUIRED
KEY 1
END
@ -83,11 +83,11 @@ END
NUMBER F_CODANAGRPERC 5
BEGIN
PROMPT 15 7 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA=#F_TIPOA))
PROMPT 17 7 ""
USE LF_PERC
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA
INPUT TIPOA F_TIPOA
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRPERC
DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR
@ -103,9 +103,9 @@ END
NUMBER F_CODANAGRCOM 5
BEGIN
PROMPT 15 7 ""
USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA)
INPUT TIPOA F_TIPOA
PROMPT 17 7 ""
USE LF_ANAG
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRCOM
DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR
@ -155,10 +155,9 @@ BEGIN
PROMPT 2 9 "@bNumero "
FIELD LF_QUAGD->NPROG
USE LF_QUAGD
JOIN LF_ANAG TO LF_QUAGD KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGR SELECT
INPUT CODANAGR F_CODANAGR
INPUT NPROG F_NPROG
DISPLAY "N°" NPROG
DISPLAY "Tipo" TIPOA