campo-sirio/m770/77qla.frm

USE 144
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 LA 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 BODY ODD 10

STRINGA 1
BEGIN
  KEY "COD.FIS"
  PROMPT 10 1 ""
  FIELD 216@->COFI
  SPECIAL STRING TRASFER "AU001001" "AN"
END

STRINGA 2
BEGIN   
  KEY "COGNOME"
  PROMPT 42 1 ""
  FIELD 216@->RAGSOC[1,30]
  SPECIAL STRING TRASFER "AU001002" "AN"
END          

STRINGA 3
BEGIN   
  KEY "NOME"
  PROMPT 22 3 ""
  FIELD 216@->RAGSOC[31,50]
  SPECIAL STRING TRASFER "AU001003" "AN"
END

STRINGA 4
BEGIN   
  KEY "SESSO"
  PROMPT 57 3 ""
  FIELD 218@->SESSO
  SPECIAL STRING TRASFER "AU001004" "AN"
END

STRINGA 5
BEGIN   
  KEY "DATA NASCITA"
  PROMPT 63 3 ""
  FIELD 218@->DATANASC
  PICTURE "##^ ##^ ####"
  SPECIAL STRING TRASFER "AU001005" "DT"
END

STRINGA 6
BEGIN
  KEY "COMUNE DI NASCITA"
  PROMPT 79 3 ""
  FIELD 313@->DENCOM
  SPECIAL STRING TRASFER "AU001006" "AN"
END

STRINGA 7
BEGIN
  KEY "PROV DI NASCITA"
  PROMPT 126 3 ""
  FIELD 313@->PROVCOM
  SPECIAL STRING TRASFER "AU001007" "AN"
  MESSAGE _PROVINCIA
END

STRINGA 8
BEGIN
  KEY "COMUNE DI RESIDENZA FISCALE"
  PROMPT 25 5 ""
  FIELD 513@->DENCOM
  FIELD 413@->DENCOM
  SPECIAL STRING TRASFER "AU001008" "AN"
  GROUP 1
END

STRINGA 9
BEGIN
  KEY "PROV DI RESIDENZA FISCALE"
  PROMPT 126 3 ""
  FIELD 513@->PROVCOM
  FIELD 413@->PROVCOM
  GROUP 1
  SPECIAL STRING TRASFER "AU001009" "AN"
  MESSAGE _PROVINCIA
END

NUMBER 10
BEGIN
  KEY "CODICE REGIONE"
  PROMPT 78 5 ""
  FIELD 218@->CODREG96
  SPECIAL STRING TRASFER "AU001010" "NU"
  GROUP 1
END

STRINGA 101
BEGIN
  KEY "VIA RES. FISC."
  FIELD 216@->INDRF[1,35]
  FIELD 216@->INDRES[1,35]
  FLAGS "H"
  MESSAGE COPY,11
END

STRINGA 102
BEGIN
  KEY "NUM.CIV DI RESIDENZA FISC."
  FLAGS "H"
  FIELD 216@->CIVRF
  FIELD 216@->CIVRES
  MESSAGE APPEND,11
END

STRINGA 11
BEGIN
  KEY "VIA RF + NUMCIVRF"
  PROMPT 78 5 ""
  SPECIAL STRING TRASFER "AU001011" "AN"
  MESSAGE COPY,14
END

STRINGA 14
BEGIN
  KEY "CODICE FISCALE ESTERO"
  PROMPT 90 7 ""      
  FIELD 216@->COFIEST
  SPECIAL STRING TRASFER "AU001014" "AN"
END

STRINGA 15
BEGIN
  KEY "COMUNE ESTERO DI RES."
  PROMPT 75 7 "" 
  SPECIAL STRING TRASFER "AU001015" "AN"
END

STRINGA 16
BEGIN
  KEY "INDIRIZZO DI RES. ESTERO"
  PROMPT 75 7 ""   
  SPECIAL STRING TRASFER "AU001016" "AN"
END

NUMERO 17
BEGIN
  KEY "STATO ESTERO"
  PROMPT 75 7 "" 
  FIELD 216@->STATORES
  SPECIAL STRING TRASFER "AU001017" "NU"
END

STRINGA 18
BEGIN
  KEY "CAUSALE"
  PROMPT 13 9 ""
  FIELD CAUSALE
  SPECIAL STRING TRASFER "AU001018" "AN"
END

NUMERO 19
BEGIN
  KEY "ANNO"
  PROMPT 16 9 ""
  FIELD ANNO
  SPECIAL STRING TRASFER "AU001019" "NP"
END

STRINGA 20
BEGIN
  KEY "ANTICIPAZIONI"
  PROMPT 27 9 ""
  FIELD ANTICIPAZ
  SPECIAL STRING TRASFER "AU001020" "CB"
END
 
VALUTA 21
BEGIN
  KEY "AMMONTARE LORDO"
  PROMPT 27 9 ""
  FIELD TOTALE
  SPECIAL STRING TRASFER "AU001021" "NP"
END

VALUTA 22
BEGIN
  KEY "SOMREGCONV"
  PROMPT 47 9 ""
  FIELD SOMREGCONV    
  SPECIAL STRING TRASFER "AU001022" "NP"
END

VALUTA 23
BEGIN
  KEY "SOMME NON SOGGETTE A RITENUTA"
  PROMPT 66 9 ""
  FIELD SOMME
  SPECIAL STRING TRASFER "AU001023" "NP"
END

VALUTA 24
BEGIN
  KEY "IMPONIBILE = 21-22-23"
  PROMPT 88 9 ""
  FIELD IMPONIBILE    
  SPECIAL STRING TRASFER "AU001024" "NP"
END

VALUTA 25
BEGIN
  KEY "Ritenute operate a titolo di acconto"
  PROMPT 109 9 ""
  FIELD IMPORTO       
  SPECIAL STRING TRASFER "AU001025" "NP"
END


VALUTA 26
BEGIN
  KEY "Ritenute operate a titolo di imposta"
  PROMPT 109 9 ""
  SPECIAL STRING TRASFER "AU001026" "NP"
END

VALUTA 27
BEGIN
  KEY "RITENUTE SOSPESE"
  PROMPT 109 9 ""
  FIELD RITSOSPESE
  SPECIAL STRING TRASFER "AU001027" ""
END

VALUTA 28
BEGIN
  KEY "ADDIZIONALE REGIONALE a titolo di acconto"
  PROMPT 109 9 ""
  FIELD ADDREG                    
  SPECIAL STRING TRASFER "AU001028" "NP"
END

VALUTA 29
BEGIN
  KEY "ADDIZIONALE REGIONALE a titolo di imposta"
  PROMPT 109 9 ""
  SPECIAL STRING TRASFER "AU001029" "NP"
END

VALUTA 30
BEGIN
  KEY "ADDIZIONALE REGIONALE SOSPESA"
  PROMPT 109 9 ""
  FIELD ADDREGSOSP
  SPECIAL STRING TRASFER "AU001030" "NP"
END

VALUTA 31
BEGIN
  KEY "IMPONIBILE ANNI PRECEDENTI"
  PROMPT 109 9 ""
  FIELD IMPANNIPRE
  SPECIAL STRING TRASFER "AU001031" "NP"
END

VALUTA 32
BEGIN
  KEY "RITENUTE ANNI PRECEDENTI"
  PROMPT 109 9 ""
  FIELD RITANNIPRE
  SPECIAL STRING TRASFER "AU001032" "NP"
END

END