From 6d0265862d1fc2fbf22c879a34e5b863161a0e5a Mon Sep 17 00:00:00 2001
From: Philipp Winkel <p.winkel@vocus.de>
Date: Fri, 30 Oct 2020 08:47:54 +0100
Subject: [PATCH] =?UTF-8?q?Fix=20TargetNamespace=20bei=20Collection=20Item?=
 =?UTF-8?q?s=20(behebt=20Fehler=20"Interface=20nicht=20unterst=C3=BCtzt")?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Units/DelphiXMLDataBindingGenerator.pas | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Units/DelphiXMLDataBindingGenerator.pas b/Units/DelphiXMLDataBindingGenerator.pas
index c570eae..d8ff615 100644
--- a/Units/DelphiXMLDataBindingGenerator.pas
+++ b/Units/DelphiXMLDataBindingGenerator.pas
@@ -814,12 +814,13 @@ begin
                                        'ItemClass',           GetDataTypeName(propertyItem, False)]);
         end;
 
-        AWriter.WriteLineNamedFmt('  %<FieldName>:s := CreateCollection(%<CollectionClass>:s, %<ItemInterface>:s, ''%<ItemSourceName>:s'') as %<CollectionInterface>:s;',
+        AWriter.WriteLineNamedFmt('  %<FieldName>:s := CreateCollection(%<CollectionClass>:s, %<ItemInterface>:s, ''%<ItemSourceName>:s'', ''%<Namespace>:s'') as %<CollectionInterface>:s;',
                                   ['FieldName',           PrefixField + propertyItem.TranslatedName,
                                    'CollectionClass',     PrefixClass + propertyItem.Collection.TranslatedName,
                                    'CollectionInterface', PrefixInterface + propertyItem.Collection.TranslatedName,
                                    'ItemInterface',       GetDataTypeName(propertyItem, True),
-                                   'ItemSourceName',      propertyItem.Name]);
+                                   'ItemSourceName',      propertyItem.Name,
+                                   'Namespace',           propertyItem.TargetNamespace]);
       end;
     end;