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

Correzioni alla lista movimenti

Browse Source 
git-svn-id: svn://10.65.10.50/trunk@902 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
nik 1995-01-24 15:46:03 +00:00
parent 5738b426dd
commit 7440188549
3 changed files with 228 additions and 225 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

75
cg/cg3100.cpp
View File

@ -1630,50 +1630,53 @@ else _err.set(3);
if (_codcf == 0l) if (_codcf == 0l)
_err.set(16); _err.set(16);
} }
if ((tipo == 1 && _tipo_elenco != "C") || (tipo == 2 && _tipo_elenco != "F")) if (_codcf != 0l)
_err.set(17);
TLocalisamfile clifo(LF_CLIFO);
clifo.setkey(1);
clifo.zero();
clifo.put(CLI_CODCF, _codcf);
clifo.put(CLI_TIPOCF,_tipo_elenco);
if (clifo.read() == NOERR)
{ {
bool sosp = clifo.get_bool(CLI_SOSPESO); if ((tipo == 1 && _tipo_elenco != "C") || (tipo == 2 && _tipo_elenco != "F"))
if (sosp) _err.set(17);
_err.set(18);
bool occ = clifo.get_bool(CLI_OCCAS); TLocalisamfile clifo(LF_CLIFO);
char alleg = clifo.get_char(CLI_ALLEG); clifo.setkey(1);
long calleg = clifo.get_long(CLI_CODALLEG); clifo.zero();
if (!occ) clifo.put(CLI_CODCF, _codcf);
clifo.put(CLI_TIPOCF,_tipo_elenco);
if (clifo.read() == NOERR)
{ {
if (_stampa_mess_alleg_iva && alleg == '1') bool sosp = clifo.get_bool(CLI_SOSPESO);
_err.set(19); if (sosp)
if (calleg != 0l) _err.set(18);
bool occ = clifo.get_bool(CLI_OCCAS);
char alleg = clifo.get_char(CLI_ALLEG);
long calleg = clifo.get_long(CLI_CODALLEG);
if (!occ)
{ {
if (calleg == _codcf) if (_stampa_mess_alleg_iva && alleg == '1')
_err.set(20); _err.set(19);
clifo.zero(); if (calleg != 0l)
clifo.put(CLI_CODCF, calleg);
clifo.put(CLI_TIPOCF,_tipo_elenco);
if (clifo.read() == NOERR)
{ {
bool sospall = clifo.get_bool(CLI_SOSPESO); if (calleg == _codcf)
long codall = clifo.get_long(CLI_CODALLEG); _err.set(20);
char alleg = clifo.get_char(CLI_ALLEG); clifo.zero();
if (sospall) clifo.put(CLI_CODCF, calleg);
_err.set(21); clifo.put(CLI_TIPOCF,_tipo_elenco);
if (codall != 0l) if (clifo.read() == NOERR)
_err.set(22); {
if (_stampa_mess_alleg_iva && alleg == '1') bool sospall = clifo.get_bool(CLI_SOSPESO);
_err.set(23); long codall = clifo.get_long(CLI_CODALLEG);
char alleg = clifo.get_char(CLI_ALLEG);
if (sospall)
_err.set(21);
if (codall != 0l)
_err.set(22);
if (_stampa_mess_alleg_iva && alleg == '1')
_err.set(23);
}
else _err.set(24);
} }
else _err.set(24);
} }
} }
else _err.set(25);
} }
else _err.set(25);
} }
} }
} }