From 788d0e281125c4c7f07fc95715e27cc906705d7e Mon Sep 17 00:00:00 2001
From: angelo <angelo@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 13 Aug 1996 15:41:44 +0000
Subject: [PATCH] Grosso passo in avanti per la stampa documenti. Manca da
 terminare il footer delle accompagnatorie.

git-svn-id: svn://10.65.10.50/trunk@3387 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 ve/veacc.frm    | 210 +++++++++++++++++++-------
 ve/vebol.frm    |  61 +++++++-
 ve/vebolbmp.frm |  70 +++++++--
 ve/vefat.frm    | 389 ++++++++++++++++++++++++++++++------------------
 4 files changed, 524 insertions(+), 206 deletions(-)

diff --git a/ve/veacc.frm b/ve/veacc.frm
index 6a9b0ff82..e73cb0ef6 100755
--- a/ve/veacc.frm
+++ b/ve/veacc.frm
@@ -1,3 +1,48 @@
+// - Codici per i totalizzatori:
+//   Questi vengono letti in G1 sulla testata:
+//   SPTRAS       spese di trasporto
+//   SPINC        spese incasso
+//   SPIMB        spese imballaggio
+//   SPBOL        spese bolli
+//   Questi vengono ricalcolati in stampa:
+//   TIMPONIBILI  totale imponibile (calcolato in stampa dalla tabella riepilogativa)
+//   TIMPOSTE     totale imposta    (calcolato in stampa dalla tabella riepilogativa)
+//   TESENTI      totale esenti     (calcolato in stampa dalla tabella riepilogativa)
+//   TIMPNETTI    totale importi netti (stesso codice per il totalizzatore della riga)
+//   TOTDOC       totale documento (fattura in questo caso)
+//
+//   Mappa dei selettori di filtro (parametro 2 di _RIEPILOGOIVA) per la stampa della tabella
+//   riepilogativa e dei totali esenti/imponibili/non soggetti/non imponibili:
+//   1 = regime normale
+//   2 = ventilare (non usato)
+//   4 = esenti
+//   8 = non imponibili
+//  16 = non soggetti
+//   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.
+//   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
+//   Istruzione EXCLUDE nella sezione GENERAL (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.
 
 // Completare la sezione "iva" nel body
 // Manca il campo "causale" nella section footer
@@ -43,37 +88,40 @@ BEGIN
   FONT "Courier New"
   SIZE 12
   MODULE BUFFETTI_FATTURA_ACCOMPAGNATORIA_01
+  PRI_DECIMALS 0 3
+  QTA_DECIMALS 3 3
+  IMP_DECIMALS 0 3
+  EXCLUDE ","
 END
 
-/////////////////////////////////////////////////
 SECTION HEADER ODD 27
 
 STRINGA 1 36 1
 BEGIN
  KEY "nome ditta"
  PROMPT 5 1 ""
- MESSAGE _DITTA !RAGSOC
+ MESSAGE _DITTA, !RAGSOC
 END
 
 STRINGA 2 36 1
 BEGIN
  KEY "indirizzo ditta"
  PROMPT 5 2 ""
- MESSAGE _DITTA !IND
+ MESSAGE _DITTA, !IND
 END
 
 STRINGA 3 5 1
 BEGIN
  KEY "cap ditta"
  PROMPT 5 3 ""
- MESSAGE _DITTA !CAP
+ MESSAGE _DITTA, !CAP
 END
 
 STRINGA 4 30 1
 BEGIN
  KEY "comune ditta"
  PROMPT 12 3 ""
- MESSAGE _DITTA !COM
+ MESSAGE _DITTA, !COM
 END
 
 STRINGA 5 5 1
@@ -86,7 +134,7 @@ STRINGA 6 16 1
 BEGIN
  KEY "partita iva ditta"
  PROMPT 11 4 ""
- MESSAGE _DITTA !PIVA
+ MESSAGE _DITTA, !PIVA
 END
 
 STRINGA 7 9 1
@@ -99,73 +147,66 @@ STRINGA 8 16 1
 BEGIN
  KEY "codice fiscale ditta"
  PROMPT 15 5 ""
- MESSAGE _DITTA !CF
+ MESSAGE _DITTA, !CF
 END
 
-NUMERO 9
+NUMERO 9 30 1
 BEGIN
  KEY "reg.soc.trib...."
- PROMPT 5 6 ""
+ PROMPT  5 6 "REG.SOC.TRIB.R.E.  "
+ MESSAGE _DITTA, !REGSOC
 END
 
