Chiusura periodica: aggiunto flag per chiudere i sospesi

Patch level         :
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@6277 c028cbd2-c16b-5b4b-a496-9718f37d4682

at/at0600.cpp

@@ -1,9 +1,11 @@
 #include <mask.h>
 #include <printapp.h>
+#include <recarray.h>
 #include <utility.h>
 #include <lffiles.h>
 
 #include "at0.h"
+#include "atlib.h"
 
 // nomi campi maschera
 #include "at0600a.h"
@@ -16,7 +18,9 @@
 #include "storico.h"
 #include "sezioni.h"
 
-#define ALIAS_CTD			700		// categoria donatori
+#define ALIAS_CTD 700		// categoria donatori
+#define ALIAS_TCS	200		// tipi/esiti controlli sanitari
+
 
 class TChiusuraPeriodica : public TPrintapp
 {
@@ -27,7 +31,7 @@ class TChiusuraPeriodica : public TPrintapp
 	int 							_cur;	
 	TDate							_data_chiusura;
   TParagraph_string	_operazione;
-  bool							_definitiva;
+  bool							_definitiva, _sospesi;
   TString16				  _codsez, _codsot;
 	
 protected:
@@ -72,6 +76,12 @@ bool TChiusuraPeriodica::preprocess_page(int file, int counter)
 	_operazione = "Non deve essere filtrato";	
 	TRectype& recsez = current_cursor()->curr(LF_SEZIONI);
 	TRectype& recsog = current_cursor()->curr();
+	if (!(app()._sospesi))
+	{
+		const char stato = modstato_tcs(recsog.get(SOG_STATO));
+		if (stato == 'S')
+			return FALSE;
+	}		
 	// salto pagina se cambio sezione
 	const TString16 codsez = recsog.get(SOG_CODSEZ);		
 	const TString16 codsot = recsog.get(SOG_CODSOT);		
@@ -229,6 +239,7 @@ bool TChiusuraPeriodica::set_print(int)
   	_codsez = "**";
   	_codsez = "**";
 		_definitiva = _msk->get_bool(F_DEFINITIVA);
+		_sospesi = _msk->get_bool(F_SOSPESI);
 		_data_chiusura = _msk->get(F_DATA);
     reset_files(); 
     add_file(LF_SOGGETTI);
@@ -270,6 +281,7 @@ bool TChiusuraPeriodica::user_create()
 	_rel = new TRelation(LF_SOGGETTI);
 	_rel->add(LF_SEZIONI,"CODSEZ==CODSEZ|CODSOT==CODSOT");
   _rel->add("CTD", "CODTAB==CATDON",1,0,ALIAS_CTD);
+  _rel->add("TCS", "CODTAB==STATO",1,0,ALIAS_TCS);
 	//cursore ordinamento per sezione+sottogruppo+cognome+nome
   _cur = add_cursor(new TCursor(_rel, "", 3));
 	return TRUE;

at/at0600a.h

@@ -1,13 +1,14 @@
 // chiusura periodica
 // definizione campi per maschera di selezione
 
-#define F_SEZINI    101
-#define F_D_SEZINI  102
-#define F_SOTINI    103
-#define F_D_SOTINI  104
-#define F_SEZFIN    105
-#define F_D_SEZFIN  106
-#define F_SOTFIN    107
-#define F_D_SOTFIN  108
-#define F_DATA      109
-#define F_DEFINITIVA 110
+#define F_SEZINI     101
+#define F_D_SEZINI   102
+#define F_SOTINI     103
+#define F_D_SOTINI   104
+#define F_SEZFIN     105
+#define F_D_SEZFIN   106
+#define F_SOTFIN     107
+#define F_D_SOTFIN   108
+#define F_DATA       109
+#define F_SOSPESI    110
+#define F_DEFINITIVA 111

at/at0600a.uml

@@ -23,6 +23,7 @@ BEGIN
   OUTPUT F_SOTINI CODSOT
   OUTPUT F_D_SOTINI DENSOT
   CHECKTYPE SEARCH
+  ADD MASK batbsez
   HELP "Codice sezione da cui partire"
 END
 
@@ -38,6 +39,7 @@ BEGIN
   DISPLAY "Cod.sot." CODSOT
   COPY OUTPUT F_SEZINI
   CHECKTYPE NORMAL
+  ADD MASK batbsez
   HELP "Sezione da cui partire"
 END
 
@@ -59,6 +61,7 @@ BEGIN
   COPY DISPLAY F_D_SEZINI
   COPY OUTPUT F_D_SEZINI
   CHECKTYPE NORMAL
+  ADD MASK batbsez
   HELP "Sottogruppo da cui partire"
 END
 
@@ -78,6 +81,7 @@ BEGIN
   OUTPUT F_SOTFIN CODSOT
   OUTPUT F_D_SOTFIN DENSOT
   CHECKTYPE SEARCH
+  ADD MASK batbsez
   HELP "Codice sezione finale"
 END
 
@@ -93,6 +97,7 @@ BEGIN
   DISPLAY "Cod.sot." CODSOT
   COPY OUTPUT F_SEZFIN
   CHECKTYPE NORMAL
+  ADD MASK batbsez
   HELP "Sezione finale"
 END
 
@@ -101,6 +106,7 @@ BEGIN
   PROMPT 41 3 "  "
   COPY ALL F_SEZFIN
   CHECKTYPE SEARCH
+  ADD MASK batbsez
   HELP "Codice sottogruppo finale"
 END
 
@@ -114,6 +120,7 @@ BEGIN
   COPY DISPLAY F_D_SEZFIN
   COPY OUTPUT F_D_SEZFIN
   CHECKTYPE NORMAL
+  ADD MASK batbsez
   HELP "Sottogruppo finale"
 END
 
@@ -129,9 +136,15 @@ BEGIN
    HELP "Data di riferimento per i conteggi di chiusura"
 END
 
+BOOLEAN F_SOSPESI
+BEGIN
+   PROMPT 35 7 "Anche sospesi"
+   HELP "Indicare se si vogliono processare per la chiusura anche i soggetti sospesi"
+END
+
 BOOLEAN F_DEFINITIVA
 BEGIN
-   PROMPT 43 7 "Chiusura definitiva"
+   PROMPT 53 7 "Chiusura definitiva"
    HELP "Se chiusura definitiva, le operazioni stampate verranno registrate"
 END