root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : 1.7 avis

Browse Source 
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
This commit is contained in:
cris 2002-03-20 10:26:38 +00:00
parent 28d16e564b
commit 52962b0e14
3 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
at/at0300.cpp
View File

@ -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"));
}
}
}

1
at/batbmtc.h
View File

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

7
at/batbmtc.uml
View File

@ -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