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)

17
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
@ -153,16 +152,14 @@ BEGIN
CHECKTYPE REQUIRED
KEY 1
FIELD LF_QUAD->NPROG
USE LF_QUAD
JOIN LF_ANAG TO LF_QUAD KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
USE LF_QUAD
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

62
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"
BEGIN
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"
FLAGS "D"
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

25
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
@ -90,17 +89,16 @@ BEGIN
OUTPUT F_TIPOA TIPOA
OUTPUT F_CODANAGRPERC CODANAGR
OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
MESSAGE COPY, F_CODANAGR
//FLAGS "P"
MESSAGE COPY, F_CODANAGR
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
@ -153,16 +148,14 @@ BEGIN
CHECKTYPE REQUIRED
KEY 1
FIELD LF_QUAD1->NPROG
USE LF_QUAD1
JOIN LF_ANAG TO LF_QUAD1 KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
USE LF_QUAD1
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

7
m770/771230f.uml
View File

@ -6,15 +6,16 @@ ENDPAGE
PAGE "Quadro C" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
FLAGS "H"
BEGIN
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"

23
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
@ -90,15 +89,14 @@ BEGIN
OUTPUT F_TIPOA TIPOA
OUTPUT F_CODANAGRPERC CODANAGR
OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
MESSAGE COPY, F_CODANAGR
//FLAGS "P"
MESSAGE COPY, F_CODANAGR
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
@ -153,16 +148,14 @@ BEGIN
CHECKTYPE REQUIRED
KEY 1
FIELD LF_QUAE->NPROG
USE LF_QUAE
JOIN LF_ANAG TO LF_QUAE KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
USE LF_QUAE
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

7
m770/771230h.uml
View File

@ -9,15 +9,16 @@ ENDPAGE
PAGE "Quadro E" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
FLAGS "H"
BEGIN
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"

31
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
@ -97,8 +96,7 @@ BEGIN
OUTPUT F_TIPOA TIPOA
OUTPUT F_CODANAGRPERC CODANAGR
OUTPUT F_RAGSOCPER LF_ANAG->RAGSOC
MESSAGE COPY, F_CODANAGR
//FLAGS "P"
MESSAGE COPY, F_CODANAGR
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
@ -138,8 +135,7 @@ BEGIN
DISPLAY "Codice" CODANAGR
OUTPUT F_RAGSOCCOM RAGSOC
OUTPUT F_CODANAGRCOM CODANAGR
OUTPUT F_TIPOA TIPOA
//FLAGS "P"
OUTPUT F_TIPOA TIPOA
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
@ -160,16 +155,14 @@ BEGIN
CHECKTYPE REQUIRED
KEY 1
FIELD LF_QUAE1->NPROG
USE LF_QUAE1
JOIN LF_ANAG TO LF_QUAE1 KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
USE LF_QUAE1
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

9
m770/771230l.uml
View File

@ -9,15 +9,16 @@ ENDPAGE
PAGE "Quadro E1" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
FLAGS "H"
BEGIN
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

71
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:
@ -153,23 +154,25 @@ 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);
@ -336,8 +350,9 @@ void TQuadroF::riempi_prospetto(TMask& m, const char prosp)
row.add(ecc);
}
for (i = last_a; i < PROSP_RIGHE; i++)
ss.row(i);
ss.force_update();
ss.row(i);
// dava origine ad una indesiderata doppia visualizzazione
// ss.force_update();
break;
}
case 'B': {
@ -362,9 +377,10 @@ void TQuadroF::riempi_prospetto(TMask& m, const char prosp)
row.add(rope);
}
for (i = last_b+1; i < PROSP_RIGHE; i++)
ss.row(i);
if (_quadro != "F")
ss.force_update();
ss.row(i);
// 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);
@ -835,9 +851,9 @@ bool TQuadroF::aliq_handler(TMask_field& f, KEY k)
bool TQuadroF::sogg_handler(TMask_field& f, KEY k)
{
if (k == K_TAB)
if (k == K_TAB)
{
const real sogg(f.mask().get(S_SOGG));
const real sogg(f.mask().get(S_SOGG));
calcola_rope(f, sogg, f.focusdirty());
}
return TRUE;
@ -938,11 +954,12 @@ real TQuadroF::calcola_rope(TMask_field& f, const real& sogg, const bool force)
else
m.reset(id_rope);
// Nel prospetto A oltre alla ritenuta operata setto anche S_SALD
if (app()._tipo_prosp == 'A')
// Nel prospetto A oltre alla ritenuta operata setto anche S_SALD
if ((app()._tipo_prosp == 'E') && (m.get_sheet()->dlg() == F_A))
{
const real pa_col5(m.get(S_TACC));
real pa_col6 = pa_col4 - pa_col5;
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());

37
m770/771231a.h
View File

@ -1,24 +1,25 @@
// 771231a.h - quadro F
// 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

15
m770/771231a.uml
View File

@ -1,9 +1,10 @@
#include "771231a.h"
#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

17
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);
}
@ -298,7 +297,11 @@ bool TQuadroG::user_create()
{
_msk = new TMask("771234a");
_rel = new TRelation(LF_QUAG);
_codditta = get_firm_770();
_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);

9
m770/771232a.uml
View File

@ -1,9 +1,10 @@
#include "771231a.h"
#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

9
m770/771233a.uml
View File

@ -1,9 +1,10 @@
#include "771231a.h"
#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

