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'); const char fc = frequenza(anno, 'C');
TList_field& list = (TList_field&)field(type_field()); TList_field& list = (TList_field&)field(type_field());
TToken_string codes = "A|C"; TToken_string codes = "A|C";
TToken_string descr = TR("Acquisti"); TToken_string descr;
descr.add(TR("Acquisti"));
descr.add(TR("Cessioni")); descr.add(TR("Cessioni"));
if (fa == fc) if (fa == fc)
{ {

3
in/in0700.cpp
View File

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

8
in/in0700a.uml
View File

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

11
in/inlib01.cpp
View File

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