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

Aggiunto flag sui parametri ditta per agricoltore minimo relativamente al nuovo

Browse Source 
prospetto dal 1998.


git-svn-id: svn://10.65.10.50/trunk@5515 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
angelo 1997-11-03 11:37:53 +00:00
parent 5949a50ed2
commit 30bf0f7ec9
3 changed files with 31 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
cg/cg5300.cpp
View File

@ -29,6 +29,7 @@ class TParaliq_app : public TRelation_application
protected: // Applicat
virtual void on_config_change();
static bool gelidi_handler(TMask_field& f, KEY k);
static bool agrmin_handler(TMask_field& f, KEY k);
protected: // Relapp
virtual bool user_create();
@ -64,7 +65,7 @@ inline TParaliq_app& app() { return (TParaliq_app&) main_app(); }
bool TParaliq_app::gelidi_handler(TMask_field& f, KEY k)
{
if (k==K_ENTER)
if (k==K_SPACE)
{
TLocalisamfile* ditte = app()._ditte;
TMask& m = f.mask();
@ -84,6 +85,27 @@ bool TParaliq_app::gelidi_handler(TMask_field& f, KEY k)
return TRUE;
}
bool TParaliq_app::agrmin_handler(TMask_field& f, KEY k)
{
if (k == K_SPACE)
{
TLocalisamfile* attiv = app()._attiv;
TMask& m = f.mask();
if (m.get_bool(F_AGRMIN))
{
const long ditta = m.get_long(F_CODDITTA);
attiv->put(ATT_CODDITTA, ditta);
if (attiv->read(_isgteq) == NOERR && attiv->get_long(ATT_CODDITTA) == ditta
&& !attiv->get_bool(ATT_REGAGR))
{
f.set(" ");
f.error_box("La gestione degli agricoltori minimi richiede "
"il settaggio del regime agricolo sull'attivita'.");
}
}
}
return TRUE;
}
void TParaliq_app::check_registers(int year)
{
@ -187,6 +209,7 @@ bool TParaliq_app::user_create()
_msk = new TMask("cg5300a");
_msk->set_handler(F_GELIDI,gelidi_handler);
_msk->set_handler(F_AGRMIN,agrmin_handler);
((TSheet_field&)_msk->field(F_SHEET_PLA)).set_notify(sheet_action);
return TRUE;
}

1
cg/cg5300a.h
View File

@ -6,6 +6,7 @@
#define F_CODDITTA 306
#define F_RAGSOC 307
#define F_CRED_COST 308
#define F_AGRMIN 309
#define F_CODATT 101
#define F_DESATT 150
#define F_TIPOATT 102

6
cg/cg5300a.uml
View File

@ -87,6 +87,12 @@ BEGIN
NUM_CALC ROUND(#THIS_FIELD,-3)
END
BOOLEAN F_AGRMIN
BEGIN
PROMPT 45 6 "Agricoltore minimo "
FIELD B2
END
NUMBER F_CRED_COST 15
BEGIN
PROMPT 4 7 "Credito di costo "