8
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,24 +6,24 @@ 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
DISPLAY "Codice tributo" I0
DISPLAY "Articolo di bilancio" I3
OUTPUT 101 CODTAB
OUTPUT 102 S0
OUTPUT 102 S0
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
STRING 102 60
BEGIN
PROMPT 15 1 ""
PROMPT 15 1 ""
FLAGS "D"
GROUP 1
END

143
m770/771234a.uml
View File

@ -1,50 +1,61 @@
#include "771234a.h"
#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 "
END
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

13
m770/771290.cpp
View File

@ -27,8 +27,8 @@ class TQuadro_H_app : public TRelation_application
long _codditta;
int _anno;
TString _ente;
bool _registra;
bool _registra;
protected:
virtual bool user_create();
virtual bool user_destroy();
@ -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() {}
};
@ -74,8 +73,8 @@ bool TQuadro_H_app::codditta_hnd(TMask_field& f, KEY k)
}
return TRUE;
}
}
void TQuadro_H_app::refresh(TMask& m)
{
TEdit_field& datore = _msk->efield(F_DAT);
@ -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);
}

35
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
@ -63,20 +62,20 @@ BEGIN
OUTPUT F_DAT H1DAT
OUTPUT F_LAV H1LAV
FLAGS "R"
END
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

44
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"

432
m770/776600.cpp
View File

