From d8010f2998a502cc484f68890c155db9632e9e34 Mon Sep 17 00:00:00 2001
From: smen <smen@sirio-is.it>
Date: Fri, 13 Jan 2023 11:39:51 +0100
Subject: [PATCH] Patch level         : 12.0 Files correlati     : tp0100.cpp,
 tp0100a.h, tp0100a.uml

Commento:
Aggiunto alla maschera di estrazione da PACK a CAMPO il flag "Indirizzi di spedizione".
Ora gli Indirizzi di spedizione vengono trasferiti solo in caso di flag attivo (precedentemente venivano trasferiti ogni volta che si faceva il trasferimento dei Clienti/Fornitori)
---
 src/tp/tp0100.cpp  | 18 +++++++++++-------
 src/tp/tp0100a.h   |  1 +
 src/tp/tp0100a.uml |  5 +++++
 3 files changed, 17 insertions(+), 7 deletions(-)

diff --git a/src/tp/tp0100.cpp b/src/tp/tp0100.cpp
index 6a80a67b8..4531fac9e 100755
--- a/src/tp/tp0100.cpp
+++ b/src/tp/tp0100.cpp
@@ -463,13 +463,17 @@ void TTrasferimentoPack_mask::trasferisci()
 			go_on = pc.trasferisci();
 			book.add(log);
 		}
-    if (go_on)
-    {
-      TPack_indsped is;
-      is.init(TR("Indirizzi di spedizione"), query_header, log);
-      go_on = is.trasferisci();
-      book.add(log);
-    }
+
+		if (go_on && get_bool(F_INDTRASP))
+		{
+			if (go_on) 
+			{
+				TPack_indsped is;
+				is.init(TR("Indirizzi di spedizione"), query_header, log);
+				go_on = is.trasferisci();
+				book.add(log);
+			}
+		}
 		rep_to_print = true;
   }
   
diff --git a/src/tp/tp0100a.h b/src/tp/tp0100a.h
index f1c2aefb3..2921f909e 100755
--- a/src/tp/tp0100a.h
+++ b/src/tp/tp0100a.h
@@ -9,6 +9,7 @@
 #define F_CLIFO     113
 #define F_BOLLE     114
 #define F_DATABOLLE 115
+#define F_INDTRASP  116
 
 #define F_DSN       201
 #define F_USR       202
diff --git a/src/tp/tp0100a.uml b/src/tp/tp0100a.uml
index 55c45f067..839dec6a4 100755
--- a/src/tp/tp0100a.uml
+++ b/src/tp/tp0100a.uml
@@ -54,6 +54,11 @@ BEGIN
   PROMPT 2 9 "Clienti/Fornitori"
 END
 
+BOOLEAN F_INDTRASP
+BEGIN
+  PROMPT 32 9 "Indirizzi di spedizione"
+END
+
 BOOLEAN F_BOLLE
 BEGIN
   PROMPT 2 10 "Documenti di trasporto"