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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Modificati quadri per gestire trasferimenti (aggiunto uno SPECIAL)
Aggiunto programma 777 di trasferimento 770


git-svn-id: svn://10.65.10.50/trunk@6908 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 1998-08-04 07:34:49 +00:00
parent 0745e3e1f0
commit b2c68e593c
12 changed files with 509 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
m770/777.cpp Executable file
View File

@ -0,0 +1,15 @@
#include <xvt.h>
#include "777.h"
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: break;
}
exit(0);
return 0;
}

1
m770/777.h Executable file
View File

@ -0,0 +1 @@
int m777100(int argc, char* argv[]);

4
m770/777.url Executable file
View File

@ -0,0 +1,4 @@
#include <default.url>

55
m770/77qc.frm
View File

@ -10,7 +10,7 @@ END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
61->* "Quadro C 770" 61->* "Quadro SC 770"
9->* "Ditte" 9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche" 6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche" 8->* "Anagrafica persone fisiche"
@ -37,6 +37,7 @@ BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 53 5 "" PROMPT 53 5 ""
FIELD 116@->COFI FIELD 116@->COFI
SPECIAL STRINGA TRASFER "SC0101" ""
END END
STRINGA 3 STRINGA 3
@ -68,6 +69,7 @@ BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 9 2 "" PROMPT 9 2 ""
FIELD 216@->COFI FIELD 216@->COFI
SPECIAL STRINGA TRASFER "SC0201" ""
END END
STRING 2 STRING 2
@ -75,6 +77,7 @@ BEGIN
KEY "COGNOME" KEY "COGNOME"
PROMPT 42 2 "" PROMPT 42 2 ""
FIELD 216@->RAGSOC[1,30] FIELD 216@->RAGSOC[1,30]
SPECIAL STRINGA TRASFER "SC0202" ""
GROUP 1 GROUP 1
END END
@ -83,6 +86,7 @@ BEGIN
KEY "NOME" KEY "NOME"
PROMPT 79 2 "" PROMPT 79 2 ""
FIELD 216@->RAGSOC[31,50] FIELD 216@->RAGSOC[31,50]
SPECIAL STRINGA TRASFER "SC0203" ""
GROUP 1 GROUP 1
END END
@ -91,6 +95,7 @@ BEGIN
KEY "DATA NASCITA" KEY "DATA NASCITA"
PROMPT 112 2 "" PROMPT 112 2 ""
FIELD 218@->DATANASC FIELD 218@->DATANASC
SPECIAL STRINGA TRASFER "SC0204" ""
END END
STRING 5 STRING 5
@ -98,6 +103,7 @@ BEGIN
KEY "SESSO" KEY "SESSO"
PROMPT 126 2 "" PROMPT 126 2 ""
FIELD 218@->SESSO FIELD 218@->SESSO
SPECIAL STRINGA TRASFER "SC0205" ""
END END
STRING 6 STRING 6
@ -105,6 +111,7 @@ BEGIN
KEY "COMUNE DI NASCITA" KEY "COMUNE DI NASCITA"
PROMPT 9 4 "" PROMPT 9 4 ""
FIELD 313@->DENCOM FIELD 313@->DENCOM
SPECIAL STRINGA TRASFER "SC0206" ""
GROUP 1 GROUP 1
END END
@ -113,6 +120,7 @@ BEGIN
KEY "PROV DI NASCITA" KEY "PROV DI NASCITA"
PROMPT 46 4 "" PROMPT 46 4 ""
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
SPECIAL STRINGA TRASFER "SC0207" ""
GROUP 1 GROUP 1
END END
@ -121,6 +129,7 @@ BEGIN
KEY "COMUNE DI RESIDENZA" KEY "COMUNE DI RESIDENZA"
PROMPT 52 4 "" PROMPT 52 4 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
SPECIAL STRINGA TRASFER "SC0208" ""
GROUP 1 GROUP 1
END END
@ -129,6 +138,7 @@ BEGIN
KEY "PROV. RESIDENZA" KEY "PROV. RESIDENZA"
PROMPT 88 4 "" PROMPT 88 4 ""
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
SPECIAL STRINGA TRASFER "SC0209" ""
END END
STRING 101 STRING 101
@ -153,6 +163,7 @@ STRING 10
BEGIN BEGIN
KEY "VIA RES. + numcivres" KEY "VIA RES. + numcivres"
PROMPT 93 4 "" PROMPT 93 4 ""
SPECIAL STRINGA TRASFER "SC0210" ""
GROUP 1 GROUP 1
END END
@ -161,6 +172,7 @@ BEGIN
KEY "CAUSALE Quadro C" KEY "CAUSALE Quadro C"
PROMPT 9 6 "" PROMPT 9 6 ""
FIELD CAUSALE FIELD CAUSALE
SPECIAL STRINGA TRASFER "SC0211" ""
END END
STRING 12 STRING 12
@ -168,6 +180,7 @@ BEGIN
KEY "FLAG TASSAZIONE SEPARATA" KEY "FLAG TASSAZIONE SEPARATA"
PROMPT 20 6 "" PROMPT 20 6 ""
FIELD TASSAZIONE FIELD TASSAZIONE
SPECIAL STRINGA TRASFER "SC0212" ""
END END
NUMBER 13 NUMBER 13
@ -175,7 +188,8 @@ BEGIN
KEY "AMMONTARE LORDO CORRISPOSTO" KEY "AMMONTARE LORDO CORRISPOSTO"
PROMPT 37 6 "" PROMPT 37 6 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
// FIELD AMMLORDO FIELD AMMLORDO
SPECIAL STRINGA TRASFER "SC0213" ""
END END
NUMBER 14 NUMBER 14
@ -183,7 +197,8 @@ BEGIN
KEY "CONTRIBUTI OBBLIGATORI" KEY "CONTRIBUTI OBBLIGATORI"
PROMPT 57 6 "" PROMPT 57 6 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
// FIELD CONTROBB FIELD CONTROBB
SPECIAL STRINGA TRASFER "SC0214" ""
END END
NUMBER 15 NUMBER 15
@ -191,7 +206,8 @@ BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA" KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 78 6 "" PROMPT 78 6 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
// FIELD SOMNONSOGG FIELD SOMNONSOGG
SPECIAL STRINGA TRASFER "SC0215" ""
END END
NUMBER 16 NUMBER 16
@ -199,7 +215,8 @@ BEGIN
KEY "IMPONIBILE" KEY "IMPONIBILE"
PROMPT 99 6 "" PROMPT 99 6 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
// FIELD IMPONIBILE FIELD IMPONIBILE
SPECIAL STRINGA TRASFER "SC0216" ""
END END
NUMBER 17 NUMBER 17
@ -207,7 +224,8 @@ BEGIN
KEY "IMPOSTA" KEY "IMPOSTA"
PROMPT 119 6 "" PROMPT 119 6 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
// FIELD IMPOSTA FIELD IMPOSTA
SPECIAL STRINGA TRASFER "SC0217" ""
END END
NUMBER 18 NUMBER 18
@ -215,14 +233,16 @@ BEGIN
KEY "DETRAZIONI PER CARICHI DI FAMIGLIA" KEY "DETRAZIONI PER CARICHI DI FAMIGLIA"
PROMPT 16 8 "" PROMPT 16 8 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
// FIELD DETCARFAM FIELD DETCARFAM
SPECIAL STRINGA TRASFER "SC0218" ""
END END
NUMBER 19 NUMBER 19
BEGIN BEGIN
KEY "NUMERO GIORNI DETRAZIONI PER LAVORO DIPENDENTE" KEY "NUMERO GIORNI DETRAZIONI PER LAVORO DIPENDENTE"
PROMPT 36 8 "" PROMPT 36 8 ""
// FIELD GGLAVDIP FIELD GGLAVDIP
SPECIAL STRINGA TRASFER "SC0219" ""
END END
NUMBER 20 NUMBER 20
@ -230,7 +250,8 @@ BEGIN
KEY "DETRAZIONI PER LAVORO DIPENDENTE" KEY "DETRAZIONI PER LAVORO DIPENDENTE"
PROMPT 48 8 "" PROMPT 48 8 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
// FIELD DETLAVDIP FIELD DETLAVDIP
SPECIAL STRINGA TRASFER "SC0220" ""
END END
NUMBER 21 NUMBER 21
@ -238,7 +259,8 @@ BEGIN
KEY "TOTALE DETRAZIONI" KEY "TOTALE DETRAZIONI"
PROMPT 69 8 "" PROMPT 69 8 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
// FIELD TOTDET FIELD TOTDET
SPECIAL STRINGA TRASFER "SC0221" ""
END END
NUMBER 22 NUMBER 22
@ -246,9 +268,20 @@ BEGIN
KEY "RITENUTE OPERATE" KEY "RITENUTE OPERATE"
PROMPT 89 8 "" PROMPT 89 8 ""
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
// FIELD RITENUTE FIELD RITENUTE
SPECIAL STRINGA TRASFER "SC0222" ""
END END
NUMBER 23
BEGIN
KEY "RITENUTE SOSPESE"
PROMPT 109 8 ""
PICTURE "###.###.###^^^"
// FIELD RITENUTE
SPECIAL STRINGA TRASFER "SC0223" ""
END
END END
SECTION FOOTER LAST 11 SECTION FOOTER LAST 11