@ -1,216 +1,216 @@
// 776600.cpp - Gestione estinti
#include <applicat.h>
#include <mask.h>
#include <isam.h>
#include <relation.h>
#include <sheet.h>
#include <urldefid.h>
#include "776600a.h"
#include "77lib.h"
//
// Lista modifiche
// 3.4.96 Aggiunto controllo in save() per impedire la creazione di un record-dichiarazione
// anche quando si vuol solo cancellare il codice dichiarante senza immetterne un altro
//
class TEstinti_app : public TApplication
{
long _codditta;
TMask* _msk;
TLocalisamfile* _base, *_basebis;
TRelation* _rel;
TCursor* _cur;
TBrowse_sheet* _estint_sheet;
static bool show_estinti(TMask_field& f, KEY k);
void force_output(int dlg, const long cod);
protected:
virtual bool create();
virtual bool destroy();
virtual bool menu(MENU_TAG m);
bool save(TMask& m, const long coddic_prec);
bool set_codditta(TMask_field& f);
bool main_loop();
public:
TEstinti_app();
~TEstinti_app() {};
};
TEstinti_app& app() { return (TEstinti_app&) main_app(); }
TEstinti_app::TEstinti_app():
_base(NULL),
_basebis(NULL),
_rel(NULL),
_msk(NULL),
_cur(NULL),
_estint_sheet(NULL)
{}
bool TEstinti_app::set_codditta(TMask_field& f)
{
TString16 codditta;
codditta << get_firm_770();
if (codditta != "0")
{
f.set(codditta);
// f.set_dirty();
f.check();
}
return TRUE;
}
bool TEstinti_app::show_estinti(TMask_field& f, KEY k)
{
if (k == K_SPACE)
app()._estint_sheet->run();
return TRUE;
}
bool TEstinti_app::create()
{
TApplication::create();
_base = new TLocalisamfile(LF_BASE);
_basebis = new TLocalisamfile(LF_BASEBIS);
_msk = new TMask("776600a");
_rel = new TRelation(LF_BASE);
_rel->add(LF_NDITTE, "CODDITTA=CODDITTA");
_codditta = get_firm_770();
set_codditta(_msk->field(F_CODDITTA));
TString16 filt;
filt.format("CODDIC=%ld", _codditta);
_cur = new TCursor(_rel, filt);
TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY);
TToken_string siblings;
_estint_sheet = new TBrowse_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti",
"Codice|Ragione sociale@50", 8, &dummy, siblings);
_msk->set_handler(F_ESTINTI, show_estinti);
dispatch_e_menu (BAR_ITEM(1));
return TRUE;
}
bool TEstinti_app::destroy()
{
delete _estint_sheet;
delete _rel; delete _cur;
delete _msk; delete _base; delete _basebis;
return TApplication::destroy();
}
void TEstinti_app::force_output(int dlg, const long codditta)
{
TLocalisamfile ditte(LF_NDITTE);
ditte.zero();
ditte.put("CODDITTA", (long)codditta);
int ret = ditte.read(_isequal);
if (ret == NOERR)
{
TString80 ragsoc(ditte.get("RAGSOC"));
_msk->set(dlg, ragsoc);
}
}
bool TEstinti_app::save(TMask& m, const long codic_prec)
{
const long new_codic = m.get_long(F_CODDIC);
TRectype _rec = _base->curr();
_base->setkey(1);
_rec.zero();
_rec.put("TIPOQUA", ' ');
_rec.put("CODDITTA",(long)_codditta);
if (_base->read(_rec) == NOERR)
{
_rec.put("CODDIC",(long)new_codic);
_base->rewrite(_rec);
}
// Stessa cosa su basebis
TRectype _recbis = _basebis->curr();
_basebis->setkey(1);
_recbis.zero();
_recbis.put("TIPOQUA", ' ');
_recbis.put("CODDITTA",(long)_codditta);
if (_basebis->read(_recbis) == NOERR)
{
_recbis.put("CODDIC",(long)new_codic);
_basebis->rewrite(_rec);
}
// Crea il record globale per il dichiarante scelto se non esiste
// 3.4.96 - Solo se il dichiarante e' diverso da 0, senno' quando si vuol cancellare
// il dichiarante crea un record duplicato!
if (new_codic != 0L)
if (!exist_dichiar_770(new_codic, TRUE))
enter_dichiar_770(new_codic, anno_770(), TRUE);
return TRUE;
}
bool TEstinti_app::main_loop()
{
KEY tasto = K_ESC;
const long codditta = _msk->get_long(F_CODDITTA);
_base->zero();
_base->setkey(1);
_base->put("CODDITTA", (long)codditta);
_base->read();
_msk->open_modal();
while (tasto != K_QUIT)
{
const bool dichiarante = sogg_dic(_codditta);
long coddic = 0L;
if (!dichiarante)
coddic = sogg_estinto(_codditta);
_msk->set(F_CODDIC, coddic);
force_output(F_RAGSOC, coddic);
_msk->enable(F_CODDIC, !dichiarante);
_msk->enable(F_ESTINTI, dichiarante);
_msk->enable(DLG_SAVEREC,!dichiarante);
tasto = _msk->run();
switch (tasto) {
case K_ENTER:
if (_msk->dirty())
// Se e' un dichiarante F_CODDIC e' disabilitato e non c'e' nulla da salvare
if (!dichiarante)
save(*_msk, coddic);
break;
case K_ESC :
tasto = K_QUIT;
break;
case K_QUIT :
break;
case K_SAVE :
if (!dichiarante)
save(*_msk, coddic);
break;
default:
break;
}
}
_msk->close();
return FALSE;
}
bool TEstinti_app::menu(MENU_TAG m)
{
if (m == BAR_ITEM(1))
return main_loop();
return FALSE;
}
int Estinti(int argc, char* argv[])
{
TEstinti_app a;
a.run(argc, argv, "Gestione dichiarante / estinti");
return 0;
}
// 776600.cpp - Gestione estinti
#include <applicat.h>
#include <mask.h>
#include <isam.h>
#include <relation.h>
#include <sheet.h>
#include <urldefid.h>
#include "776600a.h"
#include "77lib.h"
//
// Lista modifiche
// 3.4.96 Aggiunto controllo in save() per impedire la creazione di un record-dichiarazione
// anche quando si vuol solo cancellare il codice dichiarante senza immetterne un altro
//
class TEstinti_app : public TApplication
{
long _codditta;
TMask* _msk;
TLocalisamfile* _base, *_basebis;
TRelation* _rel;
TCursor* _cur;
TBrowse_sheet* _estint_sheet;
static bool show_estinti(TMask_field& f, KEY k);
void force_output(int dlg, const long cod);
protected:
virtual bool create();
virtual bool destroy();
virtual bool menu(MENU_TAG m);
bool save(TMask& m, const long coddic_prec);
bool set_codditta(TMask_field& f);
bool main_loop();
public:
TEstinti_app();
~TEstinti_app() {};
};
TEstinti_app& app() { return (TEstinti_app&) main_app(); }
TEstinti_app::TEstinti_app():
_base(NULL),
_basebis(NULL),
_rel(NULL),
_msk(NULL),
_cur(NULL),
_estint_sheet(NULL)
{}
bool TEstinti_app::set_codditta(TMask_field& f)
{
TString16 codditta;
codditta << get_firm_770();
if (codditta != "0")
{
f.set(codditta);
// f.set_dirty();
f.check();
}
return TRUE;
}
bool TEstinti_app::show_estinti(TMask_field& f, KEY k)
{
if (k == K_SPACE)
app()._estint_sheet->run();
return TRUE;
}
bool TEstinti_app::create()
{
TApplication::create();
_base = new TLocalisamfile(LF_BASE);
_basebis = new TLocalisamfile(LF_BASEBIS);
_msk = new TMask("776600a");
_rel = new TRelation(LF_BASE);
_rel->add(LF_NDITTE, "CODDITTA=CODDITTA");
_codditta = get_firm_770();
set_codditta(_msk->field(F_CODDITTA));
TString16 filt;
filt.format("CODDIC=%ld", _codditta);
_cur = new TCursor(_rel, filt);
TEdit_field& dummy = (TEdit_field&)_msk->field(F_CODDIC_DUMMY);
TToken_string siblings;
_estint_sheet = new TBrowse_sheet(_cur,"CODDITTA|9->RAGSOC", "Elenco estinti",
"Codice|Ragione sociale@50", 8, &dummy, siblings);
_msk->set_handler(F_ESTINTI, show_estinti);
dispatch_e_menu (BAR_ITEM(1));
return TRUE;
}
bool TEstinti_app::destroy()
{
delete _estint_sheet;
delete _rel; delete _cur;
delete _msk; delete _base; delete _basebis;
return TApplication::destroy();
}
void TEstinti_app::force_output(int dlg, const long codditta)
{
TLocalisamfile ditte(LF_NDITTE);
ditte.zero();
ditte.put("CODDITTA", (long)codditta);
int ret = ditte.read(_isequal);
if (ret == NOERR)
{
TString80 ragsoc(ditte.get("RAGSOC"));
_msk->set(dlg, ragsoc);
}
}
bool TEstinti_app::save(TMask& m, const long codic_prec)
{
const long new_codic = m.get_long(F_CODDIC);
TRectype _rec = _base->curr();
_base->setkey(1);
_rec.zero();
_rec.put("TIPOQUA", ' ');
_rec.put("CODDITTA",(long)_codditta);
if (_base->read(_rec) == NOERR)
{
_rec.put("CODDIC",(long)new_codic);
_base->rewrite(_rec);
}
// Stessa cosa su basebis
TRectype _recbis = _basebis->curr();
_basebis->setkey(1);
_recbis.zero();
_recbis.put("TIPOQUA", ' ');
_recbis.put("CODDITTA",(long)_codditta);
if (_basebis->read(_recbis) == NOERR)
{
_recbis.put("CODDIC",(long)new_codic);
_basebis->rewrite(_rec);
}
// Crea il record globale per il dichiarante scelto se non esiste
// 3.4.96 - Solo se il dichiarante e' diverso da 0, senno' quando si vuol cancellare
// il dichiarante crea un record duplicato!
if (new_codic != 0L)
if (!exist_dichiar_770(new_codic, TRUE))
enter_dichiar_770(new_codic, anno_770(), TRUE);
return TRUE;
}
bool TEstinti_app::main_loop()
{
KEY tasto = K_ESC;
const long codditta = _msk->get_long(F_CODDITTA);
_base->zero();
_base->setkey(1);
_base->put("CODDITTA", (long)codditta);
_base->read();
_msk->open_modal();
while (tasto != K_QUIT)
{
const bool dichiarante = sogg_dic(_codditta);
long coddic = 0L;
if (!dichiarante)
coddic = sogg_estinto(_codditta);
_msk->set(F_CODDIC, coddic);
force_output(F_RAGSOC, coddic);
_msk->enable(F_CODDIC, !dichiarante);
_msk->enable(F_ESTINTI, dichiarante);
_msk->enable(DLG_SAVEREC,!dichiarante);
tasto = _msk->run();
switch (tasto) {
case K_ENTER:
if (_msk->dirty())
// Se e' un dichiarante F_CODDIC e' disabilitato e non c'e' nulla da salvare
if (!dichiarante)
save(*_msk, coddic);
break;
case K_ESC :
tasto = K_QUIT;
break;
case K_QUIT :
break;
case K_SAVE :
if (!dichiarante)
save(*_msk, coddic);
break;
default:
break;
}
}
_msk->close();
return FALSE;
}
bool TEstinti_app::menu(MENU_TAG m)
{
if (m == BAR_ITEM(1))
return main_loop();
return FALSE;
}
int Estinti(int argc, char* argv[])
{
TEstinti_app a;
a.run(argc, argv, "Gestione dichiarante / estinti");
return 0;
}

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;

