From 2f9789350f837c2fc16a51ccb549e8048974c0ad Mon Sep 17 00:00:00 2001 From: cris Date: Fri, 27 Feb 1998 07:57:20 +0000 Subject: [PATCH] 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 | 16 ++++++++++++++-- at/at0600a.h | 21 +++++++++++---------- at/at0600a.uml | 15 ++++++++++++++- 3 files changed, 39 insertions(+), 13 deletions(-) diff --git a/at/at0600.cpp b/at/at0600.cpp index 492aa9e39..c99527bc4 100755 --- a/at/at0600.cpp +++ b/at/at0600.cpp @@ -1,9 +1,11 @@ #include #include +#include #include #include #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; diff --git a/at/at0600a.h b/at/at0600a.h index d8e1f31a7..04b70c6b8 100755 --- a/at/at0600a.h +++ b/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 diff --git a/at/at0600a.uml b/at/at0600a.uml index 43720f0fa..5f2847e32 100755 --- a/at/at0600a.uml +++ b/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