Patch level : 2.2 68

Files correlati     :  ba3.exe
Ricompilazione Demo : [ ]
Commento            :

RiInserita la stampa tabelle con i report


git-svn-id: svn://10.65.10.50/trunk@12899 c028cbd2-c16b-5b4b-a496-9718f37d4682

ba/ba3200.cpp

@@ -1,9 +1,33 @@
 //Programma per stampa report tabelle
 
 #include <applicat.h>
+#include <automask.h>
 #include <relation.h>
 #include <reprint.h>
 #include <tabutil.h>
+#include "ba3200.h"
+
+///////////////////////////////////////////////////////////
+// TMask_print_table
+///////////////////////////////////////////////////////////
+
+class TMask_print_table : public TAutomask
+{
+
+protected:
+  bool on_field_event(TOperable_field& o, TField_event e, long jolly) {return true;}
+public:
+  TMask_print_table(const char * name);
+  virtual ~TMask_print_table() {}
+};
+
+TMask_print_table::TMask_print_table(const char * name)
+								  :TAutomask(name)
+{
+	TEdit_field & f = add_string(F_REPORT, 0, "Report    ", 2, -3, 20, "B");
+  f.set_query_button(new TReport_select(&f, name));
+  f.enable_check();
+}
 
 ///////////////////////////////////////////////////////////
 // TTable_report
@@ -11,49 +35,13 @@
 
 class TTable_report : public TReport
 {
-protected:
+public:
-  virtual bool execute_prescript();
+  virtual bool use_mask() { return false;}
+
+  TTable_report() {}
+  virtual ~TTable_report() {}
 };
 
-bool TTable_report::execute_prescript()
-{
-  TFilename msk = filename().name();
-  msk.ext(""); msk.lower();
-  TMask m(msk);
-  
-  const bool ok = m.run() == K_ENTER;
-  if (ok)
-  {
-    TRectype rec_fr(LF_TAB), rec_to(LF_TAB);
-    for (int i = 0; i < m.fields(); i++) 
-    {
-      const TMask_field& fld = m.fld(i);
-      const TFieldref* fr = fld.field();
-      if (fr != NULL)
-      {
-        if (fld.in_group(1))
-          fr->write(fld.get(), rec_fr);
-        if (fld.in_group(2))
-          fr->write(fld.get(), rec_to);
-      }
-    }
-
-    TString use = recordset()->query_text();
-    
-    const TString& cod_fr = rec_fr.get("CODTAB");
-    if (cod_fr.not_empty())
-      use << "\nFROM CODTAB='" << cod_fr << '\'';
-
-    const TString& cod_to = rec_to.get("CODTAB");
-    if (cod_to.not_empty())
-      use << "\nTO CODTAB='" << cod_to << '\'';
-
-    set_recordset(use);
-  }
-
-  return ok;
-}
-
 ///////////////////////////////////////////////////////////
 // TTable_reporter 
 ///////////////////////////////////////////////////////////