11
m770/77g1a.uml
View File

@ -1,9 +1,10 @@
#include "77g1a.h"
#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

1748
m770/77lib01.cpp
View File

File diff suppressed because it is too large Load Diff

138
m770/77qb.h
View File

@ -1,69 +1,69 @@
// 77qb.h
#define QBF_CODDITTA 181
#define QBF_ANNODIC 182
#define QBF_CODDIP 183
#define QBF_NPROG 184
#define QBF_DATAINI 185
#define QBF_DATAFIN 186
#define QBF_ANNICOMM 187
#define QBF_MESICOMM 188
#define QBF_ANNICONV 189
#define QBF_MESICONV 190
#define QBF_ANNIPARZ 191
#define QBF_MESIPARZ 192
#define QBF_PERCPARZ 193
#define QBF_QUOTAECC 194
#define QBF_MESEEROG 195
#define QBF_TITEROG 196
#define QBF_PERCABB 197
#define QBF_AMMNETTO 198
#define QBF_MESEEROG2 199
#define QBF_TITEROG2 200
#define QBF_PERCABB2 201
#define QBF_AMMNETTO2 202
#define QBF_CONTLAV 203
#define QBF_TFR7494 204
#define QBF_INDEN7494 205
#define QBF_TIND7494 206
#define QBF_TRID 207
#define QBF_TFRIND 208
#define QBF_ALIQUOTA 209
#define QBF_RETRMEDIA 210
#define QBF_ALIQUOTA2 211
#define QBF_IMPTFR 212
#define QBF_IMPIND 213
#define QBF_IMPANNO 214
#define QBF_TOTIMP 215
#define QBF_ROPEACC 216
#define QBF_IMPDOV 217
#define QBF_RITECC 218
#define QBF_QUOTASPET 219
#define QBF_INDSPETT 220
#define QBF_ROPE 221
#define QBF_IMPOCSSN 222
#define QBF_RAGDITTA 223
#define QBF_ANADIP_CODDIP 224
#define QBF_QUAB_CODDIP 225
#define QBF_COGNOME 226
#define QBF_NOME 227
#define GROUP_EREDE 2
#define GROUP_DIPDEC 3
#define RICERCA_DIP 4
#define RICERCA_QB 5
#define GROUP_ALL 6
#define G_DISABILI 7
#define QBG_ANADIP 1
#define QBG_QUADROB 2
#define QBF_CODDIP_ANAG 228
#define QBF_CODDIP_QB 229
#define CODDITTA77 181
#define ANNODIC77 182
// 77qb.h
#define QBF_CODDITTA 181
#define QBF_ANNODIC 182
#define QBF_CODDIP 183
#define QBF_NPROG 184
#define QBF_DATAINI 185
#define QBF_DATAFIN 186
#define QBF_ANNICOMM 187
#define QBF_MESICOMM 188
#define QBF_ANNICONV 189
#define QBF_MESICONV 190
#define QBF_ANNIPARZ 191
#define QBF_MESIPARZ 192
#define QBF_PERCPARZ 193
#define QBF_QUOTAECC 194
#define QBF_MESEEROG 195
#define QBF_TITEROG 196
#define QBF_PERCABB 197
#define QBF_AMMNETTO 198
#define QBF_MESEEROG2 199
#define QBF_TITEROG2 200
#define QBF_PERCABB2 201
#define QBF_AMMNETTO2 202
#define QBF_CONTLAV 203
#define QBF_TFR7494 204
#define QBF_INDEN7494 205
#define QBF_TIND7494 206
#define QBF_TRID 207
#define QBF_TFRIND 208
#define QBF_ALIQUOTA 209
#define QBF_RETRMEDIA 210
#define QBF_ALIQUOTA2 211
#define QBF_IMPTFR 212
#define QBF_IMPIND 213
#define QBF_IMPANNO 214
#define QBF_TOTIMP 215
#define QBF_ROPEACC 216
#define QBF_IMPDOV 217
#define QBF_RITECC 218
#define QBF_QUOTASPET 219
#define QBF_INDSPETT 220
#define QBF_ROPE 221
#define QBF_IMPOCSSN 222
#define QBF_RAGDITTA 223
#define QBF_ANADIP_CODDIP 224
#define QBF_QUAB_CODDIP 225
#define QBF_COGNOME 226
#define QBF_NOME 227
#define GROUP_EREDE 2
#define GROUP_DIPDEC 3
#define RICERCA_DIP 4
#define RICERCA_QB 5
#define GROUP_ALL 6
#define G_DISABILI 7
#define QBG_ANADIP 1
#define QBG_QUADROB 2
#define QBF_CODDIP_ANAG 228
#define QBF_CODDIP_QB 229
#define CODDITTA77 181
#define ANNODIC77 182

