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) bool TQuadroC_E2::changing_mask(int mode)
{ {
if (mode == MODE_QUERY) if ((mode == MODE_MOD) && (_mode == MODE_INS))
return _mode != MODE_QUERY; return FALSE;
else else
return TRUE; return _mode != mode;
} }
TMask* TQuadroC_E2::get_mask(int mode) TMask* TQuadroC_E2::get_mask(int mode)

17
m770/771230a.uml
View File

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

62
m770/771230b.uml
View File

@ -3,21 +3,19 @@ TOOLBAR "" 0 19 0 3
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
// Lista modifiche:
// 22.5.96 Output di S2 (causale D) invece di S0 (descrizione)
PAGE "Quadro D" -1 -1 78 18 PAGE "Quadro D" -1 -1 78 18
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
FLAGS "H" PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAD->CODDITTA FIELD LF_QUAD->CODDITTA
KEY 1 KEY 1
END END
LIST F_TIPOA 1 12 LIST F_TIPOA 1 12
BEGIN BEGIN
PROMPT 3 0 "" PROMPT 2 0 ""
FIELD LF_QUAD->TIPOA FIELD LF_QUAD->TIPOA
ITEM "F|Fisica" ITEM "F|Fisica"
ITEM "G|Giuridica" ITEM "G|Giuridica"
@ -29,9 +27,7 @@ LIST F_TIPOAF 1 12
BEGIN BEGIN
PROMPT 3 1 "" PROMPT 3 1 ""
ITEM "F|Fisica" ITEM "F|Fisica"
MESSAGE SHOW,F_IC
ITEM "G|Giuridica" ITEM "G|Giuridica"
MESSAGE HIDE,F_IC|RESET,F_IC
FLAGS "HG" FLAGS "HG"
END END
@ -97,26 +93,42 @@ BEGIN
FLAGS "D" FLAGS "D"
END END
LISTBOX F_DESCRCAUS 55 LISTBOX F_DESCRCAUS 57
BEGIN BEGIN
PROMPT 20 3 "" PROMPT 20 3 ""
ITEM "|" ITEM "|"
ITEM "A|Prestazione di lavoro autonomo rientranti nell'esercizio di arte o professione abituale" ITEM "A|Prestazione 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 "B|Prestazioni rese da amministratori,sindaci e .."
ITEM "C|Per prestazioni rese da collaboratori a giornali, riviste, enciclopedie e simili" ITEM "C|Prestazioni rese da collaboratori a giornali,.."
ITEM "D|Per prestazioni rese da partecipanti a collegi e commissioni" ITEM "D|Prestazioni rese da partecipanti a collegi e commissioni"
ITEM "E|Per prestazioni rese dagli sportivi con contratto di lavoro autonomo" ITEM "E|Prestazioni rese da sportivi con contratto di lavoro .."
ITEM "F|Per prestazioni rese nell'ambito di rapporti di collaborazione coordinata e continuativa diversi da quelli sopra elencati" ITEM "F|Prestazioni rese nell'ambito di rapporti di collaboraz.."
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 "G|Utilizzazione economica da parte dell'autore o .."
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 "H|Utili derivanti da contratti di associazione .."
ITEM "I|A titolo di utili spettanti ai soci promotori ed ai soci fondatori delle società di capitali" ITEM "I|Utili spettanti ai soci promotori e soci fondatori .."
ITEM "L|Per la levata di protesti cambiari da parte dei segretari comunali" ITEM "L|Levata di protesti cambiari da 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 "M|Utilizzazione economica da parte di soggetto diverso .."
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 "N|Indennità corrisposte per la cessaz.di rapporti di .."
ITEM "P|A titolo di indennità corrisposte per la cessazione da funzioni notarili" ITEM "P|Indennità corrisposte per la cessaz.da funzioni notarili"
ITEM "R|A titolo di indennità corrisposte per la cessazione di attività sportiva professionale" ITEM "R|Indennità corrisposte per la cessaz.di attività sportiva"
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 "S|Indennità di trasferta o di rimborso L.25.3.86 n.80"
FLAGS "D" 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 END
NUMBER F_CODTRIB 4 NUMBER F_CODTRIB 4

25
m770/771230e.uml
View File

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

7
m770/771230f.uml
View File

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

23
m770/771230g.uml
View File

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

7
m770/771230h.uml
View File

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

31
m770/771230i.uml
View File

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

9
m770/771230l.uml
View File

