From f62fa4284617d625fc63ee476114a813faba5eaf Mon Sep 17 00:00:00 2001 From: nik Date: Mon, 24 Oct 1994 11:08:09 +0000 Subject: [PATCH] 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 | 30 +++++++++---- ba/ba3200.h | 3 ++ ba/bastreg.uml | 111 ++++++++++++++++++++++++++++++------------------- ba/batbreg.rpt | 65 ++++++++--------------------- 4 files changed, 112 insertions(+), 97 deletions(-) diff --git a/ba/ba3200.cpp b/ba/ba3200.cpp index a7db83bbc..5572b5a47 100755 --- a/ba/ba3200.cpp +++ b/ba/ba3200.cpp @@ -26,7 +26,8 @@ class BA3200_application : public TPrintapp int _logicnum; TArray _string_roman; TArray _field_roman; - + bool _stampa_registri; + public: virtual void user_create() ; @@ -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(); diff --git a/ba/ba3200.h b/ba/ba3200.h index 6c08e870e..b32fa4904 100755 --- a/ba/ba3200.h +++ b/ba/ba3200.h @@ -23,6 +23,9 @@ #define F_FINE9 209 #define F_FINE10 210 +#define F_CODDITTA 211 +#define F_RAGSOC 212 + #endif diff --git a/ba/bastreg.uml b/ba/bastreg.uml index d20b00425..ce32f355e 100755 --- a/ba/bastreg.uml +++ b/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 " - FLAGS "FRD" -END + PROMPT 1 1 "Ditta " + 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 -BEGIN - PROMPT 30 4 "Anno " - COPY ALL F_INIZIO1 - FLAGS "ZR" - FIELD CODTAB[1,4] - GROUP 1 -END +**************/ -STRING F_FINE1 3 +NUMBER F_FINE2 3 BEGIN - PROMPT 4 6 "A registro " - FLAGS "U" - COPY USE F_INIZIO1 - INPUT CODTAB[5,7] F_FINE1 - INPUT CODTAB[1,4] F_FINE2 - COPY DISPLAY F_INIZIO1 - OUTPUT F_FINE1 CODTAB[5,7] - OUTPUT F_FINE2 CODTAB[1,4] - FIELD CODTAB[5,7] - GROUP 2 -END - -NUMBER F_FINE2 4 -BEGIN - PROMPT 30 6 "Anno " - COPY ALL F_FINE1 - FLAGS "ZR" - FIELD CODTAB[1,4] - GROUP 2 -END - -BUTTON DLG_OK 8 2 -BEGIN - PROMPT -12 -1 "" + FLAGS "HRZ" END -BUTTON DLG_QUIT 8 2 +/********** +STRING F_FINE1 3 BEGIN - PROMPT -22 -1 "" + PROMPT 44 4 "A registro " + FLAGS "U" + USE REG + INPUT CODTAB[1,4] F_FINE2 + 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] + FIELD CODTAB[5,7] + GROUP 2 +END +*****************/ + +BUTTON DLG_PRINT 10 2 +BEGIN + PROMPT -12 -1 "~Stampa" + MESSAGE EXIT,K_ENTER +END + +BUTTON DLG_QUIT 10 2 +BEGIN + PROMPT -22 -1 "" END ENDPAGE + ENDMASK + diff --git a/ba/batbreg.rpt b/ba/batbreg.rpt index de3ac8775..5b13af87c 100755 --- a/ba/batbreg.rpt +++ b/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]|@13gAnno: @4s -1|S0|@24gDescrizione: @25s -1|I0|@64gTipo: @25t -1|S7|@94gCod. libro: @3s -1|S8|@110gCod. attivita': @5s -2|I1|@2gPagine stampate: @2n -2|I2|@24gPagine numerate: @2n -2|D0|@46gData vidimazione: @d -2|D1|@75gData scadenza: @d -3|S1|@2gConservato presso: @40s -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 - +1|CODTAB[1,4]|@4s +1|CODTAB[5,7]|@5g@3,rs +1|I0|@9g@3,rn +1|S0|@14g@30s +1|S8|@46g@5s +1|I5|@53g@7n +1|D2|@62g@d +1|I1|@74g@4n +1|D3|@81g@d +1|S1|@90g@20s +1|I2|@112g@4n