54
m770/77qb1.h
View File

@ -1,27 +1,27 @@
// 77qb1.h
#define QB1F_CODDITTA 181
#define QB1F_ANNODIC 182
#define QB1F_NPROG 183
#define QB1F_RAGDITTA 184
#define QB1F_INDEN 185
#define QB1F_AMMIMP 186
#define QB1F_IMP4 187
#define QB1F_IMP8 188
#define QB1F_IMP10 189
#define QB1F_IMP12 190
#define QB1F_IMP15 191
#define QB1F_IMPO15 192
#define QB1F_IMPO4 193
#define QB1F_IMPNETTO 194
#define QB1F_ANADIP_CODDIP 195
#define QB1F_QUAB1_CODDIP 196
#define QB1F_CODDIP 197
#define QB1F_COGNOME 198
#define QB1F_NOME 199
#define QB1G_ANADIP 1
#define QB1G_QUADROB 2
#define QB1F_CODDIP_ANAG 201
#define QB1F_CODDIP_QB1 202
// 77qb1.h
#define QB1F_CODDITTA 181
#define QB1F_ANNODIC 182
#define QB1F_NPROG 183
#define QB1F_RAGDITTA 184
#define QB1F_INDEN 185
#define QB1F_AMMIMP 186
#define QB1F_IMP4 187
#define QB1F_IMP8 188
#define QB1F_IMP10 189
#define QB1F_IMP12 190
#define QB1F_IMP15 191
#define QB1F_IMPO15 192
#define QB1F_IMPO4 193
#define QB1F_IMPNETTO 194
#define QB1F_ANADIP_CODDIP 195
#define QB1F_QUAB1_CODDIP 196
#define QB1F_CODDIP 197
#define QB1F_COGNOME 198
#define QB1F_NOME 199
#define QB1G_ANADIP 1
#define QB1G_QUADROB 2
#define QB1F_CODDIP_ANAG 201
#define QB1F_CODDIP_QB1 202

250
m770/77qb1a.uml
View File

