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            :
Segnalazioni Tassan 08/02


git-svn-id: svn://10.65.10.50/branches/R_10_00@21598 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2011-02-08 15:57:14 +00:00
parent 1facbc9e5c
commit 166282953e
1 changed files with 23 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ps/pl0002100.cpp
View File

@ -13,6 +13,7 @@
#include <clifo.h>
#include <..\lv\lvcondv.h>
#include <..\lv\lvrcondv.h>
#include <..\mg\clifogiac.h>
#include <..\ve\condv.h>
#include <..\ve\rcondv.h>
@ -167,7 +168,7 @@ bool TLif_clifo_ca_anagrafiche::trasferisci()
rec.put(CLI_CODCF, codcf);
rec.put(CLI_STATOCF, stato);
rec.put(CLI_RAGSOC, ragsoc);
rec.put(CLI_TIPOPERS, tpper == '0' ? false : true);
rec.put(CLI_TIPOPERS, tpper == '0' ? true : false);
rec.put(CLI_COFI, cofi);
rec.put(CLI_PAIV, paiv);
rec.put(CLI_MAIL, mail);
@ -207,10 +208,16 @@ bool TLif_contratti::trasferisci()
ini.list_variables(lista_campi, true, "CONTRATTI", true);
TSystemisamfile condv(LF_LVCONDV);
TSystemisamfile rcondv(LF_LVRCONDV);
TSystemisamfile clifogiac(LF_CLIFOGIAC);
condv.open(_lock);
rcondv.open(_lock);
clifogiac.open(_lock);
TRectype& trec = condv.curr();
TRectype& rrec = rcondv.curr();
TRectype& grec = clifogiac.curr();
const int anno = TDate(TODAY).year();
TLif_iterator hi(this);
TAssoc_array contratti;
@ -234,12 +241,25 @@ bool TLif_contratti::trasferisci()
}
rrec.zero();
grec.zero();
rrec.put(LVRCONDV_CODCF, codcf);
rrec.put(LVRCONDV_CODCONT, 1);
//real dotin(get_str("qta_iniziale"));
//real dotod(get_str("qta_attuale"));
real dotin(get_str("qta_iniziale"));
real dotod(get_str("qta_attuale"));
TString80 codart = get_str("cod_art");
grec.put(CLIFOGIAC_ANNOES, anno);
grec.put(CLIFOGIAC_TIPOCF, 'C');
grec.put(CLIFOGIAC_CODCF, codcf);
grec.put(CLIFOGIAC_INDSPED, 0);
grec.put(CLIFOGIAC_CODART, codart);
grec.put(CLIFOGIAC_NRIGA, 1);
grec.put(CLIFOGIAC_DOTIN, dotin);
grec.put(CLIFOGIAC_DOTOD, dotod);
test_write(clifogiac);
real prezzo(get_str("prezzo_inuso"));
real mincic(get_str("qta_minimociclaggio"));
real valcon(get_str("valore_convenzionale"));