Update Korrektur QR-Verarbeitung

master
Stefan Hutter 3 years ago
parent 971afb5716
commit 35df876d21

Binary file not shown.

Binary file not shown.

@ -1,71 +1,71 @@
{
"format": 1,
"restore": {
"E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj": {}
},
"projects": {
"E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj": {
"version": "1.0.0",
"restore": {
"projectUniqueName": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"projectName": "CryptoTest",
"projectPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"packagesPath": "C:\\Users\\Steafn Hutter lokal\\.nuget\\packages\\",
"outputPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\obj\\",
"projectStyle": "PackageReference",
"fallbackFolders": [
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages",
"C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet\\"
],
"configFilePaths": [
"C:\\Users\\Steafn Hutter lokal\\AppData\\Roaming\\NuGet\\NuGet.Config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.FallbackLocation.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Xamarin.Offline.config"
],
"originalTargetFrameworks": [
"netcoreapp3.1"
],
"sources": {
"C:\\Program Files (x86)\\FastReports\\FastReport.Net\\Nugets": {},
"C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
"C:\\Program Files\\dotnet\\library-packs": {},
"E:\\Software-Projekte\\_NugetPackages": {},
"http://nuget.grapecity.com/nuget": {}
},
"frameworks": {
"netcoreapp3.1": {
"targetAlias": "netcoreapp3.1",
"projectReferences": {}
}
},
"warningProperties": {
"warnAsError": [
"NU1605"
]
}
},
"frameworks": {
"netcoreapp3.1": {
"targetAlias": "netcoreapp3.1",
"imports": [
"net461",
"net462",
"net47",
"net471",
"net472",
"net48"
],
"assetTargetFallback": true,
"warn": true,
"frameworkReferences": {
"Microsoft.NETCore.App": {
"privateAssets": "all"
}
},
"runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\5.0.410\\RuntimeIdentifierGraph.json"
}
}
}
}
{
"format": 1,
"restore": {
"E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj": {}
},
"projects": {
"E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj": {
"version": "1.0.0",
"restore": {
"projectUniqueName": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"projectName": "CryptoTest",
"projectPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"packagesPath": "C:\\Users\\Steafn Hutter lokal\\.nuget\\packages\\",
"outputPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\obj\\",
"projectStyle": "PackageReference",
"fallbackFolders": [
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages",
"C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet\\"
],
"configFilePaths": [
"C:\\Users\\Steafn Hutter lokal\\AppData\\Roaming\\NuGet\\NuGet.Config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.FallbackLocation.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Xamarin.Offline.config"
],
"originalTargetFrameworks": [
"netcoreapp3.1"
],
"sources": {
"C:\\Program Files (x86)\\FastReports\\FastReport.Net\\Nugets": {},
"C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
"C:\\Program Files\\dotnet\\library-packs": {},
"E:\\Software-Projekte\\_NugetPackages": {},
"http://nuget.grapecity.com/nuget": {}
},
"frameworks": {
"netcoreapp3.1": {
"targetAlias": "netcoreapp3.1",
"projectReferences": {}
}
},
"warningProperties": {
"warnAsError": [
"NU1605"
]
}
},
"frameworks": {
"netcoreapp3.1": {
"targetAlias": "netcoreapp3.1",
"imports": [
"net461",
"net462",
"net47",
"net471",
"net472",
"net48"
],
"assetTargetFallback": true,
"warn": true,
"frameworkReferences": {
"Microsoft.NETCore.App": {
"privateAssets": "all"
}
},
"runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\5.0.410\\RuntimeIdentifierGraph.json"
}
}
}
}
}

@ -1,20 +1,20 @@
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
<RestoreSuccess Condition=" '$(RestoreSuccess)' == '' ">True</RestoreSuccess>
<RestoreTool Condition=" '$(RestoreTool)' == '' ">NuGet</RestoreTool>
<ProjectAssetsFile Condition=" '$(ProjectAssetsFile)' == '' ">$(MSBuildThisFileDirectory)project.assets.json</ProjectAssetsFile>
<NuGetPackageRoot Condition=" '$(NuGetPackageRoot)' == '' ">$(UserProfile)\.nuget\packages\</NuGetPackageRoot>
<NuGetPackageFolders Condition=" '$(NuGetPackageFolders)' == '' ">C:\Users\Steafn Hutter lokal\.nuget\packages\;C:\Program Files (x86)\Microsoft Visual Studio\Shared\NuGetPackages;C:\Program Files (x86)\Microsoft\Xamarin\NuGet\</NuGetPackageFolders>
<NuGetProjectStyle Condition=" '$(NuGetProjectStyle)' == '' ">PackageReference</NuGetProjectStyle>
<NuGetToolVersion Condition=" '$(NuGetToolVersion)' == '' ">5.11.2</NuGetToolVersion>
</PropertyGroup>
<ItemGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
<SourceRoot Include="C:\Users\Steafn Hutter lokal\.nuget\packages\" />
<SourceRoot Include="C:\Program Files (x86)\Microsoft Visual Studio\Shared\NuGetPackages\" />
<SourceRoot Include="C:\Program Files (x86)\Microsoft\Xamarin\NuGet\" />
</ItemGroup>
<PropertyGroup>
<MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
</PropertyGroup>
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
<RestoreSuccess Condition=" '$(RestoreSuccess)' == '' ">True</RestoreSuccess>
<RestoreTool Condition=" '$(RestoreTool)' == '' ">NuGet</RestoreTool>
<ProjectAssetsFile Condition=" '$(ProjectAssetsFile)' == '' ">$(MSBuildThisFileDirectory)project.assets.json</ProjectAssetsFile>
<NuGetPackageRoot Condition=" '$(NuGetPackageRoot)' == '' ">$(UserProfile)\.nuget\packages\</NuGetPackageRoot>
<NuGetPackageFolders Condition=" '$(NuGetPackageFolders)' == '' ">C:\Users\Steafn Hutter lokal\.nuget\packages\;C:\Program Files (x86)\Microsoft Visual Studio\Shared\NuGetPackages;C:\Program Files (x86)\Microsoft\Xamarin\NuGet\</NuGetPackageFolders>
<NuGetProjectStyle Condition=" '$(NuGetProjectStyle)' == '' ">PackageReference</NuGetProjectStyle>
<NuGetToolVersion Condition=" '$(NuGetToolVersion)' == '' ">5.11.2</NuGetToolVersion>
</PropertyGroup>
<ItemGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
<SourceRoot Include="C:\Users\Steafn Hutter lokal\.nuget\packages\" />
<SourceRoot Include="C:\Program Files (x86)\Microsoft Visual Studio\Shared\NuGetPackages\" />
<SourceRoot Include="C:\Program Files (x86)\Microsoft\Xamarin\NuGet\" />
</ItemGroup>
<PropertyGroup>
<MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
</PropertyGroup>
</Project>

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
</PropertyGroup>
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
</PropertyGroup>
</Project>

@ -1,4 +1,4 @@
// <autogenerated />
using System;
using System.Reflection;
[assembly: global::System.Runtime.Versioning.TargetFrameworkAttribute(".NETCoreApp,Version=v3.1", FrameworkDisplayName = "")]
// <autogenerated />
using System;
using System.Reflection;
[assembly: global::System.Runtime.Versioning.TargetFrameworkAttribute(".NETCoreApp,Version=v3.1", FrameworkDisplayName = "")]

@ -1,78 +1,78 @@
{
"version": 3,
"targets": {
".NETCoreApp,Version=v3.1": {}
},
"libraries": {},
"projectFileDependencyGroups": {
".NETCoreApp,Version=v3.1": []
},
"packageFolders": {
"C:\\Users\\Steafn Hutter lokal\\.nuget\\packages\\": {},
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages": {},
"C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet\\": {}
},
"project": {
"version": "1.0.0",
"restore": {
"projectUniqueName": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"projectName": "CryptoTest",
"projectPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"packagesPath": "C:\\Users\\Steafn Hutter lokal\\.nuget\\packages\\",
"outputPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\obj\\",
"projectStyle": "PackageReference",
"fallbackFolders": [
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages",
"C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet\\"
],
"configFilePaths": [
"C:\\Users\\Steafn Hutter lokal\\AppData\\Roaming\\NuGet\\NuGet.Config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.FallbackLocation.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Xamarin.Offline.config"
],
"originalTargetFrameworks": [
"netcoreapp3.1"
],
"sources": {
"C:\\Program Files (x86)\\FastReports\\FastReport.Net\\Nugets": {},
"C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
"C:\\Program Files\\dotnet\\library-packs": {},
"E:\\Software-Projekte\\_NugetPackages": {},
"http://nuget.grapecity.com/nuget": {}
},
"frameworks": {
"netcoreapp3.1": {
"targetAlias": "netcoreapp3.1",
"projectReferences": {}
}
},
"warningProperties": {
"warnAsError": [
"NU1605"
]
}
},
"frameworks": {
"netcoreapp3.1": {
"targetAlias": "netcoreapp3.1",
"imports": [
"net461",
"net462",
"net47",
"net471",
"net472",
"net48"
],
"assetTargetFallback": true,
"warn": true,
"frameworkReferences": {
"Microsoft.NETCore.App": {
"privateAssets": "all"
}
},
"runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\5.0.410\\RuntimeIdentifierGraph.json"
}
}
}
{
"version": 3,
"targets": {
".NETCoreApp,Version=v3.1": {}
},
"libraries": {},
"projectFileDependencyGroups": {
".NETCoreApp,Version=v3.1": []
},
"packageFolders": {
"C:\\Users\\Steafn Hutter lokal\\.nuget\\packages\\": {},
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages": {},
"C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet\\": {}
},
"project": {
"version": "1.0.0",
"restore": {
"projectUniqueName": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"projectName": "CryptoTest",
"projectPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"packagesPath": "C:\\Users\\Steafn Hutter lokal\\.nuget\\packages\\",
"outputPath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\obj\\",
"projectStyle": "PackageReference",
"fallbackFolders": [
"C:\\Program Files (x86)\\Microsoft Visual Studio\\Shared\\NuGetPackages",
"C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet\\"
],
"configFilePaths": [
"C:\\Users\\Steafn Hutter lokal\\AppData\\Roaming\\NuGet\\NuGet.Config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.FallbackLocation.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Xamarin.Offline.config"
],
"originalTargetFrameworks": [
"netcoreapp3.1"
],
"sources": {
"C:\\Program Files (x86)\\FastReports\\FastReport.Net\\Nugets": {},
"C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
"C:\\Program Files\\dotnet\\library-packs": {},
"E:\\Software-Projekte\\_NugetPackages": {},
"http://nuget.grapecity.com/nuget": {}
},
"frameworks": {
"netcoreapp3.1": {
"targetAlias": "netcoreapp3.1",
"projectReferences": {}
}
},
"warningProperties": {
"warnAsError": [
"NU1605"
]
}
},
"frameworks": {
"netcoreapp3.1": {
"targetAlias": "netcoreapp3.1",
"imports": [
"net461",
"net462",
"net47",
"net471",
"net472",
"net48"
],
"assetTargetFallback": true,
"warn": true,
"frameworkReferences": {
"Microsoft.NETCore.App": {
"privateAssets": "all"
}
},
"runtimeIdentifierGraphPath": "C:\\Program Files\\dotnet\\sdk\\5.0.410\\RuntimeIdentifierGraph.json"
}
}
}
}

@ -1,8 +1,8 @@
{
"version": 2,
"dgSpecHash": "+8fvhsCvcbFO0RoBreIC6QqmWRX5f+QDOPelAAXB20NkbmscQ3gLW31w0t5euNLJOefkh3gykbrAe/vUe1Kzfg==",
"success": true,
"projectFilePath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"expectedPackageFiles": [],
"logs": []
{
"version": 2,
"dgSpecHash": "+8fvhsCvcbFO0RoBreIC6QqmWRX5f+QDOPelAAXB20NkbmscQ3gLW31w0t5euNLJOefkh3gykbrAe/vUe1Kzfg==",
"success": true,
"projectFilePath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
"expectedPackageFiles": [],
"logs": []
}

File diff suppressed because it is too large Load Diff

@ -90,13 +90,17 @@ Partial Class Behandlung
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.STAkonto = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.STBehandlung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel2 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Leistungen1 = New DPM2016.Leistungen()
Me.STLeistung = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel3 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
@ -157,10 +161,6 @@ Partial Class Behandlung
Me.tsamdrittemahnung = New System.Windows.Forms.ToolStripMenuItem()
Me.C1Leistungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.Behandungdetail1 = New DPM2016.Benhandungdetail()
Me.Leistungen1 = New DPM2016.Leistungen()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtndelete.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.treebehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
@ -188,7 +188,7 @@ Partial Class Behandlung
Me.tsbtndelete.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnewbehandlung, Me.tsbtndeletebehandlung, Me.ToolStripButton2})
Me.tsbtndelete.Location = New System.Drawing.Point(0, 0)
Me.tsbtndelete.Name = "tsbtndelete"
Me.tsbtndelete.Size = New System.Drawing.Size(1713, 31)
Me.tsbtndelete.Size = New System.Drawing.Size(1713, 27)
Me.tsbtndelete.TabIndex = 1
Me.tsbtndelete.Text = "ToolStrip1"
'
@ -198,7 +198,7 @@ Partial Class Behandlung
Me.tsbtnnewbehandlung.Image = CType(resources.GetObject("tsbtnnewbehandlung.Image"), System.Drawing.Image)
Me.tsbtnnewbehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnewbehandlung.Name = "tsbtnnewbehandlung"
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 28)
Me.tsbtnnewbehandlung.Size = New System.Drawing.Size(29, 24)
Me.tsbtnnewbehandlung.Text = "Neue Behandlung"
'
'tsbtndeletebehandlung
@ -207,7 +207,7 @@ Partial Class Behandlung
Me.tsbtndeletebehandlung.Image = CType(resources.GetObject("tsbtndeletebehandlung.Image"), System.Drawing.Image)
Me.tsbtndeletebehandlung.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtndeletebehandlung.Name = "tsbtndeletebehandlung"
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 28)
Me.tsbtndeletebehandlung.Size = New System.Drawing.Size(29, 24)
Me.tsbtndeletebehandlung.Text = "Behandlung löschen"
'
'ToolStripButton2
@ -216,18 +216,18 @@ Partial Class Behandlung
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(29, 28)
Me.ToolStripButton2.Size = New System.Drawing.Size(29, 24)
Me.ToolStripButton2.Text = "Aktualisieren"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.treebehandlungen)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 31)
Me.GroupBox1.Location = New System.Drawing.Point(0, 27)
Me.GroupBox1.Margin = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Padding = New System.Windows.Forms.Padding(4)
Me.GroupBox1.Size = New System.Drawing.Size(273, 1000)
Me.GroupBox1.Size = New System.Drawing.Size(273, 1004)
Me.GroupBox1.TabIndex = 2
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Behandlungen"
@ -256,7 +256,7 @@ Partial Class Behandlung
Me.treebehandlungen.NodesConnector = Me.NodeConnector1
Me.treebehandlungen.NodeStyle = Me.ElementStyle1
Me.treebehandlungen.PathSeparator = ";"
Me.treebehandlungen.Size = New System.Drawing.Size(265, 977)
Me.treebehandlungen.Size = New System.Drawing.Size(265, 981)
Me.treebehandlungen.Styles.Add(Me.ElementStyle1)
Me.treebehandlungen.TabIndex = 0
Me.treebehandlungen.Text = "AdvTree1"
@ -536,18 +536,18 @@ Partial Class Behandlung
Me.SuperTabControl1.ControlBox.MenuBox.Name = ""
Me.SuperTabControl1.ControlBox.Name = ""
Me.SuperTabControl1.ControlBox.SubItems.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.SuperTabControl1.ControlBox.MenuBox, Me.SuperTabControl1.ControlBox.CloseBox})
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel1)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel4)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel2)
Me.SuperTabControl1.Controls.Add(Me.SuperTabControlPanel3)
Me.SuperTabControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControl1.Location = New System.Drawing.Point(273, 31)
Me.SuperTabControl1.Location = New System.Drawing.Point(273, 27)
Me.SuperTabControl1.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControl1.Name = "SuperTabControl1"
Me.SuperTabControl1.ReorderTabsEnabled = True
Me.SuperTabControl1.SelectedTabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
Me.SuperTabControl1.SelectedTabIndex = 0
Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1000)
Me.SuperTabControl1.Size = New System.Drawing.Size(1440, 1004)
Me.SuperTabControl1.TabFont = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SuperTabControl1.TabIndex = 9
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.STBehandlung, Me.STLeistung, Me.STAkonto})
@ -559,7 +559,7 @@ Partial Class Behandlung
Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 28)
Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1440, 972)
Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1440, 976)
Me.SuperTabControlPanel4.TabIndex = 0
Me.SuperTabControlPanel4.TabItem = Me.STAkonto
'
@ -669,7 +669,7 @@ Partial Class Behandlung
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(29, 28)
Me.ToolStripButton3.Size = New System.Drawing.Size(29, 24)
Me.ToolStripButton3.Text = "Neu"
'
'ToolStripButton4
@ -678,13 +678,24 @@ Partial Class Behandlung
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(29, 28)
Me.ToolStripButton4.Size = New System.Drawing.Size(29, 24)
Me.ToolStripButton4.Text = "Tabelle aktualisieren"
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 27)
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(262, 24)
Me.ToolStripLabel2.Text = "Total verrechnete Akonto-Rechnungen"
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(36, 28)
Me.ToolStripLabel1.Size = New System.Drawing.Size(36, 24)
Me.ToolStripLabel1.Text = "0.00"
'
'STAkonto
@ -701,7 +712,7 @@ Partial Class Behandlung
Me.SuperTabControlPanel1.Location = New System.Drawing.Point(0, 28)
Me.SuperTabControlPanel1.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControlPanel1.Name = "SuperTabControlPanel1"
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 972)
Me.SuperTabControlPanel1.Size = New System.Drawing.Size(1440, 976)
Me.SuperTabControlPanel1.TabIndex = 1
Me.SuperTabControlPanel1.TabItem = Me.STBehandlung
'
@ -714,6 +725,18 @@ Partial Class Behandlung
Me.Panel2.Size = New System.Drawing.Size(1416, 970)
Me.Panel2.TabIndex = 9
'
'Behandungdetail1
'
Me.Behandungdetail1.Behandlungsnr = 0
Me.Behandungdetail1.Behandlungsstatus = 0
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
Me.Behandungdetail1.TabIndex = 0
'
'STBehandlung
'
Me.STBehandlung.AttachedControl = Me.SuperTabControlPanel1
@ -742,6 +765,20 @@ Partial Class Behandlung
Me.Panel1.Size = New System.Drawing.Size(1440, 972)
Me.Panel1.TabIndex = 1
'
'Leistungen1
'
Me.Leistungen1.behandler = 0
Me.Leistungen1.Behandlungnr = 0
Me.Leistungen1.Behandlungsstatus = 0
Me.Leistungen1.Dentotar = False
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Leistungen1.Frankenwert = 0R
Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
Me.Leistungen1.Name = "Leistungen1"
Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
Me.Leistungen1.TabIndex = 0
'
'STLeistung
'
Me.STLeistung.AttachedControl = Me.SuperTabControlPanel2
@ -755,7 +792,7 @@ Partial Class Behandlung
Me.SuperTabControlPanel3.Location = New System.Drawing.Point(0, 0)
Me.SuperTabControlPanel3.Margin = New System.Windows.Forms.Padding(4)
Me.SuperTabControlPanel3.Name = "SuperTabControlPanel3"
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1000)
Me.SuperTabControlPanel3.Size = New System.Drawing.Size(1440, 1004)
Me.SuperTabControlPanel3.TabIndex = 0
'
'tsbtnnew
@ -1130,43 +1167,6 @@ Partial Class Behandlung
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'Behandungdetail1
'
Me.Behandungdetail1.Behandlungsnr = 0
Me.Behandungdetail1.Behandlungsstatus = 0
Me.Behandungdetail1.HasChanges = False
Me.Behandungdetail1.Location = New System.Drawing.Point(4, 7)
Me.Behandungdetail1.Margin = New System.Windows.Forms.Padding(5)
Me.Behandungdetail1.Name = "Behandungdetail1"
Me.Behandungdetail1.Patientnr = 0
Me.Behandungdetail1.Size = New System.Drawing.Size(1412, 959)
Me.Behandungdetail1.TabIndex = 0
'
'Leistungen1
'
Me.Leistungen1.behandler = 0
Me.Leistungen1.Behandlungnr = 0
Me.Leistungen1.Behandlungsstatus = 0
Me.Leistungen1.Dentotar = False
Me.Leistungen1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Leistungen1.Frankenwert = 0R
Me.Leistungen1.Location = New System.Drawing.Point(0, 0)
Me.Leistungen1.Margin = New System.Windows.Forms.Padding(5)
Me.Leistungen1.Name = "Leistungen1"
Me.Leistungen1.Size = New System.Drawing.Size(1440, 972)
Me.Leistungen1.TabIndex = 0
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(262, 28)
Me.ToolStripLabel2.Text = "Total verrechnete Akonto-Rechnungen"
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 27)
'
'Behandlung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)

@ -236,7 +236,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABO
DQAAAk1TRnQBSQFMAgEBBQEAAZgBBgGYAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
DQAAAk1TRnQBSQFMAgEBBQEAAaABBgGgAQYBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -295,6 +295,9 @@
AQMBgAECAYABAAH4AQABgAEHAYABBwHAAT8C/wEAAQ8BAAEPAfkD/wGAAR8BgAEfCP8L
</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>662, 17</value>
</metadata>
<metadata name="ctxmenuakonto.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>788, 17</value>
</metadata>
@ -335,7 +338,7 @@
</value>
</data>
<data name="c1akonto.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1363, 444&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1363, 444&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FetchRowStyles="True" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1363, 444&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1363, 444&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>662, 17</value>
@ -506,7 +509,7 @@
</value>
</data>
<data name="C1Leistungen.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style1{}Caption{AlignHorz:Center;}Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1363, 444&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1363, 444&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}Style4{}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}Heading{ForeColor:ControlText;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style9{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="21" DefRecSelWidth="21" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1363, 444&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;21&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1363, 444&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>950, 17</value>

@ -2,6 +2,7 @@
Imports DevComponents.AdvTree
Imports Syncfusion.Pdf
Imports Syncfusion.Pdf.Parsing
Imports Syncfusion.Windows.Forms.Tools
Public Class Behandlung
@ -324,7 +325,7 @@ Public Class Behandlung
End If
Me.treebehandlungen.ExpandAll()
enable_disable_tabs(False)
enable_disable_tabs(False)
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, firstnode_tag, firstnode_tag)
If firstnode_tag <> 0 Then nodeselected()
If Auftragsmanagement = True Then
@ -558,6 +559,7 @@ Public Class Behandlung
db.Dispose()
Me.Get_Behandlungen()
Me.SuperTabControl1.SelectedTab = SuperTabControl1.Tabs(0)
Try
Me.treebehandlungen.SelectedNode = Globals.FindNode(Me.treebehandlungen.Nodes, newkey, newkey)
Me.nodeselected()
@ -942,10 +944,10 @@ Public Class Behandlung
If UCase(DB.Get_Option(60020)) = "FALSE" Then Exit Sub
Dim sec As New DPMSecurity
sec.Set_Form_Security(Me.ParentForm)
Catch ex As Exception
MsgBox(ex.Message)
Dim sec As New DPMSecurity
sec.Set_Form_Security(Me.ParentForm)
Catch ex As Exception
MsgBox(ex.Message)
Me.ctxmenubehandlung.Enabled = False
End Try
@ -960,7 +962,7 @@ Public Class Behandlung
If Globals.Applicationtype = Globals.ApplicationTypes.Projektabrechnung Then Messagetext = "Projekt " Else Messagetext = "Behandlung "
'Messagetext = "Behandlung "
Else
Messagetext = "Kostenvoranschlag"
Messagetext = "Kostenvoranschlag"
End If
Dim fakt As New clsFakturierung
@ -1099,7 +1101,7 @@ Public Class Behandlung
End Sub
#Region "EVH"
Private Sub evh_Behandlung_changed(behandlungsnummer As Integer, patientnr As Integer) Handles evh.Behandlung_changed
If Me.PatientNr = patientnr and patientnr <> 0 Then
If Me.PatientNr = patientnr And patientnr <> 0 Then
Dim tn As DevComponents.AdvTree.Node
tn = Globals.FindNode(Me.treebehandlungen.Nodes, behandlungsnummer, behandlungsnummer)
Try
@ -1614,7 +1616,7 @@ Public Class Behandlung
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
load_data
load_data()
End Sub
Private Sub load_data()
@ -1694,7 +1696,11 @@ Public Class Behandlung
End Sub
Private Sub C1Aktonto_MouseDown(sender As Object, e As MouseEventArgs) Handles c1akonto.MouseDown
Me.c1akonto.Bookmark = Me.c1akonto.RowContaining(e.Y)
Try
Me.c1akonto.Bookmark = Me.c1akonto.RowContaining(e.Y)
Catch
End Try
End Sub
Private Sub AkontoRechnungLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AkontoRechnungLöschenToolStripMenuItem.Click
@ -1729,16 +1735,21 @@ Public Class Behandlung
End Sub
Private Sub ctxmenuakonto_Opening(sender As Object, e As CancelEventArgs) Handles ctxmenuakonto.Opening
Me.ctxmenuakonto.Enabled = True
Me.AkontoRechnungErstellenToolStripMenuItem.Enabled = True
Me.AkontoRechnungPDFPerMailToolStripMenuItem.Enabled = True
Me.RechnungsDokumentErsetzenToolStripMenuItem.Enabled = True
Try
If c1akonto.Columns("nrfaktura").Value <> 0 Then
Me.AkontoRechnungErstellenToolStripMenuItem.Enabled = False
Me.AkontoRechnungPDFPerMailToolStripMenuItem.Enabled = False
Me.RechnungsDokumentErsetzenToolStripMenuItem.Enabled = False
If c1akonto.Columns("nrfaktura").Value <> 0 Then
Me.AkontoRechnungErstellenToolStripMenuItem.Enabled = False
Me.AkontoRechnungPDFPerMailToolStripMenuItem.Enabled = False
Me.RechnungsDokumentErsetzenToolStripMenuItem.Enabled = False
End If
Catch
Me.ctxmenuakonto.Enabled = False
End Try
End If
End Sub