-NUMERO 10
-BEGIN
- KEY "reg.soc.trib...."
- PROMPT 15 6 ""
-END
-
-STRINGA 9 
-BEGIN
- KEY "reg.soc.trib...."
- PROMPT 5 6 "REG.SOC.TRIB.R.E. 8897"
-END
-
-NUMERO 12
+NUMERO 12 30 1 
 BEGIN
  KEY "c.c.i.a.a. 143011"
- PROMPT 5 7 "C.C.I.A.A. 143011"
-END
+ PROMPT 5 7 "C.C.I.A.A.         "
+ MESSAGE _DITTA, !CCIAA
+ END
 
 STRINGA 14 36 2
 BEGIN
  KEY "destinatario, ditta"
  PROMPT 44 10 ""
- FIELD 20->RAGSOC
+ MESSAGE _CLIENTE,!RAGSOC
 END
 
 STRINGA 15 36 2
 BEGIN
  KEY "destinatario, indirizzo"
  PROMPT 44 12 ""
- FIELD 20->INDCF
+ MESSAGE _CLIENTE,!INDNUM
 END
 
 STRINGA 16 5 1
 BEGIN
  KEY "destinatario, cap"
  PROMPT 44 14 ""
+ MESSAGE _CLIENTE,!CAP 
 END
 
 STRINGA 17 30 2
 BEGIN
  KEY "destinatario, comune"
  PROMPT 50 14 ""
+ MESSAGE _CLIENTE,!COM
 END
 
 STRINGA 18 2 1
 BEGIN
  KEY "destinatario, provincia"
  PROMPT 77 15 ""
+ MESSAGE _CLIENTE,!PROV
 END
 
-STRINGA 19 8 1
+STRINGA 19 10 1
 BEGIN
  KEY "data bolla"
  PROMPT 58 19 ""
  FIELD 33->DATADOC
 END
 
-STRINGA 20 5 1
+STRINGA 20 7
 BEGIN
  KEY "numero bolla"
  PROMPT 67 19 ""
@@ -183,6 +224,7 @@ STRINGA 84 30 1
 BEGIN
  KEY "destinazione, cap"
  PROMPT 1 12 ""
+ FIELD 16->CAP
 END
 
 STRINGA 85 50 1
@@ -196,6 +238,14 @@ STRINGA 86 30 1
 BEGIN
  KEY "destinazione, comune"
  PROMPT 1 14 ""
+ MESSAGE _ISAMREAD,13,COM=#49,DENCOM
+END
+
+STRINGA 87 2 1
+BEGIN
+ KEY "destinazione, provincia"
+ PROMPT 31 14 ""
+ MESSAGE _ISAMREAD,13,COM=#49,PROVCOM
 END
 
 STRINGA 22 26 1
@@ -205,7 +255,7 @@ BEGIN
  FIELD 33->NUMDOCRIF
 END
 
-DATA 23 8 1
+DATA 23 10
 BEGIN
  KEY "data conferma"
  PROMPT 28 19 ""
@@ -238,7 +288,7 @@ STRINGA 27 16 1
 BEGIN
  KEY "partita iva cliente"
  PROMPT 16 23 ""
- FIELD 17->PAIV
+ MESSAGE _CLIENTE,!IVA
 END
 
 STRINGA 28 25 1
@@ -255,6 +305,13 @@ BEGIN
  FIELD 33->CODAG
 END
 
+STRING 88 28 
+BEGIN
+ KEY "nome agente"
+ PROMPT 5 23 ""
+ FIELD 202@->S0
+END
+
 STRINGA 30 21 1
 BEGIN
  KEY "vettore"
@@ -263,63 +320,108 @@ END
 
 END
 
-/////////////////////////////////////////////////
-SECTION BODY ODD 1
+SECTION BODY ODD 5
 
-STRINGA 31 8 1
+STRINGA 31 13 1
 BEGIN
  KEY "codice articolo"
  PROMPT 1 1 ""
  FIELD 34->CODART
 END
 
-STRINGA 32 30 1
+STRINGA 32 30 4
 BEGIN
  KEY "descrizione articolo"
  PROMPT 17 1 ""
- FIELD 47->DESCR
+ MESSAGE _DESCRIGA
 END
 
-NUMERO 33
+STRINGA 33 2
 BEGIN
  KEY "unita' di misura"
  PROMPT 46 1 ""
+ FIELD 34->UMQTA
+ MESSAGE _ALIGN,#32,BOTTOM
 END
 
-STRINGA 34 6 1
+NUMBER 34 10
 BEGIN
  KEY "quantita'"
- PROMPT 10 1 ""
+ PROMPT 49 1 ""
+ PICTURE "######"
+ GROUP 30
  FIELD 34->QTA