33
m770/77qd.frm
View File

@ -11,7 +11,7 @@ END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
62->* "Quadro D 770" 62->* "Quadro SF 770 ex D"
9->* "Ditte" 9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche" 6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche" 8->* "Anagrafica persone fisiche"
@ -76,6 +76,7 @@ BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 55 8 "" PROMPT 55 8 ""
FIELD 206@->COFI FIELD 206@->COFI
SPECIAL STRING TRASFER "SF0101" ""
END END
STRINGA 13 STRINGA 13
@ -117,6 +118,7 @@ BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 10 1 "" PROMPT 10 1 ""
FIELD 216@->COFI FIELD 216@->COFI
SPECIAL STRING TRASFER "SF0201" ""
END END
STRINGA 2 STRINGA 2
@ -125,6 +127,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30] FIELD 216@->RAGSOC[1,30]
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SF0202" ""
END END
STRINGA 3 STRINGA 3
@ -133,6 +136,7 @@ BEGIN
PROMPT 22 3 "" PROMPT 22 3 ""
FIELD 216@->RAGSOC[31,50] FIELD 216@->RAGSOC[31,50]
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SF0203" ""
END END
STRINGA 102 STRINGA 102
@ -141,6 +145,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC FIELD 216@->RAGSOC
GROUP 2 GROUP 2
SPECIAL STRING TRASFER "SF0202" ""
END END
STRINGA 4 STRINGA 4
@ -149,6 +154,7 @@ BEGIN
PROMPT 57 3 "" PROMPT 57 3 ""
FIELD 218@->SESSO FIELD 218@->SESSO
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SF0204" ""
END END
STRINGA 5 STRINGA 5
@ -158,6 +164,7 @@ BEGIN
FIELD 218@->DATANASC FIELD 218@->DATANASC
PICTURE "##^ ##^ ####" PICTURE "##^ ##^ ####"
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SF0205" ""
END END
STRINGA 6 STRINGA 6
@ -166,6 +173,7 @@ BEGIN
PROMPT 79 3 "" PROMPT 79 3 ""
FIELD 313@->DENCOM FIELD 313@->DENCOM
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SF0206" ""
END END
STRINGA 7 STRINGA 7
@ -174,6 +182,7 @@ BEGIN
PROMPT 126 3 "" PROMPT 126 3 ""
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SF0207" ""
END END
STRINGA 8 STRINGA 8
@ -191,6 +200,7 @@ BEGIN
PROMPT 25 5 "" PROMPT 25 5 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 3 GROUP 3
SPECIAL STRING TRASFER "SF0208" ""
END END
STRINGA 9 STRINGA 9
@ -199,6 +209,7 @@ BEGIN
PROMPT 71 5 "" PROMPT 71 5 ""
FIELD 513@->PROVCOM FIELD 513@->PROVCOM
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
SPECIAL STRING TRASFER "SF0209" ""
END END
STRINGA 101 STRINGA 101
@ -222,6 +233,7 @@ BEGIN
KEY "VIA RES. + NUMCIVRES" KEY "VIA RES. + NUMCIVRES"
PROMPT 78 5 "" PROMPT 78 5 ""
GROUP 3 GROUP 3
SPECIAL STRING TRASFER "SF0210" ""
END END
STRINGA 103 STRINGA 103
@ -254,6 +266,7 @@ BEGIN
ITEM "| " MESSAGE HIDE,5@ ITEM "| " MESSAGE HIDE,5@
ITEM "X|X" MESSAGE SHOW,5@ ITEM "X|X" MESSAGE SHOW,5@
FIELD 216@->SOGGNRES FIELD 216@->SOGGNRES
SPECIAL STRING TRASFER "SF0211" ""
END END
STRINGA 12 STRINGA 12
@ -262,6 +275,7 @@ BEGIN
PROMPT 14 7 "" PROMPT 14 7 ""
FIELD 104@->S0 FIELD 104@->S0
GROUP 5 GROUP 5
SPECIAL STRING TRASFER "SF0212" ""
END END
STRINGA 13 STRINGA 13
@ -270,6 +284,7 @@ BEGIN
PROMPT 75 7 "" PROMPT 75 7 ""
FIELD 216@->STATORES FIELD 216@->STATORES
GROUP 5 GROUP 5
SPECIAL STRING TRASFER "SF0213" ""
END END
STRINGA 14 STRINGA 14
@ -278,6 +293,7 @@ BEGIN
PROMPT 90 7 "" PROMPT 90 7 ""
FIELD 216@->COFIEST FIELD 216@->COFIEST
GROUP 5 GROUP 5
SPECIAL STRING TRASFER "SF0214" ""
END END
STRINGA 15 STRINGA 15
@ -285,6 +301,7 @@ BEGIN
KEY "CAUSALE" KEY "CAUSALE"
PROMPT 13 9 "" PROMPT 13 9 ""
FIELD CAUSALE FIELD CAUSALE
SPECIAL STRING TRASFER "SF0215" ""
END END
NUMBER 16 NUMBER 16
@ -293,6 +310,7 @@ BEGIN
PROMPT 27 9 "" PROMPT 27 9 ""
FIELD TOTALE FIELD TOTALE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0216" ""
END END
NUMBER 17 NUMBER 17
@ -301,6 +319,7 @@ BEGIN
PROMPT 47 9 "" PROMPT 47 9 ""
FIELD SOMME FIELD SOMME
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0217" ""
END END
NUMBER 18 NUMBER 18
@ -309,6 +328,7 @@ BEGIN
PROMPT 66 9 "" PROMPT 66 9 ""
FIELD SOMREGCONV FIELD SOMREGCONV
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0218" ""
END END
NUMBER 19 NUMBER 19
@ -317,6 +337,7 @@ BEGIN
PROMPT 88 9 "" PROMPT 88 9 ""
FIELD IMPONIBILE FIELD IMPONIBILE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0219" ""
END END
NUMBER 20 NUMBER 20
@ -325,6 +346,16 @@ BEGIN
PROMPT 109 9 "" PROMPT 109 9 ""
FIELD IMPORTO FIELD IMPORTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0220" ""
END
NUMBER 21
BEGIN
KEY "RITENUTE SOSPESE"
PROMPT 109 9 ""
// FIELD IMPORTO
PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0221" ""
END END
END END