@ -212,7 +212,7 @@ Partial Class Benhandungdetail
Me.lblProjekt.Location = New System.Drawing.Point(9, 34)
Me.lblProjekt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblProjekt.Name = "lblProjekt"
Me.lblProjekt.Size = New System.Drawing.Size(52, 17)
Me.lblProjekt.Size = New System.Drawing.Size(49, 16)
Me.lblProjekt.TabIndex = 22
Me.lblProjekt.Text = "Projekt"
Me.lblProjekt.Visible = False
@ -236,7 +236,7 @@ Partial Class Benhandungdetail
Me.Label6.Location = New System.Drawing.Point(8, 69)
Me.Label6.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(83, 17)
Me.Label6.Size = New System.Drawing.Size(78, 16)
Me.Label6.TabIndex = 21
Me.Label6.Text = "Formulartyp"
'
@ -259,7 +259,7 @@ Partial Class Benhandungdetail
Me.Label7.Location = New System.Drawing.Point(8, 34)
Me.Label7.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(73, 17)
Me.Label7.Size = New System.Drawing.Size(69, 16)
Me.Label7.TabIndex = 19
Me.Label7.Text = "Behandler"
'
@ -339,7 +339,7 @@ Partial Class Benhandungdetail
Me.lblRabatt.Location = New System.Drawing.Point(9, 119)
Me.lblRabatt.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblRabatt.Name = "lblRabatt"
Me.lblRabatt.Size = New System.Drawing.Size(66, 17)
Me.lblRabatt.Size = New System.Drawing.Size(60, 16)
Me.lblRabatt.TabIndex = 8
Me.lblRabatt.Text = "./. Rabatt"
'
@ -360,7 +360,7 @@ Partial Class Benhandungdetail
Me.lblVorauszahlungen.Location = New System.Drawing.Point(9, 103)
Me.lblVorauszahlungen.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblVorauszahlungen.Name = "lblVorauszahlungen"
Me.lblVorauszahlungen.Size = New System.Drawing.Size(135, 17)
Me.lblVorauszahlungen.Size = New System.Drawing.Size(124, 16)
Me.lblVorauszahlungen.TabIndex = 6
Me.lblVorauszahlungen.Text = "./. Vorauszahlungen"
'
@ -381,7 +381,7 @@ Partial Class Benhandungdetail
Me.lblRatenzuschlag.Location = New System.Drawing.Point(9, 87)
Me.lblRatenzuschlag.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblRatenzuschlag.Name = "lblRatenzuschlag"
Me.lblRatenzuschlag.Size = New System.Drawing.Size(114, 17)
Me.lblRatenzuschlag.Size = New System.Drawing.Size(106, 16)
Me.lblRatenzuschlag.TabIndex = 4
Me.lblRatenzuschlag.Text = "+ Ratenzuschlag"
'
@ -402,7 +402,7 @@ Partial Class Benhandungdetail
Me.lblBehandlungstotal.Location = New System.Drawing.Point(8, 71)
Me.lblBehandlungstotal.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblBehandlungstotal.Name = "lblBehandlungstotal"
Me.lblBehandlungstotal.Size = New System.Drawing.Size(118, 17)
Me.lblBehandlungstotal.Size = New System.Drawing.Size(111, 16)
Me.lblBehandlungstotal.TabIndex = 2
Me.lblBehandlungstotal.Text = "Behandlungstotal"
'
@ -423,7 +423,7 @@ Partial Class Benhandungdetail
Me.Label2.Location = New System.Drawing.Point(7, 37)
Me.Label2.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(73, 17)
Me.Label2.Size = New System.Drawing.Size(68, 16)
Me.Label2.TabIndex = 0
Me.Label2.Text = "KV-Betrag"
'
@ -487,7 +487,7 @@ Partial Class Benhandungdetail
Me.lblahvnr.Location = New System.Drawing.Point(379, 143)
Me.lblahvnr.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblahvnr.Name = "lblahvnr"
Me.lblahvnr.Size = New System.Drawing.Size(0, 17)
Me.lblahvnr.Size = New System.Drawing.Size(0, 16)
Me.lblahvnr.TabIndex = 226
'
'Label10
@ -496,7 +496,7 @@ Partial Class Benhandungdetail
Me.Label10.Location = New System.Drawing.Point(335, 143)
Me.Label10.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(40, 17)
Me.Label10.Size = New System.Drawing.Size(38, 16)
Me.Label10.TabIndex = 225
Me.Label10.Text = "AHV:"
'
@ -516,7 +516,7 @@ Partial Class Benhandungdetail
Me.lblGesetz.Location = New System.Drawing.Point(11, 171)
Me.lblGesetz.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblGesetz.Name = "lblGesetz"
Me.lblGesetz.Size = New System.Drawing.Size(89, 17)
Me.lblGesetz.Size = New System.Drawing.Size(82, 16)
Me.lblGesetz.TabIndex = 223
Me.lblGesetz.Text = "Gesetz/V-Art"
'
@ -554,7 +554,7 @@ Partial Class Benhandungdetail
Me.Label5.Location = New System.Drawing.Point(11, 299)
Me.Label5.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(65, 17)
Me.Label5.Size = New System.Drawing.Size(61, 16)
Me.Label5.TabIndex = 220
Me.Label5.Text = "Zuweiser"
'
@ -584,7 +584,7 @@ Partial Class Benhandungdetail
Me.Label1.Location = New System.Drawing.Point(11, 266)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(76, 17)
Me.Label1.Size = New System.Drawing.Size(67, 16)
Me.Label1.TabIndex = 217
Me.Label1.Text = "Ko.-Gu. Nr"
'
@ -648,7 +648,7 @@ Partial Class Benhandungdetail
Me.lblDatumKostengutsprache.Location = New System.Drawing.Point(9, 234)
Me.lblDatumKostengutsprache.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblDatumKostengutsprache.Name = "lblDatumKostengutsprache"
Me.lblDatumKostengutsprache.Size = New System.Drawing.Size(102, 17)
Me.lblDatumKostengutsprache.Size = New System.Drawing.Size(92, 16)
Me.lblDatumKostengutsprache.TabIndex = 214
Me.lblDatumKostengutsprache.Text = "Datum Ko.-Gu."
'
@ -704,7 +704,7 @@ Partial Class Benhandungdetail
Me.lblUnfalldatum.Location = New System.Drawing.Point(9, 203)
Me.lblUnfalldatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblUnfalldatum.Name = "lblUnfalldatum"
Me.lblUnfalldatum.Size = New System.Drawing.Size(83, 17)
Me.lblUnfalldatum.Size = New System.Drawing.Size(78, 16)
Me.lblUnfalldatum.TabIndex = 33
Me.lblUnfalldatum.Text = "Unfalldatum"
'
@ -714,7 +714,7 @@ Partial Class Benhandungdetail
Me.lblFallNummer.Location = New System.Drawing.Point(11, 143)
Me.lblFallNummer.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblFallNummer.Name = "lblFallNummer"
Me.lblFallNummer.Size = New System.Drawing.Size(83, 17)
Me.lblFallNummer.Size = New System.Drawing.Size(80, 16)
Me.lblFallNummer.TabIndex = 32
Me.lblFallNummer.Text = "FallNummer"
'
@ -737,7 +737,7 @@ Partial Class Benhandungdetail
Me.lblAnsprechpartner.Location = New System.Drawing.Point(11, 108)
Me.lblAnsprechpartner.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblAnsprechpartner.Name = "lblAnsprechpartner"
Me.lblAnsprechpartner.Size = New System.Drawing.Size(114, 17)
Me.lblAnsprechpartner.Size = New System.Drawing.Size(106, 16)
Me.lblAnsprechpartner.TabIndex = 30
Me.lblAnsprechpartner.Text = "Ansprechpartner"
'
@ -768,7 +768,7 @@ Partial Class Benhandungdetail
Me.lblgarant.Location = New System.Drawing.Point(11, 80)
Me.lblgarant.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblgarant.Name = "lblgarant"
Me.lblgarant.Size = New System.Drawing.Size(52, 17)
Me.lblgarant.Size = New System.Drawing.Size(47, 16)
Me.lblgarant.TabIndex = 27
Me.lblgarant.Text = "Garant"
'
@ -778,7 +778,7 @@ Partial Class Benhandungdetail
Me.rbPrivatPersonen.Location = New System.Drawing.Point(265, 50)
Me.rbPrivatPersonen.Margin = New System.Windows.Forms.Padding(4)
Me.rbPrivatPersonen.Name = "rbPrivatPersonen"
Me.rbPrivatPersonen.Size = New System.Drawing.Size(131, 21)
Me.rbPrivatPersonen.Size = New System.Drawing.Size(124, 20)
Me.rbPrivatPersonen.TabIndex = 5
Me.rbPrivatPersonen.TabStop = True
Me.rbPrivatPersonen.Text = "Privat-Personen"
@ -790,7 +790,7 @@ Partial Class Benhandungdetail
Me.rbkk.Location = New System.Drawing.Point(141, 49)
Me.rbkk.Margin = New System.Windows.Forms.Padding(4)
Me.rbkk.Name = "rbkk"
Me.rbkk.Size = New System.Drawing.Size(119, 21)
Me.rbkk.Size = New System.Drawing.Size(114, 20)
Me.rbkk.TabIndex = 4
Me.rbkk.TabStop = True
Me.rbkk.Text = "Krankenkasse"
@ -802,7 +802,7 @@ Partial Class Benhandungdetail
Me.rbdiverseFirmen.Location = New System.Drawing.Point(15, 47)
Me.rbdiverseFirmen.Margin = New System.Windows.Forms.Padding(4)
Me.rbdiverseFirmen.Name = "rbdiverseFirmen"
Me.rbdiverseFirmen.Size = New System.Drawing.Size(124, 21)
Me.rbdiverseFirmen.Size = New System.Drawing.Size(119, 20)
Me.rbdiverseFirmen.TabIndex = 3
Me.rbdiverseFirmen.TabStop = True
Me.rbdiverseFirmen.Text = "Diverse Firmen"
@ -814,7 +814,7 @@ Partial Class Benhandungdetail
Me.rbiv.Location = New System.Drawing.Point(265, 25)
Me.rbiv.Margin = New System.Windows.Forms.Padding(4)
Me.rbiv.Name = "rbiv"
Me.rbiv.Size = New System.Drawing.Size(81, 21)
Me.rbiv.Size = New System.Drawing.Size(78, 20)
Me.rbiv.TabIndex = 2
Me.rbiv.TabStop = True
Me.rbiv.Text = "IV-Stelle"
@ -826,7 +826,7 @@ Partial Class Benhandungdetail
Me.rbfs.Location = New System.Drawing.Point(139, 23)
Me.rbfs.Margin = New System.Windows.Forms.Padding(4)
Me.rbfs.Name = "rbfs"
Me.rbfs.Size = New System.Drawing.Size(109, 21)
Me.rbfs.Size = New System.Drawing.Size(104, 20)
Me.rbfs.TabIndex = 1
Me.rbfs.TabStop = True
Me.rbfs.Text = "Fürsorgeamt"
@ -838,7 +838,7 @@ Partial Class Benhandungdetail
Me.rbversicherung.Location = New System.Drawing.Point(15, 22)
Me.rbversicherung.Margin = New System.Windows.Forms.Padding(4)
Me.rbversicherung.Name = "rbversicherung"
Me.rbversicherung.Size = New System.Drawing.Size(113, 21)
Me.rbversicherung.Size = New System.Drawing.Size(107, 20)
Me.rbversicherung.TabIndex = 0
Me.rbversicherung.TabStop = True
Me.rbversicherung.Text = "Versicherung"
@ -865,38 +865,32 @@ Partial Class Benhandungdetail
'
'txtAnzahlraten
'
Me.txtAnzahlraten.BackGroundColor = System.Drawing.SystemColors.Window
Me.txtAnzahlraten.BeforeTouchSize = New System.Drawing.Size(132, 22)
Me.txtAnzahlraten.Cursor = System.Windows.Forms.Cursors.IBeam
Me.txtAnzahlraten.DoubleValue = 0R
Me.txtAnzahlraten.Location = New System.Drawing.Point(124, 23)
Me.txtAnzahlraten.Margin = New System.Windows.Forms.Padding(4)
Me.txtAnzahlraten.Metrocolor = System.Drawing.Color.FromArgb(CType(CType(209, Byte), Integer), CType(CType(211, Byte), Integer), CType(CType(212, Byte), Integer))
Me.txtAnzahlraten.Name = "txtAnzahlraten"
Me.txtAnzahlraten.NullString = ""
Me.txtAnzahlraten.NumberDecimalDigits = 0
Me.txtAnzahlraten.Size = New System.Drawing.Size(80, 22)
Me.txtAnzahlraten.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
Me.txtAnzahlraten.TabIndex = 0
Me.txtAnzahlraten.Text = "0"
Me.txtAnzahlraten.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.txtAnzahlraten.ThemeName = "Default"
'
'mtxtRatenzuschlag
'
Me.mtxtRatenzuschlag.BackGroundColor = System.Drawing.SystemColors.Window
Me.mtxtRatenzuschlag.BeforeTouchSize = New System.Drawing.Size(132, 22)
Me.mtxtRatenzuschlag.Cursor = System.Windows.Forms.Cursors.IBeam
Me.mtxtRatenzuschlag.DoubleValue = 1.0R
Me.mtxtRatenzuschlag.Location = New System.Drawing.Point(124, 63)
Me.mtxtRatenzuschlag.Margin = New System.Windows.Forms.Padding(4)
Me.mtxtRatenzuschlag.Metrocolor = System.Drawing.Color.FromArgb(CType(CType(209, Byte), Integer), CType(CType(211, Byte), Integer), CType(CType(212, Byte), Integer))
Me.mtxtRatenzuschlag.Name = "mtxtRatenzuschlag"
Me.mtxtRatenzuschlag.NullString = ""
Me.mtxtRatenzuschlag.Size = New System.Drawing.Size(80, 22)
Me.mtxtRatenzuschlag.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
Me.mtxtRatenzuschlag.TabIndex = 2
Me.mtxtRatenzuschlag.Text = "1.00"
Me.mtxtRatenzuschlag.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.mtxtRatenzuschlag.ThemeName = "Default"
'
'xxtxtAnzahlraten
'
@ -924,7 +918,7 @@ Partial Class Benhandungdetail
Me.Label4.Location = New System.Drawing.Point(231, 41)
Me.Label4.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(50, 17)
Me.Label4.Size = New System.Drawing.Size(47, 16)
Me.Label4.TabIndex = 29
Me.Label4.Text = "Betrag"
'
@ -934,7 +928,7 @@ Partial Class Benhandungdetail
Me.Label3.Location = New System.Drawing.Point(231, 25)
Me.Label3.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(173, 17)
Me.Label3.Size = New System.Drawing.Size(162, 16)
Me.Label3.TabIndex = 1
Me.Label3.Text = "Erste Rate mit ungeradem"
'
@ -944,7 +938,7 @@ Partial Class Benhandungdetail
Me.lblZuschlagRaten.Location = New System.Drawing.Point(12, 63)
Me.lblZuschlagRaten.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblZuschlagRaten.Name = "lblZuschlagRaten"
Me.lblZuschlagRaten.Size = New System.Drawing.Size(102, 17)
Me.lblZuschlagRaten.Size = New System.Drawing.Size(96, 16)
Me.lblZuschlagRaten.TabIndex = 26
Me.lblZuschlagRaten.Text = "Ratenzuschlag"
'
@ -954,7 +948,7 @@ Partial Class Benhandungdetail
Me.lblAnzahlRaten.Location = New System.Drawing.Point(12, 28)
Me.lblAnzahlRaten.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblAnzahlRaten.Name = "lblAnzahlRaten"
Me.lblAnzahlRaten.Size = New System.Drawing.Size(93, 17)
Me.lblAnzahlRaten.Size = New System.Drawing.Size(86, 16)
Me.lblAnzahlRaten.TabIndex = 23
Me.lblAnzahlRaten.Text = "Anzahl Raten"
'
@ -990,7 +984,7 @@ Partial Class Benhandungdetail
Me.lblunserereferenz.Location = New System.Drawing.Point(12, 150)
Me.lblunserereferenz.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblunserereferenz.Name = "lblunserereferenz"
Me.lblunserereferenz.Size = New System.Drawing.Size(116, 17)
Me.lblunserereferenz.Size = New System.Drawing.Size(108, 16)
Me.lblunserereferenz.TabIndex = 215
Me.lblunserereferenz.Text = "Unsere Referenz"
Me.lblunserereferenz.Visible = False
@ -1011,7 +1005,7 @@ Partial Class Benhandungdetail
Me.lblansprechperson.Location = New System.Drawing.Point(12, 124)
Me.lblansprechperson.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblansprechperson.Name = "lblansprechperson"
Me.lblansprechperson.Size = New System.Drawing.Size(127, 17)
Me.lblansprechperson.Size = New System.Drawing.Size(114, 16)
Me.lblansprechperson.TabIndex = 213
Me.lblansprechperson.Text = "Referenz Kunde "
'
@ -1076,7 +1070,7 @@ Partial Class Benhandungdetail
Me.lblRGDatum.Location = New System.Drawing.Point(12, 126)
Me.lblRGDatum.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblRGDatum.Name = "lblRGDatum"
Me.lblRGDatum.Size = New System.Drawing.Size(119, 17)
Me.lblRGDatum.Size = New System.Drawing.Size(112, 16)
Me.lblRGDatum.TabIndex = 211
Me.lblRGDatum.Text = "Rechnungsdatum"
'
@ -1248,7 +1242,7 @@ Partial Class Benhandungdetail
Me.lblRGStellung.Location = New System.Drawing.Point(12, 94)
Me.lblRGStellung.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblRGStellung.Name = "lblRGStellung"
Me.lblRGStellung.Size = New System.Drawing.Size(143, 17)
Me.lblRGStellung.Size = New System.Drawing.Size(131, 16)
Me.lblRGStellung.TabIndex = 207
Me.lblRGStellung.Text = "RG-Stellung nicht vor"
'
@ -1259,7 +1253,7 @@ Partial Class Benhandungdetail
Me.Label15.Location = New System.Drawing.Point(12, 62)
Me.Label15.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(41, 17)
Me.Label15.Size = New System.Drawing.Size(39, 16)
Me.Label15.TabIndex = 205
Me.Label15.Text = "Ende"
'
@ -1270,7 +1264,7 @@ Partial Class Benhandungdetail
Me.lblBegin.Location = New System.Drawing.Point(12, 32)
Me.lblBegin.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblBegin.Name = "lblBegin"
Me.lblBegin.Size = New System.Drawing.Size(52, 17)
Me.lblBegin.Size = New System.Drawing.Size(49, 16)
Me.lblBegin.TabIndex = 204
Me.lblBegin.Text = "Beginn"
'
@ -1307,7 +1301,7 @@ Partial Class Benhandungdetail
Me.chkOhneMwst.Location = New System.Drawing.Point(239, 266)
Me.chkOhneMwst.Margin = New System.Windows.Forms.Padding(4)
Me.chkOhneMwst.Name = "chkOhneMwst"
Me.chkOhneMwst.Size = New System.Drawing.Size(102, 21)
Me.chkOhneMwst.Size = New System.Drawing.Size(96, 20)
Me.chkOhneMwst.TabIndex = 39
Me.chkOhneMwst.Text = "Ohne MwSt"
Me.chkOhneMwst.UseVisualStyleBackColor = True
@ -1315,37 +1309,31 @@ Partial Class Benhandungdetail
'
'mtxtRabatt
'
Me.mtxtRabatt.BackGroundColor = System.Drawing.SystemColors.Window
Me.mtxtRabatt.BeforeTouchSize = New System.Drawing.Size(132, 22)
Me.mtxtRabatt.Cursor = System.Windows.Forms.Cursors.IBeam
Me.mtxtRabatt.DoubleValue = 1.0R
Me.mtxtRabatt.Location = New System.Drawing.Point(253, 201)
Me.mtxtRabatt.Margin = New System.Windows.Forms.Padding(4)
Me.mtxtRabatt.Metrocolor = System.Drawing.Color.FromArgb(CType(CType(209, Byte), Integer), CType(CType(211, Byte), Integer), CType(CType(212, Byte), Integer))
Me.mtxtRabatt.Name = "mtxtRabatt"
Me.mtxtRabatt.NullString = ""
Me.mtxtRabatt.Size = New System.Drawing.Size(132, 22)
Me.mtxtRabatt.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
Me.mtxtRabatt.TabIndex = 5
Me.mtxtRabatt.Text = "1.00"
Me.mtxtRabatt.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.mtxtRabatt.ThemeName = "Default"
'
'mtxtTaxpunktwert
'
Me.mtxtTaxpunktwert.BackGroundColor = System.Drawing.SystemColors.Window
Me.mtxtTaxpunktwert.BeforeTouchSize = New System.Drawing.Size(132, 22)
Me.mtxtTaxpunktwert.Cursor = System.Windows.Forms.Cursors.IBeam
Me.mtxtTaxpunktwert.DoubleValue = 1.0R
Me.mtxtTaxpunktwert.Location = New System.Drawing.Point(253, 134)
Me.mtxtTaxpunktwert.Margin = New System.Windows.Forms.Padding(4)
Me.mtxtTaxpunktwert.Metrocolor = System.Drawing.Color.FromArgb(CType(CType(209, Byte), Integer), CType(CType(211, Byte), Integer), CType(CType(212, Byte), Integer))
Me.mtxtTaxpunktwert.Name = "mtxtTaxpunktwert"
Me.mtxtTaxpunktwert.NullString = ""
Me.mtxtTaxpunktwert.Size = New System.Drawing.Size(132, 22)
Me.mtxtTaxpunktwert.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
Me.mtxtTaxpunktwert.TabIndex = 3
Me.mtxtTaxpunktwert.Text = "1.00"
Me.mtxtTaxpunktwert.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
Me.mtxtTaxpunktwert.ThemeName = "Default"
'
'lblRabattwert
'
@ -1353,7 +1341,7 @@ Partial Class Benhandungdetail
Me.lblRabattwert.Location = New System.Drawing.Point(11, 206)
Me.lblRabattwert.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblRabattwert.Name = "lblRabattwert"
Me.lblRabattwert.Size = New System.Drawing.Size(81, 17)
Me.lblRabattwert.Size = New System.Drawing.Size(75, 16)
Me.lblRabattwert.TabIndex = 38
Me.lblRabattwert.Text = "Rabatt in %"
'
@ -1363,7 +1351,7 @@ Partial Class Benhandungdetail
Me.lblTaxpunkte.Location = New System.Drawing.Point(11, 174)
Me.lblTaxpunkte.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblTaxpunkte.Name = "lblTaxpunkte"
Me.lblTaxpunkte.Size = New System.Drawing.Size(74, 17)
Me.lblTaxpunkte.Size = New System.Drawing.Size(70, 16)
Me.lblTaxpunkte.TabIndex = 37
Me.lblTaxpunkte.Text = "Taxpunkte"
'
@ -1373,7 +1361,7 @@ Partial Class Benhandungdetail
Me.lblFrankenwert.Location = New System.Drawing.Point(11, 138)
Me.lblFrankenwert.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblFrankenwert.Name = "lblFrankenwert"
Me.lblFrankenwert.Size = New System.Drawing.Size(86, 17)
Me.lblFrankenwert.Size = New System.Drawing.Size(80, 16)
Me.lblFrankenwert.TabIndex = 36
Me.lblFrankenwert.Text = "Frankenwert"
'
@ -1383,7 +1371,7 @@ Partial Class Benhandungdetail
Me.chkMitdatum.Location = New System.Drawing.Point(15, 267)
Me.chkMitdatum.Margin = New System.Windows.Forms.Padding(4)
Me.chkMitdatum.Name = "chkMitdatum"
Me.chkMitdatum.Size = New System.Drawing.Size(167, 21)
Me.chkMitdatum.Size = New System.Drawing.Size(156, 20)
Me.chkMitdatum.TabIndex = 8
Me.chkMitdatum.Text = "Leistungen mit Datum"
Me.chkMitdatum.UseVisualStyleBackColor = True
@ -1394,7 +1382,7 @@ Partial Class Benhandungdetail
Me.chkAndrucken_Taxpunkte.Location = New System.Drawing.Point(239, 238)
Me.chkAndrucken_Taxpunkte.Margin = New System.Windows.Forms.Padding(4)
Me.chkAndrucken_Taxpunkte.Name = "chkAndrucken_Taxpunkte"
Me.chkAndrucken_Taxpunkte.Size = New System.Drawing.Size(140, 21)
Me.chkAndrucken_Taxpunkte.Size = New System.Drawing.Size(132, 20)
Me.chkAndrucken_Taxpunkte.TabIndex = 7
Me.chkAndrucken_Taxpunkte.Text = "TP/Fr. andrucken"
Me.chkAndrucken_Taxpunkte.UseVisualStyleBackColor = True
@ -1405,7 +1393,7 @@ Partial Class Benhandungdetail
Me.chkRabattGesamt.Location = New System.Drawing.Point(15, 239)
Me.chkRabattGesamt.Margin = New System.Windows.Forms.Padding(4)
Me.chkRabattGesamt.Name = "chkRabattGesamt"
Me.chkRabattGesamt.Size = New System.Drawing.Size(190, 21)
Me.chkRabattGesamt.Size = New System.Drawing.Size(179, 20)
Me.chkRabattGesamt.TabIndex = 6
Me.chkRabattGesamt.Text = "Rabatt auf Gesamtbetrag"
Me.chkRabattGesamt.UseVisualStyleBackColor = True
@ -1442,7 +1430,7 @@ Partial Class Benhandungdetail
Me.lblAnsatz.Location = New System.Drawing.Point(11, 105)
Me.lblAnsatz.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblAnsatz.Name = "lblAnsatz"
Me.lblAnsatz.Size = New System.Drawing.Size(51, 17)
Me.lblAnsatz.Size = New System.Drawing.Size(47, 16)
Me.lblAnsatz.TabIndex = 27
Me.lblAnsatz.Text = "Ansatz"
'
@ -1465,7 +1453,7 @@ Partial Class Benhandungdetail
Me.lblAbrechnungstyp.Location = New System.Drawing.Point(11, 70)
Me.lblAbrechnungstyp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblAbrechnungstyp.Name = "lblAbrechnungstyp"
Me.lblAbrechnungstyp.Size = New System.Drawing.Size(111, 17)
Me.lblAbrechnungstyp.Size = New System.Drawing.Size(104, 16)
Me.lblAbrechnungstyp.TabIndex = 25
Me.lblAbrechnungstyp.Text = "Abrechnungstyp"
'
@ -1488,7 +1476,7 @@ Partial Class Benhandungdetail
Me.lblRechnungstyp.Location = New System.Drawing.Point(11, 36)
Me.lblRechnungstyp.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblRechnungstyp.Name = "lblRechnungstyp"
Me.lblRechnungstyp.Size = New System.Drawing.Size(99, 17)
Me.lblRechnungstyp.Size = New System.Drawing.Size(93, 16)
Me.lblRechnungstyp.TabIndex = 23
Me.lblRechnungstyp.Text = "Rechnungstyp"
'
@ -1610,7 +1598,7 @@ Partial Class Benhandungdetail
Me.lblDiagnose.Location = New System.Drawing.Point(12, 66)
Me.lblDiagnose.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblDiagnose.Name = "lblDiagnose"
Me.lblDiagnose.Size = New System.Drawing.Size(68, 17)
Me.lblDiagnose.Size = New System.Drawing.Size(66, 16)
Me.lblDiagnose.TabIndex = 219
Me.lblDiagnose.Text = "Diagnose"
'
@ -1628,7 +1616,7 @@ Partial Class Benhandungdetail
Me.lblGLNListe.Location = New System.Drawing.Point(12, 34)
Me.lblGLNListe.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblGLNListe.Name = "lblGLNListe"
Me.lblGLNListe.Size = New System.Drawing.Size(76, 17)
Me.lblGLNListe.Size = New System.Drawing.Size(69, 16)
Me.lblGLNListe.TabIndex = 221
Me.lblGLNListe.Text = "GLN-Liste:"
'
@ -1665,7 +1653,7 @@ Partial Class Benhandungdetail
Me.lblBehandlungsart.Location = New System.Drawing.Point(12, 98)
Me.lblBehandlungsart.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblBehandlungsart.Name = "lblBehandlungsart"
Me.lblBehandlungsart.Size = New System.Drawing.Size(108, 17)
Me.lblBehandlungsart.Size = New System.Drawing.Size(101, 16)
Me.lblBehandlungsart.TabIndex = 226
Me.lblBehandlungsart.Text = "Behandlungsart"
'
@ -1698,7 +1686,7 @@ Partial Class Benhandungdetail
Me.lblBehandlungsgrund.Location = New System.Drawing.Point(12, 133)
Me.lblBehandlungsgrund.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.lblBehandlungsgrund.Name = "lblBehandlungsgrund"
Me.lblBehandlungsgrund.Size = New System.Drawing.Size(82, 17)
Me.lblBehandlungsgrund.Size = New System.Drawing.Size(74, 16)
Me.lblBehandlungsgrund.TabIndex = 223
Me.lblBehandlungsgrund.Text = "Beh.-Grund"
'
@ -1746,7 +1734,7 @@ Partial Class Benhandungdetail
Me.Label9.Location = New System.Drawing.Point(175, 25)
Me.Label9.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(102, 17)
Me.Label9.Size = New System.Drawing.Size(98, 16)
Me.Label9.TabIndex = 6
Me.Label9.Text = "Firmenadresse"
'
@ -1764,7 +1752,7 @@ Partial Class Benhandungdetail
Me.Label8.Location = New System.Drawing.Point(8, 25)
Me.Label8.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(95, 17)
Me.Label8.Size = New System.Drawing.Size(91, 16)
Me.Label8.TabIndex = 4
Me.Label8.Text = "Privatadresse"
'