+ MESSAGE _ALIGN,#32,BOTTOM
 END
 
-STRINGA 35 8 1
+NUMBER 35 15
 BEGIN
  KEY "prezzo unitario"
- PROMPT 48 1 ""
+ PROMPT 59 1 ""
+ PICTURE "###.###.###.###"
+ GROUP 29
+ FIELD 34->PREZZO
+ MESSAGE _ALIGN,#32,BOTTOM
 END
 
-STRINGA 36 8 1
+STRINGA 36 20
 BEGIN
  KEY "sconto"
- PROMPT 57 1 ""
+ PROMPT 75 1 ""
+ FIELD 34->SCONTO
+ MESSAGE _ALIGN,#32,BOTTOM 
 END
 
-STRINGA 37 9 1
+NUMBER 37 15
 BEGIN
  KEY "importo netto"
- PROMPT 66 1 ""
+ PROMPT  68 1 ""
+ FLAGS "H"
+ GROUP 29
+ PICTURE "###.###.###.###"
+ MESSAGE _TOTAL_RIGA,IMPNETTO|_ALIGN,#32,BOTTOM
 END
 
 STRINGA 38 3 1
 BEGIN
  KEY "iva"
- PROMPT 76 1 ""
+ PROMPT 81 1 ""
+ FIELD 34->CODIVA
+ MESSAGE _ALIGN,#32,BOTTOM
+END
+
+NUMBER 40 15
+BEGIN
+ KEY "prezzo unitario scontato"
+ PROMPT  68 1 ""
+ PICTURE "###.###.###.###"
+ GROUP 29
+ MESSAGE _TOTAL_RIGA,IMPUNITARIO|_ALIGN,#33,BOTTOM
+ FLAGS "H"
+END
+
+NUMBER 41 15
+BEGIN
+ KEY "provvigione"
+ PROMPT  68 1 ""
+ PICTURE "###.###.###.###"
+ MESSAGE _TOTAL_RIGA,PROVVIGIONE|_ALIGN,#33,BOTTOM
+ GROUP 31
+ FLAGS "H"
+END
+
+NUMBER 42 15
+BEGIN
+ KEY "Imposta"
+ PROMPT  68 1 ""
+ PICTURE "###.###.###.###"
+ MESSAGE _TOTAL_RIGA,IMPOSTA|_ALIGN,#33,BOTTOM
+ GROUP 31
+ FLAGS "H"
 END
 
 END
 
-/////////////////////////////////////////////////
 SECTION FOOTER LAST 19
 
 STRINGA 71 5 1
@@ -330,25 +432,33 @@ END
 
 END
 
-/////////////////////////////////////////////////
 SECTION FOOTER ODD 19
 
-STRINGA 39 11 1
+NUMBER 39 15
 BEGIN
  KEY "spese di trasporto"
  PROMPT 43 52 ""
+ MESSAGE _TOTAL_CODA,SPTRAS
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 40 11 1
+NUMBER 40 115
 BEGIN
  KEY "spese di incasso"
  PROMPT 55 50 ""
+ MESSAGE _TOTAL_CODA,SPINC
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 41 11 1
+NUMBER 41 15
 BEGIN
  KEY "spese bolli"
  PROMPT 55 52 ""
+ MESSAGE _TOTAL_CODA,SPIMB
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
 STRINGA 42 21 1
diff --git a/ve/vebol.frm b/ve/vebol.frm
index 67648428c..42533cf59 100755
--- a/ve/vebol.frm
+++ b/ve/vebol.frm
@@ -1,3 +1,49 @@
+// - Codici per i totalizzatori:
+//   Questi vengono letti in G1 sulla testata:
+//   SPTRAS       spese di trasporto
+//   SPINC        spese incasso
+//   SPIMB        spese imballaggio
+//   SPBOL        spese bolli
+//   Questi vengono ricalcolati in stampa:
+//   TIMPONIBILI  totale imponibile (calcolato in stampa dalla tabella riepilogativa)
+//   TIMPOSTE     totale imposta    (calcolato in stampa dalla tabella riepilogativa)
+//   TESENTI      totale esenti     (calcolato in stampa dalla tabella riepilogativa)
+//   TIMPNETTI    totale importi netti (stesso codice per il totalizzatore della riga)
+//   TOTDOC       totale documento (fattura in questo caso)
+//
+//   Mappa dei selettori di filtro (parametro 2 di _RIEPILOGOIVA) per la stampa della tabella
+//   riepilogativa e dei totali esenti/imponibili/non soggetti/non imponibili:
+//   1 = regime normale
+//   2 = ventilare (non usato)
+//   4 = esenti
+//   8 = non imponibili
+//  16 = non soggetti
+//   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.
+//   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
+
+//   Istruzione EXCLUDE nella sezione GENERAL (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.
 
 USE 34
 JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
