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

Patch level : 12.0 494

Browse Source 
Files correlati     : cg4.exe

Aggiunta creazione registri dichiarazioni d'intenti all'apertura esercizio

git-svn-id: svn://10.65.10.50/branches/R_10_00@24250 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
bonazzi 2018-01-07 21:33:30 +00:00
parent 862b0795fc
commit a761af19ec
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/cg/cg4500.cpp
View File

@ -143,7 +143,8 @@ bool TAp_eser::apertura_es()
cur.freeze(); cur.freeze();
for (cur = 0L; cur.pos() < items; ++cur) for (cur = 0L; cur.pos() < items; ++cur)
{ {
if (tabreg.get_int("I0") == 5) const int tipo = tabreg.get_int("I0");
if (tipo == 5 || tipo == 10)
{ {
TString16 cod(tabreg.get("CODTAB")); TString16 cod(tabreg.get("CODTAB"));
@ -159,7 +160,11 @@ bool TAp_eser::apertura_es()
tabreg.put("D3", data); tabreg.put("D3", data);
tabreg.zero("R1"); tabreg.zero("R1");
tabreg.zero("R2"); tabreg.zero("R2");
if (tipo == 10)
{
tabreg.zero("I3");
tabreg.zero("I4");
}
reg.write(); reg.write();
} }
} }