Corretto formato di stampa della tabella registri

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

ba/ba3200.cpp

@@ -26,6 +26,7 @@ class BA3200_application : public TPrintapp
   int           _logicnum;
   TArray        _string_roman; 
   TArray        _field_roman; 
+  bool          _stampa_registri;
   
 public:
 
@@ -36,7 +37,6 @@ public:
   virtual void set_page(int, int);
   virtual bool preprocess_page (int, int);
 
-  void leggi_rpt();
   void set_headers();
   void set_rows();
   void set_footers();
@@ -82,7 +82,7 @@ void BA3200_application::set_page (int , int )
 {
   _string_roman.destroy();
   _field_roman.destroy();
-  leggi_rpt();
+  set_rows();
 }
 
 bool BA3200_application::preprocess_page(int , int)
@@ -101,6 +101,17 @@ bool BA3200_application::preprocess_page(int , int)
       s = itor(n);
     }
   }
+  // Stampa tabella registri. Calcolo: pagine residue = pagine - stampate
+  if (_stampa_registri)
+  {
+    const int pagine   = _cur->file().get_int("I2");
+    const int stampate = _cur->file().get_int("I1");
+    const int residue  = pagine - stampate;
+    if (residue)
+      set_row(1, "@126g%4d", residue);
+    else
+      set_row(1, "@126g%4s", "    ");
+  }
   return TRUE;
 }
 
@@ -286,14 +297,16 @@ void BA3200_application::set_relations()
     line = rpt.line();
   }
 }