@@ -32,6 +78,10 @@ BEGIN
   FONT "Courier New"
   SIZE 12
   MODULE "BUFFETTI_BOLLA_01"
+  PRI_DECIMALS 0 3
+  QTA_DECIMALS 3 3
+  IMP_DECIMALS 0 3
+  EXCLUDE ","
 END
 
 
@@ -134,7 +184,7 @@ BEGIN
  FORMAT "1442-"
 END
 
-NUMBER 20
+NUMBER 20 7
 BEGIN
  KEY "numero bolla"
  PROMPT 71 25 ""
@@ -184,12 +234,12 @@ BEGIN
  FIELD 33->NUMDOCRIF
 END
 
-DATE 23 8 1
+DATE 23 10
 BEGIN
  KEY "data conferma"
  PROMPT 16 25 ""
  FIELD 33->DATADOCRIF
- FORMAT "1442-"
+ FORMAT "1444-"
 END
 
 STRING 24 48 1
@@ -267,11 +317,12 @@ BEGIN
  MESSAGE _ALIGN,#33,BOTTOM
 END
 
-STRING 35 10
+NUMBER 35 10
 BEGIN
  KEY "quantita"
  PROMPT 60 1 ""
- PICTURE "@@@@@@,@@@"
+ PICTURE "######"
+ GROUP 30
  FIELD 34->QTA
  MESSAGE _ALIGN,#33,BOTTOM
 END
diff --git a/ve/vebolbmp.frm b/ve/vebolbmp.frm
index 2ff8db289..99dbe0457 100755
--- a/ve/vebolbmp.frm
+++ b/ve/vebolbmp.frm
@@ -1,3 +1,50 @@
+// - Codici per i totalizzatori:
+//   Questi vengono letti in G1 sulla testata:
+//   SPTRAS       spese di trasporto
+//   SPINC        spese incasso
+//   SPIMB        spese imballaggio
+//   SPBOL        spese bolli
+//   Questi vengono ricalcolati in stampa:
+//   TIMPONIBILI  totale imponibile (calcolato in stampa dalla tabella riepilogativa)
+//   TIMPOSTE     totale imposta    (calcolato in stampa dalla tabella riepilogativa)
+//   TESENTI      totale esenti     (calcolato in stampa dalla tabella riepilogativa)
+//   TIMPNETTI    totale importi netti (stesso codice per il totalizzatore della riga)
+//   TOTDOC       totale documento (fattura in questo caso)
+//
+//   Mappa dei selettori di filtro (parametro 2 di _RIEPILOGOIVA) per la stampa della tabella
+//   riepilogativa e dei totali esenti/imponibili/non soggetti/non imponibili:
+//   1 = regime normale
+//   2 = ventilare (non usato)
+//   4 = esenti
+//   8 = non imponibili
+//  16 = non soggetti
+//   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.
+//   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
+
+//   Istruzione EXCLUDE nella sezione GENERAL (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.
+
 
 USE 34
 JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
@@ -32,17 +79,21 @@ BEGIN
   FONT "Courier New"
   SIZE 12
   MODULE "BUFFETTI_BOLLA_01"
+  PRI_DECIMALS 0 3
+  QTA_DECIMALS 3 3
+  IMP_DECIMALS 0 3
+  EXCLUDE ","
 END
 
 
-//SECTION GRAPHICS ODD 
+SECTION GRAPHICS ODD 
 
-//FIGURA 99 80 65
-//BEGIN
-//  PROMPT 1 1 "bolla.bmp"
-//END
+FIGURA 99 80 65
+BEGIN
+  PROMPT 1 1 "bolla.bmp"
+END
 
-//END
+END
 
 SECTION HEADER ODD 29
 
@@ -143,7 +194,7 @@ BEGIN
  FORMAT "1442-"
 END
 
-NUMBER 20
+NUMBER 20 7
 BEGIN
  KEY "numero bolla"
  PROMPT 71 21 ""
@@ -278,11 +329,12 @@ BEGIN
  MESSAGE _ALIGN,#33,TOP
 END
 
-STRING 35 10
+NUMBER 35 10
 BEGIN
  KEY "quantita"
  PROMPT 17 1 ""
- PICTURE "@@@@@@,@@@"
+ PICTURE "######"
+ GROUP 30 
  FIELD 34->QTA
  MESSAGE _ALIGN,#33,TOP
 END
