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

Patch level : 10.0 patch 539

Browse Source 
Files correlati     : lv2 lv3
Ricompilazione Demo : [ ]
Commento            :
Corretta la gestione dell'indirizzo di spedizione


git-svn-id: svn://10.65.10.50/trunk@19707 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2009-12-02 11:52:12 +00:00
parent 773f14b6b2
commit 5b33178258
3 changed files with 26 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lv/lv2600.cpp
View File

@ -8,6 +8,7 @@
#include "lvlib.h"
#include "../ve/velib.h"
#include "cfven.h"
#include "lvcondv.h"
#include "lvrcondv.h"
#include "lvrconsplan.h"
@ -342,7 +343,11 @@ TObject* TAcquisizione_cache::key2obj(const char* key)
doc = new TDocumento(rset.cursor()->curr());
else
{
TLaundry_contract cont(codcf, 0, datadoc);
TToken_string key;
key.add('C');
key.add(codcf);
const int codindsp = atoi(cache().get(LF_CFVEN, key, CFV_CODINDSP));
TLaundry_contract cont(codcf, codindsp, datadoc);
const TString8 codcont = cont.get(LVCONDV_CODCONT);
TString query1 = "USE LVRCONSPLAN KEY 3\n";
@ -355,9 +360,6 @@ TObject* TAcquisizione_cache::key2obj(const char* key)
const TDate dataprco = consegne.get(LVRCONSPLAN_DTCONS).as_date();
//recupero il codpag
TToken_string key;
key.add('C');
key.add(codcf);
const TString4 codpag = cache().get(LF_CLIFO, key, CLI_CODPAG);
//reupero la cuasale di magazzino di testata
@ -727,7 +729,11 @@ void TAcquisizione_lavanderie_app::genera_documenti(TLog_report& rep, TAssoc_arr
const long qtacon = qc->get_pezzi();
const long qtarotti = qc->get_rotti();
TLaundry_contract cont(codcf, 0, datadoc);
TToken_string key;
key.add('C');
key.add(codcf);
const int codindsp = atoi(cache().get(LF_CFVEN, key, CFV_CODINDSP));
TLaundry_contract cont(codcf, codindsp, datadoc);
const TString8 codcont = cont.get(LVCONDV_CODCONT);
TDate oggi(TODAY);

15
lv/lv2900.cpp
View File

@ -76,7 +76,11 @@ TObject* TBuoni_cache::key2obj(const char* key)
doc = new TDocumento(rset.cursor()->curr());
else
{
TLaundry_contract cont(codcf, 0, datadoc);
TToken_string key;
key.add('C');
key.add(codcf);
const int codindsp = atoi(cache().get(LF_CFVEN, key, CFV_CODINDSP));
TLaundry_contract cont(codcf, codindsp, datadoc);
const TString8 codcont = cont.get(LVCONDV_CODCONT);
TString query1 = "USE LVRCONSPLAN KEY 3\n";
@ -91,9 +95,6 @@ TObject* TBuoni_cache::key2obj(const char* key)
const long codaut = consegne.get(LVRCONSPLAN_CODAUT).as_int();
//recupero il codpag
TToken_string key;
key.add('C');
key.add(codcf);
const TRectype& clifo = cache().get(LF_CLIFO, key);
const TString4 codpag = clifo.get(CLI_CODPAG);
const long codabi = clifo.get_long(CLI_CODABI);
@ -454,7 +455,11 @@ bool TConta_pulito_msk::genera_documenti(const TFilename& file, TAssoc_array& do
const real quantita = rp.quantita();
//instanzio un contratto e la corrispondente riga contratto per l'articolo che sto analizzando
TLaundry_contract cont(codcf, 0, datadoc);
TToken_string key;
key.add('C');
key.add(codcf);
const int codindsp = atoi(cache().get(LF_CFVEN, key, CFV_CODINDSP));
TLaundry_contract cont(codcf, codindsp, datadoc);
const TRectype rcont = cont.row(codart);
bool dtmp = false;

6
lv/lv3200.cpp
View File

@ -148,7 +148,11 @@ void TEvasione_msk::setta_campi_cliente()
if (codcf > 0)
{
TLaundry_contract cont(codcf, 0, data);
TToken_string key;
key.add('C');
key.add(codcf);
const int codindsp = atoi(cache().get(LF_CFVEN, key, CFV_CODINDSP));
TLaundry_contract cont(codcf, codindsp, data);
//se trovo un contratto, allora scrivo il codice contratto e cerco itinerario e data di prevista consegna
//se no avviso che non c'è neanche un contratto valido e svuoto i campi interassati