@ -1,125 +1,125 @@
#include "77qb1.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Quadro B1" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER QB1F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
INPUT CODDITTA QB1F_CODDITTA
OUTPUT QB1F_RAGDITTA RAGSOC
FIELD LF_QUAB1->CODDITTA
END
STRING QB1F_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QB1F_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bDati dipendente"
END
NUMBER QB1F_CODDIP 6
BEGIN
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAB1->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER QB1F_CODDIP_ANAG 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1
INPUT CODDITTA QB1F_CODDITTA SELECT
INPUT CODDIP QB1F_CODDIP_ANAG
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT QB1F_CODDIP_ANAG CODDIP
OUTPUT QB1F_COGNOME COGNOME
OUTPUT QB1F_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, QB1F_CODDIP
MESSAGE COPY,QB1F_CODDIP
FLAGS "H"
GROUP QB1G_ANADIP
END
NUMBER QB1F_CODDIP_QB1 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_QUAB1 KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QB1F_CODDITTA SELECT
INPUT CODDIP QB1F_CODDIP_QB1
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QB1F_CODDIP_QB1 CODDIP
OUTPUT QB1F_COGNOME LF_DIPEND->COGNOME
OUTPUT QB1F_NOME LF_DIPEND->NOME
MESSAGE COPY, QB1F_CODDIP
GROUP QB1G_QUADROB
KEY 1
END
STRING QB1F_COGNOME 24
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
STRING QB1F_NOME 20
BEGIN
PROMPT 49 8 ""
FLAGS "D"
END
NUMBER QB1F_NPROG 4
BEGIN
PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
USE LF_QUAB1 KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QB1F_CODDITTA SELECT
INPUT CODDIP QB1F_CODDIP
INPUT NPROG QB1F_NPROG
DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QB1F_CODDIP CODDIP
OUTPUT QB1F_NPROG NPROG
OUTPUT QB1F_COGNOME LF_DIPEND->COGNOME
OUTPUT QB1F_NOME LF_DIPEND->NOME
FIELD LF_QUAB1->NPROG
KEY 1
END
ENDPAGE
ENDMASK
#include "77qb1.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Quadro B1" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER QB1F_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
INPUT CODDITTA QB1F_CODDITTA
OUTPUT QB1F_RAGDITTA RAGSOC
FIELD LF_QUAB1->CODDITTA
END
STRING QB1F_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QB1F_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bDati dipendente"
END
NUMBER QB1F_CODDIP 6
BEGIN
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAB1->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER QB1F_CODDIP_ANAG 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1
INPUT CODDITTA QB1F_CODDITTA SELECT
INPUT CODDIP QB1F_CODDIP_ANAG
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT QB1F_CODDIP_ANAG CODDIP
OUTPUT QB1F_COGNOME COGNOME
OUTPUT QB1F_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY, QB1F_CODDIP
MESSAGE COPY,QB1F_CODDIP
FLAGS "H"
GROUP QB1G_ANADIP
END
NUMBER QB1F_CODDIP_QB1 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_QUAB1 KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QB1F_CODDITTA SELECT
INPUT CODDIP QB1F_CODDIP_QB1
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QB1F_CODDIP_QB1 CODDIP
OUTPUT QB1F_COGNOME LF_DIPEND->COGNOME
OUTPUT QB1F_NOME LF_DIPEND->NOME
MESSAGE COPY, QB1F_CODDIP
GROUP QB1G_QUADROB
KEY 1
END
STRING QB1F_COGNOME 24
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
STRING QB1F_NOME 20
BEGIN
PROMPT 49 8 ""
FLAGS "D"
END
NUMBER QB1F_NPROG 4
BEGIN
PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
USE LF_QUAB1 KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QB1F_CODDITTA SELECT
INPUT CODDIP QB1F_CODDIP
INPUT NPROG QB1F_NPROG
DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QB1F_CODDIP CODDIP
OUTPUT QB1F_NPROG NPROG
OUTPUT QB1F_COGNOME LF_DIPEND->COGNOME
OUTPUT QB1F_NOME LF_DIPEND->NOME
FIELD LF_QUAB1->NPROG
KEY 1
END
ENDPAGE
ENDMASK

424
m770/77qb1b.uml
View File