diff --git a/ve/vefat.frm b/ve/vefat.frm
index d3aafa0f2..6503e44c1 100755
--- a/ve/vefat.frm
+++ b/ve/vefat.frm
@@ -1,22 +1,48 @@
-
-// - I FIELD sul file 20 (clifo) vanno sostituiti con messaggi _CLIENTE.
-// - "Cliente provincia" e' gestito dalla relazione. Dovra' essere gestito da un messaggio _CLIENTE
-// - Manca "azzera totalizzatore 1"
-// - Completare "iva" nelle righe della fattura
-// - Nella coda della fattura, completare i campi che non sono totalizzatori
 // - Codici per i totalizzatori:
+//   Questi vengono letti in G1 sulla testata:
 //   SPTRAS       spese di trasporto
 //   SPINC        spese incasso
 //   SPIMB        spese imballaggio
 //   SPBOL        spese bolli
-//   TIMP         totale imponibile
-//   TIMPS        totale imposta
-//   TESEN        totale esenti
-//   IMPNETTO     totale importi netti (stesso codice per il totalizzatore della riga)
-//   TFATT        totale fattura
-//   NETPAG       netto da pagare
+//   Questi vengono ricalcolati in stampa:
+//   TIMPONIBILI  totale imponibile (calcolato in stampa dalla tabella riepilogativa)
+//   TIMPOSTE     totale imposta    (calcolato in stampa dalla tabella riepilogativa)
+//   TESENTI      totale esenti     (calcolato in stampa dalla tabella riepilogativa)
+//   TIMPNETTI    totale importi netti (stesso codice per il totalizzatore della riga)
+//   TOTDOC       totale documento (fattura in questo caso)
 //
-// Togliere dalla relazione i files che non servono, quando tutti i campi sono OK.
+//   Mappa dei selettori di filtro (parametro 2 di _RIEPILOGOIVA) per la stampa della tabella
+//   riepilogativa e dei totali esenti/imponibili/non soggetti/non imponibili:
+//   1 = regime normale
+//   2 = ventilare (non usato)
+//   4 = esenti
+//   8 = non imponibili
+//  16 = non soggetti
+//   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.
+//   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
+//   Istruzione EXCLUDE nella sezione GENERAL (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.
 
 USE 34
 JOIN 33 INTO CODNUM==CODNUM ANNO==ANNO PROVV==PROVV NDOC==NDOC
@@ -55,13 +81,14 @@ BEGIN
   OFFSET 0 0
   FONT "Courier New"
   SIZE 12
-  MODULE BUFFETTI_FATTURA_01
-  PRI_DECIMALS 0 2
-  QTA_DECIMALS 3
-  IMP_DECIMALS 0 2
+  MODULE "BUFFETTI_FATTURA_01"
+  PRI_DECIMALS 0 3
+  QTA_DECIMALS 3 3
+  IMP_DECIMALS 0 3
+  EXCLUDE ","
 END
 
-/////////////////////////////////////////////////
+
 SECTION HEADER ODD 28
 
 STRINGA 1 35 1
@@ -118,31 +145,31 @@ BEGIN
  MESSAGE _DITTA, !CF
 END
 
-NUMERO 9 10 1
+NUMERO 9 30 1
 BEGIN
  KEY "reg.soc.trib...."
- PROMPT  3 9 "REG.SOC.TRIB.R.E.     "
+ PROMPT  3 9 "REG.SOC.TRIB.R.E.  "
  MESSAGE _DITTA, !REGSOC
 END
 
-NUMERO 12 10 1
+NUMERO 12 30 1
 BEGIN
  KEY "c.c.i.a.a. ....."
- PROMPT  3 10 "C.C.I.A.A.       "
+ PROMPT  3 10 "C.C.I.A.A.         "
  MESSAGE _DITTA, !CCIAA
 END
 
-STRINGA 14 8 1
+STRINGA 14 10 1
 BEGIN
  KEY "data fattura"
  PROMPT  61 21 ""
  FILED 33->DATADOC
 END
 
-STRINGA 15 5 1
+STRINGA 15 7
 BEGIN
  KEY "numero fattura"
- PROMPT  71 21 ""
+ PROMPT  74 21 ""
  FIELD 33->NDOC
 END
 
@@ -174,7 +201,7 @@ BEGIN
  FIELD 33->NUMDOCRIF
 END
 
-DATA 20 8 1
+DATA 20 10 1
 BEGIN
  KEY "data conferma"
  PROMPT  20 23 ""
@@ -238,15 +265,8 @@ BEGIN
  MESSAGE _CLIENTE,!PROV
 END
 