31
m770/77qd1.frm
View File

@ -10,7 +10,7 @@ END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
63->* "Quadro D1 770" 63->* "Quadro SH 770 ex D1"
9->* "Ditte" 9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche" 6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche" 8->* "Anagrafica persone fisiche"
@ -74,6 +74,7 @@ BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 55 8 "" PROMPT 55 8 ""
FIELD 106@->COFI FIELD 106@->COFI
SPECIAL STRING TRASFER "SH0101" ""
END END
STRINGA 13 STRINGA 13
@ -110,6 +111,7 @@ BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 9 1 "" PROMPT 9 1 ""
FIELD 216@->COFI FIELD 216@->COFI
SPECIAL STRING TRASFER "SH0201" ""
END END
STRINGA 2 STRINGA 2
@ -118,6 +120,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30] FIELD 216@->RAGSOC[1,30]
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SH0202" ""
END END
STRINGA 3 STRINGA 3
@ -126,6 +129,7 @@ BEGIN
PROMPT 21 3 "" PROMPT 21 3 ""
FIELD 216@->RAGSOC[31,50] FIELD 216@->RAGSOC[31,50]
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SH0203" ""
END END
STRINGA 102 STRINGA 102
@ -134,6 +138,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC FIELD 216@->RAGSOC
GROUP 2 GROUP 2
SPECIAL STRING TRASFER "SH0202" ""
END END
STRINGA 4 STRINGA 4
@ -142,6 +147,7 @@ BEGIN
PROMPT 57 3 "" PROMPT 57 3 ""
FIELD 218@->SESSO FIELD 218@->SESSO
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SH0204" ""
END END
STRINGA 5 STRINGA 5
@ -151,6 +157,7 @@ BEGIN
FIELD 218@->DATANASC FIELD 218@->DATANASC
PICTURE "##^ ##^ ####" PICTURE "##^ ##^ ####"
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SH0205" ""
END END
STRINGA 6 STRINGA 6
@ -159,6 +166,7 @@ BEGIN
PROMPT 79 3 "" PROMPT 79 3 ""
FIELD 313@->DENCOM FIELD 313@->DENCOM
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SH0206" ""
END END
STRINGA 7 STRINGA 7
@ -167,6 +175,7 @@ BEGIN
PROMPT 126 3 "" PROMPT 126 3 ""
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SH0207" ""
END END
STRINGA 8 STRINGA 8
@ -176,6 +185,7 @@ BEGIN
FIELD 513@->DENCOM FIELD 513@->DENCOM
MESSAGE EMPTY SHOW,3@|HIDE,4@ MESSAGE EMPTY SHOW,3@|HIDE,4@
MESSAGE SHOW,4@|HIDE,3@ MESSAGE SHOW,4@|HIDE,3@
SPECIAL STRING TRASFER "SH0208" ""
END END
STRINGA 80 STRINGA 80
@ -184,6 +194,7 @@ BEGIN
PROMPT 25 5 "" PROMPT 25 5 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 3 GROUP 3
SPECIAL STRING TRASFER "SH0208" ""
END END
STRINGA 9 STRINGA 9
@ -192,6 +203,7 @@ BEGIN
PROMPT 71 5 "" PROMPT 71 5 ""
FIELD 513@->PROVCOM FIELD 513@->PROVCOM
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
SPECIAL STRING TRASFER "SH0209" ""
END END
STRINGA 101 STRINGA 101
@ -215,6 +227,7 @@ BEGIN
KEY "VIA RES. + NUMCIVRES" KEY "VIA RES. + NUMCIVRES"
PROMPT 78 5 "" PROMPT 78 5 ""
GROUP 3 GROUP 3
SPECIAL STRING TRASFER "SH0210" ""
END END
STRINGA 103 STRINGA 103
@ -238,6 +251,7 @@ BEGIN
KEY "VIA RF + NUMCIVRF" KEY "VIA RF + NUMCIVRF"
PROMPT 78 5 "" PROMPT 78 5 ""
GROUP 4 GROUP 4
SPECIAL STRING TRASFER "SH0210" ""
END END
STRING 11 STRING 11
@ -245,6 +259,7 @@ BEGIN
KEY "CAUSALE" KEY "CAUSALE"
PROMPT 10 7 "" PROMPT 10 7 ""
FIELD CAUSALE FIELD CAUSALE
SPECIAL STRING TRASFER "SH0211" ""
END END
NUMBER 12 NUMBER 12
@ -253,6 +268,7 @@ BEGIN
PROMPT 26 7 "" PROMPT 26 7 ""
FIELD TOTALE FIELD TOTALE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SH0212" ""
END END
NUMBER 13 NUMBER 13
@ -261,6 +277,7 @@ BEGIN
PROMPT 46 7 "" PROMPT 46 7 ""
FIELD SPESEANT FIELD SPESEANT
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SH0213" ""
END END
NUMBER 14 NUMBER 14
@ -269,6 +286,7 @@ BEGIN
PROMPT 66 7 "" PROMPT 66 7 ""
FIELD QUOTAPRO FIELD QUOTAPRO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SH0214" ""
END END
NUMBER 15 NUMBER 15
@ -277,6 +295,7 @@ BEGIN
PROMPT 88 7 "" PROMPT 88 7 ""
FIELD IMPONIBILE FIELD IMPONIBILE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SH0215" ""
END END
NUMBER 16 NUMBER 16
@ -285,6 +304,16 @@ BEGIN
PROMPT 109 7 "" PROMPT 109 7 ""
FIELD IMPORTO FIELD IMPORTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SH0216" ""
END
NUMBER 17
BEGIN
KEY "RITENUTE SOSPESE"
PROMPT 109 7 ""
// FIELD IMPORTO
PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SH0217" ""
END END
END END

