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

13
at/at2700.cpp
View File

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