@ -1,212 +1,212 @@
// Quadro B-1
#include "77qb1.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "1" -1 -1 78 18
NUMBER QB1F_CODDITTA 5
BEGIN
PROMPT 80 80 ""
FLAGS "D"
USE LF_NDITTE KEY 1
INPUT CODDITTA QB1F_CODDITTA
FIELD LF_QUAB1->CODDITTA
CHECKTYPE REQUIRED
KEY 1
END
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
NUMBER QB1F_CODDIP 5
BEGIN
PROMPT 17 1 ""
USE LF_DIPEND KEY 1
FIELD LF_QUAB1->CODDIP
INPUT CODDITTA QB1F_CODDITTA
INPUT CODDIP QB1F_CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT QB1F_COGNOME COGNOME
OUTPUT QB1F_NOME NOME
CHECKTYPE REQUIRED
FLAGS "DG"
KEY 1
END
STRING QB1F_COGNOME 24
BEGIN
PROMPT 25 1 ""
FLAGS "DG"
END
STRING QB1F_NOME 20
BEGIN
PROMPT 49 1 ""
FLAGS "DG"
END
NUMBER QB1F_NPROG 4
BEGIN
PROMPT 72 1 ""
FIELD LF_QUAB1->NPROG
FLAGS "DG"
KEY 1
END
NUMBER QB1F_INDEN 15
BEGIN
PROMPT 1 6 "11 Ammontare indennita' di anzianita' di previdenza "
PICTURE "."
FLAGS "R"
FIELD LF_QUAB1->INDEN
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bImposta di ricchezza mobile "
END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 7 ""
END
#define COL1 3
#define COL2 33
#define COL3 60
TEXT DLG_NULL
BEGIN
PROMPT COL1 8 "12 Ammontare impon. "
END
NUMBER QB1F_AMMIMP 15
BEGIN
PROMPT COL1 9 ""
PICTURE "."
FLAGS "R"
FIELD LF_QUAB1->AMMIMP
END
TEXT DLG_NULL
BEGIN
PROMPT COL2 8 "13 Imponibile 4%"
END
NUMBER QB1F_IMP4 15
BEGIN
PROMPT COL2 9 ""
FIELD LF_QUAB1->IMP4
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT COL3 8 "14 Imponibile 8% "
END
NUMBER QB1F_IMP8 15
BEGIN
PROMPT COL3 9 ""
FIELD LF_QUAB1->IMP8
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT COL1 10 "15 Imponibile 10% "
END
NUMBER QB1F_IMP10 15
BEGIN
PROMPT COL1 11 ""
FIELD LF_QUAB1->IMP10
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT COL2 10 "16 Imponibile 12% "
END
NUMBER QB1F_IMP12 15
BEGIN
PROMPT COL2 11 ""
FIELD LF_QUAB1->IMP12
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT COL3 10 "17 Imponibile 15% "
END
NUMBER QB1F_IMP15 15
BEGIN
PROMPT COL3 11 ""
FIELD LF_QUAB1->IMP15
PICTURE "."
FLAGS "R"
END
NUMBER QB1F_IMPNETTO 15
BEGIN
PROMPT COL1 12 "18 Amm. impon. (al netto delle rit.di ricchezza mobile) "
FIELD LF_QUAB1->IMPNETTO
PICTURE "."
FLAGS "R"
END
#define RIGA1 14
#define RIGA2 15
#define RIGA3 16
TEXT DLG_NULL
BEGIN
PROMPT 1 RIGA1 "@bImposta complementare "
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 RIGA1 ""
END
TEXT DLG_NULL
BEGIN
PROMPT COL1 RIGA2 "19 Imponibile 1,5%"
END
NUMBER QB1F_IMPO15 15
BEGIN
PROMPT COL1 RIGA3 ""
PICTURE "."
FLAGS "R"
FIELD LF_QUAB1->IMPO15
END
TEXT DLG_NULL
BEGIN
PROMPT COL2 RIGA2 "20 Imponibile 4%"
END
NUMBER QB1F_IMPO4 15
BEGIN
PROMPT COL2 RIGA3 ""
FIELD LF_QUAB1->IMPO4
PICTURE "."
FLAGS "R"
END
ENDPAGE
ENDMASK
// Quadro B-1
#include "77qb1.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "1" -1 -1 78 18
NUMBER QB1F_CODDITTA 5
BEGIN
PROMPT 80 80 ""
FLAGS "D"
USE LF_NDITTE KEY 1
INPUT CODDITTA QB1F_CODDITTA
FIELD LF_QUAB1->CODDITTA
CHECKTYPE REQUIRED
KEY 1
END
TEXT DLG_NULL
BEGIN
PROMPT 1 1 "@bDipendente"
END
NUMBER QB1F_CODDIP 5
BEGIN
PROMPT 17 1 ""
USE LF_DIPEND KEY 1
FIELD LF_QUAB1->CODDIP
INPUT CODDITTA QB1F_CODDITTA
INPUT CODDIP QB1F_CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT QB1F_COGNOME COGNOME
OUTPUT QB1F_NOME NOME
CHECKTYPE REQUIRED
FLAGS "DG"
KEY 1
END
STRING QB1F_COGNOME 24
BEGIN
PROMPT 25 1 ""
FLAGS "DG"
END
STRING QB1F_NOME 20
BEGIN
PROMPT 49 1 ""
FLAGS "DG"
END
NUMBER QB1F_NPROG 4
BEGIN
PROMPT 72 1 ""
FIELD LF_QUAB1->NPROG
FLAGS "DG"
KEY 1
END
NUMBER QB1F_INDEN 15
BEGIN
PROMPT 1 6 "11 Ammontare indennita' di anzianita' di previdenza "
PICTURE "."
FLAGS "R"
FIELD LF_QUAB1->INDEN
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bImposta di ricchezza mobile "
END
GROUPBOX DLG_NULL 78 7
BEGIN
PROMPT 1 7 ""
END
#define COL1 3
#define COL2 33
#define COL3 60
TEXT DLG_NULL
BEGIN
PROMPT COL1 8 "12 Ammontare impon. "
END
NUMBER QB1F_AMMIMP 15
BEGIN
PROMPT COL1 9 ""
PICTURE "."
FLAGS "R"
FIELD LF_QUAB1->AMMIMP
END
TEXT DLG_NULL
BEGIN
PROMPT COL2 8 "13 Imponibile 4%"
END
NUMBER QB1F_IMP4 15
BEGIN
PROMPT COL2 9 ""
FIELD LF_QUAB1->IMP4
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT COL3 8 "14 Imponibile 8% "
END
NUMBER QB1F_IMP8 15
BEGIN
PROMPT COL3 9 ""
FIELD LF_QUAB1->IMP8
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT COL1 10 "15 Imponibile 10% "
END
NUMBER QB1F_IMP10 15
BEGIN
PROMPT COL1 11 ""
FIELD LF_QUAB1->IMP10
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT COL2 10 "16 Imponibile 12% "
END
NUMBER QB1F_IMP12 15
BEGIN
PROMPT COL2 11 ""
FIELD LF_QUAB1->IMP12
PICTURE "."
FLAGS "R"
END
TEXT DLG_NULL
BEGIN
PROMPT COL3 10 "17 Imponibile 15% "
END
NUMBER QB1F_IMP15 15
BEGIN
PROMPT COL3 11 ""
FIELD LF_QUAB1->IMP15
PICTURE "."
FLAGS "R"
END
NUMBER QB1F_IMPNETTO 15
BEGIN
PROMPT COL1 12 "18 Amm. impon. (al netto delle rit.di ricchezza mobile) "
FIELD LF_QUAB1->IMPNETTO
PICTURE "."
FLAGS "R"
END
#define RIGA1 14
#define RIGA2 15
#define RIGA3 16
TEXT DLG_NULL
BEGIN
PROMPT 1 RIGA1 "@bImposta complementare "
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 RIGA1 ""
END
TEXT DLG_NULL
BEGIN
PROMPT COL1 RIGA2 "19 Imponibile 1,5%"
END
NUMBER QB1F_IMPO15 15
BEGIN
PROMPT COL1 RIGA3 ""
PICTURE "."
FLAGS "R"
FIELD LF_QUAB1->IMPO15
END
TEXT DLG_NULL
BEGIN
PROMPT COL2 RIGA2 "20 Imponibile 4%"
END
NUMBER QB1F_IMPO4 15
BEGIN
PROMPT COL2 RIGA3 ""
FIELD LF_QUAB1->IMPO4
PICTURE "."
FLAGS "R"
END
ENDPAGE
ENDMASK

