campo-sirio/m770/77qga.frm

USE 70
JOIN 9 INTO CODDITTA=CODDITTA
JOIN  6 TO   9 ALIAS 116 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN  7 TO   6 ALIAS 117 INTO CODANAGR=CODANAGR
JOIN  8 TO   6 ALIAS 118 INTO CODANAGR=CODANAGR
JOIN 13 TO   6 ALIAS 113 INTO STATO=""(STATORES) COM=COMRF(COMRES)
END

DESCRIPTION
BEGIN
  70->* "Quadro G 770"
  9->* "Ditte"
  6->* "Anagrafica persone fisiche e giuridiche"
  116->* "Anagrafica persone fisiche e giuridiche"
  7->* "Anagrafica persone giuridiche"
  117->* "Anagrafica persone giuridiche"
  8->* "Anagrafica persone fisiche"
  118->* "Anagrafica persone fisiche"
  13->* "Comuni"
  113->* "Comuni"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT "Courier New"
  SIZE 6
  CARATTERE "X"
  INIZIO_POS 1 1
  FINE_POS 131
  GRID "+++++++++-|"
END

SECTION BODY ODD 30

STRINGA 1
BEGIN
  KEY "INTESTAZIONE 1"
  PROMPT 1 1 "MOD.770/96 DICHIARAZIONE DEL SOSTITUTO D'IMPOSTA"
END

STRINGA 2
BEGIN
  KEY "CODICE FISCALE"
  PROMPT 1 3  "Codice fiscale "
  FIELD 116@->COFI
END

STRINGA 3
BEGIN
  KEY "RAGIONE SOCIALE"
  PROMPT 35 3  "Denominazione "
  //FIELD 116@->RAGSOC
  FIELD 9->RAGSOC
END

STRINGA 4
BEGIN
  KEY "COMUNE"
  PROMPT 1 4 "Domicilio fiscale  Comune "
  FIELD 113@->DENCOM[1,30]
END

STRINGA 5
BEGIN
  KEY "PROV."
  PROMPT 58 4 "Prov. "
  FIELD 113@->PROVCOM
END

STRINGA 6
BEGIN
  KEY "VIA RF"
  PROMPT 70 4 ""
  FIELD 116@->INDRF
  MESSAGE ENABLE,1@|SHOW,1@|DISABLE,2@|HIDE,2@
  MESSAGE EMPTY ENABLE,2@|SHOW,2@|DISABLE,1@|HIDE,1@
END

STRINGA 7
BEGIN
  KEY "CIVICO RF"
  PROMPT 105 4 ""
  FIELD 116@->CIVRF
  GROUP 1
END

STRINGA 8
BEGIN
  KEY "CAP RF"
  PROMPT 116 4 "C.A.P. "
  FIELD 116@->CAPRF
  GROUP 1
END

STRINGA 9
BEGIN
  KEY "VIA RES"
  PROMPT 70 4 ""
  FIELD 116@->INDRES
  GROUP 2
END

STRINGA 10
BEGIN
  KEY "CIVICO RES"
  PROMPT 105 4 ""
  FIELD 116@->CIVRES
  GROUP 2
END

STRINGA 11
BEGIN
  KEY "CAP RES"
  PROMPT 116 4 "C.A.P. "
  FIELD 116@->CAPRES
  GROUP 2
END

STRINGA 12
BEGIN
  KEY "CODICE FISCALE DICHIARANTE"
  PROMPT 1 5  "Codice fiscale del soggetto dichiarante"
END

STRINGA 13
BEGIN
  KEY "INTESTAZIONE 2"
  PROMPT 1 8 "MOD 770/G  Utili pagati con aliquote diverse da quelle indicate nel prospetto N.3 (Prospetto delle ritenute)"
END

STRINGA 14
BEGIN
  KEY "INTESTAZIONE 3"
  PROMPT 1 9 "-----------------------------------------------------------------------------------------------------------------------------------"
END

STRINGA 15
BEGIN
  KEY "INTESTAZIONE 4"
  PROMPT 1 10 "                                                                UTILI ASSOGGETTATI A RITENUTA"
END

STRINGA 16
BEGIN
  KEY "INTESTAZIONE 5"
  PROMPT 1 11 "DELIBERA                Utili corrisposti                                            Ritenuta                 Utili non assogget."
END

STRINGA 17
BEGIN
  KEY "INTESTAZIONE 6"
  PROMPT 1 12 "                          nell'anno 1995            Importo  Aliq. %        di acconto      di imposta            a ritenuta"
END

NUMERO 18
BEGIN
	KEY "TITOLO RIPORTO"
	PROMPT 1 13 "Riporto da prospetto N.3"
END

