Patch level :
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
parent
0745e3e1f0
commit
b2c68e593c
15
m770/777.cpp
Executable file
15
m770/777.cpp
Executable 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
1
m770/777.h
Executable file
@ -0,0 +1 @@
|
||||
int m777100(int argc, char* argv[]);
|
||||
4
m770/777.url
Executable file
4
m770/777.url
Executable file
@ -0,0 +1,4 @@
|
||||
#include <default.url>
|
||||
|
||||
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
USE 61
|
||||
JOIN %CA7 TO 61 ALIAS 14 INTO CODTAB=CODCAUS
|
||||
JOIN 9 INTO CODDITTA=CODDITTA
|
||||
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN %CA7 TO 61 ALIAS 14 INTO CODTAB=CODCAUS
|
||||
JOIN 9 INTO CODDITTA=CODDITTA
|
||||
JOIN 6 TO 9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 6 TO 61 ALIAS 216 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||
JOIN 8 TO 216@ ALIAS 218 INTO CODANAGR=CODANAGR
|
||||
JOIN 13 TO 218@ ALIAS 313 INTO STATO=="" COM==COMNASC
|
||||
@ -10,7 +10,7 @@ END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
61->* "Quadro C 770"
|
||||
61->* "Quadro SC 770"
|
||||
9->* "Ditte"
|
||||
6->* "Anagrafica persone fisiche e giuridiche"
|
||||
8->* "Anagrafica persone fisiche"
|
||||
@ -22,7 +22,7 @@ END
|
||||
|
||||
GENERAL
|
||||
BEGIN
|
||||
OFFSET 0 0
|
||||
OFFSET 0 0
|
||||
FONT "Roman 17cpi"
|
||||
SIZE 12
|
||||
CA "X"
|
||||
@ -37,6 +37,7 @@ BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 53 5 ""
|
||||
FIELD 116@->COFI
|
||||
SPECIAL STRINGA TRASFER "SC0101" ""
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
@ -68,6 +69,7 @@ BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 9 2 ""
|
||||
FIELD 216@->COFI
|
||||
SPECIAL STRINGA TRASFER "SC0201" ""
|
||||
END
|
||||
|
||||
STRING 2
|
||||
@ -75,6 +77,7 @@ BEGIN
|
||||
KEY "COGNOME"
|
||||
PROMPT 42 2 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
SPECIAL STRINGA TRASFER "SC0202" ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -83,6 +86,7 @@ BEGIN
|
||||
KEY "NOME"
|
||||
PROMPT 79 2 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
SPECIAL STRINGA TRASFER "SC0203" ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -91,6 +95,7 @@ BEGIN
|
||||
KEY "DATA NASCITA"
|
||||
PROMPT 112 2 ""
|
||||
FIELD 218@->DATANASC
|
||||
SPECIAL STRINGA TRASFER "SC0204" ""
|
||||
END
|
||||
|
||||
STRING 5
|
||||
@ -98,6 +103,7 @@ BEGIN
|
||||
KEY "SESSO"
|
||||
PROMPT 126 2 ""
|
||||
FIELD 218@->SESSO
|
||||
SPECIAL STRINGA TRASFER "SC0205" ""
|
||||
END
|
||||
|
||||
STRING 6
|
||||
@ -105,6 +111,7 @@ BEGIN
|
||||
KEY "COMUNE DI NASCITA"
|
||||
PROMPT 9 4 ""
|
||||
FIELD 313@->DENCOM
|
||||
SPECIAL STRINGA TRASFER "SC0206" ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -113,6 +120,7 @@ BEGIN
|
||||
KEY "PROV DI NASCITA"
|
||||
PROMPT 46 4 ""
|
||||
FIELD 313@->PROVCOM
|
||||
SPECIAL STRINGA TRASFER "SC0207" ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -121,6 +129,7 @@ BEGIN
|
||||
KEY "COMUNE DI RESIDENZA"
|
||||
PROMPT 52 4 ""
|
||||
FIELD 413@->DENCOM
|
||||
SPECIAL STRINGA TRASFER "SC0208" ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -129,6 +138,7 @@ BEGIN
|
||||
KEY "PROV. RESIDENZA"
|
||||
PROMPT 88 4 ""
|
||||
FIELD 413@->PROVCOM
|
||||
SPECIAL STRINGA TRASFER "SC0209" ""
|
||||
END
|
||||
|
||||
STRING 101
|
||||
@ -153,6 +163,7 @@ STRING 10
|
||||
BEGIN
|
||||
KEY "VIA RES. + numcivres"
|
||||
PROMPT 93 4 ""
|
||||
SPECIAL STRINGA TRASFER "SC0210" ""
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
@ -161,6 +172,7 @@ BEGIN
|
||||
KEY "CAUSALE Quadro C"
|
||||
PROMPT 9 6 ""
|
||||
FIELD CAUSALE
|
||||
SPECIAL STRINGA TRASFER "SC0211" ""
|
||||
END
|
||||
|
||||
STRING 12
|
||||
@ -168,6 +180,7 @@ BEGIN
|
||||
KEY "FLAG TASSAZIONE SEPARATA"
|
||||
PROMPT 20 6 ""
|
||||
FIELD TASSAZIONE
|
||||
SPECIAL STRINGA TRASFER "SC0212" ""
|
||||
END
|
||||
|
||||
NUMBER 13
|
||||
@ -175,7 +188,8 @@ BEGIN
|
||||
KEY "AMMONTARE LORDO CORRISPOSTO"
|
||||
PROMPT 37 6 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD AMMLORDO
|
||||
FIELD AMMLORDO
|
||||
SPECIAL STRINGA TRASFER "SC0213" ""
|
||||
END
|
||||
|
||||
NUMBER 14
|
||||
@ -183,7 +197,8 @@ BEGIN
|
||||
KEY "CONTRIBUTI OBBLIGATORI"
|
||||
PROMPT 57 6 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD CONTROBB
|
||||
FIELD CONTROBB
|
||||
SPECIAL STRINGA TRASFER "SC0214" ""
|
||||
END
|
||||
|
||||
NUMBER 15
|
||||
@ -191,7 +206,8 @@ BEGIN
|
||||
KEY "SOMME NON SOGGETTE A RITENUTA"
|
||||
PROMPT 78 6 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD SOMNONSOGG
|
||||
FIELD SOMNONSOGG
|
||||
SPECIAL STRINGA TRASFER "SC0215" ""
|
||||
END
|
||||
|
||||
NUMBER 16
|
||||
@ -199,7 +215,8 @@ BEGIN
|
||||
KEY "IMPONIBILE"
|
||||
PROMPT 99 6 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD IMPONIBILE
|
||||
FIELD IMPONIBILE
|
||||
SPECIAL STRINGA TRASFER "SC0216" ""
|
||||
END
|
||||
|
||||
NUMBER 17
|
||||
@ -207,7 +224,8 @@ BEGIN
|
||||
KEY "IMPOSTA"
|
||||
PROMPT 119 6 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD IMPOSTA
|
||||
FIELD IMPOSTA
|
||||
SPECIAL STRINGA TRASFER "SC0217" ""
|
||||
END
|
||||
|
||||
NUMBER 18
|
||||
@ -215,14 +233,16 @@ BEGIN
|
||||
KEY "DETRAZIONI PER CARICHI DI FAMIGLIA"
|
||||
PROMPT 16 8 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD DETCARFAM
|
||||
FIELD DETCARFAM
|
||||
SPECIAL STRINGA TRASFER "SC0218" ""
|
||||
END
|
||||
|
||||
NUMBER 19
|
||||
BEGIN
|
||||
KEY "NUMERO GIORNI DETRAZIONI PER LAVORO DIPENDENTE"
|
||||
PROMPT 36 8 ""
|
||||
// FIELD GGLAVDIP
|
||||
FIELD GGLAVDIP
|
||||
SPECIAL STRINGA TRASFER "SC0219" ""
|
||||
END
|
||||
|
||||
NUMBER 20
|
||||
@ -230,7 +250,8 @@ BEGIN
|
||||
KEY "DETRAZIONI PER LAVORO DIPENDENTE"
|
||||
PROMPT 48 8 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD DETLAVDIP
|
||||
FIELD DETLAVDIP
|
||||
SPECIAL STRINGA TRASFER "SC0220" ""
|
||||
END
|
||||
|
||||
NUMBER 21
|
||||
@ -238,7 +259,8 @@ BEGIN
|
||||
KEY "TOTALE DETRAZIONI"
|
||||
PROMPT 69 8 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD TOTDET
|
||||
FIELD TOTDET
|
||||
SPECIAL STRINGA TRASFER "SC0221" ""
|
||||
END
|
||||
|
||||
NUMBER 22
|
||||
@ -246,9 +268,20 @@ BEGIN
|
||||
KEY "RITENUTE OPERATE"
|
||||
PROMPT 89 8 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD RITENUTE
|
||||
FIELD RITENUTE
|
||||
SPECIAL STRINGA TRASFER "SC0222" ""
|
||||
END
|
||||
|
||||
NUMBER 23
|
||||
BEGIN
|
||||
KEY "RITENUTE SOSPESE"
|
||||
PROMPT 109 8 ""
|
||||
PICTURE "###.###.###^^^"
|
||||
// FIELD RITENUTE
|
||||
SPECIAL STRINGA TRASFER "SC0223" ""
|
||||
END
|
||||
|
||||
|
||||
END
|
||||
|
||||
SECTION FOOTER LAST 11
|
||||
|
||||
@ -11,7 +11,7 @@ END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
62->* "Quadro D 770"
|
||||
62->* "Quadro SF 770 ex D"
|
||||
9->* "Ditte"
|
||||
6->* "Anagrafica persone fisiche e giuridiche"
|
||||
8->* "Anagrafica persone fisiche"
|
||||
@ -76,6 +76,7 @@ BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 55 8 ""
|
||||
FIELD 206@->COFI
|
||||
SPECIAL STRING TRASFER "SF0101" ""
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
@ -117,6 +118,7 @@ BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 10 1 ""
|
||||
FIELD 216@->COFI
|
||||
SPECIAL STRING TRASFER "SF0201" ""
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
@ -125,6 +127,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SF0202" ""
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
@ -133,6 +136,7 @@ BEGIN
|
||||
PROMPT 22 3 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SF0203" ""
|
||||
END
|
||||
|
||||
STRINGA 102
|
||||
@ -141,6 +145,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC
|
||||
GROUP 2
|
||||
SPECIAL STRING TRASFER "SF0202" ""
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
@ -149,6 +154,7 @@ BEGIN
|
||||
PROMPT 57 3 ""
|
||||
FIELD 218@->SESSO
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SF0204" ""
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
@ -158,6 +164,7 @@ BEGIN
|
||||
FIELD 218@->DATANASC
|
||||
PICTURE "##^ ##^ ####"
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SF0205" ""
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
@ -166,6 +173,7 @@ BEGIN
|
||||
PROMPT 79 3 ""
|
||||
FIELD 313@->DENCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SF0206" ""
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
@ -174,6 +182,7 @@ BEGIN
|
||||
PROMPT 126 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SF0207" ""
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
@ -191,6 +200,7 @@ BEGIN
|
||||
PROMPT 25 5 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 3
|
||||
SPECIAL STRING TRASFER "SF0208" ""
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
@ -199,6 +209,7 @@ BEGIN
|
||||
PROMPT 71 5 ""
|
||||
FIELD 513@->PROVCOM
|
||||
FIELD 413@->PROVCOM
|
||||
SPECIAL STRING TRASFER "SF0209" ""
|
||||
END
|
||||
|
||||
STRINGA 101
|
||||
@ -222,6 +233,7 @@ BEGIN
|
||||
KEY "VIA RES. + NUMCIVRES"
|
||||
PROMPT 78 5 ""
|
||||
GROUP 3
|
||||
SPECIAL STRING TRASFER "SF0210" ""
|
||||
END
|
||||
|
||||
STRINGA 103
|
||||
@ -254,6 +266,7 @@ BEGIN
|
||||
ITEM "| " MESSAGE HIDE,5@
|
||||
ITEM "X|X" MESSAGE SHOW,5@
|
||||
FIELD 216@->SOGGNRES
|
||||
SPECIAL STRING TRASFER "SF0211" ""
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
@ -262,6 +275,7 @@ BEGIN
|
||||
PROMPT 14 7 ""
|
||||
FIELD 104@->S0
|
||||
GROUP 5
|
||||
SPECIAL STRING TRASFER "SF0212" ""
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
@ -270,6 +284,7 @@ BEGIN
|
||||
PROMPT 75 7 ""
|
||||
FIELD 216@->STATORES
|
||||
GROUP 5
|
||||
SPECIAL STRING TRASFER "SF0213" ""
|
||||
END
|
||||
|
||||
STRINGA 14
|
||||
@ -278,6 +293,7 @@ BEGIN
|
||||
PROMPT 90 7 ""
|
||||
FIELD 216@->COFIEST
|
||||
GROUP 5
|
||||
SPECIAL STRING TRASFER "SF0214" ""
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
@ -285,6 +301,7 @@ BEGIN
|
||||
KEY "CAUSALE"
|
||||
PROMPT 13 9 ""
|
||||
FIELD CAUSALE
|
||||
SPECIAL STRING TRASFER "SF0215" ""
|
||||
END
|
||||
|
||||
NUMBER 16
|
||||
@ -293,6 +310,7 @@ BEGIN
|
||||
PROMPT 27 9 ""
|
||||
FIELD TOTALE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SF0216" ""
|
||||
END
|
||||
|
||||
NUMBER 17
|
||||
@ -301,6 +319,7 @@ BEGIN
|
||||
PROMPT 47 9 ""
|
||||
FIELD SOMME
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SF0217" ""
|
||||
END
|
||||
|
||||
NUMBER 18
|
||||
@ -309,6 +328,7 @@ BEGIN
|
||||
PROMPT 66 9 ""
|
||||
FIELD SOMREGCONV
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SF0218" ""
|
||||
END
|
||||
|
||||
NUMBER 19
|
||||
@ -317,6 +337,7 @@ BEGIN
|
||||
PROMPT 88 9 ""
|
||||
FIELD IMPONIBILE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SF0219" ""
|
||||
END
|
||||
|
||||
NUMBER 20
|
||||
@ -325,6 +346,16 @@ BEGIN
|
||||
PROMPT 109 9 ""
|
||||
FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SF0220" ""
|
||||
END
|
||||
|
||||
NUMBER 21
|
||||
BEGIN
|
||||
KEY "RITENUTE SOSPESE"
|
||||
PROMPT 109 9 ""
|
||||
// FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SF0221" ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
@ -10,7 +10,7 @@ END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
63->* "Quadro D1 770"
|
||||
63->* "Quadro SH 770 ex D1"
|
||||
9->* "Ditte"
|
||||
6->* "Anagrafica persone fisiche e giuridiche"
|
||||
8->* "Anagrafica persone fisiche"
|
||||
@ -74,6 +74,7 @@ BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 55 8 ""
|
||||
FIELD 106@->COFI
|
||||
SPECIAL STRING TRASFER "SH0101" ""
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
@ -110,6 +111,7 @@ BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 9 1 ""
|
||||
FIELD 216@->COFI
|
||||
SPECIAL STRING TRASFER "SH0201" ""
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
@ -118,6 +120,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SH0202" ""
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
@ -126,6 +129,7 @@ BEGIN
|
||||
PROMPT 21 3 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SH0203" ""
|
||||
END
|
||||
|
||||
STRINGA 102
|
||||
@ -134,6 +138,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC
|
||||
GROUP 2
|
||||
SPECIAL STRING TRASFER "SH0202" ""
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
@ -142,6 +147,7 @@ BEGIN
|
||||
PROMPT 57 3 ""
|
||||
FIELD 218@->SESSO
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SH0204" ""
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
@ -151,6 +157,7 @@ BEGIN
|
||||
FIELD 218@->DATANASC
|
||||
PICTURE "##^ ##^ ####"
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SH0205" ""
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
@ -159,6 +166,7 @@ BEGIN
|
||||
PROMPT 79 3 ""
|
||||
FIELD 313@->DENCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SH0206" ""
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
@ -167,6 +175,7 @@ BEGIN
|
||||
PROMPT 126 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SH0207" ""
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
@ -176,6 +185,7 @@ BEGIN
|
||||
FIELD 513@->DENCOM
|
||||
MESSAGE EMPTY SHOW,3@|HIDE,4@
|
||||
MESSAGE SHOW,4@|HIDE,3@
|
||||
SPECIAL STRING TRASFER "SH0208" ""
|
||||
END
|
||||
|
||||
STRINGA 80
|
||||
@ -184,6 +194,7 @@ BEGIN
|
||||
PROMPT 25 5 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 3
|
||||
SPECIAL STRING TRASFER "SH0208" ""
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
@ -192,6 +203,7 @@ BEGIN
|
||||
PROMPT 71 5 ""
|
||||
FIELD 513@->PROVCOM
|
||||
FIELD 413@->PROVCOM
|
||||
SPECIAL STRING TRASFER "SH0209" ""
|
||||
END
|
||||
|
||||
STRINGA 101
|
||||
@ -215,6 +227,7 @@ BEGIN
|
||||
KEY "VIA RES. + NUMCIVRES"
|
||||
PROMPT 78 5 ""
|
||||
GROUP 3
|
||||
SPECIAL STRING TRASFER "SH0210" ""
|
||||
END
|
||||
|
||||
STRINGA 103
|
||||
@ -238,6 +251,7 @@ BEGIN
|
||||
KEY "VIA RF + NUMCIVRF"
|
||||
PROMPT 78 5 ""
|
||||
GROUP 4
|
||||
SPECIAL STRING TRASFER "SH0210" ""
|
||||
END
|
||||
|
||||
STRING 11
|
||||
@ -245,6 +259,7 @@ BEGIN
|
||||
KEY "CAUSALE"
|
||||
PROMPT 10 7 ""
|
||||
FIELD CAUSALE
|
||||
SPECIAL STRING TRASFER "SH0211" ""
|
||||
END
|
||||
|
||||
NUMBER 12
|
||||
@ -253,6 +268,7 @@ BEGIN
|
||||
PROMPT 26 7 ""
|
||||
FIELD TOTALE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SH0212" ""
|
||||
END
|
||||
|
||||
NUMBER 13
|
||||
@ -261,6 +277,7 @@ BEGIN
|
||||
PROMPT 46 7 ""
|
||||
FIELD SPESEANT
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SH0213" ""
|
||||
END
|
||||
|
||||
NUMBER 14
|
||||
@ -269,6 +286,7 @@ BEGIN
|
||||
PROMPT 66 7 ""
|
||||
FIELD QUOTAPRO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SH0214" ""
|
||||
END
|
||||
|
||||
NUMBER 15
|
||||
@ -277,6 +295,7 @@ BEGIN
|
||||
PROMPT 88 7 ""
|
||||
FIELD IMPONIBILE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SH0215" ""
|
||||
END
|
||||
|
||||
NUMBER 16
|
||||
@ -285,6 +304,16 @@ BEGIN
|
||||
PROMPT 109 7 ""
|
||||
FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SH0216" ""
|
||||
END
|
||||
|
||||
NUMBER 17
|
||||
BEGIN
|
||||
KEY "RITENUTE SOSPESE"
|
||||
PROMPT 109 7 ""
|
||||
// FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SH0217" ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
@ -11,7 +11,7 @@ END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
120->* "Quadro D bis 770"
|
||||
120->* "Quadro SG 770 ex D bis"
|
||||
9->* "Ditte"
|
||||
6->* "Anagrafica persone fisiche e giuridiche"
|
||||
8->* "Anagrafica persone fisiche"
|
||||
@ -112,6 +112,7 @@ BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 9 1 ""
|
||||
FIELD 216@->COFI
|
||||
SPECIAL STRING TRASFER "SG0101" ""
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
@ -120,6 +121,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SG0201" ""
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
@ -128,6 +130,7 @@ BEGIN
|
||||
PROMPT 21 3 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SG0202" ""
|
||||
END
|
||||
|
||||
STRINGA 102
|
||||
@ -136,6 +139,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC
|
||||
GROUP 2
|
||||
SPECIAL STRING TRASFER "SG0201" ""
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
@ -144,6 +148,7 @@ BEGIN
|
||||
PROMPT 57 3 ""
|
||||
FIELD 218@->SESSO
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SG0204" ""
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
@ -153,6 +158,7 @@ BEGIN
|
||||
FIELD 218@->DATANASC
|
||||
PICTURE "##^ ##^ ####"
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SG0205" ""
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
@ -161,6 +167,7 @@ BEGIN
|
||||
PROMPT 79 3 ""
|
||||
FIELD 313@->DENCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SG0206" ""
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
@ -169,6 +176,7 @@ BEGIN
|
||||
PROMPT 126 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SG0207" ""
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
@ -178,6 +186,7 @@ BEGIN
|
||||
FIELD 513@->DENCOM
|
||||
MESSAGE EMPTY SHOW,3@|HIDE,4@
|
||||
MESSAGE SHOW,4@|HIDE,3@
|
||||
SPECIAL STRING TRASFER "SG0208" ""
|
||||
END
|
||||
|
||||
STRINGA 80
|
||||
@ -186,6 +195,7 @@ BEGIN
|
||||
PROMPT 25 5 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 3
|
||||
SPECIAL STRING TRASFER "SG0208" ""
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
@ -194,6 +204,7 @@ BEGIN
|
||||
PROMPT 71 5 ""
|
||||
FIELD 513@->PROVCOM
|
||||
FIELD 413@->PROVCOM
|
||||
SPECIAL STRING TRASFER "SG0209" ""
|
||||
END
|
||||
|
||||
STRINGA 101
|
||||
@ -217,6 +228,7 @@ BEGIN
|
||||
KEY "VIA RES. + NUMCIVRES"
|
||||
PROMPT 78 5 ""
|
||||
GROUP 3
|
||||
SPECIAL STRING TRASFER "SG0210" ""
|
||||
END
|
||||
|
||||
STRINGA 103
|
||||
@ -240,6 +252,7 @@ BEGIN
|
||||
KEY "VIA RF + NUMCIVRF"
|
||||
PROMPT 78 5 ""
|
||||
GROUP 4
|
||||
SPECIAL STRING TRASFER "SG0210" ""
|
||||
END
|
||||
|
||||
LISTA 11
|
||||
@ -249,6 +262,7 @@ BEGIN
|
||||
ITEM "| " MESSAGE HIDE,5@
|
||||
ITEM "X|X" MESSAGE SHOW,5@
|
||||
FIELD 216@->SOGGNRES
|
||||
SPECIAL STRING TRASFER "SG0211" ""
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
@ -257,6 +271,7 @@ BEGIN
|
||||
PROMPT 14 7 ""
|
||||
FIELD 104@->S0
|
||||
GROUP 5
|
||||
SPECIAL STRING TRASFER "SG0212" ""
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
@ -265,6 +280,7 @@ BEGIN
|
||||
PROMPT 75 7 ""
|
||||
FIELD 216@->STATORES
|
||||
GROUP 5
|
||||
SPECIAL STRING TRASFER "SG0213" ""
|
||||
END
|
||||
|
||||
STRINGA 14
|
||||
@ -273,6 +289,7 @@ BEGIN
|
||||
PROMPT 90 7 ""
|
||||
FIELD 216@->COFIEST
|
||||
GROUP 5
|
||||
SPECIAL STRING TRASFER "SG0214" ""
|
||||
END
|
||||
|
||||
STRINGA 15
|
||||
@ -280,6 +297,7 @@ BEGIN
|
||||
KEY "CAUSALE"
|
||||
PROMPT 10 9 ""
|
||||
FIELD CAUSALE
|
||||
SPECIAL STRING TRASFER "SG0215" ""
|
||||
END
|
||||
|
||||
NUMERO 16
|
||||
@ -288,6 +306,7 @@ BEGIN
|
||||
PROMPT 26 9 ""
|
||||
FIELD TOTALE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SG0216" ""
|
||||
END
|
||||
|
||||
NUMERO 17
|
||||
@ -296,6 +315,7 @@ BEGIN
|
||||
PROMPT 46 9 ""
|
||||
FIELD SOMME
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SG0217" ""
|
||||
END
|
||||
|
||||
NUMERO 18
|
||||
@ -304,6 +324,7 @@ BEGIN
|
||||
PROMPT 66 9 ""
|
||||
FIELD SOMREGCONV
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SG0218" ""
|
||||
END
|
||||
|
||||
NUMERO 19
|
||||
@ -312,6 +333,7 @@ BEGIN
|
||||
PROMPT 88 9 ""
|
||||
FIELD IMPONIBILE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SG0219" ""
|
||||
END
|
||||
|
||||
NUMERO 20
|
||||
@ -320,13 +342,24 @@ BEGIN
|
||||
PROMPT 109 9 ""
|
||||
FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SG0220" ""
|
||||
END
|
||||
|
||||
STRINGA 21
|
||||
NUMERO 21
|
||||
BEGIN
|
||||
KEY "RITENUTE SOSPESE"
|
||||
PROMPT 109 9 ""
|
||||
// FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SG0221" ""
|
||||
END
|
||||
|
||||
STRINGA 22
|
||||
BEGIN
|
||||
KEY "Contributo del 10%"
|
||||
PROMPT 124 9 ""
|
||||
FIELD CONTR10
|
||||
SPECIAL STRING TRASFER "SG0222" ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
@ -10,7 +10,7 @@ END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
64->* "Quadro E 770"
|
||||
64->* "Quadro SP 770 ex E"
|
||||
9->* "Ditte"
|
||||
6->* "Anagrafica persone fisiche e giuridiche"
|
||||
8->* "Anagrafica persone fisiche"
|
||||
@ -68,11 +68,12 @@ END
|
||||
|
||||
SECTION HEADER FIRST 18
|
||||
|
||||
STRINGA 1
|
||||
STRINGA 1
|
||||
BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 55 8 ""
|
||||
FIELD 106@->COFI
|
||||
SPECIAL STRING TRASFER "SP0101" ""
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
@ -109,6 +110,7 @@ BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 9 1 ""
|
||||
FIELD 216@->COFI
|
||||
SPECIAL STRING TRASFER "SP0201" ""
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
@ -117,6 +119,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SP0202" ""
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
@ -125,6 +128,7 @@ BEGIN
|
||||
PROMPT 21 3 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SP0203" ""
|
||||
END
|
||||
|
||||
STRINGA 102
|
||||
@ -133,6 +137,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC
|
||||
GROUP 2
|
||||
SPECIAL STRING TRASFER "SP0202" ""
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
@ -141,6 +146,7 @@ BEGIN
|
||||
PROMPT 57 3 ""
|
||||
FIELD 218@->SESSO
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SP0203" ""
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
@ -150,6 +156,7 @@ BEGIN
|
||||
FIELD 218@->DATANASC
|
||||
PICTURE "##^ ##^ ####"
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SP0205" ""
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
@ -158,6 +165,7 @@ BEGIN
|
||||
PROMPT 79 3 ""
|
||||
FIELD 313@->DENCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SP0206" ""
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
@ -166,6 +174,7 @@ BEGIN
|
||||
PROMPT 126 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING TRASFER "SP0207" ""
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
@ -175,6 +184,7 @@ BEGIN
|
||||
FIELD 513@->DENCOM
|
||||
MESSAGE EMPTY SHOW,3@|HIDE,4@
|
||||
MESSAGE SHOW,4@|HIDE,3@
|
||||
SPECIAL STRING TRASFER "SP0208" ""
|
||||
END
|
||||
|
||||
STRINGA 80
|
||||
@ -183,6 +193,7 @@ BEGIN
|
||||
PROMPT 24 5 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 3
|
||||
SPECIAL STRING TRASFER "SP0208" ""
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
@ -191,6 +202,7 @@ BEGIN
|
||||
PROMPT 71 5 ""
|
||||
FIELD 513@->PROVCOM
|
||||
FIELD 413@->PROVCOM
|
||||
SPECIAL STRING TRASFER "SP0209" ""
|
||||
END
|
||||
|
||||
STRINGA 101
|
||||
@ -214,6 +226,7 @@ BEGIN
|
||||
KEY "VIA RES. + NUMCIVRES"
|
||||
PROMPT 78 5 ""
|
||||
GROUP 3
|
||||
SPECIAL STRING TRASFER "SP0210" ""
|
||||
END
|
||||
|
||||
STRINGA 103
|
||||
@ -237,6 +250,7 @@ BEGIN
|
||||
KEY "VIA RF + NUMCIVRF"
|
||||
PROMPT 78 5 ""
|
||||
GROUP 4
|
||||
SPECIAL STRING TRASFER "SP0210" ""
|
||||
END
|
||||
|
||||
STRING 11
|
||||
@ -244,6 +258,7 @@ BEGIN
|
||||
KEY "CAUSALE"
|
||||
PROMPT 13 7 ""
|
||||
FIELD CAUSALE
|
||||
SPECIAL STRING TRASFER "SP0211" ""
|
||||
END
|
||||
|
||||
NUMBER 12
|
||||
@ -252,6 +267,7 @@ BEGIN
|
||||
PROMPT 33 7 ""
|
||||
FIELD IMPONIBILE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SP0212" ""
|
||||
END
|
||||
|
||||
NUMBER 13
|
||||
@ -260,6 +276,7 @@ BEGIN
|
||||
PROMPT 49 7 ""
|
||||
FIELD PERC
|
||||
PICTURE "##@,@@"
|
||||
SPECIAL STRING TRASFER "SP0213" ""
|
||||
END
|
||||
|
||||
NUMBER 14
|
||||
@ -268,6 +285,7 @@ BEGIN
|
||||
PROMPT 71 7 ""
|
||||
FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SP0214" ""
|
||||
END
|
||||
|
||||
NUMBER 15
|
||||
@ -276,6 +294,7 @@ BEGIN
|
||||
PROMPT 95 7 ""
|
||||
FIELD NETTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SP0215" ""
|
||||
END
|
||||
|
||||
NUMBER 16
|
||||
@ -284,6 +303,7 @@ BEGIN
|
||||
PROMPT 119 7 ""
|
||||
FIELD SOMME
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING TRASFER "SP0216" ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
@ -12,7 +12,7 @@ END
|
||||
|
||||
DESCRIPTION
|
||||
BEGIN
|
||||
65->* "Quadro E1 770"
|
||||
65->* "Quadro SQ 770 ex E1"
|
||||
9->* "Ditte"
|
||||
6->* "Anagrafica persone fisiche e giuridiche"
|
||||
8->* "Anagrafica persone fisiche"
|
||||
@ -77,6 +77,7 @@ BEGIN
|
||||
KEY "CODICE FISCALE"
|
||||
PROMPT 55 8 ""
|
||||
FIELD 106@->COFI
|
||||
SPECIAL STRING "TRASFER" "SQ0101" ""
|
||||
END
|
||||
|
||||
STRINGA 13
|
||||
@ -114,6 +115,7 @@ BEGIN
|
||||
KEY "COD.FIS"
|
||||
PROMPT 9 1 ""
|
||||
FIELD 216@->COFI
|
||||
SPECIAL STRING "TRASFER" "SQ0201" ""
|
||||
END
|
||||
|
||||
STRINGA 2
|
||||
@ -122,6 +124,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC[1,30]
|
||||
GROUP 1
|
||||
SPECIAL STRING "TRASFER" "SQ0202" ""
|
||||
END
|
||||
|
||||
STRINGA 3
|
||||
@ -130,6 +133,7 @@ BEGIN
|
||||
PROMPT 21 3 ""
|
||||
FIELD 216@->RAGSOC[31,50]
|
||||
GROUP 1
|
||||
SPECIAL STRING "TRASFER" "SQ0203" ""
|
||||
END
|
||||
|
||||
STRINGA 102
|
||||
@ -138,6 +142,7 @@ BEGIN
|
||||
PROMPT 42 1 ""
|
||||
FIELD 216@->RAGSOC
|
||||
GROUP 2
|
||||
SPECIAL STRING "TRASFER" "SQ0202" ""
|
||||
END
|
||||
|
||||
STRINGA 4
|
||||
@ -146,6 +151,7 @@ BEGIN
|
||||
PROMPT 57 3 ""
|
||||
FIELD 218@->SESSO
|
||||
GROUP 1
|
||||
SPECIAL STRING "TRASFER" "SQ0204" ""
|
||||
END
|
||||
|
||||
STRINGA 5
|
||||
@ -155,6 +161,7 @@ BEGIN
|
||||
FIELD 218@->DATANASC
|
||||
PICTURE "##^ ##^ ####"
|
||||
GROUP 1
|
||||
SPECIAL STRING "TRASFER" "SQ0205" ""
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
@ -163,6 +170,7 @@ BEGIN
|
||||
PROMPT 79 3 ""
|
||||
FIELD 313@->DENCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING "TRASFER" "SQ0206" ""
|
||||
END
|
||||
|
||||
STRINGA 7
|
||||
@ -171,6 +179,7 @@ BEGIN
|
||||
PROMPT 126 3 ""
|
||||
FIELD 313@->PROVCOM
|
||||
GROUP 1
|
||||
SPECIAL STRING "TRASFER" "SQ0207" ""
|
||||
END
|
||||
|
||||
STRINGA 8
|
||||
@ -180,6 +189,7 @@ BEGIN
|
||||
FIELD 513@->DENCOM
|
||||
MESSAGE EMPTY SHOW,3@|HIDE,4@
|
||||
MESSAGE SHOW,4@|HIDE,3@
|
||||
SPECIAL STRING "TRASFER" "SQ0208" ""
|
||||
END
|
||||
|
||||
STRINGA 80
|
||||
@ -188,6 +198,7 @@ BEGIN
|
||||
PROMPT 24 5 ""
|
||||
FIELD 413@->DENCOM
|
||||
GROUP 3
|
||||
SPECIAL STRING "TRASFER" "SQ0208" ""
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
@ -196,6 +207,7 @@ BEGIN
|
||||
PROMPT 72 5 ""
|
||||
FIELD 513@->PROVCOM
|
||||
FIELD 413@->PROVCOM
|
||||
SPECIAL STRING "TRASFER" "SQ0209" ""
|
||||
END
|
||||
|
||||
STRINGA 101
|
||||
@ -219,6 +231,7 @@ BEGIN
|
||||
KEY "VIA RES. + NUMCIVRES"
|
||||
PROMPT 78 5 ""
|
||||
GROUP 3
|
||||
SPECIAL STRING "TRASFER" "SQ0210" ""
|
||||
END
|
||||
|
||||
STRINGA 103
|
||||
@ -242,6 +255,7 @@ BEGIN
|
||||
KEY "VIA RF + NUMCIVRF"
|
||||
PROMPT 78 5 ""
|
||||
GROUP 4
|
||||
SPECIAL STRING "TRASFER" "SQ0210" ""
|
||||
END
|
||||
|
||||
STRING 11
|
||||
@ -249,6 +263,7 @@ BEGIN
|
||||
KEY "CAUSALE"
|
||||
PROMPT 13 7 ""
|
||||
FIELD CAUSALE
|
||||
SPECIAL STRING "TRASFER" "SQ0211" ""
|
||||
END
|
||||
|
||||
NUMBER 12
|
||||
@ -257,6 +272,7 @@ BEGIN
|
||||
PROMPT 33 7 ""
|
||||
FIELD SOMME
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING "TRASFER" "SQ0212" ""
|
||||
END
|
||||
|
||||
NUMBER 13
|
||||
@ -265,6 +281,7 @@ BEGIN
|
||||
PROMPT 56 7 ""
|
||||
FIELD AMMONTARE
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING "TRASFER" "SQ0213" ""
|
||||
END
|
||||
|
||||
NUMBER 14
|
||||
@ -273,6 +290,7 @@ BEGIN
|
||||
PROMPT 71 7 ""
|
||||
FIELD PERC
|
||||
PICTURE "##@,@@"
|
||||
SPECIAL STRING "TRASFER" "SQ0214" ""
|
||||
END
|
||||
|
||||
NUMBER 15
|
||||
@ -281,6 +299,7 @@ BEGIN
|
||||
PROMPT 95 7 ""
|
||||
FIELD IMPORTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING "TRASFER" "SQ0215" ""
|
||||
END
|
||||
|
||||
NUMBER 16
|
||||
@ -289,6 +308,7 @@ BEGIN
|
||||
PROMPT 119 7 ""
|
||||
FIELD NETTO
|
||||
PICTURE "###.###.###^^^"
|
||||
SPECIAL STRING "TRASFER" "SQ0216" ""
|
||||
END
|
||||
|
||||
END
|
||||
|
||||
@ -29,7 +29,7 @@ LISTA 1
|
||||
BEGIN
|
||||
KEY "Tipo anagrafica"
|
||||
FLAGS "H"
|
||||
FIELD 106@->TIPOA
|
||||
FIELD 9->TIPOA
|
||||
ITEM "F|Fisica" MESSAGE SHOW,1@|HIDE,2@
|
||||
ITEM "G|Giuridica" MESSAGE SHOW,2@|HIDE,1@
|
||||
END
|
||||
@ -58,6 +58,7 @@ BEGIN
|
||||
KEY "Cod.Conc.1"
|
||||
PROMPT 41 12 ""
|
||||
FIELD 213@->UFFCONC
|
||||
SPECIAL STRING TRASFER "SL0103" ""
|
||||
END
|
||||
|
||||
STRINGA 6
|
||||
@ -103,6 +104,8 @@ NUMERO 1
|
||||
BEGIN
|
||||
KEY "Mese rif."
|
||||
PROMPT 23 2 ""
|
||||
PICTURE "@@"
|
||||
MESSAGE COPY,100
|
||||
END
|
||||
|
||||
NUMERO 2
|
||||
@ -110,6 +113,14 @@ 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 "SL0202" ""
|
||||
END
|
||||
|
||||
NUMERO 3
|
||||
@ -164,6 +175,7 @@ BEGIN
|
||||
ITEM "C|C" MESSAGE SHOW,14|HIDE,13
|
||||
ITEM "D|D" MESSAGE SHOW,14|HIDE,13
|
||||
FIELD 42->QLTV
|
||||
SPECIAL STRING TRASFER "SL0105" ""
|
||||
END
|
||||
|
||||
STRINGA 9
|
||||
@ -171,6 +183,7 @@ BEGIN
|
||||
KEY "CodTrib"
|
||||
PROMPT 45 4 ""
|
||||
FIELD 42->QLCT
|
||||
SPECIAL STRING TRASFER "SL0107" ""
|
||||
END
|
||||
|
||||
STRINGA 10
|
||||
@ -178,6 +191,7 @@ BEGIN
|
||||
KEY "Art.Bil."
|
||||
PROMPT 53 4 ""
|
||||
FIELD 42->QLAB
|
||||
SPECIAL STRING TRASFER "SL0108" ""
|
||||
END
|
||||
|
||||
STRINGA 11
|
||||
@ -186,6 +200,7 @@ BEGIN
|
||||
PROMPT 62 4 ""
|
||||
FIELD 42->QLDV
|
||||
PICTURE " ## ^ ## ^####"
|
||||
SPECIAL STRING TRASFER "SL0104" ""
|
||||
END
|
||||
|
||||
STRINGA 12
|
||||
|
||||
268
m770/77qsk.frm
Executable file
268
m770/77qsk.frm
Executable 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
|
||||
|
||||
|
||||
|
||||
@ -44,25 +44,24 @@ bool TQuadroC::controlla_percentuale(TCursor& cur, const real& perc_p)
|
||||
--(cur);
|
||||
}
|
||||
else
|
||||
if (perc_p != ZERO)
|
||||
{
|
||||
++(cur);
|
||||
long ditta = rc.get_long(QUC_CODDITTA);
|
||||
char tipo = rc.get_char(QUC_TIPOA);
|
||||
long codana = rc.get_long(QUC_CODANAGR);
|
||||
char caus = rc.get_char(QUC_CODCAUS);
|
||||
int tass = rc.get_int(QUC_TASSAZIONE);
|
||||
TString ragsoc = get_ragsoc_anagr(tipo,codana);
|
||||
real perc = rc.get_real(QUC_PERC);
|
||||
|
||||
if (ditta == ditta_p && tipo == tipo_p && ragsoc == ragsoc_p &&
|
||||
codana == codana_p && caus == caus_p && tass == tass_p && perc_p == perc)
|
||||
stampa = FALSE;
|
||||
else
|
||||
_devo_sommare = TRUE;
|
||||
{
|
||||
++(cur);
|
||||
long ditta = rc.get_long(QUC_CODDITTA);
|
||||
char tipo = rc.get_char(QUC_TIPOA);
|
||||
long codana = rc.get_long(QUC_CODANAGR);
|
||||
char caus = rc.get_char(QUC_CODCAUS);
|
||||
int tass = rc.get_int(QUC_TASSAZIONE);
|
||||
TString ragsoc = get_ragsoc_anagr(tipo,codana);
|
||||
real perc = rc.get_real(QUC_PERC);
|
||||
|
||||
if (ditta == ditta_p && tipo == tipo_p && ragsoc == ragsoc_p &&
|
||||
codana == codana_p && caus == caus_p && tass == tass_p && perc_p == perc)
|
||||
stampa = FALSE;
|
||||
else
|
||||
_devo_sommare = TRUE;
|
||||
|
||||
--(cur);
|
||||
}
|
||||
--(cur);
|
||||
}
|
||||
|
||||
return stampa;
|
||||
}
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user