Fix TCDAWriter.WriteSNList to write TsnList.caption

Saxos-Simone · Mar 30, 2021 · 1d15951 · 1d15951
1 parent 4e11997
commit 1d15951
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/library/cda/cda_writer.pas b/library/cda/cda_writer.pas
@@ -4598,6 +4598,7 @@ procedure TCDAWriter.WriteSNList(Const sPath: string; oXml: TXmlBuilder; oFocus
   writeSNBase(sPath, oXml, oFocus);
   Attribute(sPath, oXml, 'listType', CODES_TsnListType[oFocus.listType], true);
   oFocus.sourcelocation := oXml.Open('list');
+  WriteSNCaption(sPath+'\caption', oXml, oFocus.caption);
   for iLoop := 0 to oFocus.item.Count - 1 Do
     WriteSNListItem(sPath+'\item', oXml, oFocus.item[iLoop]);
   oXml.Close('list');