Corretto formato di stampa della tabella registri
git-svn-id: svn://10.65.10.50/trunk@435 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik
parent
425b0b73c9
commit
f62fa42846
@ -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();
|
||||
|
||||
@ -23,6 +23,9 @@
|
||||
#define F_FINE9 209
|
||||
#define F_FINE10 210
|
||||
|
||||
#define F_CODDITTA 211
|
||||
#define F_RAGSOC 212
|
||||
|
||||
#endif
|
||||
|
||||
|
||||
|
||||
111
ba/bastreg.uml
111
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
|
||||
|
||||
|
||||
@ -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
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user