Patch level :10.0
Files correlati : Ricompilazione Demo : [ ] Commento : hardate varie git-svn-id: svn://10.65.10.50/branches/R_10_00@21504 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca
parent
cb5872e016
commit
d4fe079489
@ -26,11 +26,34 @@ public:
|
||||
|
||||
bool TFile2Txt_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
|
||||
{
|
||||
/*switch (o.dlg())
|
||||
switch (o.dlg())
|
||||
{
|
||||
case F_CARICO:
|
||||
if (e == fe_modify && o.get().full())
|
||||
{
|
||||
//in base alla configurazione Hardyca completa i campi chiave sulla maschera così che, in caso..
|
||||
//..l'utonto decida di fare una ricerca sui documenti, gli appaiano solo quelli buoni per il trasferimento!
|
||||
TConfig config(CONFIG_DITTA, "ha");
|
||||
const TString& codnum = config.get("CarDocNum");
|
||||
const TString& stato = config.get("CarDocSta");
|
||||
set(F_CODNUM, codnum);
|
||||
set(F_STATO, stato);
|
||||
|
||||
TBrowse& dacardoc = *efield(F_DA_CARDOC).browse();
|
||||
TCursor& cur = *dacardoc.cursor();
|
||||
dacardoc.do_input(true);
|
||||
const TRecnotype tot = cur.items();
|
||||
if (tot > 0)
|
||||
{
|
||||
cur = tot - 1;
|
||||
dacardoc.do_output();
|
||||
set(F_A_CARDOC, get(F_DA_CARDOC));
|
||||
}
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}*/
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
@ -62,7 +85,7 @@ protected:
|
||||
void genera_decodart_txt();
|
||||
void genera_attrezzature_txt();
|
||||
void genera_tabpag_txt();
|
||||
void genera_carico_txt();
|
||||
void genera_carico_txt(const TMask& mask);
|
||||
|
||||
void fill_anagrafica_cliente(const TISAM_recordset& archivio_clienti,
|
||||
TEsporta_clienti_recordset& clienti, const bool is_fatt = false);
|
||||
@ -566,7 +589,7 @@ void TFile2Txt::genera_tabpag_txt()
|
||||
tabpag.save_as(output_path, fmt_text);
|
||||
}
|
||||
|
||||
void TFile2Txt::genera_carico_txt()
|
||||
void TFile2Txt::genera_carico_txt(const TMask& mask)
|
||||
{
|
||||
TEsporta_carico_recordset carico;
|
||||
|
||||
@ -575,11 +598,12 @@ void TFile2Txt::genera_carico_txt()
|
||||
query << "\nSELECT (DOC.TIPODOC=#TIPODOC)&&(DOC.STATO=#STATO)";
|
||||
query << "\nJOIN DOC INTO PROVV=PROVV ANNO=ANNO CODNUM=CODNUM NDOC=NDOC";
|
||||
query << "\nBY DOC.CODAG";
|
||||
query << "\nFROM CODNUM=#CODNUM";
|
||||
query << "\nTO CODNUM=#CODNUM";
|
||||
query << "\nFROM CODNUM=#CODNUM ANNO=#ANNO PROVV=D NDOC=#DA_NDOC";
|
||||
query << "\nTO CODNUM=#CODNUM ANNO=#ANNO PROVV=D NDOC=#A_NDOC";
|
||||
|
||||
TISAM_recordset archivio_rdoc(query);
|
||||
|
||||
//parametri dalla configurazione
|
||||
TConfig config(CONFIG_DITTA, "ha");
|
||||
const TString& tipodoc = config.get("CarDocTip");
|
||||
archivio_rdoc.set_var("#TIPODOC", tipodoc);
|
||||
@ -588,6 +612,14 @@ void TFile2Txt::genera_carico_txt()
|
||||
const TString& codnum = config.get("CarDocNum");
|
||||
archivio_rdoc.set_var("#CODNUM", codnum);
|
||||
|
||||
//parametri dalla maschera
|
||||
const long anno = mask.get_long(F_ANNO);
|
||||
archivio_rdoc.set_var("#ANNO", anno);
|
||||
const long da_ndoc = mask.get_long(F_DA_CARDOC);
|
||||
archivio_rdoc.set_var("#DA_NDOC", da_ndoc);
|
||||
const long a_ndoc = mask.get_long(F_A_CARDOC);
|
||||
archivio_rdoc.set_var("#A_NDOC", a_ndoc);
|
||||
|
||||
const long archivio_rdoc_items = archivio_rdoc.items();
|
||||
|
||||
TProgind progind(archivio_rdoc_items, "Documenti carico...", false, true);
|
||||
@ -652,7 +684,7 @@ void TFile2Txt::elabora(const TMask& mask)
|
||||
genera_tabpag_txt();
|
||||
|
||||
if (mask.get_bool(F_CARICO))
|
||||
genera_carico_txt();
|
||||
genera_carico_txt(mask);
|
||||
}
|
||||
|
||||
|
||||
|
||||
@ -14,3 +14,9 @@
|
||||
#define F_CARICO 213
|
||||
|
||||
#define F_DA_CODCLI 220
|
||||
#define F_CODNUM 221
|
||||
#define F_ANNO 222
|
||||
#define F_PROVV 223
|
||||
#define F_STATO 224
|
||||
#define F_DA_CARDOC 225
|
||||
#define F_A_CARDOC 226
|
||||
@ -8,7 +8,7 @@ BEGIN
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 76 8
|
||||
GROUPBOX DLG_NULL 76 9
|
||||
BEGIN
|
||||
PROMPT 1 2 "@bArchivi da trasferire"
|
||||
END
|
||||
@ -62,6 +62,12 @@ BEGIN
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BOOLEAN F_DECODART
|
||||
BEGIN
|
||||
PROMPT 2 9 "Codici articolo alternativi"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BOOLEAN F_PRODOTTI
|
||||
BEGIN
|
||||
PROMPT 28 3 "Prodotti"
|
||||
@ -80,12 +86,6 @@ BEGIN
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BOOLEAN F_DECODART
|
||||
BEGIN
|
||||
PROMPT 28 6 "Codici articolo alternativi"
|
||||
GROUP 1
|
||||
END
|
||||
|
||||
BOOLEAN F_ATTREZZA
|
||||
BEGIN
|
||||
PROMPT 53 3 "Attrezzature"
|
||||
@ -102,6 +102,65 @@ BOOLEAN F_CARICO
|
||||
BEGIN
|
||||
PROMPT 53 5 "Documenti di carico"
|
||||
GROUP 1
|
||||
MESSAGE FALSE HIDE,2@
|
||||
MESSAGE TRUE SHOW,2@
|
||||
END
|
||||
|
||||
NUMBER F_DA_CARDOC 7
|
||||
BEGIN
|
||||
PROMPT 53 6 "Dal doc. n. "
|
||||
GROUP 2
|
||||
USE DOC SELECT (STATO=#F_STATO)
|
||||
INPUT PROVV "D"
|
||||
INPUT ANNO F_ANNO SELECT
|
||||
INPUT CODNUM F_CODNUM SELECT
|
||||
INPUT NDOC F_DA_CARDOC
|
||||
DISPLAY "N. doc.@7" NDOC
|
||||
DISPLAY "Codnum" CODNUM
|
||||
DISPLAY "Anno" ANNO
|
||||
DISPLAY "Tipo" TIPODOC
|
||||
DISPLAY "Data@10" DATADOC
|
||||
DISPLAY "Stato" STATO
|
||||
DISPLAY "Cliente" CODCF
|
||||
OUTPUT F_DA_CARDOC NDOC
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
NUMBER F_A_CARDOC 7
|
||||
BEGIN
|
||||
PROMPT 53 7 "Al doc n. "
|
||||
GROUP 2
|
||||
COPY USE F_DA_CARDOC
|
||||
INPUT PROVV "D"
|
||||
INPUT ANNO F_ANNO SELECT
|
||||
INPUT CODNUM F_CODNUM SELECT
|
||||
INPUT NDOC F_DA_CARDOC
|
||||
COPY DISPLAY F_DA_CARDOC
|
||||
OUTPUT F_A_CARDOC NDOC
|
||||
CHECKTYPE NORMAL
|
||||
NUM_EXPR (#F_A_CARDOC>=#F_DA_CARDOC)||(#F_A_CARDOC==0)
|
||||
WARNING "Il numero documento finale deve essere > di quello iniziale oppure lasciato vuoto"
|
||||
END
|
||||
|
||||
STRING F_CODNUM 4
|
||||
BEGIN
|
||||
PROMPT 53 8 "Num. "
|
||||
FLAGS "D"
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
NUMBER F_ANNO 4
|
||||
BEGIN
|
||||
PROMPT 63 8 "Anno "
|
||||
FLAGS "A"
|
||||
MESSAGE K_SPACE,F_CARICO
|
||||
GROUP 2
|
||||
END
|
||||
|
||||
STRING F_STATO 1
|
||||
BEGIN
|
||||
PROMPT 77 8 ""
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
STRING DLG_PROFILE 50
|
||||
|
||||
@ -303,7 +303,8 @@ void TUpload2Campo::elabora_SI(THardy_upload_recordset& recset, TLog_report& log
|
||||
void TUpload2Campo::elabora_TF(THardy_upload_recordset& recset, TLog_report& log)
|
||||
{
|
||||
//1) codice terminale (lungo 3) e codice agente (lungo 5)
|
||||
const TString4 codice_terminale = recset.get("CodiceTerminale").as_string();
|
||||
TString4 codice_terminale = recset.get("CodiceTerminale").as_string();
|
||||
codice_terminale.right_just(3, '0');
|
||||
TString8 codice_agente = codice_terminale;
|
||||
codice_agente.right_just(5, '0');
|
||||
const TString& codage = cache().get(LF_AGENTI, codice_agente, AGE_CODAGE);
|
||||
|
||||
@ -3,18 +3,39 @@ Caption = "Caffe' Hardy"
|
||||
Picture = <ha01>
|
||||
Module = 46
|
||||
Flags = "F"
|
||||
Item_01 = "Gestione listini", [HAMENU_002]
|
||||
Item_02 = "Gestione contratti premio", [HAMENU_003]
|
||||
Item_03 = "Collegamento terminalini", [HAMENU_004]
|
||||
Item_04 = "Servizi", [HAMENU_005]
|
||||
|
||||
[HAMENU_002]
|
||||
Caption = "Listini"
|
||||
Picture = <ha01>
|
||||
Module = 46
|
||||
Flags = "F"
|
||||
Item_01 = "Listini", "ve2 -4 L", ""
|
||||
Item_02 = "Listini cliente", "ve2 -4 C", ""
|
||||
Item_03 = "Stampa listini", "ve3 -4 L", ""
|
||||
|
||||
[HAMENU_003]
|
||||
Caption = "Contratti premio"
|
||||
Picture = <ha01>
|
||||
Module = 46
|
||||
Flags = "F"
|
||||
Item_01 = "Gestione contratti premio", "ha0 -2", ""
|
||||
Item_02 = "Contabilizzazione contratti premio", "ve6 -1", "F"
|
||||
Item_03 = "Generazione NAC", "ha0 -4", ""
|
||||
Item_04 = "Elaborazione contratti premio pareggiati", "ha0 -3", "F"
|
||||
Item_05 = "Listini", "ve2 -4 L", ""
|
||||
Item_06 = "Listini cliente", "ve2 -4 C", ""
|
||||
Item_07 = "Stampa listini", "ve3 -4 L", ""
|
||||
Item_08 = "Esportazione archivi formato txt", "ha1 -1", "F"
|
||||
Item_09 = "Importazione dati da file", "ha1 -2", "F"
|
||||
Item_10 = "Servizi", [HAMENU_002]
|
||||
|
||||
[HAMENU_002]
|
||||
[HAMENU_004]
|
||||
Caption = "Collegamento terminalini"
|
||||
Picture = <ha01>
|
||||
Module = 46
|
||||
Flags = "F"
|
||||
Item_01 = "Esportazione archivi formato txt", "ha1 -1", "F"
|
||||
Item_02 = "Importazione dati da file", "ha1 -2", "F"
|
||||
|
||||
[HAMENU_005]
|
||||
Caption = "Servizi"
|
||||
Picture = <ha01>
|
||||
Module = 46
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user