NUMERO 19
BEGIN
	KEY "RIPORTO UTILI CORRISPOSTI"
	PROMPT 26 13 ""
	PICTURE "###.###.###.###"
END

NUMERO 20
BEGIN
	KEY "RIPORTO UTILI ASSOGGETTATI"
	PROMPT 45 13 ""
	PICTURE "###.###.###.###"
END

NUMERO 21
BEGIN
	KEY "RIPORTO RITENUTA DI ACCONTO"
  PROMPT 72 13 ""
	PICTURE "###.###.###.###"
END

NUMERO 22
BEGIN
	KEY "RIPORTO RITENUTA DI IMPOSTA"
  PROMPT 88 13 ""
	PICTURE "###.###.###.###"
END

NUMERO 23
BEGIN
	KEY "RIPORTO UTILI NON ASS."
	PROMPT 110 13 ""
	PICTURE "###.###.###.###"
END

// ATTENZIONE! TENERE UNITI GLI IMPORTI 
// SE CAMBIA IL NUMERO IDENTIFICATIVO DEL 1<> IMPORTO
// CAMBIARE LA COSTANTE NEL PROGRAMMA 77STQGA.CPP

// 1<> PERIODO
NUMERO 24
BEGIN
	KEY "IMPORTO 1<> UTILI CORRISPOSTI"
	PROMPT 26 14 ""
	PICTURE "###.###.###.###"
END

NUMERO 25
BEGIN
	KEY "IMPORTO 1<> UTILI ASSOGGETTATI"
	PROMPT 45 14 ""
	PICTURE "###.###.###.###"
END

NUMERO 26
BEGIN
	KEY "IMPORTO 1<> RITENUTA DI ACCONTO"
  PROMPT 72 14 ""
	PICTURE "###.###.###.###"
END
         
NUMERO 27
BEGIN
	KEY "IMPORTO 1<> RITENUTA DI IMPOSTA"
  PROMPT 88 14 ""
	PICTURE "###.###.###.###"
END

NUMERO 28
BEGIN
	KEY "IMPORTO 1<> UTILI NON ASS."
	PROMPT 110 14 ""
	PICTURE "###.###.###.###"
END

// 2<> PERIODO
NUMERO 29
BEGIN
	KEY "IMPORTO 2<> UTILI CORRISPOSTI"
	PROMPT 26 15 ""
	PICTURE "###.###.###.###"
END

NUMERO 30
BEGIN
	KEY "IMPORTO 2<> UTILI ASSOGGETTATI"
	PROMPT 45 15 ""
	PICTURE "###.###.###.###"
END

NUMERO 31
BEGIN
	KEY "IMPORTO 2<> RITENUTA DI ACCONTO"
  PROMPT 72 15 ""
	PICTURE "###.###.###.###"
END

NUMERO 32
BEGIN
	KEY "IMPORTO 2<> RITENUTA DI IMPOSTA"
  PROMPT 88 15 ""
	PICTURE "###.###.###.###"
END

NUMERO 33
BEGIN
	KEY "IMPORTO 2<> UTILI NON ASS."
	PROMPT 110 15 ""
	PICTURE "###.###.###.###"
END

// 3<> PERIODO
NUMERO 34
BEGIN
	KEY "IMPORTO 3<> UTILI CORRISPOSTI"
	PROMPT 26 16 ""
	PICTURE "###.###.###.###"
END

NUMERO 35
BEGIN
	KEY "IMPORTO 3<> UTILI ASSOGGETTATI"
	PROMPT 45 16 ""
	PICTURE "###.###.###.###"
END

NUMERO 36
BEGIN
	KEY "IMPORTO 3<> RITENUTA DI ACCONTO"
  PROMPT 72 16 ""
	PICTURE "###.###.###.###"
END

NUMERO 37
BEGIN
	KEY "IMPORTO 3<> RITENUTA DI IMPOSTA"
  PROMPT 88 16 ""
	PICTURE "###.###.###.###"
END

NUMERO 38
BEGIN
	KEY "IMPORTO 3<> UTILI NON ASS."
	PROMPT 110 16 ""
	PICTURE "###.###.###.###"
END

// 4<> PERIODO
NUMERO 39
BEGIN
	KEY "IMPORTO 4<> UTILI CORRISPOSTI"
	PROMPT 26 17 ""
	PICTURE "###.###.###.###"
END

NUMERO 40
BEGIN
	KEY "IMPORTO 4<> UTILI ASSOGGETTATI"
	PROMPT 45 17 ""
	PICTURE "###.###.###.###"
END

NUMERO 41
BEGIN
	KEY "IMPORTO 4<> RITENUTA DI ACCONTO"
  PROMPT 72 17 ""
	PICTURE "###.###.###.###"
END