-STRINGA 31 2 1
-BEGIN
- KEY "azzera totalizzatore 1"
- PROMPT  73 16 ""
 END
 
-END
-
-/////////////////////////////////////////////////
 SECTION BODY ODD 5
 
 STRINGA 32 13 1
@@ -266,25 +286,27 @@ END
 STRINGA 34 2
 BEGIN
  KEY "unita' di misura"
- PROMPT  38 1 ""
+ PROMPT  42 1 ""
  FIELD 34->UMQTA
  MESSAGE _ALIGN,#33,BOTTOM
 END
 
-STRING 35 10
+NUMBER 35 10
 BEGIN
  KEY "quantita'"
- PROMPT  42 1 ""
- PICTURE "@@@@@@@,@@@"
+ PROMPT  45 1 ""
+ PICTURE "######"
+ GROUP 30
  FIELD 34->QTA
  MESSAGE _ALIGN,#33,BOTTOM
 END
 
-STRINGA 36 15
+NUMBER 36 15
 BEGIN
  KEY "prezzo unitario"
- PROMPT  52 1 ""
- PICTURE "###.###.###,@@@"
+ PROMPT  56 1 ""
+ PICTURE "###.###.###.###"
+ GROUP 29
  FIELD 34->PREZZO
  MESSAGE _ALIGN,#33,BOTTOM
 END
@@ -292,16 +314,18 @@ END
 STRINGA 37 25
 BEGIN
  KEY "sconto"
- PROMPT  64 1 ""
+ PROMPT  72 1 ""
  FIELD 34->SCONTO
  MESSAGE _ALIGN,#33,BOTTOM
 END
 
-STRINGA 38 15
+NUMBER 38 15
 BEGIN
  KEY "importo netto"
  PROMPT  68 1 ""
- PICTURE "###.###.###,@@@"
+ FLAGS "H"
+ GROUP 29
+ PICTURE "###.###.###.###"
  MESSAGE _TOTAL_RIGA,IMPNETTO|_ALIGN,#33,BOTTOM
 END
 
@@ -313,36 +337,38 @@ BEGIN
  MESSAGE _ALIGN,#33,BOTTOM
 END
 
-STRINGA 40 15
+NUMBER 40 15
 BEGIN
  KEY "prezzo unitario scontato"
  PROMPT  68 1 ""
- PICTURE "###.###.###,@@@"
+ PICTURE "###.###.###.###"
+ GROUP 29
  MESSAGE _TOTAL_RIGA,IMPUNITARIO|_ALIGN,#33,BOTTOM
- FLAGS "D"
+ FLAGS "H"
 END
 
-STRINGA 41 15
+NUMBER 41 15
 BEGIN
  KEY "provvigione"
  PROMPT  68 1 ""
- PICTURE "###.###.###,@@@"
+ PICTURE "###.###.###.###"
  MESSAGE _TOTAL_RIGA,PROVVIGIONE|_ALIGN,#33,BOTTOM
- FLAGS "D"
+ GROUP 31
+ FLAGS "H"
 END
 
-STRINGA 42 15
+NUMBER 42 15
 BEGIN
  KEY "Imposta"
  PROMPT  68 1 ""
- PICTURE "###.###.###,@@@"
+ PICTURE "###.###.###.###"
  MESSAGE _TOTAL_RIGA,IMPOSTA|_ALIGN,#33,BOTTOM
- FLAGS "D"
+ GROUP 31
+ FLAGS "H"
 END
 
 END
 
-/////////////////////////////////////////////////
 SECTION FOOTER ODD 13
 
 STRINGA 76 5 1
@@ -353,233 +379,312 @@ END
 
 END
 
-/////////////////////////////////////////////////
 SECTION FOOTER LAST 13
 
-STRINGA 40 11 1
+NUMBER 40 15 
 BEGIN
  KEY "spese di trasporto"
- PROMPT  42 53 ""
+ PROMPT  56 3 ""
  MESSAGE _TOTAL_CODA,SPTRAS
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 41 6 1
+NUMBER 41 15 
 BEGIN
  KEY "spese di incasso"
- PROMPT  56 63 ""
+ PROMPT  56 5 ""
  MESSAGE _TOTAL_CODA,SPINC
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 42 11 1
+NUMBER 42 15 
 BEGIN
  KEY "spese di imballo"
- PROMPT  56 53 ""
+ PROMPT  56 4 ""
  MESSAGE _TOTAL_CODA,SPIMB
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 43 5 1
+NUMBER 43 11 
 BEGIN
  KEY "spese bolli"
- PROMPT  64 63 ""
+ PROMPT  60 6 ""
  MESSAGE _TOTAL_CODA,SPBOL