@@ -82,16 +70,25 @@ bool TTable_reporter::get_rpt_name(TFilename& rptname) const
 void TTable_reporter::main_loop()
 {
   TFilename rptname;
+
   if (get_rpt_name(rptname))
   {
-    while (true)
+
+	  TFilename msk(rptname.name()); msk.ext(""); msk.lower();
+	  TMask_print_table m(msk);
+  
+    while (m.run() == K_ENTER)
     {
-      TTable_report rep; rep.load(rptname);
+	    TTable_report rep;
 			TReport_book book;
-      if (book.add(rep))
+			TString name(m.get(F_REPORT));
+
+			if (name.empty())
+				name = rptname;
+      rep.load(name);
+			rep.mask2report(m);
+      book.add(rep);
       book.print_or_preview();
-      else
-        break;
     }
   }
   else
@@ -102,6 +99,6 @@ void TTable_reporter::main_loop()
 int ba3200(int argc, char* argv[])
 {     
   TTable_reporter app;
-  app.run(argc, argv, TR("Stampa Report Tabelle"));
+  app.run(argc, argv, TR("Stampa Tabelle"));
   return 0;
 }

ba/ba3200.h

@@ -23,6 +23,7 @@
 #define F_FINE8   208
 #define F_FINE9   209
 #define F_FINE10   210
+#define F_REPORT  250
 
 #define F_CODDITTA 211
 #define F_RAGSOC   212

ba/ba3300.cpp

@@ -245,13 +245,6 @@ bool Libribollati_print::codditta_handler(TMask_field& field, KEY key)
         app().set_firm(codditta);
       m.hide(exist_firm ? -4 : -3);
       m.show(exist_firm ? -3 : -4);
-      //else        
-      //{
-        //m.field(F_ANNO).hide();
-        //m.field(F_CODICE).hide();
-        //m.field(F_ANNOREG).show();
-        //m.field(F_CODICEREG).show();
-      //}
       app()._ragsoc = nditte.get(N_RAGSOC);
       m.set(F_RAGSOC,app()._ragsoc);
   

ba/bastais.rep

@@ -1,5 +1,5 @@
 
-<report name="bastais" lpi="6">
+<report libraries="bastais" name="bastais" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Attivita'">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %AIS</sql>
+ <sql>USE %AIS
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastais.uml

@@ -7,7 +7,7 @@ BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "UZ"
   HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
-  FIELD CODTAB
+  FIELD FROM
   USE %AIS
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -21,7 +21,7 @@ BEGIN
   PROMPT 3 3 "A codice "
   FLAGS "UZ"
   HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
-  FIELD CODTAB
+  FIELD TO
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1

ba/bastasf.rep

@@ -1,5 +1,5 @@
 
-<report name="bastasf" lpi="6">
+<report libraries="bastasf" name="bastasf" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Stringa" width="50">
@@ -39,5 +39,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE ASF</sql>
+ <sql>USE ASF
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastasf.uml

@@ -5,28 +5,28 @@ STRING F_INIZIO1 2
 BEGIN
 	PROMPT 2 1 "Da codice "
 	FLAGS "U"
-HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
 	USE ASF
 	INPUT CODTAB F_INIZIO1
 	DISPLAY "Codice" CODTAB
 	DISPLAY "Descrizione@50" S0
 	OUTPUT F_INIZIO1 CODTAB
 	GROUP 1
+	FIELD FROM
 END
 
 STRING F_FINE1 2
 BEGIN
 	PROMPT 2 3 "A codice  "
 	FLAGS "U"
-HELP "Codice di fine. Vuoto = fine archivio"
 	COPY USE F_INIZIO1
 	INPUT CODTAB F_FINE1
 	COPY DISPLAY F_INIZIO1
 	OUTPUT F_FINE1 CODTAB
 	GROUP 2
+	FIELD TO
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
 	PROMPT -12 -1 ""
 END

ba/bastban.rep

@@ -1,5 +1,5 @@
 
-<report name="bastban" lpi="6">
+<report libraries="bastban" name="bastban" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Banche">
@@ -77,5 +77,8 @@ THEN
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
  <sql>USE %BAN
-JOIN COMUNI INTO COM==S5</sql>
+JOIN COMUNI INTO COM==S5
+FROM CODTAB=#FROM
+TO CODTAB=#TO
+</sql>
 </report>

ba/bastban.uml

@@ -6,8 +6,7 @@ STRING F_INIZIO1 5
 BEGIN
   PROMPT 2 1 "DA codice (ABI) "
   FLAGS "RZ"
-  HELP "Inserire il codice d'inizio "
+  FIELD FROM[1,5]
-        FIELD LF_TABCOM->CODTAB[1,5]
   USE %BAN 
   INPUT CODTAB[1,5] F_INIZIO1
   INPUT CODTAB[6,10] F_INIZIO2
@@ -24,8 +23,7 @@ STRING F_INIZIO2 5
 BEGIN
   PROMPT 28 1 "DA codice (CAB) "
   FLAGS "RZ"
-  HELP "Inserire il codice d'inizio "
+  FIELD FROM[6,10]
-        FIELD LF_TABCOM->CODTAB[6,10]
   COPY ALL F_INIZIO1
   GROUP 1
 END
@@ -35,8 +33,7 @@ STRING F_FINE1 5
 BEGIN
   PROMPT 2 3 "A codice  (ABI) "
   FLAGS "RZ"
-  HELP "Inserire il codice di fine  "
+  FIELD TO[1,5]
-  FIELD LF_TABCOM->CODTAB[1,5]
   COPY USE F_INIZIO1
   INPUT CODTAB[1,5] F_FINE1
   INPUT CODTAB[6,10] F_FINE2
@@ -51,13 +48,12 @@ STRING F_FINE2 5
 BEGIN
   PROMPT 28 3 "A codice  (CAB) "
   FLAGS "RZ"
-  HELP "Inserire il codice di fine  "
+  FIELD TO[6,10]
-        FIELD LF_TABCOM->CODTAB[6,10]
   COPY ALL F_FINE1
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastcam.rep

@@ -1,5 +1,5 @@
 
-<report name="bastcam" lpi="6">
+<report libraries="bastcam" name="bastcam" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Stringa" width="50">
@@ -51,5 +51,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE CAM</sql>
+ <sql>USE CAM
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastcam.uml

@@ -5,8 +5,7 @@ PAGE "Stampa Tabella Cambi Giornalieri" -1 -1 58 8
 STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da valuta  "
-  HELP "Inserire la valuta iniziale "
+  FIELD FROM[1,3]
-  FIELD CODTAB[1,3]
   USE CAM 
   JOIN %VAL ALIAS 200 INTO CODTAB=CODTAB[1,3] 
   INPUT CODTAB[1,3] F_INIZIO1
@@ -23,8 +22,7 @@ END
 DATE F_INIZIO2
 BEGIN
   PROMPT 28 1 "Da data  "
-  HELP "Inserire la data iniziale"
+  FIELD FROM[4,11]
-  FIELD CODTAB[4,11]
   COPY ALL F_INIZIO1          
   FLAGS "R"
   GROUP 1
@@ -33,8 +31,7 @@ END
 STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A valuta   "
-  HELP "Inserire la valuta finale  "
+  FIELD TO[1,3]
-  FIELD CODTAB[1,3]
   COPY USE F_INIZIO1
   INPUT CODTAB[1,3] F_FINE1
   INPUT CODTAB[4,11] F_FINE2
@@ -51,14 +48,13 @@ END
 DATE F_FINE2 
 BEGIN
   PROMPT 28 3 "A data   "
-  HELP "Inserire la data finale  "
+  FIELD TO[4,11]
-  FIELD CODTAB[4,11]
   FLAGS "R"
   COPY ALL F_FINE1
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastcco.rep

@@ -1,5 +1,5 @@
 
-<report name="bastcco" lpi="6">
+<report libraries="bastcco" name="bastcco" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Stringa" width="50">
@@ -63,5 +63,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE CCO</sql>
+ <sql>USE CCO
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastcco.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-  HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-  FIELD LF_TABCOM->CODTAB
   USE CCO
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-  HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-  FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastcfi.rep

@@ -1,5 +1,5 @@
 
-<report name="bastcfi" lpi="6">
+<report libraries="bastcfi" name="bastcfi" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Categorie Finanziarie">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %CFI</sql>
+ <sql>USE %CFI
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastcfi.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %CFI
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastclr.rep

@@ -1,5 +1,5 @@
 
-<report name="bastclr" lpi="6">
+<report libraries="bastclr" name="bastclr" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Classificazione Pagamenti">
@@ -42,5 +42,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE CLR</sql>
+ <sql>USE CLR
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastclr.uml

@@ -5,8 +5,7 @@ PAGE "Stampa classificazione rate" -1 -1 50 8
 STRING F_INIZIO1 1
 BEGIN
   PROMPT 4 1 "Da Codice  "
-  HELP "Codice della rata dell'ulteriore classificazione"
+  FIELD FROM[1,1]
-  FIELD CODTAB[1,1]
   SHEET "Cod|Descrizione@60"
   INPUT F_INIZIO1
   OUTPUT F_INIZIO1
@@ -25,7 +24,7 @@ END
 STRING F_INIZIO2 1
 BEGIN
   PROMPT 20 1 ""
-  FIELD CODTAB[2,2]
+  FIELD FROM[2,2]
   KEY 1
   USE %CLR
   INPUT CODTAB[1,1] F_INIZIO1
@@ -35,7 +34,6 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_INIZIO1 CODTAB[1,1]
   OUTPUT F_INIZIO2 CODTAB[2,2]
-  HELP "Codice dell' ulteriore classificazione"
   GROUP 1
 END
 
@@ -43,7 +41,7 @@ STRING F_FINE1 1
 BEGIN
   PROMPT 4 3 "Da Codice  "
   HELP "Codice della rata dell'ulteriore classificazione"
-  FIELD CODTAB[1,1]
+  FIELD TO[1,1]
   SHEET "Cod|Descrizione@60"
   INPUT F_FINE1
   OUTPUT F_FINE1
@@ -62,7 +60,7 @@ END
 STRING F_FINE2 1
 BEGIN
   PROMPT 20 3 ""
-  FIELD CODTAB[2,2]
+  FIELD TO[2,2]
   KEY 1
   COPY USE F_INIZIO2
   INPUT CODTAB[1,1] F_FINE1
@@ -72,11 +70,10 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_FINE1 CODTAB[1,1]
   OUTPUT F_FINE2 CODTAB[2,2]
-  HELP "Codice dell' ulteriore classificazione"
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastcms.rep

@@ -1,5 +1,5 @@
 
-<report name="bastcms" lpi="6">
+<report libraries="bastcms" name="bastcms" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Stringa" width="50">
@@ -113,5 +113,8 @@
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
  <sql>USE CMS
-JOIN CLIFO INTO TIPOCF=="C" CODCF==I0</sql>
+JOIN CLIFO INTO TIPOCF=="C" CODCF==I0
+FROM CODTAB=#FROM
+TO CODTAB=#TO
+</sql>
 </report>

ba/bastcms.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 20
 BEGIN
 	PROMPT 2 1 "Da codice "
 	FLAGS "U"
-HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
+	FIELD FROM
-FIELD CODTAB
 	USE CMS
 	INPUT CODTAB F_INIZIO1
 	DISPLAY "Codice@20" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 20
 BEGIN
 	PROMPT 2 3 "A codice  "
 	FLAGS "U"
-HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
+	FIELD TO
-FIELD CODTAB
 	COPY USE F_INIZIO1
 	INPUT CODTAB F_FINE1
 	COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ OUTPUT F_FINE1 CODTAB
 	GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
 	PROMPT -12 -1 ""
 END

ba/bastcpg.rep

@@ -1,5 +1,5 @@
 
-<report name="bastcpg" lpi="6">
+<report libraries="bastcpg" name="bastcpg" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Classificazione Pagamenti">
@@ -59,5 +59,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %CPG</sql>
+ <sql>USE %CPG
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastcrs.rep

@@ -1,5 +1,5 @@
 
-<report name="bastcrs" lpi="6">
+<report libraries="bastcrs" name="bastcrs" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Cariche sociali">
@@ -41,5 +41,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %CRS</sql>
+ <sql>USE %CRS
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastcrs.uml

@@ -6,8 +6,7 @@ STRING F_INIZIO1 2
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "RZ"
-  HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-  FIELD LF_TABCOM->CODTAB
   USE %CRS
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -20,8 +19,7 @@ STRING F_FINE1 2
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "RZ"
-  HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-  FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -29,7 +27,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastctr.rep

@@ -1,5 +1,5 @@
 
-<report name="bastctr" lpi="6">
+<report libraries="bastctr" name="bastctr" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Causali di Trasporto">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %CTR</sql>
+ <sql>USE %CTR
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastctr.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
 	PROMPT 2 1 "Da codice "
 	FLAGS "U"
-HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
+	FIELD FROM
-FIELD CODTAB
 	USE %CTR
 	INPUT CODTAB F_INIZIO1
 	DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
 	PROMPT 2 3 "A codice  "
 	FLAGS "U"
-HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
+	FIELD TO
-FIELD CODTAB
 	COPY USE F_INIZIO1
 	INPUT CODTAB F_FINE1
 	COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ OUTPUT F_FINE1 CODTAB
 	GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
 	PROMPT -12 -1 ""
 END

ba/bastcve.rep

@@ -1,5 +1,5 @@
 
-<report name="bastcve" lpi="6">
+<report libraries="bastcve" name="bastcve" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Categorie di Vendita">
@@ -81,5 +81,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE CVE</sql>
+ <sql>USE CVE
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastcve.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-  HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-  FIELD CODTAB
   USE CVE
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -22,8 +21,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-  HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-  FIELD CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -31,7 +29,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastdpn.rep

@@ -1,5 +1,5 @@
 
-<report name="bastdpn" lpi="6">
+<report libraries="bastdpn" name="bastdpn" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Descrizioni Aggiuntive di Prima Nota">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %DPN</sql>
+ <sql>USE %DPN
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastdpn.uml

@@ -11,7 +11,7 @@ BEGIN
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione @50" S0
   OUTPUT F_INIZIO1 CODTAB
-  FIELD CODTAB
+  FIELD FROM
   GROUP 1
 END
 
@@ -22,12 +22,12 @@ BEGIN
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
-  FIELD CODTAB
+  FIELD TO
   OUTPUT F_FINE1 CODTAB
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastesc.rep

@@ -1,5 +1,5 @@
 
-<report name="bastesc" lpi="6">
+<report libraries="bastesc" name="bastesc" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Esercizi">
@@ -45,5 +45,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE ESC</sql>
+ <sql>USE ESC
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastesc.uml

@@ -11,8 +11,7 @@ END
 NUMBER F_INIZIO1 4
 BEGIN
   PROMPT 2 3 "Da anno "
-        HELP "Anno esercizio con cui iniziare la stampa"
+  FIELD FROM
-        FIELD LF_TAB->CODTAB
   FLAGS "ZR"
   USE ESC KEY 1
   INPUT CODTAB F_INIZIO1
@@ -21,24 +20,21 @@ BEGIN
 	DISPLAY "Data fine esercizio" D1
   OUTPUT F_INIZIO1 CODTAB
   GROUP 1
-  ADD NONE
 END
 
 NUMBER F_FINE1 4
 BEGIN
   PROMPT 25 3 "a anno  "
-        HELP "Anno esercizio con cui finire la stampa"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   FLAGS "ZR"
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
   GROUP 2
-  ADD NONE
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -2 ""
 END

ba/bastfsc.rep

@@ -1,5 +1,5 @@
 
-<report name="bastfsc" lpi="6">
+<report libraries="bastfsc" name="bastfsc" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Fasi Commesse">
@@ -39,5 +39,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE FSC</sql>
+ <sql>USE FSC
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastfsc.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 10
 BEGIN
 	PROMPT 2 1 "Da codice "
 	FLAGS "U"
-HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
+	FIELD FROM
-FIELD CODTAB
 	USE FSC
 	INPUT CODTAB F_INIZIO1
 	DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 10
 BEGIN
 	PROMPT 2 3 "A codice  "
 	FLAGS "U"
-HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
+	FIELD TO
-FIELD CODTAB
 	COPY USE F_INIZIO1
 	INPUT CODTAB F_FINE1
 	COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ OUTPUT F_FINE1 CODTAB
 	GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
 	PROMPT -12 -1 ""
 END

ba/bastitl.rep

@@ -1,5 +1,5 @@
 
-<report name="bastitl" lpi="6">
+<report libraries="bastitl" name="bastitl" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella dei Libri Sociali">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %ITL</sql>
+ <sql>USE %ITL
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastitl.uml

@@ -11,7 +11,7 @@ BEGIN
   DISPLAY "Nome libro@50" S0
   OUTPUT F_INIZIO1 CODTAB
   FLAGS "Z"
-  FIELD CODTAB
+  FIELD FROM
   GROUP 1
 END
 
@@ -22,12 +22,12 @@ BEGIN
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
-  FIELD CODTAB
+  FIELD TO
   FLAGS "Z"
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastiva.rep

@@ -1,5 +1,5 @@
 
-<report name="bastiva" lpi="6">
+<report libraries="bastiva" name="bastiva" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Codici IVA">
@@ -163,5 +163,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %IVA</sql>
+ <sql>USE %IVA
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastiva.uml

@@ -6,8 +6,7 @@ STRING F_INIZIO1 4
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-  HELP "Inserire il codice da cui iniziare la stampa. Se vuoto significa dall'inizio"
+  FIELD FROM
-  FIELD LF_TABCOM->CODTAB
   USE %IVA
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -21,8 +20,7 @@ STRING F_FINE1 4
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-  HELP "Inserire il codice di fine. Se vuoto significa fino all'ultimo"
+  FIELD TO
-  FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -31,7 +29,7 @@ BEGIN
   VALIDATE ZEROFILL_FUNC 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastivd.rep

@@ -1,5 +1,5 @@
 
-<report name="bastivd" lpi="6">
+<report libraries="bastivd" name="bastivd" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella dei Codici IV Direttiva">
@@ -53,5 +53,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %IVD</sql>
+ <sql>USE %IVD
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastivd.uml

@@ -11,8 +11,7 @@ STRING F_INIZIO1 1
 BEGIN
   PROMPT 2 2 "Sezione  "
   FLAGS "U"
-  HELP "Codice da cui iniziare la stampa"
+  FIELD FROM[1,1]
-  FIELD CODTAB[1,1]
   USE %IVD 
   INPUT CODTAB[1,1] F_INIZIO1
   INPUT CODTAB[2,2] F_INIZIO2
@@ -34,7 +33,7 @@ STRING F_INIZIO2 1
 BEGIN
   PROMPT 17 2 "Lettera "
   FLAGS "U"
-  FIELD CODTAB[2,2]
+  FIELD FROM[2,2]
   COPY ALL F_INIZIO1
   GROUP 1
 END
@@ -43,7 +42,7 @@ NUMBER F_INIZIO3 8 4
 BEGIN
   PROMPT 31 2 "Classe  "
   FLAGS "UM"
-  FIELD CODTAB[3,6]
+  FIELD FROM[3,6]
   COPY ALL F_INIZIO1
   GROUP 1
 END
@@ -52,7 +51,7 @@ NUMBER F_INIZIO4 2
 BEGIN
   PROMPT 52 2 "Numero  "
   FLAGS "RZ"
-  FIELD CODTAB[7,8]
+  FIELD FROM[7,8]
   COPY ALL F_INIZIO1
   GROUP 1
 END
@@ -65,8 +64,7 @@ END
 STRING F_FINE1 1
 BEGIN
   PROMPT 2 5 "Sezione  "
-  HELP "Codice finale da stampare"
+  FIELD TO[1,1]
-  FIELD CODTAB[1,1]
   FLAGS "U"
   COPY USE F_INIZIO1
   INPUT CODTAB[1,1] F_FINE1
@@ -86,7 +84,7 @@ BEGIN
   PROMPT 17 5 "Lettera "
   FLAGS "U"
   COPY ALL F_FINE1
-  FIELD CODTAB[2,2]
+  FIELD TO[2,2]
   GROUP 2
 END
 
@@ -94,7 +92,7 @@ NUMBER F_FINE3 8 4
 BEGIN
   PROMPT 31 5 "Classe  "
   FLAGS "UM"
-  FIELD CODTAB[3,6]
+  FIELD TO[3,6]
   COPY ALL F_FINE1
   GROUP 2
 END
@@ -103,7 +101,7 @@ NUMBER F_FINE4 2
 BEGIN
   PROMPT 52 5 "Numero  "
   FLAGS "RZ"
-  FIELD CODTAB[7,8]
+  FIELD TO[7,8]
   COPY ALL F_FINE1
   GROUP 2
 END

ba/bastleg.rep

@@ -1,5 +1,5 @@
 
-<report name="bastleg" lpi="6">
+<report libraries="bastleg" name="bastleg" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Codici Legali">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %LEG</sql>
+ <sql>USE %LEG
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastleg.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %LEG
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastlis.rep

@@ -1,5 +1,5 @@
 
-<report name="bastlis" lpi="6">
+<report libraries="bastlis" name="bastlis" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Codici Listini">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %LIS</sql>
+ <sql>USE %LIS
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastlis.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %LIS
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastlng.rep

@@ -1,5 +1,5 @@
 
-<report name="bastlng" lpi="6">
+<report libraries="bastlng" name="bastlng" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Lingue">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %LNG</sql>
+ <sql>USE %LNG
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastlng.uml

@@ -11,7 +11,7 @@ BEGIN
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione @50" S0
   OUTPUT F_INIZIO1 CODTAB
-  FIELD CODTAB
+  FIELD FROM
   GROUP 1
 END 
 
@@ -23,11 +23,11 @@ BEGIN
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
-  FILED CODTAB
+  FILED TO
   GROUP 2
 END 
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastmsp.rep

@@ -1,5 +1,5 @@
 
-<report name="bastmsp" lpi="6">
+<report libraries="bastmsp" name="bastmsp" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Modalita' di Spedizione">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %MSP</sql>
+ <sql>USE %MSP
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastmsp.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %MSP
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastndo.rep

@@ -1,5 +1,5 @@
 
-<report name="bastndo" lpi="6">
+<report libraries="bastndo" name="bastndo" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Note Documento">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %NDO</sql>
+ <sql>USE %NDO
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastndo.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %NDO
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastnoc.rep

@@ -1,5 +1,5 @@
 
-<report name="bastnoc" lpi="6">
+<report libraries="bastnoc" name="bastnoc" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Nomenclatura Combinata">
@@ -59,5 +59,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %NOC</sql>
+ <sql>USE %NOC
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastnoc.uml

@@ -17,7 +17,7 @@ BEGIN
   OUTPUT F_INIZIO1 CODTAB[1,4]
   OUTPUT F_INIZIO2 CODTAB[5,6]
   OUTPUT F_INIZIO3 CODTAB[7,8]
-  FIELD CODTAB[1,4]
+  FIELD FROM[1,4]
   GROUP 1
 END
 
@@ -26,7 +26,7 @@ BEGIN
   PROMPT 22 1 ""
   FLAGS "U"
   COPY ALL F_INIZIO1
-  FIELD CODTAB[5,6]
+  FIELD FROM[5,6]
   GROUP 1
 END
 
@@ -35,7 +35,7 @@ BEGIN
   PROMPT 27 1 ""
   FLAGS "U"
   COPY ALL F_INIZIO1
-  FIELD CODTAB[7,8]
+  FIELD FROM[7,8]
   GROUP 1
 END
 
@@ -54,7 +54,7 @@ BEGIN
   OUTPUT F_FINE1 CODTAB[1,4]
   OUTPUT F_FINE2 CODTAB[5,6]
   OUTPUT F_FINE3 CODTAB[7,8]
-  FIELD CODTAB[1,4]
+  FIELD TO[1,4]
   GROUP 2
 END
 
@@ -63,7 +63,7 @@ BEGIN
   PROMPT 22 3 ""
   FLAGS "U"
   COPY ALL F_FINE1
-  FIELD CODTAB[5,6]
+  FIELD TO[5,6]
   GROUP 2
 END
 
@@ -72,11 +72,11 @@ BEGIN
   PROMPT 27 3 ""
   FLAGS "U"
   COPY ALL F_FINE1
-  FIELD CODTAB[7,8]
+  FIELD TO[7,8]
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastnot.rep

@@ -1,5 +1,5 @@
 
-<report name="bastnot" lpi="6">
+<report libraries="bastnot" name="bastnot" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Note Cliente">
@@ -41,5 +41,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %NOT</sql>
+ <sql>USE %NOT
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastnot.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-  HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-  FIELD LF_TABCOM->CODTAB
   USE %NOT
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -20,8 +19,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-  HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-  FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -29,7 +27,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastois.rep

@@ -1,5 +1,5 @@
 
-<report name="bastois" lpi="6">
+<report libraries="bastois" name="bastois" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Vecchi Codici Attivita'">
@@ -41,5 +41,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %OIS</sql>
+ <sql>USE %OIS
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastois.uml

@@ -6,9 +6,8 @@ STRING F_INIZIO1 4
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "RZ"
-  HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
   USE %OIS
-  FIELD CODTAB[1,4]
+  FIELD FROM[1,4]
   INPUT CODTAB[1,4] F_INIZIO1
   INPUT CODTAB[5,] F_INIZIO2
   DISPLAY "Codice" CODTAB[1,4]
@@ -22,9 +21,8 @@ END
 STRING F_INIZIO2 1
 BEGIN
   PROMPT 28 1 "subcodice "
-  HELP "Subcodice da cui iniziare la stampa. Vuoto = inizio archivio"
   FLAGS "U"
-  FIELD CODTAB[5,]
+  FIELD FROM[5,]
   COPY ALL F_INIZIO1
   GROUP 1
 END
@@ -34,9 +32,8 @@ STRING F_FINE1 4
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "RZ"
-  HELP "Codice di fine. Vuoto = fine archivio"
   COPY USE F_INIZIO1
-  FIELD CODTAB[1,4]
+  FIELD TO[1,4]
   INPUT CODTAB[1,4] F_FINE1
   INPUT CODTAB[5,] F_FINE2
   COPY DISPLAY F_INIZIO1
@@ -50,13 +47,12 @@ STRING F_FINE2 1
 BEGIN
   PROMPT 28 3 "subcodice "
   FLAGS "U"
-  FIELD CODTAB[5,]
+  FIELD TO[5,]
-  HELP "Subcodice di fine. Vuoto = fine archivio"
   COPY ALL F_FINE1
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastpor.rep

@@ -1,5 +1,5 @@
 
-<report name="bastpor" lpi="6">
+<report libraries="bastpor" name="bastpor" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Modalita' di Consegna">
@@ -47,5 +47,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %POR</sql>
+ <sql>USE %POR
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastpor.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %POR
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastreg.rep

@@ -1,5 +1,5 @@
 
-<report name="bastreg" lpi="6">
+<report libraries="bastreg" name="bastreg" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Stringa" width="50">
@@ -91,5 +91,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE REG</sql>
+ <sql>USE REG
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastreg.uml

@@ -5,7 +5,6 @@ PAGE "Stampa registri" -1 -1 74 8
 NUMBER F_CODDITTA 5
 BEGIN
   PROMPT 1 1 "Ditta             "
-    HELP "Ditta di cui stampare i registri"
   FLAGS "FRD"
   USE LF_NDITTE KEY 1  
   CHECKTYPE REQUIRED
@@ -32,8 +31,7 @@ NUMBER F_INIZIO2 4
 BEGIN
   PROMPT 1 4 "Stampa i registri dell'anno "
   FLAGS "RZ"
-  FIELD CODTAB[1,4]
+  FIELD FROM[1,4]
-  HELP "Stampa i registri dell'anno indicato. Vuoto = tutti i registri"
   MESSAGE COPY, F_FINE2
   GROUP 1
 END 
@@ -42,7 +40,7 @@ END
 NUMBER F_FINE2 4
 BEGIN
   FLAGS "HRZ"
-  FIELD CODTAB[1,4]  
+  FIELD TO[1,4]  
   GROUP 2
 END
 

ba/bastsad.rep

@@ -1,5 +1,5 @@
 
-<report name="bastsad" lpi="6">
+<report libraries="bastsad" name="bastsad" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Spese da Addebitare">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %SAD</sql>
+ <sql>USE %SAD
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastsad.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %SAD
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastscc.rep

@@ -1,5 +1,5 @@
 
-<report name="bastscc" lpi="6">
+<report libraries="bastscc" name="bastscc" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Sconti Clienti">
@@ -41,5 +41,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %SCC</sql>
+ <sql>USE %SCC
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastscc.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 2
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archvio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %SCC
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 2
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastsce.rep

@@ -1,5 +1,5 @@
 
-<report name="bastsce" lpi="6">
+<report libraries="bastsce" name="bastsce" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Stati CEE">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %SCE</sql>
+ <sql>USE %SCE
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastsce.uml

@@ -10,7 +10,7 @@ BEGIN
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_INIZIO1 CODTAB
-  FIELD CODTAB
+  FIELD FROM
   FLAGS "U"
   GROUP 1
 END
@@ -23,12 +23,12 @@ BEGIN
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_FINE1 CODTAB
-  FIELD CODTAB
+  FIELD TO
   GROUP 2    
   FLAGS "U"
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/baststa.rep

@@ -1,5 +1,5 @@
 
-<report name="baststa" lpi="6">
+<report libraries="baststa" name="baststa" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Stati">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %STA</sql>
+ <sql>USE %STA
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/baststa.uml

@@ -6,8 +6,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "RZ"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %STA
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -20,8 +19,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "RZ"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -29,7 +27,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/baststt.rep

@@ -1,5 +1,5 @@
 
-<report name="baststt" lpi="6">
+<report libraries="baststt" name="baststt" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Codici Statistici">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %STT</sql>
+ <sql>USE %STT
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/baststt.uml

@@ -5,8 +5,7 @@ PAGE "Stampa codici statistici" -1 -1 50 8
 STRING F_INIZIO1 7
 BEGIN
   PROMPT 2 1 "Da codice "
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %STT
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -18,8 +17,7 @@ END
 STRING F_FINE1 7
 BEGIN
   PROMPT 2 3 "A codice  "
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -27,7 +25,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastsua.rep

@@ -1,5 +1,5 @@
 
-<report name="bastsua" lpi="6">
+<report libraries="bastsua" name="bastsua" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Stringa" width="50">
@@ -78,5 +78,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE SUA</sql>
+ <sql>USE SUA
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastsua.uml

@@ -5,8 +5,7 @@ PAGE "Stampa Tabella Gestione Subagenti" -1 -1 58 8
 STRING F_INIZIO1 5
 BEGIN
   PROMPT 2 1 "Da cod. agente   "
-  HELP "Inserire il codice d'inizio "
+  FIELD FROM[1,5]
-  FIELD LF_TABCOM->CODTAB[1,5]
   USE AGE 
   INPUT CODTAB[1,5] F_INIZIO1
   DISPLAY "Codice Agente" CODTAB[1,5]
@@ -18,8 +17,7 @@ END
 STRING F_INIZIO2 2
 BEGIN
   PROMPT 28 1 "Da cod. subagente  "
-  HELP "Inserire il codice d'inizio "
+  FIELD FROM[6,7]
-  FIELD LF_TABCOM->CODTAB[6,7]
   USE SUA
   INPUT CODTAB[1,5] F_INIZIO1
   INPUT CODTAB[6,7] F_INIZIO2
@@ -35,8 +33,7 @@ END
 STRING F_FINE1 5
 BEGIN
   PROMPT 2 3 "A codice agente  "
-  HELP "Inserire il codice di fine  "
+  FIELD TO[1,5]
-  FIELD LF_TABCOM->CODTAB[1,5]
   COPY USE F_INIZIO1
   INPUT CODTAB[1,5] F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -48,8 +45,7 @@ END
 STRING F_FINE2 2
 BEGIN
   PROMPT 28 3 "A codice subagente "
-  HELP "Inserire il codice di fine  "
+  FIELD TO[6,7]
-  FIELD LF_TABCOM->CODTAB[6,7]
   USE SUA
   INPUT CODTAB[1,5] F_FINE1
   INPUT CODTAB[6,7] F_FINE2
@@ -61,7 +57,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/basttit.rep

@@ -1,5 +1,5 @@
 
-<report name="basttit" lpi="6">
+<report libraries="basttit" name="basttit" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Titoli Onorifici">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %TIT</sql>
+ <sql>USE %TIT
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/basttit.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-        FIELD LF_TABCOM->CODTAB
   USE %TIT
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-        HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-        FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -28,7 +26,7 @@ BEGIN
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/basttpd.rep

@@ -1,5 +1,5 @@
 
-<report name="basttpd" lpi="6">
+<report libraries="basttpd" name="basttpd" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Tipi Documento">
@@ -53,5 +53,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %TPD</sql>
+ <sql>USE %TPD
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/basttpd.uml

@@ -11,7 +11,7 @@ BEGIN
   DISPLAY "Descrizione@50" S0
   OUTPUT F_INIZIO1 CODTAB
   FLAGS "U"
-  FIELD LF_TABCOM->CODTAB
+  FIELD FROM
   GROUP 1
 END
 
@@ -23,11 +23,11 @@ BEGIN
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
   FLAGS "U"
-  FIELD LF_TABCOM->CODTAB
+  FIELD TO
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastucc.rep

@@ -1,5 +1,5 @@
 
-<report name="bastucc" lpi="6">
+<report libraries="bastucc" name="bastucc" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Concessioni">
@@ -73,5 +73,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %UCC</sql>
+ <sql>USE %UCC
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastucc.uml

@@ -5,13 +5,12 @@ PAGE "Stampa uffici concessione" -1 -1 50 8
 NUMBER F_INIZIO1 3
 BEGIN
   PROMPT 3 1 "Da codice  "
-        HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
   USE %UCC
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
   DISPLAY "Ufficio@30" S0
   OUTPUT F_INIZIO1 CODTAB
-  FIELD LF_TABCOM->CODTAB
+  FIELD FROM
   GROUP 1
   FLAGS "RZ"
 END
@@ -19,12 +18,11 @@ END
 NUMBER F_FINE1 3
 BEGIN
   PROMPT 3 3 "A codice   "
-        HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
-  FIELD LF_TABCOM->CODTAB
+  FIELD TO
   GROUP 2
   FLAGS "RZ"
 END

ba/bastucs.rep

@@ -1,5 +1,5 @@
 
-<report name="bastucs" lpi="6">
+<report libraries="bastucs" name="bastucs" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Centri di Servizio">
@@ -61,5 +61,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %UCS</sql>
+ <sql>USE %UCS
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastucs.uml

@@ -5,27 +5,25 @@ PAGE "Stampa centri servizio" -1 -1 50 8
 NUMBER F_INIZIO1 3
 BEGIN
   PROMPT 3 1 "Da codice "
-  HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
   USE %UCS
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_INIZIO1 CODTAB
   GROUP 1
-  FIELD CODTAB
+  FIELD FROM
   FLAGS "RZ"
 END
 
 NUMBER F_FINE1 3
 BEGIN
   PROMPT 4 3 "A codice "
-  HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
   GROUP 2
-  FIELD CODTAB
+  FIELD TO
   FLAGS "RZ"
 END
 

ba/bastues.rep

@@ -1,5 +1,5 @@
 
-<report name="bastues" lpi="6">
+<report libraries="bastues" name="bastues" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Esattoria">
@@ -61,5 +61,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %UES</sql>
+ <sql>USE %UES
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastues.uml

@@ -5,27 +5,25 @@ PAGE "Stampa uffici esattoria" -1 -1 50 8
 NUMBER F_INIZIO1 3
 BEGIN
   PROMPT 3 1 "Da codice  "
-        HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
   USE %UES
   FLAGS "RZ"
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@25" S0
   OUTPUT F_INIZIO1 CODTAB
-  FIELD LF_TABCOM->CODTAB
+  FIELD FROM
   GROUP 1
 END
 
 NUMBER F_FINE1 3
 BEGIN
   PROMPT 3 3 "A codice   "
-        HELP "Codice di fine. Vuoto = fine archivio"
   COPY USE F_INIZIO1
   FLAGS "RZ"
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
-  FIELD LF_TABCOM->CODTAB
+  FIELD TO
   GROUP 2
 END
 

ba/bastuid.rep

@@ -1,5 +1,5 @@
 
-<report name="bastuid" lpi="6">
+<report libraries="bastuid" name="bastuid" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Imposte Dirette">
@@ -61,5 +61,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %UID</sql>
+ <sql>USE %UID
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastuid.uml

@@ -5,13 +5,12 @@ PAGE "Stampa Uffici Imposte Dirette" -1 -1 50 8
 NUMBER F_INIZIO1 3
 BEGIN
   PROMPT 3 1 "Da codice  "
-        HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
   USE %UID
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@40" S0
   OUTPUT F_INIZIO1 CODTAB
-  FIELD LF_TABCOM->CODTAB
+  FIELD FROM
   GROUP 1
   FLAGS "RZ"
 END
@@ -19,17 +18,16 @@ END
 NUMBER F_FINE1 3
 BEGIN
   PROMPT 3 3 "A codice   "
-        HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
   GROUP 2
-  FIELD LF_TABCOM->CODTAB
+  FIELD TO
   FLAGS "RZ"
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastuiv.rep

@@ -1,5 +1,5 @@
 
-<report name="bastuiv" lpi="6">
+<report libraries="bastuiv" name="bastuiv" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici IVA">
@@ -61,5 +61,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %UIV</sql>
+ <sql>USE %UIV
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastuiv.uml

@@ -12,7 +12,7 @@ BEGIN
   OUTPUT F_INIZIO1 CODTAB
   GROUP 1
   FLAGS "RZ"
-  FIELD LF_TABCOM->CODTAB
+  FIELD FROM
 END
 
 NUMBER F_FINE1 3
@@ -24,7 +24,7 @@ BEGIN
   OUTPUT F_FINE1 CODTAB
   GROUP 2
   FLAGS "RZ"
-  FIELD LF_TABCOM->CODTAB
+  FIELD TO
 END
 
 BUTTON DLG_PRINT 10 2

ba/basture.rep

@@ -1,5 +1,5 @@
 
-<report name="basture" lpi="6">
+<report libraries="basture" name="basture" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Registro">
@@ -61,5 +61,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %URE</sql>
+ <sql>USE %URE
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/basture.uml

@@ -5,7 +5,6 @@ PAGE "Stampa Uffici registro" -1 -1 50 8
 STRING F_INIZIO1 3
 BEGIN
   PROMPT 3 1 "Da codice "
-  HELP "Codice da cui iniziare a stampare. Vuoto = inizio archivio"
   USE %URE
   FLAGS "U"
   INPUT CODTAB F_INIZIO1
@@ -13,25 +12,24 @@ BEGIN
   DISPLAY "Descrizione@40" S0
   OUTPUT F_INIZIO1 CODTAB
   FLAGS "RZ"
-  FIELD CODTAB
+  FIELD FROM
   GROUP 1
 END
 
 STRING F_FINE1 3
 BEGIN
   PROMPT 4 3 "A codice "
-  HELP "Codice a cui terminare la stampa. Vuoto = fine archivio"
   FLAGS "U"
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
   FLAGS "RZ"
-  FIELD CODTAB
+  FIELD TO
   GROUP 2
 END
 
-BUTTON DLG_OK 10 2
+BUTTON DLG_PRINT 10 2
 BEGIN
   PROMPT -12 -1 ""
 END

ba/bastuue.rep

@@ -1,5 +1,5 @@
 
-<report name="bastuue" lpi="6">
+<report libraries="bastuue" name="bastuue" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Uffici Unici Entrate">
@@ -35,5 +35,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %UUE</sql>
+ <sql>USE %UUE
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastuue.uml

@@ -10,7 +10,7 @@ BEGIN
   DISPLAY "Codice" CODTAB
   DISPLAY "Dizione@30" S0
   OUTPUT F_INIZIO1 CODTAB
-  FIELD CODTAB
+  FIELD FROM
   GROUP 1
   FLAGS "RZ"
 END
@@ -22,7 +22,7 @@ BEGIN
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1
   OUTPUT F_FINE1 CODTAB
-  FIELD CODTAB
+  FIELD TO
   GROUP 2
   FLAGS "RZ"
 END

ba/bastval.rep

@@ -1,5 +1,5 @@
 
-<report name="bastval" lpi="6">
+<report libraries="bastval" name="bastval" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Valute">
@@ -47,5 +47,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %VAL</sql>
+ <sql>USE %VAL
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastval.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "UZ"
-  HELP "Inserire il codice da cui iniziare la stampa. Se in bianco vuol dire dall'inizio"
+  FIELD FROM
-  FIELD LF_TABCOM->CODTAB
   USE %VAL
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "UZ"
-  HELP "Inserire il codice di fine. Se in bianco vuol dire l'ultimo"
+  FIELD TO
-  FIELD LF_TABCOM->CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1

ba/bastver.rep

@@ -1,5 +1,5 @@
 
-<report name="bastver" lpi="6">
+<report libraries="bastver" name="bastver" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Versamenti ed Interessi IVA">
@@ -115,5 +115,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE %VER</sql>
+ <sql>USE %VER
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastver.uml

@@ -5,9 +5,8 @@ PAGE "Stampa tabella versamenti ed interessi IVA " -1 -1 40 8
 NUMBER F_INIZIO1 4
 BEGIN
   PROMPT 1 1 "Da anno "
-  HELP "Anno esercizio con cui iniziare la stampa"
   FLAGS "ZR"
-  FIELD %VER->CODTAB[1,4]
+  FIELD FROM[1,4]
   USE %VER KEY 1
   INPUT CODTAB[1,4] F_INIZIO1
   DISPLAY "Anno esercizio@23" CODTAB[1,4]
@@ -20,9 +19,8 @@ END
 NUMBER F_INIZIO2 2
 BEGIN
   PROMPT 28 1 "Mese "
-  HELP "Mese esercizio con cui iniziare la stampa"
   FLAGS "ZR"
-  FIELD %VER->CODTAB[5,6]
+  FIELD TO[5,6]
   COPY USE F_INIZIO1
   INPUT CODTAB[1,4] F_INIZIO1
   INPUT CODTAB[5,6] F_INIZIO2
@@ -34,9 +32,8 @@ END
 NUMBER F_FINE1 4
 BEGIN
   PROMPT 1 3 "Ad anno "
-  HELP "Anno esercizio con cui finire la stampa"
   FLAGS "ZR"
-  FIELD %VER->CODTAB[1,4]
+  FIELD TO[1,4]
   COPY USE F_INIZIO1
   INPUT CODTAB[1,4] F_FINE1
   COPY DISPLAY F_INIZIO1
@@ -48,9 +45,8 @@ END
 NUMBER F_FINE2 2
 BEGIN
   PROMPT 28 3 "Mese "
-  HELP "Mese esercizio con cui finire la stampa"
   FLAGS "ZR"
-  FIELD %VER->CODTAB[5,6]
+  FIELD TO[5,6]
   COPY USE F_INIZIO1
   INPUT CODTAB[1,4] F_FINE1
   INPUT CODTAB[5,6] F_FINE2

ba/bastvet.rep

@@ -1,5 +1,5 @@
 
-<report name="bastvet" lpi="6">
+<report libraries="bastvet" name="bastvet" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Vettori">
@@ -108,5 +108,8 @@
  <section keep_with_next="1" type="Foot" level="1" />
  <sql>USE %VET
 JOIN COMUNI INTO COM==S9
-JOIN %STA ALIAS 200 INTO CODTAB==S8</sql>
+JOIN %STA ALIAS 200 INTO CODTAB==S8
+FROM CODTAB=#FROM
+TO CODTAB=#TO
+</sql>
 </report>

ba/bastvet.uml

@@ -6,14 +6,12 @@ STRING F_INIZIO1 6
 BEGIN
 	PROMPT 2 1 "Da codice "
 	FLAGS "ZU"
-HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+	FIELD FROM
-FIELD LF_TABCOM->CODTAB
 	USE %VET
 	INPUT CODTAB F_INIZIO1
 	DISPLAY "Codice vettore" CODTAB
 	DISPLAY "Ragione sociale@50" S0
 	OUTPUT F_INIZIO1 CODTAB
-KEY 1
 	GROUP 1
 END
 
@@ -21,8 +19,7 @@ STRING F_FINE1 6
 BEGIN
 	PROMPT 2 3 "A codice  "
 	FLAGS "ZU"
-HELP "Codice di fine. Vuoto = fine archivio"
+	FIELD TO
-FIELD LF_TABCOM->CODTAB
 	COPY USE F_INIZIO1
 	INPUT CODTAB F_FINE1
 	COPY DISPLAY F_INIZIO1

ba/bastzon.rep

@@ -1,5 +1,5 @@
 
-<report name="bastzon" lpi="6">
+<report libraries="bastzon" name="bastzon" lpi="6">
  <font face="Courier New" size="10" />
  <section keep_with_next="1" type="Head">
   <field y="1" type="Testo" valign="center" align="center" width="96" height="2" text="Tabella Zone">
@@ -39,5 +39,7 @@
   <field border="2" x="1" y="2.5" type="Linea" width="93" height="0" />
  </section>
  <section keep_with_next="1" type="Foot" level="1" />
- <sql>USE ZON</sql>
+ <sql>USE ZON
+ FROM CODTAB=#FROM
+ TO CODTAB=#TO</sql>
 </report>

ba/bastzon.uml

@@ -5,8 +5,7 @@ STRING F_INIZIO1 3
 BEGIN
   PROMPT 2 1 "Da codice "
   FLAGS "U"
-  HELP "Codice da cui iniziare la stampa. Vuoto = inizio archivio"
+  FIELD FROM
-  FIELD CODTAB
   USE ZON
   INPUT CODTAB F_INIZIO1
   DISPLAY "Codice" CODTAB
@@ -19,8 +18,7 @@ STRING F_FINE1 3
 BEGIN
   PROMPT 2 3 "A codice  "
   FLAGS "U"
-  HELP "Codice di fine. Vuoto = fine archivio"
+  FIELD TO
-  FIELD CODTAB
   COPY USE F_INIZIO1
   INPUT CODTAB F_FINE1
   COPY DISPLAY F_INIZIO1