root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Correzione alla stampa fogli libro bollato:

Browse Source 
se la ditta non esiste va leggere LF_TABREG


git-svn-id: svn://10.65.10.50/trunk@4145 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-02-21 09:51:34 +00:00
parent dcd95cc9b8
commit 1224ad9565
3 changed files with 660 additions and 631 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

207
ba/ba3300.cpp
View File

@ -100,11 +100,11 @@ void Libribollati_print::set_page(int , int counter)
{ {
if (!_inizia_dopo) if (!_inizia_dopo)
{ {
if (_anno_stampa == 0) if (_anno_stampa == 0)
set_row(3, "@120gPag. %ld", contatore); set_row(3, "@120gPag. %ld", contatore);
else else
set_row(3, "@120gPag. %4d/%ld", _anno_stampa, contatore); set_row(3, "@120gPag. %4d/%ld", _anno_stampa, contatore);
} }
int pos = printer().formlen() / 2 - 3; int pos = printer().formlen() / 2 - 3;
set_row(pos++, "@36g%-50s", (const char*) _descr); set_row(pos++, "@36g%-50s", (const char*) _descr);
set_row(pos++, "@36g%-50s", (const char*) _ragsoc); set_row(pos++, "@36g%-50s", (const char*) _ragsoc);
@ -129,10 +129,10 @@ void Libribollati_print::set_page(int , int counter)
set_row(2, "@1g%-50s", (const char*) _descr); set_row(2, "@1g%-50s", (const char*) _descr);
set_row(2, "@52gCODICE FISCALE %-16s", (const char*) _cofi); set_row(2, "@52gCODICE FISCALE %-16s", (const char*) _cofi);
set_row(2, "@85gPARTITA I.V.A. %-11s", (const char*) _paiv); set_row(2, "@85gPARTITA I.V.A. %-11s", (const char*) _paiv);
if (_anno_stampa == 0) if (_anno_stampa == 0)
set_row(2, "@120gPag. %ld", contatore); set_row(2, "@120gPag. %ld", contatore);
else else
set_row(2, "@120gPag. %4d/%ld", _anno_stampa, contatore); set_row(2, "@120gPag. %4d/%ld", _anno_stampa, contatore);
set_row(25, "@50gN. ........ DI REPERTORIO"); set_row(25, "@50gN. ........ DI REPERTORIO");
set_row(27, "@50gIL PRESENTE LIBRO DELLA@75g%-50s", (const char*) _ragsoc); set_row(27, "@50gIL PRESENTE LIBRO DELLA@75g%-50s", (const char*) _ragsoc);
@ -156,9 +156,9 @@ void Libribollati_print::set_page(int , int counter)
set_row(2, "@52gCODICE FISCALE %-16s", (const char*) _cofi); set_row(2, "@52gCODICE FISCALE %-16s", (const char*) _cofi);
set_row(2, "@85gPARTITA I.V.A. %-11s", (const char*) _paiv); set_row(2, "@85gPARTITA I.V.A. %-11s", (const char*) _paiv);
if (_anno_stampa == 0) if (_anno_stampa == 0)
set_row(2, "@120gPag. %ld", contatore); set_row(2, "@120gPag. %ld", contatore);
else else
set_row(2, "@120gPag. %4d/%ld", _anno_stampa, contatore); set_row(2, "@120gPag. %4d/%ld", _anno_stampa, contatore);
} }
} }
@ -166,30 +166,30 @@ bool Libribollati_print::set_print(int)
{ {
if (_msk->run() == K_ENTER) if (_msk->run() == K_ENTER)
{ {
TPrinter& pr = printer(); TPrinter& pr = printer();
//pr.formlen(_msk->get_int(F_LUNG)); //pr.formlen(_msk->get_int(F_LUNG));
int font_size = pr.calc_font_size(132); int font_size = pr.calc_font_size(132);
if (font_size != pr.get_char_size()) if (font_size != pr.get_char_size())
{ {
warning_box("Il font e' stato ridimensionato a %d punti per\n" warning_box("Il font e' stato ridimensionato a %d punti per\n"
"adattarsi alle dimensioni attuali della pagina.", font_size); "adattarsi alle dimensioni attuali della pagina.", font_size);
pr.set_char_size(font_size); pr.set_char_size(font_size);
} }
_cod_reg = _msk->get(F_CODICE); _cod_reg = _msk->get(F_CODICE);
_cod_anno = _msk->get_int(F_ANNO); _cod_anno = _msk->get_int(F_ANNO);
_pag_ini = _msk->get_long(F_NPAGINI); _pag_ini = _msk->get_long(F_NPAGINI);
_pag_fin = _msk->get_long(F_NPAGFI); _pag_fin = _msk->get_long(F_NPAGFI);
_inizia_dopo = _msk->get_bool(F_PRIMO); _inizia_dopo = _msk->get_bool(F_PRIMO);
_num_pag = (_pag_fin - _pag_ini) + 1; _num_pag = (_pag_fin - _pag_ini) + 1;
_ragsoc = _msk->get(F_RAGSOC); _ragsoc = _msk->get(F_RAGSOC);
_indulc = _msk->get(F_INDIRIZZO); _indulc = _msk->get(F_INDIRIZZO);
_civulc = _msk->get(F_CIV); _civulc = _msk->get(F_CIV);
_capulc = _msk->get(F_CAP); _capulc = _msk->get(F_CAP);
_comulc = _msk->get(F_CODCOM); _comulc = _msk->get(F_CODCOM);
_com = _msk->get(F_COM); _com = _msk->get(F_COM);
_prov = _msk->get(F_PROV); _prov = _msk->get(F_PROV);
_paiv = _msk->get(F_PAIV); _paiv = _msk->get(F_PAIV);
_cofi = _msk->get(F_COFI); _cofi = _msk->get(F_COFI);
_anno_stampa = _msk->get_int(F_ANNOSTAMPA); _anno_stampa = _msk->get_int(F_ANNOSTAMPA);
if (_inizia_dopo) _num_pag++; if (_inizia_dopo) _num_pag++;
enable_print_menu(); enable_print_menu();
@ -200,85 +200,88 @@ bool Libribollati_print::set_print(int)
static bool registro_handler(TMask_field& field, KEY key) static bool registro_handler(TMask_field& field, KEY key)
{ {
if (key == K_TAB && field.focusdirty()) if (key == K_TAB && field.focusdirty())
{ {
//field.mask().set(F_LUNG,66); //field.mask().set(F_LUNG,66);
field.mask().set(F_NPAGINI, 0L); field.mask().set(F_NPAGINI, 0L);
field.mask().set(F_NPAGFI, 0L); field.mask().set(F_NPAGFI, 0L);
} }
return TRUE; return TRUE;
} }
static bool codditta_handler(TMask_field& field, KEY key) static bool codditta_handler(TMask_field& field, KEY key)
{ {
if (key == K_TAB && field.focusdirty()) if (key == K_TAB && field.focusdirty())
{ {
TMask& m = field.mask(); TMask& m = field.mask();
const long codditta = m.get_long(F_CODDITTA); const long codditta = m.get_long(F_CODDITTA);
if (codditta == 0) if (codditta == 0)
m.reset(); m.reset();
else else
{ {
TLocalisamfile nditte(LF_NDITTE); TLocalisamfile nditte(LF_NDITTE);
TLocalisamfile unloc(LF_UNLOC); TLocalisamfile unloc(LF_UNLOC);
TLocalisamfile comuni(LF_COMUNI); TLocalisamfile comuni(LF_COMUNI);
TLocalisamfile anag(LF_ANAG); TLocalisamfile anag(LF_ANAG);
nditte.setkey(1); nditte.setkey(1);
nditte.zero(); nditte.zero();
nditte.put(N_CODDITTA, codditta); nditte.put(N_CODDITTA, codditta);
nditte.read(); nditte.read();
if (nditte.bad()) if (nditte.bad())
return error_box("Il codice ditta %d non esiste", codditta); return error_box("Il codice ditta %d non esiste", codditta);
if (prefix().exist(codditta)) const bool exist_firm = prefix().exist(codditta);
app().set_firm(codditta); if (exist_firm)
else app().set_firm(codditta);
{ m.hide(exist_firm ? -4 : -3);
m.field(F_ANNO).hide(); m.show(exist_firm ? -3 : -4);
m.field(F_CODICE).hide(); //else
m.field(F_ANNOREG).shown(); //{
m.field(F_CODICEREG).shown(); //m.field(F_ANNO).hide();
} //m.field(F_CODICE).hide();
app()._ragsoc = "SOCIETA' "; //m.field(F_ANNOREG).show();
app()._ragsoc << nditte.get(N_RAGSOC); //m.field(F_CODICEREG).show();
m.set(F_RAGSOC,app()._ragsoc); //}
app()._ragsoc = "SOCIETA' ";
app()._ragsoc << nditte.get(N_RAGSOC);
m.set(F_RAGSOC,app()._ragsoc);
const TString16 tipoa = nditte.get(N_TIPOA); const TString16 tipoa = nditte.get(N_TIPOA);
const long codanagr = atol(nditte.get(N_CODANAGR)); const long codanagr = atol(nditte.get(N_CODANAGR));
unloc.setkey(1); unloc.setkey(1);
unloc.zero(); unloc.zero();
unloc.put(N_CODDITTA, codditta); unloc.put(N_CODDITTA, codditta);
unloc.put(N_CODULC,"1"); unloc.put(N_CODULC,"1");
unloc.read(); unloc.read();
app()._indulc = unloc.get(N_INDULC); app()._indulc = unloc.get(N_INDULC);
m.set(F_INDIRIZZO, app()._indulc); m.set(F_INDIRIZZO, app()._indulc);
app()._civulc = unloc.get(N_CIVULC); app()._civulc = unloc.get(N_CIVULC);
m.set(F_CIV, app()._civulc); m.set(F_CIV, app()._civulc);
app()._capulc = unloc.get(N_CAPULC); app()._capulc = unloc.get(N_CAPULC);
m.set(F_CAP, app()._capulc); m.set(F_CAP, app()._capulc);
app()._comulc = unloc.get(N_COMULC); app()._comulc = unloc.get(N_COMULC);
m.set(F_CODCOM, app()._comulc); m.set(F_CODCOM, app()._comulc);
comuni.setkey(1); comuni.setkey(1);
comuni.zero(); comuni.zero();
comuni.put(N_CODCOM, app()._comulc); comuni.put(N_CODCOM, app()._comulc);
comuni.read(); comuni.read();
app()._com = comuni.get(N_COM); app()._com = comuni.get(N_COM);
m.set(F_COM, app()._com); m.set(F_COM, app()._com);
app()._prov = comuni.get(N_PROV); app()._prov = comuni.get(N_PROV);
m.set(F_PROV, app()._prov); m.set(F_PROV, app()._prov);
anag.setkey(1); anag.setkey(1);
anag.zero(); anag.zero();
anag.put(N_TIPOA, tipoa); anag.put(N_TIPOA, tipoa);
anag.put(N_CODANAGR, codanagr); anag.put(N_CODANAGR, codanagr);
anag.read(); anag.read();
app()._cofi = anag.get(N_COFI); app()._cofi = anag.get(N_COFI);
m.set(F_COFI, app()._cofi); m.set(F_COFI, app()._cofi);
app()._paiv = anag.get(N_PAIV); app()._paiv = anag.get(N_PAIV);
m.set(F_PAIV, app()._paiv); m.set(F_PAIV, app()._paiv);
} }
} }
return TRUE; return TRUE;
} }
@ -289,10 +292,10 @@ bool Libribollati_print::user_create()
enable_print_menu(); enable_print_menu();
_nditte = new TLocalisamfile(LF_NDITTE); _nditte = new TLocalisamfile(LF_NDITTE);
_unloc = new TLocalisamfile(LF_UNLOC); _unloc = new TLocalisamfile(LF_UNLOC);
_comuni = new TLocalisamfile(LF_COMUNI); _comuni = new TLocalisamfile(LF_COMUNI);
_anag = new TLocalisamfile(LF_ANAG); _anag = new TLocalisamfile(LF_ANAG);
_tab = new TTable("REG"); _tab = new TTable("REG");
_msk = new TMask("ba3300a") ; _msk = new TMask("ba3300a") ;
_msk->set_handler(F_REGISTRO, registro_handler); _msk->set_handler(F_REGISTRO, registro_handler);

1
ba/ba3300.h
View File

@ -37,5 +37,6 @@
#define F_NPAGFI 119 #define F_NPAGFI 119
#define F_PRIMO 120 #define F_PRIMO 120
#define F_ANNOSTAMPA 121 #define F_ANNOSTAMPA 121
#define F_TIPOREGCOM 122
#endif // __BA3300_H #endif // __BA3300_H

33
ba/ba3300a.uml
View File

@ -24,7 +24,7 @@ BEGIN
MESSAGE EMPTY DISABLE,3@ MESSAGE EMPTY DISABLE,3@
END END
STRING F_RAGSOC 50 60 STRING F_RAGSOC 60 50
BEGIN BEGIN
PROMPT 2 3 "Rag. Soc. " PROMPT 2 3 "Rag. Soc. "
USE LF_NDITTE KEY 2 USE LF_NDITTE KEY 2
@ -72,7 +72,7 @@ BEGIN
HELP "Codice del comune dell'intestatario" HELP "Codice del comune dell'intestatario"
END END
STRING F_COM 28 STRING F_COM 50 28
BEGIN BEGIN
PROMPT 35 5 "" PROMPT 35 5 ""
USE LF_COMUNI KEY 2 USE LF_COMUNI KEY 2
@ -153,6 +153,31 @@ BEGIN
GROUP 3 GROUP 3
END END
LIST F_TIPOREGCOM 1 25
BEGIN
PROMPT 2 11 "Tipo "
FLAGS "H"
HELP "Tipo registro da stampare"
ITEM "1|Vendite"
MESSAGE HIDE,1@|SHOW,2@
ITEM "2|Acquisti"
MESSAGE HIDE,1@|SHOW,2@
ITEM "3|Libro IVA riepilogativo"
MESSAGE HIDE,1@|SHOW,2@
// ITEM "4|Libro incassi e pagamenti"
ITEM "5|Libro giornale"
MESSAGE HIDE,1@|SHOW,2@
ITEM "6|Libri sociali"
MESSAGE HIDE,1@|SHOW,2@
ITEM "7|Libro cespiti"
MESSAGE HIDE,1@|SHOW,2@
ITEM "8|Libro inventari"
MESSAGE HIDE,1@|SHOW,2@
ITEM "9|Libro procedure"
MESSAGE HIDE,1@|SHOW,2@
GROUP 4
END
NUMBER F_ANNO 4 NUMBER F_ANNO 4
BEGIN BEGIN
PROMPT 2 12 "Anno rifer. " PROMPT 2 12 "Anno rifer. "
@ -199,7 +224,7 @@ BEGIN
OUTPUT F_REGISTRO DESCR OUTPUT F_REGISTRO DESCR
FLAGS "ZH" FLAGS "ZH"
CHECKTYPE SEARCH CHECKTYPE SEARCH
GROUP 2 3 GROUP 2 4
END END
@ -211,7 +236,7 @@ BEGIN
COPY ALL F_ANNOREG COPY ALL F_ANNOREG
CHECKTYPE NORMAL CHECKTYPE NORMAL
WARNING "Registro assente" WARNING "Registro assente"
GROUP 2 3 GROUP 2 4
END END
STRING F_REGISTRO 50 STRING F_REGISTRO 50