From 4205bc68ea7b94f30a63df2eaf72d97de009dd43 Mon Sep 17 00:00:00 2001
From: cris <cris@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Tue, 21 Jun 2005 12:37:40 +0000
Subject: [PATCH] Patch level         : 1.7 at 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
---
 at/at2700.cpp | 23 +++++++++++++++++------
 1 file changed, 17 insertions(+), 6 deletions(-)

diff --git a/at/at2700.cpp b/at/at2700.cpp
index 407364467..4ed2f694e 100755
--- a/at/at2700.cpp
+++ b/at/at2700.cpp
@@ -954,10 +954,15 @@ 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;