From ba785d01fabd4caa5fdaea1eeafe3fb8ae3024a4 Mon Sep 17 00:00:00 2001
From: guy <guy@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Wed, 12 Oct 2011 08:54:37 +0000
Subject: [PATCH] Patch level         : ha1106 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
---
 ha/ha0200a.h   |  1 +
 ha/ha0200a.uml | 40 ++++++++++++++++++++++++++--------------
 ha/ha1200.cpp  | 20 ++++++++++++++++++--
 ha/ha1300.cpp  |  2 +-
 4 files changed, 46 insertions(+), 17 deletions(-)

diff --git a/ha/ha0200a.h b/ha/ha0200a.h
index 0234deb77..892a14633 100755
--- a/ha/ha0200a.h
+++ b/ha/ha0200a.h
@@ -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
diff --git a/ha/ha0200a.uml b/ha/ha0200a.uml
index 79bde5535..4a2f3c8bf 100755
--- a/ha/ha0200a.uml
+++ b/ha/ha0200a.uml
@@ -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
diff --git a/ha/ha1200.cpp b/ha/ha1200.cpp
index c6df4b7cd..79eacfa8b 100755
--- a/ha/ha1200.cpp
+++ b/ha/ha1200.cpp
@@ -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();
diff --git a/ha/ha1300.cpp b/ha/ha1300.cpp
index 46d13b07c..14b7b2ae7 100755
--- a/ha/ha1300.cpp
+++ b/ha/ha1300.cpp
@@ -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, "");