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

Corretto 004429

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@2130 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
alex 1995-11-10 16:39:26 +00:00
parent 6785364819
commit 2b125cc141
2 changed files with 49 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
cg/cg0100.cpp
View File

@ -73,14 +73,44 @@ int CG0100_application::rewrite(const TMask& m)
{ {
sez.format("%d", sezivd - 5); sez.format("%d", sezivd - 5);
r->lfile().put(PCN_SEZIVD, sez); r->lfile().put(PCN_SEZIVD, sez);
} }
sezivd = m.get_int(FLD_CM1_SEZIVDOPP); sezivd = m.get_int(FLD_CM1_SEZIVDOPP);
if (sezivd == 6 || sezivd == 7) if (sezivd == 6 || sezivd == 7)
{ {
sez.format("%d", sezivd - 5); sez.format("%d", sezivd - 5);
r->lfile().put(PCN_SEZIVDOPP, sez); r->lfile().put(PCN_SEZIVDOPP, sez);
}
const int err = r->rewrite();
if (err == NOERR)
{
const long sottoconto = m.get_long(FLD_CM1_SOTTOCONTO);
if (sottoconto == 0)
{
const TString16 cod_anbi(m.get(FLD_CM1_CODTABANALISI));
if (cod_anbi.not_empty())
{
r->save_status();
TLocalisamfile & pcon = r->lfile();
TRectype rec_pcon(r->curr()) ;
rec_pcon.zero();
rec_pcon.put(PCN_GRUPPO, m.get(FLD_CM1_GRUPPO));
rec_pcon.put(PCN_CONTO, m.get(FLD_CM1_CONTO));
pcon.curr() = rec_pcon;
for (pcon.read(_isgreat, _lock); pcon.good() && pcon.curr() <= rec_pcon; pcon.next(_lock))
{
if (pcon.get(PCN_CODCBL).not_empty())
{
pcon.zero(PCN_CODCBL);
pcon.rewrite();
}
}
r->restore_status();
}
}
} }
return r->rewrite(); return err;
} }
int CG0100_application::write(const TMask& m) int CG0100_application::write(const TMask& m)
@ -252,14 +282,16 @@ void CG0100_application::init_insert_mode(TMask& m)
} }
if (s.not_empty()) if (s.not_empty())
{ {
m.set(FLD_CM1_CODANALISIH, s); m.set(FLD_CM1_CODANALISIH, s);
m.show(FLD_CM1_CODANALISIH); m.show(FLD_CM1_CODANALISIH);
m.hide(FLD_CM1_CODTABANALISI); m.hide(FLD_CM1_CODTABANALISI);
m.disable(FLD_CM1_DESCRANALISI);
} }
else else
{ {
m.show(FLD_CM1_CODTABANALISI); m.show(FLD_CM1_CODTABANALISI);
m.hide(FLD_CM1_CODANALISIH); m.hide(FLD_CM1_CODANALISIH);
m.enable(FLD_CM1_DESCRANALISI);
} }
const bool enable_sezsaldi = (sottoc != 0) || (sottoc == 0 && conto != 0 && m.get(FLD_CM1_TMCF).not_empty()); const bool enable_sezsaldi = (sottoc != 0) || (sottoc == 0 && conto != 0 && m.get(FLD_CM1_TMCF).not_empty());
m.show(FLD_CM2_SEZSALDI, enable_sezsaldi); m.show(FLD_CM2_SEZSALDI, enable_sezsaldi);

23
cg/cg0100a.uml
View File

@ -119,6 +119,17 @@ BEGIN
WARNING "Codice tabella non presente" WARNING "Codice tabella non presente"
FLAGS "Z" FLAGS "Z"
ADD RUN AB0 -1 ADD RUN AB0 -1
MESSAGE COPY,FLD_CM1_CODANALISIH|DIRTY,FLD_CM1_CODANALISIH|K_TAB,FLD_CM1_CODANALISIH
END
NUMBER FLD_CM1_CODANALISIH 10
BEGIN
PROMPT 1 5 "Codice Tabella Analisi "
FLAGS "ZHD"
USE LF_ABPCON
INPUT CODCBL FLD_CM1_CODANALISIH
OUTPUT FLD_CM1_DESCRANALISI DESCRIZ[1,40]
CHECKTYPE NORMAL
END END
STRING FLD_CM1_DESCRANALISI 40 STRING FLD_CM1_DESCRANALISI 40
@ -135,17 +146,11 @@ BEGIN
ADD RUN AB0 -1 ADD RUN AB0 -1
END END
NUMBER FLD_CM1_CODANALISIH 10
BEGIN
PROMPT 1 5 "Codice Tabella Analisi "
FLAGS "RHD"
END
LIST FLD_CM1_INDBIL 1 22 LIST FLD_CM1_INDBIL 1 22
BEGIN BEGIN
PROMPT 1 6 "Sezione di bilancio " PROMPT 1 6 "Sezione di bilancio "
FIELD LF_PCON->INDBIL FIELD LF_PCON->INDBIL
GROUP 1 3 GROUP 1 3
HELP "Sezione di appartenenza del conto" HELP "Sezione di appartenenza del conto"
ITEM "1|1. Attivita'" ITEM "1|1. Attivita'"
ITEM "2|2. Passivita'" ITEM "2|2. Passivita'"
@ -174,11 +179,11 @@ BEGIN
PROMPT 56 7 "" PROMPT 56 7 ""
HELP "Codice del conto secondo la IV direttiva CEE" HELP "Codice del conto secondo la IV direttiva CEE"
FIELD LF_PCON->LETTIVD FIELD LF_PCON->LETTIVD
GROUP 1 5 GROUP 1 5
FLAGS "U" FLAGS "U"
END END
STRING FLD_CM1_LETTIVDH 1 STRING FLD_CM1_LETTIVDH 1
BEGIN BEGIN
PROMPT 56 7 "" PROMPT 56 7 ""
FLAGS "HDU" FLAGS "HDU"