1998-01-20 15:45:20 +00:00
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
2002-02-26 16:20:19 +00:00
JOIN 122 TO 33 INTO CODAGE==CODAG
1998-01-20 15:45:20 +00:00
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
2002-02-26 16:20:19 +00:00
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
1998-01-20 15:45:20 +00:00
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"
2002-02-26 16:20:19 +00:00
204@->* "Tabella banche istituto"
1998-01-20 15:45:20 +00:00
205@->* "Tabella vettori"
206@->* "Tabella aspetto beni"
2002-02-26 16:20:19 +00:00
207@->* "Tabella causale del trasporto"
208@->* "Tabella banche agenzia"
1998-01-20 15:45:20 +00:00
END
GENERAL
BEGIN
OFFSET 0 0
FONT "Courier New"
2002-02-26 16:20:19 +00:00
SIZE 10
MODULE "FATTURA STANDARD AGA"
1998-01-20 15:45:20 +00:00
PRI_DECIMALS 0 2
QTA_DECIMALS 3 3
IMP_DECIMALS 0 2
2002-02-26 16:20:19 +00:00
EXCLUDE "08,"
EXCLUDE "02,"
EXCLUDE "03,"
1998-01-20 15:45:20 +00:00
END
SECTION GRAPHICS ODD
2002-02-26 16:20:19 +00:00
FIGURA 99 93 68
1998-01-20 15:45:20 +00:00
BEGIN
PROMPT 1 1 "fattura.bmp"
END
END
2002-02-26 16:20:19 +00:00
SECTION HEADER ODD 27
STRINGA 200 1
BEGIN
KEY "abilita/disabilita stampa intestazione ditta "
PROMPT 1 1 ""
MESSAGE ENABLE,15@
FLAGS "H"
END
1998-01-20 15:45:20 +00:00
STRINGA 1 35 1
BEGIN
KEY "nome ditta"
PROMPT 3 4 ""
MESSAGE _DITTA,!RAGSOC
2002-02-26 16:20:19 +00:00
GROUP 15
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
STRINGA 2 35 1
BEGIN
KEY "indirizzo ditta"
PROMPT 3 5 ""
MESSAGE _DITTA,!IND
2002-02-26 16:20:19 +00:00
GROUP 15
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
STRINGA 3 5 1
BEGIN
KEY "cap ditta"
PROMPT 3 6 ""
MESSAGE _DITTA,!CAP
2002-02-26 16:20:19 +00:00
GROUP 15
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
STRINGA 4 30 1
BEGIN
KEY "comune ditta"
PROMPT 10 6 ""
MESSAGE _DITTA,!COM
2002-02-26 16:20:19 +00:00
GROUP 15
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
STRINGA 5 8 1
BEGIN
KEY "scritta P.IVA"
PROMPT 3 7 "P.IVA IT"
2002-02-26 16:20:19 +00:00
GROUP 15
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
STRINGA 6 16 1
BEGIN
KEY "partita iva ditta"
PROMPT 12 7 ""
MESSAGE _DITTA,!IVA
2002-02-26 16:20:19 +00:00
GROUP 15
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
STRINGA 7 12 1
BEGIN
KEY "scritta COD.FISC."
PROMPT 3 8 "COD.FISC. IT"
2002-02-26 16:20:19 +00:00
GROUP 15
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
STRINGA 8 16 1
BEGIN
KEY "codice fiscale ditta"
PROMPT 16 8 ""
MESSAGE _DITTA,!CF
2002-02-26 16:20:19 +00:00
GROUP 15
1998-01-20 15:45:20 +00:00
FLAGS "D"
END
2002-02-26 16:20:19 +00:00
STRINGA 9 2
1998-01-20 15:45:20 +00:00
BEGIN
2002-02-26 16:20:19 +00:00
KEY "Numero di pagina"
PROMPT 88 20 ""
MESSAGE _PAGENO
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
DATA 10 8
1998-01-20 15:45:20 +00:00
BEGIN
KEY "data fattura"
2002-02-26 16:20:19 +00:00
PROMPT 64 20 ""
1998-01-20 15:45:20 +00:00
FIELD 33->DATADOC
2002-02-26 16:20:19 +00:00
FORMAT "1442-"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
STRINGA 11 7
1998-01-20 15:45:20 +00:00
BEGIN
KEY "numero fattura"
2002-02-26 16:20:19 +00:00
PROMPT 77 20 ""
1998-01-20 15:45:20 +00:00
FIELD 33->NDOC
END
2002-02-26 16:20:19 +00:00
STRINGA 12 5
1998-01-20 15:45:20 +00:00
BEGIN
KEY "codice cliente"
2002-02-26 16:20:19 +00:00
PROMPT 2 22 ""
1998-01-20 15:45:20 +00:00
FIELD 33->CODCF
END
2002-02-26 16:20:19 +00:00
STRINGA 13 3
1998-01-20 15:45:20 +00:00
BEGIN
KEY "codice agente"
2002-02-26 16:20:19 +00:00
PROMPT 10 22 ""
1998-01-20 15:45:20 +00:00
FIELD 33->CODAG
END
2002-02-26 16:20:19 +00:00
STRINGA 14 14
1998-01-20 15:45:20 +00:00
BEGIN
KEY "porto"
2002-02-26 16:20:19 +00:00
PROMPT 57 22 ""
1998-01-20 15:45:20 +00:00
FIELD 203@->S0
END
2002-02-26 16:20:19 +00:00
STRING 15 6
1998-01-20 15:45:20 +00:00
BEGIN
KEY "ordine"
2002-02-26 16:20:19 +00:00
PROMPT 26 22 ""
1998-01-20 15:45:20 +00:00
FIELD 33->NUMDOCRIF
END
2002-02-26 16:20:19 +00:00
DATA 16 8
1998-01-20 15:45:20 +00:00
BEGIN
KEY "data conferma"
2002-02-26 16:20:19 +00:00
PROMPT 15 22 ""
1998-01-20 15:45:20 +00:00
FIELD 33->DATADOCRIF
2002-02-26 16:20:19 +00:00
FORMAT "1442-"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
STRINGA 17 32
1998-01-20 15:45:20 +00:00
BEGIN
KEY "condizioni di pagamento"
2002-02-26 16:20:19 +00:00
PROMPT 2 24 ""
1998-01-20 15:45:20 +00:00
FIELD 201@->S0
END
2002-02-26 16:20:19 +00:00
STRINGA 18 27
BEGIN
KEY "banca d'appoggio istituto"
PROMPT 37 24 ""
FIELD 208@->S0
END
STRINGA 19 27
1998-01-20 15:45:20 +00:00
BEGIN
2002-02-26 16:20:19 +00:00
KEY "banca d'appoggio agenzia"
PROMPT 65 24 ""
1998-01-20 15:45:20 +00:00
FIELD 204@->S0
END
2002-02-26 16:20:19 +00:00
STRINGA 20 40 2
1998-01-20 15:45:20 +00:00
BEGIN
KEY "cliente ragione sociale "
2002-02-26 16:20:19 +00:00
PROMPT 48 11 ""
1998-01-20 15:45:20 +00:00
MESSAGE _CLIENTE,!RAGSOC
END
2002-02-26 16:20:19 +00:00
STRINGA 21 40 2
1998-01-20 15:45:20 +00:00
BEGIN
KEY "cliente indirizzo con numero civico"
2002-02-26 16:20:19 +00:00
PROMPT 48 13 ""
1998-01-20 15:45:20 +00:00
MESSAGE _CLIENTE,!INDNUM
END
2002-02-26 16:20:19 +00:00
STRING 22 40 1
1998-01-20 15:45:20 +00:00
BEGIN
2002-02-26 16:20:19 +00:00
KEY "destinatario, localita"
PROMPT 48 15 ""
MESSAGE _CLIENTE,LOCALITACF
1998-01-20 15:45:20 +00:00
END
STRINGA 23 5 1
BEGIN
KEY "cliente cap"
2002-02-26 16:20:19 +00:00
PROMPT 48 16 ""
1998-11-04 18:04:26 +00:00
MESSAGE _CLIENTE,!CAP
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
STRINGA 24 35 2
1998-01-20 15:45:20 +00:00
BEGIN
KEY "cliente comune"
2002-02-26 16:20:19 +00:00
PROMPT 54 16 ""
1998-01-20 15:45:20 +00:00
MESSAGE _CLIENTE,!COM->DENCOM
2002-02-26 16:20:19 +00:00
MESSAGE COPY,26
FLAGS "H"
1998-01-20 15:45:20 +00:00
END
STRINGA 25 2 1
BEGIN
KEY "cliente provincia"
2002-02-26 16:20:19 +00:00
PROMPT 77 17 ""
1998-01-20 15:45:20 +00:00
MESSAGE _CLIENTE,!COM->PROVCOM
2002-02-26 16:20:19 +00:00
MESSAGE APPEND,26
FLAGS "H"
END
STRINGA 26 30 2
BEGIN
KEY "cliente comune+prov."
PROMPT 54 16 ""
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
STRINGA 27 3
1998-01-20 15:45:20 +00:00
BEGIN
KEY "cliente codice stato"
PROMPT 44 17 ""
MESSAGE _CLIENTE,STATOCF
FLAGS "H"
END
2002-02-26 16:20:19 +00:00
STRINGA 28 25
1998-01-20 15:45:20 +00:00
BEGIN
KEY "cliente nome stato"
PROMPT 44 17 ""
2002-02-26 16:20:19 +00:00
MESSAGE _TABLEREAD,%STA,#27,S0
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
STRING 29 11
BEGIN
KEY "copy partita iva"
PROMPT 1 1 ""
MESSAGE _CLIENTE,PAIV
MESSAGE COPY,30
FLAGS "H"
END
STRING 30 11
BEGIN
KEY "test PIVA/CF"
PROMPT 1 1 ""
MESSAGE EMPTY ENABLE,32
MESSAGE ENABLE,31
FLAGS "H"
END
STRING 31 11
1998-01-20 15:45:20 +00:00
BEGIN
KEY "partita iva cliente"
2002-02-26 16:20:19 +00:00
PROMPT 36 22 ""
1998-01-20 15:45:20 +00:00
MESSAGE _CLIENTE,PAIV
2002-02-26 16:20:19 +00:00
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
STRING 32 16
BEGIN
KEY "codice fiscale cliente"
PROMPT 36 22 ""
MESSAGE _CLIENTE,COFI
FLAGS "D"
END
STRING 33 2
1998-01-20 15:45:20 +00:00
BEGIN
KEY "codice iso iva cliente"
2002-02-26 16:20:19 +00:00
PROMPT 35 23 ""
1998-01-20 15:45:20 +00:00
MESSAGE _CLIENTE,STATOPAIV
2002-02-26 16:20:19 +00:00
FLAGS "D"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
STRING 34 15
1998-01-20 15:45:20 +00:00
BEGIN
KEY "causale di trasporto"
2002-02-26 16:20:19 +00:00
PROMPT 75 22 ""
1998-01-20 15:45:20 +00:00
FIELD 207@->S0
END
2002-02-26 16:20:19 +00:00
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
1998-01-20 15:45:20 +00:00
END
SECTION BODY ODD 5
STRINGA 51 12 1
BEGIN
KEY "codice articolo"
FIELD 34->CODART
PROMPT 2 1 ""
END
2002-02-26 16:20:19 +00:00
STRINGA 52 20 22
1998-01-20 15:45:20 +00:00
BEGIN
KEY "descrizione articolo"
MESSAGE _DESCRIGA
PROMPT 16 1 ""
END
STRINGA 53 2
BEGIN
KEY "unita' di misura"
2002-02-26 16:20:19 +00:00
PROMPT 40 1 ""
1998-01-20 15:45:20 +00:00
FIELD 34->UMQTA
MESSAGE _ALIGN,#52,BOTTOM
END
2002-02-26 16:20:19 +00:00
NUMBER 54 10
1998-01-20 15:45:20 +00:00
BEGIN
KEY "quantita'"
2002-02-26 16:20:19 +00:00
PROMPT 45 1 ""
1998-01-20 15:45:20 +00:00
FIELD 34->QTA
2002-02-26 16:20:19 +00:00
PICTURE "##.###.###"
1998-01-20 15:45:20 +00:00
GROUP 30
MESSAGE _ALIGN,#52,BOTTOM
END
2002-02-26 16:20:19 +00:00
NUMBER 55 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "prezzo unitario"
2002-02-26 16:20:19 +00:00
PROMPT 57 1 ""
1998-01-20 15:45:20 +00:00
FIELD 34->PREZZO
PICTURE "###.###.###"
GROUP 29
MESSAGE _ALIGN,#52,BOTTOM
END
STRINGA 56 3
BEGIN
KEY "sconto"
2002-02-26 16:20:19 +00:00
PROMPT 70 1 ""
1998-01-20 15:45:20 +00:00
FIELD 34->SCONTO
MESSAGE _ALIGN,#52,BOTTOM
END
NUMBER 57 12
BEGIN
KEY "importo netto"
2002-02-26 16:20:19 +00:00
PROMPT 75 1 ""
FIELD 34->IMPNS
1998-01-20 15:45:20 +00:00
PICTURE "###.###.###"
GROUP 29
MESSAGE _ALIGN,#52,BOTTOM
END
STRINGA 58 3
BEGIN
KEY "iva"
2002-02-26 16:20:19 +00:00
PROMPT 90 1 ""
1998-01-20 15:45:20 +00:00
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
2002-02-26 16:20:19 +00:00
SECTION FOOTER ODD -49
1998-01-20 15:45:20 +00:00
2002-02-26 16:20:19 +00:00
STRINGA 100 5 1
1998-01-20 15:45:20 +00:00
BEGIN
KEY "stampa 'segue' in coda"
PROMPT 73 13 "SEGUE"
END
END
2002-02-26 16:20:19 +00:00
SECTION FOOTER LAST -49
1998-01-20 15:45:20 +00:00
NUMBER 101 12
BEGIN
2002-02-26 16:20:19 +00:00
KEY "totale importi netti (non scontati)"
PROMPT 2 3 ""
FIELD TOTMER
1998-01-20 15:45:20 +00:00
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
STRINGA 102 7
1998-01-20 15:45:20 +00:00
BEGIN
2002-02-26 16:20:19 +00:00
KEY "% sconto"
PROMPT 23 3 ""
FIELD 33->SCONTOPERC
END
NUMBER 103 11
BEGIN
KEY "totale sconti"
PROMPT 32 3 ""
FIELD SCONTOT
1998-01-20 15:45:20 +00:00
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 104 11
1998-01-20 15:45:20 +00:00
BEGIN
2002-02-26 16:20:19 +00:00
KEY "spese di trasporto"
PROMPT 46 3 ""
1998-01-20 15:45:20 +00:00
PICTURE "###.###.###"
2002-02-26 16:20:19 +00:00
FIELD SPESTRA
1998-01-20 15:45:20 +00:00
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 105 11
1998-01-20 15:45:20 +00:00
BEGIN
2002-02-26 16:20:19 +00:00
KEY "spese di imballo"
PROMPT 59 3 ""
PICTURE "###.###.###"
FIELD SPESIMB
1998-01-20 15:45:20 +00:00
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 106 11
1998-01-20 15:45:20 +00:00
BEGIN
2002-02-26 16:20:19 +00:00
KEY "acconto"
PROMPT 79 5 ""
FIELD 33->IMPPAGATO
PICTURE "###.###.###"
1998-01-20 15:45:20 +00:00
GROUP 31
END
2002-02-26 16:20:19 +00:00
STRING 107 3
1998-01-20 15:45:20 +00:00
BEGIN
KEY "codice iva 1"
2002-02-26 16:20:19 +00:00
PROMPT 2 5 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,COD,0
END
2002-02-26 16:20:19 +00:00
NUMBER 108 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "imponibile 1"
2002-02-26 16:20:19 +00:00
PROMPT 8 5 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 109 2
1998-01-20 15:45:20 +00:00
BEGIN
KEY "iva 1"
2002-02-26 16:20:19 +00:00
PROMPT 23 5 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##"
END
2002-02-26 16:20:19 +00:00
NUMBER 110 10
1998-01-20 15:45:20 +00:00
BEGIN
KEY "imposta 1"
2002-02-26 16:20:19 +00:00
PROMPT 28 5 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "##.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
STRING 111 3
1998-01-20 15:45:20 +00:00
BEGIN
KEY "codice iva 2"
2002-02-26 16:20:19 +00:00
PROMPT 2 6 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,COD,0
END
2002-02-26 16:20:19 +00:00
NUMBER 112 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "imponibile 2"
2002-02-26 16:20:19 +00:00
PROMPT 8 6 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 113 2
1998-01-20 15:45:20 +00:00
BEGIN
KEY "iva 2"
2002-02-26 16:20:19 +00:00
PROMPT 23 6 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##"
END
2002-02-26 16:20:19 +00:00
NUMBER 114 10
1998-01-20 15:45:20 +00:00
BEGIN
KEY "imposta 2"
2002-02-26 16:20:19 +00:00
PROMPT 28 6 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "##.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
STRING 115 3
1998-01-20 15:45:20 +00:00
BEGIN
KEY "codice iva 3"
2002-02-26 16:20:19 +00:00
PROMPT 2 7 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,COD,0
END
2002-02-26 16:20:19 +00:00
NUMBER 116 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "imponibile 3"
2002-02-26 16:20:19 +00:00
PROMPT 8 7 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,IMP,0
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 117 2
1998-01-20 15:45:20 +00:00
BEGIN
KEY "iva 3"
2002-02-26 16:20:19 +00:00
PROMPT 23 7 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,ALI,0
PICTURE "##"
END
2002-02-26 16:20:19 +00:00
NUMBER 118 10
1998-01-20 15:45:20 +00:00
BEGIN
KEY "imposta 3"
2002-02-26 16:20:19 +00:00
PROMPT 28 7 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,1,IVA,1
PICTURE "##.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 119 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "imponibile 4"
2002-02-26 16:20:19 +00:00
PROMPT 8 9 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,30,IMP,0
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
STRINGA 120 3
1998-01-20 15:45:20 +00:00
BEGIN
KEY "codice iva 4"
2002-02-26 16:20:19 +00:00
PROMPT 2 9 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,30,COD,0
END
2002-02-26 16:20:19 +00:00
STRINGA 121 45
1998-01-20 15:45:20 +00:00
BEGIN
KEY "descrizione altri 4"
2002-02-26 16:20:19 +00:00
PROMPT 44 9 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,30,DES,1
END
2002-02-26 16:20:19 +00:00
NUMBER 122 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "imponibile 5"
2002-02-26 16:20:19 +00:00
PROMPT 8 10 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,30,IMP,0
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
STRINGA 123 3
1998-01-20 15:45:20 +00:00
BEGIN
KEY "codice iva 5"
2002-02-26 16:20:19 +00:00
PROMPT 2 10 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,30,COD,0
END
2002-02-26 16:20:19 +00:00
STRINGA 124 45
1998-01-20 15:45:20 +00:00
BEGIN
KEY "descrizione altri 5"
2002-02-26 16:20:19 +00:00
PROMPT 44 10 ""
1998-01-20 15:45:20 +00:00
MESSAGE _RIEPILOGOIVA,30,DES,1
END
2002-02-26 16:20:19 +00:00
NUMBER 125 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "totale imponibile"
2002-02-26 16:20:19 +00:00
PROMPT 8 13 ""
1998-01-20 15:45:20 +00:00
MESSAGE _TOTIMPONIBILI,29
2002-02-26 16:20:19 +00:00
PICTURE "###.###.###"
1998-01-20 15:45:20 +00:00
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 126 11
1998-01-20 15:45:20 +00:00
BEGIN
KEY "totale imposta"
2002-02-26 16:20:19 +00:00
PROMPT 28 13 ""
1998-01-20 15:45:20 +00:00
FIELD IMPOSTE
2002-02-26 16:20:19 +00:00
PICTURE "###.###.###"
1998-01-20 15:45:20 +00:00
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 127 11
1998-01-20 15:45:20 +00:00
BEGIN
KEY "totale esenti"
2002-02-26 16:20:19 +00:00
PROMPT 44 13 ""
1998-01-20 15:45:20 +00:00
MESSAGE _TOTIMPONIBILI,28
2002-02-26 16:20:19 +00:00
PICTURE "###.###.###"
1998-01-20 15:45:20 +00:00
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 128 7
1998-01-20 15:45:20 +00:00
BEGIN
2002-02-26 16:20:19 +00:00
KEY "spese di incasso"
PROMPT 72 3 ""
PICTURE "###.###"
FIELD SPESINC
1998-01-20 15:45:20 +00:00
GROUP 31
END
2002-02-26 16:20:19 +00:00
NUMBER 129 7
BEGIN
KEY "spese bolli"
PROMPT 83 3 ""
FIELD BOLLI
PICTURE "###.###"
GROUP 31
END
NUMBER 130 11
1998-01-20 15:45:20 +00:00
BEGIN
KEY "totale fattura"
2002-02-26 16:20:19 +00:00
PROMPT 79 13 ""
1998-01-20 15:45:20 +00:00
FIELD TOTDOC
PICTURE "###.###.###"
GROUP 31
2002-02-26 16:20:19 +00:00
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
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
DATA 143 8
1998-01-20 15:45:20 +00:00
BEGIN
KEY "scadenza pagamento 1"
2002-02-26 16:20:19 +00:00
PROMPT 2 15 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,DATA,0
2002-02-26 16:20:19 +00:00
FORMAT "1442-"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
NUMBER 144 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "importo scadenza 1"
2002-02-26 16:20:19 +00:00
PROMPT 12 15 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
DATA 145 8
1998-01-20 15:45:20 +00:00
BEGIN
KEY "scadenza pagamento 2"
2002-02-26 16:20:19 +00:00
PROMPT 26 15 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,DATA,0
2002-02-26 16:20:19 +00:00
FORMAT "1442-"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
NUMBER 146 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "importo scadenza 2"
2002-02-26 16:20:19 +00:00
PROMPT 36 15 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
DATA 147 8 1
1998-01-20 15:45:20 +00:00
BEGIN
KEY "scadenza pagamento 3"
2002-02-26 16:20:19 +00:00
PROMPT 2 16 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,DATA,0
2002-02-26 16:20:19 +00:00
FORMAT "1442-"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
NUMBER 148 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "importo scadenza 3"
2002-02-26 16:20:19 +00:00
PROMPT 12 16 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
DATA 149 8 1
1998-01-20 15:45:20 +00:00
BEGIN
KEY "scadenza pagamento 4"
2002-02-26 16:20:19 +00:00
PROMPT 26 16 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,DATA,0
2002-02-26 16:20:19 +00:00
FORMAT "1442-"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
NUMBER 150 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "importo scadenza 4"
2002-02-26 16:20:19 +00:00
PROMPT 36 16 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
2002-02-26 16:20:19 +00:00
DATA 151 8 1
1998-01-20 15:45:20 +00:00
BEGIN
KEY "scadenza pagamento 5"
2002-02-26 16:20:19 +00:00
PROMPT 2 17 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,DATA,0
2002-02-26 16:20:19 +00:00
FORMAT "1442-"
1998-01-20 15:45:20 +00:00
END
2002-02-26 16:20:19 +00:00
NUMBER 152 12
1998-01-20 15:45:20 +00:00
BEGIN
KEY "importo scadenza 5"
2002-02-26 16:20:19 +00:00
PROMPT 12 17 ""
1998-01-20 15:45:20 +00:00
MESSAGE _SCADENZE,IMPORTO,1
PICTURE "###.###.###"
GROUP 31
END
END
// NOTE SULLA COMPILAZIONE DEI FORM DI STAMPA
//
// SEZIONE GENERAL
// ===============
// Posizionamento:
// e' possibile effettuari posizionamenti manuali dei form con le seguenti istruzioni:
// CARATTERE <S>
// INIZIALE <N> <N>
// FINALE <N> <N>
// dove:
// CARATTERE indica il carattere da stampare per contrassegnare il posizionamento, racchiuso tra doppi apici (eg "X")
// INIZIALE indica le coordinate X ed Y per il posizionamento iniziale (dove stampare il primo carattere)
// FINALE indica le coordinate X ed Y per il posizionamento finale (dove stampare il secondo carattere)
// FINALE puo' essere omesso; se definito e' comunque buona norma tenere la coordinata verticale (Y) uguale
// a quella indicata in INIZIALE, se diversi il programma tiene conto solo della prima.
// Non e' possibile definire sia posizionamenti manuali che OFFSET, quindi o l'uno o l'altro, preferibilmente
// e' meglio scegliere OFFSET.
//
// Modificatori di pictures:
// i parametri IMP_DECIMALS, QTA_DECIMALS, e PRI_DECIMALS settano i decimali da stampare/arrotondare
// per i seguenti: importi in genere, quantita', e prezzi. Il primo parametro intero e' per gli importi in lire
// il secondo per gli importi in valuta. Naturalmente per le quantita' non ha senso fare una cosa del genere, ma per completezza
// e' stata implementata.
// PRI_DECIMALS corrisponde al gruppo 29
// QTA_DECIMALS corrisponde al gruppo 30
// IMP_DECIMALS corrisponde al gruppo 31
// pertanto tutti i campi che apparterranno al gruppo 29,30 o 31 avranno gli importi stampati al numero di decimali impostati a
// seconda se il documento e' in lire o valuta. Se il numero di decimali e' 0 la picture rimarra' invariata.
// Altri gruppi definiti dall'utente saranno cosi' sintatticamente impostati:
// NEW_GROUP <n> <lit_dec> <val_dec>
// Dove <n> e' il numero del gruppo
// <lit_dec> e' il numero di decimali per i documenti in lire
// <val_dec> e' il numero di decimali per i documenti in valuta
//
// Definizione di liste di esclusione (facoltativo):
// EXCLUDE esclude dalla stampa le righe che soddisfano la condizione specificata.
// Si indicano in questo modo: "<tipo riga>,<cod. art>". Naturalmente si possono indicare tutti gli EXLCUDE che si vogliono.
// Es: EXCLUDE "V01,ART1" escludera' tutte le righe di tipo V01 con codice articolo ART1
// EXCLUDE ",ART1" escludera' tutte le righe che hanno codice articolo ART1
// EXCLUDE "V01," escludera' tutte le righe che hanno tipo riga V01
// EXCLUDE "," non escludera' nulla.
//
// MESSAGGI UTENTE
// ===============
// Note sui messaggi della testata/body/footer:
//
// _ISAMREAD:
// lettura generica di un file del database
// sintassi: _ISAMREAD,<file>,<espressione input>[!<espressione input>!...],{<campo file>|<espressione output>[!<espressione output>!...]}
// dove: <file> <20> il numero logico del file o il nome della tabella
// <espressione input> <20> un'espressione del tipo <campo file>=<espressione campi form>
// <espressione campi form> <20> un'espressione di costanti numeriche, stringhe e valori di campi della form (indicati con il loro numero preceduto da #)
// <espressione output> <20> un'espressione del tipo <campo form o gruppo>=<campo file> (se <20> un gruppo deve essere seguito da @) oppure solo <campo file> (il campo della form <20> quello corrente)
//
// _TABLEREAD:
// lettura generica di un campo di una tabella
// sintassi: _TABLEREAD,<tabella>,<chiave>,<campo file>
// dove: <tabella> nome tabella da leggere
// <chiave> costante stringa o riferimento a campo della form (preceduto da '#') da usare come chiave di ricerca
// <campo file> identificativo del campo da leggere dalla tabella
//
// _DITTA:
// lettura dei dati della ditta
// sintassi: _DITTA,{<campo relazione>|<macro>}
// dove: <campo relazione> <20> un riferimento alla relazione di gestione dei dati della ditta (es. 113@->DENCOM <20> la denominazione del comune di residenza della ditta)
// <macro> <20> uno delle macro seguenti:
// !RAGSOC ragione sociale
// !IND indirizzo (fiscale se c'<27> , oppure di residenza)
// !NUM numero civico (fiscale se c'<27> , oppure di residenza)
// !CAP CAP (fiscale se c'<27> , oppure di residenza)
// !COM comune (fiscale se c'<27> , oppure di residenza)
// !PROV provincia (fiscale se c'<27> , oppure di residenza)
// !IVA partita iva
// !CF codice fiscale
// !TEL numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso)
// !REGSOC numero di registrazione presso il Tribunale
// !CCIAA numero di registrazione presso la camera di commercio
// nota: la relazione della ditta <20> cos<6F> strutturata:
// %NDITTE (9) Dati ditte
// + %ANAGR (6) Anagrafica generale (indirizzo, ecc.)
// + %COMUNI (113@) Comune di residenza
// + %COMUNI (213@) Comune di residenza fiscale
// viene utilizzato perche' non e' possibile stabilire altrimenti una relazione con il file ditte
// dall'interno del form.
//
// _CLIENTE
// lettura dei dati del cliente
// sintassi: _CLIENTE,{<campo relazione>|<macro>}
// dove: <campo relazione> <20> un riferimento alla relazione di gestione dei dati del cliente
// <macro> <20> uno delle macro seguenti:
// !RAGSOC ragione sociale
1998-11-04 18:04:26 +00:00
// !CAP Codice Avviamento Postale (viene implementato un messaggio perche' sugli occasionali ha un nome campo diverso!!)
1998-01-20 15:45:20 +00:00
// !IND indirizzo
// !NUM numero civico
// !INDNUM indirizzo + numero civico
1998-08-25 18:07:30 +00:00
// !INDSPED indirizzo spedizione + numero civico
1998-01-20 15:45:20 +00:00
// !TEL primo numero di telefono (con prefisso)
// !TEL2 secondo numero di telefono (con prefisso)
// !TEL3 terzo numero di telefono (con prefisso)
// !FAX numero di fax (con prefisso)
// !COM-><FIELD> accede ai campi del comune di residenza cliente
// !COMN-><FIELD> accede ai campi del comune di nascita del cliente
// nota: la relazione del cliente <20> cos<6F> strutturata:
// CLIFO (20) Clienti/fornitori
// + CFVEN (17) Clienti/fornitori per vendite
// + %COMUNI (113@) Comune di residenza
// + %COMUNI (213@) Comune di nascita
// viene utilizzato al posto del file 17 collegato perche' vi sono particolari
// accorgimenti per quanto riguarda i clienti occasionali.
//
// _DESCRIGA:
// Messaggio per reperire e formattare anche la descrizione estesa sulle righe del documento
//
// _ALIGN:
// allineamento della posizione di un campo rispetto ad un altro
// sintassi: _ALIGN,<campo form>[,<allineamento>][,<allineamento>...]
// dove: <campo form> <20> il campo della form (preceduto da '#') da cui prendere l'allineamento
// <allineamento> <20> uno dei seguenti valori:
// TOP allinea sulla riga d'inizio
// MIDDLE allinea al centro (effettivo)
// BOTTOM allinea sulla riga di fine (effettiva, non preimpostata)
// LEFT allinea sulla colonna d'inizio
// RIGHT allinea sulla colonna di fine
//
// _PAGENO:
// Messaggio per stampare il numero di pagina corrente
//
// _RIEPILOGOIVA:
// messaggio per stampare la tabella ripelogativa delle aliquote IVA e relative imposte
// sintassi: _RIEPILOGOIVA,<selettore>,<macro>,<cambio codice>
// dove: <selettore> <20> uno dei seguenti:
// 1 = codici IVA a regime normale
// 2 = codici IVA da ventilare
// 4 = codici IVA esenti
// 8 = codici IVA non imponibili
// 16 = codici IVA non soggetti
// oppure la combinazione di uno o piu' di essi:
// 12 = 4+8, 19 = 1+2+16, 29 = 1+4+8+16 ecc...
// pertanto per avere i non imponibili in totale il selettore sara' 1,
// per avere gli esenti il selettore sara' 4; per avere i non soggetti + esenti
// il selettore sara' 20 e cosi' via.
// dove: <macro> <20> uno dei seguenti:
// COD colonna dei codici
// IMP colonna degli imponibili
// IVA colonna delle imposte
// ALI colonna delle aliquote
// DES colonna delle descrizioni (stampata solo se il regime IVA non e' normale)
// dove: <cambio codice> <20> uno dei seguenti:
// 0 indica di non leggere il successivo codice IVA nella tabella riepilogativa
// 1 indica di leggere il successivo codice IVA nella tabella riepilogativa
//
// _TOTIMPONIBILI:
// messaggio per stampare diverse totalizzazioni di imponibili
// sintassi: _TOTIMPONIBILI,<selettore>
// dove: <selettore> funge da filtro per la somma degli imponibili
// vedi _RIEPILOGOIVA per la spiegazione dei filtri selettivi
//
// _SCADENZE:
// messaggio per stampare le scadenze
// sintassi: _SCADENZE,<macro>,<cambio codice>
// dove <macro> e' uno dei seguenti:
// DATA : stampa la data di scadenza
// IMPORTO : stampa l'importo in scadenza
// dove <cambio codice> vale 0 o 1 se indica di rendere corrente la prossima scadenza
//
// CAMPI VIRTUALI
// ==============
// Oltre a stampare i campi normali del file e' anche possibile stampare i campi virtuali
// definiti nei profili semplicemente indicandoli nella istruzione FIELD:
// per la testata del documento:
// BOLLI, BASESCONTO, IMPOSTE, PROVVD, SCONTOD, SPESEINC, TOTDOC, TOTMER, TOTNS, TOTPRE, TOTSPE
// per le righe:
// IMPLN, IMPLS, IMPNN, IMPNS, IMPOSTA, PREZZOLN, PREZZOLS, PREZZONN, PREZZONS, PROVVR, SCONTOR
// oltre, naturalmente a quelli definiti dall'utente