@ -205,37 +205,37 @@
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAF8LSURBVHhe7d0HeFvV3QZwQz/6fbS0sZUEx7F0JY/Y2XtP
AiEJCXtvKLSlUFYplLbQqljLSQgQEgJhhBFSkpDElu04k2wSnL33XmQw4kxWON890rEty39J9+hKtiS/
YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAAF8KSURBVHhe7d0HeFvV3QZwQz/6fbS0sZUEx7F0JY/Y2XtP
AiEJCXtvKLSlUFYplLbQqljLSQgQkgBhhBFSkpDElu04k2wSnL33XmQw4kxWON890rEty39J9+hKtiS/
7/P8Hvp9BEfWkfT+pXvuVRKCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiC
IAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCIAiCRDP9rEn/o9gbdTTnp9xpcaT8wexMuSsj39C1
pTXpl+KPIAiCIAiSKLHYks0WZ8oYi9XwjcVlYP7Mrl+dNjsNE8yuBh3Ef4IgCIIgSNyGJV2kFv+zBqvh
O6r4acnv5g5r+BvxExAEQRAEiafwj/vNzpQP6ZIPzuwwbFDsjdLEj0IQBEFiJlOSfpGZn9LANKxh0yxb
ikn93wr/mNfsamDhFFuDDMXVIJP//3JevqyR2Wr+P/5u0PsfIwkf9fFhcRomUuWuldll2IhPAhAEQaIZ
a9LF2Y7LGmc4ktuq79gGqy+8D6kvwC+q3rC4UgoUl2Gh+s/V6r/bke5KPmpxXXbW94VawoV016XlFleD
I/xnqf/3WvXnzhNFMVL9389ZnA3vy8g3XJ3hSm7DbxOGhjiMWv78eL7PuuuQMl78VARBECSsqEWanW8w
mh0N+1vyUx5RX1xHqkVfrLiSt6dZDT/UfOGNDXxzmPrPteptnWJxpjjUYvldZn5K7wzH5akYDmIwnvIP
72P/QLAxEEEQRGOMI42Xqu+qu5mdyY9ZnMnvWeyGNTretccsdXA56fl0wpn8Cv/kINOR0pofdxZ3A1Lb
sSZdrA5p71NrpYv6M8XfgCAIglSEF17msIad1RfKJ/gLJd88ZbEafqrxIlpvNDivOJPLFKfhLbPL8CDf
h4BPCmohnvJXh01yTXSyGr7hP1/8TQiCIPUzncYlXWLON3RXy/559V1+qcl66SnyRRMqme2/Oaj+82N+
4ZkMZ6McDAQRjlrO6uD5jv/9HkmZwxo1E38bgiBIPYlaVt7NeYZ/mJ3JcyzWX5+hXiBBgr3Bl4rLMEkd
oB7wbDREwo+3/MeR93MEKY6GV4m/EUEQJHHDT5kz56dco77wvWGyGfb7vxhCBFkNP6v/XGZ2Gf7JBy18
OiAR9b5S77s3q92fGmXkN2Sd3skm/x0lw5l8rfhbEQRBEiv8XHnFYXhYcaQUJuKGvXihuAwHLE7DWNVA
bCgMEm/5v+F//2k1pLgXu35mX/LfUTAAIAiSUGlpbXyZ2ZV8t1o2Jeo70B+pFz6oO/yaB2ZXyih1fbrh
kwGfqPeFer+Mpu4zLa4p6skeWX8HBgAEQepX+LeeZbiSr1NL5RO8048fauHtNDtTXrIMa5grlrJ+xlv+
o6j7SIvB7h6e8vcOAP3IP0PBAIAgSNyGn6PuedcU4NvQYlnmiEYs+5XGLGfU5Sx3TCprMTaNtRzXlLV+
N521ed/I2n5gqvKhH/X/1/o9I2v1Trr636Sx5mObeH4G/1n8Z2YMa0j+nbEtZRW/mBL/BEcsb/2I52P/
a9LF2Y7LGmc4ktuq79gGqy+8D6kvwC+qxlpcKQWKy7BQ/edq9d/tSHclH7W4Ljvr+0It4UK669Jyi6vB
Ef6z1P97rfpz54miGKn+7+cszob3ZeQbrs5wJbfhtwlDQxxGLX9+PN9n3XVIGS9+KoIgCBJW1CLNzjcY
zY6G/S35KY+oL64j1aIvVlzJ29Oshh9qvvDGBr45TP3nWvW2TrE4UxxqsfwuMz+ld4bj8lQMBzEYT/mH
97F/INgYiCAIojHGkcZL1XfV3czO5McszuT3LHbDGh3v2mOWOric9Hw64Ux+hX9ykOlIac2PO4u7Aant
WJMuVoe096m10kX9meJvQBAEQSrCCy9zWMPO6gvlE/yFkm+eslgNP9V4Ea03GpxXnMllitPwltlleJDv
Q8AnBbUQT/mrwya5JjpZDd/wny/+JgRBkPqZTuOSLjHnG7qrZf+8+i6/1GS99BT5ogmVzPbfHFT/+TG/
8EyGs1EOBoIIRy1ndfB8x/9+j6TMYY2aib8NQRCknkQtK+/mPMM/zM7kORbrr89QL5Agwd7gS8VlmKQO
UA94Nhoi4cdb/uPI+zmCFEfDq8TfiCAIkrjhp8yZ81OuUV/4xppshv3+L4YQQVbDz+o/l5ldhn/yQQuf
DkhEva/U++7NavenRhn5DVmnd7LJf0fJcCZfK/5WBEGQxAo/V15xGB5WHCmFibhhL14oLsMBi9Pwhmog
NhQGibf8x/rff1oNKe7Frp/Zl/x3FAwACIIkVFpaG19mdiXfrZZNifoO9EfqhQ/qDr/mgdmVMkpdn274
ZMAn6n2h3i+jqftMi2uKerJH1t+BAQBBkPoV/q1nGa7k69RS+QTv9OOHWng7zc6UlyzDGuaKpayf8Zb/
KOo+0mKwu4en/L0DQD/yz1AwACAIErfh56h73jUF+Da0WJY5ohHLfqUxyxl1Ocsdk8pavJHGWo5rylq/
m87avG9kbT8wVfnQj/r/a/2ekbV6J139b9JY8zeaeH4G/1n8Z2YMa0j+nbEtZRW/mBL/BEcsb/2I52P/
lFfp+yS0wYXdK8v/T+vvxACAIEjiJntU0v8qzuR7zA7DEupFLRbwcs8dneopaF7YHf5rZp2nZrJu7mzW
szSH9ZnXnPX9rEVU9Z7TnPWckcO6FWaxLp9mso6fWFi7DxXWSh0ycl5PZZnDY3NIEKdgvsGHO7HkiRvv
Mf+Rvr+/jEF+5Y8BAEGQhEyWs3G22WkYrhb/CerFrC40e/Vyz7v2dmrJd5qSwboXZXuKlyrkutLvs5Ze
81uyK+a3Elqz/qq+s1uyHkW5rMuULNb+QzNr+WZTlvVyY/J3rQtml2Gx2ZlyFx/6xMMgceL52N8wgvq9
tRhU0M2n/MUAsOFOdsPMK8g/T8EAgCBI7MbzItnwCovTUEq9gNWafLXsX7uctXq7Kesw0ex5Vx1rRU8J
Vv4eC9qwKyu1ZVd5tGNXzGnNehbksk4TM1nrcUbW7JXL6fulliguw3G+V4Cf1SEeGfEdb/kPo35XLQZO
70qW/6Mb7sIAgCBInGdK0i/UF/1b+OVnqReuaOPnU/Nj6vzj+67Ts1ifOCh7f+GVv2phOzbAo73H1R4d
WP+5bVmPabms/ftmljMqlbzfou+ys+og8Br/mmTxSIm/eI/5O+nfL7SrA5Y/BgAEQeI4/GI9/NKy6os8
/1pb8kUrGjLUd/i5Y5qwdh+phV+gFv7c+Cv86qjybxV2+V+9qAMb6NHRY9CiTmzAvPasZ0Fz1uGDDJbz
Wu0OBJ7TO/l3NOQbWoiHTnzEW/526nfS4uppXYKWP3cjBgAEQeIp3m/aS3mWX06WeqGKBr5Rj3+k3/nT
jLj4OF9GRfn38yn/ynf/aulXDQDhlX+FwYs7V7pqTnvWbVIz1mpsuucTFOo+jzh+xUFHynT+xU3ioRTT
szSH9ZnXnPX9rEVU9Z7TnPWckcO6FWaxLp9mso6fWFi7DxXWSh0ycl5PZZnDY3NIEKdgjuXDnVjyxI33
mP9I399fxiC/8scAgCBIQibL2Tjb7DQMV4v/BPViVheavXq55117O7XkO03JYN2Lsj3FSxVyXen3WUuv
+S3ZFfNbCa1Zf1Xf2S1Zj6Jc1mVKFmv/oZm1fLMpy3q5Mfm71gWzy7DY7Ey5iw994mGQOPF87G8YQf3e
Wgwq6OZT/mIA2HAnu2HmFeSfp2AAQBAkduN5kWx4hcVpKKVewGpNvlr2r13OWr3dlHWYaPa8q461oqcE
K3+PBW3YlZXasqs82rEr5rRmPQtyWaeJmaz1OCNr9srl9P1SSxSX4TjfK8DP6hCPjPiOt/yHUb+rFgOn
dyXL/9ENd2EAQBAkzjMl6Rfqi/4t/PKz1AtXtPHzqfkxdf7xfdfpWaxPHJS9v/DKX7WwHRvg0d7jao8O
rP/ctqzHtFzW/n0zyxmVSt5v0XfZWXUQeI1/TbJ4pMRfvMf8nfTvF9rVAcsfAwCCIHEcfrEefmlZ9UWe
f60t+aIVDRnqO/zcMU1Yu4/Uwi9QC39u/BV+dVT5twq7/K9e1IEN9OjoMWhRJzZgXnvWs6A56/BBBst5
rXYHAs/pnfw7GvINLcRDJz7iLX879TtpcfW0LkHLn7sRAwCCIPEU7zftpTzLLydLvVBFA9+oxz/S7/xp
Rlx8nC+jovz7+ZR/5bt/tfSrBoDwyr/C4MWdK101pz3rNqkZa/VGuucTFOo+jzh+xUFHynT+xU3ioRTT
8ZzySP0eGlw1tbNa/Lf7DADeTX8VH/1zj2EAQBAkXsLP3ze7kh+12H97mHqBijR+HJ+fQsd34/uXZqII
Wv7V3v239RkA2lUbACrLX6Wl/K9Z3EXoyoYs6coGL+zMehe0Yu3fM7MsddCi1iLiHMlTzY6GzcVDK+Zi
cRqs5O3WQEv5eweAuzEAIAgS45mS9Av+XfPqi9Ae/xelSOPnxfPS71HcjCzMRBKJ8vcOAN7y977795a/
@ -245,117 +245,117 @@
jXwA6E/+LAoGAARBaiVmV4MO6ovOUv8XoYhRC6XFm2msy7RM1nceXZKJqvbK3/fdf1X5X1NZ/r4DQPXy
v86jp9fnPdmQBd1Y90nNWc6rUd1A+K3FmfJ8XV1HgH/dNHGbNOk/paN0+f954z0YABAEiZ14vpHPaXhL
fEUs+UKkR9bLjTyn6/Er7FHlmOjCK39VLZZ/tQFALf/rP+9V6YbPe7P+xe1Z27fNUds86DmrJD9lkHhI
1kr44EHdFi2umNwhSPlXDQD+5Y8BAEGQmAj/2tcMp+Fx9YXmW/8Xnkho/kYTzw7++vZuvzqq/CN7up98
+XsHALL8Vf7lX+HGZX3YkPndWbeJuSx7ZJQuPORInlob1xCwuFKeI/9+Da6YFH75czfNupL8uRQMAAiC
RDzqC20/s8OwgXrR0YMfN+an7tWHDX1aVJR/RE73U4Wz41+u/KsGAP/y9+rLblLd+Hkf1nd6W9Z8VBr5
ONDnsrPm/JS/8zNQxMM1ojE7U56h/97Q+n3Snv3RU/6+A4Ba/n4f/fPT/SoGAN/yf3zjvRgAEASpm5it
DZItzuT3qBcbPfju8TbjjaznzPr5MT8laPlXe/cfvdP9Ilv+fTzl79WP3bzc68qiDqzlmHTycaGHyZm8
LcNlGCAeuhGJ2Wl4mvq7tOirsfyrv/uvXv4YABAEqZNYnA2vj/T5/Hw3f7uPFNZ7di5ZgvWV9vL3ffcf
3dP9qsrfOwBEovxvXn4Fu0W4urQza/OWQj5OdHGmjOEXohIP47BjcRqeJH++Bn3/2y6M8vd99+8tf88A
MBsDAIIgtRS+yU998ZtIvcCEixd/+wlKAlySN/I85V/juH845S8GgADlr+d0v8DlXzUAyJT/Lcv7s1u/
8LpmTnfW9i0z+bgJm6PBFosruZ14SEtH7HWhf3YIfcjy9z3ur738H990H7sZAwCCIFEPv655fsrt/Jva
qBeXcPCP+vmO/kS7NG+k1F75h7/j37f8qR3/gcu/b8jyv/WLK9ltHlexQTO7slZjjOTjKByNXYbv+fH7
JGvSxeIRrimKq+GfqZ+nRZ+JbSNa/k9gAEAQJNrhF1gxuwxTqBeVcPDTv/gx/l6z8FF/IOGVv6oWy7/a
ABCg/KsPAD7l7/Puv1r5Vw4AVeXP3c6VDWADijtFdLOg2Zk8xzSsYVPxUA8adWD4E/UztOj9cZsQ5V81
ANDlX3Xcv6L8vQPAVeTfR8EAgCCIVBRHSi+TzbCfekEJR8txTevtOfzaUeUfv6f7+Zc//dF/f+8AUK38
vQNARflzd/B/fjGA9Z/enjUbGbGLCn1lcTW8QTzkyVhcKX8k/jtNen3cOnLlv7Gq/J/YdD8GAARBohDP
9fsN/1JfOC74v5CEI2fU5axbYRZRduCvovwT7XQ/reVf492/T/nfUXa1x52q25YPYD0mtojYBYX4BaxS
R6T+WjwDKpPhSvk99ee16DVBLf91t2va9BfsdD+q/J/EAIAgSKSTnW8wKg7DIupFRBbf4NfxEzNZdFBT
0PKv9u4/vk/3o4/7U+XvOwB4y98zAKwYKAxiNy7oG7GNgvx0QcXeqKN4KiSZXYaHqD+nRc+PWmku/+rv
/qnyv7dG+XsHgAHk303BAIAgSNDwj0LVd/5fUy8gUvINrPV76TilT4L28vd99x+p0/0C7/j3lr93AIiJ
8i+rKP+B7C51APAazK4u6sJyXtF/WCDNaviBX93PU/5hXtI6/PIPvumPl3/VAPAAuwUDAIIguuP5yD/F
Qb1wyOLfw9+9qP58M18keMq/xnH/cMpfDAAByj9WT/fTW/53cysHszu+GMh6TmwZte8Z0KLHhy0DlL/v
cf9wyt/33f8D7MnNGAAQBNEZ7xX9DCXUi4YMfunedh+aWJ96fb1+ebVX/uHv+Pct/2ie7ucpf88AQB33
p8p/UGX5373yGnaPcOP8fqz1GBP5OI0mXv5/WHtb9Mtf9RQGAARB9MScb2jh+fY04gVDRs7rqaw7rtkv
LbzyV9Vi+VcbAAKUf/UBwKf8fd79Vyt/n4/+I13+96wcwu5V8f/d79P2LHNYI/IxG2ndP2ihlv+tIcq/
agCgy58+3Y8q/6c2P4gBAEGQ8MKP95usl56iXiy04hfz4Vfxq9/f0hcuqvxxup98+Q+uUf73ruKGsvtU
tyy8krV+I7qfBkS8/Ikd/xUDQEX5YwBAEEQ+/Kp+LsO//V8gZPFj/fimvvBVlD9O96s47k+Vv0pH+Xtd
y+5bOZT1ndwuKnsDur3f3Fv+UTzdjyr/pz0DwNXkbaJgAECQep5O45IuUVwpH1AvEDJav5uOa/frELT8
q737x+l+XuGX//0e17H7V1/HbvysH2v+WlPyMR2OrpLlX/3dP1X+9Ol+VeXvHQB4+T+9+XcYABAE0Zbc
YQ1/ozgNs6gXB634ef2dP80kSw200V7+vu/+cbqfl1r8QY77Byv/BzyuZ/eUDWFdxueQj28ZXcfn6ij/
UJv+qp/uR5U/d+scDAAIgoSIeXjjJhZXymrqhUGr3DGprBe+o18XT/nXOO4fTvmLASBA+Sf66X6Byr9q
ALi2agDwKX/uQY8b2NWFXcPeINglaPmLASDs8vd99+893a/6R//e8v/LFgwACIKESIazUY76ArDH/wVB
RtsPTGShgXa1V/7h7/j3Lf94ON2P/ui/evl7BwBv+XsHgBvYg2u8bl04QPqQQJf3cmqv/Inj/lUDwEMY
ABAECRxzvqG7+uT/yv/FQCu+y7/zpxlkoYF24ZW/qhbLv9oAEKD8qw8APuXv8+6/WvlXDgB1Wf6+7/6r
yv93a270uLfsWtbx7Szy8e+vqvxDnetfNQDQ5S93ul/N8scAgCBIkJhdDa+wuC47S70YaJH9SmPs8o8I
qvxxup98+Yfa9Cdf/txDa27y/LPnhFbk86BC53ebsYfX3BLZ8pfY8e9f/txtcwaSt5WCAQBB6kkUR8Or
LNbfnqNeCLRo/kYTXMc/QirKH6f7VRz3p8pfpav8vQNAOOXvsfYm9vDam9lV0zqRpwp28i3/Ojjdjyr/
Z7Y8jAEAQZDqsTgNAy2uBuepFwEt2rxvxIV9IiRo+Vd794/T/bx0lr/fjn9v+VcNAMHK3+sWdm1p72qb
Azu9ky1d/tXf/VPlL3e6X83yxwCAIIhfzM6UwQar4TvqBSCkfAPr8N/Y/urePvOas56lOaybO9uzN6HD
RDNr+6GJtRlvZK3ebspavJnGcsc0YbmjUz2XJ84ZdbnngkUc/9/8/8fPZuCfcLR4K421ejfdM/C0m6B4
vra4y9RMzxcZ9Zql/9MP7eXv++4fp/t5qcUf9Lh/dMr/98KtCwawZi+nso5vhyp/34/+qfIPtemv+ul+
wXb8+5e/dwAYRD+XCRgAECSBo7iShzZ2Gb6nnvyheDb7qeVHFVld4CXPy7j9x4rnokO8sLNG1s413Svw
Lzfi+yD4UMGHhI6fWFjXgixNh0Y85V/juH/ky1/2dD9t5V81AIRX/t4BIJrlH+i4f/jlf3Nl+f9+3a3s
D6p7lw2Ncvn7vvvXVv7eAcBb/hgAEATxhD+5vd9jTj/5g+EX9+HvqKkiqw287DtNyfCULH/3njm87r7K
VSs+GLR8K83zPQhdp6tDwZyqqyJGrvzFABCw/MPf8R9++Ydxul+18vc97k+Vf6gd/4HL3zsAeMvfOwDU
PO6vtfy9ePEL0S7/oMf96fL/69bfYwBAkPoeiyu5b7jH/D07/Utqd6d/jxnNPIcaWo5rWuvv6qMm3/uN
iG3fN3k+ueijDgTay19Vi+VfbQDwKX/vABCi/H3e/Vcrf5+P/quVv2cAiFT5eweAcMu/cgBQy/+hiJV/
1QBAl3+o0/28A0Dg8vf96L96+WMAQJB6HrO9Qft016Xl1BM+lGajLo/Ise5QeBnywwut30v3DBzUbUk0
/PAB/zSjwwQz61Wcq6P8qwaAiJe/591/zfKvPgCELn/f4/7e8vcOALF4up9/+Vce91/nOwDcVjUAaC7/
qgGALP8I7Pj3L3/udgwACFI/Yxr+26x0V/JR6skeCn+3Gs3T/PjP7jjJ4jl+zvcXULehPska2Zi1HW9i
Pd05+spfVVX+enf8ay9/2XP9vR/9U+Wv0lX+3gEgouVf7d2/T/lH7HS/UDv+wyv/Z7f+AQMAgtTHKPZG
aeqTOqzL+3rK3+eYdaTwbwfsNNni2bDHPxKn/m7wDgPt3ldYr+IW1QaAxDrdr2b5ewYAUf66T/cjy79q
AKhR/jWO+0em/L0DQMVH/6HL3/e4v7f8vQNAqNP9qPLHAIAg9TCKq0GK2WHYQD3JQ8kZHfny5zvjW73T
lGXEwea9WJMzKpV1/iSL9Z/XtrL8Ax33ryh+Tnv5eweA2i1/3wEgePnX9el+9HH/cMo/1Ka/wOXvHQDk
y5+7Y+5g8nFFwQCAIHGe7FFJ/2t2GRZTT/BQ+LnxkSp//nP4OfjZr9aPY/rRxq8+1/ptI+td3IIs/9g8
3S/65/oHOu4fydP9Qpe/73H/cMrfOwBUlH84p/tR5f/c1j9iAECQehOWdJHiSvmAenKHwi9+wzfjUWUu
g383AD8vH8f1oyf39Sas+6c5bOBCMQAEKH+c7hf4uH945a+KdvkHPe4fvPz/6lP+z6rl/9w2DAAIUm9i
caY8Sz2xQ+HH/PWWf7fCLM+GPurnxxSr4WfPWRH2Bl+abIb9Fqdhl8mZvE1xJW+32Ay7+f/P6Eg5pudL
kmpL9suNWef/ZrGBCzqGVf7VBgCc7qez/KsGALr8Q53uF6r8fT/611b+3gHgGvKxQ8EAgCBxGn6VP15u
1BM7GP4RvZ7d/l2mZXoOHVA/u5ZdUAt8r8WR8pnFlfyu+n+/aHYafmfOT7nG7GrQITvfYMwd1vA3Sdak
i8VdFjL9rEn/Y7Y2SOZnUyj5KT3NLsNNZlfyo+rQ4FJ9ot7nX5gdhhN+t6PWZY1oxDp/rA4C8zuFV/6e
d/81y7/6ABC6/H0/+veWv3cAiKWv9g1U/vF+uh9V/s9tewQDAIIkekz5Ka1M1ktPUU/qYPhu854zc8hi
D4Vv7Kuz4rcavlHLd7ZayPmKM/kefq0Ds9X8f+LuqPVkOy5rbHEk9+PDgToQjLO4Ulart+1H8rZHUeZw
Pghks8ELO/uVv3cAiET543S/wJv+6vJ0P6r8/4YBAEESOzkvX9ZIffJKn+7HL+8bzhX+uruzvafxET8z
ahwNtihOw1tqwd7N343zvQ7i14/Z8IHE4jR0M7tS/mp2GorU3+PbGr9XlGS93Jh1n5zLhizuqqH8fY/7
U+Uf+dP9fMsfp/tVlL93AAj3dD+q/DEAIEgCp9O4pEsUl2Eh9WQOhm/Qk722f6+ZOZ5v06N+XqSpv9Nx
tTQn8MLPcFyeKn7d+M6UpF8o9kYdzS7DP80OwxKL1fAT9btHUs6rqaxPQStR/t4BoHbL33cA8Ja/ZwAI
VP5BP/onyh+n+1Wiyv9v2/7E7pyHAQBBEjJqmQyjnshB5RtYl+nav9WPX7yn3UdK1Hf1q++Ud/KP9DPy
DV1ljtPHa/i1GvjhC4sjZXq439OgVas3jezqOZ2ClH/VABD18sfpfpXlL/vVvr4DQLXyr3z3X738n8cA
gCCJGbMzZQj1JA5F5vv8+Qa/aF6bX32nf8Czoc6V3C4ePtaPVlpaG19myU+5XR2AiqP1yQC/jkCXCc3Y
0MXdJctf7+l+oco/1KY/nO4XrPzpj/695f/8dj4ADCEfDxQMAAgSB+E72tUn7Ff+T+BQ+JftUEXvj38B
EP8mPupn6NfgvDq8fGh2NOxfH97pyyZzROrlZqfhaXUY2Ejff/o0eyWVXVHU1mcA0Fr+ON3PW/5VAwBd
/nVzup9v+XsGALX8n9/+KAYABEmk8FPT1CfrUv8nbyh8417feXTh++Jf0MM3CFI/Q58GW9V/PsU/+ha/
ChIsLOmiDEdyH366YZrV8EPN+1Ofdu9a2NCFPYgBwKf8A5zuV7P8vQMATveru9P9qPLn7sIAgCCJE+9H
5vQTOBD+MX6oc/35u/5oXMjH7EyeY8lPGVSfP+LXG/Pwxk0szhSHen9G9EwCfiGhK9ztyPKXPd0vcPmr
gpZ/DH21bxyf7lf50b9P+f/dMwAMJdeeggEAQWI4ZmfKYOqJG0zm8IYhT/frMjUz0u/6L6iDykTPsX0k
YuEXMuKHByyu3x4i7vOwdXw/k12/pHeI8hfv/kX51zzuH7z86+vpfjXL3zsARPp0P6r8/779MQwACJII
4ceG+elx1BM3GF7uVOlzfIc/v24/9d+F6QI/fc8yrGGuuNlIFMKvMZDhNDxucTU4QqxBWHJfa8IGze4S
Zvn7DgDe8vcMACHKv76e7hd++Qc+3c9b/t4BoKL8MQAgSCKEJV1kcSRPpZ60wbR530gWP9dzRg7LGXU5
+d+FJ2Wa2dGwubjFSC3EONJ4qdll+IvFafiaXhM5/EyB3p+2jkz5x8zpfuGUv+9x/3DK3/fdf+2c7keV
/z8wACBI/MfiTLmDesIGw7/XP9Cmv86fZngODVD/nSx+URuzM6WHuKlIHYRvrFQHgRGNXYbvqTWS1eHd
DHbT0r5+5e8dAMIv/1Cb/nC6X7DyD3W6H1X+/9jxZwwACBLP4VfCU5+cUqf88eP5PUvpa/y3fd9I/jey
zPbfHOTnrmNzX+xEsTXIsLhSCqj1ktV8VBq7dn5PnO4XsPxj63Q/3wGgovy5uzEAIEicxvPRP79SHP2E
DYQ67t97TvOI7PL3npKW4kwdkfprcSuRGAt/Ifd8MyKxfjKyRjRmA0s7+5S/dwCoX6f7ifJXkeUfI6f7
VXv3v8N3ALiWXFsKBgAEiaHwa+FTT9RgqOP+/NOAZq9F4Hi/s8Fy/s2D4uYhMZw0a9qv+KmDZp3fSsj3
BfSb1lZD+auClj9O94tM+XsHAC3l/88dj2MAQJB4jGJvlMa/9pZ6ogbCN/X18Tvu370oOwKn+F12Vv3n
E/wLbcTNQ+Ik/KuS1bVbW3095XX7uLl3AAhR/jjdr6L8vQNA+Dv+9Zc/BgAEidOoT8iP/Z+gwfB3aj2K
q5/vz7/0R++X+Ciu5C8yhzVqJm4WEodpaU36pdmZYlPX84L/+sro+F4mu225dwioKH/PABCi/HG6n2z5
hzrdjyh/zwBQUf5VA8A9864j15KCAQBBYiD8G/GoJ2gw7SYo1cq/0+QMdSig/6wm/EtpnAYrv/SwuFlI
nEfJT+mpru2eGmstoe1bZnbrsit93v1XlL/vR/9q6Qc97o/T/fwHgGrlX/nu36/8fQYALeX/wo4n2D2f
YQBAkPgJ3/jnMizzf3IGk/N69VP+Okw0k39OK7PrV6c9l+9FEi6Z+SkNzC7DFGrdtWo1xshuWdo/zE1/
2srfOwDUPO5Plz9O96PK/4WdGAAQJK5izk+5k3pyBuL56N/nUr/tdZa/9zKzuIRvQkcdMvmVBPV8yVCL
19O9Q4BU+XsHAKr8vQNA8PKvHAD8Nv3pK/+qAYAu//g43a96+avU8scAkIBh6pN3irXxZQVWczLEhwVW
8/+J5QsafmU3k82wn3pyBtLe56P/9h8r5J/RSnEZ1vOvGhY3B0nwmPMN3S323x6mHgtatHi9Kbt16ZUR
Kn/fj/61lz9O96u+6c8zAIjyf3HnkxgAEiHTrJmXF9mV51SLVKdVDOKMNf2oO880vchhvnuKteUvxdJW
i9lpeIF6Ygbi+eg/UuXvNMzKthp+K24KUk/i+aZByUNOviqGgKryx+l+kSl/7wAQbvljAEiAlI7K/t8i
mymvyKqcI0sF4tWB4jzlVrHMnpiGNWxqsf76DPXEDISf4sfLn1/4h/r3Wpkdhnc6jUu6RNwUpJ6Ff7mQ
50uciMeGFi1HG9ntywZoKH/vABC0/MUAUKP8axz3F+XvGQDCL/9q7/7DKn/vABD+jv/olb93ALieXDMK
BoAYSonV3KTArqwgygMSx9gp4tx6iytlPPWkDKTV20095c+/1EfPdf3N+Sl/x+V8Ef4YMLtS/kM9RrRo
M1Zhd34xiBgAiPLH6X6VpMvfMwAE3vTnW/4v7nyK3YsBIP4yy2o0FOQZtxKFAYnng8xhDTtbrIafqScl
hZ/b32tmrufrfMO9wh//4hizM+Uu8ZBDEE/MLsNDnlNAicdMKO3HZXgOBQQqf993/7Vb/r7H/cMpf993
/7F5ul/N8n+S/YsPAPMxAMRVrNaki9120wyiKCABuVXtbYbd1BMykHYfmTzv/luOa0r++5Cshm8yHMl9
xEMOQarF4mx4vcFq+I587ITQ5f2cyvIPdNzft/y9A4C3/H0HALr8Q+34r4XyD3rc31v+3gEgePlH+nQ/
qvz/tQsDQNzFbVP+RhUFJKY8h1yJZ41s7HnnH/bpfnzYGNYwVzzcEISM2dXwCtk9KRV6T2oTsPy9A0Dw
8q8cAPw2/QUvf1XQ8q8aAOjyr/vT/XzL33cA0HK6H1X+/9r1NAaAeIrbofQqsio/UUUBiWeaqpNL7jr9
naZksK4FWcwSxlX+PJf1HZF6uXi4IUjQmJ0pPdJdl5ZTj6VQBhZ1DVD+vh/9ay//+nq6n7f8fQcAb/l7
BoCg5f8U+zcGgPhJkTWtkduuHKSKAhLTU44m5BMxkJzRqazXzByW9XIYX+7jSJnOvyFOPNwQRFMsTkM3
k/XSU+RjKojMYY3YDfP61U75a9z0F/p0v7oof/HuP9CmP4kd/3zTn2/5eweAG8j1oWAAqKPguH/9w9/9
t3bJ7d7vVpjFctUhgPp3QTlSPsM1/ZFw4/kOgTAOB+SMTGV3fD6ILn8xANQo/xrH/UX5ewaA8Mu/2rt/
svzj+3Q/3/LnH/1jAIij4Lh//fN3Rxr5JAyk5dtNWev30sl/F4zZ/puD+Ngf0RvF1fBKfuYI9RgLhp8e
eP/Ka33Kv+rdf3jl7x0Awi//UJv+4vN0P9/j/hXl/+9df2H3YQCI7YRz3H/WK63ZvtUj2X6IeTuWWsk1
HOLUfvoeP+2v3UfyV/rjL9j8mwXFQw1BdMXsMtykPq6kv1K458etaqn8fY/7h1P+vu/+5U/3C1j+le/+
/crfZwAIv/yrb/rzLX+rZwC4kVwTCgaAWk54x/3N7NSxeYxdOA5xYvcX9mpryE/9ayHx8X+LsWlhfq9/
1kr44EHdFi2umNwhSPlXDQD+5Y8BAEGQmAj/2tcMp+Fx9YXmW/8XnkhoPraJZwd/fXu3Xx1V/pE93U++
/L0DAFn+Kv/yr3Djsj5syPzurNvEXJY9MkoXHnIkT62NawhYXCnPkX+/BldMCr/8uZtmXUn+XAoGAARB
Ih71hbaf2WHYQL3o6MGPG/NT9+rDhj4tKso/Iqf7qcLZ8S9X/lUDgH/5e/VlN6lu/LwP6zu9LWs+Ko18
HOhz2Vlzfsrf+Rko4uEa0ZidKc/Qf29o/T5pz/7oKX/fAUAtf7+P/vnpfhUDgG/5P77xXgwACILUTczW
BskWZ/J71IuNHnz3eJvxRtZzZv38mJ8StPyrvfuP3ul+kS3/Pp7y9+rHbl7udWVRB9ZyTDr5uNDD5Eze
luEyDBAP3YjE7DQ8Tf1dWvTVWP7V3/1XL38MAAiC1EkszobXR/p8fr6bv91HCus9O5cswfpKe/n7vvuP
7ul+VeXvHQAiUf43L7+C3SJcXdqZtXlLIR8nujhTxvALUYmHcdixOA1Pkj9fg77/bRdG+fu++/eWv2cA
mI0BAEGQWgrf5Ke++E2kXmDCxYu//QQlAS7JG3me8q9x3D+c8hcDQIDy13O6X+DyrxoAZMr/luX92a1f
eF0zpztr+5aZfNyEzdFgi8WV3E48pKUj9rrQPzuEPmT5+x73117+j2+6j92MAQBBkKiHX9c8P+V2/k1t
1ItLOPhH/XxHf6JdmjdSaq/8w9/x71v+1I7/wOXfN2T53/rFlew2j6vYoJldWasxRvJxFI7GLsP3/Ph9
kjXpYvEI1xTF1fDP1M/Tos/EthEt/ycwACAIEu3wC6yYXYYp1ItKOPjpX/wYf69Z+Kg/kPDKX1WL5V9t
AAhQ/tUHAJ/y93n3X638KweAqvLnbufKBrABxZ0iulnQ7EyeYxrWsKl4qAeNOjD8ifoZWvT+uE2I8q8a
AOjyrzruX1H+3gHgKvLvo2AAQBBEKoojpZfJZthPvaCEo+W4pvX2HH7tqPKP39P9/Muf/ui/v3cAqFb+
3gGgovy5O/g/vxjA+k9vz5qNjNhFhb6yuBreIB7yZCyulD8S/50mvT5uHbny31hV/k9suh8DAIIgUYjn
+v2Gf6kvHBf8X0jCkTPqctatMIsoO/BXUf6Jdrqf1vKv8e7fp/zvKLva407VbcsHsB4TW0TsgkL8Alap
I1J/LZ4Blclwpfye+vNa9Jqglv+62zVt+gt2uh9V/k9iAEAQJNLJzjcYFYdhEfUiIotv8Ov4iZksOqgp
aPlXe/cf36f70cf9qfL3HQC85e8ZAFYMFAaxGxf0jdhGQX66oGJv1FE8FZLMLsND1J/ToudHrTSXf/V3
/1T531uj/L0DwADy76ZgAEAQJGj4R6HqO/+vqRcQKfkG1vq9dJzSJ0F7+fu++4/U6X6Bd/x7y987AMRE
+ZdVlP9Adpc6AHgNZlcXdWE5r+g/LJBmNfzAr+7nKf8wL2kdfvkH3/THy79qAHiA3YIBAEEQ3fF85J/i
oF44ZPHv4e9eVH++mS8SPOVf47h/OOUvBoAA5R+rp/vpLf+7uZWD2R1fDGQ9J7aM2vcMaNHjw5YByt/3
uH845e/77v8B9uRmDAAIguiM94p+hhLqRUMGv3Rvuw9NrE+9vl6/vNor//B3/PuWfzRP9/OUv2cAoI77
U+U/qLL87155DbtHuHF+P9Z6jIl8nEYTL/8/rL0t+uWvegoDAIIgemLON7TwfHsa8YIhI+f1VNYd1+yX
Fl75q2qx/KsNAAHKv/oA4FP+Pu/+q5W/z0f/kS7/e1YOYfeq+P/u92l7ljmsEfmYjbTuH7RQy//WEOVf
NQDQ5U+f7keV/1ObH8QAgCBIeOHH+03WS09RLxZa8Yv58Kv41e9v6QsXVf443U++/AfXKP97V3FD2X2q
WxZeyVqPje6nAREvf2LHf8UAUFH+GAAQBJEPv6qfy/Bv/xcIWfxYP76pL3wV5Y/T/SqO+1Plr9JR/l7X
svtWDmV9J7eLyt6Abu8395Z/FE/3o8r/ac8AcDV5mygYABCknqfTuKRLFFfKB9QLhIzW76bj2v06BC3/
au/+cbqfV/jlf7/Hdez+1dexGz/rx5q/1pR8TIejq2T5V3/3T5U/fbpfVfl7BwBe/k9v/h0GAARBtCV3
WMPfKE7DLOrFQSt+Xn/nTzPJUgNttJe/77t/nO7npRZ/kOP+wcr/AY/r2T1lQ1iX8Tnk41tG1/G5Oso/
1Ka/6qf7UeXP3ToHAwCCICFiHt64icWVspp6YdAqd0wq64Xv6NfFU/41jvuHU/5iAAhQ/ol+ul+g8q8a
AK6tGgB8yp970OMGdnVh17A3CHYJWv5iAAi7/H3f/XtP96v+0b+3/P+yBQMAgiAhkuFslKO+AOzxf0GQ
0fYDE1looF3tlX/4O/59yz8eTvejP/qvXv7eAcBb/t4B4Ab24BqvWxcOkD4k0OW9nNorf+K4f9UA8BAG
AARBAsecb+iuPvm/8n8x0Irv8u/8aQZZaKBdeOWvqsXyrzYABCj/6gOAT/n7vPuvVv6VA0Bdlr/vu/+q
8v/dmhs97i27lnV8O4t8/PurKv9Q5/pXDQB0+cud7lez/DEAIAgSJGZXwyssrsvOUi8GWmS/0hi7/COC
Kn+c7idf/qE2/cmXP/fQmps8/+w5oRX5PKjQ+d1m7OE1t0S2/CV2/PuXP3fbnIHkbaVgAECQehLF0fAq
i/W356gXAi2aj22C6/hHSEX543S/iuP+VPmrdJW/dwAIp/w91t7EHl57M7tqWifyVMFOvuVfB6f7UeX/
zJaHMQAgCFI9FqdhoMXV4Dz1IqBFm/eNuLBPhAQt/2rv/nG6n5fO8vfb8e8t/6oBIFj5e93Cri3tXW1z
YKd3sqXLv/q7f6r85U73q1n+GAAQBPGL2Zky2GA1fEe9AISUb2Ad/hvbX93bZ15z1rM0h3VzZ3v2JnSY
aGZtPzSxNuONrNXbTVmLN9NY7pgmLHd0qufyxDmjLvdcsIjj/5v///jZDPwTjhZvpbFW76Z7Bp52ExTP
1xZ3mZrp+SKjXrP0f/qhvfx93/3jdD8vtfiDHvePTvn/Xrh1wQDW7OVU1vHtUOXv+9E/Vf6hNv1VP90v
2I5///L3DgCD6OcyAQMAgiRwFFfy0MYuw/fUkz8Uz2Y/tfyoIqsLvOR5Gbf/WPFcdIgXdtbI2rmmewX+
5UZ8HwQfKviQ0PETC+takKXp0Iin/Gsc9498+cue7qet/KsGgPDK3zsARLP8Ax33D7/8b64s/9+vu5X9
QXXvsqFRLn/fd//ayt87AHjLHwMAgiCe8Ce393vM6Sd/MPziPvwdNVVktYGXfacpGZ6S5e/eM4fX3Ve5
asUHg5ZvpXm+B6HrdHUomFN1VcTIlb8YAAKWf/g7/sMv/zBO96tW/r7H/anyD7XjP3D5ewcAb/l7B4Ca
x/21lr8XL34h2uUf9Lg/Xf5/3fp7DAAIUt9jcSX3DfeYv2enf0nt7vTvMaOZ51BDy3FNa/1dfdTke78R
se37Js8nF33UgUB7+atqsfyrDQA+5e8dAEKUv8+7/2rl7/PRf7Xy9wwAkSp/7wAQbvlXDgBq+T8UsfKv
GgDo8g91up93AAhc/r4f/VcvfwwACFLPY7Y3aJ/uurScesKH0mzU5RE51h0KL0N+eKH1e+megYO6LYmG
Hz7gn2Z0mGBmvYpzdZR/1QAQ8fL3vPuvWf7VB4DQ5e973N9b/t4BIBZP9/Mv/8rj/ut8B4DbqgYAzeVf
NQCQ5R+BHf/+5c/djgEAQepnTMN/m5XuSj5KPdlD4e9Wo3maH//ZHSdZPMfP+f4C6jbUJ1kjG7O2402s
pztHX/mrqspf745/7eUve66/96N/qvxVusrfOwBEtPyrvfv3Kf+Ine4Xasd/eOX/7NY/YABAkPoYxd4o
TX1Sh3V5X0/5+xyzjhT+7YCdJls8G/b4R+LU3w3eYaDd+wrrVdyi2gCQWKf71Sx/zwAgyl/36X5k+VcN
ADXKv8Zx/8iUv3cAqPjoP3T5+x7395a/dwAIdbofVf4YABCkHkZxNUgxOwwbqCd5KDmjI1/+fGd8q3ea
sow42LwXa3JGpbLOn2Sx/vPaVpZ/oOP+FcXPaS9/7wBQu+XvOwAEL/+6Pt2PPu4fTvmH2vQXuPy9A4B8
+XN3zB1MPq4oGAAQJM6TPSrpf80uw2LqCR4KPzc+UuXPfw4/Bz/71fpxTD/a+NXnWr9tZL2LW5DlH5un
+0X/XP9Ax/0jebpf6PL3Pe4fTvl7B4CK8g/ndD+q/J/b+kcMAAhSb8KSLlJcKR9QT+5Q+MVv+GY8qsxl
8O8G4Ofl47h+9OS+3oR1/zSHDVwoBoAA5Y/T/QIf9w+v/FXRLv+gx/2Dl/9ffcr/WbX8n9uGAQBB6k0s
zpRnqSd2KPyYv97y71aY5dnQR/38mGI1/Ow5K8Le4EuTzbDf4jTsMjmTtymu5O0Wm2E3//8ZHSnH9HxJ
Um3Jfrkx6/zfLDZwQcewyr/aAIDT/XSWf9UAQJd/qNP9QpW/70f/2srfOwBcQz52KBgAECROw6/yx8uN
emIHwz+i17Pbv8u0TM+hA+pn17ILaoHvtThSPrO4kt9V/+8XzU7D78z5KdeYXQ06ZOcbjLnDGv4myZp0
sbjLQqafNel/zNYGyfxsCiU/pafZZbjJ7Ep+VB0aXKpP1Pv8C7PDcMLvdtS6rBGNWOeP1UFgfqfwyt/z
7r9m+VcfAEKXv+9H/97y9w4AsfTVvoHKP95P96PK/7ltj2AAQJBEjyk/pZXJeukp6kkdDN9t3nNmDlns
ofCNfXVW/FbDN2r5zlYLOV9xJt/Dr3Vgtpr/T9wdtZ5sx2WNLY7kfnw4UAeCcRZXymr1tv1I3vYoyhzO
B4FsNnhhZ7/y9w4AkSh/nO4XeNNfXZ7uR5X/3zAAIEhiJ+flyxqpT17p0/345X3DucJfd3e29zQ+4mdG
jaPBFsVpeEst2Lv5u3G+10H8+jEbPpBYnIZuZlfKX81OQ5H6e3xb4/eKkqyXG7Puk3PZkMVdNZS/73F/
qvwjf7qfb/njdL+K8vcOAOGe7keVPwYABEngdBqXdIniMiyknszB8A16stf27zUzx/NtetTPizT1dzqu
luYEXvgZjstTxa8b35mS9AvF3qij2WX4p9lhWGKxGn6ifvdIynk1lfUpaCXK3zsA1G75+w4A3vL3DACB
yj/oR/9E+eN0v0pU+f9t25/YnfMwACBIQkYtk2HUEzmofAPrMl37t/rxi/e0+0iJ+q5+9Z3yTv6Rfka+
oavMcfp4Db9WAz98YXGkTA/3exq0avWmkV09p1OQ8q8aAKJe/jjdr7L8Zb/a13cAqFb+le/+q5f/8xgA
ECQxY3amDKGexKHIfJ8/3+AXzWvzq+/0D3g21LmS28XDx/rRSktr48ss+Sm3qwNQcbQ+GeDXEegyoRkb
uri7ZPnrPd0vVPmH2vSH0/2ClT/90b+3/J/fzgeAIeTjgYIBAEHiIHxHu/qE/cr/CRwK/7Idquj98S8A
4t/ER/0M/RqcV4eXD82Ohv3rwzt92WSOSL3c7DQ8rQ4DG+n7T59mr6SyK4ra+gwAWssfp/t5y79qAKDL
v25O9/Mtf88AoJb/89sfxQCAIIkUfmqa+mRd6v/kDYVv3Os7jy58X/wLevgGQepn6NNgq/rPp/hH3+JX
QYKFJV2U4Ujuw083TLMafqh5f+rT7l0LG7qwBzEA+JR/gNP9apa/dwDA6X51d7ofVf7cXRgAECRx4v3I
nH4CB8I/xg91rj9/1x+NC/mYnclzLPkpg+rzR/x6Yx7euInFmeJQ78+InknALyR0hbsdWf6yp/sFLn9V
0PKPoa/2jePT/So/+vcp/797BoCh5NpTMAAgSAzH7EwZTD1xg8kc3jDk6X5dpmZG+l3/BXVQmeg5to9E
LPxCRvzwgMX120PEfR62ju9nsuuX9A5R/uLdvyj/msf9g5d/fT3dr2b5eweASJ/uR5X/37c/hgEAQRIh
/NgwPz2OeuIGw8udKn2O7/Dn1+2n/rswXeCn71mGNcwVNxuJQvg1BjKchsctrgZHiDUIS+5rTdig2V3C
LH/fAcBb/p4BIET519fT/cIv/8Cn+3nL3zsAVJQ/BgAESYSwpIssjuSp1JM2mDbvG8ni53rOyGE5oy4n
/7vwpEwzOxo2F7cYqYUYRxovNbsMf7E4DV/TayKHnynQ+9PWkSn/mDndL5zy9z3uH075+777r53T/ajy
/wcGAASJ/1icKXdQT9hg+Pf6B9r01/nTDM+hAeq/k8UvamN2pvQQNxWpg/CNleogMKKxy/A9tUayOryb
wW5a2tev/L0DQPjlH2rTH073C1b+oU73o8r/Hzv+jAEAQeI5/Ep46pNT6pQ/fjy/Zyl9jf+27xvJ/0aW
2f6bg/zcdWzui50otgYZFldKAbVespqPSmPXzu+J0/0Cln9sne7nOwBUlD93NwYABInTeD7651eKo5+w
gVDH/XvPaR6RXf7eU9JSnKkjUn8tbiUSY+Ev5J5vRiTWT0bWiMZsYGlnn/L3DgD163Q/Uf4qsvxj5HS/
au/+d/gOANeSa0vBAIAgMRR+LXzqiRoMddyffxrQ7LUIHO93NljOv3lQ3DwkhpNmTfsVP3XQrPNbCfm+
gH7T2moof1XQ8sfpfpEpf+8AoKX8/7njcQwACBKPUeyN0vjX3lJP1ED4pr4+fsf9uxdlR+AUv8vOqv98
gn+hjbh5SJyEf1WyunZrq6+nvG4fN/cOACHKH6f7VZS/dwAIf8e//vLHAIAgcRr1Cfmx/xM0GP5OrUdx
9fP9+Zf+6P0SH8WV/EXmsEbNxM1C4jAtrUm/NDtTbOp6XvBfXxkd38tkty33DgEV5e8ZAEKUP073ky3/
UKf7EeXvGQAqyr9qALhn3nXkWlIwACBIDIR/Ix71BA2m3QSlWvl3mpyhDgX0n9WEfymN02Dllx4WNwuJ
8yj5KT3Vtd1TY60ltH3LzG5ddqXPu/+K8vf96F8t/aDH/XG6n/8AUK38K9/9+5W/zwCgpfxf2PEEu+cz
DAAIEj/hG/9chmX+T85gcl6vfspfh4lm8s9pZXb96rTn8r1IwiUzP6WB2WWYQq27Vq3GGNktS/uHuelP
W/l7B4Cax/3p8sfpflT5v7ATAwCCxFXM+Sl3Uk/OQDwf/ftc6re9zvL3XmYWl/BN6KhDJr+SoJ4vGWrx
erp3CJAqf+8AQJW/dwAIXv6VA4Dfpj995V81ANDlHx+n+1Uvf5Va/hgAEjBMffJOsTa+rMBqTob4sMBq
/j+xfEHDr+xmshn2U0/OQNr7fPTf/mOF/DNaKS7Dev5Vw+LmIAkec76hu8X+28PUY0GLFq83ZbcuvTJC
5e/70b/28sfpftU3/XkGAFH+L+58EgNAImSaNfPyIrvynGqR6rSKQZyxph9155mmFznMd0+xtvylWNpq
MTsNL1BPzEA8H/1HqvydhlnZVsNvxU1B6kk83zQoecjJV8UQUFX+ON0vMuXvHQDCLX8MAAmQ0lHZ/1tk
M+UVWZVzZKlAvDpQnKfcKpbZE9Owhk0t1l+foZ6YgfBT/Hj58wv/UP9eK7PD8E6ncUmXiJuC1LPwLxfy
fIkT8djQouVoI7t92QAN5e8dAIKWvxgAapR/jeP+ovw9A0D45V/t3X9Y5e8dAMLf8R+98vcOANeTa0bB
ABBDKbGamxTYlRVEeUDieGOKOLfe4koZTz0pA2n1dlNP+fMv9dFzXX9zfsrfcTlfhD8GzK6U/1CPES3a
vKGwO78YRAwARPnjdL9K0uXvGQACb/rzLf8Xdz7F7sUAEH+ZZTUaCvKMW4nCgMTzQeawhp0tVsPP1JOS
ws/t7zUz1/N1vuFe4Y9/cYzZmXKXeMghiCdml+EhzymgxGMmlPbjMjyHAgKVv++7/9otf9/j/uGUv++7
/9g83a9m+T/J/sUHgPkYAOIqVmvSxW67aQZRFJCA3Kr2NsNu6gkZSLuPTJ53/y3HNSX/fUhWwzcZjuQ+
4iGHINVicTa83mA1fEc+dkLo8n5OZfkHOu7vW/7eAcBb/r4DAF3+oXb810L5Bz3u7y1/7wAQvPwjfbof
Vf7/2oUBIO7itil/o4oCElOeQ67Es0Y29rzzD/t0Pz5sDGuYKx5uCELG7Gp4heyelAq9J7UJWP7eASB4
+VcOAH6b/oKXvypo+VcNAHT51/3pfr7l7zsAaDndjyr/f+16GgNAPMXtUHoVWZWfqKKAxDNN1ckld53+
TlMyWNeCLGYJ4yp/nsv6jki9XDzcECRozM6UHumuS8upx1IoA4u6Bih/34/+tZd/fT3dz1v+vgOAt/w9
A0DQ8n+K/RsDQPykyJrWyG1XDlJFAYnpKUcT8okYSM7oVNZrZg7LejmML/dxpEzn3xAnHm4IoikWp6Gb
yXrpKfIxFUTmsEbshnn9aqf8NW76C326X12Uv3j3H2jTn8SOf77pz7f8vQPADeT6UDAA1FFw3L/+4e/+
W7vkdu93K8xiueoQQP27oBwpn+Ga/ki48XyHQBiHA3JGprI7Ph9El78YAGqUf43j/qL8PQNA+OVf7d0/
Wf7xfbqfb/nzj/4xAMRRcNy//vm7I418EgbS8u2mrPV76eS/C8Zs/81BfOyP6I3ianglP3OEeowFw08P
vH/ltT7lX/XuP7zy9w4A4Zd/qE1/8Xm6n+9x/4ry//euv7D7MADEdsI57j/rldZs3+qRbD/EvB1LreQa
DnFqP32Pn/bX7iP5K/3xF2z+zYLioYYgumJ2GW5SH1fSXync8+NWtVT+vsf9wyl/33f/8qf7BSz/ynf/
fuXvMwCEX/7VN/35lr/VMwDcSK4JBQNALSe84/5mdurYPMYuHIc4sfsLe7U15Kf+tZD4+L/FG2lhfq9/
yh/FQw1BIhJLfsoj9GMtuGtm9Kgsf98BgC7/xDndr6r8fQeA2il/624MADGbcI/77105jCwZiF0///Ql
Wz7xhso1nKqinoAU/m1/mSPC2PTnTH4PV/hDohGLM2UM+ZgLIntEY89+APLdv9+mv+Dlrwpa/lUDAF3+
iXm6H1X+1t3PsPsxAMRmwjnuXzbpZrVMjpIlA7Htx3Pb2cyRLT3rOMluIp+AkZOyil/fXTzUECSiaWlN
@ -368,182 +368,182 @@
vsLaafiaejyGwi8TfN2sPp4BoM7LP+hxf2/5eweAmsf96fL3HQBqq/y9A4B/+b+051kMALGQ8I/7f0aW
BySGHV/ksaESFwSi8C9ryXSktBYPNQSJehRHSq9wvyQoc3gjduOcfhrKXxW0/KsGALr869fpflT5cw9g
AKjb4Lg/BML3Ayz8+Dp2tTPcDYGXneUvxuKhhiBRD78kMH/c0Y/H4LKGN2Y3z+tf/aN/nO5XNQAELf9Q
O/5rln+eZwC4mVwLCgaAKCSc4/6fvdGRnT4xkZ395lNIcMf3jGLu/Az2gFPuS36y7A2+RPkjtRlzfso1
FleD89TjMZTsEZezWxdcpa38cbqfoLX8vQOAf/nn7XkOA0BdJpzj/jPys9iX219i5cfGQD2xffEjnrV/
w2Fkg5yNWQbx5KzANw7epw4LH9nTD8yyGg3ioYYgUY3ZYbg5zWr4gXpMhtLs5VR2+6Krq5e/ZwAIv/yr
v/unyr9+ne7nKX8xAFSUP/cgBoC6Sbjf779j6aNkSUBiK5t8TeVj4CO7if3NkcbudaSy69WB4Abn5Z5P
CP7laMomq//O5/HiZrjcLxLlmF3Jd1ushp+o0gglZ2QTdsfiQUHK3zsAhF/+oTb91Y/T/aq/+/eWPwaA
Okq4x/1XfDqULAdIfN8cfpXNG9OBfFwElWf6i3jYIUjEozgMD3suMEUURii5r6axu5YO1lH+vsf9wyl/
33f/iX26n/9H/5xtz9/YgwsxANR61PJ/nnyxDoIf9//28GtkOUD9cGTbf1hJfib5+AjkfbvyY+FL6d3E
Qw9BIpYMp+Fxqii0aPFaU3b3siGi/HG6X2TK3zsAaC1/214MALWeIpupN477Q7gq9gPIKLQb92E/ABLJ
WBwpf6NKQouWr6eze5YP1Vj+qqDlXzUA0OWP0/0Clb93ALiFXCMKBgCd4cf9p1uVQ9SLdDA47g++fPcD
SMB+AER/1MeQ2ZXyH6ogtGg12sTuLbu2svxxul/FAOAtf88AELT8wzvdr6r8VaL87XufxwBQW+HH/Qvz
TKXEC3NQOO4P/rAfAKmT8PJ3GoZT5aBFmzcUdt+K67SXP073E7SWv3cACFr+4t0/L38MALUYHPeHSMJ+
AKRWo76BsThTxlDFoAX/gp/7VxLl7xkAwi//6u/+qfLH6X6Byh8DQC0Fx/0hGrAfAKmVTEn6hcWVMp4q
BS06jMtkD6y6PkT5eweA8Ms/1Ka/+n26X1X5YwCo1eC4P0QT9gMg0UyncUmXWJyGT6hC0KLTO9nswdU3
6Cx/3+P+4ZS/77v/+nm6n+9xfwwAtRQc94dow34AJFrJHpX0v+o7/wKqDLToMj6H/W7NjT7lj9P9IlP+
3gFAb/ljAIhycNwfagP2AyCRjnGk8VL1RX+mfwlo1e2D5p7yf0hz+auCln/VAECXP073ky1/DgNAlILj
/lCbsB8AiVRaWhtfpr7zn0+VgBY9PmqpFv9N1cofp/tVDADe8vcMAEHLP7Kn+wWCASAKCf+4/5/UF/PX
AcJSNnkw+bgKAfsBkMqYrQ2S1Rf7Zf4v/lr1nthGvvxxup+gtfy9A0DQ8id2/FMwAEQ44R/3H6K+iI8C
CNs3h19m88a0Jx9fQWE/AKKmqfM3DdV3/qupF38t+k1qxx5aw8v/pprl7xkAwi//6u/+qfLH6X6y5c9h
AIhwwjvu34F9e3iE+iL+KoAuR7a9iP0AiHTMwxs3MbsMG6kXfi36f9pRY/l7B4Dwyz/Upj+c7uctfwwA
tZ5wj/sf3f4iO3XsFYCI2L74YfKxFgz2A9TfZOcbjIoreTv1oq/FgGmdI1T+vsf9wyl/33f/ON1PCwwA
EUq4x/13Lv09O3X0ZYCIKps0kHy8hYD9APUsiq1Bhvrivsf/xV6LjHwDG1jYjSh/nO4XmfL3DgDRKn8O
A0AEEu5x/5VTBqsv1iMAIu7bQ042b0w78nEXFPYD1JtYhjXMtbh+e4h6sQ8lI78hG1zcvbL8cbpfsPKv
Ou4fS+XPYQCIQMI77t+enTzkUF+shwFExZdbn8d+AIRMhiu5jdGRcox6oQ+Fl//QGb3I8sfpfhUDgLf8
PQNA0PKvndP9AsEAoDNhH/ff9rz6Ip0PEFXbFz9APgaDmW4z7XfbTI8W2U1/gsTzD0dTZ6b112eoF/lQ
Moc1YtfN6hNe+eN0P0Fr+XsHgKDlL7Hjn4IBQEfCP+7/oPri7ASoFWWTBpCPQ6h/RjnSWXNXQ/IFPpSs
4Y3YDXP6esu/xnF/Uf6eASD88q/+7p8qf5zuF6ny5zAAhJnwj/sPZKePOgBqzclDL7F5Y9qSj0eoP0ba
01ku8cKuRdaIxuymeVdIlL93AAi//ENt+sPpft7yxwBQJwnvuH87Vn7Iqr4o2wBq1dGtz0jvB4DEMUx9
59+MeFHXInvE5eyW+VdGsPx9j/uHU/6+7/5xup8eGADCSHjH/TPZsW3PqC/GeQB1Ysfie8nHJiQ2m6Mp
ywzzY/9mI1PZbQsHBCh/nO4XmfL3DgC1Xf4cBgDJFA7L/Y36pDrg/yQLZeeSe9npL/8DUKdWTLqSfHxC
YrJ6yp9+QQ8l55Um7PbFA73f6ifKH6f7BSv/quP+8VD+HAYAybhtpv9QT7RgVk65Sn3xtQLUuZMHX2Dz
xrQhH6eQWP7pSGMZxAu5FrmvprE7lw4KWP4hd/xHqvxxup8of1WEy5/DACCRKdaWv5xqV05QT7ZAPnuj
LSs/9E/1xfdfADHh6JYnWIkrg3y8QmJ41plGvohr0eK1puyuzweHX/443U/QWv7eASBo+Udgxz8FA4BE
Cm3KAOrJFojnuP/WJ9iZL18EiCk7F91JPmYh/j3laEK+gGvR8nUju3v5kKryr3HcX5S/ZwAIv/yrv/un
yh+n+0W7/DkMABIpsikvUk+4QHYtuVN9sf0nQExaMekK8nEL8cmtelRH+bceY2L3fjFUsvy9A0D45R9q
0x9O9/OWPwaAOo/bZnqHeuJRVk7pr77I/gMgZpUffI7NG9OafPxCfOHl/7Az/PJv84aZ3Vd2bYTL3/e4
fzjl7/vuH6f7RQMGAImoT7QP/J94gXy77y/qi+zzADHt611PsIOrH4Q4tn/VA+yZiZ3IF20t2r1pYfet
uC5I+eN0v8iUv3cAiJXy5zAASEQtds0DQPlBPgA8BwAQNeVHnmV/ndadfMHWosPbmez+ldd7yr9yAPDb
9Be8/FVBy79qAKDLH6f71VX5cxgAJKIWu/YBYP/T7Iz65AQAiIaTh55hf57UhXyx1qLTu9nsgVXByx+n
+1UMAN7y9wwAQcs/Nk/3CwQDgESKbMr7VNlTyvc/qT5JnwEAiLjyQ0+zP3zSkXyh1qLL+Bz24Oob9JU/
TvcTtJa/dwAIWv5R3PFPwQAgEZkB4NT+J9jZI38BAIi4/xT1IV+ktej2YXO1/L3FX1n+NY77i/L3DADh
l3/1d/9U+eN0v7oqfw4DgETcdmU8VfaU8v1/Vp+oTwEARNTitXeSL9Ba9JjQsrL45crfOwCEX/6hNv3h
dD9v+WMAiNkU2UzvUWVPKd//mPpkfRIAIKJufi+XfIEOpfd/20Sp/H2P+4dT/r7v/nG6X23CACARqQFg
3yPqk/VxAICI2bDlPvLFOZS+k9uxB9f4HfOvUf443S8y5e8dAGK9/DkMABIpspvepcqeUr7vj+oTlh8G
AACIjLHzBpAvzsH0/7RDtfKvHAD8Nv0FL39V0PKvGgDo8sfpfrFW/hwGAInIDQC/V5+wjwIARMzTn8pd
8GdAQWdN5Y/T/SoGAG/5ewaAoOUfX6f7BYIBQCIylwI+tfdhdu7wnwAAIuaBj1qTL84U/s7/nrIh7N6y
oZX45X7vW8Fdx+6vdD17gFvJ3cAe9LjR43ceN3k85HGzx8Mrb/FapQ4Mq271cZvHH1bfXumPldThYU0F
dXiopA4Pa7m7PR7zuMfjz+u4ez0eX3dfpSfW31/pyfUPCOrwsKGCOjxUUoeHjdzDNTyzifu9x183/aHS
s5v/WOm5zY8I6iCxxev5Leog4fEY+zu3lVOHiErqEMFte8LjBY8nPV70eMrjX3Xs3rnXk48dCgYAiQGg
fO/v1CfsHwEAIubhidoHAICIchoGiiqsn3HbTW9TZU8p3/ug+oT9AwBAxLxQEP6V/wD0yHSktBZVWD8j
NQDsuV99wvLDAAAAkTFp8UDyxRkgqqy/PtNpXNIlogrrZ4psxnFU2VPK99ynPmEfAgCImCN77mFZwxrR
L9IAUWJ2JX8qarD+Rm4AuEd9wvLDAAAAkfPE5LbkizRAtJgdDfuLGqy/cduVt6iyp5zaczc7f/gBAICI
2r7tNpYzrDH5Qg0QBTNEBdbvSA0Au+9Un6z3AQBE3Lvz+1Iv1AARle5KPmoa1rCpqMD6HbdNeZMqe0r5
rjvY+UP3AgBE3DnVS0WdyRdtgIhwGr5W7I06ivpD1GIf61/0gZTvuk19ot4NABAV51TvzuvNcrApECIu
ZXWWs3G2qD6ERy12iQHgFvVJeicAQFRt33oDe3JyK9YMgwDoZHal7FTL/4/9rEn/I2oPqUihTXmDKntK
+a6b1ScnPwwAABB9x/fewkqWX8leKe3CXpjejj0/tS0kkN+/bmb3OFJDust6+U+K0/CWVmrxj1RcDf9s
djXokMSSLhJ1h/hHZgA4tfNG9t2h2wAAAHQrm9Ce7Bp/BfYG50VlIZGM224aQ93hlFM7b1AX7VYAAADd
MADUcWQGgPKd16mLdjMAAIBuZRPakV3jDwNAlFJkM42m7nBK+c5r1UW7CQAAQDcMAHUcuQFgiLpo/DAA
AACAPmUT2pJd4w8DQJRSZDe9Tt3hlPId17DvDl4PAACgGwaAOo7UALB9kLpo1wIAAOhWNqEN2TX+MABE
Ke484yjqDqec2j6QfX9wKAAAgG4YAOo4MgNA+fYB6qJdAwAAoFvZhNZk1/jDABClqHfua/53diDeAWAw
AACAbhgA6jjqnSsxAFypLho/DAAAAKBP2YRWZNf4wwAQpRTlKa9SdzilfFt/ddGuBgAA0A0DQB3HbVde
oe5wSvm2fuqiXQUAAKBb2YSWZNf4wwAQpcgMAKe29mU/HLgSAABANwwAdRx1ABhJ3eGUU1t7q4t2BQAA
gG5lE1qQXeMPA0CUIjMAlG/tpS5aPwAAAN0wANRximyml6k7nFK+tYe6aH0AAAB0K5vQnOwafxgAohSp
AWBLd3XR+GEAAAAAfTAA1HEK7aYR1B1OKd/SVV20ngAAALqVTcglu8YfBoAoRWYAOLWlC/vxQHcAAADd
VkzIIbvGHwaAKMVtMw2n7nDKqS2d1UXrFve+39eNnd3ZhZ3dAQAAdeWLD5qRXeNvgtXwXZE1rVEsm+5s
2nDcuE6XiGqNj8gMAOWbO7If93eJS8dXtmdrJ+eyeaMyyN8NAABAj7FW5Wd3nrJd/d9ji+3GrqJmYzdF
dtMw/18ikPLNHdQy7RxXTm7owJa+k0X+PgAAANFSmGcqLXEpmaJuYy9SA8Cmdmqp8k8B4sPBxa3ZDJeZ
/F0AAACibZo9vbzYbhwkKje2UmRT8qkbTSnf1FYtVv4pQOw7uETbl0wAAABElTXthyKHcpWo3diJ2664
yBtMKN/URi1X/ilAbCvfqL7zz8c7fwAAiBFW5atpdiVNVG9sRG4AaM1+2t825i0bj2P+AAAQW9x208ei
emMjRTbFSd1QSvmmlmrB8iEgdn2zRtu1pQEAAGqT5ywBm5Ih6rfuIzUAbGyhlmyrmLZxejZ52wEAAOqe
6QVRv3Uf9QY5at5AWvmGXPbTPnUIiGEL3rCQtx0AAKDO2ZQ5on7rPuoNkhgActSSbR6zftjdnBU7sfkP
AABi03Sbab+o37qP26bYqRtJKd/QTC1aPgTEpq9Xa//4f/W0u9ieL/4JAACg25zXtJ56nvqtqN+6j9wA
kM0u7GsWs/bNzSRvN+X0sbns5++3AQAA6HLhuw1s9ivavtlQdVjUb93HbTfZiBtIKt+QqRZtVsxaP0Xb
8f+S/Gz2w5mN5EICAADI+P7UPLJrSDbjUlG/dR+pAWB9hlq0fAiITUveom+3v4VvX6VObFvIhQQAAJBx
8sB4smsoaueOEfVb9ymymfKoG0kpX29RizY2/bTXwma46Nvtb33JY+QiAgAAyDqw5kWyayhum/KwqN+6
j9wAYFbLNjadVG8bdZspB9e9ri7aVgAAAN3WFd9Kdg2lMM/cQdRv3cdtN71E3UhK+ToTu7A3Nh2cT99m
SvnhEnIRAQAAZFz4fhObN7o12TU1WNN+mGJt+UtRv3UfuQHAyH7eG5s2TzORt9lfsSODfX96HbmQAAAA
Mn44vZDsGoo7z7RWVG9sxG0z/Ye6oZTytelq2TaNScve0TYAfDa2D/vpPN8ASC8mAACAVqe+/JjsGorb
rowX1RsbUW+U1f9GBlK+Nk0t2yYxaeZw+jb7Wz39IXIRAQAAZB3ZaCO7hqIOAI+L6o2NqDdKYgDgZZsa
c85sakLeXsq+FcPJRQQAAJC1edY9ZNdQ3A6ll6je2EiRTfk3dUMpsToAHF7UlLy9lC1z72DnTzgAAAB0
W/BWO7Jr/PGvAp5ibXyZqN7YiMwAcDJGB4CthdoHgN1LbmRnjzwOAACgy+mDj2n+Ajp3nrJd1G7sxG1X
/kXdWEqsDgBl7xvJ20s5vvl+deH+DAAAoMuXG7R//K++2f5E1G7sRGoAWBObA8CcV7SdAVDiymBnDj9G
LiQAAICMHQuuI7uG4rYpfxO1GztRp5IXqRtLicUB4PxW7RsAF45rRy4iAACArDVT+5JdQ3E7TFeL2o2d
xPsAcPTzNPK2UlZP7aMuGv8EAAAAQJ9Fb2vbAOhhTWskajd2UmQ3vUDeWEIsDgDbS7RvANyx4FpyEQEA
AGScOfyo57Ay1TWEA6JyYysyA8C3MTgArPpI+wbALzfcTS4kAACAjONb7iN7JgC3qNzYittm+idxY0mx
OAB8NkrjdwA4zez0wUfUhXsUAABAl91Lrie7hsIvuS8qN7YiNQCsjq0B4Psd2jcAzn+jFbmIAAAAstYV
XkF2DcVtN90gKje2ot6wf1A3mBJrA8CJMu0DwMpJPdi5I38CAADQbcl7HciuoRTYmppE5cZW4nkA2DVT
+wbAbXMHs3OH1YUDAADQaebwLLJrarAqXzGWdJGo3NhKkc30d/JGE75ZFVsDwJqJ6eTtpBxefTu5iAAA
ADK+3v4A2TM041xRt7EXt930PH2ja4q1AWDhGG0bALlT+x5WF+4RAAAAXfYtu5HsGYrbZhou6jb2Eq8D
wE+7Ulmxg76d/uaOak4uIgAAgKyNxf3JrqEUOox3irqNvfDrE1M3mhJLAwC/LdRtpJR93JVcRAAAAFnL
PuxEdg2lMM+SK+o29hKvA8Deudo3AG6ZOUBdtD8CAADoNvuVZmTX+JtmVc5YrUkXi7qNvag38jn/Gx1I
LA0A6ydr3wB4cMXN5CICAADIOLnrQbJnaMbPRdXGZtQbqX0AWJlGlnFdWPKW9g2AfMGohQQAAJDB31BS
PUOymUaLqo3NFNmUZ8kbToiVAeDCnlRW4qJvoz/+Uc25w38AAADQbcvMq8iuoRTazQ+Jqo3NyAwAX8fI
AFC+VvsGQL5Zg1pEAAAAWXxTOdU1lMI8cwdRtbEZt8P8V+qGU2JlADiwQPsGwI3FV6iL9nsAAADd+Gnl
VNfUYE37YYq15S9F1cZm4nEA2DRN+wbAfcuuJxcRAABAxql9UhsA14iajd0U2UzP0De+plgZAD5/x0je
PsrX2+8hFxIAAEDG4dW3kD1DspneEzUbu5EaAFbExgAwc7i2MwD4lzWcO8wvAQwAAKDPtrlXk11DcduV
x0XNxm6K8kx/oW485asYGADObNS+AXDJe+3JRQQAAJC1clI3smsobofSS9Rs7MZtNz1N3XhKLAwAhxdp
3wC4vrAPuYgAAACy5r/Rkuwaf2Otys9TrI0vEzUbu4m3AWBrofYNgHsWD1EX7SEAAABdzhx4kBU7zWTX
1GTaJio2tlOYZ3qK/gVqioUB4Iv3tW8APLH5DnIhAQAAZBxdfyvZMySb8omo2NiO1ABQVvcDwJyR2jYA
zsjPYGcP8UsA/w4AAECXnfMHkl1D4V+yJyo2tqPe2Cf9b3wgdT0AnN+ifQPgonFtyEUEAACQtWZqD7Jr
KIU2ZYCo2NiOemPjZgA4+nkaebsoa6b2JBcRAABA1qJxrcmuoUx3Nm0oKja247YpT1C/AKWuB4DtxdrP
ANi5YKC6aPwQAAAAQPjOHnqAlbgsZNcQDoh6jf3IDAAn6ngAWPmR9jMAjm64hVxIAAAAGSc230b2TABu
Ua+xH361IuIXINX1ADDvNW0bAPmpGmcO3E8uJAAAgIzdiweTXROAVdRr7EdqAPii7gaA73do3wDIL9Zw
7vADAAAAuq0r6EV2DaUwz3S9qNfYT5FN+TP1S1DqcgA4UaZ9AFg1qSs7ry4aAACAXkvfa0d2DaXA1tQk
6jX2Ey8DwK5S7RsAt8+9Ul20+wEAAHQrHZ5Jdo2/qXblBGNJF4l6jf0U2Y2PUb8I5fjyuhsA1kzUvgHw
yJobyEUEAACQ8c2228meIdmUOaJa4yPxMgAsGK1tAyB3et895EICAADI2L/sGrJnaKZholrjI26b6VH6
F6mprgaAH3elsmIHfZv8zXs9V120+wAAAHTbVNyH7BpKocN4p6jW+Ig6sfyJ+kUodTUAfLNK+wbAsomd
yEUEAACQteyD9mTXUGY4m+aIao2PxMMAsHeO9g2AW2f2IxcRAABA1uxXssmuIZy2WpMuFtUaHymymR4h
fhFSXQ0A6ydr3wB4aMVQddHuBQAA0KV8l8wGQONSUavxE5kB4NiyuhkAFr+pfQNg+e47yIUEAACQcWjF
ELJnSDbTaFGr8RO3Xfkj+csQ6mIAuLAnlZW46Nvjj39Uc/7QPQAAALptKe1Ldg3JZvydqNX4SawPAOXr
tG8AXP5he3IRAQAAZJV93JHsGkqJ3dxe1Gr8pNim/IH6ZSh1MQAcmK99A+Cm4t7kIgIAAMiaOyqH7Joa
rGk/TLG2/KWo1fhJrA8Am6Zq3wC4f9kgddHuBgAA0OX0HokNgHbjGlGp8RX1xv++5i9Dq4sB4PO3tW8A
/HbbLeRCAgAAyDiyaijZMzTTu6JS4yvqjdc+AHxe+wPAzGHaBoCZIzLJRQQAAJC1fc4VZNeQbMqfRaXG
V9w25WHyFyLU9gBwZqP2DYBL32urLtpdAAAAuq38pDPZNZQCm9JTVGp8RWYAOFrLA8DhRWnk7aCsL+xB
LiIAAICs+W80J7vG31ir8vMUa+PLRKXGVwrt5oeoX4pS2wPA1kLtGwD3Lh6gLtqdAAAAupzdfzsrdprJ
rvFXkGfcKuo0/sIvXkD9UpTaHgC+GG8kbwflq803kAsJAAAg49i6a8meCeC/ok7jL1IDwNLaHQBmj9S2
AXBGvoWdO0gvJAAAgIyd8/uTXRPAc6JO4y9uu+lB4hci1eYAcG6L9g2Ai8a1UhftDgAAAN3WfNqF7BpK
oU0ZIOo0/iIzAHxZiwMAHzao20BZO7UruYgAAACyFr3VkuwaynRn04aiTuMvbpvpAeqXotTmALC9WPsl
gHfN708uIgAAgIxzB29nJS4L2TX+pttM+0WVxmdidQBY+ZH2MwCOrR+qLtztAAAAupzYdB3ZM6Q8pVBU
aXym2G66n/zFCLU5AMx7TdsGQH6qxtkDt5ELCQAAIGPPoivJrgnAKqo0PiM1ACypnQHg++3aNwAuGNuc
XEQAAABZ6wu6kV1DM10nqjQ+U2RT7qN/sZpqawA48YX2DYCrJ3di3x26DQAAQLel77Ymu4ZSak03iiqN
z8gMAEdqaQDYVap9A+COuX3IRQQAAJBVOjyD7Bp/U+3KCcaSLhJVGp9xO5R7qV+OUlsDwJqPtW8APLp6
kLpotwIAAOjy7VaJDYA2ZY6o0fiN1ACwuHYGgAVjtG0A5M7svYlcSAAAABn7P5fYAGhT8kWNxm+Kbco9
5C9HqI0B4MedqazYQf/9/ua9nkMuIgAAgKxNRd3JriHZTHeIGo3fxNoA8PVK7WcArJjYXl20WwAAAHRb
9kEbsmsoM5xNc0SNxm+KHOa7qV+OUhsDwN452jcAbp3Zk1xEAAAAWbNHZpFdQzhttSZdLGo0fuO2Ge8i
fjlSbQwA6ydp3wB4eMUAchEBAABklO+8nuwZSqFdWSIqNL4jMwAcXhT9AWDxWO0bAE/tul5duJsBAAB0
OVR2FdkzNNProkLjO4UO4530L1hTtAeAn/Y0YSVO+u/2N+fVbHIRAQAAZG0t7UF2Dclm/J2o0PhOLA0A
J9dq3wC4/MM26qLxUwABAAD0KZvQjuwaSond3F5UaHyHn8pA/YKUaA8AB+Zr3wC4uaQbuYgAAACy5o5q
RnZNTY2/n2Jt+UtRofGdWBoANk3VvgHwwLL+5CICAADIOLNH+wbAgjzjalGf8R+3w3Q79UtSoj0AfP62
9g2AJ7cPURfuRgAAAF2OrJLaAPiuqM/4j8wAcGhh9AaAC3tSWekwbQPAzBGZ5CICAADI2j67J9k1NONj
oj7jP267chv9S9YUzQHg9AbtGwA/H9+KXEQAAABZqz5pT3YNyWnuIeoz/hMrA8ChRWnk30nZUNiZfXfw
BgAAAN3mj8khu8bfWKvy8+wRqb8W9Rn/Kc5TbqV+UUo0B4CtBdo3AO5b3JdcRAAAABnn9l3Hih1msmv8
FeQZt4rqTIzEygDwxXgj+XdSvt40SF246wEAAHQ5tnYA2TMUt800UVRnYkT9pW7x/yUDObggegPA7Je1
bQCckW9h5w/QCwkAACBj12e9yK4h2ZRnRXUmRtx55pvJX5QQrQHg3GbtGwAXv92CXEQAAABZa6Z0ILuG
5FCuEtWZGImFAeDLpdo3AK6d2lFdtOsAAAB0W/RWc7JrKLOsRoOozsRIsd18E/WLUqI1AGwv1r4BcPf8
XuQiAgAAyDh/4FpW4tK2AbDQbtwnajNxEgsDwIoPtQ8AJ9YPIBcSAABAxlcbryZ7hlJoVwpEbSZOivKM
N1K/LCVaA8C8V7VtACx2mtm5/UPVhbsWAABAlz0LpTYA/lvUZuJEagCY35QscD2+355K/l2UBWNzyUUE
AACQtX56R7JraKbrRG0mTtx20w30L1tTNAaA419o3wC4enJ79r26aAAAAHotfacF2TWUYrsxXdRm4kRm
AODf10+VuB47S7Uf/985t7u6aEMBAAB0Kx2eQXaNv0KrcpyxpItEbSZOCvNM11O/MCUaA8DqidoHgGOr
+5OLCAAAIOPkFqkNgLNFZSZWpAaAzyI/ACwYrXEDoENh5/YOVhduCAAAgC4HlvYmu4ZkU/JFZSZW+MYG
8hcmRHoA+HFnqqfYqb/L32ejm5GLCAAAIGuTuxPZNRS3w3S7qMzESl0OAF+v1L4BcMXENuQiAgAAyFr2
fiuyayjFeenNRGUmVtx5yrXUL0yJ9ACwZ3ZT8u+hbJvZRV20awAAAHSbNTKT7JoarKZTVmvSxaIyEysy
A8D+CA8A6yZp3wB4ZEVfchEBAABknNohtQFwiajLxIv6yw2lfmnK/nmRHQAWvaltAyB3ZtfV6sLxTYAA
AADhO7Rc+wZAd55xlKjLxEtxnnkI9UtTIjkA/LSnCStx0n+PvzmvZpGLCAAAIGvrjM5k11DcdtODoi4T
L3U1AJxc24T8OyhffNiKXEQAAABZZRNak11DKc6ztBN1mXgpspuvoX5pSiQHgP2faT8DYEtJJ3XRBgEA
AOg297Ussmtqavz9uHGdLhF1mXiRGQD2RXAA2Pip9g2AB5f1JBcRAABAxtndA8ieobjtyipRlYkZt804
mPrFKZEcAJaO074BsHzbleRCAgAAyPhyZR+yZyhum+kdUZWJGakBYG5kBoALe1JZab62AWDWiAx10QYC
AADotn229g2ARXbjY6IqEzPFduMg+hevKVIDwOkN2jcAfj6+BbmIAAAAslb9V/sGwCKnuYeoysRMXQwA
hxZp3wC4sbADuYgAAACy5o9pRnYN4cLsEam/FlWZmCmymQYSvzgpUgPAlgLtGwD3Le6uLhq/CBAAAED4
zu0boPkL6Nz29C2iJhM3dTEALH/PSP58yjeb+5ELCQAAIOP4WqkNgBNFTSZu3A7T1dQvT4nUADBrBP3z
/c3It6iLNgAAAEC3XfO6kF1DsinPippM3MgMAHvn6B8Azm3WvgFw8du55CICAADIWjOlDdk1FLdNuVLU
ZOKm0KYMoH55SiQGgC+Xat8AuG5qW3IRAQAAZC16K4fsGsosq9EgajJxU+RQrqJ+eUokBoBtxdo3AO5Z
0EVdtKsAAAB0+e7AlazEZSa7xl+h3bhPVGRip7YHgBUfat8A+NX63uRCAgAAyPhqg/avAC60KwWiIhM7
/DgHdQdQIjEAzH1V2xUAS5xm9t2+/ux7dWoDAADQY+8C7RsA3XblX6IiEzsyA8Ce2foGgO+3pZI/l7Jw
bDP2g7poAAAAem2Y1pbsGoo7T7lWVGRip9Bh7k/dARS9A8Dx5do3AK6Z1JpcRAAAAFlL38klu4ZSbDem
i4pM7NTmALCzVPsGwF1zO6qL1h8AAEC30mEWsmv8FVqV44wlXSQqMrFTbDNfQd0JFL0DwOqPtQ8Ax1f3
IBcRAABAxsnN2jcAum3KLFGPiR+pAWCWvgFg/mhtGwD5tZrP7+lHLiQAAICMA0ukNgC6RD0mfoocxn7U
nUDRMwD8uFP7BsDPRmepi3YFAACAbpvcEhsAHabbRT0mfmprAPh6pfYNgCsntiQXEQAAQNay95uTXUNx
O43Zoh4TP4U2Y1/qTqDoGQD2zNY+AGyf2Z5cRAAAAFmzXs4gu6YGq+mU1Zp0sajHxI/MALBbxwCw7hPt
GwC/LOuqLhrfAwAAABC+09ulNgAuFtVYP1LsMPWh7giKngFg0VhtGwC5szv7kAsJAAAg4/AyiQ2AecZR
ohrrR6QGgJnhDQA/7WnCSpz0z/Q359VMddH6AgAA6La1RGIDoM30gKjG+pEim6k3dUdQwh0ATq7Rfvy/
7MPm5CICAADIKvtIYgOgI72tqMb6EbdD6UXdEZRwB4D987QPAFvUaY1aRAAAAFlzX8sku8bfBKvhu3Hj
Ol0iqrF+RGYA2BXmALDxU+0bAA8t66wuGt8DAAAAEL6zu3qRPUNx25VVohbrTwpsSk/qzqCEOwAsHWck
fx7l1Lae5EICAADIOLpC5gqAprdFLdafSA0ApfIDwIU9qaw0n/55/vi5mtQiAgAAyNoxqx3ZNRS3zfSo
qMX6kyKnuQd1Z1DCGQBOb2hC/izKsvE56qL1BgAA0G3Vf1uQXUNx283dRS3Wn0R7ADi0UPsGwE2FrclF
BAAAkDV/dBbZNYQLRda0X4larD/hUw9xZ5DCGQC2TNe+AfDA4o7kIgIAAMg4v7eX55tlqa6pIS99s6jE
+hWZAWBnGAPA8ve0bwA8uambunC9AAAAdDm+RmoD4MeiEutXCl9K70bdIZRwBoBZI+if5a90mJlcRAAA
AFm75kpsAHSY/yoqsX5FagCYITcAnNucSv4cypK3m6mLxk8BBAAA0GftZIkNgDblSlGJ9SvFdmNX6g6h
yA4AXy7VvgFw/bSW5CICAADIWvRmNtk1lBKXkiIqsX4lmgPAtiLtGwD3LmhHLiIAAICM7/f3VEvdTHZN
Dbb0vaIO61+KXjJ2Ie8UguwAsOID7RsAv17PLwHcAwAAQBfeJ1TPUNx5pumiDutfojkAzH3FRP4cfyVO
M/t+X3dyIQEAAGTwT5SprqG47cq/RB3WvxTaTZ2pO4Wyo0T7APDdNu0bABe9mcV+PNAdAABAtw3TtG8A
LLQrQ0Ud1r+U5CmdqDuFIjMAHFuufQPg2snNyUUEAACQtfQd7RsAC62mpqIO61+iNQDwawZQP4Oye24b
chEBAABk8evKUF1Tk/EYY0kXiTqsf1HvhI417xSazACw+mPtGwBPrO6oLlo3AAAAXco3dyJ7huK2KbNE
FdbPqHeC9gGgWPsAMP91bRsA+bWav9vTlVxIAAAAGQeXaN8AWGRTnKIK62cK88wdyDuGoHUA+GGn9g2A
80dnkosIAAAga7O7Jdk1FLdduU1UYf2MzACwXeMA8NUK7RsAV03MYT/u7woAAKDbsvHNyK6huJ3GbFGF
9TMldnN76o6haB0A9szSvgFwx8xW5CICAADImvWyheyaGqymU1Zr0sWiCutnojEArJuk/RLAR8vak4sI
AAAg48w27VcAVC0SNVh/U5xnaUfcMSStA8CisdrPADi3s5O6cF0AAAB0ObKsLdkzAbwmarD+RmoAKAo9
O/5rln+eZwC4mVwLCgaAKCSc4/6fje3ITp+YyM5+8ykkuON7RjF3fgZ7wCn3JT9Z9gZfovyR2ow5P+Ua
i6vBeerxGEr2iMvZrQuu0lb+ON1P0Fr+3gHAv/zz9jyHAaAuE85x/xn5WezL7S+x8mNjoJ7YvvgRz9qP
dRjZIGdjlkE8OSvwjYP3qcPCR/b0A7OsRoN4qCFIVGN2GG5Osxp+oB6ToTR7OZXdvujq6uXvGQDCL//q
7/6p8q9fp/t5yl8MABXlzz2IAaBuEu73++9Y+ihZEpDYyiZfU/kY+MhuYn9zpLF7HansenUguMF5uecT
gn85mrLJ6r/zeby4GS73i0Q5Zlfy3Rar4SeqNELJGdmE3bF4UJDy9w4A4Zd/qE1/9eN0v+rv/r3ljwGg
jhLucf8Vnw4lywES3zeHX2XzxnQgHxdB5Zn+Ih52CBLxKA7Dw54LTBGFEUruq2nsrqWDdZS/73H/cMrf
991/Yp/u5//RP2fb8zf24EIMALUetfyfJ1+sg+DH/b89/BpZDlA/HNn2H1aSn0k+PgJ53678WPhSejfx
0EOQiCXDaXicKgotWrzWlN29bIgof5zuF5ny9w4AWsvfthcDQK2nyGbqjeP+EK6K/QAyCu3GfdgPgEQy
FkfK36iS0KLl6+nsnuVDNZa/Kmj5Vw0AdPnjdL9A5e8dAG4h14iCAUBn+HH/6VblEPUiHQyO+4Mv3/0A
ErAfANEf9TFkdqX8hyoILVqNNrF7y66tLH+c7lcxAHjL3zMABC3/8E73qyp/lSh/+97nMQDUVvhx/8I8
UynxwhwUjvuDP+wHQOokvPydhuFUOWjRZqzC7ltxnfbyx+l+gtby9w4AQctfvPvn5Y8BoBaD4/4QSdgP
gNRq1DcwFmfKGKoYtOBf8HP/SqL8PQNA+OVf/d0/Vf443S9Q+WMAqKXguD9EA/YDILWSKUm/sLhSxlOl
oEWHcZnsgVXXhyh/7wAQfvmH2vRXv0/3qyp/DAC1Ghz3h2jCfgAkmuk0LukSi9PwCVUIWnR6J5s9uPoG
neXve9w/nPL3ffdfP0/38z3ujwGgloLj/hBt2A+ARCvZo5L+V33nX0CVgRZdxuew36250af8cbpfZMrf
OwDoLX8MAFEOjvtDbcB+ACTSMY40Xqq+6M/0LwGtun3Q3FP+D2kuf1XQ8q8aAOjyx+l+suXPYQCIUnDc
H2oT9gMgkUpLa+PL1Hf+86kS0KLHRy3V4r+pWvnjdL+KAcBb/p4BIGj5R/Z0v0AwAEQh4R/3/5P6Yv46
QFjKJg8mH1chYD8AUhmztUGy+mK/zP/FX6veE9vIlz9O9xO0lr93AAha/sSOfwoGgAgn/OP+Q9QX8VEA
Yfvm8Mts3pj25OMrKOwHQNQ0df6mofrOfzX14q9Fv0nt2ENrePnfVLP8PQNA+OVf/d0/Vf443U+2/DkM
ABFOeMf9O7BvD49QX8RfBdDlyLYXsR8AkY55eOMmZpdhI/XCr0X/TztqLH/vABB++Yfa9IfT/bzljwGg
1hPucf+j219kp469AhAR2xc/TD7WgsF+gPqb7HyDUXElb6de9LUYMK1zhMrf97h/OOXv++4fp/tpgQEg
Qgn3uP/Opb9np46+DBBRZZMGko+3ELAfoJ5FsTXIUF/c9/i/2GuRkW9gAwu7EeWP0/0iU/7eASBa5c9h
AIhAwj3uv3LKYPXFegRAxH17yMnmjWlHPu6Cwn6AehPLsIa5FtdvD1Ev9qFk5Ddkg4u7V5Y/TvcLVv5V
x/1jqfw5DAARSHjH/duzk4cc6ov1MICo+HLr89gPgJDJcCW3MTpSjlEv9KHw8h86oxdZ/jjdr2IA8Ja/
ZwAIWv61c7pfIBgAdCbs4/7bnldfpPMBomr74gfIx2Aw022m/W6b6dEiu+lPkHj+4WjqzLT++gz1Ih9K
5rBG7LpZfcIrf5zuJ2gtf+8AELT8JXb8UzAA6Ej4x/0fVF+cnQC1omzSAPJxCPXPKEc6a+5qSL7Ah5I1
vBG7YU5fb/nXOO4vyt8zAIRf/tXf/VPlj9P9IlX+HAaAMBP+cf+B7PRRB0CtOXnoJTZvTFvy8Qj1x0h7
OsslXti1yBrRmN007wqJ8vcOAOGXf6hNfzjdz1v+GADqJOEd92/Hyg9Z1RdlG0CtOrr1Gen9AJA4hqnv
/JsRL+paZI+4nN0y/8oIlr/vcf9wyt/33T9O99MDA0AYCe+4fyY7tu0Z9cU4D6BO7Fh8L/nYhMRmczRl
mWF+7N9sZCq7beGAAOWP0/0iU/7eAaC2y5/DACCZwmG5v1GfVAf8n2Sh7FxyLzv95X8A6tSKSVeSj09I
TFZP+dMv6KHkvNKE3b54oPdb/UT543S/YOVfddw/HsqfwwAgGbfN9B/qiRbMyilXqS++VoA6d/LgC2ze
mDbk4xQSyz8daSyDeCHXIvfVNHbn0kEByz/kjv9IlT9O9xPlr4pw+XMYACQyxdryl1PtygnqyRbIZ2Pb
svJD/1RffP8FEBOObnmClbgyyMcrJIZnnWnki7gWLV5ryu76fHD45Y/T/QSt5e8dAIKWfwR2/FMwAEik
0KYMoJ5sgXiO+299gp358kWAmLJz0Z3kYxbi31OOJuQLuBYtXzeyu5cPqSr/Gsf9Rfl7BoDwy7/6u3+q
/HG6X7TLn8MAIJEim/Ii9YQLZNeSO9UX238CxKQVk64gH7cQn9yqR3WUf+sxJnbvF0Mly987AIRf/qE2
/eF0P2/5YwCo87htpneoJx5l5ZT+6ovsPwBiVvnB59i8Ma3Jxy/EF17+DzvDL/82Y83svrJrI1z+vsf9
wyl/33f/ON0vGjAASER9on3g/8QL5Nt9f1FfZJ8HiGlf73qCHVz9IMSx/aseYM9M7ES+aGvR7k0Lu2/F
dUHKH6f7Rab8vQNArJQ/hwFAImqxax4Ayg/yAeA5AICoKT/yLPvrtO7kC7YWHd7OZPevvN5T/pUDgN+m
v+Dlrwpa/lUDAF3+ON2vrsqfwwAgEbXYtQ8A+59mZ9QnJwBANJw89Az786Qu5Iu1Fp3ezWYPrApe/jjd
r2IA8Ja/ZwAIWv6xebpfIBgAJFJkU96nyp5Svv9J9Un6DABAxJUfepr94ZOO5Au1Fl3G57AHV9+gr/xx
up+gtfy9A0DQ8o/ijn8KBgCJyAwAp/Y/wc4e+QsAQMT9p6gP+SKtRbcPm6vl7y3+yvKvcdxflL9nAAi/
/Ku/+6fKH6f71VX5cxgAJOK2K+OpsqeU7/+z+kR9CgAgohavvZN8gdaix4SWlcUvV/7eASD88g+16Q+n
+3nLHwNAzKbIZnqPKntK+f7H1CfrkwAAEXXze7nkC3Qovf/bJkrl73vcP5zy9333j9P9ahMGAIlIDQD7
HlGfrI8DAETMhi33kS/OofSd3I49uMbvmH+N8sfpfpEpf+8AEOvlz2EAkEiR3fQuVfaU8n1/VJ+w/DAA
AEBkvDFvAPniHEz/TztUK//KAcBv01/w8lcFLf+qAYAuf5zuF2vlz2EAkIjcAPB79Qn7KABAxDz9qdwF
fwYUdNZU/jjdr2IA8Ja/ZwAIWv7xdbpfIBgAJCJzKeBTex9m5w7/CQAgYh74qDX54kzh7/zvKRvC7i0b
Wolf7ve+Fdx17P5K17MHuJXcDexBjxs9fudxk8dDHjd7PLzyFq9V6sCw6lYft3n8YfXtlf5YSR0e1lRQ
h4dK6vCwlrvb4zGPezz+vI671+PxdfdVemL9/ZWeXP+AoA4PGyqow0MldXjYyD1cwzObuN97/HXTHyo9
u/mPlZ7b/IigDhJbvJ7fog4SHo+xv3NbOXWIqKQOEdy2Jzxe8HjS40WPpzz+VcfunXs9+dihYACQGADK
9/5OfcL+EQAgYh6eqH0AAIgop2GgqML6Gbfd9DZV9pTyvQ+qT9g/AABEzAsF4V/5D0CPTEdKa1GF9TNS
A8Ce+9UnLD8MAAAQGZMWDyRfnAGiyvrrM53GJV0iqrB+pshmHEeVPaV8z33qE/YhAICIObLnHpY1rBH9
Ig0QJWZX8qeiButv5AaAe9QnLD8MAAAQOU9Mbku+SANEi9nRsL+owfobt115iyp7yqk9d7Pzhx8AAIio
7dtuYznDGpMv1ABRMENUYP2O1ACw+071yXofAEDEvTu/L/VCDRBR6a7ko6ZhDZuKCqzfcduUN6myp5Tv
uoOdP3QvAEDEnVO9VNSZfNEGiAin4WvF3qijqD9ELfY3/Is+kPJdt6lP1LsBAKLinOrdeb1ZDjYFQsSl
rM5yNs4W1YfwqMUuMQDcoj5J7wQAiKrtW29gT05uxZphEACdzK6UnWr5/7GfNel/RO0hFSm0KWOpsqeU
77pZfXLywwAAANF3fO8trGT5leyV0i7shent2PNT20IC+f3rZnaPIzWku6yX/6Q4DW9ppRb/SMXV8M9m
V4MOSSzpIlF3iH9kBoBTO29k3x26DQAAQLeyCe3JrvFXYG9wXlQWEsm47aYx1B1OObXzBnXRbgUAANAN
A0AdR2YAKN95nbpoNwMAAOhWNqEd2TX+MABEKUU202jqDqeU77xWXbSbAAAAdMMAUMeRGwCGqIvGDwMA
AADoUzahLdk1/jAARClFdtPr1B1OKd9xDfvu4PUAAAC6YQCo40gNANsHqYt2LQAAgG5lE9qQXeMPA0CU
4s4zjqLucMqp7QPZ9weHAgAA6IYBoI4jMwCUbx+gLto1AAAAupVNaE12jT8MAFGKeue+5n9nB+IdAAYD
AADohgGgjqPeuRIDwJXqovHDAAAAAPqUTWhFdo0/DABRSlGe8ip1h1PKt/VXF+1qAAAA3TAA1HHcduUV
6g6nlG/rpy7aVQAAALqVTWhJdo0/DABRiswAcGprX/bDgSsBAAB0wwBQx1EHgJHUHU45tbW3umhXAAAA
6FY2oQXZNf4wAEQpMgNA+dZe6qL1AwAA0A0DQB2nyGZ6mbrDKeVbe6iL1gcAAEC3sgnNya7xhwEgSpEa
ALZ0VxeNHwYAAADQBwNAHafQbhpB3eGU8i1d1UXrCQAAoFvZhFyya/xhAIhSZAaAU1u6sB8PdAcAANBt
xYQcsmv8YQCIUtw203DqDqec2tJZXbRuce/7fd3Y2Z1d2NkdAABQV774oBnZNf4mWA3fFVnTGsWy6c6m
DceN63SJqNb4iMwAUL65I/txf5e4dHxle7Z2ci6bNyqD/N0AAAD0GGtVfnbnKdvV//1Gsd3YVdRs7KbI
bhrm/0sEUr65g1qmnePKyQ0d2NJ3ssjfBwAAIFoK80ylJS4lU9Rt7EVqANjUTi1V/ilAfDi4uDWb4TKT
vwsAAEC0TbOnlxfbjYNE5cZWimxKPnWjKeWb2qrFyj8FiH0Hl2j7kgkAAICosqb9UORQrhK1Gztx2xUX
eYMJ5ZvaqOXKPwWIbeUb1Xf++XjnDwAAMcKqfDXNrqSJ6o2NyA0ArdlP+9vGvGXjccwfAABii9tu+lhU
b2ykyKY4qRtKKd/UUi1YPgTErm/WaLu2NAAAQG3ynCVgUzJE/dZ9pAaAjS3Ukm0V0zZOzyZvOwAAQN0z
vSDqt+6j3iBHzRtIK9+Qy37apw4BMWzBWAt52wEAAOqcTZkj6rfuo94giQEgRy3Z5jHrh93NWbETm/8A
ACA2TbeZ9ov6rfu4bYqdupGU8g3N1KLlQ0Bs+nq19o//V0+7i+354p8AAAC6zXlN66nnqd+K+q37yA0A
2ezCvmYxa9/cTPJ2U04fm8t+/n4bAACALhe+28Bmv6Ltmw1Vh0X91n3cdpONuIGk8g2ZatFmxaz1U7Qd
/y/Jz2Y/nNlILiQAAICM70/NI7uGZDMuFfVb95EaANZnqEXLh4DYtOQt+nb7W/j2VerEtoVcSAAAABkn
D4wnu4aidu4YUb91nyKbKY+6kZTy9Ra1aGPTT3stbIaLvt3+1pc8Ri4iAACArANrXiS7huK2KQ+L+q37
yA0AZrVsY9NJ9bZRt5lycN3r6qJtBQAA0G1d8a1k11AK88wdRP3Wfdx200vUjaSUrzOxC3tj08H59G2m
lB8uIRcRAABAxoXvN7F5o1uTXVODNe2HKdaWvxT1W/eRGwCM7Oe9sWnzNBN5m/0VOzLY96fXkQsJAAAg
44fTC8muobjzTGtF9cZG3DbTf6gbSilfm66WbdOYtOwdbQPAZ2/0YT+d5xsA6cUEAADQ6tSXH5NdQ3Hb
lfGiemMj6o2y+t/IQMrXpqll2yQmzRxO32Z/q6c/RC4iAACArCMbbWTXUNQB4HFRvbER9UZJDAC8bFNj
zplNTcjbS9m3Yji5iAAAALI2z7qH7BqK26H0EtUbGymyKf+mbiglVgeAw4uakreXsmXuHez8CQcAAIBu
C95qR3aNP/5VwFOsjS8T1RsbkRkATsboALC1UPsAsHvJjezskccBAAB0OX3wMc1fQOfOU7aL2o2duO3K
v6gbS4nVAaDsfSN5eynHN9+vLtyfAQAAdPlyg/aP/9U325+I2o2dSA0Aa2JzAJjzirYzAEpcGezM4cfI
hQQAAJCxY8F1ZNdQ3Dblb6J2YyfqVPIidWMpsTgAnN+qfQPgwnHtyEUEAACQtWZqX7JrKG6H6WpRu7GT
eB8Ajn6eRt5WyuqpfdRF458AAAAA6LPobW0bAD2saY1E7cZOiuymF8gbS4jFAWB7ifYNgDsWXEsuIgAA
gIwzhx/1HFamuoZwQFRubEVmAPg2BgeAVR9p3wD45Ya7yYUEAACQcXzLfWTPBOAWlRtbcdtM/yRuLCkW
B4DPRmn8DgCnmZ0++Ii6cI8CAADosnvJ9WTXUPgl90XlxlakBoDVsTUAfL9D+wbA+WNbkYsIAAAga13h
FWTXUNx20w2icmMr6g37B3WDKbE2AJwo0z4ArJzUg5078icAAADdlrzXgewaSoGtqUlUbmwlngeAXTO1
bwDcNncwO3dYXTgAAACdZg7PIrumBqvyFWNJF4nKja0U2Ux/J2804ZtVsTUArJmYTt5OyuHVt5OLCAAA
IOPr7Q+QPUMzzhV1G3tx203P0ze6plgbABaO0bYBkDu172F14R4BAADQZd+yG8meobhtpuGibmMv8ToA
/LQrlRU76Nvpb+6o5uQiAgAAyNpY3J/sGkqhw3inqNvYC78+MXWjKbE0APDbQt1GStnHXclFBAAAkLXs
w05k11AK8yy5om5jL/E6AOydq30D4JaZA9RF+yMAAIBus19pRnaNv2lW5YzVmnSxqNvYi3ojn/O/0YHE
0gCwfrL2DYAHV9xMLiIAAICMk7seJHuGZvxcVG1sRr2R2geAlWlkGdeFJW9p3wDIF4xaSAAAABn8DSXV
MySbabSo2thMkU15lrzhhFgZAC7sSWUlLvo2+uMf1Zw7/AcAAADdtsy8iuwaSqHd/JCo2tiMzADwdYwM
AOVrtW8A5Js1qEUEAACQxTeVU11DKcwzdxBVG5txO8x/pW44JVYGgAMLtG8A3Fh8hbpovwcAANCNn1ZO
dU0N1rQfplhb/lJUbWwmHgeATdO0bwDct+x6chEBAABknNontQFwjajZ2E2RzfQMfeNripUB4PN3jOTt
o3y9/R5yIQEAAGQcXn0L2TMkm+k9UbOxG6kBYEVsDAAzh2s7A4B/WcO5w/wSwAAAAPpsm3s12TUUt115
XNRs7KYoz/QX6sZTvoqBAeDMRu0bAJe8155cRAAAAFkrJ3Uju4bidii9RM3Gbtx209PUjafEwgBweJH2
DYDrC/uQiwgAACBr/tiWZNf4G2tVfp5ibXyZqNnYTbwNAFsLtW8A3LN4iLpoDwEAAOhy5sCDrNhpJrum
JtM2UbGxncI801P0L1BTLAwAX7yvfQPgic13kAsJAAAg4+j6W8meIdmUT0TFxnakBoCyuh8A5ozUtgFw
Rn4GO3uIXwL4dwAAALrsnD+Q7BoK/5I9UbGxHfXGPul/4wOp6wHg/BbtGwAXjWtDLiIAAICsNVN7kF1D
KbQpA0TFxnbUGxs3A8DRz9PI20VZM7UnuYgAAACyFo1rTXYNZbqzaUNRsbEdt015gvoFKHU9AGwv1n4G
wM4FA9VF44cAAAAAwnf20AOsxGUhu4ZwQNRr7EdmADhRxwPAyo+0nwFwdMMt5EICAADIOLH5NrJnAnCL
eo398KsVEb8Aqa4HgHmvadsAyE/VOHPgfnIhAQAAZOxePJjsmgCsol5jP1IDwBd1NwB8v0P7BkB+sYZz
hx8AAADQbV1BL7JrKIV5putFvcZ+imzKn6lfglKXA8CJMu0DwKpJXdl5ddEAAAD0WvpeO7JrKAW2piZR
r7GfeBkAdpVq3wC4fe6V6qLdDwAAoFvp8Eyya/xNtSsnGEu6SNRr7KfIbnyM+kUox5fX3QCwZqL2DYBH
1txALiIAAICMb7bdTvYMyabMEdUaH4mXAWDBaG0bALnT++4hFxIAAEDG/mXXkD1DMw0T1RofcdtMj9K/
SE11NQD8uCuVFTvo2+Rv3uu56qLdBwAAoNum4j5k11AKHcY7RbXGR9SJ5U/UL0KpqwHgm1XaNwCWTexE
LiIAAICsZR+0J7uGMsPZNEdUa3wkHgaAvXO0bwDcOrMfuYgAAACyZr+STXYN4bTVmnSxqNb4SJHN9Ajx
i5DqagBYP1n7BsBDK4aqi3YvAACALuW7ZDYAGpeKWo2fyAwAx5bVzQCw+E3tGwDLd99BLiQAAICMQyuG
kD1DsplGi1qNn7jtyh/JX4ZQFwPAhT2prMRF3x5//KOa84fuAQAA0G1LaV+ya0g24+9ErcZPYn0AKF+n
fQPg8g/bk4sIAAAgq+zjjmTXUErs5vaiVuMnxTblD9QvQ6mLAeDAfO0bADcV9yYXEQAAQNbcUTlk19Rg
TfthirXlL0Wtxk9ifQDYNFX7BsD9ywapi3Y3AACALqf3SGwAtBvXiEqNr6g3/vc1fxlaXQwAn7+tfQPg
t9tuIRcSAABAxpFVQ8meoZneFZUaX1FvvPYB4PPaHwBmDtM2AMwckUkuIgAAgKztc64gu4ZkU/4sKjW+
4rYpD5O/EKG2B4AzG7VvAFz6Xlt10e4CAADQbeUnncmuoRTYlJ6iUuMrMgPA0VoeAA4vSiNvB2V9YQ9y
EQEAAGTNH9uc7Bp/Y63Kz1OsjS8TlRpfKbSbH6J+KUptDwBbC7VvANy7eIC6aHcCAADocnb/7azYaSa7
xl9BnnGrqNP4C794AfVLUWp7APhivJG8HZSvNt9ALiQAAICMY+uuJXsmgP+KOo2/SA0AS2t3AJg9UtsG
wBn5FnbuIL2QAAAAMnbO7092TQDPiTqNv7jtpgeJX4hUmwPAuS3aNwAuGtdKXbQ7AAAAdFvzaReyayiF
NmWAqNP4i8wA8GUtDgB82KBuA2Xt1K7kIgIAAMha9FZLsmso051NG4o6jb+4baYHqF+KUpsDwPZi7ZcA
3jW/P7mIAAAAMs4dvJ2VuCxk1/ibbjPtF1Uan4nVAWDlR9rPADi2fqi6cLcDAADocmLTdWTPkPKUQlGl
8Zliu+l+8hcj1OYAMO81bRsA+akaZw/cRi4kAACAjD2LriS7JgCrqNL4jNQAsKR2BoDvt2vfALjgjebk
IgIAAMhaX9CN7Bqa6TpRpfGZIptyH/2L1VRbA8CJL7RvAFw9uRP77tBtAAAAui19tzXZNZRSa7pRVGl8
RmYAOFJLA8CuUu0bAHfM7UMuIgAAgKzS4Rlk1/ibaldOMJZ0kajS+IzbodxL/XKU2hoA1nysfQPg0dWD
1EW7FQAAQJdvt0psALQpc0SNxm+kBoDFtTMALBijbQMgd2bvTeRCAgAAyNj/ucQGQJuSL2o0flNsU+4h
fzlCbQwAP+5MZcUO+u/3N+/1HHIRAQAAZG0q6k52DclmukPUaPwm1gaAr1dqPwNgxcT26qLdAgAAoNuy
D9qQXUOZ4WyaI2o0flPkMN9N/XKU2hgA9s7RvgFw68ye5CICAADImj0yi+wawmmrNeliUaPxG7fNeBfx
y5FqYwBYP0n7BsDDKwaQiwgAACCjfOf1ZM9QCu3KElGh8R2ZAeDwougPAIvf0L4B8NSu69WFuxkAAECX
Q2VXkT1DM70uKjS+U+gw3kn/gjVFewD4aU8TVuKk/25/c17NJhcRAABA1tbSHmTXkGzG34kKje/E0gBw
cq32DYDLP2yjLho/BRAAAECfsgntyK6hlNjN7UWFxnf4qQzUL0iJ9gBwYL72DYCbS7qRiwgAACBr7qhm
ZNfU1Pj7KdaWvxQVGt+JpQFg01TtGwAPLOtPLiIAAICMM3u0bwAsyDOuFvUZ/3E7TLdTvyQl2gPA529r
3wB4cvsQdeFuBAAA0OXIKqkNgO+K+oz/yAwAhxZGbwC4sCeVlQ7TNgDMHJFJLiIAAICs7bN7kl1DMz4m
6jP+47Yrt9G/ZE3RHABOb9C+AfDz8a3IRQQAAJC16pP2ZNeQnOYeoj7jP7EyABxalEb+nZQNhZ3Zdwdv
AAAA0G3+mByya/yNtSo/zx6R+mtRn/Gf4jzlVuoXpURzANhaoH0D4L7FfclFBAAAkHFu33Ws2GEmu8Zf
QZ5xq6jOxEisDABfjDeSfyfl602D1IW7HgAAQJdjaweQPUNx20wTRXUmRtRf6hb/XzKQgwuiNwDMflnb
BsAZ+RZ2/gC9kAAAADJ2fdaL7BqSTXlWVGdixJ1nvpn8RQnRGgDObda+AXDx2y3IRQQAAJC1ZkoHsmtI
DuUqUZ2JkVgYAL5cqn0D4NqpHdVFuw4AAEC3RW81J7uGMstqNIjqTIwU2803Ub8oJVoDwPZi7RsAd8/v
RS4iAACAjPMHrmUlLm0bAAvtxn2iNhMnsTAArPhQ+wBwYv0AciEBAABkfLXxarJnKIV2pUDUZuKkKM94
I/XLUqI1AMx7VdsGwGKnmZ3bP1RduGsBAAB02bNQagPgv0VtJk6kBoD5TckC1+P77ank30VZ8EYuuYgA
AACy1k/vSHYNzXSdqM3EidtuuoH+ZWuKxgBw/AvtGwBXT27PvlcXDQAAQK+l77Qgu4ZSbDemi9pMnMgM
APz7+qkS12Nnqfbj/zvndlcXbSgAAIBupcMzyK7xV2hVjjOWdJGozcRJYZ7peuoXpkRjAFg9UfsAcGx1
f3IRAQAAZJzcIrUBcLaozMSK1ADwWeQHgAWjNW4AdCjs3N7B6sINAQAA0OXA0t5k15BsSr6ozMQK39hA
/sKESA8AP+5M9RQ79Xf5+2x0M3IRAQAAZG1ydyK7huJ2mG4XlZlYqcsB4OuV2jcArpjYhlxEAAAAWcve
b0V2DaU4L72ZqMzEijtPuZb6hSmRHgD2zG5K/j2UbTO7qIt2DQAAgG6zRmaSXVOD1XTKak26WFRmYkVm
ANgf4QFg3STtGwCPrOhLLiIAAICMUzukNgAuEXWZeFF/uaHUL03ZPy+yA8CiN7VtAOTO7LpaXTi+CRAA
ACB8h5Zr3wDozjOOEnWZeCnOMw+hfmlKJAeAn/Y0YSVO+u/xN+fVLHIRAQAAZG2d0ZnsGorbbnpQ1GXi
pa4GgJNrm5B/B+WLD1uRiwgAACCrbEJrsmsoxXmWdqIuEy9FdvM11C9NieQAsP8z7WcAbCnppC7aIAAA
AN3mvpZFdk1Njb8fN67TJaIuEy8yA8C+CA4AGz/VvgHw4LKe5CICAADIOLt7ANkzFLddWSWqMjHjthkH
U784JZIDwNJx2jcAlm+7klxIAAAAGV+u7EP2DMVtM70jqjIxIzUAzI3MAHBhTyorzdc2AMwakaEu2kAA
AADdts/WvgGwyG58TFRlYqbYbhxE/+I1RWoAOL1B+wbAz8e3IBcRAABA1qr/at8AWOQ09xBVmZipiwHg
0CLtGwA3FnYgFxEAAEDW/DHNyK4hXJg9IvXXoioTM0U200DiFydFagDYUqB9A+C+xd3VReMXAQIAAAjf
uX0DNH8BnduevkXUZOKmLgaA5e8ZyZ9P+WZzP3IhAQAAZBxfK7UBcKKoycSN22G6mvrlKZEaAGaNoH++
vxn5FnXRBgAAAOi2a14XsmtINuVZUZOJG5kBYO8c/QPAuc3aNwAufjuXXEQAAABZa6a0IbuG4rYpV4qa
TNwU2pQB1C9PicQA8OVS7RsA101tSy4iAACArEVv5ZBdQ5llNRpETSZuihzKVdQvT4nEALCtWPsGwD0L
uqiLdhUAAIAu3x24kpW4zGTX+Cu0G/eJikzs1PYAsOJD7RsAv1rfm1xIAAAAGV9t0P4VwIV2pUBUZGKH
H+eg7gBKJAaAua9quwJgidPMvtvXn32vTm0AAAB67F2gfQOg2678S1RkYkdmANgzW98A8P22VPLnUha+
0Yz9oC4aAACAXhumtSW7huLOU64VFZnYKXSY+1N3AEXvAHB8ufYNgGsmtSYXEQAAQNbSd3LJrqEU243p
oiITO7U5AOws1b4BcNfcjuqi9QcAANCtdJiF7Bp/hVblOGNJF4mKTOwU28xXUHcCRe8AsPpj7QPA8dU9
yEUEAACQcXKz9g2AbpsyS9Rj4kdqAJilbwCYP1rbBkB+rebze/qRCwkAACDjwBKpDYAuUY+JnyKHsR91
J1D0DAA/7tS+AfCz0Vnqol0BAACg2ya3xAZAh+l2UY+Jn9oaAL5eqX0D4MqJLclFBAAAkLXs/eZk11Dc
TmO2qMfET6HN2Je6Eyh6BoA9s7UPANtnticXEQAAQNaslzPIrqnBajpltSZdLOox8SMzAOzWMQCs+0T7
BsAvy7qqi8b3AAAAAITv9HapDYCLRTXWjxQ7TH2oO4KiZwBY9Ia2DYDc2Z19yIUEAACQcXiZxAbAPOMo
UY31I1IDwMzwBoCf9jRhJU76Z/qb82qmumh9AQAAdNtaIrEB0GZ6QFRj/UiRzdSbuiMo4Q4AJ9doP/5f
9mFzchEBAABklX0ksQHQkd5WVGP9iNuh9KLuCEq4A8D+edoHgC3qtEYtIgAAgKy5r2WSXeNvgtXw3bhx
nS4R1Vg/IjMA7ApzANj4qfYNgIeWdVYXje8BAAAACN/ZXb3InqG47coqUYv1JwU2pSd1Z1DCHQCWjjOS
P49yaltPciEBAABkHF0hcwVA09uiFutPpAaAUvkB4MKeVFaaT/88f/xcTWoRAQAAZO2Y1Y7sGorbZnpU
1GL9SZHT3IO6MyjhDACnNzQhfxZl2fgcddF6AwAA6Lbqvy3IrqG47ebuohbrT6I9ABxaqH0D4KbC1uQi
AgAAyJo/OovsGsKFImvar0Qt1p/wqYe4M0jhDABbpmvfAHhgcUdyEQEAAGSc39vL882yVNfUkJe+WVRi
/YrMALAzjAFg+XvaNwCe3NRNXbheAAAAuhxfI7UB8GNRifUrhS+ld6PuEEo4A8CsEfTP8lc6zEwuIgAA
gKxdcyU2ADrMfxWVWL8iNQDMkBsAzm1OJX8OZcnbzdRF46cAAgAA6LN2ssQGQJtypajE+pViu7ErdYdQ
ZAeAL5dq3wC4flpLchEBAABkLXozm+waSolLSRGVWL8SzQFgW5H2DYB7F7QjFxEAAEDG9/t7qqVuJrum
Blv6XlGH9S9FLxm7kHcKQXYAWPGB9g2AX6/nlwDuAQAAoAvvE6pnKO4803RRh/Uv0RwA5r5iIn+OvxKn
mX2/rzu5kAAAADL4J8pU11DcduVfog7rXwrtps7UnULZUaJ9APhum/YNgIvezGI/HugOAACg24Zp2jcA
FtqVoaIO619K8pRO1J1CkRkAji3XvgFw7eTm5CICAADIWvqO9g2AhVZTU1GH9S/RGgD4NQOon0HZPbcN
uYgAAACy+HVlqK6pyXiMsaSLRB3Wv6h3QseadwpNZgBY/bH2DYAnVndUF60bAACALuWbO5E9Q3HblFmi
Cutn1DtB+wBQrH0AmP+6tg2A/FrN3+3pSi4kAACAjINLtG8ALLIpTlGF9TOFeeYO5B1D0DoA/LBT+wbA
+aMzyUUEAACQtdndkuwaituu3CaqsH5GZgDYrnEA+GqF9g2AqybmsB/3dwUAANBt2fhmZNdQ3E5jtqjC
+pkSu7k9dcdQtA4Ae2Zp3wC4Y2YrchEBAABkzXrZQnZNDVbTKas16WJRhfUz0RgA1k3Sfgngo2XtyUUE
AACQcWab9isAqhaJGqy/Kc6ztCPuGJLWAWDRG9rPADi3s5O6cF0AAAB0ObKsLdkzAbwmarD+RmoAKAo9
APy0O5WVOLSdATD31QxyEQEAAGRtLZbYAGgzPSBqsP7G7UhvS905FC0DwMk12jcAln3UTF20zgAAALrx
TqG6hsK7T9Rg/Y3MALBNwwCwb572DYBbi1uQiwgAACBr7msZZNf4m2A1fDduXKdLRA3W3xTkGdtQdxBF
ywCwcYr2DYCHP29DLiIAAIAMvp+M6hnSS8pKUYH1O8UOY2vyDiJoGQCWjtO+AfDMtg7qwvFNgAAAAOE7
@ -560,16 +560,16 @@
azV/v6e1unBtAAAAdDm4uDnZNSSb4hS1h1Rkus2URd5ZBGoA+GGn9g2A80dbyEUEAACQtblQ+wbA4jzl
VlF7SEX0DgBfrdC+AXD1f7PIRQQAAJC1fLz2DYC860TtIRUpcSmZ1J1FoQaA3bO1bwDcOTNHXTR+CAAA
AECfWS9r2wA4zZ5ebrUmXSxqD6mI3gFg7SfaNwAeK2tOLiIAAICMM1tbkT0TwCJReYhv3DYlg7izSNQA
sPAN7QPA+Z38DAB6MQEAALQ68rnEBsA85VVReYhvpAaAadUHgJ92p7ISh7YzAOa9xjcA8gEAAABAn23F
EhsA7ab7ReUhvilwmS3UHUbxHwC+Xa19A+CKjzLJRQQAAJBV9qH2DYAFecY2ovIQ38gMAJv8BoB9c7Vv
ANxWwi8B3BIAAEC3ua9q2wA4wWr4bty4TpeIykN8U2KzmKk7jeI/AGz4NJ38c5Qjy/gZAPRCAgAAaHV+
h/ZvACywKytE3SH+0TMALB2nfQPg2a0t2E/71MUDAADQ4dgXuWTPkGzGcaLuEP8U5Wcq5J1G2DS1agC4
sCeVzcin/5y/2S+b1UXjAwAAAIA+O0qzya6hmf4k6g7xT4GtqYm+02ryHQBOrW9C/hlK2fsZ7PzmFgAA
ALqc29ycrfpY+wbAwpfSu4m6Q/wjMwBs9BkADi7QfgbA1inZ7JvluQAAALqUr8r1fK8M1TU1WJWfJo80
XirqDvFPqTXdSN5xBN8BgJ8SSP0Zyr4ZzciFBAAAkFG+JtfzzbJU1xA2iapDqIQ7ACx7V9sGwBlOMzu6
IIdcSAAAABlHl+aQXUOymSaIqkOoFNuN6eQdR/AdAGaOoP+Mv7kjLeqi8QEAAABAn92zs8iuIdlMz4iq
Q6hIDQCfegeAs5u1bwD84t0MchEBAABkfLs8l62bpH0DYLHNfIWoOoRKodXUlLrjKBUDwJEl2jcAbpqU
RS4kAACAjPKVOWzRWI0bAFUFVnOyqDqEiswAwK/8xweAbW7tlwDeU8zPAKAXEwAAQKvTa3JYiZPumprS
sHCs9gHg/E5+BgC9mAAAAFod+VxiA2Ce8qqoPMQ3UgPAtOoDwE+7U1mJQ9sZAPNe4xsA+QAAAACgz7Zi
iQ2AdtP9ovIQ3xS4zBbqDqP4DwDfrta+AXDFR5nkIgIAAMgq+1D7BsCCPGMbUXmIb2QGgE1+A8C+udo3
AG4r4ZcAbgkAAKDb3Fe1bQCcYDV8N25cp0tE5SG+KbFZzNSdRvEfADZ8mk7+OcqRZfwMAHohAQAAtDq/
Q/s3ABbYlRWi7hD/6BkAlo7TvgHw7NYW7Kd96uIBAADocOyLXLJnSDbjOFF3iH+K8jMV8k4jbJpaNQBc
2JPKZuTTf87f7JfN6qLxAQAAAECfHaXZZNfQTH8SdYf4p8DW1ETfaTX5DgCn1jch/wyl7P0Mdn5zCwAA
AF3ObW7OVn2sfQNg4Uvp3UTdIf6RGQA2+gwABxdoPwNg65Rs9s3yXAAAAF3KV+V6vleG6poarMpPk0ca
LxV1h/in1JpuJO84gu8AwE8JpP4MZd+MZuRCAgAAyChfk+v5ZlmqawibRNUhVMIdAJa9q20D4AynmR1d
kEMuJAAAgIyjS3PIriHZTBNE1SFUiu3GdPKOI/gOADNH0H/G39yRFnXR+AAAAACgz+7ZWWTXkGymZ0TV
IVSkBoBPvQPA2c3aNwB+8W4GuYgAAAAyvl2ey9ZN0r4BsNhmvkJUHUKl0GpqSt1xlIoB4MgS7RsAN03K
IhcSAABARvnKHLboDY0bAFUFVnOyqDqEiswAwK/8xweAbW7tlwDeU8zPAKAXEwAAQKvTa3JYiZPumprS
94iaQwJlml1Jo++8mioGgLL3tW0A5At15DN+BgC9mAAAAFodX679GwCL7KZpouaQQAlnAJjzCv3v/c0e
bmbfLKMXEgAAQMbeORIbAO2mF0TNIYFSYjU3oe+8mvgA8N22VPLfUZaPs7Bv1YkNAABArw2fZpBdQynO
Mw8RNYcEitQAMCWdHVumfQPgzrnXsR8O3A8AAKDLjwfuYEvf1r4BkH+6LWoOCRS3IyOVuvMofADYMUP7
@ -582,36 +582,36 @@
FjuMrUW9IaESjQFgewn/DoAsAAAA3RaN1nYGQIG9wfkF1qT/EfWGhEqJS0mh7kg9jiziA0AmAACALl8t
yWSlLq0DgLJCVBuiJdEYAE6uyiAXEgAAQMbBWRmsWOP+M7ddeUtUG6IlBVZzMnVHhmv2SIWdXoMBAAAA
9NtZoP0rgItspkdEtSFaEukBYPl4hZ0s4wMAAACAPusmSGwAtBu7impDtGRKfmYD6o4M15YChVxEAAAA
WUvf0HgJYKvy0+SRxktFtSFaUmrN/i15Z4bp0AIzuYgAAAAyvl6awWblaxsACvOUjaLWEK2J9ADwzQoM
AAAAoN/hORmsxKFxALAbPxK1hmhN4bDc31B3ZjhKhyns7Dp+CiC9mAAAAFrtKpTYAJhn+ouoNURrIjkA
fP6OwspX8AEAAABAnw3/ldgAaDNfIWoN0Zop1saXUXdmOLbP6s3O7xjAzm0HAADQYWsvtvQtjRsAVfyM
NlFriNZEbgAws6+3PMF+PvE0AACALhcO38xKnFTX1FRoa7pbVBoik9kjUn9N3aGyZr7cip07QC8kAACA
jFNbriS7hlKYZ5oqKg2RSaQGgAVv9WIXjtMLCQAAIOPg4k5k19BML4hKQ2RSZE37FX2Hylk7bQi5iAAA
ALI2Tssku4ZmvkZUGiKTSA0AexffrS7aUwAAAPoc/z1bOs5Edg2lxGpuIioNkQm/dCJ1h8r6auNj9EIC
AADIOHIrK82nu8Zfgb3pl6LOENlEYgAoHd6cnd3HF+5JAAAAXc7uuJrsGkphnqlU1BkimwVW8/9Rd6qM
z8Z0YxeO0QsJAAAg48vlncmuobhtil3UGSKbSAwAqyYPIhcRAABA1lZ3M7JrArhF1Bkim9JR2f9L3KFS
di24nVxEAAAAKccfYcvfk9gA6FIyRZ0hsplibflL6k6Vsae0NTu9ti0AAIAu5zc2Z7NG0F1TgzXtJGNJ
F4k6Q2SjdwAodijs0GyFfbvMBAAAoMvJFUayayhuu2mBqDIknIwb1+kS6o7VqtRlZl8voRcSAABAxuH5
6WTXUNx25RVRZUg40TsALBptJhcRAABA1rYi7QNAkU25T1QZEk4WWJP+h7xjNVr7IQYAAADQ7+RyI1vx
gfZDAMUOY2tRZUg40TsA7JiG4/8AAKDf6VVGNvdVbWcAFNgbnOf9JaoMCSdTpiT9grpztSh2mNnBUgwA
AACg36mVEsf/X1LKRI0h4UbPAFDqUtiJRfRCAgAAyPhykdQGwLdEjSHhxmpNupi6c7VY8Bre/QMAQGTs
LJbZAGh6RNQYEm70DACrPsAAAAAAEbDcxFZP1L4BsOglYxdRY0i44VdRIu9cDbZPz2LlK5sDAADocmZt
Dpv/Ot01NViVn/j32IgaQ8KNngHgq3XXsZ9PPAEAAKDLhaOPejaWU13jrzBP2SgqDNEb6g7W4rv995IL
CQAAIOP0znvInqEU2o0fifpC9Ia6g0OZNcKsLtpjNRYRAABA1pGya8muobjtpqdFfSF6Q93BoZR92Ipc
RAAAAFlbS/qQXUNyGPuJ+kL0ZqxV+Zm8k4PYObsXuYgAAACylo1vS3YNZUp+ZgNRX4jehDMAHFs1hFxE
AAAAGReOPc5muDLIrvFXaGu6W1QXEomod+oF/zs5lLN77iIXEgAAQMaZPfeTPUNx242fiupCIhF+TiV1
Rwcyw6Wwn4//iVxIAAAAGcdW3UB2DcVtM/1TVBcSiRRZTaeoOzqQZe/lkosIAAAga8fsfmTX0MzXiOpC
IpFCu2kdfUfTtpZ0IxcRAABA1ooJ7cmuobgdGamiupBIpNCmvEHd0YGsndKBHfp8EAAAgG6lwzPJrqnB
mnZE1BYSqRQ7TH3IOxsAACBGuO2mGaK2kEjF+30AxjXUHQ4AABAL1AHAJmoLiWSKnMYuRTb6TgcAAKhr
bofpalFZSKSjDgBzqDsdAACgTlnTj44b1+kSUVdIpFNsN6a/bzf9SN75AAAAdcRtNz0vqgqJVvidTN35
AAAAdcFtT9+ywGr+P1FTSLQyZUrSL9Q73O2/AAAAALXOmnbSnWdqJSoKiXb4pFVoVwrIxQAAAKgFhVbl
eNFLxi6impDaitWadHFRnukv6iKc9l8UAACAKHPzfWmikpC6SKmjSeMiu+mFojxlPbFAAAAAETHVrpxw
25QPi5zmHqKCkFhJ4bDc3xTkGdu47ebuAAAAkVBoN3UutaYb+UXpRN0gCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIg
CIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgCIIgSEwnKen/AaDL
XZHNmWozAAAAAElFTkSuQmCC
WUvHarwEsFX5afJI46Wi2hAtKbVm/5a8M8N0aIGZXEQAAAAZXy/NYLPytQ0AhXnKRlFriNZEegD4ZgUG
AAAA0O/wnAxW4tA4ANiNH4laQ7SmcFjub6g7MxylwxR2dh0/BZBeTAAAAK12FUpsAMwz/UXUGqI1kRwA
Pn9HYeUr+AAAAACgz4b/SmwAtJmvELWGaM0Ua+PLqDszHNtn9Wbndwxg57YDAADosLUXW/qWxg2AKn5G
m6g1RGsiNwCY2ddbnmA/n3gaAABAlwuHb2YlTqpraiq0Nd0tKg2RyewRqb+m7lBZM19uxc4doBcSAABA
xqktV5JdQynMM00VlYbIJFIDwIK3erELx+mFBAAAkHFwcSeya2imF0SlITIpsqb9ir5D5aydNoRcRAAA
AFkbp2WSXUMzXyMqDZFJpAaAvYvvVhftKQAAAH2O/54tHWciu4ZSYjU3EZWGyIRfOpG6Q2V9tfExeiEB
AABkHLmVlebTXeOvwN70S1FniGwiMQCUDm/Ozu7jC/ckAACALmd3XE12DaUwz1Qq6gyRzQKr+f+oO1XG
Z2O6sQvH6IUEAACQ8eXyzmTXUNw2xS7qDJFNJAaAVZMHkYsIAAAga6u7Gdk1Adwi6gyRTemo7P8l7lAp
uxbcTi4iAACAlOOPsOXvSWwAdCmZos4Q2UyxtvwldafK2FPamp1e2xYAAECX8xubs1kj6K6pwZp2krGk
i0SdIbLROwAUOxR2aLbCvl1mAgAA0OXkCiPZNRS33bRAVBkSTsaN63QJdcdqVeoys6+X0AsJAAAg4/D8
dLJrKG678oqoMiSc6B0AFo02k4sIAAAga1uR9gGgyKbcJ6oMCScLrEn/Q96xGq39EAMAAADod3K5ka34
QPshgGKHsbWoMiSc6B0AdkzD8X8AANDv9Cojm/uqtjMACuwNzvP+ElWGhJMpU5J+Qd25WhQ7zOxgKQYA
AADQ79RKieP/LyllosaQcKNnACh1KezEInohAQAAZHy5SGoD4FuixpBwY7UmXUzduVoseA3v/gEAIDJ2
FstsADQ9ImoMCTd6BoBVH2AAAACACFhuYqsnat8AWPSSsYuoMSTc8KsokXeuBtunZ7Hylc0BAAB0ObM2
h81/ne6aGqzKT/x7bESNIeFGzwDw1brr2M8nngAAANDlwtFHPRvLqa7xV5inbBQVhugNdQdr8d3+e8mF
BAAAkHF65z1kz1AK7caPRH0hekPdwaHMGmFWF+2xGosIAAAg60jZtWTXUNx209OivhC9oe7gUMo+bEUu
IgAAgKytJX3IriE5jP1EfSF6M9aq/EzeyUHsnN2LXEQAAABZy8a3JbuGMiU/s4GoL0RvwhkAjq0aQi4i
AACAjAvHHmczXBlk1/grtDXdLaoLiUTUO/WC/50cytk9d5ELCQAAIOPMnvvJnqG47cZPRXUhkQg/p5K6
owOZ4VLYz8f/RC4kAACAjGOrbiC7huK2mf4pqguJRIqsplPUHR3IsvdyyUUEAACQtWN2P7JraOZrRHUh
kUih3bSOvqNpW0u6kYsIAAAga8WE9mTXUNyOjFRRXUgkUmhTxlJ3dCBrp3Rghz4fBAAAoFvp8Eyya2qw
ph0RtYVEKsUOUx/yzgYAAIgRbrtphqgtJFLxfh+AcQ11hwMAAMQCdQCwidpCIpkip7FLkY2+0wEAAOqa
22G6WlQWEumoA8Ac6k4HAACoU9b0o+PGdbpE1BUS6RTbjenv200/knc+AABAHXHbTc+LqkKiFX4nU3c+
AABAXXDb07cssJr/T9QUEq1MmZL0C/UOd/svAAAAQK2zpp1055laiYpCoh0+aRXalQJyMQAAAGpBoVU5
XvSSsYuoJqS2YrUmXVyUZ/qLugin/RcFAAAgytx8X5qoJKQuUupo0rjIbnqhKE9ZTywQAABAREy1Kyfc
NuXDIqe5h6ggJFZSOCz3NwV5xjZuu7k7AABAJBTaTZ1LrelGflE6UTcIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAI
giAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIgiAIEtNJSvp/vSpd
ifz6oaAAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripDropDownButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

