Patch level : 10.0
Files correlati : 777.exe 77qla.frm 77qst.frm Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@20403 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
7201084e02
commit
95a8cd1f23
@ -7,9 +7,8 @@ int main(int argc,char** argv)
|
||||
const int n = (argc > 1) ? atoi(argv[1]+1) : -1;
|
||||
switch(n)
|
||||
{
|
||||
case 0: m777100(argc, argv); break;
|
||||
default: m777200(argc, argv); break;
|
||||
case 0:
|
||||
default: m777100(argc, argv); break;
|
||||
}
|
||||
exit(0);
|
||||
return 0;
|
||||
}
|
||||
@ -1,2 +1 @@
|
||||
int m777100(int argc, char* argv[]);
|
||||
int m777200(int argc, char* argv[]);
|
||||
691
m770/777100.cpp
691
m770/777100.cpp
File diff suppressed because it is too large
Load Diff
@ -7,4 +7,5 @@
|
||||
#define F_ADITTA 107
|
||||
#define F_ADESC 108
|
||||
#define F_HEADERS 109
|
||||
#define F_CENT 110
|
||||
|
||||
|
||||
@ -73,6 +73,12 @@ BEGIN
|
||||
PROMPT 1 8 "Genera record di testata (tipo A, B, Z)"
|
||||
END
|
||||
|
||||
BOOLEAN F_CENT
|
||||
BEGIN
|
||||
PROMPT 1 9 "Salva importi in centesimi (default in Euro)"
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
|
||||
124
m770/77qla.frm
124
m770/77qla.frm
@ -40,8 +40,7 @@ BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 10 1 ""
|
||||
FIELD 216@->COFI
|
||||
SPECIAL STRING TRASFER "AU001001" ""
|
||||
SPECIAL STRING DYLOG "AN,0,16" ""
|
||||
SPECIAL STRING TRASFER "AU001001" "AN"
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
@ -49,8 +48,7 @@ BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
SPECIAL STRING TRASFER "AU001002" ""
|
||||
SPECIAL STRING DYLOG "AN,16,24" ""
|
||||
SPECIAL STRING TRASFER "AU001002" "AN"
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
@ -58,8 +56,7 @@ BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 22 3 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
SPECIAL STRING TRASFER "AU001003" ""
|
||||
SPECIAL STRING DYLOG "AN,40,20" ""
|
||||
SPECIAL STRING TRASFER "AU001003" "AN"
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
@ -67,8 +64,7 @@ BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 57 3 ""
|
||||
FIELD 218@->SESSO
|
||||
SPECIAL STRING TRASFER "AU001004" ""
|
||||
SPECIAL STRING DYLOG "AN,60,1" ""
|
||||
SPECIAL STRING TRASFER "AU001004" "AN"
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
@ -77,8 +73,7 @@ BEGIN
|
||||
PROMPT 63 3 ""
|
||||
FIELD 218@->DATANASC
|
||||
PICTURE "##^ ##^ ####"
|
||||
SPECIAL STRING TRASFER "AU001005" ""
|
||||
SPECIAL STRING DYLOG "NU,61,8" ""
|
||||
SPECIAL STRING TRASFER "AU001005" "DT"
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
@ -86,8 +81,7 @@ BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 79 3 ""
|
||||
FIELD 313@->DENCOM
|
||||
SPECIAL STRING TRASFER "AU001006" ""
|
||||
SPECIAL STRING DYLOG "AN,69,25" ""
|
||||
SPECIAL STRING TRASFER "AU001006" "AN"
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
@ -95,8 +89,7 @@ BEGIN
|
||||
KEY "PROV DI NASCITA"
|
||||
PROMPT 126 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
SPECIAL STRING TRASFER "AU001007" ""
|
||||
SPECIAL STRING DYLOG "AN,94,2" ""
|
||||
SPECIAL STRING TRASFER "AU001007" "AN"
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
@ -105,8 +98,7 @@ BEGIN
|
||||
PROMPT 25 5 ""
|
||||
FIELD 513@->DENCOM
|
||||
FIELD 413@->DENCOM
|
||||
SPECIAL STRING TRASFER "AU001008" ""
|
||||
SPECIAL STRING DYLOG "AN,96,25" ""
|
||||
SPECIAL STRING TRASFER "AU001008" "AN"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -117,8 +109,7 @@ BEGIN
|
||||
FIELD 513@->PROVCOM
|
||||
FIELD 413@->PROVCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "AU001009" ""
|
||||
SPECIAL STRING DYLOG "AN,121,2" ""
|
||||
SPECIAL STRING TRASFER "AU001009" "AN"
|
||||
END
|
||||
|
||||
NUMBER 10
|
||||
@ -126,8 +117,7 @@ BEGIN
|
||||
KEY "CODICE REGIONE"
|
||||
PROMPT 78 5 ""
|
||||
FIELD 218@->CODREG96
|
||||
SPECIAL STRING TRASFER "AU001010" ""
|
||||
SPECIAL STRING DYLOG "NU,123,2" ""
|
||||
SPECIAL STRING TRASFER "AU001010" "NU"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -153,8 +143,7 @@ STRINGA 11
|
||||
BEGIN
|
||||
KEY "VIA RF + NUMCIVRF"
|
||||
PROMPT 78 5 ""
|
||||
SPECIAL STRING TRASFER "AU001011" ""
|
||||
SPECIAL STRING DYLOG "AN,125,25" ""
|
||||
SPECIAL STRING TRASFER "AU001011" "AN"
|
||||
MESSAGE COPY,14
|
||||
END
|
||||
|
||||
@ -163,36 +152,29 @@ BEGIN
|
||||
KEY "CODICE FISCALE ESTERO"
|
||||
PROMPT 90 7 ""
|
||||
FIELD 216@->COFIEST
|
||||
SPECIAL STRING TRASFER "AU001014" ""
|
||||
SPECIAL STRING DYLOG "AN,150,20" ""
|
||||
SPECIAL STRING TRASFER "AU001014" "AN"
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
BEGIN
|
||||
KEY "COMUNE ESTERO DI RES."
|
||||
PROMPT 75 7 ""
|
||||
FIELD 513@->DENCOM
|
||||
FIELD 413@->DENCOM
|
||||
SPECIAL STRING TRASFER "AU001015" ""
|
||||
SPECIAL STRING DYLOG "AN,170,25" ""
|
||||
SPECIAL STRING TRASFER "AU001015" "AN"
|
||||
END
|
||||
|
||||
STRINGA 16
|
||||
BEGIN
|
||||
KEY "INDIRIZZO DI RES. ESTERO"
|
||||
PROMPT 75 7 ""
|
||||
// FIELD Copiato da 11
|
||||
SPECIAL STRING TRASFER "AU001016" ""
|
||||
SPECIAL STRING DYLOG "AN,195,25" ""
|
||||
SPECIAL STRING TRASFER "AU001016" "AN"
|
||||
END
|
||||
|
||||
STRINGA 17
|
||||
NUMERO 17
|
||||
BEGIN
|
||||
KEY "STATO ESTERO"
|
||||
PROMPT 75 7 ""
|
||||
FIELD 216@->STATORES
|
||||
SPECIAL STRING TRASFER "AU001017" ""
|
||||
SPECIAL STRING DYLOG "NU,220,3" ""
|
||||
SPECIAL STRING TRASFER "AU001017" "NU"
|
||||
END
|
||||
|
||||
STRINGA 18
|
||||
@ -200,8 +182,7 @@ BEGIN
|
||||
KEY "CAUSALE"
|
||||
PROMPT 13 9 ""
|
||||
FIELD CAUSALE
|
||||
SPECIAL STRING TRASFER "AU001018" ""
|
||||
SPECIAL STRING DYLOG "AN,223,1" ""
|
||||
SPECIAL STRING TRASFER "AU001018" "AN"
|
||||
END
|
||||
|
||||
NUMERO 19
|
||||
@ -209,8 +190,7 @@ BEGIN
|
||||
KEY "ANNO"
|
||||
PROMPT 16 9 ""
|
||||
FIELD ANNO
|
||||
SPECIAL STRING TRASFER "AU001019" ""
|
||||
SPECIAL STRING DYLOG "NU,224,4" ""
|
||||
SPECIAL STRING TRASFER "AU001019" "NP"
|
||||
END
|
||||
|
||||
STRINGA 20
|
||||
@ -218,120 +198,102 @@ BEGIN
|
||||
KEY "ANTICIPAZIONI"
|
||||
PROMPT 27 9 ""
|
||||
FIELD ANTICIPAZ
|
||||
SPECIAL STRING TRASFER "AU001020" ""
|
||||
SPECIAL STRING DYLOG "AN,228,1" ""
|
||||
SPECIAL STRING TRASFER "AU001020" "CB"
|
||||
END
|
||||
|
||||
NUMERO 21
|
||||
VALUTA 21
|
||||
BEGIN
|
||||
KEY "AMMONTARE LORDO"
|
||||
PROMPT 27 9 ""
|
||||
FIELD TOTALE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "AU001021" ""
|
||||
SPECIAL STRING DYLOG "NU,229,11" ""
|
||||
SPECIAL STRING TRASFER "AU001021" "NP"
|
||||
END
|
||||
|
||||
NUMBER 22
|
||||
VALUTA 22
|
||||
BEGIN
|
||||
KEY "SOMREGCONV"
|
||||
PROMPT 47 9 ""
|
||||
FIELD SOMREGCONV
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "AU001022" ""
|
||||
SPECIAL STRING DYLOG "NU,240,11" ""
|
||||
SPECIAL STRING TRASFER "AU001022" "NP"
|
||||
END
|
||||
|
||||
NUMBER 23
|
||||
VALUTA 23
|
||||
BEGIN
|
||||
KEY "SOMME NON SOGGETTE A RITENUTA"
|
||||
PROMPT 66 9 ""
|
||||
FIELD SOMME
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "AU001023" ""
|
||||
SPECIAL STRING DYLOG "NU,251,11" ""
|
||||
SPECIAL STRING TRASFER "AU001023" "NP"
|
||||
END
|
||||
|
||||
NUMBER 24
|
||||
VALUTA 24
|
||||
BEGIN
|
||||
KEY "IMPONIBILE"
|
||||
KEY "IMPONIBILE = 21-22-23"
|
||||
PROMPT 88 9 ""
|
||||
FIELD IMPONIBILE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "AU001024" ""
|
||||
SPECIAL STRING DYLOG "NU,262,11" ""
|
||||
SPECIAL STRING TRASFER "AU001024" "NP"
|
||||
END
|
||||
|
||||
NUMBER 25
|
||||
VALUTA 25
|
||||
BEGIN
|
||||
KEY "Ritenute operate a titolo di acconto"
|
||||
PROMPT 109 9 ""
|
||||
FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "AU001025" ""
|
||||
SPECIAL STRING TRASFER "AU001025" "NP"
|
||||
END
|
||||
|
||||
|
||||
NUMBER 26
|
||||
VALUTA 26
|
||||
BEGIN
|
||||
KEY "Ritenute operate a titolo di imposta"
|
||||
PROMPT 109 9 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "AU001026" ""
|
||||
SPECIAL STRING DYLOG "NU,273,11" ""
|
||||
SPECIAL STRING TRASFER "AU001026" "NP"
|
||||
END
|
||||
|
||||
NUMBER 27
|
||||
VALUTA 27
|
||||
BEGIN
|
||||
KEY "RITENUTE SOSPESE"
|
||||
PROMPT 109 9 ""
|
||||
FIELD RITSOSPESE
|
||||
SPECIAL STRING TRASFER "AU001027" ""
|
||||
SPECIAL STRING DYLOG "NU,284,11" ""
|
||||
END
|
||||
|
||||
NUMBER 28
|
||||
VALUTA 28
|
||||
BEGIN
|
||||
KEY "ADDIZIONALE REGIONALE a titolo di acconto"
|
||||
PROMPT 109 9 ""
|
||||
FIELD ADDREG
|
||||
SPECIAL STRING TRASFER "AU001028" ""
|
||||
SPECIAL STRING DYLOG "NU,295,11" ""
|
||||
SPECIAL STRING TRASFER "AU001028" "NP"
|
||||
END
|
||||
|
||||
NUMBER 29
|
||||
VALUTA 29
|
||||
BEGIN
|
||||
KEY "ADDIZIONALE REGIONALE a titolo di imposta"
|
||||
PROMPT 109 9 ""
|
||||
SPECIAL STRING TRASFER "AU001029" ""
|
||||
SPECIAL STRING DYLOG "NU,295,11" ""
|
||||
SPECIAL STRING TRASFER "AU001029" "NP"
|
||||
END
|
||||
|
||||
NUMBER 30
|
||||
VALUTA 30
|
||||
BEGIN
|
||||
KEY "ADDIZIONALE REGIONALE SOSPESA"
|
||||
PROMPT 109 9 ""
|
||||
FIELD ADDREGSOSP
|
||||
SPECIAL STRING TRASFER "AU001030" ""
|
||||
SPECIAL STRING DYLOG "NU,306,11" ""
|
||||
SPECIAL STRING TRASFER "AU001030" "NP"
|
||||
END
|
||||
|
||||
NUMBER 31
|
||||
VALUTA 31
|
||||
BEGIN
|
||||
KEY "IMPONIBILE ANNI PRECEDENTI"
|
||||
PROMPT 109 9 ""
|
||||
FIELD IMPANNIPRE
|
||||
SPECIAL STRING TRASFER "AU001031" ""
|
||||
SPECIAL STRING DYLOG "NU,317,11" ""
|
||||
SPECIAL STRING TRASFER "AU001031" "NP"
|
||||
END
|
||||
|
||||
NUMBER 32
|
||||
VALUTA 32
|
||||
BEGIN
|
||||
KEY "RITENUTE ANNI PRECEDENTI"
|
||||
PROMPT 109 9 ""
|
||||
FIELD RITANNIPRE
|
||||
SPECIAL STRING TRASFER "AU001032" ""
|
||||
SPECIAL STRING DYLOG "NU,328,11" ""
|
||||
SPECIAL STRING TRASFER "AU001032" "NP"
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
113
m770/77qst.frm
113
m770/77qst.frm
@ -19,99 +19,87 @@ END
|
||||
SECTION BODY ODD 2
|
||||
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "MESE RIFERIMENTO"
|
||||
PROMPT 9 2 ""
|
||||
FIELD QLMP
|
||||
SPECIAL STRINGA DYLOG "NU,0,2" ""
|
||||
END
|
||||
|
||||
NUMERO 1
|
||||
BEGIN
|
||||
KEY "ANNO RIFERIMENTO"
|
||||
PROMPT 42 2 ""
|
||||
FIELD QLAP
|
||||
SPECIAL STRINGA DYLOG "NU,2,4" ""
|
||||
END
|
||||
|
||||
NUMERO 101
|
||||
BEGIN
|
||||
KEY "PERIODO DI RIFERIMENTO"
|
||||
PROMPT 9 2 ""
|
||||
MESSAGE _PERIODO_RIF
|
||||
SPECIAL STRINGA TRASFER "ST002001" "NU"
|
||||
SPECIAL STRINGA TRASFER "ST002001" "NP"
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
VALUTA 2
|
||||
BEGIN
|
||||
KEY "RITENUTE"
|
||||
KEY "RITENUTE OPERATE"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLRITEFF
|
||||
SPECIAL STRINGA TRASFER "ST002002" "CU"
|
||||
SPECIAL STRINGA DYLOG "NU,6,11" ""
|
||||
SPECIAL STRINGA TRASFER "ST002002" "NP"
|
||||
END
|
||||
|
||||
NUMERO 3
|
||||
VALUTA 3
|
||||
BEGIN
|
||||
KEY "RITENUTE NON VERSATE PER ECCESSO E RESTITUZIONI"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLRITVEREC
|
||||
SPECIAL STRINGA TRASFER "ST002003" "CU"
|
||||
SPECIAL STRINGA DYLOG "NU,17,11" ""
|
||||
END
|
||||
|
||||
NUMERO 4
|
||||
BEGIN
|
||||
KEY "RITENUTE COMPENSATE CON CREDITI D'IMPOSTA"
|
||||
KEY "CREDITI RECUPERATI"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLRITCOMP
|
||||
SPECIAL STRINGA TRASFER "ST002004" "CU"
|
||||
SPECIAL STRINGA DYLOG "NU,28,11" ""
|
||||
SPECIAL STRINGA TRASFER "ST002003" "NP"
|
||||
END
|
||||
|
||||
NUMERO 5
|
||||
VALUTA 4
|
||||
BEGIN
|
||||
KEY "IMPORTI A SCOMPUTO"
|
||||
PROMPT 79 2 ""
|
||||
SPECIAL STRINGA TRASFER "ST002004" "NP"
|
||||
END
|
||||
|
||||
VALUTA 5
|
||||
BEGIN
|
||||
KEY "VERSAMENTI IN ECCESSO"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLRITVEREC
|
||||
SPECIAL STRINGA TRASFER "ST002005" "NP"
|
||||
END
|
||||
|
||||
VALUTA 6
|
||||
BEGIN
|
||||
KEY "CREDITI D'IMPOSTA UTILIZZATI A SCOMPUTO"
|
||||
PROMPT 79 2 ""
|
||||
SPECIAL STRINGA TRASFER "ST002004" "NP"
|
||||
END
|
||||
|
||||
VALUTA 7
|
||||
BEGIN
|
||||
KEY "IMPORTO VERSATO"
|
||||
PROMPT 79 2 ""
|
||||
MESSAGE _NUMEXPR,#2-#3-#4
|
||||
SPECIAL STRINGA TRASFER "ST002005" "CU"
|
||||
SPECIAL STRINGA DYLOG "NU,39,11" ""
|
||||
MESSAGE _NUMEXPR,#2-#3-#4-#5-#6
|
||||
SPECIAL STRINGA TRASFER "ST002007" "NP"
|
||||
END
|
||||
|
||||
NUMERO 6
|
||||
VALUTA 8
|
||||
BEGIN
|
||||
KEY "INTERESSI VERSATI"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLINTERESS
|
||||
SPECIAL STRINGA TRASFER "ST002006" "CU"
|
||||
SPECIAL STRINGA DYLOG "NU,50,11" ""
|
||||
SPECIAL STRINGA TRASFER "ST002008" "NP"
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
NUMERO 9
|
||||
BEGIN
|
||||
KEY "RAVVEDIMENTO"
|
||||
SPECIAL STRINGA TRASFER "ST002009" "CB"
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
BEGIN
|
||||
KEY "NOTE"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLNOTE
|
||||
SPECIAL STRINGA TRASFER "ST002007" ""
|
||||
SPECIAL STRINGA DYLOG "AN,61,10" ""
|
||||
SPECIAL STRINGA TRASFER "ST002010" "AN"
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
BEGIN
|
||||
KEY "Eventi eccezionali"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLEVENTI
|
||||
SPECIAL STRINGA TRASFER "ST002008" ""
|
||||
SPECIAL STRINGA DYLOG "AN,71,10" ""
|
||||
END
|
||||
|
||||
NUMERO 9
|
||||
STRINGA 11
|
||||
BEGIN
|
||||
KEY "CODICE TRIBUTO"
|
||||
PROMPT 79 2 ""
|
||||
FIELD QLCT
|
||||
SPECIAL STRINGA TRASFER "ST002009" "NU"
|
||||
SPECIAL STRINGA DYLOG "AN,82,4" ""
|
||||
SPECIAL STRINGA TRASFER "ST002011" "AN"
|
||||
END
|
||||
|
||||
LISTA 100
|
||||
@ -124,28 +112,25 @@ BEGIN
|
||||
ITEM "T|X" MESSAGE "X",10
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
NUMERO 12
|
||||
BEGIN
|
||||
KEY "Tesoreria"
|
||||
PROMPT 79 2 ""
|
||||
SPECIAL STRINGA TRASFER "ST002010" "BO"
|
||||
SPECIAL STRINGA DYLOG "AN,88,1" ""
|
||||
SPECIAL STRINGA TRASFER "ST002012" "CB"
|
||||
END
|
||||
|
||||
NUMERO 11
|
||||
NUMERO 13
|
||||
BEGIN
|
||||
KEY "Regione"
|
||||
PROMPT 79 2 ""
|
||||
SPECIAL STRINGA TRASFER "ST002011" "NU"
|
||||
SPECIAL STRINGA DYLOG "NU,89,2" ""
|
||||
FIELD QLREGIONE
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
STRINGA 14
|
||||
BEGIN
|
||||
KEY "Data versamento"
|
||||
PROMPT 79 2 ""
|
||||
SPECIAL STRINGA TRASFER "ST002012" "DT"
|
||||
SPECIAL STRINGA TRASFER "ST002014" "DT"
|
||||
FIELD QLDV
|
||||
END
|
||||
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user