Patch level : 10.0
Files correlati : Ricompilazione Demo : [ ] Commento : Mostra esempio corretto per campi VALUTA in editor dei form git-svn-id: svn://10.65.10.50/branches/R_10_00@21150 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
425e9e5fea
commit
f49dd37cf1
@ -1419,6 +1419,8 @@ protected: // TForm_string
|
||||
virtual const char* get() const;
|
||||
// @cmember Manda il messaggio al campo <p dest>
|
||||
virtual void send_message(const TString& cmd, TForm_item& dest) const;
|
||||
const char* example() const { return "12.345.678,90"; }
|
||||
|
||||
public:
|
||||
virtual TObject* dup() const;
|
||||
virtual TCurrency get_currency() const;
|
||||
@ -4459,19 +4461,14 @@ bool TForm::write_profile()
|
||||
sec->print_on(cur);
|
||||
sec->set_dirty(FALSE);
|
||||
|
||||
err = _isnew ? rform.write() : rform.rewrite();
|
||||
if (err != NOERR)
|
||||
err = _isnew ? rform.rewrite() : rform.write();
|
||||
|
||||
err = _isnew ? rform.write_rewrite() : rform.rewrite_write();
|
||||
for (word i = 0; i < sec->fields() && err == NOERR; i++)
|
||||
{
|
||||
TForm_item& fi = sec->field(i);
|
||||
if (fi.dirty())
|
||||
{
|
||||
fi.print_on(cur);
|
||||
err = _isnew ? rform.write() : rform.rewrite();
|
||||
if (err != NOERR)
|
||||
err = _isnew ? rform.rewrite() : rform.write();
|
||||
err = _isnew ? rform.write_rewrite() : rform.rewrite_write();
|
||||
fi.set_dirty(FALSE);
|
||||
}
|
||||
}
|
||||
|
@ -723,7 +723,7 @@ bool TPrint_section::repos_fields(const char* name, int size)
|
||||
ps.form().fontname() = name;
|
||||
ps.form().fontsize() = size;
|
||||
// Aggiorna lo spreadsheet
|
||||
TSheet_field& ms = (TSheet_field&)ps._msk->field(F_FIELDS);
|
||||
TSheet_field& ms = ps._msk->sfield(F_FIELDS);
|
||||
TToken_string tt(128);
|
||||
const word flds = ps.fields();
|
||||
for (word i = 0; i < flds; i++)
|
||||
@ -1005,7 +1005,7 @@ bool TPrint_section::detail_field_notify (TSheet_field& s, int r, KEY k)
|
||||
else
|
||||
if (k == K_SPACE)
|
||||
{
|
||||
if (_cur_form && TString(_cur_form->section_mask()).left(2) == "ba")
|
||||
if (_cur_form && TFixed_string(_cur_form->section_mask()).starts_with("ba"))
|
||||
{
|
||||
TString80 name(s.mask().get(F_FONT));
|
||||
int size = s.mask().get_int(F_SIZE);
|
||||
@ -1025,7 +1025,7 @@ bool TPrint_section::detail_field_notify (TSheet_field& s, int r, KEY k)
|
||||
bool TPrint_section::edit(
|
||||
const char* title) // @parm Titolo della maschera di edit
|
||||
{
|
||||
const bool is_ba_editor = TString(_form->section_mask()).left(2) == "ba";
|
||||
const bool is_ba_editor = TFixed_string(_form->section_mask()).starts_with("ba");
|
||||
bool nstd_dirty = FALSE;
|
||||
bool font_found = FALSE;
|
||||
|
||||
@ -1053,7 +1053,7 @@ bool TPrint_section::edit(
|
||||
}
|
||||
else
|
||||
_form->pre_edit_checks(m,_cur_sect);
|
||||
TSheet_field& ms = (TSheet_field&)m.field(F_FIELDS);
|
||||
TSheet_field& ms = m.sfield(F_FIELDS);
|
||||
|
||||
m.hide(F_OFSVR);//Offset verticale, per _columnwise. Non ancora usato.
|
||||
if (_columnwise)
|
||||
@ -1130,7 +1130,7 @@ bool TPrint_section::edit(
|
||||
bool ok = FALSE;
|
||||
while (m.run() != K_ESC)
|
||||
{
|
||||
TSheet_field& ms = (TSheet_field&)m.field(F_FIELDS);
|
||||
TSheet_field& ms = m.sfield(F_FIELDS);
|
||||
const int items = ms.items();
|
||||
int i;
|
||||
|
||||
@ -1139,8 +1139,10 @@ bool TPrint_section::edit(
|
||||
TToken_string& tt = ms.row(i);
|
||||
ok = tt.get_char(prn_id - 101)==' ';
|
||||
}
|
||||
if (i==items && !ok) error_box("Selezionare almeno una colonna stampabile.");
|
||||
if (ok) break;
|
||||
if (i==items && !ok)
|
||||
error_box("Selezionare almeno una colonna stampabile.");
|
||||
if (ok)
|
||||
break;
|
||||
}
|
||||
_msk = NULL;
|
||||
if (!ok) return FALSE;
|
||||
|
@ -2242,7 +2242,7 @@ int TSystemisamfile::packfile(
|
||||
int TSystemisamfile::zap()
|
||||
{
|
||||
safely_close_closeable_isamfiles();
|
||||
return packfile(TRUE, TRUE);
|
||||
return packfile(true, true);
|
||||
}
|
||||
|
||||
// @doc EXTERNAL
|
||||
|
Loading…
x
Reference in New Issue
Block a user