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

Patch level : 1.7 at

Browse Source 
Files correlati     : at2.exe
Ricompilazione Demo : [ ]
Commento            : se non c'e filepers.dbf da un messaggio e non errore


git-svn-id: svn://10.65.10.50/trunk@13213 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2005-06-21 12:37:40 +00:00
parent e42b5e1141
commit 4205bc68ea
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
at/at2700.cpp
View File

@ -955,9 +955,14 @@ bool TStampaPerCategorie::set_print(int m)
break;
case F_FILEPERS:
{
_tipostampa=filepers;
if (yesno_box("Azzerare il contenuto del file prima dell'elaborazione?"))
_filepers->zap();
if (_filepers == NULL)
message_box("Manca il file di destinazione: opzione non selezionabile");
else
{
_tipostampa=filepers;
if (yesno_box("Azzerare il contenuto del file prima dell'elaborazione?"))
_filepers->zap();
}
}
break;
}
@ -1236,7 +1241,12 @@ bool TStampaPerCategorie::user_create()
add_cursor(new TSorted_cursor(_rel,"SOG_CODSEZ|SOG_CODSOT","",3));
_msk = new TMask("at2700a");
_file = new TExternisamfile("$file");
_filepers = new TExternisamfile("$filepers");
TFilename namepers("filepers");
namepers.ext("dbf");
if (namepers.exist())
_filepers = new TExternisamfile(namepers);
else
_filepers = NULL;
TConfig config(CONFIG_STUDIO);
TString16 etformato = config.get("EtFormato");
@ -1270,7 +1280,8 @@ bool TStampaPerCategorie::user_destroy()
delete _form_car;
delete _form_eti;
delete _msk;
delete _filepers;
if (_filepers != NULL)
delete _filepers;
delete _file;
delete _sfamiglia;
delete _sbenemerenze;