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

Patch level :10.0 286

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :
0000563: Movimenti di analitica (ca2)
Descrizione  Permettere di inserire movimenti di preventivo /variazione preventivo su esercizi non ancora aperti
(per il nostro invincibile fuhrer!)


git-svn-id: svn://10.65.10.50/trunk@18745 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2009-04-21 10:38:42 +00:00
parent 4318e2a116
commit a399742ac2
2 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
ca/ca2100.cpp
View File

@ -395,11 +395,19 @@ bool TMovanal_msk::on_field_event(TOperable_field& o, TField_event e, long jolly
TDate datacomp = o.get();
if (!datacomp.ok())
datacomp = datareg;
if (datacomp > datareg)
const bool preventivo = get(F_TIPO).full();
//i movimenti normali devono avere data competenza nel presente o passato!!
if (!preventivo && datacomp > datareg)
return error_box(TR("La data di competenza non puo' superare la data di registrazione"));
const TEsercizi_contabili ec;
const int ae = ec.date2esc(datacomp);
int ae = ec.date2esc(datacomp);
//movimenti preventivi in esercizi futuri
if (ae <= 0 && preventivo && datacomp > datareg)
ae = ec.date2esc(datareg) + datacomp.year() - datareg.year();
if (ae > 0)
set(F_ANNOES, ae, 0x1);
else
@ -407,8 +415,19 @@ bool TMovanal_msk::on_field_event(TOperable_field& o, TField_event e, long jolly
const int ar = ec.date2esc(datareg);
const int ap = ec.pred(ar);
if (ae != ar && ae != ap)
return error_box(FR("La data di competenza deve appartenere all'esercizio in corso o al precedente"));
//preventivi un anno indietro, nel presente o nel futuro
if (preventivo)
{
if (ae < ap)
return error_box(FR("La data di competenza non può precedere l'esercizio %d"), ap);
}
else //normali solo un anno indietro o nel presente
{
if (ae != ar && ae != ap)
return error_box(FR("La data di competenza deve appartenere all'esercizio in corso o al precedente"));
}
}
break;
case F_DATAFCOMP:

3
ca/ca2100a.uml
View File

@ -38,8 +38,11 @@ LIST F_TIPO 1 25
BEGIN
PROMPT 2 5 "Tipo movimento "
ITEM " |Normale"
MESSAGE CLEAR,F_DATAFCOMP
ITEM "P|Preventivo"
MESSAGE ENABLE,F_DATAFCOMP
ITEM "V|Variazione preventivo"
MESSAGE ENABLE,F_DATAFCOMP
FIELD TIPOMOV
END