Continuano gli aggiustamenti per i videi veloci
git-svn-id: svn://10.65.10.50/trunk@4063 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
fb1db0e91f
commit
76185dee2a
@ -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)
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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"
|
||||
|
@ -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
|
||||
|
@ -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"
|
||||
|
@ -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,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
|
||||
|
@ -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());
|
||||
|
@ -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
|
||||
|
||||
|
||||
|
||||
|
@ -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
|
||||
|
@ -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);
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
143
m770/771234a.uml
@ -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
|
||||
|
@ -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);
|
||||
}
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
432
m770/776600.cpp
@ -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;
|
||||
}
|
||||
|
||||
|
@ -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;
|
||||
|
@ -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
1748
m770/77lib01.cpp
File diff suppressed because it is too large
Load Diff
138
m770/77qb.h
138
m770/77qb.h
@ -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
54
m770/77qb1.h
@ -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
250
m770/77qb1a.uml
@ -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
424
m770/77qb1b.uml
@ -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
252
m770/77qba.uml
@ -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
1422
m770/77qbb.uml
File diff suppressed because it is too large
Load Diff
@ -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
|
||||
|
@ -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"
|
||||
|
@ -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
1252
m770/quadb_b1.cpp
File diff suppressed because it is too large
Load Diff
Loading…
x
Reference in New Issue
Block a user