@ -831,33 +831,59 @@ Public Class clsDB
#Region "Fakturierung"
Public Sub Rechnung_buchen(ByVal Type As Integer, ByVal Rechnungsnummer As String, rate As String, behandlungsnummer As String, ByVal Betrag As Decimal)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_Rechnung_Buchen"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Type", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Type))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Fakturanr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Hauptfaktura", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, rate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@behandlungsnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Betrag", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Betrag))
If Globals.akontobuchung = True Then
scmCmdToExecute.Parameters.Add(New SqlParameter("@akontoid", SqlDbType.Int, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Globals.akontoid))
Else
scmCmdToExecute.Parameters.Add(New SqlParameter("@akontoid", SqlDbType.Int, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Globals.akontoid))
End If
If Globals.akontobuchung = True Then
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_Rechnung_Buchen"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Type", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Type))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Fakturanr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Hauptfaktura", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, rate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@behandlungsnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Betrag", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Betrag))
If Globals.akontobuchung = True Then
scmCmdToExecute.Parameters.Add(New SqlParameter("@akontoid", SqlDbType.Int, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Globals.akontoid))
Else
scmCmdToExecute.Parameters.Add(New SqlParameter("@akontoid", SqlDbType.Int, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Globals.akontoid))
End If
scmCmdToExecute.Connection.Open()
'scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
scmCmdToExecute.Connection.Open()
'scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
Else
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_Rechnung_Buchen"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Type", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Type))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Fakturanr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Hauptfaktura", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, rate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@behandlungsnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Betrag", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Betrag))
scmCmdToExecute.Connection.Open()
'scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End If
End Sub

