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

Patch level :10.0 806

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
sistemato problema datareg/datacalc nella contabilizzazione cespiti


git-svn-id: svn://10.65.10.50/branches/R_10_00@20881 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2010-09-20 11:06:18 +00:00
parent 57c9202983
commit 545e047be5
2 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
ce/ce4400.cpp
View File

@ -43,6 +43,31 @@ bool TContabilizza_ce_mask::on_field_event(TOperable_field& o, TField_event e, l
{
switch (o.dlg())
{
case F_PROVDEF:
if (e == fe_modify)
{
const char definitivo = o.get()[0];
if (definitivo == 'X')
{
TEsercizi_contabili esc;
int anno = get_int(F_ESERCIZIO);
TDate dal, al;
if (esc.code2range(anno, dal, al))
{
set(F_DATACALC, al);
disable(F_DATACALC);
}
else
return error_box("Esercizio non corretto!");
}
else
{
enable(F_DATACALC);
const TDate today(TODAY);
set(F_DATACALC, today);
}
}
break;
case F_DATACALC:
if (e == fe_close)
{
@ -59,6 +84,7 @@ bool TContabilizza_ce_mask::on_field_event(TOperable_field& o, TField_event e, l
if (datacalc < data_ini_es || datacalc > data_fine_es)
return error_box(TR("La data di calcolo deve appartenere all'esercizio selezionato!"));
}
break;
case F_DATAREG:
@ -78,8 +104,13 @@ bool TContabilizza_ce_mask::on_field_event(TOperable_field& o, TField_event e, l
datalim.addyear(1);
}
TDate datareg = o.get();
if (datareg > datalim)
return error_box(FR("La data registrazione deve essere inferiore al %s"), datalim.string());
//solo in caso di trasferimento definitivo, sennò, se si sceglie una datareg nel futuro rispetto alla data di sistema,..
//..il movimento contabile generato non si può aprire con Campo in CG a meno di cambiare la data si sistema operativo
if (datareg < get_date(F_DATACALC) && get_bool(F_PROVDEF))
return error_box("La data di registrazione non puo' essere inferiore alla data di calcolo");
}
default: break;

4
ce/ce4400a.uml
View File

@ -112,8 +112,6 @@ END
BOOLEAN F_PROVDEF
BEGIN
PROMPT 2 6 "Trasferimento definitivo"
MESSAGE FALSE ENABLE,F_DATACALC
MESSAGE TRUE CLEAR,F_DATACALC
END
DATA F_DATACALC
@ -133,8 +131,6 @@ BEGIN
PROMPT 2 11 "Data registrazione "
FLAGS "A"
CHECKTYPE REQUIRED
VALIDATE DATE_CMP_FUNC >= F_DATACALC
WARNING "La data di registrazione non puo' essere inferiore alla data di calcolo"
END
BOOLEAN F_KILLOLD