37
m770/77qdb.frm
View File

@ -11,7 +11,7 @@ END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
120->* "Quadro D bis 770" 120->* "Quadro SG 770 ex D bis"
9->* "Ditte" 9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche" 6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche" 8->* "Anagrafica persone fisiche"
@ -112,6 +112,7 @@ BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 9 1 "" PROMPT 9 1 ""
FIELD 216@->COFI FIELD 216@->COFI
SPECIAL STRING TRASFER "SG0101" ""
END END
STRINGA 2 STRINGA 2
@ -120,6 +121,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30] FIELD 216@->RAGSOC[1,30]
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SG0201" ""
END END
STRINGA 3 STRINGA 3
@ -128,6 +130,7 @@ BEGIN
PROMPT 21 3 "" PROMPT 21 3 ""
FIELD 216@->RAGSOC[31,50] FIELD 216@->RAGSOC[31,50]
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SG0202" ""
END END
STRINGA 102 STRINGA 102
@ -136,6 +139,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC FIELD 216@->RAGSOC
GROUP 2 GROUP 2
SPECIAL STRING TRASFER "SG0201" ""
END END
STRINGA 4 STRINGA 4
@ -144,6 +148,7 @@ BEGIN
PROMPT 57 3 "" PROMPT 57 3 ""
FIELD 218@->SESSO FIELD 218@->SESSO
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SG0204" ""
END END
STRINGA 5 STRINGA 5
@ -153,6 +158,7 @@ BEGIN
FIELD 218@->DATANASC FIELD 218@->DATANASC
PICTURE "##^ ##^ ####" PICTURE "##^ ##^ ####"
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SG0205" ""
END END
STRINGA 6 STRINGA 6
@ -161,6 +167,7 @@ BEGIN
PROMPT 79 3 "" PROMPT 79 3 ""
FIELD 313@->DENCOM FIELD 313@->DENCOM
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SG0206" ""
END END
STRINGA 7 STRINGA 7
@ -169,6 +176,7 @@ BEGIN
PROMPT 126 3 "" PROMPT 126 3 ""
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SG0207" ""
END END
STRINGA 8 STRINGA 8
@ -178,6 +186,7 @@ BEGIN
FIELD 513@->DENCOM FIELD 513@->DENCOM
MESSAGE EMPTY SHOW,3@|HIDE,4@ MESSAGE EMPTY SHOW,3@|HIDE,4@
MESSAGE SHOW,4@|HIDE,3@ MESSAGE SHOW,4@|HIDE,3@
SPECIAL STRING TRASFER "SG0208" ""
END END
STRINGA 80 STRINGA 80
@ -186,6 +195,7 @@ BEGIN
PROMPT 25 5 "" PROMPT 25 5 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 3 GROUP 3
SPECIAL STRING TRASFER "SG0208" ""
END END
STRINGA 9 STRINGA 9
@ -194,6 +204,7 @@ BEGIN
PROMPT 71 5 "" PROMPT 71 5 ""
FIELD 513@->PROVCOM FIELD 513@->PROVCOM
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
SPECIAL STRING TRASFER "SG0209" ""
END END
STRINGA 101 STRINGA 101
@ -217,6 +228,7 @@ BEGIN
KEY "VIA RES. + NUMCIVRES" KEY "VIA RES. + NUMCIVRES"
PROMPT 78 5 "" PROMPT 78 5 ""
GROUP 3 GROUP 3
SPECIAL STRING TRASFER "SG0210" ""
END END
STRINGA 103 STRINGA 103
@ -240,6 +252,7 @@ BEGIN
KEY "VIA RF + NUMCIVRF" KEY "VIA RF + NUMCIVRF"
PROMPT 78 5 "" PROMPT 78 5 ""
GROUP 4 GROUP 4
SPECIAL STRING TRASFER "SG0210" ""
END END
LISTA 11 LISTA 11
@ -249,6 +262,7 @@ BEGIN
ITEM "| " MESSAGE HIDE,5@ ITEM "| " MESSAGE HIDE,5@
ITEM "X|X" MESSAGE SHOW,5@ ITEM "X|X" MESSAGE SHOW,5@
FIELD 216@->SOGGNRES FIELD 216@->SOGGNRES
SPECIAL STRING TRASFER "SG0211" ""
END END
STRINGA 12 STRINGA 12
@ -257,6 +271,7 @@ BEGIN
PROMPT 14 7 "" PROMPT 14 7 ""
FIELD 104@->S0 FIELD 104@->S0
GROUP 5 GROUP 5
SPECIAL STRING TRASFER "SG0212" ""
END END
STRINGA 13 STRINGA 13
@ -265,6 +280,7 @@ BEGIN
PROMPT 75 7 "" PROMPT 75 7 ""
FIELD 216@->STATORES FIELD 216@->STATORES
GROUP 5 GROUP 5
SPECIAL STRING TRASFER "SG0213" ""
END END
STRINGA 14 STRINGA 14
@ -273,6 +289,7 @@ BEGIN
PROMPT 90 7 "" PROMPT 90 7 ""
FIELD 216@->COFIEST FIELD 216@->COFIEST
GROUP 5 GROUP 5
SPECIAL STRING TRASFER "SG0214" ""
END END
STRINGA 15 STRINGA 15
@ -280,6 +297,7 @@ BEGIN
KEY "CAUSALE" KEY "CAUSALE"
PROMPT 10 9 "" PROMPT 10 9 ""
FIELD CAUSALE FIELD CAUSALE
SPECIAL STRING TRASFER "SG0215" ""
END END
NUMERO 16 NUMERO 16
@ -288,6 +306,7 @@ BEGIN
PROMPT 26 9 "" PROMPT 26 9 ""
FIELD TOTALE FIELD TOTALE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SG0216" ""
END END
NUMERO 17 NUMERO 17
@ -296,6 +315,7 @@ BEGIN
PROMPT 46 9 "" PROMPT 46 9 ""
FIELD SOMME FIELD SOMME
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SG0217" ""
END END
NUMERO 18 NUMERO 18
@ -304,6 +324,7 @@ BEGIN
PROMPT 66 9 "" PROMPT 66 9 ""
FIELD SOMREGCONV FIELD SOMREGCONV
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SG0218" ""
END END
NUMERO 19 NUMERO 19
@ -312,6 +333,7 @@ BEGIN
PROMPT 88 9 "" PROMPT 88 9 ""
FIELD IMPONIBILE FIELD IMPONIBILE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SG0219" ""
END END
NUMERO 20 NUMERO 20
@ -320,13 +342,24 @@ BEGIN
PROMPT 109 9 "" PROMPT 109 9 ""
FIELD IMPORTO FIELD IMPORTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SG0220" ""
END END
STRINGA 21 NUMERO 21
BEGIN
KEY "RITENUTE SOSPESE"
PROMPT 109 9 ""
// FIELD IMPORTO
PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SG0221" ""
END
STRINGA 22
BEGIN BEGIN
KEY "Contributo del 10%" KEY "Contributo del 10%"
PROMPT 124 9 "" PROMPT 124 9 ""
FIELD CONTR10 FIELD CONTR10
SPECIAL STRING TRASFER "SG0222" ""
END END
END END

