USE 33
JOIN 34 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
JOIN 17 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 20 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF
JOIN 16 TO 33 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 16 TO 17 ALIAS 116 INTO TIPOCF==TIPOCF CODCF==CODCF CODIND==CODINDSP
JOIN 47 TO 34 INTO CODART==CODART
JOIN %CPG TO 33 ALIAS 201 INTO CODTAB==CODPAG
JOIN 122 TO 33 INTO CODAGE==CODAG
JOIN %POR TO 33 ALIAS 203 INTO CODTAB==CODPORTO
JOIN %BAN TO 33 ALIAS 204 INTO CODTAB==CODABIA+CODCABA
JOIN %VET TO 33 ALIAS 205 INTO CODTAB==CODVETT1
JOIN %ASP TO 33 ALIAS 206 INTO CODTAB==ASPBENI1
JOIN %CTR TO 33 ALIAS 207 INTO CODTAB==CAUSTRASP
JOIN %BAN TO 33 ALIAS 208 INTO CODTAB==CODABIA
JOIN %VAL TO 33 ALIAS 209 INTO CODTAB==CODVAL
JOIN %TIP TO 33 ALIAS 210 INTO CODTAB==TIPODOC
END
DESCRIPTION
BEGIN
34->* "Righe documenti di vendita"
33->* "Documenti di vendita"
17->* "Clienti/Fornitori per vendite"
20->* "Clienti/Fornitori"
16->* "Indirizzi di spedizione (destinazione)"
116@->* "Indirizzi di spedizione (destinatario)"
47->* "Anagrafica magazzino"
201@->* "Tabella condizioni di pagamento"
122->* "Archivio agenti"
203@->* "Tabella porto"
204@->* "Tabella banche istituto"
205@->* "Tabella vettori"
206@->* "Tabella aspetto beni"
207@->* "Tabella causale del trasporto"
208@->* "Tabella banche agenzia"
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
SIZE 10
MODULE "FATTURA STANDARD AGA"
PRI_DECIMALS 0 2
QTA_DECIMALS 3 3
IMP_DECIMALS 0 2
EXCLUDE "08,"
EXCLUDE "02,"
EXCLUDE "03,"
END
SECTION GRAPHICS ODD 
FIGURA 99 93 68
BEGIN
PROMPT 1 1 "fattura.bmp"
END
END
SECTION HEADER ODD 27
STRINGA 200 1 
BEGIN
KEY "abilita/disabilita stampa intestazione ditta "
PROMPT 1 1 ""
MESSAGE ENABLE,15@
FLAGS "H"
END
STRINGA 1 35 1
BEGIN
KEY "nome ditta"
PROMPT 3 4 ""
MESSAGE _DITTA,!RAGSOC
GROUP 15
FLAGS "D"
END
STRINGA 2 35 1
BEGIN
KEY "indirizzo ditta"
PROMPT 3 5 ""
MESSAGE _DITTA,!IND
GROUP 15
FLAGS "D"
END
STRINGA 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 3 6 ""
MESSAGE _DITTA,!CAP
GROUP 15
FLAGS "D"
END
STRINGA 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 10 6 ""
MESSAGE _DITTA,!COM
GROUP 15
FLAGS "D"
END
STRINGA 5 8 1
BEGIN
KEY "scritta P.IVA"
PROMPT 3 7 "P.IVA IT"
GROUP 15
FLAGS "D"
END
STRINGA 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 12 7 ""
MESSAGE _DITTA,!IVA
GROUP 15
FLAGS "D"
END
STRINGA 7 12 1
BEGIN
KEY "scritta COD.FISC."
PROMPT 3 8 "COD.FISC. IT"
GROUP 15
FLAGS "D"
END
STRINGA 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 16 8 ""
MESSAGE _DITTA,!CF
GROUP 15
FLAGS "D"
END
STRINGA 9 2
BEGIN
KEY "Numero di pagina"
PROMPT 88 20 ""
MESSAGE _PAGENO
END
DATA 10 8 
BEGIN
KEY "data fattura"
PROMPT 64 20 ""
FIELD 33->DATADOC
FORMAT "1442-"
END
STRINGA 11 7
BEGIN
KEY "numero fattura"
PROMPT 77 20 ""
FIELD 33->NDOC
END
STRINGA 12 5 
BEGIN
KEY "codice cliente"
PROMPT 2 22 ""
FIELD 33->CODCF
END
STRINGA 13 3 
BEGIN
KEY "codice agente"
PROMPT 10 22 ""
FIELD 33->CODAG
END
STRINGA 14 14 
BEGIN
KEY "porto"
PROMPT 57 22 ""
FIELD 203@->S0
END
STRING 15 6 
BEGIN
KEY "ordine"
PROMPT 26 22 ""
FIELD 33->NUMDOCRIF
END
DATA 16 8 
BEGIN
KEY "data conferma"
PROMPT 15 22 ""
FIELD 33->DATADOCRIF
FORMAT "1442-"
END
STRINGA 17 32 
BEGIN
KEY "condizioni di pagamento"
PROMPT 2 24 ""
FIELD 201@->S0
END
STRINGA 18 27 
BEGIN
KEY "banca d'appoggio istituto"
PROMPT 37 24 ""
FIELD 208@->S0
END
STRINGA 19 27 
BEGIN
KEY "banca d'appoggio agenzia"
PROMPT 65 24 ""
FIELD 204@->S0
END
STRINGA 20 40 2
BEGIN
KEY "cliente ragione sociale "
PROMPT 48 11 ""
MESSAGE _CLIENTE,!RAGSOC
END
STRINGA 21 40 2
BEGIN
KEY "cliente indirizzo con numero civico"
PROMPT 48 13 ""
MESSAGE _CLIENTE,!INDNUM
END
STRING 22 40 1
BEGIN
KEY "destinatario, localita"
PROMPT 48 15 ""
MESSAGE _CLIENTE,LOCALITACF
END
STRINGA 23 5 1
BEGIN
KEY "cliente cap"
PROMPT 48 16 ""
MESSAGE _CLIENTE,!CAP
END
STRINGA 24 35 2
BEGIN
KEY "cliente comune"
PROMPT 54 16 ""
MESSAGE _CLIENTE,!COM->DENCOM
MESSAGE COPY,26
FLAGS "H"
END
STRINGA 25 2 1
BEGIN
KEY "cliente provincia"
PROMPT 77 17 ""
MESSAGE _CLIENTE,!COM->PROVCOM
MESSAGE APPEND,26
FLAGS "H"
END
STRINGA 26 30 2
BEGIN
KEY "cliente comune+prov."
PROMPT 54 16 ""
END
STRINGA 27 3 
BEGIN
KEY "cliente codice stato"
PROMPT 44 17 ""
MESSAGE _CLIENTE,STATOCF
FLAGS "H"
END
STRINGA 28 25 
BEGIN
KEY "cliente nome stato"
PROMPT 44 17 ""
MESSAGE _TABLEREAD,%STA,#27,S0
FLAGS "D"
END


