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

34
cg/cg0100.cpp
View File

@ -80,7 +80,37 @@ int CG0100_application::rewrite(const TMask& m)
sez.format("%d", sezivd - 5); sez.format("%d", sezivd - 5);
r->lfile().put(PCN_SEZIVDOPP, sez); r->lfile().put(PCN_SEZIVDOPP, sez);
} }
return r->rewrite(); 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 err;
} }
int CG0100_application::write(const TMask& m) int CG0100_application::write(const TMask& m)
@ -255,11 +285,13 @@ void CG0100_application::init_insert_mode(TMask& m)
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);

17
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,12 +146,6 @@ 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 "