22
m770/77qe.frm
View File

@ -10,7 +10,7 @@ END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
64->* "Quadro E 770" 64->* "Quadro SP 770 ex E"
9->* "Ditte" 9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche" 6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche" 8->* "Anagrafica persone fisiche"
@ -73,6 +73,7 @@ BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 55 8 "" PROMPT 55 8 ""
FIELD 106@->COFI FIELD 106@->COFI
SPECIAL STRING TRASFER "SP0101" ""
END END
STRINGA 13 STRINGA 13
@ -109,6 +110,7 @@ BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 9 1 "" PROMPT 9 1 ""
FIELD 216@->COFI FIELD 216@->COFI
SPECIAL STRING TRASFER "SP0201" ""
END END
STRINGA 2 STRINGA 2
@ -117,6 +119,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30] FIELD 216@->RAGSOC[1,30]
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SP0202" ""
END END
STRINGA 3 STRINGA 3
@ -125,6 +128,7 @@ BEGIN
PROMPT 21 3 "" PROMPT 21 3 ""
FIELD 216@->RAGSOC[31,50] FIELD 216@->RAGSOC[31,50]
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SP0203" ""
END END
STRINGA 102 STRINGA 102
@ -133,6 +137,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC FIELD 216@->RAGSOC
GROUP 2 GROUP 2
SPECIAL STRING TRASFER "SP0202" ""
END END
STRINGA 4 STRINGA 4
@ -141,6 +146,7 @@ BEGIN
PROMPT 57 3 "" PROMPT 57 3 ""
FIELD 218@->SESSO FIELD 218@->SESSO
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SP0203" ""
END END
STRINGA 5 STRINGA 5
@ -150,6 +156,7 @@ BEGIN
FIELD 218@->DATANASC FIELD 218@->DATANASC
PICTURE "##^ ##^ ####" PICTURE "##^ ##^ ####"
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SP0205" ""
END END
STRINGA 6 STRINGA 6
@ -158,6 +165,7 @@ BEGIN
PROMPT 79 3 "" PROMPT 79 3 ""
FIELD 313@->DENCOM FIELD 313@->DENCOM
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SP0206" ""
END END
STRINGA 7 STRINGA 7
@ -166,6 +174,7 @@ BEGIN
PROMPT 126 3 "" PROMPT 126 3 ""
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
GROUP 1 GROUP 1
SPECIAL STRING TRASFER "SP0207" ""
END END
STRINGA 8 STRINGA 8
@ -175,6 +184,7 @@ BEGIN
FIELD 513@->DENCOM FIELD 513@->DENCOM
MESSAGE EMPTY SHOW,3@|HIDE,4@ MESSAGE EMPTY SHOW,3@|HIDE,4@
MESSAGE SHOW,4@|HIDE,3@ MESSAGE SHOW,4@|HIDE,3@
SPECIAL STRING TRASFER "SP0208" ""
END END
STRINGA 80 STRINGA 80
@ -183,6 +193,7 @@ BEGIN
PROMPT 24 5 "" PROMPT 24 5 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 3 GROUP 3
SPECIAL STRING TRASFER "SP0208" ""
END END
STRINGA 9 STRINGA 9
@ -191,6 +202,7 @@ BEGIN
PROMPT 71 5 "" PROMPT 71 5 ""
FIELD 513@->PROVCOM FIELD 513@->PROVCOM
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
SPECIAL STRING TRASFER "SP0209" ""
END END
STRINGA 101 STRINGA 101
@ -214,6 +226,7 @@ BEGIN
KEY "VIA RES. + NUMCIVRES" KEY "VIA RES. + NUMCIVRES"
PROMPT 78 5 "" PROMPT 78 5 ""
GROUP 3 GROUP 3
SPECIAL STRING TRASFER "SP0210" ""
END END
STRINGA 103 STRINGA 103
@ -237,6 +250,7 @@ BEGIN
KEY "VIA RF + NUMCIVRF" KEY "VIA RF + NUMCIVRF"
PROMPT 78 5 "" PROMPT 78 5 ""
GROUP 4 GROUP 4
SPECIAL STRING TRASFER "SP0210" ""
END END
STRING 11 STRING 11
@ -244,6 +258,7 @@ BEGIN
KEY "CAUSALE" KEY "CAUSALE"
PROMPT 13 7 "" PROMPT 13 7 ""
FIELD CAUSALE FIELD CAUSALE
SPECIAL STRING TRASFER "SP0211" ""
END END
NUMBER 12 NUMBER 12
@ -252,6 +267,7 @@ BEGIN
PROMPT 33 7 "" PROMPT 33 7 ""
FIELD IMPONIBILE FIELD IMPONIBILE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SP0212" ""
END END
NUMBER 13 NUMBER 13
@ -260,6 +276,7 @@ BEGIN
PROMPT 49 7 "" PROMPT 49 7 ""
FIELD PERC FIELD PERC
PICTURE "##@,@@" PICTURE "##@,@@"
SPECIAL STRING TRASFER "SP0213" ""
END END
NUMBER 14 NUMBER 14
@ -268,6 +285,7 @@ BEGIN
PROMPT 71 7 "" PROMPT 71 7 ""
FIELD IMPORTO FIELD IMPORTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SP0214" ""
END END
NUMBER 15 NUMBER 15
@ -276,6 +294,7 @@ BEGIN
PROMPT 95 7 "" PROMPT 95 7 ""
FIELD NETTO FIELD NETTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SP0215" ""
END END
NUMBER 16 NUMBER 16
@ -284,6 +303,7 @@ BEGIN
PROMPT 119 7 "" PROMPT 119 7 ""
FIELD SOMME FIELD SOMME
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SP0216" ""
END END
END END

