Patch level :10.0 440

Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0001394: backup
Descrizione  il cliente Sofind chiede che si possa avere il bottone sfoglia nei backup


git-svn-id: svn://10.65.10.50/trunk@19269 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-09-10 09:14:29 +00:00
parent 7501c1913d
commit 2f42721ca2
2 changed files with 13 additions and 2 deletions

View File

@ -56,7 +56,7 @@ TArchive_mask::TArchive_mask() : TAutomask("ba2200")
values.add(str);
TToken_string& message = *lf.message(k++, TRUE);
if (isrem && is_real_floppy(str))
message.format("DISABLE,%d", F_PATH);
message.format("CLEAR,%d", F_PATH);
else
message.format("ENABLE,%d", F_PATH);
}
@ -68,6 +68,15 @@ bool TArchive_mask::on_field_event(TOperable_field& o, TField_event e, long joll
{
switch (o.dlg())
{
case F_FLOPPY:
if (e == fe_modify)
{
const TString& path = get(F_PATH);
const TString& curr = o.get();
if (!path.starts_with(curr))
set(F_PATH, curr);
}
break;
case F_PATH:
if (e == fe_modify)
{

View File

@ -10,9 +10,11 @@ BEGIN
ITEM "C|C:" MESSAGE ENABLE,F_PATH
END
STRING F_PATH 45
STRING F_PATH 256 45
BEGIN
PROMPT 15 1 "Percorso "
DSELECT
FLAGS "M"
END
BOOLEAN F_DITTA