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

Patch level : 10.0

Browse Source 
Files correlati     : pl0002
Ricompilazione Demo : [ ]
Commento            :
Modifiche richieste da Tassan


git-svn-id: svn://10.65.10.50/branches/R_10_00@21850 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2011-03-30 10:17:01 +00:00
parent b96988446a
commit 261cb27351
1 changed files with 170 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

108
ps/pl0002100.cpp
View File

@ -57,6 +57,12 @@ public:
virtual bool trasferisci();
};
class TLif_listini : public TLif_transfer
{
public:
virtual bool trasferisci();
};
///////////////////////////////////////////////////////////
// TLif_clienti
///////////////////////////////////////////////////////////
@ -96,7 +102,6 @@ bool TLif_clifo_co_clifor::trasferisci()
TString80 iban = get_str("sig_iban1"); iban << get_str("sig_bban1");
const TString4 codspmezzo = get_str("cod_mezzo_trasp");
const TString4 codlist = get_str("cod_listino");
const TString4 percprovv = get_str("cod_catprovvi");
const TString8 codag = get_str("cod_agente");
const bool addbolli = get_str("flg_addebito_bollo")[0] == '0' ? false : true;
@ -120,7 +125,6 @@ bool TLif_clifo_co_clifor::trasferisci()
cfv_rec.put(CFV_TIPOCF, tipocf);
cfv_rec.put(CFV_CODCF, codcli);
cfv_rec.put(CFV_CODSPMEZZO, codspmezzo);
cfv_rec.put(CFV_CODLIST, codlist);
cfv_rec.put(CFV_PERCPROVV, percprovv);
cfv_rec.put(CFV_CODAG, codag);
cfv_rec.put(CFV_ADDBOLLI, addbolli);
@ -347,6 +351,7 @@ bool TLif_contratti::trasferisci()
trec.put(LVCONDV_CODCONT, 1);
trec.put(LVCONDV_DATAIN, dadata);
trec.put(LVCONDV_STPRZBOL, inbolla);
trec.put(LVCONDV_PERFAT, 3); //da accordi con Tassan in data 23/03/2011 la fatturazione è sempre mensile
test_write(condv);
contratti.add(codcli, codcli);
}
@ -423,15 +428,15 @@ bool TLif_articoli::trasferisci()
const TString80 codart = get_str("cod_art");
const TString80 descr = get_str("des_articolo");
const TString descragg = get_str("des_articolo_ex");
const real plordo(get_str("qta_pes_lordo_kg"));
const real pnetto(get_str("qta_pes_netto_kg"));
const long ppconf = get_long("num_colli");
const TString4 ump = pnetto > ZERO ? "GR" : "";
rec.put(ANAMAG_CODART, codart);
rec.put(ANAMAG_DESCR, descr);
rec.put(ANAMAG_DESCRAGG, descragg);
rec.put(ANAMAG_PESO, plordo);
rec.put(ANAMAG_TARA, plordo - pnetto);
rec.put(ANAMAG_PESO, pnetto);
rec.put(ANAMAG_UMP, ump);
rec.put(ANAMAG_PPCONF, ppconf);
rec.put(ANAMAG_CODIVA, "20");
@ -457,6 +462,94 @@ bool TLif_articoli::trasferisci()
return true;
}
bool TLif_listini::trasferisci()
{
TString query =
"SELECT * "
"FROM dbo.PZ_PREZZIBASE";
TRecordset& recset = create_recordset(query);
TConfig& ini = config();
TString_array lista_campi;
ini.list_variables(lista_campi, true, "PZ_PREZZIBASE", true);
TSystemisamfile umart(LF_UMART);
umart.open(_lock);
TRectype& umrec = umart.curr();
TSystemisamfile condv(LF_LVCONDV);
condv.open(_lock);
TRectype& conrec = condv.curr();
TSystemisamfile rcondv(LF_LVRCONDV);
rcondv.open(_lock);
TLif_iterator hi(this);
TAssoc_array contratti;
while (++hi)
{
const TString80 codart = get_str("cod_art");
const TString4 codlis = get_str("cod_listino");
const long prglis = get_long("prg_listino");
const real prezzo(get_str("prz_listino"));
TString8 listino = codlis; listino << prglis;
umrec.zero();
umrec.put(UMART_CODART, codart);
umrec.put(UMART_NRIGA, 1);
umrec.read(umart);
umrec.put(UMART_CODART, codart);
umrec.put(UMART_NRIGA, 1);
umrec.put(UMART_PREZZO, prezzo);
aggiorna_record(umrec, lista_campi);
if (test_write(umart))
{
TString query;
query << "USE LVRCONDV\n"
<< "SELECT CODART=\"" << codart << "\"";
TISAM_recordset rcont(query);
for(bool ok = rcont.move_first(); ok; ok = rcont.move_next())
{
TRectype& riga = rcont.cursor()->curr();
riga.put(LVRCONDV_PREZDAN, prezzo);
riga.rewrite(rcondv);
const long codcf = riga.get_long(LVRCONDV_CODCF);
const long codco = riga.get_long(LVRCONDV_CODCONT);
TToken_string ckey;
ckey.add(codcf);
ckey.add(codco);
if(!contratti.is_key(ckey))
{
conrec.put(LVCONDV_CODCF, codcf);
conrec.put(LVCONDV_CODCONT, codco);
conrec.read(condv);
conrec.put(LVCONDV_CODCF, codcf);
conrec.put(LVCONDV_CODCONT, codco);
conrec.put(LVCONDV_ADDCAPROT, true);
conrec.rewrite(condv);
}
contratti.add(ckey, ckey);
}
}
}
umart.close();
condv.close();
rcondv.close();
return write_enabled();
}
///////////////////////////////////////////////////////////
// TImportazione_lif_msk
///////////////////////////////////////////////////////////
@ -541,6 +634,11 @@ void TImportazione_lif_msk::trasferisci()
TLif_articoli pc;
pc.init(TR("Articoli"), query_header1, log);
go_on = pc.trasferisci();
TLif_listini pc1;
pc1.init(TR("Listini"), query_header1, log);
go_on = pc1.trasferisci();
book.add(log);
rep_to_print = true;
}