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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@20405 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2010-04-30 12:41:27 +00:00
parent a6eef4631c
commit 0bac14acdc
1 changed files with 27 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
lv/lv4300.cpp
View File

@ -148,7 +148,7 @@ void TImporta_cesp::transfer(const TFilename& file)
TProgind pi(recset.items(), caption, true, true);
const long ditta = _msk->get_long(F_CODITTA);
const TEsercizi_contabili esc;
int lastesc = esc.last();
int lastesc = esc.last(); // uso ultimo esercizio contabile
long ntran = 1;
TLog_report log(caption);
TLocalisamfile cespi(LF_CESPI);
@ -184,6 +184,8 @@ void TImporta_cesp::transfer(const TFilename& file)
cespi.put(CESPI_CODCGRA, gr);
cespi.put(CESPI_CODSPA, sp);
cespi.put(CESPI_CODCAT, ca);
cespi.put(CESPI_CODCGR, gr);
cespi.put(CESPI_CODSP, sp);
cespi.put(CESPI_DESC, recset.get(CGC_DESCR).as_string());
if (TDate::isdate(recset.get(CGC_DATAINIZAMM).as_string()))
{
@ -197,23 +199,7 @@ void TImporta_cesp::transfer(const TFilename& file)
cespi.put(CESPI_DTALIEN, data);
}
cespi.put(CESPI_TPSPEMAN, 1);
// creo record salce
salce.zero();
salce.put(SALCE_IDCESPITE, cespi.get(CESPI_IDCESPITE));
salce.put(SALCE_CODES, lastesc); // verificare se ultimo esercizio va bene (2010?)
salce.put(SALCE_TPSALDO, 1); // verificare se saldo iniziale (1) va bene
salce.put(SALCE_NUMELE, 1);
salce.put(SALCE_CSTO, recset.get_real(CGC_COSTOACQ));
// creo record ammce
ammce.zero();
ammce.put(AMMCE_IDCESPITE, salce.get(CESPI_IDCESPITE));
ammce.put(AMMCE_CODES, salce.get(SALCE_CODES));
ammce.put(AMMCE_TPSALDO, salce.get(SALCE_TPSALDO));
ammce.put(AMMCE_TPAMM, 1); // verificare se tipo amm = 1 va bene
ammce.put(AMMCE_QNORP, recset.get_real(CGC_FONDOAMMORT));
ammce.put(AMMCE_QANTP, recset.get_real(CGC_TOTAMMANTIC));
cespi.put(CESPI_FLGTPVEI, 1);
// scrivo i record dei cespiti
int err = cespi.write();
@ -221,14 +207,34 @@ void TImporta_cesp::transfer(const TFilename& file)
log_error(log, TR("Errore in scrittura anagrafica cespiti "), recset, err);
else
{
// creo record salce
salce.zero();
salce.put(SALCE_IDCESPITE, cespi.get(CESPI_IDCESPITE));
salce.put(SALCE_CODES, lastesc); // ultimo esercizio
salce.put(SALCE_TPSALDO, 1); // saldo iniziale
salce.put(SALCE_NUMELE, 1);
salce.put(SALCE_CSTO, recset.get_real(CGC_COSTOACQ));
salce.put(SALCE_NUMELE, 1);
salce.put(SALCE_ANNIAMM, 1);
err = salce.write();
if (err != NOERR)
log_error(log, TR("Errore in scrittura saldi cespiti "), recset, err);
else
{
err = ammce.write();
if (err != NOERR)
log_error(log, TR("Errore in scrittura ammortamento cespiti "), recset, err);
// creo i records ammce
for (int i=1; i<=3; i++)
{
ammce.zero();
ammce.put(AMMCE_IDCESPITE, salce.get(CESPI_IDCESPITE));
ammce.put(AMMCE_CODES, salce.get(SALCE_CODES));
ammce.put(AMMCE_TPSALDO, salce.get(SALCE_TPSALDO));
ammce.put(AMMCE_TPAMM, i); // creo i tre tipi di ammortamento
ammce.put(AMMCE_QNOR, recset.get_real(CGC_FONDOAMMORT));
ammce.put(AMMCE_QANT, recset.get_real(CGC_TOTAMMANTIC));
err = ammce.write();
if (err != NOERR)
log_error(log, TR("Errore in scrittura ammortamento cespiti "), recset, err);
}
}
}
}