root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
campo-sirio/m770/77qsc.frm
alex d5861b30c0 Patch level : main 102 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
Riportata la versione 1.7 aga patch 102 sul main trunk


git-svn-id: svn://10.65.10.50/trunk@9769 c028cbd2-c16b-5b4b-a496-9718f37d4682
2001-06-25 10:41:20 +00:00

446 lines
7.4 KiB
Plaintext
Executable File
Raw Blame History

USE 62
JOIN 9 INTO CODDITTA=CODDITTA
JOIN 6 TO 9 ALIAS 206 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 6 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
JOIN 13 TO 216@ ALIAS 413 INTO STATO==STATORES COM==COMRES
JOIN 13 TO 216@ ALIAS 513 INTO STATO=="" COM==COMRF
JOIN %STA TO 216@ ALIAS 104 INTO CODTAB=STATORES
END
DESCRIPTION
BEGIN
62->* "Quadro SC 770"
9->* "Ditte"
6->* "Anagrafica persone fisiche e giuridiche"
8->* "Anagrafica persone fisiche"
206@->* "Anagrafica persone fisiche e giuridiche"
216@->* "Anagrafica persone fisiche e giuridiche"
218@->* "Anagrafica persone fisiche"
313@->* "Comune nascita"
413@->* "Comune residenza"
513@->* "Comune residenza fiscale"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Roman 17cpi"
SIZE 12
CA "X"
IN 3 3
FI 130
END
SECTION HEADER FIRST 18
STRINGA 1
BEGIN
KEY "CODICE FISCALE"
PROMPT 55 8 ""
FIELD 206@->COFI
SPECIAL STRING TRASFER "SF0101" ""
SPECIAL STRING DYLOG "AN,3,16" ""
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE DICHIARANTE"
PROMPT 88 8 ""
SPECIAL STRING DYLOG "AN,19,16" ""
END
NUMBER 14
BEGIN
KEY "NUM. FOGLIO"
PROMPT 123 8 ""
END
END
SECTION HEADER ODD 4
// Header pagine 2 e 3
END
SECTION HEADER LAST 5
// Header ultima pagina
END
SECTION BODY ODD 10
STRINGA 1
BEGIN
KEY "COD.FIS"
PROMPT 10 1 ""
FIELD 216@->COFI
SPECIAL STRING TRASFER "SF0201" ""
SPECIAL STRING DYLOG "AN,0,16" ""
END
LISTA 99
BEGIN
KEY "Tipo anagrafica"
PROMPT 1 1 ""
FIELD TIPOA
ITEM "F| " MESSAGE SHOW,1@|HIDE,2@|"1",98
ITEM "G| " MESSAGE SHOW,2@|HIDE,1@|"2",98
END
STRINGA 98
BEGIN
KEY "Tipo anagrafica 1/2"
SPECIAL STRING DYLOG "NU,16,1" ""
END
STRINGA 2
BEGIN
KEY "COGNOME"
PROMPT 42 1 ""
FIELD 216@->RAGSOC[1,30]
GROUP 1
SPECIAL STRING TRASFER "SF0202" ""
SPECIAL STRING DYLOG "AN,17,24" ""
END
STRINGA 3
BEGIN
KEY "NOME"
PROMPT 22 3 ""
FIELD 216@->RAGSOC[31,50]
GROUP 1
SPECIAL STRING TRASFER "SF0203" ""
SPECIAL STRING DYLOG "AN,41,20" ""
END
STRINGA 4
BEGIN
KEY "SESSO"
PROMPT 57 3 ""
FIELD 218@->SESSO
GROUP 1
SPECIAL STRING TRASFER "SF0204" ""
SPECIAL STRING DYLOG "AN,61,1" ""
END
STRINGA 102
BEGIN
KEY "RAGSOC GIURIDICHE"
PROMPT 42 1 ""
FIELD 216@->RAGSOC
GROUP 2
SPECIAL STRING TRASFER "SF0202" ""
SPECIAL STRING DYLOG "AN,161,60" ""
END
STRINGA 5
BEGIN
KEY "DATA NASCITA"
PROMPT 63 3 ""
FIELD 218@->DATANASC
PICTURE "##^ ##^ ####"
SPECIAL STRING TRASFER "SF0205" ""
SPECIAL STRING DYLOG "NU,62,8" ""
GROUP 1
END
STRINGA 6
BEGIN
KEY "COMUNE DI NASCITA"
PROMPT 79 3 ""
FIELD 313@->DENCOM
GROUP 1
SPECIAL STRING TRASFER "SF0206" ""
SPECIAL STRING DYLOG "AN,70,25" ""
END
STRINGA 7
BEGIN
KEY "PROV DI NASCITA"
PROMPT 126 3 ""
FIELD 313@->PROVCOM
GROUP 1
SPECIAL STRING TRASFER "SF0207" ""
SPECIAL STRING DYLOG "AN,95,2" ""
END
STRINGA 8
BEGIN
KEY "COMUNE DI RESIDENZA FISCALE"
PROMPT 25 5 ""
FIELD 513@->DENCOM
FIELD 413@->DENCOM
SPECIAL STRING TRASFER "SF0208" ""
SPECIAL STRING DYLOG "AN,97,25" ""
GROUP 1
MESSAGE COPY,208
END
STRINGA 7
BEGIN
KEY "PROV DI RESIDENZA FISCALE"
PROMPT 126 3 ""
FIELD 513@->PROVCOM
FIELD 413@->PROVCOM
GROUP 1
SPECIAL STRING TRASFER "SF0207" ""
SPECIAL STRING DYLOG "AN,122,2" ""
MESSAGE COPY,209
END
STRINGA 101
BEGIN
KEY "VIA RES. FISC."
FIELD 216@->INDRF[1,35]
FIELD 216@->INDRES[1,35]
FLAGS "H"
MESSAGE COPY,10
END
STRINGA 102
BEGIN
KEY "NUM.CIV DI RESIDENZA FISC."
FLAGS "H"
FIELD 216@->CIVRF
FIELD 216@->CIVRES
MESSAGE APPEND,10
END
STRINGA 10
BEGIN
KEY "VIA RF + NUMCIVRF"
PROMPT 78 5 ""
SPECIAL STRING DYLOG "AN,124,35" ""
GROUP 1
MESSAGE COPY,210
END
NUMBER 11
BEGIN
KEY "CODICE REGIONE"
PROMPT 78 5 ""
FIELD 513@->CODREG
SPECIAL STRING DYLOG "NU,159,2" ""
MESSAGE COPY,211
GROUP 1
END
STRINGA 205
BEGIN
KEY "DATA NASCITA GIURIDICA (sempre 0)"
PROMPT 63 3 ""
PICTURE "##^ ##^ ####"
SPECIAL STRING TRASFER "SF0205" ""
SPECIAL STRING DYLOG "NU,62,8" ""
GROUP 2
END
STRINGA 208
BEGIN
KEY "COMUNE DI RESIDENZA GIURIDICHE"
GROUP 2
SPECIAL STRING DYLOG "AN,221,25" ""
END
STRINGA 209
BEGIN
KEY "PROV. RESIDENZA GIURIDICHE"
GROUP 2
SPECIAL STRING DYLOG "AN,246,2" ""
END
STRINGA 210
BEGIN
KEY "INDIRIZZO GIURIDICHE"
GROUP 2
SPECIAL STRING DYLOG "AN,248,35" ""
END
STRINGA 211
BEGIN
KEY "CODICE REGIONE GIURIDICHE"
GROUP 2
SPECIAL STRING DYLOG "AN,283,2" ""
END
STRINGA 12
BEGIN
KEY "CODICE STATO ESTERO DI RES."
PROMPT 75 7 ""
FIELD 216@->STATORES
SPECIAL STRING TRASFER "SF0213" ""
SPECIAL STRING DYLOG "NU,285,3" ""
END
STRINGA 13
BEGIN
KEY "CODICE FISCALE ESTERO"
PROMPT 90 7 ""
FIELD 216@->COFIEST
SPECIAL STRING TRASFER "SF0214" ""
SPECIAL STRING DYLOG "AN,288,20" ""
END
STRINGA 14
BEGIN
KEY "CAUSALE"
PROMPT 13 9 ""
FIELD CAUSALE
SPECIAL STRING TRASFER "SF0215" ""
SPECIAL STRING DYLOG "AN,308,1" ""
END
STRINGA 15
BEGIN
KEY "TITOLO"
PROMPT 16 9 ""
SPECIAL STRING TRASFER "SF0215" ""
SPECIAL STRING DYLOG "AN,309,1" ""
END
NUMERO 16
BEGIN
KEY "ANNO"
PROMPT 16 9 ""
SPECIAL STRING TRASFER "SF0215" ""
SPECIAL STRING DYLOG "NU,310,4" ""
END
NUMERO 17
BEGIN
KEY "TOTALE"
PROMPT 27 9 ""
FIELD TOTALE
PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0216" ""
SPECIAL STRING DYLOG "NU,314,11" ""
END
NUMBER 18
BEGIN
KEY "SOMME NON SOGGETTE A RITENUTA"
PROMPT 47 9 ""
FIELD SOMME
PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0217" ""
SPECIAL STRING DYLOG "NU,325,11" ""
END
NUMBER 19
BEGIN
KEY "SOMREGCONV"
PROMPT 66 9 ""
FIELD SOMREGCONV
PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0218" ""
SPECIAL STRING DYLOG "NU,336,11" ""
END
NUMBER 20
BEGIN
KEY "IMPONIBILE"
PROMPT 88 9 ""
FIELD IMPONIBILE
PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0219" ""
SPECIAL STRING DYLOG "NU,347,11" ""
END
NUMBER 21
BEGIN
KEY "IMPORTO"
PROMPT 109 9 ""
FIELD IMPORTO
PICTURE "###.###.###^^^"
SPECIAL STRING TRASFER "SF0220" ""
SPECIAL STRING DYLOG "NU,358,11" ""
END
NUMBER 22
BEGIN
KEY "RITENUTE SOSPESE"
PROMPT 109 9 ""
SPECIAL STRING DYLOG "NU,369,11" ""
END
NUMBER 23
BEGIN
KEY "ADDIZIONALE REGIONALE"
PROMPT 109 9 ""
SPECIAL STRING DYLOG "NU,380,11" ""
END
NUMBER 24
BEGIN
KEY "ADDIZIONALE REGIONALE SOSPESA"
PROMPT 109 9 ""
SPECIAL STRING DYLOG "NU,391,11" ""
END
NUMBER 25
BEGIN
KEY "IMPONIBILE ANNI PRECEDENTI"
PROMPT 109 9 ""
SPECIAL STRING DYLOG "NU,402,11" ""
END
NUMBER 26
BEGIN
KEY "RITENUTE ANNI PRECEDENTI"
PROMPT 109 9 ""
SPECIAL STRING DYLOG "NU,413,11" ""
END
NUMBER 27
BEGIN
KEY "POSIZIONE ASSICURATIVA TERRITORIALE"
PROMPT 109 9 ""
SPECIAL STRING DYLOG "NU,424,10" ""
END
NUMBER 28
BEGIN
KEY "DATA INIZIO E DATA FINE"
PROMPT 109 9 ""
SPECIAL STRING DYLOG "NU,434,8" ""
END
NUMBER 31
BEGIN
KEY "TIPO PERSONA RAPPRESENTANTE ESTERO (0)"
PROMPT 109 9 ""
SPECIAL STRING DYLOG "NU,462,1" ""
END
NUMERO 35
BEGIN
KEY "DATA DI NASCITA ESTERA"
SPECIAL STRING DYLOG "NU,508,8" ""
END
NUMERO 41
BEGIN
KEY "CODICE STATO ESTERO"
SPECIAL STRING DYLOG "NU,605,3" ""
END
NUMERO 410
BEGIN
KEY "CODICE STATO ESTERO ???"
SPECIAL STRING DYLOG "NU,730,3" ""
END
END
SECTION FOOTER LAST 3
STRINGA 2
BEGIN
KEY "FIRMA a 3 righe vuote dal body"
PROMPT 84 3 ""
FIELD 206@->RAGSOC
END
END
Reference in New Issue View Git Blame Copy Permalink