@ -3,6 +3,7 @@ Imports Syncfusion.Pdf
Imports Syncfusion.XPS
Imports QRCoder
Imports QRCoder.PayloadGenerator
Imports System.IO
Public Class frmReportView
Dim splitter() As String
@ -84,6 +85,15 @@ Public Class frmReportView
db.Get_Tabledata("Auswertung", "where Auswertungnr=" + Me.ReportNr.ToString)
kopien = db.dsDaten.Tables(0).Rows(0).Item("Kopien")
freport = New FastReport.Report
'20221108 - Fonts
'Dim fonts = Directory.GetFiles(Application.StartupPath + "\Fonts")
'For Each F As String In fonts
' FastReport.Utils.Config.PrivateFontCollection.AddFontFile(F)
'Next
'FastReport.Utils.Config.FontListFolder = Application.StartupPath + "\Fonts"
''20221108 Ende
Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter)
db.Get_RptDatei((Me.ReportNr), FILENAME)
@ -264,6 +274,7 @@ Public Class frmReportView
pdfexport.Compressed = UCase(db.Get_Option(50000)) = "TRUE"
pdfexport.AllowPrint = UCase(db.Get_Option(50002)) = "TRUE"
pdfexport.TextInCurves = UCase(db.Get_Option(50001)) = "TRUE"
pdfexport.EmbeddingFonts = True
'pdfexport.Compressed = False
'pdfexport.AllowPrint = True
'pdfexport.EmbeddingFonts = True
@ -290,6 +301,15 @@ Public Class frmReportView
db.Get_Tabledata("Auswertung", "where Auswertungnr=" + Me.ReportNr.ToString)
kopien = db.dsDaten.Tables(0).Rows(0).Item("Kopien")
freport = New FastReport.Report
'20221108 - Fonts
'Dim fonts = Directory.GetFiles(Application.StartupPath + "\Fonts")
'For Each F As String In fonts
' FastReport.Utils.Config.PrivateFontCollection.AddFontFile(F)
'Next
'FastReport.Utils.Config.FontListFolder = Application.StartupPath + "\Fonts"
''20221108 Ende
Dim FILENAME As String = db.get_reportdata(Me.ReportNr, Parameter)
db.Get_RptDatei((Me.ReportNr), FILENAME)
@ -487,7 +507,8 @@ Public Class frmReportView
pdfexport.Compressed = UCase(db.Get_Option(50000)) = "TRUE"
pdfexport.AllowPrint = UCase(db.Get_Option(50002)) = "TRUE"
pdfexport.TextInCurves = UCase(db.Get_Option(50001)) = "TRUE"
'pdfexport.EmbeddingFonts = True
'pdfexport.PdfCompliance = FastReport.Export.Pdf.PDFExport.PdfStandard.PdfX_4
'pdfexport.Compressed = False
'pdfexport.AllowPrint = True
' pdfexport.EmbeddingFonts = True
@ -521,7 +542,7 @@ Public Class frmReportView
pdfexport.Compressed = UCase(db.Get_Option(50000)) = "TRUE"
pdfexport.AllowPrint = UCase(db.Get_Option(50002)) = "TRUE"
pdfexport.TextInCurves = UCase(db.Get_Option(50001)) = "TRUE"
pdfexport.EmbeddingFonts = True
' pdfexport.Compressed = False
'pdfexport.AllowPrint = True
'pdfexport.EmbeddingFonts = True