NUMERO 42
BEGIN
	KEY "IMPORTO 4<> RITENUTA DI IMPOSTA"
  PROMPT 88 17 ""
	PICTURE "###.###.###.###"
END

NUMERO 43
BEGIN
	KEY "IMPORTO 4<> UTILI NON ASS."
	PROMPT 110 17 ""
	PICTURE "###.###.###.###"
END

// 5<> PERIODO
NUMERO 44
BEGIN
	KEY "IMPORTO 5<> UTILI CORRISPOSTI"
	PROMPT 26 18 ""
	PICTURE "###.###.###.###"
END

NUMERO 45
BEGIN
	KEY "IMPORTO 5<> UTILI ASSOGGETTATI"
	PROMPT 45 18 ""
	PICTURE "###.###.###.###"
END

NUMERO 46
BEGIN
	KEY "IMPORTO 5<> RITENUTA DI ACCONTO"
  PROMPT 72 18 ""
	PICTURE "###.###.###.###"
END

NUMERO 47
BEGIN
	KEY "IMPORTO 5<> RITENUTA DI IMPOSTA"
  PROMPT 88 18 ""
	PICTURE "###.###.###.###"
END

NUMERO 48
BEGIN
	KEY "IMPORTO 5<> UTILI NON ASS."
	PROMPT 110 18 ""
	PICTURE "###.###.###.###"
END

// ATTENZIONE! TENERE UNITI LE ALIQUOTE
// SE CAMBIA IL NUMERO IDENTIFICATIVO DELLA 1<> ALIQUOTA
// CAMBIARE LA COSTANTE NEL PROGRAMMA 77STQGA.CPP

NUMERO 49
BEGIN
	KEY "PERCENTUALE 1<>"
	PROMPT 62 14 ""
        PICTURE "###,@@@"
END

NUMERO 50
BEGIN
	KEY "PERCENTUALE 2<>"
	PROMPT 62 15 ""
        PICTURE "###,@@@"
END

NUMERO 51
BEGIN
	KEY "PERCENTUALE 3<>"
	PROMPT 62 16 ""
        PICTURE "###,@@@"
END
NUMERO 52
BEGIN
	KEY "PERCENTUALE 4<>"
	PROMPT 62 17 ""
        PICTURE "###,@@@"
END

NUMERO 53
BEGIN
	KEY "PERCENTUALE 5<>"
	PROMPT 62 18 ""
        PICTURE "###,@@@"
END

STRINGA 54
BEGIN
	KEY "TITOLO 1<> PERIODO"
	PROMPT 1 14 "01-01-1976/31-12-1995"
END

STRINGA 55
BEGIN
	KEY "TITOLO 2<> PERIODO"
	PROMPT 1 15 "09-04-1974/01-12-1975"
END

STRINGA 56
BEGIN
	KEY "TITOLO 3<> PERIODO"
	PROMPT 1 16 "01-01-1974/08-04-1974"
END

STRINGA 57
BEGIN
	KEY "TITOLO 4<> PERIODO"
	PROMPT 1 17 "24-02-1964/31-12-1973"
END

STRINGA 58
BEGIN
	KEY "TITOLO 5<> PERIODO"
	PROMPT 1 18 "01-01-1963/23-02-1963"
END

STRINGA 59
BEGIN
  KEY "PIEDE"
  PROMPT 1 19 "-----------------------------------------------------------------------------------------------------------------------------------"
END

STRINGA 60
BEGIN
  KEY "TOTALI"
  PROMPT 1 20 "TOTALI"
END

NUMERO 61
BEGIN
	KEY "TOTALE UTILI CORRISPOSTI"
	PROMPT 26 20 ""
	PICTURE "###.###.###.###"
END

NUMERO 62
BEGIN
	KEY "TOTALE UTILI ASSOGGETTATI"
	PROMPT 45 20 ""
	PICTURE "###.###.###.###"
END

NUMERO 63
BEGIN
	KEY "TOTALE RITENUTA DI ACCONTO"
  PROMPT 72 20 ""
	PICTURE "###.###.###.###"
END

NUMERO 64
BEGIN
	KEY "TOTALE RITENUTA DI IMPOSTA"
  PROMPT 88 20 ""
	PICTURE "###.###.###.###"
END

NUMERO 65
BEGIN
	KEY "TOTALE UTILI NON ASS."
	PROMPT 110 20 ""
	PICTURE "###.###.###.###"
END

STRINGA 66
BEGIN
	KEY "PIEDE"
	PROMPT 1 30 "ATTENZIONE: GLI IMPORTI SONO ESPOSTI IN MIGLIAIA DI LIRE MEDIANTE TRONCAMENTO DELLE ULTIME TRE CIFRE"
END

END

END