+ PICTURE "###.###.###"
+ GROUP 31
 END
 
-STRINGA 44 11 1
+STRING 76 4 
+BEGIN
+ KEY "codice iva 1"
+ PROMPT  2 2 ""
+ MESSAGE _RIEPILOGOIVA,1,COD,0
+END
+
+NUMBER 44 15 
 BEGIN
  KEY "imponibile 1"
- PROMPT  7 56 ""
+ PROMPT  7 2 ""
+ MESSAGE _RIEPILOGOIVA,1,IMP,0
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 45 2 1
+NUMBER 45 5 
 BEGIN
  KEY "iva 1"
- PROMPT  20 56 ""
+ PROMPT  23 2 ""
+ MESSAGE _RIEPILOGOIVA,1,ALI,0
+ PICTURE "##,@@"
 END
 
-STRINGA 46 11 1
+NUMBER 46 15 
 BEGIN
  KEY "imposta 1"
- PROMPT  23 56 ""
+ PROMPT  28 2 ""
+ MESSAGE _RIEPILOGOIVA,1,IVA,1
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 47 11 1
+STRING 77 4 
+BEGIN
+ KEY "codice iva 2"
+ PROMPT  2 3 ""
+ MESSAGE _RIEPILOGOIVA,1,COD,0
+END
+
+NUMBER 47 15 
 BEGIN
  KEY "imponibile 2"
- PROMPT  7 57 ""
+ PROMPT  7 3 ""
+ MESSAGE _RIEPILOGOIVA,1,IMP,0
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 48 2 1
+NUMBER 48 5 
 BEGIN
  KEY "iva 2"
- PROMPT  20 57 ""
+ PROMPT  23 3 ""
+ MESSAGE _RIEPILOGOIVA,1,ALI,0
+ PICTURE "##,@@"
 END
 
-STRINGA 49 11 1
+NUMBER 49 15 
 BEGIN
  KEY "imposta 2"
- PROMPT  23 57 ""
+ PROMPT  28 3 ""
+ MESSAGE _RIEPILOGOIVA,1,IVA,1
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 50 11 1
+STRING 78 4 
+BEGIN
+ KEY "codice iva 3"
+ PROMPT  2 4 ""
+ MESSAGE _RIEPILOGOIVA,1,COD,0
+END
+
+NUMBER 50 15 
 BEGIN
  KEY "imponibile 3"
- PROMPT  7 58 ""
+ PROMPT  7 4 ""
+ MESSAGE _RIEPILOGOIVA,1,IMP,0
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 51 2 1
+NUMBER 51 5 
 BEGIN
  KEY "iva 3"
- PROMPT  20 58 ""
+ PROMPT  23 4 ""
+ MESSAGE _RIEPILOGOIVA,1,ALI,0
+ PICTURE "##,@@"
 END
 
-STRINGA 52 11 1
+NUMBER 52 15 
 BEGIN
  KEY "imposta 3"
- PROMPT  23 58 ""
+ PROMPT  28 4 ""
+ MESSAGE _RIEPILOGOIVA,1,IVA,1
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 53 11 1
+NUMBER 53 15
 BEGIN
  KEY "imponibile 4"
- PROMPT  7 59 ""
+ PROMPT  7 5 ""
+ MESSAGE _RIEPILOGOIVA,30,IMP,0
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 54 3 1
+STRINGA 54 4 
 BEGIN
- KEY "iva 4"
- PROMPT  2 59 ""
+ KEY "codice iva 4"
+ PROMPT  2 5 ""
+ MESSAGE _RIEPILOGOIVA,30,COD,0
 END
 
-STRINGA 55 45 1
+STRINGA 55 45 
 BEGIN
  KEY "descrizione altri 4"
- PROMPT  36 59 ""
+ PROMPT  23 5 ""
+ MESSAGE _RIEPILOGOIVA,30,DES,1
 END
 
-STRINGA 56 11 1
+NUMBER 56 15 
 BEGIN
  KEY "imponibile 5"
- PROMPT  7 60 ""
+ PROMPT  7 6 ""
+ MESSAGE _RIEPILOGOIVA,30,IMP,0
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 57 3 1
+STRINGA 57 4 
 BEGIN
- KEY "iva 5"
- PROMPT  2 60 ""
+ KEY "codice iva 5"
+ PROMPT  2 6 ""
+ MESSAGE _RIEPILOGOIVA,30,COD,0
 END
 
-STRINGA 58 45 1
+STRINGA 58 45 
 BEGIN
  KEY "descrizione altri 5"