22
m770/77qe1.frm
View File

@ -12,7 +12,7 @@ END
DESCRIPTION DESCRIPTION
BEGIN BEGIN
65->* "Quadro E1 770" 65->* "Quadro SQ 770 ex E1"
9->* "Ditte" 9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche" 6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche" 8->* "Anagrafica persone fisiche"
@ -77,6 +77,7 @@ BEGIN
KEY "CODICE FISCALE" KEY "CODICE FISCALE"
PROMPT 55 8 "" PROMPT 55 8 ""
FIELD 106@->COFI FIELD 106@->COFI
SPECIAL STRING "TRASFER" "SQ0101" ""
END END
STRINGA 13 STRINGA 13
@ -114,6 +115,7 @@ BEGIN
KEY "COD.FIS" KEY "COD.FIS"
PROMPT 9 1 "" PROMPT 9 1 ""
FIELD 216@->COFI FIELD 216@->COFI
SPECIAL STRING "TRASFER" "SQ0201" ""
END END
STRINGA 2 STRINGA 2
@ -122,6 +124,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30] FIELD 216@->RAGSOC[1,30]
GROUP 1 GROUP 1
SPECIAL STRING "TRASFER" "SQ0202" ""
END END
STRINGA 3 STRINGA 3
@ -130,6 +133,7 @@ BEGIN
PROMPT 21 3 "" PROMPT 21 3 ""
FIELD 216@->RAGSOC[31,50] FIELD 216@->RAGSOC[31,50]
GROUP 1 GROUP 1
SPECIAL STRING "TRASFER" "SQ0203" ""
END END
STRINGA 102 STRINGA 102
@ -138,6 +142,7 @@ BEGIN
PROMPT 42 1 "" PROMPT 42 1 ""
FIELD 216@->RAGSOC FIELD 216@->RAGSOC
GROUP 2 GROUP 2
SPECIAL STRING "TRASFER" "SQ0202" ""
END END
STRINGA 4 STRINGA 4
@ -146,6 +151,7 @@ BEGIN
PROMPT 57 3 "" PROMPT 57 3 ""
FIELD 218@->SESSO FIELD 218@->SESSO
GROUP 1 GROUP 1
SPECIAL STRING "TRASFER" "SQ0204" ""
END END
STRINGA 5 STRINGA 5
@ -155,6 +161,7 @@ BEGIN
FIELD 218@->DATANASC FIELD 218@->DATANASC
PICTURE "##^ ##^ ####" PICTURE "##^ ##^ ####"
GROUP 1 GROUP 1
SPECIAL STRING "TRASFER" "SQ0205" ""
END END
STRINGA 6 STRINGA 6
@ -163,6 +170,7 @@ BEGIN
PROMPT 79 3 "" PROMPT 79 3 ""
FIELD 313@->DENCOM FIELD 313@->DENCOM
GROUP 1 GROUP 1
SPECIAL STRING "TRASFER" "SQ0206" ""
END END
STRINGA 7 STRINGA 7
@ -171,6 +179,7 @@ BEGIN
PROMPT 126 3 "" PROMPT 126 3 ""
FIELD 313@->PROVCOM FIELD 313@->PROVCOM
GROUP 1 GROUP 1
SPECIAL STRING "TRASFER" "SQ0207" ""
END END
STRINGA 8 STRINGA 8
@ -180,6 +189,7 @@ BEGIN
FIELD 513@->DENCOM FIELD 513@->DENCOM
MESSAGE EMPTY SHOW,3@|HIDE,4@ MESSAGE EMPTY SHOW,3@|HIDE,4@
MESSAGE SHOW,4@|HIDE,3@ MESSAGE SHOW,4@|HIDE,3@
SPECIAL STRING "TRASFER" "SQ0208" ""
END END
STRINGA 80 STRINGA 80
@ -188,6 +198,7 @@ BEGIN
PROMPT 24 5 "" PROMPT 24 5 ""
FIELD 413@->DENCOM FIELD 413@->DENCOM
GROUP 3 GROUP 3
SPECIAL STRING "TRASFER" "SQ0208" ""
END END
STRINGA 9 STRINGA 9
@ -196,6 +207,7 @@ BEGIN
PROMPT 72 5 "" PROMPT 72 5 ""
FIELD 513@->PROVCOM FIELD 513@->PROVCOM
FIELD 413@->PROVCOM FIELD 413@->PROVCOM
SPECIAL STRING "TRASFER" "SQ0209" ""
END END
STRINGA 101 STRINGA 101
@ -219,6 +231,7 @@ BEGIN
KEY "VIA RES. + NUMCIVRES" KEY "VIA RES. + NUMCIVRES"
PROMPT 78 5 "" PROMPT 78 5 ""
GROUP 3 GROUP 3
SPECIAL STRING "TRASFER" "SQ0210" ""
END END
STRINGA 103 STRINGA 103
@ -242,6 +255,7 @@ BEGIN
KEY "VIA RF + NUMCIVRF" KEY "VIA RF + NUMCIVRF"
PROMPT 78 5 "" PROMPT 78 5 ""
GROUP 4 GROUP 4
SPECIAL STRING "TRASFER" "SQ0210" ""
END END
STRING 11 STRING 11
@ -249,6 +263,7 @@ BEGIN
KEY "CAUSALE" KEY "CAUSALE"
PROMPT 13 7 "" PROMPT 13 7 ""
FIELD CAUSALE FIELD CAUSALE
SPECIAL STRING "TRASFER" "SQ0211" ""
END END
NUMBER 12 NUMBER 12
@ -257,6 +272,7 @@ BEGIN
PROMPT 33 7 "" PROMPT 33 7 ""
FIELD SOMME FIELD SOMME
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING "TRASFER" "SQ0212" ""
END END
NUMBER 13 NUMBER 13
@ -265,6 +281,7 @@ BEGIN
PROMPT 56 7 "" PROMPT 56 7 ""
FIELD AMMONTARE FIELD AMMONTARE
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING "TRASFER" "SQ0213" ""
END END
NUMBER 14 NUMBER 14
@ -273,6 +290,7 @@ BEGIN
PROMPT 71 7 "" PROMPT 71 7 ""
FIELD PERC FIELD PERC
PICTURE "##@,@@" PICTURE "##@,@@"
SPECIAL STRING "TRASFER" "SQ0214" ""
END END
NUMBER 15 NUMBER 15
@ -281,6 +299,7 @@ BEGIN
PROMPT 95 7 "" PROMPT 95 7 ""
FIELD IMPORTO FIELD IMPORTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING "TRASFER" "SQ0215" ""
END END
NUMBER 16 NUMBER 16
@ -289,6 +308,7 @@ BEGIN
PROMPT 119 7 "" PROMPT 119 7 ""
FIELD NETTO FIELD NETTO
PICTURE "###.###.###^^^" PICTURE "###.###.###^^^"
SPECIAL STRING "TRASFER" "SQ0216" ""
END END
END END

