Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/branches/R_10_00@21325 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy
parent
d12738c2bb
commit
f2de80a268
@ -129,6 +129,14 @@ public:
|
||||
virtual bool trasferisci();
|
||||
};
|
||||
|
||||
class THardy_listinicli : public THardy_transfer
|
||||
{
|
||||
protected:
|
||||
int get_next_key_cli(const char tipocf, const long codcf) const;
|
||||
public:
|
||||
virtual bool trasferisci();
|
||||
};
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// THardy_pag
|
||||
///////////////////////////////////////////////////////////
|
||||
@ -1059,6 +1067,82 @@ bool THardy_contratti::trasferisci()
|
||||
return write_enabled();
|
||||
}
|
||||
|
||||
// restituisce il codice contratto da usare per l'inserimento in condv
|
||||
int THardy_listinicli::get_next_key_cli(const char tipocf, const long codcf) const
|
||||
{
|
||||
TISAM_recordset condv("USE CONDV\nFROM TIPO=#TIPO CATVEN=#CATVEN TIPOCF=#TIPOCF CODCF=#CODCF\nTO TIPO=#TIPO CATVEN=#CATVEN TIPOCF=#TIPOCF CODCF=#CODCF");
|
||||
TString4 str;
|
||||
str = "C";
|
||||
condv.set_var("#TIPO", TVariant(str));
|
||||
str = " ";
|
||||
condv.set_var("#CATVEN", TVariant(str));
|
||||
str = "C";
|
||||
condv.set_var("#TIPOCF", TVariant(str));
|
||||
condv.set_var("#CODCF", TVariant(codcf));
|
||||
int cod = 1;
|
||||
if (condv.items() > 0) // La move_last da errore fatale su recordset vuoti!
|
||||
{
|
||||
condv.move_last();
|
||||
cod += condv.get("COD").as_int();
|
||||
}
|
||||
return cod;
|
||||
}
|
||||
|
||||
bool THardy_listinicli::trasferisci()
|
||||
{
|
||||
TString query =
|
||||
"SELECT * "
|
||||
"FROM dbo.ListiniCF "
|
||||
"ORDER BY dbo.ListiniCF.IdConto, dbo.ListiniCF.IdProdotto ";
|
||||
|
||||
TRecordset& recset = create_recordset(query);
|
||||
TConfig& ini = config();
|
||||
TString_array lista_campi, lista_campi_rcondv;
|
||||
ini.list_variables(lista_campi, true, "LISTINICF", true);
|
||||
ini.list_variables(lista_campi_rcondv, true, "LISTINICF_RIGHE", true);
|
||||
TSystemisamfile condv(LF_CONDV);
|
||||
condv.open(_lock);
|
||||
TRectype& rec = condv.curr();
|
||||
TSystemisamfile rcondv(LF_RCONDV);
|
||||
rcondv.open(_lock);
|
||||
TRectype& rec_rcondv = rcondv.curr();
|
||||
|
||||
THardy_iterator hi(this);
|
||||
|
||||
long curr_cliente = 0;
|
||||
int curr_contratto = 0;
|
||||
|
||||
const TDate oggi(TODAY);
|
||||
|
||||
while (++hi)
|
||||
{
|
||||
const TDate datafine = TDate(get_str("DataFine"));
|
||||
if (datafine >= oggi)
|
||||
{
|
||||
const TString& key = get_str("IdConto");
|
||||
const long codcf = hd_key2cli(key);
|
||||
// scrivo la testata del listino cliente (CONDV C)
|
||||
if (curr_cliente != codcf)
|
||||
{
|
||||
curr_cliente = codcf;
|
||||
const int cod = get_next_key_cli('C', codcf);
|
||||
rec.put(CONDV_CODCF, codcf);
|
||||
rec.put(CONDV_COD, cod);
|
||||
aggiorna_record(rec, lista_campi);
|
||||
test_write(condv);
|
||||
}
|
||||
rec_rcondv.put(RCONDV_COD, rec.get(CONDV_COD));
|
||||
rec_rcondv.put(RCONDV_CODCF, rec.get(CONDV_CODCF));
|
||||
aggiorna_record(rec_rcondv, lista_campi_rcondv);
|
||||
test_write(rcondv);
|
||||
}
|
||||
}
|
||||
condv.close();
|
||||
rcondv.close();
|
||||
return write_enabled();
|
||||
}
|
||||
|
||||
|
||||
///////////////////////////////////////////////////////////
|
||||
// TImportazioneHardy_mask
|
||||
///////////////////////////////////////////////////////////
|
||||
@ -1228,6 +1312,14 @@ void TImportazioneHardy_mask::trasferisci()
|
||||
book.add(log);
|
||||
rep_to_print = true;
|
||||
}
|
||||
if (go_on && get_bool(F_LISTINICLI))
|
||||
{
|
||||
THardy_listinicli pc;
|
||||
pc.init(TR("Listini clienti"), query_header, log);
|
||||
go_on = pc.trasferisci();
|
||||
book.add(log);
|
||||
rep_to_print = true;
|
||||
}
|
||||
|
||||
if (rep_to_print && book.pages() > 0)
|
||||
book.preview();
|
||||
|
||||
@ -20,8 +20,7 @@
|
||||
#define F_LISTINI 155
|
||||
#define F_CONTRATTI 156
|
||||
#define F_AGENTI 157
|
||||
#define F_MOVCONT 158
|
||||
#define F_MOVIVA 160
|
||||
#define F_LISTINICLI 158
|
||||
|
||||
#define F_DSN 201
|
||||
#define F_USR 202
|
||||
|
||||
@ -420,6 +420,58 @@ DATAULTAUM =
|
||||
PRZSTO =
|
||||
DATAPRZSTO =
|
||||
|
||||
[LISTINICF]
|
||||
TIPO = _FISSO,C
|
||||
CATVEN =
|
||||
TIPOCF = _FISSO,C
|
||||
CODCF =
|
||||
COD =
|
||||
DESCR = _FISSO,Listino cliente
|
||||
CODVAL = _TRADUCI,IdDivisa
|
||||
CAMBIO =
|
||||
CONTROEURO =
|
||||
DATACAM =
|
||||
VALIN =
|
||||
VALFIN =
|
||||
IMPLORDI =
|
||||
GESTUM =
|
||||
GESTSCAGL =
|
||||
GESTSCO =
|
||||
OBBLIG =
|
||||
CODLISSUCC =
|
||||
SEQRIC = _FISSO,A---
|
||||
DECIMALI =
|
||||
FATHCATVEN =
|
||||
FATHCOD =
|
||||
ARROTONDA =
|
||||
|
||||
[LISTINICF_RIGHE]
|
||||
TIPO = _FISSO,C
|
||||
CATVEN =
|
||||
TIPOCF = _FISSO,C
|
||||
CODCF =
|
||||
COD =
|
||||
TIPORIGA = _FISSO,A
|
||||
CODRIGA = IdProdotto
|
||||
UM =
|
||||
NSCAGL =
|
||||
QLIM =
|
||||
PREZZO = Prezzo
|
||||
SCONTO = Sconto1
|
||||
ADDIVA =
|
||||
CODIVA =
|
||||
PERCPROVV =
|
||||
QOM =
|
||||
QBASE =
|
||||
CODARTOM =
|
||||
PROMAGGIO =
|
||||
UMOM =
|
||||
CODLOTTO =
|
||||
ARTES =
|
||||
DATAULTAUM =
|
||||
PRZSTO =
|
||||
DATAPRZSTO =
|
||||
|
||||
[MOV]
|
||||
ANNOES = Esercizio
|
||||
NUMREG =
|
||||
|
||||
@ -119,6 +119,12 @@ BEGIN
|
||||
PROMPT 32 14 "Agenti"
|
||||
END
|
||||
|
||||
BOOLEAN F_LISTINICLI
|
||||
BEGIN
|
||||
PROMPT 32 15 "Listini clienti"
|
||||
END
|
||||
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Configurazione" -1 -1 78 18
|
||||
|
||||
@ -25,6 +25,7 @@ const char* const APPNAME = TR("Conversione movimenti");
|
||||
class THardy_movimenti : public THardy_transfer
|
||||
{
|
||||
int _anno;
|
||||
TDate _dadata, _adata;
|
||||
TConfig* _conf;
|
||||
long _kmovcont;
|
||||
protected:
|
||||
@ -32,7 +33,7 @@ protected:
|
||||
bool is_mov_iva();
|
||||
public:
|
||||
virtual bool trasferisci();
|
||||
THardy_movimenti(int anno);
|
||||
THardy_movimenti(const int anno, const TDate dadata, const TDate adata);
|
||||
};
|
||||
|
||||
bool THardy_movimenti::is_mov_iva()
|
||||
@ -127,6 +128,7 @@ bool THardy_movimenti::trasferisci()
|
||||
"FROM dbo.MovContabiliT "
|
||||
"WHERE Esercizio=";
|
||||
query << _anno;
|
||||
query << " ORDER BY DataMovimento ";
|
||||
|
||||
TRecordset& recset = create_recordset(query);
|
||||
TConfig& ini = config();
|
||||
@ -193,7 +195,7 @@ bool THardy_movimenti::trasferisci()
|
||||
return true;
|
||||
}
|
||||
|
||||
THardy_movimenti::THardy_movimenti(int anno) : _anno(anno)
|
||||
THardy_movimenti::THardy_movimenti(const int anno, const TDate dadata, const TDate adata) : _anno(anno), _dadata(dadata), _adata(adata)
|
||||
{
|
||||
}
|
||||
|
||||
@ -247,9 +249,11 @@ void TConvMovimentiHardy_mask::trasferisci()
|
||||
bool go_on = true;
|
||||
|
||||
const int anno = get_int(F_ANNO);
|
||||
const TDate dadata = get_date(F_DADATA);
|
||||
const TDate adata = get_date(F_ADATA);
|
||||
if (go_on && (anno!=0))
|
||||
{
|
||||
THardy_movimenti pc(anno);
|
||||
THardy_movimenti pc(anno, dadata, adata);
|
||||
pc.init(TR("Movimenti contabili"), query_header, log);
|
||||
go_on = pc.trasferisci();
|
||||
book.add(log);
|
||||
|
||||
@ -5,6 +5,8 @@
|
||||
#define F_RAGSOC 102
|
||||
|
||||
#define F_ANNO 111
|
||||
#define F_DADATA 112
|
||||
#define F_ADATA 113
|
||||
|
||||
#define F_DSN 201
|
||||
#define F_USR 202
|
||||
|
||||
@ -29,7 +29,7 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 4 "@bSelezioni"
|
||||
END
|
||||
@ -39,6 +39,16 @@ BEGIN
|
||||
PROMPT 2 5 "Esercizio "
|
||||
END
|
||||
|
||||
DATE F_DADATA
|
||||
BEGIN
|
||||
PROMPT 2 6 "Dal "
|
||||
END
|
||||
|
||||
DATE F_ADATA
|
||||
BEGIN
|
||||
PROMPT 35 6 "Al "
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Configurazione" -1 -1 78 18
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user