Control LoadButton Inherits DesktopButton

EventHandler Sub Pressed() // you can use DynaPDF functions to extract XML from PDF Var f As FolderItem = FolderItem.ShowOpenFileDialog(FileTypeGroup1.XML) If f = Nil Then Return Var b As BinaryStream = BinaryStream.Open(f) Var XML As String = b.Read(b.Length, encodings.UTF8) InvoiceTextArea.Text = xml End EventHandler

End Control

Control InvoiceTextArea Inherits DesktopTextArea

End Control

Control ValidateLibXMLButton Inherits DesktopButton

EventHandler Sub Pressed() Var f As FolderItem = XSLFolder.Child("Factur-X_1.07.2_EN16931.xsd") If f <> Nil And f.Exists Then // read the XSD file into a variable Var b As BinaryStream = BinaryStream.Open(f) Var xsd As String = b.Read(b.Length, encodings.UTF8) // set current working directory, so related files can be found Call SetCurrentWorkingDirectoryMBS XSLFolder // invoice from the text area var InvoiceXML as string = InvoiceTextArea.Text // we have a subclass to collect error messages from Error/Warning events Var v As New XMLValidator(f) // run the validation of the invoice Var e As Integer = v.ValidateString(InvoiceXML) // show errors if we got one If e = 0 Then MessageBox "Okay" ResultTextArea.Text = "Okay" Else ResultTextArea.Text = Join(v.Errors, EndOfLine) end if Else MessageBox "Factur-X_1.07.2_EN16931.xsd file not found!?" End If End EventHandler

End Control

Control ValidateStructureButton Inherits DesktopButton

EventHandler Sub Pressed() // Validate the structure of the invoice against the schema file Var SchemaFile As FolderItem = XSLFolder.Child("Factur-X_1.07.2_EN16931.xsd") If SchemaFile <> Nil And SchemaFile.Exists Then Var b As BinaryStream = BinaryStream.Open(SchemaFile) Var schemaXML As String = b.Read(b.Length, encodings.UTF8) // set current working directory, so related files can be found SaxonMBS.CWD = XSLFolder.NativePath // run validation Var InvoiceXML As String = InvoiceTextArea.Text try Var r As Boolean = SaxonMBS.Validate(InvoiceXML, schemaXML) Catch s As SaxonExceptionMBS // failed to validate System.DebugLog s.Message end try Var report As String = SaxonMBS.ValidationReport ResultTextArea.Text = report Var html As String If report.len > 0 Then html = SaxonMBS.XSLT(report, XSLT2) Else html = "<p>Failed. No EE-V license?</p>" end If HTMLViewer1.LoadPage html, XSLFolder Else MessageBox "Factur-X_1.07.2_EN16931.xsd file not found!?" End If End EventHandler

End Control

Control ValidateContentButton Inherits DesktopButton

EventHandler Sub Pressed() // Validate Content With Saxon In file Saxon ZUGFeRD Validation // We read the XSLT needed To Do validation Var f As FolderItem = XSLFolder.Child("FACTUR-X_EN16931.xslt") If f <> Nil And f.Exists Then Var b As BinaryStream = BinaryStream.Open(f) Var xslt As String = b.Read(b.Length, encodings.UTF8) // check count If you like To know how many rules you have var namespaces() as string = Array("svrl", "http://purl.oclc.org/dsdl/svrl") Var query As String = "count(//svrl:failed-assert)" Var countRules As Integer = xslt.CountFields("<svrl:failed-assert")-1 // we need To set where To find related files. Some functions don't work with paths containing spaces SaxonMBS.CWD = XSLFolder.NativePath // perform check Var InvoiceXML As String = InvoiceTextArea.Text Var report As String = SaxonMBS.XSLT(InvoiceXML, xslt) ResultTextArea.Text = report if report <> "" then // check count If you like To know how many rules you have Var countFailed As Integer = report.CountFields("<svrl:failed-assert")-1 // convert report To html Var html As String = SaxonMBS.XSLT(report, XSLT1) HTMLViewer1.LoadPage html, XSLFolder MessageBox "Check completed." + EndOfLine + EndOfLine + countFailed.ToString + " of " + countRules.tostring + " rules failed." End If Else MessageBox "Failed to find FACTUR-X_EN16931.xslt file." end if End EventHandler

End Control

Control ResultTextArea Inherits DesktopTextArea

End Control

Control HTMLViewer1 Inherits DesktopHTMLViewer

End Control

Control PickFolderButton Inherits DesktopButton

EventHandler Sub Pressed() // you need to download ZUGFeRD files with the schema folder. Var folder As FolderItem = FolderItem.ShowSelectFolderDialog If folder <> Nil Then // you may need to update the file name if the xsd file gets a newer name Var f As FolderItem = folder.Child("Factur-X_1.07.2_EN16931.xsd") If f <> Nil And f.Exists Then XSLFolder = folder ValidateContentButton.Enabled = True ValidateLibXMLButton.Enabled = True ValidateStructureButton.Enabled = True Else MessageBox "Factur-X_1.07.2_EN16931.xsd file not found!?" End If End If End EventHandler

End Control