File diff suppressed because it is too large Load Diff

@ -1,115 +1,115 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmZahlung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmZahlung))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.txtProtokoll = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1267, 27)
Me.ToolStrip1.TabIndex = 16
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtnquit
'
Me.tsbtnquit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnquit.Name = "tsbtnquit"
Me.tsbtnquit.Size = New System.Drawing.Size(29, 24)
Me.tsbtnquit.Text = "Schliessen"
'
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(29, 24)
Me.tsbtnSave.Text = "Zahlungsdatei öffnen und verarbeiten"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'txtProtokoll
'
Me.txtProtokoll.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtProtokoll.Location = New System.Drawing.Point(0, 44)
Me.txtProtokoll.Margin = New System.Windows.Forms.Padding(4)
Me.txtProtokoll.Multiline = True
Me.txtProtokoll.Name = "txtProtokoll"
Me.txtProtokoll.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.txtProtokoll.Size = New System.Drawing.Size(1267, 616)
Me.txtProtokoll.TabIndex = 17
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Dock = System.Windows.Forms.DockStyle.Top
Me.Label1.Location = New System.Drawing.Point(0, 27)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(63, 17)
Me.Label1.TabIndex = 18
Me.Label1.Text = "Protokoll"
'
'frmZahlung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1267, 660)
Me.Controls.Add(Me.txtProtokoll)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "frmZahlung"
Me.Text = "Zahlungen verarbeiten"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents tsbtnquit As ToolStripButton
Friend WithEvents tsbtnSave As ToolStripButton
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents txtProtokoll As TextBox
Friend WithEvents Label1 As Label
End Class
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmZahlung
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmZahlung))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.txtProtokoll = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.AllowDrop = True
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1267, 27)
Me.ToolStrip1.TabIndex = 16
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtnquit
'
Me.tsbtnquit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnquit.Name = "tsbtnquit"
Me.tsbtnquit.Size = New System.Drawing.Size(29, 24)
Me.tsbtnquit.Text = "Schliessen"
'
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(29, 24)
Me.tsbtnSave.Text = "Zahlungsdatei öffnen und verarbeiten"
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'txtProtokoll
'
Me.txtProtokoll.Dock = System.Windows.Forms.DockStyle.Fill
Me.txtProtokoll.Location = New System.Drawing.Point(0, 44)
Me.txtProtokoll.Margin = New System.Windows.Forms.Padding(4)
Me.txtProtokoll.Multiline = True
Me.txtProtokoll.Name = "txtProtokoll"
Me.txtProtokoll.ScrollBars = System.Windows.Forms.ScrollBars.Both
Me.txtProtokoll.Size = New System.Drawing.Size(1267, 616)
Me.txtProtokoll.TabIndex = 17
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Dock = System.Windows.Forms.DockStyle.Top
Me.Label1.Location = New System.Drawing.Point(0, 27)
Me.Label1.Margin = New System.Windows.Forms.Padding(4, 0, 4, 0)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(63, 17)
Me.Label1.TabIndex = 18
Me.Label1.Text = "Protokoll"
'
'frmZahlung
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1267, 660)
Me.Controls.Add(Me.txtProtokoll)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Margin = New System.Windows.Forms.Padding(4)
Me.Name = "frmZahlung"
Me.Text = "Zahlungen verarbeiten"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents tsbtnquit As ToolStripButton
Friend WithEvents tsbtnSave As ToolStripButton
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents txtProtokoll As TextBox
Friend WithEvents Label1 As Label
End Class

File diff suppressed because it is too large Load Diff