@ -9,15 +9,16 @@ ENDPAGE
PAGE "Quadro E1" -1 -1 78 18 PAGE "Quadro E1" -1 -1 78 18
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
FLAGS "H" PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAE1->CODDITTA FIELD LF_QUAE1->CODDITTA
KEY 1 KEY 1
END END
LIST F_TIPOA 1 12 LIST F_TIPOA 1 12
BEGIN BEGIN
PROMPT 3 0 "" PROMPT 2 0 ""
FIELD LF_QUAE1->TIPOA FIELD LF_QUAE1->TIPOA
ITEM "F|Fisica" ITEM "F|Fisica"
ITEM "G|Giuridica" ITEM "G|Giuridica"
@ -70,7 +71,7 @@ END
STRING F_CODCAUS 2 STRING F_CODCAUS 2
BEGIN BEGIN
PROMPT 3 3 "Causale " 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 INPUT CODTAB F_CODCAUS
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Descrizione @60" S0 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 TMask* get_mask(int mode) { return _msk; }
virtual bool changing_mask(int mode) { return FALSE; } virtual bool changing_mask(int mode) { return FALSE; }
virtual void init_query_mode (TMask&); virtual void init_query_mode (TMask&);
virtual void init_insert_mode (TMask&);
virtual void init_modify_mode (TMask&); virtual void init_modify_mode (TMask&);
void init_mask (TMask&); void init_mask (TMask&);
void fill_ss(TMask& m); void fill_ss(TMask& m);
@ -139,12 +140,12 @@ TQuadroF::TQuadroF(const char quadro)
break; break;
case '1': case '1':
_quadro = "F1"; _quadro = "F1";
_title = "Quadro F-1"; _title = "Quadro F1";
_tipo_prosp = 'B'; _tipo_prosp = 'B';
break; break;
case '2': case '2':
_quadro = "F2"; _quadro = "F2";
_title = "Quadro F-2"; _title = "Quadro F2";
_tipo_prosp = 'B'; _tipo_prosp = 'B';
break; break;
default: default:
@ -153,23 +154,25 @@ TQuadroF::TQuadroF(const char quadro)
} }
inline TQuadroF& app() { return (TQuadroF&) main_app(); } inline TQuadroF& app() { return (TQuadroF&) main_app(); }
void TQuadroF::init_modify_mode (TMask& m) void TQuadroF::init_insert_mode (TMask& m)
{ {
init_mask(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) void TQuadroF::init_query_mode (TMask& m)
{ {
TString16 codditta; codditta << _codditta; TString16 codditta;
if (codditta != "0") codditta << _codditta;
{ TMask_field& f = m.field(F_CODDITTA);
m.field(F_CODDITTA).set(codditta); f.set(codditta);
m.field(F_CODDITTA).check(); f.check();
}
m.send_key(K_AUTO_ENTER,0); m.send_key(K_AUTO_ENTER,0);
init_mask(m);
} }
void TQuadroF::init_mask (TMask& m) void TQuadroF::init_mask (TMask& m)
@ -182,7 +185,10 @@ bool TQuadroF::user_create()
if (_quadro == "F") if (_quadro == "F")
{ {
_msk = new TMask("771231a"); _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_PROVENTI, eprov_handler);
_msk->set_handler(E_ALI, ealiq_handler); _msk->set_handler(E_ALI, ealiq_handler);
_msk->set_handler(F_SOGG, fsogg_handler); _msk->set_handler(F_SOGG, fsogg_handler);
@ -231,7 +237,11 @@ bool TQuadroF::user_create()
if (_quadro == "F1") if (_quadro == "F1")
{ {
_msk = new TMask("771232a"); _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); 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_CODC, codc_handler);
p_b.sheet_mask().set_handler(S_ALIQ, aliq_handler); p_b.sheet_mask().set_handler(S_ALIQ, aliq_handler);
@ -251,7 +261,11 @@ bool TQuadroF::user_create()
if (_quadro == "F2") if (_quadro == "F2")
{ {
_msk = new TMask("771233a"); _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); 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_CODC, codc_handler);
p_b.sheet_mask().set_handler(S_ALIQ, aliq_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); row.add(ecc);
} }
for (i = last_a; i < PROSP_RIGHE; i++) for (i = last_a; i < PROSP_RIGHE; i++)
ss.row(i); ss.row(i);
ss.force_update(); // dava origine ad una indesiderata doppia visualizzazione
// ss.force_update();
break; break;
} }
case 'B': { case 'B': {
@ -362,9 +377,10 @@ void TQuadroF::riempi_prospetto(TMask& m, const char prosp)
row.add(rope); row.add(rope);
} }
for (i = last_b+1; i < PROSP_RIGHE; i++) for (i = last_b+1; i < PROSP_RIGHE; i++)
ss.row(i); ss.row(i);
if (_quadro != "F") // dava origine ad una indesiderata doppia visualizzazione
ss.force_update(); // if (_quadro != "F")
// ss.force_update();
break; } break; }
case 'C': { case 'C': {
TSheet_field& ss = (TSheet_field&)m.field(F_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) 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()); calcola_rope(f, sogg, f.focusdirty());
} }
return TRUE; return TRUE;
@ -938,11 +954,12 @@ real TQuadroF::calcola_rope(TMask_field& f, const real& sogg, const bool force)
else else
m.reset(id_rope); m.reset(id_rope);
// Nel prospetto A oltre alla ritenuta operata setto anche S_SALD // 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; real pa_col6 = pa_col4 - pa_col5;
if (pa_col6 > ZERO) if (pa_col6 > ZERO)
{ {
TString col6_st(pa_col6.string()); 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_CODDITTA 101
#define F_RAGDITTA 102 #define F_RAGDITTA 102
#define F_A 103 #define F_A 103
#define F_B 104 #define F_B 104
#define F_C 105 #define F_C 105
#define F_D 106 #define F_D 106
#define F_A1 107 #define F_A1 120
#define F_A2 108 #define F_A2 121
#define F_A3 109 #define F_A3 122
#define F_A4 110 #define F_A4 123
#define E_CAMBIAL 111 #define E_CAMBIAL 124
#define E_PROVENTI 112 #define E_PROVENTI 125
#define E_ALI 113 #define E_ALI 126
#define E_ROP 114 #define E_ROP 127
#define F_DESCRCAUS 115 #define F_DESCRCAUS 128
#define F_ALI 116 #define F_ALI 129
#define F_SOGG 117 #define F_SOGG 130
#define F_ROP 118 #define F_ROP 131
#define F_CODCAU 119 #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 TOOLBAR "" 0 20 0 2
#include "toolb_77.h" #include "toolbar.h"
ENDPAGE ENDPAGE
PAGE "Modello 770 - Quadro F" -1 -1 78 18 PAGE "Prospetto A" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -13,13 +14,13 @@ END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
USE LF_NDITTE KEY 1 USE LF_NDITTE
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA
OUTPUT F_RAGDITTA RAGSOC OUTPUT F_RAGDITTA RAGSOC
FIELD LF_QUAF->CODDITTA FIELD LF_QUAF->CODDITTA
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "GR" FLAGS "GRD"
END END
STRING F_RAGDITTA 50 STRING F_RAGDITTA 50
@ -101,7 +102,7 @@ END
ENDPAGE ENDPAGE
PAGE "Modello 770 - Quadro F" -1 -1 78 18 PAGE "Prospetto B,C" -1 -1 78 18
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
@ -135,7 +136,7 @@ END
ENDPAGE ENDPAGE
PAGE "Modello 770 - Quadro F" -1 -1 78 18 PAGE "Prospetto D,E,F" -1 -1 78 18
TEXT DLG_NULL TEXT DLG_NULL
BEGIN 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) void TQuadroG::init_query_mode (TMask& m)
{ {
TString16 codditta; codditta << _codditta; TString16 codditta;
if (codditta != "0") codditta << _codditta;
{ TMask_field& f = m.field(F_CODDITTA);
m.field(F_CODDITTA).set(codditta); f.set(codditta);
m.field(F_CODDITTA).check(); f.check();
}
m.send_key(K_AUTO_ENTER,0); m.send_key(K_AUTO_ENTER,0);
} }
@ -298,7 +297,11 @@ bool TQuadroG::user_create()
{ {
_msk = new TMask("771234a"); _msk = new TMask("771234a");
_rel = new TRelation(LF_QUAG); _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); _msk->set_handler(DLG_DISTINTA, exec_distinta);
TSheet_field& p1 = (TSheet_field&) _msk->field(F_P1); TSheet_field& p1 = (TSheet_field&) _msk->field(F_P1);
p1.set_notify(p1_notify); p1.set_notify(p1_notify);

9
m770/771232a.uml
View File

@ -1,9 +1,10 @@
#include "771231a.h" #include "771231a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include "toolb_77.h" #include "toolbar.h"
ENDPAGE ENDPAGE
PAGE "Modello 770 - Quadro F-1" -1 -1 78 18 PAGE "Quadro F1" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -19,7 +20,7 @@ BEGIN
FIELD LF_QUAF1->CODDITTA FIELD LF_QUAF1->CODDITTA
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "GR" FLAGS "GRD"
END END
STRING F_RAGDITTA 50 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 TOOLBAR "" 0 20 0 2
#include "toolb_77.h" #include "toolbar.h"
ENDPAGE ENDPAGE
PAGE "Modello 770 - Quadro F-2" -1 -1 78 18 PAGE "Quadro F2" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -19,7 +20,7 @@ BEGIN
FIELD LF_QUAF2->CODDITTA FIELD LF_QUAF2->CODDITTA
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "GR" FLAGS "GRD"
END END
STRING F_RAGDITTA 50 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 PAGE "Prospetto B" -1 -1 76 9
@ -6,24 +6,24 @@ NUMBER 101 2
BEGIN BEGIN
PROMPT 1 1 "Causale " PROMPT 1 1 "Causale "
USE %CA7 SELECT (S1="F2") USE %CA7 SELECT (S1="F2")
VALIDATE REQIF_FUNC 4 102 103 104 105
INPUT CODTAB 101 INPUT CODTAB 101
DISPLAY "Codice " CODTAB DISPLAY "Codice " CODTAB
DISPLAY "Descrizione @60" S0 DISPLAY "Descrizione @60" S0
DISPLAY "Codice tributo" I0 DISPLAY "Codice tributo" I0
DISPLAY "Articolo di bilancio" I3 DISPLAY "Articolo di bilancio" I3
OUTPUT 101 CODTAB OUTPUT 101 CODTAB
OUTPUT 102 S0 OUTPUT 102 S0
OUTPUT 103 R0 OUTPUT 103 R0
FLAGS "Z" FLAGS "Z"
WARNING "Manca la causale" WARNING "Manca la causale"
VALIDATE REQIF_FUNC 6 102 103 104 105
ADD RUN 773mod -3 %CA7 ADD RUN 773mod -3 %CA7
GROUP 1 GROUP 1
END END
STRING 102 60 STRING 102 60
BEGIN BEGIN
PROMPT 15 1 "" PROMPT 15 1 ""
FLAGS "D" FLAGS "D"
GROUP 1 GROUP 1
END END

143
m770/771234a.uml
View File

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

13
m770/771290.cpp
View File

@ -27,8 +27,8 @@ class TQuadro_H_app : public TRelation_application
long _codditta; long _codditta;
int _anno; int _anno;
TString _ente; TString _ente;
bool _registra; bool _registra;
protected: protected:
virtual bool user_create(); virtual bool user_create();
virtual bool user_destroy(); virtual bool user_destroy();
@ -54,7 +54,6 @@ public:
static bool dettaglio (TMask_field& f , KEY k); static bool dettaglio (TMask_field& f , KEY k);
static bool desc_ente (TMask_field& f , KEY k); static bool desc_ente (TMask_field& f , KEY k);
static bool codditta_hnd(TMask_field& f , KEY k); static bool codditta_hnd(TMask_field& f , KEY k);
TQuadro_H_app() {} TQuadro_H_app() {}
}; };
@ -74,8 +73,8 @@ bool TQuadro_H_app::codditta_hnd(TMask_field& f, KEY k)
} }
return TRUE; return TRUE;
} }
void TQuadro_H_app::refresh(TMask& m) void TQuadro_H_app::refresh(TMask& m)
{ {
TEdit_field& datore = _msk->efield(F_DAT); 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) void TQuadro_H_app::init_query_mode(TMask& m)
{ {
on_config_change(); on_config_change();
m.set(F_H1ANNO, _anno); m.set(F_H1ANNO, _anno);
// m.field(F_H1ANNO).set_dirty(FALSE);
m.disable(F_BTG_GENERA); m.disable(F_BTG_GENERA);
m.disable(F_BTG_DETTAGLIO); m.disable(F_BTG_DETTAGLIO);
m.show(F_ENTE); m.show(F_ENTE);
m.hide(F_ENTEBIS); m.hide(F_ENTEBIS);
} }

35
m770/771290a.uml
View File

@ -16,17 +16,16 @@ END
ENDPAGE 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 BEGIN
PROMPT 0 0 "" PROMPT 1 0 ""
FLAGS "R"
END END
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
PROMPT 2 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
FIELD LF_QUAH->CODDITTA FIELD LF_QUAH->CODDITTA
@ -40,18 +39,18 @@ END
STRING F_RAGSOC 50 STRING F_RAGSOC 50
BEGIN BEGIN
PROMPT 2 2 "Ragione sociale " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER F_H1ANNO 4 NUMBER F_H1ANNO 4
BEGIN BEGIN
PROMPT 2 5 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FIELD LF_QUAH->H1ANNO FIELD LF_QUAH->H1ANNO
KEY 1 KEY 1
USE LF_QUAH KEY 1 SELECT ((CODDITTA=#F_CODDITTA) && (H1ANNO=#F_H1ANNO)) USE LF_QUAH
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA SELECT
INPUT H1ANNO F_H1ANNO INPUT H1ANNO F_H1ANNO
DISPLAY "Ditta" CODDITTA DISPLAY "Ditta" CODDITTA
DISPLAY "Anno" H1ANNO DISPLAY "Anno" H1ANNO
@ -63,20 +62,20 @@ BEGIN
OUTPUT F_DAT H1DAT OUTPUT F_DAT H1DAT
OUTPUT F_LAV H1LAV OUTPUT F_LAV H1LAV
FLAGS "R" FLAGS "R"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 2 7 "Ente previdenziale" PROMPT 2 7 "Ente previdenziale assistenza percettore"
END END
NUMBER F_ENTE 2 NUMBER F_ENTE 2
BEGIN BEGIN
PROMPT 2 8 "e assistenza percettore " PROMPT 2 8 ""
COPY USE F_H1ANNO COPY USE F_H1ANNO
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA SELECT
INPUT H1ANNO F_H1ANNO INPUT H1ANNO F_H1ANNO SELECT
INPUT H1ENTE F_ENTE INPUT H1ENTE F_ENTE
COPY DISPLAY F_H1ANNO COPY DISPLAY F_H1ANNO
COPY OUTPUT F_H1ANNO COPY OUTPUT F_H1ANNO
@ -87,9 +86,9 @@ END
NUMBER F_ENTEBIS 2 NUMBER F_ENTEBIS 2
BEGIN BEGIN
PROMPT 2 8 "e assistenza percettore tabella " PROMPT 2 8 ""
FLAGS "G" FLAGS "G"
USE %ENT KEY 1 USE %ENT
CHECKTYPE FORCED CHECKTYPE FORCED
INPUT CODTAB F_ENTEBIS INPUT CODTAB F_ENTEBIS
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -104,7 +103,7 @@ END
STRING F_DESCENTE 60 STRING F_DESCENTE 60
BEGIN BEGIN
PROMPT 2 9 "Descrizione " PROMPT 7 8 ""
FLAGS "D" FLAGS "D"
END END

44
m770/771295a.uml
View File

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

432
m770/776600.cpp
View File

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

6
m770/77g1.cpp
View File

@ -20,7 +20,7 @@ TQuadroG1::TQuadroG1()
{ {
_registra = FALSE; _registra = FALSE;
_quadro = "G1"; _quadro = "G1";
_title = "Quadro G-1"; _title = "Quadro G1";
} }
inline TQuadroG1& app() { return (TQuadroG1&) main_app(); } inline TQuadroG1& app() { return (TQuadroG1&) main_app(); }
@ -94,6 +94,10 @@ bool TQuadroG1::user_create()
_msk = new TMask("77g1a"); _msk = new TMask("77g1a");
_rel = new TRelation(LF_QUAG1); _rel = new TRelation(LF_QUAG1);
_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
TSheet_field& p1 = (TSheet_field&) _msk->field(F_PI); TSheet_field& p1 = (TSheet_field&) _msk->field(F_PI);
p1.set_notify(p1_notify); p1.set_notify(p1_notify);
return TRUE; return TRUE;

11
m770/77g1a.uml
View File

@ -1,9 +1,10 @@
#include "77g1a.h" #include "77g1a.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include "77toolb.h" #include "toolbar.h"
ENDPAGE ENDPAGE
PAGE "Modello 770 - Quadro G-1" -1 -1 78 18 PAGE "Quadro G1" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -19,7 +20,7 @@ BEGIN
FIELD LF_QUAG1->CODDITTA FIELD LF_QUAG1->CODDITTA
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
FLAGS "GR" FLAGS "GRD"
MESSAGE COPY,1@ MESSAGE COPY,1@
END END
@ -32,7 +33,7 @@ END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 3 "@bPROSPETTO DEGLI UTILI E DELLE RITENUTE " PROMPT 1 3 "@bProspetto degli utili e delle ritenute"
END END
SPREADSHEET F_PI 0 13 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 // 77qb.h
#define QBF_CODDITTA 181 #define QBF_CODDITTA 181
#define QBF_ANNODIC 182 #define QBF_ANNODIC 182
#define QBF_CODDIP 183 #define QBF_CODDIP 183
#define QBF_NPROG 184 #define QBF_NPROG 184
#define QBF_DATAINI 185 #define QBF_DATAINI 185
#define QBF_DATAFIN 186 #define QBF_DATAFIN 186
#define QBF_ANNICOMM 187 #define QBF_ANNICOMM 187
#define QBF_MESICOMM 188 #define QBF_MESICOMM 188
#define QBF_ANNICONV 189 #define QBF_ANNICONV 189
#define QBF_MESICONV 190 #define QBF_MESICONV 190
#define QBF_ANNIPARZ 191 #define QBF_ANNIPARZ 191
#define QBF_MESIPARZ 192 #define QBF_MESIPARZ 192
#define QBF_PERCPARZ 193 #define QBF_PERCPARZ 193
#define QBF_QUOTAECC 194 #define QBF_QUOTAECC 194
#define QBF_MESEEROG 195 #define QBF_MESEEROG 195
#define QBF_TITEROG 196 #define QBF_TITEROG 196
#define QBF_PERCABB 197 #define QBF_PERCABB 197
#define QBF_AMMNETTO 198 #define QBF_AMMNETTO 198
#define QBF_MESEEROG2 199 #define QBF_MESEEROG2 199
#define QBF_TITEROG2 200 #define QBF_TITEROG2 200
#define QBF_PERCABB2 201 #define QBF_PERCABB2 201
#define QBF_AMMNETTO2 202 #define QBF_AMMNETTO2 202
#define QBF_CONTLAV 203 #define QBF_CONTLAV 203
#define QBF_TFR7494 204 #define QBF_TFR7494 204
#define QBF_INDEN7494 205 #define QBF_INDEN7494 205
#define QBF_TIND7494 206 #define QBF_TIND7494 206
#define QBF_TRID 207 #define QBF_TRID 207
#define QBF_TFRIND 208 #define QBF_TFRIND 208
#define QBF_ALIQUOTA 209 #define QBF_ALIQUOTA 209
#define QBF_RETRMEDIA 210 #define QBF_RETRMEDIA 210
#define QBF_ALIQUOTA2 211 #define QBF_ALIQUOTA2 211
#define QBF_IMPTFR 212 #define QBF_IMPTFR 212
#define QBF_IMPIND 213 #define QBF_IMPIND 213
#define QBF_IMPANNO 214 #define QBF_IMPANNO 214
#define QBF_TOTIMP 215 #define QBF_TOTIMP 215
#define QBF_ROPEACC 216 #define QBF_ROPEACC 216
#define QBF_IMPDOV 217 #define QBF_IMPDOV 217
#define QBF_RITECC 218 #define QBF_RITECC 218
#define QBF_QUOTASPET 219 #define QBF_QUOTASPET 219
#define QBF_INDSPETT 220 #define QBF_INDSPETT 220
#define QBF_ROPE 221 #define QBF_ROPE 221
#define QBF_IMPOCSSN 222 #define QBF_IMPOCSSN 222
#define QBF_RAGDITTA 223 #define QBF_RAGDITTA 223
#define QBF_ANADIP_CODDIP 224 #define QBF_ANADIP_CODDIP 224
#define QBF_QUAB_CODDIP 225 #define QBF_QUAB_CODDIP 225
#define QBF_COGNOME 226 #define QBF_COGNOME 226
#define QBF_NOME 227 #define QBF_NOME 227
#define GROUP_EREDE 2 #define GROUP_EREDE 2
#define GROUP_DIPDEC 3 #define GROUP_DIPDEC 3
#define RICERCA_DIP 4 #define RICERCA_DIP 4
#define RICERCA_QB 5 #define RICERCA_QB 5
#define GROUP_ALL 6 #define GROUP_ALL 6
#define G_DISABILI 7 #define G_DISABILI 7
#define QBG_ANADIP 1 #define QBG_ANADIP 1
#define QBG_QUADROB 2 #define QBG_QUADROB 2
#define QBF_CODDIP_ANAG 228 #define QBF_CODDIP_ANAG 228
#define QBF_CODDIP_QB 229 #define QBF_CODDIP_QB 229
#define CODDITTA77 181 #define CODDITTA77 181
#define ANNODIC77 182 #define ANNODIC77 182

54
m770/77qb1.h
View File

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

250
m770/77qb1a.uml
View File

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

424
m770/77qb1b.uml
View File

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

252
m770/77qba.uml
View File

@ -1,126 +1,126 @@
#include "77qb.h" #include "77qb.h"
TOOLBAR "" 0 20 0 2 TOOLBAR "" 0 20 0 2
#include <toolbar.h> #include <toolbar.h>
ENDPAGE ENDPAGE
PAGE "Quadro B" -1 -1 78 21 PAGE "Quadro B" -1 -1 78 21
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
PROMPT 1 0 "" PROMPT 1 0 ""
END END
NUMBER QBF_CODDITTA 5 NUMBER QBF_CODDITTA 5
BEGIN BEGIN
PROMPT 3 1 "Ditta " PROMPT 3 1 "Ditta "
FLAGS "GRD" FLAGS "GRD"
KEY 1 KEY 1
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_NDITTE KEY 1 USE LF_NDITTE KEY 1
INPUT CODDITTA QBF_CODDITTA INPUT CODDITTA QBF_CODDITTA
OUTPUT QBF_RAGDITTA RAGSOC OUTPUT QBF_RAGDITTA RAGSOC
FIELD LF_QUAB->CODDITTA FIELD LF_QUAB->CODDITTA
END END
STRING QBF_RAGDITTA 50 STRING QBF_RAGDITTA 50
BEGIN BEGIN
PROMPT 17 1 "Ragione " PROMPT 17 1 "Ragione "
FLAGS "D" FLAGS "D"
END END
NUMBER QBF_ANNODIC 4 NUMBER QBF_ANNODIC 4
BEGIN BEGIN
PROMPT 52 3 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR" FLAGS "DR"
END END
TEXT DLG_NULL TEXT DLG_NULL
BEGIN BEGIN
PROMPT 1 7 "@bDati dipendente" PROMPT 1 7 "@bDati dipendente"
END END
NUMBER QBF_CODDIP 6 NUMBER QBF_CODDIP 6
BEGIN BEGIN
PROMPT 80 80 "" PROMPT 80 80 ""
FLAGS "D" FLAGS "D"
FIELD LF_QUAB->CODDIP FIELD LF_QUAB->CODDIP
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
NUMBER QBF_CODDIP_ANAG 6 NUMBER QBF_CODDIP_ANAG 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_DIPEND KEY 1 USE LF_DIPEND KEY 1
INPUT CODDITTA QBF_CODDITTA SELECT INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP_ANAG INPUT CODDIP QBF_CODDIP_ANAG
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" COGNOME DISPLAY "Cognome@24" COGNOME
DISPLAY "Nome@20" NOME DISPLAY "Nome@20" NOME
OUTPUT QBF_CODDIP_ANAG CODDIP OUTPUT QBF_CODDIP_ANAG CODDIP
OUTPUT QBF_COGNOME COGNOME OUTPUT QBF_COGNOME COGNOME
OUTPUT QBF_NOME NOME OUTPUT QBF_NOME NOME
ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti" ADD RUN 773mod -1 771150a 45 "Anagrafica dipendenti"
MESSAGE COPY,QBF_CODDIP MESSAGE COPY,QBF_CODDIP
FLAGS "H" FLAGS "H"
GROUP QBG_ANADIP GROUP QBG_ANADIP
KEY 1 KEY 1
END END
NUMBER QBF_CODDIP_QB 6 NUMBER QBF_CODDIP_QB 6
BEGIN BEGIN
PROMPT 1 8 "@bCodice " PROMPT 1 8 "@bCodice "
USE LF_QUAB KEY 1 USE LF_QUAB KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA==CODDITTA CODDIP==CODDIP
INPUT CODDITTA QBF_CODDITTA SELECT INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP_QB INPUT CODDIP QBF_CODDIP_QB
DISPLAY "Codice " CODDIP DISPLAY "Codice " CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT QBF_CODDIP_QB CODDIP OUTPUT QBF_CODDIP_QB CODDIP
OUTPUT QBF_COGNOME LF_DIPEND->COGNOME OUTPUT QBF_COGNOME LF_DIPEND->COGNOME
OUTPUT QBF_NOME LF_DIPEND->NOME OUTPUT QBF_NOME LF_DIPEND->NOME
MESSAGE COPY, QBF_CODDIP MESSAGE COPY, QBF_CODDIP
GROUP QBG_QUADROB GROUP QBG_QUADROB
KEY 1 KEY 1
END END
STRING QBF_COGNOME 24 STRING QBF_COGNOME 24
BEGIN BEGIN
PROMPT 25 8 "" PROMPT 25 8 ""
FLAGS "D" FLAGS "D"
END END
STRING QBF_NOME 20 STRING QBF_NOME 20
BEGIN BEGIN
PROMPT 49 8 "" PROMPT 49 8 ""
FLAGS "D" FLAGS "D"
END END
NUMBER QBF_NPROG 4 NUMBER QBF_NPROG 4
BEGIN BEGIN
PROMPT 1 10 "@bNumero " PROMPT 1 10 "@bNumero "
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
USE LF_QUAB KEY 1 USE LF_QUAB KEY 1
JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP JOIN LF_DIPEND KEY 1 INTO CODDITTA=CODDITTA CODDIP=CODDIP
INPUT CODDITTA QBF_CODDITTA SELECT INPUT CODDITTA QBF_CODDITTA SELECT
INPUT CODDIP QBF_CODDIP INPUT CODDIP QBF_CODDIP
INPUT NPROG QBF_NPROG INPUT NPROG QBF_NPROG
DISPLAY "Codice@10" CODDIP DISPLAY "Codice@10" CODDIP
DISPLAY "Cognome@24" LF_DIPEND->COGNOME DISPLAY "Cognome@24" LF_DIPEND->COGNOME
DISPLAY "Nome@20" LF_DIPEND->NOME DISPLAY "Nome@20" LF_DIPEND->NOME
DISPLAY "N°@4" NPROG DISPLAY "N°@4" NPROG
OUTPUT QBF_CODDIP CODDIP OUTPUT QBF_CODDIP CODDIP
OUTPUT QBF_COGNOME LF_DIPEND->COGNOME OUTPUT QBF_COGNOME LF_DIPEND->COGNOME
OUTPUT QBF_NOME LF_DIPEND->NOME OUTPUT QBF_NOME LF_DIPEND->NOME
OUTPUT QBF_NPROG NPROG OUTPUT QBF_NPROG NPROG
FIELD LF_QUAB->NPROG FIELD LF_QUAB->NPROG
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
ENDPAGE ENDPAGE
ENDMASK 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" #include "toolbar.h"
ENDPAGE ENDPAGE
PAGE "MODULO 770 - QUADRO E2" -1 -1 78 18 PAGE "Quadro E2" -1 -1 78 18
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
BEGIN BEGIN
@ -30,7 +30,7 @@ END
NUMBER F_ANNODIC 4 NUMBER F_ANNODIC 4
BEGIN BEGIN
PROMPT 52 4 "Anno dichiarazione " PROMPT 52 3 "Anno dichiarazione "
FLAGS "DR" FLAGS "DR"
END END
@ -47,7 +47,6 @@ BEGIN
ITEM "G|Giuridica" ITEM "G|Giuridica"
MESSAGE COPY,F_TIPOAF MESSAGE COPY,F_TIPOAF
FIELD LF_QUAE2->TIPOA FIELD LF_QUAE2->TIPOA
CHECKTYPE REQUIRED
KEY 1 KEY 1
END END
@ -70,11 +69,11 @@ END
NUMBER F_CODANAGRPERC 5 NUMBER F_CODANAGRPERC 5
BEGIN BEGIN
PROMPT 15 8 "" PROMPT 16 8 ""
USE LF_PERC KEY 1 SELECT ((CODDITTA=#F_CODDITTA)&&(TIPOA=#F_TIPOA)) USE LF_PERC
JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRPERC INPUT CODANAGR F_CODANAGRPERC
DISPLAY "Tipo " TIPOA DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR DISPLAY "Codice " CODANAGR
@ -89,9 +88,9 @@ END
NUMBER F_CODANAGRCOM 5 NUMBER F_CODANAGRCOM 5
BEGIN BEGIN
PROMPT 15 8 "" PROMPT 16 8 ""
USE LF_ANAG KEY 1 SELECT (TIPOA=#F_TIPOA) USE LF_ANAG
INPUT TIPOA F_TIPOA INPUT TIPOA F_TIPOA SELECT
INPUT CODANAGR F_CODANAGRCOM INPUT CODANAGR F_CODANAGRCOM
DISPLAY "Tipo " TIPOA DISPLAY "Tipo " TIPOA
DISPLAY "Codice " CODANAGR DISPLAY "Codice " CODANAGR
@ -141,16 +140,14 @@ BEGIN
CHECKTYPE REQUIRED CHECKTYPE REQUIRED
KEY 1 KEY 1
FIELD LF_QUAE2->NPROG FIELD LF_QUAE2->NPROG
USE LF_QUAE2 USE LF_QUAE2
JOIN LF_ANAG TO LF_QUAE2 KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR
INPUT CODDITTA F_CODDITTA SELECT INPUT CODDITTA F_CODDITTA SELECT
INPUT TIPOA F_TIPOA SELECT INPUT TIPOA F_TIPOA
INPUT CODANAGR F_CODANAGR SELECT INPUT CODANAGR F_CODANAGR
INPUT NPROG F_NPROG INPUT NPROG F_NPROG
DISPLAY "N°" NPROG DISPLAY "N°" NPROG
DISPLAY "Tipo" TIPOA DISPLAY "Tipo" TIPOA
DISPLAY "Codice@10" CODANAGR DISPLAY "Codice@10" CODANAGR
//DISPLAY "Ragione@50" LF_ANAG->RAGSOC
DISPLAY "Causale" CODCAUS DISPLAY "Causale" CODCAUS
DISPLAY "Somme soggette a ritenuta" SOGGRIT DISPLAY "Somme soggette a ritenuta" SOGGRIT
DISPLAY "Aliquota" PERC DISPLAY "Aliquota" PERC

35
m770/77qe2b.uml
View File

@ -6,15 +6,16 @@ ENDPAGE
PAGE "Quadro E2" -1 -1 78 18 PAGE "Quadro E2" -1 -1 78 18
NUMBER F_CODDITTA 5 NUMBER F_CODDITTA 5
BEGIN BEGIN
FLAGS "H" PROMPT 80 80 ""
FLAGS "D"
FIELD LF_QUAE2->CODDITTA FIELD LF_QUAE2->CODDITTA
KEY 1 KEY 1
END END
LIST F_TIPOA 1 12 LIST F_TIPOA 1 12
BEGIN BEGIN
PROMPT 3 0 "" PROMPT 2 0 ""
FIELD LF_QUAE2->TIPOA FIELD LF_QUAE2->TIPOA
ITEM "F|Fisica" ITEM "F|Fisica"
ITEM "G|Giuridica" ITEM "G|Giuridica"
@ -106,35 +107,9 @@ BEGIN
FIELD LF_QUAE2->SOGGRIT FIELD LF_QUAE2->SOGGRIT
PICTURE "." PICTURE "."
FLAGS "R" FLAGS "R"
MESSAGE K_TAB,F_PERC // MESSAGE K_TAB,F_PERC
END 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 GROUPBOX DLG_NULL 32 5
BEGIN BEGIN
PROMPT 3 11 "@bRitenute operate" PROMPT 3 11 "@bRitenute operate"

27
m770/77qgda.uml
View File

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

1252
m770/quadb_b1.cpp
View File

File diff suppressed because it is too large Load Diff