-void BA3200_application::leggi_rpt()
-{
-  set_rows();
-}
 
 void BA3200_application::user_create()
 {
   _rptname  << "batb" << _tabname << ".rpt" ;
+
+  if (_tabname.upper() == "REG")
+    _stampa_registri = TRUE;
+  else
+    _stampa_registri = FALSE;
+  
   if (!fexist(_rptname)) 
     fatal_box("Impossibile aprire il file '%s'", (const char*)_rptname);
 
@@ -313,6 +326,9 @@ void BA3200_application::user_create()
   printer().footerlen (FOOTER_LEN);
   for (int i=1; i <= FOOTER_LEN; i++) set_footer(i, "%s", "  ");
 
+#ifdef DBG1
+  set_fillchar ('.');
+#endif
   set_headers();
   set_footers();
   set_translations();

ba/ba3200.h

@@ -23,6 +23,9 @@
 #define F_FINE9   209
 #define F_FINE10   210
 
+#define F_CODDITTA 211
+#define F_RAGSOC   212
+
 #endif
 
 

ba/bastreg.uml

@@ -1,16 +1,47 @@
 #include "ba3200.h"
 
-PAGE "Stampa registri" -1 -1 60 10
+PAGE "Stampa registri" -1 -1 74 8
 
-NUMBER F_INIZIO0 5
+NUMBER F_CODDITTA 5
 BEGIN
-  PROMPT 4 2 "Ditta         "
+    PROMPT 1 1 "Ditta             "
-  FLAGS "FRD"
+    FLAGS "FRD"
+    USE LF_NDITTE KEY 1  
+    CHECKTYPE REQUIRED
+    INPUT CODDITTA F_CODDITTA
+    DISPLAY "Codice" CODDITTA
+    DISPLAY "Ragione sociale @50" RAGSOC
+    OUTPUT F_CODDITTA CODDITTA
+    OUTPUT F_RAGSOC RAGSOC
 END
 
+STRING F_RAGSOC 50
+BEGIN
+  PROMPT 1 2 "Ragione sociale   "
+  FLAGS "D"
+END
+
+NUMBER F_INIZIO1 4
+BEGIN
+  FLAGS "HRZ"
+  MESSAGE COPY, F_FINE2
+END
+
+NUMBER F_INIZIO2 4
+BEGIN
+  PROMPT 1 4 "Anno "
+  FLAGS "RZ"
+//  FLAGS "A"
+  FIELD CODTAB[1,4]
+  HELP "Stampa i registri dell'anno indicato. Se lasciato vuoto stampa tutti i registri"
+  MESSAGE COPY, F_FINE2
+  GROUP 1
+END 
+
+/*
 STRING F_INIZIO1 3
 BEGIN
-  PROMPT 4 4 "Da registro   "
+  PROMPT 19 4 "Da registro   "
   FLAGS "U"
   USE REG 
   INPUT CODTAB[1,4] F_INIZIO2
@@ -19,52 +50,48 @@ BEGIN
   DISPLAY "Anno" CODTAB[1,4]
   DISPLAY "Descrizione @50" S0
   OUTPUT F_INIZIO1 CODTAB[5,7]
-  OUTPUT F_INIZIO2 CODTAB[1,4]
+//  OUTPUT F_INIZIO2 CODTAB[1,4]
   FIELD CODTAB[5,7]
   GROUP 1
 END 
 
-NUMBER F_INIZIO2 4
+**************/
+
+NUMBER F_FINE2 3
 BEGIN
-  PROMPT 30 4 "Anno "
+  FLAGS "HRZ"
-  COPY ALL F_INIZIO1
-  FLAGS "ZR"
-  FIELD CODTAB[1,4]
-  GROUP 1
 END
 
+/**********
 STRING F_FINE1 3
 BEGIN
-  PROMPT 4 6 "A registro    "
+  PROMPT 44 4 "A registro    "
   FLAGS "U"
-  COPY USE F_INIZIO1
+  USE REG 
-  INPUT CODTAB[5,7] F_FINE1
   INPUT CODTAB[1,4] F_FINE2
-  COPY DISPLAY F_INIZIO1
+  INPUT CODTAB[5,7] F_FINE1
+  DISPLAY "Codice" CODTAB[5,7]
+  DISPLAY "Anno" CODTAB[1,4]
+  DISPLAY "Descrizione @50" S0
   OUTPUT F_FINE1 CODTAB[5,7]
-  OUTPUT F_FINE2 CODTAB[1,4]
+//  OUTPUT F_FINE2 CODTAB[1,4]
   FIELD CODTAB[5,7]
   GROUP 2
 END 
+*****************/
 
-NUMBER F_FINE2 4
+BUTTON DLG_PRINT 10 2
 BEGIN 
-  PROMPT 30 6 "Anno "
+  PROMPT -12 -1 "~Stampa"
-  COPY ALL F_FINE1
+  MESSAGE EXIT,K_ENTER
-  FLAGS "ZR"
-  FIELD CODTAB[1,4]
-  GROUP 2
 END
 
-BUTTON DLG_OK 8 2
+BUTTON DLG_QUIT 10 2
 BEGIN
-	PROMPT -12 -1 ""
+  PROMPT -22 -1 ""
-END
-
-BUTTON DLG_QUIT 8 2
-BEGIN
-	PROMPT -22 -1 ""
 END
 
 ENDPAGE
+
 ENDMASK
+

ba/batbreg.rpt

@@ -1,53 +1,22 @@
 [Headers]
 132
 Tabella dei registri
+1|@6g%s|Registro
+1|@47g%s|Cod.  Ult.num. Ult.data    Ultima stampa
+1|@112g%s|N.Pagine  N.Pagine
+2|%s|Anno Cod.Tipo Descrizione
+2|@47g%s|att.  protoc.  registr.    pagina   data 
+2|@90g%s|Luogo conservazione   registro  residue
 
 [Rows]
-1|CODTAB[5,7]|@2gCodice: @3s
+1|CODTAB[1,4]|@4s
-1|CODTAB[1,4]|@13gAnno: @4s
+1|CODTAB[5,7]|@5g@3,rs
-1|S0|@24gDescrizione: @25s
+1|I0|@9g@3,rn
-1|I0|@64gTipo: @25t
+1|S0|@14g@30s
-1|S7|@94gCod. libro: @3s
+1|S8|@46g@5s
-1|S8|@110gCod. attivita': @5s
+1|I5|@53g@7n
-2|I1|@2gPagine stampate: @2n
+1|D2|@62g@d
-2|I2|@24gPagine numerate: @2n
+1|I1|@74g@4n
-2|D0|@46gData vidimazione: @d
+1|D3|@81g@d
-2|D1|@75gData scadenza: @d
+1|S1|@90g@20s
-3|S1|@2gConservato presso: @40s
+1|I2|@112g@4n
-4|B2|@2gStampa costi/ricavi su libro cronologico: @f
-4|I3|@50gTipo descrizione costi/ricavi: @8t
-5|R0|@2gTotale incassi: @n
-5|R1|@30gTotale pagamenti: @n
-5|S9|@60gFrequenza stampa registro riepilogativo: @11t
-6|B3|@2gAttivita' con ventilazione: @f
-6|B4|@35gStampa credito anno precedente: @f
-6|B1|@70gRegistro in sospensione: @f
-6|B0|@100gRegistro i corrispettivi: @f
-7|B5|@2gStampa indirizzi completi : @f
-7|B6|@35gStampa riepiloghi IVA delle aliquote utilizzate: @f
-8|B7|@2gStampa liquidazione a fine periodo: @f
-8|I4|@50gMese stampa ultima liquidazione: @2n
-8|I5|@90gUltimo numero di protocollo: @5n
-9|D2|@2gUltima data di registrazione: @d
-9|B8|@50gStampa sullo stesso registro: @f
-9|B9|@90gStampa intestazione ditta: @f
-10|I6|@2gUltimo numero di riga stampato: @6n
-10|R1|@50gProgressivo dare: @n
-10|R2|@90gProgressivo avere: @n
-11||
-
-[Translations]
-5|I0|1|Vendite
-5|I0|2|Acquisti
-5|I0|3|Libro IVA riepilogativo
-5|I0|4|Libro Incassi e Pagamenti
-5|I0|5|Libro Giornale
-5|I0|6|Libri Sociali
-5|I0|7|Libro Cespiti
-5|I0|8|Libro Inventari
-5|I0|9|Libro Procedure
-5|I3|1|Gruppo
-5|I3|2|Conto
-5|S9|M|Mensile
-5|S9|T|Trimestrale
-