17
m770/77ql.frm
View File

@ -29,7 +29,7 @@ LISTA 1
BEGIN BEGIN
KEY "Tipo anagrafica" KEY "Tipo anagrafica"
FLAGS "H" FLAGS "H"
FIELD 106@->TIPOA FIELD 9->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@ ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@ ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END END
@ -58,6 +58,7 @@ BEGIN
KEY "Cod.Conc.1" KEY "Cod.Conc.1"
PROMPT 41 12 "" PROMPT 41 12 ""
FIELD 213@->UFFCONC FIELD 213@->UFFCONC
SPECIAL STRING TRASFER "SL0103" ""
END END
STRINGA 6 STRINGA 6
@ -103,6 +104,8 @@ NUMERO 1
BEGIN BEGIN
KEY "Mese rif." KEY "Mese rif."
PROMPT 23 2 "" PROMPT 23 2 ""
PICTURE "@@"
MESSAGE COPY,100
END END
NUMERO 2 NUMERO 2
@ -110,6 +113,14 @@ BEGIN
KEY "Anno rif." KEY "Anno rif."
PROMPT 28 2 "" PROMPT 28 2 ""
FIELD 42->QLAP FIELD 42->QLAP
MESSAGE ADD,100
END
STRING 100
BEGIN
KEY "Periodo rif."
PROMPT 23 2 ""
SPECIAL STRING TRASFER "SL0202" ""
END END
NUMERO 3 NUMERO 3
@ -164,6 +175,7 @@ BEGIN
ITEM "C|C" MESSAGE SHOW,14|HIDE,13 ITEM "C|C" MESSAGE SHOW,14|HIDE,13
ITEM "D|D" MESSAGE SHOW,14|HIDE,13 ITEM "D|D" MESSAGE SHOW,14|HIDE,13
FIELD 42->QLTV FIELD 42->QLTV
SPECIAL STRING TRASFER "SL0105" ""
END END
STRINGA 9 STRINGA 9
@ -171,6 +183,7 @@ BEGIN
KEY "CodTrib" KEY "CodTrib"
PROMPT 45 4 "" PROMPT 45 4 ""
FIELD 42->QLCT FIELD 42->QLCT
SPECIAL STRING TRASFER "SL0107" ""
END END
STRINGA 10 STRINGA 10
@ -178,6 +191,7 @@ BEGIN
KEY "Art.Bil." KEY "Art.Bil."
PROMPT 53 4 "" PROMPT 53 4 ""
FIELD 42->QLAB FIELD 42->QLAB
SPECIAL STRING TRASFER "SL0108" ""
END END
STRINGA 11 STRINGA 11
@ -186,6 +200,7 @@ BEGIN
PROMPT 62 4 "" PROMPT 62 4 ""
FIELD 42->QLDV FIELD 42->QLDV
PICTURE " ## ^ ## ^####" PICTURE " ## ^ ## ^####"
SPECIAL STRING TRASFER "SL0104" ""
END END
STRINGA 12 STRINGA 12