@ -1,307 +1,307 @@
Imports System.IO
Imports System.IO.Compression
Public Class frmZahlung
Dim fname As String
Dim lw As String
Dim f As String
Dim s1 As String
Dim i As Integer
Dim ii As Integer
Dim jetzt As Double
Dim az As Integer
Dim xx As Double
Dim su As Integer, su1 As Integer, su2 As Integer, su3 As Integer
Dim nrkonto As String
Dim fehler As Integer = 0
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub
Public Sub Insert_Protokoll(ByVal IText As String)
'If Me.txtProtokoll.Text <> "" Then Me.txtProtokoll.Text = Me.txtProtokoll.Text + vbCrLf
Me.txtProtokoll.Text = IText + vbCrLf + Me.txtProtokoll.Text
Application.DoEvents()
End Sub
Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
'Dim ds As New DataSet
'ds.ReadXml("H:\DPM\dmp1\dmp2\08092021_sik\2021-08-30_ZE1_CH700022722726822201U_CHF_US9B4SAMKEGGCYJA.xml")
fehler = 0
Me.txtProtokoll.Text = ""
Me.OpenFileDialog1.Filter = "ZIP/V11-Dateien|*.ZIP;*.V11|ZIP-Dateien|*.zip|Zahlungsdateien (XML-Dateien|*.xml|*.v11|*.v11|Alle Dateien|*.*"
Me.OpenFileDialog1.FileName = ""
Me.OpenFileDialog1.FilterIndex = 0
Insert_Protokoll("Zahlungsdatei:" + Me.OpenFileDialog1.FileName)
If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim checkdb As New clsDB
Dim fi As New FileInfo(OpenFileDialog1.FileName)
checkdb.Get_Tabledata("CMTFile", "", "Select * from CAMT_Run where sourcefilename='" + fi.Name + "'")
If checkdb.dsDaten.Tables(0).Rows.Count > 0 Then
If MsgBox("Die ausgewählte Zahlungsdatei wurde bereits verarbeitet. Möchten Sie die Verarbeitung wiederholen?", vbYesNo + vbQuestion) = vbNo Then
Insert_Protokoll("Zahlungsverarbeitung abgebrochen.")
Exit Sub
End If
End If
Dim s As String = System.IO.Path.GetExtension(OpenFileDialog1.FileName)
s = UCase(s)
Select Case s
Case ".XML"
Try
Dim camt54 As New clscamt054
Dim i As Integer = 0
i = camt54.CheckFiles(OpenFileDialog1.FileName)
camt54.Init_Datatable()
If i > 1 Then
If MsgBox("Alle Dateine im Verzeichnis verarbeiten?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
camt54.Insert_Camt_Run(OpenFileDialog1.FileName)
camt54.Alles_XML_Dateien(OpenFileDialog1.FileName)
Else
camt54.Insert_Camt_Run(OpenFileDialog1.FileName)
camt54.Init_Datatable()
camt54.Einzelne_XML_Datei(OpenFileDialog1.FileName)
End If
End If
If camt54.fehler <> 0 Then
MsgBox("Bei der Dateiverarbeitung ist ein Fehler aufgetretetn. Verarbeitung wird abgebrochen:")
Exit Sub
End If
Insert_Protokoll("Start Zahlungen verbudhen")
camt54.fehler = 0
camt54.Daten_Verbuchen()
If camt54.fehler <> 0 Then
MsgBox("Bei der Zahlungsverarbeitung sind Fehler aufgetreten. Bitte Protokoll prüfen.")
End If
Dim f As New frmAuswertung
f.MdiParent = Me.MdiParent
f.Show()
f.Show_CAMT_Journal()
Catch ex As Exception
MsgBox("Beim auslesen der XML-Daten ist ein Fehler aufgetreten:" + ex.Message)
Insert_Protokoll(ex.Message)
Exit Sub
End Try
Case ".ZIP"
Try
Dim camt54 As New clscamt054
camt54.Init_Datatable()
camt54.ZIP_Verarbeitung(OpenFileDialog1.FileName)
'Insert_Protokoll("Start Zahlungen verbudhen")
If camt54.fehler <> 0 Then
MsgBox("Bei der Dateiverarbeitung ist ein Fehler aufgetretetn. Verarbeitung wird abgebrochen:", vbExclamation)
Exit Sub
End If
Insert_Protokoll("Start Zahlungen verbuchen")
camt54.fehler = 0
camt54.Daten_Verbuchen()
If camt54.fehler <> 0 Then
MsgBox("Bei der Zahlungsverarbeitung sind Fehler aufgetreten. Bitte Protokoll prüfen.", vbExclamation)
End If
Dim f As New frmAuswertung
f.MdiParent = Me.MdiParent
f.Show()
f.Show_CAMT_Journal()
Catch ex As Exception
MsgBox("Bei der Verarbeitung ist ein Fehler aufgetreten." + ex.Message)
Insert_Protokoll(ex.Message)
Exit Sub
End Try
Case ".V11"
Zahlungen_Verarbeiten(OpenFileDialog1.FileName)
Case Else
End Select
MsgBox("Zahlungsverarbeitung ist abgeschlossen.", vbInformation)
Insert_Protokoll("Zahlungsverarbeitung abgeschlossen.")
End If
End Sub
Private Sub frmZahlung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Sub Zahlungen_Verarbeiten(ByVal fn As String)
Dim db As New clsDB
su = 0
su1 = 0
su2 = 0
su3 = 0
Dim b1 As Decimal
Dim b2 As Decimal
Dim s As String
Dim besrt As New DataTable
db.Get_Tabledata("Besrt", "where datum = getdate()")
Dim dr As DataRow
dr = db.dsDaten.Tables(0).NewRow
FileOpen(1, fn, OpenMode.Input)
While Not EOF(1)
Input(1, s)
'Total-Datensatz
If s.Substring(0, 3) = "999" Or s.Substring(0, 3) = "995" Then
dr.Item("Datum") = "20" + s.Substring(63, 2) + "-" + s.Substring(65, 2) + "-" + s.Substring(67, 2)
dr.Item("Transaktion") = s.Substring(0, 3)
dr.Item("svbnummer") = s.Substring(3, 9)
dr.Item("sortierung") = s.Substring(11, 27)
b1 = s.Substring(39, 12)
b1 = b1 / 100
dr.Item("Betrag") = b1
dr.Item("AnzahlTransaktionen") = s.Substring(58, 5)
dr.Item("Erstellungsdatum") = dr.Item("Datum")
b2 = s.Substring(69, 9) / 100
dr.Item("Taxen_PTT") = b2
b2 = s.Substring(78, 9) / 100
dr.Item("Taxen_Manuell") = b2
dr.Item("Reserve") = ""
dr.Item("Erstellt_am") = Now
dr.Item("Mutiert_am") = Now
dr.Item("Mutierer") = Globals.ActUser
dr.Item("Aktiv") = True
db.dsDaten.Tables(0).Rows.Add(dr)
db.Update_Data()
End If
End While
FileClose(1)
Insert_Protokoll("Anzahl Transaktionen: " + dr.Item("AnzahlTransaktionen").ToString)
Insert_Protokoll("Total-Betrag: " + dr.Item("Betrag").ToString)
db.Get_Tabledata("Besrt", "", "Select top 1 eintragnr from besrt order by eintragnr desc")
Dim besrtnr As Integer = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Get_Tabledata("besri", "where datum = getdate()")
FileOpen(1, fn, OpenMode.Input)
While Not EOF(1)
Input(1, s)
If s.Substring(0, 3) <> "999" And s.Substring(0, 3) <> "995" Then
dr = db.dsDaten.Tables(0).NewRow
dr.Item("Datum") = "20" + s.Substring(59, 2) + "-" + s.Substring(61, 2) + "-" + s.Substring(63, 2)
dr.Item("Transaktion") = s.Substring(0, 3)
dr.Item("svbnr") = s.Substring(3, 9)
dr.Item("Referenz") = s.Substring(12, 27)
b1 = s.Substring(39, 10)
b1 = b1 / 100
dr.Item("Betrag") = b1
dr.Item("Aufgabereferenz") = s.Substring(49, 9)
dr.Item("Datumaufgabe") = "20" + s.Substring(59, 2) + "-" + s.Substring(61, 2) + "-" + s.Substring(63, 2)
dr.Item("Datumverarbeitung") = "20" + s.Substring(65, 2) + "-" + s.Substring(67, 2) + "-" + s.Substring(69, 2)
dr.Item("Datumgutschrift") = "20" + s.Substring(71, 2) + "-" + s.Substring(73, 2) + "-" + s.Substring(75, 2)
dr.Item("recherche") = s.Substring(77, 9)
dr.Item("rejectcode") = s.Substring(86, 1)
dr.Item("reserve") = s.Substring(87, 9)
b1 = s.Substring(96, 4) / 100
dr.Item("Taxen_PTT") = b1
dr.Item("Verbucht") = Verbuchen(dr)
dr.Item("ERSTELLT_AM") = Now
dr.Item("MUTIERT_AM") = Now
dr.Item("AKTIV") = True
dr.Item("MUTIERER") = Globals.ActUser
dr.Item("BESRTNR") = besrtnr
db.dsDaten.Tables(0).Rows.Add(dr)
End If
End While
db.Update_Data()
FileClose(1)
If fehler > 0 Then
MsgBox("Achtung, in der Zahlungsverarbeitung gab es Fehler.", vbExclamation)
End If
End Sub
Private Function Verbuchen(ByRef dr As DataRow) As Boolean
Dim db1 As New clsDB
Dim fakturanr As String
fakturanr = dr.Item("Referenz").Substring(6, 10)
If fakturanr.Substring(4, 1) = "9" Then
'Anzahlung_Verbuchen'
Else
db1.Get_Tabledata("RG", "", "Select * from faktura where nrfaktura='" + fakturanr + "' and aktiv=1 and status=0")
If db1.dsDaten.Tables(0).Rows.Count < 1 Then
Insert_Protokoll("Keine Rechnung mit der Nummer: " + fakturanr + " vorhanden.")
fehler = fehler + 1
Return False
Exit Function
End If
If db1.dsDaten.Tables(0).Rows.Count < 1 Then
Insert_Protokoll("Rechnung mit der Nummer: " + fakturanr + " wurde bereits storniert.")
fehler = fehler = fehler + 1
Return False
Exit Function
End If
Dim db2 As New clsDB
db2.Get_Tabledata("Zahlung", "", "Select * from zahlung where nrfaktura='" + fakturanr + "' and status<>9 and aktiv=1")
If db2.dsDaten.Tables(0).Rows.Count > 0 Then
Insert_Protokoll("Zahlung wurde bereits verbucht: " + fakturanr + " - " + db1.dsDaten.Tables(0).Rows(0).Item("patientzeile"))
fehler = fehler + 1
Return False
Exit Function
End If
Dim db3 As New clsDB
db3.Get_Tabledata("Debitor", "", "Select * from Debitor where nrfaktura='" + fakturanr + "' and aktiv=1 ")
If db3.dsDaten.Tables(0).Rows.Count < 1 Then
Insert_Protokoll("Für die Zahlung ist kein Debitor vorhanden: " + fakturanr)
fehler = fehler + 1
Return False
Exit Function
End If
'Debitor buchen
If db3.dsDaten.Tables(0).Rows(0).Item("Betrag") = 0 Then
db1.dsDaten.Tables(0).Rows(0).Item("Status") = 0
db1.dsDaten.Tables(0).Rows(0).Item("statusdatum") = Now
Else
db1.dsDaten.Tables(0).Rows(0).Item("Status") = 0
db1.dsDaten.Tables(0).Rows(0).Item("statusdatum") = Now
End If
db1.Update_Data()
db3.dsDaten.Tables(0).Rows(0).Item("Betrag") = db3.dsDaten.Tables(0).Rows(0).Item("Betrag") - dr.Item("Betrag")
db3.Update_Data()
Dim db4 As New clsDB
Dim dr1 As DataRow
dr1 = db2.dsDaten.Tables(0).NewRow
dr1.Item("nrzahlung") = db4.Get_DBKey("Zahlung")
dr1.Item("nrfaktura") = fakturanr
dr1.Item("betrag") = dr.Item("Betrag")
dr1.Item("Vorauszahlung") = False
dr1.Item("nrkonto") = db4.Get_Option(2003)
dr1.Item("Mandant") = Globals.Mandant
dr1.Item("nrdebitor") = db1.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
dr1.Item("valuta") = dr.Item("DatumGutschrift")
dr1.Item("nrbehandlung") = db1.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
dr1.Item("status") = 0
dr1.Item("Statusdatum") = Now
dr1.Item("erstellt_am") = Now
dr1.Item("mutiert_am") = Now
dr1.Item("mutierer") = Globals.ActUser
dr1.Item("aktiv") = True
db2.dsDaten.Tables(0).Rows.Add(dr1)
db2.Update_Data()
db2.Dispose()
Insert_Protokoll("Zahlung verbucht: " + fakturanr + " / " + dr.Item("Betrag").ToString)
Dim db5 As New clsDB
db5.Insert_ZJournal(fakturanr, dr1.Item("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + dr1.Item("nrdebitor").ToString + ")"), dr1.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + dr1.Item("nrkonto").ToString), "", "")
db5.Dispose()
Return True
End If
End Function
Private Sub evh_Insert_Protokoll_entry(Entry As String) Handles evh.Insert_Protokoll_entry
Insert_Protokoll(Entry)
End Sub
Imports System.IO
Imports System.IO.Compression
Public Class frmZahlung
Dim fname As String
Dim lw As String
Dim f As String
Dim s1 As String
Dim i As Integer
Dim ii As Integer
Dim jetzt As Double
Dim az As Integer
Dim xx As Double
Dim su As Integer, su1 As Integer, su2 As Integer, su3 As Integer
Dim nrkonto As String
Dim fehler As Integer = 0
Dim WithEvents evh As Generic_Event_Handler = Globals.EVH
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
Me.Close()
End Sub
Public Sub Insert_Protokoll(ByVal IText As String)
'If Me.txtProtokoll.Text <> "" Then Me.txtProtokoll.Text = Me.txtProtokoll.Text + vbCrLf
Me.txtProtokoll.Text = IText + vbCrLf + Me.txtProtokoll.Text
Application.DoEvents()
End Sub
Private Sub tsbtnSave_Click(sender As Object, e As EventArgs) Handles tsbtnSave.Click
'Dim ds As New DataSet
'ds.ReadXml("H:\DPM\dmp1\dmp2\08092021_sik\2021-08-30_ZE1_CH700022722726822201U_CHF_US9B4SAMKEGGCYJA.xml")
fehler = 0
Me.txtProtokoll.Text = ""
Me.OpenFileDialog1.Filter = "ZIP/V11-Dateien|*.ZIP;*.V11|ZIP-Dateien|*.zip|Zahlungsdateien (XML-Dateien|*.xml|*.v11|*.v11|Alle Dateien|*.*"
Me.OpenFileDialog1.FileName = ""
Me.OpenFileDialog1.FilterIndex = 0
Insert_Protokoll("Zahlungsdatei:" + Me.OpenFileDialog1.FileName)
If Me.OpenFileDialog1.ShowDialog() = DialogResult.OK Then
Dim checkdb As New clsDB
Dim fi As New FileInfo(OpenFileDialog1.FileName)
checkdb.Get_Tabledata("CMTFile", "", "Select * from CAMT_Run where sourcefilename='" + fi.Name + "'")
If checkdb.dsDaten.Tables(0).Rows.Count > 0 Then
If MsgBox("Die ausgewählte Zahlungsdatei wurde bereits verarbeitet. Möchten Sie die Verarbeitung wiederholen?", vbYesNo + vbQuestion) = vbNo Then
Insert_Protokoll("Zahlungsverarbeitung abgebrochen.")
Exit Sub
End If
End If
Dim s As String = System.IO.Path.GetExtension(OpenFileDialog1.FileName)
s = UCase(s)
Select Case s
Case ".XML"
Try
Dim camt54 As New clscamt054
Dim i As Integer = 0
i = camt54.CheckFiles(OpenFileDialog1.FileName)
camt54.Init_Datatable()
If i > 1 Then
If MsgBox("Alle Dateine im Verzeichnis verarbeiten?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
camt54.Insert_Camt_Run(OpenFileDialog1.FileName)
camt54.Alles_XML_Dateien(OpenFileDialog1.FileName)
Else
camt54.Insert_Camt_Run(OpenFileDialog1.FileName)
camt54.Init_Datatable()
camt54.Einzelne_XML_Datei(OpenFileDialog1.FileName)
End If
End If
If camt54.fehler <> 0 Then
MsgBox("Bei der Dateiverarbeitung ist ein Fehler aufgetretetn. Verarbeitung wird abgebrochen:")
Exit Sub
End If
Insert_Protokoll("Start Zahlungen verbudhen")
camt54.fehler = 0
camt54.Daten_Verbuchen()
If camt54.fehler <> 0 Then
MsgBox("Bei der Zahlungsverarbeitung sind Fehler aufgetreten. Bitte Protokoll prüfen.")
End If
Dim f As New frmAuswertung
f.MdiParent = Me.MdiParent
f.Show()
f.Show_CAMT_Journal()
Catch ex As Exception
MsgBox("Beim auslesen der XML-Daten ist ein Fehler aufgetreten:" + ex.Message)
Insert_Protokoll(ex.Message)
Exit Sub
End Try
Case ".ZIP"
Try
Dim camt54 As New clscamt054
camt54.Init_Datatable()
camt54.ZIP_Verarbeitung(OpenFileDialog1.FileName)
'Insert_Protokoll("Start Zahlungen verbudhen")
If camt54.fehler <> 0 Then
MsgBox("Bei der Dateiverarbeitung ist ein Fehler aufgetretetn. Verarbeitung wird abgebrochen:", vbExclamation)
Exit Sub
End If
Insert_Protokoll("Start Zahlungen verbuchen")
camt54.fehler = 0
camt54.Daten_Verbuchen()
If camt54.fehler <> 0 Then
MsgBox("Bei der Zahlungsverarbeitung sind Fehler aufgetreten. Bitte Protokoll prüfen.", vbExclamation)
End If
Dim f As New frmAuswertung
f.MdiParent = Me.MdiParent
f.Show()
f.Show_CAMT_Journal()
Catch ex As Exception
MsgBox("Bei der Verarbeitung ist ein Fehler aufgetreten." + ex.Message)
Insert_Protokoll(ex.Message)
Exit Sub
End Try
Case ".V11"
Zahlungen_Verarbeiten(OpenFileDialog1.FileName)
Case Else
End Select
MsgBox("Zahlungsverarbeitung ist abgeschlossen.", vbInformation)
Insert_Protokoll("Zahlungsverarbeitung abgeschlossen.")
End If
End Sub
Private Sub frmZahlung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
End Sub
Sub Zahlungen_Verarbeiten(ByVal fn As String)
Dim db As New clsDB
su = 0
su1 = 0
su2 = 0
su3 = 0
Dim b1 As Decimal
Dim b2 As Decimal
Dim s As String
Dim besrt As New DataTable
db.Get_Tabledata("Besrt", "where datum = getdate()")
Dim dr As DataRow
dr = db.dsDaten.Tables(0).NewRow
FileOpen(1, fn, OpenMode.Input)
While Not EOF(1)
Input(1, s)
'Total-Datensatz
If s.Substring(0, 3) = "999" Or s.Substring(0, 3) = "995" Then
dr.Item("Datum") = "20" + s.Substring(63, 2) + "-" + s.Substring(65, 2) + "-" + s.Substring(67, 2)
dr.Item("Transaktion") = s.Substring(0, 3)
dr.Item("svbnummer") = s.Substring(3, 9)
dr.Item("sortierung") = s.Substring(11, 27)
b1 = s.Substring(39, 12)
b1 = b1 / 100
dr.Item("Betrag") = b1
dr.Item("AnzahlTransaktionen") = s.Substring(58, 5)
dr.Item("Erstellungsdatum") = dr.Item("Datum")
b2 = s.Substring(69, 9) / 100
dr.Item("Taxen_PTT") = b2
b2 = s.Substring(78, 9) / 100
dr.Item("Taxen_Manuell") = b2
dr.Item("Reserve") = ""
dr.Item("Erstellt_am") = Now
dr.Item("Mutiert_am") = Now
dr.Item("Mutierer") = Globals.ActUser
dr.Item("Aktiv") = True
db.dsDaten.Tables(0).Rows.Add(dr)
db.Update_Data()
End If
End While
FileClose(1)
Insert_Protokoll("Anzahl Transaktionen: " + dr.Item("AnzahlTransaktionen").ToString)
Insert_Protokoll("Total-Betrag: " + dr.Item("Betrag").ToString)
db.Get_Tabledata("Besrt", "", "Select top 1 eintragnr from besrt order by eintragnr desc")
Dim besrtnr As Integer = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Get_Tabledata("besri", "where datum = getdate()")
FileOpen(1, fn, OpenMode.Input)
While Not EOF(1)
Input(1, s)
If s.Substring(0, 3) <> "999" And s.Substring(0, 3) <> "995" Then
dr = db.dsDaten.Tables(0).NewRow
dr.Item("Datum") = "20" + s.Substring(59, 2) + "-" + s.Substring(61, 2) + "-" + s.Substring(63, 2)
dr.Item("Transaktion") = s.Substring(0, 3)
dr.Item("svbnr") = s.Substring(3, 9)
dr.Item("Referenz") = s.Substring(12, 27)
b1 = s.Substring(39, 10)
b1 = b1 / 100
dr.Item("Betrag") = b1
dr.Item("Aufgabereferenz") = s.Substring(49, 9)
dr.Item("Datumaufgabe") = "20" + s.Substring(59, 2) + "-" + s.Substring(61, 2) + "-" + s.Substring(63, 2)
dr.Item("Datumverarbeitung") = "20" + s.Substring(65, 2) + "-" + s.Substring(67, 2) + "-" + s.Substring(69, 2)
dr.Item("Datumgutschrift") = "20" + s.Substring(71, 2) + "-" + s.Substring(73, 2) + "-" + s.Substring(75, 2)
dr.Item("recherche") = s.Substring(77, 9)
dr.Item("rejectcode") = s.Substring(86, 1)
dr.Item("reserve") = s.Substring(87, 9)
b1 = s.Substring(96, 4) / 100
dr.Item("Taxen_PTT") = b1
dr.Item("Verbucht") = Verbuchen(dr)
dr.Item("ERSTELLT_AM") = Now
dr.Item("MUTIERT_AM") = Now
dr.Item("AKTIV") = True
dr.Item("MUTIERER") = Globals.ActUser
dr.Item("BESRTNR") = besrtnr
db.dsDaten.Tables(0).Rows.Add(dr)
End If
End While
db.Update_Data()
FileClose(1)
If fehler > 0 Then
MsgBox("Achtung, in der Zahlungsverarbeitung gab es Fehler.", vbExclamation)
End If
End Sub
Private Function Verbuchen(ByRef dr As DataRow) As Boolean
Dim db1 As New clsDB
Dim fakturanr As String
fakturanr = dr.Item("Referenz").Substring(6, 10)
If fakturanr.Substring(4, 1) = "9" Then
'Anzahlung_Verbuchen'
Else
db1.Get_Tabledata("RG", "", "Select * from faktura where nrfaktura='" + fakturanr + "' and aktiv=1 and status=0")
If db1.dsDaten.Tables(0).Rows.Count < 1 Then
Insert_Protokoll("Keine Rechnung mit der Nummer: " + fakturanr + " vorhanden.")
fehler = fehler + 1
Return False
Exit Function
End If
If db1.dsDaten.Tables(0).Rows.Count < 1 Then
Insert_Protokoll("Rechnung mit der Nummer: " + fakturanr + " wurde bereits storniert.")
fehler = fehler = fehler + 1
Return False
Exit Function
End If
Dim db2 As New clsDB
db2.Get_Tabledata("Zahlung", "", "Select * from zahlung where nrfaktura='" + fakturanr + "' and status<>9 and aktiv=1")
If db2.dsDaten.Tables(0).Rows.Count > 0 Then
Insert_Protokoll("Zahlung wurde bereits verbucht: " + fakturanr + " - " + db1.dsDaten.Tables(0).Rows(0).Item("patientzeile"))
fehler = fehler + 1
Return False
Exit Function
End If
Dim db3 As New clsDB
db3.Get_Tabledata("Debitor", "", "Select * from Debitor where nrfaktura='" + fakturanr + "' and aktiv=1 ")
If db3.dsDaten.Tables(0).Rows.Count < 1 Then
Insert_Protokoll("Für die Zahlung ist kein Debitor vorhanden: " + fakturanr)
fehler = fehler + 1
Return False
Exit Function
End If
'Debitor buchen
If db3.dsDaten.Tables(0).Rows(0).Item("Betrag") = 0 Then
db1.dsDaten.Tables(0).Rows(0).Item("Status") = 0
db1.dsDaten.Tables(0).Rows(0).Item("statusdatum") = Now
Else
db1.dsDaten.Tables(0).Rows(0).Item("Status") = 0
db1.dsDaten.Tables(0).Rows(0).Item("statusdatum") = Now
End If
db1.Update_Data()
db3.dsDaten.Tables(0).Rows(0).Item("Betrag") = db3.dsDaten.Tables(0).Rows(0).Item("Betrag") - dr.Item("Betrag")
db3.Update_Data()
Dim db4 As New clsDB
Dim dr1 As DataRow
dr1 = db2.dsDaten.Tables(0).NewRow
dr1.Item("nrzahlung") = db4.Get_DBKey("Zahlung")
dr1.Item("nrfaktura") = fakturanr
dr1.Item("betrag") = dr.Item("Betrag")
dr1.Item("Vorauszahlung") = False
dr1.Item("nrkonto") = db4.Get_Option(2003)
dr1.Item("Mandant") = Globals.Mandant
dr1.Item("nrdebitor") = db1.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
dr1.Item("valuta") = dr.Item("DatumGutschrift")
dr1.Item("nrbehandlung") = db1.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
dr1.Item("status") = 0
dr1.Item("Statusdatum") = Now
dr1.Item("erstellt_am") = Now
dr1.Item("mutiert_am") = Now
dr1.Item("mutierer") = Globals.ActUser
dr1.Item("aktiv") = True
db2.dsDaten.Tables(0).Rows.Add(dr1)
db2.Update_Data()
db2.Dispose()
Insert_Protokoll("Zahlung verbucht: " + fakturanr + " / " + dr.Item("Betrag").ToString)
Dim db5 As New clsDB
db5.Insert_ZJournal(fakturanr, dr1.Item("nrdebitor"), db5.Get_Datavalue("Select dbo.get_name(" + dr1.Item("nrdebitor").ToString + ")"), dr1.Item("Betrag"), db5.Get_Datavalue("Select Konto from konto where nrkonto=" + dr1.Item("nrkonto").ToString), "", "")
db5.Dispose()
Return True
End If
End Function
Private Sub evh_Insert_Protokoll_entry(Entry As String) Handles evh.Insert_Protokoll_entry
Insert_Protokoll(Entry)
End Sub
End Class

@ -0,0 +1 @@
[1114/083026.815:INFO:CONSOLE(0)] "Not allowed to load local resource: file:///E:/Software-Projekte/DPM/DPM2016/DPM2016/bin/Debug/SHUB_PADM/Reporting/Logo/reportlogo.png", source: http://localhost:8601/default.htm?port=8601&newId=e5908ba1-ab9c-4a8a-892a-f0c7090265ff&language=de-CH (0)

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

@ -0,0 +1,580 @@
Caveat C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\Caveat-Regular.ttf
Futura Book-B C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\Fub____.ttf
Futura Light C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\ful____.ttf
Futura Book C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\Fuw____.ttf
Hobby Horse NF C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\hobbyhorse.regular.ttf
Lilly C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\lilly.regular.ttf
OCR-B 10 BT C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\OCR-b__.ttf
Papyrus C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\Papyrus.ttc
PF Euroset Light C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\pfeurosetlight_regular.otf
PF Euroset Light C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\pfeurosetlight_regular.otf
PF Euroset Medium C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\pfeurosetmedium_regular.otf
PF Euroset Medium C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\pfeurosetmedium_regular.otf
PF Euroset Thin C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\pfeurosetthin_regular.otf
PF Euroset Bold-B C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\pfeuroset_bold.otf
PF Euroset-B C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\pfeuroset_bold.otf
PF Euroset Regular C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\pfeuroset_regular.otf
PF Euroset C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\pfeuroset_regular.otf
Play-B C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\play_bold.ttf
Play C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\play_regular.ttf
OCR-B-10 BT C:\Users\Steafn Hutter lokal\AppData\Local\Microsoft\Windows\Fonts\TT0646Z.TTF
New C:\Windows\Fonts\18cents.ttf
18thCentury C:\Windows\Fonts\18cents.ttf
AcmeFont C:\Windows\Fonts\Acme____.ttf
Agency FB-B C:\Windows\Fonts\AGENCYB.TTF
Agency FB C:\Windows\Fonts\AGENCYR.TTF
Alfredo C:\Windows\Fonts\Alfredo_.ttf
Algerian C:\Windows\Fonts\ALGER.TTF
Alien Encounters C:\Windows\Fonts\aliee13.ttf
Almonte Snow C:\Windows\Fonts\almosnow.ttf
Amethyst C:\Windows\Fonts\Ameth___.ttf
Book Antiqua-B C:\Windows\Fonts\ANTQUAB.TTF
Book Antiqua-B-I C:\Windows\Fonts\ANTQUABI.TTF
Book Antiqua-I C:\Windows\Fonts\ANTQUAI.TTF
Arial C:\Windows\Fonts\arial.ttf
Arial-B C:\Windows\Fonts\arialbd.ttf
Arial-B-I C:\Windows\Fonts\arialbi.ttf
Arial-I C:\Windows\Fonts\ariali.ttf
Arial Narrow C:\Windows\Fonts\ARIALN.TTF
Arial Narrow-B C:\Windows\Fonts\ARIALNB.TTF
Arial Narrow-B-I C:\Windows\Fonts\ARIALNBI.TTF
Arial Narrow-I C:\Windows\Fonts\ARIALNI.TTF
Arial Black-B C:\Windows\Fonts\ariblk.ttf
Arial Rounded MT Bold C:\Windows\Fonts\ARLRDBD.TTF
Asimov C:\Windows\Fonts\asimov.ttf
Autumn C:\Windows\Fonts\Autumn__.ttf
Baby Kruffy C:\Windows\Fonts\babyk___.ttf
Bahnschrift C:\Windows\Fonts\bahnschrift.ttf
Balthazar C:\Windows\Fonts\BALTH___.TTF
Baskerville Old Face C:\Windows\Fonts\BASKVILL.TTF
Bastion C:\Windows\Fonts\BASTION_.TTF
Bauhaus 93 C:\Windows\Fonts\BAUHS93.TTF
Bell MT C:\Windows\Fonts\BELL.TTF
Bell MT-B C:\Windows\Fonts\BELLB.TTF
Bell MT-I C:\Windows\Fonts\BELLI.TTF
Bernard MT Condensed C:\Windows\Fonts\BERNHC.TTF
Book Antiqua C:\Windows\Fonts\BKANT.TTF
BN Jinx C:\Windows\Fonts\bnjinx.ttf
BN Machine C:\Windows\Fonts\bnmachine.ttf
Bobcat C:\Windows\Fonts\bobcat.ttf
Bodoni MT-B C:\Windows\Fonts\BOD_B.TTF
Bodoni MT-B-I C:\Windows\Fonts\BOD_BI.TTF
Bodoni MT Black-B-I C:\Windows\Fonts\BOD_BLAI.TTF
Bodoni MT Black-B C:\Windows\Fonts\BOD_BLAR.TTF
Bodoni MT Condensed-B C:\Windows\Fonts\BOD_CB.TTF
Bodoni MT Condensed-B-I C:\Windows\Fonts\BOD_CBI.TTF
Bodoni MT Condensed-I C:\Windows\Fonts\BOD_CI.TTF
Bodoni MT Condensed C:\Windows\Fonts\BOD_CR.TTF
Bodoni MT-I C:\Windows\Fonts\BOD_I.TTF
Bodoni MT Poster C:\Windows\Fonts\BOD_PSTC.TTF
Bodoni MT Poster Compressed C:\Windows\Fonts\BOD_PSTC.TTF
Bodoni MT C:\Windows\Fonts\BOD_R.TTF
BolsterBold C:\Windows\Fonts\Bolstbo_.ttf
Bookman Old Style C:\Windows\Fonts\BOOKOS.TTF
Bookman Old Style-B C:\Windows\Fonts\BOOKOSB.TTF
Bookman Old Style-B-I C:\Windows\Fonts\BOOKOSBI.TTF
Bookman Old Style-I C:\Windows\Fonts\BOOKOSI.TTF
Borealis C:\Windows\Fonts\Borea___.ttf
BOUTON International Symbols C:\Windows\Fonts\BOUTON_International_symbols.ttf
Bradley Hand ITC C:\Windows\Fonts\BRADHITC.TTF
Brandish C:\Windows\Fonts\Brand___.ttf
Britannic Bold C:\Windows\Fonts\BRITANIC.TTF
Berlin Sans FB-B C:\Windows\Fonts\BRLNSB.TTF
Berlin Sans FB Demi-B C:\Windows\Fonts\BRLNSDB.TTF
Berlin Sans FB C:\Windows\Fonts\BRLNSR.TTF
Broadway C:\Windows\Fonts\BROADW.TTF
Brush Script MT-I C:\Windows\Fonts\BRUSHSCI.TTF
Brussels C:\Windows\Fonts\Bruss___.ttf
Bookshelf Symbol 7 C:\Windows\Fonts\BSSYM7.TTF
Calibri C:\Windows\Fonts\calibri.ttf
Calibri-B C:\Windows\Fonts\calibrib.ttf
Calibri-I C:\Windows\Fonts\calibrii.ttf
Calibri Light C:\Windows\Fonts\calibril.ttf
Calibri Light-I C:\Windows\Fonts\calibrili.ttf
Calibri-B-I C:\Windows\Fonts\calibriz.ttf
Californian FB-B C:\Windows\Fonts\CALIFB.TTF
Californian FB-I C:\Windows\Fonts\CALIFI.TTF
Californian FB C:\Windows\Fonts\CALIFR.TTF
Calisto MT C:\Windows\Fonts\CALIST.TTF
Calisto MT-B C:\Windows\Fonts\CALISTB.TTF
Calisto MT-B-I C:\Windows\Fonts\CALISTBI.TTF
Calisto MT-I C:\Windows\Fonts\CALISTI.TTF
Calligraphic C:\Windows\Fonts\CALLI___.TTF
Calvin C:\Windows\Fonts\CALVIN__.TTF
Cambria C:\Windows\Fonts\cambria.ttc
Cambria Math C:\Windows\Fonts\cambria.ttc
Cambria-B C:\Windows\Fonts\cambriab.ttf
Cambria-I C:\Windows\Fonts\cambriai.ttf
Cambria-B-I C:\Windows\Fonts\cambriaz.ttf
Candara C:\Windows\Fonts\Candara.ttf
Candara-B C:\Windows\Fonts\Candarab.ttf
Candara-I C:\Windows\Fonts\Candarai.ttf
Candara Light C:\Windows\Fonts\Candaral.ttf
Candara Light-I C:\Windows\Fonts\Candarali.ttf
Candara-B-I C:\Windows\Fonts\Candaraz.ttf
Candles C:\Windows\Fonts\candles_.ttf
Cascadia Code C:\Windows\Fonts\CascadiaCode.ttf
Cascadia Mono C:\Windows\Fonts\CascadiaMono.ttf
Castellar C:\Windows\Fonts\CASTELAR.TTF
Century Schoolbook C:\Windows\Fonts\CENSCBK.TTF
Centaur C:\Windows\Fonts\CENTAUR.TTF
Century C:\Windows\Fonts\CENTURY.TTF
Chiller C:\Windows\Fonts\CHILLER.TTF
Chinyen C:\Windows\Fonts\chinyen.ttf
Clarendon C:\Windows\Fonts\CLARE___.TTF
Code39AzaleaNarrow1 C:\Windows\Fonts\Code39AzaleaNarrow1.ttf
Code39AzaleaNarrow2 C:\Windows\Fonts\Code39AzaleaNarrow2.ttf
Code39AzaleaNarrow3 C:\Windows\Fonts\Code39AzaleaNarrow3.ttf
Code39AzaleaRegular1 C:\Windows\Fonts\Code39AzaleaRegular1.ttf
Code39AzaleaRegular2 C:\Windows\Fonts\Code39AzaleaRegular2.ttf
Code39AzaleaRegular3 C:\Windows\Fonts\Code39AzaleaRegular3.ttf
Code39AzaleaWide1 C:\Windows\Fonts\Code39AzaleaWide1.ttf
Code39AzaleaWide2 C:\Windows\Fonts\Code39AzaleaWide2.ttf
Code39AzaleaWide3 C:\Windows\Fonts\Code39AzaleaWide3.ttf
Colbert C:\Windows\Fonts\Colbert_.ttf
Colonna MT C:\Windows\Fonts\COLONNA.TTF
Comic Sans MS C:\Windows\Fonts\comic.ttf
Comic Sans MS-B C:\Windows\Fonts\comicbd.ttf
Comic Sans MS-I C:\Windows\Fonts\comici.ttf
Comic Sans MS-B-I C:\Windows\Fonts\comicz.ttf
Commons C:\Windows\Fonts\COMMONS_.TTF
Consolas C:\Windows\Fonts\consola.ttf
Consolas-B C:\Windows\Fonts\consolab.ttf
Consolas-I C:\Windows\Fonts\consolai.ttf
Consolas-B-I C:\Windows\Fonts\consolaz.ttf
Constantia C:\Windows\Fonts\constan.ttf
Constantia-B C:\Windows\Fonts\constanb.ttf
Constantia-I C:\Windows\Fonts\constani.ttf
Constantia-B-I C:\Windows\Fonts\constanz.ttf
Coolsville C:\Windows\Fonts\Cools___.ttf
Cooper Black C:\Windows\Fonts\COOPBL.TTF
Copperplate Gothic Bold C:\Windows\Fonts\COPRGTB.TTF
Copperplate Gothic Light C:\Windows\Fonts\COPRGTL.TTF
Corbel C:\Windows\Fonts\corbel.ttf
Corbel-B C:\Windows\Fonts\corbelb.ttf
Corbel-I C:\Windows\Fonts\corbeli.ttf
Corbel Light C:\Windows\Fonts\corbell.ttf
Corbel Light-I C:\Windows\Fonts\corbelli.ttf
Corbel-B-I C:\Windows\Fonts\corbelz.ttf
Corporate C:\Windows\Fonts\Corpo___.ttf
Courier New C:\Windows\Fonts\cour.ttf
Courier New-B C:\Windows\Fonts\courbd.ttf
Courier New-B-I C:\Windows\Fonts\courbi.ttf
Courier New-I C:\Windows\Fonts\couri.ttf
Cracked Johnnie C:\Windows\Fonts\cracj___.ttf
Creepygirl C:\Windows\Fonts\creerg__.ttf
Curlz MT C:\Windows\Fonts\CURLZ___.TTF
Dayton C:\Windows\Fonts\DAYTON__.TTF
Deneane C:\Windows\Fonts\Deneane_.ttf
Detente C:\Windows\Fonts\Detente_.ttf
Digifit C:\Windows\Fonts\digifit.ttf
Distant Galaxy C:\Windows\Fonts\distant galaxy 2.ttf
Dominican C:\Windows\Fonts\DOMIN___.TTF
Dubai Bold-B C:\Windows\Fonts\DUBAI-BOLD.TTF
Dubai-B C:\Windows\Fonts\DUBAI-BOLD.TTF
Dubai Light C:\Windows\Fonts\DUBAI-LIGHT.TTF
Dubai Medium C:\Windows\Fonts\DUBAI-MEDIUM.TTF
Dubai Regular C:\Windows\Fonts\DUBAI-REGULAR.TTF
Dubai C:\Windows\Fonts\DUBAI-REGULAR.TTF
Ebrima C:\Windows\Fonts\ebrima.ttf
Ebrima-B C:\Windows\Fonts\ebrimabd.ttf
Elephant C:\Windows\Fonts\ELEPHNT.TTF
Elephant-I C:\Windows\Fonts\ELEPHNTI.TTF
Emmett C:\Windows\Fonts\Emmett__.ttf
Engravers MT C:\Windows\Fonts\ENGR.TTF
Enliven C:\Windows\Fonts\Enliven_.ttf
Eras Bold ITC C:\Windows\Fonts\ERASBD.TTF
Eras Demi ITC C:\Windows\Fonts\ERASDEMI.TTF
Eras Light ITC C:\Windows\Fonts\ERASLGHT.TTF
Eras Medium ITC C:\Windows\Fonts\ERASMD.TTF
Ethnocentric C:\Windows\Fonts\ethnocen.ttf
Felix Titling C:\Windows\Fonts\FELIXTI.TTF
Fingerpop C:\Windows\Fonts\fingerpop2.ttf
Fira Mono C:\Windows\Fonts\FiraMono-Regular.ttf
Flubber C:\Windows\Fonts\flubber.ttf
Forte-I C:\Windows\Fonts\FORTE.TTF
Franklin Gothic Book C:\Windows\Fonts\FRABK.TTF
Franklin Gothic Book-I C:\Windows\Fonts\FRABKIT.TTF
Franklin Gothic Demi C:\Windows\Fonts\FRADM.TTF
Franklin Gothic Demi Cond C:\Windows\Fonts\FRADMCN.TTF
Franklin Gothic Demi-I C:\Windows\Fonts\FRADMIT.TTF
Franklin Gothic Heavy C:\Windows\Fonts\FRAHV.TTF
Franklin Gothic Heavy-I C:\Windows\Fonts\FRAHVIT.TTF
Franklin Gothic Medium C:\Windows\Fonts\framd.ttf
Franklin Gothic Medium Cond C:\Windows\Fonts\FRAMDCN.TTF
Franklin Gothic Medium-I C:\Windows\Fonts\framdit.ttf
Freestyle Script C:\Windows\Fonts\FREESCPT.TTF
Frankfurter Venetian TT C:\Windows\Fonts\Frnkvent.ttf
French Script MT C:\Windows\Fonts\FRSCRIPT.TTF
Footlight MT Light C:\Windows\Fonts\FTLTLT.TTF
Gabriola C:\Windows\Fonts\Gabriola.ttf
Gadugi C:\Windows\Fonts\gadugi.ttf
Gadugi-B C:\Windows\Fonts\gadugib.ttf
Garamond C:\Windows\Fonts\GARA.TTF
Garamond-B C:\Windows\Fonts\GARABD.TTF
Garamond-I C:\Windows\Fonts\GARAIT.TTF
Gazzarelli C:\Windows\Fonts\gazzarelli.ttf
Georgia C:\Windows\Fonts\georgia.ttf
Georgia-B C:\Windows\Fonts\georgiab.ttf
Georgia-I C:\Windows\Fonts\georgiai.ttf
Georgia-B-I C:\Windows\Fonts\georgiaz.ttf
Geotype TT C:\Windows\Fonts\Geotype.TTF
Gigi C:\Windows\Fonts\GIGI.TTF
Gill Sans MT-B-I C:\Windows\Fonts\GILBI___.TTF
Gill Sans MT-B C:\Windows\Fonts\GILB____.TTF
Gill Sans MT Condensed C:\Windows\Fonts\GILC____.TTF
Gill Sans MT-I C:\Windows\Fonts\GILI____.TTF
Gill Sans Ultra Bold Condensed C:\Windows\Fonts\GILLUBCD.TTF
Gill Sans Ultra Bold C:\Windows\Fonts\GILSANUB.TTF
Gill Sans MT C:\Windows\Fonts\GIL_____.TTF
Gloucester MT Extra Condensed C:\Windows\Fonts\GLECB.TTF
Glockenspiel C:\Windows\Fonts\Glock___.ttf
Gill Sans MT Ext Condensed Bold C:\Windows\Fonts\GLSNECB.TTF
Good Times C:\Windows\Fonts\goodtime.ttf
Century Gothic C:\Windows\Fonts\GOTHIC.TTF
Century Gothic-B C:\Windows\Fonts\GOTHICB.TTF
Century Gothic-B-I C:\Windows\Fonts\GOTHICBI.TTF
Century Gothic-I C:\Windows\Fonts\GOTHICI.TTF
Goudy Old Style C:\Windows\Fonts\GOUDOS.TTF
Goudy Old Style-B C:\Windows\Fonts\GOUDOSB.TTF
Goudy Old Style-I C:\Windows\Fonts\GOUDOSI.TTF
Goudy Stout C:\Windows\Fonts\GOUDYSTO.TTF
Greek Diner Inline TT C:\Windows\Fonts\Greek_i.ttf
Hand Me Down S (BRK) C:\Windows\Fonts\handmeds.ttf
Hansen C:\Windows\Fonts\Hansen__.ttf
Harlow Solid Italic-I C:\Windows\Fonts\HARLOWSI.TTF
Harrington C:\Windows\Fonts\HARNGTON.TTF
HarvestItal C:\Windows\Fonts\HARVEIT_.TTF
Harvest C:\Windows\Fonts\HARVEST_.TTF
Haettenschweiler C:\Windows\Fonts\HATTEN.TTF
Haxton Logos TT C:\Windows\Fonts\Haxton.ttf
Heavy Heap C:\Windows\Fonts\heavyhea2.ttf
Helvetica LT Std C:\Windows\Fonts\HelveticaLTStd-Roman.otf
Microsoft Himalaya C:\Windows\Fonts\himalaya.ttf
Hollywood Hills C:\Windows\Fonts\hollh___.ttf
HoloLens MDL2 Assets C:\Windows\Fonts\holomdl2.ttf
Hombre C:\Windows\Fonts\Hombre__.ttf
HP Simplified Bold-B C:\Windows\Fonts\HPSimplified_Bd.ttf
HP Simplified-B C:\Windows\Fonts\HPSimplified_Bd.ttf
HP Simplified Bold-B-I C:\Windows\Fonts\HPSimplified_BdIt.ttf
HP Simplified-B-I C:\Windows\Fonts\HPSimplified_BdIt.ttf
HP Simplified Italic-I C:\Windows\Fonts\HPSimplified_It.ttf
HP Simplified-I C:\Windows\Fonts\HPSimplified_It.ttf
HP Simplified Light C:\Windows\Fonts\HPSimplified_Lt.ttf
HP Simplified Light-I C:\Windows\Fonts\HPSimplified_LtIt.ttf
HP Simplified Regular C:\Windows\Fonts\HPSimplified_Rg.ttf
HP Simplified C:\Windows\Fonts\HPSimplified_Rg.ttf
High Tower Text C:\Windows\Fonts\HTOWERT.TTF
High Tower Text-I C:\Windows\Fonts\HTOWERTI.TTF
Huxley Titling C:\Windows\Fonts\Huxley_Titling.ttf
Impact C:\Windows\Fonts\impact.ttf
Imprint MT Shadow C:\Windows\Fonts\IMPRISHA.TTF
Indie Flower C:\Windows\Fonts\IndieFlower.ttf
Induction C:\Windows\Fonts\inductio.ttf
Informal Roman C:\Windows\Fonts\INFROMAN.TTF
Ink Free C:\Windows\Fonts\Inkfree.ttf
Italianate C:\Windows\Fonts\Itali___.ttf
Blackadder ITC C:\Windows\Fonts\ITCBLKAD.TTF
Edwardian Script ITC C:\Windows\Fonts\ITCEDSCR.TTF
Kristen ITC C:\Windows\Fonts\ITCKRIST.TTF
Javanese Text C:\Windows\Fonts\javatext.ttf
Jokerman C:\Windows\Fonts\JOKERMAN.TTF
Juice ITC C:\Windows\Fonts\JUICE___.TTF
Kunstler Script C:\Windows\Fonts\KUNSTLER.TTF
Wide Latin C:\Windows\Fonts\LATINWD.TTF
Lato-B C:\Windows\Fonts\Lato-Bold.ttf
Lato-B-I C:\Windows\Fonts\Lato-BoldItalic.ttf
Lato-I C:\Windows\Fonts\Lato-Italic.ttf
Lato C:\Windows\Fonts\Lato-Regular.ttf
Lucida Bright C:\Windows\Fonts\LBRITE.TTF
Lucida Bright-B C:\Windows\Fonts\LBRITED.TTF
Lucida Bright-B-I C:\Windows\Fonts\LBRITEDI.TTF
Lucida Bright-I C:\Windows\Fonts\LBRITEI.TTF
Lucida Calligraphy-I C:\Windows\Fonts\LCALLIG.TTF
Leelawadee UI-B C:\Windows\Fonts\LeelaUIb.ttf
Leelawadee C:\Windows\Fonts\LEELAWAD.TTF
Leelawadee-B C:\Windows\Fonts\LEELAWDB.TTF
Leelawadee UI C:\Windows\Fonts\LeelawUI.ttf
Leelawadee UI Semilight C:\Windows\Fonts\LeelUIsl.ttf
Lucida Fax C:\Windows\Fonts\LFAX.TTF
Lucida Fax-B C:\Windows\Fonts\LFAXD.TTF
Lucida Fax-B-I C:\Windows\Fonts\LFAXDI.TTF
Lucida Fax-I C:\Windows\Fonts\LFAXI.TTF
Lucida Handwriting-I C:\Windows\Fonts\LHANDW.TTF
Limousine C:\Windows\Fonts\Limou___.ttf
LittleLordFontleroy C:\Windows\Fonts\littlelo.ttf
Lucida Sans C:\Windows\Fonts\LSANS.TTF
Lucida Sans-B C:\Windows\Fonts\LSANSD.TTF
Lucida Sans-B-I C:\Windows\Fonts\LSANSDI.TTF
Lucida Sans-I C:\Windows\Fonts\LSANSI.TTF
LetterOMatic! C:\Windows\Fonts\ltromatic.ttf
Lucida Sans Typewriter C:\Windows\Fonts\LTYPE.TTF
Lucida Sans Typewriter-B C:\Windows\Fonts\LTYPEB.TTF
Lucida Sans Typewriter-B-I C:\Windows\Fonts\LTYPEBO.TTF
Lucida Sans Typewriter-I C:\Windows\Fonts\LTYPEO.TTF
Lucida Console C:\Windows\Fonts\lucon.ttf
Lucida Sans Unicode C:\Windows\Fonts\l_10646.ttf
Mael C:\Windows\Fonts\mael____.ttf
Magneto-B C:\Windows\Fonts\MAGNETOB.TTF
Maiandra GD C:\Windows\Fonts\MAIAN.TTF
Malgun Gothic C:\Windows\Fonts\malgun.ttf
맑은 고딕 C:\Windows\Fonts\malgun.ttf
Malgun Gothic-B C:\Windows\Fonts\malgunbd.ttf
맑은 고딕-B C:\Windows\Fonts\malgunbd.ttf
Malgun Gothic Semilight C:\Windows\Fonts\malgunsl.ttf
맑은 고딕 Semilight C:\Windows\Fonts\malgunsl.ttf
Manorly C:\Windows\Fonts\Manorly_.ttf
Marlett C:\Windows\Fonts\marlett.ttf
Martina C:\Windows\Fonts\Martina_.ttf
Matura MT Script Capitals C:\Windows\Fonts\MATURASC.TTF
MelodBold C:\Windows\Fonts\Melodbo_.ttf
Microsoft Sans Serif C:\Windows\Fonts\micross.ttf
Minerva C:\Windows\Fonts\Minerva_.ttf
MingLiU-ExtB C:\Windows\Fonts\mingliub.ttc
細明體-ExtB C:\Windows\Fonts\mingliub.ttc
PMingLiU-ExtB C:\Windows\Fonts\mingliub.ttc
新細明體-ExtB C:\Windows\Fonts\mingliub.ttc
MingLiU_HKSCS-ExtB C:\Windows\Fonts\mingliub.ttc
細明體_HKSCS-ExtB C:\Windows\Fonts\mingliub.ttc
Mistral C:\Windows\Fonts\MISTRAL.TTF
Myanmar Text C:\Windows\Fonts\mmrtext.ttf
Myanmar Text-B C:\Windows\Fonts\mmrtextb.ttf
Modern No. 20 C:\Windows\Fonts\MOD20.TTF
Mongolian Baiti C:\Windows\Fonts\monbaiti.ttf
Moonbeam C:\Windows\Fonts\MOONB___.TTF
MS Gothic C:\Windows\Fonts\msgothic.ttc
ゴシック C:\Windows\Fonts\msgothic.ttc
MS UI Gothic C:\Windows\Fonts\msgothic.ttc
MS PGothic C:\Windows\Fonts\msgothic.ttc
Pゴシック C:\Windows\Fonts\msgothic.ttc
微軟正黑體 C:\Windows\Fonts\msjh.ttc
Microsoft JhengHei C:\Windows\Fonts\msjh.ttc
Microsoft JhengHei UI C:\Windows\Fonts\msjh.ttc
微軟正黑體-B C:\Windows\Fonts\msjhbd.ttc
Microsoft JhengHei-B C:\Windows\Fonts\msjhbd.ttc
Microsoft JhengHei UI-B C:\Windows\Fonts\msjhbd.ttc
微軟正黑體 Light C:\Windows\Fonts\msjhl.ttc
Microsoft JhengHei Light C:\Windows\Fonts\msjhl.ttc
Microsoft JhengHei UI Light C:\Windows\Fonts\msjhl.ttc
Microsoft Uighur-B C:\Windows\Fonts\MSUIGHUB.TTF
Microsoft Uighur C:\Windows\Fonts\MSUIGHUR.TTF
Microsoft YaHei C:\Windows\Fonts\msyh.ttc
微软雅黑 C:\Windows\Fonts\msyh.ttc
Microsoft YaHei UI C:\Windows\Fonts\msyh.ttc
Microsoft YaHei-B C:\Windows\Fonts\msyhbd.ttc
微软雅黑-B C:\Windows\Fonts\msyhbd.ttc
Microsoft YaHei UI-B C:\Windows\Fonts\msyhbd.ttc
Microsoft YaHei Light C:\Windows\Fonts\msyhl.ttc
微软雅黑 Light C:\Windows\Fonts\msyhl.ttc
Microsoft YaHei UI Light C:\Windows\Fonts\msyhl.ttc
Microsoft Yi Baiti C:\Windows\Fonts\msyi.ttf
Monotype Corsiva-I C:\Windows\Fonts\MTCORSVA.TTF
MT Extra C:\Windows\Fonts\MTEXTRA.TTF
MV Boli-I C:\Windows\Fonts\mvboli.ttf
Mycalc C:\Windows\Fonts\Mycalc__.ttf
PR Celtic Narrow C:\Windows\Fonts\narrow.ttf
Nasalization C:\Windows\Fonts\nasaliza.ttf
Neon Lights C:\Windows\Fonts\neon2.ttf
Netto Offc Regular C:\Windows\Fonts\NettoOffc.ttf
Netto Offc C:\Windows\Fonts\NettoOffc.ttf
Niagara Engraved C:\Windows\Fonts\NIAGENG.TTF
Niagara Solid C:\Windows\Fonts\NIAGSOL.TTF
Nirmala UI C:\Windows\Fonts\Nirmala.ttf
Nirmala UI-B C:\Windows\Fonts\NirmalaB.ttf
Nirmala UI Semilight C:\Windows\Fonts\NirmalaS.ttf
Notram C:\Windows\Fonts\Notram__.ttf
November C:\Windows\Fonts\Novem___.ttf
Microsoft New Tai Lue C:\Windows\Fonts\ntailu.ttf
Microsoft New Tai Lue-B C:\Windows\Fonts\ntailub.ttf
Nunito-B C:\Windows\Fonts\Nunito-Bold.ttf
Nunito C:\Windows\Fonts\Nunito-Regular.ttf
OCR A Extended C:\Windows\Fonts\OCRAEXT.TTF
ODRF_UPR C:\Windows\Fonts\ODRF_UPR-Regular.otf
Old English Text MT C:\Windows\Fonts\OLDENGL.TTF
Onyx C:\Windows\Fonts\ONYX.TTF
Open Sans C:\Windows\Fonts\OpenSans-Regular.ttf
Open Sans Semibold-B C:\Windows\Fonts\OpenSans-SemiBold.ttf
OpineHeavy C:\Windows\Fonts\Opinehe_.ttf
Oswald-B C:\Windows\Fonts\Oswald-Bold.ttf
Oswald Regular C:\Windows\Fonts\Oswald-Regular.ttf
MS Outlook C:\Windows\Fonts\OUTLOOK.TTF
Palatino Linotype C:\Windows\Fonts\pala.ttf
Palatino Linotype-B C:\Windows\Fonts\palab.ttf
Palatino Linotype-B-I C:\Windows\Fonts\palabi.ttf
Palatino Linotype-I C:\Windows\Fonts\palai.ttf
Palace Script MT-I C:\Windows\Fonts\PALSCRI.TTF
Parchment C:\Windows\Fonts\PARCHM.TTF
Parry Hotter C:\Windows\Fonts\parryhotter.ttf
PenultimateLightItal C:\Windows\Fonts\PENLIIT_.TTF
PenultimateLight C:\Windows\Fonts\PENULLI_.TTF
Perpetua-B-I C:\Windows\Fonts\PERBI___.TTF
Perpetua-B C:\Windows\Fonts\PERB____.TTF
Perpetua-I C:\Windows\Fonts\PERI____.TTF
Perpetua Titling MT-B C:\Windows\Fonts\PERTIBD.TTF
Perpetua Titling MT C:\Windows\Fonts\PERTILI.TTF
Perpetua C:\Windows\Fonts\PER_____.TTF
Microsoft PhagsPa C:\Windows\Fonts\phagspa.ttf
Microsoft PhagsPa-B C:\Windows\Fonts\phagspab.ttf
PhrasticMedium C:\Windows\Fonts\Phrasme_.ttf
Pirate C:\Windows\Fonts\Pirate__.ttf
Playbill C:\Windows\Fonts\PLAYBILL.TTF
Poor Richard C:\Windows\Fonts\POORICH.TTF
Pristina C:\Windows\Fonts\PRISTINA.TTF
PT Sans C:\Windows\Fonts\PTS55F.ttf
QuiverItal C:\Windows\Fonts\QUIVEIT_.TTF
Rage Italic C:\Windows\Fonts\RAGE.TTF
Ravie C:\Windows\Fonts\RAVIE.TTF
MS Reference Sans Serif C:\Windows\Fonts\REFSAN.TTF
MS Reference Specialty C:\Windows\Fonts\REFSPCL.TTF
Rockwell Condensed-B C:\Windows\Fonts\ROCCB___.TTF
Rockwell Condensed C:\Windows\Fonts\ROCC____.TTF
Rockwell C:\Windows\Fonts\ROCK.TTF
Rockwell-B C:\Windows\Fonts\ROCKB.TTF
Rockwell-B-I C:\Windows\Fonts\ROCKBI.TTF
Rockwell Extra Bold-B C:\Windows\Fonts\ROCKEB.TTF
Rockwell-I C:\Windows\Fonts\ROCKI.TTF
Roland C:\Windows\Fonts\Roland__.ttf
Rondalo C:\Windows\Fonts\RONDALO_.TTF
RowdyHeavy C:\Windows\Fonts\Rowdyhe_.ttf
Russel Write TT C:\Windows\Fonts\Russrite.ttf
Salina C:\Windows\Fonts\Salina__.ttf
Century Schoolbook-B C:\Windows\Fonts\SCHLBKB.TTF
Century Schoolbook-B-I C:\Windows\Fonts\SCHLBKBI.TTF
Century Schoolbook-I C:\Windows\Fonts\SCHLBKI.TTF
Script MT Bold-B C:\Windows\Fonts\SCRIPTBL.TTF
Segoe MDL2 Assets C:\Windows\Fonts\segmdl2.ttf
Segoe Print C:\Windows\Fonts\segoepr.ttf
Segoe Print-B C:\Windows\Fonts\segoeprb.ttf
Segoe Script C:\Windows\Fonts\segoesc.ttf
Segoe Script-B C:\Windows\Fonts\segoescb.ttf
Segoe UI C:\Windows\Fonts\segoeui.ttf
Segoe UI-B C:\Windows\Fonts\segoeuib.ttf
Segoe UI-I C:\Windows\Fonts\segoeuii.ttf
Segoe UI Light C:\Windows\Fonts\segoeuil.ttf
Segoe UI Semilight C:\Windows\Fonts\segoeuisl.ttf
Segoe UI-B-I C:\Windows\Fonts\segoeuiz.ttf
Segoe UI Black-B C:\Windows\Fonts\seguibl.ttf
Segoe UI Black-B-I C:\Windows\Fonts\seguibli.ttf
Segoe UI Emoji C:\Windows\Fonts\seguiemj.ttf
Segoe UI Historic C:\Windows\Fonts\seguihis.ttf
Segoe UI Light-I C:\Windows\Fonts\seguili.ttf
Segoe UI Semibold-B C:\Windows\Fonts\seguisb.ttf
Segoe UI Semibold-B-I C:\Windows\Fonts\seguisbi.ttf
Segoe UI Semilight-I C:\Windows\Fonts\seguisli.ttf
Segoe UI Symbol C:\Windows\Fonts\seguisym.ttf
SF Movie Poster C:\Windows\Fonts\sf movie poster2.ttf
SF UI Display Black-B C:\Windows\Fonts\sf-ui-display-black-58646a6b80d5a.otf
SF UI Display-B C:\Windows\Fonts\sf-ui-display-black-58646a6b80d5a.otf
SF UI Display Bold-B C:\Windows\Fonts\sf-ui-display-bold-58646a511e3d9.otf
SF UI Display Heavy-B C:\Windows\Fonts\sf-ui-display-heavy-586470160b9e5.otf
SF UI Display Light C:\Windows\Fonts\sf-ui-display-light-58646b33e0551.otf
SF UI Display C:\Windows\Fonts\sf-ui-display-light-58646b33e0551.otf
SF UI Display Medium C:\Windows\Fonts\sf-ui-display-medium-58646be638f96.otf
SF UI Display Semibold-B C:\Windows\Fonts\sf-ui-display-semibold-58646eddcae92.otf
SF UI Display Thin C:\Windows\Fonts\sf-ui-display-thin-58646e9b26e8b.otf
SF UI Display Ultralight C:\Windows\Fonts\sf-ui-display-ultralight-58646b19bf205.otf
Shell C:\Windows\Fonts\shellnormal.ttf
Showcard Gothic C:\Windows\Fonts\SHOWG.TTF
SimHei C:\Windows\Fonts\simhei.ttf
黑体 C:\Windows\Fonts\simhei.ttf
SimSun C:\Windows\Fonts\simsun.ttc
宋体 C:\Windows\Fonts\simsun.ttc
NSimSun C:\Windows\Fonts\simsun.ttc
新宋体 C:\Windows\Fonts\simsun.ttc
SimSun-ExtB C:\Windows\Fonts\simsunb.ttf
Sitka Small C:\Windows\Fonts\Sitka.ttc
Sitka Text C:\Windows\Fonts\Sitka.ttc
Sitka Subheading C:\Windows\Fonts\Sitka.ttc
Sitka Heading C:\Windows\Fonts\Sitka.ttc
Sitka Display C:\Windows\Fonts\Sitka.ttc
Sitka Banner C:\Windows\Fonts\Sitka.ttc
Sitka Small-B C:\Windows\Fonts\SitkaB.ttc
Sitka Text-B C:\Windows\Fonts\SitkaB.ttc
Sitka Subheading-B C:\Windows\Fonts\SitkaB.ttc
Sitka Heading-B C:\Windows\Fonts\SitkaB.ttc
Sitka Display-B C:\Windows\Fonts\SitkaB.ttc
Sitka Banner-B C:\Windows\Fonts\SitkaB.ttc
Sitka Small-I C:\Windows\Fonts\SitkaI.ttc
Sitka Text-I C:\Windows\Fonts\SitkaI.ttc
Sitka Subheading-I C:\Windows\Fonts\SitkaI.ttc
Sitka Heading-I C:\Windows\Fonts\SitkaI.ttc
Sitka Display-I C:\Windows\Fonts\SitkaI.ttc
Sitka Banner-I C:\Windows\Fonts\SitkaI.ttc
Sitka Small-B-I C:\Windows\Fonts\SitkaZ.ttc
Sitka Text-B-I C:\Windows\Fonts\SitkaZ.ttc
Sitka Subheading-B-I C:\Windows\Fonts\SitkaZ.ttc
Sitka Heading-B-I C:\Windows\Fonts\SitkaZ.ttc
Sitka Display-B-I C:\Windows\Fonts\SitkaZ.ttc
Sitka Banner-B-I C:\Windows\Fonts\SitkaZ.ttc
Skinny C:\Windows\Fonts\Skinny__.ttf
Snap ITC C:\Windows\Fonts\SNAP____.TTF
Snowdrift C:\Windows\Fonts\snowdrft.ttf
Source Sans Pro-B C:\Windows\Fonts\SourceSansPro-Bold.ttf
Source Sans Pro C:\Windows\Fonts\SourceSansPro-Regular.ttf
Splash C:\Windows\Fonts\SPLASH__.TTF
Stencil C:\Windows\Fonts\STENCIL.TTF
Stephen C:\Windows\Fonts\Stephen_.ttf
Steppes TT C:\Windows\Fonts\Steppes.ttf
SugarFont Bold-B C:\Windows\Fonts\SugarFont-Bold.ttf
SugarFont-B C:\Windows\Fonts\SugarFont-Bold.ttf
SugarFont DemiBold-B C:\Windows\Fonts\SugarFont-DemiBold.ttf
SugarFont Medium C:\Windows\Fonts\SugarFont-Medium.ttf
SugarFont C:\Windows\Fonts\SugarFont-Medium.ttf
Sylfaen C:\Windows\Fonts\sylfaen.ttf
Symbol C:\Windows\Fonts\symbol.ttf
Tahoma C:\Windows\Fonts\tahoma.ttf
Tahoma-B C:\Windows\Fonts\tahomabd.ttf
Microsoft Tai Le C:\Windows\Fonts\taile.ttf
Microsoft Tai Le-B C:\Windows\Fonts\taileb.ttf
Tarzan C:\Windows\Fonts\Tarzan__.ttf
Tw Cen MT-B-I C:\Windows\Fonts\TCBI____.TTF
Tw Cen MT-B C:\Windows\Fonts\TCB_____.TTF
Tw Cen MT Condensed-B C:\Windows\Fonts\TCCB____.TTF
Tw Cen MT Condensed Extra Bold C:\Windows\Fonts\TCCEB.TTF
Tw Cen MT Condensed C:\Windows\Fonts\TCCM____.TTF
Tw Cen MT-I C:\Windows\Fonts\TCMI____.TTF
Tw Cen MT C:\Windows\Fonts\TCM_____.TTF
Tempus Sans ITC C:\Windows\Fonts\TEMPSITC.TTF
Terminator Two C:\Windows\Fonts\terminat.ttf
Times New Roman C:\Windows\Fonts\times.ttf
Times New Roman-B C:\Windows\Fonts\timesbd.ttf
Times New Roman-B-I C:\Windows\Fonts\timesbi.ttf
Times New Roman-I C:\Windows\Fonts\timesi.ttf
Toledo C:\Windows\Fonts\Toledo__.ttf
Trebuchet MS C:\Windows\Fonts\trebuc.ttf
Trebuchet MS-B C:\Windows\Fonts\trebucbd.ttf
Trebuchet MS-B-I C:\Windows\Fonts\trebucbi.ttf
Trebuchet MS-I C:\Windows\Fonts\trebucit.ttf
Valken C:\Windows\Fonts\VALKEN__.TTF
Verdana C:\Windows\Fonts\verdana.ttf
Verdana-B C:\Windows\Fonts\verdanab.ttf
Verdana-I C:\Windows\Fonts\verdanai.ttf
Verdana-B-I C:\Windows\Fonts\verdanaz.ttf
Viner Hand ITC C:\Windows\Fonts\VINERITC.TTF
Vivaldi-I C:\Windows\Fonts\VIVALDII.TTF
Vivian C:\Windows\Fonts\Vivian__.ttf
Vladimir Script C:\Windows\Fonts\VLADIMIR.TTF
Waverly C:\Windows\Fonts\Waverly_.ttf
Webdings C:\Windows\Fonts\webdings.ttf
Whimsy TT C:\Windows\Fonts\Whimsy.TTF
Wingdings C:\Windows\Fonts\wingding.ttf
Wingdings 2 C:\Windows\Fonts\WINGDNG2.TTF
Wingdings 3 C:\Windows\Fonts\WINGDNG3.TTF
Woodcut C:\Windows\Fonts\woodcut.ttf
Overexposed C:\Windows\Fonts\xfiles.ttf
X-Files C:\Windows\Fonts\xfiles.ttf
Year supply of fairy cakes C:\Windows\Fonts\yearsupplyoffairycakes.ttf
Yu Gothic-B C:\Windows\Fonts\YuGothB.ttc
游ゴシック-B C:\Windows\Fonts\YuGothB.ttc
Yu Gothic UI-B C:\Windows\Fonts\YuGothB.ttc
Yu Gothic UI Semibold-B C:\Windows\Fonts\YuGothB.ttc
Yu Gothic Light C:\Windows\Fonts\YuGothL.ttc
游ゴシック Light C:\Windows\Fonts\YuGothL.ttc
Yu Gothic UI Light C:\Windows\Fonts\YuGothL.ttc
Yu Gothic Medium C:\Windows\Fonts\YuGothM.ttc
游ゴシック Medium C:\Windows\Fonts\YuGothM.ttc
Yu Gothic UI C:\Windows\Fonts\YuGothM.ttc
Yu Gothic C:\Windows\Fonts\YuGothR.ttc
游ゴシック C:\Windows\Fonts\YuGothR.ttc
Yu Gothic UI Semilight C:\Windows\Fonts\YuGothR.ttc
ZWAdobeF-I C:\Windows\Fonts\ZWAdobeF.TTF

@ -14,7 +14,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>Pg9JLYKf6GVJgk0qHWJVDcgppxnMv3myeT9SeO2iJko=</dsig:DigestValue>
<dsig:DigestValue>iEajZlzvX50g+NuuamiCaVSi2CsN7TaU+Z7RZ1gbtNA=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

@ -470,7 +470,7 @@
<dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
</dsig:Transforms>
<dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha256" />
<dsig:DigestValue>pj1Lv24wMXbk8bjGf/CDdoSkM9kk8oKyF/aZqnNZabc=</dsig:DigestValue>
<dsig:DigestValue>REnZZ21iKAM8//xzZ6sNyrWYrpGVwnfG4P10nYD6nZk=</dsig:DigestValue>
</hash>
</dependentAssembly>
</dependency>

Binary file not shown.

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 77 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 76 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 76 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 77 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 77 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 80 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 77 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 77 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 79 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 76 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 78 KiB

Some files were not shown because too many files have changed in this diff Show More

Loading…
Cancel
Save