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

Patch level : 2.1 50

Browse Source 
Files correlati     : ba8.exe
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@12121 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2004-05-27 10:56:06 +00:00
parent b6d60057f4
commit 03bc77a2fe
4 changed files with 18 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ba/ba8300.cpp
View File

@ -241,7 +241,8 @@ void TReport_field_mask::vedo_non_vedo()
show(F_BGCOLOR, type != 'L');
show(F_FONT_SELECT, is_text);
show(F_SOURCE, (is_text || type == 'I') && type != 'T');
show(DLG_FINDREC, field(F_SOURCE).active());
show(F_SOURCE2, is_text && type != 'T');
show(DLG_FINDREC, is_text && type != 'T');
show(F_CODVAL, is_currency); // Codice valuta di riferimento
show(F_LINK, strchr("DNS", type) != NULL); // Chi puo' essere un link?
show(F_PRESCRIPT, is_text);
@ -865,8 +866,13 @@ bool TReport_mask::delete_report()
void TReport_mask::on_print()
{
TReport_printer rp(_report);
rp.print(printer().printtype() == screenvis);
#ifdef DBG
TReport_book book("ba8300.txt");
#else
TReport_book book;
#endif
book.add(_report);
book.print_or_preview();
}
TReport_section& TReport_mask::curr_section()

3
ba/ba8300b.uml
View File

@ -166,7 +166,8 @@ LIST F_BORDER 1 12
BEGIN
PROMPT 2 10 "Bordo "
ITEM "0|Nessuno"
ITEM "1|Normale"
ITEM "1|Sottile"
ITEM "2|Normale"
ITEM "3|Spesso"
END

4
ba/ba8500.cpp
View File

@ -195,8 +195,8 @@ void TKlarkKent_app::main_loop()
TReport rep;
if (rep.load(report_name))
{
TReport_printer rp(rep);
rp.print(printer().printtype() == screenvis);
TReport_book book;
book.add(rep);
}
}
}

5
ba/report.alx
View File

@ -168,3 +168,8 @@
: MESSAGE_TABLEREAD ( s1 s2 s3 -- )
TABLE_READ
;
: MESSAGE_TODAY ( -- ) \ Data odierna
#SYSTEM.DATE @ \ Leggo la data
#THIS ! \ Setto il campo corrente con la data
;