- PROMPT  36 60 ""
+ PROMPT  23 6 ""
+ MESSAGE _RIEPILOGOIVA,30,DES,1
 END
 
-STRINGA 59 12 1
+NUMBER 59 15 
 BEGIN
  KEY "totale imponibile"
- PROMPT  6 63 ""
- MESSAGE _TOTAL_CODA,TIMP 
+ PROMPT  71 6 ""
+ MESSAGE _TOTAL_CODA,TIMPONIBILI,1
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 60 11 1
+NUMBER 60 15 
 BEGIN
  KEY "totale imposta"
- PROMPT  23 63 ""
- MESSAGE _TOTAL_CODA,TIMPS
+ PROMPT  71 7 ""
+ MESSAGE _TOTAL_CODA,TIMPOSTE
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 61 9 1
+NUMBER 61 15 
 BEGIN
  KEY "totale esenti"
- PROMPT  36 63 ""
- MESSAGE _TOTAL_CODA,TESEN
+ PROMPT  71 8 ""
+ MESSAGE _TOTAL_CODA,TIMPONIBILI,4
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 62 11 1
+NUMBER 62 15 
 BEGIN
  KEY "totale importi netti"
- PROMPT  3 53 ""
- MESSAGE _TOTAL_CODA,IMPNETTO
+ PROMPT  71 1 ""
+ MESSAGE _TOTAL_CODA,TIMPNETTI
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 63 12 1
+NUMBER 63 15 
 BEGIN
  KEY "totale fattura"
- PROMPT  71 63 ""
- MESSAGE _TOTAL_CODA,TFATT
+ PROMPT  71 9 ""
+ MESSAGE _TOTAL_CODA,TOTDOC
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 64 8 1
+DATA 64 10 1
 BEGIN
  KEY "scadenza pagamento 1"
- PROMPT  3 66 ""
+ PROMPT  3 10 ""
+ MESSAGE _SCADENZE,DATA,0
 END
 
-STRINGA 65 11 1
+NUMBER 65 15 
 BEGIN
  KEY "importo scadenza 1"
- PROMPT  15 66 ""
+ PROMPT  16 10 ""
+ MESSAGE _SCADENZE,IMPORTO,1
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 66 8 1
+DATA 66 10 1
 BEGIN
  KEY "scadenza pagamento 2"
- PROMPT  3 68 ""
+ PROMPT  32 10 ""
+ MESSAGE _SCADENZE,DATA,0
 END
 
-STRINGA 67 11 1
+NUMBER 67 15
 BEGIN
  KEY "importo scadenza 2"
- PROMPT  15 68 ""
+ PROMPT  45 10 ""
+ MESSAGE _SCADENZE,IMPORTO,1
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 68 8 1
+DATA 68 10 1
 BEGIN
  KEY "scadenza pagamento 3"
- PROMPT  30 68 ""
+ PROMPT  3 11 ""
+ MESSAGE _SCADENZE,DATA,0
 END
 
-STRINGA 69 11 1
+NUMBER 69 15 
 BEGIN
  KEY "importo scadenza 3"
- PROMPT  42 68 ""
+ PROMPT  16 11 ""
+ MESSAGE _SCADENZE,IMPORTO,1
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 70 8 1
+DATA 70 10 1
 BEGIN
  KEY "scadenza pagamento 4"
- PROMPT  3 69 ""
+ PROMPT  32 11 ""
+ MESSAGE _SCADENZE,DATA,0
 END
 
-STRINGA 71 11 1
+NUMBER 71 15 
 BEGIN
  KEY "importo scadenza 4"
- PROMPT  15 69 ""
+ PROMPT  45 11 ""
+ MESSAGE _SCADENZE,IMPORTO,1
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
-STRINGA 72 8 1
+DATA 72 10 1
 BEGIN
  KEY "scadenza pagamento 5"
- PROMPT  30 69 ""
+ PROMPT  3 12 ""
+ MESSAGE _SCADENZE,DATA,0
 END
 
-STRINGA 73 11 1
+NUMBER 73 15 
 BEGIN
  KEY "importo scadenza 5"
- PROMPT  42 69 ""
-END
-
-STRINGA 74 10 1
-BEGIN
- KEY "anticipo"
- PROMPT  47 66 ""
-END
-
-STRINGA 75 12 1
-BEGIN
- KEY "netto da pagare"
- PROMPT  71 66 ""
- MESSAGE _TOTAL_CODA,NETPAG
+ PROMPT  16 12 ""
+ MESSAGE _SCADENZE,IMPORTO,1
+ PICTURE "###.###.###.###"
+ GROUP 31
 END
 
 END