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 "AU001A01" "AN"
END

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

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

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

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

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

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

STRINGA 20
BEGIN
  KEY "COMUNE DI RESIDENZA FISCALE"
  PROMPT 25 5 ""
  FIELD 513@->DENCOM
  FIELD 413@->DENCOM
  SPECIAL STRING TRASFER "AU001A20" "AN"
END

STRINGA 21
BEGIN
  KEY "PROV DI RESIDENZA FISCALE"
  PROMPT 126 3 ""
  FIELD 513@->PROVCOM
  FIELD 413@->PROVCOM
  MESSAGE _SOLO_CAUS_N
  SPECIAL STRING TRASFER "AU001A21" "AN"
END

STRINGA 22
BEGIN
  KEY "CODICE COMUNE"
  PROMPT 78 5 ""
  FIELD 513@->COM
  FIELD 413@->COM
  SPECIAL STRING TRASFER "AU001A22" "AN"
  MESSAGE _SOLO_CAUS_N
END

STRINGA 101
BEGIN
  KEY "CAUSALE"
  PROMPT 13 9 ""
  FIELD CAUSALE
  SPECIAL STRING TRASFER "AU001001" "AN"
END

NUMERO 102
BEGIN
  KEY "ANNO"
  PROMPT 16 9 ""
  FIELD ANNO
  SPECIAL STRING TRASFER "AU001002" "NP"
END

STRINGA 103
BEGIN
  KEY "ANTICIPAZIONI"
  PROMPT 27 9 ""
  FIELD ANTICIPAZ
  SPECIAL STRING TRASFER "AU001003" "CB"
END
 
VALUTA 104
BEGIN
  KEY "AMMONTARE LORDO"
  PROMPT 27 9 ""
  FIELD TOTALE
  SPECIAL STRING TRASFER "AU001004" "NP"
END

VALUTA 105
BEGIN
  KEY "SOMREGCONV"
  PROMPT 47 9 ""
  FIELD SOMREGCONV    
  SPECIAL STRING TRASFER "AU001005" "NP"
END

NUMERO 106
BEGIN
  KEY "Codice somme non soggette a ritenuta"
  PROMPT 64 9 ""
  SPECIAL STRING TRASFER "AU001006" "NP"
  MESSAGE _NUMEXPR,IF(SOMME>0,1,0)
END

VALUTA 107
BEGIN
  KEY "SOMME NON SOGGETTE A RITENUTA"
  PROMPT 107 9 ""
  FIELD SOMME
  SPECIAL STRING TRASFER "AU001007" "NP"
END

VALUTA 108
BEGIN
  KEY "IMPONIBILE = 22-23-25"
  PROMPT 108 9 ""
  FIELD IMPONIBILE
  SPECIAL STRING TRASFER "AU001008" "NP"
END

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


VALUTA 110
BEGIN
  KEY "Ritenute operate a titolo di imposta"
  PROMPT 110 9 ""
  SPECIAL STRING TRASFER "AU001010" "NP"
END

VALUTA 111
BEGIN
  KEY "RITENUTE SOSPESE"
  PROMPT 109 9 ""
  FIELD RITSOSPESE
  SPECIAL STRING TRASFER "AU001011" ""
END

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

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

VALUTA 114
BEGIN
  KEY "ADDIZIONALE REGIONALE SOSPESA"
  PROMPT 114 9 ""
  FIELD ADDREGSOSP
  SPECIAL STRING TRASFER "AU001014" "NP"
END

VALUTA 115
BEGIN
  KEY "ADDIZIONALE COMUNALE a titolo di acconto"
  PROMPT 109 9 ""
//  FIELD ADDCOM
  SPECIAL STRING TRASFER "AU001015" "NP"
END

VALUTA 116
BEGIN
  KEY "ADDIZIONALE COMUNALE a titolo di imposta"
  PROMPT 116 9 ""
  SPECIAL STRING TRASFER "AU001016" "NP"
END

VALUTA 117
BEGIN
  KEY "ADDIZIONALE COMUNALE SOSPESA"
  PROMPT 117 9 ""
//  FIELD ADDCOMSOSP
  SPECIAL STRING TRASFER "AU001017" "NP"
END

VALUTA 118
BEGIN
  KEY "IMPONIBILE ANNI PRECEDENTI"
  PROMPT 118 9 ""
  FIELD IMPANNIPRE
  SPECIAL STRING TRASFER "AU001018" "NP"
END

VALUTA 119
BEGIN
  KEY "RITENUTE ANNI PRECEDENTI"
  PROMPT 119 9 ""
  FIELD RITANNIPRE
  SPECIAL STRING TRASFER "AU001019" "NP"
END

VALUTA 120
BEGIN
  KEY "CONTRIBUTI PREVIDENZIALI A CARICO DEL SOGGETTO EROGANTE"
  PROMPT 120 9 ""
  FIELD CTINPSEROG
  SPECIAL STRING TRASFER "AU001020" "NP"
  MESSAGE _SOLO_CAUS_M
END

VALUTA 121
BEGIN
  KEY "CONTRIBUTI PREVIDENZIALI A CARICO DEL PERCIPIENTE"
  PROMPT 121 9 ""
  FIELD CTINPSPERC
  SPECIAL STRING TRASFER "AU001021" "NP"
  MESSAGE _SOLO_CAUS_M
END

END