Fixed bug #7501 : Precision of standalone unit may differ from packaged one in SQL dialect 1

Author: hvlad

src/dsql/PackageNodes.epp

@@ -279,6 +279,11 @@ DdlNode* CreateAlterPackageNode::dsqlPass(DsqlCompilerScratch* dsqlScratch)
 		itemScratch->flags |= DsqlCompilerScratch::FLAG_DDL;
 		itemScratch->package = name;
 
+		if (itemScratch->clientDialect > SQL_DIALECT_V5)
+			itemStatement->setBlrVersion(5);
+		else
+			itemStatement->setBlrVersion(4);
+
 		ddlNode->dsqlPass(itemScratch);
 	}
 
@@ -696,6 +701,11 @@ DdlNode* CreatePackageBodyNode::dsqlPass(DsqlCompilerScratch* dsqlScratch)
 			itemScratch->flags |= DsqlCompilerScratch::FLAG_DDL;
 			itemScratch->package = name;
 
+			if (itemScratch->clientDialect > SQL_DIALECT_V5)
+				itemStatement->setBlrVersion(5);
+			else
+				itemStatement->setBlrVersion(4);
+
 			ddlNode->dsqlPass(itemScratch);
 		}
 	}