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

Patch level : ha1106

Browse Source 
Files correlati     : ha0200a.msk ha1.exe
Ricompilazione Demo : [ ]
Commento            :
Impostato stato finale nell'invio dei documenti di carico.


git-svn-id: svn://10.65.10.50/branches/R_10_00@22450 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
guy 2011-10-12 08:54:37 +00:00
parent 6fc556a1e2
commit ba785d01fa
4 changed files with 46 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ha/ha0200a.h
View File

@ -37,6 +37,7 @@
#define F_OU_CARDOC_TIP 254
#define F_OU_CARDOC_STA 255
#define F_OU_BARCODE_TIP 256
#define F_OU_CARDOC_STAF 257
//importazione dati
#define F_INPUT_PATH 260

40
ha/ha0200a.uml
View File

@ -325,7 +325,7 @@ ENDPAGE
//----------------------------
PAGE "Trasferimenti" 0 2 0 0
GROUPBOX DLG_NULL 76 7
GROUPBOX DLG_NULL 76 8
BEGIN
PROMPT 1 0 "@bEsportazione"
END
@ -360,14 +360,25 @@ BEGIN
FIELD TransactionPath
END
GROUPBOX DLG_NULL 44 3
LISTBOX F_OU_BARCODE_TIP 10
BEGIN
PROMPT 2 4 "@bDocumenti di carico"
PROMPT 2 4 "Tipo di barcode "
ITEM "N|Normale"
ITEM "8|EAN8 "
ITEM "1|EA13 "
ITEM "3|3/9 "
ITEM "C|Codabar"
FIELD TipoBarcode
END
GROUPBOX DLG_NULL 74 3
BEGIN
PROMPT 2 5 "@bDocumenti di carico"
END
STRING F_OU_CARDOC_NUM 4
BEGIN
PROMPT 3 5 "Numerazione "
PROMPT 3 6 "Numerazione "
USE %NUM
INPUT CODTAB F_OU_CARDOC_NUM
DISPLAY "Codice@8" CODTAB
@ -379,7 +390,7 @@ END
STRING F_OU_CARDOC_TIP 4
BEGIN
PROMPT 23 5 "Tipo "
PROMPT 24 6 "Tipo "
USE %TIP
INPUT CODTAB F_OU_CARDOC_TIP
DISPLAY "Codice" CODTAB
@ -392,7 +403,7 @@ END
STRING F_OU_CARDOC_STA 1
BEGIN
PROMPT 36 5 "Stato "
PROMPT 38 6 "Stato iniziale"
USE %STD
INPUT CODTAB F_OU_CARDOC_STA
DISPLAY "Codice" CODTAB
@ -403,15 +414,16 @@ BEGIN
FIELD CarDocSta
END
LISTBOX F_OU_BARCODE_TIP 10
STRING F_OU_CARDOC_STAF 1
BEGIN
PROMPT 47 5 "Tipo di barcode "
ITEM "N|Normale"
ITEM "8|EAN8 "
ITEM "1|EA13 "
ITEM "3|3/9 "
ITEM "C|Codabar"
FIELD TipoBarcode
PROMPT 58 6 "Stato finale"
COPY USE F_OU_CARDOC_STA
INPUT CODTAB F_OU_CARDOC_STAF
COPY DISPLAY F_OU_CARDOC_STA
OUTPUT F_OU_CARDOC_STAF CODTAB
FLAGS "U"
CHECKTYPE REQUIRED
FIELD CarDocFin
END
GROUPBOX DLG_NULL 76 15

20
ha/ha1200.cpp
View File

@ -727,11 +727,15 @@ bool TFile2Txt::genera_carico_txt(const TMask& mask)
TConfig config(CONFIG_DITTA, "ha");
const TString& tipodoc = config.get("CarDocTip");
archivio_rdoc.set_var("#TIPODOC", tipodoc);
const TString& stato = config.get("CarDocSta");
archivio_rdoc.set_var("#STATO", stato);
const TString& stato_ini = config.get("CarDocSta");
archivio_rdoc.set_var("#STATO", stato_ini);
const TString& codnum = config.get("CarDocNum");
archivio_rdoc.set_var("#CODNUM", codnum);
TString4 stato_fin = config.get("CarDocFin");
if (stato_fin.blank() || stato_fin == stato_ini)
stato_fin.format("%d", atoi(stato_ini)+1);
//parametri dalla maschera
const long anno = mask.get_long(F_ANNO);
archivio_rdoc.set_var("#ANNO", anno);
@ -743,10 +747,22 @@ bool TFile2Txt::genera_carico_txt(const TMask& mask)
const long archivio_rdoc_items = archivio_rdoc.items();
TProgind progind(archivio_rdoc_items, "Documenti carico...", false, true);
long last_ndoc = 0;
for (bool ok = archivio_rdoc.move_first(); ok; ok = archivio_rdoc.move_next())
{
progind.addstatus(1);
const long ndoc = archivio_rdoc.get(RDOC_NDOC).as_int();
if (ndoc != last_ndoc)
{
last_ndoc = ndoc;
TLocalisamfile& doc = archivio_rdoc.cursor()->file(LF_DOC);
doc.put(DOC_STATO, stato_fin);
doc.rewrite();
}
carico.new_rec("");
TString8 codage = archivio_rdoc.get("DOC.CODAG").as_string();

2
ha/ha1300.cpp
View File

@ -1393,7 +1393,7 @@ void TUpload2Campo::elabora(const TMask& mask, TLog_report& log)
TProgind pi(items, msg, true, true);
msg.cut(0);
msg << "File " << curr_fname.name_only();
msg << "File " << curr_fname.name();
log.log(0, "");
log.log(0, msg);
log.log(0, "");