268
m770/77qsk.frm Executable file
View File

@ -0,0 +1,268 @@
USE 42
JOIN 37 INTO CODDITTA==CODDITTA
JOIN 9 INTO CODDITTA==CODDITTA
JOIN 6 TO 9 ALIAS 106 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 106@ ALIAS 108 INTO CODANAGR=CODANAGR
JOIN 13 TO 108@ ALIAS 113 INTO COM==COMNASC
JOIN 13 TO 106@ ALIAS 213 INTO COM==COMRF(COMRES)
END
DESCRIPTION
BEGIN
36->* "Base 770"
37->* "Basebis 770"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Roman 17cpi"
SIZE 12
CA "X"
IN 3 1
FI 129
END
SECTION HEADER FIRST 12
LISTA 1
BEGIN
KEY "Tipo anagrafica"
FLAGS "H"
FIELD 9->TIPOA
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
END
STRINGA 2
BEGIN
KEY "CODICE FISCALE DEL DICHIARANTE"
PROMPT 53 5 ""
FIELD 106@->COFI
SPECIAL STRING TRASFER "SK0101" ""
END
STRINGA 3
BEGIN
KEY "CODICE FISCALE DEL SOSTITUTO IMPOSTA"
PROMPT 85 5 ""
END
NUMERO 4
BEGIN
KEY "NUMERO FOGLIO"
PROMPT 126 5 ""
END
STRINGA 5
BEGIN
KEY "Cod.Conc.1"
PROMPT 41 12 ""
FIELD 213@->UFFCONC
END
STRINGA 6
BEGIN
KEY "Cod.Conc.2"
PROMPT 53 12 ""
FIELD 37->L0CCONC2
END
STRINGA 7
BEGIN
KEY "Cod.Conc.3"
PROMPT 65 12 ""
FIELD 37->L0CCONC3
END
NUMERO 8
BEGIN
KEY "Cod.Tes.1"
PROMPT 102 12 ""
FIELD 37->L0CTES1
END
NUMERO 9
BEGIN
KEY "Cod.Tes.2"
PROMPT 114 12 ""
FIELD 37->L0CTES2
END
NUMERO 10
BEGIN
KEY "Cod.Tes.3"
PROMPT 126 12 ""
FIELD 37->L0CTES3
END
END
SECTION BODY ODD 4
NUMERO 1
BEGIN
KEY "Mese rif."
PROMPT 23 2 ""
PICTURE "@@"
MESSAGE COPY,100
END
NUMERO 2
BEGIN
KEY "Anno rif."
PROMPT 28 2 ""
FIELD 42->QLAP
MESSAGE ADD,100
END
STRING 100
BEGIN
KEY "Periodo rif."
PROMPT 23 2 ""
SPECIAL STRING TRASFER "SK0202" ""
END
NUMERO 3
BEGIN
KEY "Rit.eff"
PROMPT 46 2 ""
FIELD 42->QLRITEFF
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->1
SPECIAL STRING TRASFER "SK0201" ""
END
NUMERO 4
BEGIN
KEY "Rit.ver"
PROMPT 77 2 ""
FIELD 42->QLRITVER
PICTURE "###.###.###.###^^^"
MESSAGE ADD,FL->2
END
LISTA 5
BEGIN
KEY "RSS"
PROMPT 99 2 ""
ITEM " | "
ITEM "1|VA"
ITEM "2|SA"
ITEM "3|SI"
FIELD 42->QLRSS
SPECIAL STRING TRASFER "SK0203" ""
END
STRINGA 6
BEGIN
KEY "Note"
PROMPT 109 2 ""
FIELD 42->QLNOTE
SPECIAL STRING TRASFER "SK0204" ""
END
STRINGA 7
BEGIN
KEY "Luogo Vers."
PROMPT 25 4 ""
FIELD 42->QLLV
END
LISTA 8
BEGIN
KEY "Tipo Vers."
PROMPT 33 4 ""
ITEM " | "
ITEM "B|B" MESSAGE SHOW,13|HIDE,14
ITEM "C|C" MESSAGE SHOW,14|HIDE,13
ITEM "D|D" MESSAGE SHOW,14|HIDE,13
FIELD 42->QLTV
SPECIAL STRING TRASFER "SK0207" ""
END
STRINGA 9
BEGIN
KEY "CodTrib"
PROMPT 45 4 ""
FIELD 42->QLCT
SPECIAL STRING TRASFER "SK0205" ""
END
STRINGA 10
BEGIN
KEY "Art.Bil."
PROMPT 53 4 ""
FIELD 42->QLAB
SPECIAL STRING TRASFER "SL0206" ""
END
STRINGA 11
BEGIN
KEY "DATA VERS."
PROMPT 62 4 ""
FIELD 42->QLDV
PICTURE " ## ^ ## ^####"
SPECIAL STRING TRASFER "SL0104" ""
END
STRINGA 12
BEGIN
KEY "SERIE"
PROMPT 81 4 ""
FIELD 42->QLSERIE
END
STRINGA 13
BEGIN
KEY "NUMERO SENZA Prog.Versamento"
PROMPT 96 4 ""
FIELD 42->QLNUMERO[1,5]
END
STRINGA 14
BEGIN
KEY "NUMERO COMPLETO"
PROMPT 96 4 ""
FIELD 42->QLNUMERO
FLAGS "H"
END
END
SECTION FOOTER LAST 6
NUMERO 1
BEGIN
KEY "Tot.rit.eff"
PROMPT 63 2 ""
PICTURE "###.###.###.###^^^"
END
NUMERO 2
BEGIN
KEY "Tot.rit.ver"
PROMPT 114 2 ""
PICTURE "###.###.###.###^^^"
END
DATE 3
BEGIN
KEY "DATA"
PROMPT 30 6 ""
FLAGS "A"
END
STRINGA 4
BEGIN
KEY "FIRMA"
PROMPT 86 6 ""
FIELD 106@->RAGSOC
END
END
END

1
m770/77stqc.cpp
View File

@ -44,7 +44,6 @@ bool TQuadroC::controlla_percentuale(TCursor& cur, const real& perc_p)
--(cur); --(cur);
} }
else else
if (perc_p != ZERO)
{ {
++(cur); ++(cur);
long ditta = rc.get_long(QUC_CODDITTA); long ditta = rc.get_long(QUC_CODDITTA);