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);
r->lfile().put(PCN_SEZIVD, sez);
}
}
sezivd = m.get_int(FLD_CM1_SEZIVDOPP);
if (sezivd == 6 || sezivd == 7)
{
sez.format("%d", sezivd - 5);
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)
@ -252,14 +282,16 @@ void CG0100_application::init_insert_mode(TMask& m)
}
if (s.not_empty())
{
m.set(FLD_CM1_CODANALISIH, s);
m.set(FLD_CM1_CODANALISIH, s);
m.show(FLD_CM1_CODANALISIH);
m.hide(FLD_CM1_CODTABANALISI);
m.disable(FLD_CM1_DESCRANALISI);
}
else
{
m.show(FLD_CM1_CODTABANALISI);
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());
m.show(FLD_CM2_SEZSALDI, enable_sezsaldi);

23
cg/cg0100a.uml
View File

@ -119,6 +119,17 @@ BEGIN
WARNING "Codice tabella non presente"
FLAGS "Z"
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
STRING FLD_CM1_DESCRANALISI 40
@ -135,17 +146,11 @@ BEGIN
ADD RUN AB0 -1
END
NUMBER FLD_CM1_CODANALISIH 10
BEGIN
PROMPT 1 5 "Codice Tabella Analisi "
FLAGS "RHD"
END
LIST FLD_CM1_INDBIL 1 22
BEGIN
PROMPT 1 6 "Sezione di bilancio "
FIELD LF_PCON->INDBIL
GROUP 1 3
GROUP 1 3
HELP "Sezione di appartenenza del conto"
ITEM "1|1. Attivita'"
ITEM "2|2. Passivita'"
@ -174,11 +179,11 @@ BEGIN
PROMPT 56 7 ""
HELP "Codice del conto secondo la IV direttiva CEE"
FIELD LF_PCON->LETTIVD
GROUP 1 5
GROUP 1 5
FLAGS "U"
END
STRING FLD_CM1_LETTIVDH 1
STRING FLD_CM1_LETTIVDH 1
BEGIN
PROMPT 56 7 ""
FLAGS "HDU"