STRING 31 11 
BEGIN
KEY "partita iva cliente"
PROMPT 37 22 ""
MESSAGE _CLIENTE,PAIV
FLAGS ""
END
STRING 32 16 
BEGIN
KEY "codice fiscale cliente"
PROMPT 36 20 ""
MESSAGE _CLIENTE,COFI
FLAGS ""
END
STRING 33 2 
BEGIN
KEY "codice iso iva cliente"
PROMPT 35 22 ""
MESSAGE _CLIENTE,STATOPAIV
FLAGS ""
END


STRING 34 15 
BEGIN
KEY "causale di trasporto"
PROMPT 75 22 ""
FIELD 207@->S0
END
STRING 35 27 
BEGIN
KEY "valuta"
PROMPT 57 20 ""
FIELD CODVAL
END
STRING 36 27 
BEGIN
KEY "tipo documento"
PROMPT 2 20 ""
FIELD 210@->S0
END
END
SECTION BODY ODD 5
STRINGA 51 12 1
BEGIN
KEY "codice articolo"
FIELD 34->CODART
PROMPT 2 1 ""
END
STRINGA 52 20 22
BEGIN
KEY "descrizione articolo"
MESSAGE _DESCRIGA
PROMPT 16 1 ""
END
STRINGA 53 2
BEGIN
KEY "unita' di misura"
PROMPT 40 1 ""
FIELD 34->UMQTA
MESSAGE _ALIGN,#52,BOTTOM
END
NUMBER 54 10
BEGIN
KEY "quantita'"
PROMPT 45 1 ""
FIELD 34->QTA
PICTURE "##.###.###"
GROUP 30
MESSAGE _ALIGN,#52,BOTTOM
END
NUMBER 55 12
BEGIN
KEY "prezzo unitario"
PROMPT 57 1 ""
FIELD 34->PREZZO
PICTURE "###.###.###"
GROUP 29
MESSAGE _ALIGN,#52,BOTTOM
END
STRINGA 56 3
BEGIN
KEY "sconto"
PROMPT 70 1 ""
FIELD 34->SCONTO
MESSAGE _ALIGN,#52,BOTTOM
END
NUMBER 57 12
BEGIN
KEY "importo netto"
PROMPT 75 1 ""
FIELD 34->IMPNS
PICTURE "###.###.###"
GROUP 29
MESSAGE _ALIGN,#52,BOTTOM
END
STRINGA 58 3 
BEGIN
KEY "iva"
PROMPT 90 1 ""
FIELD 34->CODIVA
MESSAGE _ALIGN,#52,BOTTOM
END
NUMBER 59 15
BEGIN
KEY "prezzo unitario scontato"
PROMPT 68 1 ""
PICTURE "###.###.###.###"
FIELD 34->PREZZONS
GROUP 29
MESSAGE _ALIGN,#52,BOTTOM
FLAGS "H"
END
NUMBER 60 15
BEGIN
KEY "provvigione"
PROMPT 68 1 ""
PICTURE "###.###.###.###"
FIELD 34->PROVVR
MESSAGE _ALIGN,#52,BOTTOM
GROUP 31
FLAGS "H"
END
NUMBER 61 15
BEGIN
KEY "Imposta"
PROMPT 68 1 ""
PICTURE "###.###.###.###"
FIELD 34->IMPOSTA
MESSAGE _ALIGN,#52,BOTTOM
GROUP 31
FLAGS "H"
END
END
SECTION FOOTER ODD -49
STRINGA 100 5 1
BEGIN
KEY "stampa 'segue' in coda"
PROMPT 73 13 "SEGUE"
END
END
SECTION FOOTER LAST -49
NUMBER 101 12 
BEGIN
KEY "totale importi netti (non scontati)"
PROMPT 2 3 ""
FIELD TOTMER
PICTURE "###.###.###"
GROUP 31
END
STRINGA 102 7 
BEGIN
KEY "% sconto"
PROMPT 23 3 ""
FIELD 33->SCONTOPERC
END
NUMBER 103 11 
BEGIN
KEY "totale sconti"
PROMPT 32 3 ""
FIELD SCONTOT
PICTURE "###.###.###"
GROUP 31
END
NUMBER 104 11 
BEGIN
KEY "spese di trasporto"
PROMPT 46 3 ""
PICTURE "###.###.###"
FIELD SPESTRA
GROUP 31
END
NUMBER 105 11 
BEGIN
KEY "spese di imballo"
PROMPT 59 3 ""
PICTURE "###.###.###"
FIELD SPESIMB
GROUP 31
END
NUMBER 106 11 
BEGIN
KEY "acconto"
PROMPT 79 5 ""
FIELD 33->IMPPAGATO
PICTURE "###.###.###"
GROUP 31
END
STRING 107 3 
BEGIN
KEY "codice iva 1"
PROMPT 2 5 ""
MESSAGE _RIEPILOGOIVA,1,COD,0
END
NUMBER 108 12 
BEGIN
KEY "imponibile 1"
PROMPT 8 5 ""
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###"
GROUP 31
END
NUMBER 109 2 
BEGIN
KEY "iva 1"
PROMPT 23 5 ""
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##"
END
NUMBER 110 10 
BEGIN
KEY "imposta 1"
PROMPT 28 5 ""
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "##.###.###"
GROUP 31
END
STRING 111 3 
BEGIN
KEY "codice iva 2"
PROMPT 2 6 ""
MESSAGE _RIEPILOGOIVA,1,COD,0
END
NUMBER 112 12 
BEGIN
KEY "imponibile 2"
PROMPT 8 6 ""
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###"
GROUP 31
END
NUMBER 113 2 
BEGIN
KEY "iva 2"
PROMPT 23 6 ""
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##"
END
NUMBER 114 10 
BEGIN
KEY "imposta 2"
PROMPT 28 6 ""
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "##.###.###"
GROUP 31
END
STRING 115 3 
BEGIN
KEY "codice iva 3"
PROMPT 2 7 ""
MESSAGE _RIEPILOGOIVA,1,COD,0
END
NUMBER 116 12 
BEGIN
KEY "imponibile 3"
PROMPT 8 7 ""
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###"
GROUP 31
END
NUMBER 117 2 
BEGIN
KEY "iva 3"
PROMPT 23 7 ""
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##"
END
NUMBER 118 10 
BEGIN
KEY "imposta 3"
PROMPT 28 7 ""
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "##.###.###"
GROUP 31
END
NUMBER 119 12
BEGIN
KEY "imponibile 4"
PROMPT 8 9 ""
MESSAGE _RIEPILOGOIVA,30,IMP,0
PICTURE "###.###.###"
GROUP 31
END
STRINGA 120 3 
BEGIN
KEY "codice iva 4"
PROMPT 2 9 ""
MESSAGE _RIEPILOGOIVA,30,COD,0
END
STRINGA 121 45 
BEGIN
KEY "descrizione altri 4"
PROMPT 44 9 ""
MESSAGE _RIEPILOGOIVA,30,DES,1
END
NUMBER 122 12 
BEGIN
KEY "imponibile 5"
PROMPT 8 10 ""
MESSAGE _RIEPILOGOIVA,30,IMP,0
PICTURE "###.###.###"
GROUP 31
END
STRINGA 123 3 
BEGIN
KEY "codice iva 5"
PROMPT 2 10 ""
MESSAGE _RIEPILOGOIVA,30,COD,0
END
STRINGA 124 45 
BEGIN
KEY "descrizione altri 5"
PROMPT 44 10 ""
MESSAGE _RIEPILOGOIVA,30,DES,1
END
NUMBER 125 12 
BEGIN
KEY "totale imponibile"
PROMPT 8 13 ""
MESSAGE _TOTIMPONIBILI,29
PICTURE "###.###.###"
GROUP 31
END
NUMBER 126 11 
BEGIN
KEY "totale imposta"
PROMPT 28 13 ""
FIELD IMPOSTE
PICTURE "###.###.###"
GROUP 31
END
NUMBER 127 11 
BEGIN
KEY "totale esenti"
PROMPT 44 13 ""
MESSAGE _TOTIMPONIBILI,28
PICTURE "###.###.###"
GROUP 31
END
NUMBER 128 7 
BEGIN
KEY "spese di incasso"
PROMPT 72 3 ""
PICTURE "###.###"
FIELD SPESINC
GROUP 31
END
NUMBER 129 7 
BEGIN
KEY "spese bolli"
PROMPT 83 3 ""
FIELD BOLLI
PICTURE "###.###"
GROUP 31
END
NUMBER 130 11 
BEGIN
KEY "totale fattura"
PROMPT 79 13 ""
FIELD TOTDOC
PICTURE "###.###.###"
GROUP 31
MESSAGE COPY,138
END
NUMBER 137 11 
BEGIN
KEY "acconto"
PROMPT 79 5 ""
FIELD 33->IMPPAGATO
PICTURE "###.###.###"
GROUP 31
MESSAGE SUB,138
END
NUMBER 138 11 
BEGIN
KEY "netto a pagare"
PROMPT 79 15 ""
PICTURE "###.###.###"
GROUP 31
END
DATA 143 8 
BEGIN
KEY "scadenza pagamento 1"
PROMPT 2 15 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
END
NUMBER 144 12 
BEGIN
KEY "importo scadenza 1"
PROMPT 12 15 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
DATA 145 8 
BEGIN
KEY "scadenza pagamento 2"
PROMPT 26 15 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
END
NUMBER 146 12
BEGIN
KEY "importo scadenza 2"
PROMPT 36 15 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
DATA 147 8 1
BEGIN
KEY "scadenza pagamento 3"
PROMPT 2 16 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
END
NUMBER 148 12 
BEGIN
KEY "importo scadenza 3"
PROMPT 12 16 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
DATA 149 8 1
BEGIN
KEY "scadenza pagamento 4"
PROMPT 26 16 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
END
NUMBER 150 12 
BEGIN
KEY "importo scadenza 4"
PROMPT 36 16 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
DATA 151 8 1
BEGIN
KEY "scadenza pagamento 5"
PROMPT 2 17 ""
MESSAGE _SCADENZE,DATA,0
FORMAT "1442-"
END
NUMBER 152 12 
BEGIN
KEY "importo scadenza 5"
PROMPT 12 17 ""
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
END