From 79f2fbfed323389f78ea082793a363314e408a0f Mon Sep 17 00:00:00 2001 From: niku-live Date: Wed, 18 Jul 2018 18:24:33 +0300 Subject: [PATCH 1/6] OpenXml.WordProcessing namespace .NET wrappers --- BaseApp/COD50018.TXT | 78 ++++ BaseApp/COD50019.TXT | 126 ++++++ BaseApp/COD50020.TXT | 75 ++++ BaseApp/COD50021.TXT | 104 +++++ BaseApp/COD50022.TXT | 101 +++++ BaseApp/COD50023.TXT | 103 +++++ BaseApp/COD50024.TXT | 91 ++++ BaseApp/COD50025.TXT | 127 ++++++ BaseApp/COD50026.TXT | 115 +++++ BaseApp/COD50027.TXT | 83 ++++ BaseApp/COD50028.TXT | 83 ++++ BaseApp/COD50029.TXT | 83 ++++ BaseApp/COD50030.TXT | 62 +++ BaseApp/COD50031.TXT | 72 +++ BaseApp/COD50032.TXT | 82 ++++ BaseApp/COD50033.TXT | 63 +++ BaseApp/COD50034.TXT | 40 ++ BaseApp/COD50035.TXT | 97 ++++ BaseApp/COD50036.TXT | 72 +++ BaseApp/COD50037.TXT | 117 +++++ BaseApp/COD50038.TXT | 164 +++++++ BaseApp/COD50039.TXT | 90 ++++ BaseApp/COD50040.TXT | 52 +++ BaseApp/COD50041.TXT | 49 ++ BaseApp/COD50042.TXT | 40 ++ BaseApp/COD50043.TXT | 69 +++ BaseApp/COD50044.TXT | 261 +++++++++++ BaseApp/COD50045.TXT | 93 ++++ BaseApp/COD50046.TXT | 93 ++++ BaseApp/COD50047.TXT | 117 +++++ BaseApp/COD50048.TXT | 90 ++++ BaseApp/COD50049.TXT | 90 ++++ BaseApp/COD50050.TXT | 106 +++++ BaseApp/COD50051.TXT | 85 ++++ BaseApp/COD50052.TXT | 76 ++++ BaseApp/COD50053.TXT | 78 ++++ BaseApp/COD50054.TXT | 78 ++++ BaseApp/COD50055.TXT | 90 ++++ BaseApp/COD50056.TXT | 66 +++ BaseApp/COD50057.TXT | 89 ++++ BaseApp/COD50058.TXT | 68 +++ BaseApp/COD50059.TXT | 71 +++ BaseApp/COD50060.TXT | 109 +++++ BaseApp/COD50061.TXT | 80 ++++ BaseApp/COD50062.TXT | 52 +++ BaseApp/COD50063.TXT | 52 +++ BaseApp/COD50064.TXT | 52 +++ BaseApp/COD50065.TXT | 52 +++ BaseApp/COD50066.TXT | 52 +++ BaseApp/COD50067.TXT | 111 +++++ BaseApp/COD50068.TXT | 391 ++++++++++++++++ BaseApp/COD50070.TXT | 49 ++ BaseApp/COD50071.TXT | 101 +++++ BaseApp/COD50072.TXT | 83 ++++ BaseApp/COD50073.TXT | 103 +++++ BaseApp/COD50074.TXT | 77 ++++ BaseApp/COD50075.TXT | 52 +++ BaseApp/COD50076.TXT | 52 +++ Test/COD50069.TXT | 1010 ++++++++++++++++++++++++++++++++++++++++++ 59 files changed, 6267 insertions(+) create mode 100644 BaseApp/COD50018.TXT create mode 100644 BaseApp/COD50019.TXT create mode 100644 BaseApp/COD50020.TXT create mode 100644 BaseApp/COD50021.TXT create mode 100644 BaseApp/COD50022.TXT create mode 100644 BaseApp/COD50023.TXT create mode 100644 BaseApp/COD50024.TXT create mode 100644 BaseApp/COD50025.TXT create mode 100644 BaseApp/COD50026.TXT create mode 100644 BaseApp/COD50027.TXT create mode 100644 BaseApp/COD50028.TXT create mode 100644 BaseApp/COD50029.TXT create mode 100644 BaseApp/COD50030.TXT create mode 100644 BaseApp/COD50031.TXT create mode 100644 BaseApp/COD50032.TXT create mode 100644 BaseApp/COD50033.TXT create mode 100644 BaseApp/COD50034.TXT create mode 100644 BaseApp/COD50035.TXT create mode 100644 BaseApp/COD50036.TXT create mode 100644 BaseApp/COD50037.TXT create mode 100644 BaseApp/COD50038.TXT create mode 100644 BaseApp/COD50039.TXT create mode 100644 BaseApp/COD50040.TXT create mode 100644 BaseApp/COD50041.TXT create mode 100644 BaseApp/COD50042.TXT create mode 100644 BaseApp/COD50043.TXT create mode 100644 BaseApp/COD50044.TXT create mode 100644 BaseApp/COD50045.TXT create mode 100644 BaseApp/COD50046.TXT create mode 100644 BaseApp/COD50047.TXT create mode 100644 BaseApp/COD50048.TXT create mode 100644 BaseApp/COD50049.TXT create mode 100644 BaseApp/COD50050.TXT create mode 100644 BaseApp/COD50051.TXT create mode 100644 BaseApp/COD50052.TXT create mode 100644 BaseApp/COD50053.TXT create mode 100644 BaseApp/COD50054.TXT create mode 100644 BaseApp/COD50055.TXT create mode 100644 BaseApp/COD50056.TXT create mode 100644 BaseApp/COD50057.TXT create mode 100644 BaseApp/COD50058.TXT create mode 100644 BaseApp/COD50059.TXT create mode 100644 BaseApp/COD50060.TXT create mode 100644 BaseApp/COD50061.TXT create mode 100644 BaseApp/COD50062.TXT create mode 100644 BaseApp/COD50063.TXT create mode 100644 BaseApp/COD50064.TXT create mode 100644 BaseApp/COD50065.TXT create mode 100644 BaseApp/COD50066.TXT create mode 100644 BaseApp/COD50067.TXT create mode 100644 BaseApp/COD50068.TXT create mode 100644 BaseApp/COD50070.TXT create mode 100644 BaseApp/COD50071.TXT create mode 100644 BaseApp/COD50072.TXT create mode 100644 BaseApp/COD50073.TXT create mode 100644 BaseApp/COD50074.TXT create mode 100644 BaseApp/COD50075.TXT create mode 100644 BaseApp/COD50076.TXT create mode 100644 Test/COD50069.TXT diff --git a/BaseApp/COD50018.TXT b/BaseApp/COD50018.TXT new file mode 100644 index 0000000..f022ccc --- /dev/null +++ b/BaseApp/COD50018.TXT @@ -0,0 +1,78 @@ +OBJECT Codeunit 50018 DotNet_WordprocessingDocument +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetWordprocessingDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"; + DotNetMemoryStream@17024402 : DotNet "'mscorlib'.System.IO.MemoryStream"; + + [External] + PROCEDURE Create@17024401(DocumentType@17024401 : 'Document,Template,MacroEnabledDocument,MacroEnabledTemplate';AutoSave@17024403 : Boolean); + VAR + DotNetWordprocessingDocumentType@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.WordprocessingDocumentType"; + BEGIN + DotNetMemoryStream := DotNetMemoryStream.MemoryStream; + DotNetWordprocessingDocumentType := DotNetWordprocessingDocumentType.Parse(GETDOTNETTYPE(DotNetWordprocessingDocumentType), FORMAT(DocumentType, 0)); + DotNetWordprocessingDocument := DotNetWordprocessingDocument.Create(DotNetMemoryStream, DotNetWordprocessingDocumentType, AutoSave); + END; + + [External] + PROCEDURE Open@17024402(DocumentStream@17024401 : InStream;Editable@17024400 : Boolean); + BEGIN + DotNetMemoryStream := DotNetMemoryStream.MemoryStream; + COPYSTREAM(DotNetMemoryStream, DocumentStream); + DotNetMemoryStream.Position := 0; + DotNetWordprocessingDocument := DotNetWordprocessingDocument.Open(DotNetMemoryStream, Editable); + END; + + [External] + PROCEDURE Close@17024407(); + BEGIN + DotNetWordprocessingDocument.Close; + END; + + [External] + PROCEDURE Save@17024408(ResultStream@17024400 : OutStream); + BEGIN + COPYSTREAM(ResultStream, DotNetMemoryStream); + END; + + [External] + PROCEDURE AddMainDocumentPart@17024404(VAR MainDocumentPart@17024400 : Codeunit 50019); + BEGIN + MainDocumentPart.SetMainDocumentPart(DotNetWordprocessingDocument.AddMainDocumentPart); + END; + + [External] + PROCEDURE GetMainDocumentPart@17024406(VAR MainDocumentPart@17024400 : Codeunit 50019); + BEGIN + MainDocumentPart.SetMainDocumentPart(DotNetWordprocessingDocument.MainDocumentPart); + END; + + PROCEDURE SetWordProcessingDocument@17024400(NewWordprocessingDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"); + BEGIN + DotNetWordprocessingDocument := NewWordprocessingDocument; + END; + + PROCEDURE GetWordProcessingDocument@17024403(VAR CurrentWordprocessingDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"); + BEGIN + CurrentWordprocessingDocument := DotNetWordprocessingDocument; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50019.TXT b/BaseApp/COD50019.TXT new file mode 100644 index 0000000..14dfbcb --- /dev/null +++ b/BaseApp/COD50019.TXT @@ -0,0 +1,126 @@ +OBJECT Codeunit 50019 DotNet_Word.MainDocumentPart +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetMainDocumentPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + + PROCEDURE SetMainDocumentPart@17024411(NewMainDocumentPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"); + BEGIN + DotNetMainDocumentPart := NewMainDocumentPart; + END; + + PROCEDURE GetMainDocumentPart@17024400(VAR CurrentMainDocumentPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"); + BEGIN + CurrentMainDocumentPart := DotNetMainDocumentPart; + END; + + [External] + PROCEDURE AddHyperlinkRelationship@17024403(Url@17024400 : Text;IsExternal@17024401 : Boolean;VAR CreatedHyperlinkRelationship@17024402 : Codeunit 50034); + VAR + DotNetUri@17024403 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Uri"; + BEGIN + CreatedHyperlinkRelationship.SetHyperlinkRelationship(DotNetMainDocumentPart.AddHyperlinkRelationship(DotNetUri.Uri(Url), IsExternal)); + END; + + [External] + PROCEDURE AddNumberingDefinitionsPart@17024409(VAR CreatedNumberingDefinitionsPart@17024402 : Codeunit 50070); + VAR + DotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; + DotNetObject@17024405 : DotNet "'mscorlib'.System.Object"; + BEGIN + //Normally is should have been something as simple as: + //DotNetNumberingDefinitionsPart := DotNetMainDocumentPart.AddNewPart(); + //But since NAV have no such thing as generics support, I need to fallback to reflection calls: + OpenXmlDotNetHelper.AddPartGeneric(DotNetMainDocumentPart, GETDOTNETTYPE(DotNetNumberingDefinitionsPart), DotNetObject); + CreatedNumberingDefinitionsPart.SetNumberingDefinitionsPart(DotNetObject); + END; + + [External] + PROCEDURE HasNumberingDefinitionsPart@17024412() : Boolean; + BEGIN + EXIT(NOT ISNULL(DotNetMainDocumentPart.NumberingDefinitionsPart)); + END; + + [External] + PROCEDURE GetNumberingDefinitionsPart@17024414(VAR WordNumberingDefinitionPart@17024400 : Codeunit 50070); + BEGIN + WordNumberingDefinitionPart.SetNumberingDefinitionsPart(DotNetMainDocumentPart.NumberingDefinitionsPart); + END; + + [External] + PROCEDURE AddStyleDefinitionsPart@17024404(VAR CreatedStyleDefinitionsPart@17024402 : Codeunit 50041); + VAR + DotNetStyleDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"; + DotNetObject@17024405 : DotNet "'mscorlib'.System.Object"; + BEGIN + //Normally is should have been something as simple as: + //DotNetStyleDefinitionsPart := DotNetMainDocumentPart.AddNewPart(); + //But since NAV have no such thing as generics support, I need to fallback to reflection calls: + OpenXmlDotNetHelper.AddPartGeneric(DotNetMainDocumentPart, GETDOTNETTYPE(DotNetStyleDefinitionsPart), DotNetObject); + CreatedStyleDefinitionsPart.SetStyleDefinitionsPart(DotNetObject); + END; + + [External] + PROCEDURE HasStyleDefinitionsPart@17024405() : Boolean; + BEGIN + EXIT(NOT ISNULL(DotNetMainDocumentPart.StyleDefinitionsPart)); + END; + + [External] + PROCEDURE GetStyleDefinitionsPart@17024408(VAR WordStyleDefinitionPart@17024400 : Codeunit 50041); + BEGIN + WordStyleDefinitionPart.SetStyleDefinitionsPart(DotNetMainDocumentPart.StyleDefinitionsPart); + END; + + [External] + PROCEDURE AddImagePart@17024406(ImagePartType@17024400 : 'Bmp,Gif,Png,Tiff,Icon,Pcx,Jpeg,Emf,Wmf';VAR CreatedImagePart@17024402 : Codeunit 50042); + VAR + DotNetImagePartType@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePartType"; + BEGIN + DotNetImagePartType := DotNetImagePartType.Parse(GETDOTNETTYPE(DotNetImagePartType), FORMAT(ImagePartType, 0)); + CreatedImagePart.SetImagePart(DotNetMainDocumentPart.AddImagePart(DotNetImagePartType)); + END; + + [External] + PROCEDURE GetIdOfImagePart@17024407(VAR ImagePart@17024402 : Codeunit 50042) : Text; + VAR + DotNetImagePart@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"; + BEGIN + ImagePart.GetImagePart(DotNetImagePart); + EXIT(DotNetMainDocumentPart.GetIdOfPart(DotNetImagePart)); + END; + + [External] + PROCEDURE SetDocument@17024401(VAR WordDocument@17024400 : Codeunit 50020); + VAR + DotNetDocument@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"; + BEGIN + WordDocument.GetDocument(DotNetDocument); + DotNetMainDocumentPart.Document := DotNetDocument; + END; + + [External] + PROCEDURE GetDocument@17024402(VAR DotNetWordDocument@17024400 : Codeunit 50020); + BEGIN + DotNetWordDocument.SetDocument(DotNetMainDocumentPart.Document); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50020.TXT b/BaseApp/COD50020.TXT new file mode 100644 index 0000000..2e02fdc --- /dev/null +++ b/BaseApp/COD50020.TXT @@ -0,0 +1,75 @@ +OBJECT Codeunit 50020 DotNet_Word.Document +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"; + + [External] + PROCEDURE Create@17024402(); + BEGIN + DotNetDocument := DotNetDocument.Document; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024409(OuterXml@17024400 : Text); + BEGIN + DotNetDocument := DotNetDocument.Document(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024404() : Text; + BEGIN + EXIT(DotNetDocument.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024406() : Text; + BEGIN + EXIT(DotNetDocument.InnerText); + END; + + [External] + PROCEDURE SetBody@17024401(VAR WordBody@17024400 : Codeunit 50021); + VAR + DotNetBody@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"; + BEGIN + WordBody.GetBody(DotNetBody); + DotNetDocument.Body := DotNetBody; + END; + + [External] + PROCEDURE GetBody@17024403(VAR WordBody@17024400 : Codeunit 50021); + VAR + DotNetBody@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"; + BEGIN + WordBody.SetBody(DotNetDocument.Body); + END; + + PROCEDURE SetDocument@17024411(NewDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"); + BEGIN + DotNetDocument := NewDocument; + END; + + PROCEDURE GetDocument@17024400(VAR CurrentDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"); + BEGIN + CurrentDocument := DotNetDocument; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50021.TXT b/BaseApp/COD50021.TXT new file mode 100644 index 0000000..9f05921 --- /dev/null +++ b/BaseApp/COD50021.TXT @@ -0,0 +1,104 @@ +OBJECT Codeunit 50021 DotNet_Word.Body +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetBody@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + + [External] + PROCEDURE Create@17024401(); + BEGIN + DotNetBody := DotNetBody.Body; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024409(OuterXml@17024400 : Text); + BEGIN + DotNetBody := DotNetBody.Body(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024405() : Text; + BEGIN + EXIT(DotNetBody.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024406() : Text; + BEGIN + EXIT(DotNetBody.InnerText); + END; + + [External] + PROCEDURE AppendParagraph@17024403(VAR WordParagraph@17024400 : Codeunit 50022); + VAR + DotNetParagraph@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + BEGIN + WordParagraph.GetParagraph(DotNetParagraph); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetBody, DotNetParagraph); + END; + + [External] + PROCEDURE AppendTable@17024402(VAR WordTable@17024400 : Codeunit 50027); + VAR + DotNetTable@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; + DotNetArray@17024402 : DotNet "'mscorlib'.System.Array"; + BEGIN + WordTable.GetTable(DotNetTable); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetBody, DotNetTable); + END; + + [External] + PROCEDURE GetTableEnumerator@17024404(VAR WordTableEnumerator@17024400 : Codeunit 50064); + VAR + EnumeratorHelper@17024401 : Codeunit 50067; + DotNetTable@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; + DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + BEGIN + //We need this to deal with .NET Generics: + EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetBody.Elements, GETDOTNETTYPE(DotNetTable), DotNetEnumerator); + WordTableEnumerator.SetEnumerator(DotNetEnumerator); + END; + + [External] + PROCEDURE GetParagraphEnumerator@17024408(VAR WordParagraphEnumerator@17024400 : Codeunit 50062); + VAR + EnumeratorHelper@17024401 : Codeunit 50067; + DotNetParagraph@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + BEGIN + //We need this to deal with .NET Generics: + EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetBody.Elements, GETDOTNETTYPE(DotNetParagraph), DotNetEnumerator); + WordParagraphEnumerator.SetEnumerator(DotNetEnumerator); + END; + + PROCEDURE SetBody@17024411(NewDotNetBody@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"); + BEGIN + DotNetBody := NewDotNetBody; + END; + + PROCEDURE GetBody@17024400(VAR CurrentDotNetBody@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"); + BEGIN + CurrentDotNetBody := DotNetBody; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50022.TXT b/BaseApp/COD50022.TXT new file mode 100644 index 0000000..5cb367a --- /dev/null +++ b/BaseApp/COD50022.TXT @@ -0,0 +1,101 @@ +OBJECT Codeunit 50022 DotNet_Word.Paragraph +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetParagraph@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetParagraph := DotNetParagraph.Paragraph; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024409(OuterXml@17024400 : Text); + BEGIN + DotNetParagraph := DotNetParagraph.Paragraph(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024405() : Text; + BEGIN + EXIT(DotNetParagraph.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024406() : Text; + BEGIN + EXIT(DotNetParagraph.InnerText); + END; + + [External] + PROCEDURE AppendRun@17024401(VAR WordRun@17024400 : Codeunit 50023); + VAR + DotNetRun@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; + BEGIN + WordRun.GetRun(DotNetRun); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetParagraph, DotNetRun); + END; + + [External] + PROCEDURE AppendHyperlink@17024404(VAR WordHyperlink@17024400 : Codeunit 50035); + VAR + DotNetHyperlink@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"; + BEGIN + WordHyperlink.GetHyperlink(DotNetHyperlink); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetParagraph, DotNetHyperlink); + END; + + [External] + PROCEDURE AppendProperties@17024402(VAR WordParagraphProperties@17024400 : Codeunit 50026); + VAR + DotNetParagraphProperties@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"; + BEGIN + WordParagraphProperties.GetParagraphProperties(DotNetParagraphProperties); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetParagraph, DotNetParagraphProperties); + END; + + [External] + PROCEDURE GetRunEnumerator@17024408(VAR WordRunEnumerator@17024400 : Codeunit 50063); + VAR + EnumeratorHelper@17024401 : Codeunit 50067; + DotNetRun@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; + DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + BEGIN + //We need this to deal with .NET Generics: + EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetParagraph.Elements, GETDOTNETTYPE(DotNetRun), DotNetEnumerator); + WordRunEnumerator.SetEnumerator(DotNetEnumerator); + END; + + PROCEDURE SetParagraph@17024411(NewDotNetParagraph@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"); + BEGIN + DotNetParagraph := NewDotNetParagraph; + END; + + PROCEDURE GetParagraph@17024400(VAR CurrentDotNetParagraph@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"); + BEGIN + CurrentDotNetParagraph := DotNetParagraph; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50023.TXT b/BaseApp/COD50023.TXT new file mode 100644 index 0000000..df50244 --- /dev/null +++ b/BaseApp/COD50023.TXT @@ -0,0 +1,103 @@ +OBJECT Codeunit 50023 DotNet_Word.Run +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetRun@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + + [External] + PROCEDURE Create@17024403(); + VAR + DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetRun := DotNetRun.Run; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024409(OuterXml@17024400 : Text); + BEGIN + DotNetRun := DotNetRun.Run(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024405() : Text; + BEGIN + EXIT(DotNetRun.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024406() : Text; + BEGIN + EXIT(DotNetRun.InnerText); + END; + + [External] + PROCEDURE AppendText@17024401(VAR WordText@17024400 : Codeunit 50024); + VAR + DotNetText@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; + BEGIN + WordText.GetTextObject(DotNetText); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetRun, DotNetText); + END; + + [External] + PROCEDURE AppendDrawing@17024404(VAR WordDrawing@17024400 : Codeunit 50043); + VAR + DotNetDrawing@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"; + BEGIN + WordDrawing.GetDrawing(DotNetDrawing); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetRun, DotNetDrawing); + END; + + [External] + PROCEDURE AppendProperties@17024402(VAR WordRunProperties@17024400 : Codeunit 50025); + VAR + DotNetRunProperties@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"; + BEGIN + WordRunProperties.GetRunProperties(DotNetRunProperties); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetRun, DotNetRunProperties); + END; + + [External] + PROCEDURE GetTextEnumerator@17024408(VAR WordTextEnumerator@17024400 : Codeunit 50076); + VAR + EnumeratorHelper@17024401 : Codeunit 50067; + DotNetText@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; + DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + BEGIN + //We need this to deal with .NET Generics: + EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetRun.Elements, GETDOTNETTYPE(DotNetText), DotNetEnumerator); + WordTextEnumerator.SetEnumerator(DotNetEnumerator); + END; + + PROCEDURE SetRun@17024411(NewDotNetRun@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"); + BEGIN + DotNetRun := NewDotNetRun; + END; + + PROCEDURE GetRun@17024400(VAR CurrentDotNetRun@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"); + BEGIN + CurrentDotNetRun := DotNetRun; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50024.TXT b/BaseApp/COD50024.TXT new file mode 100644 index 0000000..16301f6 --- /dev/null +++ b/BaseApp/COD50024.TXT @@ -0,0 +1,91 @@ +OBJECT Codeunit 50024 DotNet_Word.Text +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetText@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; + + [External] + PROCEDURE Create@17024403(); + VAR + DotNetType@17024401 : DotNet "'mscorlib'.System.Type"; + DotNetObject@17024404 : DotNet "'mscorlib'.System.Object"; + DotNetTypeArray@17024402 : DotNet "'mscorlib'.System.Array"; + DotNetParamsArray@17024403 : DotNet "'mscorlib'.System.Array"; + BEGIN + //So normally it should be a simple call like that: + //DotNetText := DotNetText.Text(); + //but constructor name equals to property name (both "Text") and in NAV we have no way to handle it + //so I need to use some tricks here + //basically I get constructor using reflection and then call it + DotNetType := GETDOTNETTYPE(DotNetText); + DotNetTypeArray := DotNetTypeArray.CreateInstance(GETDOTNETTYPE(DotNetType), 0); + DotNetParamsArray := DotNetParamsArray.CreateInstance(GETDOTNETTYPE(DotNetObject), 0); + DotNetText := DotNetType.GetConstructor(DotNetTypeArray).Invoke(DotNetParamsArray); + END; + + [External] + PROCEDURE GetOuterXml@17024404() : Text; + BEGIN + EXIT(DotNetText.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024401() : Text; + BEGIN + EXIT(DotNetText.InnerText); + END; + + [External] + PROCEDURE SetText@17024405(NewText@17024400 : Text); + BEGIN + DotNetText.Text := NewText; + END; + + [External] + PROCEDURE GetText@17024406() : Text; + BEGIN + EXIT(DotNetText.Text); + END; + + [External] + PROCEDURE SetSpacePreserveOption@17024402(PreserveSpace@17024400 : Boolean); + VAR + DotNetSpaceProcessingModeValues@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + BEGIN + IF PreserveSpace THEN + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetSpaceProcessingModeValues), 1, DotNetEnumValue) + ELSE + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetSpaceProcessingModeValues), 0, DotNetEnumValue); + DotNetText.Space := DotNetEnumValue; + END; + + PROCEDURE SetTextObject@17024411(NewDotNetText@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"); + BEGIN + DotNetText := NewDotNetText; + END; + + PROCEDURE GetTextObject@17024400(VAR CurrentDotNetText@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"); + BEGIN + CurrentDotNetText := DotNetText; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50025.TXT b/BaseApp/COD50025.TXT new file mode 100644 index 0000000..79b481f --- /dev/null +++ b/BaseApp/COD50025.TXT @@ -0,0 +1,127 @@ +OBJECT Codeunit 50025 DotNet_Word.RunProperties +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetRunProperties := DotNetRunProperties.RunProperties; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetRunProperties := DotNetRunProperties.RunProperties(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024407() : Text; + BEGIN + EXIT(DotNetRunProperties.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetRunProperties.InnerText); + END; + + [External] + PROCEDURE SetBold@17024405(Bold@17024401 : Boolean); + VAR + DotNetBold@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; + DotNetBoldNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; + BEGIN + DotNetBold := DotNetBold.Bold; + IF Bold THEN + DotNetRunProperties.Bold := DotNetBold + ELSE + DotNetRunProperties.Bold := DotNetBoldNull; + END; + + [External] + PROCEDURE SetItalic@17024409(Italic@17024401 : Boolean); + VAR + DotNetItalic@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; + DotNetItalicNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; + BEGIN + DotNetItalic := DotNetItalic.Italic; + IF Italic THEN + DotNetRunProperties.Italic := DotNetItalic + ELSE + DotNetRunProperties.Italic := DotNetItalicNull; + END; + + [External] + PROCEDURE SetUnderline@17024401(Underline@17024401 : Boolean); + VAR + DotNetUnderline@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + DotNetUnderlineNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetUnderline := DotNetUnderline.Underline; + IF Underline THEN + DotNetRunProperties.Underline := DotNetUnderline + ELSE + DotNetRunProperties.Underline := DotNetUnderlineNull; + END; + + [External] + PROCEDURE SetFontSize@17024406(NewFontSize@17024401 : Text); + VAR + DotNetFontSize@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.FontSize"; + DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetFontSize := DotNetFontSize.FontSize; + DotNetFontSize.Val := DotNetStringValue.StringValue(NewFontSize); + END; + + [External] + PROCEDURE SetColor@17024404(VAR WordColor@17024401 : Codeunit 50036); + VAR + DotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; + BEGIN + WordColor.GetColor(DotNetColor); + DotNetRunProperties.Color := DotNetColor; + END; + + [External] + PROCEDURE SetRunStyle@17024402(StyleName@17024401 : Text); + VAR + DotNetRunStyle@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunStyle"; + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetRunStyle := DotNetRunStyle.RunStyle; + DotNetRunStyle.Val := DotNetStringValue.StringValue(StyleName); + DotNetRunProperties.RunStyle := DotNetRunStyle; + END; + + PROCEDURE SetRunProperties@17024411(NewDotNetRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"); + BEGIN + DotNetRunProperties := NewDotNetRunProperties; + END; + + PROCEDURE GetRunProperties@17024400(VAR CurrentDotNetRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"); + BEGIN + CurrentDotNetRunProperties := DotNetRunProperties; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50026.TXT b/BaseApp/COD50026.TXT new file mode 100644 index 0000000..e3d4bad --- /dev/null +++ b/BaseApp/COD50026.TXT @@ -0,0 +1,115 @@ +OBJECT Codeunit 50026 DotNet_Word.ParagraphProp +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetParagraphProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"; + + [External] + PROCEDURE Create@17024403(); + VAR + DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetParagraphProperties := DotNetParagraphProperties.ParagraphProperties; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); + VAR + DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetParagraphProperties := DotNetParagraphProperties.ParagraphProperties(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetParagraphProperties.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetParagraphProperties.InnerText); + END; + + [External] + PROCEDURE SetJustification@17024404(Justification@17024401 : 'Left,Start,Center,Right,End,Both,MediumKashida,Distribute,NumTab,HighKashida,LowKashida,ThaiDistribute'); + VAR + DotNetJustification@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Justification"; + DotNetJustificationValues@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.JustificationValues"; + DotNetEnumValue@17024404 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + DotNetJustification := DotNetJustification.Justification; + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetJustificationValues), Justification, DotNetEnumValue); + DotNetJustification.Val := DotNetEnumValue; + DotNetParagraphProperties.Justification := DotNetJustification; + END; + + [External] + PROCEDURE SetSpacingBetweenLines@17024401(VAR WordSpacingBetweenLines@17024401 : Codeunit 50030); + VAR + DotNetSpacingBetweenLines@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"; + BEGIN + WordSpacingBetweenLines.GetSpacingBetweenLines(DotNetSpacingBetweenLines); + DotNetParagraphProperties.SpacingBetweenLines := DotNetSpacingBetweenLines; + END; + + [External] + PROCEDURE SetIndentation@17024406(VAR WordIndentation@17024401 : Codeunit 50031); + VAR + DotNetIndentation@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"; + BEGIN + WordIndentation.GetIndentation(DotNetIndentation); + DotNetParagraphProperties.Indentation := DotNetIndentation; + END; + + [External] + PROCEDURE SetNumberingProperties@17024409(VAR WordNumberingProperties@17024401 : Codeunit 50032); + VAR + DotNetNumberingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"; + BEGIN + WordNumberingProperties.GetNumberingProperties(DotNetNumberingProperties); + DotNetParagraphProperties.NumberingProperties := DotNetNumberingProperties; + END; + + [External] + PROCEDURE SetParagraphStyleId@17024407(NewParagraphStyleId@17024400 : Text); + VAR + DotNetParagraphStyleId@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphStyleId"; + DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetParagraphStyleId := DotNetParagraphStyleId.ParagraphStyleId; + DotNetParagraphStyleId.Val := DotNetStringValue.FromString(NewParagraphStyleId); + DotNetParagraphProperties.ParagraphStyleId := DotNetParagraphStyleId; + END; + + PROCEDURE SetParagraphProperties@17024411(NewDotNetParagraphProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"); + BEGIN + DotNetParagraphProperties := NewDotNetParagraphProperties; + END; + + PROCEDURE GetParagraphProperties@17024400(VAR CurrentDotNetParagraphProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"); + BEGIN + CurrentDotNetParagraphProperties := DotNetParagraphProperties; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50027.TXT b/BaseApp/COD50027.TXT new file mode 100644 index 0000000..cc7634d --- /dev/null +++ b/BaseApp/COD50027.TXT @@ -0,0 +1,83 @@ +OBJECT Codeunit 50027 DotNet_Word.Table +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetTable@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetTable := DotNetTable.Table; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); + VAR + DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetTable := DotNetTable.Table(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetTable.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetTable.InnerText); + END; + + [External] + PROCEDURE AppendRow@17024401(WordTableRow@17024400 : Codeunit 50028); + VAR + DotNetTableRow@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordTableRow.GetTableRow(DotNetTableRow); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetTable, DotNetTableRow); + END; + + [External] + PROCEDURE GetTableRowEnumerator@17024404(VAR WordTableRowEnumerator@17024400 : Codeunit 50065); + VAR + EnumeratorHelper@17024401 : Codeunit 50067; + DotNetTableRow@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; + DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + BEGIN + //We need this to deal with .NET Generics: + EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetTable.Elements, GETDOTNETTYPE(DotNetTableRow), DotNetEnumerator); + WordTableRowEnumerator.SetEnumerator(DotNetEnumerator); + END; + + PROCEDURE SetTable@17024411(NewDotNetTable@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"); + BEGIN + DotNetTable := NewDotNetTable; + END; + + PROCEDURE GetTable@17024400(VAR CurrentDotNetTable@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"); + BEGIN + CurrentDotNetTable := DotNetTable; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50028.TXT b/BaseApp/COD50028.TXT new file mode 100644 index 0000000..b98b875 --- /dev/null +++ b/BaseApp/COD50028.TXT @@ -0,0 +1,83 @@ +OBJECT Codeunit 50028 DotNet_Word.TableRow +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetTableRow@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetTableRow := DotNetTableRow.TableRow; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); + VAR + DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetTableRow := DotNetTableRow.TableRow(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetTableRow.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetTableRow.InnerText); + END; + + [External] + PROCEDURE AppendCell@17024401(WordTableCell@17024400 : Codeunit 50029); + VAR + DotNetTableCell@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordTableCell.GetTableCell(DotNetTableCell); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetTableRow, DotNetTableCell); + END; + + [External] + PROCEDURE GetTableCellEnumerator@17024404(VAR WordTableCellEnumerator@17024400 : Codeunit 50066); + VAR + EnumeratorHelper@17024401 : Codeunit 50067; + DotNetTableCell@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; + DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + BEGIN + //We need this to deal with .NET Generics: + EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetTableRow.Elements, GETDOTNETTYPE(DotNetTableCell), DotNetEnumerator); + WordTableCellEnumerator.SetEnumerator(DotNetEnumerator); + END; + + PROCEDURE SetTableRow@17024411(NewDotNetTableRow@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"); + BEGIN + DotNetTableRow := NewDotNetTableRow; + END; + + PROCEDURE GetTableRow@17024400(VAR CurrentDotNetTableRow@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"); + BEGIN + CurrentDotNetTableRow := DotNetTableRow; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50029.TXT b/BaseApp/COD50029.TXT new file mode 100644 index 0000000..41c375c --- /dev/null +++ b/BaseApp/COD50029.TXT @@ -0,0 +1,83 @@ +OBJECT Codeunit 50029 DotNet_Word.TableCell +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetTableCell@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetTableCell := DotNetTableCell.TableCell; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024404(OuterXml@17024401 : Text); + VAR + DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetTableCell := DotNetTableCell.TableCell(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetTableCell.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetTableCell.InnerText); + END; + + [External] + PROCEDURE AppendParagraph@17024401(WordParagraph@17024400 : Codeunit 50022); + VAR + DotNetParagraph@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordParagraph.GetParagraph(DotNetParagraph); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetTableCell, DotNetParagraph); + END; + + [External] + PROCEDURE GetParagraphEnumerator@17024408(VAR WordParagraphEnumerator@17024400 : Codeunit 50062); + VAR + EnumeratorHelper@17024401 : Codeunit 50067; + DotNetParagraph@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + BEGIN + //We need this to deal with .NET Generics: + EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetTableCell.Elements, GETDOTNETTYPE(DotNetParagraph), DotNetEnumerator); + WordParagraphEnumerator.SetEnumerator(DotNetParagraph); + END; + + PROCEDURE SetTableCell@17024411(NewDotNetTableCell@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"); + BEGIN + DotNetTableCell := NewDotNetTableCell; + END; + + PROCEDURE GetTableCell@17024400(VAR CurrentDotNetTableCell@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"); + BEGIN + CurrentDotNetTableCell := DotNetTableCell; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50030.TXT b/BaseApp/COD50030.TXT new file mode 100644 index 0000000..d38d7cf --- /dev/null +++ b/BaseApp/COD50030.TXT @@ -0,0 +1,62 @@ +OBJECT Codeunit 50030 DotNet_Word.SpacingBetweenLine +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetSpacingBetweenLines@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetSpacingBetweenLines := DotNetSpacingBetweenLines.SpacingBetweenLines; + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetSpacingBetweenLines.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetSpacingBetweenLines.InnerText); + END; + + [External] + PROCEDURE SetAfter@17024401(NewAfterValue@17024400 : Text); + VAR + DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetStringValue := DotNetStringValue.StringValue; + DotNetStringValue.Value := NewAfterValue; + DotNetSpacingBetweenLines.After := DotNetStringValue; + END; + + PROCEDURE SetSpacingBetweenLines@17024411(NewDotNetSpacingBetweenLines@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"); + BEGIN + DotNetSpacingBetweenLines := NewDotNetSpacingBetweenLines; + END; + + PROCEDURE GetSpacingBetweenLines@17024400(VAR CurrentDotNetSpacingBetweenLines@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"); + BEGIN + CurrentDotNetSpacingBetweenLines := DotNetSpacingBetweenLines; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50031.TXT b/BaseApp/COD50031.TXT new file mode 100644 index 0000000..7e5a1cd --- /dev/null +++ b/BaseApp/COD50031.TXT @@ -0,0 +1,72 @@ +OBJECT Codeunit 50031 DotNet_Word.Indentation +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetIndentation@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetIndentation := DotNetIndentation.Indentation; + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetIndentation.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetIndentation.InnerText); + END; + + [External] + PROCEDURE SetLeft@17024401(NewLeftValue@17024400 : Text); + VAR + DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetStringValue := DotNetStringValue.StringValue; + DotNetStringValue.Value := NewLeftValue; + DotNetIndentation.Left := DotNetStringValue; + END; + + [External] + PROCEDURE SetHanging@17024407(NewHangingValue@17024400 : Text); + VAR + DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetStringValue := DotNetStringValue.StringValue; + DotNetStringValue.Value := NewHangingValue; + DotNetIndentation.Hanging := DotNetStringValue; + END; + + PROCEDURE SetIndentation@17024411(NewDotNetIndentation@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"); + BEGIN + DotNetIndentation := NewDotNetIndentation; + END; + + PROCEDURE GetIndentation@17024400(VAR CurrentDotNetIndentation@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"); + BEGIN + CurrentDotNetIndentation := DotNetIndentation; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50032.TXT b/BaseApp/COD50032.TXT new file mode 100644 index 0000000..a4dc616 --- /dev/null +++ b/BaseApp/COD50032.TXT @@ -0,0 +1,82 @@ +OBJECT Codeunit 50032 DotNet_Word.NumberingPropertie +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetNumberingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetNumberingProperties := DotNetNumberingProperties.NumberingProperties; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); + VAR + DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetNumberingProperties := DotNetNumberingProperties.NumberingProperties(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetNumberingProperties.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetNumberingProperties.InnerText); + END; + + [External] + PROCEDURE SetNumberingLevelReference@17024401(NewNumberingLevelReference@17024400 : Integer); + VAR + DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetNumberingLevelReference@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingLevelReference"; + BEGIN + DotNetNumberingLevelReference := DotNetNumberingLevelReference.NumberingLevelReference; + DotNetNumberingLevelReference.Val := DotNetInt32Value.FromInt32(NewNumberingLevelReference); + DotNetNumberingProperties.NumberingLevelReference := DotNetNumberingLevelReference; + END; + + [External] + PROCEDURE SetNumberingId@17024407(NewNumberingId@17024400 : Integer); + VAR + DotNetInt32Value@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetNumberingId@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingId"; + BEGIN + DotNetNumberingId := DotNetNumberingId.NumberingId; + DotNetNumberingId.Val := DotNetInt32Value.FromInt32(NewNumberingId); + DotNetNumberingProperties.NumberingId := DotNetNumberingId; + END; + + PROCEDURE SetNumberingProperties@17024411(NewDotNetNumberingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"); + BEGIN + DotNetNumberingProperties := NewDotNetNumberingProperties; + END; + + PROCEDURE GetNumberingProperties@17024400(VAR CurrentDotNetNumberingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"); + BEGIN + CurrentDotNetNumberingProperties := DotNetNumberingProperties; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50033.TXT b/BaseApp/COD50033.TXT new file mode 100644 index 0000000..c4659d3 --- /dev/null +++ b/BaseApp/COD50033.TXT @@ -0,0 +1,63 @@ +OBJECT Codeunit 50033 DotNet_Word.ProofError +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetProofError@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetProofError := DotNetProofError.ProofError; + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetProofError.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetProofError.InnerText); + END; + + [External] + PROCEDURE SetType@17024401(NewProofingErrorType@17024400 : 'SpellStart,SpellEnd,GrammarStart,GrammarEnd'); + VAR + DotNetProofingErrorValues@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofingErrorValues"; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + BEGIN + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetProofingErrorValues), NewProofingErrorType, DotNetEnumValue); + DotNetProofError.Type := DotNetEnumValue; + END; + + PROCEDURE SetProofError@17024411(NewDotNetProofError@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"); + BEGIN + DotNetProofError := NewDotNetProofError; + END; + + PROCEDURE GetProofError@17024400(VAR CurrentDotNetProofError@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"); + BEGIN + CurrentDotNetProofError := DotNetProofError; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50034.TXT b/BaseApp/COD50034.TXT new file mode 100644 index 0000000..741a215 --- /dev/null +++ b/BaseApp/COD50034.TXT @@ -0,0 +1,40 @@ +OBJECT Codeunit 50034 DotNet_Word.HyperlinkRelations +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetHyperlinkRelationship@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"; + + [External] + PROCEDURE GetId@17024401() : Text; + BEGIN + EXIT(DotNetHyperlinkRelationship.Id); + END; + + PROCEDURE SetHyperlinkRelationship@17024411(NewDotNetHyperlinkRelationship@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"); + BEGIN + DotNetHyperlinkRelationship := NewDotNetHyperlinkRelationship; + END; + + PROCEDURE GetHyperlinkRelationship@17024400(VAR CurrentDotNetHyperlinkRelationship@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"); + BEGIN + CurrentDotNetHyperlinkRelationship := DotNetHyperlinkRelationship; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50035.TXT b/BaseApp/COD50035.TXT new file mode 100644 index 0000000..71ce8a4 --- /dev/null +++ b/BaseApp/COD50035.TXT @@ -0,0 +1,97 @@ +OBJECT Codeunit 50035 DotNet_Word.Hyperlink +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetHyperlink@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetHyperlink := DotNetHyperlink.Hyperlink; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); + VAR + DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetHyperlink := DotNetHyperlink.Hyperlink(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024404() : Text; + BEGIN + EXIT(DotNetHyperlink.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetHyperlink.InnerText); + END; + + [External] + PROCEDURE AppendRun@17024401(VAR WordRun@17024400 : Codeunit 50023); + VAR + DotNetRun@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; + BEGIN + WordRun.GetRun(DotNetRun); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetHyperlink, DotNetRun); + END; + + [External] + PROCEDURE AppendProofError@17024402(VAR WordProofError@17024400 : Codeunit 50033); + VAR + DotNetProofError@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"; + BEGIN + WordProofError.GetProofError(DotNetProofError); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetHyperlink, DotNetProofError); + END; + + [External] + PROCEDURE SetId@17024406(NewId@17024400 : Text); + VAR + DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetHyperlink.Id := DotNetStringValue.StringValue(NewId); + END; + + [External] + PROCEDURE SetHistory@17024405(NewHistory@17024400 : Boolean); + VAR + DotNetOnOffValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OnOffValue"; + BEGIN + DotNetHyperlink.History := DotNetOnOffValue.FromBoolean(NewHistory); + END; + + PROCEDURE SetHyperlink@17024411(NewDotNetHyperlink@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"); + BEGIN + DotNetHyperlink := NewDotNetHyperlink; + END; + + PROCEDURE GetHyperlink@17024400(VAR CurrentDotNetHyperlink@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"); + BEGIN + CurrentDotNetHyperlink := DotNetHyperlink; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50036.TXT b/BaseApp/COD50036.TXT new file mode 100644 index 0000000..ba29706 --- /dev/null +++ b/BaseApp/COD50036.TXT @@ -0,0 +1,72 @@ +OBJECT Codeunit 50036 DotNet_Word.Color +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetColor := DotNetColor.Color; + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetColor.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetColor.InnerText); + END; + + [External] + PROCEDURE SetColorValue@17024406(NewColorArgb@17024400 : Text); + VAR + DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetColor.Val := DotNetStringValue.StringValue(NewColorArgb); + END; + + [External] + PROCEDURE SetColorTheme@17024405(NewColorTheme@17024400 : 'Dark1,Light1,Dark2,Light2,Accent1,Accent2,Accent3,Accent4,Accent5,Accent6,Hyperlink,FollowedHyperlink,None,Background1,Text1,Background2,Text2'); + VAR + DotNetThemeColorValues@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ThemeColorValues"; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetThemeColorValues), NewColorTheme, DotNetEnumValue); + DotNetColor.ThemeColor := DotNetEnumValue; + END; + + PROCEDURE SetColor@17024411(NewDotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"); + BEGIN + DotNetColor := NewDotNetColor; + END; + + PROCEDURE GetColor@17024400(VAR CurrentDotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"); + BEGIN + CurrentDotNetColor := DotNetColor; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50037.TXT b/BaseApp/COD50037.TXT new file mode 100644 index 0000000..275046d --- /dev/null +++ b/BaseApp/COD50037.TXT @@ -0,0 +1,117 @@ +OBJECT Codeunit 50037 DotNet_Word.StyleRunProperties +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetStyleRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetStyleRunProperties := DotNetStyleRunProperties.StyleRunProperties; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetStyleRunProperties := DotNetStyleRunProperties.StyleRunProperties(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetStyleRunProperties.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetStyleRunProperties.InnerText); + END; + + [External] + PROCEDURE SetBold@17024405(Bold@17024401 : Boolean); + VAR + DotNetBold@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; + DotNetBoldNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; + BEGIN + DotNetBold := DotNetBold.Bold; + IF Bold THEN + DotNetStyleRunProperties.Bold := DotNetBold + ELSE + DotNetStyleRunProperties.Bold := DotNetBoldNull; + END; + + [External] + PROCEDURE SetItalic@17024409(Italic@17024401 : Boolean); + VAR + DotNetItalic@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; + DotNetItalicNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; + BEGIN + DotNetItalic := DotNetItalic.Italic; + IF Italic THEN + DotNetStyleRunProperties.Italic := DotNetItalic + ELSE + DotNetStyleRunProperties.Italic := DotNetItalicNull; + END; + + [External] + PROCEDURE SetUnderline@17024401(Underline@17024401 : Boolean); + VAR + DotNetUnderline@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + DotNetUnderlineNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + BEGIN + DotNetUnderline := DotNetUnderline.Underline; + IF Underline THEN + DotNetStyleRunProperties.Underline := DotNetUnderline + ELSE + DotNetStyleRunProperties.Underline := DotNetUnderlineNull; + END; + + [External] + PROCEDURE SetFontSize@17024406(NewFontSize@17024401 : Text); + VAR + DotNetFontSize@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.FontSize"; + DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetFontSize := DotNetFontSize.FontSize; + DotNetFontSize.Val := DotNetStringValue.StringValue(NewFontSize); + DotNetStyleRunProperties.FontSize := DotNetFontSize; + END; + + [External] + PROCEDURE SetColor@17024404(VAR WordColor@17024401 : Codeunit 50036); + VAR + DotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; + BEGIN + WordColor.GetColor(DotNetColor); + DotNetStyleRunProperties.Color := DotNetColor; + END; + + PROCEDURE SetStyleRunProperties@17024411(NewDotNetStyleRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"); + BEGIN + DotNetStyleRunProperties := NewDotNetStyleRunProperties; + END; + + PROCEDURE GetStyleRunProperties@17024400(VAR CurrentDotNetStyleRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"); + BEGIN + CurrentDotNetStyleRunProperties := DotNetStyleRunProperties; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50038.TXT b/BaseApp/COD50038.TXT new file mode 100644 index 0000000..28dbb98 --- /dev/null +++ b/BaseApp/COD50038.TXT @@ -0,0 +1,164 @@ +OBJECT Codeunit 50038 DotNet_Word.Style +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetStyle := DotNetStyle.Style; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024416(OuterXml@17024400 : Text); + BEGIN + DotNetStyle := DotNetStyle.Style(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024414() : Text; + BEGIN + EXIT(DotNetStyle.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024412() : Text; + BEGIN + EXIT(DotNetStyle.InnerText); + END; + + [External] + PROCEDURE SetStyleName@17024405(NewStyleName@17024401 : Text); + VAR + DotNetStyleName@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleName"; + DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetStyleName := DotNetStyleName.StyleName; + DotNetStyleName.Val := DotNetStringValue.StringValue(NewStyleName); + DotNetStyle.StyleName := DotNetStyleName; + END; + + [External] + PROCEDURE GetStyleName@17024413() : Text; + BEGIN + EXIT(DotNetStyle.StyleName.Val.Value); + END; + + [External] + PROCEDURE SetBasedOn@17024409(NewBasedOn@17024401 : Text); + VAR + DotNetBasedOn@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.BasedOn"; + DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetBasedOn := DotNetBasedOn.BasedOn; + DotNetBasedOn.Val := DotNetStringValue.StringValue(NewBasedOn); + DotNetStyle.BasedOn := DotNetBasedOn; + END; + + [External] + PROCEDURE SetNextParagraphStyle@17024401(NewNextParagraphStyle@17024401 : Text); + VAR + DotNetNextParagraphStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NextParagraphStyle"; + DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetNextParagraphStyle := DotNetNextParagraphStyle.NextParagraphStyle; + DotNetNextParagraphStyle.Val := DotNetStringValue.StringValue(NewNextParagraphStyle); + DotNetStyle.NextParagraphStyle := DotNetNextParagraphStyle; + END; + + [External] + PROCEDURE SetUIPriority@17024406(NewUIPriority@17024401 : Integer); + VAR + DotNetUIPriority@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.UIPriority"; + DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + BEGIN + DotNetUIPriority := DotNetUIPriority.UIPriority; + DotNetUIPriority.Val := DotNetInt32Value.FromInt32(NewUIPriority); + DotNetStyle.UIPriority := DotNetUIPriority; + END; + + [External] + PROCEDURE SetStyleId@17024404(NewStyleId@17024401 : Text); + VAR + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetStyle.StyleId := DotNetStringValue.StringValue(NewStyleId); + END; + + [External] + PROCEDURE GetStyleId@17024415() : Text; + BEGIN + EXIT(DotNetStyle.StyleId.Value); + END; + + [External] + PROCEDURE SetCustomStyle@17024407(CustomStyle@17024401 : Boolean); + VAR + DotNetOnOffValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OnOffValue"; + BEGIN + DotNetStyle.CustomStyle := DotNetOnOffValue.FromBoolean(CustomStyle); + END; + + [External] + PROCEDURE SetStyleType@17024410(NewStyleType@17024401 : 'Paragraph,Character,Table,Numbering'); + VAR + DotNetStyleValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleValues"; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetStyleValues), NewStyleType, DotNetEnumValue); + DotNetStyle.Type := DotNetEnumValue; + END; + + [External] + PROCEDURE GetStyleType@17024408() : Integer; + VAR + DotNetStyleValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleValues"; + DotNetEnumValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + BEGIN + DotNetEnumValue := DotNetStyle.Type; + DotNetStyleValues := DotNetEnumValue.Value; + EXIT(DotNetStyleValues); + END; + + [External] + PROCEDURE AppendStyleRunProperties@17024402(VAR WordStyleRunProperties@17024401 : Codeunit 50037); + VAR + DotNetStyleRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordStyleRunProperties.GetStyleRunProperties(DotNetStyleRunProperties); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetStyle, DotNetStyleRunProperties); + END; + + PROCEDURE SetStyle@17024411(NewDotNetStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"); + BEGIN + DotNetStyle := NewDotNetStyle; + END; + + PROCEDURE GetStyle@17024400(VAR CurrentDotNetStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"); + BEGIN + CurrentDotNetStyle := DotNetStyle; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50039.TXT b/BaseApp/COD50039.TXT new file mode 100644 index 0000000..2290fbd --- /dev/null +++ b/BaseApp/COD50039.TXT @@ -0,0 +1,90 @@ +OBJECT Codeunit 50039 DotNet_Word.Styles +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetStyles@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetStyles := DotNetStyles.Styles; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetStyles := DotNetStyles.Styles(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetStyles.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetStyles.InnerText); + END; + + [External] + PROCEDURE AppendStyle@17024405(VAR WordStyle@17024401 : Codeunit 50038); + VAR + DotNetStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordStyle.GetStyle(DotNetStyle); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetStyles, DotNetStyle); + END; + + [External] + PROCEDURE Save@17024401(VAR WordStyleDefinitionPart@17024401 : Codeunit 50041); + VAR + DotNetStyleDefinitionsPart@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"; + BEGIN + WordStyleDefinitionPart.GetStyleDefinitionsPart(DotNetStyleDefinitionsPart); + DotNetStyles.Save(DotNetStyleDefinitionsPart); + END; + + [External] + PROCEDURE GetStyleEnumerator@17024413(VAR WordStylesEnumerator@17024400 : Codeunit 50040); + VAR + DotNetStyle@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; + DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + BEGIN + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.GetEnumeratorOfTypeGeneric(DotNetStyles.Elements, GETDOTNETTYPE(DotNetStyle), DotNetEnumerator); + WordStylesEnumerator.SetEnumerator(DotNetEnumerator); + END; + + PROCEDURE SetStyles@17024411(NewDotNetStyles@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"); + BEGIN + DotNetStyles := NewDotNetStyles; + END; + + PROCEDURE GetStyles@17024400(VAR CurrentDotNetStyles@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"); + BEGIN + CurrentDotNetStyles := DotNetStyles; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50040.TXT b/BaseApp/COD50040.TXT new file mode 100644 index 0000000..bc475e8 --- /dev/null +++ b/BaseApp/COD50040.TXT @@ -0,0 +1,52 @@ +OBJECT Codeunit 50040 DotNet_Word.StylesEnumerator +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + + PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + DotNetEnumerator := NewEnumerator; + END; + + PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + CurrentEnumerator := DotNetEnumerator; + END; + + [External] + PROCEDURE Reset@17024401(); + BEGIN + DotNetEnumerator.Reset; + END; + + [External] + PROCEDURE MoveNext@17024402() : Boolean; + BEGIN + EXIT(DotNetEnumerator.MoveNext); + END; + + [External] + PROCEDURE GetCurrent@17024403(VAR CurrentStyle@17024400 : Codeunit 50038); + BEGIN + CurrentStyle.SetStyle(DotNetEnumerator.Current); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50041.TXT b/BaseApp/COD50041.TXT new file mode 100644 index 0000000..e81616b --- /dev/null +++ b/BaseApp/COD50041.TXT @@ -0,0 +1,49 @@ +OBJECT Codeunit 50041 DotNet_Word.StyleDefinitionPar +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetStyleDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"; + + [External] + PROCEDURE SetStyles@17024403(VAR WordStyles@17024400 : Codeunit 50039); + VAR + DotNetStyles@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"; + BEGIN + WordStyles.GetStyles(DotNetStyles); + DotNetStyleDefinitionsPart.Styles := DotNetStyles; + END; + + [External] + PROCEDURE GetStyles@17024401(VAR WordStyles@17024400 : Codeunit 50039); + BEGIN + WordStyles.SetStyles(DotNetStyleDefinitionsPart.Styles); + END; + + PROCEDURE SetStyleDefinitionsPart@17024411(NewDotNetStyleDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"); + BEGIN + DotNetStyleDefinitionsPart := NewDotNetStyleDefinitionsPart; + END; + + PROCEDURE GetStyleDefinitionsPart@17024400(VAR CurrentDotNetStyleDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"); + BEGIN + CurrentDotNetStyleDefinitionsPart := DotNetStyleDefinitionsPart; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50042.TXT b/BaseApp/COD50042.TXT new file mode 100644 index 0000000..5971531 --- /dev/null +++ b/BaseApp/COD50042.TXT @@ -0,0 +1,40 @@ +OBJECT Codeunit 50042 DotNet_Word.ImagePart +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetImagePart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"; + + [External] + PROCEDURE FeedData@17024401(ImageStream@17024400 : InStream); + BEGIN + DotNetImagePart.FeedData(ImageStream); + END; + + PROCEDURE SetImagePart@17024411(NewDotNetImagePart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"); + BEGIN + DotNetImagePart := NewDotNetImagePart; + END; + + PROCEDURE GetImagePart@17024400(VAR CurrentDotNetImagePart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"); + BEGIN + CurrentDotNetImagePart := DotNetImagePart; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50043.TXT b/BaseApp/COD50043.TXT new file mode 100644 index 0000000..5c0a4ed --- /dev/null +++ b/BaseApp/COD50043.TXT @@ -0,0 +1,69 @@ +OBJECT Codeunit 50043 DotNet_Word.Drawing +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetDrawing@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetDrawing := DotNetDrawing.Drawing; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetDrawing := DotNetDrawing.Drawing(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetDrawing.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetDrawing.InnerText); + END; + + [External] + PROCEDURE AppendAnchor@17024405(VAR WordAnchor@17024401 : Codeunit 50044); + VAR + DotNetAnchor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordAnchor.GetAnchor(DotNetAnchor); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetDrawing, DotNetAnchor); + END; + + PROCEDURE SetDrawing@17024411(NewDotNetDrawing@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"); + BEGIN + DotNetDrawing := NewDotNetDrawing; + END; + + PROCEDURE GetDrawing@17024400(VAR CurrentDotNetDrawing@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"); + BEGIN + CurrentDotNetDrawing := DotNetDrawing; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50044.TXT b/BaseApp/COD50044.TXT new file mode 100644 index 0000000..e9256c6 --- /dev/null +++ b/BaseApp/COD50044.TXT @@ -0,0 +1,261 @@ +OBJECT Codeunit 50044 DotNet_Word.Anchor +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetAnchor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetAnchor := DotNetAnchor.Anchor; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024425(OuterXml@17024400 : Text); + BEGIN + DotNetAnchor := DotNetAnchor.Anchor(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024424() : Text; + BEGIN + EXIT(DotNetAnchor.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024423() : Text; + BEGIN + EXIT(DotNetAnchor.InnerText); + END; + + [External] + PROCEDURE SetAllowOverlap@17024405(NewAllowOverlap@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetAnchor.AllowOverlap := DotNetBooleanValue.BooleanValue(NewAllowOverlap); + END; + + [External] + PROCEDURE SetLayoutInCell@17024402(NewLayoutInCell@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetAnchor.LayoutInCell := DotNetBooleanValue.BooleanValue(NewLayoutInCell); + END; + + [External] + PROCEDURE SetLocked@17024406(NewLocked@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetAnchor.Locked := DotNetBooleanValue.BooleanValue(NewLocked); + END; + + [External] + PROCEDURE SetBehindDoc@17024408(NewBehindDoc@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetAnchor.BehindDoc := DotNetBooleanValue.BooleanValue(NewBehindDoc); + END; + + [External] + PROCEDURE SetSimplePos@17024409(NewSimplePos@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetAnchor.SimplePos := DotNetBooleanValue.BooleanValue(NewSimplePos); + END; + + [External] + PROCEDURE SetRelativeHeight@17024412(NewRelativeHeight@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetAnchor.RelativeHeight := DotNetUInt32Value.FromUInt32(NewRelativeHeight); + END; + + [External] + PROCEDURE SetDistanceFromRight@17024414(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetAnchor.DistanceFromRight := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE SetDistanceFromLeft@17024415(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetAnchor.DistanceFromLeft := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE SetDistanceFromTop@17024416(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetAnchor.DistanceFromTop := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE SetDistanceFromBottom@17024417(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetAnchor.DistanceFromBottom := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE AppendSimplePosition@17024401(X@17024401 : Integer;Y@17024402 : Integer); + VAR + DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetSimplePosition@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.SimplePosition"; + BEGIN + DotNetSimplePosition := DotNetSimplePosition.SimplePosition; + DotNetSimplePosition.X := DotNetInt64Value.FromInt64(X); + DotNetSimplePosition.Y := DotNetInt64Value.FromInt64(Y); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetSimplePosition); + END; + + [External] + PROCEDURE AppendExtent@17024410(Cx@17024401 : Integer;Cy@17024402 : Integer); + VAR + DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Extent"; + BEGIN + DotNetExtent := DotNetExtent.Extent; + DotNetExtent.Cx := DotNetInt64Value.FromInt64(Cx); + DotNetExtent.Cy := DotNetInt64Value.FromInt64(Cy); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetExtent); + END; + + [External] + PROCEDURE AppendEffectExtent@17024418(LeftEdge@17024401 : Integer;TopEdge@17024402 : Integer;RightEdge@17024404 : Integer;BottomEdge@17024405 : Integer); + VAR + DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetEffectExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.EffectExtent"; + BEGIN + DotNetEffectExtent := DotNetEffectExtent.EffectExtent; + DotNetEffectExtent.LeftEdge := DotNetInt64Value.FromInt64(LeftEdge); + DotNetEffectExtent.TopEdge := DotNetInt64Value.FromInt64(TopEdge); + DotNetEffectExtent.RightEdge := DotNetInt64Value.FromInt64(RightEdge); + DotNetEffectExtent.BottomEdge := DotNetInt64Value.FromInt64(BottomEdge); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetEffectExtent); + END; + + [External] + PROCEDURE AppendVerticalPosition@17024404(VAR WordVerticalPosition@17024401 : Codeunit 50045); + VAR + DotNetVerticalPosition@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"; + BEGIN + WordVerticalPosition.GetVerticalPosition(DotNetVerticalPosition); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetVerticalPosition); + END; + + [External] + PROCEDURE AppendHorizontalPosition@17024413(VAR WordHorizontalPosition@17024401 : Codeunit 50046); + VAR + DotNetHorizontalPosition@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"; + BEGIN + WordHorizontalPosition.GetHorizontalPosition(DotNetHorizontalPosition); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetHorizontalPosition); + END; + + [External] + PROCEDURE AppendWrapSquare@17024407(VAR WordWrapSquare@17024401 : Codeunit 50047); + VAR + DotNetWrapSquare@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"; + BEGIN + WordWrapSquare.GetWrapSquare(DotNetWrapSquare); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetWrapSquare); + END; + + [External] + PROCEDURE AppendWrapTopBottom@17024419(VAR WordWrapTopBottom@17024401 : Codeunit 50048); + VAR + DotNetWrapTopBottom@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"; + BEGIN + WordWrapTopBottom.GetWrapTopBottom(DotNetWrapTopBottom); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetWrapTopBottom); + END; + + [External] + PROCEDURE AppendDocProperties@17024420(VAR WordDocProperties@17024401 : Codeunit 50049); + VAR + DotNetDocProperties@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"; + BEGIN + WordDocProperties.GetDocProperties(DotNetDocProperties); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetDocProperties); + END; + + [External] + PROCEDURE AppendGraphicFrameLocks@17024421(VAR WordGraphicFrameLocks@17024401 : Codeunit 50050); + VAR + DotNetGraphicFrameLocks@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"; + DotNetNonVisualGraphicFrameDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.NonVisualGraphicFrameDrawingProperties"; + BEGIN + WordGraphicFrameLocks.GetGraphicFrameLocks(DotNetGraphicFrameLocks); + DotNetNonVisualGraphicFrameDrawingProperties := DotNetNonVisualGraphicFrameDrawingProperties.NonVisualGraphicFrameDrawingProperties; + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetNonVisualGraphicFrameDrawingProperties, DotNetGraphicFrameLocks); + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetNonVisualGraphicFrameDrawingProperties); + END; + + [External] + PROCEDURE AppendPicture@17024422(VAR WordPicture@17024401 : Codeunit 50051); + VAR + DotNetPicture@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"; + DotNetGraphicData@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicData"; + DotNetGraphic@17024404 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Graphic"; + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + WordPicture.GetPicture(DotNetPicture); + DotNetGraphic := DotNetGraphic.Graphic; + DotNetGraphicData := DotNetGraphicData.GraphicData; + DotNetGraphicData.Uri := DotNetStringValue.FromString('http://schemas.openxmlformats.org/drawingml/2006/picture'); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetGraphicData, DotNetPicture); + OpenXmlDotNetHelper.AppendGeneric(DotNetGraphic, DotNetGraphicData); + OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetGraphic); + END; + + PROCEDURE SetAnchor@17024411(NewDotNetAnchor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"); + BEGIN + DotNetAnchor := NewDotNetAnchor; + END; + + PROCEDURE GetAnchor@17024400(VAR CurrentDotNetAnchor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"); + BEGIN + CurrentDotNetAnchor := DotNetAnchor; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50045.TXT b/BaseApp/COD50045.TXT new file mode 100644 index 0000000..981134a --- /dev/null +++ b/BaseApp/COD50045.TXT @@ -0,0 +1,93 @@ +OBJECT Codeunit 50045 DotNet_Word.VerticalPosition +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetVerticalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetVerticalPosition := DotNetVerticalPosition.VerticalPosition; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024404(OuterXml@17024400 : Text); + BEGIN + DotNetVerticalPosition := DotNetVerticalPosition.VerticalPosition(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetVerticalPosition.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024401() : Text; + BEGIN + EXIT(DotNetVerticalPosition.InnerText); + END; + + [External] + PROCEDURE SetPositionOffset@17024405(NewPositionOffset@17024401 : Text); + VAR + DotNetPositionOffset@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.PositionOffset"; + BEGIN + DotNetVerticalPosition.PositionOffset := DotNetPositionOffset.PositionOffset(NewPositionOffset); + END; + + [External] + PROCEDURE SetRelativeFrom@17024408(NewRelativeFrom@17024401 : 'Margin,Page,Paragraph,Line,TopMargin,BottomMargin,InsideMargin,OutsideMargin'); + VAR + DotNetVerticalRelativePositionValues@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalRelativePositionValues"; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@17024400 : Codeunit 50067; + BEGIN + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetVerticalRelativePositionValues), NewRelativeFrom, DotNetEnumValue); + DotNetVerticalPosition.RelativeFrom := DotNetEnumValue; + END; + + [External] + PROCEDURE SetVerticalAlignment@17024410(NewVerticalAlignment@17024401 : Text); + VAR + DotNetVerticalAlignment@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalAlignment"; + BEGIN + DotNetVerticalPosition.VerticalAlignment := DotNetVerticalAlignment.VerticalAlignment(NewVerticalAlignment); + END; + + [External] + PROCEDURE SetPercentagePositionVerticalOffset@17024413(NewPercentagePositionVerticalOffset@17024401 : Text); + VAR + DotNetPercentagePositionVerticalOffset@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Office2010.Word.Drawing.PercentagePositionVerticalOffset"; + BEGIN + DotNetVerticalPosition.PercentagePositionVerticalOffset := DotNetPercentagePositionVerticalOffset.PercentagePositionVerticalOffset(NewPercentagePositionVerticalOffset); + END; + + PROCEDURE SetVerticalPosition@17024411(NewDotNetVerticalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"); + BEGIN + DotNetVerticalPosition := NewDotNetVerticalPosition; + END; + + PROCEDURE GetVerticalPosition@17024400(VAR CurrentDotNetVerticalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"); + BEGIN + CurrentDotNetVerticalPosition := DotNetVerticalPosition; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50046.TXT b/BaseApp/COD50046.TXT new file mode 100644 index 0000000..7b39db8 --- /dev/null +++ b/BaseApp/COD50046.TXT @@ -0,0 +1,93 @@ +OBJECT Codeunit 50046 DotNet_Word.HorizontalPosition +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetHorizontalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetHorizontalPosition := DotNetHorizontalPosition.HorizontalPosition; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024404(OuterXml@17024400 : Text); + BEGIN + DotNetHorizontalPosition := DotNetHorizontalPosition.HorizontalPosition(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetHorizontalPosition.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024401() : Text; + BEGIN + EXIT(DotNetHorizontalPosition.InnerText); + END; + + [External] + PROCEDURE SetPositionOffset@17024405(NewPositionOffset@17024401 : Text); + VAR + DotNetPositionOffset@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.PositionOffset"; + BEGIN + DotNetHorizontalPosition.PositionOffset := DotNetPositionOffset.PositionOffset(NewPositionOffset); + END; + + [External] + PROCEDURE SetRelativeFrom@17024408(NewRelativeFrom@17024401 : 'Margin,Page,Column,Character,LeftMargin,RightMargin,InsideMargin,OutsideMargin'); + VAR + DotNetHorizontalRelativePositionValues@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalRelativePositionValues"; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@17024400 : Codeunit 50067; + BEGIN + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetHorizontalRelativePositionValues), NewRelativeFrom, DotNetEnumValue); + DotNetHorizontalPosition.RelativeFrom := DotNetEnumValue; + END; + + [External] + PROCEDURE SetHorizontalAlignment@17024410(NewHorizontalAlignment@17024401 : Text); + VAR + DotNetHorizontalAlignment@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalAlignment"; + BEGIN + DotNetHorizontalPosition.HorizontalAlignment := DotNetHorizontalAlignment.HorizontalAlignment(NewHorizontalAlignment); + END; + + [External] + PROCEDURE SetPercentagePositionHeightOffset@17024413(NewPercentagePositionHeightOffset@17024401 : Text); + VAR + DotNetPercentagePositionHeigthOffset@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Office2010.Word.Drawing.PercentagePositionHeightOffset"; + BEGIN + DotNetHorizontalPosition.PercentagePositionHeightOffset := DotNetPercentagePositionHeigthOffset.PercentagePositionHeightOffset(NewPercentagePositionHeightOffset); + END; + + PROCEDURE SetHorizontalPosition@17024411(NewDotNetHorizontalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"); + BEGIN + DotNetHorizontalPosition := NewDotNetHorizontalPosition; + END; + + PROCEDURE GetHorizontalPosition@17024400(VAR CurrentDotNetHorizontalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"); + BEGIN + CurrentDotNetHorizontalPosition := DotNetHorizontalPosition; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50047.TXT b/BaseApp/COD50047.TXT new file mode 100644 index 0000000..2b436e4 --- /dev/null +++ b/BaseApp/COD50047.TXT @@ -0,0 +1,117 @@ +OBJECT Codeunit 50047 DotNet_Word.WrapSquare +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetWrapSquare@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetWrapSquare := DotNetWrapSquare.WrapSquare; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024401(OuterXml@17024400 : Text); + BEGIN + DotNetWrapSquare := DotNetWrapSquare.WrapSquare(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetWrapSquare.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetWrapSquare.InnerText); + END; + + [External] + PROCEDURE SetDistanceFromRight@17024414(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetWrapSquare.DistanceFromRight := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE SetDistanceFromLeft@17024415(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetWrapSquare.DistanceFromLeft := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE SetDistanceFromTop@17024416(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetWrapSquare.DistanceFromTop := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE SetDistanceFromBottom@17024417(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetWrapSquare.DistanceFromBottom := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE SetWrapText@17024408(NewWrapText@17024401 : 'BothSides,Left,Right,Largest'); + VAR + DotNetWrapTextValues@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTextValues"; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + BEGIN + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetWrapTextValues), NewWrapText, DotNetEnumValue); + DotNetWrapSquare.WrapText := DotNetEnumValue; + END; + + [External] + PROCEDURE AppendEffectExtent@17024418(LeftEdge@17024401 : Integer;TopEdge@17024402 : Integer;RightEdge@17024404 : Integer;BottomEdge@17024405 : Integer); + VAR + DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetEffectExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.EffectExtent"; + BEGIN + DotNetEffectExtent := DotNetEffectExtent.EffectExtent; + DotNetEffectExtent.LeftEdge := DotNetInt64Value.FromInt64(LeftEdge); + DotNetEffectExtent.TopEdge := DotNetInt64Value.FromInt64(TopEdge); + DotNetEffectExtent.RightEdge := DotNetInt64Value.FromInt64(RightEdge); + DotNetEffectExtent.BottomEdge := DotNetInt64Value.FromInt64(BottomEdge); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetWrapSquare, DotNetEffectExtent); + END; + + PROCEDURE SetWrapSquare@17024411(NewDotNetWrapSquare@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"); + BEGIN + DotNetWrapSquare := NewDotNetWrapSquare; + END; + + PROCEDURE GetWrapSquare@17024400(VAR CurrentDotNetWrapSquare@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"); + BEGIN + CurrentDotNetWrapSquare := DotNetWrapSquare; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50048.TXT b/BaseApp/COD50048.TXT new file mode 100644 index 0000000..d02a8cd --- /dev/null +++ b/BaseApp/COD50048.TXT @@ -0,0 +1,90 @@ +OBJECT Codeunit 50048 DotNet_Word.WrapTopBottom +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetWrapTopBottom@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetWrapTopBottom := DotNetWrapTopBottom.WrapTopBottom; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetWrapTopBottom := DotNetWrapTopBottom.WrapTopBottom; + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetWrapTopBottom.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetWrapTopBottom.InnerText); + END; + + [External] + PROCEDURE SetDistanceFromTop@17024416(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetWrapTopBottom.DistanceFromTop := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE SetDistanceFromBottom@17024417(NewDistance@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetWrapTopBottom.DistanceFromBottom := DotNetUInt32Value.FromUInt32(NewDistance); + END; + + [External] + PROCEDURE AppendEffectExtent@17024418(LeftEdge@17024401 : Integer;TopEdge@17024402 : Integer;RightEdge@17024404 : Integer;BottomEdge@17024405 : Integer); + VAR + DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetEffectExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.EffectExtent"; + OpenXmlDotNetHelper@17024406 : Codeunit 50067; + BEGIN + DotNetEffectExtent := DotNetEffectExtent.EffectExtent; + DotNetEffectExtent.LeftEdge := DotNetInt64Value.FromInt64(LeftEdge); + DotNetEffectExtent.TopEdge := DotNetInt64Value.FromInt64(TopEdge); + DotNetEffectExtent.RightEdge := DotNetInt64Value.FromInt64(RightEdge); + DotNetEffectExtent.BottomEdge := DotNetInt64Value.FromInt64(BottomEdge); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetWrapTopBottom, DotNetEffectExtent); + END; + + PROCEDURE SetWrapTopBottom@17024411(NewDotNetWrapTopBottom@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"); + BEGIN + DotNetWrapTopBottom := NewDotNetWrapTopBottom; + END; + + PROCEDURE GetWrapTopBottom@17024400(VAR CurrentDotNetWrapTopBottom@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"); + BEGIN + CurrentDotNetWrapTopBottom := DotNetWrapTopBottom; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50049.TXT b/BaseApp/COD50049.TXT new file mode 100644 index 0000000..5667417 --- /dev/null +++ b/BaseApp/COD50049.TXT @@ -0,0 +1,90 @@ +OBJECT Codeunit 50049 DotNet_Word.DocProperties +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetDocProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetDocProperties := DotNetDocProperties.DocProperties; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetDocProperties := DotNetDocProperties.DocProperties(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetDocProperties.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetDocProperties.InnerText); + END; + + [External] + PROCEDURE SetId@17024416(NewId@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetDocProperties.Id := DotNetUInt32Value.FromUInt32(NewId); + END; + + [External] + PROCEDURE SetName@17024417(NewName@17024401 : Text); + VAR + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetDocProperties.Name := DotNetStringValue.FromString(NewName); + END; + + [External] + PROCEDURE SetDescription@17024406(NewDescription@17024401 : Text); + VAR + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetDocProperties.Description := DotNetStringValue.FromString(NewDescription); + END; + + [External] + PROCEDURE SetTitle@17024407(NewTitle@17024401 : Text); + VAR + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetDocProperties.Title := DotNetStringValue.FromString(NewTitle); + END; + + PROCEDURE SetDocProperties@17024411(NewDotNetDocProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"); + BEGIN + DotNetDocProperties := NewDotNetDocProperties; + END; + + PROCEDURE GetDocProperties@17024400(VAR CurrentDotNetDocProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"); + BEGIN + CurrentDotNetDocProperties := DotNetDocProperties; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50050.TXT b/BaseApp/COD50050.TXT new file mode 100644 index 0000000..e336b39 --- /dev/null +++ b/BaseApp/COD50050.TXT @@ -0,0 +1,106 @@ +OBJECT Codeunit 50050 DotNet_Word.GraphicFrameLocks +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetGraphicFrameLocks@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetGraphicFrameLocks := DotNetGraphicFrameLocks.GraphicFrameLocks; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024401(OuterXml@17024400 : Text); + BEGIN + DotNetGraphicFrameLocks := DotNetGraphicFrameLocks.GraphicFrameLocks(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetGraphicFrameLocks.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetGraphicFrameLocks.InnerText); + END; + + [External] + PROCEDURE SetNoGrouping@17024416(NewNoGrouping@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetGraphicFrameLocks.NoGrouping := DotNetBooleanValue.FromBoolean(NewNoGrouping); + END; + + [External] + PROCEDURE SetNoDrilldown@17024405(NewNoDrillDown@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetGraphicFrameLocks.NoDrilldown := DotNetBooleanValue.FromBoolean(NewNoDrillDown); + END; + + [External] + PROCEDURE SetNoSelection@17024406(NewNoSelection@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetGraphicFrameLocks.NoSelection := DotNetBooleanValue.FromBoolean(NewNoSelection); + END; + + [External] + PROCEDURE SetNoChangeAspect@17024407(NewNoChangeAspect@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetGraphicFrameLocks.NoChangeAspect := DotNetBooleanValue.FromBoolean(NewNoChangeAspect); + END; + + [External] + PROCEDURE SetNoMove@17024408(NewNoMove@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetGraphicFrameLocks.NoMove := DotNetBooleanValue.FromBoolean(NewNoMove); + END; + + [External] + PROCEDURE SetNoResize@17024409(NewNoResize@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetGraphicFrameLocks.NoResize := DotNetBooleanValue.FromBoolean(NewNoResize); + END; + + PROCEDURE SetGraphicFrameLocks@17024411(NewDotNetGraphicFrameLocks@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"); + BEGIN + DotNetGraphicFrameLocks := NewDotNetGraphicFrameLocks; + END; + + PROCEDURE GetGraphicFrameLocks@17024400(VAR CurrentDotNetGraphicFrameLocks@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"); + BEGIN + CurrentDotNetGraphicFrameLocks := DotNetGraphicFrameLocks; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50051.TXT b/BaseApp/COD50051.TXT new file mode 100644 index 0000000..e641931 --- /dev/null +++ b/BaseApp/COD50051.TXT @@ -0,0 +1,85 @@ +OBJECT Codeunit 50051 DotNet_Word.Picture +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetPicture@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetPicture := DotNetPicture.Picture; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetPicture := DotNetPicture.Picture(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetPicture.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetPicture.InnerText); + END; + + [External] + PROCEDURE SetNonVisualPictureProperties@17024416(VAR WordNonVisualPictureProperties@17024401 : Codeunit 50052); + VAR + DotNetNonVisualPictureProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"; + BEGIN + WordNonVisualPictureProperties.GetNonVisualPictureProperties(DotNetNonVisualPictureProperties); + DotNetPicture.NonVisualPictureProperties := DotNetNonVisualPictureProperties; + END; + + [External] + PROCEDURE SetShapeProperties@17024405(VAR WordShapeProperties@17024401 : Codeunit 50053); + VAR + DotNetShapeProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"; + BEGIN + WordShapeProperties.GetShapeProperties(DotNetShapeProperties); + DotNetPicture.ShapeProperties := DotNetShapeProperties; + END; + + [External] + PROCEDURE SetBlipFill@17024407(VAR WordBlipFill@17024401 : Codeunit 50054); + VAR + DotNetBlipFill@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"; + BEGIN + WordBlipFill.GetBlipFill(DotNetBlipFill); + DotNetPicture.BlipFill := DotNetBlipFill; + END; + + PROCEDURE SetPicture@17024411(NewDotNetPicture@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"); + BEGIN + DotNetPicture := NewDotNetPicture; + END; + + PROCEDURE GetPicture@17024400(VAR CurrentDotNetPicture@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"); + BEGIN + CurrentDotNetPicture := DotNetPicture; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50052.TXT b/BaseApp/COD50052.TXT new file mode 100644 index 0000000..0aaa746 --- /dev/null +++ b/BaseApp/COD50052.TXT @@ -0,0 +1,76 @@ +OBJECT Codeunit 50052 DotNet_Word.NonVisualPicturePr +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetNonVisualPictureProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetNonVisualPictureProperties := DotNetNonVisualPictureProperties.NonVisualPictureProperties; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetNonVisualPictureProperties := DotNetNonVisualPictureProperties.NonVisualPictureProperties(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024401() : Text; + BEGIN + EXIT(DotNetNonVisualPictureProperties.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetNonVisualPictureProperties.InnerText); + END; + + [External] + PROCEDURE SetNonVisualDrawingProperties@17024416(VAR WordNonVisualDrawingProperties@17024401 : Codeunit 50055); + VAR + DotNetNonVisualDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"; + BEGIN + WordNonVisualDrawingProperties.GetNonVisualDrawingProperties(DotNetNonVisualDrawingProperties); + DotNetNonVisualPictureProperties.NonVisualDrawingProperties := DotNetNonVisualDrawingProperties; + END; + + [External] + PROCEDURE SetNonVisualPictureDrawingProperties@17024402(VAR WordNonVisualPictureDrawingProperties@17024401 : Codeunit 50056); + VAR + DotNetNonVisualPictureDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"; + BEGIN + WordNonVisualPictureDrawingProperties.GetNonVisualPictureDrawingProperties(DotNetNonVisualPictureDrawingProperties); + DotNetNonVisualPictureProperties.NonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties; + END; + + PROCEDURE SetNonVisualPictureProperties@17024411(NewDotNetNonVisualPictureProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"); + BEGIN + DotNetNonVisualPictureProperties := NewDotNetNonVisualPictureProperties; + END; + + PROCEDURE GetNonVisualPictureProperties@17024400(VAR CurrentDotNetNonVisualPictureProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"); + BEGIN + CurrentDotNetNonVisualPictureProperties := DotNetNonVisualPictureProperties; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50053.TXT b/BaseApp/COD50053.TXT new file mode 100644 index 0000000..1f7f51d --- /dev/null +++ b/BaseApp/COD50053.TXT @@ -0,0 +1,78 @@ +OBJECT Codeunit 50053 DotNet_Word.ShapeProperties +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetShapeProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetShapeProperties := DotNetShapeProperties.ShapeProperties; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetShapeProperties := DotNetShapeProperties.ShapeProperties(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetShapeProperties.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetShapeProperties.InnerText); + END; + + [External] + PROCEDURE SetTransform2D@17024416(VAR WordTransform2D@17024401 : Codeunit 50060); + VAR + DotNetTransform2D@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"; + BEGIN + WordTransform2D.GetTransform2D(DotNetTransform2D); + DotNetShapeProperties.Transform2D := DotNetTransform2D; + END; + + [External] + PROCEDURE AppendPresetGeometry@17024404(VAR WordPresetGeometry@17024401 : Codeunit 50061); + VAR + DotNetPresetGeometry@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"; + OpenXmlDotNetHelper@17024400 : Codeunit 50067; + BEGIN + WordPresetGeometry.GetPresetGeometry(DotNetPresetGeometry); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetShapeProperties, DotNetPresetGeometry); + END; + + PROCEDURE SetShapeProperties@17024411(NewDotNetShapeProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"); + BEGIN + DotNetShapeProperties := NewDotNetShapeProperties; + END; + + PROCEDURE GetShapeProperties@17024400(VAR CurrentDotNetShapeProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"); + BEGIN + CurrentDotNetShapeProperties := DotNetShapeProperties; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50054.TXT b/BaseApp/COD50054.TXT new file mode 100644 index 0000000..ea9ce31 --- /dev/null +++ b/BaseApp/COD50054.TXT @@ -0,0 +1,78 @@ +OBJECT Codeunit 50054 DotNet_Word.BlipFill +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetBlipFill@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetBlipFill := DotNetBlipFill.BlipFill; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetBlipFill := DotNetBlipFill.BlipFill(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetBlipFill.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetBlipFill.InnerText); + END; + + [External] + PROCEDURE SetBlip@17024416(VAR WordBlip@17024401 : Codeunit 50057); + VAR + DotNetBlip@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"; + BEGIN + WordBlip.GetBlip(DotNetBlip); + DotNetBlipFill.Blip := DotNetBlip; + END; + + [External] + PROCEDURE AppendStretch@17024404(VAR WordStretch@17024401 : Codeunit 50058); + VAR + DotNetStretch@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordStretch.GetStretch(DotNetStretch); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetBlipFill, DotNetStretch); + END; + + PROCEDURE SetBlipFill@17024411(NewDotNetBlipFill@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"); + BEGIN + DotNetBlipFill := NewDotNetBlipFill; + END; + + PROCEDURE GetBlipFill@17024400(VAR CurrentDotNetBlipFill@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"); + BEGIN + CurrentDotNetBlipFill := DotNetBlipFill; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50055.TXT b/BaseApp/COD50055.TXT new file mode 100644 index 0000000..08325ca --- /dev/null +++ b/BaseApp/COD50055.TXT @@ -0,0 +1,90 @@ +OBJECT Codeunit 50055 DotNet_Word.NonVisualDrawingPr +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetNonVisualDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetNonVisualDrawingProperties := DotNetNonVisualDrawingProperties.NonVisualDrawingProperties; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetNonVisualDrawingProperties := DotNetNonVisualDrawingProperties.NonVisualDrawingProperties(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024401() : Text; + BEGIN + EXIT(DotNetNonVisualDrawingProperties.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetNonVisualDrawingProperties.InnerText); + END; + + [External] + PROCEDURE SetName@17024416(NewName@17024401 : Text); + VAR + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetNonVisualDrawingProperties.Name := DotNetStringValue.FromString(NewName); + END; + + [External] + PROCEDURE SetDescription@17024402(NewDescription@17024401 : Text); + VAR + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetNonVisualDrawingProperties.Description := DotNetStringValue.FromString(NewDescription); + END; + + [External] + PROCEDURE SetTitle@17024404(NewTitle@17024401 : Text); + VAR + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetNonVisualDrawingProperties.Title := DotNetStringValue.FromString(NewTitle); + END; + + [External] + PROCEDURE SetId@17024406(NewId@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetNonVisualDrawingProperties.Id := DotNetUInt32Value.FromUInt32(NewId); + END; + + PROCEDURE SetNonVisualDrawingProperties@17024411(NewDotNetNonVisualDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"); + BEGIN + DotNetNonVisualDrawingProperties := NewDotNetNonVisualDrawingProperties; + END; + + PROCEDURE GetNonVisualDrawingProperties@17024400(VAR CurrentDotNetNonVisualDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"); + BEGIN + CurrentDotNetNonVisualDrawingProperties := DotNetNonVisualDrawingProperties; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50056.TXT b/BaseApp/COD50056.TXT new file mode 100644 index 0000000..e6de49b --- /dev/null +++ b/BaseApp/COD50056.TXT @@ -0,0 +1,66 @@ +OBJECT Codeunit 50056 DotNet_Word.NonVisualPictureDr +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetNonVisualPictureDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetNonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties.NonVisualPictureDrawingProperties; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetNonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties.NonVisualPictureDrawingProperties(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetNonVisualPictureDrawingProperties.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetNonVisualPictureDrawingProperties.InnerText); + END; + + [External] + PROCEDURE SetPreferRelativeResize@17024416(NewPreferRelativeResize@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetNonVisualPictureDrawingProperties.PreferRelativeResize := DotNetBooleanValue.FromBoolean(NewPreferRelativeResize); + END; + + PROCEDURE SetNonVisualPictureDrawingProperties@17024411(NewDotNetNonVisualPictureDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"); + BEGIN + DotNetNonVisualPictureDrawingProperties := NewDotNetNonVisualPictureDrawingProperties; + END; + + PROCEDURE GetNonVisualPictureDrawingProperties@17024400(VAR CurrentDotNetNonVisualPictureDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"); + BEGIN + CurrentDotNetNonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50057.TXT b/BaseApp/COD50057.TXT new file mode 100644 index 0000000..42ead7e --- /dev/null +++ b/BaseApp/COD50057.TXT @@ -0,0 +1,89 @@ +OBJECT Codeunit 50057 DotNet_Word.Blip +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetBlip@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetBlip := DotNetBlip.Blip; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetBlip := DotNetBlip.Blip(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetBlip.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetBlip.InnerText); + END; + + [External] + PROCEDURE SetEmbed@17024416(NewEmbed@17024401 : Text); + VAR + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetBlip.Embed := DotNetStringValue.FromString(NewEmbed); + END; + + [External] + PROCEDURE SetCompressionState@17024401(NewCompressionState@17024401 : 'Email,Screen,Print,HighQualityPrint,None'); + VAR + DotNetBlipCompressionValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipCompressionValues"; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetBlipCompressionValues), NewCompressionState, DotNetEnumValue); + DotNetBlip.CompressionState := DotNetEnumValue; + END; + + [External] + PROCEDURE AppendBlipExtensionList@17024404(VAR WordBlipExtensionList@17024401 : Codeunit 50059); + VAR + DotNetBlipExtensionList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordBlipExtensionList.GetBlipExtensionList(DotNetBlipExtensionList); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetBlip, DotNetBlipExtensionList); + END; + + PROCEDURE SetBlip@17024411(NewDotNetBlip@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"); + BEGIN + DotNetBlip := NewDotNetBlip; + END; + + PROCEDURE GetBlip@17024400(VAR CurrentDotNetBlip@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"); + BEGIN + CurrentDotNetBlip := DotNetBlip; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50058.TXT b/BaseApp/COD50058.TXT new file mode 100644 index 0000000..8bac29f --- /dev/null +++ b/BaseApp/COD50058.TXT @@ -0,0 +1,68 @@ +OBJECT Codeunit 50058 DotNet_Word.Stretch +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetStretch@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetStretch := DotNetStretch.Stretch; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetStretch := DotNetStretch.Stretch(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetStretch.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetStretch.InnerText); + END; + + [External] + PROCEDURE AppendFillRectangle@17024416(); + VAR + DotNetFillRectangle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.FillRectangle"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + BEGIN + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetStretch, DotNetFillRectangle.FillRectangle); + END; + + PROCEDURE SetStretch@17024411(NewDotNetStretch@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"); + BEGIN + DotNetStretch := NewDotNetStretch; + END; + + PROCEDURE GetStretch@17024400(VAR CurrentDotNetStretch@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"); + BEGIN + CurrentDotNetStretch := DotNetStretch; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50059.TXT b/BaseApp/COD50059.TXT new file mode 100644 index 0000000..59dcba3 --- /dev/null +++ b/BaseApp/COD50059.TXT @@ -0,0 +1,71 @@ +OBJECT Codeunit 50059 DotNet_Word.BlipExtensionList +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetBlipExtensionList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetBlipExtensionList := DotNetBlipExtensionList.BlipExtensionList; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetBlipExtensionList := DotNetBlipExtensionList.BlipExtensionList(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetBlipExtensionList.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetBlipExtensionList.InnerText); + END; + + [External] + PROCEDURE AppendBlipExtension@17024416(Uri@17024401 : Text); + VAR + DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetBlipExtension@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtension"; + OpenXmlDotNetHelper@17024403 : Codeunit 50067; + BEGIN + DotNetBlipExtension := DotNetBlipExtension.BlipExtension; + DotNetBlipExtension.Uri := DotNetStringValue.FromString(Uri); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetBlipExtensionList, DotNetBlipExtension); + END; + + PROCEDURE SetBlipExtensionList@17024411(NewDotNetBlipExtensionList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"); + BEGIN + DotNetBlipExtensionList := NewDotNetBlipExtensionList; + END; + + PROCEDURE GetBlipExtensionList@17024400(VAR CurrentDotNetBlipExtensionList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"); + BEGIN + CurrentDotNetBlipExtensionList := DotNetBlipExtensionList; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50060.TXT b/BaseApp/COD50060.TXT new file mode 100644 index 0000000..37dfb56 --- /dev/null +++ b/BaseApp/COD50060.TXT @@ -0,0 +1,109 @@ +OBJECT Codeunit 50060 DotNet_Word.Transform2D +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetTransform2D@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetTransform2D := DotNetTransform2D.Transform2D; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetTransform2D := DotNetTransform2D.Transform2D; + END; + + [External] + PROCEDURE GetOuterXml@17024406() : Text; + BEGIN + EXIT(DotNetTransform2D.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024402() : Text; + BEGIN + EXIT(DotNetTransform2D.InnerText); + END; + + [External] + PROCEDURE SetHorizontalFlip@17024401(NewHorizontalFlip@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetTransform2D.HorizontalFlip := DotNetBooleanValue.FromBoolean(NewHorizontalFlip); + END; + + [External] + PROCEDURE SetVerticallFlip@17024404(NewVerticalFlip@17024401 : Boolean); + VAR + DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + BEGIN + DotNetTransform2D.VerticalFlip := DotNetBooleanValue.FromBoolean(NewVerticalFlip); + END; + + [External] + PROCEDURE SetRotation@17024417(NewRotation@17024401 : Integer); + VAR + DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + BEGIN + DotNetTransform2D.Rotation := DotNetUInt32Value.FromUInt32(NewRotation); + END; + + [External] + PROCEDURE AppendExtent@17024410(Cx@17024401 : Integer;Cy@17024402 : Integer); + VAR + DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Extents"; + BEGIN + DotNetExtent := DotNetExtent.Extents; + DotNetExtent.Cx := DotNetInt64Value.FromInt64(Cx); + DotNetExtent.Cy := DotNetInt64Value.FromInt64(Cy); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetTransform2D, DotNetExtent); + END; + + [External] + PROCEDURE AppendOffset@17024405(X@17024401 : Integer;Y@17024402 : Integer); + VAR + DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetOffset@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Offset"; + BEGIN + DotNetOffset := DotNetOffset.Offset; + DotNetOffset.X := DotNetInt64Value.FromInt64(X); + DotNetOffset.Y := DotNetInt64Value.FromInt64(Y); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetTransform2D, DotNetOffset); + END; + + PROCEDURE SetTransform2D@17024411(NewDotNetTransform2D@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"); + BEGIN + DotNetTransform2D := NewDotNetTransform2D; + END; + + PROCEDURE GetTransform2D@17024400(VAR CurrentDotNetTransform2D@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"); + BEGIN + CurrentDotNetTransform2D := DotNetTransform2D; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50061.TXT b/BaseApp/COD50061.TXT new file mode 100644 index 0000000..9e190b6 --- /dev/null +++ b/BaseApp/COD50061.TXT @@ -0,0 +1,80 @@ +OBJECT Codeunit 50061 DotNet_Word.PresetGeometry +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetPresetGeometry@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetPresetGeometry := DotNetPresetGeometry.PresetGeometry; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetPresetGeometry := DotNetPresetGeometry.PresetGeometry(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetPresetGeometry.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetPresetGeometry.InnerText); + END; + + [External] + PROCEDURE SetPreset@17024416(NewPresetType@17024401 : Integer); + VAR + DotNetShapeTypeValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.ShapeTypeValues"; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + BEGIN + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetShapeTypeValues), NewPresetType, DotNetEnumValue); + DotNetPresetGeometry.Preset := DotNetEnumValue; + END; + + [External] + PROCEDURE AppendAdjustValueList@17024404(); + VAR + DotNetAdjustValueList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.AdjustValueList"; + BEGIN + DotNetAdjustValueList := DotNetAdjustValueList.AdjustValueList; + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetPresetGeometry, DotNetAdjustValueList); + END; + + PROCEDURE SetPresetGeometry@17024411(NewDotNetPresetGeometry@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"); + BEGIN + DotNetPresetGeometry := NewDotNetPresetGeometry; + END; + + PROCEDURE GetPresetGeometry@17024400(VAR CurrentDotNetPresetGeometry@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"); + BEGIN + CurrentDotNetPresetGeometry := DotNetPresetGeometry; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50062.TXT b/BaseApp/COD50062.TXT new file mode 100644 index 0000000..6be9e0f --- /dev/null +++ b/BaseApp/COD50062.TXT @@ -0,0 +1,52 @@ +OBJECT Codeunit 50062 DotNet_Word.ParagraphEnumerato +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + + PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + DotNetEnumerator := NewEnumerator; + END; + + PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + CurrentEnumerator := DotNetEnumerator; + END; + + [External] + PROCEDURE Reset@17024401(); + BEGIN + DotNetEnumerator.Reset; + END; + + [External] + PROCEDURE MoveNext@17024402() : Boolean; + BEGIN + EXIT(DotNetEnumerator.MoveNext); + END; + + [External] + PROCEDURE GetCurrent@17024403(VAR CurrentParagraph@17024400 : Codeunit 50022); + BEGIN + CurrentParagraph.SetParagraph(DotNetEnumerator.Current); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50063.TXT b/BaseApp/COD50063.TXT new file mode 100644 index 0000000..8d5173b --- /dev/null +++ b/BaseApp/COD50063.TXT @@ -0,0 +1,52 @@ +OBJECT Codeunit 50063 DotNet_Word.RunEnumerator +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + + PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + DotNetEnumerator := NewEnumerator; + END; + + PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + CurrentEnumerator := DotNetEnumerator; + END; + + [External] + PROCEDURE Reset@17024401(); + BEGIN + DotNetEnumerator.Reset; + END; + + [External] + PROCEDURE MoveNext@17024402() : Boolean; + BEGIN + EXIT(DotNetEnumerator.MoveNext); + END; + + [External] + PROCEDURE GetCurrent@17024403(VAR CurrentRun@17024400 : Codeunit 50023); + BEGIN + CurrentRun.SetRun(DotNetEnumerator.Current); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50064.TXT b/BaseApp/COD50064.TXT new file mode 100644 index 0000000..49b8608 --- /dev/null +++ b/BaseApp/COD50064.TXT @@ -0,0 +1,52 @@ +OBJECT Codeunit 50064 DotNet_Word.TableEnumerator +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + + PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + DotNetEnumerator := NewEnumerator; + END; + + PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + CurrentEnumerator := DotNetEnumerator; + END; + + [External] + PROCEDURE Reset@17024401(); + BEGIN + DotNetEnumerator.Reset; + END; + + [External] + PROCEDURE MoveNext@17024402() : Boolean; + BEGIN + EXIT(DotNetEnumerator.MoveNext); + END; + + [External] + PROCEDURE GetCurrent@17024403(VAR CurrentTable@17024400 : Codeunit 50027); + BEGIN + CurrentTable.SetTable(DotNetEnumerator.Current); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50065.TXT b/BaseApp/COD50065.TXT new file mode 100644 index 0000000..aeb5d92 --- /dev/null +++ b/BaseApp/COD50065.TXT @@ -0,0 +1,52 @@ +OBJECT Codeunit 50065 DotNet_Word.TableRowEnumerator +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + + PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + DotNetEnumerator := NewEnumerator; + END; + + PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + CurrentEnumerator := DotNetEnumerator; + END; + + [External] + PROCEDURE Reset@17024401(); + BEGIN + DotNetEnumerator.Reset; + END; + + [External] + PROCEDURE MoveNext@17024402() : Boolean; + BEGIN + EXIT(DotNetEnumerator.MoveNext); + END; + + [External] + PROCEDURE GetCurrent@17024403(VAR CurrentTableRow@17024400 : Codeunit 50028); + BEGIN + CurrentTableRow.SetTableRow(DotNetEnumerator.Current); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50066.TXT b/BaseApp/COD50066.TXT new file mode 100644 index 0000000..c89bf5a --- /dev/null +++ b/BaseApp/COD50066.TXT @@ -0,0 +1,52 @@ +OBJECT Codeunit 50066 DotNet_Word.TableCellEnumerato +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + + PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + DotNetEnumerator := NewEnumerator; + END; + + PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + CurrentEnumerator := DotNetEnumerator; + END; + + [External] + PROCEDURE Reset@17024401(); + BEGIN + DotNetEnumerator.Reset; + END; + + [External] + PROCEDURE MoveNext@17024402() : Boolean; + BEGIN + EXIT(DotNetEnumerator.MoveNext); + END; + + [External] + PROCEDURE GetCurrent@17024403(VAR CurrentTableCell@17024400 : Codeunit 50029); + BEGIN + CurrentTableCell.SetTableCell(DotNetEnumerator.Current); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50067.TXT b/BaseApp/COD50067.TXT new file mode 100644 index 0000000..6cfe486 --- /dev/null +++ b/BaseApp/COD50067.TXT @@ -0,0 +1,111 @@ +OBJECT Codeunit 50067 OpenXml DotNet Helper +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + + PROCEDURE CreateEnumValueGeneric@17024403(DotNetEnumType@17024401 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";IntegerValue@17024402 : Integer;VAR CreatedDotNetEnumValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"); + VAR + DotNetEnum@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Enum"; + DotNetType@17024407 : DotNet "'mscorlib'.System.Type"; + DotNetObject@17024406 : DotNet "'mscorlib'.System.Object"; + DotNetTypeArray@17024405 : DotNet "'mscorlib'.System.Array"; + DotNetParamsArray@17024404 : DotNet "'mscorlib'.System.Array"; + BEGIN + //Must never be made External. Used only internally + + //This ugly code below is in fact + //CreatedDotNetEnumValue = new OpenXmlEnum(IntegerValue) + //But since generics are not supported we get this: + DotNetType := GETDOTNETTYPE(CreatedDotNetEnumValue); + DotNetTypeArray := DotNetTypeArray.CreateInstance(GETDOTNETTYPE(DotNetType), 1); + DotNetTypeArray.SetValue(DotNetEnumType, 0); + DotNetType := DotNetType.MakeGenericType(DotNetTypeArray); + DotNetTypeArray := DotNetTypeArray.CreateInstance(GETDOTNETTYPE(DotNetType), 0); + DotNetParamsArray := DotNetParamsArray.CreateInstance(GETDOTNETTYPE(DotNetObject), 0); + CreatedDotNetEnumValue := DotNetType.GetConstructor(DotNetTypeArray).Invoke(DotNetParamsArray); + CreatedDotNetEnumValue.Value := DotNetEnum.GetValues(DotNetEnumType).GetValue(IntegerValue); + END; + + [Internal] + PROCEDURE GetEnumeratorOfTypeGeneric@17024402(OriginalOpenXmlElementList@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElementList";FilterType@17024401 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";VAR FilteredDotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + VAR + FilteredDotNetEnumerable@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerable"; + BEGIN + //Must never be made External. Used only internally + //Helper for calling method: IEnumerator OpenXmlElement.OfType() + OfType(OriginalOpenXmlElementList, FilterType, FilteredDotNetEnumerable); + FilteredDotNetEnumerator := FilteredDotNetEnumerable.GetEnumerator; + END; + + PROCEDURE AppendGeneric@17024400(DotNetParent@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElement";DotNetChild@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElement"); + VAR + DotNetArray@17024402 : DotNet "'mscorlib'.System.Array"; + BEGIN + //Must never be made External. Used only internally + //Helper for calling method: void OpenXmlElement.Append(params OpenXmlElement[] childs) + DotNetArray := DotNetArray.CreateInstance(GETDOTNETTYPE(DotNetChild), 1); + DotNetArray.SetValue(DotNetChild, 0); + DotNetParent.Append(DotNetArray); + END; + + PROCEDURE AddPartGeneric@17024409(VAR DotNetMainDocumentPart@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart";DotNetPartType@17024408 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";VAR DotNetCreatedPart@17024407 : DotNet "'mscorlib'.System.Object"); + VAR + DotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; + DotNetType@17024406 : DotNet "'mscorlib'.System.Type"; + DotNetObject@17024405 : DotNet "'mscorlib'.System.Object"; + DotNetTypeArrayForGenericTypeResolution@17024404 : DotNet "'mscorlib'.System.Array"; + DotNetTypeArrayForMethodLookup@17024403 : DotNet "'mscorlib'.System.Array"; + DotNetParamsArray@17024401 : DotNet "'mscorlib'.System.Array"; + BEGIN + //Must never be made External. Used only internally + //Normally is should have been something as simple as: + //DotNetCreatedPart := DotNetMainDocumentPart.AddNewPart(); + //But since NAV have no such thing as generics support, I need to fallback to reflection calls: + //C# view: Type[] DotNetTypeArray = new Type[] { typeof(DotNetPartType) }; + DotNetTypeArrayForGenericTypeResolution := DotNetTypeArrayForGenericTypeResolution.CreateInstance(GETDOTNETTYPE(DotNetType), 1); + DotNetTypeArrayForGenericTypeResolution.SetValue(DotNetPartType, 0); + DotNetTypeArrayForMethodLookup := DotNetTypeArrayForMethodLookup.CreateInstance(GETDOTNETTYPE(DotNetType), 0); + //C# view: Object[] DotNetParamsArray = new Object[] {}; + DotNetParamsArray := DotNetParamsArray.CreateInstance(GETDOTNETTYPE(DotNetObject), 0); + + DotNetType := GETDOTNETTYPE(DotNetMainDocumentPart); + DotNetCreatedPart := DotNetType.GetMethod('AddNewPart', DotNetTypeArrayForMethodLookup).MakeGenericMethod(DotNetTypeArrayForGenericTypeResolution).Invoke(DotNetMainDocumentPart, DotNetParamsArray); + END; + + LOCAL PROCEDURE OfType@17024401(OriginalOpenXmlElementList@17024404 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElementList";FilterType@17024402 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";VAR FilteredDotNetEnumerable@17024401 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerable"); + VAR + EnumerableType@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type"; + DotNetObject@17024400 : DotNet "'mscorlib'.System.Object"; + DotNetTypeArray@17024407 : DotNet "'mscorlib'.System.Array"; + DotNetParamsArray@17024406 : DotNet "'mscorlib'.System.Array"; + BEGIN + //Normally is should have been something as simple as: + //FilteredDotNetEnumerable = OriginalOpenXmlElementList.OfType(); + //But since NAV have no such thing as generics support, I need to fallback to reflection calls: + //C# view: Type[] DotNetTypeArray = new Type[] { typeof(DotNetStyleDefinitionsPart) }; + DotNetTypeArray := DotNetTypeArray.CreateInstance(GETDOTNETTYPE(FilterType), 1); + DotNetTypeArray.SetValue(FilterType, 0); + //C# view: Object[] DotNetParamsArray = new Object[] {}; + DotNetParamsArray := DotNetParamsArray.CreateInstance(GETDOTNETTYPE(DotNetObject), 0); + EnumerableType := GETDOTNETTYPE(OriginalOpenXmlElementList); + //C# view: FilteredDotNetEnumerable = OriginalOpenXmlElementList.OfType() + FilteredDotNetEnumerable := EnumerableType.GetMethod('OfType').MakeGenericMethod(DotNetTypeArray).Invoke(OriginalOpenXmlElementList, DotNetParamsArray); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50068.TXT b/BaseApp/COD50068.TXT new file mode 100644 index 0000000..9b5234c --- /dev/null +++ b/BaseApp/COD50068.TXT @@ -0,0 +1,391 @@ +OBJECT Codeunit 50068 OpenXml WordProcessing Helper +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + + [External] + PROCEDURE CloneStyleRunProperties@17024400(VAR OriginalWordStyleRunProperties@17024400 : Codeunit 50037;VAR ClonedWordStyleRunProperties@17024401 : Codeunit 50037); + BEGIN + ClonedWordStyleRunProperties.CreateFromOuterXml(OriginalWordStyleRunProperties.GetOuterXml); + END; + + [External] + PROCEDURE CloneParagraphProperties@17024403(VAR OriginalWordParagraphProperties@17024400 : Codeunit 50026;VAR ClonedWordParagraphProperties@17024401 : Codeunit 50026); + BEGIN + ClonedWordParagraphProperties.CreateFromOuterXml(OriginalWordParagraphProperties.GetOuterXml); + END; + + [External] + PROCEDURE CreateEmptyDocument@17024402(DocumentType@17024401 : 'Document,Template,MacroEnabledDocument,MacroEnabledTemplate';VAR CreatedWordprocessingDocument@17024400 : Codeunit 50018;VAR MainDocumentPart@17024402 : Codeunit 50019;VAR WordBody@17024404 : Codeunit 50021); + VAR + WordDocument@17024403 : Codeunit 50020; + BEGIN + //Helper for creating an empty document and initiating required parts + CreatedWordprocessingDocument.Create(DocumentType, TRUE); + CreatedWordprocessingDocument.AddMainDocumentPart(MainDocumentPart); + WordDocument.Create; + MainDocumentPart.SetDocument(WordDocument); + WordBody.Create; + WordDocument.SetBody(WordBody); + END; + + [External] + PROCEDURE CreateHyperLink@17024401(Url@17024400 : Text;TextValue@17024401 : Text;VAR MainDocumentPart@17024402 : Codeunit 50019;VAR CreatedWordHyperlink@17024403 : Codeunit 50035) : Text; + VAR + HyperlinkRelationship@17024404 : Codeunit 50034; + HrContactId@17024405 : Text; + WordProofError@17024406 : Codeunit 50033; + WordRunProperties@17024407 : Codeunit 50025; + WordColor@17024408 : Codeunit 50036; + WordText@17024409 : Codeunit 50024; + WordRun@17024410 : Codeunit 50023; + BEGIN + //Helper for creating new hyperlink element + MainDocumentPart.AddHyperlinkRelationship(Url, TRUE, HyperlinkRelationship); + HrContactId := HyperlinkRelationship.GetId; + WordProofError.Create; + WordProofError.SetType(2); //Type = GrammarStart + WordRunProperties.Create; + WordRunProperties.SetRunStyle('Hyperlink'); + WordColor.Create; + WordColor.SetColorTheme(10); //Theme = Hyperlink + WordRunProperties.SetColor(WordColor); + WordText.Create; + WordText.SetText(TextValue); + WordText.SetSpacePreserveOption(TRUE); + WordRun.Create; + WordRun.AppendProperties(WordRunProperties); + WordRun.AppendText(WordText); + CreatedWordHyperlink.Create; + CreatedWordHyperlink.SetId(HrContactId); + CreatedWordHyperlink.SetHistory(TRUE); + CreatedWordHyperlink.AppendProofError(WordProofError); + CreatedWordHyperlink.AppendRun(WordRun); + EXIT(HrContactId); + END; + + [External] + PROCEDURE AddParagraphStyleToDocument@17024409(VAR MainDocumentPart@17024403 : Codeunit 50019;StyleId@17024402 : Text;StyleName@17024401 : Text;VAR WordStyleRunProperties@17024400 : Codeunit 50037) ActualStyleId : Text; + VAR + WordStyleDefinitionPart@17024405 : Codeunit 50041; + StyleIdFromName@17024404 : Text; + WordStyles@17024406 : Codeunit 50039; + BEGIN + //Helper for adding new paragraph style + //Based on: https://msdn.microsoft.com/en-us/library/cc850838.aspx + IF NOT MainDocumentPart.HasStyleDefinitionsPart THEN + BEGIN + MainDocumentPart.AddStyleDefinitionsPart(WordStyleDefinitionPart); + WordStyles.Create; + WordStyleDefinitionPart.SetStyles(WordStyles); + END + ELSE + MainDocumentPart.GetStyleDefinitionsPart(WordStyleDefinitionPart); + + IF NOT IsParagraphStyleIdInDocument(WordStyleDefinitionPart, StyleId) THEN + BEGIN + StyleIdFromName := GetParagraphStyleIdFromStyleName(WordStyleDefinitionPart, StyleName); + IF StyleIdFromName = '' THEN + AddNewParagraphStyle(WordStyleDefinitionPart, StyleId, StyleName, WordStyleRunProperties) + ELSE + StyleId := StyleIdFromName; + END; + + EXIT(StyleId); + END; + + [External] + PROCEDURE AddNumberingTypeToDocument@17024407(VAR MainDocumentPart@17024403 : Codeunit 50019;NumberingId@17024402 : Integer;FormatType@17024401 : Integer;FormatText@17024400 : Text); + VAR + WordNumberingDefinitionsPart@17024405 : Codeunit 50070; + WordNumbering@17024406 : Codeunit 50071; + BEGIN + //Helper for adding new numbering type + IF NOT MainDocumentPart.HasNumberingDefinitionsPart THEN + BEGIN + MainDocumentPart.AddNumberingDefinitionsPart(WordNumberingDefinitionsPart); + WordNumbering.Create; + WordNumberingDefinitionsPart.SetNumbering(WordNumbering); + END + ELSE + MainDocumentPart.GetNumberingDefinitionsPart(WordNumberingDefinitionsPart); + + + IF NOT IsNumberingTypeIdInDocument(WordNumberingDefinitionsPart, NumberingId) THEN + AddNewNumberingType(WordNumberingDefinitionsPart, NumberingId, FormatType, FormatText); + END; + + [External] + PROCEDURE CreateBulletListProperties@17024408(VAR MainDocumentPart@17024400 : Codeunit 50019;VAR WordParagraphProperties@17024403 : Codeunit 50026;LeftIndentation@17024402 : Text); + BEGIN + //Helper for creating bullet list paragraph properties + AddNumberingTypeToDocument(MainDocumentPart, 0, 23, 'o'); + CreateParagraphPropertiesForList(WordParagraphProperties, LeftIndentation, 0, 1); + END; + + [External] + PROCEDURE CreateOrderedListProperties@17024411(VAR MainDocumentPart@17024400 : Codeunit 50019;VAR WordParagraphProperties@17024403 : Codeunit 50026;LeftIndentation@17024402 : Text); + BEGIN + //Helper for creating ordered list paragraph properties + AddNumberingTypeToDocument(MainDocumentPart, 1, 0, '%1.'); + CreateParagraphPropertiesForList(WordParagraphProperties, LeftIndentation, 0, 2); + END; + + [External] + PROCEDURE CreateDrawingFromStream@17024425(VAR MainDocumentPart@17024400 : Codeunit 50019;ImagePartType@17024405 : 'Bmp,Gif,Png,Tiff,Icon,Pcx,Jpeg,Emf,Wmf';ImageStream@17024401 : InStream;Name@17024402 : Text;Width@17024403 : Integer;Height@17024404 : Integer;VAR CreatedWordDrawing@17024408 : Codeunit 50043) : Text; + VAR + WordImagePart@17024406 : Codeunit 50042; + RelationshipId@17024407 : Text; + BEGIN + //Helper for adding picture from stream to document + //Based on: https://msdn.microsoft.com/en-us/library/office/bb497430.aspx + MainDocumentPart.AddImagePart(ImagePartType, WordImagePart); + WordImagePart.FeedData(ImageStream); + RelationshipId := MainDocumentPart.GetIdOfImagePart(WordImagePart); + CreateDrawing(RelationshipId, Name + '.' + FORMAT(ImagePartType), Width, Height, '', CreatedWordDrawing); + EXIT(RelationshipId); + END; + + LOCAL PROCEDURE CreateDrawing@17024414(RelationshipId@17024400 : Text;Name@17024401 : Text;Cx@17024402 : Integer;Cy@17024403 : Integer;Position@17024404 : Text;VAR CreatedWordDrawing@17024405 : Codeunit 50043); + VAR + WordAnchor@17024406 : Codeunit 50044; + ActualPosition@17024407 : Text; + WordHorizontalPosition@17024408 : Codeunit 50046; + WordVerticalPosition@17024409 : Codeunit 50045; + WordWrapSquare@17024410 : Codeunit 50047; + WordWrapTopBottom@17024411 : Codeunit 50048; + WordDocProperties@17024412 : Codeunit 50049; + WordGraphicFrameLocks@17024413 : Codeunit 50050; + WordPicture@17024414 : Codeunit 50051; + BEGIN + ActualPosition := Position; + IF ActualPosition = '' THEN + ActualPosition := 'left'; + + WordAnchor.Create; + WordAnchor.AppendSimplePosition(0, 0); + WordHorizontalPosition.Create; + WordHorizontalPosition.SetRelativeFrom(0); //Type = Margin + WordHorizontalPosition.SetHorizontalAlignment(ActualPosition); + WordAnchor.AppendHorizontalPosition(WordHorizontalPosition); + WordVerticalPosition.Create; + WordVerticalPosition.SetPositionOffset('0'); + WordVerticalPosition.SetRelativeFrom(2); // Type = Paragraph + WordAnchor.AppendVerticalPosition(WordVerticalPosition); + WordAnchor.AppendExtent(Cx, Cy); + WordAnchor.AppendEffectExtent(0, 0, 0, 0); + IF Position <> '' THEN + BEGIN + WordWrapSquare.Create; + WordWrapSquare.SetWrapText(0); // Type = BothSides + WordAnchor.AppendWrapSquare(WordWrapSquare); + END + ELSE + BEGIN + WordWrapTopBottom.Create; + WordAnchor.AppendWrapTopBottom(WordWrapTopBottom); + END; + + WordDocProperties.Create; + WordDocProperties.SetId(1); + WordDocProperties.SetName(Name); + WordAnchor.AppendDocProperties(WordDocProperties); + WordGraphicFrameLocks.Create; + WordGraphicFrameLocks.SetNoChangeAspect(TRUE); + WordAnchor.AppendGraphicFrameLocks(WordGraphicFrameLocks); + CreatePicture(RelationshipId, Name, Cx, Cy, WordPicture); + WordAnchor.AppendPicture(WordPicture); + WordAnchor.SetDistanceFromTop(0); + WordAnchor.SetDistanceFromBottom(0); + WordAnchor.SetDistanceFromLeft(114300); + WordAnchor.SetDistanceFromRight(114300); + WordAnchor.SetSimplePos(FALSE); + WordAnchor.SetRelativeHeight(251658240); + WordAnchor.SetBehindDoc(TRUE); + WordAnchor.SetLocked(FALSE); + WordAnchor.SetLayoutInCell(TRUE); + WordAnchor.SetAllowOverlap(TRUE); + CreatedWordDrawing.Create; + CreatedWordDrawing.AppendAnchor(WordAnchor); + END; + + LOCAL PROCEDURE CreatePicture@17024418(RelationshipId@17024413 : Text;Name@17024409 : Text;Cx@17024406 : Integer;Cy@17024407 : Integer;VAR WordPicture@17024400 : Codeunit 50051); + VAR + WordBlipFill@17024401 : Codeunit 50054; + WordShapeProperties@17024402 : Codeunit 50053; + WordNonVisualPictureProperties@17024403 : Codeunit 50052; + WordPresetGeometry@17024404 : Codeunit 50061; + WordTransform2D@17024405 : Codeunit 50060; + WordNonVisualDrawingProperties@17024408 : Codeunit 50055; + WordNonVisualPictureDrawingProperties@17024410 : Codeunit 50056; + WordBlip@17024411 : Codeunit 50057; + WordStretch@17024412 : Codeunit 50058; + WordBlipExtensionList@17024414 : Codeunit 50059; + BEGIN + WordPicture.Create; + WordBlipFill.Create; + WordBlip.Create; + WordBlip.SetEmbed(RelationshipId); + WordBlip.SetCompressionState(2); //Type = Print + WordBlipExtensionList.Create; + WordBlipExtensionList.AppendBlipExtension('{28A0092B-C50C-407E-A947-70E740481C1C}'); + WordBlip.AppendBlipExtensionList(WordBlipExtensionList); + WordBlipFill.SetBlip(WordBlip); + WordStretch.Create; + WordStretch.AppendFillRectangle; + WordBlipFill.AppendStretch(WordStretch); + WordPicture.SetBlipFill(WordBlipFill); + WordNonVisualPictureProperties.Create; + WordNonVisualDrawingProperties.Create; + WordNonVisualDrawingProperties.SetId(0); + WordNonVisualDrawingProperties.SetName(Name); + WordNonVisualPictureProperties.SetNonVisualDrawingProperties(WordNonVisualDrawingProperties); + WordNonVisualPictureDrawingProperties.Create; + WordNonVisualPictureProperties.SetNonVisualPictureDrawingProperties(WordNonVisualPictureDrawingProperties); + WordPicture.SetNonVisualPictureProperties(WordNonVisualPictureProperties); + WordShapeProperties.Create; + WordPresetGeometry.Create; + WordPresetGeometry.AppendAdjustValueList; + WordPresetGeometry.SetPreset(4); //Type = Rectangle + WordShapeProperties.AppendPresetGeometry(WordPresetGeometry); + WordTransform2D.Create; + WordTransform2D.AppendOffset(0, 0); + WordTransform2D.AppendExtent(Cx, Cy); + WordShapeProperties.SetTransform2D(WordTransform2D); + WordPicture.SetShapeProperties(WordShapeProperties); + END; + + LOCAL PROCEDURE AddNewParagraphStyle@17024404(VAR WordStyleDefinitionPart@17024400 : Codeunit 50041;StyleId@17024401 : Text;StyleName@17024402 : Text;VAR WordStyleRunProperties@17024403 : Codeunit 50037); + VAR + WordStyles@17024404 : Codeunit 50039; + WordStyle@17024405 : Codeunit 50038; + ClonedWordStyleRunProperties@17024406 : Codeunit 50037; + BEGIN + WordStyleDefinitionPart.GetStyles(WordStyles); + WordStyle.Create; + WordStyle.SetStyleType(0); //Type = Paragraph + WordStyle.SetStyleId(StyleId); + WordStyle.SetCustomStyle(TRUE); + WordStyle.SetStyleName(StyleName); + WordStyle.SetBasedOn('Normal'); + WordStyle.SetNextParagraphStyle('Normal'); + WordStyle.SetUIPriority(900); + CloneStyleRunProperties(WordStyleRunProperties, ClonedWordStyleRunProperties); + WordStyle.AppendStyleRunProperties(ClonedWordStyleRunProperties); + WordStyles.AppendStyle(WordStyle); + END; + + LOCAL PROCEDURE AddNewNumberingType@17024412(VAR WordNumberingDefinitionPart@17024400 : Codeunit 50070;Id@17024401 : Integer;Type@17024402 : Integer;Text@17024407 : Text); + VAR + WordNumbering@17024404 : Codeunit 50071; + WordAbstractNum@17024405 : Codeunit 50072; + WordNumberingLevel@17024403 : Codeunit 50073; + WordNumberingInstance@17024406 : Codeunit 50074; + BEGIN + WordNumberingDefinitionPart.GetNumbering(WordNumbering); + WordAbstractNum.Create; + WordAbstractNum.SetAbstractNumberId(Id); + WordNumberingLevel.Create; + WordNumberingLevel.SetLevelIndex(0); + WordNumberingLevel.SetNumberingFormatType(Type); + WordNumberingLevel.SetLevelText(Text); + WordAbstractNum.AppendLevel(WordNumberingLevel); + WordNumbering.AppendAbstractNum(WordAbstractNum); + WordNumberingInstance.Create; + WordNumberingInstance.SetAbstractNumId(Id); + WordNumberingInstance.SetNumberID(Id + 1); + WordNumbering.AppendNumberingInstance(WordNumberingInstance); + END; + + LOCAL PROCEDURE CreateParagraphPropertiesForList@17024413(VAR WordParagraphProperties@17024400 : Codeunit 50026;LeftIndentation@17024404 : Text;NumberingLevelReference@17024405 : Integer;NumberingId@17024406 : Integer); + VAR + WordSpacingBetweenLines@17024401 : Codeunit 50030; + WordIndentation@17024402 : Codeunit 50031; + WordNumberingProperties@17024403 : Codeunit 50032; + BEGIN + WordParagraphProperties.Create; + WordSpacingBetweenLines.Create; + WordSpacingBetweenLines.SetAfter('0'); + WordParagraphProperties.SetSpacingBetweenLines(WordSpacingBetweenLines); + WordIndentation.Create; + WordIndentation.SetLeft(LeftIndentation); + WordIndentation.SetHanging('360'); + WordParagraphProperties.SetIndentation(WordIndentation); + WordNumberingProperties.Create; + WordNumberingProperties.SetNumberingId(NumberingId); + WordNumberingProperties.SetNumberingLevelReference(NumberingLevelReference); + WordParagraphProperties.SetNumberingProperties(WordNumberingProperties); + WordParagraphProperties.SetParagraphStyleId('ListParagraph'); + END; + + LOCAL PROCEDURE IsParagraphStyleIdInDocument@17024405(VAR WordStyleDefinitionPart@17024400 : Codeunit 50041;StyleId@17024401 : Text) : Boolean; + VAR + WordStyles@17024403 : Codeunit 50039; + WordStyle@17024404 : Codeunit 50038; + WordStylesEnumerator@17024405 : Codeunit 50040; + BEGIN + WordStyleDefinitionPart.GetStyles(WordStyles); + WordStyles.GetStyleEnumerator(WordStylesEnumerator); + WHILE WordStylesEnumerator.MoveNext DO + BEGIN + WordStylesEnumerator.GetCurrent(WordStyle); + IF (WordStyle.GetStyleId = StyleId) AND (WordStyle.GetStyleType = 0) THEN //Type = Paragraph + EXIT(TRUE); + END; + + EXIT(FALSE); + END; + + LOCAL PROCEDURE GetParagraphStyleIdFromStyleName@17024406(VAR WordStyleDefinitionPart@17024400 : Codeunit 50041;StyleName@17024401 : Text) : Text; + VAR + WordStyles@17024404 : Codeunit 50039; + WordStyle@17024403 : Codeunit 50038; + WordStylesEnumerator@17024402 : Codeunit 50040; + BEGIN + WordStyleDefinitionPart.GetStyles(WordStyles); + WordStyles.GetStyleEnumerator(WordStylesEnumerator); + WHILE WordStylesEnumerator.MoveNext DO + BEGIN + WordStylesEnumerator.GetCurrent(WordStyle); + IF (WordStyle.GetStyleName = StyleName) AND (WordStyle.GetStyleType = 0) THEN //Type = Paragraph + EXIT(WordStyle.GetStyleId); + END; + + EXIT(''); + END; + + LOCAL PROCEDURE IsNumberingTypeIdInDocument@17024410(VAR WordNumberingDefinitionPart@17024400 : Codeunit 50070;Id@17024401 : Integer) : Boolean; + VAR + WordNumbering@17024403 : Codeunit 50071; + WordAbstractNum@17024404 : Codeunit 50072; + WordAbstractNumEnumerator@17024405 : Codeunit 50075; + BEGIN + WordNumberingDefinitionPart.GetNumbering(WordNumbering); + WordNumbering.GetAbstractNumEnumerator(WordAbstractNumEnumerator); + WHILE WordAbstractNumEnumerator.MoveNext DO + BEGIN + WordAbstractNumEnumerator.GetCurrent(WordAbstractNum); + IF WordAbstractNum.GetAbstractNumberId = Id THEN + EXIT(TRUE); + END; + + EXIT(FALSE); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50070.TXT b/BaseApp/COD50070.TXT new file mode 100644 index 0000000..966ed5a --- /dev/null +++ b/BaseApp/COD50070.TXT @@ -0,0 +1,49 @@ +OBJECT Codeunit 50070 DotNet_Word.NumberingDefinitio +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; + + [External] + PROCEDURE SetNumbering@17024403(VAR WordNumbering@17024400 : Codeunit 50071); + VAR + DotNetNumbering@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"; + BEGIN + WordNumbering.GetNumbering(DotNetNumbering); + DotNetNumberingDefinitionsPart.Numbering := DotNetNumbering; + END; + + [External] + PROCEDURE GetNumbering@17024401(VAR WordNumbering@17024400 : Codeunit 50071); + BEGIN + WordNumbering.SetNumbering(DotNetNumberingDefinitionsPart.Numbering); + END; + + PROCEDURE SetNumberingDefinitionsPart@17024411(NewDotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"); + BEGIN + DotNetNumberingDefinitionsPart := NewDotNetNumberingDefinitionsPart; + END; + + PROCEDURE GetNumberingDefinitionsPart@17024400(VAR CurrentDotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"); + BEGIN + CurrentDotNetNumberingDefinitionsPart := DotNetNumberingDefinitionsPart; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50071.TXT b/BaseApp/COD50071.TXT new file mode 100644 index 0000000..edcb52c --- /dev/null +++ b/BaseApp/COD50071.TXT @@ -0,0 +1,101 @@ +OBJECT Codeunit 50071 DotNet_Word.Numbering +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetNumbering@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetNumbering := DotNetNumbering.Numbering; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetNumbering := DotNetNumbering.Numbering(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024404() : Text; + BEGIN + EXIT(DotNetNumbering.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetNumbering.InnerText); + END; + + [External] + PROCEDURE AppendAbstractNum@17024405(VAR WordAbstractNum@17024401 : Codeunit 50072); + VAR + DotNetAbstractNum@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordAbstractNum.GetAbstractNum(DotNetAbstractNum); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetNumbering, DotNetAbstractNum); + END; + + [External] + PROCEDURE AppendNumberingInstance@17024402(VAR WordNumberingInstance@17024401 : Codeunit 50074); + VAR + DotNetNumberingInstance@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordNumberingInstance.GetNumberingInstance(DotNetNumberingInstance); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetNumbering, DotNetNumberingInstance); + END; + + [External] + PROCEDURE Save@17024401(VAR WordNumberingDefinitionPart@17024401 : Codeunit 50070); + VAR + DotNetNumberingDefinitionsPart@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; + BEGIN + WordNumberingDefinitionPart.GetNumberingDefinitionsPart(DotNetNumberingDefinitionsPart); + DotNetNumbering.Save(DotNetNumberingDefinitionsPart); + END; + + [External] + PROCEDURE GetAbstractNumEnumerator@17024413(VAR WordAbstractNumEnumerator@17024400 : Codeunit 50075); + VAR + DotNetAbstractNum@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; + DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + BEGIN + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.GetEnumeratorOfTypeGeneric(DotNetNumbering.Elements, GETDOTNETTYPE(DotNetAbstractNum), DotNetEnumerator); + WordAbstractNumEnumerator.SetEnumerator(DotNetEnumerator); + END; + + PROCEDURE SetNumbering@17024411(NewDotNetNumbering@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"); + BEGIN + DotNetNumbering := NewDotNetNumbering; + END; + + PROCEDURE GetNumbering@17024400(VAR CurrentDotNetNumbering@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"); + BEGIN + CurrentDotNetNumbering := DotNetNumbering; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50072.TXT b/BaseApp/COD50072.TXT new file mode 100644 index 0000000..634b82d --- /dev/null +++ b/BaseApp/COD50072.TXT @@ -0,0 +1,83 @@ +OBJECT Codeunit 50072 DotNet_Word.AbstractNum +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetAbstractNum@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetAbstractNum := DotNetAbstractNum.AbstractNum; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetAbstractNum := DotNetAbstractNum.AbstractNum(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024401() : Text; + BEGIN + EXIT(DotNetAbstractNum.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetAbstractNum.InnerText); + END; + + [External] + PROCEDURE SetAbstractNumberId@17024404(NewNumId@17024401 : Integer); + VAR + DotNetInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + BEGIN + DotNetAbstractNum.AbstractNumberId := DotNetInt32Value.FromInt32(NewNumId); + END; + + [External] + PROCEDURE GetAbstractNumberId@17024415() : Integer; + BEGIN + EXIT(DotNetAbstractNum.AbstractNumberId.Value); + END; + + [External] + PROCEDURE AppendLevel@17024402(VAR WordNumberingLevel@17024401 : Codeunit 50073); + VAR + DotNetLevel@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + WordNumberingLevel.GetLevel(DotNetLevel); + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.AppendGeneric(DotNetAbstractNum, DotNetLevel); + END; + + PROCEDURE SetAbstractNum@17024411(NewDotNetAbstractNum@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"); + BEGIN + DotNetAbstractNum := NewDotNetAbstractNum; + END; + + PROCEDURE GetAbstractNum@17024400(VAR CurrentDotNetAbstractNum@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"); + BEGIN + CurrentDotNetAbstractNum := DotNetAbstractNum; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50073.TXT b/BaseApp/COD50073.TXT new file mode 100644 index 0000000..b1add74 --- /dev/null +++ b/BaseApp/COD50073.TXT @@ -0,0 +1,103 @@ +OBJECT Codeunit 50073 DotNet_Word.NumberingLevel +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetLevel@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetLevel := DotNetLevel.Level; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024404(OuterXml@17024400 : Text); + BEGIN + DotNetLevel := DotNetLevel.Level(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024402() : Text; + BEGIN + EXIT(DotNetLevel.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024401() : Text; + BEGIN + EXIT(DotNetLevel.InnerText); + END; + + [External] + PROCEDURE SetLevelText@17024405(NewLevelText@17024401 : Text); + VAR + DotNetLevelText@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.LevelText"; + DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + BEGIN + DotNetLevelText := DotNetLevelText.LevelText; + DotNetLevelText.Val := DotNetStringValue.FromString(NewLevelText); + DotNetLevel.LevelText := DotNetLevelText; + END; + + [External] + PROCEDURE SetLevelIndex@17024406(NewLevelIndex@17024401 : Integer); + VAR + DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + BEGIN + DotNetLevel.LevelIndex := DotNetInt32Value.FromInt32(NewLevelIndex); + END; + + [External] + PROCEDURE SetNumberingFormatType@17024410(NewNumberingFormatType@17024401 : Integer); + VAR + DotNetNumberFormat@17024404 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingFormat"; + DotNetNumberFormatValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberFormatValues"; + DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@17024402 : Codeunit 50067; + BEGIN + //We need this to deal with .NET Generics: + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetNumberFormatValues), NewNumberingFormatType, DotNetEnumValue); + DotNetNumberFormat := DotNetNumberFormat.NumberingFormat; + DotNetNumberFormat.Val := DotNetEnumValue; + DotNetLevel.NumberingFormat := DotNetNumberFormat; + END; + + [External] + PROCEDURE GetNumberingFormatType@17024408() : Integer; + VAR + DotNetNumberFormatValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberFormatValues"; + DotNetEnumValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + BEGIN + DotNetEnumValue := DotNetLevel.NumberingFormat.Val; + DotNetNumberFormatValues := DotNetEnumValue.Value; + EXIT(DotNetNumberFormatValues); + END; + + PROCEDURE SetLevel@17024411(NewDotNetLevel@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"); + BEGIN + DotNetLevel := NewDotNetLevel; + END; + + PROCEDURE GetLevel@17024400(VAR CurrentDotNetLevel@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"); + BEGIN + CurrentDotNetLevel := DotNetLevel; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50074.TXT b/BaseApp/COD50074.TXT new file mode 100644 index 0000000..c8e7520 --- /dev/null +++ b/BaseApp/COD50074.TXT @@ -0,0 +1,77 @@ +OBJECT Codeunit 50074 DotNet_Word.NumberingInstance +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetNumberingInstance@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"; + + [External] + PROCEDURE Create@17024403(); + BEGIN + DotNetNumberingInstance := DotNetNumberingInstance.NumberingInstance; + END; + + [External] + PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + BEGIN + DotNetNumberingInstance := DotNetNumberingInstance.NumberingInstance(OuterXml); + END; + + [External] + PROCEDURE GetOuterXml@17024401() : Text; + BEGIN + EXIT(DotNetNumberingInstance.OuterXml); + END; + + [External] + PROCEDURE GetInnerText@17024410() : Text; + BEGIN + EXIT(DotNetNumberingInstance.InnerText); + END; + + [External] + PROCEDURE SetNumberID@17024406(NewNumberID@17024401 : Integer); + VAR + DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + BEGIN + DotNetNumberingInstance.NumberID := DotNetInt32Value.FromInt32(NewNumberID); + END; + + [External] + PROCEDURE SetAbstractNumId@17024402(NewAbstractNumId@17024401 : Integer); + VAR + DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetAbstractNumId@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNumId"; + BEGIN + DotNetAbstractNumId := DotNetAbstractNumId.AbstractNumId; + DotNetAbstractNumId.Val := DotNetInt32Value.FromInt32(NewAbstractNumId); + DotNetNumberingInstance.AbstractNumId := DotNetAbstractNumId; + END; + + PROCEDURE SetNumberingInstance@17024411(NewDotNetNumberingInstance@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"); + BEGIN + DotNetNumberingInstance := NewDotNetNumberingInstance; + END; + + PROCEDURE GetNumberingInstance@17024400(VAR CurrentDotNetNumberingInstance@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"); + BEGIN + CurrentDotNetNumberingInstance := DotNetNumberingInstance; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50075.TXT b/BaseApp/COD50075.TXT new file mode 100644 index 0000000..de4c1a7 --- /dev/null +++ b/BaseApp/COD50075.TXT @@ -0,0 +1,52 @@ +OBJECT Codeunit 50075 DotNet_Word.AbstractNumEnumera +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + + PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + DotNetEnumerator := NewEnumerator; + END; + + PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + CurrentEnumerator := DotNetEnumerator; + END; + + [External] + PROCEDURE Reset@17024401(); + BEGIN + DotNetEnumerator.Reset; + END; + + [External] + PROCEDURE MoveNext@17024402() : Boolean; + BEGIN + EXIT(DotNetEnumerator.MoveNext); + END; + + [External] + PROCEDURE GetCurrent@17024403(VAR CurrentAbstractNum@17024400 : Codeunit 50072); + BEGIN + CurrentAbstractNum.SetAbstractNum(DotNetEnumerator.Current); + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50076.TXT b/BaseApp/COD50076.TXT new file mode 100644 index 0000000..3c792cf --- /dev/null +++ b/BaseApp/COD50076.TXT @@ -0,0 +1,52 @@ +OBJECT Codeunit 50076 DotNet_Word.TextEnumerator +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + + PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + DotNetEnumerator := NewEnumerator; + END; + + PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + BEGIN + CurrentEnumerator := DotNetEnumerator; + END; + + [External] + PROCEDURE Reset@17024401(); + BEGIN + DotNetEnumerator.Reset; + END; + + [External] + PROCEDURE MoveNext@17024402() : Boolean; + BEGIN + EXIT(DotNetEnumerator.MoveNext); + END; + + [External] + PROCEDURE GetCurrent@17024403(VAR CurrentText@17024400 : Codeunit 50024); + BEGIN + CurrentText.SetTextObject(DotNetEnumerator.Current); + END; + + BEGIN + END. + } +} + diff --git a/Test/COD50069.TXT b/Test/COD50069.TXT new file mode 100644 index 0000000..6f807c5 --- /dev/null +++ b/Test/COD50069.TXT @@ -0,0 +1,1010 @@ +OBJECT Codeunit 50069 Text_OpenXml.WordProcessing +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + Subtype=Test; + OnRun=BEGIN + END; + + } + CODE + { + VAR + Assert@17024401 : Codeunit 130000; + LibraryLowerPermissions@17024400 : Codeunit 132217; + OpenXmlWordProcessingHelper@17024402 : Codeunit 50068; + WordprocessingDocument@17024405 : Codeunit 50018; + MainDocumentPart@17024404 : Codeunit 50019; + WordDocument@17024406 : Codeunit 50020; + WordBody@17024403 : Codeunit 50021; + WordParagraph@17024410 : Codeunit 50022; + WordRun@17024409 : Codeunit 50023; + WordText@17024408 : Codeunit 50024; + WordRunProperties@17024407 : Codeunit 50025; + WordColor@17024420 : Codeunit 50036; + WordParagraphProperties@17024419 : Codeunit 50026; + WordStyleRunProperties@17024418 : Codeunit 50037; + WordSpacingBetweenLines@17024417 : Codeunit 50030; + WordTable@17024416 : Codeunit 50027; + WordTableRow@17024415 : Codeunit 50028; + WordTableCell@17024414 : Codeunit 50029; + WordHyperlink@17024413 : Codeunit 50035; + WordStyleDefinitionPart@17024421 : Codeunit 50041; + WordStyles@17024422 : Codeunit 50039; + WordDrawing@17024423 : Codeunit 50043; + WordParagraphEnumerator@17024426 : Codeunit 50062; + WordRunEnumerator@17024425 : Codeunit 50063; + WordTextEnumerator@17024424 : Codeunit 50076; + TestFile@17024411 : File; + FileOutStream@17024412 : OutStream; + + [Test] + PROCEDURE TestCreateSimpleDocument@17024400(); + VAR + Expected@17024403 : Text; + Actual@17024400 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] Empty Word document is created + CreateSampleDocument; + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected document outer XML is: + Expected := + ''; + Assert.AreEqual(Expected, Actual, 'Simple document creation failed'); + END; + + [Test] + PROCEDURE TestCreateParagraph@17024419(); + VAR + Expected@17024403 : Text; + Actual@17024400 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] One paragraph is added to an empty document + CreateSampleDocument; + CreateSampleParagraph; + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected document outer XML is: + Expected := + 'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent quam augue, tempus id metu' + + 's in, laoreet viverra quam. Sed vulputate risus lacus, et dapibus orci porttitor non.'; + Assert.AreEqual(Expected, Actual, 'Paragraph creation failed'); + END; + + [Test] + PROCEDURE TestCreateParagraphWithStyles@17024432(); + VAR + Expected@17024403 : Text; + Actual@17024400 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] One paragraph with formating styles is added to an empty document + CreateSampleDocument; + CreateSampleParagraphWithFormating; + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected document outer XML is: + Expected := + 'Pellentesque commodo rhoncus mauris, sit ' + + 'amet faucibus arcu porttitor pharetra. Maecenas quis erat qu' + + 'is eros iaculis placerat ut at mauris.'; + Assert.AreEqual(Expected, Actual, 'Paragraph with styles creation failed'); + END; + + [Test] + PROCEDURE TestCreateParagraphJustification@17024436(); + VAR + Expected@17024403 : Text; + Actual@17024400 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] One paragraph with justified text is added to an empty document + CreateSampleDocument; + CreateSampleParagraphJustified; + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected document outer XML is: + Expected := + 'Nam eu tortor ut mi euismod eleif' + + 'end in ut ante. Donec a ligula ante. Sed rutrum ex quam. Nunc id mi ultricies, vestibulum sapien ve' + + 'l, posuere dui.'; + Assert.AreEqual(Expected, Actual, 'Paragraph with justification creation failed'); + END; + + [Test] + PROCEDURE TestCreateHeadings@17024439(); + VAR + Expected@17024403 : Text; + Actual@17024401 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] Heading1 and Heading2 styles are added to an empty document + CreateSampleDocument; + CreateSampleHeadings; + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected document outer XML is: + Expected := + 'Fi' + + 'rst HeadingSecond Heading'; + Assert.AreEqual(Expected, Actual, 'Headings creation failed'); + //[THEN] Styles definition part must be not empty + Assert.AreEqual(TRUE, MainDocumentPart.HasStyleDefinitionsPart, 'Style definitions check failed'); + MainDocumentPart.GetStyleDefinitionsPart(WordStyleDefinitionPart); + WordStyleDefinitionPart.GetStyles(WordStyles); + Actual := WordStyles.GetOuterXml; + //[THEN] and expected styles outer xml is: + Expected := + ''; + Assert.AreEqual(Expected, Actual, 'Styles check failed'); + END; + + [Test] + PROCEDURE TestCreateTable@17024446(); + VAR + Expected@17024403 : Text; + Actual@17024400 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] Table is added to an empty document + CreateSampleDocument; + CreateSampleTable; + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected document outer XML is: + Expected := + '<' + + 'w:tr>ANice' + + 'LittleTable'; + Assert.AreEqual(Expected, Actual, 'Table creation failed'); + END; + + [Test] + PROCEDURE TestCreateLists@17024453(); + VAR + Expected@17024403 : Text; + Actual@17024400 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] Sample lists are added to an empty document + CreateSampleDocument; + CreateSampleLists; + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected document outer XML is: + Expected := + 'AUnordered<' + + '/w:pPr>ListAOrdered' + + 'List'; + Assert.AreEqual(Expected, Actual, 'Lists creation failed'); + END; + + [Test] + PROCEDURE TestCreatePicture@17024456(); + VAR + Expected@17024403 : Text; + PartId@17024405 : Text; + Actual@17024400 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] Picture is added to an empty document + CreateSampleDocument; + PartId := CreateSamplePicture; + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected document outer XML is: + Expected := + 'left0' + + ''; + Assert.AreEqual(Expected, Actual, 'Paragraph creation failed'); + END; + + [Test] + PROCEDURE TestCreateHyperlink@17024402(); + VAR + Expected@17024403 : Text; + PartId@17024400 : Text; + Actual@17024402 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] Hyperlink is added to an empty document + CreateSampleDocument; + PartId := CreateSampleHyperlink; + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected document outer XML is: + Expected := + 'My awesome link<' + + '/w:r>'; + Assert.AreEqual(Expected, Actual, 'Paragraph creation failed'); + END; + + [Test] + PROCEDURE TestCreateFullDocumentNonEmpty@17024415(); + VAR + Expected@17024403 : Text; + PictureBase64@17024404 : Text; + TempBlob@17024402 : TEMPORARY Record 99008535; + ImageStream@17024401 : InStream; + ExistingFileStream@17024400 : InStream; + SaveStream@17024405 : OutStream; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] All elements from previous tests are added to an empty document + CreateSampleDocument; + CreateSampleParagraph; + CreateSampleParagraphWithFormating; + CreateSampleParagraphJustified; + CreateSampleHeadings; + CreateSampleTable; + CreateSampleLists; + CreateSamplePicture; + CreateSampleHyperlink; + FinalizeAndGetDocumentOuterXml; + //[WHEN] document is saved to TempBlob stream + TempBlob.Blob.CREATEOUTSTREAM(SaveStream); + WordprocessingDocument.Save(SaveStream); + //[WHEN] and then reopened again + TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); + WordprocessingDocument.Open(ExistingFileStream, FALSE); + WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); + MainDocumentPart.GetDocument(WordDocument); + //[THEN] document outer XML must not be empty + Assert.AreNotEqual('', WordDocument.GetOuterXml, 'Reopen check failed'); + END; + + [Test] + PROCEDURE TestFullDocumentIsSameOnReopen@17024404(); + VAR + Expected@17024403 : Text; + ExistingFileStream@17024400 : InStream; + SaveStream@17024405 : OutStream; + TempBlob@17024401 : TEMPORARY Record 99008535; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[WHEN] All elements from previous tests are added to an empty document + CreateSampleDocument; + CreateSampleParagraph; + CreateSampleParagraphWithFormating; + CreateSampleParagraphJustified; + CreateSampleHeadings; + CreateSampleTable; + CreateSampleLists; + Expected := FinalizeAndGetDocumentOuterXml; + //[WHEN] document is saved to TempBlob stream and reopened + TempBlob.Blob.CREATEOUTSTREAM(SaveStream); + WordprocessingDocument.Save(SaveStream); + TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); + WordprocessingDocument.Open(ExistingFileStream, FALSE); + WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); + MainDocumentPart.GetDocument(WordDocument); + //[THEN] reopened stream document outer XML must be the same as original + Assert.AreEqual(Expected, WordDocument.GetOuterXml, 'Reopen check failed'); + END; + + [Test] + PROCEDURE TestExistingDocumentOpen@17024460(); + VAR + DocumentBase64@17024402 : Text; + Expected@17024403 : Text; + ExistingFileStream@17024400 : InStream; + SaveStream@17024405 : OutStream; + TempBlob@17024401 : TEMPORARY Record 99008535; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[GIVEN] Sample document stream as base64 text + DocumentBase64 := GetExampleDocxFileContentAsBase64; + //[WHEN] Sample document is opened + TempBlob.FromBase64String(DocumentBase64); + TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); + WordprocessingDocument.Open(ExistingFileStream, FALSE); + WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); + MainDocumentPart.GetDocument(WordDocument); + //[THEN] Expected document outer XML is: + Expected := + 'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent quam augue, tempus id metus in' + + ', laoreet viverra quam. Sed vulputate risus lacus, et dapibus orci porttitor non.' + + 'Pellentesque commodo rhoncus <' + + 'w:i />mauris, sit amet faucibus arcu porttitor pharetra. Maecenas quis' + + ' erat quis eros iaculis placerat ut at mauris.' + + 'Nam eu tortor ut mi euismod eleifend in ut ante. Donec a lig' + + 'ula ante. Sed rutrum ex quam. Nunc id mi ultricies, vestibulum sapien vel, posuere dui.' + + 'First HeadingSecond HeadingANiceLittle<' + + 'w:jc w:val="center" />TableAUnordered<' + + 'w:numId w:val="1" />ListA<' + + 'w:spacing w:after="0" />Ordered' + + 'List<' + + 'w:drawing>left' + + '0' + + 'My awesome link'; + Assert.AreEqual(Expected, WordDocument.GetOuterXml, 'Existing file open check failed'); + END; + + [Test] + PROCEDURE TestExistingDocumentInspection@17024468(); + VAR + DocumentBase64@17024402 : Text; + Expected@17024403 : Text; + ExistingFileStream@17024400 : InStream; + SaveStream@17024405 : OutStream; + TempBlob@17024401 : TEMPORARY Record 99008535; + ParagraphCount@17024404 : Integer; + RunCount@17024406 : Integer; + TextCount@17024407 : Integer; + FullText@17024408 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[GIVEN] Sample document stream as base64 text + DocumentBase64 := GetExampleDocxFileContentAsBase64; + //[WHEN] Sample document is opened + TempBlob.FromBase64String(DocumentBase64); + TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); + WordprocessingDocument.Open(ExistingFileStream, FALSE); + WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); + MainDocumentPart.GetDocument(WordDocument); + WordDocument.GetBody(WordBody); + //[WHEN] and iteration through all elements is performed + WordBody.GetParagraphEnumerator(WordParagraphEnumerator); + WHILE WordParagraphEnumerator.MoveNext DO + BEGIN + ParagraphCount += 1; + WordParagraphEnumerator.GetCurrent(WordParagraph); + WordParagraph.GetRunEnumerator(WordRunEnumerator); + WHILE WordRunEnumerator.MoveNext DO + BEGIN + RunCount += 1; + WordRunEnumerator.GetCurrent(WordRun); + WordRun.GetTextEnumerator(WordTextEnumerator); + WHILE WordTextEnumerator.MoveNext DO + BEGIN + TextCount += 1; + WordTextEnumerator.GetCurrent(WordText); + FullText += WordText.GetInnerText; + END; + END; + END; + + //[THEN] Expected paragraph element count is 14 + Assert.AreEqual(14, ParagraphCount, 'Paragraph count check failed'); + //[THEN] Expected run element count is 20 + Assert.AreEqual(20, RunCount, 'Run count check failed'); + //[THEN] Expected text element count is 19 + Assert.AreEqual(19, TextCount, 'Text count check failed'); + //[THEN] Expected concatenation of whole document text is: + Expected := + 'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent quam augue, tempus id metus in, l' + + 'aoreet viverra quam. Sed vulputate risus lacus, et dapibus orci porttitor non.Pellentesque commodo ' + + 'rhoncus mauris, sit amet faucibus arcu porttitor pharetra. Maecenas quis erat quis eros iaculis pla' + + 'cerat ut at mauris.Nam eu tortor ut mi euismod eleifend in ut ante. Donec a ligula ante. Sed rutrum' + + ' ex quam. Nunc id mi ultricies, vestibulum sapien vel, posuere dui.First HeadingSecond HeadingAUnor' + + 'deredListAOrderedList'; + Assert.AreEqual(Expected, FullText, 'Full document text check failed'); + END; + + [Test] + PROCEDURE TestExistingDocumentModification@17024478(); + VAR + DocumentBase64@17024402 : Text; + Expected@17024403 : Text; + ExistingFileStream@17024400 : InStream; + SaveStream@17024405 : OutStream; + TempBlob@17024401 : TEMPORARY Record 99008535; + Actual@17024408 : Text; + BEGIN + LibraryLowerPermissions.SetO365Basic; + //[GIVEN] Sample document stream as base64 text + DocumentBase64 := GetExampleDocxFileContentAsBase64; + //[WHEN] Sample document is opened + TempBlob.FromBase64String(DocumentBase64); + TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); + WordprocessingDocument.Open(ExistingFileStream, TRUE); + WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); + MainDocumentPart.GetDocument(WordDocument); + WordDocument.GetBody(WordBody); + //[WHEN] and '|>><<|' is added to every text element value + WordBody.GetParagraphEnumerator(WordParagraphEnumerator); + WHILE WordParagraphEnumerator.MoveNext DO + BEGIN + WordParagraphEnumerator.GetCurrent(WordParagraph); + WordParagraph.GetRunEnumerator(WordRunEnumerator); + WHILE WordRunEnumerator.MoveNext DO + BEGIN + WordRunEnumerator.GetCurrent(WordRun); + WordRun.GetTextEnumerator(WordTextEnumerator); + WHILE WordTextEnumerator.MoveNext DO + BEGIN + WordTextEnumerator.GetCurrent(WordText); + WordText.SetText(WordText.GetText + '|>><<|'); + END; + END; + END; + + Actual := FinalizeAndGetDocumentOuterXml; + //[THEN] Expected modified document outer xml is: + Expected := + 'Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent quam augue, tempus id metus in' + + ', laoreet viverra quam. Sed vulputate risus lacus, et dapibus orci porttitor non.|>><<|' + + 'Pellentesque |>><<|commodo |>><<|rhoncus |>><<|mauris|>><<|, sit |>><' + + '<|amet |>>&' + + 'lt;<|faucibus arcu |>><<|porttitor |>><<|pharetra. Maecenas quis erat quis eros iaculis placerat ut ' + + 'at mauris.|>><<|Nam eu tortor ut mi euismod eleifend in ut ante. Donec a ligula ante. Sed rutr' + + 'um ex quam. Nunc id mi ultricies, vestibulum sapien vel, posuere dui.|>><<|' + + 'First Heading|>><<|Second Heading|>><<|' + + 'ANiceLittleTable' + + 'A|>><<' + + '|Unordered|>><' + + ';<|List|>><' + + ';<|' + + 'A|>&g' + + 't;<<|Ordered|&g' + + 't;><<|List|&' + + 'gt;><<|left0' + + '' + + 'My aweso' + + 'me link'; + + Assert.AreEqual(Expected, Actual, 'Full document text check failed'); + END; + + LOCAL PROCEDURE CreateSampleDocument@17024447(); + BEGIN + OpenXmlWordProcessingHelper.CreateEmptyDocument(0, WordprocessingDocument, MainDocumentPart, WordBody); + MainDocumentPart.GetDocument(WordDocument); + END; + + LOCAL PROCEDURE CreateSampleParagraph@17024421(); + BEGIN + WordText.Create; + WordText.SetText('Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent quam augue, tempus id metus in, laoreet viverra quam. Sed vulputate risus lacus, et dapibus orci porttitor non.'); + WordRun.Create; + WordRun.AppendText(WordText); + WordParagraph.Create; + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + END; + + LOCAL PROCEDURE CreateSampleParagraphWithFormating@17024423(); + BEGIN + WordParagraph.Create; + + WordRun.Create; + WordText.Create; + WordText.SetText('Pellentesque '); + WordText.SetSpacePreserveOption(TRUE); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + + WordRun.Create; + WordRunProperties.Create; + WordRunProperties.SetBold(TRUE); + WordRun.AppendProperties(WordRunProperties); + WordText.Create; + WordText.SetText('commodo '); + WordText.SetSpacePreserveOption(TRUE); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + + WordRun.Create; + WordText.Create; + WordText.SetText('rhoncus '); + WordText.SetSpacePreserveOption(TRUE); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + + WordRun.Create; + WordRunProperties.Create; + WordRunProperties.SetItalic(TRUE); + WordRun.AppendProperties(WordRunProperties); + WordText.Create; + WordText.SetText('mauris'); + WordText.SetSpacePreserveOption(TRUE); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + + WordRun.Create; + WordText.Create; + WordText.SetText(', sit '); + WordText.SetSpacePreserveOption(TRUE); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + + WordRun.Create; + WordRunProperties.Create; + WordRunProperties.SetBold(TRUE); + WordRunProperties.SetItalic(TRUE); + WordRunProperties.SetUnderline(TRUE); + WordRun.AppendProperties(WordRunProperties); + WordText.Create; + WordText.SetText('amet '); + WordText.SetSpacePreserveOption(TRUE); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + + WordRun.Create; + WordText.Create; + WordText.SetText('faucibus arcu '); + WordText.SetSpacePreserveOption(TRUE); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + + WordRun.Create; + WordRunProperties.Create; + WordColor.Create; + WordColor.SetColorValue('FF0000'); + WordRunProperties.SetColor(WordColor); + WordRun.AppendProperties(WordRunProperties); + WordText.Create; + WordText.SetText('porttitor '); + WordText.SetSpacePreserveOption(TRUE); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + + WordRun.Create; + WordText.Create; + WordText.SetText('pharetra. Maecenas quis erat quis eros iaculis placerat ut at mauris.'); + WordText.SetSpacePreserveOption(TRUE); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + + WordBody.AppendParagraph(WordParagraph); + END; + + LOCAL PROCEDURE CreateSampleParagraphJustified@17024425(); + BEGIN + WordParagraph.Create; + WordParagraphProperties.Create; + WordParagraphProperties.SetJustification(2); //Type = Center + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetSpacePreserveOption(TRUE); + WordText.SetText('Nam eu tortor ut mi euismod eleifend in ut ante. Donec a ligula ante. Sed rutrum ex quam. Nunc id mi ultricies, vestibulum sapien vel, posuere dui.'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + END; + + LOCAL PROCEDURE CreateSampleHeadings@17024428(); + BEGIN + WordStyleRunProperties.Create; + WordColor.Create; + WordColor.SetColorValue('2F5496'); + WordStyleRunProperties.SetColor(WordColor); + WordStyleRunProperties.SetFontSize('32'); + OpenXmlWordProcessingHelper.AddParagraphStyleToDocument(MainDocumentPart, 'heading1', 'heading 1', WordStyleRunProperties); + + WordStyleRunProperties.Create; + WordColor.Create; + WordColor.SetColorValue('2F5496'); + WordStyleRunProperties.SetColor(WordColor); + WordStyleRunProperties.SetFontSize('26'); + OpenXmlWordProcessingHelper.AddParagraphStyleToDocument(MainDocumentPart, 'heading2', 'heading 2', WordStyleRunProperties); + + WordParagraph.Create; + WordParagraphProperties.Create; + WordParagraphProperties.SetParagraphStyleId('heading1'); + WordSpacingBetweenLines.Create; + WordSpacingBetweenLines.SetAfter('0'); + WordParagraphProperties.SetSpacingBetweenLines(WordSpacingBetweenLines); + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetSpacePreserveOption(TRUE); + WordText.SetText('First Heading'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + + WordParagraph.Create; + WordParagraphProperties.Create; + WordParagraphProperties.SetParagraphStyleId('heading2'); + WordSpacingBetweenLines.Create; + WordSpacingBetweenLines.SetAfter('0'); + WordParagraphProperties.SetSpacingBetweenLines(WordSpacingBetweenLines); + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetSpacePreserveOption(TRUE); + WordText.SetText('Second Heading'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + END; + + LOCAL PROCEDURE CreateSampleTable@17024430(); + BEGIN + WordTable.Create; + WordTableRow.Create; + WordTableCell.Create; + WordParagraph.Create; + WordRun.Create; + WordText.Create; + WordText.SetText('A'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordTableCell.AppendParagraph(WordParagraph); + WordTableRow.AppendCell(WordTableCell); + + WordTableCell.Create; + WordParagraph.Create; + WordRun.Create; + WordRunProperties.Create; + WordRunProperties.SetBold(TRUE); + WordRun.AppendProperties(WordRunProperties); + WordText.Create; + WordText.SetText('Nice'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordTableCell.AppendParagraph(WordParagraph); + WordTableRow.AppendCell(WordTableCell); + + WordTable.AppendRow(WordTableRow); + + WordTableRow.Create; + WordTableCell.Create; + WordParagraph.Create; + WordRun.Create; + WordText.Create; + WordText.SetText('Little'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordTableCell.AppendParagraph(WordParagraph); + WordTableRow.AppendCell(WordTableCell); + + WordTableCell.Create; + WordParagraph.Create; + WordParagraphProperties.Create; + WordParagraphProperties.SetJustification(2); + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetText('Table'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordTableCell.AppendParagraph(WordParagraph); + WordTableRow.AppendCell(WordTableCell); + + WordTable.AppendRow(WordTableRow); + WordBody.AppendTable(WordTable); + END; + + LOCAL PROCEDURE CreateSampleLists@17024433(); + BEGIN + OpenXmlWordProcessingHelper.CreateBulletListProperties(MainDocumentPart, WordParagraphProperties, '5'); + WordParagraph.Create; + WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetText('A'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + WordParagraph.Create; + WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetText('Unordered'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + WordParagraph.Create; + WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetText('List'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + WordParagraph.Create; + WordBody.AppendParagraph(WordParagraph); + OpenXmlWordProcessingHelper.CreateOrderedListProperties(MainDocumentPart, WordParagraphProperties, '10'); + WordParagraph.Create; + WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetText('A'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + WordParagraph.Create; + WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetText('Ordered'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + WordParagraph.Create; + WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); + WordParagraph.AppendProperties(WordParagraphProperties); + WordRun.Create; + WordText.Create; + WordText.SetText('List'); + WordRun.AppendText(WordText); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + END; + + LOCAL PROCEDURE CreateSamplePicture@17024435() : Text; + VAR + PictureBase64@17024402 : Text; + TempBlob@17024401 : TEMPORARY Record 99008535; + ImageStream@17024400 : InStream; + PartId@17024403 : Text; + BEGIN + PictureBase64 := + '/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMF' + + 'BwYHBwcGBwcICQsJCAgKCAcHCg0KCgsMDAwMBwkODw0MDgsMDAz/2wBDAQICAgMDAwYD' + + 'AwYMCAcIDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwMDAwM' + + 'DAwMDAz/wAARCAAVABYDASIAAhEBAxEB/8QAHwAAAQUBAQEBAQEAAAAAAAAAAAECAwQF' + + 'BgcICQoL/8QAtRAAAgEDAwIEAwUFBAQAAAF9AQIDAAQRBRIhMUEGE1FhByJxFDKBkaEI' + + 'I0KxwRVS0fAkM2JyggkKFhcYGRolJicoKSo0NTY3ODk6Q0RFRkdISUpTVFVWV1hZWmNk' + + 'ZWZnaGlqc3R1dnd4eXqDhIWGh4iJipKTlJWWl5iZmqKjpKWmp6ipqrKztLW2t7i5usLD' + + 'xMXGx8jJytLT1NXW19jZ2uHi4+Tl5ufo6erx8vP09fb3+Pn6/8QAHwEAAwEBAQEBAQEB' + + 'AQAAAAAAAAECAwQFBgcICQoL/8QAtREAAgECBAQDBAcFBAQAAQJ3AAECAxEEBSExBhJB' + + 'UQdhcRMiMoEIFEKRobHBCSMzUvAVYnLRChYkNOEl8RcYGRomJygpKjU2Nzg5OkNERUZH' + + 'SElKU1RVVldYWVpjZGVmZ2hpanN0dXZ3eHl6goOEhYaHiImKkpOUlZaXmJmaoqOkpaan' + + 'qKmqsrO0tba3uLm6wsPExcbHyMnK0tPU1dbX2Nna4uPk5ebn6Onq8vP09fb3+Pn6/9oA' + + 'DAMBAAIRAxEAPwD6B/bw/wCClPxO/bC/actPhV8Bb3X9P07T9VksLK48O6j5V54nuk3o' + + '9x9phcKtkqh2T5xGUBmlb7qw8X45/wCCSn7SP7EPgnWPH/hrxVpcX9l2Mz6rN4R8R3Nj' + + 'e29hHG1xNI7SJb74l8lSURmctswhxkYPwS8ceIP+CK//AAUH1a38U6BdaxpJgm0ieUwi' + + 'CfVNHluEePULP94Y95NujbGdhlZYWZHBdPvb4/f8F1Pgn4J+F+p3XgjX7rxf4qkgli0y' + + 'zj0S7igiuDFIYpbgziAfZxIqBxG5kw/yqeSPzmjHDYpVa2ZVnGqm9L25fRdfl/wT+681' + + 'r59w7LL8q4CyyGIy6rCLdTkc1Wbd26s18G905aau2i5Yn/BGj/gofrH7ZHw+8QeHvHeq' + + 'Wt/4+8Lzi5E6wQWj6np8p+WQRxkBnik3I7JEiKsltnc7sSV88/8ABuf8ANTm8beOPinL' + + 'J5Oj29ifCtqm1G+2XEkkF1Mc79yeUscHVMP9p4bMbCivrOHq9atgITr766vdq+j/AK9T' + + '+bfG/KMqyzjLF4TKEo01ytxirRhJxTlFW0snrZaRvy6WsfoD+1N+wz8Mf2xtEaDxv4at' + + 'bvUUgMFprNt/o+qWICyhNk6/Myo0zuIpN8RcgtG2K+efBX/Bv18CfC3ia2v7678e+JLW' + + 'Ddv03UtWhjtrnKFRvNtBDKNpIYbZF5UZyMglFddfK8JWn7SrTTfp/Vz5jKPEPibK8I8D' + + 'l+Oq06X8qk7K/wDL/L/27bXXc+zfBXgbRfht4ZttF8O6PpegaPZbvs9hptpHa20G5y7b' + + 'I0AVcuzMcDksT1NFFFdySSsj5CpUnUm6lRtybu29W29233P/2Q=='; + TempBlob.FromBase64String(PictureBase64); + TempBlob.Blob.CREATEINSTREAM(ImageStream); + PartId := OpenXmlWordProcessingHelper.CreateDrawingFromStream(MainDocumentPart, 6, ImageStream, 'someimage', 209550, 209550, WordDrawing); + WordParagraph.Create; + WordRun.Create; + WordRun.AppendDrawing(WordDrawing); + WordParagraph.AppendRun(WordRun); + WordBody.AppendParagraph(WordParagraph); + EXIT(PartId); + END; + + LOCAL PROCEDURE CreateSampleHyperlink@17024440() : Text; + VAR + PartId@17024403 : Text; + BEGIN + PartId := OpenXmlWordProcessingHelper.CreateHyperLink('http://microsoft.com', 'My awesome link', MainDocumentPart, WordHyperlink); + WordParagraph.Create; + WordParagraph.AppendHyperlink(WordHyperlink); + WordBody.AppendParagraph(WordParagraph); + EXIT(PartId); + END; + + LOCAL PROCEDURE FinalizeAndGetDocumentOuterXml@17024451() : Text; + BEGIN + MainDocumentPart.GetDocument(WordDocument); + WordprocessingDocument.Close; + EXIT(WordDocument.GetOuterXml); + END; + + LOCAL PROCEDURE GetExampleDocxFileContentAsBase64@17024465() : Text; + BEGIN + EXIT( + 'UEsDBBQAAAAIAPtV8kwiRWpBhQUAAB8VAAARABwAd29yZC9kb2N1bWVudC54bWwgohgAKKAUAAAAAAAAAAAAAAAAAAAAAAAAAAA' + + 'A7Vjbcho5EP0V1TzbzIDBF8qQcrAdZ8txKDubd6HpAW00kiJpwNTWftk+7CftL2xLcwEcG1/iVO2Nh0EatVqnu09L0/rz9z+O39' + + 'zmgszBWK7kIGq3koiAZCrlcjqICpftHkZvhseLfqpYkYN0BOWl7S8G0cw53Y9jy2aQU9tSGiSOZcrk1GHXTOOFMqk2ioG1qC4Xc' + + 'SdJ9uOcchl5lROVLv2/9g/jH254qQzkhGtb5CRVQhliuSM0B7dDmJIWmANXGEJTrrllqJaA4K5FxoaC9fi+FjQntJgWsEMc5Lqw' + + 'hKcEFfiG3CGC4hLgyJyj1YYG+Ra5gZTMC6ELRx0Qwy1KC8oKu0NQNqWaT/CNMowTrYxz3CE0qWTrOPaw/dOEp75jkfdX32rKYBB' + + 'pgxDNHKLhGIRAsGC/FkA2VNSPcfibkLgcGG/TxlSeq1Tdq+iBKWamJFq3bW3+pLVzWqC3nrHyTojoYzZXyy/6xZNQeII8x/yMFi' + + 'xElBpWbAPDAgcX/TkVg+j8PMFf9CREK5Y8A5aeUQPO0Bb5QIGBpBbpyS0BQ13dUkhjJKbAjkaGhqECU8SRMhRbGKlLxL+w2iDmO' + + 'Whqg6rhbQCvMLegIGiWtwyXzTn2uUX6YR4Cz0CmmGUBEKpukVMlgRFKBJ8WglYvfbKZwhnMcbitEvCqkCwkKieFcIYzDph7c7AO' + + '4yRQ0mIOgsQ3YgdT0BZggKQFf9xcfeOWAmqTZ0D93taOSnp5C/0msujTDF0xiJJneOOcG+vIRanxZTg6r4HjBnBrTLcCcRMR/ko' + + '17O62e3LPpLgWvCv+wN40vOIMHtYTN6s/gOGSOye2KNiY8xwqDz/RyTbFFbK48VK9wiuedZvBv+TWjamhU0P1rGKALPJq3xVzUQ' + + 'smq8H3af2yXVvZTHmAPahL+lnWUeMGUS/C9ozKaTjb9/bvp9i9XPiv++RniabgjpP+75tvfOPB3e+WUuff3DudF3qnnfyL0+lHO' + + '+XjPzebfrRrHk6nRig1dIFKsKn7VLIZfoqlOOtTWNm33jatS1y43d1Lqu71qmt5rgWMlQ2yBgR1WBFdAJ/OEG2n197vHXa6ODSB' + + 'GRpyqljYSYRiXyANcwRdqsK9lyMsZsIYFUItPmJZJagOL6oI6qeEsDKqjt1mRE/LwSiY3CAntwHHsvG47uOXIXdYyl40Fp0blQ+' + + 'inJppSQZ0GX6MyqGAzPu57oZmM3tD1+c7unTDnVrsY5ZZcMOkVlL1N3R+DsJw63yRyhB5Jznq9RA4W67apRGQZVjnnpWiJQ9dGa' + + 'XwnKzZu0Acn5Q+kelb5ZzKq9dYrWMC8TREQWJ1NIisyoHndAqtnzRM6/nsav7Om8LZuUExz0Tan669ucR4W6x0R565cGI1IluLL' + + 'X1BaENaltzfDuB711hTdUodJVgevUCV5swVBj+zj7HV1w0sbH23Njkfc+Zt9h10RRW0ZEvQakk/LzjxGz0TwfU5F8Kb79vE9CGf' + + '+KS9PtzrHk6Sg72sy3rdZI8h+6y/8fDVBJeujqp5imEqy/CD/7S6FyqtKxNFSTvj2gb/I+EvrataZQR+7RyeJMlR5+3uqJeMdrv' + + 'JwdnuyVH3YPcgOTvoJt3D9qg9+q1kyEpBXBrjNVmHVTKb+WaGdl4jJSvhZiTedITvWV2S6zYzuf9H/Hc3kBLkluSMV9M11n7vAD' + + 'PONwaRQRDBYDpHuJVsLVPhKRHEFY2CxBo91/tlbpR7ezgBmi3/njNhttS45XL5xZ8vuMkrg6CxugbcMPqeTte0M0lpu82O0oOsC' + + '/u9V48zIjFKZWfG35U4xDOI0JL8xh991WG4XjqajfP4osZfSdZ3Lg4hwch3EOaGzKO3Lx+WhC7AZw/xk+6ep422tUqwvI2MVzed' + + 'w78AUEsDBAoAAAAAAPtV8kzdvdDvKgEAACoBAAALABwAX3JlbHMvLnJlbHMgohgAKKAUAAAAAAAAAAAAAAAAAAAAAAAAAAAA77u' + + '/PD94bWwgdmVyc2lvbj0iMS4wIiBlbmNvZGluZz0idXRmLTgiPz48UmVsYXRpb25zaGlwcyB4bWxucz0iaHR0cDovL3NjaGVtYX' + + 'Mub3BlbnhtbGZvcm1hdHMub3JnL3BhY2thZ2UvMjAwNi9yZWxhdGlvbnNoaXBzIj48UmVsYXRpb25zaGlwIFR5cGU9Imh0dHA6L' + + 'y9zY2hlbWFzLm9wZW54bWxmb3JtYXRzLm9yZy9vZmZpY2VEb2N1bWVudC8yMDA2L3JlbGF0aW9uc2hpcHMvb2ZmaWNlRG9jdW1l' + + 'bnQiIFRhcmdldD0iL3dvcmQvZG9jdW1lbnQueG1sIiBJZD0iUjE3Njg2MDlhYTI1YTQzZDIiIC8+PC9SZWxhdGlvbnNoaXBzPlB' + + 'LAwQUAAAACAD7VfJMpS2y0QABAAAFAwAADwAcAHdvcmQvc3R5bGVzLnhtbCCiGAAooBQAAAAAAAAAAAAAAAAAAAAAAAAAAADdkE' + + '1OwzAQha9ieU+dGohoVLc7JDZQiROYxE0s+U8zTtNwNRYciStgR0lXsKjEipXH7xu9N3pfH5/b/dkaclKA2jtB16uCEuVq32jXC' + + 'trH480D3e+2Q4VxNApJ2nZYDYJ2MYaKMaw7ZSWufFAusaMHK2P6QssGD00AXyvEZGYN40VRMiu1oxdDMlRxDErQIEG2IENHyYye' + + 'mhSiZD5kncW6x+jta0aCRujV5OKkzSYnaS7bJK2zzN4kqubFLfg532Zm5tQ5/gh6fQDtQcdxwZuimBkc4A8LqL3xsITwx/u7TTn' + + 'n4Psi3/JJYlP29E7dXNkfv64//n/64+Uv/S0T7r4BUEsDBBQAAAAIAPtV8kzPbDdeIwEAAPsCAAAcABwAd29yZC9fcmVscy9kb2' + + 'N1bWVudC54bWwucmVscyCiGAAooBQAAAAAAAAAAAAAAAAAAAAAAAAAAAC1krFSAyEQhl/lht7jCCSXOLmk0cLCJpMXIMtyhzngB' + + 'ogmz2bhI/kKMppo4ljYpGR/9uObZd9f3+bLve2LZwzReNcQVlakQAdeGdc2ZJf0zZQsF/MV9jLlG7EzQyxyi4sN6VIabimN0KGV' + + 'sfQDupxoH6xM+RhaOkjYyhbpqKomNJwzyCWzWB8G/A/Ra20A7zzsLLr0B5jGdOgxkmItQ4upIfTFB3WslplGigfVkFUNrAYNHBS' + + 'vBR9NSEGvpuR2doMhT/S31XdwJqaFqhnjgLxiAmbymmLG5t85k7KojPyqlk9DezSacjHdVDXXAsai4nBNoy6TQm/c9sfqiLUGgo' + + '9epxK8PaWPXuWH7/cJg5OnCcrRRknGYKZqLXAy/vSlFyu8+ABQSwMEFAAAAAgA+1XyTNORs9DlAAAA/AEAABIAHAB3b3JkL251b' + + 'WJlcmluZy54bWwgohgAKKAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAlZHBbgIhEIZfhZB47AIemmbj6s3ES0++AAuoJAxsgN313Tz0' + + 'kfoKHanbaKNNvTCZ/5/550v4PH0sVkdwZDAx2eAbKipOifEqaOv3De3z7uWNrpaLsfY9tCaiSnDBp3ps6CHnrmYsqYMBmarQGY/' + + 'eLkSQGdu4Z2OIuotBmZRwExybc/7KQFpPz5myTTlKld97IDfdRjeUlxE3OLQslklBkDVkFAeJWts7ZzIl7DK8NccfLxSZFb3Uqw' + + 'uXJFLe8znxm2ijpxw+5fjvvT+xxb+wtVEWpLvPPRPVM+Tzx+Tihpxd/eLyC1BLAwQUAAAACAD7VfJM33A5ZD4EAADtBAAADwAcA' + + 'G1lZGlhL2ltYWdlLmpwZyCiGAAooBQAAAAAAAAAAAAAAAAAAAAAAAAAAAD7f+P/AwYBLzdPNwZGRkaGBCBk+H+bwZmBiZERhKCA' + + 'mZUZBNhYWJhZ2dnY2UGYg5Obk4ODi4OdnYuXi4ubBwjYOfn4eXn4QGyQISDtIF1AxMPBzsFDMvh/gEGQg0GUQYyZUYmBSZCRWZD' + + 'x/xEGeQYGRlZGMGCAAkYmZhZWNqCTuLiBCrYKAJ3PzMwEdCwrCwtQthYoz8AiyCqkaOjIJhyYyK5UKGLUOHEhh7LTxoOiQRc/qB' + + 'gnFTVxcomJS0hKqaqpa2hqmZiamVtYWjm7uLq5e3h6BYeEhoVHREYlp6SmpWdkZhWXlJaVV1RWNbe0trV3dHZNmjxl6rTpM2bOW' + + 'rR4ydJly1esXLVp85at27bv2Lnr0OEjR48dP3Hy1KXLV65eu37j5q2Hjx4/efrs+YuXrz5++vzl67fvP37+AvmLkYGZEQaw+ksQ' + + '6C8mYBywsIP8xchUDlIgyMKqaMgm5BjInlgorGTUyCHiNHHhxoOcysZBH0STii5yiamYPFT9CPIa2GfEeayJLJ/BPYbw1y0GHmZ' + + 'GYOQxCzLYM/xi//bhP0PTlD9+fzfszzzt3xrPmF/6197v8tdIHZ11NtYrfobPU9/l++K7fGbrobWTVpT5z3ELkFyav2vDxzpLoE' + + 'avukv2G/mbSvvlf2QfjYqJv1lmbLfavKXGvTi5Oj9RJrfQpO+S6r4f008GBUrO2XZG8Zgb/0F9mYrmfxzr/zOwsl9d+yd4QWy2l' + + 'GdTrlKljxLnV1+56JaKr9z29yS+T87r3Ti3LSwicuLBkt+3H3//Ix78YH5Tnfir8jiO6+/2xD9aqTBN1+icrdA7DaUdhh5J0x6c' + + 'U5BPF9JiF9w5mf/Tyif95zKO83aFZqeFzsla9mXvzlrx+Ol/hH+vN10/v+DNpj+rGzadSDJ6taG71FLmatrd26tNP+SXPF227pZ' + + 'exPwPbv0/NOo2/k6psfvI3r6nfFXU/R+/D33unmh1kHXxq6qa5U8nuEsyztM0V97k0rFadVu59UbVms//Gdie/2G48uzj9j47zd' + + 'PqkxffvjGf69ayK/nbYjxVxINl3t+ZF3ScPeTw3+VtZ3I01q95+Orr6gRFq9+vV99d/eI/w/rgn9uP/VmsddritHjLKaFe01N3k' + + 'tZKeB61dI32Vl87beJ+vWkbfzH/Dq47bM9Tn5MruODj/ra1eV9FGg5mrrldv/jVNAWdhWZ++421TM490jQ/EtN0cZv28/ms9Qf3' + + 'xzPV6D7Kzv79er/cj0nXeG9/uesd1madPWdh4J7bjjyLMxXbbopPlTxxQlX0erz2obD5W1b7mr/8G/OzZ/ERO7VTH/qZpz9edXn' + + 'pn1V+p/4znP6z/9vbrdeL39xnrZB2/ZH7cHau+OFddtMXZHyL3nc+cdkt9+xctud6t5UdRIvenCmw1PEPdhUJL/LUVn6iFTLXc9' + + 'dU6aK8t3uj88vuF/+/CQBQSwMEFAAAAAgA+1XyTAV9750IAQAAlAIAABMAHABbQ29udGVudF9UeXBlc10ueG1sIKIYACigFAAAA' + + 'AAAAAAAAAAAAAAAAAAAAAAAAK2SPU7EMBCFr2K5RbEDBUIoyRZACxRcwDiTxLv+k8dZds9GwZG4ApMEpVgBEtKW9rz3vueRP98/' + + 'qs3BWbaHhCb4ml+KkjPwOrTG9zUfc1fc8E1TvRwjICOpx5oPOcdbKVEP4BSKEMHTpAvJqUzH1Muo9E71IK/K8lrq4DP4XOQpgzf' + + 'VPXRqtJk9HOh6wZKds7tFN6FqrmK0RqtMY7n37QmkCF1nNLRBj44s4i2kNqagAZF6OyvWiVPGX8zx8kdyAov/Q3+/TZBz1uBgIv' + + '6F2Mb+hGDctJxthH72PNH6k2mBPauUH5UjhZxeJDEfLaA4+3aW3LXzr3w/uldI5Dl/hTV6bSHnP9Z8AVBLAQItABQAAAAIAPtV8' + + 'kwiRWpBhQUAAB8VAAARAAAAAAAAAAAAAAAAAAAAAAB3b3JkL2RvY3VtZW50LnhtbFBLAQItAAoAAAAAAPtV8kzdvdDvKgEAACoB' + + 'AAALAAAAAAAAAAAAAAAAANAFAABfcmVscy8ucmVsc1BLAQItABQAAAAIAPtV8kylLbLRAAEAAAUDAAAPAAAAAAAAAAAAAAAAAD8' + + 'HAAB3b3JkL3N0eWxlcy54bWxQSwECLQAUAAAACAD7VfJMz2w3XiMBAAD7AgAAHAAAAAAAAAAAAAAAAACICAAAd29yZC9fcmVscy' + + '9kb2N1bWVudC54bWwucmVsc1BLAQItABQAAAAIAPtV8kzTkbPQ5QAAAPwBAAASAAAAAAAAAAAAAAAAAAEKAAB3b3JkL251bWJlc' + + 'mluZy54bWxQSwECLQAUAAAACAD7VfJM33A5ZD4EAADtBAAADwAAAAAAAAAAAAAAAAAyCwAAbWVkaWEvaW1hZ2UuanBnUEsBAi0A' + + 'FAAAAAgA+1XyTAV9750IAQAAlAIAABMAAAAAAAAAAAAAAAAAuQ8AAFtDb250ZW50X1R5cGVzXS54bWxQSwUGAAAAAAcABwC9AQA' + + 'ADhEAAAAA'); + END; + + BEGIN + END. + } +} + From a3690f53f42dc6f52bff334bbe7a1e7a2d240350 Mon Sep 17 00:00:00 2001 From: Karolis Uosis Date: Tue, 18 Sep 2018 17:56:54 +0300 Subject: [PATCH 2/6] WordProcessingDocumentType moved to separate wrapper, fixed IDs --- BaseApp/COD50018.TXT | 24 ++++---- BaseApp/COD50068.TXT | 144 ++++++++++++++++++++++--------------------- BaseApp/COD50077.TXT | 45 ++++++++++++++ 3 files changed, 130 insertions(+), 83 deletions(-) create mode 100644 BaseApp/COD50077.TXT diff --git a/BaseApp/COD50018.TXT b/BaseApp/COD50018.TXT index f022ccc..c18ad82 100644 --- a/BaseApp/COD50018.TXT +++ b/BaseApp/COD50018.TXT @@ -15,21 +15,21 @@ OBJECT Codeunit 50018 DotNet_WordprocessingDocument CODE { VAR - DotNetWordprocessingDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"; - DotNetMemoryStream@17024402 : DotNet "'mscorlib'.System.IO.MemoryStream"; + DotNetWordprocessingDocument@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"; + DotNetMemoryStream@1001 : DotNet "'mscorlib'.System.IO.MemoryStream"; [External] - PROCEDURE Create@17024401(DocumentType@17024401 : 'Document,Template,MacroEnabledDocument,MacroEnabledTemplate';AutoSave@17024403 : Boolean); + PROCEDURE Create@1(DocumentType@1001 : Codeunit 50077;AutoSave@1002 : Boolean); VAR - DotNetWordprocessingDocumentType@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.WordprocessingDocumentType"; + DotNetWordprocessingDocumentType@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.WordprocessingDocumentType"; BEGIN DotNetMemoryStream := DotNetMemoryStream.MemoryStream; - DotNetWordprocessingDocumentType := DotNetWordprocessingDocumentType.Parse(GETDOTNETTYPE(DotNetWordprocessingDocumentType), FORMAT(DocumentType, 0)); + DocumentType.GetWordProcessingDocumentType(DotNetWordprocessingDocumentType); DotNetWordprocessingDocument := DotNetWordprocessingDocument.Create(DotNetMemoryStream, DotNetWordprocessingDocumentType, AutoSave); END; [External] - PROCEDURE Open@17024402(DocumentStream@17024401 : InStream;Editable@17024400 : Boolean); + PROCEDURE Open@2(DocumentStream@1000 : InStream;Editable@1001 : Boolean); BEGIN DotNetMemoryStream := DotNetMemoryStream.MemoryStream; COPYSTREAM(DotNetMemoryStream, DocumentStream); @@ -38,35 +38,35 @@ OBJECT Codeunit 50018 DotNet_WordprocessingDocument END; [External] - PROCEDURE Close@17024407(); + PROCEDURE Close@3(); BEGIN DotNetWordprocessingDocument.Close; END; [External] - PROCEDURE Save@17024408(ResultStream@17024400 : OutStream); + PROCEDURE Save@4(ResultStream@1000 : OutStream); BEGIN COPYSTREAM(ResultStream, DotNetMemoryStream); END; [External] - PROCEDURE AddMainDocumentPart@17024404(VAR MainDocumentPart@17024400 : Codeunit 50019); + PROCEDURE AddMainDocumentPart@5(VAR MainDocumentPart@1000 : Codeunit 50019); BEGIN MainDocumentPart.SetMainDocumentPart(DotNetWordprocessingDocument.AddMainDocumentPart); END; [External] - PROCEDURE GetMainDocumentPart@17024406(VAR MainDocumentPart@17024400 : Codeunit 50019); + PROCEDURE GetMainDocumentPart@6(VAR MainDocumentPart@1000 : Codeunit 50019); BEGIN MainDocumentPart.SetMainDocumentPart(DotNetWordprocessingDocument.MainDocumentPart); END; - PROCEDURE SetWordProcessingDocument@17024400(NewWordprocessingDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"); + PROCEDURE SetWordProcessingDocument@7(VAR NewWordprocessingDocument@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"); BEGIN DotNetWordprocessingDocument := NewWordprocessingDocument; END; - PROCEDURE GetWordProcessingDocument@17024403(VAR CurrentWordprocessingDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"); + PROCEDURE GetWordProcessingDocument@8(VAR CurrentWordprocessingDocument@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"); BEGIN CurrentWordprocessingDocument := DotNetWordprocessingDocument; END; diff --git a/BaseApp/COD50068.TXT b/BaseApp/COD50068.TXT index 9b5234c..9b98ebc 100644 --- a/BaseApp/COD50068.TXT +++ b/BaseApp/COD50068.TXT @@ -16,24 +16,26 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper { [External] - PROCEDURE CloneStyleRunProperties@17024400(VAR OriginalWordStyleRunProperties@17024400 : Codeunit 50037;VAR ClonedWordStyleRunProperties@17024401 : Codeunit 50037); + PROCEDURE CloneStyleRunProperties@1(VAR OriginalWordStyleRunProperties@1000 : Codeunit 50037;VAR ClonedWordStyleRunProperties@1001 : Codeunit 50037); BEGIN ClonedWordStyleRunProperties.CreateFromOuterXml(OriginalWordStyleRunProperties.GetOuterXml); END; [External] - PROCEDURE CloneParagraphProperties@17024403(VAR OriginalWordParagraphProperties@17024400 : Codeunit 50026;VAR ClonedWordParagraphProperties@17024401 : Codeunit 50026); + PROCEDURE CloneParagraphProperties@2(VAR OriginalWordParagraphProperties@1000 : Codeunit 50026;VAR ClonedWordParagraphProperties@1001 : Codeunit 50026); BEGIN ClonedWordParagraphProperties.CreateFromOuterXml(OriginalWordParagraphProperties.GetOuterXml); END; [External] - PROCEDURE CreateEmptyDocument@17024402(DocumentType@17024401 : 'Document,Template,MacroEnabledDocument,MacroEnabledTemplate';VAR CreatedWordprocessingDocument@17024400 : Codeunit 50018;VAR MainDocumentPart@17024402 : Codeunit 50019;VAR WordBody@17024404 : Codeunit 50021); + PROCEDURE CreateEmptyDocument@3(DocumentType@1000 : 'Document,Template,MacroEnabledDocument,MacroEnabledTemplate';VAR CreatedWordprocessingDocument@1001 : Codeunit 50018;VAR MainDocumentPart@1002 : Codeunit 50019;VAR WordBody@1003 : Codeunit 50021); VAR - WordDocument@17024403 : Codeunit 50020; + WordDocument@1004 : Codeunit 50020; + WordProcessingDocumentType@1005 : Codeunit 50077; BEGIN //Helper for creating an empty document and initiating required parts - CreatedWordprocessingDocument.Create(DocumentType, TRUE); + WordProcessingDocumentType.Create(DocumentType); + CreatedWordprocessingDocument.Create(WordProcessingDocumentType, TRUE); CreatedWordprocessingDocument.AddMainDocumentPart(MainDocumentPart); WordDocument.Create; MainDocumentPart.SetDocument(WordDocument); @@ -42,15 +44,15 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper END; [External] - PROCEDURE CreateHyperLink@17024401(Url@17024400 : Text;TextValue@17024401 : Text;VAR MainDocumentPart@17024402 : Codeunit 50019;VAR CreatedWordHyperlink@17024403 : Codeunit 50035) : Text; + PROCEDURE CreateHyperLink@4(Url@1000 : Text;TextValue@1001 : Text;VAR MainDocumentPart@1002 : Codeunit 50019;VAR CreatedWordHyperlink@1003 : Codeunit 50035) : Text; VAR - HyperlinkRelationship@17024404 : Codeunit 50034; - HrContactId@17024405 : Text; - WordProofError@17024406 : Codeunit 50033; - WordRunProperties@17024407 : Codeunit 50025; - WordColor@17024408 : Codeunit 50036; - WordText@17024409 : Codeunit 50024; - WordRun@17024410 : Codeunit 50023; + HyperlinkRelationship@1004 : Codeunit 50034; + HrContactId@1005 : Text; + WordProofError@1006 : Codeunit 50033; + WordRunProperties@1007 : Codeunit 50025; + WordColor@1008 : Codeunit 50036; + WordText@1009 : Codeunit 50024; + WordRun@1010 : Codeunit 50023; BEGIN //Helper for creating new hyperlink element MainDocumentPart.AddHyperlinkRelationship(Url, TRUE, HyperlinkRelationship); @@ -77,11 +79,11 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper END; [External] - PROCEDURE AddParagraphStyleToDocument@17024409(VAR MainDocumentPart@17024403 : Codeunit 50019;StyleId@17024402 : Text;StyleName@17024401 : Text;VAR WordStyleRunProperties@17024400 : Codeunit 50037) ActualStyleId : Text; + PROCEDURE AddParagraphStyleToDocument@5(VAR MainDocumentPart@1000 : Codeunit 50019;StyleId@1001 : Text;StyleName@1002 : Text;VAR WordStyleRunProperties@1003 : Codeunit 50037) ActualStyleId : Text; VAR - WordStyleDefinitionPart@17024405 : Codeunit 50041; - StyleIdFromName@17024404 : Text; - WordStyles@17024406 : Codeunit 50039; + WordStyleDefinitionPart@1004 : Codeunit 50041; + StyleIdFromName@1005 : Text; + WordStyles@1006 : Codeunit 50039; BEGIN //Helper for adding new paragraph style //Based on: https://msdn.microsoft.com/en-us/library/cc850838.aspx @@ -107,10 +109,10 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper END; [External] - PROCEDURE AddNumberingTypeToDocument@17024407(VAR MainDocumentPart@17024403 : Codeunit 50019;NumberingId@17024402 : Integer;FormatType@17024401 : Integer;FormatText@17024400 : Text); + PROCEDURE AddNumberingTypeToDocument@6(VAR MainDocumentPart@1000 : Codeunit 50019;NumberingId@1001 : Integer;FormatType@1002 : Integer;FormatText@1003 : Text); VAR - WordNumberingDefinitionsPart@17024405 : Codeunit 50070; - WordNumbering@17024406 : Codeunit 50071; + WordNumberingDefinitionsPart@1004 : Codeunit 50070; + WordNumbering@1005 : Codeunit 50071; BEGIN //Helper for adding new numbering type IF NOT MainDocumentPart.HasNumberingDefinitionsPart THEN @@ -128,7 +130,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper END; [External] - PROCEDURE CreateBulletListProperties@17024408(VAR MainDocumentPart@17024400 : Codeunit 50019;VAR WordParagraphProperties@17024403 : Codeunit 50026;LeftIndentation@17024402 : Text); + PROCEDURE CreateBulletListProperties@7(VAR MainDocumentPart@1000 : Codeunit 50019;VAR WordParagraphProperties@1001 : Codeunit 50026;LeftIndentation@1002 : Text); BEGIN //Helper for creating bullet list paragraph properties AddNumberingTypeToDocument(MainDocumentPart, 0, 23, 'o'); @@ -136,7 +138,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper END; [External] - PROCEDURE CreateOrderedListProperties@17024411(VAR MainDocumentPart@17024400 : Codeunit 50019;VAR WordParagraphProperties@17024403 : Codeunit 50026;LeftIndentation@17024402 : Text); + PROCEDURE CreateOrderedListProperties@8(VAR MainDocumentPart@1000 : Codeunit 50019;VAR WordParagraphProperties@1001 : Codeunit 50026;LeftIndentation@1002 : Text); BEGIN //Helper for creating ordered list paragraph properties AddNumberingTypeToDocument(MainDocumentPart, 1, 0, '%1.'); @@ -144,10 +146,10 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper END; [External] - PROCEDURE CreateDrawingFromStream@17024425(VAR MainDocumentPart@17024400 : Codeunit 50019;ImagePartType@17024405 : 'Bmp,Gif,Png,Tiff,Icon,Pcx,Jpeg,Emf,Wmf';ImageStream@17024401 : InStream;Name@17024402 : Text;Width@17024403 : Integer;Height@17024404 : Integer;VAR CreatedWordDrawing@17024408 : Codeunit 50043) : Text; + PROCEDURE CreateDrawingFromStream@9(VAR MainDocumentPart@1000 : Codeunit 50019;ImagePartType@1001 : 'Bmp,Gif,Png,Tiff,Icon,Pcx,Jpeg,Emf,Wmf';ImageStream@1002 : InStream;Name@1003 : Text;Width@1004 : Integer;Height@1005 : Integer;VAR CreatedWordDrawing@1006 : Codeunit 50043) : Text; VAR - WordImagePart@17024406 : Codeunit 50042; - RelationshipId@17024407 : Text; + WordImagePart@1007 : Codeunit 50042; + RelationshipId@1008 : Text; BEGIN //Helper for adding picture from stream to document //Based on: https://msdn.microsoft.com/en-us/library/office/bb497430.aspx @@ -158,17 +160,17 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper EXIT(RelationshipId); END; - LOCAL PROCEDURE CreateDrawing@17024414(RelationshipId@17024400 : Text;Name@17024401 : Text;Cx@17024402 : Integer;Cy@17024403 : Integer;Position@17024404 : Text;VAR CreatedWordDrawing@17024405 : Codeunit 50043); + LOCAL PROCEDURE CreateDrawing@10(RelationshipId@1000 : Text;Name@1001 : Text;Cx@1002 : Integer;Cy@1003 : Integer;Position@1004 : Text;VAR CreatedWordDrawing@1005 : Codeunit 50043); VAR - WordAnchor@17024406 : Codeunit 50044; - ActualPosition@17024407 : Text; - WordHorizontalPosition@17024408 : Codeunit 50046; - WordVerticalPosition@17024409 : Codeunit 50045; - WordWrapSquare@17024410 : Codeunit 50047; - WordWrapTopBottom@17024411 : Codeunit 50048; - WordDocProperties@17024412 : Codeunit 50049; - WordGraphicFrameLocks@17024413 : Codeunit 50050; - WordPicture@17024414 : Codeunit 50051; + WordAnchor@1006 : Codeunit 50044; + ActualPosition@1007 : Text; + WordHorizontalPosition@1008 : Codeunit 50046; + WordVerticalPosition@1009 : Codeunit 50045; + WordWrapSquare@1010 : Codeunit 50047; + WordWrapTopBottom@1011 : Codeunit 50048; + WordDocProperties@1012 : Codeunit 50049; + WordGraphicFrameLocks@1013 : Codeunit 50050; + WordPicture@1014 : Codeunit 50051; BEGIN ActualPosition := Position; IF ActualPosition = '' THEN @@ -221,18 +223,18 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper CreatedWordDrawing.AppendAnchor(WordAnchor); END; - LOCAL PROCEDURE CreatePicture@17024418(RelationshipId@17024413 : Text;Name@17024409 : Text;Cx@17024406 : Integer;Cy@17024407 : Integer;VAR WordPicture@17024400 : Codeunit 50051); + LOCAL PROCEDURE CreatePicture@11(RelationshipId@1000 : Text;Name@1001 : Text;Cx@1002 : Integer;Cy@1003 : Integer;VAR WordPicture@1004 : Codeunit 50051); VAR - WordBlipFill@17024401 : Codeunit 50054; - WordShapeProperties@17024402 : Codeunit 50053; - WordNonVisualPictureProperties@17024403 : Codeunit 50052; - WordPresetGeometry@17024404 : Codeunit 50061; - WordTransform2D@17024405 : Codeunit 50060; - WordNonVisualDrawingProperties@17024408 : Codeunit 50055; - WordNonVisualPictureDrawingProperties@17024410 : Codeunit 50056; - WordBlip@17024411 : Codeunit 50057; - WordStretch@17024412 : Codeunit 50058; - WordBlipExtensionList@17024414 : Codeunit 50059; + WordBlipFill@1005 : Codeunit 50054; + WordShapeProperties@1006 : Codeunit 50053; + WordNonVisualPictureProperties@1007 : Codeunit 50052; + WordPresetGeometry@1008 : Codeunit 50061; + WordTransform2D@1009 : Codeunit 50060; + WordNonVisualDrawingProperties@1010 : Codeunit 50055; + WordNonVisualPictureDrawingProperties@1011 : Codeunit 50056; + WordBlip@1012 : Codeunit 50057; + WordStretch@1013 : Codeunit 50058; + WordBlipExtensionList@1014 : Codeunit 50059; BEGIN WordPicture.Create; WordBlipFill.Create; @@ -267,11 +269,11 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordPicture.SetShapeProperties(WordShapeProperties); END; - LOCAL PROCEDURE AddNewParagraphStyle@17024404(VAR WordStyleDefinitionPart@17024400 : Codeunit 50041;StyleId@17024401 : Text;StyleName@17024402 : Text;VAR WordStyleRunProperties@17024403 : Codeunit 50037); + LOCAL PROCEDURE AddNewParagraphStyle@12(VAR WordStyleDefinitionPart@1000 : Codeunit 50041;StyleId@1001 : Text;StyleName@1002 : Text;VAR WordStyleRunProperties@1003 : Codeunit 50037); VAR - WordStyles@17024404 : Codeunit 50039; - WordStyle@17024405 : Codeunit 50038; - ClonedWordStyleRunProperties@17024406 : Codeunit 50037; + WordStyles@1004 : Codeunit 50039; + WordStyle@1005 : Codeunit 50038; + ClonedWordStyleRunProperties@1006 : Codeunit 50037; BEGIN WordStyleDefinitionPart.GetStyles(WordStyles); WordStyle.Create; @@ -287,12 +289,12 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordStyles.AppendStyle(WordStyle); END; - LOCAL PROCEDURE AddNewNumberingType@17024412(VAR WordNumberingDefinitionPart@17024400 : Codeunit 50070;Id@17024401 : Integer;Type@17024402 : Integer;Text@17024407 : Text); + LOCAL PROCEDURE AddNewNumberingType@13(VAR WordNumberingDefinitionPart@1000 : Codeunit 50070;Id@1001 : Integer;Type@1002 : Integer;Text@1003 : Text); VAR - WordNumbering@17024404 : Codeunit 50071; - WordAbstractNum@17024405 : Codeunit 50072; - WordNumberingLevel@17024403 : Codeunit 50073; - WordNumberingInstance@17024406 : Codeunit 50074; + WordNumbering@1004 : Codeunit 50071; + WordAbstractNum@1005 : Codeunit 50072; + WordNumberingLevel@1006 : Codeunit 50073; + WordNumberingInstance@1007 : Codeunit 50074; BEGIN WordNumberingDefinitionPart.GetNumbering(WordNumbering); WordAbstractNum.Create; @@ -309,11 +311,11 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordNumbering.AppendNumberingInstance(WordNumberingInstance); END; - LOCAL PROCEDURE CreateParagraphPropertiesForList@17024413(VAR WordParagraphProperties@17024400 : Codeunit 50026;LeftIndentation@17024404 : Text;NumberingLevelReference@17024405 : Integer;NumberingId@17024406 : Integer); + LOCAL PROCEDURE CreateParagraphPropertiesForList@14(VAR WordParagraphProperties@1000 : Codeunit 50026;LeftIndentation@1001 : Text;NumberingLevelReference@1002 : Integer;NumberingId@1003 : Integer); VAR - WordSpacingBetweenLines@17024401 : Codeunit 50030; - WordIndentation@17024402 : Codeunit 50031; - WordNumberingProperties@17024403 : Codeunit 50032; + WordSpacingBetweenLines@1004 : Codeunit 50030; + WordIndentation@1005 : Codeunit 50031; + WordNumberingProperties@1006 : Codeunit 50032; BEGIN WordParagraphProperties.Create; WordSpacingBetweenLines.Create; @@ -330,11 +332,11 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordParagraphProperties.SetParagraphStyleId('ListParagraph'); END; - LOCAL PROCEDURE IsParagraphStyleIdInDocument@17024405(VAR WordStyleDefinitionPart@17024400 : Codeunit 50041;StyleId@17024401 : Text) : Boolean; + LOCAL PROCEDURE IsParagraphStyleIdInDocument@15(VAR WordStyleDefinitionPart@1000 : Codeunit 50041;StyleId@1001 : Text) : Boolean; VAR - WordStyles@17024403 : Codeunit 50039; - WordStyle@17024404 : Codeunit 50038; - WordStylesEnumerator@17024405 : Codeunit 50040; + WordStyles@1002 : Codeunit 50039; + WordStyle@1003 : Codeunit 50038; + WordStylesEnumerator@1004 : Codeunit 50040; BEGIN WordStyleDefinitionPart.GetStyles(WordStyles); WordStyles.GetStyleEnumerator(WordStylesEnumerator); @@ -348,11 +350,11 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper EXIT(FALSE); END; - LOCAL PROCEDURE GetParagraphStyleIdFromStyleName@17024406(VAR WordStyleDefinitionPart@17024400 : Codeunit 50041;StyleName@17024401 : Text) : Text; + LOCAL PROCEDURE GetParagraphStyleIdFromStyleName@16(VAR WordStyleDefinitionPart@1000 : Codeunit 50041;StyleName@1001 : Text) : Text; VAR - WordStyles@17024404 : Codeunit 50039; - WordStyle@17024403 : Codeunit 50038; - WordStylesEnumerator@17024402 : Codeunit 50040; + WordStyles@1002 : Codeunit 50039; + WordStyle@1003 : Codeunit 50038; + WordStylesEnumerator@1004 : Codeunit 50040; BEGIN WordStyleDefinitionPart.GetStyles(WordStyles); WordStyles.GetStyleEnumerator(WordStylesEnumerator); @@ -366,11 +368,11 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper EXIT(''); END; - LOCAL PROCEDURE IsNumberingTypeIdInDocument@17024410(VAR WordNumberingDefinitionPart@17024400 : Codeunit 50070;Id@17024401 : Integer) : Boolean; + LOCAL PROCEDURE IsNumberingTypeIdInDocument@17(VAR WordNumberingDefinitionPart@1000 : Codeunit 50070;Id@1001 : Integer) : Boolean; VAR - WordNumbering@17024403 : Codeunit 50071; - WordAbstractNum@17024404 : Codeunit 50072; - WordAbstractNumEnumerator@17024405 : Codeunit 50075; + WordNumbering@1002 : Codeunit 50071; + WordAbstractNum@1003 : Codeunit 50072; + WordAbstractNumEnumerator@1004 : Codeunit 50075; BEGIN WordNumberingDefinitionPart.GetNumbering(WordNumbering); WordNumbering.GetAbstractNumEnumerator(WordAbstractNumEnumerator); diff --git a/BaseApp/COD50077.TXT b/BaseApp/COD50077.TXT new file mode 100644 index 0000000..bfdf396 --- /dev/null +++ b/BaseApp/COD50077.TXT @@ -0,0 +1,45 @@ +OBJECT Codeunit 50077 DotNet_WordProcDocumentType +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetWordprocessingDocumentType@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.WordprocessingDocumentType"; + + [External] + PROCEDURE Create@1(DocumentType@1000 : 'Document,Template,MacroEnabledDocument,MacroEnabledTemplate'); + BEGIN + CASE DocumentType OF + DocumentType::Document: DotNetWordprocessingDocumentType := DotNetWordprocessingDocumentType.Document; + DocumentType::MacroEnabledDocument: DotNetWordprocessingDocumentType := DotNetWordprocessingDocumentType.MacroEnabledDocument; + DocumentType::MacroEnabledTemplate: DotNetWordprocessingDocumentType := DotNetWordprocessingDocumentType.MacroEnabledTemplate; + DocumentType::Template: DotNetWordprocessingDocumentType := DotNetWordprocessingDocumentType.Template; + END; + END; + + PROCEDURE SetWordProcessingDocumentType@2(VAR NewDotNetWordprocessingDocumentType@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.WordprocessingDocumentType"); + BEGIN + DotNetWordprocessingDocumentType := NewDotNetWordprocessingDocumentType; + END; + + PROCEDURE GetWordProcessingDocumentType@3(VAR CurrentDotNetWordprocessingDocumentType@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.WordprocessingDocumentType"); + BEGIN + CurrentDotNetWordprocessingDocumentType := DotNetWordprocessingDocumentType; + END; + + BEGIN + END. + } +} + From 95f6077882fae4c855e6e618f87fa2dfc2312c42 Mon Sep 17 00:00:00 2001 From: Karolis Uosis Date: Sat, 22 Sep 2018 23:42:17 +0300 Subject: [PATCH 3/6] Renumbered IDs, wrappers for OpenXmlEnumValue, ImagePartType and SpaceProcessingModeValues --- BaseApp/COD50018.TXT | 12 ++- BaseApp/COD50019.TXT | 64 ++++++------ BaseApp/COD50020.TXT | 25 ++--- BaseApp/COD50021.TXT | 41 ++++---- BaseApp/COD50022.TXT | 36 +++---- BaseApp/COD50023.TXT | 38 ++++---- BaseApp/COD50024.TXT | 37 ++++--- BaseApp/COD50041.TXT | 6 ++ BaseApp/COD50062.TXT | 17 ++-- BaseApp/COD50063.TXT | 17 ++-- BaseApp/COD50064.TXT | 17 ++-- BaseApp/COD50065.TXT | 17 ++-- BaseApp/COD50066.TXT | 17 ++-- BaseApp/COD50068.TXT | 48 ++++++--- BaseApp/COD50070.TXT | 6 ++ BaseApp/COD50075.TXT | 17 ++-- BaseApp/COD50076.TXT | 17 ++-- BaseApp/COD50078.TXT | 50 ++++++++++ BaseApp/COD50079.TXT | 53 ++++++++++ BaseApp/COD50080.TXT | 34 +++++++ Test/COD50069.TXT | 228 +++++++++++++++++++++++-------------------- 21 files changed, 501 insertions(+), 296 deletions(-) create mode 100644 BaseApp/COD50078.TXT create mode 100644 BaseApp/COD50079.TXT create mode 100644 BaseApp/COD50080.TXT diff --git a/BaseApp/COD50018.TXT b/BaseApp/COD50018.TXT index c18ad82..9d721fe 100644 --- a/BaseApp/COD50018.TXT +++ b/BaseApp/COD50018.TXT @@ -51,14 +51,20 @@ OBJECT Codeunit 50018 DotNet_WordprocessingDocument [External] PROCEDURE AddMainDocumentPart@5(VAR MainDocumentPart@1000 : Codeunit 50019); + VAR + DotNetMainDocumentPart@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"; BEGIN - MainDocumentPart.SetMainDocumentPart(DotNetWordprocessingDocument.AddMainDocumentPart); + DotNetMainDocumentPart := DotNetWordprocessingDocument.AddMainDocumentPart; + MainDocumentPart.SetMainDocumentPart(DotNetMainDocumentPart); END; [External] - PROCEDURE GetMainDocumentPart@6(VAR MainDocumentPart@1000 : Codeunit 50019); + PROCEDURE MainDocumentPart@6(VAR MainDocumentPart@1000 : Codeunit 50019); + VAR + DotNetMainDocumentPart@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"; BEGIN - MainDocumentPart.SetMainDocumentPart(DotNetWordprocessingDocument.MainDocumentPart); + DotNetMainDocumentPart := DotNetWordprocessingDocument.MainDocumentPart; + MainDocumentPart.SetMainDocumentPart(DotNetMainDocumentPart); END; PROCEDURE SetWordProcessingDocument@7(VAR NewWordprocessingDocument@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.WordprocessingDocument"); diff --git a/BaseApp/COD50019.TXT b/BaseApp/COD50019.TXT index 14dfbcb..fc993e3 100644 --- a/BaseApp/COD50019.TXT +++ b/BaseApp/COD50019.TXT @@ -15,32 +15,33 @@ OBJECT Codeunit 50019 DotNet_Word.MainDocumentPart CODE { VAR - DotNetMainDocumentPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetMainDocumentPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; - PROCEDURE SetMainDocumentPart@17024411(NewMainDocumentPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"); + PROCEDURE SetMainDocumentPart@1(VAR NewMainDocumentPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"); BEGIN DotNetMainDocumentPart := NewMainDocumentPart; END; - PROCEDURE GetMainDocumentPart@17024400(VAR CurrentMainDocumentPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"); + PROCEDURE GetMainDocumentPart@2(VAR CurrentMainDocumentPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart"); BEGIN CurrentMainDocumentPart := DotNetMainDocumentPart; END; [External] - PROCEDURE AddHyperlinkRelationship@17024403(Url@17024400 : Text;IsExternal@17024401 : Boolean;VAR CreatedHyperlinkRelationship@17024402 : Codeunit 50034); + PROCEDURE AddHyperlinkRelationship@3(VAR Uri@1000 : Codeunit 3024;IsExternal@1001 : Boolean;VAR CreatedHyperlinkRelationship@1002 : Codeunit 50034); VAR - DotNetUri@17024403 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Uri"; + DotNetUri@1003 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Uri"; BEGIN - CreatedHyperlinkRelationship.SetHyperlinkRelationship(DotNetMainDocumentPart.AddHyperlinkRelationship(DotNetUri.Uri(Url), IsExternal)); + Uri.GetUri(DotNetUri); + CreatedHyperlinkRelationship.SetHyperlinkRelationship(DotNetMainDocumentPart.AddHyperlinkRelationship(DotNetUri, IsExternal)); END; [External] - PROCEDURE AddNumberingDefinitionsPart@17024409(VAR CreatedNumberingDefinitionsPart@17024402 : Codeunit 50070); + PROCEDURE AddNumberingDefinitionsPart@4(VAR CreatedNumberingDefinitionsPart@1000 : Codeunit 50070); VAR - DotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; - DotNetObject@17024405 : DotNet "'mscorlib'.System.Object"; + DotNetNumberingDefinitionsPart@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; + DotNetObject@1002 : DotNet "'mscorlib'.System.Object"; BEGIN //Normally is should have been something as simple as: //DotNetNumberingDefinitionsPart := DotNetMainDocumentPart.AddNewPart(); @@ -50,22 +51,16 @@ OBJECT Codeunit 50019 DotNet_Word.MainDocumentPart END; [External] - PROCEDURE HasNumberingDefinitionsPart@17024412() : Boolean; - BEGIN - EXIT(NOT ISNULL(DotNetMainDocumentPart.NumberingDefinitionsPart)); - END; - - [External] - PROCEDURE GetNumberingDefinitionsPart@17024414(VAR WordNumberingDefinitionPart@17024400 : Codeunit 50070); + PROCEDURE NumberingDefinitionsPart@6(VAR WordNumberingDefinitionPart@1000 : Codeunit 50070); BEGIN WordNumberingDefinitionPart.SetNumberingDefinitionsPart(DotNetMainDocumentPart.NumberingDefinitionsPart); END; [External] - PROCEDURE AddStyleDefinitionsPart@17024404(VAR CreatedStyleDefinitionsPart@17024402 : Codeunit 50041); + PROCEDURE AddStyleDefinitionsPart@7(VAR CreatedStyleDefinitionsPart@1000 : Codeunit 50041); VAR - DotNetStyleDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"; - DotNetObject@17024405 : DotNet "'mscorlib'.System.Object"; + DotNetStyleDefinitionsPart@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"; + DotNetObject@1002 : DotNet "'mscorlib'.System.Object"; BEGIN //Normally is should have been something as simple as: //DotNetStyleDefinitionsPart := DotNetMainDocumentPart.AddNewPart(); @@ -75,48 +70,45 @@ OBJECT Codeunit 50019 DotNet_Word.MainDocumentPart END; [External] - PROCEDURE HasStyleDefinitionsPart@17024405() : Boolean; - BEGIN - EXIT(NOT ISNULL(DotNetMainDocumentPart.StyleDefinitionsPart)); - END; - - [External] - PROCEDURE GetStyleDefinitionsPart@17024408(VAR WordStyleDefinitionPart@17024400 : Codeunit 50041); + PROCEDURE StyleDefinitionsPart@9(VAR WordStyleDefinitionPart@1000 : Codeunit 50041); BEGIN WordStyleDefinitionPart.SetStyleDefinitionsPart(DotNetMainDocumentPart.StyleDefinitionsPart); END; [External] - PROCEDURE AddImagePart@17024406(ImagePartType@17024400 : 'Bmp,Gif,Png,Tiff,Icon,Pcx,Jpeg,Emf,Wmf';VAR CreatedImagePart@17024402 : Codeunit 50042); + PROCEDURE AddImagePart@10(VAR ImagePartType@1000 : Codeunit 50078;VAR CreatedImagePart@1001 : Codeunit 50042); VAR - DotNetImagePartType@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePartType"; + DotNetImagePartType@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePartType"; BEGIN - DotNetImagePartType := DotNetImagePartType.Parse(GETDOTNETTYPE(DotNetImagePartType), FORMAT(ImagePartType, 0)); + ImagePartType.GetImagePartType(DotNetImagePartType); CreatedImagePart.SetImagePart(DotNetMainDocumentPart.AddImagePart(DotNetImagePartType)); END; [External] - PROCEDURE GetIdOfImagePart@17024407(VAR ImagePart@17024402 : Codeunit 50042) : Text; + PROCEDURE GetIdOfImagePart@11(VAR ImagePart@1000 : Codeunit 50042) : Text; VAR - DotNetImagePart@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"; + DotNetImagePart@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"; BEGIN ImagePart.GetImagePart(DotNetImagePart); EXIT(DotNetMainDocumentPart.GetIdOfPart(DotNetImagePart)); END; [External] - PROCEDURE SetDocument@17024401(VAR WordDocument@17024400 : Codeunit 50020); + PROCEDURE SetDocument@12(VAR WordDocument@1000 : Codeunit 50020); VAR - DotNetDocument@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"; + DotNetDocument@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"; BEGIN WordDocument.GetDocument(DotNetDocument); DotNetMainDocumentPart.Document := DotNetDocument; END; [External] - PROCEDURE GetDocument@17024402(VAR DotNetWordDocument@17024400 : Codeunit 50020); + PROCEDURE Document@13(VAR DotNetWordDocument@1000 : Codeunit 50020); + VAR + DotNetDocument@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"; BEGIN - DotNetWordDocument.SetDocument(DotNetMainDocumentPart.Document); + DotNetDocument := DotNetMainDocumentPart.Document; + DotNetWordDocument.SetDocument(DotNetDocument); END; BEGIN diff --git a/BaseApp/COD50020.TXT b/BaseApp/COD50020.TXT index 2e02fdc..7a214dd 100644 --- a/BaseApp/COD50020.TXT +++ b/BaseApp/COD50020.TXT @@ -15,55 +15,56 @@ OBJECT Codeunit 50020 DotNet_Word.Document CODE { VAR - DotNetDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"; + DotNetDocument@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"; [External] - PROCEDURE Create@17024402(); + PROCEDURE Document@1(); BEGIN DotNetDocument := DotNetDocument.Document; END; [External] - PROCEDURE CreateFromOuterXml@17024409(OuterXml@17024400 : Text); + PROCEDURE DocumentFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetDocument := DotNetDocument.Document(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024404() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetDocument.OuterXml); END; [External] - PROCEDURE GetInnerText@17024406() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetDocument.InnerText); END; [External] - PROCEDURE SetBody@17024401(VAR WordBody@17024400 : Codeunit 50021); + PROCEDURE SetBody@5(VAR WordBody@1000 : Codeunit 50021); VAR - DotNetBody@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"; + DotNetBody@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"; BEGIN WordBody.GetBody(DotNetBody); DotNetDocument.Body := DotNetBody; END; [External] - PROCEDURE GetBody@17024403(VAR WordBody@17024400 : Codeunit 50021); + PROCEDURE Body@6(VAR WordBody@1000 : Codeunit 50021); VAR - DotNetBody@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"; + DotNetBody@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"; BEGIN - WordBody.SetBody(DotNetDocument.Body); + DotNetBody := DotNetDocument.Body; + WordBody.SetBody(DotNetBody); END; - PROCEDURE SetDocument@17024411(NewDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"); + PROCEDURE SetDocument@7(VAR NewDocument@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"); BEGIN DotNetDocument := NewDocument; END; - PROCEDURE GetDocument@17024400(VAR CurrentDocument@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"); + PROCEDURE GetDocument@8(VAR CurrentDocument@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Document"); BEGIN CurrentDocument := DotNetDocument; END; diff --git a/BaseApp/COD50021.TXT b/BaseApp/COD50021.TXT index 9f05921..c8d2858 100644 --- a/BaseApp/COD50021.TXT +++ b/BaseApp/COD50021.TXT @@ -15,37 +15,37 @@ OBJECT Codeunit 50021 DotNet_Word.Body CODE { VAR - DotNetBody@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetBody@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@17024401(); + PROCEDURE Body@1(); BEGIN DotNetBody := DotNetBody.Body; END; [External] - PROCEDURE CreateFromOuterXml@17024409(OuterXml@17024400 : Text); + PROCEDURE BodyFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetBody := DotNetBody.Body(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024405() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetBody.OuterXml); END; [External] - PROCEDURE GetInnerText@17024406() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetBody.InnerText); END; [External] - PROCEDURE AppendParagraph@17024403(VAR WordParagraph@17024400 : Codeunit 50022); + PROCEDURE AppendParagraph@5(VAR WordParagraph@1000 : Codeunit 50022); VAR - DotNetParagraph@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + DotNetParagraph@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; BEGIN WordParagraph.GetParagraph(DotNetParagraph); //We need this to deal with .NET Generics: @@ -53,10 +53,9 @@ OBJECT Codeunit 50021 DotNet_Word.Body END; [External] - PROCEDURE AppendTable@17024402(VAR WordTable@17024400 : Codeunit 50027); + PROCEDURE AppendTable@6(VAR WordTable@1000 : Codeunit 50027); VAR - DotNetTable@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; - DotNetArray@17024402 : DotNet "'mscorlib'.System.Array"; + DotNetTable@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; BEGIN WordTable.GetTable(DotNetTable); //We need this to deal with .NET Generics: @@ -64,11 +63,11 @@ OBJECT Codeunit 50021 DotNet_Word.Body END; [External] - PROCEDURE GetTableEnumerator@17024404(VAR WordTableEnumerator@17024400 : Codeunit 50064); + PROCEDURE GetTableEnumerator@7(VAR WordTableEnumerator@1000 : Codeunit 50064); VAR - EnumeratorHelper@17024401 : Codeunit 50067; - DotNetTable@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; - DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + EnumeratorHelper@1001 : Codeunit 50067; + DotNetTable@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; + DotNetEnumerator@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; BEGIN //We need this to deal with .NET Generics: EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetBody.Elements, GETDOTNETTYPE(DotNetTable), DotNetEnumerator); @@ -76,23 +75,23 @@ OBJECT Codeunit 50021 DotNet_Word.Body END; [External] - PROCEDURE GetParagraphEnumerator@17024408(VAR WordParagraphEnumerator@17024400 : Codeunit 50062); + PROCEDURE GetParagraphEnumerator@8(VAR WordParagraphEnumerator@1000 : Codeunit 50062); VAR - EnumeratorHelper@17024401 : Codeunit 50067; - DotNetParagraph@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; - DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + EnumeratorHelper@1001 : Codeunit 50067; + DotNetParagraph@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + DotNetEnumerator@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; BEGIN //We need this to deal with .NET Generics: EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetBody.Elements, GETDOTNETTYPE(DotNetParagraph), DotNetEnumerator); WordParagraphEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetBody@17024411(NewDotNetBody@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"); + PROCEDURE SetBody@9(VAR NewDotNetBody@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"); BEGIN DotNetBody := NewDotNetBody; END; - PROCEDURE GetBody@17024400(VAR CurrentDotNetBody@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"); + PROCEDURE GetBody@10(VAR CurrentDotNetBody@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Body"); BEGIN CurrentDotNetBody := DotNetBody; END; diff --git a/BaseApp/COD50022.TXT b/BaseApp/COD50022.TXT index 5cb367a..fdb0f36 100644 --- a/BaseApp/COD50022.TXT +++ b/BaseApp/COD50022.TXT @@ -15,37 +15,37 @@ OBJECT Codeunit 50022 DotNet_Word.Paragraph CODE { VAR - DotNetParagraph@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetParagraph@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@17024403(); + PROCEDURE Paragraph@1(); BEGIN DotNetParagraph := DotNetParagraph.Paragraph; END; [External] - PROCEDURE CreateFromOuterXml@17024409(OuterXml@17024400 : Text); + PROCEDURE ParagraphOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetParagraph := DotNetParagraph.Paragraph(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024405() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetParagraph.OuterXml); END; [External] - PROCEDURE GetInnerText@17024406() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetParagraph.InnerText); END; [External] - PROCEDURE AppendRun@17024401(VAR WordRun@17024400 : Codeunit 50023); + PROCEDURE AppendRun@5(VAR WordRun@1000 : Codeunit 50023); VAR - DotNetRun@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; + DotNetRun@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; BEGIN WordRun.GetRun(DotNetRun); //We need this to deal with .NET Generics: @@ -53,9 +53,9 @@ OBJECT Codeunit 50022 DotNet_Word.Paragraph END; [External] - PROCEDURE AppendHyperlink@17024404(VAR WordHyperlink@17024400 : Codeunit 50035); + PROCEDURE AppendHyperlink@6(VAR WordHyperlink@1000 : Codeunit 50035); VAR - DotNetHyperlink@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"; + DotNetHyperlink@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"; BEGIN WordHyperlink.GetHyperlink(DotNetHyperlink); //We need this to deal with .NET Generics: @@ -63,9 +63,9 @@ OBJECT Codeunit 50022 DotNet_Word.Paragraph END; [External] - PROCEDURE AppendProperties@17024402(VAR WordParagraphProperties@17024400 : Codeunit 50026); + PROCEDURE AppendProperties@7(VAR WordParagraphProperties@1000 : Codeunit 50026); VAR - DotNetParagraphProperties@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"; + DotNetParagraphProperties@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"; BEGIN WordParagraphProperties.GetParagraphProperties(DotNetParagraphProperties); //We need this to deal with .NET Generics: @@ -73,23 +73,23 @@ OBJECT Codeunit 50022 DotNet_Word.Paragraph END; [External] - PROCEDURE GetRunEnumerator@17024408(VAR WordRunEnumerator@17024400 : Codeunit 50063); + PROCEDURE GetRunEnumerator@8(VAR WordRunEnumerator@1000 : Codeunit 50063); VAR - EnumeratorHelper@17024401 : Codeunit 50067; - DotNetRun@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; - DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + EnumeratorHelper@1001 : Codeunit 50067; + DotNetRun@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; + DotNetEnumerator@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; BEGIN //We need this to deal with .NET Generics: EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetParagraph.Elements, GETDOTNETTYPE(DotNetRun), DotNetEnumerator); WordRunEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetParagraph@17024411(NewDotNetParagraph@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"); + PROCEDURE SetParagraph@9(VAR NewDotNetParagraph@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"); BEGIN DotNetParagraph := NewDotNetParagraph; END; - PROCEDURE GetParagraph@17024400(VAR CurrentDotNetParagraph@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"); + PROCEDURE GetParagraph@10(VAR CurrentDotNetParagraph@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"); BEGIN CurrentDotNetParagraph := DotNetParagraph; END; diff --git a/BaseApp/COD50023.TXT b/BaseApp/COD50023.TXT index df50244..045f993 100644 --- a/BaseApp/COD50023.TXT +++ b/BaseApp/COD50023.TXT @@ -15,39 +15,37 @@ OBJECT Codeunit 50023 DotNet_Word.Run CODE { VAR - DotNetRun@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetRun@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@17024403(); - VAR - DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + PROCEDURE Run@1(); BEGIN DotNetRun := DotNetRun.Run; END; [External] - PROCEDURE CreateFromOuterXml@17024409(OuterXml@17024400 : Text); + PROCEDURE RunFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetRun := DotNetRun.Run(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024405() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetRun.OuterXml); END; [External] - PROCEDURE GetInnerText@17024406() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetRun.InnerText); END; [External] - PROCEDURE AppendText@17024401(VAR WordText@17024400 : Codeunit 50024); + PROCEDURE AppendText@5(VAR WordText@1000 : Codeunit 50024); VAR - DotNetText@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; + DotNetText@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; BEGIN WordText.GetTextObject(DotNetText); //We need this to deal with .NET Generics: @@ -55,9 +53,9 @@ OBJECT Codeunit 50023 DotNet_Word.Run END; [External] - PROCEDURE AppendDrawing@17024404(VAR WordDrawing@17024400 : Codeunit 50043); + PROCEDURE AppendDrawing@6(VAR WordDrawing@1000 : Codeunit 50043); VAR - DotNetDrawing@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"; + DotNetDrawing@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"; BEGIN WordDrawing.GetDrawing(DotNetDrawing); //We need this to deal with .NET Generics: @@ -65,9 +63,9 @@ OBJECT Codeunit 50023 DotNet_Word.Run END; [External] - PROCEDURE AppendProperties@17024402(VAR WordRunProperties@17024400 : Codeunit 50025); + PROCEDURE AppendProperties@7(VAR WordRunProperties@1000 : Codeunit 50025); VAR - DotNetRunProperties@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"; + DotNetRunProperties@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"; BEGIN WordRunProperties.GetRunProperties(DotNetRunProperties); //We need this to deal with .NET Generics: @@ -75,23 +73,23 @@ OBJECT Codeunit 50023 DotNet_Word.Run END; [External] - PROCEDURE GetTextEnumerator@17024408(VAR WordTextEnumerator@17024400 : Codeunit 50076); + PROCEDURE GetTextEnumerator@8(VAR WordTextEnumerator@1000 : Codeunit 50076); VAR - EnumeratorHelper@17024401 : Codeunit 50067; - DotNetText@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; - DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + EnumeratorHelper@1001 : Codeunit 50067; + DotNetText@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; + DotNetEnumerator@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; BEGIN //We need this to deal with .NET Generics: EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetRun.Elements, GETDOTNETTYPE(DotNetText), DotNetEnumerator); WordTextEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetRun@17024411(NewDotNetRun@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"); + PROCEDURE SetRun@9(VAR NewDotNetRun@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"); BEGIN DotNetRun := NewDotNetRun; END; - PROCEDURE GetRun@17024400(VAR CurrentDotNetRun@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"); + PROCEDURE GetRun@10(VAR CurrentDotNetRun@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"); BEGIN CurrentDotNetRun := DotNetRun; END; diff --git a/BaseApp/COD50024.TXT b/BaseApp/COD50024.TXT index 16301f6..05cda79 100644 --- a/BaseApp/COD50024.TXT +++ b/BaseApp/COD50024.TXT @@ -15,15 +15,15 @@ OBJECT Codeunit 50024 DotNet_Word.Text CODE { VAR - DotNetText@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; + DotNetText@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; [External] - PROCEDURE Create@17024403(); + PROCEDURE TextConstructor@1(); VAR - DotNetType@17024401 : DotNet "'mscorlib'.System.Type"; - DotNetObject@17024404 : DotNet "'mscorlib'.System.Object"; - DotNetTypeArray@17024402 : DotNet "'mscorlib'.System.Array"; - DotNetParamsArray@17024403 : DotNet "'mscorlib'.System.Array"; + DotNetType@1001 : DotNet "'mscorlib'.System.Type"; + DotNetObject@1004 : DotNet "'mscorlib'.System.Object"; + DotNetTypeArray@1002 : DotNet "'mscorlib'.System.Array"; + DotNetParamsArray@1003 : DotNet "'mscorlib'.System.Array"; BEGIN //So normally it should be a simple call like that: //DotNetText := DotNetText.Text(); @@ -37,49 +37,46 @@ OBJECT Codeunit 50024 DotNet_Word.Text END; [External] - PROCEDURE GetOuterXml@17024404() : Text; + PROCEDURE OuterXml@2() : Text; BEGIN EXIT(DotNetText.OuterXml); END; [External] - PROCEDURE GetInnerText@17024401() : Text; + PROCEDURE InnerText@3() : Text; BEGIN EXIT(DotNetText.InnerText); END; [External] - PROCEDURE SetText@17024405(NewText@17024400 : Text); + PROCEDURE SetText@4(NewText@1000 : Text); BEGIN DotNetText.Text := NewText; END; [External] - PROCEDURE GetText@17024406() : Text; + PROCEDURE Text@5() : Text; BEGIN EXIT(DotNetText.Text); END; [External] - PROCEDURE SetSpacePreserveOption@17024402(PreserveSpace@17024400 : Boolean); + PROCEDURE SetSpacePreserveOption@6(VAR PreserveSpace@1000 : Codeunit 50079); VAR - DotNetSpaceProcessingModeValues@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + DotNet_OpenXmlEnumValue@1001 : Codeunit 50080; + DotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; BEGIN - IF PreserveSpace THEN - OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetSpaceProcessingModeValues), 1, DotNetEnumValue) - ELSE - OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetSpaceProcessingModeValues), 0, DotNetEnumValue); + PreserveSpace.ToOpenXmlEnumValue(DotNet_OpenXmlEnumValue); + DotNet_OpenXmlEnumValue.GetEnumValue(DotNetEnumValue); DotNetText.Space := DotNetEnumValue; END; - PROCEDURE SetTextObject@17024411(NewDotNetText@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"); + PROCEDURE SetTextObject@7(VAR NewDotNetText@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"); BEGIN DotNetText := NewDotNetText; END; - PROCEDURE GetTextObject@17024400(VAR CurrentDotNetText@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"); + PROCEDURE GetTextObject@8(VAR CurrentDotNetText@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"); BEGIN CurrentDotNetText := DotNetText; END; diff --git a/BaseApp/COD50041.TXT b/BaseApp/COD50041.TXT index e81616b..77e8f30 100644 --- a/BaseApp/COD50041.TXT +++ b/BaseApp/COD50041.TXT @@ -32,6 +32,12 @@ OBJECT Codeunit 50041 DotNet_Word.StyleDefinitionPar WordStyles.SetStyles(DotNetStyleDefinitionsPart.Styles); END; + [External] + PROCEDURE IsDotNetNull@17024402() : Boolean; + BEGIN + EXIT(ISNULL(DotNetStyleDefinitionsPart)); + END; + PROCEDURE SetStyleDefinitionsPart@17024411(NewDotNetStyleDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"); BEGIN DotNetStyleDefinitionsPart := NewDotNetStyleDefinitionsPart; diff --git a/BaseApp/COD50062.TXT b/BaseApp/COD50062.TXT index 6be9e0f..edd1638 100644 --- a/BaseApp/COD50062.TXT +++ b/BaseApp/COD50062.TXT @@ -15,34 +15,37 @@ OBJECT Codeunit 50062 DotNet_Word.ParagraphEnumerato CODE { VAR - DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + DotNetEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE SetEnumerator@1(VAR NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN DotNetEnumerator := NewEnumerator; END; - PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumerator@1000(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN CurrentEnumerator := DotNetEnumerator; END; [External] - PROCEDURE Reset@17024401(); + PROCEDURE Reset@3(); BEGIN DotNetEnumerator.Reset; END; [External] - PROCEDURE MoveNext@17024402() : Boolean; + PROCEDURE MoveNext@4() : Boolean; BEGIN EXIT(DotNetEnumerator.MoveNext); END; [External] - PROCEDURE GetCurrent@17024403(VAR CurrentParagraph@17024400 : Codeunit 50022); + PROCEDURE Current@5(VAR CurrentParagraph@1000 : Codeunit 50022); + VAR + DotNetParagraph@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; BEGIN - CurrentParagraph.SetParagraph(DotNetEnumerator.Current); + DotNetParagraph := DotNetEnumerator.Current; + CurrentParagraph.SetParagraph(DotNetParagraph); END; BEGIN diff --git a/BaseApp/COD50063.TXT b/BaseApp/COD50063.TXT index 8d5173b..5a6e4ce 100644 --- a/BaseApp/COD50063.TXT +++ b/BaseApp/COD50063.TXT @@ -15,34 +15,37 @@ OBJECT Codeunit 50063 DotNet_Word.RunEnumerator CODE { VAR - DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + DotNetEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE SetEnumerator@1(VAR NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN DotNetEnumerator := NewEnumerator; END; - PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumerator@2(VAR CurrentEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN CurrentEnumerator := DotNetEnumerator; END; [External] - PROCEDURE Reset@17024401(); + PROCEDURE Reset@3(); BEGIN DotNetEnumerator.Reset; END; [External] - PROCEDURE MoveNext@17024402() : Boolean; + PROCEDURE MoveNext@4() : Boolean; BEGIN EXIT(DotNetEnumerator.MoveNext); END; [External] - PROCEDURE GetCurrent@17024403(VAR CurrentRun@17024400 : Codeunit 50023); + PROCEDURE Current@5(VAR CurrentRun@1000 : Codeunit 50023); + VAR + DotNetRun@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; BEGIN - CurrentRun.SetRun(DotNetEnumerator.Current); + DotNetRun := DotNetEnumerator.Current; + CurrentRun.SetRun(DotNetRun); END; BEGIN diff --git a/BaseApp/COD50064.TXT b/BaseApp/COD50064.TXT index 49b8608..0c8e49b 100644 --- a/BaseApp/COD50064.TXT +++ b/BaseApp/COD50064.TXT @@ -15,34 +15,37 @@ OBJECT Codeunit 50064 DotNet_Word.TableEnumerator CODE { VAR - DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + DotNetEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE SetEnumerator@1(VAR NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN DotNetEnumerator := NewEnumerator; END; - PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumerator@2(VAR CurrentEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN CurrentEnumerator := DotNetEnumerator; END; [External] - PROCEDURE Reset@17024401(); + PROCEDURE Reset@3(); BEGIN DotNetEnumerator.Reset; END; [External] - PROCEDURE MoveNext@17024402() : Boolean; + PROCEDURE MoveNext@4() : Boolean; BEGIN EXIT(DotNetEnumerator.MoveNext); END; [External] - PROCEDURE GetCurrent@17024403(VAR CurrentTable@17024400 : Codeunit 50027); + PROCEDURE Current@5(VAR CurrentTable@1000 : Codeunit 50027); + VAR + DotNetTable@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; BEGIN - CurrentTable.SetTable(DotNetEnumerator.Current); + DotNetTable := DotNetEnumerator.Current; + CurrentTable.SetTable(DotNetTable); END; BEGIN diff --git a/BaseApp/COD50065.TXT b/BaseApp/COD50065.TXT index aeb5d92..2260dff 100644 --- a/BaseApp/COD50065.TXT +++ b/BaseApp/COD50065.TXT @@ -15,34 +15,37 @@ OBJECT Codeunit 50065 DotNet_Word.TableRowEnumerator CODE { VAR - DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + DotNetEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE SetEnumerator@1(VAR NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN DotNetEnumerator := NewEnumerator; END; - PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumerator@2(VAR CurrentEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN CurrentEnumerator := DotNetEnumerator; END; [External] - PROCEDURE Reset@17024401(); + PROCEDURE Reset@3(); BEGIN DotNetEnumerator.Reset; END; [External] - PROCEDURE MoveNext@17024402() : Boolean; + PROCEDURE MoveNext@4() : Boolean; BEGIN EXIT(DotNetEnumerator.MoveNext); END; [External] - PROCEDURE GetCurrent@17024403(VAR CurrentTableRow@17024400 : Codeunit 50028); + PROCEDURE Current@5(VAR CurrentTableRow@1000 : Codeunit 50028); + VAR + DotNetTableRow@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; BEGIN - CurrentTableRow.SetTableRow(DotNetEnumerator.Current); + DotNetTableRow := DotNetEnumerator.Current; + CurrentTableRow.SetTableRow(DotNetTableRow); END; BEGIN diff --git a/BaseApp/COD50066.TXT b/BaseApp/COD50066.TXT index c89bf5a..9cec67e 100644 --- a/BaseApp/COD50066.TXT +++ b/BaseApp/COD50066.TXT @@ -15,34 +15,37 @@ OBJECT Codeunit 50066 DotNet_Word.TableCellEnumerato CODE { VAR - DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + DotNetEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE SetEnumerator@1(VAR NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN DotNetEnumerator := NewEnumerator; END; - PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumerator@2(VAR CurrentEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN CurrentEnumerator := DotNetEnumerator; END; [External] - PROCEDURE Reset@17024401(); + PROCEDURE Reset@3(); BEGIN DotNetEnumerator.Reset; END; [External] - PROCEDURE MoveNext@17024402() : Boolean; + PROCEDURE MoveNext@4() : Boolean; BEGIN EXIT(DotNetEnumerator.MoveNext); END; [External] - PROCEDURE GetCurrent@17024403(VAR CurrentTableCell@17024400 : Codeunit 50029); + PROCEDURE Current@5(VAR CurrentTableCell@1000 : Codeunit 50029); + VAR + DotNetTableCell@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; BEGIN - CurrentTableCell.SetTableCell(DotNetEnumerator.Current); + DotNetTableCell := DotNetEnumerator.Current; + CurrentTableCell.SetTableCell(DotNetTableCell); END; BEGIN diff --git a/BaseApp/COD50068.TXT b/BaseApp/COD50068.TXT index 9b98ebc..8774b48 100644 --- a/BaseApp/COD50068.TXT +++ b/BaseApp/COD50068.TXT @@ -37,9 +37,9 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordProcessingDocumentType.Create(DocumentType); CreatedWordprocessingDocument.Create(WordProcessingDocumentType, TRUE); CreatedWordprocessingDocument.AddMainDocumentPart(MainDocumentPart); - WordDocument.Create; + WordDocument.Document; MainDocumentPart.SetDocument(WordDocument); - WordBody.Create; + WordBody.Body; WordDocument.SetBody(WordBody); END; @@ -53,9 +53,12 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordColor@1008 : Codeunit 50036; WordText@1009 : Codeunit 50024; WordRun@1010 : Codeunit 50023; + DotNet_Uri@1011 : Codeunit 3024; + DotNet_OpenXmlSpaceProcessing@1012 : Codeunit 50079; BEGIN //Helper for creating new hyperlink element - MainDocumentPart.AddHyperlinkRelationship(Url, TRUE, HyperlinkRelationship); + DotNet_Uri.Init(Url); + MainDocumentPart.AddHyperlinkRelationship(DotNet_Uri, TRUE, HyperlinkRelationship); HrContactId := HyperlinkRelationship.GetId; WordProofError.Create; WordProofError.SetType(2); //Type = GrammarStart @@ -64,10 +67,11 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordColor.Create; WordColor.SetColorTheme(10); //Theme = Hyperlink WordRunProperties.SetColor(WordColor); - WordText.Create; + WordText.TextConstructor; WordText.SetText(TextValue); - WordText.SetSpacePreserveOption(TRUE); - WordRun.Create; + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); + WordRun.Run; WordRun.AppendProperties(WordRunProperties); WordRun.AppendText(WordText); CreatedWordHyperlink.Create; @@ -87,14 +91,14 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper BEGIN //Helper for adding new paragraph style //Based on: https://msdn.microsoft.com/en-us/library/cc850838.aspx - IF NOT MainDocumentPart.HasStyleDefinitionsPart THEN + IF NOT MainDocumentPartHasStyleDefinitionsPart(MainDocumentPart) THEN BEGIN MainDocumentPart.AddStyleDefinitionsPart(WordStyleDefinitionPart); WordStyles.Create; WordStyleDefinitionPart.SetStyles(WordStyles); END ELSE - MainDocumentPart.GetStyleDefinitionsPart(WordStyleDefinitionPart); + MainDocumentPart.StyleDefinitionsPart(WordStyleDefinitionPart); IF NOT IsParagraphStyleIdInDocument(WordStyleDefinitionPart, StyleId) THEN BEGIN @@ -115,14 +119,14 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordNumbering@1005 : Codeunit 50071; BEGIN //Helper for adding new numbering type - IF NOT MainDocumentPart.HasNumberingDefinitionsPart THEN + IF NOT MainDocumentPartHasNumberingDefinitionsPart(MainDocumentPart) THEN BEGIN MainDocumentPart.AddNumberingDefinitionsPart(WordNumberingDefinitionsPart); WordNumbering.Create; WordNumberingDefinitionsPart.SetNumbering(WordNumbering); END ELSE - MainDocumentPart.GetNumberingDefinitionsPart(WordNumberingDefinitionsPart); + MainDocumentPart.NumberingDefinitionsPart(WordNumberingDefinitionsPart); IF NOT IsNumberingTypeIdInDocument(WordNumberingDefinitionsPart, NumberingId) THEN @@ -150,10 +154,12 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper VAR WordImagePart@1007 : Codeunit 50042; RelationshipId@1008 : Text; + DotNet_ImagePartType@1009 : Codeunit 50078; BEGIN //Helper for adding picture from stream to document //Based on: https://msdn.microsoft.com/en-us/library/office/bb497430.aspx - MainDocumentPart.AddImagePart(ImagePartType, WordImagePart); + DotNet_ImagePartType.Create(ImagePartType); + MainDocumentPart.AddImagePart(DotNet_ImagePartType, WordImagePart); WordImagePart.FeedData(ImageStream); RelationshipId := MainDocumentPart.GetIdOfImagePart(WordImagePart); CreateDrawing(RelationshipId, Name + '.' + FORMAT(ImagePartType), Width, Height, '', CreatedWordDrawing); @@ -378,7 +384,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordNumbering.GetAbstractNumEnumerator(WordAbstractNumEnumerator); WHILE WordAbstractNumEnumerator.MoveNext DO BEGIN - WordAbstractNumEnumerator.GetCurrent(WordAbstractNum); + WordAbstractNumEnumerator.Current(WordAbstractNum); IF WordAbstractNum.GetAbstractNumberId = Id THEN EXIT(TRUE); END; @@ -386,6 +392,24 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper EXIT(FALSE); END; + [External] + PROCEDURE MainDocumentPartHasNumberingDefinitionsPart@18(VAR DotNet_WordMainDocumentPart@17024400 : Codeunit 50019) : Boolean; + VAR + DotNet_WordNumberingDefinitionPart@17024401 : Codeunit 50070; + BEGIN + DotNet_WordMainDocumentPart.NumberingDefinitionsPart(DotNet_WordNumberingDefinitionPart); + EXIT(NOT DotNet_WordNumberingDefinitionPart.IsDotNetNull); + END; + + [External] + PROCEDURE MainDocumentPartHasStyleDefinitionsPart@19(VAR DotNet_WordMainDocumentPart@1000 : Codeunit 50019) : Boolean; + VAR + DotNet_WordStyleDefinitionPart@1001 : Codeunit 50041; + BEGIN + DotNet_WordMainDocumentPart.StyleDefinitionsPart(DotNet_WordStyleDefinitionPart); + EXIT(NOT DotNet_WordStyleDefinitionPart.IsDotNetNull); + END; + BEGIN END. } diff --git a/BaseApp/COD50070.TXT b/BaseApp/COD50070.TXT index 966ed5a..d7bdd6a 100644 --- a/BaseApp/COD50070.TXT +++ b/BaseApp/COD50070.TXT @@ -32,6 +32,12 @@ OBJECT Codeunit 50070 DotNet_Word.NumberingDefinitio WordNumbering.SetNumbering(DotNetNumberingDefinitionsPart.Numbering); END; + [External] + PROCEDURE IsDotNetNull@17024402() : Boolean; + BEGIN + EXIT(ISNULL(DotNetNumberingDefinitionsPart)); + END; + PROCEDURE SetNumberingDefinitionsPart@17024411(NewDotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"); BEGIN DotNetNumberingDefinitionsPart := NewDotNetNumberingDefinitionsPart; diff --git a/BaseApp/COD50075.TXT b/BaseApp/COD50075.TXT index de4c1a7..45b7409 100644 --- a/BaseApp/COD50075.TXT +++ b/BaseApp/COD50075.TXT @@ -15,34 +15,37 @@ OBJECT Codeunit 50075 DotNet_Word.AbstractNumEnumera CODE { VAR - DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + DotNetEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE SetEnumerator@1(VAR NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN DotNetEnumerator := NewEnumerator; END; - PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumerator@2(VAR CurrentEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN CurrentEnumerator := DotNetEnumerator; END; [External] - PROCEDURE Reset@17024401(); + PROCEDURE Reset@3(); BEGIN DotNetEnumerator.Reset; END; [External] - PROCEDURE MoveNext@17024402() : Boolean; + PROCEDURE MoveNext@4() : Boolean; BEGIN EXIT(DotNetEnumerator.MoveNext); END; [External] - PROCEDURE GetCurrent@17024403(VAR CurrentAbstractNum@17024400 : Codeunit 50072); + PROCEDURE Current@5(VAR CurrentAbstractNum@1000 : Codeunit 50072); + VAR + DotNetAbstractNum@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; BEGIN - CurrentAbstractNum.SetAbstractNum(DotNetEnumerator.Current); + DotNetAbstractNum := DotNetEnumerator.Current; + CurrentAbstractNum.SetAbstractNum(DotNetAbstractNum); END; BEGIN diff --git a/BaseApp/COD50076.TXT b/BaseApp/COD50076.TXT index 3c792cf..20f82df 100644 --- a/BaseApp/COD50076.TXT +++ b/BaseApp/COD50076.TXT @@ -15,34 +15,37 @@ OBJECT Codeunit 50076 DotNet_Word.TextEnumerator CODE { VAR - DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + DotNetEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE SetEnumerator@1(VAR NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN DotNetEnumerator := NewEnumerator; END; - PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumerator@2(VAR CurrentEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN CurrentEnumerator := DotNetEnumerator; END; [External] - PROCEDURE Reset@17024401(); + PROCEDURE Reset@3(); BEGIN DotNetEnumerator.Reset; END; [External] - PROCEDURE MoveNext@17024402() : Boolean; + PROCEDURE MoveNext@4() : Boolean; BEGIN EXIT(DotNetEnumerator.MoveNext); END; [External] - PROCEDURE GetCurrent@17024403(VAR CurrentText@17024400 : Codeunit 50024); + PROCEDURE Current@5(VAR CurrentText@1000 : Codeunit 50024); + VAR + DotNetText@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Text"; BEGIN - CurrentText.SetTextObject(DotNetEnumerator.Current); + DotNetText := DotNetEnumerator.Current; + CurrentText.SetTextObject(DotNetText); END; BEGIN diff --git a/BaseApp/COD50078.TXT b/BaseApp/COD50078.TXT new file mode 100644 index 0000000..a5d0a6a --- /dev/null +++ b/BaseApp/COD50078.TXT @@ -0,0 +1,50 @@ +OBJECT Codeunit 50078 DotNet_OpenXml.ImagePartType +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetImagePartType@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePartType"; + + [External] + PROCEDURE Create@1(ImagePartType@1000 : 'Bmp,Gif,Png,Tiff,Icon,Pcx,Jpeg,Emf,Wmf'); + BEGIN + CASE ImagePartType OF + ImagePartType::Bmp: DotNetImagePartType := DotNetImagePartType.Bmp; + ImagePartType::Gif: DotNetImagePartType := DotNetImagePartType.Gif; + ImagePartType::Png: DotNetImagePartType := DotNetImagePartType.Png; + ImagePartType::Tiff: DotNetImagePartType := DotNetImagePartType.Tiff; + ImagePartType::Icon: DotNetImagePartType := DotNetImagePartType.Icon; + ImagePartType::Pcx: DotNetImagePartType := DotNetImagePartType.Pcx; + ImagePartType::Jpeg: DotNetImagePartType := DotNetImagePartType.Jpeg; + ImagePartType::Emf: DotNetImagePartType := DotNetImagePartType.Emf; + ImagePartType::Wmf: DotNetImagePartType := DotNetImagePartType.Wmf; + END; + END; + + PROCEDURE SetImagePartType@2(VAR NewDotNetImagePartType@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePartType"); + BEGIN + DotNetImagePartType := NewDotNetImagePartType; + END; + + PROCEDURE GetImagePartType@3(VAR CurrentDotNetImagePartType@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePartType"); + BEGIN + CurrentDotNetImagePartType := DotNetImagePartType; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50079.TXT b/BaseApp/COD50079.TXT new file mode 100644 index 0000000..721df56 --- /dev/null +++ b/BaseApp/COD50079.TXT @@ -0,0 +1,53 @@ +OBJECT Codeunit 50079 DotNet_OpenXml.SpaceProcessing +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetSpaceProcessingModeValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"; + + [External] + PROCEDURE Create@1(SpaceProcessingMode@1000 : 'Default,Preserve'); + BEGIN + CASE SpaceProcessingMode OF + SpaceProcessingMode::Default: DotNetSpaceProcessingModeValues := DotNetSpaceProcessingModeValues.Default; + SpaceProcessingMode::Preserve: DotNetSpaceProcessingModeValues := DotNetSpaceProcessingModeValues.Preserve; + END; + END; + + [External] + PROCEDURE ToOpenXmlEnumValue@17024400(VAR DotNet_OpenXmlEnumValue@17024400 : Codeunit 50080); + VAR + OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetEnumValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + BEGIN + OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetSpaceProcessingModeValues), DotNetSpaceProcessingModeValues, DotNetEnumValue); + DotNet_OpenXmlEnumValue.SetEnumValue(DotNetEnumValue); + END; + + PROCEDURE SetSpaceProcessingModeValues@2(VAR NewDotNetSpaceProcessingModeValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"); + BEGIN + DotNetSpaceProcessingModeValues := NewDotNetSpaceProcessingModeValues; + END; + + PROCEDURE GetSpaceProcessingModeValues@3(VAR CurrentDotNetSpaceProcessingModeValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"); + BEGIN + CurrentDotNetSpaceProcessingModeValues := DotNetSpaceProcessingModeValues; + END; + + BEGIN + END. + } +} + diff --git a/BaseApp/COD50080.TXT b/BaseApp/COD50080.TXT new file mode 100644 index 0000000..cf7c910 --- /dev/null +++ b/BaseApp/COD50080.TXT @@ -0,0 +1,34 @@ +OBJECT Codeunit 50080 DotNet_OpenXml.EnumValue +{ + OBJECT-PROPERTIES + { + Date=; + Time=; + Version List=; + } + PROPERTIES + { + OnRun=BEGIN + END; + + } + CODE + { + VAR + DotNetEnumValue@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + + PROCEDURE SetEnumValue@2(VAR NewDotNetEnumValue@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"); + BEGIN + DotNetEnumValue := NewDotNetEnumValue; + END; + + PROCEDURE GetEnumValue@3(VAR CurrentDotNetEnumValue@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"); + BEGIN + CurrentDotNetEnumValue := DotNetEnumValue; + END; + + BEGIN + END. + } +} + diff --git a/Test/COD50069.TXT b/Test/COD50069.TXT index 6f807c5..86560cc 100644 --- a/Test/COD50069.TXT +++ b/Test/COD50069.TXT @@ -144,8 +144,8 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing + 'pPr>Second Heading'; Assert.AreEqual(Expected, Actual, 'Headings creation failed'); //[THEN] Styles definition part must be not empty - Assert.AreEqual(TRUE, MainDocumentPart.HasStyleDefinitionsPart, 'Style definitions check failed'); - MainDocumentPart.GetStyleDefinitionsPart(WordStyleDefinitionPart); + Assert.AreEqual(TRUE, OpenXmlWordProcessingHelper.MainDocumentPartHasStyleDefinitionsPart(MainDocumentPart), 'Style definitions check failed'); + MainDocumentPart.StyleDefinitionsPart(WordStyleDefinitionPart); WordStyleDefinitionPart.GetStyles(WordStyles); Actual := WordStyles.GetOuterXml; //[THEN] and expected styles outer xml is: @@ -303,10 +303,10 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing //[WHEN] and then reopened again TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); WordprocessingDocument.Open(ExistingFileStream, FALSE); - WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); - MainDocumentPart.GetDocument(WordDocument); + WordprocessingDocument.MainDocumentPart(MainDocumentPart); + MainDocumentPart.Document(WordDocument); //[THEN] document outer XML must not be empty - Assert.AreNotEqual('', WordDocument.GetOuterXml, 'Reopen check failed'); + Assert.AreNotEqual('', WordDocument.OuterXml, 'Reopen check failed'); END; [Test] @@ -332,10 +332,10 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordprocessingDocument.Save(SaveStream); TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); WordprocessingDocument.Open(ExistingFileStream, FALSE); - WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); - MainDocumentPart.GetDocument(WordDocument); + WordprocessingDocument.MainDocumentPart(MainDocumentPart); + MainDocumentPart.Document(WordDocument); //[THEN] reopened stream document outer XML must be the same as original - Assert.AreEqual(Expected, WordDocument.GetOuterXml, 'Reopen check failed'); + Assert.AreEqual(Expected, WordDocument.OuterXml, 'Reopen check failed'); END; [Test] @@ -354,8 +354,8 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing TempBlob.FromBase64String(DocumentBase64); TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); WordprocessingDocument.Open(ExistingFileStream, FALSE); - WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); - MainDocumentPart.GetDocument(WordDocument); + WordprocessingDocument.MainDocumentPart(MainDocumentPart); + MainDocumentPart.Document(WordDocument); //[THEN] Expected document outer XML is: Expected := 'My awesome link'; - Assert.AreEqual(Expected, WordDocument.GetOuterXml, 'Existing file open check failed'); + Assert.AreEqual(Expected, WordDocument.OuterXml, 'Existing file open check failed'); END; [Test] @@ -439,26 +439,26 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing TempBlob.FromBase64String(DocumentBase64); TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); WordprocessingDocument.Open(ExistingFileStream, FALSE); - WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); - MainDocumentPart.GetDocument(WordDocument); - WordDocument.GetBody(WordBody); + WordprocessingDocument.MainDocumentPart(MainDocumentPart); + MainDocumentPart.Document(WordDocument); + WordDocument.Body(WordBody); //[WHEN] and iteration through all elements is performed WordBody.GetParagraphEnumerator(WordParagraphEnumerator); WHILE WordParagraphEnumerator.MoveNext DO BEGIN ParagraphCount += 1; - WordParagraphEnumerator.GetCurrent(WordParagraph); + WordParagraphEnumerator.Current(WordParagraph); WordParagraph.GetRunEnumerator(WordRunEnumerator); WHILE WordRunEnumerator.MoveNext DO BEGIN RunCount += 1; - WordRunEnumerator.GetCurrent(WordRun); + WordRunEnumerator.Current(WordRun); WordRun.GetTextEnumerator(WordTextEnumerator); WHILE WordTextEnumerator.MoveNext DO BEGIN TextCount += 1; - WordTextEnumerator.GetCurrent(WordText); - FullText += WordText.GetInnerText; + WordTextEnumerator.Current(WordText); + FullText += WordText.InnerText; END; END; END; @@ -497,23 +497,23 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing TempBlob.FromBase64String(DocumentBase64); TempBlob.Blob.CREATEINSTREAM(ExistingFileStream); WordprocessingDocument.Open(ExistingFileStream, TRUE); - WordprocessingDocument.GetMainDocumentPart(MainDocumentPart); - MainDocumentPart.GetDocument(WordDocument); - WordDocument.GetBody(WordBody); + WordprocessingDocument.MainDocumentPart(MainDocumentPart); + MainDocumentPart.Document(WordDocument); + WordDocument.Body(WordBody); //[WHEN] and '|>><<|' is added to every text element value WordBody.GetParagraphEnumerator(WordParagraphEnumerator); WHILE WordParagraphEnumerator.MoveNext DO BEGIN - WordParagraphEnumerator.GetCurrent(WordParagraph); + WordParagraphEnumerator.Current(WordParagraph); WordParagraph.GetRunEnumerator(WordRunEnumerator); WHILE WordRunEnumerator.MoveNext DO BEGIN - WordRunEnumerator.GetCurrent(WordRun); + WordRunEnumerator.Current(WordRun); WordRun.GetTextEnumerator(WordTextEnumerator); WHILE WordTextEnumerator.MoveNext DO BEGIN - WordTextEnumerator.GetCurrent(WordText); - WordText.SetText(WordText.GetText + '|>><<|'); + WordTextEnumerator.Current(WordText); + WordText.SetText(WordText.Text + '|>><<|'); END; END; END; @@ -589,100 +589,111 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing LOCAL PROCEDURE CreateSampleDocument@17024447(); BEGIN OpenXmlWordProcessingHelper.CreateEmptyDocument(0, WordprocessingDocument, MainDocumentPart, WordBody); - MainDocumentPart.GetDocument(WordDocument); + MainDocumentPart.Document(WordDocument); END; LOCAL PROCEDURE CreateSampleParagraph@17024421(); BEGIN - WordText.Create; + WordText.TextConstructor; WordText.SetText('Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent quam augue, tempus id metus in, laoreet viverra quam. Sed vulputate risus lacus, et dapibus orci porttitor non.'); - WordRun.Create; + WordRun.Run; WordRun.AppendText(WordText); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraph.AppendRun(WordRun); WordBody.AppendParagraph(WordParagraph); END; LOCAL PROCEDURE CreateSampleParagraphWithFormating@17024423(); + VAR + DotNet_OpenXmlSpaceProcessing@1000 : Codeunit 50079; BEGIN - WordParagraph.Create; + WordParagraph.Paragraph; - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('Pellentesque '); - WordText.SetSpacePreserveOption(TRUE); + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); - WordRun.Create; + WordRun.Run; WordRunProperties.Create; WordRunProperties.SetBold(TRUE); WordRun.AppendProperties(WordRunProperties); - WordText.Create; + WordText.TextConstructor; WordText.SetText('commodo '); - WordText.SetSpacePreserveOption(TRUE); + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('rhoncus '); - WordText.SetSpacePreserveOption(TRUE); + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); - WordRun.Create; + WordRun.Run; WordRunProperties.Create; WordRunProperties.SetItalic(TRUE); WordRun.AppendProperties(WordRunProperties); - WordText.Create; + WordText.TextConstructor; WordText.SetText('mauris'); - WordText.SetSpacePreserveOption(TRUE); + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText(', sit '); - WordText.SetSpacePreserveOption(TRUE); + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); - WordRun.Create; + WordRun.Run; WordRunProperties.Create; WordRunProperties.SetBold(TRUE); WordRunProperties.SetItalic(TRUE); WordRunProperties.SetUnderline(TRUE); WordRun.AppendProperties(WordRunProperties); - WordText.Create; + WordText.TextConstructor; WordText.SetText('amet '); - WordText.SetSpacePreserveOption(TRUE); + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('faucibus arcu '); - WordText.SetSpacePreserveOption(TRUE); + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); - WordRun.Create; + WordRun.Run; WordRunProperties.Create; WordColor.Create; WordColor.SetColorValue('FF0000'); WordRunProperties.SetColor(WordColor); WordRun.AppendProperties(WordRunProperties); - WordText.Create; + WordText.TextConstructor; WordText.SetText('porttitor '); - WordText.SetSpacePreserveOption(TRUE); + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('pharetra. Maecenas quis erat quis eros iaculis placerat ut at mauris.'); - WordText.SetSpacePreserveOption(TRUE); + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); @@ -690,14 +701,17 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; LOCAL PROCEDURE CreateSampleParagraphJustified@17024425(); + VAR + DotNet_OpenXmlSpaceProcessing@1000 : Codeunit 50079; BEGIN - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.Create; WordParagraphProperties.SetJustification(2); //Type = Center WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; - WordText.SetSpacePreserveOption(TRUE); + WordRun.Run; + WordText.TextConstructor; + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordText.SetText('Nam eu tortor ut mi euismod eleifend in ut ante. Donec a ligula ante. Sed rutrum ex quam. Nunc id mi ultricies, vestibulum sapien vel, posuere dui.'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); @@ -705,6 +719,8 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; LOCAL PROCEDURE CreateSampleHeadings@17024428(); + VAR + DotNet_OpenXmlSpaceProcessing@1000 : Codeunit 50079; BEGIN WordStyleRunProperties.Create; WordColor.Create; @@ -720,31 +736,33 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordStyleRunProperties.SetFontSize('26'); OpenXmlWordProcessingHelper.AddParagraphStyleToDocument(MainDocumentPart, 'heading2', 'heading 2', WordStyleRunProperties); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.Create; WordParagraphProperties.SetParagraphStyleId('heading1'); WordSpacingBetweenLines.Create; WordSpacingBetweenLines.SetAfter('0'); WordParagraphProperties.SetSpacingBetweenLines(WordSpacingBetweenLines); WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; - WordText.SetSpacePreserveOption(TRUE); + WordRun.Run; + WordText.TextConstructor; + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordText.SetText('First Heading'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); WordBody.AppendParagraph(WordParagraph); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.Create; WordParagraphProperties.SetParagraphStyleId('heading2'); WordSpacingBetweenLines.Create; WordSpacingBetweenLines.SetAfter('0'); WordParagraphProperties.SetSpacingBetweenLines(WordSpacingBetweenLines); WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; - WordText.SetSpacePreserveOption(TRUE); + WordRun.Run; + WordText.TextConstructor; + DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordText.SetText('Second Heading'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); @@ -756,9 +774,9 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordTable.Create; WordTableRow.Create; WordTableCell.Create; - WordParagraph.Create; - WordRun.Create; - WordText.Create; + WordParagraph.Paragraph; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('A'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); @@ -766,12 +784,12 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordTableRow.AppendCell(WordTableCell); WordTableCell.Create; - WordParagraph.Create; - WordRun.Create; + WordParagraph.Paragraph; + WordRun.Run; WordRunProperties.Create; WordRunProperties.SetBold(TRUE); WordRun.AppendProperties(WordRunProperties); - WordText.Create; + WordText.TextConstructor; WordText.SetText('Nice'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); @@ -782,9 +800,9 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordTableRow.Create; WordTableCell.Create; - WordParagraph.Create; - WordRun.Create; - WordText.Create; + WordParagraph.Paragraph; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('Little'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); @@ -792,12 +810,12 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordTableRow.AppendCell(WordTableCell); WordTableCell.Create; - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.Create; WordParagraphProperties.SetJustification(2); WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('Table'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); @@ -811,59 +829,59 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing LOCAL PROCEDURE CreateSampleLists@17024433(); BEGIN OpenXmlWordProcessingHelper.CreateBulletListProperties(MainDocumentPart, WordParagraphProperties, '5'); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('A'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); WordBody.AppendParagraph(WordParagraph); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('Unordered'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); WordBody.AppendParagraph(WordParagraph); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('List'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); WordBody.AppendParagraph(WordParagraph); - WordParagraph.Create; + WordParagraph.Paragraph; WordBody.AppendParagraph(WordParagraph); OpenXmlWordProcessingHelper.CreateOrderedListProperties(MainDocumentPart, WordParagraphProperties, '10'); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('A'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); WordBody.AppendParagraph(WordParagraph); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('Ordered'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); WordBody.AppendParagraph(WordParagraph); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraphProperties.CreateFromOuterXml(WordParagraphProperties.GetOuterXml); WordParagraph.AppendProperties(WordParagraphProperties); - WordRun.Create; - WordText.Create; + WordRun.Run; + WordText.TextConstructor; WordText.SetText('List'); WordRun.AppendText(WordText); WordParagraph.AppendRun(WordRun); @@ -906,8 +924,8 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing TempBlob.FromBase64String(PictureBase64); TempBlob.Blob.CREATEINSTREAM(ImageStream); PartId := OpenXmlWordProcessingHelper.CreateDrawingFromStream(MainDocumentPart, 6, ImageStream, 'someimage', 209550, 209550, WordDrawing); - WordParagraph.Create; - WordRun.Create; + WordParagraph.Paragraph; + WordRun.Run; WordRun.AppendDrawing(WordDrawing); WordParagraph.AppendRun(WordRun); WordBody.AppendParagraph(WordParagraph); @@ -919,7 +937,7 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing PartId@17024403 : Text; BEGIN PartId := OpenXmlWordProcessingHelper.CreateHyperLink('http://microsoft.com', 'My awesome link', MainDocumentPart, WordHyperlink); - WordParagraph.Create; + WordParagraph.Paragraph; WordParagraph.AppendHyperlink(WordHyperlink); WordBody.AppendParagraph(WordParagraph); EXIT(PartId); @@ -927,9 +945,9 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing LOCAL PROCEDURE FinalizeAndGetDocumentOuterXml@17024451() : Text; BEGIN - MainDocumentPart.GetDocument(WordDocument); + MainDocumentPart.Document(WordDocument); WordprocessingDocument.Close; - EXIT(WordDocument.GetOuterXml); + EXIT(WordDocument.OuterXml); END; LOCAL PROCEDURE GetExampleDocxFileContentAsBase64@17024465() : Text; From 53881a6aa95795b6d410f3ee2925b60474c57e60 Mon Sep 17 00:00:00 2001 From: Karolis Uosis Date: Sun, 23 Sep 2018 15:34:15 +0300 Subject: [PATCH 4/6] Fixed all IDs --- BaseApp/COD50025.TXT | 48 +++++----- BaseApp/COD50026.TXT | 46 +++++----- BaseApp/COD50027.TXT | 30 +++--- BaseApp/COD50028.TXT | 30 +++--- BaseApp/COD50029.TXT | 30 +++--- BaseApp/COD50030.TXT | 16 ++-- BaseApp/COD50031.TXT | 20 ++-- BaseApp/COD50032.TXT | 28 +++--- BaseApp/COD50033.TXT | 20 ++-- BaseApp/COD50034.TXT | 8 +- BaseApp/COD50035.TXT | 34 ++++--- BaseApp/COD50036.TXT | 24 ++--- BaseApp/COD50037.TXT | 42 ++++----- BaseApp/COD50038.TXT | 70 +++++++------- BaseApp/COD50039.TXT | 32 +++---- BaseApp/COD50040.TXT | 12 +-- BaseApp/COD50041.TXT | 14 +-- BaseApp/COD50042.TXT | 8 +- BaseApp/COD50043.TXT | 20 ++-- BaseApp/COD50044.TXT | 110 +++++++++++----------- BaseApp/COD50045.TXT | 34 +++---- BaseApp/COD50046.TXT | 34 +++---- BaseApp/COD50047.TXT | 44 ++++----- BaseApp/COD50048.TXT | 30 +++--- BaseApp/COD50049.TXT | 30 +++--- BaseApp/COD50050.TXT | 38 ++++---- BaseApp/COD50051.TXT | 26 +++--- BaseApp/COD50052.TXT | 22 ++--- BaseApp/COD50053.TXT | 24 ++--- BaseApp/COD50054.TXT | 24 ++--- BaseApp/COD50055.TXT | 30 +++--- BaseApp/COD50056.TXT | 18 ++-- BaseApp/COD50057.TXT | 32 +++---- BaseApp/COD50058.TXT | 20 ++-- BaseApp/COD50059.TXT | 22 ++--- BaseApp/COD50060.TXT | 40 ++++---- BaseApp/COD50061.TXT | 26 +++--- BaseApp/COD50062.TXT | 2 +- BaseApp/COD50067.TXT | 44 ++++----- BaseApp/COD50068.TXT | 4 +- BaseApp/COD50070.TXT | 14 +-- BaseApp/COD50071.TXT | 38 ++++---- BaseApp/COD50072.TXT | 26 +++--- BaseApp/COD50073.TXT | 40 ++++---- BaseApp/COD50074.TXT | 24 ++--- BaseApp/COD50079.TXT | 10 +- BaseApp/COD50080.TXT | 4 +- Test/COD50069.TXT | 214 +++++++++++++++++++++---------------------- 48 files changed, 771 insertions(+), 785 deletions(-) diff --git a/BaseApp/COD50025.TXT b/BaseApp/COD50025.TXT index 79b481f..0a6e834 100644 --- a/BaseApp/COD50025.TXT +++ b/BaseApp/COD50025.TXT @@ -15,37 +15,37 @@ OBJECT Codeunit 50025 DotNet_Word.RunProperties CODE { VAR - DotNetRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"; + DotNetRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetRunProperties := DotNetRunProperties.RunProperties; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetRunProperties := DotNetRunProperties.RunProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024407() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetRunProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetRunProperties.InnerText); END; [External] - PROCEDURE SetBold@17024405(Bold@17024401 : Boolean); + PROCEDURE SetBold@5(Bold@1000 : Boolean); VAR - DotNetBold@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; - DotNetBoldNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; + DotNetBold@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; + DotNetBoldNull@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; BEGIN DotNetBold := DotNetBold.Bold; IF Bold THEN @@ -55,10 +55,10 @@ OBJECT Codeunit 50025 DotNet_Word.RunProperties END; [External] - PROCEDURE SetItalic@17024409(Italic@17024401 : Boolean); + PROCEDURE SetItalic@6(Italic@1000 : Boolean); VAR - DotNetItalic@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; - DotNetItalicNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; + DotNetItalic@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; + DotNetItalicNull@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; BEGIN DotNetItalic := DotNetItalic.Italic; IF Italic THEN @@ -68,10 +68,10 @@ OBJECT Codeunit 50025 DotNet_Word.RunProperties END; [External] - PROCEDURE SetUnderline@17024401(Underline@17024401 : Boolean); + PROCEDURE SetUnderline@7(Underline@1000 : Boolean); VAR - DotNetUnderline@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; - DotNetUnderlineNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + DotNetUnderline@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + DotNetUnderlineNull@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; BEGIN DotNetUnderline := DotNetUnderline.Underline; IF Underline THEN @@ -81,41 +81,41 @@ OBJECT Codeunit 50025 DotNet_Word.RunProperties END; [External] - PROCEDURE SetFontSize@17024406(NewFontSize@17024401 : Text); + PROCEDURE SetFontSize@8(NewFontSize@1000 : Text); VAR - DotNetFontSize@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.FontSize"; - DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetFontSize@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.FontSize"; + DotNetStringValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetFontSize := DotNetFontSize.FontSize; DotNetFontSize.Val := DotNetStringValue.StringValue(NewFontSize); END; [External] - PROCEDURE SetColor@17024404(VAR WordColor@17024401 : Codeunit 50036); + PROCEDURE SetColor@9(VAR WordColor@1000 : Codeunit 50036); VAR - DotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; + DotNetColor@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; BEGIN WordColor.GetColor(DotNetColor); DotNetRunProperties.Color := DotNetColor; END; [External] - PROCEDURE SetRunStyle@17024402(StyleName@17024401 : Text); + PROCEDURE SetRunStyle@10(StyleName@1000 : Text); VAR - DotNetRunStyle@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunStyle"; - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetRunStyle@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunStyle"; + DotNetStringValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetRunStyle := DotNetRunStyle.RunStyle; DotNetRunStyle.Val := DotNetStringValue.StringValue(StyleName); DotNetRunProperties.RunStyle := DotNetRunStyle; END; - PROCEDURE SetRunProperties@17024411(NewDotNetRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"); + PROCEDURE SetRunProperties@11(NewDotNetRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"); BEGIN DotNetRunProperties := NewDotNetRunProperties; END; - PROCEDURE GetRunProperties@17024400(VAR CurrentDotNetRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"); + PROCEDURE GetRunProperties@12(VAR CurrentDotNetRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"); BEGIN CurrentDotNetRunProperties := DotNetRunProperties; END; diff --git a/BaseApp/COD50026.TXT b/BaseApp/COD50026.TXT index e3d4bad..4602847 100644 --- a/BaseApp/COD50026.TXT +++ b/BaseApp/COD50026.TXT @@ -15,43 +15,39 @@ OBJECT Codeunit 50026 DotNet_Word.ParagraphProp CODE { VAR - DotNetParagraphProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"; + DotNetParagraphProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"; [External] - PROCEDURE Create@17024403(); - VAR - DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + PROCEDURE Create@1(); BEGIN DotNetParagraphProperties := DotNetParagraphProperties.ParagraphProperties; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); - VAR - DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetParagraphProperties := DotNetParagraphProperties.ParagraphProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetParagraphProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetParagraphProperties.InnerText); END; [External] - PROCEDURE SetJustification@17024404(Justification@17024401 : 'Left,Start,Center,Right,End,Both,MediumKashida,Distribute,NumTab,HighKashida,LowKashida,ThaiDistribute'); + PROCEDURE SetJustification@5(Justification@1000 : 'Left,Start,Center,Right,End,Both,MediumKashida,Distribute,NumTab,HighKashida,LowKashida,ThaiDistribute'); VAR - DotNetJustification@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Justification"; - DotNetJustificationValues@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.JustificationValues"; - DotNetEnumValue@17024404 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetJustification@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Justification"; + DotNetJustificationValues@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.JustificationValues"; + DotNetEnumValue@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@1004 : Codeunit 50067; BEGIN DotNetJustification := DotNetJustification.Justification; //We need this to deal with .NET Generics: @@ -61,49 +57,49 @@ OBJECT Codeunit 50026 DotNet_Word.ParagraphProp END; [External] - PROCEDURE SetSpacingBetweenLines@17024401(VAR WordSpacingBetweenLines@17024401 : Codeunit 50030); + PROCEDURE SetSpacingBetweenLines@6(VAR WordSpacingBetweenLines@1000 : Codeunit 50030); VAR - DotNetSpacingBetweenLines@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"; + DotNetSpacingBetweenLines@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"; BEGIN WordSpacingBetweenLines.GetSpacingBetweenLines(DotNetSpacingBetweenLines); DotNetParagraphProperties.SpacingBetweenLines := DotNetSpacingBetweenLines; END; [External] - PROCEDURE SetIndentation@17024406(VAR WordIndentation@17024401 : Codeunit 50031); + PROCEDURE SetIndentation@7(VAR WordIndentation@1000 : Codeunit 50031); VAR - DotNetIndentation@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"; + DotNetIndentation@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"; BEGIN WordIndentation.GetIndentation(DotNetIndentation); DotNetParagraphProperties.Indentation := DotNetIndentation; END; [External] - PROCEDURE SetNumberingProperties@17024409(VAR WordNumberingProperties@17024401 : Codeunit 50032); + PROCEDURE SetNumberingProperties@8(VAR WordNumberingProperties@1000 : Codeunit 50032); VAR - DotNetNumberingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"; + DotNetNumberingProperties@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"; BEGIN WordNumberingProperties.GetNumberingProperties(DotNetNumberingProperties); DotNetParagraphProperties.NumberingProperties := DotNetNumberingProperties; END; [External] - PROCEDURE SetParagraphStyleId@17024407(NewParagraphStyleId@17024400 : Text); + PROCEDURE SetParagraphStyleId@9(NewParagraphStyleId@1000 : Text); VAR - DotNetParagraphStyleId@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphStyleId"; - DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetParagraphStyleId@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphStyleId"; + DotNetStringValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetParagraphStyleId := DotNetParagraphStyleId.ParagraphStyleId; DotNetParagraphStyleId.Val := DotNetStringValue.FromString(NewParagraphStyleId); DotNetParagraphProperties.ParagraphStyleId := DotNetParagraphStyleId; END; - PROCEDURE SetParagraphProperties@17024411(NewDotNetParagraphProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"); + PROCEDURE SetParagraphProperties@10(NewDotNetParagraphProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"); BEGIN DotNetParagraphProperties := NewDotNetParagraphProperties; END; - PROCEDURE GetParagraphProperties@17024400(VAR CurrentDotNetParagraphProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"); + PROCEDURE GetParagraphProperties@11(VAR CurrentDotNetParagraphProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"); BEGIN CurrentDotNetParagraphProperties := DotNetParagraphProperties; END; diff --git a/BaseApp/COD50027.TXT b/BaseApp/COD50027.TXT index cc7634d..168b256 100644 --- a/BaseApp/COD50027.TXT +++ b/BaseApp/COD50027.TXT @@ -15,39 +15,37 @@ OBJECT Codeunit 50027 DotNet_Word.Table CODE { VAR - DotNetTable@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; + DotNetTable@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetTable := DotNetTable.Table; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); - VAR - DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetTable := DotNetTable.Table(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetTable.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetTable.InnerText); END; [External] - PROCEDURE AppendRow@17024401(WordTableRow@17024400 : Codeunit 50028); + PROCEDURE AppendRow@5(WordTableRow@1000 : Codeunit 50028); VAR - DotNetTableRow@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetTableRow@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordTableRow.GetTableRow(DotNetTableRow); //We need this to deal with .NET Generics: @@ -55,23 +53,23 @@ OBJECT Codeunit 50027 DotNet_Word.Table END; [External] - PROCEDURE GetTableRowEnumerator@17024404(VAR WordTableRowEnumerator@17024400 : Codeunit 50065); + PROCEDURE GetTableRowEnumerator@6(VAR WordTableRowEnumerator@1000 : Codeunit 50065); VAR - EnumeratorHelper@17024401 : Codeunit 50067; - DotNetTableRow@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; - DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + EnumeratorHelper@1001 : Codeunit 50067; + DotNetTableRow@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; + DotNetEnumerator@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; BEGIN //We need this to deal with .NET Generics: EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetTable.Elements, GETDOTNETTYPE(DotNetTableRow), DotNetEnumerator); WordTableRowEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetTable@17024411(NewDotNetTable@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"); + PROCEDURE SetTable@7(NewDotNetTable@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"); BEGIN DotNetTable := NewDotNetTable; END; - PROCEDURE GetTable@17024400(VAR CurrentDotNetTable@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"); + PROCEDURE GetTable@8(VAR CurrentDotNetTable@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"); BEGIN CurrentDotNetTable := DotNetTable; END; diff --git a/BaseApp/COD50028.TXT b/BaseApp/COD50028.TXT index b98b875..ee993df 100644 --- a/BaseApp/COD50028.TXT +++ b/BaseApp/COD50028.TXT @@ -15,39 +15,37 @@ OBJECT Codeunit 50028 DotNet_Word.TableRow CODE { VAR - DotNetTableRow@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; + DotNetTableRow@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetTableRow := DotNetTableRow.TableRow; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); - VAR - DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetTableRow := DotNetTableRow.TableRow(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetTableRow.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetTableRow.InnerText); END; [External] - PROCEDURE AppendCell@17024401(WordTableCell@17024400 : Codeunit 50029); + PROCEDURE AppendCell@5(WordTableCell@1000 : Codeunit 50029); VAR - DotNetTableCell@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetTableCell@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordTableCell.GetTableCell(DotNetTableCell); //We need this to deal with .NET Generics: @@ -55,23 +53,23 @@ OBJECT Codeunit 50028 DotNet_Word.TableRow END; [External] - PROCEDURE GetTableCellEnumerator@17024404(VAR WordTableCellEnumerator@17024400 : Codeunit 50066); + PROCEDURE GetTableCellEnumerator@6(VAR WordTableCellEnumerator@1000 : Codeunit 50066); VAR - EnumeratorHelper@17024401 : Codeunit 50067; - DotNetTableCell@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; - DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + EnumeratorHelper@1001 : Codeunit 50067; + DotNetTableCell@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; + DotNetEnumerator@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; BEGIN //We need this to deal with .NET Generics: EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetTableRow.Elements, GETDOTNETTYPE(DotNetTableCell), DotNetEnumerator); WordTableCellEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetTableRow@17024411(NewDotNetTableRow@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"); + PROCEDURE SetTableRow@7(NewDotNetTableRow@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"); BEGIN DotNetTableRow := NewDotNetTableRow; END; - PROCEDURE GetTableRow@17024400(VAR CurrentDotNetTableRow@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"); + PROCEDURE GetTableRow@8(VAR CurrentDotNetTableRow@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"); BEGIN CurrentDotNetTableRow := DotNetTableRow; END; diff --git a/BaseApp/COD50029.TXT b/BaseApp/COD50029.TXT index 41c375c..f77a8d3 100644 --- a/BaseApp/COD50029.TXT +++ b/BaseApp/COD50029.TXT @@ -15,39 +15,37 @@ OBJECT Codeunit 50029 DotNet_Word.TableCell CODE { VAR - DotNetTableCell@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; + DotNetTableCell@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetTableCell := DotNetTableCell.TableCell; END; [External] - PROCEDURE CreateFromOuterXml@17024404(OuterXml@17024401 : Text); - VAR - DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetTableCell := DotNetTableCell.TableCell(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetTableCell.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetTableCell.InnerText); END; [External] - PROCEDURE AppendParagraph@17024401(WordParagraph@17024400 : Codeunit 50022); + PROCEDURE AppendParagraph@5(WordParagraph@1000 : Codeunit 50022); VAR - DotNetParagraph@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetParagraph@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordParagraph.GetParagraph(DotNetParagraph); //We need this to deal with .NET Generics: @@ -55,23 +53,23 @@ OBJECT Codeunit 50029 DotNet_Word.TableCell END; [External] - PROCEDURE GetParagraphEnumerator@17024408(VAR WordParagraphEnumerator@17024400 : Codeunit 50062); + PROCEDURE GetParagraphEnumerator@6(VAR WordParagraphEnumerator@1000 : Codeunit 50062); VAR - EnumeratorHelper@17024401 : Codeunit 50067; - DotNetParagraph@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; - DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + EnumeratorHelper@1001 : Codeunit 50067; + DotNetParagraph@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Paragraph"; + DotNetEnumerator@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; BEGIN //We need this to deal with .NET Generics: EnumeratorHelper.GetEnumeratorOfTypeGeneric(DotNetTableCell.Elements, GETDOTNETTYPE(DotNetParagraph), DotNetEnumerator); WordParagraphEnumerator.SetEnumerator(DotNetParagraph); END; - PROCEDURE SetTableCell@17024411(NewDotNetTableCell@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"); + PROCEDURE SetTableCell@7(NewDotNetTableCell@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"); BEGIN DotNetTableCell := NewDotNetTableCell; END; - PROCEDURE GetTableCell@17024400(VAR CurrentDotNetTableCell@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"); + PROCEDURE GetTableCell@8(VAR CurrentDotNetTableCell@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"); BEGIN CurrentDotNetTableCell := DotNetTableCell; END; diff --git a/BaseApp/COD50030.TXT b/BaseApp/COD50030.TXT index d38d7cf..fec4c66 100644 --- a/BaseApp/COD50030.TXT +++ b/BaseApp/COD50030.TXT @@ -15,42 +15,42 @@ OBJECT Codeunit 50030 DotNet_Word.SpacingBetweenLine CODE { VAR - DotNetSpacingBetweenLines@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"; + DotNetSpacingBetweenLines@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetSpacingBetweenLines := DotNetSpacingBetweenLines.SpacingBetweenLines; END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@2() : Text; BEGIN EXIT(DotNetSpacingBetweenLines.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@3() : Text; BEGIN EXIT(DotNetSpacingBetweenLines.InnerText); END; [External] - PROCEDURE SetAfter@17024401(NewAfterValue@17024400 : Text); + PROCEDURE SetAfter@4(NewAfterValue@1000 : Text); VAR - DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetStringValue := DotNetStringValue.StringValue; DotNetStringValue.Value := NewAfterValue; DotNetSpacingBetweenLines.After := DotNetStringValue; END; - PROCEDURE SetSpacingBetweenLines@17024411(NewDotNetSpacingBetweenLines@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"); + PROCEDURE SetSpacingBetweenLines@5(NewDotNetSpacingBetweenLines@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"); BEGIN DotNetSpacingBetweenLines := NewDotNetSpacingBetweenLines; END; - PROCEDURE GetSpacingBetweenLines@17024400(VAR CurrentDotNetSpacingBetweenLines@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"); + PROCEDURE GetSpacingBetweenLines@6(VAR CurrentDotNetSpacingBetweenLines@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"); BEGIN CurrentDotNetSpacingBetweenLines := DotNetSpacingBetweenLines; END; diff --git a/BaseApp/COD50031.TXT b/BaseApp/COD50031.TXT index 7e5a1cd..03174c7 100644 --- a/BaseApp/COD50031.TXT +++ b/BaseApp/COD50031.TXT @@ -15,30 +15,30 @@ OBJECT Codeunit 50031 DotNet_Word.Indentation CODE { VAR - DotNetIndentation@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"; + DotNetIndentation@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetIndentation := DotNetIndentation.Indentation; END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@2() : Text; BEGIN EXIT(DotNetIndentation.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@3() : Text; BEGIN EXIT(DotNetIndentation.InnerText); END; [External] - PROCEDURE SetLeft@17024401(NewLeftValue@17024400 : Text); + PROCEDURE SetLeft@4(NewLeftValue@1000 : Text); VAR - DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetStringValue := DotNetStringValue.StringValue; DotNetStringValue.Value := NewLeftValue; @@ -46,21 +46,21 @@ OBJECT Codeunit 50031 DotNet_Word.Indentation END; [External] - PROCEDURE SetHanging@17024407(NewHangingValue@17024400 : Text); + PROCEDURE SetHanging@5(NewHangingValue@1000 : Text); VAR - DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetStringValue := DotNetStringValue.StringValue; DotNetStringValue.Value := NewHangingValue; DotNetIndentation.Hanging := DotNetStringValue; END; - PROCEDURE SetIndentation@17024411(NewDotNetIndentation@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"); + PROCEDURE SetIndentation@6(NewDotNetIndentation@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"); BEGIN DotNetIndentation := NewDotNetIndentation; END; - PROCEDURE GetIndentation@17024400(VAR CurrentDotNetIndentation@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"); + PROCEDURE GetIndentation@7(VAR CurrentDotNetIndentation@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"); BEGIN CurrentDotNetIndentation := DotNetIndentation; END; diff --git a/BaseApp/COD50032.TXT b/BaseApp/COD50032.TXT index a4dc616..824d804 100644 --- a/BaseApp/COD50032.TXT +++ b/BaseApp/COD50032.TXT @@ -15,39 +15,37 @@ OBJECT Codeunit 50032 DotNet_Word.NumberingPropertie CODE { VAR - DotNetNumberingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"; + DotNetNumberingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetNumberingProperties := DotNetNumberingProperties.NumberingProperties; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); - VAR - DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNumberingProperties := DotNetNumberingProperties.NumberingProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetNumberingProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetNumberingProperties.InnerText); END; [External] - PROCEDURE SetNumberingLevelReference@17024401(NewNumberingLevelReference@17024400 : Integer); + PROCEDURE SetNumberingLevelReference@5(NewNumberingLevelReference@1000 : Integer); VAR - DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; - DotNetNumberingLevelReference@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingLevelReference"; + DotNetInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetNumberingLevelReference@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingLevelReference"; BEGIN DotNetNumberingLevelReference := DotNetNumberingLevelReference.NumberingLevelReference; DotNetNumberingLevelReference.Val := DotNetInt32Value.FromInt32(NewNumberingLevelReference); @@ -55,22 +53,22 @@ OBJECT Codeunit 50032 DotNet_Word.NumberingPropertie END; [External] - PROCEDURE SetNumberingId@17024407(NewNumberingId@17024400 : Integer); + PROCEDURE SetNumberingId@6(NewNumberingId@1000 : Integer); VAR - DotNetInt32Value@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; - DotNetNumberingId@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingId"; + DotNetInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetNumberingId@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingId"; BEGIN DotNetNumberingId := DotNetNumberingId.NumberingId; DotNetNumberingId.Val := DotNetInt32Value.FromInt32(NewNumberingId); DotNetNumberingProperties.NumberingId := DotNetNumberingId; END; - PROCEDURE SetNumberingProperties@17024411(NewDotNetNumberingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"); + PROCEDURE SetNumberingProperties@7(NewDotNetNumberingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"); BEGIN DotNetNumberingProperties := NewDotNetNumberingProperties; END; - PROCEDURE GetNumberingProperties@17024400(VAR CurrentDotNetNumberingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"); + PROCEDURE GetNumberingProperties@8(VAR CurrentDotNetNumberingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"); BEGIN CurrentDotNetNumberingProperties := DotNetNumberingProperties; END; diff --git a/BaseApp/COD50033.TXT b/BaseApp/COD50033.TXT index c4659d3..b88e699 100644 --- a/BaseApp/COD50033.TXT +++ b/BaseApp/COD50033.TXT @@ -15,43 +15,43 @@ OBJECT Codeunit 50033 DotNet_Word.ProofError CODE { VAR - DotNetProofError@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"; + DotNetProofError@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetProofError := DotNetProofError.ProofError; END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@2() : Text; BEGIN EXIT(DotNetProofError.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@3() : Text; BEGIN EXIT(DotNetProofError.InnerText); END; [External] - PROCEDURE SetType@17024401(NewProofingErrorType@17024400 : 'SpellStart,SpellEnd,GrammarStart,GrammarEnd'); + PROCEDURE SetType@4(NewProofingErrorType@1000 : 'SpellStart,SpellEnd,GrammarStart,GrammarEnd'); VAR - DotNetProofingErrorValues@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofingErrorValues"; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetProofingErrorValues@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofingErrorValues"; + DotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@1003 : Codeunit 50067; BEGIN OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetProofingErrorValues), NewProofingErrorType, DotNetEnumValue); DotNetProofError.Type := DotNetEnumValue; END; - PROCEDURE SetProofError@17024411(NewDotNetProofError@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"); + PROCEDURE SetProofError@5(NewDotNetProofError@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"); BEGIN DotNetProofError := NewDotNetProofError; END; - PROCEDURE GetProofError@17024400(VAR CurrentDotNetProofError@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"); + PROCEDURE GetProofError@6(VAR CurrentDotNetProofError@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"); BEGIN CurrentDotNetProofError := DotNetProofError; END; diff --git a/BaseApp/COD50034.TXT b/BaseApp/COD50034.TXT index 741a215..b5d7322 100644 --- a/BaseApp/COD50034.TXT +++ b/BaseApp/COD50034.TXT @@ -15,20 +15,20 @@ OBJECT Codeunit 50034 DotNet_Word.HyperlinkRelations CODE { VAR - DotNetHyperlinkRelationship@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"; + DotNetHyperlinkRelationship@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"; [External] - PROCEDURE GetId@17024401() : Text; + PROCEDURE GetId@1() : Text; BEGIN EXIT(DotNetHyperlinkRelationship.Id); END; - PROCEDURE SetHyperlinkRelationship@17024411(NewDotNetHyperlinkRelationship@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"); + PROCEDURE SetHyperlinkRelationship@2(NewDotNetHyperlinkRelationship@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"); BEGIN DotNetHyperlinkRelationship := NewDotNetHyperlinkRelationship; END; - PROCEDURE GetHyperlinkRelationship@17024400(VAR CurrentDotNetHyperlinkRelationship@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"); + PROCEDURE GetHyperlinkRelationship@3(VAR CurrentDotNetHyperlinkRelationship@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"); BEGIN CurrentDotNetHyperlinkRelationship := DotNetHyperlinkRelationship; END; diff --git a/BaseApp/COD50035.TXT b/BaseApp/COD50035.TXT index 71ce8a4..191dd70 100644 --- a/BaseApp/COD50035.TXT +++ b/BaseApp/COD50035.TXT @@ -15,39 +15,37 @@ OBJECT Codeunit 50035 DotNet_Word.Hyperlink CODE { VAR - DotNetHyperlink@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetHyperlink@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetHyperlink := DotNetHyperlink.Hyperlink; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024401 : Text); - VAR - DotNetXmlElem@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetHyperlink := DotNetHyperlink.Hyperlink(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024404() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetHyperlink.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetHyperlink.InnerText); END; [External] - PROCEDURE AppendRun@17024401(VAR WordRun@17024400 : Codeunit 50023); + PROCEDURE AppendRun@5(VAR WordRun@1000 : Codeunit 50023); VAR - DotNetRun@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; + DotNetRun@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Run"; BEGIN WordRun.GetRun(DotNetRun); //We need this to deal with .NET Generics: @@ -55,9 +53,9 @@ OBJECT Codeunit 50035 DotNet_Word.Hyperlink END; [External] - PROCEDURE AppendProofError@17024402(VAR WordProofError@17024400 : Codeunit 50033); + PROCEDURE AppendProofError@6(VAR WordProofError@1000 : Codeunit 50033); VAR - DotNetProofError@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"; + DotNetProofError@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"; BEGIN WordProofError.GetProofError(DotNetProofError); //We need this to deal with .NET Generics: @@ -65,27 +63,27 @@ OBJECT Codeunit 50035 DotNet_Word.Hyperlink END; [External] - PROCEDURE SetId@17024406(NewId@17024400 : Text); + PROCEDURE SetId@7(NewId@1000 : Text); VAR - DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetHyperlink.Id := DotNetStringValue.StringValue(NewId); END; [External] - PROCEDURE SetHistory@17024405(NewHistory@17024400 : Boolean); + PROCEDURE SetHistory@8(NewHistory@1000 : Boolean); VAR - DotNetOnOffValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OnOffValue"; + DotNetOnOffValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OnOffValue"; BEGIN DotNetHyperlink.History := DotNetOnOffValue.FromBoolean(NewHistory); END; - PROCEDURE SetHyperlink@17024411(NewDotNetHyperlink@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"); + PROCEDURE SetHyperlink@9(NewDotNetHyperlink@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"); BEGIN DotNetHyperlink := NewDotNetHyperlink; END; - PROCEDURE GetHyperlink@17024400(VAR CurrentDotNetHyperlink@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"); + PROCEDURE GetHyperlink@10(VAR CurrentDotNetHyperlink@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"); BEGIN CurrentDotNetHyperlink := DotNetHyperlink; END; diff --git a/BaseApp/COD50036.TXT b/BaseApp/COD50036.TXT index ba29706..b832bf5 100644 --- a/BaseApp/COD50036.TXT +++ b/BaseApp/COD50036.TXT @@ -15,52 +15,52 @@ OBJECT Codeunit 50036 DotNet_Word.Color CODE { VAR - DotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; + DotNetColor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetColor := DotNetColor.Color; END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@2() : Text; BEGIN EXIT(DotNetColor.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@3() : Text; BEGIN EXIT(DotNetColor.InnerText); END; [External] - PROCEDURE SetColorValue@17024406(NewColorArgb@17024400 : Text); + PROCEDURE SetColorValue@4(NewColorArgb@1000 : Text); VAR - DotNetStringValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetColor.Val := DotNetStringValue.StringValue(NewColorArgb); END; [External] - PROCEDURE SetColorTheme@17024405(NewColorTheme@17024400 : 'Dark1,Light1,Dark2,Light2,Accent1,Accent2,Accent3,Accent4,Accent5,Accent6,Hyperlink,FollowedHyperlink,None,Background1,Text1,Background2,Text2'); + PROCEDURE SetColorTheme@5(NewColorTheme@1000 : 'Dark1,Light1,Dark2,Light2,Accent1,Accent2,Accent3,Accent4,Accent5,Accent6,Hyperlink,FollowedHyperlink,None,Background1,Text1,Background2,Text2'); VAR - DotNetThemeColorValues@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ThemeColorValues"; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetThemeColorValues@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ThemeColorValues"; + DotNetEnumValue@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN //We need this to deal with .NET Generics: OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetThemeColorValues), NewColorTheme, DotNetEnumValue); DotNetColor.ThemeColor := DotNetEnumValue; END; - PROCEDURE SetColor@17024411(NewDotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"); + PROCEDURE SetColor@6(NewDotNetColor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"); BEGIN DotNetColor := NewDotNetColor; END; - PROCEDURE GetColor@17024400(VAR CurrentDotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"); + PROCEDURE GetColor@7(VAR CurrentDotNetColor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"); BEGIN CurrentDotNetColor := DotNetColor; END; diff --git a/BaseApp/COD50037.TXT b/BaseApp/COD50037.TXT index 275046d..0f8f700 100644 --- a/BaseApp/COD50037.TXT +++ b/BaseApp/COD50037.TXT @@ -15,37 +15,37 @@ OBJECT Codeunit 50037 DotNet_Word.StyleRunProperties CODE { VAR - DotNetStyleRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"; + DotNetStyleRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetStyleRunProperties := DotNetStyleRunProperties.StyleRunProperties; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetStyleRunProperties := DotNetStyleRunProperties.StyleRunProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetStyleRunProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetStyleRunProperties.InnerText); END; [External] - PROCEDURE SetBold@17024405(Bold@17024401 : Boolean); + PROCEDURE SetBold@5(Bold@1000 : Boolean); VAR - DotNetBold@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; - DotNetBoldNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; + DotNetBold@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; + DotNetBoldNull@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Bold"; BEGIN DotNetBold := DotNetBold.Bold; IF Bold THEN @@ -55,10 +55,10 @@ OBJECT Codeunit 50037 DotNet_Word.StyleRunProperties END; [External] - PROCEDURE SetItalic@17024409(Italic@17024401 : Boolean); + PROCEDURE SetItalic@6(Italic@1000 : Boolean); VAR - DotNetItalic@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; - DotNetItalicNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; + DotNetItalic@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; + DotNetItalicNull@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Italic"; BEGIN DotNetItalic := DotNetItalic.Italic; IF Italic THEN @@ -68,10 +68,10 @@ OBJECT Codeunit 50037 DotNet_Word.StyleRunProperties END; [External] - PROCEDURE SetUnderline@17024401(Underline@17024401 : Boolean); + PROCEDURE SetUnderline@7(Underline@1000 : Boolean); VAR - DotNetUnderline@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; - DotNetUnderlineNull@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + DotNetUnderline@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; + DotNetUnderlineNull@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Underline"; BEGIN DotNetUnderline := DotNetUnderline.Underline; IF Underline THEN @@ -81,10 +81,10 @@ OBJECT Codeunit 50037 DotNet_Word.StyleRunProperties END; [External] - PROCEDURE SetFontSize@17024406(NewFontSize@17024401 : Text); + PROCEDURE SetFontSize@8(NewFontSize@1000 : Text); VAR - DotNetFontSize@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.FontSize"; - DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetFontSize@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.FontSize"; + DotNetStringValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetFontSize := DotNetFontSize.FontSize; DotNetFontSize.Val := DotNetStringValue.StringValue(NewFontSize); @@ -92,20 +92,20 @@ OBJECT Codeunit 50037 DotNet_Word.StyleRunProperties END; [External] - PROCEDURE SetColor@17024404(VAR WordColor@17024401 : Codeunit 50036); + PROCEDURE SetColor@9(VAR WordColor@1000 : Codeunit 50036); VAR - DotNetColor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; + DotNetColor@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; BEGIN WordColor.GetColor(DotNetColor); DotNetStyleRunProperties.Color := DotNetColor; END; - PROCEDURE SetStyleRunProperties@17024411(NewDotNetStyleRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"); + PROCEDURE SetStyleRunProperties@10(NewDotNetStyleRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"); BEGIN DotNetStyleRunProperties := NewDotNetStyleRunProperties; END; - PROCEDURE GetStyleRunProperties@17024400(VAR CurrentDotNetStyleRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"); + PROCEDURE GetStyleRunProperties@11(VAR CurrentDotNetStyleRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"); BEGIN CurrentDotNetStyleRunProperties := DotNetStyleRunProperties; END; diff --git a/BaseApp/COD50038.TXT b/BaseApp/COD50038.TXT index 28dbb98..41e959c 100644 --- a/BaseApp/COD50038.TXT +++ b/BaseApp/COD50038.TXT @@ -15,37 +15,37 @@ OBJECT Codeunit 50038 DotNet_Word.Style CODE { VAR - DotNetStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; + DotNetStyle@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetStyle := DotNetStyle.Style; END; [External] - PROCEDURE CreateFromOuterXml@17024416(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetStyle := DotNetStyle.Style(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024414() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetStyle.OuterXml); END; [External] - PROCEDURE GetInnerText@17024412() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetStyle.InnerText); END; [External] - PROCEDURE SetStyleName@17024405(NewStyleName@17024401 : Text); + PROCEDURE SetStyleName@5(NewStyleName@1000 : Text); VAR - DotNetStyleName@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleName"; - DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStyleName@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleName"; + DotNetStringValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetStyleName := DotNetStyleName.StyleName; DotNetStyleName.Val := DotNetStringValue.StringValue(NewStyleName); @@ -53,16 +53,16 @@ OBJECT Codeunit 50038 DotNet_Word.Style END; [External] - PROCEDURE GetStyleName@17024413() : Text; + PROCEDURE GetStyleName@6() : Text; BEGIN EXIT(DotNetStyle.StyleName.Val.Value); END; [External] - PROCEDURE SetBasedOn@17024409(NewBasedOn@17024401 : Text); + PROCEDURE SetBasedOn@7(NewBasedOn@1000 : Text); VAR - DotNetBasedOn@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.BasedOn"; - DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetBasedOn@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.BasedOn"; + DotNetStringValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetBasedOn := DotNetBasedOn.BasedOn; DotNetBasedOn.Val := DotNetStringValue.StringValue(NewBasedOn); @@ -70,10 +70,10 @@ OBJECT Codeunit 50038 DotNet_Word.Style END; [External] - PROCEDURE SetNextParagraphStyle@17024401(NewNextParagraphStyle@17024401 : Text); + PROCEDURE SetNextParagraphStyle@8(NewNextParagraphStyle@1000 : Text); VAR - DotNetNextParagraphStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NextParagraphStyle"; - DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetNextParagraphStyle@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NextParagraphStyle"; + DotNetStringValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetNextParagraphStyle := DotNetNextParagraphStyle.NextParagraphStyle; DotNetNextParagraphStyle.Val := DotNetStringValue.StringValue(NewNextParagraphStyle); @@ -81,10 +81,10 @@ OBJECT Codeunit 50038 DotNet_Word.Style END; [External] - PROCEDURE SetUIPriority@17024406(NewUIPriority@17024401 : Integer); + PROCEDURE SetUIPriority@9(NewUIPriority@1000 : Integer); VAR - DotNetUIPriority@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.UIPriority"; - DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetUIPriority@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.UIPriority"; + DotNetInt32Value@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; BEGIN DotNetUIPriority := DotNetUIPriority.UIPriority; DotNetUIPriority.Val := DotNetInt32Value.FromInt32(NewUIPriority); @@ -92,33 +92,33 @@ OBJECT Codeunit 50038 DotNet_Word.Style END; [External] - PROCEDURE SetStyleId@17024404(NewStyleId@17024401 : Text); + PROCEDURE SetStyleId@10(NewStyleId@1000 : Text); VAR - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetStyle.StyleId := DotNetStringValue.StringValue(NewStyleId); END; [External] - PROCEDURE GetStyleId@17024415() : Text; + PROCEDURE GetStyleId@11() : Text; BEGIN EXIT(DotNetStyle.StyleId.Value); END; [External] - PROCEDURE SetCustomStyle@17024407(CustomStyle@17024401 : Boolean); + PROCEDURE SetCustomStyle@12(CustomStyle@1000 : Boolean); VAR - DotNetOnOffValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OnOffValue"; + DotNetOnOffValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OnOffValue"; BEGIN DotNetStyle.CustomStyle := DotNetOnOffValue.FromBoolean(CustomStyle); END; [External] - PROCEDURE SetStyleType@17024410(NewStyleType@17024401 : 'Paragraph,Character,Table,Numbering'); + PROCEDURE SetStyleType@13(NewStyleType@1000 : 'Paragraph,Character,Table,Numbering'); VAR - DotNetStyleValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleValues"; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetStyleValues@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleValues"; + DotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@1003 : Codeunit 50067; BEGIN //We need this to deal with .NET Generics: OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetStyleValues), NewStyleType, DotNetEnumValue); @@ -126,10 +126,10 @@ OBJECT Codeunit 50038 DotNet_Word.Style END; [External] - PROCEDURE GetStyleType@17024408() : Integer; + PROCEDURE GetStyleType@14() : Integer; VAR - DotNetStyleValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleValues"; - DotNetEnumValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + DotNetStyleValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleValues"; + DotNetEnumValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; BEGIN DotNetEnumValue := DotNetStyle.Type; DotNetStyleValues := DotNetEnumValue.Value; @@ -137,22 +137,22 @@ OBJECT Codeunit 50038 DotNet_Word.Style END; [External] - PROCEDURE AppendStyleRunProperties@17024402(VAR WordStyleRunProperties@17024401 : Codeunit 50037); + PROCEDURE AppendStyleRunProperties@15(VAR WordStyleRunProperties@1000 : Codeunit 50037); VAR - DotNetStyleRunProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetStyleRunProperties@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordStyleRunProperties.GetStyleRunProperties(DotNetStyleRunProperties); //We need this to deal with .NET Generics: OpenXmlDotNetHelper.AppendGeneric(DotNetStyle, DotNetStyleRunProperties); END; - PROCEDURE SetStyle@17024411(NewDotNetStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"); + PROCEDURE SetStyle@16(NewDotNetStyle@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"); BEGIN DotNetStyle := NewDotNetStyle; END; - PROCEDURE GetStyle@17024400(VAR CurrentDotNetStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"); + PROCEDURE GetStyle@17(VAR CurrentDotNetStyle@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"); BEGIN CurrentDotNetStyle := DotNetStyle; END; diff --git a/BaseApp/COD50039.TXT b/BaseApp/COD50039.TXT index 2290fbd..8b4e8eb 100644 --- a/BaseApp/COD50039.TXT +++ b/BaseApp/COD50039.TXT @@ -15,37 +15,37 @@ OBJECT Codeunit 50039 DotNet_Word.Styles CODE { VAR - DotNetStyles@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"; + DotNetStyles@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetStyles := DotNetStyles.Styles; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetStyles := DotNetStyles.Styles(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetStyles.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetStyles.InnerText); END; [External] - PROCEDURE AppendStyle@17024405(VAR WordStyle@17024401 : Codeunit 50038); + PROCEDURE AppendStyle@5(VAR WordStyle@1000 : Codeunit 50038); VAR - DotNetStyle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetStyle@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordStyle.GetStyle(DotNetStyle); //We need this to deal with .NET Generics: @@ -53,32 +53,32 @@ OBJECT Codeunit 50039 DotNet_Word.Styles END; [External] - PROCEDURE Save@17024401(VAR WordStyleDefinitionPart@17024401 : Codeunit 50041); + PROCEDURE Save@6(VAR WordStyleDefinitionPart@1000 : Codeunit 50041); VAR - DotNetStyleDefinitionsPart@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"; + DotNetStyleDefinitionsPart@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"; BEGIN WordStyleDefinitionPart.GetStyleDefinitionsPart(DotNetStyleDefinitionsPart); DotNetStyles.Save(DotNetStyleDefinitionsPart); END; [External] - PROCEDURE GetStyleEnumerator@17024413(VAR WordStylesEnumerator@17024400 : Codeunit 50040); + PROCEDURE GetStyleEnumerator@7(VAR WordStylesEnumerator@1000 : Codeunit 50040); VAR - DotNetStyle@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; - DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetStyle@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; + DotNetEnumerator@1002 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + OpenXmlDotNetHelper@1003 : Codeunit 50067; BEGIN //We need this to deal with .NET Generics: OpenXmlDotNetHelper.GetEnumeratorOfTypeGeneric(DotNetStyles.Elements, GETDOTNETTYPE(DotNetStyle), DotNetEnumerator); WordStylesEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetStyles@17024411(NewDotNetStyles@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"); + PROCEDURE SetStyles@8(NewDotNetStyles@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"); BEGIN DotNetStyles := NewDotNetStyles; END; - PROCEDURE GetStyles@17024400(VAR CurrentDotNetStyles@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"); + PROCEDURE GetStyles@9(VAR CurrentDotNetStyles@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"); BEGIN CurrentDotNetStyles := DotNetStyles; END; diff --git a/BaseApp/COD50040.TXT b/BaseApp/COD50040.TXT index bc475e8..638d602 100644 --- a/BaseApp/COD50040.TXT +++ b/BaseApp/COD50040.TXT @@ -15,32 +15,32 @@ OBJECT Codeunit 50040 DotNet_Word.StylesEnumerator CODE { VAR - DotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + DotNetEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - PROCEDURE SetEnumerator@17024415(NewEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE SetEnumerator@1(NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN DotNetEnumerator := NewEnumerator; END; - PROCEDURE GetEnumerator@17024414(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumerator@2(VAR CurrentEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN CurrentEnumerator := DotNetEnumerator; END; [External] - PROCEDURE Reset@17024401(); + PROCEDURE Reset@3(); BEGIN DotNetEnumerator.Reset; END; [External] - PROCEDURE MoveNext@17024402() : Boolean; + PROCEDURE MoveNext@4() : Boolean; BEGIN EXIT(DotNetEnumerator.MoveNext); END; [External] - PROCEDURE GetCurrent@17024403(VAR CurrentStyle@17024400 : Codeunit 50038); + PROCEDURE GetCurrent@5(VAR CurrentStyle@1000 : Codeunit 50038); BEGIN CurrentStyle.SetStyle(DotNetEnumerator.Current); END; diff --git a/BaseApp/COD50041.TXT b/BaseApp/COD50041.TXT index 77e8f30..7c9a57f 100644 --- a/BaseApp/COD50041.TXT +++ b/BaseApp/COD50041.TXT @@ -15,35 +15,35 @@ OBJECT Codeunit 50041 DotNet_Word.StyleDefinitionPar CODE { VAR - DotNetStyleDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"; + DotNetStyleDefinitionsPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"; [External] - PROCEDURE SetStyles@17024403(VAR WordStyles@17024400 : Codeunit 50039); + PROCEDURE SetStyles@1(VAR WordStyles@1000 : Codeunit 50039); VAR - DotNetStyles@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"; + DotNetStyles@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"; BEGIN WordStyles.GetStyles(DotNetStyles); DotNetStyleDefinitionsPart.Styles := DotNetStyles; END; [External] - PROCEDURE GetStyles@17024401(VAR WordStyles@17024400 : Codeunit 50039); + PROCEDURE GetStyles@2(VAR WordStyles@1000 : Codeunit 50039); BEGIN WordStyles.SetStyles(DotNetStyleDefinitionsPart.Styles); END; [External] - PROCEDURE IsDotNetNull@17024402() : Boolean; + PROCEDURE IsDotNetNull@3() : Boolean; BEGIN EXIT(ISNULL(DotNetStyleDefinitionsPart)); END; - PROCEDURE SetStyleDefinitionsPart@17024411(NewDotNetStyleDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"); + PROCEDURE SetStyleDefinitionsPart@4(NewDotNetStyleDefinitionsPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"); BEGIN DotNetStyleDefinitionsPart := NewDotNetStyleDefinitionsPart; END; - PROCEDURE GetStyleDefinitionsPart@17024400(VAR CurrentDotNetStyleDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"); + PROCEDURE GetStyleDefinitionsPart@5(VAR CurrentDotNetStyleDefinitionsPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.StyleDefinitionsPart"); BEGIN CurrentDotNetStyleDefinitionsPart := DotNetStyleDefinitionsPart; END; diff --git a/BaseApp/COD50042.TXT b/BaseApp/COD50042.TXT index 5971531..771d6e2 100644 --- a/BaseApp/COD50042.TXT +++ b/BaseApp/COD50042.TXT @@ -15,20 +15,20 @@ OBJECT Codeunit 50042 DotNet_Word.ImagePart CODE { VAR - DotNetImagePart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"; + DotNetImagePart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"; [External] - PROCEDURE FeedData@17024401(ImageStream@17024400 : InStream); + PROCEDURE FeedData@1(ImageStream@1000 : InStream); BEGIN DotNetImagePart.FeedData(ImageStream); END; - PROCEDURE SetImagePart@17024411(NewDotNetImagePart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"); + PROCEDURE SetImagePart@2(NewDotNetImagePart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"); BEGIN DotNetImagePart := NewDotNetImagePart; END; - PROCEDURE GetImagePart@17024400(VAR CurrentDotNetImagePart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"); + PROCEDURE GetImagePart@3(VAR CurrentDotNetImagePart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"); BEGIN CurrentDotNetImagePart := DotNetImagePart; END; diff --git a/BaseApp/COD50043.TXT b/BaseApp/COD50043.TXT index 5c0a4ed..4355c2a 100644 --- a/BaseApp/COD50043.TXT +++ b/BaseApp/COD50043.TXT @@ -15,49 +15,49 @@ OBJECT Codeunit 50043 DotNet_Word.Drawing CODE { VAR - DotNetDrawing@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"; + DotNetDrawing@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetDrawing := DotNetDrawing.Drawing; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetDrawing := DotNetDrawing.Drawing(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetDrawing.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetDrawing.InnerText); END; [External] - PROCEDURE AppendAnchor@17024405(VAR WordAnchor@17024401 : Codeunit 50044); + PROCEDURE AppendAnchor@5(VAR WordAnchor@1000 : Codeunit 50044); VAR - DotNetAnchor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetAnchor@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordAnchor.GetAnchor(DotNetAnchor); //We need this to deal with .NET Generics: OpenXmlDotNetHelper.AppendGeneric(DotNetDrawing, DotNetAnchor); END; - PROCEDURE SetDrawing@17024411(NewDotNetDrawing@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"); + PROCEDURE SetDrawing@6(NewDotNetDrawing@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"); BEGIN DotNetDrawing := NewDotNetDrawing; END; - PROCEDURE GetDrawing@17024400(VAR CurrentDotNetDrawing@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"); + PROCEDURE GetDrawing@7(VAR CurrentDotNetDrawing@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"); BEGIN CurrentDotNetDrawing := DotNetDrawing; END; diff --git a/BaseApp/COD50044.TXT b/BaseApp/COD50044.TXT index e9256c6..ccf172c 100644 --- a/BaseApp/COD50044.TXT +++ b/BaseApp/COD50044.TXT @@ -15,118 +15,118 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor CODE { VAR - DotNetAnchor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetAnchor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetAnchor := DotNetAnchor.Anchor; END; [External] - PROCEDURE CreateFromOuterXml@17024425(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetAnchor := DotNetAnchor.Anchor(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024424() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetAnchor.OuterXml); END; [External] - PROCEDURE GetInnerText@17024423() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetAnchor.InnerText); END; [External] - PROCEDURE SetAllowOverlap@17024405(NewAllowOverlap@17024401 : Boolean); + PROCEDURE SetAllowOverlap@5(NewAllowOverlap@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetAnchor.AllowOverlap := DotNetBooleanValue.BooleanValue(NewAllowOverlap); END; [External] - PROCEDURE SetLayoutInCell@17024402(NewLayoutInCell@17024401 : Boolean); + PROCEDURE SetLayoutInCell@6(NewLayoutInCell@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetAnchor.LayoutInCell := DotNetBooleanValue.BooleanValue(NewLayoutInCell); END; [External] - PROCEDURE SetLocked@17024406(NewLocked@17024401 : Boolean); + PROCEDURE SetLocked@7(NewLocked@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetAnchor.Locked := DotNetBooleanValue.BooleanValue(NewLocked); END; [External] - PROCEDURE SetBehindDoc@17024408(NewBehindDoc@17024401 : Boolean); + PROCEDURE SetBehindDoc@8(NewBehindDoc@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetAnchor.BehindDoc := DotNetBooleanValue.BooleanValue(NewBehindDoc); END; [External] - PROCEDURE SetSimplePos@17024409(NewSimplePos@17024401 : Boolean); + PROCEDURE SetSimplePos@9(NewSimplePos@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetAnchor.SimplePos := DotNetBooleanValue.BooleanValue(NewSimplePos); END; [External] - PROCEDURE SetRelativeHeight@17024412(NewRelativeHeight@17024401 : Integer); + PROCEDURE SetRelativeHeight@10(NewRelativeHeight@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetAnchor.RelativeHeight := DotNetUInt32Value.FromUInt32(NewRelativeHeight); END; [External] - PROCEDURE SetDistanceFromRight@17024414(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromRight@11(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetAnchor.DistanceFromRight := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE SetDistanceFromLeft@17024415(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromLeft@12(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetAnchor.DistanceFromLeft := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE SetDistanceFromTop@17024416(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromTop@13(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetAnchor.DistanceFromTop := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE SetDistanceFromBottom@17024417(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromBottom@14(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetAnchor.DistanceFromBottom := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE AppendSimplePosition@17024401(X@17024401 : Integer;Y@17024402 : Integer); + PROCEDURE AppendSimplePosition@15(X@1000 : Integer;Y@1001 : Integer); VAR - DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; - DotNetSimplePosition@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.SimplePosition"; + DotNetInt64Value@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetSimplePosition@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.SimplePosition"; BEGIN DotNetSimplePosition := DotNetSimplePosition.SimplePosition; DotNetSimplePosition.X := DotNetInt64Value.FromInt64(X); @@ -136,10 +136,10 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor END; [External] - PROCEDURE AppendExtent@17024410(Cx@17024401 : Integer;Cy@17024402 : Integer); + PROCEDURE AppendExtent@16(Cx@1000 : Integer;Cy@1001 : Integer); VAR - DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; - DotNetExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Extent"; + DotNetInt64Value@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetExtent@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Extent"; BEGIN DotNetExtent := DotNetExtent.Extent; DotNetExtent.Cx := DotNetInt64Value.FromInt64(Cx); @@ -149,10 +149,10 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor END; [External] - PROCEDURE AppendEffectExtent@17024418(LeftEdge@17024401 : Integer;TopEdge@17024402 : Integer;RightEdge@17024404 : Integer;BottomEdge@17024405 : Integer); + PROCEDURE AppendEffectExtent@17(LeftEdge@1000 : Integer;TopEdge@1001 : Integer;RightEdge@1002 : Integer;BottomEdge@1003 : Integer); VAR - DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; - DotNetEffectExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.EffectExtent"; + DotNetInt64Value@1004 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetEffectExtent@1005 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.EffectExtent"; BEGIN DotNetEffectExtent := DotNetEffectExtent.EffectExtent; DotNetEffectExtent.LeftEdge := DotNetInt64Value.FromInt64(LeftEdge); @@ -164,9 +164,9 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor END; [External] - PROCEDURE AppendVerticalPosition@17024404(VAR WordVerticalPosition@17024401 : Codeunit 50045); + PROCEDURE AppendVerticalPosition@18(VAR WordVerticalPosition@1000 : Codeunit 50045); VAR - DotNetVerticalPosition@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"; + DotNetVerticalPosition@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"; BEGIN WordVerticalPosition.GetVerticalPosition(DotNetVerticalPosition); //We need this to deal with .NET Generics: @@ -174,9 +174,9 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor END; [External] - PROCEDURE AppendHorizontalPosition@17024413(VAR WordHorizontalPosition@17024401 : Codeunit 50046); + PROCEDURE AppendHorizontalPosition@19(VAR WordHorizontalPosition@1000 : Codeunit 50046); VAR - DotNetHorizontalPosition@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"; + DotNetHorizontalPosition@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"; BEGIN WordHorizontalPosition.GetHorizontalPosition(DotNetHorizontalPosition); //We need this to deal with .NET Generics: @@ -184,9 +184,9 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor END; [External] - PROCEDURE AppendWrapSquare@17024407(VAR WordWrapSquare@17024401 : Codeunit 50047); + PROCEDURE AppendWrapSquare@20(VAR WordWrapSquare@1000 : Codeunit 50047); VAR - DotNetWrapSquare@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"; + DotNetWrapSquare@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"; BEGIN WordWrapSquare.GetWrapSquare(DotNetWrapSquare); //We need this to deal with .NET Generics: @@ -194,9 +194,9 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor END; [External] - PROCEDURE AppendWrapTopBottom@17024419(VAR WordWrapTopBottom@17024401 : Codeunit 50048); + PROCEDURE AppendWrapTopBottom@21(VAR WordWrapTopBottom@1000 : Codeunit 50048); VAR - DotNetWrapTopBottom@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"; + DotNetWrapTopBottom@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"; BEGIN WordWrapTopBottom.GetWrapTopBottom(DotNetWrapTopBottom); //We need this to deal with .NET Generics: @@ -204,9 +204,9 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor END; [External] - PROCEDURE AppendDocProperties@17024420(VAR WordDocProperties@17024401 : Codeunit 50049); + PROCEDURE AppendDocProperties@22(VAR WordDocProperties@1000 : Codeunit 50049); VAR - DotNetDocProperties@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"; + DotNetDocProperties@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"; BEGIN WordDocProperties.GetDocProperties(DotNetDocProperties); //We need this to deal with .NET Generics: @@ -214,10 +214,10 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor END; [External] - PROCEDURE AppendGraphicFrameLocks@17024421(VAR WordGraphicFrameLocks@17024401 : Codeunit 50050); + PROCEDURE AppendGraphicFrameLocks@23(VAR WordGraphicFrameLocks@1000 : Codeunit 50050); VAR - DotNetGraphicFrameLocks@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"; - DotNetNonVisualGraphicFrameDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.NonVisualGraphicFrameDrawingProperties"; + DotNetGraphicFrameLocks@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"; + DotNetNonVisualGraphicFrameDrawingProperties@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.NonVisualGraphicFrameDrawingProperties"; BEGIN WordGraphicFrameLocks.GetGraphicFrameLocks(DotNetGraphicFrameLocks); DotNetNonVisualGraphicFrameDrawingProperties := DotNetNonVisualGraphicFrameDrawingProperties.NonVisualGraphicFrameDrawingProperties; @@ -227,12 +227,12 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor END; [External] - PROCEDURE AppendPicture@17024422(VAR WordPicture@17024401 : Codeunit 50051); + PROCEDURE AppendPicture@24(VAR WordPicture@1000 : Codeunit 50051); VAR - DotNetPicture@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"; - DotNetGraphicData@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicData"; - DotNetGraphic@17024404 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Graphic"; - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetPicture@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"; + DotNetGraphicData@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicData"; + DotNetGraphic@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Graphic"; + DotNetStringValue@1004 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN WordPicture.GetPicture(DotNetPicture); DotNetGraphic := DotNetGraphic.Graphic; @@ -244,12 +244,12 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetGraphic); END; - PROCEDURE SetAnchor@17024411(NewDotNetAnchor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"); + PROCEDURE SetAnchor@25(NewDotNetAnchor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"); BEGIN DotNetAnchor := NewDotNetAnchor; END; - PROCEDURE GetAnchor@17024400(VAR CurrentDotNetAnchor@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"); + PROCEDURE GetAnchor@26(VAR CurrentDotNetAnchor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"); BEGIN CurrentDotNetAnchor := DotNetAnchor; END; diff --git a/BaseApp/COD50045.TXT b/BaseApp/COD50045.TXT index 981134a..54a98da 100644 --- a/BaseApp/COD50045.TXT +++ b/BaseApp/COD50045.TXT @@ -15,73 +15,73 @@ OBJECT Codeunit 50045 DotNet_Word.VerticalPosition CODE { VAR - DotNetVerticalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"; + DotNetVerticalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetVerticalPosition := DotNetVerticalPosition.VerticalPosition; END; [External] - PROCEDURE CreateFromOuterXml@17024404(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetVerticalPosition := DotNetVerticalPosition.VerticalPosition(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetVerticalPosition.OuterXml); END; [External] - PROCEDURE GetInnerText@17024401() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetVerticalPosition.InnerText); END; [External] - PROCEDURE SetPositionOffset@17024405(NewPositionOffset@17024401 : Text); + PROCEDURE SetPositionOffset@5(NewPositionOffset@1000 : Text); VAR - DotNetPositionOffset@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.PositionOffset"; + DotNetPositionOffset@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.PositionOffset"; BEGIN DotNetVerticalPosition.PositionOffset := DotNetPositionOffset.PositionOffset(NewPositionOffset); END; [External] - PROCEDURE SetRelativeFrom@17024408(NewRelativeFrom@17024401 : 'Margin,Page,Paragraph,Line,TopMargin,BottomMargin,InsideMargin,OutsideMargin'); + PROCEDURE SetRelativeFrom@6(NewRelativeFrom@1000 : 'Margin,Page,Paragraph,Line,TopMargin,BottomMargin,InsideMargin,OutsideMargin'); VAR - DotNetVerticalRelativePositionValues@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalRelativePositionValues"; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; - OpenXmlDotNetHelper@17024400 : Codeunit 50067; + DotNetVerticalRelativePositionValues@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalRelativePositionValues"; + DotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@1003 : Codeunit 50067; BEGIN OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetVerticalRelativePositionValues), NewRelativeFrom, DotNetEnumValue); DotNetVerticalPosition.RelativeFrom := DotNetEnumValue; END; [External] - PROCEDURE SetVerticalAlignment@17024410(NewVerticalAlignment@17024401 : Text); + PROCEDURE SetVerticalAlignment@7(NewVerticalAlignment@1000 : Text); VAR - DotNetVerticalAlignment@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalAlignment"; + DotNetVerticalAlignment@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalAlignment"; BEGIN DotNetVerticalPosition.VerticalAlignment := DotNetVerticalAlignment.VerticalAlignment(NewVerticalAlignment); END; [External] - PROCEDURE SetPercentagePositionVerticalOffset@17024413(NewPercentagePositionVerticalOffset@17024401 : Text); + PROCEDURE SetPercentagePositionVerticalOffset@8(NewPercentagePositionVerticalOffset@1000 : Text); VAR - DotNetPercentagePositionVerticalOffset@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Office2010.Word.Drawing.PercentagePositionVerticalOffset"; + DotNetPercentagePositionVerticalOffset@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Office2010.Word.Drawing.PercentagePositionVerticalOffset"; BEGIN DotNetVerticalPosition.PercentagePositionVerticalOffset := DotNetPercentagePositionVerticalOffset.PercentagePositionVerticalOffset(NewPercentagePositionVerticalOffset); END; - PROCEDURE SetVerticalPosition@17024411(NewDotNetVerticalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"); + PROCEDURE SetVerticalPosition@9(NewDotNetVerticalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"); BEGIN DotNetVerticalPosition := NewDotNetVerticalPosition; END; - PROCEDURE GetVerticalPosition@17024400(VAR CurrentDotNetVerticalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"); + PROCEDURE GetVerticalPosition@10(VAR CurrentDotNetVerticalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"); BEGIN CurrentDotNetVerticalPosition := DotNetVerticalPosition; END; diff --git a/BaseApp/COD50046.TXT b/BaseApp/COD50046.TXT index 7b39db8..ac0930e 100644 --- a/BaseApp/COD50046.TXT +++ b/BaseApp/COD50046.TXT @@ -15,73 +15,73 @@ OBJECT Codeunit 50046 DotNet_Word.HorizontalPosition CODE { VAR - DotNetHorizontalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"; + DotNetHorizontalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetHorizontalPosition := DotNetHorizontalPosition.HorizontalPosition; END; [External] - PROCEDURE CreateFromOuterXml@17024404(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetHorizontalPosition := DotNetHorizontalPosition.HorizontalPosition(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetHorizontalPosition.OuterXml); END; [External] - PROCEDURE GetInnerText@17024401() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetHorizontalPosition.InnerText); END; [External] - PROCEDURE SetPositionOffset@17024405(NewPositionOffset@17024401 : Text); + PROCEDURE SetPositionOffset@5(NewPositionOffset@1000 : Text); VAR - DotNetPositionOffset@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.PositionOffset"; + DotNetPositionOffset@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.PositionOffset"; BEGIN DotNetHorizontalPosition.PositionOffset := DotNetPositionOffset.PositionOffset(NewPositionOffset); END; [External] - PROCEDURE SetRelativeFrom@17024408(NewRelativeFrom@17024401 : 'Margin,Page,Column,Character,LeftMargin,RightMargin,InsideMargin,OutsideMargin'); + PROCEDURE SetRelativeFrom@6(NewRelativeFrom@1000 : 'Margin,Page,Column,Character,LeftMargin,RightMargin,InsideMargin,OutsideMargin'); VAR - DotNetHorizontalRelativePositionValues@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalRelativePositionValues"; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; - OpenXmlDotNetHelper@17024400 : Codeunit 50067; + DotNetHorizontalRelativePositionValues@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalRelativePositionValues"; + DotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@1003 : Codeunit 50067; BEGIN OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetHorizontalRelativePositionValues), NewRelativeFrom, DotNetEnumValue); DotNetHorizontalPosition.RelativeFrom := DotNetEnumValue; END; [External] - PROCEDURE SetHorizontalAlignment@17024410(NewHorizontalAlignment@17024401 : Text); + PROCEDURE SetHorizontalAlignment@7(NewHorizontalAlignment@1000 : Text); VAR - DotNetHorizontalAlignment@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalAlignment"; + DotNetHorizontalAlignment@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalAlignment"; BEGIN DotNetHorizontalPosition.HorizontalAlignment := DotNetHorizontalAlignment.HorizontalAlignment(NewHorizontalAlignment); END; [External] - PROCEDURE SetPercentagePositionHeightOffset@17024413(NewPercentagePositionHeightOffset@17024401 : Text); + PROCEDURE SetPercentagePositionHeightOffset@8(NewPercentagePositionHeightOffset@1000 : Text); VAR - DotNetPercentagePositionHeigthOffset@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Office2010.Word.Drawing.PercentagePositionHeightOffset"; + DotNetPercentagePositionHeigthOffset@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Office2010.Word.Drawing.PercentagePositionHeightOffset"; BEGIN DotNetHorizontalPosition.PercentagePositionHeightOffset := DotNetPercentagePositionHeigthOffset.PercentagePositionHeightOffset(NewPercentagePositionHeightOffset); END; - PROCEDURE SetHorizontalPosition@17024411(NewDotNetHorizontalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"); + PROCEDURE SetHorizontalPosition@9(NewDotNetHorizontalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"); BEGIN DotNetHorizontalPosition := NewDotNetHorizontalPosition; END; - PROCEDURE GetHorizontalPosition@17024400(VAR CurrentDotNetHorizontalPosition@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"); + PROCEDURE GetHorizontalPosition@10(VAR CurrentDotNetHorizontalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"); BEGIN CurrentDotNetHorizontalPosition := DotNetHorizontalPosition; END; diff --git a/BaseApp/COD50047.TXT b/BaseApp/COD50047.TXT index 2b436e4..bc40747 100644 --- a/BaseApp/COD50047.TXT +++ b/BaseApp/COD50047.TXT @@ -15,70 +15,70 @@ OBJECT Codeunit 50047 DotNet_Word.WrapSquare CODE { VAR - DotNetWrapSquare@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetWrapSquare@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetWrapSquare := DotNetWrapSquare.WrapSquare; END; [External] - PROCEDURE CreateFromOuterXml@17024401(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetWrapSquare := DotNetWrapSquare.WrapSquare(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetWrapSquare.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetWrapSquare.InnerText); END; [External] - PROCEDURE SetDistanceFromRight@17024414(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromRight@5(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetWrapSquare.DistanceFromRight := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE SetDistanceFromLeft@17024415(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromLeft@6(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetWrapSquare.DistanceFromLeft := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE SetDistanceFromTop@17024416(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromTop@7(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetWrapSquare.DistanceFromTop := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE SetDistanceFromBottom@17024417(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromBottom@8(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetWrapSquare.DistanceFromBottom := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE SetWrapText@17024408(NewWrapText@17024401 : 'BothSides,Left,Right,Largest'); + PROCEDURE SetWrapText@9(NewWrapText@1000 : 'BothSides,Left,Right,Largest'); VAR - DotNetWrapTextValues@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTextValues"; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + DotNetWrapTextValues@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTextValues"; + DotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; BEGIN //We need this to deal with .NET Generics: OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetWrapTextValues), NewWrapText, DotNetEnumValue); @@ -86,10 +86,10 @@ OBJECT Codeunit 50047 DotNet_Word.WrapSquare END; [External] - PROCEDURE AppendEffectExtent@17024418(LeftEdge@17024401 : Integer;TopEdge@17024402 : Integer;RightEdge@17024404 : Integer;BottomEdge@17024405 : Integer); + PROCEDURE AppendEffectExtent@10(LeftEdge@1000 : Integer;TopEdge@1001 : Integer;RightEdge@1002 : Integer;BottomEdge@1003 : Integer); VAR - DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; - DotNetEffectExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.EffectExtent"; + DotNetInt64Value@1004 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetEffectExtent@1005 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.EffectExtent"; BEGIN DotNetEffectExtent := DotNetEffectExtent.EffectExtent; DotNetEffectExtent.LeftEdge := DotNetInt64Value.FromInt64(LeftEdge); @@ -100,12 +100,12 @@ OBJECT Codeunit 50047 DotNet_Word.WrapSquare OpenXmlDotNetHelper.AppendGeneric(DotNetWrapSquare, DotNetEffectExtent); END; - PROCEDURE SetWrapSquare@17024411(NewDotNetWrapSquare@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"); + PROCEDURE SetWrapSquare@11(NewDotNetWrapSquare@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"); BEGIN DotNetWrapSquare := NewDotNetWrapSquare; END; - PROCEDURE GetWrapSquare@17024400(VAR CurrentDotNetWrapSquare@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"); + PROCEDURE GetWrapSquare@12(VAR CurrentDotNetWrapSquare@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"); BEGIN CurrentDotNetWrapSquare := DotNetWrapSquare; END; diff --git a/BaseApp/COD50048.TXT b/BaseApp/COD50048.TXT index d02a8cd..2edcaff 100644 --- a/BaseApp/COD50048.TXT +++ b/BaseApp/COD50048.TXT @@ -15,54 +15,54 @@ OBJECT Codeunit 50048 DotNet_Word.WrapTopBottom CODE { VAR - DotNetWrapTopBottom@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"; + DotNetWrapTopBottom@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetWrapTopBottom := DotNetWrapTopBottom.WrapTopBottom; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetWrapTopBottom := DotNetWrapTopBottom.WrapTopBottom; END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetWrapTopBottom.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetWrapTopBottom.InnerText); END; [External] - PROCEDURE SetDistanceFromTop@17024416(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromTop@5(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetWrapTopBottom.DistanceFromTop := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE SetDistanceFromBottom@17024417(NewDistance@17024401 : Integer); + PROCEDURE SetDistanceFromBottom@6(NewDistance@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetWrapTopBottom.DistanceFromBottom := DotNetUInt32Value.FromUInt32(NewDistance); END; [External] - PROCEDURE AppendEffectExtent@17024418(LeftEdge@17024401 : Integer;TopEdge@17024402 : Integer;RightEdge@17024404 : Integer;BottomEdge@17024405 : Integer); + PROCEDURE AppendEffectExtent@7(LeftEdge@1000 : Integer;TopEdge@1001 : Integer;RightEdge@1002 : Integer;BottomEdge@1003 : Integer); VAR - DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; - DotNetEffectExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.EffectExtent"; - OpenXmlDotNetHelper@17024406 : Codeunit 50067; + DotNetInt64Value@1004 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetEffectExtent@1005 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.EffectExtent"; + OpenXmlDotNetHelper@1006 : Codeunit 50067; BEGIN DotNetEffectExtent := DotNetEffectExtent.EffectExtent; DotNetEffectExtent.LeftEdge := DotNetInt64Value.FromInt64(LeftEdge); @@ -73,12 +73,12 @@ OBJECT Codeunit 50048 DotNet_Word.WrapTopBottom OpenXmlDotNetHelper.AppendGeneric(DotNetWrapTopBottom, DotNetEffectExtent); END; - PROCEDURE SetWrapTopBottom@17024411(NewDotNetWrapTopBottom@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"); + PROCEDURE SetWrapTopBottom@8(NewDotNetWrapTopBottom@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"); BEGIN DotNetWrapTopBottom := NewDotNetWrapTopBottom; END; - PROCEDURE GetWrapTopBottom@17024400(VAR CurrentDotNetWrapTopBottom@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"); + PROCEDURE GetWrapTopBottom@9(VAR CurrentDotNetWrapTopBottom@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"); BEGIN CurrentDotNetWrapTopBottom := DotNetWrapTopBottom; END; diff --git a/BaseApp/COD50049.TXT b/BaseApp/COD50049.TXT index 5667417..36a3156 100644 --- a/BaseApp/COD50049.TXT +++ b/BaseApp/COD50049.TXT @@ -15,70 +15,70 @@ OBJECT Codeunit 50049 DotNet_Word.DocProperties CODE { VAR - DotNetDocProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"; + DotNetDocProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetDocProperties := DotNetDocProperties.DocProperties; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetDocProperties := DotNetDocProperties.DocProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetDocProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetDocProperties.InnerText); END; [External] - PROCEDURE SetId@17024416(NewId@17024401 : Integer); + PROCEDURE SetId@5(NewId@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetDocProperties.Id := DotNetUInt32Value.FromUInt32(NewId); END; [External] - PROCEDURE SetName@17024417(NewName@17024401 : Text); + PROCEDURE SetName@6(NewName@1000 : Text); VAR - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetDocProperties.Name := DotNetStringValue.FromString(NewName); END; [External] - PROCEDURE SetDescription@17024406(NewDescription@17024401 : Text); + PROCEDURE SetDescription@7(NewDescription@1000 : Text); VAR - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetDocProperties.Description := DotNetStringValue.FromString(NewDescription); END; [External] - PROCEDURE SetTitle@17024407(NewTitle@17024401 : Text); + PROCEDURE SetTitle@8(NewTitle@1000 : Text); VAR - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetDocProperties.Title := DotNetStringValue.FromString(NewTitle); END; - PROCEDURE SetDocProperties@17024411(NewDotNetDocProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"); + PROCEDURE SetDocProperties@9(NewDotNetDocProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"); BEGIN DotNetDocProperties := NewDotNetDocProperties; END; - PROCEDURE GetDocProperties@17024400(VAR CurrentDotNetDocProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"); + PROCEDURE GetDocProperties@10(VAR CurrentDotNetDocProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"); BEGIN CurrentDotNetDocProperties := DotNetDocProperties; END; diff --git a/BaseApp/COD50050.TXT b/BaseApp/COD50050.TXT index e336b39..cd3723d 100644 --- a/BaseApp/COD50050.TXT +++ b/BaseApp/COD50050.TXT @@ -15,86 +15,86 @@ OBJECT Codeunit 50050 DotNet_Word.GraphicFrameLocks CODE { VAR - DotNetGraphicFrameLocks@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"; + DotNetGraphicFrameLocks@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetGraphicFrameLocks := DotNetGraphicFrameLocks.GraphicFrameLocks; END; [External] - PROCEDURE CreateFromOuterXml@17024401(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetGraphicFrameLocks := DotNetGraphicFrameLocks.GraphicFrameLocks(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetGraphicFrameLocks.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetGraphicFrameLocks.InnerText); END; [External] - PROCEDURE SetNoGrouping@17024416(NewNoGrouping@17024401 : Boolean); + PROCEDURE SetNoGrouping@5(NewNoGrouping@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetGraphicFrameLocks.NoGrouping := DotNetBooleanValue.FromBoolean(NewNoGrouping); END; [External] - PROCEDURE SetNoDrilldown@17024405(NewNoDrillDown@17024401 : Boolean); + PROCEDURE SetNoDrilldown@6(NewNoDrillDown@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetGraphicFrameLocks.NoDrilldown := DotNetBooleanValue.FromBoolean(NewNoDrillDown); END; [External] - PROCEDURE SetNoSelection@17024406(NewNoSelection@17024401 : Boolean); + PROCEDURE SetNoSelection@7(NewNoSelection@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetGraphicFrameLocks.NoSelection := DotNetBooleanValue.FromBoolean(NewNoSelection); END; [External] - PROCEDURE SetNoChangeAspect@17024407(NewNoChangeAspect@17024401 : Boolean); + PROCEDURE SetNoChangeAspect@8(NewNoChangeAspect@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetGraphicFrameLocks.NoChangeAspect := DotNetBooleanValue.FromBoolean(NewNoChangeAspect); END; [External] - PROCEDURE SetNoMove@17024408(NewNoMove@17024401 : Boolean); + PROCEDURE SetNoMove@9(NewNoMove@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetGraphicFrameLocks.NoMove := DotNetBooleanValue.FromBoolean(NewNoMove); END; [External] - PROCEDURE SetNoResize@17024409(NewNoResize@17024401 : Boolean); + PROCEDURE SetNoResize@10(NewNoResize@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetGraphicFrameLocks.NoResize := DotNetBooleanValue.FromBoolean(NewNoResize); END; - PROCEDURE SetGraphicFrameLocks@17024411(NewDotNetGraphicFrameLocks@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"); + PROCEDURE SetGraphicFrameLocks@11(NewDotNetGraphicFrameLocks@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"); BEGIN DotNetGraphicFrameLocks := NewDotNetGraphicFrameLocks; END; - PROCEDURE GetGraphicFrameLocks@17024400(VAR CurrentDotNetGraphicFrameLocks@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"); + PROCEDURE GetGraphicFrameLocks@12(VAR CurrentDotNetGraphicFrameLocks@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"); BEGIN CurrentDotNetGraphicFrameLocks := DotNetGraphicFrameLocks; END; diff --git a/BaseApp/COD50051.TXT b/BaseApp/COD50051.TXT index e641931..16fb456 100644 --- a/BaseApp/COD50051.TXT +++ b/BaseApp/COD50051.TXT @@ -15,65 +15,65 @@ OBJECT Codeunit 50051 DotNet_Word.Picture CODE { VAR - DotNetPicture@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"; + DotNetPicture@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetPicture := DotNetPicture.Picture; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetPicture := DotNetPicture.Picture(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetPicture.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetPicture.InnerText); END; [External] - PROCEDURE SetNonVisualPictureProperties@17024416(VAR WordNonVisualPictureProperties@17024401 : Codeunit 50052); + PROCEDURE SetNonVisualPictureProperties@5(VAR WordNonVisualPictureProperties@1000 : Codeunit 50052); VAR - DotNetNonVisualPictureProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"; + DotNetNonVisualPictureProperties@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"; BEGIN WordNonVisualPictureProperties.GetNonVisualPictureProperties(DotNetNonVisualPictureProperties); DotNetPicture.NonVisualPictureProperties := DotNetNonVisualPictureProperties; END; [External] - PROCEDURE SetShapeProperties@17024405(VAR WordShapeProperties@17024401 : Codeunit 50053); + PROCEDURE SetShapeProperties@6(VAR WordShapeProperties@1000 : Codeunit 50053); VAR - DotNetShapeProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"; + DotNetShapeProperties@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"; BEGIN WordShapeProperties.GetShapeProperties(DotNetShapeProperties); DotNetPicture.ShapeProperties := DotNetShapeProperties; END; [External] - PROCEDURE SetBlipFill@17024407(VAR WordBlipFill@17024401 : Codeunit 50054); + PROCEDURE SetBlipFill@7(VAR WordBlipFill@1000 : Codeunit 50054); VAR - DotNetBlipFill@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"; + DotNetBlipFill@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"; BEGIN WordBlipFill.GetBlipFill(DotNetBlipFill); DotNetPicture.BlipFill := DotNetBlipFill; END; - PROCEDURE SetPicture@17024411(NewDotNetPicture@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"); + PROCEDURE SetPicture@8(NewDotNetPicture@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"); BEGIN DotNetPicture := NewDotNetPicture; END; - PROCEDURE GetPicture@17024400(VAR CurrentDotNetPicture@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"); + PROCEDURE GetPicture@9(VAR CurrentDotNetPicture@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"); BEGIN CurrentDotNetPicture := DotNetPicture; END; diff --git a/BaseApp/COD50052.TXT b/BaseApp/COD50052.TXT index 0aaa746..e72f158 100644 --- a/BaseApp/COD50052.TXT +++ b/BaseApp/COD50052.TXT @@ -15,56 +15,56 @@ OBJECT Codeunit 50052 DotNet_Word.NonVisualPicturePr CODE { VAR - DotNetNonVisualPictureProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"; + DotNetNonVisualPictureProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetNonVisualPictureProperties := DotNetNonVisualPictureProperties.NonVisualPictureProperties; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNonVisualPictureProperties := DotNetNonVisualPictureProperties.NonVisualPictureProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024401() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetNonVisualPictureProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetNonVisualPictureProperties.InnerText); END; [External] - PROCEDURE SetNonVisualDrawingProperties@17024416(VAR WordNonVisualDrawingProperties@17024401 : Codeunit 50055); + PROCEDURE SetNonVisualDrawingProperties@5(VAR WordNonVisualDrawingProperties@1000 : Codeunit 50055); VAR - DotNetNonVisualDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"; + DotNetNonVisualDrawingProperties@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"; BEGIN WordNonVisualDrawingProperties.GetNonVisualDrawingProperties(DotNetNonVisualDrawingProperties); DotNetNonVisualPictureProperties.NonVisualDrawingProperties := DotNetNonVisualDrawingProperties; END; [External] - PROCEDURE SetNonVisualPictureDrawingProperties@17024402(VAR WordNonVisualPictureDrawingProperties@17024401 : Codeunit 50056); + PROCEDURE SetNonVisualPictureDrawingProperties@6(VAR WordNonVisualPictureDrawingProperties@1000 : Codeunit 50056); VAR - DotNetNonVisualPictureDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"; + DotNetNonVisualPictureDrawingProperties@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"; BEGIN WordNonVisualPictureDrawingProperties.GetNonVisualPictureDrawingProperties(DotNetNonVisualPictureDrawingProperties); DotNetNonVisualPictureProperties.NonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties; END; - PROCEDURE SetNonVisualPictureProperties@17024411(NewDotNetNonVisualPictureProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"); + PROCEDURE SetNonVisualPictureProperties@7(NewDotNetNonVisualPictureProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"); BEGIN DotNetNonVisualPictureProperties := NewDotNetNonVisualPictureProperties; END; - PROCEDURE GetNonVisualPictureProperties@17024400(VAR CurrentDotNetNonVisualPictureProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"); + PROCEDURE GetNonVisualPictureProperties@8(VAR CurrentDotNetNonVisualPictureProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"); BEGIN CurrentDotNetNonVisualPictureProperties := DotNetNonVisualPictureProperties; END; diff --git a/BaseApp/COD50053.TXT b/BaseApp/COD50053.TXT index 1f7f51d..de06a1c 100644 --- a/BaseApp/COD50053.TXT +++ b/BaseApp/COD50053.TXT @@ -15,58 +15,58 @@ OBJECT Codeunit 50053 DotNet_Word.ShapeProperties CODE { VAR - DotNetShapeProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"; + DotNetShapeProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetShapeProperties := DotNetShapeProperties.ShapeProperties; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetShapeProperties := DotNetShapeProperties.ShapeProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetShapeProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetShapeProperties.InnerText); END; [External] - PROCEDURE SetTransform2D@17024416(VAR WordTransform2D@17024401 : Codeunit 50060); + PROCEDURE SetTransform2D@5(VAR WordTransform2D@1000 : Codeunit 50060); VAR - DotNetTransform2D@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"; + DotNetTransform2D@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"; BEGIN WordTransform2D.GetTransform2D(DotNetTransform2D); DotNetShapeProperties.Transform2D := DotNetTransform2D; END; [External] - PROCEDURE AppendPresetGeometry@17024404(VAR WordPresetGeometry@17024401 : Codeunit 50061); + PROCEDURE AppendPresetGeometry@6(VAR WordPresetGeometry@1000 : Codeunit 50061); VAR - DotNetPresetGeometry@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"; - OpenXmlDotNetHelper@17024400 : Codeunit 50067; + DotNetPresetGeometry@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordPresetGeometry.GetPresetGeometry(DotNetPresetGeometry); //We need this to deal with .NET Generics: OpenXmlDotNetHelper.AppendGeneric(DotNetShapeProperties, DotNetPresetGeometry); END; - PROCEDURE SetShapeProperties@17024411(NewDotNetShapeProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"); + PROCEDURE SetShapeProperties@7(NewDotNetShapeProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"); BEGIN DotNetShapeProperties := NewDotNetShapeProperties; END; - PROCEDURE GetShapeProperties@17024400(VAR CurrentDotNetShapeProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"); + PROCEDURE GetShapeProperties@8(VAR CurrentDotNetShapeProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"); BEGIN CurrentDotNetShapeProperties := DotNetShapeProperties; END; diff --git a/BaseApp/COD50054.TXT b/BaseApp/COD50054.TXT index ea9ce31..dabca62 100644 --- a/BaseApp/COD50054.TXT +++ b/BaseApp/COD50054.TXT @@ -15,58 +15,58 @@ OBJECT Codeunit 50054 DotNet_Word.BlipFill CODE { VAR - DotNetBlipFill@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"; + DotNetBlipFill@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetBlipFill := DotNetBlipFill.BlipFill; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetBlipFill := DotNetBlipFill.BlipFill(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetBlipFill.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetBlipFill.InnerText); END; [External] - PROCEDURE SetBlip@17024416(VAR WordBlip@17024401 : Codeunit 50057); + PROCEDURE SetBlip@5(VAR WordBlip@1000 : Codeunit 50057); VAR - DotNetBlip@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"; + DotNetBlip@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"; BEGIN WordBlip.GetBlip(DotNetBlip); DotNetBlipFill.Blip := DotNetBlip; END; [External] - PROCEDURE AppendStretch@17024404(VAR WordStretch@17024401 : Codeunit 50058); + PROCEDURE AppendStretch@6(VAR WordStretch@1000 : Codeunit 50058); VAR - DotNetStretch@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetStretch@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordStretch.GetStretch(DotNetStretch); //We need this to deal with .NET Generics: OpenXmlDotNetHelper.AppendGeneric(DotNetBlipFill, DotNetStretch); END; - PROCEDURE SetBlipFill@17024411(NewDotNetBlipFill@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"); + PROCEDURE SetBlipFill@7(NewDotNetBlipFill@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"); BEGIN DotNetBlipFill := NewDotNetBlipFill; END; - PROCEDURE GetBlipFill@17024400(VAR CurrentDotNetBlipFill@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"); + PROCEDURE GetBlipFill@8(VAR CurrentDotNetBlipFill@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"); BEGIN CurrentDotNetBlipFill := DotNetBlipFill; END; diff --git a/BaseApp/COD50055.TXT b/BaseApp/COD50055.TXT index 08325ca..f42a126 100644 --- a/BaseApp/COD50055.TXT +++ b/BaseApp/COD50055.TXT @@ -15,70 +15,70 @@ OBJECT Codeunit 50055 DotNet_Word.NonVisualDrawingPr CODE { VAR - DotNetNonVisualDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"; + DotNetNonVisualDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetNonVisualDrawingProperties := DotNetNonVisualDrawingProperties.NonVisualDrawingProperties; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNonVisualDrawingProperties := DotNetNonVisualDrawingProperties.NonVisualDrawingProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024401() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetNonVisualDrawingProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetNonVisualDrawingProperties.InnerText); END; [External] - PROCEDURE SetName@17024416(NewName@17024401 : Text); + PROCEDURE SetName@5(NewName@1000 : Text); VAR - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetNonVisualDrawingProperties.Name := DotNetStringValue.FromString(NewName); END; [External] - PROCEDURE SetDescription@17024402(NewDescription@17024401 : Text); + PROCEDURE SetDescription@6(NewDescription@1000 : Text); VAR - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetNonVisualDrawingProperties.Description := DotNetStringValue.FromString(NewDescription); END; [External] - PROCEDURE SetTitle@17024404(NewTitle@17024401 : Text); + PROCEDURE SetTitle@7(NewTitle@1000 : Text); VAR - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetNonVisualDrawingProperties.Title := DotNetStringValue.FromString(NewTitle); END; [External] - PROCEDURE SetId@17024406(NewId@17024401 : Integer); + PROCEDURE SetId@8(NewId@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetNonVisualDrawingProperties.Id := DotNetUInt32Value.FromUInt32(NewId); END; - PROCEDURE SetNonVisualDrawingProperties@17024411(NewDotNetNonVisualDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"); + PROCEDURE SetNonVisualDrawingProperties@9(NewDotNetNonVisualDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"); BEGIN DotNetNonVisualDrawingProperties := NewDotNetNonVisualDrawingProperties; END; - PROCEDURE GetNonVisualDrawingProperties@17024400(VAR CurrentDotNetNonVisualDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"); + PROCEDURE GetNonVisualDrawingProperties@10(VAR CurrentDotNetNonVisualDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"); BEGIN CurrentDotNetNonVisualDrawingProperties := DotNetNonVisualDrawingProperties; END; diff --git a/BaseApp/COD50056.TXT b/BaseApp/COD50056.TXT index e6de49b..0452134 100644 --- a/BaseApp/COD50056.TXT +++ b/BaseApp/COD50056.TXT @@ -15,46 +15,46 @@ OBJECT Codeunit 50056 DotNet_Word.NonVisualPictureDr CODE { VAR - DotNetNonVisualPictureDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"; + DotNetNonVisualPictureDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetNonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties.NonVisualPictureDrawingProperties; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties.NonVisualPictureDrawingProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetNonVisualPictureDrawingProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetNonVisualPictureDrawingProperties.InnerText); END; [External] - PROCEDURE SetPreferRelativeResize@17024416(NewPreferRelativeResize@17024401 : Boolean); + PROCEDURE SetPreferRelativeResize@5(NewPreferRelativeResize@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetNonVisualPictureDrawingProperties.PreferRelativeResize := DotNetBooleanValue.FromBoolean(NewPreferRelativeResize); END; - PROCEDURE SetNonVisualPictureDrawingProperties@17024411(NewDotNetNonVisualPictureDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"); + PROCEDURE SetNonVisualPictureDrawingProperties@6(NewDotNetNonVisualPictureDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"); BEGIN DotNetNonVisualPictureDrawingProperties := NewDotNetNonVisualPictureDrawingProperties; END; - PROCEDURE GetNonVisualPictureDrawingProperties@17024400(VAR CurrentDotNetNonVisualPictureDrawingProperties@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"); + PROCEDURE GetNonVisualPictureDrawingProperties@7(VAR CurrentDotNetNonVisualPictureDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"); BEGIN CurrentDotNetNonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties; END; diff --git a/BaseApp/COD50057.TXT b/BaseApp/COD50057.TXT index 42ead7e..79d8879 100644 --- a/BaseApp/COD50057.TXT +++ b/BaseApp/COD50057.TXT @@ -15,46 +15,46 @@ OBJECT Codeunit 50057 DotNet_Word.Blip CODE { VAR - DotNetBlip@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"; + DotNetBlip@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetBlip := DotNetBlip.Blip; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetBlip := DotNetBlip.Blip(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetBlip.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetBlip.InnerText); END; [External] - PROCEDURE SetEmbed@17024416(NewEmbed@17024401 : Text); + PROCEDURE SetEmbed@5(NewEmbed@1000 : Text); VAR - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetBlip.Embed := DotNetStringValue.FromString(NewEmbed); END; [External] - PROCEDURE SetCompressionState@17024401(NewCompressionState@17024401 : 'Email,Screen,Print,HighQualityPrint,None'); + PROCEDURE SetCompressionState@6(NewCompressionState@1000 : 'Email,Screen,Print,HighQualityPrint,None'); VAR - DotNetBlipCompressionValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipCompressionValues"; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetBlipCompressionValues@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipCompressionValues"; + DotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@1003 : Codeunit 50067; BEGIN //We need this to deal with .NET Generics: OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetBlipCompressionValues), NewCompressionState, DotNetEnumValue); @@ -62,22 +62,22 @@ OBJECT Codeunit 50057 DotNet_Word.Blip END; [External] - PROCEDURE AppendBlipExtensionList@17024404(VAR WordBlipExtensionList@17024401 : Codeunit 50059); + PROCEDURE AppendBlipExtensionList@7(VAR WordBlipExtensionList@1000 : Codeunit 50059); VAR - DotNetBlipExtensionList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetBlipExtensionList@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordBlipExtensionList.GetBlipExtensionList(DotNetBlipExtensionList); //We need this to deal with .NET Generics: OpenXmlDotNetHelper.AppendGeneric(DotNetBlip, DotNetBlipExtensionList); END; - PROCEDURE SetBlip@17024411(NewDotNetBlip@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"); + PROCEDURE SetBlip@8(NewDotNetBlip@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"); BEGIN DotNetBlip := NewDotNetBlip; END; - PROCEDURE GetBlip@17024400(VAR CurrentDotNetBlip@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"); + PROCEDURE GetBlip@9(VAR CurrentDotNetBlip@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"); BEGIN CurrentDotNetBlip := DotNetBlip; END; diff --git a/BaseApp/COD50058.TXT b/BaseApp/COD50058.TXT index 8bac29f..42629b5 100644 --- a/BaseApp/COD50058.TXT +++ b/BaseApp/COD50058.TXT @@ -15,48 +15,48 @@ OBJECT Codeunit 50058 DotNet_Word.Stretch CODE { VAR - DotNetStretch@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"; + DotNetStretch@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetStretch := DotNetStretch.Stretch; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetStretch := DotNetStretch.Stretch(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetStretch.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetStretch.InnerText); END; [External] - PROCEDURE AppendFillRectangle@17024416(); + PROCEDURE AppendFillRectangle@5(); VAR - DotNetFillRectangle@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.FillRectangle"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetFillRectangle@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.FillRectangle"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; BEGIN //We need this to deal with .NET Generics: OpenXmlDotNetHelper.AppendGeneric(DotNetStretch, DotNetFillRectangle.FillRectangle); END; - PROCEDURE SetStretch@17024411(NewDotNetStretch@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"); + PROCEDURE SetStretch@6(NewDotNetStretch@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"); BEGIN DotNetStretch := NewDotNetStretch; END; - PROCEDURE GetStretch@17024400(VAR CurrentDotNetStretch@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"); + PROCEDURE GetStretch@7(VAR CurrentDotNetStretch@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"); BEGIN CurrentDotNetStretch := DotNetStretch; END; diff --git a/BaseApp/COD50059.TXT b/BaseApp/COD50059.TXT index 59dcba3..7608a6d 100644 --- a/BaseApp/COD50059.TXT +++ b/BaseApp/COD50059.TXT @@ -15,38 +15,38 @@ OBJECT Codeunit 50059 DotNet_Word.BlipExtensionList CODE { VAR - DotNetBlipExtensionList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"; + DotNetBlipExtensionList@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetBlipExtensionList := DotNetBlipExtensionList.BlipExtensionList; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetBlipExtensionList := DotNetBlipExtensionList.BlipExtensionList(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetBlipExtensionList.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetBlipExtensionList.InnerText); END; [External] - PROCEDURE AppendBlipExtension@17024416(Uri@17024401 : Text); + PROCEDURE AppendBlipExtension@5(Uri@1000 : Text); VAR - DotNetStringValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; - DotNetBlipExtension@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtension"; - OpenXmlDotNetHelper@17024403 : Codeunit 50067; + DotNetStringValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetBlipExtension@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtension"; + OpenXmlDotNetHelper@1003 : Codeunit 50067; BEGIN DotNetBlipExtension := DotNetBlipExtension.BlipExtension; DotNetBlipExtension.Uri := DotNetStringValue.FromString(Uri); @@ -54,12 +54,12 @@ OBJECT Codeunit 50059 DotNet_Word.BlipExtensionList OpenXmlDotNetHelper.AppendGeneric(DotNetBlipExtensionList, DotNetBlipExtension); END; - PROCEDURE SetBlipExtensionList@17024411(NewDotNetBlipExtensionList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"); + PROCEDURE SetBlipExtensionList@6(NewDotNetBlipExtensionList@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"); BEGIN DotNetBlipExtensionList := NewDotNetBlipExtensionList; END; - PROCEDURE GetBlipExtensionList@17024400(VAR CurrentDotNetBlipExtensionList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"); + PROCEDURE GetBlipExtensionList@7(VAR CurrentDotNetBlipExtensionList@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"); BEGIN CurrentDotNetBlipExtensionList := DotNetBlipExtensionList; END; diff --git a/BaseApp/COD50060.TXT b/BaseApp/COD50060.TXT index 37dfb56..e99f205 100644 --- a/BaseApp/COD50060.TXT +++ b/BaseApp/COD50060.TXT @@ -15,62 +15,62 @@ OBJECT Codeunit 50060 DotNet_Word.Transform2D CODE { VAR - DotNetTransform2D@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetTransform2D@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetTransform2D := DotNetTransform2D.Transform2D; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetTransform2D := DotNetTransform2D.Transform2D; END; [External] - PROCEDURE GetOuterXml@17024406() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetTransform2D.OuterXml); END; [External] - PROCEDURE GetInnerText@17024402() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetTransform2D.InnerText); END; [External] - PROCEDURE SetHorizontalFlip@17024401(NewHorizontalFlip@17024401 : Boolean); + PROCEDURE SetHorizontalFlip@5(NewHorizontalFlip@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetTransform2D.HorizontalFlip := DotNetBooleanValue.FromBoolean(NewHorizontalFlip); END; [External] - PROCEDURE SetVerticallFlip@17024404(NewVerticalFlip@17024401 : Boolean); + PROCEDURE SetVerticallFlip@6(NewVerticalFlip@1000 : Boolean); VAR - DotNetBooleanValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; + DotNetBooleanValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.BooleanValue"; BEGIN DotNetTransform2D.VerticalFlip := DotNetBooleanValue.FromBoolean(NewVerticalFlip); END; [External] - PROCEDURE SetRotation@17024417(NewRotation@17024401 : Integer); + PROCEDURE SetRotation@7(NewRotation@1000 : Integer); VAR - DotNetUInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; + DotNetUInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.UInt32Value"; BEGIN DotNetTransform2D.Rotation := DotNetUInt32Value.FromUInt32(NewRotation); END; [External] - PROCEDURE AppendExtent@17024410(Cx@17024401 : Integer;Cy@17024402 : Integer); + PROCEDURE AppendExtent@8(Cx@1000 : Integer;Cy@1001 : Integer); VAR - DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; - DotNetExtent@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Extents"; + DotNetInt64Value@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetExtent@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Extents"; BEGIN DotNetExtent := DotNetExtent.Extents; DotNetExtent.Cx := DotNetInt64Value.FromInt64(Cx); @@ -80,10 +80,10 @@ OBJECT Codeunit 50060 DotNet_Word.Transform2D END; [External] - PROCEDURE AppendOffset@17024405(X@17024401 : Integer;Y@17024402 : Integer); + PROCEDURE AppendOffset@9(X@1000 : Integer;Y@1001 : Integer); VAR - DotNetInt64Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; - DotNetOffset@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Offset"; + DotNetInt64Value@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int64Value"; + DotNetOffset@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Offset"; BEGIN DotNetOffset := DotNetOffset.Offset; DotNetOffset.X := DotNetInt64Value.FromInt64(X); @@ -92,12 +92,12 @@ OBJECT Codeunit 50060 DotNet_Word.Transform2D OpenXmlDotNetHelper.AppendGeneric(DotNetTransform2D, DotNetOffset); END; - PROCEDURE SetTransform2D@17024411(NewDotNetTransform2D@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"); + PROCEDURE SetTransform2D@101(NewDotNetTransform2D@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"); BEGIN DotNetTransform2D := NewDotNetTransform2D; END; - PROCEDURE GetTransform2D@17024400(VAR CurrentDotNetTransform2D@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"); + PROCEDURE GetTransform2D@11(VAR CurrentDotNetTransform2D@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"); BEGIN CurrentDotNetTransform2D := DotNetTransform2D; END; diff --git a/BaseApp/COD50061.TXT b/BaseApp/COD50061.TXT index 9e190b6..03bc389 100644 --- a/BaseApp/COD50061.TXT +++ b/BaseApp/COD50061.TXT @@ -15,38 +15,38 @@ OBJECT Codeunit 50061 DotNet_Word.PresetGeometry CODE { VAR - DotNetPresetGeometry@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetPresetGeometry@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetPresetGeometry := DotNetPresetGeometry.PresetGeometry; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetPresetGeometry := DotNetPresetGeometry.PresetGeometry(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetPresetGeometry.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetPresetGeometry.InnerText); END; [External] - PROCEDURE SetPreset@17024416(NewPresetType@17024401 : Integer); + PROCEDURE SetPreset@5(NewPresetType@1000 : Integer); VAR - DotNetShapeTypeValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.ShapeTypeValues"; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + DotNetShapeTypeValues@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.ShapeTypeValues"; + DotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; BEGIN //We need this to deal with .NET Generics: OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetShapeTypeValues), NewPresetType, DotNetEnumValue); @@ -54,21 +54,21 @@ OBJECT Codeunit 50061 DotNet_Word.PresetGeometry END; [External] - PROCEDURE AppendAdjustValueList@17024404(); + PROCEDURE AppendAdjustValueList@6(); VAR - DotNetAdjustValueList@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.AdjustValueList"; + DotNetAdjustValueList@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.AdjustValueList"; BEGIN DotNetAdjustValueList := DotNetAdjustValueList.AdjustValueList; //We need this to deal with .NET Generics: OpenXmlDotNetHelper.AppendGeneric(DotNetPresetGeometry, DotNetAdjustValueList); END; - PROCEDURE SetPresetGeometry@17024411(NewDotNetPresetGeometry@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"); + PROCEDURE SetPresetGeometry@7(NewDotNetPresetGeometry@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"); BEGIN DotNetPresetGeometry := NewDotNetPresetGeometry; END; - PROCEDURE GetPresetGeometry@17024400(VAR CurrentDotNetPresetGeometry@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"); + PROCEDURE GetPresetGeometry@8(VAR CurrentDotNetPresetGeometry@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"); BEGIN CurrentDotNetPresetGeometry := DotNetPresetGeometry; END; diff --git a/BaseApp/COD50062.TXT b/BaseApp/COD50062.TXT index edd1638..2ef4b64 100644 --- a/BaseApp/COD50062.TXT +++ b/BaseApp/COD50062.TXT @@ -22,7 +22,7 @@ OBJECT Codeunit 50062 DotNet_Word.ParagraphEnumerato DotNetEnumerator := NewEnumerator; END; - PROCEDURE GetEnumerator@1000(VAR CurrentEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumerator@2(VAR CurrentEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN CurrentEnumerator := DotNetEnumerator; END; diff --git a/BaseApp/COD50067.TXT b/BaseApp/COD50067.TXT index 6cfe486..b052682 100644 --- a/BaseApp/COD50067.TXT +++ b/BaseApp/COD50067.TXT @@ -15,13 +15,13 @@ OBJECT Codeunit 50067 OpenXml DotNet Helper CODE { - PROCEDURE CreateEnumValueGeneric@17024403(DotNetEnumType@17024401 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";IntegerValue@17024402 : Integer;VAR CreatedDotNetEnumValue@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"); + PROCEDURE CreateEnumValueGeneric@1(DotNetEnumType@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";IntegerValue@1001 : Integer;VAR CreatedDotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"); VAR - DotNetEnum@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Enum"; - DotNetType@17024407 : DotNet "'mscorlib'.System.Type"; - DotNetObject@17024406 : DotNet "'mscorlib'.System.Object"; - DotNetTypeArray@17024405 : DotNet "'mscorlib'.System.Array"; - DotNetParamsArray@17024404 : DotNet "'mscorlib'.System.Array"; + DotNetEnum@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Enum"; + DotNetType@1004 : DotNet "'mscorlib'.System.Type"; + DotNetObject@1005 : DotNet "'mscorlib'.System.Object"; + DotNetTypeArray@1006 : DotNet "'mscorlib'.System.Array"; + DotNetParamsArray@1007 : DotNet "'mscorlib'.System.Array"; BEGIN //Must never be made External. Used only internally @@ -39,9 +39,9 @@ OBJECT Codeunit 50067 OpenXml DotNet Helper END; [Internal] - PROCEDURE GetEnumeratorOfTypeGeneric@17024402(OriginalOpenXmlElementList@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElementList";FilterType@17024401 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";VAR FilteredDotNetEnumerator@17024400 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE GetEnumeratorOfTypeGeneric@2(OriginalOpenXmlElementList@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElementList";FilterType@1001 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";VAR FilteredDotNetEnumerator@1002 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); VAR - FilteredDotNetEnumerable@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerable"; + FilteredDotNetEnumerable@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerable"; BEGIN //Must never be made External. Used only internally //Helper for calling method: IEnumerator OpenXmlElement.OfType() @@ -49,9 +49,9 @@ OBJECT Codeunit 50067 OpenXml DotNet Helper FilteredDotNetEnumerator := FilteredDotNetEnumerable.GetEnumerator; END; - PROCEDURE AppendGeneric@17024400(DotNetParent@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElement";DotNetChild@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElement"); + PROCEDURE AppendGeneric@3(DotNetParent@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElement";DotNetChild@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElement"); VAR - DotNetArray@17024402 : DotNet "'mscorlib'.System.Array"; + DotNetArray@1002 : DotNet "'mscorlib'.System.Array"; BEGIN //Must never be made External. Used only internally //Helper for calling method: void OpenXmlElement.Append(params OpenXmlElement[] childs) @@ -60,14 +60,14 @@ OBJECT Codeunit 50067 OpenXml DotNet Helper DotNetParent.Append(DotNetArray); END; - PROCEDURE AddPartGeneric@17024409(VAR DotNetMainDocumentPart@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart";DotNetPartType@17024408 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";VAR DotNetCreatedPart@17024407 : DotNet "'mscorlib'.System.Object"); + PROCEDURE AddPartGeneric@4(VAR DotNetMainDocumentPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.MainDocumentPart";DotNetPartType@1001 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";VAR DotNetCreatedPart@1002 : DotNet "'mscorlib'.System.Object"); VAR - DotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; - DotNetType@17024406 : DotNet "'mscorlib'.System.Type"; - DotNetObject@17024405 : DotNet "'mscorlib'.System.Object"; - DotNetTypeArrayForGenericTypeResolution@17024404 : DotNet "'mscorlib'.System.Array"; - DotNetTypeArrayForMethodLookup@17024403 : DotNet "'mscorlib'.System.Array"; - DotNetParamsArray@17024401 : DotNet "'mscorlib'.System.Array"; + DotNetNumberingDefinitionsPart@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; + DotNetType@1004 : DotNet "'mscorlib'.System.Type"; + DotNetObject@1005 : DotNet "'mscorlib'.System.Object"; + DotNetTypeArrayForGenericTypeResolution@1006 : DotNet "'mscorlib'.System.Array"; + DotNetTypeArrayForMethodLookup@1007 : DotNet "'mscorlib'.System.Array"; + DotNetParamsArray@1008 : DotNet "'mscorlib'.System.Array"; BEGIN //Must never be made External. Used only internally //Normally is should have been something as simple as: @@ -84,12 +84,12 @@ OBJECT Codeunit 50067 OpenXml DotNet Helper DotNetCreatedPart := DotNetType.GetMethod('AddNewPart', DotNetTypeArrayForMethodLookup).MakeGenericMethod(DotNetTypeArrayForGenericTypeResolution).Invoke(DotNetMainDocumentPart, DotNetParamsArray); END; - LOCAL PROCEDURE OfType@17024401(OriginalOpenXmlElementList@17024404 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElementList";FilterType@17024402 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";VAR FilteredDotNetEnumerable@17024401 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerable"); + LOCAL PROCEDURE OfType@5(OriginalOpenXmlElementList@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.OpenXmlElementList";FilterType@1001 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type";VAR FilteredDotNetEnumerable@1002 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerable"); VAR - EnumerableType@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type"; - DotNetObject@17024400 : DotNet "'mscorlib'.System.Object"; - DotNetTypeArray@17024407 : DotNet "'mscorlib'.System.Array"; - DotNetParamsArray@17024406 : DotNet "'mscorlib'.System.Array"; + EnumerableType@1003 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Type"; + DotNetObject@1004 : DotNet "'mscorlib'.System.Object"; + DotNetTypeArray@1005 : DotNet "'mscorlib'.System.Array"; + DotNetParamsArray@1006 : DotNet "'mscorlib'.System.Array"; BEGIN //Normally is should have been something as simple as: //FilteredDotNetEnumerable = OriginalOpenXmlElementList.OfType(); diff --git a/BaseApp/COD50068.TXT b/BaseApp/COD50068.TXT index 8774b48..b95947d 100644 --- a/BaseApp/COD50068.TXT +++ b/BaseApp/COD50068.TXT @@ -393,9 +393,9 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper END; [External] - PROCEDURE MainDocumentPartHasNumberingDefinitionsPart@18(VAR DotNet_WordMainDocumentPart@17024400 : Codeunit 50019) : Boolean; + PROCEDURE MainDocumentPartHasNumberingDefinitionsPart@18(VAR DotNet_WordMainDocumentPart@1000 : Codeunit 50019) : Boolean; VAR - DotNet_WordNumberingDefinitionPart@17024401 : Codeunit 50070; + DotNet_WordNumberingDefinitionPart@1001 : Codeunit 50070; BEGIN DotNet_WordMainDocumentPart.NumberingDefinitionsPart(DotNet_WordNumberingDefinitionPart); EXIT(NOT DotNet_WordNumberingDefinitionPart.IsDotNetNull); diff --git a/BaseApp/COD50070.TXT b/BaseApp/COD50070.TXT index d7bdd6a..a4992b2 100644 --- a/BaseApp/COD50070.TXT +++ b/BaseApp/COD50070.TXT @@ -15,35 +15,35 @@ OBJECT Codeunit 50070 DotNet_Word.NumberingDefinitio CODE { VAR - DotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; + DotNetNumberingDefinitionsPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; [External] - PROCEDURE SetNumbering@17024403(VAR WordNumbering@17024400 : Codeunit 50071); + PROCEDURE SetNumbering@1(VAR WordNumbering@1000 : Codeunit 50071); VAR - DotNetNumbering@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"; + DotNetNumbering@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"; BEGIN WordNumbering.GetNumbering(DotNetNumbering); DotNetNumberingDefinitionsPart.Numbering := DotNetNumbering; END; [External] - PROCEDURE GetNumbering@17024401(VAR WordNumbering@17024400 : Codeunit 50071); + PROCEDURE GetNumbering@2(VAR WordNumbering@1000 : Codeunit 50071); BEGIN WordNumbering.SetNumbering(DotNetNumberingDefinitionsPart.Numbering); END; [External] - PROCEDURE IsDotNetNull@17024402() : Boolean; + PROCEDURE IsDotNetNull@3() : Boolean; BEGIN EXIT(ISNULL(DotNetNumberingDefinitionsPart)); END; - PROCEDURE SetNumberingDefinitionsPart@17024411(NewDotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"); + PROCEDURE SetNumberingDefinitionsPart@4(NewDotNetNumberingDefinitionsPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"); BEGIN DotNetNumberingDefinitionsPart := NewDotNetNumberingDefinitionsPart; END; - PROCEDURE GetNumberingDefinitionsPart@17024400(VAR CurrentDotNetNumberingDefinitionsPart@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"); + PROCEDURE GetNumberingDefinitionsPart@5(VAR CurrentDotNetNumberingDefinitionsPart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"); BEGIN CurrentDotNetNumberingDefinitionsPart := DotNetNumberingDefinitionsPart; END; diff --git a/BaseApp/COD50071.TXT b/BaseApp/COD50071.TXT index edcb52c..62853de 100644 --- a/BaseApp/COD50071.TXT +++ b/BaseApp/COD50071.TXT @@ -15,37 +15,37 @@ OBJECT Codeunit 50071 DotNet_Word.Numbering CODE { VAR - DotNetNumbering@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"; + DotNetNumbering@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetNumbering := DotNetNumbering.Numbering; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNumbering := DotNetNumbering.Numbering(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024404() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetNumbering.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetNumbering.InnerText); END; [External] - PROCEDURE AppendAbstractNum@17024405(VAR WordAbstractNum@17024401 : Codeunit 50072); + PROCEDURE AppendAbstractNum@5(VAR WordAbstractNum@1000 : Codeunit 50072); VAR - DotNetAbstractNum@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetAbstractNum@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordAbstractNum.GetAbstractNum(DotNetAbstractNum); //We need this to deal with .NET Generics: @@ -53,10 +53,10 @@ OBJECT Codeunit 50071 DotNet_Word.Numbering END; [External] - PROCEDURE AppendNumberingInstance@17024402(VAR WordNumberingInstance@17024401 : Codeunit 50074); + PROCEDURE AppendNumberingInstance@6(VAR WordNumberingInstance@1000 : Codeunit 50074); VAR - DotNetNumberingInstance@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetNumberingInstance@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordNumberingInstance.GetNumberingInstance(DotNetNumberingInstance); //We need this to deal with .NET Generics: @@ -64,32 +64,32 @@ OBJECT Codeunit 50071 DotNet_Word.Numbering END; [External] - PROCEDURE Save@17024401(VAR WordNumberingDefinitionPart@17024401 : Codeunit 50070); + PROCEDURE Save@7(VAR WordNumberingDefinitionPart@1000 : Codeunit 50070); VAR - DotNetNumberingDefinitionsPart@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; + DotNetNumberingDefinitionsPart@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.NumberingDefinitionsPart"; BEGIN WordNumberingDefinitionPart.GetNumberingDefinitionsPart(DotNetNumberingDefinitionsPart); DotNetNumbering.Save(DotNetNumberingDefinitionsPart); END; [External] - PROCEDURE GetAbstractNumEnumerator@17024413(VAR WordAbstractNumEnumerator@17024400 : Codeunit 50075); + PROCEDURE GetAbstractNumEnumerator@8(VAR WordAbstractNumEnumerator@1000 : Codeunit 50075); VAR - DotNetAbstractNum@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; - DotNetEnumerator@17024403 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - OpenXmlDotNetHelper@17024401 : Codeunit 50067; + DotNetAbstractNum@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; + DotNetEnumerator@1002 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; + OpenXmlDotNetHelper@1003 : Codeunit 50067; BEGIN //We need this to deal with .NET Generics: OpenXmlDotNetHelper.GetEnumeratorOfTypeGeneric(DotNetNumbering.Elements, GETDOTNETTYPE(DotNetAbstractNum), DotNetEnumerator); WordAbstractNumEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetNumbering@17024411(NewDotNetNumbering@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"); + PROCEDURE SetNumbering@9(NewDotNetNumbering@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"); BEGIN DotNetNumbering := NewDotNetNumbering; END; - PROCEDURE GetNumbering@17024400(VAR CurrentDotNetNumbering@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"); + PROCEDURE GetNumbering@10(VAR CurrentDotNetNumbering@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"); BEGIN CurrentDotNetNumbering := DotNetNumbering; END; diff --git a/BaseApp/COD50072.TXT b/BaseApp/COD50072.TXT index 634b82d..f3c1d89 100644 --- a/BaseApp/COD50072.TXT +++ b/BaseApp/COD50072.TXT @@ -15,63 +15,63 @@ OBJECT Codeunit 50072 DotNet_Word.AbstractNum CODE { VAR - DotNetAbstractNum@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; + DotNetAbstractNum@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetAbstractNum := DotNetAbstractNum.AbstractNum; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetAbstractNum := DotNetAbstractNum.AbstractNum(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024401() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetAbstractNum.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetAbstractNum.InnerText); END; [External] - PROCEDURE SetAbstractNumberId@17024404(NewNumId@17024401 : Integer); + PROCEDURE SetAbstractNumberId@5(NewNumId@1000 : Integer); VAR - DotNetInt32Value@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; BEGIN DotNetAbstractNum.AbstractNumberId := DotNetInt32Value.FromInt32(NewNumId); END; [External] - PROCEDURE GetAbstractNumberId@17024415() : Integer; + PROCEDURE GetAbstractNumberId@6() : Integer; BEGIN EXIT(DotNetAbstractNum.AbstractNumberId.Value); END; [External] - PROCEDURE AppendLevel@17024402(VAR WordNumberingLevel@17024401 : Codeunit 50073); + PROCEDURE AppendLevel@7(VAR WordNumberingLevel@1000 : Codeunit 50073); VAR - DotNetLevel@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetLevel@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"; + OpenXmlDotNetHelper@1002 : Codeunit 50067; BEGIN WordNumberingLevel.GetLevel(DotNetLevel); //We need this to deal with .NET Generics: OpenXmlDotNetHelper.AppendGeneric(DotNetAbstractNum, DotNetLevel); END; - PROCEDURE SetAbstractNum@17024411(NewDotNetAbstractNum@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"); + PROCEDURE SetAbstractNum@8(NewDotNetAbstractNum@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"); BEGIN DotNetAbstractNum := NewDotNetAbstractNum; END; - PROCEDURE GetAbstractNum@17024400(VAR CurrentDotNetAbstractNum@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"); + PROCEDURE GetAbstractNum@9(VAR CurrentDotNetAbstractNum@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"); BEGIN CurrentDotNetAbstractNum := DotNetAbstractNum; END; diff --git a/BaseApp/COD50073.TXT b/BaseApp/COD50073.TXT index b1add74..2961f10 100644 --- a/BaseApp/COD50073.TXT +++ b/BaseApp/COD50073.TXT @@ -15,37 +15,37 @@ OBJECT Codeunit 50073 DotNet_Word.NumberingLevel CODE { VAR - DotNetLevel@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"; + DotNetLevel@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetLevel := DotNetLevel.Level; END; [External] - PROCEDURE CreateFromOuterXml@17024404(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetLevel := DotNetLevel.Level(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024402() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetLevel.OuterXml); END; [External] - PROCEDURE GetInnerText@17024401() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetLevel.InnerText); END; [External] - PROCEDURE SetLevelText@17024405(NewLevelText@17024401 : Text); + PROCEDURE SetLevelText@5(NewLevelText@1000 : Text); VAR - DotNetLevelText@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.LevelText"; - DotNetStringValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; + DotNetLevelText@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.LevelText"; + DotNetStringValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.StringValue"; BEGIN DotNetLevelText := DotNetLevelText.LevelText; DotNetLevelText.Val := DotNetStringValue.FromString(NewLevelText); @@ -53,20 +53,20 @@ OBJECT Codeunit 50073 DotNet_Word.NumberingLevel END; [External] - PROCEDURE SetLevelIndex@17024406(NewLevelIndex@17024401 : Integer); + PROCEDURE SetLevelIndex@6(NewLevelIndex@1000 : Integer); VAR - DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; BEGIN DotNetLevel.LevelIndex := DotNetInt32Value.FromInt32(NewLevelIndex); END; [External] - PROCEDURE SetNumberingFormatType@17024410(NewNumberingFormatType@17024401 : Integer); + PROCEDURE SetNumberingFormatType@7(NewNumberingFormatType@1000 : Integer); VAR - DotNetNumberFormat@17024404 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingFormat"; - DotNetNumberFormatValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberFormatValues"; - DotNetEnumValue@17024403 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; - OpenXmlDotNetHelper@17024402 : Codeunit 50067; + DotNetNumberFormat@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingFormat"; + DotNetNumberFormatValues@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberFormatValues"; + DotNetEnumValue@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@1004 : Codeunit 50067; BEGIN //We need this to deal with .NET Generics: OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetNumberFormatValues), NewNumberingFormatType, DotNetEnumValue); @@ -76,22 +76,22 @@ OBJECT Codeunit 50073 DotNet_Word.NumberingLevel END; [External] - PROCEDURE GetNumberingFormatType@17024408() : Integer; + PROCEDURE GetNumberingFormatType@8() : Integer; VAR - DotNetNumberFormatValues@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberFormatValues"; - DotNetEnumValue@17024401 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + DotNetNumberFormatValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberFormatValues"; + DotNetEnumValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; BEGIN DotNetEnumValue := DotNetLevel.NumberingFormat.Val; DotNetNumberFormatValues := DotNetEnumValue.Value; EXIT(DotNetNumberFormatValues); END; - PROCEDURE SetLevel@17024411(NewDotNetLevel@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"); + PROCEDURE SetLevel@9(NewDotNetLevel@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"); BEGIN DotNetLevel := NewDotNetLevel; END; - PROCEDURE GetLevel@17024400(VAR CurrentDotNetLevel@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"); + PROCEDURE GetLevel@10(VAR CurrentDotNetLevel@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"); BEGIN CurrentDotNetLevel := DotNetLevel; END; diff --git a/BaseApp/COD50074.TXT b/BaseApp/COD50074.TXT index c8e7520..a661018 100644 --- a/BaseApp/COD50074.TXT +++ b/BaseApp/COD50074.TXT @@ -15,57 +15,57 @@ OBJECT Codeunit 50074 DotNet_Word.NumberingInstance CODE { VAR - DotNetNumberingInstance@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"; + DotNetNumberingInstance@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"; [External] - PROCEDURE Create@17024403(); + PROCEDURE Create@1(); BEGIN DotNetNumberingInstance := DotNetNumberingInstance.NumberingInstance; END; [External] - PROCEDURE CreateFromOuterXml@17024408(OuterXml@17024400 : Text); + PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNumberingInstance := DotNetNumberingInstance.NumberingInstance(OuterXml); END; [External] - PROCEDURE GetOuterXml@17024401() : Text; + PROCEDURE GetOuterXml@3() : Text; BEGIN EXIT(DotNetNumberingInstance.OuterXml); END; [External] - PROCEDURE GetInnerText@17024410() : Text; + PROCEDURE GetInnerText@4() : Text; BEGIN EXIT(DotNetNumberingInstance.InnerText); END; [External] - PROCEDURE SetNumberID@17024406(NewNumberID@17024401 : Integer); + PROCEDURE SetNumberID@5(NewNumberID@1000 : Integer); VAR - DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; BEGIN DotNetNumberingInstance.NumberID := DotNetInt32Value.FromInt32(NewNumberID); END; [External] - PROCEDURE SetAbstractNumId@17024402(NewAbstractNumId@17024401 : Integer); + PROCEDURE SetAbstractNumId@6(NewAbstractNumId@1000 : Integer); VAR - DotNetInt32Value@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; - DotNetAbstractNumId@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNumId"; + DotNetInt32Value@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Int32Value"; + DotNetAbstractNumId@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNumId"; BEGIN DotNetAbstractNumId := DotNetAbstractNumId.AbstractNumId; DotNetAbstractNumId.Val := DotNetInt32Value.FromInt32(NewAbstractNumId); DotNetNumberingInstance.AbstractNumId := DotNetAbstractNumId; END; - PROCEDURE SetNumberingInstance@17024411(NewDotNetNumberingInstance@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"); + PROCEDURE SetNumberingInstance@7(NewDotNetNumberingInstance@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"); BEGIN DotNetNumberingInstance := NewDotNetNumberingInstance; END; - PROCEDURE GetNumberingInstance@17024400(VAR CurrentDotNetNumberingInstance@17024400 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"); + PROCEDURE GetNumberingInstance@8(VAR CurrentDotNetNumberingInstance@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"); BEGIN CurrentDotNetNumberingInstance := DotNetNumberingInstance; END; diff --git a/BaseApp/COD50079.TXT b/BaseApp/COD50079.TXT index 721df56..29a3c55 100644 --- a/BaseApp/COD50079.TXT +++ b/BaseApp/COD50079.TXT @@ -27,21 +27,21 @@ OBJECT Codeunit 50079 DotNet_OpenXml.SpaceProcessing END; [External] - PROCEDURE ToOpenXmlEnumValue@17024400(VAR DotNet_OpenXmlEnumValue@17024400 : Codeunit 50080); + PROCEDURE ToOpenXmlEnumValue@2(VAR DotNet_OpenXmlEnumValue@1000 : Codeunit 50080); VAR - OpenXmlDotNetHelper@17024401 : Codeunit 50067; - DotNetEnumValue@17024402 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; + OpenXmlDotNetHelper@1001 : Codeunit 50067; + DotNetEnumValue@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; BEGIN OpenXmlDotNetHelper.CreateEnumValueGeneric(GETDOTNETTYPE(DotNetSpaceProcessingModeValues), DotNetSpaceProcessingModeValues, DotNetEnumValue); DotNet_OpenXmlEnumValue.SetEnumValue(DotNetEnumValue); END; - PROCEDURE SetSpaceProcessingModeValues@2(VAR NewDotNetSpaceProcessingModeValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"); + PROCEDURE SetSpaceProcessingModeValues@3(VAR NewDotNetSpaceProcessingModeValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"); BEGIN DotNetSpaceProcessingModeValues := NewDotNetSpaceProcessingModeValues; END; - PROCEDURE GetSpaceProcessingModeValues@3(VAR CurrentDotNetSpaceProcessingModeValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"); + PROCEDURE GetSpaceProcessingModeValues@4(VAR CurrentDotNetSpaceProcessingModeValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"); BEGIN CurrentDotNetSpaceProcessingModeValues := DotNetSpaceProcessingModeValues; END; diff --git a/BaseApp/COD50080.TXT b/BaseApp/COD50080.TXT index cf7c910..e8a7055 100644 --- a/BaseApp/COD50080.TXT +++ b/BaseApp/COD50080.TXT @@ -17,12 +17,12 @@ OBJECT Codeunit 50080 DotNet_OpenXml.EnumValue VAR DotNetEnumValue@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; - PROCEDURE SetEnumValue@2(VAR NewDotNetEnumValue@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"); + PROCEDURE SetEnumValue@1(VAR NewDotNetEnumValue@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"); BEGIN DotNetEnumValue := NewDotNetEnumValue; END; - PROCEDURE GetEnumValue@3(VAR CurrentDotNetEnumValue@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"); + PROCEDURE GetEnumValue@2(VAR CurrentDotNetEnumValue@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"); BEGIN CurrentDotNetEnumValue := DotNetEnumValue; END; diff --git a/Test/COD50069.TXT b/Test/COD50069.TXT index 86560cc..3687816 100644 --- a/Test/COD50069.TXT +++ b/Test/COD50069.TXT @@ -16,39 +16,39 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing CODE { VAR - Assert@17024401 : Codeunit 130000; - LibraryLowerPermissions@17024400 : Codeunit 132217; - OpenXmlWordProcessingHelper@17024402 : Codeunit 50068; - WordprocessingDocument@17024405 : Codeunit 50018; - MainDocumentPart@17024404 : Codeunit 50019; - WordDocument@17024406 : Codeunit 50020; - WordBody@17024403 : Codeunit 50021; - WordParagraph@17024410 : Codeunit 50022; - WordRun@17024409 : Codeunit 50023; - WordText@17024408 : Codeunit 50024; - WordRunProperties@17024407 : Codeunit 50025; - WordColor@17024420 : Codeunit 50036; - WordParagraphProperties@17024419 : Codeunit 50026; - WordStyleRunProperties@17024418 : Codeunit 50037; - WordSpacingBetweenLines@17024417 : Codeunit 50030; - WordTable@17024416 : Codeunit 50027; - WordTableRow@17024415 : Codeunit 50028; - WordTableCell@17024414 : Codeunit 50029; - WordHyperlink@17024413 : Codeunit 50035; - WordStyleDefinitionPart@17024421 : Codeunit 50041; - WordStyles@17024422 : Codeunit 50039; - WordDrawing@17024423 : Codeunit 50043; - WordParagraphEnumerator@17024426 : Codeunit 50062; - WordRunEnumerator@17024425 : Codeunit 50063; - WordTextEnumerator@17024424 : Codeunit 50076; - TestFile@17024411 : File; - FileOutStream@17024412 : OutStream; + Assert@1001 : Codeunit 130000; + LibraryLowerPermissions@1000 : Codeunit 132217; + OpenXmlWordProcessingHelper@1002 : Codeunit 50068; + WordprocessingDocument@1003 : Codeunit 50018; + MainDocumentPart@1004 : Codeunit 50019; + WordDocument@1005 : Codeunit 50020; + WordBody@1006 : Codeunit 50021; + WordParagraph@1007 : Codeunit 50022; + WordRun@1008 : Codeunit 50023; + WordText@1009 : Codeunit 50024; + WordRunProperties@1010 : Codeunit 50025; + WordColor@1011 : Codeunit 50036; + WordParagraphProperties@1012 : Codeunit 50026; + WordStyleRunProperties@1013 : Codeunit 50037; + WordSpacingBetweenLines@1014 : Codeunit 50030; + WordTable@1015 : Codeunit 50027; + WordTableRow@1016 : Codeunit 50028; + WordTableCell@1017 : Codeunit 50029; + WordHyperlink@1018 : Codeunit 50035; + WordStyleDefinitionPart@1019 : Codeunit 50041; + WordStyles@1020 : Codeunit 50039; + WordDrawing@1021 : Codeunit 50043; + WordParagraphEnumerator@1022 : Codeunit 50062; + WordRunEnumerator@1023 : Codeunit 50063; + WordTextEnumerator@1024 : Codeunit 50076; + TestFile@1025 : File; + FileOutStream@1026 : OutStream; [Test] - PROCEDURE TestCreateSimpleDocument@17024400(); + PROCEDURE TestCreateSimpleDocument@1(); VAR - Expected@17024403 : Text; - Actual@17024400 : Text; + Expected@1000 : Text; + Actual@1001 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] Empty Word document is created @@ -62,10 +62,10 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestCreateParagraph@17024419(); + PROCEDURE TestCreateParagraph@2(); VAR - Expected@17024403 : Text; - Actual@17024400 : Text; + Expected@1000 : Text; + Actual@1001 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] One paragraph is added to an empty document @@ -82,10 +82,10 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestCreateParagraphWithStyles@17024432(); + PROCEDURE TestCreateParagraphWithStyles@3(); VAR - Expected@17024403 : Text; - Actual@17024400 : Text; + Expected@1000 : Text; + Actual@1001 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] One paragraph with formating styles is added to an empty document @@ -106,10 +106,10 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestCreateParagraphJustification@17024436(); + PROCEDURE TestCreateParagraphJustification@4(); VAR - Expected@17024403 : Text; - Actual@17024400 : Text; + Expected@1000 : Text; + Actual@1001 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] One paragraph with justified text is added to an empty document @@ -126,10 +126,10 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestCreateHeadings@17024439(); + PROCEDURE TestCreateHeadings@5(); VAR - Expected@17024403 : Text; - Actual@17024401 : Text; + Expected@1000 : Text; + Actual@1001 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] Heading1 and Heading2 styles are added to an empty document @@ -162,10 +162,10 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestCreateTable@17024446(); + PROCEDURE TestCreateTable@6(); VAR - Expected@17024403 : Text; - Actual@17024400 : Text; + Expected@1000 : Text; + Actual@1001 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] Table is added to an empty document @@ -183,10 +183,10 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestCreateLists@17024453(); + PROCEDURE TestCreateLists@7(); VAR - Expected@17024403 : Text; - Actual@17024400 : Text; + Expected@1000 : Text; + Actual@1001 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] Sample lists are added to an empty document @@ -218,11 +218,11 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestCreatePicture@17024456(); + PROCEDURE TestCreatePicture@8(); VAR - Expected@17024403 : Text; - PartId@17024405 : Text; - Actual@17024400 : Text; + Expected@1000 : Text; + PartId@1001 : Text; + Actual@1002 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] Picture is added to an empty document @@ -253,11 +253,11 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestCreateHyperlink@17024402(); + PROCEDURE TestCreateHyperlink@9(); VAR - Expected@17024403 : Text; - PartId@17024400 : Text; - Actual@17024402 : Text; + Expected@1000 : Text; + PartId@1001 : Text; + Actual@1002 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] Hyperlink is added to an empty document @@ -276,14 +276,14 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestCreateFullDocumentNonEmpty@17024415(); + PROCEDURE TestCreateFullDocumentNonEmpty@10(); VAR - Expected@17024403 : Text; - PictureBase64@17024404 : Text; - TempBlob@17024402 : TEMPORARY Record 99008535; - ImageStream@17024401 : InStream; - ExistingFileStream@17024400 : InStream; - SaveStream@17024405 : OutStream; + Expected@1000 : Text; + PictureBase64@1001 : Text; + TempBlob@1002 : TEMPORARY Record 99008535; + ImageStream@1003 : InStream; + ExistingFileStream@1004 : InStream; + SaveStream@1005 : OutStream; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] All elements from previous tests are added to an empty document @@ -310,12 +310,12 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestFullDocumentIsSameOnReopen@17024404(); + PROCEDURE TestFullDocumentIsSameOnReopen@11(); VAR - Expected@17024403 : Text; - ExistingFileStream@17024400 : InStream; - SaveStream@17024405 : OutStream; - TempBlob@17024401 : TEMPORARY Record 99008535; + Expected@1000 : Text; + ExistingFileStream@1001 : InStream; + SaveStream@1002 : OutStream; + TempBlob@1003 : TEMPORARY Record 99008535; BEGIN LibraryLowerPermissions.SetO365Basic; //[WHEN] All elements from previous tests are added to an empty document @@ -339,13 +339,13 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestExistingDocumentOpen@17024460(); + PROCEDURE TestExistingDocumentOpen@12(); VAR - DocumentBase64@17024402 : Text; - Expected@17024403 : Text; - ExistingFileStream@17024400 : InStream; - SaveStream@17024405 : OutStream; - TempBlob@17024401 : TEMPORARY Record 99008535; + DocumentBase64@1000 : Text; + Expected@1001 : Text; + ExistingFileStream@1002 : InStream; + SaveStream@1003 : OutStream; + TempBlob@1004 : TEMPORARY Record 99008535; BEGIN LibraryLowerPermissions.SetO365Basic; //[GIVEN] Sample document stream as base64 text @@ -420,17 +420,17 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestExistingDocumentInspection@17024468(); + PROCEDURE TestExistingDocumentInspection@13(); VAR - DocumentBase64@17024402 : Text; - Expected@17024403 : Text; - ExistingFileStream@17024400 : InStream; - SaveStream@17024405 : OutStream; - TempBlob@17024401 : TEMPORARY Record 99008535; - ParagraphCount@17024404 : Integer; - RunCount@17024406 : Integer; - TextCount@17024407 : Integer; - FullText@17024408 : Text; + DocumentBase64@1000 : Text; + Expected@1001 : Text; + ExistingFileStream@1002 : InStream; + SaveStream@1003 : OutStream; + TempBlob@1004 : TEMPORARY Record 99008535; + ParagraphCount@1005 : Integer; + RunCount@1006 : Integer; + TextCount@1007 : Integer; + FullText@1008 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[GIVEN] Sample document stream as base64 text @@ -481,14 +481,14 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing END; [Test] - PROCEDURE TestExistingDocumentModification@17024478(); + PROCEDURE TestExistingDocumentModification@14(); VAR - DocumentBase64@17024402 : Text; - Expected@17024403 : Text; - ExistingFileStream@17024400 : InStream; - SaveStream@17024405 : OutStream; - TempBlob@17024401 : TEMPORARY Record 99008535; - Actual@17024408 : Text; + DocumentBase64@1000 : Text; + Expected@1001 : Text; + ExistingFileStream@1002 : InStream; + SaveStream@1003 : OutStream; + TempBlob@1004 : TEMPORARY Record 99008535; + Actual@1005 : Text; BEGIN LibraryLowerPermissions.SetO365Basic; //[GIVEN] Sample document stream as base64 text @@ -586,13 +586,13 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing Assert.AreEqual(Expected, Actual, 'Full document text check failed'); END; - LOCAL PROCEDURE CreateSampleDocument@17024447(); + LOCAL PROCEDURE CreateSampleDocument@15(); BEGIN OpenXmlWordProcessingHelper.CreateEmptyDocument(0, WordprocessingDocument, MainDocumentPart, WordBody); MainDocumentPart.Document(WordDocument); END; - LOCAL PROCEDURE CreateSampleParagraph@17024421(); + LOCAL PROCEDURE CreateSampleParagraph@16(); BEGIN WordText.TextConstructor; WordText.SetText('Lorem ipsum dolor sit amet, consectetur adipiscing elit. Praesent quam augue, tempus id metus in, laoreet viverra quam. Sed vulputate risus lacus, et dapibus orci porttitor non.'); @@ -603,7 +603,7 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordBody.AppendParagraph(WordParagraph); END; - LOCAL PROCEDURE CreateSampleParagraphWithFormating@17024423(); + LOCAL PROCEDURE CreateSampleParagraphWithFormating@17(); VAR DotNet_OpenXmlSpaceProcessing@1000 : Codeunit 50079; BEGIN @@ -700,7 +700,7 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordBody.AppendParagraph(WordParagraph); END; - LOCAL PROCEDURE CreateSampleParagraphJustified@17024425(); + LOCAL PROCEDURE CreateSampleParagraphJustified@18(); VAR DotNet_OpenXmlSpaceProcessing@1000 : Codeunit 50079; BEGIN @@ -718,7 +718,7 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordBody.AppendParagraph(WordParagraph); END; - LOCAL PROCEDURE CreateSampleHeadings@17024428(); + LOCAL PROCEDURE CreateSampleHeadings@19(); VAR DotNet_OpenXmlSpaceProcessing@1000 : Codeunit 50079; BEGIN @@ -769,7 +769,7 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordBody.AppendParagraph(WordParagraph); END; - LOCAL PROCEDURE CreateSampleTable@17024430(); + LOCAL PROCEDURE CreateSampleTable@20(); BEGIN WordTable.Create; WordTableRow.Create; @@ -826,7 +826,7 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordBody.AppendTable(WordTable); END; - LOCAL PROCEDURE CreateSampleLists@17024433(); + LOCAL PROCEDURE CreateSampleLists@21(); BEGIN OpenXmlWordProcessingHelper.CreateBulletListProperties(MainDocumentPart, WordParagraphProperties, '5'); WordParagraph.Paragraph; @@ -888,12 +888,12 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing WordBody.AppendParagraph(WordParagraph); END; - LOCAL PROCEDURE CreateSamplePicture@17024435() : Text; + LOCAL PROCEDURE CreateSamplePicture@22() : Text; VAR - PictureBase64@17024402 : Text; - TempBlob@17024401 : TEMPORARY Record 99008535; - ImageStream@17024400 : InStream; - PartId@17024403 : Text; + PictureBase64@1000 : Text; + TempBlob@1001 : TEMPORARY Record 99008535; + ImageStream@1002 : InStream; + PartId@1003 : Text; BEGIN PictureBase64 := '/9j/4AAQSkZJRgABAQEAYABgAAD/2wBDAAIBAQIBAQICAgICAgICAwUDAwMDAwYEBAMF' @@ -932,9 +932,9 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing EXIT(PartId); END; - LOCAL PROCEDURE CreateSampleHyperlink@17024440() : Text; + LOCAL PROCEDURE CreateSampleHyperlink@23() : Text; VAR - PartId@17024403 : Text; + PartId@1000 : Text; BEGIN PartId := OpenXmlWordProcessingHelper.CreateHyperLink('http://microsoft.com', 'My awesome link', MainDocumentPart, WordHyperlink); WordParagraph.Paragraph; @@ -943,14 +943,14 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing EXIT(PartId); END; - LOCAL PROCEDURE FinalizeAndGetDocumentOuterXml@17024451() : Text; + LOCAL PROCEDURE FinalizeAndGetDocumentOuterXml@24() : Text; BEGIN MainDocumentPart.Document(WordDocument); WordprocessingDocument.Close; EXIT(WordDocument.OuterXml); END; - LOCAL PROCEDURE GetExampleDocxFileContentAsBase64@17024465() : Text; + LOCAL PROCEDURE GetExampleDocxFileContentAsBase64@25() : Text; BEGIN EXIT( 'UEsDBBQAAAAIAPtV8kwiRWpBhQUAAB8VAAARABwAd29yZC9kb2N1bWVudC54bWwgohgAKKAUAAAAAAAAAAAAAAAAAAAAAAAAAAA' From c658b1e335a9098e3a46d32d4f5ed6d62db3d7cc Mon Sep 17 00:00:00 2001 From: Karolis Uosis Date: Sun, 23 Sep 2018 15:59:12 +0300 Subject: [PATCH 5/6] VAR property added to all Set[DotNetType] method parameters --- BaseApp/COD50019.TXT | 8 ++++++-- BaseApp/COD50025.TXT | 2 +- BaseApp/COD50026.TXT | 2 +- BaseApp/COD50027.TXT | 2 +- BaseApp/COD50028.TXT | 2 +- BaseApp/COD50029.TXT | 2 +- BaseApp/COD50030.TXT | 2 +- BaseApp/COD50031.TXT | 2 +- BaseApp/COD50032.TXT | 2 +- BaseApp/COD50033.TXT | 2 +- BaseApp/COD50034.TXT | 2 +- BaseApp/COD50035.TXT | 2 +- BaseApp/COD50036.TXT | 2 +- BaseApp/COD50037.TXT | 2 +- BaseApp/COD50038.TXT | 2 +- BaseApp/COD50039.TXT | 2 +- BaseApp/COD50040.TXT | 9 ++++++--- BaseApp/COD50041.TXT | 5 ++++- BaseApp/COD50042.TXT | 2 +- BaseApp/COD50043.TXT | 2 +- BaseApp/COD50044.TXT | 2 +- BaseApp/COD50045.TXT | 2 +- BaseApp/COD50046.TXT | 2 +- BaseApp/COD50047.TXT | 2 +- BaseApp/COD50048.TXT | 2 +- BaseApp/COD50049.TXT | 2 +- BaseApp/COD50050.TXT | 2 +- BaseApp/COD50051.TXT | 2 +- BaseApp/COD50052.TXT | 2 +- BaseApp/COD50053.TXT | 2 +- BaseApp/COD50054.TXT | 2 +- BaseApp/COD50055.TXT | 2 +- BaseApp/COD50056.TXT | 2 +- BaseApp/COD50057.TXT | 2 +- BaseApp/COD50058.TXT | 2 +- BaseApp/COD50059.TXT | 2 +- BaseApp/COD50060.TXT | 2 +- BaseApp/COD50061.TXT | 2 +- BaseApp/COD50068.TXT | 4 ++-- BaseApp/COD50070.TXT | 5 ++++- BaseApp/COD50071.TXT | 2 +- BaseApp/COD50072.TXT | 2 +- BaseApp/COD50073.TXT | 2 +- BaseApp/COD50074.TXT | 2 +- 44 files changed, 61 insertions(+), 48 deletions(-) diff --git a/BaseApp/COD50019.TXT b/BaseApp/COD50019.TXT index fc993e3..ed6f76c 100644 --- a/BaseApp/COD50019.TXT +++ b/BaseApp/COD50019.TXT @@ -32,9 +32,11 @@ OBJECT Codeunit 50019 DotNet_Word.MainDocumentPart PROCEDURE AddHyperlinkRelationship@3(VAR Uri@1000 : Codeunit 3024;IsExternal@1001 : Boolean;VAR CreatedHyperlinkRelationship@1002 : Codeunit 50034); VAR DotNetUri@1003 : DotNet "'System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Uri"; + DotNetHyperlinkRelationship@1004 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"; BEGIN Uri.GetUri(DotNetUri); - CreatedHyperlinkRelationship.SetHyperlinkRelationship(DotNetMainDocumentPart.AddHyperlinkRelationship(DotNetUri, IsExternal)); + DotNetHyperlinkRelationship := DotNetMainDocumentPart.AddHyperlinkRelationship(DotNetUri, IsExternal); + CreatedHyperlinkRelationship.SetHyperlinkRelationship(DotNetHyperlinkRelationship); END; [External] @@ -79,9 +81,11 @@ OBJECT Codeunit 50019 DotNet_Word.MainDocumentPart PROCEDURE AddImagePart@10(VAR ImagePartType@1000 : Codeunit 50078;VAR CreatedImagePart@1001 : Codeunit 50042); VAR DotNetImagePartType@1002 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePartType"; + DotNetImagePart@1003 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"; BEGIN ImagePartType.GetImagePartType(DotNetImagePartType); - CreatedImagePart.SetImagePart(DotNetMainDocumentPart.AddImagePart(DotNetImagePartType)); + DotNetImagePart := DotNetMainDocumentPart.AddImagePart(DotNetImagePartType); + CreatedImagePart.SetImagePart(DotNetImagePart); END; [External] diff --git a/BaseApp/COD50025.TXT b/BaseApp/COD50025.TXT index 0a6e834..95435da 100644 --- a/BaseApp/COD50025.TXT +++ b/BaseApp/COD50025.TXT @@ -110,7 +110,7 @@ OBJECT Codeunit 50025 DotNet_Word.RunProperties DotNetRunProperties.RunStyle := DotNetRunStyle; END; - PROCEDURE SetRunProperties@11(NewDotNetRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"); + PROCEDURE SetRunProperties@11(VAR NewDotNetRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"); BEGIN DotNetRunProperties := NewDotNetRunProperties; END; diff --git a/BaseApp/COD50026.TXT b/BaseApp/COD50026.TXT index 4602847..a7a5d66 100644 --- a/BaseApp/COD50026.TXT +++ b/BaseApp/COD50026.TXT @@ -94,7 +94,7 @@ OBJECT Codeunit 50026 DotNet_Word.ParagraphProp DotNetParagraphProperties.ParagraphStyleId := DotNetParagraphStyleId; END; - PROCEDURE SetParagraphProperties@10(NewDotNetParagraphProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"); + PROCEDURE SetParagraphProperties@10(VAR NewDotNetParagraphProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"); BEGIN DotNetParagraphProperties := NewDotNetParagraphProperties; END; diff --git a/BaseApp/COD50027.TXT b/BaseApp/COD50027.TXT index 168b256..91d4a6e 100644 --- a/BaseApp/COD50027.TXT +++ b/BaseApp/COD50027.TXT @@ -64,7 +64,7 @@ OBJECT Codeunit 50027 DotNet_Word.Table WordTableRowEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetTable@7(NewDotNetTable@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"); + PROCEDURE SetTable@7(VAR NewDotNetTable@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"); BEGIN DotNetTable := NewDotNetTable; END; diff --git a/BaseApp/COD50028.TXT b/BaseApp/COD50028.TXT index ee993df..8354133 100644 --- a/BaseApp/COD50028.TXT +++ b/BaseApp/COD50028.TXT @@ -64,7 +64,7 @@ OBJECT Codeunit 50028 DotNet_Word.TableRow WordTableCellEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetTableRow@7(NewDotNetTableRow@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"); + PROCEDURE SetTableRow@7(VAR NewDotNetTableRow@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"); BEGIN DotNetTableRow := NewDotNetTableRow; END; diff --git a/BaseApp/COD50029.TXT b/BaseApp/COD50029.TXT index f77a8d3..72ed053 100644 --- a/BaseApp/COD50029.TXT +++ b/BaseApp/COD50029.TXT @@ -64,7 +64,7 @@ OBJECT Codeunit 50029 DotNet_Word.TableCell WordParagraphEnumerator.SetEnumerator(DotNetParagraph); END; - PROCEDURE SetTableCell@7(NewDotNetTableCell@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"); + PROCEDURE SetTableCell@7(VAR NewDotNetTableCell@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"); BEGIN DotNetTableCell := NewDotNetTableCell; END; diff --git a/BaseApp/COD50030.TXT b/BaseApp/COD50030.TXT index fec4c66..624ac89 100644 --- a/BaseApp/COD50030.TXT +++ b/BaseApp/COD50030.TXT @@ -45,7 +45,7 @@ OBJECT Codeunit 50030 DotNet_Word.SpacingBetweenLine DotNetSpacingBetweenLines.After := DotNetStringValue; END; - PROCEDURE SetSpacingBetweenLines@5(NewDotNetSpacingBetweenLines@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"); + PROCEDURE SetSpacingBetweenLines@5(VAR NewDotNetSpacingBetweenLines@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"); BEGIN DotNetSpacingBetweenLines := NewDotNetSpacingBetweenLines; END; diff --git a/BaseApp/COD50031.TXT b/BaseApp/COD50031.TXT index 03174c7..16dc11c 100644 --- a/BaseApp/COD50031.TXT +++ b/BaseApp/COD50031.TXT @@ -55,7 +55,7 @@ OBJECT Codeunit 50031 DotNet_Word.Indentation DotNetIndentation.Hanging := DotNetStringValue; END; - PROCEDURE SetIndentation@6(NewDotNetIndentation@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"); + PROCEDURE SetIndentation@6(VAR NewDotNetIndentation@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"); BEGIN DotNetIndentation := NewDotNetIndentation; END; diff --git a/BaseApp/COD50032.TXT b/BaseApp/COD50032.TXT index 824d804..8c97939 100644 --- a/BaseApp/COD50032.TXT +++ b/BaseApp/COD50032.TXT @@ -63,7 +63,7 @@ OBJECT Codeunit 50032 DotNet_Word.NumberingPropertie DotNetNumberingProperties.NumberingId := DotNetNumberingId; END; - PROCEDURE SetNumberingProperties@7(NewDotNetNumberingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"); + PROCEDURE SetNumberingProperties@7(VAR NewDotNetNumberingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"); BEGIN DotNetNumberingProperties := NewDotNetNumberingProperties; END; diff --git a/BaseApp/COD50033.TXT b/BaseApp/COD50033.TXT index b88e699..8b745e7 100644 --- a/BaseApp/COD50033.TXT +++ b/BaseApp/COD50033.TXT @@ -46,7 +46,7 @@ OBJECT Codeunit 50033 DotNet_Word.ProofError DotNetProofError.Type := DotNetEnumValue; END; - PROCEDURE SetProofError@5(NewDotNetProofError@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"); + PROCEDURE SetProofError@5(VAR NewDotNetProofError@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"); BEGIN DotNetProofError := NewDotNetProofError; END; diff --git a/BaseApp/COD50034.TXT b/BaseApp/COD50034.TXT index b5d7322..63b0fd1 100644 --- a/BaseApp/COD50034.TXT +++ b/BaseApp/COD50034.TXT @@ -23,7 +23,7 @@ OBJECT Codeunit 50034 DotNet_Word.HyperlinkRelations EXIT(DotNetHyperlinkRelationship.Id); END; - PROCEDURE SetHyperlinkRelationship@2(NewDotNetHyperlinkRelationship@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"); + PROCEDURE SetHyperlinkRelationship@2(VAR NewDotNetHyperlinkRelationship@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"); BEGIN DotNetHyperlinkRelationship := NewDotNetHyperlinkRelationship; END; diff --git a/BaseApp/COD50035.TXT b/BaseApp/COD50035.TXT index 191dd70..979eed4 100644 --- a/BaseApp/COD50035.TXT +++ b/BaseApp/COD50035.TXT @@ -78,7 +78,7 @@ OBJECT Codeunit 50035 DotNet_Word.Hyperlink DotNetHyperlink.History := DotNetOnOffValue.FromBoolean(NewHistory); END; - PROCEDURE SetHyperlink@9(NewDotNetHyperlink@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"); + PROCEDURE SetHyperlink@9(VAR NewDotNetHyperlink@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Hyperlink"); BEGIN DotNetHyperlink := NewDotNetHyperlink; END; diff --git a/BaseApp/COD50036.TXT b/BaseApp/COD50036.TXT index b832bf5..7ee10a0 100644 --- a/BaseApp/COD50036.TXT +++ b/BaseApp/COD50036.TXT @@ -55,7 +55,7 @@ OBJECT Codeunit 50036 DotNet_Word.Color DotNetColor.ThemeColor := DotNetEnumValue; END; - PROCEDURE SetColor@6(NewDotNetColor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"); + PROCEDURE SetColor@6(VAR NewDotNetColor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"); BEGIN DotNetColor := NewDotNetColor; END; diff --git a/BaseApp/COD50037.TXT b/BaseApp/COD50037.TXT index 0f8f700..d51b1eb 100644 --- a/BaseApp/COD50037.TXT +++ b/BaseApp/COD50037.TXT @@ -100,7 +100,7 @@ OBJECT Codeunit 50037 DotNet_Word.StyleRunProperties DotNetStyleRunProperties.Color := DotNetColor; END; - PROCEDURE SetStyleRunProperties@10(NewDotNetStyleRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"); + PROCEDURE SetStyleRunProperties@10(VAR NewDotNetStyleRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"); BEGIN DotNetStyleRunProperties := NewDotNetStyleRunProperties; END; diff --git a/BaseApp/COD50038.TXT b/BaseApp/COD50038.TXT index 41e959c..815fa92 100644 --- a/BaseApp/COD50038.TXT +++ b/BaseApp/COD50038.TXT @@ -147,7 +147,7 @@ OBJECT Codeunit 50038 DotNet_Word.Style OpenXmlDotNetHelper.AppendGeneric(DotNetStyle, DotNetStyleRunProperties); END; - PROCEDURE SetStyle@16(NewDotNetStyle@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"); + PROCEDURE SetStyle@16(VAR NewDotNetStyle@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"); BEGIN DotNetStyle := NewDotNetStyle; END; diff --git a/BaseApp/COD50039.TXT b/BaseApp/COD50039.TXT index 8b4e8eb..c9a701e 100644 --- a/BaseApp/COD50039.TXT +++ b/BaseApp/COD50039.TXT @@ -73,7 +73,7 @@ OBJECT Codeunit 50039 DotNet_Word.Styles WordStylesEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetStyles@8(NewDotNetStyles@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"); + PROCEDURE SetStyles@8(VAR NewDotNetStyles@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"); BEGIN DotNetStyles := NewDotNetStyles; END; diff --git a/BaseApp/COD50040.TXT b/BaseApp/COD50040.TXT index 638d602..a4f6243 100644 --- a/BaseApp/COD50040.TXT +++ b/BaseApp/COD50040.TXT @@ -17,7 +17,7 @@ OBJECT Codeunit 50040 DotNet_Word.StylesEnumerator VAR DotNetEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"; - PROCEDURE SetEnumerator@1(NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); + PROCEDURE SetEnumerator@1(VAR NewEnumerator@1000 : DotNet "'mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089'.System.Collections.IEnumerator"); BEGIN DotNetEnumerator := NewEnumerator; END; @@ -40,9 +40,12 @@ OBJECT Codeunit 50040 DotNet_Word.StylesEnumerator END; [External] - PROCEDURE GetCurrent@5(VAR CurrentStyle@1000 : Codeunit 50038); + PROCEDURE Current@5(VAR CurrentStyle@1000 : Codeunit 50038); + VAR + DotNetStyle@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; BEGIN - CurrentStyle.SetStyle(DotNetEnumerator.Current); + DotNetStyle := DotNetEnumerator.Current; + CurrentStyle.SetStyle(DotNetStyle); END; BEGIN diff --git a/BaseApp/COD50041.TXT b/BaseApp/COD50041.TXT index 7c9a57f..9e63042 100644 --- a/BaseApp/COD50041.TXT +++ b/BaseApp/COD50041.TXT @@ -28,8 +28,11 @@ OBJECT Codeunit 50041 DotNet_Word.StyleDefinitionPar [External] PROCEDURE GetStyles@2(VAR WordStyles@1000 : Codeunit 50039); + VAR + DotNetStyles@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"; BEGIN - WordStyles.SetStyles(DotNetStyleDefinitionsPart.Styles); + DotNetStyles := DotNetStyleDefinitionsPart.Styles; + WordStyles.SetStyles(DotNetStyles); END; [External] diff --git a/BaseApp/COD50042.TXT b/BaseApp/COD50042.TXT index 771d6e2..1f23439 100644 --- a/BaseApp/COD50042.TXT +++ b/BaseApp/COD50042.TXT @@ -23,7 +23,7 @@ OBJECT Codeunit 50042 DotNet_Word.ImagePart DotNetImagePart.FeedData(ImageStream); END; - PROCEDURE SetImagePart@2(NewDotNetImagePart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"); + PROCEDURE SetImagePart@2(VAR NewDotNetImagePart@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePart"); BEGIN DotNetImagePart := NewDotNetImagePart; END; diff --git a/BaseApp/COD50043.TXT b/BaseApp/COD50043.TXT index 4355c2a..2a0bb0e 100644 --- a/BaseApp/COD50043.TXT +++ b/BaseApp/COD50043.TXT @@ -52,7 +52,7 @@ OBJECT Codeunit 50043 DotNet_Word.Drawing OpenXmlDotNetHelper.AppendGeneric(DotNetDrawing, DotNetAnchor); END; - PROCEDURE SetDrawing@6(NewDotNetDrawing@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"); + PROCEDURE SetDrawing@6(VAR NewDotNetDrawing@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"); BEGIN DotNetDrawing := NewDotNetDrawing; END; diff --git a/BaseApp/COD50044.TXT b/BaseApp/COD50044.TXT index ccf172c..1a6415c 100644 --- a/BaseApp/COD50044.TXT +++ b/BaseApp/COD50044.TXT @@ -244,7 +244,7 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor OpenXmlDotNetHelper.AppendGeneric(DotNetAnchor, DotNetGraphic); END; - PROCEDURE SetAnchor@25(NewDotNetAnchor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"); + PROCEDURE SetAnchor@25(VAR NewDotNetAnchor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.Anchor"); BEGIN DotNetAnchor := NewDotNetAnchor; END; diff --git a/BaseApp/COD50045.TXT b/BaseApp/COD50045.TXT index 54a98da..d5312f6 100644 --- a/BaseApp/COD50045.TXT +++ b/BaseApp/COD50045.TXT @@ -76,7 +76,7 @@ OBJECT Codeunit 50045 DotNet_Word.VerticalPosition DotNetVerticalPosition.PercentagePositionVerticalOffset := DotNetPercentagePositionVerticalOffset.PercentagePositionVerticalOffset(NewPercentagePositionVerticalOffset); END; - PROCEDURE SetVerticalPosition@9(NewDotNetVerticalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"); + PROCEDURE SetVerticalPosition@9(VAR NewDotNetVerticalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"); BEGIN DotNetVerticalPosition := NewDotNetVerticalPosition; END; diff --git a/BaseApp/COD50046.TXT b/BaseApp/COD50046.TXT index ac0930e..0da3310 100644 --- a/BaseApp/COD50046.TXT +++ b/BaseApp/COD50046.TXT @@ -76,7 +76,7 @@ OBJECT Codeunit 50046 DotNet_Word.HorizontalPosition DotNetHorizontalPosition.PercentagePositionHeightOffset := DotNetPercentagePositionHeigthOffset.PercentagePositionHeightOffset(NewPercentagePositionHeightOffset); END; - PROCEDURE SetHorizontalPosition@9(NewDotNetHorizontalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"); + PROCEDURE SetHorizontalPosition@9(VAR NewDotNetHorizontalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"); BEGIN DotNetHorizontalPosition := NewDotNetHorizontalPosition; END; diff --git a/BaseApp/COD50047.TXT b/BaseApp/COD50047.TXT index bc40747..7b2c5ea 100644 --- a/BaseApp/COD50047.TXT +++ b/BaseApp/COD50047.TXT @@ -100,7 +100,7 @@ OBJECT Codeunit 50047 DotNet_Word.WrapSquare OpenXmlDotNetHelper.AppendGeneric(DotNetWrapSquare, DotNetEffectExtent); END; - PROCEDURE SetWrapSquare@11(NewDotNetWrapSquare@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"); + PROCEDURE SetWrapSquare@11(VAR NewDotNetWrapSquare@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapSquare"); BEGIN DotNetWrapSquare := NewDotNetWrapSquare; END; diff --git a/BaseApp/COD50048.TXT b/BaseApp/COD50048.TXT index 2edcaff..f444f24 100644 --- a/BaseApp/COD50048.TXT +++ b/BaseApp/COD50048.TXT @@ -73,7 +73,7 @@ OBJECT Codeunit 50048 DotNet_Word.WrapTopBottom OpenXmlDotNetHelper.AppendGeneric(DotNetWrapTopBottom, DotNetEffectExtent); END; - PROCEDURE SetWrapTopBottom@8(NewDotNetWrapTopBottom@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"); + PROCEDURE SetWrapTopBottom@8(VAR NewDotNetWrapTopBottom@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"); BEGIN DotNetWrapTopBottom := NewDotNetWrapTopBottom; END; diff --git a/BaseApp/COD50049.TXT b/BaseApp/COD50049.TXT index 36a3156..89cb2d5 100644 --- a/BaseApp/COD50049.TXT +++ b/BaseApp/COD50049.TXT @@ -73,7 +73,7 @@ OBJECT Codeunit 50049 DotNet_Word.DocProperties DotNetDocProperties.Title := DotNetStringValue.FromString(NewTitle); END; - PROCEDURE SetDocProperties@9(NewDotNetDocProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"); + PROCEDURE SetDocProperties@9(VAR NewDotNetDocProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"); BEGIN DotNetDocProperties := NewDotNetDocProperties; END; diff --git a/BaseApp/COD50050.TXT b/BaseApp/COD50050.TXT index cd3723d..65cc7e7 100644 --- a/BaseApp/COD50050.TXT +++ b/BaseApp/COD50050.TXT @@ -89,7 +89,7 @@ OBJECT Codeunit 50050 DotNet_Word.GraphicFrameLocks DotNetGraphicFrameLocks.NoResize := DotNetBooleanValue.FromBoolean(NewNoResize); END; - PROCEDURE SetGraphicFrameLocks@11(NewDotNetGraphicFrameLocks@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"); + PROCEDURE SetGraphicFrameLocks@11(VAR NewDotNetGraphicFrameLocks@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"); BEGIN DotNetGraphicFrameLocks := NewDotNetGraphicFrameLocks; END; diff --git a/BaseApp/COD50051.TXT b/BaseApp/COD50051.TXT index 16fb456..7097bbc 100644 --- a/BaseApp/COD50051.TXT +++ b/BaseApp/COD50051.TXT @@ -68,7 +68,7 @@ OBJECT Codeunit 50051 DotNet_Word.Picture DotNetPicture.BlipFill := DotNetBlipFill; END; - PROCEDURE SetPicture@8(NewDotNetPicture@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"); + PROCEDURE SetPicture@8(VAR NewDotNetPicture@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"); BEGIN DotNetPicture := NewDotNetPicture; END; diff --git a/BaseApp/COD50052.TXT b/BaseApp/COD50052.TXT index e72f158..0d027ce 100644 --- a/BaseApp/COD50052.TXT +++ b/BaseApp/COD50052.TXT @@ -59,7 +59,7 @@ OBJECT Codeunit 50052 DotNet_Word.NonVisualPicturePr DotNetNonVisualPictureProperties.NonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties; END; - PROCEDURE SetNonVisualPictureProperties@7(NewDotNetNonVisualPictureProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"); + PROCEDURE SetNonVisualPictureProperties@7(VAR NewDotNetNonVisualPictureProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"); BEGIN DotNetNonVisualPictureProperties := NewDotNetNonVisualPictureProperties; END; diff --git a/BaseApp/COD50053.TXT b/BaseApp/COD50053.TXT index de06a1c..9db0bd8 100644 --- a/BaseApp/COD50053.TXT +++ b/BaseApp/COD50053.TXT @@ -61,7 +61,7 @@ OBJECT Codeunit 50053 DotNet_Word.ShapeProperties OpenXmlDotNetHelper.AppendGeneric(DotNetShapeProperties, DotNetPresetGeometry); END; - PROCEDURE SetShapeProperties@7(NewDotNetShapeProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"); + PROCEDURE SetShapeProperties@7(VAR NewDotNetShapeProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"); BEGIN DotNetShapeProperties := NewDotNetShapeProperties; END; diff --git a/BaseApp/COD50054.TXT b/BaseApp/COD50054.TXT index dabca62..9654da4 100644 --- a/BaseApp/COD50054.TXT +++ b/BaseApp/COD50054.TXT @@ -61,7 +61,7 @@ OBJECT Codeunit 50054 DotNet_Word.BlipFill OpenXmlDotNetHelper.AppendGeneric(DotNetBlipFill, DotNetStretch); END; - PROCEDURE SetBlipFill@7(NewDotNetBlipFill@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"); + PROCEDURE SetBlipFill@7(VAR NewDotNetBlipFill@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"); BEGIN DotNetBlipFill := NewDotNetBlipFill; END; diff --git a/BaseApp/COD50055.TXT b/BaseApp/COD50055.TXT index f42a126..3e04f6e 100644 --- a/BaseApp/COD50055.TXT +++ b/BaseApp/COD50055.TXT @@ -73,7 +73,7 @@ OBJECT Codeunit 50055 DotNet_Word.NonVisualDrawingPr DotNetNonVisualDrawingProperties.Id := DotNetUInt32Value.FromUInt32(NewId); END; - PROCEDURE SetNonVisualDrawingProperties@9(NewDotNetNonVisualDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"); + PROCEDURE SetNonVisualDrawingProperties@9(VAR NewDotNetNonVisualDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"); BEGIN DotNetNonVisualDrawingProperties := NewDotNetNonVisualDrawingProperties; END; diff --git a/BaseApp/COD50056.TXT b/BaseApp/COD50056.TXT index 0452134..92c303b 100644 --- a/BaseApp/COD50056.TXT +++ b/BaseApp/COD50056.TXT @@ -49,7 +49,7 @@ OBJECT Codeunit 50056 DotNet_Word.NonVisualPictureDr DotNetNonVisualPictureDrawingProperties.PreferRelativeResize := DotNetBooleanValue.FromBoolean(NewPreferRelativeResize); END; - PROCEDURE SetNonVisualPictureDrawingProperties@6(NewDotNetNonVisualPictureDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"); + PROCEDURE SetNonVisualPictureDrawingProperties@6(VAR NewDotNetNonVisualPictureDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"); BEGIN DotNetNonVisualPictureDrawingProperties := NewDotNetNonVisualPictureDrawingProperties; END; diff --git a/BaseApp/COD50057.TXT b/BaseApp/COD50057.TXT index 79d8879..491a39b 100644 --- a/BaseApp/COD50057.TXT +++ b/BaseApp/COD50057.TXT @@ -72,7 +72,7 @@ OBJECT Codeunit 50057 DotNet_Word.Blip OpenXmlDotNetHelper.AppendGeneric(DotNetBlip, DotNetBlipExtensionList); END; - PROCEDURE SetBlip@8(NewDotNetBlip@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"); + PROCEDURE SetBlip@8(VAR NewDotNetBlip@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"); BEGIN DotNetBlip := NewDotNetBlip; END; diff --git a/BaseApp/COD50058.TXT b/BaseApp/COD50058.TXT index 42629b5..417b53f 100644 --- a/BaseApp/COD50058.TXT +++ b/BaseApp/COD50058.TXT @@ -51,7 +51,7 @@ OBJECT Codeunit 50058 DotNet_Word.Stretch OpenXmlDotNetHelper.AppendGeneric(DotNetStretch, DotNetFillRectangle.FillRectangle); END; - PROCEDURE SetStretch@6(NewDotNetStretch@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"); + PROCEDURE SetStretch@6(VAR NewDotNetStretch@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"); BEGIN DotNetStretch := NewDotNetStretch; END; diff --git a/BaseApp/COD50059.TXT b/BaseApp/COD50059.TXT index 7608a6d..bd1b0d3 100644 --- a/BaseApp/COD50059.TXT +++ b/BaseApp/COD50059.TXT @@ -54,7 +54,7 @@ OBJECT Codeunit 50059 DotNet_Word.BlipExtensionList OpenXmlDotNetHelper.AppendGeneric(DotNetBlipExtensionList, DotNetBlipExtension); END; - PROCEDURE SetBlipExtensionList@6(NewDotNetBlipExtensionList@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"); + PROCEDURE SetBlipExtensionList@6(VAR NewDotNetBlipExtensionList@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"); BEGIN DotNetBlipExtensionList := NewDotNetBlipExtensionList; END; diff --git a/BaseApp/COD50060.TXT b/BaseApp/COD50060.TXT index e99f205..7a2ffc2 100644 --- a/BaseApp/COD50060.TXT +++ b/BaseApp/COD50060.TXT @@ -92,7 +92,7 @@ OBJECT Codeunit 50060 DotNet_Word.Transform2D OpenXmlDotNetHelper.AppendGeneric(DotNetTransform2D, DotNetOffset); END; - PROCEDURE SetTransform2D@101(NewDotNetTransform2D@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"); + PROCEDURE SetTransform2D@101(VAR NewDotNetTransform2D@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Transform2D"); BEGIN DotNetTransform2D := NewDotNetTransform2D; END; diff --git a/BaseApp/COD50061.TXT b/BaseApp/COD50061.TXT index 03bc389..1af84bb 100644 --- a/BaseApp/COD50061.TXT +++ b/BaseApp/COD50061.TXT @@ -63,7 +63,7 @@ OBJECT Codeunit 50061 DotNet_Word.PresetGeometry OpenXmlDotNetHelper.AppendGeneric(DotNetPresetGeometry, DotNetAdjustValueList); END; - PROCEDURE SetPresetGeometry@7(NewDotNetPresetGeometry@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"); + PROCEDURE SetPresetGeometry@7(VAR NewDotNetPresetGeometry@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.PresetGeometry"); BEGIN DotNetPresetGeometry := NewDotNetPresetGeometry; END; diff --git a/BaseApp/COD50068.TXT b/BaseApp/COD50068.TXT index b95947d..fc1ca27 100644 --- a/BaseApp/COD50068.TXT +++ b/BaseApp/COD50068.TXT @@ -348,7 +348,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordStyles.GetStyleEnumerator(WordStylesEnumerator); WHILE WordStylesEnumerator.MoveNext DO BEGIN - WordStylesEnumerator.GetCurrent(WordStyle); + WordStylesEnumerator.Current(WordStyle); IF (WordStyle.GetStyleId = StyleId) AND (WordStyle.GetStyleType = 0) THEN //Type = Paragraph EXIT(TRUE); END; @@ -366,7 +366,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordStyles.GetStyleEnumerator(WordStylesEnumerator); WHILE WordStylesEnumerator.MoveNext DO BEGIN - WordStylesEnumerator.GetCurrent(WordStyle); + WordStylesEnumerator.Current(WordStyle); IF (WordStyle.GetStyleName = StyleName) AND (WordStyle.GetStyleType = 0) THEN //Type = Paragraph EXIT(WordStyle.GetStyleId); END; diff --git a/BaseApp/COD50070.TXT b/BaseApp/COD50070.TXT index a4992b2..3e5aced 100644 --- a/BaseApp/COD50070.TXT +++ b/BaseApp/COD50070.TXT @@ -28,8 +28,11 @@ OBJECT Codeunit 50070 DotNet_Word.NumberingDefinitio [External] PROCEDURE GetNumbering@2(VAR WordNumbering@1000 : Codeunit 50071); + VAR + DotNetNumbering@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"; BEGIN - WordNumbering.SetNumbering(DotNetNumberingDefinitionsPart.Numbering); + DotNetNumbering := DotNetNumberingDefinitionsPart.Numbering; + WordNumbering.SetNumbering(DotNetNumbering); END; [External] diff --git a/BaseApp/COD50071.TXT b/BaseApp/COD50071.TXT index 62853de..27b4208 100644 --- a/BaseApp/COD50071.TXT +++ b/BaseApp/COD50071.TXT @@ -84,7 +84,7 @@ OBJECT Codeunit 50071 DotNet_Word.Numbering WordAbstractNumEnumerator.SetEnumerator(DotNetEnumerator); END; - PROCEDURE SetNumbering@9(NewDotNetNumbering@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"); + PROCEDURE SetNumbering@9(VAR NewDotNetNumbering@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"); BEGIN DotNetNumbering := NewDotNetNumbering; END; diff --git a/BaseApp/COD50072.TXT b/BaseApp/COD50072.TXT index f3c1d89..054042d 100644 --- a/BaseApp/COD50072.TXT +++ b/BaseApp/COD50072.TXT @@ -66,7 +66,7 @@ OBJECT Codeunit 50072 DotNet_Word.AbstractNum OpenXmlDotNetHelper.AppendGeneric(DotNetAbstractNum, DotNetLevel); END; - PROCEDURE SetAbstractNum@8(NewDotNetAbstractNum@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"); + PROCEDURE SetAbstractNum@8(VAR NewDotNetAbstractNum@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"); BEGIN DotNetAbstractNum := NewDotNetAbstractNum; END; diff --git a/BaseApp/COD50073.TXT b/BaseApp/COD50073.TXT index 2961f10..2cc4bd2 100644 --- a/BaseApp/COD50073.TXT +++ b/BaseApp/COD50073.TXT @@ -86,7 +86,7 @@ OBJECT Codeunit 50073 DotNet_Word.NumberingLevel EXIT(DotNetNumberFormatValues); END; - PROCEDURE SetLevel@9(NewDotNetLevel@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"); + PROCEDURE SetLevel@9(VAR NewDotNetLevel@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"); BEGIN DotNetLevel := NewDotNetLevel; END; diff --git a/BaseApp/COD50074.TXT b/BaseApp/COD50074.TXT index a661018..bc98f0c 100644 --- a/BaseApp/COD50074.TXT +++ b/BaseApp/COD50074.TXT @@ -60,7 +60,7 @@ OBJECT Codeunit 50074 DotNet_Word.NumberingInstance DotNetNumberingInstance.AbstractNumId := DotNetAbstractNumId; END; - PROCEDURE SetNumberingInstance@7(NewDotNetNumberingInstance@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"); + PROCEDURE SetNumberingInstance@7(VAR NewDotNetNumberingInstance@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"); BEGIN DotNetNumberingInstance := NewDotNetNumberingInstance; END; From 0bd23ddb4b028d3d191f7926b6ee2c757cf401d0 Mon Sep 17 00:00:00 2001 From: Karolis Uosis Date: Sun, 23 Sep 2018 16:31:41 +0300 Subject: [PATCH 6/6] Functions renamed to meet the same name as wrapped type methods: GetOuterXml -> OuterXml, GetInnerText -> InnerText, Create -> [TypeName], CreateFromOuterXml -> [TypeName]FromOuterXml --- BaseApp/COD50025.TXT | 8 ++-- BaseApp/COD50026.TXT | 8 ++-- BaseApp/COD50027.TXT | 8 ++-- BaseApp/COD50028.TXT | 8 ++-- BaseApp/COD50029.TXT | 8 ++-- BaseApp/COD50030.TXT | 6 +-- BaseApp/COD50031.TXT | 6 +-- BaseApp/COD50032.TXT | 8 ++-- BaseApp/COD50033.TXT | 6 +-- BaseApp/COD50034.TXT | 2 +- BaseApp/COD50035.TXT | 8 ++-- BaseApp/COD50036.TXT | 6 +-- BaseApp/COD50037.TXT | 8 ++-- BaseApp/COD50038.TXT | 14 +++---- BaseApp/COD50039.TXT | 8 ++-- BaseApp/COD50041.TXT | 2 +- BaseApp/COD50043.TXT | 8 ++-- BaseApp/COD50044.TXT | 8 ++-- BaseApp/COD50045.TXT | 8 ++-- BaseApp/COD50046.TXT | 8 ++-- BaseApp/COD50047.TXT | 8 ++-- BaseApp/COD50048.TXT | 8 ++-- BaseApp/COD50049.TXT | 8 ++-- BaseApp/COD50050.TXT | 8 ++-- BaseApp/COD50051.TXT | 8 ++-- BaseApp/COD50052.TXT | 8 ++-- BaseApp/COD50053.TXT | 8 ++-- BaseApp/COD50054.TXT | 8 ++-- BaseApp/COD50055.TXT | 8 ++-- BaseApp/COD50056.TXT | 8 ++-- BaseApp/COD50057.TXT | 8 ++-- BaseApp/COD50058.TXT | 8 ++-- BaseApp/COD50059.TXT | 8 ++-- BaseApp/COD50060.TXT | 8 ++-- BaseApp/COD50061.TXT | 8 ++-- BaseApp/COD50068.TXT | 96 ++++++++++++++++++++++---------------------- BaseApp/COD50070.TXT | 2 +- BaseApp/COD50071.TXT | 8 ++-- BaseApp/COD50072.TXT | 10 ++--- BaseApp/COD50073.TXT | 10 ++--- BaseApp/COD50074.TXT | 8 ++-- BaseApp/COD50077.TXT | 2 +- BaseApp/COD50078.TXT | 2 +- BaseApp/COD50079.TXT | 2 +- Test/COD50069.TXT | 86 +++++++++++++++++++-------------------- 45 files changed, 246 insertions(+), 246 deletions(-) diff --git a/BaseApp/COD50025.TXT b/BaseApp/COD50025.TXT index 95435da..311a73f 100644 --- a/BaseApp/COD50025.TXT +++ b/BaseApp/COD50025.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50025 DotNet_Word.RunProperties DotNetRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.RunProperties"; [External] - PROCEDURE Create@1(); + PROCEDURE RunProperties@1(); BEGIN DotNetRunProperties := DotNetRunProperties.RunProperties; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE RunPropertiesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetRunProperties := DotNetRunProperties.RunProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetRunProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetRunProperties.InnerText); END; diff --git a/BaseApp/COD50026.TXT b/BaseApp/COD50026.TXT index a7a5d66..82f7f3c 100644 --- a/BaseApp/COD50026.TXT +++ b/BaseApp/COD50026.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50026 DotNet_Word.ParagraphProp DotNetParagraphProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ParagraphProperties"; [External] - PROCEDURE Create@1(); + PROCEDURE ParagraphProperties@1(); BEGIN DotNetParagraphProperties := DotNetParagraphProperties.ParagraphProperties; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE ParagraphPropertiesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetParagraphProperties := DotNetParagraphProperties.ParagraphProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetParagraphProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetParagraphProperties.InnerText); END; diff --git a/BaseApp/COD50027.TXT b/BaseApp/COD50027.TXT index 91d4a6e..d626bf3 100644 --- a/BaseApp/COD50027.TXT +++ b/BaseApp/COD50027.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50027 DotNet_Word.Table DotNetTable@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Table"; [External] - PROCEDURE Create@1(); + PROCEDURE Table@1(); BEGIN DotNetTable := DotNetTable.Table; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE TableFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetTable := DotNetTable.Table(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetTable.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetTable.InnerText); END; diff --git a/BaseApp/COD50028.TXT b/BaseApp/COD50028.TXT index 8354133..f460b4a 100644 --- a/BaseApp/COD50028.TXT +++ b/BaseApp/COD50028.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50028 DotNet_Word.TableRow DotNetTableRow@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableRow"; [External] - PROCEDURE Create@1(); + PROCEDURE TableRow@1(); BEGIN DotNetTableRow := DotNetTableRow.TableRow; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE TableRowFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetTableRow := DotNetTableRow.TableRow(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetTableRow.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetTableRow.InnerText); END; diff --git a/BaseApp/COD50029.TXT b/BaseApp/COD50029.TXT index 72ed053..87e500e 100644 --- a/BaseApp/COD50029.TXT +++ b/BaseApp/COD50029.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50029 DotNet_Word.TableCell DotNetTableCell@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.TableCell"; [External] - PROCEDURE Create@1(); + PROCEDURE TableCell@1(); BEGIN DotNetTableCell := DotNetTableCell.TableCell; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE TableCellFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetTableCell := DotNetTableCell.TableCell(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetTableCell.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetTableCell.InnerText); END; diff --git a/BaseApp/COD50030.TXT b/BaseApp/COD50030.TXT index 624ac89..29a672c 100644 --- a/BaseApp/COD50030.TXT +++ b/BaseApp/COD50030.TXT @@ -18,19 +18,19 @@ OBJECT Codeunit 50030 DotNet_Word.SpacingBetweenLine DotNetSpacingBetweenLines@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.SpacingBetweenLines"; [External] - PROCEDURE Create@1(); + PROCEDURE SpacingBetweenLines@1(); BEGIN DotNetSpacingBetweenLines := DotNetSpacingBetweenLines.SpacingBetweenLines; END; [External] - PROCEDURE GetOuterXml@2() : Text; + PROCEDURE OuterXml@2() : Text; BEGIN EXIT(DotNetSpacingBetweenLines.OuterXml); END; [External] - PROCEDURE GetInnerText@3() : Text; + PROCEDURE InnerText@3() : Text; BEGIN EXIT(DotNetSpacingBetweenLines.InnerText); END; diff --git a/BaseApp/COD50031.TXT b/BaseApp/COD50031.TXT index 16dc11c..836b6b8 100644 --- a/BaseApp/COD50031.TXT +++ b/BaseApp/COD50031.TXT @@ -18,19 +18,19 @@ OBJECT Codeunit 50031 DotNet_Word.Indentation DotNetIndentation@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Indentation"; [External] - PROCEDURE Create@1(); + PROCEDURE Indentation@1(); BEGIN DotNetIndentation := DotNetIndentation.Indentation; END; [External] - PROCEDURE GetOuterXml@2() : Text; + PROCEDURE OuterXml@2() : Text; BEGIN EXIT(DotNetIndentation.OuterXml); END; [External] - PROCEDURE GetInnerText@3() : Text; + PROCEDURE InnerText@3() : Text; BEGIN EXIT(DotNetIndentation.InnerText); END; diff --git a/BaseApp/COD50032.TXT b/BaseApp/COD50032.TXT index 8c97939..20c79d0 100644 --- a/BaseApp/COD50032.TXT +++ b/BaseApp/COD50032.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50032 DotNet_Word.NumberingPropertie DotNetNumberingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingProperties"; [External] - PROCEDURE Create@1(); + PROCEDURE NumberingProperties@1(); BEGIN DotNetNumberingProperties := DotNetNumberingProperties.NumberingProperties; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE NumberingPropertiesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNumberingProperties := DotNetNumberingProperties.NumberingProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetNumberingProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetNumberingProperties.InnerText); END; diff --git a/BaseApp/COD50033.TXT b/BaseApp/COD50033.TXT index 8b745e7..c4b570f 100644 --- a/BaseApp/COD50033.TXT +++ b/BaseApp/COD50033.TXT @@ -18,19 +18,19 @@ OBJECT Codeunit 50033 DotNet_Word.ProofError DotNetProofError@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.ProofError"; [External] - PROCEDURE Create@1(); + PROCEDURE ProofError@1(); BEGIN DotNetProofError := DotNetProofError.ProofError; END; [External] - PROCEDURE GetOuterXml@2() : Text; + PROCEDURE OuterXml@2() : Text; BEGIN EXIT(DotNetProofError.OuterXml); END; [External] - PROCEDURE GetInnerText@3() : Text; + PROCEDURE InnerText@3() : Text; BEGIN EXIT(DotNetProofError.InnerText); END; diff --git a/BaseApp/COD50034.TXT b/BaseApp/COD50034.TXT index 63b0fd1..fdd5c95 100644 --- a/BaseApp/COD50034.TXT +++ b/BaseApp/COD50034.TXT @@ -18,7 +18,7 @@ OBJECT Codeunit 50034 DotNet_Word.HyperlinkRelations DotNetHyperlinkRelationship@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.HyperlinkRelationship"; [External] - PROCEDURE GetId@1() : Text; + PROCEDURE Id@1() : Text; BEGIN EXIT(DotNetHyperlinkRelationship.Id); END; diff --git a/BaseApp/COD50035.TXT b/BaseApp/COD50035.TXT index 979eed4..242a1f1 100644 --- a/BaseApp/COD50035.TXT +++ b/BaseApp/COD50035.TXT @@ -19,25 +19,25 @@ OBJECT Codeunit 50035 DotNet_Word.Hyperlink OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@1(); + PROCEDURE Hyperlink@1(); BEGIN DotNetHyperlink := DotNetHyperlink.Hyperlink; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE HyperlinkFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetHyperlink := DotNetHyperlink.Hyperlink(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetHyperlink.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetHyperlink.InnerText); END; diff --git a/BaseApp/COD50036.TXT b/BaseApp/COD50036.TXT index 7ee10a0..1ff4f62 100644 --- a/BaseApp/COD50036.TXT +++ b/BaseApp/COD50036.TXT @@ -18,19 +18,19 @@ OBJECT Codeunit 50036 DotNet_Word.Color DotNetColor@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Color"; [External] - PROCEDURE Create@1(); + PROCEDURE Color@1(); BEGIN DotNetColor := DotNetColor.Color; END; [External] - PROCEDURE GetOuterXml@2() : Text; + PROCEDURE OuterXml@2() : Text; BEGIN EXIT(DotNetColor.OuterXml); END; [External] - PROCEDURE GetInnerText@3() : Text; + PROCEDURE InnerText@3() : Text; BEGIN EXIT(DotNetColor.InnerText); END; diff --git a/BaseApp/COD50037.TXT b/BaseApp/COD50037.TXT index d51b1eb..32016cb 100644 --- a/BaseApp/COD50037.TXT +++ b/BaseApp/COD50037.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50037 DotNet_Word.StyleRunProperties DotNetStyleRunProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleRunProperties"; [External] - PROCEDURE Create@1(); + PROCEDURE StyleRunProperties@1(); BEGIN DotNetStyleRunProperties := DotNetStyleRunProperties.StyleRunProperties; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE StyleRunPropertiesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetStyleRunProperties := DotNetStyleRunProperties.StyleRunProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetStyleRunProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetStyleRunProperties.InnerText); END; diff --git a/BaseApp/COD50038.TXT b/BaseApp/COD50038.TXT index 815fa92..f068a03 100644 --- a/BaseApp/COD50038.TXT +++ b/BaseApp/COD50038.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50038 DotNet_Word.Style DotNetStyle@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Style"; [External] - PROCEDURE Create@1(); + PROCEDURE Style@1(); BEGIN DotNetStyle := DotNetStyle.Style; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE StyleFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetStyle := DotNetStyle.Style(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetStyle.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetStyle.InnerText); END; @@ -53,7 +53,7 @@ OBJECT Codeunit 50038 DotNet_Word.Style END; [External] - PROCEDURE GetStyleName@6() : Text; + PROCEDURE StyleName@6() : Text; BEGIN EXIT(DotNetStyle.StyleName.Val.Value); END; @@ -100,7 +100,7 @@ OBJECT Codeunit 50038 DotNet_Word.Style END; [External] - PROCEDURE GetStyleId@11() : Text; + PROCEDURE StyleId@11() : Text; BEGIN EXIT(DotNetStyle.StyleId.Value); END; @@ -126,7 +126,7 @@ OBJECT Codeunit 50038 DotNet_Word.Style END; [External] - PROCEDURE GetStyleType@14() : Integer; + PROCEDURE StyleType@14() : Integer; VAR DotNetStyleValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.StyleValues"; DotNetEnumValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; diff --git a/BaseApp/COD50039.TXT b/BaseApp/COD50039.TXT index c9a701e..e9511bb 100644 --- a/BaseApp/COD50039.TXT +++ b/BaseApp/COD50039.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50039 DotNet_Word.Styles DotNetStyles@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"; [External] - PROCEDURE Create@1(); + PROCEDURE Styles@1(); BEGIN DotNetStyles := DotNetStyles.Styles; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE StylesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetStyles := DotNetStyles.Styles(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetStyles.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetStyles.InnerText); END; diff --git a/BaseApp/COD50041.TXT b/BaseApp/COD50041.TXT index 9e63042..2c85883 100644 --- a/BaseApp/COD50041.TXT +++ b/BaseApp/COD50041.TXT @@ -27,7 +27,7 @@ OBJECT Codeunit 50041 DotNet_Word.StyleDefinitionPar END; [External] - PROCEDURE GetStyles@2(VAR WordStyles@1000 : Codeunit 50039); + PROCEDURE Styles@2(VAR WordStyles@1000 : Codeunit 50039); VAR DotNetStyles@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Styles"; BEGIN diff --git a/BaseApp/COD50043.TXT b/BaseApp/COD50043.TXT index 2a0bb0e..a09cf22 100644 --- a/BaseApp/COD50043.TXT +++ b/BaseApp/COD50043.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50043 DotNet_Word.Drawing DotNetDrawing@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Drawing"; [External] - PROCEDURE Create@1(); + PROCEDURE Drawing@1(); BEGIN DotNetDrawing := DotNetDrawing.Drawing; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE DrawingFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetDrawing := DotNetDrawing.Drawing(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetDrawing.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetDrawing.InnerText); END; diff --git a/BaseApp/COD50044.TXT b/BaseApp/COD50044.TXT index 1a6415c..04ed240 100644 --- a/BaseApp/COD50044.TXT +++ b/BaseApp/COD50044.TXT @@ -19,25 +19,25 @@ OBJECT Codeunit 50044 DotNet_Word.Anchor OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@1(); + PROCEDURE Anchor@1(); BEGIN DotNetAnchor := DotNetAnchor.Anchor; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE AnchorFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetAnchor := DotNetAnchor.Anchor(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetAnchor.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetAnchor.InnerText); END; diff --git a/BaseApp/COD50045.TXT b/BaseApp/COD50045.TXT index d5312f6..a038b4b 100644 --- a/BaseApp/COD50045.TXT +++ b/BaseApp/COD50045.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50045 DotNet_Word.VerticalPosition DotNetVerticalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.VerticalPosition"; [External] - PROCEDURE Create@1(); + PROCEDURE VerticalPosition@1(); BEGIN DotNetVerticalPosition := DotNetVerticalPosition.VerticalPosition; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE VerticalPositionFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetVerticalPosition := DotNetVerticalPosition.VerticalPosition(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetVerticalPosition.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetVerticalPosition.InnerText); END; diff --git a/BaseApp/COD50046.TXT b/BaseApp/COD50046.TXT index 0da3310..3f6e384 100644 --- a/BaseApp/COD50046.TXT +++ b/BaseApp/COD50046.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50046 DotNet_Word.HorizontalPosition DotNetHorizontalPosition@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.HorizontalPosition"; [External] - PROCEDURE Create@1(); + PROCEDURE HorizontalPosition@1(); BEGIN DotNetHorizontalPosition := DotNetHorizontalPosition.HorizontalPosition; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE HorizontalPositionFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetHorizontalPosition := DotNetHorizontalPosition.HorizontalPosition(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetHorizontalPosition.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetHorizontalPosition.InnerText); END; diff --git a/BaseApp/COD50047.TXT b/BaseApp/COD50047.TXT index 7b2c5ea..a252a8c 100644 --- a/BaseApp/COD50047.TXT +++ b/BaseApp/COD50047.TXT @@ -19,25 +19,25 @@ OBJECT Codeunit 50047 DotNet_Word.WrapSquare OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@1(); + PROCEDURE WrapSquare@1(); BEGIN DotNetWrapSquare := DotNetWrapSquare.WrapSquare; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE WrapSquareFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetWrapSquare := DotNetWrapSquare.WrapSquare(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetWrapSquare.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetWrapSquare.InnerText); END; diff --git a/BaseApp/COD50048.TXT b/BaseApp/COD50048.TXT index f444f24..e52d58f 100644 --- a/BaseApp/COD50048.TXT +++ b/BaseApp/COD50048.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50048 DotNet_Word.WrapTopBottom DotNetWrapTopBottom@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.WrapTopBottom"; [External] - PROCEDURE Create@1(); + PROCEDURE WrapTopBottom@1(); BEGIN DotNetWrapTopBottom := DotNetWrapTopBottom.WrapTopBottom; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE WrapTopBottomFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetWrapTopBottom := DotNetWrapTopBottom.WrapTopBottom; END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetWrapTopBottom.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetWrapTopBottom.InnerText); END; diff --git a/BaseApp/COD50049.TXT b/BaseApp/COD50049.TXT index 89cb2d5..7c3f32d 100644 --- a/BaseApp/COD50049.TXT +++ b/BaseApp/COD50049.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50049 DotNet_Word.DocProperties DotNetDocProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Wordprocessing.DocProperties"; [External] - PROCEDURE Create@1(); + PROCEDURE DocProperties@1(); BEGIN DotNetDocProperties := DotNetDocProperties.DocProperties; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE DocPropertiesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetDocProperties := DotNetDocProperties.DocProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetDocProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetDocProperties.InnerText); END; diff --git a/BaseApp/COD50050.TXT b/BaseApp/COD50050.TXT index 65cc7e7..4d2b2ae 100644 --- a/BaseApp/COD50050.TXT +++ b/BaseApp/COD50050.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50050 DotNet_Word.GraphicFrameLocks DotNetGraphicFrameLocks@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.GraphicFrameLocks"; [External] - PROCEDURE Create@1(); + PROCEDURE GraphicFrameLocks@1(); BEGIN DotNetGraphicFrameLocks := DotNetGraphicFrameLocks.GraphicFrameLocks; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE GraphicFrameLocksFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetGraphicFrameLocks := DotNetGraphicFrameLocks.GraphicFrameLocks(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetGraphicFrameLocks.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetGraphicFrameLocks.InnerText); END; diff --git a/BaseApp/COD50051.TXT b/BaseApp/COD50051.TXT index 7097bbc..be90edd 100644 --- a/BaseApp/COD50051.TXT +++ b/BaseApp/COD50051.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50051 DotNet_Word.Picture DotNetPicture@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.Picture"; [External] - PROCEDURE Create@1(); + PROCEDURE Picture@1(); BEGIN DotNetPicture := DotNetPicture.Picture; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE PictureFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetPicture := DotNetPicture.Picture(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetPicture.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetPicture.InnerText); END; diff --git a/BaseApp/COD50052.TXT b/BaseApp/COD50052.TXT index 0d027ce..99a92fd 100644 --- a/BaseApp/COD50052.TXT +++ b/BaseApp/COD50052.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50052 DotNet_Word.NonVisualPicturePr DotNetNonVisualPictureProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureProperties"; [External] - PROCEDURE Create@1(); + PROCEDURE NonVisualPictureProperties@1(); BEGIN DotNetNonVisualPictureProperties := DotNetNonVisualPictureProperties.NonVisualPictureProperties; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE NonVisualPicturePropertiesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNonVisualPictureProperties := DotNetNonVisualPictureProperties.NonVisualPictureProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetNonVisualPictureProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetNonVisualPictureProperties.InnerText); END; diff --git a/BaseApp/COD50053.TXT b/BaseApp/COD50053.TXT index 9db0bd8..2b871cd 100644 --- a/BaseApp/COD50053.TXT +++ b/BaseApp/COD50053.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50053 DotNet_Word.ShapeProperties DotNetShapeProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.ShapeProperties"; [External] - PROCEDURE Create@1(); + PROCEDURE ShapeProperties@1(); BEGIN DotNetShapeProperties := DotNetShapeProperties.ShapeProperties; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE ShapePropertiesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetShapeProperties := DotNetShapeProperties.ShapeProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetShapeProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetShapeProperties.InnerText); END; diff --git a/BaseApp/COD50054.TXT b/BaseApp/COD50054.TXT index 9654da4..ce90696 100644 --- a/BaseApp/COD50054.TXT +++ b/BaseApp/COD50054.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50054 DotNet_Word.BlipFill DotNetBlipFill@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.BlipFill"; [External] - PROCEDURE Create@1(); + PROCEDURE BlipFill@1(); BEGIN DotNetBlipFill := DotNetBlipFill.BlipFill; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE BlipFillFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetBlipFill := DotNetBlipFill.BlipFill(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetBlipFill.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetBlipFill.InnerText); END; diff --git a/BaseApp/COD50055.TXT b/BaseApp/COD50055.TXT index 3e04f6e..c853f13 100644 --- a/BaseApp/COD50055.TXT +++ b/BaseApp/COD50055.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50055 DotNet_Word.NonVisualDrawingPr DotNetNonVisualDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualDrawingProperties"; [External] - PROCEDURE Create@1(); + PROCEDURE NonVisualDrawingProperties@1(); BEGIN DotNetNonVisualDrawingProperties := DotNetNonVisualDrawingProperties.NonVisualDrawingProperties; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE NonVisualDrawingPropertiesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNonVisualDrawingProperties := DotNetNonVisualDrawingProperties.NonVisualDrawingProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetNonVisualDrawingProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetNonVisualDrawingProperties.InnerText); END; diff --git a/BaseApp/COD50056.TXT b/BaseApp/COD50056.TXT index 92c303b..1d63520 100644 --- a/BaseApp/COD50056.TXT +++ b/BaseApp/COD50056.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50056 DotNet_Word.NonVisualPictureDr DotNetNonVisualPictureDrawingProperties@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Pictures.NonVisualPictureDrawingProperties"; [External] - PROCEDURE Create@1(); + PROCEDURE NonVisualPictureDrawingProperties@1(); BEGIN DotNetNonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties.NonVisualPictureDrawingProperties; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE NonVisualPictureDrawingPropertiesFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNonVisualPictureDrawingProperties := DotNetNonVisualPictureDrawingProperties.NonVisualPictureDrawingProperties(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetNonVisualPictureDrawingProperties.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetNonVisualPictureDrawingProperties.InnerText); END; diff --git a/BaseApp/COD50057.TXT b/BaseApp/COD50057.TXT index 491a39b..90e846f 100644 --- a/BaseApp/COD50057.TXT +++ b/BaseApp/COD50057.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50057 DotNet_Word.Blip DotNetBlip@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Blip"; [External] - PROCEDURE Create@1(); + PROCEDURE Blip@1(); BEGIN DotNetBlip := DotNetBlip.Blip; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE BlipFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetBlip := DotNetBlip.Blip(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetBlip.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetBlip.InnerText); END; diff --git a/BaseApp/COD50058.TXT b/BaseApp/COD50058.TXT index 417b53f..84e069a 100644 --- a/BaseApp/COD50058.TXT +++ b/BaseApp/COD50058.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50058 DotNet_Word.Stretch DotNetStretch@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.Stretch"; [External] - PROCEDURE Create@1(); + PROCEDURE Stretch@1(); BEGIN DotNetStretch := DotNetStretch.Stretch; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE StretchFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetStretch := DotNetStretch.Stretch(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetStretch.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetStretch.InnerText); END; diff --git a/BaseApp/COD50059.TXT b/BaseApp/COD50059.TXT index bd1b0d3..bd31a88 100644 --- a/BaseApp/COD50059.TXT +++ b/BaseApp/COD50059.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50059 DotNet_Word.BlipExtensionList DotNetBlipExtensionList@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Drawing.BlipExtensionList"; [External] - PROCEDURE Create@1(); + PROCEDURE BlipExtensionList@1(); BEGIN DotNetBlipExtensionList := DotNetBlipExtensionList.BlipExtensionList; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE BlipExtensionListFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetBlipExtensionList := DotNetBlipExtensionList.BlipExtensionList(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetBlipExtensionList.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetBlipExtensionList.InnerText); END; diff --git a/BaseApp/COD50060.TXT b/BaseApp/COD50060.TXT index 7a2ffc2..212046f 100644 --- a/BaseApp/COD50060.TXT +++ b/BaseApp/COD50060.TXT @@ -19,25 +19,25 @@ OBJECT Codeunit 50060 DotNet_Word.Transform2D OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@1(); + PROCEDURE Transform2D@1(); BEGIN DotNetTransform2D := DotNetTransform2D.Transform2D; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE Transform2DFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetTransform2D := DotNetTransform2D.Transform2D; END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetTransform2D.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetTransform2D.InnerText); END; diff --git a/BaseApp/COD50061.TXT b/BaseApp/COD50061.TXT index 1af84bb..a4fcaac 100644 --- a/BaseApp/COD50061.TXT +++ b/BaseApp/COD50061.TXT @@ -19,25 +19,25 @@ OBJECT Codeunit 50061 DotNet_Word.PresetGeometry OpenXmlDotNetHelper@1001 : Codeunit 50067; [External] - PROCEDURE Create@1(); + PROCEDURE PresetGeometry@1(); BEGIN DotNetPresetGeometry := DotNetPresetGeometry.PresetGeometry; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE PresetGeometryFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetPresetGeometry := DotNetPresetGeometry.PresetGeometry(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetPresetGeometry.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetPresetGeometry.InnerText); END; diff --git a/BaseApp/COD50068.TXT b/BaseApp/COD50068.TXT index fc1ca27..64a6a37 100644 --- a/BaseApp/COD50068.TXT +++ b/BaseApp/COD50068.TXT @@ -18,13 +18,13 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper [External] PROCEDURE CloneStyleRunProperties@1(VAR OriginalWordStyleRunProperties@1000 : Codeunit 50037;VAR ClonedWordStyleRunProperties@1001 : Codeunit 50037); BEGIN - ClonedWordStyleRunProperties.CreateFromOuterXml(OriginalWordStyleRunProperties.GetOuterXml); + ClonedWordStyleRunProperties.StyleRunPropertiesFromOuterXml(OriginalWordStyleRunProperties.OuterXml); END; [External] PROCEDURE CloneParagraphProperties@2(VAR OriginalWordParagraphProperties@1000 : Codeunit 50026;VAR ClonedWordParagraphProperties@1001 : Codeunit 50026); BEGIN - ClonedWordParagraphProperties.CreateFromOuterXml(OriginalWordParagraphProperties.GetOuterXml); + ClonedWordParagraphProperties.ParagraphPropertiesFromOuterXml(OriginalWordParagraphProperties.OuterXml); END; [External] @@ -34,7 +34,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordProcessingDocumentType@1005 : Codeunit 50077; BEGIN //Helper for creating an empty document and initiating required parts - WordProcessingDocumentType.Create(DocumentType); + WordProcessingDocumentType.WordprocessingDocumentType(DocumentType); CreatedWordprocessingDocument.Create(WordProcessingDocumentType, TRUE); CreatedWordprocessingDocument.AddMainDocumentPart(MainDocumentPart); WordDocument.Document; @@ -59,22 +59,22 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper //Helper for creating new hyperlink element DotNet_Uri.Init(Url); MainDocumentPart.AddHyperlinkRelationship(DotNet_Uri, TRUE, HyperlinkRelationship); - HrContactId := HyperlinkRelationship.GetId; - WordProofError.Create; + HrContactId := HyperlinkRelationship.Id; + WordProofError.ProofError; WordProofError.SetType(2); //Type = GrammarStart - WordRunProperties.Create; + WordRunProperties.RunProperties; WordRunProperties.SetRunStyle('Hyperlink'); - WordColor.Create; + WordColor.Color; WordColor.SetColorTheme(10); //Theme = Hyperlink WordRunProperties.SetColor(WordColor); WordText.TextConstructor; WordText.SetText(TextValue); - DotNet_OpenXmlSpaceProcessing.Create(1); //Preserve + DotNet_OpenXmlSpaceProcessing.SpaceProcessingModeValues(1); //Preserve WordText.SetSpacePreserveOption(DotNet_OpenXmlSpaceProcessing); WordRun.Run; WordRun.AppendProperties(WordRunProperties); WordRun.AppendText(WordText); - CreatedWordHyperlink.Create; + CreatedWordHyperlink.Hyperlink; CreatedWordHyperlink.SetId(HrContactId); CreatedWordHyperlink.SetHistory(TRUE); CreatedWordHyperlink.AppendProofError(WordProofError); @@ -94,7 +94,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper IF NOT MainDocumentPartHasStyleDefinitionsPart(MainDocumentPart) THEN BEGIN MainDocumentPart.AddStyleDefinitionsPart(WordStyleDefinitionPart); - WordStyles.Create; + WordStyles.Styles; WordStyleDefinitionPart.SetStyles(WordStyles); END ELSE @@ -122,7 +122,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper IF NOT MainDocumentPartHasNumberingDefinitionsPart(MainDocumentPart) THEN BEGIN MainDocumentPart.AddNumberingDefinitionsPart(WordNumberingDefinitionsPart); - WordNumbering.Create; + WordNumbering.Numbering; WordNumberingDefinitionsPart.SetNumbering(WordNumbering); END ELSE @@ -158,7 +158,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper BEGIN //Helper for adding picture from stream to document //Based on: https://msdn.microsoft.com/en-us/library/office/bb497430.aspx - DotNet_ImagePartType.Create(ImagePartType); + DotNet_ImagePartType.ImagePartType(ImagePartType); MainDocumentPart.AddImagePart(DotNet_ImagePartType, WordImagePart); WordImagePart.FeedData(ImageStream); RelationshipId := MainDocumentPart.GetIdOfImagePart(WordImagePart); @@ -182,13 +182,13 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper IF ActualPosition = '' THEN ActualPosition := 'left'; - WordAnchor.Create; + WordAnchor.Anchor; WordAnchor.AppendSimplePosition(0, 0); - WordHorizontalPosition.Create; + WordHorizontalPosition.HorizontalPosition; WordHorizontalPosition.SetRelativeFrom(0); //Type = Margin WordHorizontalPosition.SetHorizontalAlignment(ActualPosition); WordAnchor.AppendHorizontalPosition(WordHorizontalPosition); - WordVerticalPosition.Create; + WordVerticalPosition.VerticalPosition; WordVerticalPosition.SetPositionOffset('0'); WordVerticalPosition.SetRelativeFrom(2); // Type = Paragraph WordAnchor.AppendVerticalPosition(WordVerticalPosition); @@ -196,21 +196,21 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordAnchor.AppendEffectExtent(0, 0, 0, 0); IF Position <> '' THEN BEGIN - WordWrapSquare.Create; + WordWrapSquare.WrapSquare; WordWrapSquare.SetWrapText(0); // Type = BothSides WordAnchor.AppendWrapSquare(WordWrapSquare); END ELSE BEGIN - WordWrapTopBottom.Create; + WordWrapTopBottom.WrapTopBottom; WordAnchor.AppendWrapTopBottom(WordWrapTopBottom); END; - WordDocProperties.Create; + WordDocProperties.DocProperties; WordDocProperties.SetId(1); WordDocProperties.SetName(Name); WordAnchor.AppendDocProperties(WordDocProperties); - WordGraphicFrameLocks.Create; + WordGraphicFrameLocks.GraphicFrameLocks; WordGraphicFrameLocks.SetNoChangeAspect(TRUE); WordAnchor.AppendGraphicFrameLocks(WordGraphicFrameLocks); CreatePicture(RelationshipId, Name, Cx, Cy, WordPicture); @@ -225,7 +225,7 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordAnchor.SetLocked(FALSE); WordAnchor.SetLayoutInCell(TRUE); WordAnchor.SetAllowOverlap(TRUE); - CreatedWordDrawing.Create; + CreatedWordDrawing.Drawing; CreatedWordDrawing.AppendAnchor(WordAnchor); END; @@ -242,33 +242,33 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordStretch@1013 : Codeunit 50058; WordBlipExtensionList@1014 : Codeunit 50059; BEGIN - WordPicture.Create; - WordBlipFill.Create; - WordBlip.Create; + WordPicture.Picture; + WordBlipFill.BlipFill; + WordBlip.Blip; WordBlip.SetEmbed(RelationshipId); WordBlip.SetCompressionState(2); //Type = Print - WordBlipExtensionList.Create; + WordBlipExtensionList.BlipExtensionList; WordBlipExtensionList.AppendBlipExtension('{28A0092B-C50C-407E-A947-70E740481C1C}'); WordBlip.AppendBlipExtensionList(WordBlipExtensionList); WordBlipFill.SetBlip(WordBlip); - WordStretch.Create; + WordStretch.Stretch; WordStretch.AppendFillRectangle; WordBlipFill.AppendStretch(WordStretch); WordPicture.SetBlipFill(WordBlipFill); - WordNonVisualPictureProperties.Create; - WordNonVisualDrawingProperties.Create; + WordNonVisualPictureProperties.NonVisualPictureProperties; + WordNonVisualDrawingProperties.NonVisualDrawingProperties; WordNonVisualDrawingProperties.SetId(0); WordNonVisualDrawingProperties.SetName(Name); WordNonVisualPictureProperties.SetNonVisualDrawingProperties(WordNonVisualDrawingProperties); - WordNonVisualPictureDrawingProperties.Create; + WordNonVisualPictureDrawingProperties.NonVisualPictureDrawingProperties; WordNonVisualPictureProperties.SetNonVisualPictureDrawingProperties(WordNonVisualPictureDrawingProperties); WordPicture.SetNonVisualPictureProperties(WordNonVisualPictureProperties); - WordShapeProperties.Create; - WordPresetGeometry.Create; + WordShapeProperties.ShapeProperties; + WordPresetGeometry.PresetGeometry; WordPresetGeometry.AppendAdjustValueList; WordPresetGeometry.SetPreset(4); //Type = Rectangle WordShapeProperties.AppendPresetGeometry(WordPresetGeometry); - WordTransform2D.Create; + WordTransform2D.Transform2D; WordTransform2D.AppendOffset(0, 0); WordTransform2D.AppendExtent(Cx, Cy); WordShapeProperties.SetTransform2D(WordTransform2D); @@ -281,8 +281,8 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordStyle@1005 : Codeunit 50038; ClonedWordStyleRunProperties@1006 : Codeunit 50037; BEGIN - WordStyleDefinitionPart.GetStyles(WordStyles); - WordStyle.Create; + WordStyleDefinitionPart.Styles(WordStyles); + WordStyle.Style; WordStyle.SetStyleType(0); //Type = Paragraph WordStyle.SetStyleId(StyleId); WordStyle.SetCustomStyle(TRUE); @@ -302,16 +302,16 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordNumberingLevel@1006 : Codeunit 50073; WordNumberingInstance@1007 : Codeunit 50074; BEGIN - WordNumberingDefinitionPart.GetNumbering(WordNumbering); - WordAbstractNum.Create; + WordNumberingDefinitionPart.Numbering(WordNumbering); + WordAbstractNum.AbstractNum; WordAbstractNum.SetAbstractNumberId(Id); - WordNumberingLevel.Create; + WordNumberingLevel.Level; WordNumberingLevel.SetLevelIndex(0); WordNumberingLevel.SetNumberingFormatType(Type); WordNumberingLevel.SetLevelText(Text); WordAbstractNum.AppendLevel(WordNumberingLevel); WordNumbering.AppendAbstractNum(WordAbstractNum); - WordNumberingInstance.Create; + WordNumberingInstance.NumberingInstance; WordNumberingInstance.SetAbstractNumId(Id); WordNumberingInstance.SetNumberID(Id + 1); WordNumbering.AppendNumberingInstance(WordNumberingInstance); @@ -323,15 +323,15 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordIndentation@1005 : Codeunit 50031; WordNumberingProperties@1006 : Codeunit 50032; BEGIN - WordParagraphProperties.Create; - WordSpacingBetweenLines.Create; + WordParagraphProperties.ParagraphProperties; + WordSpacingBetweenLines.SpacingBetweenLines; WordSpacingBetweenLines.SetAfter('0'); WordParagraphProperties.SetSpacingBetweenLines(WordSpacingBetweenLines); - WordIndentation.Create; + WordIndentation.Indentation; WordIndentation.SetLeft(LeftIndentation); WordIndentation.SetHanging('360'); WordParagraphProperties.SetIndentation(WordIndentation); - WordNumberingProperties.Create; + WordNumberingProperties.NumberingProperties; WordNumberingProperties.SetNumberingId(NumberingId); WordNumberingProperties.SetNumberingLevelReference(NumberingLevelReference); WordParagraphProperties.SetNumberingProperties(WordNumberingProperties); @@ -344,12 +344,12 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordStyle@1003 : Codeunit 50038; WordStylesEnumerator@1004 : Codeunit 50040; BEGIN - WordStyleDefinitionPart.GetStyles(WordStyles); + WordStyleDefinitionPart.Styles(WordStyles); WordStyles.GetStyleEnumerator(WordStylesEnumerator); WHILE WordStylesEnumerator.MoveNext DO BEGIN WordStylesEnumerator.Current(WordStyle); - IF (WordStyle.GetStyleId = StyleId) AND (WordStyle.GetStyleType = 0) THEN //Type = Paragraph + IF (WordStyle.StyleId = StyleId) AND (WordStyle.StyleType = 0) THEN //Type = Paragraph EXIT(TRUE); END; @@ -362,13 +362,13 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordStyle@1003 : Codeunit 50038; WordStylesEnumerator@1004 : Codeunit 50040; BEGIN - WordStyleDefinitionPart.GetStyles(WordStyles); + WordStyleDefinitionPart.Styles(WordStyles); WordStyles.GetStyleEnumerator(WordStylesEnumerator); WHILE WordStylesEnumerator.MoveNext DO BEGIN WordStylesEnumerator.Current(WordStyle); - IF (WordStyle.GetStyleName = StyleName) AND (WordStyle.GetStyleType = 0) THEN //Type = Paragraph - EXIT(WordStyle.GetStyleId); + IF (WordStyle.StyleName = StyleName) AND (WordStyle.StyleType = 0) THEN //Type = Paragraph + EXIT(WordStyle.StyleId); END; EXIT(''); @@ -380,12 +380,12 @@ OBJECT Codeunit 50068 OpenXml WordProcessing Helper WordAbstractNum@1003 : Codeunit 50072; WordAbstractNumEnumerator@1004 : Codeunit 50075; BEGIN - WordNumberingDefinitionPart.GetNumbering(WordNumbering); + WordNumberingDefinitionPart.Numbering(WordNumbering); WordNumbering.GetAbstractNumEnumerator(WordAbstractNumEnumerator); WHILE WordAbstractNumEnumerator.MoveNext DO BEGIN WordAbstractNumEnumerator.Current(WordAbstractNum); - IF WordAbstractNum.GetAbstractNumberId = Id THEN + IF WordAbstractNum.AbstractNumberId = Id THEN EXIT(TRUE); END; diff --git a/BaseApp/COD50070.TXT b/BaseApp/COD50070.TXT index 3e5aced..4cb2fb1 100644 --- a/BaseApp/COD50070.TXT +++ b/BaseApp/COD50070.TXT @@ -27,7 +27,7 @@ OBJECT Codeunit 50070 DotNet_Word.NumberingDefinitio END; [External] - PROCEDURE GetNumbering@2(VAR WordNumbering@1000 : Codeunit 50071); + PROCEDURE Numbering@2(VAR WordNumbering@1000 : Codeunit 50071); VAR DotNetNumbering@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"; BEGIN diff --git a/BaseApp/COD50071.TXT b/BaseApp/COD50071.TXT index 27b4208..9d664af 100644 --- a/BaseApp/COD50071.TXT +++ b/BaseApp/COD50071.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50071 DotNet_Word.Numbering DotNetNumbering@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Numbering"; [External] - PROCEDURE Create@1(); + PROCEDURE Numbering@1(); BEGIN DotNetNumbering := DotNetNumbering.Numbering; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE NumberingFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNumbering := DotNetNumbering.Numbering(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetNumbering.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetNumbering.InnerText); END; diff --git a/BaseApp/COD50072.TXT b/BaseApp/COD50072.TXT index 054042d..e6862cf 100644 --- a/BaseApp/COD50072.TXT +++ b/BaseApp/COD50072.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50072 DotNet_Word.AbstractNum DotNetAbstractNum@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.AbstractNum"; [External] - PROCEDURE Create@1(); + PROCEDURE AbstractNum@1(); BEGIN DotNetAbstractNum := DotNetAbstractNum.AbstractNum; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE AbstractNumFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetAbstractNum := DotNetAbstractNum.AbstractNum(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetAbstractNum.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetAbstractNum.InnerText); END; @@ -50,7 +50,7 @@ OBJECT Codeunit 50072 DotNet_Word.AbstractNum END; [External] - PROCEDURE GetAbstractNumberId@6() : Integer; + PROCEDURE AbstractNumberId@6() : Integer; BEGIN EXIT(DotNetAbstractNum.AbstractNumberId.Value); END; diff --git a/BaseApp/COD50073.TXT b/BaseApp/COD50073.TXT index 2cc4bd2..cc7c5e5 100644 --- a/BaseApp/COD50073.TXT +++ b/BaseApp/COD50073.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50073 DotNet_Word.NumberingLevel DotNetLevel@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.Level"; [External] - PROCEDURE Create@1(); + PROCEDURE Level@1(); BEGIN DotNetLevel := DotNetLevel.Level; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE LevelFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetLevel := DotNetLevel.Level(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetLevel.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetLevel.InnerText); END; @@ -76,7 +76,7 @@ OBJECT Codeunit 50073 DotNet_Word.NumberingLevel END; [External] - PROCEDURE GetNumberingFormatType@8() : Integer; + PROCEDURE NumberingFormatType@8() : Integer; VAR DotNetNumberFormatValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberFormatValues"; DotNetEnumValue@1001 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.EnumValue`1"; diff --git a/BaseApp/COD50074.TXT b/BaseApp/COD50074.TXT index bc98f0c..729845a 100644 --- a/BaseApp/COD50074.TXT +++ b/BaseApp/COD50074.TXT @@ -18,25 +18,25 @@ OBJECT Codeunit 50074 DotNet_Word.NumberingInstance DotNetNumberingInstance@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Wordprocessing.NumberingInstance"; [External] - PROCEDURE Create@1(); + PROCEDURE NumberingInstance@1(); BEGIN DotNetNumberingInstance := DotNetNumberingInstance.NumberingInstance; END; [External] - PROCEDURE CreateFromOuterXml@2(OuterXml@1000 : Text); + PROCEDURE NumberingInstanceFromOuterXml@2(OuterXml@1000 : Text); BEGIN DotNetNumberingInstance := DotNetNumberingInstance.NumberingInstance(OuterXml); END; [External] - PROCEDURE GetOuterXml@3() : Text; + PROCEDURE OuterXml@3() : Text; BEGIN EXIT(DotNetNumberingInstance.OuterXml); END; [External] - PROCEDURE GetInnerText@4() : Text; + PROCEDURE InnerText@4() : Text; BEGIN EXIT(DotNetNumberingInstance.InnerText); END; diff --git a/BaseApp/COD50077.TXT b/BaseApp/COD50077.TXT index bfdf396..e459f06 100644 --- a/BaseApp/COD50077.TXT +++ b/BaseApp/COD50077.TXT @@ -18,7 +18,7 @@ OBJECT Codeunit 50077 DotNet_WordProcDocumentType DotNetWordprocessingDocumentType@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.WordprocessingDocumentType"; [External] - PROCEDURE Create@1(DocumentType@1000 : 'Document,Template,MacroEnabledDocument,MacroEnabledTemplate'); + PROCEDURE WordprocessingDocumentType@1(DocumentType@1000 : 'Document,Template,MacroEnabledDocument,MacroEnabledTemplate'); BEGIN CASE DocumentType OF DocumentType::Document: DotNetWordprocessingDocumentType := DotNetWordprocessingDocumentType.Document; diff --git a/BaseApp/COD50078.TXT b/BaseApp/COD50078.TXT index a5d0a6a..4be44cd 100644 --- a/BaseApp/COD50078.TXT +++ b/BaseApp/COD50078.TXT @@ -18,7 +18,7 @@ OBJECT Codeunit 50078 DotNet_OpenXml.ImagePartType DotNetImagePartType@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.Packaging.ImagePartType"; [External] - PROCEDURE Create@1(ImagePartType@1000 : 'Bmp,Gif,Png,Tiff,Icon,Pcx,Jpeg,Emf,Wmf'); + PROCEDURE ImagePartType@1(ImagePartType@1000 : 'Bmp,Gif,Png,Tiff,Icon,Pcx,Jpeg,Emf,Wmf'); BEGIN CASE ImagePartType OF ImagePartType::Bmp: DotNetImagePartType := DotNetImagePartType.Bmp; diff --git a/BaseApp/COD50079.TXT b/BaseApp/COD50079.TXT index 29a3c55..7dbe827 100644 --- a/BaseApp/COD50079.TXT +++ b/BaseApp/COD50079.TXT @@ -18,7 +18,7 @@ OBJECT Codeunit 50079 DotNet_OpenXml.SpaceProcessing DotNetSpaceProcessingModeValues@1000 : DotNet "'DocumentFormat.OpenXml, Version=2.0.5022.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35'.DocumentFormat.OpenXml.SpaceProcessingModeValues"; [External] - PROCEDURE Create@1(SpaceProcessingMode@1000 : 'Default,Preserve'); + PROCEDURE SpaceProcessingModeValues@1(SpaceProcessingMode@1000 : 'Default,Preserve'); BEGIN CASE SpaceProcessingMode OF SpaceProcessingMode::Default: DotNetSpaceProcessingModeValues := DotNetSpaceProcessingModeValues.Default; diff --git a/Test/COD50069.TXT b/Test/COD50069.TXT index 3687816..9b5328f 100644 --- a/Test/COD50069.TXT +++ b/Test/COD50069.TXT @@ -146,8 +146,8 @@ OBJECT Codeunit 50069 Text_OpenXml.WordProcessing //[THEN] Styles definition part must be not empty Assert.AreEqual(TRUE, OpenXmlWordProcessingHelper.MainDocumentPartHasStyleDefinitionsPart(MainDocumentPart), 'Style definitions check failed'); MainDocumentPart.StyleDefinitionsPart(WordStyleDefinitionPart); - WordStyleDefinitionPart.GetStyles(WordStyles); - Actual := WordStyles.GetOuterXml; + WordStyleDefinitionPart.Styles(WordStyles); + Actual := WordStyles.OuterXml; //[THEN] and expected styles outer xml is: Expected := '