252
m770/77qba.uml
View File

@ -1,126 +1,126 @@
#include "77qb.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Quadro B" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER QBF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
INPUT CODDITTA QBF_CODDITTA
OUTPUT QBF_RAGDITTA RAGSOC
FIELD LF_QUAB->CODDITTA
END
STRING QBF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QBF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bDati dipendente"
END
NUMBER QBF_CODDIP 6
BEGIN
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAB->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER QBF_CODDIP_ANAG 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1
INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP_ANAG
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT QBF_CODDIP_ANAG CODDIP
OUTPUT QBF_COGNOME COGNOME
OUTPUT QBF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY,QBF_CODDIP
FLAGS "H"
GROUP QBG_ANADIP
KEY 1
END
NUMBER QBF_CODDIP_QB 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_QUAB KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP_QB
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QBF_CODDIP_QB CODDIP
OUTPUT QBF_COGNOME LF_DIPEND->COGNOME
OUTPUT QBF_NOME LF_DIPEND->NOME
MESSAGE COPY, QBF_CODDIP
GROUP QBG_QUADROB
KEY 1
END
STRING QBF_COGNOME 24
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
STRING QBF_NOME 20
BEGIN
PROMPT 49 8 ""
FLAGS "D"
END
NUMBER QBF_NPROG 4
BEGIN
PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
USE LF_QUAB KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP
INPUT NPROG QBF_NPROG
DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QBF_CODDIP CODDIP
OUTPUT QBF_COGNOME LF_DIPEND->COGNOME
OUTPUT QBF_NOME LF_DIPEND->NOME
OUTPUT QBF_NPROG NPROG
FIELD LF_QUAB->NPROG
CHECKTYPE REQUIRED
KEY 1
END
ENDPAGE
ENDMASK
#include "77qb.h"
TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE
PAGE "Quadro B" -1 -1 78 21
GROUPBOX DLG_NULL 78 3
BEGIN
PROMPT 1 0 ""
END
NUMBER QBF_CODDITTA 5
BEGIN
PROMPT 3 1 "Ditta "
FLAGS "GRD"
KEY 1
CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1
INPUT CODDITTA QBF_CODDITTA
OUTPUT QBF_RAGDITTA RAGSOC
FIELD LF_QUAB->CODDITTA
END
STRING QBF_RAGDITTA 50
BEGIN
PROMPT 17 1 "Ragione "
FLAGS "D"
END
NUMBER QBF_ANNODIC 4
BEGIN
PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR"
END
TEXT DLG_NULL
BEGIN
PROMPT 1 7 "@bDati dipendente"
END
NUMBER QBF_CODDIP 6
BEGIN
PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAB->CODDIP
CHECKTYPE REQUIRED
KEY 1
END
NUMBER QBF_CODDIP_ANAG 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1
INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP_ANAG
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME
OUTPUT QBF_CODDIP_ANAG CODDIP
OUTPUT QBF_COGNOME COGNOME
OUTPUT QBF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY,QBF_CODDIP
FLAGS "H"
GROUP QBG_ANADIP
KEY 1
END
NUMBER QBF_CODDIP_QB 6
BEGIN
PROMPT 1 8 "@bCodice "
USE LF_QUAB KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP_QB
DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QBF_CODDIP_QB CODDIP
OUTPUT QBF_COGNOME LF_DIPEND->COGNOME
OUTPUT QBF_NOME LF_DIPEND->NOME
MESSAGE COPY, QBF_CODDIP
GROUP QBG_QUADROB
KEY 1
END
STRING QBF_COGNOME 24
BEGIN
PROMPT 25 8 ""
FLAGS "D"
END
STRING QBF_NOME 20
BEGIN
PROMPT 49 8 ""
FLAGS "D"
END
NUMBER QBF_NPROG 4
BEGIN
PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED
USE LF_QUAB KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP
INPUT NPROG QBF_NPROG
DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG
OUTPUT QBF_CODDIP CODDIP
OUTPUT QBF_COGNOME LF_DIPEND->COGNOME
OUTPUT QBF_NOME LF_DIPEND->NOME
OUTPUT QBF_NPROG NPROG
FIELD LF_QUAB->NPROG
CHECKTYPE REQUIRED
KEY 1
END
ENDPAGE
ENDMASK

1422
m770/77qbb.uml
View File

File diff suppressed because it is too large Load Diff

27
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
@ -141,16 +140,14 @@ BEGIN
CHECKTYPE REQUIRED
KEY 1
FIELD LF_QUAE2->NPROG
USE LF_QUAE2
JOIN LF_ANAG TO LF_QUAE2 KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
USE LF_QUAE2
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

35
m770/77qe2b.uml
View File

@ -6,15 +6,16 @@ ENDPAGE
PAGE "Quadro E2" -1 -1 78 18
NUMBER F_CODDITTA 5
BEGIN
FLAGS "H"
BEGIN
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"

27
m770/77qgda.uml
View File

@ -1,5 +1,6 @@
// Distinta quadro G
#include "77qgd.h"
#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
@ -154,11 +154,10 @@ NUMBER F_NPROG 4
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
USE LF_QUAGD
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

1252
m770/quadb_b1.cpp
View File

File diff suppressed because it is too large Load Diff