Feature : 4d/4d#4516

Requirement : 4d/4d#5052
4d · Feb 12, 2024 · 43e5463 · 43e5463
1 parent 4bb06cd
commit 43e5463
Show file tree

Hide file tree

Showing 3 changed files with 27 additions and 15 deletions.
diff --git a/Project/Sources/Methods/MENU_Execute.4dm b/Project/Sources/Methods/MENU_Execute.4dm
@@ -401,21 +401,25 @@ If (OB Is defined:C1231(Form:C1466; "areaPointer")) && (OB Is defined:C1231(Form
 				WP INSERT FORMULA:C1703(Form:C1466.selection; $formula; wk replace:K81:177)
 
 			: ($action="freeze@")
-				Case of 
-					: ($action="freezeDocument")
-						WP FREEZE FORMULAS:C1708(Form:C1466.document; wk do not recompute expressions:K81:312)
-
-					: ($action="freezeSelection")
-						WP FREEZE FORMULAS:C1708(Form:C1466.selection; wk do not recompute expressions:K81:312)
-
-					: ($action="freezeTables")
-
-						$_tables:=WP_GetTablesWithDataSource
-						For each ($table; $_tables)
-							WP FREEZE FORMULAS:C1708($table; wk do not recompute expressions:K81:312)
-						End for each 
-
-				End case 
+
+				CONFIRM:C162(Get localized string:C991("ConfirmFreeze"))
+				If (ok=1)
+					Case of 
+						: ($action="freezeDocument")
+							WP FREEZE FORMULAS:C1708(Form:C1466.document; wk do not recompute expressions:K81:312)
+
+						: ($action="freezeSelection")
+							WP FREEZE FORMULAS:C1708(Form:C1466.selection; wk do not recompute expressions:K81:312)
+
+						: ($action="freezeTables")
+
+							$_tables:=WP_GetTablesWithDataSource
+							For each ($table; $_tables)
+								WP FREEZE FORMULAS:C1708($table; wk do not recompute expressions:K81:312)
+							End for each 
+
+					End case 
+				End if 
 
 			: ($action="compute@")
 				Case of 

diff --git a/Resources/en.lproj/WPC.xlf b/Resources/en.lproj/WPC.xlf
@@ -648,6 +648,10 @@ This file is distributed under the same license as the product package.-->
           <source>Select a destination.</source>
           <target>Select a destination.</target>
         </trans-unit>
+        <trans-unit id="105" resname="ConfirmFreeze">
+          <source>If you proceed, dynamic references and expressions will no longer exist in the document and will be replaced by static values.</source>
+          <target>If you proceed, dynamic references and expressions will no longer exist in the document and will be replaced by static values.</target>
+        </trans-unit>        
       </group>
       <group resname="ListUnits">
         <trans-unit id="1" resname="cm">

diff --git a/Resources/fr.lproj/WPC.xlf b/Resources/fr.lproj/WPC.xlf
@@ -648,6 +648,10 @@ This file is distributed under the same license as the product package.-->
           <source>Select a destination.</source>
           <target>Selectionner une destination.</target>
         </trans-unit>
+        <trans-unit id="105" resname="ConfirmFreeze">
+          <source>If you proceed, dynamic references and expressions will no longer exist in the document and will be replaced by static values.</source>
+          <target>Si vous poursuivez, les références et expressions dynamiques n'existeront plus dans le document et seront remplacées par des valeurs statiques.</target>
+        </trans-unit>  
       </group>
       <group resname="ListUnits">
         <trans-unit id="1" resname="cm">