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

Patch level : 2.2 330

Browse Source 
Files correlati     : in0.exe in0700a.msk
Ricompilazione Demo : [ ]
Commento            :
Corretta modifica e caricamento  rettifiche con anni
aventi diverse frequenze di versamento


git-svn-id: svn://10.65.10.50/trunk@13736 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2006-01-30 11:36:17 +00:00
parent d3a209fdd9
commit 47eab5237a
4 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
in/in0200.cpp
View File

@ -370,8 +370,8 @@ bool TDischetto_mask::on_field_event(TOperable_field& o, TField_event e, long jo
const char fc = frequenza(anno, 'C');
TList_field& list = (TList_field&)field(type_field());
TToken_string codes = "A|C";
TToken_string descr = TR("Acquisti");
TToken_string descr;
descr.add(TR("Acquisti"));
descr.add(TR("Cessioni"));
if (fa == fc)
{

3
in/in0700.cpp
View File

@ -172,8 +172,7 @@ public:
bool TRettifiche_intra::user_create()
{
open_files(LF_TABCOM, LF_TAB, LF_CLIFO,
LF_RIEPRETT, 0);
open_files(LF_TABCOM, LF_TAB, LF_CLIFO, LF_RIEPRETT, 0);
_rel = new TRelation(LF_RIEPRETT);
_msk = new TRettifiche_mask;
return TRUE;

8
in/in0700a.uml
View File

@ -47,10 +47,10 @@ END
NUMBER O_ANNO 4
BEGIN
PROMPT 21 4 "Anno "
FLAGS "AUG"
FLAGS "UG"
FIELD ANNORETT
CHECKTYPE REQUIRED
NUM_EXPR #O_ANNO<=#O_ANNO
NUM_EXPR #O_ANNO<=#F_ANNO
WARNING "Si possono rettificare solo gli anni precedenti o uguali"
END
@ -247,12 +247,15 @@ BEGIN
ITEM "03|Luglio-Settembre"
ITEM "04|Ottobre-Dicembre"
FIELD PERIODO
KEY 1
END
LIST F_PERIODO_A 2 16
BEGIN
PROMPT 33 12 "Periodo "
ITEM "01|Annuale"
FIELD PERIODO
KEY 1
END
NUBER F_NUM_RIG 7
@ -271,6 +274,7 @@ BEGIN
DISPLAY "Periodo rett." PERETT
DISPLAY "Numero rett." NUMRETT
OUTPUT F_PERIODO_M PERIODO
OUTPUT F_PERIODO_T PERIODO
OUTPUT F_NUM_RIG NUMRIG
CHECKTYPE REQUIRED
FIELD NUMRIG

11
in/inlib01.cpp
View File

@ -17,10 +17,6 @@
char TIntra_frequency::frequenza(int a, char t) const
{
const TDate d(TODAY);
if (a <= 0)
a = d.year();
switch (t)
{
case 'A': break;
@ -30,17 +26,20 @@ char TIntra_frequency::frequenza(int a, char t) const
default : break;
}
const TDate d(TODAY);
if (a <= 0)
a = d.year();
if (a < d.year())
{
TLocalisamfile riep(LF_RIEPRETT);
riep.put("TIPO", (char)t);
riep.put("TIPO", t);
riep.put("ANNO", a);
if (riep.read(_isgteq) == NOERR)
{
if (riep.get_char("TIPO") == t && riep.get_int("ANNO") == a)
{
const char freq = riep.get_char("FREQUENZA");
if (freq != '\0')
if (freq > ' ')
return freq;
}
}