Patch level : 1.7 avis

Files correlati     : batbmtc.msk at0.exe
Ricompilazione Demo : [ ]
Commento            : aggiunto sui motivi un flag per la segnalazione, utilizzato nell'inserimento giornaliero controlli: se il soggetto é sospeso con quel motivo, me lo segnala (PR)


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

at/at0300.cpp

@@ -407,9 +407,11 @@ bool TGiornalieroC::soggetti_notify(TSheet_field& s, int r, KEY k)
 		 					contsan.put(CON_DATACON,soggetti.get(SOG_DATASTATO));
 							contsan.put(CON_CODICE,codsog);
 							if (contsan.read() == NOERR)
-							{
+							{ 
 								TString16 motivo = contsan.get(CON_MOTIVO);
-								warning_box("Il soggetto e' sospeso, motivo: %s", (const char *) motivo);
+								const TRectype& recmot = cache().get("MTC", motivo);
+								if (recmot.get_bool("B0"))
+									warning_box("Attenzione! Il soggetto e' sospeso, motivo: %s", (const char *) recmot.get("S0"));
 							}	
 						}	
 					}

at/batbmtc.h

@@ -1,3 +1,4 @@
 #define F_TABMTC_CODTAB         100
 #define F_TABMTC_DESCR          101
+#define F_TABMTC_SEGNALA        102
 #define DLG_DEL                 105

at/batbmtc.uml

@@ -36,5 +36,12 @@ BEGIN
 	KEY 2
 END
 
+BOOLEAN F_TABMTC_SEGNALA
+BEGIN
+         PROMPT 2 5 "Segnala la sospensione per questo motivo"
+         FIELD B0
+         HELP "Indicare se occorre segnalare che il soggetto e' sospeso per questo motivo"
+END
+
 ENDPAGE
 ENDMASK