diff --git a/.vs/DPM2016/v16/.suo b/.vs/DPM2016/v16/.suo
index 552d342..1953884 100644
Binary files a/.vs/DPM2016/v16/.suo and b/.vs/DPM2016/v16/.suo differ
diff --git a/.vs/DPM2016/v17/.suo b/.vs/DPM2016/v17/.suo
new file mode 100644
index 0000000..bf214ef
Binary files /dev/null and b/.vs/DPM2016/v17/.suo differ
diff --git a/CryptoEditor/bin/Debug/CryptoEditor.exe b/CryptoEditor/bin/Debug/CryptoEditor.exe
index b4aabe7..6fddc02 100644
Binary files a/CryptoEditor/bin/Debug/CryptoEditor.exe and b/CryptoEditor/bin/Debug/CryptoEditor.exe differ
diff --git a/CryptoEditor/bin/Debug/CryptoEditor.pdb b/CryptoEditor/bin/Debug/CryptoEditor.pdb
index 7ca78b6..5053806 100644
Binary files a/CryptoEditor/bin/Debug/CryptoEditor.pdb and b/CryptoEditor/bin/Debug/CryptoEditor.pdb differ
diff --git a/CryptoEditor/obj/Debug/CryptoEditor.exe b/CryptoEditor/obj/Debug/CryptoEditor.exe
index b4aabe7..6fddc02 100644
Binary files a/CryptoEditor/obj/Debug/CryptoEditor.exe and b/CryptoEditor/obj/Debug/CryptoEditor.exe differ
diff --git a/CryptoEditor/obj/Debug/CryptoEditor.pdb b/CryptoEditor/obj/Debug/CryptoEditor.pdb
index 7ca78b6..5053806 100644
Binary files a/CryptoEditor/obj/Debug/CryptoEditor.pdb and b/CryptoEditor/obj/Debug/CryptoEditor.pdb differ
diff --git a/CryptoEditor/obj/Debug/CryptoEditor.vbproj.AssemblyReference.cache b/CryptoEditor/obj/Debug/CryptoEditor.vbproj.AssemblyReference.cache
index 9f4d07c..f30d1a6 100644
Binary files a/CryptoEditor/obj/Debug/CryptoEditor.vbproj.AssemblyReference.cache and b/CryptoEditor/obj/Debug/CryptoEditor.vbproj.AssemblyReference.cache differ
diff --git a/CryptoEditor/obj/Debug/CryptoEditor.vbproj.GenerateResource.cache b/CryptoEditor/obj/Debug/CryptoEditor.vbproj.GenerateResource.cache
index f609959..3c03ec5 100644
Binary files a/CryptoEditor/obj/Debug/CryptoEditor.vbproj.GenerateResource.cache and b/CryptoEditor/obj/Debug/CryptoEditor.vbproj.GenerateResource.cache differ
diff --git a/CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache b/CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache
index ca9eb75..9540d5b 100644
Binary files a/CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache and b/CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache differ
diff --git a/CryptoTest/CryptoTest.csproj b/CryptoTest/CryptoTest.csproj
new file mode 100644
index 0000000..c73e0d1
--- /dev/null
+++ b/CryptoTest/CryptoTest.csproj
@@ -0,0 +1,8 @@
+
+
+
+ Exe
+ netcoreapp3.1
+
+
+
diff --git a/CryptoTest/Program.cs b/CryptoTest/Program.cs
new file mode 100644
index 0000000..765b713
--- /dev/null
+++ b/CryptoTest/Program.cs
@@ -0,0 +1,156 @@
+using System;
+using System.IO;
+using System.Linq;
+using System.Security.Cryptography;
+using System.Text;
+
+namespace CryptoTest
+{
+ class Program
+ {
+
+ public static byte[] StringToByteArray(string hex)
+ {
+ return Enumerable.Range(0, hex.Length)
+ .Where(x => x % 2 == 0)
+ .Select(x => Convert.ToByte(hex.Substring(x, 2), 16))
+ .ToArray();
+ }
+ public static void Main()
+ {
+
+
+ try
+ {
+
+ string x = Base64Encode("3hba8fOumOPrMG0.G?-mkF-scGOkPwyW");
+ string y = Base64Decode(x);
+
+ string original = "3hba8fOumOPrMG0.G?-mkF-scGOkPwyW";
+
+ // Create a new instance of the RijndaelManaged
+ // class. This generates a new key and initialization
+ // vector (IV).
+ using (RijndaelManaged myRijndael = new RijndaelManaged())
+ {
+
+ myRijndael.Key = Encoding.UTF8.GetBytes("3hba8fOumOPrMG0.G?-mkF-scGOkPwyW");
+ myRijndael.IV = Encoding.UTF8.GetBytes("Q.6qYq0_C+mGmymX");
+ byte[] x1 = Encoding.UTF8.GetBytes(original);
+ // Encrypt the string to an array of bytes.
+ byte[] encrypted = EncryptStringToBytes(original, myRijndael.Key, myRijndael.IV);
+
+ string x2= BitConverter.ToString(encrypted).Replace("-","");
+ string x3 = BitConverter.ToString(encrypted);
+ // Decrypt the bytes to a string.
+ byte[] xx = StringToByteArray(x2);
+ // byte[] xy = Encoding.UTF8.GetBytes(x2);
+ string roundtrip = DecryptStringFromBytes(xx, myRijndael.Key, myRijndael.IV);
+
+// string roundtrip = DecryptStringFromBytes(encrypted, myRijndael.Key, myRijndael.IV);
+
+ //Display the original data and the decrypted data.
+ Console.WriteLine("Original: {0}", original);
+ Console.WriteLine("Round Trip: {0}", roundtrip);
+ }
+ }
+ catch (Exception e)
+ {
+ Console.WriteLine("Error: {0}", e.Message);
+ }
+ }
+ static byte[] EncryptStringToBytes(string plainText, byte[] Key, byte[] IV)
+ {
+ // Check arguments.
+ if (plainText == null || plainText.Length <= 0)
+ throw new ArgumentNullException("plainText");
+ if (Key == null || Key.Length <= 0)
+ throw new ArgumentNullException("Key");
+ if (IV == null || IV.Length <= 0)
+ throw new ArgumentNullException("IV");
+ byte[] encrypted;
+ // Create an RijndaelManaged object
+ // with the specified key and IV.
+ using (RijndaelManaged rijAlg = new RijndaelManaged())
+ {
+ rijAlg.Key = Key;
+ rijAlg.IV = IV;
+
+ // Create an encryptor to perform the stream transform.
+ ICryptoTransform encryptor = rijAlg.CreateEncryptor(rijAlg.Key, rijAlg.IV);
+
+ // Create the streams used for encryption.
+ using (MemoryStream msEncrypt = new MemoryStream())
+ {
+ using (CryptoStream csEncrypt = new CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write))
+ {
+ using (StreamWriter swEncrypt = new StreamWriter(csEncrypt))
+ {
+
+ //Write all data to the stream.
+ swEncrypt.Write(plainText);
+ }
+ encrypted = msEncrypt.ToArray();
+ }
+ }
+ }
+
+ // Return the encrypted bytes from the memory stream.
+ return encrypted;
+ }
+
+ static string DecryptStringFromBytes(byte[] cipherText, byte[] Key, byte[] IV)
+ {
+ // Check arguments.
+ if (cipherText == null || cipherText.Length <= 0)
+ throw new ArgumentNullException("cipherText");
+ if (Key == null || Key.Length <= 0)
+ throw new ArgumentNullException("Key");
+ if (IV == null || IV.Length <= 0)
+ throw new ArgumentNullException("IV");
+
+ // Declare the string used to hold
+ // the decrypted text.
+ string plaintext = null;
+
+ // Create an RijndaelManaged object
+ // with the specified key and IV.
+ using (RijndaelManaged rijAlg = new RijndaelManaged())
+ {
+ rijAlg.Key = Key;
+ rijAlg.IV = IV;
+
+ // Create a decryptor to perform the stream transform.
+ ICryptoTransform decryptor = rijAlg.CreateDecryptor(rijAlg.Key, rijAlg.IV);
+
+ // Create the streams used for decryption.
+ using (MemoryStream msDecrypt = new MemoryStream(cipherText))
+ {
+ using (CryptoStream csDecrypt = new CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read))
+ {
+ using (StreamReader srDecrypt = new StreamReader(csDecrypt))
+ {
+ // Read the decrypted bytes from the decrypting stream
+ // and place them in a string.
+ plaintext = srDecrypt.ReadToEnd();
+ }
+ }
+ }
+ }
+
+ return plaintext;
+ }
+
+ public static string Base64Encode(string plainText)
+ {
+ var plainTextBytes = System.Text.Encoding.UTF8.GetBytes(plainText);
+ return System.Convert.ToBase64String(plainTextBytes);
+ }
+
+ public static string Base64Decode(string base64EncodedData)
+ {
+ var base64EncodedBytes = System.Convert.FromBase64String(base64EncodedData);
+ return System.Text.Encoding.UTF8.GetString(base64EncodedBytes);
+ }
+ }
+}
diff --git a/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.deps.json b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.deps.json
new file mode 100644
index 0000000..63eec80
--- /dev/null
+++ b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.deps.json
@@ -0,0 +1,23 @@
+{
+ "runtimeTarget": {
+ "name": ".NETCoreApp,Version=v3.1",
+ "signature": ""
+ },
+ "compilationOptions": {},
+ "targets": {
+ ".NETCoreApp,Version=v3.1": {
+ "CryptoTest/1.0.0": {
+ "runtime": {
+ "CryptoTest.dll": {}
+ }
+ }
+ }
+ },
+ "libraries": {
+ "CryptoTest/1.0.0": {
+ "type": "project",
+ "serviceable": false,
+ "sha512": ""
+ }
+ }
+}
\ No newline at end of file
diff --git a/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.dll b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.dll
new file mode 100644
index 0000000..53e414c
Binary files /dev/null and b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.dll differ
diff --git a/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.exe b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.exe
new file mode 100644
index 0000000..be5aa00
Binary files /dev/null and b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.exe differ
diff --git a/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.pdb b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.pdb
new file mode 100644
index 0000000..7398af8
Binary files /dev/null and b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.pdb differ
diff --git a/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.runtimeconfig.dev.json b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.runtimeconfig.dev.json
new file mode 100644
index 0000000..67d5b1e
--- /dev/null
+++ b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.runtimeconfig.dev.json
@@ -0,0 +1,9 @@
+{
+ "runtimeOptions": {
+ "additionalProbingPaths": [
+ "C:\\Users\\Steafn Hutter lokal\\.dotnet\\store\\|arch|\\|tfm|",
+ "C:\\Users\\Steafn Hutter lokal\\.nuget\\packages",
+ "C:\\Program Files (x86)\\Microsoft\\Xamarin\\NuGet"
+ ]
+ }
+}
\ No newline at end of file
diff --git a/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.runtimeconfig.json b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.runtimeconfig.json
new file mode 100644
index 0000000..bc456d7
--- /dev/null
+++ b/CryptoTest/bin/Debug/netcoreapp3.1/CryptoTest.runtimeconfig.json
@@ -0,0 +1,9 @@
+{
+ "runtimeOptions": {
+ "tfm": "netcoreapp3.1",
+ "framework": {
+ "name": "Microsoft.NETCore.App",
+ "version": "3.1.0"
+ }
+ }
+}
\ No newline at end of file
diff --git a/CryptoTest/obj/CryptoTest.csproj.nuget.dgspec.json b/CryptoTest/obj/CryptoTest.csproj.nuget.dgspec.json
new file mode 100644
index 0000000..ac93a9a
--- /dev/null
+++ b/CryptoTest/obj/CryptoTest.csproj.nuget.dgspec.json
@@ -0,0 +1,69 @@
+{
+ "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\\Xamarin\\NuGet\\"
+ ],
+ "configFilePaths": [
+ "C:\\Users\\Steafn Hutter lokal\\AppData\\Roaming\\NuGet\\NuGet.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": {},
+ "http://nuget.grapecity.com/nuget": {},
+ "https://api.nuget.org/v3/index.json": {}
+ },
+ "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.400\\RuntimeIdentifierGraph.json"
+ }
+ }
+ }
+ }
+}
\ No newline at end of file
diff --git a/CryptoTest/obj/CryptoTest.csproj.nuget.g.props b/CryptoTest/obj/CryptoTest.csproj.nuget.g.props
new file mode 100644
index 0000000..9cb2594
--- /dev/null
+++ b/CryptoTest/obj/CryptoTest.csproj.nuget.g.props
@@ -0,0 +1,19 @@
+
+
+
+ True
+ NuGet
+ $(MSBuildThisFileDirectory)project.assets.json
+ $(UserProfile)\.nuget\packages\
+ C:\Users\Steafn Hutter lokal\.nuget\packages\;C:\Program Files (x86)\Microsoft\Xamarin\NuGet\
+ PackageReference
+ 5.11.0
+
+
+
+
+
+
+ $(MSBuildAllProjects);$(MSBuildThisFileFullPath)
+
+
\ No newline at end of file
diff --git a/CryptoTest/obj/CryptoTest.csproj.nuget.g.targets b/CryptoTest/obj/CryptoTest.csproj.nuget.g.targets
new file mode 100644
index 0000000..53cfaa1
--- /dev/null
+++ b/CryptoTest/obj/CryptoTest.csproj.nuget.g.targets
@@ -0,0 +1,6 @@
+
+
+
+ $(MSBuildAllProjects);$(MSBuildThisFileFullPath)
+
+
\ No newline at end of file
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/.NETCoreApp,Version=v3.1.AssemblyAttributes.cs b/CryptoTest/obj/Debug/netcoreapp3.1/.NETCoreApp,Version=v3.1.AssemblyAttributes.cs
new file mode 100644
index 0000000..ad8dfe1
--- /dev/null
+++ b/CryptoTest/obj/Debug/netcoreapp3.1/.NETCoreApp,Version=v3.1.AssemblyAttributes.cs
@@ -0,0 +1,4 @@
+//
+using System;
+using System.Reflection;
+[assembly: global::System.Runtime.Versioning.TargetFrameworkAttribute(".NETCoreApp,Version=v3.1", FrameworkDisplayName = "")]
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.AssemblyInfo.cs b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.AssemblyInfo.cs
new file mode 100644
index 0000000..5e60db2
--- /dev/null
+++ b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.AssemblyInfo.cs
@@ -0,0 +1,23 @@
+//------------------------------------------------------------------------------
+//
+// Dieser Code wurde von einem Tool generiert.
+// Laufzeitversion:4.0.30319.42000
+//
+// Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+// der Code erneut generiert wird.
+//
+//------------------------------------------------------------------------------
+
+using System;
+using System.Reflection;
+
+[assembly: System.Reflection.AssemblyCompanyAttribute("CryptoTest")]
+[assembly: System.Reflection.AssemblyConfigurationAttribute("Debug")]
+[assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0")]
+[assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0")]
+[assembly: System.Reflection.AssemblyProductAttribute("CryptoTest")]
+[assembly: System.Reflection.AssemblyTitleAttribute("CryptoTest")]
+[assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0")]
+
+// Von der MSBuild WriteCodeFragment-Klasse generiert.
+
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.AssemblyInfoInputs.cache b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.AssemblyInfoInputs.cache
new file mode 100644
index 0000000..20bdebc
--- /dev/null
+++ b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.AssemblyInfoInputs.cache
@@ -0,0 +1 @@
+4c65cd39b37e039fb4feeccfe230893478b7af8c
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.GeneratedMSBuildEditorConfig.editorconfig b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.GeneratedMSBuildEditorConfig.editorconfig
new file mode 100644
index 0000000..7435bdc
--- /dev/null
+++ b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.GeneratedMSBuildEditorConfig.editorconfig
@@ -0,0 +1,3 @@
+is_global = true
+build_property.RootNamespace = CryptoTest
+build_property.ProjectDir = E:\Software-Projekte\DPM\DPM2016\CryptoTest\
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.assets.cache b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.assets.cache
new file mode 100644
index 0000000..55e4fe2
Binary files /dev/null and b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.assets.cache differ
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.csproj.AssemblyReference.cache b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.csproj.AssemblyReference.cache
new file mode 100644
index 0000000..37bc696
Binary files /dev/null and b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.csproj.AssemblyReference.cache differ
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.csproj.CoreCompileInputs.cache b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.csproj.CoreCompileInputs.cache
new file mode 100644
index 0000000..1948e2c
--- /dev/null
+++ b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.csproj.CoreCompileInputs.cache
@@ -0,0 +1 @@
+d8ac62544905ab942c40fa6e1da0ce9d086e4164
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.csproj.FileListAbsolute.txt b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.csproj.FileListAbsolute.txt
new file mode 100644
index 0000000..6b27ea4
--- /dev/null
+++ b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.csproj.FileListAbsolute.txt
@@ -0,0 +1,14 @@
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\bin\Debug\netcoreapp3.1\CryptoTest.exe
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\bin\Debug\netcoreapp3.1\CryptoTest.deps.json
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\bin\Debug\netcoreapp3.1\CryptoTest.runtimeconfig.json
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\bin\Debug\netcoreapp3.1\CryptoTest.runtimeconfig.dev.json
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\bin\Debug\netcoreapp3.1\CryptoTest.dll
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\bin\Debug\netcoreapp3.1\CryptoTest.pdb
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\obj\Debug\netcoreapp3.1\CryptoTest.csproj.AssemblyReference.cache
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\obj\Debug\netcoreapp3.1\CryptoTest.GeneratedMSBuildEditorConfig.editorconfig
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\obj\Debug\netcoreapp3.1\CryptoTest.AssemblyInfoInputs.cache
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\obj\Debug\netcoreapp3.1\CryptoTest.AssemblyInfo.cs
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\obj\Debug\netcoreapp3.1\CryptoTest.csproj.CoreCompileInputs.cache
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\obj\Debug\netcoreapp3.1\CryptoTest.dll
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\obj\Debug\netcoreapp3.1\CryptoTest.pdb
+E:\Software-Projekte\DPM\DPM2016\CryptoTest\obj\Debug\netcoreapp3.1\CryptoTest.genruntimeconfig.cache
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.dll b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.dll
new file mode 100644
index 0000000..53e414c
Binary files /dev/null and b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.dll differ
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.genruntimeconfig.cache b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.genruntimeconfig.cache
new file mode 100644
index 0000000..635f54f
--- /dev/null
+++ b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.genruntimeconfig.cache
@@ -0,0 +1 @@
+086b62312cfc2d35daa14b24116cf1ec6e42734a
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.pdb b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.pdb
new file mode 100644
index 0000000..7398af8
Binary files /dev/null and b/CryptoTest/obj/Debug/netcoreapp3.1/CryptoTest.pdb differ
diff --git a/CryptoTest/obj/Debug/netcoreapp3.1/apphost.exe b/CryptoTest/obj/Debug/netcoreapp3.1/apphost.exe
new file mode 100644
index 0000000..be5aa00
Binary files /dev/null and b/CryptoTest/obj/Debug/netcoreapp3.1/apphost.exe differ
diff --git a/CryptoTest/obj/Release/netcoreapp3.1/.NETCoreApp,Version=v3.1.AssemblyAttributes.cs b/CryptoTest/obj/Release/netcoreapp3.1/.NETCoreApp,Version=v3.1.AssemblyAttributes.cs
new file mode 100644
index 0000000..ad8dfe1
--- /dev/null
+++ b/CryptoTest/obj/Release/netcoreapp3.1/.NETCoreApp,Version=v3.1.AssemblyAttributes.cs
@@ -0,0 +1,4 @@
+//
+using System;
+using System.Reflection;
+[assembly: global::System.Runtime.Versioning.TargetFrameworkAttribute(".NETCoreApp,Version=v3.1", FrameworkDisplayName = "")]
diff --git a/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.AssemblyInfo.cs b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.AssemblyInfo.cs
new file mode 100644
index 0000000..6975d5f
--- /dev/null
+++ b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.AssemblyInfo.cs
@@ -0,0 +1,23 @@
+//------------------------------------------------------------------------------
+//
+// Dieser Code wurde von einem Tool generiert.
+// Laufzeitversion:4.0.30319.42000
+//
+// Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+// der Code erneut generiert wird.
+//
+//------------------------------------------------------------------------------
+
+using System;
+using System.Reflection;
+
+[assembly: System.Reflection.AssemblyCompanyAttribute("CryptoTest")]
+[assembly: System.Reflection.AssemblyConfigurationAttribute("Release")]
+[assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0")]
+[assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0")]
+[assembly: System.Reflection.AssemblyProductAttribute("CryptoTest")]
+[assembly: System.Reflection.AssemblyTitleAttribute("CryptoTest")]
+[assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0")]
+
+// Von der MSBuild WriteCodeFragment-Klasse generiert.
+
diff --git a/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.AssemblyInfoInputs.cache b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.AssemblyInfoInputs.cache
new file mode 100644
index 0000000..fa6dc71
--- /dev/null
+++ b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.AssemblyInfoInputs.cache
@@ -0,0 +1 @@
+29dd8a14218cf3c1b16f4d1233101ff466e00d6d
diff --git a/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.GeneratedMSBuildEditorConfig.editorconfig b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.GeneratedMSBuildEditorConfig.editorconfig
new file mode 100644
index 0000000..7435bdc
--- /dev/null
+++ b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.GeneratedMSBuildEditorConfig.editorconfig
@@ -0,0 +1,3 @@
+is_global = true
+build_property.RootNamespace = CryptoTest
+build_property.ProjectDir = E:\Software-Projekte\DPM\DPM2016\CryptoTest\
diff --git a/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.assets.cache b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.assets.cache
new file mode 100644
index 0000000..7827475
Binary files /dev/null and b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.assets.cache differ
diff --git a/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.csproj.AssemblyReference.cache b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.csproj.AssemblyReference.cache
new file mode 100644
index 0000000..37bc696
Binary files /dev/null and b/CryptoTest/obj/Release/netcoreapp3.1/CryptoTest.csproj.AssemblyReference.cache differ
diff --git a/CryptoTest/obj/project.assets.json b/CryptoTest/obj/project.assets.json
new file mode 100644
index 0000000..b72f22f
--- /dev/null
+++ b/CryptoTest/obj/project.assets.json
@@ -0,0 +1,75 @@
+{
+ "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\\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\\Xamarin\\NuGet\\"
+ ],
+ "configFilePaths": [
+ "C:\\Users\\Steafn Hutter lokal\\AppData\\Roaming\\NuGet\\NuGet.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": {},
+ "http://nuget.grapecity.com/nuget": {},
+ "https://api.nuget.org/v3/index.json": {}
+ },
+ "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.400\\RuntimeIdentifierGraph.json"
+ }
+ }
+ }
+}
\ No newline at end of file
diff --git a/CryptoTest/obj/project.nuget.cache b/CryptoTest/obj/project.nuget.cache
new file mode 100644
index 0000000..753d31d
--- /dev/null
+++ b/CryptoTest/obj/project.nuget.cache
@@ -0,0 +1,8 @@
+{
+ "version": 2,
+ "dgSpecHash": "5lKLlOD+6qMd+AiatDvYNY7hRK2l0HpmF7DFerbhpj+Si30ZlxMLXbQWIfwjNrAw7oBHHUlZ/yfQbdMlwcfDNw==",
+ "success": true,
+ "projectFilePath": "E:\\Software-Projekte\\DPM\\DPM2016\\CryptoTest\\CryptoTest.csproj",
+ "expectedPackageFiles": [],
+ "logs": []
+}
\ No newline at end of file
diff --git a/DPM2016.sln b/DPM2016.sln
index f5a1406..ee88adb 100644
--- a/DPM2016.sln
+++ b/DPM2016.sln
@@ -1,7 +1,7 @@
Microsoft Visual Studio Solution File, Format Version 12.00
-# Visual Studio 15
-VisualStudioVersion = 15.0.26228.4
+# Visual Studio Version 16
+VisualStudioVersion = 16.0.31613.86
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DPM2016", "DPM2016\DPM2016.vbproj", "{C78BA301-98A0-41B2-B1C9-553567634286}"
EndProject
@@ -13,6 +13,10 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SHUKeyGen", "DPMLizenzmanag
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SHU_Imagegal", "..\..\_Demos\PictureViewer\SHU_Imagegal\SHU_Imagegal\SHU_Imagegal.vbproj", "{45F09566-A07D-49BE-B538-311D3B7A3539}"
EndProject
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "DPMCrypto", "DPMCrypto\DPMCrypto.csproj", "{68C7CC6D-4685-4ED2-9626-006B4AB3941E}"
+EndProject
+Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "DPMHttp", "DPMHttp\DPMHttp.csproj", "{DAB22BC0-2307-43E4-BD58-BA5ABA1889A9}"
+EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
@@ -39,6 +43,14 @@ Global
{45F09566-A07D-49BE-B538-311D3B7A3539}.Debug|Any CPU.Build.0 = Debug|Any CPU
{45F09566-A07D-49BE-B538-311D3B7A3539}.Release|Any CPU.ActiveCfg = Release|Any CPU
{45F09566-A07D-49BE-B538-311D3B7A3539}.Release|Any CPU.Build.0 = Release|Any CPU
+ {68C7CC6D-4685-4ED2-9626-006B4AB3941E}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+ {68C7CC6D-4685-4ED2-9626-006B4AB3941E}.Debug|Any CPU.Build.0 = Debug|Any CPU
+ {68C7CC6D-4685-4ED2-9626-006B4AB3941E}.Release|Any CPU.ActiveCfg = Release|Any CPU
+ {68C7CC6D-4685-4ED2-9626-006B4AB3941E}.Release|Any CPU.Build.0 = Release|Any CPU
+ {DAB22BC0-2307-43E4-BD58-BA5ABA1889A9}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+ {DAB22BC0-2307-43E4-BD58-BA5ABA1889A9}.Debug|Any CPU.Build.0 = Debug|Any CPU
+ {DAB22BC0-2307-43E4-BD58-BA5ABA1889A9}.Release|Any CPU.ActiveCfg = Release|Any CPU
+ {DAB22BC0-2307-43E4-BD58-BA5ABA1889A9}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
diff --git a/DPM2016/Auswertungen/FremAuswertung.vb b/DPM2016/Auswertungen/FremAuswertung.vb
index 5ee6993..fecf1d4 100644
--- a/DPM2016/Auswertungen/FremAuswertung.vb
+++ b/DPM2016/Auswertungen/FremAuswertung.vb
@@ -517,6 +517,23 @@ Public Class frmAuswertung
End Sub
Public Sub Show_CAMT_Journal()
+ If usedb = True Then
+ Dim rdb As New clsDB
+ Dim f As New frmAuswertung
+ f.MdiParent = Me.ParentForm.MdiParent
+ f.Show()
+ rdb.Get_Tabledata("CAMT_Run", "", "Select top 1 * From camt_run order By nreintrag desc")
+ Dim camtnr As Integer = rdb.dsDaten.Tables(0).Rows(0).Item("nreintrag")
+ rdb.Get_Tabledata("CAMT_Journal", "", "Select top 1 * from Reporting where Bezeichnung='CAMT-Journal'")
+
+ If Me.Findnode(rdb.dsDaten.Tables(0).Rows(0).Item("NrReport")) Then
+ Me.Set_Propertiesvalue(0, camtnr)
+ Me.Show_Report()
+ End If
+ Exit Sub
+ End If
+
+
Dim tmpcollection As New Collection
Dim s As String
Me.TreeReporting.Nodes.Clear()
diff --git a/DPM2016/DPM2016.vbproj b/DPM2016/DPM2016.vbproj
index b4a9a22..7f170ac 100644
--- a/DPM2016/DPM2016.vbproj
+++ b/DPM2016/DPM2016.vbproj
@@ -160,6 +160,9 @@
False..\..\Archiv\DPM_Reporting\DPM_Reporting\bin\Debug\MySql.Data.dll
+
+ ..\packages\Newtonsoft.Json.13.0.1\lib\net45\Newtonsoft.Json.dll
+ ..\..\ThirtPartyKlassen\MsgViewer\bin\Debug\OpenMcdf.dll
@@ -227,6 +230,13 @@
+
+
+
+ False
+ bin\Debug\System.Net.Http.Formatting.DLL
+
+
@@ -474,6 +484,7 @@
Component
+ Patient.vb
@@ -581,6 +592,7 @@
Form
+ frmcalendar.vb
@@ -643,6 +655,7 @@
Form
+ SplashForm.vb
@@ -871,6 +884,7 @@
MySettings.Designer.vb
+
diff --git a/DPM2016/Mobile/Models/Patient.vb b/DPM2016/Mobile/Models/Patient.vb
new file mode 100644
index 0000000..83e847a
--- /dev/null
+++ b/DPM2016/Mobile/Models/Patient.vb
@@ -0,0 +1,9 @@
+Namespace mobilemodels
+ Public Class Patient
+ Public Property ID As Integer = 0
+ Public Property Pat As String = ""
+ Public Property Transferdate As DateTime = Now
+ Public Property TransferDirection As Integer
+
+ End Class
+End Namespace
diff --git a/DPM2016/Mobile/MyHttpClient.vb b/DPM2016/Mobile/MyHttpClient.vb
new file mode 100644
index 0000000..6c0db2e
--- /dev/null
+++ b/DPM2016/Mobile/MyHttpClient.vb
@@ -0,0 +1,137 @@
+Imports System
+Imports System.Collections.Generic
+Imports System.Linq
+Imports System.Text
+Imports System.Threading.Tasks
+Imports System.Net.Http
+Imports System.Net.Http.js
+Imports System.Net.Http.Headers
+
+Namespace DPMHttpClient
+
+
+ Public Class DPMhttpClient
+
+
+ Public Class DataStore(Of T)
+ Public Property daten As String
+ Public Property resultstatus As Boolean
+ Public Property resultstatuscode As String
+ End Class
+
+ Public ResponsTask As HttpResponseMessage
+ Public RespnsResult As HttpRequestMessage
+ Public Results As DataStore(Of Object) = New DataStore(Of Object)()
+ Public BaseAPI As String = ""
+
+ Dim uri As String = ""
+ Dim apikey As String = ""
+ Dim SecretKey As String = ""
+ Sub New()
+ Dim db As New clsDB
+ apikey = db.Get_Option(100001)
+ uri = db.Get_Option(100003)
+ SecretKey = db.Get_Option(100002)
+ db.Dispose()
+ End Sub
+
+ Public Sub CallService(ByVal api As String, ByVal key As String, ByVal fnkt As String, ByVal daten As Object)
+ Dim client As HttpClient = New HttpClient()
+ client.BaseAddress = New Uri(uri)
+ client.DefaultRequestHeaders.Add("ApiKey", apikey)
+ client.DefaultRequestHeaders.Add("SecKey", SecretKey)
+ Select Case fnkt
+ Case "GET"
+
+ If key <> "" Then
+ api = api & "/" & key
+ End If
+
+ Dim responseTask = client.GetAsync(api)
+ responseTask.Wait()
+ Dim result = responseTask.Result
+ Results.resultstatus = responseTask.Result.IsSuccessStatusCode
+
+ If result.IsSuccessStatusCode Then
+ Dim readTask = result.Content.ReadAsStringAsync()
+ readTask.Wait()
+ Results.daten = readTask.Result
+ Exit Select
+ End If
+
+ Case "PUT"
+
+ If key <> "" Then
+ api = api & "/" & key
+ End If
+
+
+ Dim postresponse = client.PostAsJsonAsync(api, daten).Result
+ Results.resultstatuscode = postresponse.StatusCode.ToString()
+ Case "POST"
+
+ If key <> "" Then
+ api = api & "/" & key
+ End If
+
+
+ Dim postresponse = client.PostAsJsonAsync(api, daten).Result
+ Results.resultstatuscode = postresponse.StatusCode.ToString()
+
+ Case "PUT"
+
+ If key <> "" Then
+ api = api & "/" & key
+ End If
+
+
+ Dim postresponse = client.PostAsJsonAsync(api, daten).Result
+ Results.resultstatuscode = postresponse.StatusCode.ToString()
+ Case "DELETE"
+
+ If key <> "" Then
+ api = api & "/" & key
+ End If
+
+ Dim deleteresponse = client.DeleteAsync(api).Result
+ Results.resultstatuscode = deleteresponse.StatusCode.ToString()
+ Case Else
+ End Select
+ End Sub
+
+
+
+
+ 'Public Shared Sub CallGet(ByVal apikey As String)
+ ' Dim client As New HttpClient
+ ' Dim data As Object
+ ' client.BaseAddress = New Uri("http://localhost:60464/api/")
+ ' client.DefaultRequestHeaders.Add("apkikey", apikey)
+ ' client.GetAsync(data)
+ ' Dim responseTask = client.GetAsync("student")
+ ' responseTask.Wait()
+ ' Dim result = responseTask.Result
+ ' If result.IsSuccessStatusCode Then
+ ' Dim readTask = result.Content.ReadAsStringAsync()()
+ ' readTask.Wait()
+ ' Dim students = readTask.Result
+ ' For Each student In students
+ ' Next
+ ' End If
+
+
+ ' End Sub
+
+ ' Private Shared Sub Main(ByVal args As String())
+ ' Using client = New HttpClient()
+ ' client.BaseAddress = New Uri("http://localhost:60464/api/")
+ ' Dim responseTask = client.GetAsync("student")
+ ' responseTask.Wait()
+ ' Dim result = responseTask.Result
+
+ ' End Using
+
+ ' Console.ReadLine()
+ ' End Sub
+ End Class
+End Namespace
\ No newline at end of file
diff --git a/DPM2016/Mobile/clsMobile.vb b/DPM2016/Mobile/clsMobile.vb
new file mode 100644
index 0000000..fbcd8a1
--- /dev/null
+++ b/DPM2016/Mobile/clsMobile.vb
@@ -0,0 +1,23 @@
+Public Class clsMobile
+
+ Public Sub Transfer_Patientenstamm()
+ Dim db As New clsDB
+ Dim myhttp As New DPMHttpClient.DPMhttpClient
+ db.Get_Tabledata("kunden", "", "SELECT NRPRIVAT AS ID, CAST(NRPRIVAT AS varchar(10)) + ' - ' + NAME + ' ' + VORNAME + ', ' + ORT + ', ' + isnull(CONVERT(varchar, GEBDAT, 104),'') AS Pat FROM dbo.PRIVAT", "", False)
+ For Each r As DataRow In db.dsDaten.Tables(0).Rows
+ Dim data As New mobilemodels.Patient
+ data.ID = r.Item(0)
+ Try
+ r.Item(1) = r.Item(1).ToString.Replace("'", "''")
+ data.Pat = r.Item(1)
+ data.Transferdate = Now
+ data.TransferDirection = 1
+ myhttp.CallService("/api/patient", "", "POST", data)
+ Catch
+ End Try
+
+ Next
+
+ End Sub
+
+End Class
diff --git a/DPM2016/My Project/Settings.Designer.vb b/DPM2016/My Project/Settings.Designer.vb
index 5b9d911..b96891d 100644
--- a/DPM2016/My Project/Settings.Designer.vb
+++ b/DPM2016/My Project/Settings.Designer.vb
@@ -13,15 +13,15 @@ Option Explicit On
Namespace My
-
-
+
+ _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
-
- Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()), MySettings)
-
+
+ Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+
#Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
@@ -36,10 +36,10 @@ Namespace My
End Sub
#End If
#End Region
-
+
Public Shared ReadOnly Property [Default]() As MySettings
Get
-
+
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
@@ -53,65 +53,126 @@ Namespace My
Return defaultInstance
End Get
End Property
-
-
+
+ _
Public Property LogLevel() As String
Get
- Return CType(Me("LogLevel"), String)
+ Return CType(Me("LogLevel"),String)
End Get
Set
- Me("LogLevel") = Value
+ Me("LogLevel") = value
End Set
End Property
-
-
+
+ _
Public Property TempPath() As String
Get
- Return CType(Me("TempPath"), String)
+ Return CType(Me("TempPath"),String)
End Get
Set
- Me("TempPath") = Value
+ Me("TempPath") = value
End Set
End Property
-
-
+
+ _
Public Property DocArchivPath() As String
Get
- Return CType(Me("DocArchivPath"), String)
+ Return CType(Me("DocArchivPath"),String)
End Get
Set
- Me("DocArchivPath") = Value
+ Me("DocArchivPath") = value
End Set
End Property
-
-
+
+ _
+ Public Property SoftwareType() As String
+ Get
+ Return CType(Me("SoftwareType"),String)
+ End Get
+ Set
+ Me("SoftwareType") = value
+ End Set
+ End Property
+
+ _
Public Property ConnectionString() As String
Get
- Return CType(Me("ConnectionString"), String)
+ Return CType(Me("ConnectionString"),String)
End Get
Set
- Me("ConnectionString") = Value
+ Me("ConnectionString") = value
End Set
End Property
-
+
_
- Public Property SoftwareType() As String
+ Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstat"& _
+ "ion id=;packet size=4096;user id=sa;password=*shu29")> _
+ Public Property ConnectionStringMobie() As String
Get
- Return CType(Me("SoftwareType"),String)
+ Return CType(Me("ConnectionStringMobie"),String)
End Get
Set
- Me("SoftwareType") = value
+ Me("ConnectionStringMobie") = value
+ End Set
+ End Property
+
+ _
+ Public Property APIKey() As String
+ Get
+ Return CType(Me("APIKey"),String)
+ End Get
+ Set
+ Me("APIKey") = value
+ End Set
+ End Property
+
+ _
+ Public Property IV() As String
+ Get
+ Return CType(Me("IV"),String)
+ End Get
+ Set
+ Me("IV") = value
+ End Set
+ End Property
+
+ _
+ Public Property SecretKey() As String
+ Get
+ Return CType(Me("SecretKey"),String)
+ End Get
+ Set
+ Me("SecretKey") = value
+ End Set
+ End Property
+
+ _
+ Public Property WebAPI() As String
+ Get
+ Return CType(Me("WebAPI"),String)
+ End Get
+ Set
+ Me("WebAPI") = value
End Set
End Property
End Class
diff --git a/DPM2016/My Project/Settings.settings b/DPM2016/My Project/Settings.settings
index 3f18488..60434e4 100644
--- a/DPM2016/My Project/Settings.settings
+++ b/DPM2016/My Project/Settings.settings
@@ -11,11 +11,26 @@
h:\dpm\docarchiv
-
- data source=shu00;initial catalog=shub_padm;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
- PADM
+
+ data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
+
+
+ data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
+
+
+ BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n
+
+
+ Q.6qYq0_C+mGmymX
+
+
+ 3hba8fOumOPrMG0.G?-mkF-scGOkPwyW
+
+
+ http://192.168.111.67
+
\ No newline at end of file
diff --git a/DPM2016/Patient/Patient.Designer.vb b/DPM2016/Patient/Patient.Designer.vb
index d9238c3..c8251fd 100644
--- a/DPM2016/Patient/Patient.Designer.vb
+++ b/DPM2016/Patient/Patient.Designer.vb
@@ -39,13 +39,13 @@ Partial Class Patient
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbtnVTX = New System.Windows.Forms.ToolStripButton()
Me.SuperTabControl1 = New DevComponents.DotNetBar.SuperTabControl()
- Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
- Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
- Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel1 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.btnVTX = New System.Windows.Forms.Button()
Me.PatientDetails1 = New DPM2016.PatientDetails()
Me.Stammdaten = New DevComponents.DotNetBar.SuperTabItem()
+ Me.SuperTabControlPanel4 = New DevComponents.DotNetBar.SuperTabControlPanel()
+ Me.Krankengeschichte1 = New DPM2016.Krankengeschichte()
+ Me.Krankengeschichte = New DevComponents.DotNetBar.SuperTabItem()
Me.SuperTabControlPanel7 = New DevComponents.DotNetBar.SuperTabControlPanel()
Me.ClsDokumente1 = New DPM2016.clsDokumente()
Me.Dokumente = New DevComponents.DotNetBar.SuperTabItem()
@@ -68,8 +68,8 @@ Partial Class Patient
Me.ToolStrip1.SuspendLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuperTabControl1.SuspendLayout()
- Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel1.SuspendLayout()
+ Me.SuperTabControlPanel4.SuspendLayout()
Me.SuperTabControlPanel7.SuspendLayout()
Me.SuperTabControlPanel6.SuspendLayout()
Me.SuperTabControlPanel3.SuspendLayout()
@@ -241,32 +241,6 @@ Partial Class Patient
Me.SuperTabControl1.Tabs.AddRange(New DevComponents.DotNetBar.BaseItem() {Me.Stammdaten, Me.Abrechnung, Me.Behandlungen, Me.Finanzen, Me.Recall, Me.Dokumente, Me.Krankengeschichte})
Me.SuperTabControl1.Text = "SuperTabControl1"
'
- 'SuperTabControlPanel4
- '
- Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
- Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
- Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
- Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
- Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1278, 612)
- Me.SuperTabControlPanel4.TabIndex = 0
- Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
- '
- 'Krankengeschichte1
- '
- Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
- Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
- Me.Krankengeschichte1.Name = "Krankengeschichte1"
- Me.Krankengeschichte1.Patientnr = 0
- Me.Krankengeschichte1.Size = New System.Drawing.Size(1278, 612)
- Me.Krankengeschichte1.TabIndex = 0
- '
- 'Krankengeschichte
- '
- Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
- Me.Krankengeschichte.GlobalItem = False
- Me.Krankengeschichte.Name = "Krankengeschichte"
- Me.Krankengeschichte.Text = "Journal"
- '
'SuperTabControlPanel1
'
Me.SuperTabControlPanel1.Controls.Add(Me.btnVTX)
@@ -305,6 +279,32 @@ Partial Class Patient
Me.Stammdaten.Name = "Stammdaten"
Me.Stammdaten.Text = "Stammdaten"
'
+ 'SuperTabControlPanel4
+ '
+ Me.SuperTabControlPanel4.Controls.Add(Me.Krankengeschichte1)
+ Me.SuperTabControlPanel4.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.SuperTabControlPanel4.Location = New System.Drawing.Point(0, 25)
+ Me.SuperTabControlPanel4.Name = "SuperTabControlPanel4"
+ Me.SuperTabControlPanel4.Size = New System.Drawing.Size(1278, 612)
+ Me.SuperTabControlPanel4.TabIndex = 0
+ Me.SuperTabControlPanel4.TabItem = Me.Krankengeschichte
+ '
+ 'Krankengeschichte1
+ '
+ Me.Krankengeschichte1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.Krankengeschichte1.Location = New System.Drawing.Point(0, 0)
+ Me.Krankengeschichte1.Name = "Krankengeschichte1"
+ Me.Krankengeschichte1.Patientnr = 0
+ Me.Krankengeschichte1.Size = New System.Drawing.Size(1278, 612)
+ Me.Krankengeschichte1.TabIndex = 0
+ '
+ 'Krankengeschichte
+ '
+ Me.Krankengeschichte.AttachedControl = Me.SuperTabControlPanel4
+ Me.Krankengeschichte.GlobalItem = False
+ Me.Krankengeschichte.Name = "Krankengeschichte"
+ Me.Krankengeschichte.Text = "Journal"
+ '
'SuperTabControlPanel7
'
Me.SuperTabControlPanel7.Controls.Add(Me.ClsDokumente1)
@@ -489,8 +489,8 @@ Partial Class Patient
Me.ToolStrip1.PerformLayout()
CType(Me.SuperTabControl1, System.ComponentModel.ISupportInitialize).EndInit()
Me.SuperTabControl1.ResumeLayout(False)
- Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel1.ResumeLayout(False)
+ Me.SuperTabControlPanel4.ResumeLayout(False)
Me.SuperTabControlPanel7.ResumeLayout(False)
Me.SuperTabControlPanel6.ResumeLayout(False)
Me.SuperTabControlPanel3.ResumeLayout(False)
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Aga.Controls.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Aga.Controls.dll.deploy
new file mode 100644
index 0000000..08182e3
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Aga.Controls.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Data.2.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Data.2.dll.deploy
new file mode 100644
index 0000000..1955c40
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Data.2.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1Command.2.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1Command.2.dll.deploy
new file mode 100644
index 0000000..66ac6ad
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1Command.2.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1Command.4.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1Command.4.dll.deploy
new file mode 100644
index 0000000..93a1262
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1Command.4.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1Input.4.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1Input.4.dll.deploy
new file mode 100644
index 0000000..2691ba0
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1Input.4.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1TrueDBGrid.2.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1TrueDBGrid.2.dll.deploy
new file mode 100644
index 0000000..bf25d2b
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/C1.Win.C1TrueDBGrid.2.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.application b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.application
new file mode 100644
index 0000000..92eb976
--- /dev/null
+++ b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.application
@@ -0,0 +1,21 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ MbaUsmx85XZTbqEWV2g048N0Y4Ohm6xJIeczLfr+m5o=
+
+
+
+
\ No newline at end of file
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.exe.config.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.exe.config.deploy
new file mode 100644
index 0000000..ac942fc
--- /dev/null
+++ b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.exe.config.deploy
@@ -0,0 +1,79 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ 2
+
+
+ h:\dpm\dmp1\dmp2
+
+
+ h:\dpm\docarchiv
+
+
+ PADM
+
+
+ data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
+
+
+ data source=shu00;initial catalog=DPM_Mobile;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29
+
+
+ BgWSbwCNM3pEiCxgIlDEyD7HFpUgKPeL8OPDqH9n
+
+
+ Q.6qYq0_C+mGmymX
+
+
+ 3hba8fOumOPrMG0.G?-mkF-scGOkPwyW
+
+
+ http://192.168.111.67
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.exe.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.exe.deploy
new file mode 100644
index 0000000..98af0bb
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.exe.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.exe.manifest b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.exe.manifest
new file mode 100644
index 0000000..ed7de19
--- /dev/null
+++ b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPM2018.exe.manifest
@@ -0,0 +1,719 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+ JU/E0O9QUSU4z52mw1MfM8HW/P2cCG36y8RuNBQE9/E=
+
+
+
+
+
+
+
+
+
+
+
+ KoP4MFPtIPpuYdi596ZhFG36UQfpLRmBzWf4wgIl0FY=
+
+
+
+
+
+
+
+
+
+
+
+ ipHfUYlM1WpL1wZzUlQZRBYQxdVKC7ww96Hu5HGoByY=
+
+
+
+
+
+
+
+
+
+
+
+ LZCXuAA4KWfd6d5himjivInUTiseJEISMLPZ1q7R/vQ=
+
+
+
+
+
+
+
+
+
+
+
+ YXpnMK5jsATYiliytt/7VHMqiJBOOgvjx8NFwBngHi0=
+
+
+
+
+
+
+
+
+
+
+
+ Icd1jj+Kvlb94cEgv3chdv6Wf27hZh+KIA0ZRg1pZ9s=
+
+
+
+
+
+
+
+
+
+
+
+ d5BU2IT2VV5V9H1eeFwMVqrHI2LCfyLEXhU4/aygU38=
+
+
+
+
+
+
+
+
+
+
+
+ O03kOGdfM9+NUl7BNo8sDuitSJQR17FZXMmxhiHeV44=
+
+
+
+
+
+
+
+
+
+
+
+ Y22jqxqpi6u/od9UVk8h8Vr6REdRb3abcHXkbpwQD1Q=
+
+
+
+
+
+
+
+
+
+
+
+ Yh4JxnvP4BbsBuooDtLBea9dtDt4ghlNAsLFoITgif8=
+
+
+
+
+
+
+
+
+
+
+
+ ghc6J0+/z8S+GFA9Pps6uNMn2aGwmrhaKPsNwaLzb7A=
+
+
+
+
+
+
+
+
+
+
+
+ A2pEd+DNsXElEoG5SDmoqJFWQVrTtf9+HdSZG5k8hj4=
+
+
+
+
+
+
+
+
+
+
+
+ soQgeMYwcM3xIk240FErqDqSqEc/x2dQH1Qscv6j0C8=
+
+
+
+
+
+
+
+
+
+
+
+ x4QSq7kCR/O2Hl3qrmG7RUeUGgJcOaMW3n9ZRaYMzV0=
+
+
+
+
+
+
+
+
+
+
+
+ RVFCU3OAKKje5qIAskS3sLD2SyO83a88hCInG2iqi78=
+
+
+
+
+
+
+
+
+
+
+
+ dTr3kOUjyeGnw64AdcG0LIFl5MmfalFv5aENfyZjEuc=
+
+
+
+
+
+
+
+
+
+
+
+ Meir6IabPaye3GDIkfHQ2S58OFF1BkHDeV7aSpaQMpM=
+
+
+
+
+
+
+
+
+
+
+
+ VE7SaKOV+jNNS3Ni2H/rcTAIpaAXokUgU2HDgHPvgK0=
+
+
+
+
+
+
+
+
+
+
+
+ Umg1wnzY1tccuofSRUUTKlIWU4wmWm8kthCUJ10aob0=
+
+
+
+
+
+
+
+
+
+
+
+ D72abgLC1I9PUZrhr3hJG+64Dwcl84cmJcLSCay6R6w=
+
+
+
+
+
+
+
+
+
+
+
+ 6THuietrNIZBNBm2qkeLLqYZ35NLxe2l7Yfpuu4midY=
+
+
+
+
+
+
+
+
+
+
+
+ pNGJXV07g2oW2mw+nBq3OvOrARJybpbNxPebMJcYaOc=
+
+
+
+
+
+
+
+
+
+
+
+ 841UdnZdwdshJzKABmmiJ5TarjvTh90GA2azhNNnjbE=
+
+
+
+
+
+
+
+
+
+
+
+ pf9qMBQB56NW1zW2eG5hdw2GVZvrRblrK1LdbmNU0zM=
+
+
+
+
+
+
+
+
+
+
+
+ 70vYni89hl8KEmP5ZGGnL4VHtavroZmHcWsmE7P5qCI=
+
+
+
+
+
+
+
+
+
+
+
+ Uv+ZAtv89LSuYAVmpIjK+G5Z2mbRqXF/l8WYJhaveoQ=
+
+
+
+
+
+
+
+
+
+
+
+ az2ZzaDPDmQsLyAOI2gQf+1JyjuhvQr0RLEN7NwKA/c=
+
+
+
+
+
+
+
+
+
+
+
+ 7X56fvOHJrUmIfy6vUPlmFiqboysSBDNBPyqQgkaesA=
+
+
+
+
+
+
+
+
+
+
+
+ OS0StxZPf9WpfactpCk1R9QvfEZ91sd/c3D5XZUqSyY=
+
+
+
+
+
+
+
+
+
+
+
+ qOeonQf/zIy44t0zdulKEQFv6wbNfwtf+2veMnHs2yQ=
+
+
+
+
+
+
+
+
+
+
+
+ 8/Z5ezUxuoo3x4BDdK5YD296JUs5ni25jlIgWCJYWWA=
+
+
+
+
+
+
+
+
+
+
+
+ YroZpkn+ylpTTzd8/wU4IqvB7svEKuD2K2vqPgvVqgY=
+
+
+
+
+
+
+
+
+
+
+
+ o1A1TiMHyyY2HLODhWlzi01juSSiEk3jKsgc9fnbhpo=
+
+
+
+
+
+
+
+
+
+
+
+ tiSUnfiw46YVP9+3MKfG9JkLZZLuDZIuF4hDPSdmEPM=
+
+
+
+
+
+
+
+
+
+
+
+ updVzBVQHuepY38OPgyOorWRbE8dlOAxLUGhDi153cg=
+
+
+
+
+
+
+
+
+
+
+
+ g+nWXc4h/DaKewOmkCJQA0uOR5aVfJrS29T7d3pRR8E=
+
+
+
+
+
+
+
+
+
+
+
+ BuCR9Vd+wZjkr3WpPfc8n8VJX2Z4E5CBLUg7ERdWlyI=
+
+
+
+
+
+
+
+
+
+
+
+ PqGSYEmfTjtZh0kCZwaAteRDsA4e6nEuTd25X/JYt40=
+
+
+
+
+
+
+
+
+
+
+
+ MiySCdKr//iwQYWT7HtvwRp/vYnNya6QQatBGCmzH24=
+
+
+
+
+
+
+
+
+
+
+
+ BJkS9SCFwYbOp+mx/pNwOAu5hVt2Y8jSB7wa4AcZVc0=
+
+
+
+
+
+
+
+
+
+
+
+ oDS7jOw2/Hhg6r7hjrGpfVjjnKNycAdiCEysPK2qkyI=
+
+
+
+
+
+
+
+
+
+
+
+ Mlq1id846jRCoxPlPf7b+0UCKJLqUB+HfVnKOQK2GPM=
+
+
+
+
+
+
+
+
+
+
+
+ sBsA3Tp0iqFEM2+0Ld6gU6s71Z8A43UTRmI4sXA1CRY=
+
+
+
+
+
+
+
+
+
+
+
+ PppMWyeOax1Ka2D6CWhkJEwjFUL47ebcFT+MRznNyBY=
+
+
+
+
+
+
+
+
+
+
+
+ t4Xi0ShrYKcpu4E7U6yQXNb4S5EFRusJOBeff9U4R3s=
+
+
+
+
+
+
+
+
+
+
+
+ IIBVzhy6EYdd8gXI9sVU/NqxevRGxCADg9ULapTktOs=
+
+
+
+
+
+
+
+
+
+
+
+ MnnC7vCAZEdgNV0TyQIuxUPCZnkMrhx+8M3UZwdn9fw=
+
+
+
+
+
+
+
+
+
+
+
+ THgqsOP8jM1MWtCbJSY8B94/YKQ4l8cDzNSu+SP7HdU=
+
+
+
+
+
+
+
+
+
+
+
+ Brwtr52FiQEEmKQX3ygNODbMfR2HklOGYyA+bmRkdAo=
+
+
+
+
+
+
+
+
+
+
+
+ 9oqTr6cUBmyNk9aw6JajAn4cQJGCdQVibVZpUSWBhJs=
+
+
+
+
+
+
+
+
+
+
+
+ w8XSYPGEVjxA37eFSMqRfvZGn7IX98GZz6D0rhAQ0OA=
+
+
+
+
+
+
+
+
+
+ fqNYdpv05Nzre/YSFSiXZTjp6jtD8U4DfipoKXcs3Nw=
+
+
+
+
+
+
+
+
+ T92PpISzKuFvoRCaXDKcSaiMyMOICRIrhQVQN101KX8=
+
+
+
+
+
+
+
+
+ fufpjo176jWXBpkCH5KdtTRYc/AzII912nzsoikWbXQ=
+
+
+
+
+
+
+
+
+ NLnqVMsy3w9jN63XtqsXl3zuDEd+8S6tWSYv9gZKS4Q=
+
+
+
+
+
+
+
+
+ /P0NdEUz8clHUcJM9ImDfBMA4l2BnekLEPsHffEA1UU=
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
\ No newline at end of file
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPMNeu.ico.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPMNeu.ico.deploy
new file mode 100644
index 0000000..b69b0d4
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DPMNeu.ico.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Database1.mdf.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Database1.mdf.deploy
new file mode 100644
index 0000000..b3240fc
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Database1.mdf.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Database1_log.ldf.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Database1_log.ldf.deploy
new file mode 100644
index 0000000..96f648f
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Database1_log.ldf.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.DotNetBar.Charts.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.DotNetBar.Charts.dll.deploy
new file mode 100644
index 0000000..65ebe7f
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.DotNetBar.Charts.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.DotNetBar.Schedule.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.DotNetBar.Schedule.dll.deploy
new file mode 100644
index 0000000..65e9aee
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.DotNetBar.Schedule.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.DotNetBar2.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.DotNetBar2.dll.deploy
new file mode 100644
index 0000000..f054f62
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.DotNetBar2.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.TreeGX.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.TreeGX.dll.deploy
new file mode 100644
index 0000000..c77b967
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/DevComponents.TreeGX.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.Bars.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.Bars.dll.deploy
new file mode 100644
index 0000000..d98c6c3
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.Bars.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.Compat.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.Compat.dll.deploy
new file mode 100644
index 0000000..55c574b
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.Compat.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.DataVisualization.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.DataVisualization.dll.deploy
new file mode 100644
index 0000000..29934a2
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.DataVisualization.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.Editor.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.Editor.dll.deploy
new file mode 100644
index 0000000..e91d746
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.Editor.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.dll.deploy
new file mode 100644
index 0000000..29e51d7
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FastReport.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FlexCel.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FlexCel.dll.deploy
new file mode 100644
index 0000000..8c93d59
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/FlexCel.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.Core.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.Core.dll.deploy
new file mode 100644
index 0000000..ab545bc
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.Core.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.Free.Documents.Controls.WinForms.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.Free.Documents.Controls.WinForms.dll.deploy
new file mode 100644
index 0000000..593b6f1
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.Free.Documents.Controls.WinForms.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.Free.Documents.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.Free.Documents.dll.deploy
new file mode 100644
index 0000000..849edef
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.Free.Documents.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.XtremeFontEngine.4.0.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.XtremeFontEngine.4.0.dll.deploy
new file mode 100644
index 0000000..b483b0f
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.XtremeFontEngine.4.0.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.XtremeImageEngine.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.XtremeImageEngine.dll.deploy
new file mode 100644
index 0000000..a5c2204
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Gnostice.XtremeImageEngine.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Ionic.Zlib.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Ionic.Zlib.dll.deploy
new file mode 100644
index 0000000..0afce7f
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Ionic.Zlib.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/KP-ImageViewerV2.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/KP-ImageViewerV2.dll.deploy
new file mode 100644
index 0000000..9a04794
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/KP-ImageViewerV2.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/MsgReader.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/MsgReader.dll.deploy
new file mode 100644
index 0000000..44ee647
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/MsgReader.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/MySql.Data.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/MySql.Data.dll.deploy
new file mode 100644
index 0000000..669149a
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/MySql.Data.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Newtonsoft.Json.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Newtonsoft.Json.dll.deploy
new file mode 100644
index 0000000..7af125a
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Newtonsoft.Json.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/OpenMcdf.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/OpenMcdf.dll.deploy
new file mode 100644
index 0000000..ae49629
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/OpenMcdf.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/PropertyGridEx.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/PropertyGridEx.dll.deploy
new file mode 100644
index 0000000..2b0dc07
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/PropertyGridEx.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/QRCoder.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/QRCoder.dll.deploy
new file mode 100644
index 0000000..1ba580e
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/QRCoder.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/RtfPipe.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/RtfPipe.dll.deploy
new file mode 100644
index 0000000..8f60855
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/RtfPipe.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/SHUKeyGen.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/SHUKeyGen.dll.deploy
new file mode 100644
index 0000000..44c67c2
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/SHUKeyGen.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Compression.Base.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Compression.Base.dll.deploy
new file mode 100644
index 0000000..c922e74
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Compression.Base.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Core.WinForms.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Core.WinForms.dll.deploy
new file mode 100644
index 0000000..3e87d00
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Core.WinForms.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.DataSource.WinForms.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.DataSource.WinForms.dll.deploy
new file mode 100644
index 0000000..2b87990
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.DataSource.WinForms.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Grid.Base.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Grid.Base.dll.deploy
new file mode 100644
index 0000000..660aaf7
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Grid.Base.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.GridCommon.WinForms.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.GridCommon.WinForms.dll.deploy
new file mode 100644
index 0000000..213385f
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.GridCommon.WinForms.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Pdf.Base.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Pdf.Base.dll.deploy
new file mode 100644
index 0000000..8b4b82f
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Pdf.Base.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.PdfViewer.Windows.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.PdfViewer.Windows.dll.deploy
new file mode 100644
index 0000000..c02a086
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.PdfViewer.Windows.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.SfListView.WinForms.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.SfListView.WinForms.dll.deploy
new file mode 100644
index 0000000..9906fe2
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.SfListView.WinForms.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Shared.Base.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Shared.Base.dll.deploy
new file mode 100644
index 0000000..d81f126
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Shared.Base.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Shared.Windows.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Shared.Windows.dll.deploy
new file mode 100644
index 0000000..7af9357
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Syncfusion.Shared.Windows.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/System.Net.Http.Formatting.DLL.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/System.Net.Http.Formatting.DLL.deploy
new file mode 100644
index 0000000..2dd77d3
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/System.Net.Http.Formatting.DLL.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/XLSLib.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/XLSLib.dll.deploy
new file mode 100644
index 0000000..87352d8
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/XLSLib.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Zahlung/TextFile1.txt.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Zahlung/TextFile1.txt.deploy
new file mode 100644
index 0000000..5c50d38
--- /dev/null
+++ b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/Zahlung/TextFile1.txt.deploy
@@ -0,0 +1,1876 @@
+unit Uzahlung;
+
+interface
+
+uses
+ SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
+ Forms, Dialogs, StdCtrls, Mask, Buttons, ExtCtrls, DB, DBTables,uvars,
+ upsuch,ufsuch,udiverse,Gauges,uberecht, Menus,ukalend,bde32,
+ ComCtrls,lzexpand, ImgList, ToolWin, JvExControls, JvComponent,
+ JvArrowButton,jclstrings;
+
+type
+ TZahlung = class(TForm)
+ lfaktura: TListBox;
+ Label1: TLabel;
+ BitBtn1: TBitBtn;
+ BitBtn2: TBitBtn;
+ nrfaktura: TEdit;
+ Label3: TLabel;
+ Datum: TMaskEdit;
+ Label4: TLabel;
+ Betrag: TMaskEdit;
+ Label5: TLabel;
+ lkonto: TComboBox;
+ Label6: TLabel;
+ vorauszahlung: TCheckBox;
+ Panel1: TPanel;
+ lzahlungen: TListBox;
+ Zahlungen: TLabel;
+ btnstorno: TButton;
+ BitBtn4: TBitBtn;
+ tb_zahlung: TTable;
+ tb_privat: TTable;
+ TB_firma: TTable;
+ tb_faktura: TTable;
+ tb_debitor: TTable;
+ tb_konto: TTable;
+ panelzahlung: TPanel;
+ tb_besrt: TTable;
+ tb_besri: TTable;
+ panelverarbeitung: TPanel;
+ Label2: TLabel;
+ tb_zjournal: TTable;
+ tb_anrede: TTable;
+ MainMenu1: TMainMenu;
+ Datei1: TMenuItem;
+ Verlassen1: TMenuItem;
+ Disketteeinlesen1: TMenuItem;
+ status: TPanel;
+ datumbtn: TBitBtn;
+ q_faktura: TQuery;
+ q_zahlung: TQuery;
+ tb_tmpkonto: TTable;
+ tb_faktura1: TTable;
+ Gauge1: TProgressBar;
+ tb_formular: TTable;
+ tb_formfeld: TTable;
+ tb_anzahlungen: TTable;
+ tb_behandlung: TTable;
+ tb_rgtyp: TTable;
+ tb_privat1: TTable;
+ tb_ansatz: TTable;
+ tb_abrechnungstyp: TTable;
+ RGNR: TButton;
+ Deb: TLabel;
+ Pat: TLabel;
+ OpenDialog1: TOpenDialog;
+ ToolBar1: TToolBar;
+ ToolButton1: TToolButton;
+ ToolButton2: TToolButton;
+ ToolButton3: TToolButton;
+ ToolButton4: TToolButton;
+ ToolButton5: TToolButton;
+ ToolButton6: TToolButton;
+ ToolButton7: TToolButton;
+ ToolButton8: TToolButton;
+ ToolButton9: TToolButton;
+ ToolButton10: TToolButton;
+ ImageList1: TImageList;
+ Panel3: TPanel;
+ N1: TMenuItem;
+ PopupMenu1: TPopupMenu;
+ Rechnungstornieren1: TMenuItem;
+ PopupMenu2: TPopupMenu;
+ N2: TMenuItem;
+ ZL1: TMenuItem;
+ JvArrowButton1: TJvArrowButton;
+ PopupMenu3: TPopupMenu;
+ Vorlagebearbeiten1: TMenuItem;
+ PopupMenu4: TPopupMenu;
+ Quittungsvorlagebearbeiten1: TMenuItem;
+ Quittungdrucken1: TMenuItem;
+ Quitungsvorlagebearbeiten1: TMenuItem;
+ N3: TMenuItem;
+ procedure btnexitClick(Sender: TObject);
+ procedure FormDestroy(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ procedure BitBtn1Click(Sender: TObject);
+ procedure BitBtn2Click(Sender: TObject);
+ procedure printbtnClick(Sender: TObject);
+ procedure lzahlungenClick(Sender: TObject);
+ procedure btnstornoClick(Sender: TObject);
+ procedure lfakturaClick(Sender: TObject);
+ procedure BitBtn4Click(Sender: TObject);
+ procedure Verlassen1Click(Sender: TObject);
+ procedure Disketteeinlesen1Click(Sender: TObject);
+ procedure DatumEnter(Sender: TObject);
+ procedure BetragEnter(Sender: TObject);
+ procedure lkontoEnter(Sender: TObject);
+ procedure vorauszahlungEnter(Sender: TObject);
+ procedure lzahlungenEnter(Sender: TObject);
+ procedure lfakturaEnter(Sender: TObject);
+ procedure btnhelpClick(Sender: TObject);
+ procedure Hilfe1Click(Sender: TObject);
+ procedure BitBtn5Click(Sender: TObject);
+ procedure tb_zahlungAfterPost(DataSet: TDataset);
+ procedure tb_fakturaAfterPost(DataSet: TDataset);
+ procedure tb_debitorAfterPost(DataSet: TDataset);
+ procedure tb_anzahlungenAfterPost(DataSet: TDataSet);
+ procedure RGNRClick(Sender: TObject);
+ procedure FormClose(Sender: TObject; var Action: TCloseAction);
+ procedure ToolButton1Click(Sender: TObject);
+ procedure ToolButton3Click(Sender: TObject);
+ procedure ToolButton5Click(Sender: TObject);
+ procedure ToolButton4Click(Sender: TObject);
+ procedure ToolButton7Click(Sender: TObject);
+ procedure ToolButton8Click(Sender: TObject);
+ procedure ToolButton10Click(Sender: TObject);
+ procedure Rechnungstornieren1Click(Sender: TObject);
+ procedure N2Click(Sender: TObject);
+ procedure ZL1Click(Sender: TObject);
+ procedure JvArrowButton1Click(Sender: TObject);
+ procedure Vorlagebearbeiten1Click(Sender: TObject);
+ procedure Quittungdrucken1Click(Sender: TObject);
+ procedure Quitungsvorlagebearbeiten1Click(Sender: TObject);
+ procedure lzahlungenDblClick(Sender: TObject);
+ private
+ su,su1,su2,su3:double;
+ xdebitor:integer;
+ nlanguage:integer;
+ fname:string;
+ pfad:string;
+ nreccount,papierschacht:integer;
+ filename:array[0..64] of char;
+ typ:string;
+ slangtext:array[0..60] of char;
+ Tagesdatum,tageszeit:string;
+ wt,wt1,sprinter,sport:array[0..64] of char;
+ stopaction:boolean;
+ rc:integer;
+ fakturanummer:integer;
+ erstellungsdatum:double;
+ procedure copyfile(source,dest:string);
+ procedure set_caption;
+ procedure set_caption_Privat;
+ procedure set_caption_Firma;
+ procedure offene_rechnungen;
+ procedure erledigte_zahlungen;
+ function verbucht:boolean;
+ procedure insert_into_zjournal;
+ procedure anzahlung_verbuchen(nrfaktura,nrkonto:integer);
+ function neue_behandlung(patient:integer):integer;
+ procedure meldung_doppelzahlung(nrfaktura:integer);
+ { Private-Deklarationen }
+ public
+ nrdebitor:longint;
+ procedure refresh;
+ { Public-Deklarationen }
+ end;
+
+var
+ Zahlung: TZahlung;
+ design:boolean;
+
+implementation
+
+uses uzahlzuw, Uvz, UReporting, ureports, umenuhandler;
+
+{$R *.DFM}
+
+procedure TZahlung.btnexitClick(Sender: TObject);
+begin
+ close;
+end;
+
+procedure TZahlung.FormDestroy(Sender: TObject);
+begin
+ tb_zjournal.close;
+ tb_zahlung.close;
+ tb_privat.close;
+ tb_firma.close;
+ tb_faktura.close;
+ tb_debitor.close;
+ tb_konto.close;
+ tb_anrede.close;
+ tb_anzahlungen.close;
+ tb_behandlung.close;
+ tb_privat1.close;
+end;
+
+procedure TZahlung.FormCreate(Sender: TObject);
+begin
+ screen.cursor:=crhourglass;
+ loginsert(0,'Zahlungsverarbeitung gestartet');
+ tb_anrede.open;
+ tb_zjournal.open;
+ tb_zahlung.open;
+ tb_privat.open;
+ tb_firma.open;
+ tb_faktura.open;
+ tb_debitor.open;
+ tb_konto.open;
+ lkonto.clear;
+ tb_anzahlungen.open;
+ tb_behandlung.open;
+ tb_privat1.open;
+ screen.cursor:=crdefault;
+end;
+
+procedure tzahlung.refresh;
+begin
+ screen.cursor:=crhourglass;
+ lkonto.clear;
+ with tb_konto do begin
+ first;
+ while not eof do begin
+ lkonto.items.add(fieldbyname('konto').asstring+
+ keyblank+
+ fieldbyname('nrkonto').asstring);
+ next;
+ end;
+ lkonto.itemindex:=0;
+ end;
+ datum.text:=datetostr(now);
+ if nrdebitor <> 0 then begin
+ set_caption;
+ offene_rechnungen;
+ erledigte_zahlungen;
+ end;
+ screen.cursor:=crdefault;
+end;
+
+procedure tzahlung.set_caption;
+begin
+ with tb_privat do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrprivat').asinteger:=nrdebitor;
+ if gotokey then begin
+ s:=' '+tb_privat.fieldbyname('nrprivat').asstring+' - '+
+ scut(tb_privat.fieldbyname('vorname').asstring)+' '+
+ scut(tb_privat.fieldbyname('name').asstring)+', '+
+ scut(tb_privat.fieldbyname('ort').asstring);
+
+ end else begin
+ with tb_firma do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrfirma').asinteger:=nrdebitor;
+ gotokey;
+ s:=' '+fieldbyname('nrfirma').asstring+' '+
+ fieldbyname('name1').asstring+', '+
+ fieldbyname('ort').asstring;
+ end;
+ end;
+ end;
+ panel3.caption:=s;
+ zahlung.caption:=gettext(1006)+s;
+end;
+procedure tzahlung.set_caption_Privat;
+begin
+ with tb_privat do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrprivat').asinteger:=nrdebitor;
+ if gotokey then begin
+ s:=' '+tb_privat.fieldbyname('nrprivat').asstring+' - '+
+ scut(tb_privat.fieldbyname('vorname').asstring)+' '+
+ scut(tb_privat.fieldbyname('name').asstring)+', '+
+ scut(tb_privat.fieldbyname('ort').asstring);
+
+ end;
+ end;
+ panel3.caption:=s;
+ zahlung.caption:=gettext(1006)+s;
+end;
+procedure tzahlung.set_caption_Firma;
+begin
+ with tb_firma do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrfirma').asinteger:=nrdebitor;
+ gotokey;
+ s:=' '+fieldbyname('nrfirma').asstring+' - '+
+ fieldbyname('name1').asstring+', '+
+ fieldbyname('ort').asstring;
+ end;
+ panel3.caption:=s;
+ zahlung.caption:=gettext(1006)+s;
+end;
+
+
+procedure TZahlung.BitBtn1Click(Sender: TObject);
+begin
+ deb.caption:='';
+ pat.caption:='';
+ psuche.showmodal;
+ if searchkey <> 0 then begin
+ nrdebitor:=searchkey;
+ set_caption_Privat;
+ offene_rechnungen;
+ erledigte_zahlungen;
+ end;
+end;
+
+procedure TZahlung.BitBtn2Click(Sender: TObject);
+begin
+ deb.caption:='';
+ pat.caption:='';
+ fsuche.showmodal;
+ if searchkey <> 0 then begin
+ nrdebitor:=searchkey;
+ set_caption_Firma;
+ offene_rechnungen;
+ erledigte_zahlungen;
+ end;
+end;
+procedure TZahlung.printbtnClick(Sender: TObject);
+begin
+ Kalender.datum:=strtodate(datum.text);
+ kalender.showmodal;
+ datum.text:=datetostr(kalender.datum);
+end;
+
+procedure tzahlung.offene_rechnungen;
+var t,bereitsbezahlt:real;
+ s,s1:string;
+begin
+ with tb_faktura do begin
+ indexname:='idxdebitor';
+ setkey;
+ fieldbyname('nrdebitor').asinteger:=nrdebitor;
+ gotokey;
+ lfaktura.clear;
+ while (not eof) and (fieldbyname('nrdebitor').asinteger=nrdebitor) do begin
+ t:=0;
+ if fieldbyname('status').asinteger=0 then begin
+ bereitsbezahlt:=0;
+ with tb_zahlung do begin
+ indexname:='idx_faktura';
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=tb_faktura.fieldbyname('nrfaktura').asinteger;
+ gotokey;
+ while (not eof) and (fieldbyname('nrfaktura').asinteger=tb_faktura.fieldbyname('nrfaktura').asinteger) do begin
+ if fieldbyname('status').asinteger=0 then begin
+ bereitsbezahlt:=bereitsbezahlt+fieldbyname('betrag').asfloat;
+ end;
+ next;
+ end;
+ end;
+ t:=fieldbyname('total').asfloat;
+ if fieldbyname('mahndatum3').asstring<>'' then t:=t+fieldbyname('mahngebuehr3').asfloat else
+ if fieldbyname('mahndatum2').asstring<>'' then t:=t+fieldbyname('mahngebuehr2').asfloat else
+ if fieldbyname('mahndatum1').asstring<>'' then t:=t+fieldbyname('mahngebuehr1').asfloat;
+ t:=t-bereitsbezahlt;
+ str(t:8:2,s);
+ str(bereitsbezahlt:8:2,s1);
+ if t>0.04 then begin
+ lfaktura.items.add(fieldbyname('nrfaktura').asstring+' '+fieldbyname('datum').asstring+' '+s+' '+s1);
+ end;
+ end;
+ next;
+ end;
+ end;
+end;
+
+procedure tzahlung.erledigte_zahlungen;
+var s1:string;
+begin
+ with tb_zahlung do begin
+ indexname:='idx_debitor';
+ setkey;
+ fieldbyname('nrdebitor').asinteger:=nrdebitor;
+ gotokey;
+ lzahlungen.clear;
+ while (not eof) and (fieldbyname('nrdebitor').asinteger=nrdebitor) do begin
+ str(fieldbyname('betrag').asfloat:8:2,s);
+ if fieldbyname('status').asinteger=0 then s:=s+'';
+ if fieldbyname('status').asinteger=9 then s:=s+'/storno';
+ if fieldbyname('status').asinteger=1 then s:=s+'/VZ';
+ with tb_konto do begin
+ setkey;
+ fieldbyname('nrkonto').asinteger:=tb_zahlung.fieldbyname('nrkonto').asinteger;
+ gotokey;
+ s1:=fieldbyname('konto').asstring;
+ while length(s1)<8 do begin
+ s1:=s1+' ';
+ end;
+ if length(s1)>0 then s1:=strleft(s1,8);
+ if tb_zahlung.fieldbyname('nrfaktura').asstring <> '0' then s1:=s1+'/RG:' + tb_zahlung.fieldbyname('nrfaktura').asstring;
+ end;
+ lzahlungen.items.insert(0,fieldbyname('valuta').asstring+' '+s+'/'+s1+keyblank+
+ fieldbyname('nrzahlung').asstring);
+ next;
+ end;
+ end;
+ btnstorno.enabled:=false;
+end;
+
+
+
+procedure TZahlung.lzahlungenClick(Sender: TObject);
+begin
+ if pos('storno',lzahlungen.items[lzahlungen.itemindex])=0 then btnstorno.enabled:=true;
+end;
+
+procedure TZahlung.btnstornoClick(Sender: TObject);
+begin
+ if berechtigungen.berechtigt(78) = false then exit;
+ if meldungyesno(125)=id_yes then begin
+ with tb_zahlung do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrzahlung').asinteger:=key_from_string(lzahlungen.items[lzahlungen.itemindex]);
+ if gotokey then begin
+ if fieldbyname('nrbehandlung').asinteger > 0 then begin
+ meldung(127);
+ exit;
+ end;
+ edit;
+ fieldbyname('status').asinteger:=9;
+ insert_into_zjournal;
+ post;
+ if fieldbyname('vorauszahlung').asboolean=false then begin
+ with tb_debitor do begin
+ indexname:='idx_faktura';
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=tb_zahlung.fieldbyname('nrfaktura').asinteger;
+ if gotokey then begin
+ edit;
+ fieldbyname('betrag').asfloat:=fieldbyname('betrag').asfloat+tb_zahlung.fieldbyname('betrag').asfloat;
+ post;
+ end;
+ end;
+ if tb_debitor.fieldbyname('betrag').asfloat > 0 then begin
+ with tb_faktura do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=tb_zahlung.fieldbyname('nrfaktura').asinteger;
+ if gotokey then begin
+ edit;
+ fieldbyname('status').asinteger:=0;
+ fieldbyname('statusdatum').asfloat:=now;
+ post;
+ end;
+ end;
+ end;
+ end;
+ erledigte_zahlungen;
+ offene_rechnungen;
+ end;
+ end;
+ end;
+end;
+
+procedure TZahlung.lfakturaClick(Sender: TObject);
+var s,s1:string;
+begin
+ vorauszahlung.checked:=false;
+ s:=lfaktura.items[lfaktura.itemindex];
+ nrfaktura.text:=copy(s,1,10);
+ s:=(copy(s,23,8));
+ i:=pos('.',s);
+ if i > 0 then begin
+ s:=copy(s,1,i-1)+'.'+copy(s,i+1,length(s));
+ end;
+ betrag.text:=s;
+ datum.text:=datetostr(now);
+ vorauszahlung.checked:=false;
+ pat.caption:='';
+ deb.caption:='';
+ with tb_faktura do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrfaktura').asstring:=nrfaktura.Text;
+ gotokey;
+ end;
+ with tb_privat do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrprivat').asinteger:=tb_faktura.fieldbyname('nrpatient').asinteger;
+ gotokey;
+ pat.caption:='Patient:'+fieldbyname('nrprivat').asstring+' / '+fieldbyname('vorname').asstring+' '+fieldbyname('name').asstring+', '+fieldbyname('ort').asstring;
+ pat.refresh;
+ end;
+ if tb_faktura.fieldbyname('nrdebitor').asinteger<>tb_faktura.fieldbyname('nrpatient').asinteger then begin
+ with tb_privat do begin
+ setkey;
+ fieldbyname('nrprivat').asinteger:=tb_faktura.fieldbyname('nrdebitor').asinteger;
+ if gotokey then begin
+ deb.caption:='Debitor:'+fieldbyname('nrprivat').asstring+' / '+fieldbyname('vorname').asstring+' '+fieldbyname('name').asstring+', '+fieldbyname('ort').asstring;
+ deb.refresh;
+ end else begin
+ with tb_firma do begin
+ setkey;
+ fieldbyname('nrfirma').asinteger:=tb_faktura.fieldbyname('nrdebitor').asinteger;
+ if gotokey then begin
+ deb.caption:='Debitor:'+fieldbyname('nrfirma').asstring+' / '+fieldbyname('name1').asstring+' '+fieldbyname('ort').asstring;
+ deb.refresh;
+ end;
+ end;
+ end;
+ end;
+ end;
+end;
+
+procedure TZahlung.BitBtn4Click(Sender: TObject);
+var b,b1:double;
+ x:string;
+ i1:integer;
+begin
+ if not berechtigungen.berechtigt(78) then exit;
+ if vorauszahlung.checked then begin
+ with tb_zahlung do begin
+ indexname:='';
+ last;
+ i:=fieldbyname('nrzahlung').asinteger+1;
+ insert;
+ fieldbyname('nrzahlung').asinteger:=i;
+ fieldbyname('mandant').asinteger:=mandant;
+ fieldbyname('valuta').asstring:=datum.text;
+ fieldbyname('nrfaktura').asinteger:=0;
+ fieldbyname('betrag').asfloat:=strtofloat(betrag.text);
+ fieldbyname('nrdebitor').asinteger:=nrdebitor;
+ fieldbyname('nrkonto').asinteger:=key_from_string(lkonto.items[lkonto.itemindex]);
+ fieldbyname('vorauszahlung').asboolean:=vorauszahlung.checked=true;
+ fieldbyname('status').asinteger:=1;
+ fieldbyname('statusdatum').asfloat:=now;
+ post;
+ insert_into_zjournal;
+
+ zahlzuw.nrpatient:=fieldbyname('nrdebitor').asinteger;
+ zahlzuw.betrag:=fieldbyname('betrag').asfloat;
+ zahlzuw.nrzahlung:=fieldbyname('nrzahlung').asinteger;
+ zahlzuw.showmodal;
+ end;
+ erledigte_zahlungen;
+ exit;
+ end;
+ with tb_zahlung do begin
+ s:=copy(lfaktura.items[lfaktura.itemindex],23,8);
+ i:=pos('.',s);
+ if i > 0 then begin
+ s:=copy(s,1,i-1)+'.'+copy(s,i+1,length(s));
+ end;
+ b:=strtofloat(s);
+ b1:=strtofloat(betrag.text);
+ if b1>b then begin
+ meldung(126);
+ exit;
+ end;
+ indexname:='';
+ last;
+ i:=fieldbyname('nrzahlung').asinteger+1;
+ insert;
+ fieldbyname('nrzahlung').asinteger:=i;
+ fieldbyname('mandant').asinteger:=mandant;
+ fieldbyname('valuta').asstring:=datum.text;
+ fieldbyname('nrfaktura').asinteger:=strtoint(nrfaktura.text);
+ fieldbyname('betrag').asfloat:=strtofloat(betrag.text);
+ fieldbyname('nrdebitor').asinteger:=nrdebitor;
+ fieldbyname('nrkonto').asinteger:=key_from_string(lkonto.items[lkonto.itemindex]);
+ fieldbyname('vorauszahlung').asboolean:=vorauszahlung.checked=true;
+ fieldbyname('status').asinteger:=0;
+ fieldbyname('statusdatum').asfloat:=now;
+ post;
+ insert_into_zjournal;
+ if not fieldbyname('vorauszahlung').asboolean then begin
+ with tb_debitor do begin
+ indexname:='idx_faktura';
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=tb_zahlung.fieldbyname('nrfaktura').asinteger;
+ if gotokey then begin
+ edit;
+ fieldbyname('betrag').asfloat:=fieldbyname('betrag').asfloat-tb_zahlung.fieldbyname('betrag').asfloat;
+ post;
+ x:=floattostr(fieldbyname('betrag').asfloat);
+ val(x,b,i1);
+ if fieldbyname('betrag').asfloat=0 then begin
+ with tb_faktura do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=tb_debitor.fieldbyname('nrfaktura').asinteger;
+ if gotokey then begin
+ edit;
+ fieldbyname('status').asinteger:=0;
+ fieldbyname('statusdatum').asfloat:=now;
+ post;
+ end;
+ end;
+ end;
+ end;
+ end;
+ end;
+ nrfaktura.text:='';
+ datum.text:=datetostr(now);
+ betrag.text:='0.00';
+ offene_rechnungen;
+ erledigte_zahlungen;
+ end;
+end;
+
+
+function tzahlung.verbucht:boolean;
+var nrfaktura:longint;
+ nrkonto:longint;
+ storno:boolean;
+ nofaktura,nodebitor,fakturastorniert:boolean;
+ zahlungsstorno:boolean;
+ s:string;
+begin
+ zahlungsstorno:=false;
+ nofaktura:=false;
+ nodebitor:=false;
+ fakturastorniert:=false;
+ storno:=false;
+ nrkonto:=diverse.get_konto;
+ verbucht:=true;
+ nrfaktura:=strtoint(copy(tb_besri.fieldbyname('referenz').asstring,7,10));
+ s:=inttostr(nrfaktura);
+ if copy(s,5,1)='9' then begin
+ anzahlung_verbuchen(nrfaktura,nrkonto);
+ verbucht:=true;
+ exit;
+ end;
+ with tb_faktura do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=nrfaktura;
+ if not gotokey then begin
+ meldung(204);
+ verbucht:=false;
+ storno:=true;
+ nofaktura:=true;
+ end;
+ if fieldbyname('status').asinteger=9 then begin
+ meldung(205);
+ verbucht:=false;
+ storno:=true;
+ fakturastorniert:=false;
+ end;
+ end;
+ //Neu Meldung bei Doppelzahlung
+ with tb_zahlung do begin
+ indexname:='idx_faktura';
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=nrfaktura;
+ if gotokey then begin
+ meldung_doppelzahlung(nrfaktura);
+ end;
+ end;
+ // Ende Meldung
+
+ with tb_debitor do begin
+ indexname:='idx_faktura';
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=nrfaktura;
+ if not gotokey then begin
+ meldung(206);
+ verbucht:=false;
+ nodebitor:=true;
+ storno:=true;
+ end;
+ if fieldbyname('status').asinteger=9 then storno:=true;
+ edit;
+ strpcopy(wt,'');
+ if copy(tb_besri.fieldbyname('transaktion').asstring,3,1)='5' then begin
+ zahlungsstorno:=true;
+ fieldbyname('betrag').asfloat:=fieldbyname('betrag').asfloat+
+ tb_besri.fieldbyname('betrag').asfloat;
+ strpcopy(wt,'J');
+ end else begin
+ fieldbyname('betrag').asfloat:=fieldbyname('betrag').asfloat-
+ tb_besri.fieldbyname('betrag').asfloat;
+ end;
+ if not storno then begin
+ post;
+ str(fieldbyname('betrag').asfloat:8:2,wt);
+{ ll.lldefinefieldext('Differenz',wt,ll_text,'');}
+ end;
+ if not storno then begin
+ with tb_faktura do begin
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=nrfaktura;
+ gotokey;
+ edit;
+ if tb_debitor.fieldbyname('betrag').asfloat=0 then begin
+ tb_faktura.fieldbyname('status').asinteger:=0;
+ tb_faktura.fieldbyname('statusdatum').asfloat:=now;
+ end else begin
+ tb_faktura.fieldbyname('status').asinteger:=0;
+ tb_faktura.fieldbyname('statusdatum').asfloat:=now;
+ end;
+ post;
+ end;
+ end;
+ if not storno then begin
+ with tb_zahlung do begin
+ indexname:='';
+ last;
+ i:=fieldbyname('nrzahlung').asinteger+1;
+ insert;
+ fieldbyname('nrzahlung').asinteger:=i;
+ fieldbyname('nrfaktura').asinteger:=nrfaktura;
+ fieldbyname('betrag').asfloat:=tb_besri.fieldbyname('betrag').asfloat;
+ fieldbyname('vorauszahlung').asboolean:=false;
+ fieldbyname('nrkonto').asinteger:=nrkonto;
+ fieldbyname('mandant').asinteger:=mandant;
+ fieldbyname('nrdebitor').asinteger:=tb_faktura.fieldbyname('nrdebitor').asinteger;
+ fieldbyname('valuta').asfloat:=tb_besri.fieldbyname('datumgutschrift').asfloat;
+ { fieldbyname('nrbehandlung').asinteger:=tb_faktura.fieldbyname('nrbehandlung').asinteger;}
+ fieldbyname('status').asinteger:=0;
+ fieldbyname('statusdatum').asfloat:=now;
+ if zahlungsstorno then begin
+ fieldbyname('betrag').asfloat:=fieldbyname('betrag').asfloat*-1;
+ end;
+ post;
+ insert_into_zjournal;
+ end;
+ end;
+ end;
+ if not storno then verbucht:=true else verbucht:=false;
+ strpcopy(wt,'');
+ strpcopy(wt,copy(tb_besri.fieldbyname('referenz').asstring,7,10));
+{ ll.lldefinefieldext('Fakturanummer',wt,ll_text,'');
+ str(tb_besri.fieldbyname('betrag').asfloat:8:2,wt);
+ ll.lldefinefieldext('Betrag',wt,ll_text,'');
+ str(tb_besri.fieldbyname('taxen_ptt').asfloat:8:2,wt);
+ ll.lldefinefieldext('PTT_Taxen',wt,ll_text,'');
+ if storno then strpcopy(wt,'N') else strpcopy(wt,'J');
+ ll.lldefinefieldext('Verarbeitet',wt,ll_text,'');
+ strpcopy(wt,tb_besri.fieldbyname('transaktion').asstring);
+ ll.lldefinefieldext('Transaktion',wt,ll_text,'');
+ if nodebitor then strpcopy(wt,'') else strpcopy(wt,tb_faktura.fieldbyname('nrdebitor').asstring);
+ ll.lldefinefieldext('Debitorennummer',wt,ll_text,'');
+ strpcopy(wt,tb_besri.fieldbyname('datumgutschrift').asstring);
+ ll.lldefinefieldext('Valuta',wt,ll_text,'');
+ with tb_privat do begin
+ setkey;
+ fieldbyname('nrprivat').asinteger:=tb_faktura.fieldbyname('nrdebitor').asinteger;
+ if gotokey then begin
+ strpcopy(wt,scut1(fieldbyname('vorname').asstring)+'. '+
+ fieldbyname('name').asstring+', '+
+ fieldbyname('ort').asstring);
+ end else begin
+ with tb_firma do begin
+ setkey;
+ fieldbyname('nrfirma').asinteger:=tb_faktura.fieldbyname('nrdebitor').asinteger;
+ if gotokey then begin
+ strpcopy(wt,fieldbyname('name1').asstring+', '+
+ fieldbyname('ort').asstring);
+ end else begin
+ strpcopy(wt,diverse.gettext(210));
+ end;
+ end;
+ end;
+ end;
+ if nodebitor then begin
+ strpcopy(wt,'');
+ strpcopy(wt,'Ref-Nr:' + tb_besri.fieldbyname('Referenz').asstring);
+ end;
+ ll.lldefinefieldext('Debitor',wt,ll_text,'');
+ strpcopy(wt,'');
+ if tb_faktura.fieldbyname('nrdebitor').asinteger<>tb_faktura.fieldbyname('nrpatient').asinteger then begin
+ with tb_privat do begin
+ setkey;
+ fieldbyname('nrprivat').asinteger:=tb_faktura.fieldbyname('nrpatient').asinteger;
+ if gotokey then begin
+ strpcopy(wt,scut1(fieldbyname('vorname').asstring)+'. '+
+ fieldbyname('name').asstring+', '+
+ fieldbyname('ort').asstring);
+ end else begin
+ with tb_firma do begin
+ setkey;
+ fieldbyname('nrfirma').asinteger:=tb_faktura.fieldbyname('nrpatient').asinteger;
+ if gotokey then begin
+ strpcopy(wt,fieldbyname('name1').asstring+', '+
+ fieldbyname('ort').asstring);
+ end else begin
+ strpcopy(wt,diverse.gettext(210));
+ end;
+ end;
+ end;
+ end;
+ end;
+ if nofaktura then strpcopy(wt,diverse.gettext(207));
+ if nodebitor then strpcopy(wt,diverse.gettext(208));
+ if fakturastorniert then strpcopy(wt,diverse.gettext(209));
+ ll.lldefinefieldext('Patient',wt,ll_text,'');
+ str(su:4:2,wt);
+ ll.lldefinefieldext('Summe',wt,ll_text or ll_table_footerfield,'');
+ str(su1:8:2,wt);
+ ll.lldefinefieldext('Summe1',wt,ll_text or ll_table_footerfield,'');
+ str(su2:8:2,wt);
+ ll.lldefinefieldext('Summe2',wt,ll_text or ll_table_footerfield,'');
+ str(su3:8:2,wt);
+ ll.lldefinefieldext('Summe3',wt,ll_text or ll_table_footerfield,'');
+
+ rc:=ll.llprintfields();
+ if rc <> 0 then begin
+ rc:=0;
+ ll.llprint();
+ ll.llprintfields();
+ end;}
+end;
+
+Procedure tzahlung.meldung_doppelzahlung(nrfaktura:integer);
+var s:string;
+begin
+ s:='Eine Zahlung wirD verbucht, wobei bereits eine Zahlung für die Rechnung vorhanden ist.'+chr(13)+chr(13);
+ diverse.getadresse(tb_faktura.fieldbyname('nrdebitor').asinteger,tb_faktura.fieldbyname('nrdebitor').asinteger);
+ s:=s+chr(13)+chr(13)+'Fakturanummer: ' + tb_faktura.fieldbyname('nrfaktura').asstring+chr(13)+chr(13);
+ s:=s+'Debitor:'+chr(13);
+ s:=s+diverse.adresszeile1+chr(13);
+ s:=s+diverse.adresszeile2+chr(13);
+ s:=s+diverse.adresszeile3+chr(13);
+ s:=s+diverse.adresszeile4+chr(13);
+ s:=s+diverse.adresszeile5+chr(13);
+ s:=s+diverse.adresszeile6+chr(13);
+ showmessage(s);
+end;
+
+procedure tzahlung.anzahlung_verbuchen(nrfaktura,nrkonto:integer);
+var patient,i,behandlung:integer;
+begin
+ with tb_anzahlungen do begin
+ setkey;
+ fieldbyname('nranzahlung').asinteger:=nrfaktura;
+ if not gotokey then begin
+ showmessage('Keine Anzahlung für Rechnungsnummer '+inttostr(nrfaktura)+'. Keine Verbuchung dieser Rechnung!');
+ exit;
+ end;
+ edit;
+ fieldbyname('einbezahlt').asfloat:=tb_besri.fieldbyname('betrag').asfloat;
+ post;
+ with tb_behandlung do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrbehandlung').asinteger:=tb_anzahlungen.fieldbyname('nrbehandlung').asinteger;
+ gotokey;
+ patient:=fieldbyname('nrpatient').asinteger;
+ if (fieldbyname('nrgarant').asinteger <> fieldbyname('nrpatient').asinteger) and (fieldbyname('nrgarant').asinteger > 0)
+ then xdebitor:=fieldbyname('nrgarant').asinteger else xdebitor:=fieldbyname('nrpatient').asinteger;
+ indexname:='idx_patient';
+ setkey;
+ fieldbyname('nrpatient').asinteger:=patient;
+ fieldbyname('status').asinteger:=0;
+ gotonearest;
+ behandlung:=0;
+ while (not eof) and (fieldbyname('nrpatient').asinteger=patient) do begin
+ if fieldbyname('status').asinteger=1 then begin
+ if behandlung=0 then behandlung:=fieldbyname('nrbehandlung').asinteger;
+ end;
+ next;
+ end;
+ end;
+ if behandlung=0 then behandlung:=neue_behandlung(patient);
+ with tb_zahlung do begin
+ indexname:='';
+ last;
+ i:=fieldbyname('nrzahlung').asinteger+1;
+ insert;
+ fieldbyname('nrzahlung').asinteger:=i;
+{ fieldbyname('nrfaktura').asinteger:=nrfaktura;}
+ fieldbyname('betrag').asfloat:=tb_besri.fieldbyname('betrag').asfloat;
+ fieldbyname('vorauszahlung').asboolean:=true;
+ fieldbyname('nrkonto').asinteger:=nrkonto;
+ fieldbyname('mandant').asinteger:=mandant;
+ fieldbyname('nrdebitor').asinteger:=xdebitor;
+ fieldbyname('valuta').asfloat:=tb_besri.fieldbyname('datumgutschrift').asfloat;
+ fieldbyname('nrbehandlung').asinteger:=behandlung;
+ fieldbyname('status').asinteger:=1;
+ fieldbyname('statusdatum').asfloat:=now;
+ post;
+ str(fieldbyname('betrag').asfloat:8:2,wt);
+{ ll.lldefinefieldext('Differenz',wt,ll_text,'');
+ strpcopy(wt,'');
+ strpcopy(wt,copy(tb_besri.fieldbyname('referenz').asstring,7,10));
+ ll.lldefinefieldext('Fakturanummer',wt,ll_text,'');
+ str(tb_besri.fieldbyname('betrag').asfloat:8:2,wt);
+ ll.lldefinefieldext('Betrag',wt,ll_text,'');
+ str(tb_besri.fieldbyname('taxen_ptt').asfloat:8:2,wt);
+ ll.lldefinefieldext('PTT_Taxen',wt,ll_text,'');
+ strpcopy(wt,'J');
+ ll.lldefinefieldext('Verarbeitet',wt,ll_text,'');
+ strpcopy(wt,tb_besri.fieldbyname('transaktion').asstring);
+ ll.lldefinefieldext('Transaktion',wt,ll_text,'');
+ strpcopy(wt,inttostr(xdebitor)+' *** ');
+ ll.lldefinefieldext('Debitorennummer',wt,ll_text,'');
+ strpcopy(wt,tb_besri.fieldbyname('datumgutschrift').asstring);
+ ll.lldefinefieldext('Valuta',wt,ll_text,'');}
+ with tb_privat1 do begin
+ setkey;
+ fieldbyname('nrprivat').asinteger:=xdebitor;
+ if gotokey then begin
+ strpcopy(wt,scut1(fieldbyname('vorname').asstring)+'. '+
+ fieldbyname('name').asstring+', '+
+ fieldbyname('ort').asstring);
+ end else begin
+ with tb_firma do begin
+ setkey;
+ fieldbyname('nrfirma').asinteger:=xdebitor;
+ if gotokey then begin
+ strpcopy(wt,fieldbyname('name1').asstring+', '+
+ fieldbyname('ort').asstring);
+ end else begin
+ strpcopy(wt,diverse.gettext(210));
+ end;
+ end;
+ end;
+ end;
+{ ll.lldefinefieldext('Debitor',wt,ll_text,'');}
+ strpcopy(wt,'');
+ if xdebitor <> patient then begin
+ with tb_privat1 do begin
+ setkey;
+ fieldbyname('nrprivat').asinteger:=patient;
+ if gotokey then begin
+ strpcopy(wt,scut1(fieldbyname('vorname').asstring)+'. '+
+ fieldbyname('name').asstring+', '+
+ fieldbyname('ort').asstring);
+ end;
+ end;
+ end;
+{ ll.lldefinefieldext('Patient',wt,ll_text,'');
+ str(su:4:2,wt);
+ ll.lldefinefieldext('Summe',wt,ll_text or ll_table_footerfield,'');
+ str(su1:8:2,wt);
+ ll.lldefinefieldext('Summe1',wt,ll_text or ll_table_footerfield,'');
+ str(su2:8:2,wt);
+ ll.lldefinefieldext('Summe2',wt,ll_text or ll_table_footerfield,'');
+ str(su3:8:2,wt);
+ ll.lldefinefieldext('Summe3',wt,ll_text or ll_table_footerfield,'');
+ rc:=ll.llprintfields();
+ if rc <> 0 then begin
+ rc:=0;
+ ll.llprint();
+ ll.llprintfields();
+ end; }
+ end;
+ end;
+end;
+
+function tzahlung.neue_behandlung(patient:integer):integer;
+var x:integer;
+begin
+ tb_rgtyp.open;
+ tb_ansatz.open;
+ tb_abrechnungstyp.open;
+ tb_behandlung.indexname:='';
+ tb_behandlung.last;
+ x:=tb_behandlung.fieldbyname('nrbehandlung').asinteger+1;
+ tb_rgtyp.setkey;
+ tb_rgtyp.fieldbyname('nrrgtyp').asinteger:=tb_privat.fieldbyname('nrrgtyp').asinteger;
+ tb_abrechnungstyp.setkey;
+ tb_abrechnungstyp.fieldbyname('nrabrechnungstyp').asinteger:=tb_rgtyp.fieldbyname('nrabrechnungstyp').asinteger;
+ tb_ansatz.setkey;
+ tb_ansatz.fieldbyname('nransatz').asinteger:=tb_abrechnungstyp.fieldbyname('nransatz').asinteger;
+ tb_ansatz.gotokey;
+ with tb_privat1 do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrprivat').asinteger:=patient;
+ gotokey;
+ end;
+ with tb_behandlung do begin
+ indexname:='';
+ last;
+ x:=fieldbyname('nrbehandlung').asinteger+1;
+ insert;
+ fieldbyname('andrucken_taxpunkte').asboolean:=tb_rgtyp.fieldbyname('andrucken_taxpunkte').asboolean;
+ fieldbyname('nrbehandlung').asinteger:=x;
+ fieldbyname('behandlungsbeginn').asstring:=datetostr(now);
+ fieldbyname('mandant').asinteger:=mandant;
+ fieldbyname('nrpatient').asinteger:=tb_privat1.fieldbyname('nrprivat').asinteger;
+ fieldbyname('nrbehandler').asinteger:=behandlernummer;
+ fieldbyname('rabatt').asfloat:=tb_privat1.fieldbyname('rabatt').asfloat;
+ fieldbyname('nrabrechnungstyp').asinteger:=tb_rgtyp.fieldbyname('nrabrechnungstyp').asinteger;
+ fieldbyname('nransatz').asinteger:=tb_abrechnungstyp.fieldbyname('nransatz').asinteger;
+ fieldbyname('nrtaxpunkt').asinteger:=tb_abrechnungstyp.fieldbyname('nrtaxpunkt').asinteger;
+ fieldbyname('taxpunktwert').asfloat:=tb_ansatz.fieldbyname('taxpunktwert').asfloat;
+ fieldbyname('nrestyp').asinteger:=tb_privat1.fieldbyname('estyp').asinteger;
+ fieldbyname('nrrgtyp').asinteger:=tb_privat1.fieldbyname('nrrgtyp').asinteger;
+ fieldbyname('nrgarant').asinteger:=-1;
+ if xdebitor<>patient then fieldbyname('nrgarant').asinteger:=xdebitor;
+ fieldbyname('nransprechpartner').asinteger:=-1;
+ fieldbyname('status').asinteger:=1;
+ fieldbyname('statusdatum').asfloat:=int(now);
+ post;
+ end;
+ neue_behandlung:=tb_behandlung.fieldbyname('nrbehandlung').asinteger;
+ tb_rgtyp.close;
+ tb_ansatz.close;
+ tb_abrechnungstyp.close;
+end;
+
+procedure tzahlung.insert_into_zjournal;
+begin
+ with tb_zjournal do begin
+ indexname:='';
+ last;
+ i:=fieldbyname('nreintrag').asinteger+1;
+ insert;
+ fieldbyname('nreintrag').asinteger:=i;
+ fieldbyname('mandant').asinteger:=mandant;
+ fieldbyname('datum').asfloat:=tb_zahlung.fieldbyname('valuta').asfloat;
+ fieldbyname('nrdebitor').asinteger:=tb_zahlung.fieldbyname('nrdebitor').asinteger;
+ fieldbyname('nrfaktura').asinteger:=tb_zahlung.fieldbyname('nrfaktura').asinteger;
+ fieldbyname('betrag').asfloat:=tb_zahlung.fieldbyname('betrag').asfloat;
+ fieldbyname('storno').asstring:='';
+ fieldbyname('vz').asstring:='';
+ if tb_zahlung.fieldbyname('status').asinteger=9 then fieldbyname('storno').asstring:='J';
+ if tb_zahlung.fieldbyname('vorauszahlung').asboolean then fieldbyname('vz').asstring:='J';
+ with tb_konto do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrkonto').asinteger:=tb_zahlung.fieldbyname('nrkonto').asinteger;
+ if gotokey then begin
+ tb_zjournal.fieldbyname('konto').asstring:=fieldbyname('konto').asstring;
+ end else begin
+ tb_zjournal.fieldbyname('konto').asstring:='';
+ end;
+ end;
+ with tb_privat do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrprivat').asinteger:=tb_zahlung.fieldbyname('nrdebitor').asinteger;
+ if gotokey then begin
+ s:=scut1(fieldbyname('vorname').asstring)+'. '+fieldbyname('name').asstring+', '+fieldbyname('ort').asstring;
+ with tb_anrede do begin
+ setkey;
+ fieldbyname('nranrede').asinteger:=tb_privat.fieldbyname('nranrede').asinteger;
+ if gotokey then begin
+ s:=fieldbyname('anrede_d').asstring+' '+s;
+ end;
+ end;
+ end else begin
+ with tb_firma do begin
+ setkey;
+ fieldbyname('nrfirma').asinteger:=tb_zahlung.fieldbyname('nrdebitor').asinteger;
+ if gotokey then begin
+ s:=fieldbyname('name1').asstring+', '+fieldbyname('ort').asstring;
+ end else begin
+ s:='???';
+ end;
+ end;
+ end;
+ end;
+ fieldbyname('debitor').asstring:=s;
+ post;
+ end;
+end;
+
+
+
+procedure TZahlung.Verlassen1Click(Sender: TObject);
+begin
+ close;
+end;
+
+procedure TZahlung.Disketteeinlesen1Click(Sender: TObject);
+begin
+ToolButton7Click(Sender);
+end;
+
+procedure TZahlung.DatumEnter(Sender: TObject);
+begin
+ status.caption:=getstatustext(300);
+end;
+
+procedure TZahlung.BetragEnter(Sender: TObject);
+begin
+ status.caption:=getstatustext(301);
+end;
+
+procedure TZahlung.lkontoEnter(Sender: TObject);
+begin
+ status.caption:=getstatustext(302);
+end;
+
+procedure TZahlung.vorauszahlungEnter(Sender: TObject);
+begin
+ status.caption:=getstatustext(303);
+end;
+
+procedure TZahlung.lzahlungenEnter(Sender: TObject);
+begin
+ status.caption:=getstatustext(304);
+end;
+
+procedure TZahlung.lfakturaEnter(Sender: TObject);
+begin
+ status.caption:=getstatustext(305);
+end;
+
+procedure TZahlung.btnhelpClick(Sender: TObject);
+begin
+ application.helpcontext(164);
+
+end;
+
+procedure TZahlung.Hilfe1Click(Sender: TObject);
+begin
+ application.helpcontext(164);
+end;
+
+procedure TZahlung.BitBtn5Click(Sender: TObject);
+var saldo:double;
+ wt:array[0..70] of char;
+ xx:integer;
+begin
+ screen.cursor:=crhourglass;
+ saldo:=0;
+ tb_faktura1.open;
+ with q_faktura do begin
+ close;
+ sql.clear;
+ sql.add('SELECT Nrfaktura, Nrdebitor, Datum, Total, Status, Statusdatum');
+ sql.add('FROM ":dpm:FAKTURA.DB"');
+ sql.add('WHERE');
+ sql.add('(Nrdebitor = '+inttostr(nrdebitor)+')');
+ sql.add('ORDER BY Datum,statusdatum,status');
+ open;
+ end;
+ with q_zahlung do begin
+ close;
+ sql.clear;
+ sql.add('SELECT Nrzahlung, Nrdebitor, Betrag, Valuta, Status, Statusdatum, nrbehandlung,vorauszahlung');
+ sql.add('FROM ":dpm:ZAHLUNG.DB"');
+ sql.add('WHERE');
+ sql.add('(Nrdebitor = '+inttostr(nrdebitor)+')');
+ sql.add('ORDER BY valuta, statusdatum, status');
+ open;
+ end;
+ with tb_tmpkonto do begin
+ open;
+ first;
+ while not eof do begin
+ delete;
+ end;
+ end;
+ with q_faktura do begin
+ first;
+ xx:=1;
+ while not eof do begin
+ tb_tmpkonto.insert;
+ if fieldbyname('status').asinteger=9 then begin
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('statusdatum').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('text').asstring:='Rechnung Nr:'+fieldbyname('nrfaktura').asstring;
+ saldo:=saldo+fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ tb_tmpkonto.post;
+ tb_tmpkonto.insert;
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('statusdatum').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=0;
+ tb_tmpkonto.fieldbyname('text').asstring:='Storno Rechnung Nr:'+fieldbyname('nrfaktura').asstring;
+ saldo:=saldo-fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ end else begin
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('statusdatum').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('text').asstring:='Rechnung Nr:'+fieldbyname('nrfaktura').asstring;
+ saldo:=saldo+fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ end;
+ tb_tmpkonto.post;
+ next;
+ end;
+ end;
+ with q_zahlung do begin
+ first;
+ while not eof do begin
+ if (fieldbyname('vorauszahlung').asboolean) and (fieldbyname('nrbehandlung').asstring <>'') and
+ (fieldbyname('status').asinteger <>9) then begin
+ with tb_faktura1 do begin
+ indexname:='idxbehandlung';
+ setkey;
+ fieldbyname('nrbehandlung').asinteger:=q_zahlung.fieldbyname('nrbehandlung').asinteger;
+ fieldbyname('status').asinteger:=0;
+ if gotokey then begin
+ tb_tmpkonto.insert;
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('datum').asfloat;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=q_zahlung.fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('text').asstring:='VZ Abzug bei Rechnung Nr: '+
+ tb_faktura1.fieldbyname('nrfaktura').asstring;
+ saldo:=saldo+q_zahlung.fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.post;
+ end;
+ end;
+ end;
+ tb_tmpkonto.insert;
+ if fieldbyname('status').asinteger<>9 then begin
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('valuta').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=0;
+ tb_tmpkonto.fieldbyname('text').asstring:='Ihre Zahlung';
+ saldo:=saldo-fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ end else begin
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('valuta').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=0;
+ tb_tmpkonto.fieldbyname('text').asstring:='Ihre Zahlung';
+ saldo:=saldo+fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ tb_tmpkonto.post;
+ tb_tmpkonto.insert;
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('statusdatum').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('text').asstring:='Storno Zahlung';
+ saldo:=saldo+fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ end;
+ tb_tmpkonto.insert;
+ next;
+ end;
+ end;
+ s:=diverse.getformulartext(1001,'D',mandant);
+ strpcopy(wt,s);
+{ ll.lldefinevariableext('Absender_Z1',wt,ll_text,'');
+ s:=diverse.getformulartext(1002,'D',mandant);
+ strpcopy(wt,s);
+ ll.lldefinevariableext('Absender_Z2',wt,ll_text,'');
+ s:=diverse.getformulartext(1003,'D',mandant);
+ strpcopy(wt,s);
+ ll.lldefinevariableext('Absender_Z3',wt,ll_text,'');
+ s:=diverse.getformulartext(1004,'D',mandant);
+ strpcopy(wt,s);
+ ll.lldefinevariableext('Absender_Z4',wt,ll_text,'');
+ diverse.getadresse(nrdebitor,0);
+ strpcopy(wt,diverse.adresszeile1);
+ ll.lldefinevariableext('Debitor_Z1',wt,ll_text,'');
+ strpcopy(wt,diverse.adresszeile2);
+ ll.lldefinevariableext('Debitor_Z2',wt,ll_text,'');
+ strpcopy(wt,diverse.adresszeile3);
+ ll.lldefinevariableext('Debitor_Z3',wt,ll_text,'');
+ strpcopy(wt,diverse.adresszeile4);
+ ll.lldefinevariableext('Debitor_Z4',wt,ll_text,'');
+ strpcopy(wt,diverse.adresszeile5);
+ ll.lldefinevariableext('Debitor_Z5',wt,ll_text,'');
+ strpcopy(wt,diverse.adresszeile6);
+ ll.lldefinevariableext('Debitor_Z6',wt,ll_text,'');
+ ll.llprint();
+ saldo:=0;
+ with tb_tmpkonto do begin
+ indexname:='idx_datum';
+ first;
+ repeat
+ strpcopy(wt,fieldbyname('datum').asstring);
+ ll.lldefinefieldext('Datum',wt,ll_text,'');
+ strpcopy(wt,fieldbyname('text').asstring);
+ ll.lldefinefieldext('Text',wt,ll_text,'');
+ str(fieldbyname('soll').asfloat:8:2,wt);
+ ll.lldefinefieldext('Belastung',wt,ll_text,'');
+ str(fieldbyname('haben').asfloat:8:2,wt);
+ ll.lldefinefieldext('Gutschrift',wt,ll_text,'');
+ saldo:=saldo+fieldbyname('soll').asfloat-fieldbyname('haben').asfloat;
+ str(saldo:8:2,wt);
+ ll.lldefinefieldext('Saldo',wt,ll_text,'');
+ rc:=ll.llprintfields();
+ if rc=ll_wrn_repeat_data then begin
+ ll.llprint();
+ rc:=0;
+ ll.llprintfields();
+ end;
+ next;
+ until (eof);
+ str(saldo:8:2,wt);
+ ll.lldefinefieldext('Saldo1',wt,ll_text,'');
+ end_print(true);
+ end;
+ screen.cursor:=crdefault;
+ tb_tmpkonto.close;
+ q_faktura.close;
+ q_zahlung.close;
+ tb_faktura1.close; }
+end;
+
+procedure TZahlung.tb_zahlungAfterPost(DataSet: TDataset);
+begin
+ flushdbbuffer(dataset as ttable);
+end;
+
+procedure TZahlung.tb_fakturaAfterPost(DataSet: TDataset);
+begin
+ flushdbbuffer(dataset as ttable);
+end;
+
+procedure TZahlung.tb_debitorAfterPost(DataSet: TDataset);
+begin
+ flushdbbuffer(dataset as ttable);
+end;
+procedure tzahlung.copyfile(source,dest:string);
+var x1,x2:integer;
+ tof1,tof2:tofstruct;
+begin
+ strpcopy(wt,source);
+ strpcopy(wt1,dest);
+ x1:=lzopenfile(wt,tof1,of_read);
+ x2:=lzopenfile(wt1,tof2,of_create);
+ lzcopy(x1,x2);
+ lzclose(x1);
+ lzclose(x2);
+end;
+
+procedure TZahlung.tb_anzahlungenAfterPost(DataSet: TDataSet);
+begin
+ flushdbbuffer(dataset as ttable);
+end;
+
+procedure TZahlung.RGNRClick(Sender: TObject);
+var s:string;
+ i:longint;
+ e:integer;
+begin
+ deb.caption:='';
+ pat.caption:='';
+ s:=inputbox('Rechnungsnummer','Rechnungsnummer eingeben','');
+ val(s,i,e);
+ if e <> 0 then begin
+ showmessage('Ungültige Rechnungsnummer eingegeben');
+ exit;
+ end;
+ with tb_faktura do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrfaktura').asinteger:=i;
+ if not gotokey then begin
+ showmessage('Rechnung mit der Nummer: '+s+' ist nicht vorhanden');
+ exit;
+ end;
+ nrdebitor:=fieldbyname('nrdebitor').asinteger;
+ set_caption;
+ offene_rechnungen;
+ erledigte_zahlungen;
+ for i:=0 to lzahlungen.items.count-1 do begin
+ if pos('RG:'+s,lzahlungen.items[i])>0 then lzahlungen.itemindex:=i;
+ end;
+ end;
+end;
+
+procedure TZahlung.FormClose(Sender: TObject; var Action: TCloseAction);
+begin
+ action:=caFree;
+
+end;
+
+procedure TZahlung.ToolButton1Click(Sender: TObject);
+begin
+ close;
+end;
+
+procedure TZahlung.ToolButton3Click(Sender: TObject);
+begin
+ bitbtn1click(sender);
+end;
+
+procedure TZahlung.ToolButton5Click(Sender: TObject);
+begin
+RGNRClick(Sender);
+end;
+
+procedure TZahlung.ToolButton4Click(Sender: TObject);
+begin
+bitbtn2click(sender);
+end;
+
+procedure TZahlung.ToolButton7Click(Sender: TObject);
+var fname:string;
+ lw:string;
+ f:system.text;
+ s1:string;
+ i,ii:integer;
+ jetzt:double;
+ az:integer;
+ xx:double;
+ tr:treports;
+begin
+ if not berechtigungen.berechtigt(78) then exit;
+ if not berechtigungen.berechtigt(25) then exit;
+ su:=0;
+ su1:=0;
+ su2:=0;
+ su3:=0;
+{[ lw:=diverse.get_diskettenlaufwerk;
+' s:=diverse.gettext(203)+lw;
+' if messagedlg(s,mtconfirmation,[mbok,mbabort],0)<>id_ok then begin
+' exit;
+' end;
+' fname:=diverse.get_besrfilename;}
+ lw:=diverse.diskettenlaufwerk;
+ if lw='Diskfile' then begin
+ if opendialog1.execute then fname:=opendialog1.FileName else exit;
+ end else begin
+ s:='Bitte die Diskette mit den Bankzahlungen in '+lw+' einlegen.';
+ if messagedlg(s,mtconfirmation,[mbok,mbabort],0)<>id_ok then begin
+ exit;
+ end;
+ fname:=diverse.get_besrfilename;
+ if not fileexists(lw+fname) then begin
+ showmessage('Datei mit Bankzahlungen nicht gefunden! Funktion wird abgebrochen!');
+ exit;
+ end;
+ fname:=lw+'\'+fname;
+ end;
+ if not fileexists(fname) then begin
+ meldung(200);
+ exit;
+ end;
+ tb_besrt.open;
+ tb_besri.open;
+ system.assign(f,fname);
+ system.reset(f);
+ gauge1.min:=0;
+ gauge1.position:=0;
+ repeat
+ system.readln(f,s);
+ if (copy(s,1,3)='999') or (copy(s,1,3)='995')then begin
+ with tb_besrt do begin
+ setkey;
+ s1:=copy(s,64,2);
+ val(s1,ii,i);
+ if ii < 80 then s1:='20'+s1 else s1:='19'+s1;
+ s1:=copy(s,68,2)+'.'+copy(s,66,2)+'.'+s1;
+ xx:=strtodate(s1);
+ xx:=int(xx);
+ fieldbyname('erstellungsdatum').asfloat:=xx;
+ erstellungsdatum:=xx;
+ if gotokey then begin
+ meldung(3000);
+ close;
+ exit;
+ end;
+ insert;
+ fieldbyname('transaktion').asstring:=copy(s,1,3);
+ fieldbyname('datum').asfloat:=erstellungsdatum;
+ fieldbyname('svbnummer').asstring:=copy(s,4,9);
+ fieldbyname('sortierung').asstring:=copy(s,13,27);
+ s1:=copy(s,40,10)+'.'+copy(s,50,2);
+ fieldbyname('betrag').asfloat:=strtofloat(s1);
+ s1:=copy(s,52,12)+'.0';
+ fieldbyname('anzahltransaktionen').asfloat:=strtofloat(s1);
+ s1:=copy(s,64,2);
+ val(s1,ii,i);
+ if ii < 80 then s1:='20'+s1 else s1:='19'+s1;
+ s1:=copy(s,68,2)+'.'+copy(s,66,2)+'.'+s1;
+ xx:=strtodate(s1);
+ xx:=int(xx);
+ fieldbyname('erstellungsdatum').asfloat:=xx;
+ s1:=copy(s,70,7)+'.'+copy(s,77,2);
+ fieldbyname('Taxen_PTT').asfloat:=strtofloat(s1);
+ s1:=copy(s,79,7)+'.'+copy(s,86,2);
+ fieldbyname('Taxen_Manuell').asfloat:=strtofloat(s1);
+ su3:=fieldbyname('taxen_manuell').asfloat;
+ fieldbyname('reserve').asstring:=copy(s,88,13);
+ post;
+ end;
+ end;
+ until system.eof(f);
+ system.close(f);
+ az:=0;
+ system.assign(f,fname);
+ system.reset(f);
+ jetzt:=now;
+ gauge1.max:=tb_besrt.fieldbyname('anzahltransaktionen').asinteger;
+ panelverarbeitung.visible:=true;
+ refresh;
+ repeat
+ system.readln(f,s);
+ if length(s) > 0 then begin
+ if (copy(s,1,3)<>'999') and (copy(s,1,3)<>'995') then
+ with tb_besri do begin
+ insert;
+ fieldbyname('datum').asfloat:=erstellungsdatum;
+ fieldbyname('transaktion').asstring:=copy(s,1,3);
+ fieldbyname('svbnr').asstring:=copy(s,4,9);
+ fieldbyname('referenz').asstring:=copy(s,13,27);
+ s1:=copy(s,40,8)+'.'+copy(s,48,2);
+ fieldbyname('betrag').asfloat:=strtofloat(s1);
+ fieldbyname('aufgabereferenz').asstring:=copy(s,50,9);
+ if length(s) > 60 then begin
+ s1:=copy(s,60,2);
+ val(s1,ii,i);
+ if ii < 80 then s1:='20'+s1 else s1:='19'+s1;
+ s1:=copy(s,64,2)+'.'+copy(s,62,2)+'.'+s1;
+ xx:=strtodate(s1);
+ xx:=int(xx);
+ fieldbyname('datumaufgabe').asfloat:=xx;
+ s1:=copy(s,66,2);
+ val(s1,ii,i);
+ if ii < 80 then s1:='20'+s1 else s1:='19'+s1;
+ s1:=copy(s,70,2)+'.'+copy(s,68,2)+'.'+s1;
+ xx:=strtodate(s1);
+ fieldbyname('datumverarbeitung').asfloat:=xx;
+ s1:=copy(s,72,2);
+ val(s1,ii,i);
+ if ii < 80 then s1:='20'+s1 else s1:='19'+s1;
+ s1:=copy(s,76,2)+'.'+copy(s,74,2)+'.'+s1;
+ xx:=strtodate(s1);
+ fieldbyname('datumgutschrift').asfloat:=xx;
+ fieldbyname('recherche').asstring:=copy(s,78,9);
+ fieldbyname('rejectcode').asstring:=copy(s,87,1);
+ fieldbyname('reserve').asstring:=copy(s,88,9);
+ s1:=copy(s,97,2)+'.'+copy(s,99,2);
+ fieldbyname('taxen_ptt').asfloat:=strtofloat(s1);
+ fieldbyname('verbucht').asboolean:=false;
+ su:=su+1;
+ su1:=su1+fieldbyname('betrag').asfloat;
+ su2:=su2+fieldbyname('taxen_ptt').asfloat;
+ end else begin
+ s1:=copy(s,60,2);
+ val(s1,ii,i);
+ fieldbyname('datumaufgabe').asfloat:=0;
+ fieldbyname('datumverarbeitung').asfloat:=0;
+ fieldbyname('datumgutschrift').asfloat:=int(now);
+ fieldbyname('recherche').asstring:='';
+ fieldbyname('rejectcode').asstring:='';
+ fieldbyname('reserve').asstring:='';
+ s1:=copy(s,97,2)+'.'+copy(s,99,2);
+ fieldbyname('taxen_ptt').asfloat:=0;
+ fieldbyname('verbucht').asboolean:=false;
+ su:=su+1;
+ su1:=su1+fieldbyname('betrag').asfloat;
+ su2:=su2+fieldbyname('taxen_ptt').asfloat;
+ end;
+
+ if verbucht then begin;
+ fieldbyname('verbucht').asboolean:=true;
+ post;
+ end else begin
+ fieldbyname('verbucht').asboolean:=false;
+ post;
+ end;
+ end;
+ end;
+ gauge1.position:=gauge1.position+1;
+ until eof(f);
+ system.close(f);
+ tb_besrt.close;
+ tb_besri.close;
+ panelverarbeitung.visible:=false;
+ refresh;
+ tr:=treports.create(application);
+ tr.jdatum:=datetostr(erstellungsdatum);
+ tr.sel_esrjournal(false);
+ tr.Destroy;
+end;
+
+procedure TZahlung.ToolButton8Click(Sender: TObject);
+var saldo:double;
+ wt:array[0..70] of char;
+ xx:integer;
+begin
+ screen.cursor:=crhourglass;
+ saldo:=0;
+ tb_faktura1.open;
+ with q_faktura do begin
+ close;
+ sql.clear;
+ sql.add('SELECT Nrfaktura, Nrdebitor, Datum, Total, Status, Statusdatum, mahndatum1, mahngebuehr1, mahndatum2, mahngebuehr2, mahndatum3, mahngebuehr3');
+ sql.add('FROM ":dpm:FAKTURA.DB"');
+ sql.add('WHERE');
+ sql.add('(Nrdebitor = '+inttostr(nrdebitor)+')');
+ sql.add('ORDER BY Datum desc,statusdatum,status');
+ open;
+ end;
+ with q_zahlung do begin
+ close;
+ sql.clear;
+ sql.add('SELECT Nrzahlung, nrfaktura, Nrdebitor, Betrag, Valuta, Status, Statusdatum, nrbehandlung,vorauszahlung');
+ sql.add('FROM ":dpm:ZAHLUNG.DB"');
+ sql.add('WHERE');
+ sql.add('(Nrdebitor = '+inttostr(nrdebitor)+')');
+ sql.add('ORDER BY valuta, statusdatum, status');
+ open;
+ end;
+ with tb_tmpkonto do begin
+ open;
+ first;
+ while not eof do begin
+ delete;
+ end;
+ end;
+ with q_faktura do begin
+ first;
+ xx:=1;
+ while not eof do begin
+ tb_tmpkonto.insert;
+ if fieldbyname('status').asinteger=9 then begin
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('datum').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('text').asstring:='Rechnung Nr:'+fieldbyname('nrfaktura').asstring;
+ saldo:=saldo+fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ tb_tmpkonto.post;
+ tb_tmpkonto.insert;
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('datum').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=0;
+ tb_tmpkonto.fieldbyname('text').asstring:='Storno Rechnung Nr:'+fieldbyname('nrfaktura').asstring;
+ saldo:=saldo-fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ end else begin
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('datum').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('text').asstring:='Rechnung Nr:'+fieldbyname('nrfaktura').asstring;
+ saldo:=saldo+fieldbyname('total').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ end;
+ tb_tmpkonto.post;
+ // Mahnungen bei Kontoauszug berücksichtigen
+ if q_faktura.fieldbyname('Mahndatum1').asstring<>'' then begin
+ tb_tmpkonto.insert;
+ tb_tmpkonto.fieldbyname('datum').asfloat:=q_faktura.fieldbyname('mahndatum1').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=q_faktura.fieldbyname('mahngebuehr1').asfloat;
+ tb_tmpkonto.fieldbyname('text').asstring:='1. Mahnung Rechnung Nr:'+fieldbyname('nrfaktura').asstring;
+ saldo:=saldo+q_faktura.fieldbyname('mahngebuehr1').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ tb_tmpkonto.post;
+ end;
+ // Mahnungen bei Kontoauszug berücksichtigen
+ if q_faktura.fieldbyname('Mahndatum2').asstring<>'' then begin
+ tb_tmpkonto.insert;
+ tb_tmpkonto.fieldbyname('datum').asfloat:=q_faktura.fieldbyname('mahndatum2').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=q_faktura.fieldbyname('mahngebuehr2').asfloat;
+ tb_tmpkonto.fieldbyname('text').asstring:='2. Mahnung Rechnung Nr:'+fieldbyname('nrfaktura').asstring;
+ saldo:=saldo+q_faktura.fieldbyname('mahngebuehr2').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ tb_tmpkonto.post;
+ end;
+ if q_faktura.fieldbyname('Mahndatum3').asstring<>'' then begin
+ tb_tmpkonto.insert;
+ tb_tmpkonto.fieldbyname('datum').asfloat:=q_faktura.fieldbyname('mahndatum3').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=q_faktura.fieldbyname('mahngebuehr3').asfloat;
+ tb_tmpkonto.fieldbyname('text').asstring:='3. Mahnung Rechnung Nr:'+fieldbyname('nrfaktura').asstring;
+ saldo:=saldo+q_faktura.fieldbyname('mahngebuehr3').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ tb_tmpkonto.post;
+ end;
+ next;
+ end;
+ end;
+ with q_zahlung do begin
+ first;
+ while not eof do begin
+ if (fieldbyname('vorauszahlung').asboolean) and (fieldbyname('nrbehandlung').asstring <>'') and
+ (fieldbyname('status').asinteger <>9) then begin
+ with tb_faktura1 do begin
+ indexname:='idxbehandlung';
+ setkey;
+ fieldbyname('nrbehandlung').asinteger:=q_zahlung.fieldbyname('nrbehandlung').asinteger;
+ fieldbyname('status').asinteger:=0;
+ if gotokey then begin
+ tb_tmpkonto.insert;
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('datum').asfloat;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=q_zahlung.fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('text').asstring:='VZ Abzug bei Rechnung Nr: '+
+ tb_faktura1.fieldbyname('nrfaktura').asstring;
+ saldo:=saldo+q_zahlung.fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ tb_tmpkonto.post;
+ end;
+ end;
+ end;
+ tb_tmpkonto.insert;
+ if fieldbyname('status').asinteger<>9 then begin
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('valuta').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=0;
+ tb_tmpkonto.fieldbyname('text').asstring:='Ihre Zahlung zu Rechnung-Nr ' + fieldbyname('nrfaktura').asstring ;
+ saldo:=saldo-fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ end else begin
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('valuta').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=0;
+ tb_tmpkonto.fieldbyname('text').asstring:='Ihre Zahlung zu Rechnung-Nr ' + fieldbyname('nrfaktura').asstring ;
+ saldo:=saldo+fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ tb_tmpkonto.post;
+ tb_tmpkonto.insert;
+ tb_tmpkonto.fieldbyname('datum').asfloat:=fieldbyname('statusdatum').asfloat;
+ tb_tmpkonto.fieldbyname('haben').asfloat:=0;
+ tb_tmpkonto.fieldbyname('soll').asfloat:=fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('text').asstring:='Storno Zahlung';
+ saldo:=saldo+fieldbyname('betrag').asfloat;
+ tb_tmpkonto.fieldbyname('saldo').asfloat:=saldo;
+ tb_tmpkonto.fieldbyname('nreintrag').asinteger:=xx;
+ inc(xx);
+ end;
+ tb_tmpkonto.post;
+ next;
+ end;
+ end;
+
+ screen.cursor:=crdefault;
+ tb_tmpkonto.close;
+ q_faktura.close;
+ q_zahlung.close;
+ tb_faktura1.close;
+ reporting.kontoauszug(nrdebitor,design);
+end;
+
+procedure TZahlung.ToolButton10Click(Sender: TObject);
+begin
+diverse.showhelp_topic('Zahlungen');
+end;
+
+procedure TZahlung.Rechnungstornieren1Click(Sender: TObject);
+var s:string;
+begin
+ if not berechtigungen.berechtigt(78) then exit;
+ if MessageDlg('Die markierte Rechnung wirklich stornieren ' + char(13) + chr(13) + '(Achtung: zugehörende Behandlungen werden nicht berücksichtigt!)',
+ mtConfirmation, [mbYes, mbNo], 0) = mryes then begin
+
+ s:=lfaktura.items[lfaktura.itemindex];
+ s:=copy(s,1,10);
+ tb_faktura.indexname:='';
+ tb_faktura.setkey;
+ tb_faktura.fieldbyname('nrfaktura').asstring:=s;
+ if tb_faktura.GotoKey then begin
+ tb_faktura.edit;
+ tb_faktura.FieldByName('Status').asinteger:=9;
+ tb_faktura.fieldbyname('statusdatum').asfloat:=now;
+ tb_faktura.post;
+ end;
+ tb_debitor.indexname:='idx_faktura';
+ tb_debitor.setkey;
+ tb_debitor.fieldbyname('nrfaktura').asstring:=s;
+ if tb_debitor.gotokey then begin
+ tb_debitor.edit;
+ tb_debitor.fieldbyname('statusdatum').asfloat:=now;
+ tb_debitor.fieldbyname('status').asinteger:=9;
+ tb_debitor.post;
+ end;
+ offene_rechnungen;
+ erledigte_zahlungen;
+end;
+
+end;
+
+procedure TZahlung.N2Click(Sender: TObject);
+begin
+ with tb_zahlung do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrzahlung').asinteger:=key_from_string(lzahlungen.items[lzahlungen.itemindex]);
+ if gotokey then begin
+ if fieldbyname('status').asinteger=9 then begin
+ edit;
+ fieldbyname('status').asinteger:=0;
+ post;
+ end;
+ end;
+ end;
+end;
+
+procedure TZahlung.ZL1Click(Sender: TObject);
+begin
+ if not berechtigungen.berechtigt(78) then exit;
+ with tb_zahlung do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrzahlung').asinteger:=key_from_string(lzahlungen.items[lzahlungen.itemindex]);
+ if gotokey then begin
+ if fieldbyname('status').asinteger=9 then begin
+ delete;
+ end;
+ end;
+ end;
+end;
+
+procedure TZahlung.JvArrowButton1Click(Sender: TObject);
+begin
+ design:=false;
+ ToolButton8Click(sender);
+end;
+
+procedure TZahlung.Vorlagebearbeiten1Click(Sender: TObject);
+begin
+design:=true;
+ToolButton8Click(sender);
+end;
+
+procedure TZahlung.Quittungdrucken1Click(Sender: TObject);
+begin
+ reporting.vzquittung(nrdebitor,key_from_string(lzahlungen.items[lzahlungen.itemindex]),false);
+end;
+
+procedure TZahlung.Quitungsvorlagebearbeiten1Click(Sender: TObject);
+begin
+ reporting.vzquittung(nrdebitor,key_from_string(lzahlungen.items[lzahlungen.itemindex]),true);
+end;
+
+procedure TZahlung.lzahlungenDblClick(Sender: TObject);
+var nrbehandlung:string;
+begin
+ with tb_zahlung do begin
+ indexname:='';
+ setkey;
+ fieldbyname('nrzahlung').asinteger:=key_from_string(lzahlungen.items[lzahlungen.itemindex]);
+ if gotokey then begin
+ with tb_faktura do begin
+ tb_faktura.indexname:='';
+ tb_faktura.setkey;
+ tb_faktura.fieldbyname('nrfaktura').asstring:=tb_zahlung.fieldbyname('nrfaktura').asstring;
+ if tb_faktura.gotokey then begin
+ nrbehandlung:=tb_faktura.fieldbyname('nrbehandlung').asstring;
+ if not berechtigungen.berechtigt(5) then exit;
+ tb_behandlung.indexname:='';
+ tb_behandlung.SetKey;
+ tb_behandlung.FieldByName('nrbehandlung').asstring:=nrbehandlung;
+ if tb_behandlung.gotokey then begin
+ menuhandler.showbehandlung_rg(tb_behandlung.fieldbyname('nrpatient').asinteger,false,tb_behandlung.fieldbyname('nrbehandlung').asinteger)
+ end;
+ end;
+ end;
+ end;
+ end;
+
+end;
+
+end.
\ No newline at end of file
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/de/MsgReader.resources.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/de/MsgReader.resources.dll.deploy
new file mode 100644
index 0000000..7aa2d7f
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/de/MsgReader.resources.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/es/MsgReader.resources.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/es/MsgReader.resources.dll.deploy
new file mode 100644
index 0000000..b2d9271
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/es/MsgReader.resources.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/fr/MsgReader.resources.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/fr/MsgReader.resources.dll.deploy
new file mode 100644
index 0000000..f359280
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/fr/MsgReader.resources.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/nl/MsgReader.resources.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/nl/MsgReader.resources.dll.deploy
new file mode 100644
index 0000000..82aa6e7
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/nl/MsgReader.resources.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/pt/MsgReader.resources.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/pt/MsgReader.resources.dll.deploy
new file mode 100644
index 0000000..898d83c
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/pt/MsgReader.resources.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/zh-CN/MsgReader.resources.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/zh-CN/MsgReader.resources.dll.deploy
new file mode 100644
index 0000000..d88f4eb
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/zh-CN/MsgReader.resources.dll.deploy differ
diff --git a/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/zh-TW/MsgReader.resources.dll.deploy b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/zh-TW/MsgReader.resources.dll.deploy
new file mode 100644
index 0000000..85a5d50
Binary files /dev/null and b/DPM2016/Publish/Application Files/DPM2018_1_0_0_1/zh-TW/MsgReader.resources.dll.deploy differ
diff --git a/DPM2016/Publish/DPM2018.application b/DPM2016/Publish/DPM2018.application
index 0ab0001..92eb976 100644
--- a/DPM2016/Publish/DPM2018.application
+++ b/DPM2016/Publish/DPM2018.application
@@ -1,21 +1,21 @@
-
+
-
-
+
+
- vhiKO+DyhiFBF/OaFnx2DMdaKXrDveXjxFuQhq3TQUQ=
+ MbaUsmx85XZTbqEWV2g048N0Y4Ohm6xJIeczLfr+m5o=
-UKc0o/NyWEU+TvXRRiAuH4UOFA5idBwj5Ql/gw1gUkg=HD9xvYGXDGvpx7Ir4TQNlWU3XG5HwEEel3c2OEK/1T//jwxdNZbhbuCcoCAjoSUQ3hlAHULEuh/KkRM7wPMRNrLSn3+KNyqXJI+7OC4d9+jg3cDpzMhkP/nldWEmL++aVa3uMpp+vHfKhbl9KfyrxIqYJ2mys0UjpNDHzMFIxkM=o9KE6BuC9Sxmr9v5RLO3oRtBidw2LwnvR5gVOmpqaHBFW0FQRx7TULme6XlBj1Vg851injb3KQiUYr2H8n3sco2/UMuH7AMVRkqONLU6d9AKyxnTNa0aA/LIuC8sc5n9xZcMiSEoleOKTwZzypvfICXQ0n2PIYv5sx3CmKs6sWE=AQABCN=shu00\Stefan Hutter lokala9MQohlDXYw7apXCMomV5FNiK0PgDfYjk1vGEt4RCMA=mqDoLum4E4PnJBilnVb1s28Q09f5gr2gradDxpu8WO9PdvdARZ5uE8xrHaAuc014AqF1kscNnS1RFl7ibOB3RrvA7Tr0DNaSsTW2EHyWP7pKdxXe8rTyuCs3DzV59HJas4jqE7FsECicKdzHtw+PGze6np6ZPQyP0kHt1X7LHSs=o9KE6BuC9Sxmr9v5RLO3oRtBidw2LwnvR5gVOmpqaHBFW0FQRx7TULme6XlBj1Vg851injb3KQiUYr2H8n3sco2/UMuH7AMVRkqONLU6d9AKyxnTNa0aA/LIuC8sc5n9xZcMiSEoleOKTwZzypvfICXQ0n2PIYv5sx3CmKs6sWE=AQABMIIB/TCCAWagAwIBAgIQRMUgHQogeZdGGNL0NLNeYDANBgkqhkiG9w0BAQsFADA9MTswOQYDVQQDHjIAcwBoAHUAMAAwAFwAUwB0AGUAZgBhAG4AIABIAHUAdAB0AGUAcgAgAGwAbwBrAGEAbDAeFw0xODA5MDgwNzE1MjFaFw0xOTA5MDgxMzE1MjFaMD0xOzA5BgNVBAMeMgBzAGgAdQAwADAAXABTAHQAZQBmAGEAbgAgAEgAdQB0AHQAZQByACAAbABvAGsAYQBsMIGfMA0GCSqGSIb3DQEBAQUAA4GNADCBiQKBgQCj0oToG4L1LGav2/lEs7ehG0GJ3DYvCe9HmBU6ampocEVbQVBHHtNQuZ7peUGPVWDznWKeNvcpCJRivYfyfexyjb9Qy4fsAxVGSo40tTp30ArLGdM1rRoD8si4Lyxzmf3FlwyJISiV44pPBnPKm98gJdDSfY8hi/mzHcKYqzqxYQIDAQABMA0GCSqGSIb3DQEBCwUAA4GBAELj5QwGgFBFsgIJErecuoUzMAkUrBIWv0VpNY3DZhy4ssgkVQ1zbwHQ9PnWiKabyd5nXjD7W7rtcUWX1lBRiDR46CaU6E4Ceu1jue9j4yoNiwXN7X79awLHAyqh5dm/9NDfdr9nYeJQKa+GzfpfcegFEstlek3XKCRHdO6Ggeum
\ No newline at end of file
+
\ No newline at end of file
diff --git a/DPM2016/Publish/setup.exe b/DPM2016/Publish/setup.exe
index a30887b..275f975 100644
Binary files a/DPM2016/Publish/setup.exe and b/DPM2016/Publish/setup.exe differ
diff --git a/DPM2016/Utils/Crypto.vb b/DPM2016/Utils/Crypto.vb
index e6f4afa..1795304 100644
--- a/DPM2016/Utils/Crypto.vb
+++ b/DPM2016/Utils/Crypto.vb
@@ -1,4 +1,4 @@
-Module Crypto
+Module Crypto
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
Dim i As Integer, c As Integer
Dim strBuff As String
diff --git a/DPM2016/Utils/Globals.vb b/DPM2016/Utils/Globals.vb
index 3993681..cc1555d 100644
--- a/DPM2016/Utils/Globals.vb
+++ b/DPM2016/Utils/Globals.vb
@@ -7,8 +7,8 @@ Module Globals
Public Seriennummer As String = "1.001.2018"
Public Productname As String = "Dental Practice Manager"
Public Lizenzgeber As String = "Stefan Hutter Unternehmensberatung, 8808 Pfäffikon"
- Public Version As String = "1.3.0.1214"
- Public Versionastaum As String = "29.12.2020"
+ Public Version As String = "1.3.0.2214"
+ Public Versionastaum As String = "10.09.2021"
Public RGCollection As New Collection
Public Spaltendaten As New DataTable
diff --git a/DPM2016/Zahlung/camt_054_001_04.vb b/DPM2016/Zahlung/camt_054_001_04.vb
index 00f5b3a..d77429a 100644
--- a/DPM2016/Zahlung/camt_054_001_04.vb
+++ b/DPM2016/Zahlung/camt_054_001_04.vb
@@ -1,9042 +1,9042 @@
-'------------------------------------------------------------------------------
-'
-' Dieser Code wurde von einem Tool generiert.
-' Laufzeitversion:4.0.30319.42000
-'
-' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
-' der Code erneut generiert wird.
-'
-'------------------------------------------------------------------------------
-
-Option Strict Off
-Option Explicit On
-
-Imports System.Xml.Serialization
-
-'
-'Dieser Quellcode wurde automatisch generiert von xsd, Version=4.6.81.0.
-'
-
-'''
- _
-Partial Public Class Document
-
- Private bkToCstmrDbtCdtNtfctnField As BankToCustomerDebitCreditNotificationV04
-
- '''
- Public Property BkToCstmrDbtCdtNtfctn() As BankToCustomerDebitCreditNotificationV04
- Get
- Return Me.bkToCstmrDbtCdtNtfctnField
- End Get
- Set
- Me.bkToCstmrDbtCdtNtfctnField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class BankToCustomerDebitCreditNotificationV04
-
- Private grpHdrField As GroupHeader58
-
- Private ntfctnField() As AccountNotification7
-
- Private splmtryDataField() As SupplementaryData1
-
- '''
- Public Property GrpHdr() As GroupHeader58
- Get
- Return Me.grpHdrField
- End Get
- Set
- Me.grpHdrField = value
- End Set
- End Property
-
- '''
- _
- Public Property Ntfctn() As AccountNotification7()
- Get
- Return Me.ntfctnField
- End Get
- Set
- Me.ntfctnField = value
- End Set
- End Property
-
- '''
- _
- Public Property SplmtryData() As SupplementaryData1()
- Get
- Return Me.splmtryDataField
- End Get
- Set
- Me.splmtryDataField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class GroupHeader58
-
- Private msgIdField As String
-
- Private creDtTmField As Date
-
- Private msgRcptField As PartyIdentification43
-
- Private msgPgntnField As Pagination
-
- Private orgnlBizQryField As OriginalBusinessQuery1
-
- Private addtlInfField As String
-
- '''
- Public Property MsgId() As String
- Get
- Return Me.msgIdField
- End Get
- Set
- Me.msgIdField = value
- End Set
- End Property
-
- '''
- Public Property CreDtTm() As Date
- Get
- Return Me.creDtTmField
- End Get
- Set
- Me.creDtTmField = value
- End Set
- End Property
-
- '''
- Public Property MsgRcpt() As PartyIdentification43
- Get
- Return Me.msgRcptField
- End Get
- Set
- Me.msgRcptField = value
- End Set
- End Property
-
- '''
- Public Property MsgPgntn() As Pagination
- Get
- Return Me.msgPgntnField
- End Get
- Set
- Me.msgPgntnField = value
- End Set
- End Property
-
- '''
- Public Property OrgnlBizQry() As OriginalBusinessQuery1
- Get
- Return Me.orgnlBizQryField
- End Get
- Set
- Me.orgnlBizQryField = value
- End Set
- End Property
-
- '''
- Public Property AddtlInf() As String
- Get
- Return Me.addtlInfField
- End Get
- Set
- Me.addtlInfField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class PartyIdentification43
-
- Private nmField As String
-
- Private pstlAdrField As PostalAddress6
-
- Private idField As Party11Choice
-
- Private ctryOfResField As String
-
- Private ctctDtlsField As ContactDetails2
-
- '''
- Public Property Nm() As String
- Get
- Return Me.nmField
- End Get
- Set
- Me.nmField = value
- End Set
- End Property
-
- '''
- Public Property PstlAdr() As PostalAddress6
- Get
- Return Me.pstlAdrField
- End Get
- Set
- Me.pstlAdrField = value
- End Set
- End Property
-
- '''
- Public Property Id() As Party11Choice
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property CtryOfRes() As String
- Get
- Return Me.ctryOfResField
- End Get
- Set
- Me.ctryOfResField = value
- End Set
- End Property
-
- '''
- Public Property CtctDtls() As ContactDetails2
- Get
- Return Me.ctctDtlsField
- End Get
- Set
- Me.ctctDtlsField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class PostalAddress6
-
- Private adrTpField As AddressType2Code
-
- Private adrTpFieldSpecified As Boolean
-
- Private deptField As String
-
- Private subDeptField As String
-
- Private strtNmField As String
-
- Private bldgNbField As String
-
- Private pstCdField As String
-
- Private twnNmField As String
-
- Private ctrySubDvsnField As String
-
- Private ctryField As String
-
- Private adrLineField() As String
-
- '''
- Public Property AdrTp() As AddressType2Code
- Get
- Return Me.adrTpField
- End Get
- Set
- Me.adrTpField = value
- End Set
- End Property
-
- '''
- _
- Public Property AdrTpSpecified() As Boolean
- Get
- Return Me.adrTpFieldSpecified
- End Get
- Set
- Me.adrTpFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property Dept() As String
- Get
- Return Me.deptField
- End Get
- Set
- Me.deptField = value
- End Set
- End Property
-
- '''
- Public Property SubDept() As String
- Get
- Return Me.subDeptField
- End Get
- Set
- Me.subDeptField = value
- End Set
- End Property
-
- '''
- Public Property StrtNm() As String
- Get
- Return Me.strtNmField
- End Get
- Set
- Me.strtNmField = value
- End Set
- End Property
-
- '''
- Public Property BldgNb() As String
- Get
- Return Me.bldgNbField
- End Get
- Set
- Me.bldgNbField = value
- End Set
- End Property
-
- '''
- Public Property PstCd() As String
- Get
- Return Me.pstCdField
- End Get
- Set
- Me.pstCdField = value
- End Set
- End Property
-
- '''
- Public Property TwnNm() As String
- Get
- Return Me.twnNmField
- End Get
- Set
- Me.twnNmField = value
- End Set
- End Property
-
- '''
- Public Property CtrySubDvsn() As String
- Get
- Return Me.ctrySubDvsnField
- End Get
- Set
- Me.ctrySubDvsnField = value
- End Set
- End Property
-
- '''
- Public Property Ctry() As String
- Get
- Return Me.ctryField
- End Get
- Set
- Me.ctryField = value
- End Set
- End Property
-
- '''
- _
- Public Property AdrLine() As String()
- Get
- Return Me.adrLineField
- End Get
- Set
- Me.adrLineField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum AddressType2Code
-
- '''
- ADDR
-
- '''
- PBOX
-
- '''
- HOME
-
- '''
- BIZZ
-
- '''
- MLTO
-
- '''
- DLVY
-End Enum
-
-'''
- _
-Partial Public Class SupplementaryData1
-
- Private plcAndNmField As String
-
- Private envlpField As System.Xml.XmlElement
-
- '''
- Public Property PlcAndNm() As String
- Get
- Return Me.plcAndNmField
- End Get
- Set
- Me.plcAndNmField = value
- End Set
- End Property
-
- '''
- Public Property Envlp() As System.Xml.XmlElement
- Get
- Return Me.envlpField
- End Get
- Set
- Me.envlpField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class Product2
-
- Private pdctCdField As String
-
- Private unitOfMeasrField As UnitOfMeasure1Code
-
- Private unitOfMeasrFieldSpecified As Boolean
-
- Private pdctQtyField As Decimal
-
- Private pdctQtyFieldSpecified As Boolean
-
- Private unitPricField As Decimal
-
- Private unitPricFieldSpecified As Boolean
-
- Private pdctAmtField As Decimal
-
- Private pdctAmtFieldSpecified As Boolean
-
- Private taxTpField As String
-
- Private addtlPdctInfField As String
-
- '''
- Public Property PdctCd() As String
- Get
- Return Me.pdctCdField
- End Get
- Set
- Me.pdctCdField = value
- End Set
- End Property
-
- '''
- Public Property UnitOfMeasr() As UnitOfMeasure1Code
- Get
- Return Me.unitOfMeasrField
- End Get
- Set
- Me.unitOfMeasrField = value
- End Set
- End Property
-
- '''
- _
- Public Property UnitOfMeasrSpecified() As Boolean
- Get
- Return Me.unitOfMeasrFieldSpecified
- End Get
- Set
- Me.unitOfMeasrFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property PdctQty() As Decimal
- Get
- Return Me.pdctQtyField
- End Get
- Set
- Me.pdctQtyField = value
- End Set
- End Property
-
- '''
- _
- Public Property PdctQtySpecified() As Boolean
- Get
- Return Me.pdctQtyFieldSpecified
- End Get
- Set
- Me.pdctQtyFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property UnitPric() As Decimal
- Get
- Return Me.unitPricField
- End Get
- Set
- Me.unitPricField = value
- End Set
- End Property
-
- '''
- _
- Public Property UnitPricSpecified() As Boolean
- Get
- Return Me.unitPricFieldSpecified
- End Get
- Set
- Me.unitPricFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property PdctAmt() As Decimal
- Get
- Return Me.pdctAmtField
- End Get
- Set
- Me.pdctAmtField = value
- End Set
- End Property
-
- '''
- _
- Public Property PdctAmtSpecified() As Boolean
- Get
- Return Me.pdctAmtFieldSpecified
- End Get
- Set
- Me.pdctAmtFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property TaxTp() As String
- Get
- Return Me.taxTpField
- End Get
- Set
- Me.taxTpField = value
- End Set
- End Property
-
- '''
- Public Property AddtlPdctInf() As String
- Get
- Return Me.addtlPdctInfField
- End Get
- Set
- Me.addtlPdctInfField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum UnitOfMeasure1Code
-
- '''
- PIEC
-
- '''
- TONS
-
- '''
- FOOT
-
- '''
- GBGA
-
- '''
- USGA
-
- '''
- GRAM
-
- '''
- INCH
-
- '''
- KILO
-
- '''
- PUND
-
- '''
- METR
-
- '''
- CMET
-
- '''
- MMET
-
- '''
- LITR
-
- '''
- CELI
-
- '''
- MILI
-
- '''
- GBOU
-
- '''
- USOU
-
- '''
- GBQA
-
- '''
- USQA
-
- '''
- GBPI
-
- '''
- USPI
-
- '''
- MILE
-
- '''
- KMET
-
- '''
- YARD
-
- '''
- SQKI
-
- '''
- HECT
-
- '''
- ARES
-
- '''
- SMET
-
- '''
- SCMT
-
- '''
- SMIL
-
- '''
- SQMI
-
- '''
- SQYA
-
- '''
- SQFO
-
- '''
- SQIN
-
- '''
- ACRE
-End Enum
-
-'''
- _
-Partial Public Class TransactionIdentifier1
-
- Private txDtTmField As Date
-
- Private txRefField As String
-
- '''
- Public Property TxDtTm() As Date
- Get
- Return Me.txDtTmField
- End Get
- Set
- Me.txDtTmField = value
- End Set
- End Property
-
- '''
- Public Property TxRef() As String
- Get
- Return Me.txRefField
- End Get
- Set
- Me.txRefField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CardIndividualTransaction1
-
- Private addtlSvcField As CardPaymentServiceType2Code
-
- Private addtlSvcFieldSpecified As Boolean
-
- Private txCtgyField As String
-
- Private saleRcncltnIdField As String
-
- Private saleRefNbField As String
-
- Private seqNbField As String
-
- Private txIdField As TransactionIdentifier1
-
- Private pdctField As Product2
-
- Private vldtnDtField As Date
-
- Private vldtnDtFieldSpecified As Boolean
-
- Private vldtnSeqNbField As String
-
- '''
- Public Property AddtlSvc() As CardPaymentServiceType2Code
- Get
- Return Me.addtlSvcField
- End Get
- Set
- Me.addtlSvcField = value
- End Set
- End Property
-
- '''
- _
- Public Property AddtlSvcSpecified() As Boolean
- Get
- Return Me.addtlSvcFieldSpecified
- End Get
- Set
- Me.addtlSvcFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property TxCtgy() As String
- Get
- Return Me.txCtgyField
- End Get
- Set
- Me.txCtgyField = value
- End Set
- End Property
-
- '''
- Public Property SaleRcncltnId() As String
- Get
- Return Me.saleRcncltnIdField
- End Get
- Set
- Me.saleRcncltnIdField = value
- End Set
- End Property
-
- '''
- Public Property SaleRefNb() As String
- Get
- Return Me.saleRefNbField
- End Get
- Set
- Me.saleRefNbField = value
- End Set
- End Property
-
- '''
- Public Property SeqNb() As String
- Get
- Return Me.seqNbField
- End Get
- Set
- Me.seqNbField = value
- End Set
- End Property
-
- '''
- Public Property TxId() As TransactionIdentifier1
- Get
- Return Me.txIdField
- End Get
- Set
- Me.txIdField = value
- End Set
- End Property
-
- '''
- Public Property Pdct() As Product2
- Get
- Return Me.pdctField
- End Get
- Set
- Me.pdctField = value
- End Set
- End Property
-
- '''
- _
- Public Property VldtnDt() As Date
- Get
- Return Me.vldtnDtField
- End Get
- Set
- Me.vldtnDtField = value
- End Set
- End Property
-
- '''
- _
- Public Property VldtnDtSpecified() As Boolean
- Get
- Return Me.vldtnDtFieldSpecified
- End Get
- Set
- Me.vldtnDtFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property VldtnSeqNb() As String
- Get
- Return Me.vldtnSeqNbField
- End Get
- Set
- Me.vldtnSeqNbField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum CardPaymentServiceType2Code
-
- '''
- AGGR
-
- '''
- DCCV
-
- '''
- GRTT
-
- '''
- INSP
-
- '''
- LOYT
-
- '''
- NRES
-
- '''
- PUCO
-
- '''
- RECP
-
- '''
- SOAF
-
- '''
- UNAF
-
- '''
- VCAU
-End Enum
-
-'''
- _
-Partial Public Class CardTransaction1Choice
-
- Private itemField As Object
-
- '''
- _
- Public Property Item() As Object
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CardAggregated1
-
- Private addtlSvcField As CardPaymentServiceType2Code
-
- Private addtlSvcFieldSpecified As Boolean
-
- Private txCtgyField As String
-
- Private saleRcncltnIdField As String
-
- Private seqNbRgField As CardSequenceNumberRange1
-
- Private txDtRgField As DateOrDateTimePeriodChoice
-
- '''
- Public Property AddtlSvc() As CardPaymentServiceType2Code
- Get
- Return Me.addtlSvcField
- End Get
- Set
- Me.addtlSvcField = value
- End Set
- End Property
-
- '''
- _
- Public Property AddtlSvcSpecified() As Boolean
- Get
- Return Me.addtlSvcFieldSpecified
- End Get
- Set
- Me.addtlSvcFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property TxCtgy() As String
- Get
- Return Me.txCtgyField
- End Get
- Set
- Me.txCtgyField = value
- End Set
- End Property
-
- '''
- Public Property SaleRcncltnId() As String
- Get
- Return Me.saleRcncltnIdField
- End Get
- Set
- Me.saleRcncltnIdField = value
- End Set
- End Property
-
- '''
- Public Property SeqNbRg() As CardSequenceNumberRange1
- Get
- Return Me.seqNbRgField
- End Get
- Set
- Me.seqNbRgField = value
- End Set
- End Property
-
- '''
- Public Property TxDtRg() As DateOrDateTimePeriodChoice
- Get
- Return Me.txDtRgField
- End Get
- Set
- Me.txDtRgField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CardSequenceNumberRange1
-
- Private frstTxField As String
-
- Private lastTxField As String
-
- '''
- Public Property FrstTx() As String
- Get
- Return Me.frstTxField
- End Get
- Set
- Me.frstTxField = value
- End Set
- End Property
-
- '''
- Public Property LastTx() As String
- Get
- Return Me.lastTxField
- End Get
- Set
- Me.lastTxField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class DateOrDateTimePeriodChoice
-
- Private itemField As Object
-
- '''
- _
- Public Property Item() As Object
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class DatePeriodDetails
-
- Private frDtField As Date
-
- Private toDtField As Date
-
- '''
- _
- Public Property FrDt() As Date
- Get
- Return Me.frDtField
- End Get
- Set
- Me.frDtField = value
- End Set
- End Property
-
- '''
- _
- Public Property ToDt() As Date
- Get
- Return Me.toDtField
- End Get
- Set
- Me.toDtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class DateTimePeriodDetails
-
- Private frDtTmField As Date
-
- Private toDtTmField As Date
-
- '''
- Public Property FrDtTm() As Date
- Get
- Return Me.frDtTmField
- End Get
- Set
- Me.frDtTmField = value
- End Set
- End Property
-
- '''
- Public Property ToDtTm() As Date
- Get
- Return Me.toDtTmField
- End Get
- Set
- Me.toDtTmField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CardTransaction1
-
- Private cardField As PaymentCard4
-
- Private pOIField As PointOfInteraction1
-
- Private txField As CardTransaction1Choice
-
- '''
- Public Property Card() As PaymentCard4
- Get
- Return Me.cardField
- End Get
- Set
- Me.cardField = value
- End Set
- End Property
-
- '''
- Public Property POI() As PointOfInteraction1
- Get
- Return Me.pOIField
- End Get
- Set
- Me.pOIField = value
- End Set
- End Property
-
- '''
- Public Property Tx() As CardTransaction1Choice
- Get
- Return Me.txField
- End Get
- Set
- Me.txField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class PaymentCard4
-
- Private plainCardDataField As PlainCardData1
-
- Private cardCtryCdField As String
-
- Private cardBrndField As GenericIdentification1
-
- Private addtlCardDataField As String
-
- '''
- Public Property PlainCardData() As PlainCardData1
- Get
- Return Me.plainCardDataField
- End Get
- Set
- Me.plainCardDataField = value
- End Set
- End Property
-
- '''
- Public Property CardCtryCd() As String
- Get
- Return Me.cardCtryCdField
- End Get
- Set
- Me.cardCtryCdField = value
- End Set
- End Property
-
- '''
- Public Property CardBrnd() As GenericIdentification1
- Get
- Return Me.cardBrndField
- End Get
- Set
- Me.cardBrndField = value
- End Set
- End Property
-
- '''
- Public Property AddtlCardData() As String
- Get
- Return Me.addtlCardDataField
- End Get
- Set
- Me.addtlCardDataField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class PlainCardData1
-
- Private pANField As String
-
- Private cardSeqNbField As String
-
- Private fctvDtField As String
-
- Private xpryDtField As String
-
- Private svcCdField As String
-
- Private trckDataField() As TrackData1
-
- Private cardSctyCdField As CardSecurityInformation1
-
- '''
- Public Property PAN() As String
- Get
- Return Me.pANField
- End Get
- Set
- Me.pANField = value
- End Set
- End Property
-
- '''
- Public Property CardSeqNb() As String
- Get
- Return Me.cardSeqNbField
- End Get
- Set
- Me.cardSeqNbField = value
- End Set
- End Property
-
- '''
- _
- Public Property FctvDt() As String
- Get
- Return Me.fctvDtField
- End Get
- Set
- Me.fctvDtField = value
- End Set
- End Property
-
- '''
- _
- Public Property XpryDt() As String
- Get
- Return Me.xpryDtField
- End Get
- Set
- Me.xpryDtField = value
- End Set
- End Property
-
- '''
- Public Property SvcCd() As String
- Get
- Return Me.svcCdField
- End Get
- Set
- Me.svcCdField = value
- End Set
- End Property
-
- '''
- _
- Public Property TrckData() As TrackData1()
- Get
- Return Me.trckDataField
- End Get
- Set
- Me.trckDataField = value
- End Set
- End Property
-
- '''
- Public Property CardSctyCd() As CardSecurityInformation1
- Get
- Return Me.cardSctyCdField
- End Get
- Set
- Me.cardSctyCdField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TrackData1
-
- Private trckNbField As String
-
- Private trckValField As String
-
- '''
- Public Property TrckNb() As String
- Get
- Return Me.trckNbField
- End Get
- Set
- Me.trckNbField = value
- End Set
- End Property
-
- '''
- Public Property TrckVal() As String
- Get
- Return Me.trckValField
- End Get
- Set
- Me.trckValField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CardSecurityInformation1
-
- Private cSCMgmtField As CSCManagement1Code
-
- Private cSCValField As String
-
- '''
- Public Property CSCMgmt() As CSCManagement1Code
- Get
- Return Me.cSCMgmtField
- End Get
- Set
- Me.cSCMgmtField = value
- End Set
- End Property
-
- '''
- Public Property CSCVal() As String
- Get
- Return Me.cSCValField
- End Get
- Set
- Me.cSCValField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum CSCManagement1Code
-
- '''
- PRST
-
- '''
- BYPS
-
- '''
- UNRD
-
- '''
- NCSC
-End Enum
-
-'''
- _
-Partial Public Class GenericIdentification1
-
- Private idField As String
-
- Private schmeNmField As String
-
- Private issrField As String
-
- '''
- Public Property Id() As String
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property SchmeNm() As String
- Get
- Return Me.schmeNmField
- End Get
- Set
- Me.schmeNmField = value
- End Set
- End Property
-
- '''
- Public Property Issr() As String
- Get
- Return Me.issrField
- End Get
- Set
- Me.issrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class PointOfInteraction1
-
- Private idField As GenericIdentification32
-
- Private sysNmField As String
-
- Private grpIdField As String
-
- Private cpbltiesField As PointOfInteractionCapabilities1
-
- Private cmpntField() As PointOfInteractionComponent1
-
- '''
- Public Property Id() As GenericIdentification32
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property SysNm() As String
- Get
- Return Me.sysNmField
- End Get
- Set
- Me.sysNmField = value
- End Set
- End Property
-
- '''
- Public Property GrpId() As String
- Get
- Return Me.grpIdField
- End Get
- Set
- Me.grpIdField = value
- End Set
- End Property
-
- '''
- Public Property Cpblties() As PointOfInteractionCapabilities1
- Get
- Return Me.cpbltiesField
- End Get
- Set
- Me.cpbltiesField = value
- End Set
- End Property
-
- '''
- _
- Public Property Cmpnt() As PointOfInteractionComponent1()
- Get
- Return Me.cmpntField
- End Get
- Set
- Me.cmpntField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class GenericIdentification32
-
- Private idField As String
-
- Private tpField As PartyType3Code
-
- Private tpFieldSpecified As Boolean
-
- Private issrField As PartyType4Code
-
- Private issrFieldSpecified As Boolean
-
- Private shrtNmField As String
-
- '''
- Public Property Id() As String
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property Tp() As PartyType3Code
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- _
- Public Property TpSpecified() As Boolean
- Get
- Return Me.tpFieldSpecified
- End Get
- Set
- Me.tpFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property Issr() As PartyType4Code
- Get
- Return Me.issrField
- End Get
- Set
- Me.issrField = value
- End Set
- End Property
-
- '''
- _
- Public Property IssrSpecified() As Boolean
- Get
- Return Me.issrFieldSpecified
- End Get
- Set
- Me.issrFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property ShrtNm() As String
- Get
- Return Me.shrtNmField
- End Get
- Set
- Me.shrtNmField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum PartyType3Code
-
- '''
- OPOI
-
- '''
- MERC
-
- '''
- ACCP
-
- '''
- ITAG
-
- '''
- ACQR
-
- '''
- CISS
-
- '''
- DLIS
-End Enum
-
-'''
- _
-Public Enum PartyType4Code
-
- '''
- MERC
-
- '''
- ACCP
-
- '''
- ITAG
-
- '''
- ACQR
-
- '''
- CISS
-
- '''
- TAXH
-End Enum
-
-'''
- _
-Partial Public Class PointOfInteractionCapabilities1
-
- Private cardRdngCpbltiesField() As CardDataReading1Code
-
- Private crdhldrVrfctnCpbltiesField() As CardholderVerificationCapability1Code
-
- Private onLineCpbltiesField As OnLineCapability1Code
-
- Private onLineCpbltiesFieldSpecified As Boolean
-
- Private dispCpbltiesField() As DisplayCapabilities1
-
- Private prtLineWidthField As String
-
- '''
- _
- Public Property CardRdngCpblties() As CardDataReading1Code()
- Get
- Return Me.cardRdngCpbltiesField
- End Get
- Set
- Me.cardRdngCpbltiesField = value
- End Set
- End Property
-
- '''
- _
- Public Property CrdhldrVrfctnCpblties() As CardholderVerificationCapability1Code()
- Get
- Return Me.crdhldrVrfctnCpbltiesField
- End Get
- Set
- Me.crdhldrVrfctnCpbltiesField = value
- End Set
- End Property
-
- '''
- Public Property OnLineCpblties() As OnLineCapability1Code
- Get
- Return Me.onLineCpbltiesField
- End Get
- Set
- Me.onLineCpbltiesField = value
- End Set
- End Property
-
- '''
- _
- Public Property OnLineCpbltiesSpecified() As Boolean
- Get
- Return Me.onLineCpbltiesFieldSpecified
- End Get
- Set
- Me.onLineCpbltiesFieldSpecified = value
- End Set
- End Property
-
- '''
- _
- Public Property DispCpblties() As DisplayCapabilities1()
- Get
- Return Me.dispCpbltiesField
- End Get
- Set
- Me.dispCpbltiesField = value
- End Set
- End Property
-
- '''
- Public Property PrtLineWidth() As String
- Get
- Return Me.prtLineWidthField
- End Get
- Set
- Me.prtLineWidthField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum CardDataReading1Code
-
- '''
- TAGC
-
- '''
- PHYS
-
- '''
- BRCD
-
- '''
- MGST
-
- '''
- CICC
-
- '''
- DFLE
-
- '''
- CTLS
-
- '''
- ECTL
-End Enum
-
-'''
- _
-Public Enum CardholderVerificationCapability1Code
-
- '''
- MNSG
-
- '''
- NPIN
-
- '''
- FCPN
-
- '''
- FEPN
-
- '''
- FDSG
-
- '''
- FBIO
-
- '''
- MNVR
-
- '''
- FBIG
-
- '''
- APKI
-
- '''
- PKIS
-
- '''
- CHDT
-
- '''
- SCEC
-End Enum
-
-'''
- _
-Public Enum OnLineCapability1Code
-
- '''
- OFLN
-
- '''
- ONLN
-
- '''
- SMON
-End Enum
-
-'''
- _
-Partial Public Class DisplayCapabilities1
-
- Private dispTpField As UserInterface2Code
-
- Private nbOfLinesField As String
-
- Private lineWidthField As String
-
- '''
- Public Property DispTp() As UserInterface2Code
- Get
- Return Me.dispTpField
- End Get
- Set
- Me.dispTpField = value
- End Set
- End Property
-
- '''
- Public Property NbOfLines() As String
- Get
- Return Me.nbOfLinesField
- End Get
- Set
- Me.nbOfLinesField = value
- End Set
- End Property
-
- '''
- Public Property LineWidth() As String
- Get
- Return Me.lineWidthField
- End Get
- Set
- Me.lineWidthField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum UserInterface2Code
-
- '''
- MDSP
-
- '''
- CDSP
-End Enum
-
-'''
- _
-Partial Public Class PointOfInteractionComponent1
-
- Private pOICmpntTpField As POIComponentType1Code
-
- Private manfctrIdField As String
-
- Private mdlField As String
-
- Private vrsnNbField As String
-
- Private srlNbField As String
-
- Private apprvlNbField() As String
-
- '''
- Public Property POICmpntTp() As POIComponentType1Code
- Get
- Return Me.pOICmpntTpField
- End Get
- Set
- Me.pOICmpntTpField = value
- End Set
- End Property
-
- '''
- Public Property ManfctrId() As String
- Get
- Return Me.manfctrIdField
- End Get
- Set
- Me.manfctrIdField = value
- End Set
- End Property
-
- '''
- Public Property Mdl() As String
- Get
- Return Me.mdlField
- End Get
- Set
- Me.mdlField = value
- End Set
- End Property
-
- '''
- Public Property VrsnNb() As String
- Get
- Return Me.vrsnNbField
- End Get
- Set
- Me.vrsnNbField = value
- End Set
- End Property
-
- '''
- Public Property SrlNb() As String
- Get
- Return Me.srlNbField
- End Get
- Set
- Me.srlNbField = value
- End Set
- End Property
-
- '''
- _
- Public Property ApprvlNb() As String()
- Get
- Return Me.apprvlNbField
- End Get
- Set
- Me.apprvlNbField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum POIComponentType1Code
-
- '''
- SOFT
-
- '''
- EMVK
-
- '''
- EMVO
-
- '''
- MRIT
-
- '''
- CHIT
-
- '''
- SECM
-
- '''
- PEDV
-End Enum
-
-'''
- _
-Partial Public Class ActiveCurrencyAndAmount
-
- Private ccyField As String
-
- Private valueField As Decimal
-
- '''
- _
- Public Property Ccy() As String
- Get
- Return Me.ccyField
- End Get
- Set
- Me.ccyField = value
- End Set
- End Property
-
- '''
- _
- Public Property Value() As Decimal
- Get
- Return Me.valueField
- End Get
- Set
- Me.valueField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CashDeposit1
-
- Private noteDnmtnField As ActiveCurrencyAndAmount
-
- Private nbOfNotesField As String
-
- Private amtField As ActiveCurrencyAndAmount
-
- '''
- Public Property NoteDnmtn() As ActiveCurrencyAndAmount
- Get
- Return Me.noteDnmtnField
- End Get
- Set
- Me.noteDnmtnField = value
- End Set
- End Property
-
- '''
- Public Property NbOfNotes() As String
- Get
- Return Me.nbOfNotesField
- End Get
- Set
- Me.nbOfNotesField = value
- End Set
- End Property
-
- '''
- Public Property Amt() As ActiveCurrencyAndAmount
- Get
- Return Me.amtField
- End Get
- Set
- Me.amtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class GenericIdentification20
-
- Private idField As String
-
- Private issrField As String
-
- Private schmeNmField As String
-
- '''
- Public Property Id() As String
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property Issr() As String
- Get
- Return Me.issrField
- End Get
- Set
- Me.issrField = value
- End Set
- End Property
-
- '''
- Public Property SchmeNm() As String
- Get
- Return Me.schmeNmField
- End Get
- Set
- Me.schmeNmField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class SecuritiesAccount13
-
- Private idField As String
-
- Private tpField As GenericIdentification20
-
- Private nmField As String
-
- '''
- Public Property Id() As String
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property Tp() As GenericIdentification20
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Nm() As String
- Get
- Return Me.nmField
- End Get
- Set
- Me.nmField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CorporateAction9
-
- Private evtTpField As String
-
- Private evtIdField As String
-
- '''
- Public Property EvtTp() As String
- Get
- Return Me.evtTpField
- End Get
- Set
- Me.evtTpField = value
- End Set
- End Property
-
- '''
- Public Property EvtId() As String
- Get
- Return Me.evtIdField
- End Get
- Set
- Me.evtIdField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ReturnReason5Choice
-
- Private itemField As String
-
- Private itemElementNameField As ItemChoiceType15
-
- '''
- _
- Public Property Item() As String
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType15
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType15
-
- '''
- Cd
-
- '''
- Prtry
-End Enum
-
-'''
- _
-Partial Public Class PaymentReturnReason2
-
- Private orgnlBkTxCdField As BankTransactionCodeStructure4
-
- Private orgtrField As PartyIdentification43
-
- Private rsnField As ReturnReason5Choice
-
- Private addtlInfField() As String
-
- '''
- Public Property OrgnlBkTxCd() As BankTransactionCodeStructure4
- Get
- Return Me.orgnlBkTxCdField
- End Get
- Set
- Me.orgnlBkTxCdField = value
- End Set
- End Property
-
- '''
- Public Property Orgtr() As PartyIdentification43
- Get
- Return Me.orgtrField
- End Get
- Set
- Me.orgtrField = value
- End Set
- End Property
-
- '''
- Public Property Rsn() As ReturnReason5Choice
- Get
- Return Me.rsnField
- End Get
- Set
- Me.rsnField = value
- End Set
- End Property
-
- '''
- _
- Public Property AddtlInf() As String()
- Get
- Return Me.addtlInfField
- End Get
- Set
- Me.addtlInfField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class BankTransactionCodeStructure4
-
- Private domnField As BankTransactionCodeStructure5
-
- Private prtryField As ProprietaryBankTransactionCodeStructure1
-
- '''
- Public Property Domn() As BankTransactionCodeStructure5
- Get
- Return Me.domnField
- End Get
- Set
- Me.domnField = value
- End Set
- End Property
-
- '''
- Public Property Prtry() As ProprietaryBankTransactionCodeStructure1
- Get
- Return Me.prtryField
- End Get
- Set
- Me.prtryField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class BankTransactionCodeStructure5
-
- Private cdField As String
-
- Private fmlyField As BankTransactionCodeStructure6
-
- '''
- Public Property Cd() As String
- Get
- Return Me.cdField
- End Get
- Set
- Me.cdField = value
- End Set
- End Property
-
- '''
- Public Property Fmly() As BankTransactionCodeStructure6
- Get
- Return Me.fmlyField
- End Get
- Set
- Me.fmlyField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class BankTransactionCodeStructure6
-
- Private cdField As String
-
- Private subFmlyCdField As String
-
- '''
- Public Property Cd() As String
- Get
- Return Me.cdField
- End Get
- Set
- Me.cdField = value
- End Set
- End Property
-
- '''
- Public Property SubFmlyCd() As String
- Get
- Return Me.subFmlyCdField
- End Get
- Set
- Me.subFmlyCdField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ProprietaryBankTransactionCodeStructure1
-
- Private cdField As String
-
- Private issrField As String
-
- '''
- Public Property Cd() As String
- Get
- Return Me.cdField
- End Get
- Set
- Me.cdField = value
- End Set
- End Property
-
- '''
- Public Property Issr() As String
- Get
- Return Me.issrField
- End Get
- Set
- Me.issrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TaxRecordDetails1
-
- Private prdField As TaxPeriod1
-
- Private amtField As ActiveOrHistoricCurrencyAndAmount
-
- '''
- Public Property Prd() As TaxPeriod1
- Get
- Return Me.prdField
- End Get
- Set
- Me.prdField = value
- End Set
- End Property
-
- '''
- Public Property Amt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.amtField
- End Get
- Set
- Me.amtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TaxPeriod1
-
- Private yrField As Date
-
- Private yrFieldSpecified As Boolean
-
- Private tpField As TaxRecordPeriod1Code
-
- Private tpFieldSpecified As Boolean
-
- Private frToDtField As DatePeriodDetails
-
- '''
- _
- Public Property Yr() As Date
- Get
- Return Me.yrField
- End Get
- Set
- Me.yrField = value
- End Set
- End Property
-
- '''
- _
- Public Property YrSpecified() As Boolean
- Get
- Return Me.yrFieldSpecified
- End Get
- Set
- Me.yrFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property Tp() As TaxRecordPeriod1Code
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- _
- Public Property TpSpecified() As Boolean
- Get
- Return Me.tpFieldSpecified
- End Get
- Set
- Me.tpFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property FrToDt() As DatePeriodDetails
- Get
- Return Me.frToDtField
- End Get
- Set
- Me.frToDtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum TaxRecordPeriod1Code
-
- '''
- MM01
-
- '''
- MM02
-
- '''
- MM03
-
- '''
- MM04
-
- '''
- MM05
-
- '''
- MM06
-
- '''
- MM07
-
- '''
- MM08
-
- '''
- MM09
-
- '''
- MM10
-
- '''
- MM11
-
- '''
- MM12
-
- '''
- QTR1
-
- '''
- QTR2
-
- '''
- QTR3
-
- '''
- QTR4
-
- '''
- HLF1
-
- '''
- HLF2
-End Enum
-
-'''
- _
-Partial Public Class ActiveOrHistoricCurrencyAndAmount
-
- Private ccyField As String
-
- Private valueField As Decimal
-
- '''
- _
- Public Property Ccy() As String
- Get
- Return Me.ccyField
- End Get
- Set
- Me.ccyField = value
- End Set
- End Property
-
- '''
- _
- Public Property Value() As Decimal
- Get
- Return Me.valueField
- End Get
- Set
- Me.valueField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TaxAmount1
-
- Private rateField As Decimal
-
- Private rateFieldSpecified As Boolean
-
- Private taxblBaseAmtField As ActiveOrHistoricCurrencyAndAmount
-
- Private ttlAmtField As ActiveOrHistoricCurrencyAndAmount
-
- Private dtlsField() As TaxRecordDetails1
-
- '''
- Public Property Rate() As Decimal
- Get
- Return Me.rateField
- End Get
- Set
- Me.rateField = value
- End Set
- End Property
-
- '''
- _
- Public Property RateSpecified() As Boolean
- Get
- Return Me.rateFieldSpecified
- End Get
- Set
- Me.rateFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property TaxblBaseAmt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.taxblBaseAmtField
- End Get
- Set
- Me.taxblBaseAmtField = value
- End Set
- End Property
-
- '''
- Public Property TtlAmt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.ttlAmtField
- End Get
- Set
- Me.ttlAmtField = value
- End Set
- End Property
-
- '''
- _
- Public Property Dtls() As TaxRecordDetails1()
- Get
- Return Me.dtlsField
- End Get
- Set
- Me.dtlsField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TaxRecord1
-
- Private tpField As String
-
- Private ctgyField As String
-
- Private ctgyDtlsField As String
-
- Private dbtrStsField As String
-
- Private certIdField As String
-
- Private frmsCdField As String
-
- Private prdField As TaxPeriod1
-
- Private taxAmtField As TaxAmount1
-
- Private addtlInfField As String
-
- '''
- Public Property Tp() As String
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Ctgy() As String
- Get
- Return Me.ctgyField
- End Get
- Set
- Me.ctgyField = value
- End Set
- End Property
-
- '''
- Public Property CtgyDtls() As String
- Get
- Return Me.ctgyDtlsField
- End Get
- Set
- Me.ctgyDtlsField = value
- End Set
- End Property
-
- '''
- Public Property DbtrSts() As String
- Get
- Return Me.dbtrStsField
- End Get
- Set
- Me.dbtrStsField = value
- End Set
- End Property
-
- '''
- Public Property CertId() As String
- Get
- Return Me.certIdField
- End Get
- Set
- Me.certIdField = value
- End Set
- End Property
-
- '''
- Public Property FrmsCd() As String
- Get
- Return Me.frmsCdField
- End Get
- Set
- Me.frmsCdField = value
- End Set
- End Property
-
- '''
- Public Property Prd() As TaxPeriod1
- Get
- Return Me.prdField
- End Get
- Set
- Me.prdField = value
- End Set
- End Property
-
- '''
- Public Property TaxAmt() As TaxAmount1
- Get
- Return Me.taxAmtField
- End Get
- Set
- Me.taxAmtField = value
- End Set
- End Property
-
- '''
- Public Property AddtlInf() As String
- Get
- Return Me.addtlInfField
- End Get
- Set
- Me.addtlInfField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TaxAuthorisation1
-
- Private titlField As String
-
- Private nmField As String
-
- '''
- Public Property Titl() As String
- Get
- Return Me.titlField
- End Get
- Set
- Me.titlField = value
- End Set
- End Property
-
- '''
- Public Property Nm() As String
- Get
- Return Me.nmField
- End Get
- Set
- Me.nmField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TaxParty2
-
- Private taxIdField As String
-
- Private regnIdField As String
-
- Private taxTpField As String
-
- Private authstnField As TaxAuthorisation1
-
- '''
- Public Property TaxId() As String
- Get
- Return Me.taxIdField
- End Get
- Set
- Me.taxIdField = value
- End Set
- End Property
-
- '''
- Public Property RegnId() As String
- Get
- Return Me.regnIdField
- End Get
- Set
- Me.regnIdField = value
- End Set
- End Property
-
- '''
- Public Property TaxTp() As String
- Get
- Return Me.taxTpField
- End Get
- Set
- Me.taxTpField = value
- End Set
- End Property
-
- '''
- Public Property Authstn() As TaxAuthorisation1
- Get
- Return Me.authstnField
- End Get
- Set
- Me.authstnField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TaxParty1
-
- Private taxIdField As String
-
- Private regnIdField As String
-
- Private taxTpField As String
-
- '''
- Public Property TaxId() As String
- Get
- Return Me.taxIdField
- End Get
- Set
- Me.taxIdField = value
- End Set
- End Property
-
- '''
- Public Property RegnId() As String
- Get
- Return Me.regnIdField
- End Get
- Set
- Me.regnIdField = value
- End Set
- End Property
-
- '''
- Public Property TaxTp() As String
- Get
- Return Me.taxTpField
- End Get
- Set
- Me.taxTpField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TaxInformation3
-
- Private cdtrField As TaxParty1
-
- Private dbtrField As TaxParty2
-
- Private admstnZnField As String
-
- Private refNbField As String
-
- Private mtdField As String
-
- Private ttlTaxblBaseAmtField As ActiveOrHistoricCurrencyAndAmount
-
- Private ttlTaxAmtField As ActiveOrHistoricCurrencyAndAmount
-
- Private dtField As Date
-
- Private dtFieldSpecified As Boolean
-
- Private seqNbField As Decimal
-
- Private seqNbFieldSpecified As Boolean
-
- Private rcrdField() As TaxRecord1
-
- '''
- Public Property Cdtr() As TaxParty1
- Get
- Return Me.cdtrField
- End Get
- Set
- Me.cdtrField = value
- End Set
- End Property
-
- '''
- Public Property Dbtr() As TaxParty2
- Get
- Return Me.dbtrField
- End Get
- Set
- Me.dbtrField = value
- End Set
- End Property
-
- '''
- Public Property AdmstnZn() As String
- Get
- Return Me.admstnZnField
- End Get
- Set
- Me.admstnZnField = value
- End Set
- End Property
-
- '''
- Public Property RefNb() As String
- Get
- Return Me.refNbField
- End Get
- Set
- Me.refNbField = value
- End Set
- End Property
-
- '''
- Public Property Mtd() As String
- Get
- Return Me.mtdField
- End Get
- Set
- Me.mtdField = value
- End Set
- End Property
-
- '''
- Public Property TtlTaxblBaseAmt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.ttlTaxblBaseAmtField
- End Get
- Set
- Me.ttlTaxblBaseAmtField = value
- End Set
- End Property
-
- '''
- Public Property TtlTaxAmt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.ttlTaxAmtField
- End Get
- Set
- Me.ttlTaxAmtField = value
- End Set
- End Property
-
- '''
- _
- Public Property Dt() As Date
- Get
- Return Me.dtField
- End Get
- Set
- Me.dtField = value
- End Set
- End Property
-
- '''
- _
- Public Property DtSpecified() As Boolean
- Get
- Return Me.dtFieldSpecified
- End Get
- Set
- Me.dtFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property SeqNb() As Decimal
- Get
- Return Me.seqNbField
- End Get
- Set
- Me.seqNbField = value
- End Set
- End Property
-
- '''
- _
- Public Property SeqNbSpecified() As Boolean
- Get
- Return Me.seqNbFieldSpecified
- End Get
- Set
- Me.seqNbFieldSpecified = value
- End Set
- End Property
-
- '''
- _
- Public Property Rcrd() As TaxRecord1()
- Get
- Return Me.rcrdField
- End Get
- Set
- Me.rcrdField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class IdentificationSource3Choice
-
- Private itemField As String
-
- Private itemElementNameField As ItemChoiceType14
-
- '''
- _
- Public Property Item() As String
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType14
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType14
-
- '''
- Cd
-
- '''
- Prtry
-End Enum
-
-'''
- _
-Partial Public Class OtherIdentification1
-
- Private idField As String
-
- Private sfxField As String
-
- Private tpField As IdentificationSource3Choice
-
- '''
- Public Property Id() As String
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property Sfx() As String
- Get
- Return Me.sfxField
- End Get
- Set
- Me.sfxField = value
- End Set
- End Property
-
- '''
- Public Property Tp() As IdentificationSource3Choice
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class SecurityIdentification14
-
- Private iSINField As String
-
- Private othrIdField() As OtherIdentification1
-
- Private descField As String
-
- '''
- Public Property ISIN() As String
- Get
- Return Me.iSINField
- End Get
- Set
- Me.iSINField = value
- End Set
- End Property
-
- '''
- _
- Public Property OthrId() As OtherIdentification1()
- Get
- Return Me.othrIdField
- End Get
- Set
- Me.othrIdField = value
- End Set
- End Property
-
- '''
- Public Property Desc() As String
- Get
- Return Me.descField
- End Get
- Set
- Me.descField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ProprietaryQuantity1
-
- Private tpField As String
-
- Private qtyField As String
-
- '''
- Public Property Tp() As String
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Qty() As String
- Get
- Return Me.qtyField
- End Get
- Set
- Me.qtyField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class OriginalAndCurrentQuantities1
-
- Private faceAmtField As Decimal
-
- Private amtsdValField As Decimal
-
- '''
- Public Property FaceAmt() As Decimal
- Get
- Return Me.faceAmtField
- End Get
- Set
- Me.faceAmtField = value
- End Set
- End Property
-
- '''
- Public Property AmtsdVal() As Decimal
- Get
- Return Me.amtsdValField
- End Get
- Set
- Me.amtsdValField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class FinancialInstrumentQuantityChoice
-
- Private itemField As Decimal
-
- Private itemElementNameField As ItemChoiceType13
-
- '''
- _
- Public Property Item() As Decimal
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType13
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType13
-
- '''
- AmtsdVal
-
- '''
- FaceAmt
-
- '''
- Unit
-End Enum
-
-'''
- _
-Partial Public Class TransactionQuantities2Choice
-
- Private itemField As Object
-
- '''
- _
- Public Property Item() As Object
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ProprietaryPrice2
-
- Private tpField As String
-
- Private pricField As ActiveOrHistoricCurrencyAndAmount
-
- '''
- Public Property Tp() As String
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Pric() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.pricField
- End Get
- Set
- Me.pricField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ActiveOrHistoricCurrencyAnd13DecimalAmount
-
- Private ccyField As String
-
- Private valueField As Decimal
-
- '''
- _
- Public Property Ccy() As String
- Get
- Return Me.ccyField
- End Get
- Set
- Me.ccyField = value
- End Set
- End Property
-
- '''
- _
- Public Property Value() As Decimal
- Get
- Return Me.valueField
- End Get
- Set
- Me.valueField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class PriceRateOrAmountChoice
-
- Private itemField As Object
-
- '''
- _
- Public Property Item() As Object
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class YieldedOrValueType1Choice
-
- Private itemField As Object
-
- '''
- _
- Public Property Item() As Object
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum PriceValueType1Code
-
- '''
- DISC
-
- '''
- PREM
-
- '''
- PARV
-End Enum
-
-'''
- _
-Partial Public Class Price2
-
- Private tpField As YieldedOrValueType1Choice
-
- Private valField As PriceRateOrAmountChoice
-
- '''
- Public Property Tp() As YieldedOrValueType1Choice
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Val() As PriceRateOrAmountChoice
- Get
- Return Me.valField
- End Get
- Set
- Me.valField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TransactionPrice3Choice
-
- Private itemsField() As Object
-
- '''
- _
- Public Property Items() As Object()
- Get
- Return Me.itemsField
- End Get
- Set
- Me.itemsField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ProprietaryDate2
-
- Private tpField As String
-
- Private dtField As DateAndDateTimeChoice
-
- '''
- Public Property Tp() As String
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Dt() As DateAndDateTimeChoice
- Get
- Return Me.dtField
- End Get
- Set
- Me.dtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class DateAndDateTimeChoice
-
- Private itemField As Date
-
- Private itemElementNameField As ItemChoiceType8
-
- '''
- _
- Public Property Item() As Date
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType8
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType8
-
- '''
- Dt
-
- '''
- DtTm
-End Enum
-
-'''
- _
-Partial Public Class TransactionDates2
-
- Private accptncDtTmField As Date
-
- Private accptncDtTmFieldSpecified As Boolean
-
- Private tradActvtyCtrctlSttlmDtField As Date
-
- Private tradActvtyCtrctlSttlmDtFieldSpecified As Boolean
-
- Private tradDtField As Date
-
- Private tradDtFieldSpecified As Boolean
-
- Private intrBkSttlmDtField As Date
-
- Private intrBkSttlmDtFieldSpecified As Boolean
-
- Private startDtField As Date
-
- Private startDtFieldSpecified As Boolean
-
- Private endDtField As Date
-
- Private endDtFieldSpecified As Boolean
-
- Private txDtTmField As Date
-
- Private txDtTmFieldSpecified As Boolean
-
- Private prtryField() As ProprietaryDate2
-
- '''
- Public Property AccptncDtTm() As Date
- Get
- Return Me.accptncDtTmField
- End Get
- Set
- Me.accptncDtTmField = value
- End Set
- End Property
-
- '''
- _
- Public Property AccptncDtTmSpecified() As Boolean
- Get
- Return Me.accptncDtTmFieldSpecified
- End Get
- Set
- Me.accptncDtTmFieldSpecified = value
- End Set
- End Property
-
- '''
- _
- Public Property TradActvtyCtrctlSttlmDt() As Date
- Get
- Return Me.tradActvtyCtrctlSttlmDtField
- End Get
- Set
- Me.tradActvtyCtrctlSttlmDtField = value
- End Set
- End Property
-
- '''
- _
- Public Property TradActvtyCtrctlSttlmDtSpecified() As Boolean
- Get
- Return Me.tradActvtyCtrctlSttlmDtFieldSpecified
- End Get
- Set
- Me.tradActvtyCtrctlSttlmDtFieldSpecified = value
- End Set
- End Property
-
- '''
- _
- Public Property TradDt() As Date
- Get
- Return Me.tradDtField
- End Get
- Set
- Me.tradDtField = value
- End Set
- End Property
-
- '''
- _
- Public Property TradDtSpecified() As Boolean
- Get
- Return Me.tradDtFieldSpecified
- End Get
- Set
- Me.tradDtFieldSpecified = value
- End Set
- End Property
-
- '''
- _
- Public Property IntrBkSttlmDt() As Date
- Get
- Return Me.intrBkSttlmDtField
- End Get
- Set
- Me.intrBkSttlmDtField = value
- End Set
- End Property
-
- '''
- _
- Public Property IntrBkSttlmDtSpecified() As Boolean
- Get
- Return Me.intrBkSttlmDtFieldSpecified
- End Get
- Set
- Me.intrBkSttlmDtFieldSpecified = value
- End Set
- End Property
-
- '''
- _
- Public Property StartDt() As Date
- Get
- Return Me.startDtField
- End Get
- Set
- Me.startDtField = value
- End Set
- End Property
-
- '''
- _
- Public Property StartDtSpecified() As Boolean
- Get
- Return Me.startDtFieldSpecified
- End Get
- Set
- Me.startDtFieldSpecified = value
- End Set
- End Property
-
- '''
- _
- Public Property EndDt() As Date
- Get
- Return Me.endDtField
- End Get
- Set
- Me.endDtField = value
- End Set
- End Property
-
- '''
- _
- Public Property EndDtSpecified() As Boolean
- Get
- Return Me.endDtFieldSpecified
- End Get
- Set
- Me.endDtFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property TxDtTm() As Date
- Get
- Return Me.txDtTmField
- End Get
- Set
- Me.txDtTmField = value
- End Set
- End Property
-
- '''
- _
- Public Property TxDtTmSpecified() As Boolean
- Get
- Return Me.txDtTmFieldSpecified
- End Get
- Set
- Me.txDtTmFieldSpecified = value
- End Set
- End Property
-
- '''
- _
- Public Property Prtry() As ProprietaryDate2()
- Get
- Return Me.prtryField
- End Get
- Set
- Me.prtryField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CreditorReferenceType1Choice
-
- Private itemField As Object
-
- '''
- _
- Public Property Item() As Object
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum DocumentType3Code
-
- '''
- RADM
-
- '''
- RPIN
-
- '''
- FXDR
-
- '''
- DISP
-
- '''
- PUOR
-
- '''
- SCOR
-End Enum
-
-'''
- _
-Partial Public Class CreditorReferenceType2
-
- Private cdOrPrtryField As CreditorReferenceType1Choice
-
- Private issrField As String
-
- '''
- Public Property CdOrPrtry() As CreditorReferenceType1Choice
- Get
- Return Me.cdOrPrtryField
- End Get
- Set
- Me.cdOrPrtryField = value
- End Set
- End Property
-
- '''
- Public Property Issr() As String
- Get
- Return Me.issrField
- End Get
- Set
- Me.issrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CreditorReferenceInformation2
-
- Private tpField As CreditorReferenceType2
-
- Private refField As String
-
- '''
- Public Property Tp() As CreditorReferenceType2
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Ref() As String
- Get
- Return Me.refField
- End Get
- Set
- Me.refField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class DocumentAdjustment1
-
- Private amtField As ActiveOrHistoricCurrencyAndAmount
-
- Private cdtDbtIndField As CreditDebitCode
-
- Private cdtDbtIndFieldSpecified As Boolean
-
- Private rsnField As String
-
- Private addtlInfField As String
-
- '''
- Public Property Amt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.amtField
- End Get
- Set
- Me.amtField = value
- End Set
- End Property
-
- '''
- Public Property CdtDbtInd() As CreditDebitCode
- Get
- Return Me.cdtDbtIndField
- End Get
- Set
- Me.cdtDbtIndField = value
- End Set
- End Property
-
- '''
- _
- Public Property CdtDbtIndSpecified() As Boolean
- Get
- Return Me.cdtDbtIndFieldSpecified
- End Get
- Set
- Me.cdtDbtIndFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property Rsn() As String
- Get
- Return Me.rsnField
- End Get
- Set
- Me.rsnField = value
- End Set
- End Property
-
- '''
- Public Property AddtlInf() As String
- Get
- Return Me.addtlInfField
- End Get
- Set
- Me.addtlInfField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum CreditDebitCode
-
- '''
- CRDT
-
- '''
- DBIT
-End Enum
-
-'''
- _
-Partial Public Class TaxAmountType1Choice
-
- Private itemField As String
-
- Private itemElementNameField As ItemChoiceType12
-
- '''
- _
- Public Property Item() As String
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType12
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType12
-
- '''
- Cd
-
- '''
- Prtry
-End Enum
-
-'''
- _
-Partial Public Class TaxAmountAndType1
-
- Private tpField As TaxAmountType1Choice
-
- Private amtField As ActiveOrHistoricCurrencyAndAmount
-
- '''
- Public Property Tp() As TaxAmountType1Choice
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Amt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.amtField
- End Get
- Set
- Me.amtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class DiscountAmountType1Choice
-
- Private itemField As String
-
- Private itemElementNameField As ItemChoiceType11
-
- '''
- _
- Public Property Item() As String
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType11
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType11
-
- '''
- Cd
-
- '''
- Prtry
-End Enum
-
-'''
- _
-Partial Public Class DiscountAmountAndType1
-
- Private tpField As DiscountAmountType1Choice
-
- Private amtField As ActiveOrHistoricCurrencyAndAmount
-
- '''
- Public Property Tp() As DiscountAmountType1Choice
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Amt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.amtField
- End Get
- Set
- Me.amtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class RemittanceAmount2
-
- Private duePyblAmtField As ActiveOrHistoricCurrencyAndAmount
-
- Private dscntApldAmtField() As DiscountAmountAndType1
-
- Private cdtNoteAmtField As ActiveOrHistoricCurrencyAndAmount
-
- Private taxAmtField() As TaxAmountAndType1
-
- Private adjstmntAmtAndRsnField() As DocumentAdjustment1
-
- Private rmtdAmtField As ActiveOrHistoricCurrencyAndAmount
-
- '''
- Public Property DuePyblAmt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.duePyblAmtField
- End Get
- Set
- Me.duePyblAmtField = value
- End Set
- End Property
-
- '''
- _
- Public Property DscntApldAmt() As DiscountAmountAndType1()
- Get
- Return Me.dscntApldAmtField
- End Get
- Set
- Me.dscntApldAmtField = value
- End Set
- End Property
-
- '''
- Public Property CdtNoteAmt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.cdtNoteAmtField
- End Get
- Set
- Me.cdtNoteAmtField = value
- End Set
- End Property
-
- '''
- _
- Public Property TaxAmt() As TaxAmountAndType1()
- Get
- Return Me.taxAmtField
- End Get
- Set
- Me.taxAmtField = value
- End Set
- End Property
-
- '''
- _
- Public Property AdjstmntAmtAndRsn() As DocumentAdjustment1()
- Get
- Return Me.adjstmntAmtAndRsnField
- End Get
- Set
- Me.adjstmntAmtAndRsnField = value
- End Set
- End Property
-
- '''
- Public Property RmtdAmt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.rmtdAmtField
- End Get
- Set
- Me.rmtdAmtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ReferredDocumentType1Choice
-
- Private itemField As Object
-
- '''
- _
- Public Property Item() As Object
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum DocumentType5Code
-
- '''
- MSIN
-
- '''
- CNFA
-
- '''
- DNFA
-
- '''
- CINV
-
- '''
- CREN
-
- '''
- DEBN
-
- '''
- HIRI
-
- '''
- SBIN
-
- '''
- CMCN
-
- '''
- SOAC
-
- '''
- DISP
-
- '''
- BOLD
-
- '''
- VCHR
-
- '''
- AROI
-
- '''
- TSUT
-End Enum
-
-'''
- _
-Partial Public Class ReferredDocumentType2
-
- Private cdOrPrtryField As ReferredDocumentType1Choice
-
- Private issrField As String
-
- '''
- Public Property CdOrPrtry() As ReferredDocumentType1Choice
- Get
- Return Me.cdOrPrtryField
- End Get
- Set
- Me.cdOrPrtryField = value
- End Set
- End Property
-
- '''
- Public Property Issr() As String
- Get
- Return Me.issrField
- End Get
- Set
- Me.issrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ReferredDocumentInformation3
-
- Private tpField As ReferredDocumentType2
-
- Private nbField As String
-
- Private rltdDtField As Date
-
- Private rltdDtFieldSpecified As Boolean
-
- '''
- Public Property Tp() As ReferredDocumentType2
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Nb() As String
- Get
- Return Me.nbField
- End Get
- Set
- Me.nbField = value
- End Set
- End Property
-
- '''
- _
- Public Property RltdDt() As Date
- Get
- Return Me.rltdDtField
- End Get
- Set
- Me.rltdDtField = value
- End Set
- End Property
-
- '''
- _
- Public Property RltdDtSpecified() As Boolean
- Get
- Return Me.rltdDtFieldSpecified
- End Get
- Set
- Me.rltdDtFieldSpecified = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class StructuredRemittanceInformation9
-
- Private rfrdDocInfField() As ReferredDocumentInformation3
-
- Private rfrdDocAmtField As RemittanceAmount2
-
- Private cdtrRefInfField As CreditorReferenceInformation2
-
- Private invcrField As PartyIdentification43
-
- Private invceeField As PartyIdentification43
-
- Private addtlRmtInfField() As String
-
- '''
- _
- Public Property RfrdDocInf() As ReferredDocumentInformation3()
- Get
- Return Me.rfrdDocInfField
- End Get
- Set
- Me.rfrdDocInfField = value
- End Set
- End Property
-
- '''
- Public Property RfrdDocAmt() As RemittanceAmount2
- Get
- Return Me.rfrdDocAmtField
- End Get
- Set
- Me.rfrdDocAmtField = value
- End Set
- End Property
-
- '''
- Public Property CdtrRefInf() As CreditorReferenceInformation2
- Get
- Return Me.cdtrRefInfField
- End Get
- Set
- Me.cdtrRefInfField = value
- End Set
- End Property
-
- '''
- Public Property Invcr() As PartyIdentification43
- Get
- Return Me.invcrField
- End Get
- Set
- Me.invcrField = value
- End Set
- End Property
-
- '''
- Public Property Invcee() As PartyIdentification43
- Get
- Return Me.invceeField
- End Get
- Set
- Me.invceeField = value
- End Set
- End Property
-
- '''
- _
- Public Property AddtlRmtInf() As String()
- Get
- Return Me.addtlRmtInfField
- End Get
- Set
- Me.addtlRmtInfField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class RemittanceInformation7
-
- Private ustrdField() As String
-
- Private strdField() As StructuredRemittanceInformation9
-
- '''
- _
- Public Property Ustrd() As String()
- Get
- Return Me.ustrdField
- End Get
- Set
- Me.ustrdField = value
- End Set
- End Property
-
- '''
- _
- Public Property Strd() As StructuredRemittanceInformation9()
- Get
- Return Me.strdField
- End Get
- Set
- Me.strdField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class NameAndAddress10
-
- Private nmField As String
-
- Private adrField As PostalAddress6
-
- '''
- Public Property Nm() As String
- Get
- Return Me.nmField
- End Get
- Set
- Me.nmField = value
- End Set
- End Property
-
- '''
- Public Property Adr() As PostalAddress6
- Get
- Return Me.adrField
- End Get
- Set
- Me.adrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class RemittanceLocation2
-
- Private rmtIdField As String
-
- Private rmtLctnMtdField As RemittanceLocationMethod2Code
-
- Private rmtLctnMtdFieldSpecified As Boolean
-
- Private rmtLctnElctrncAdrField As String
-
- Private rmtLctnPstlAdrField As NameAndAddress10
-
- '''
- Public Property RmtId() As String
- Get
- Return Me.rmtIdField
- End Get
- Set
- Me.rmtIdField = value
- End Set
- End Property
-
- '''
- Public Property RmtLctnMtd() As RemittanceLocationMethod2Code
- Get
- Return Me.rmtLctnMtdField
- End Get
- Set
- Me.rmtLctnMtdField = value
- End Set
- End Property
-
- '''
- _
- Public Property RmtLctnMtdSpecified() As Boolean
- Get
- Return Me.rmtLctnMtdFieldSpecified
- End Get
- Set
- Me.rmtLctnMtdFieldSpecified = value
- End Set
- End Property
-
- '''
- Public Property RmtLctnElctrncAdr() As String
- Get
- Return Me.rmtLctnElctrncAdrField
- End Get
- Set
- Me.rmtLctnElctrncAdrField = value
- End Set
- End Property
-
- '''
- Public Property RmtLctnPstlAdr() As NameAndAddress10
- Get
- Return Me.rmtLctnPstlAdrField
- End Get
- Set
- Me.rmtLctnPstlAdrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum RemittanceLocationMethod2Code
-
- '''
- FAXI
-
- '''
- EDIC
-
- '''
- URID
-
- '''
- EMAL
-
- '''
- POST
-
- '''
- SMSM
-End Enum
-
-'''
- _
-Partial Public Class Purpose2Choice
-
- Private itemField As String
-
- Private itemElementNameField As ItemChoiceType10
-
- '''
- _
- Public Property Item() As String
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType10
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType10
-
- '''
- Cd
-
- '''
- Prtry
-End Enum
-
-'''
- _
-Partial Public Class ProprietaryAgent3
-
- Private tpField As String
-
- Private agtField As BranchAndFinancialInstitutionIdentification5
-
- '''
- Public Property Tp() As String
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Agt() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.agtField
- End Get
- Set
- Me.agtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class BranchAndFinancialInstitutionIdentification5
-
- Private finInstnIdField As FinancialInstitutionIdentification8
-
- Private brnchIdField As BranchData2
-
- '''
- Public Property FinInstnId() As FinancialInstitutionIdentification8
- Get
- Return Me.finInstnIdField
- End Get
- Set
- Me.finInstnIdField = value
- End Set
- End Property
-
- '''
- Public Property BrnchId() As BranchData2
- Get
- Return Me.brnchIdField
- End Get
- Set
- Me.brnchIdField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class FinancialInstitutionIdentification8
-
- Private bICFIField As String
-
- Private clrSysMmbIdField As ClearingSystemMemberIdentification2
-
- Private nmField As String
-
- Private pstlAdrField As PostalAddress6
-
- Private othrField As GenericFinancialIdentification1
-
- '''
- Public Property BICFI() As String
- Get
- Return Me.bICFIField
- End Get
- Set
- Me.bICFIField = value
- End Set
- End Property
-
- '''
- Public Property ClrSysMmbId() As ClearingSystemMemberIdentification2
- Get
- Return Me.clrSysMmbIdField
- End Get
- Set
- Me.clrSysMmbIdField = value
- End Set
- End Property
-
- '''
- Public Property Nm() As String
- Get
- Return Me.nmField
- End Get
- Set
- Me.nmField = value
- End Set
- End Property
-
- '''
- Public Property PstlAdr() As PostalAddress6
- Get
- Return Me.pstlAdrField
- End Get
- Set
- Me.pstlAdrField = value
- End Set
- End Property
-
- '''
- Public Property Othr() As GenericFinancialIdentification1
- Get
- Return Me.othrField
- End Get
- Set
- Me.othrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ClearingSystemMemberIdentification2
-
- Private clrSysIdField As ClearingSystemIdentification2Choice
-
- Private mmbIdField As String
-
- '''
- Public Property ClrSysId() As ClearingSystemIdentification2Choice
- Get
- Return Me.clrSysIdField
- End Get
- Set
- Me.clrSysIdField = value
- End Set
- End Property
-
- '''
- Public Property MmbId() As String
- Get
- Return Me.mmbIdField
- End Get
- Set
- Me.mmbIdField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ClearingSystemIdentification2Choice
-
- Private itemField As String
-
- Private itemElementNameField As ItemChoiceType5
-
- '''
- _
- Public Property Item() As String
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType5
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType5
-
- '''
- Cd
-
- '''
- Prtry
-End Enum
-
-'''
- _
-Partial Public Class GenericFinancialIdentification1
-
- Private idField As String
-
- Private schmeNmField As FinancialIdentificationSchemeName1Choice
-
- Private issrField As String
-
- '''
- Public Property Id() As String
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property SchmeNm() As FinancialIdentificationSchemeName1Choice
- Get
- Return Me.schmeNmField
- End Get
- Set
- Me.schmeNmField = value
- End Set
- End Property
-
- '''
- Public Property Issr() As String
- Get
- Return Me.issrField
- End Get
- Set
- Me.issrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class FinancialIdentificationSchemeName1Choice
-
- Private itemField As String
-
- Private itemElementNameField As ItemChoiceType6
-
- '''
- _
- Public Property Item() As String
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType6
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType6
-
- '''
- Cd
-
- '''
- Prtry
-End Enum
-
-'''
- _
-Partial Public Class BranchData2
-
- Private idField As String
-
- Private nmField As String
-
- Private pstlAdrField As PostalAddress6
-
- '''
- Public Property Id() As String
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property Nm() As String
- Get
- Return Me.nmField
- End Get
- Set
- Me.nmField = value
- End Set
- End Property
-
- '''
- Public Property PstlAdr() As PostalAddress6
- Get
- Return Me.pstlAdrField
- End Get
- Set
- Me.pstlAdrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TransactionAgents3
-
- Private dbtrAgtField As BranchAndFinancialInstitutionIdentification5
-
- Private cdtrAgtField As BranchAndFinancialInstitutionIdentification5
-
- Private intrmyAgt1Field As BranchAndFinancialInstitutionIdentification5
-
- Private intrmyAgt2Field As BranchAndFinancialInstitutionIdentification5
-
- Private intrmyAgt3Field As BranchAndFinancialInstitutionIdentification5
-
- Private rcvgAgtField As BranchAndFinancialInstitutionIdentification5
-
- Private dlvrgAgtField As BranchAndFinancialInstitutionIdentification5
-
- Private issgAgtField As BranchAndFinancialInstitutionIdentification5
-
- Private sttlmPlcField As BranchAndFinancialInstitutionIdentification5
-
- Private prtryField() As ProprietaryAgent3
-
- '''
- Public Property DbtrAgt() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.dbtrAgtField
- End Get
- Set
- Me.dbtrAgtField = value
- End Set
- End Property
-
- '''
- Public Property CdtrAgt() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.cdtrAgtField
- End Get
- Set
- Me.cdtrAgtField = value
- End Set
- End Property
-
- '''
- Public Property IntrmyAgt1() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.intrmyAgt1Field
- End Get
- Set
- Me.intrmyAgt1Field = value
- End Set
- End Property
-
- '''
- Public Property IntrmyAgt2() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.intrmyAgt2Field
- End Get
- Set
- Me.intrmyAgt2Field = value
- End Set
- End Property
-
- '''
- Public Property IntrmyAgt3() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.intrmyAgt3Field
- End Get
- Set
- Me.intrmyAgt3Field = value
- End Set
- End Property
-
- '''
- Public Property RcvgAgt() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.rcvgAgtField
- End Get
- Set
- Me.rcvgAgtField = value
- End Set
- End Property
-
- '''
- Public Property DlvrgAgt() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.dlvrgAgtField
- End Get
- Set
- Me.dlvrgAgtField = value
- End Set
- End Property
-
- '''
- Public Property IssgAgt() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.issgAgtField
- End Get
- Set
- Me.issgAgtField = value
- End Set
- End Property
-
- '''
- Public Property SttlmPlc() As BranchAndFinancialInstitutionIdentification5
- Get
- Return Me.sttlmPlcField
- End Get
- Set
- Me.sttlmPlcField = value
- End Set
- End Property
-
- '''
- _
- Public Property Prtry() As ProprietaryAgent3()
- Get
- Return Me.prtryField
- End Get
- Set
- Me.prtryField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class ProprietaryParty3
-
- Private tpField As String
-
- Private ptyField As PartyIdentification43
-
- '''
- Public Property Tp() As String
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Pty() As PartyIdentification43
- Get
- Return Me.ptyField
- End Get
- Set
- Me.ptyField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TransactionParties3
-
- Private initgPtyField As PartyIdentification43
-
- Private dbtrField As PartyIdentification43
-
- Private dbtrAcctField As CashAccount24
-
- Private ultmtDbtrField As PartyIdentification43
-
- Private cdtrField As PartyIdentification43
-
- Private cdtrAcctField As CashAccount24
-
- Private ultmtCdtrField As PartyIdentification43
-
- Private tradgPtyField As PartyIdentification43
-
- Private prtryField() As ProprietaryParty3
-
- '''
- Public Property InitgPty() As PartyIdentification43
- Get
- Return Me.initgPtyField
- End Get
- Set
- Me.initgPtyField = value
- End Set
- End Property
-
- '''
- Public Property Dbtr() As PartyIdentification43
- Get
- Return Me.dbtrField
- End Get
- Set
- Me.dbtrField = value
- End Set
- End Property
-
- '''
- Public Property DbtrAcct() As CashAccount24
- Get
- Return Me.dbtrAcctField
- End Get
- Set
- Me.dbtrAcctField = value
- End Set
- End Property
-
- '''
- Public Property UltmtDbtr() As PartyIdentification43
- Get
- Return Me.ultmtDbtrField
- End Get
- Set
- Me.ultmtDbtrField = value
- End Set
- End Property
-
- '''
- Public Property Cdtr() As PartyIdentification43
- Get
- Return Me.cdtrField
- End Get
- Set
- Me.cdtrField = value
- End Set
- End Property
-
- '''
- Public Property CdtrAcct() As CashAccount24
- Get
- Return Me.cdtrAcctField
- End Get
- Set
- Me.cdtrAcctField = value
- End Set
- End Property
-
- '''
- Public Property UltmtCdtr() As PartyIdentification43
- Get
- Return Me.ultmtCdtrField
- End Get
- Set
- Me.ultmtCdtrField = value
- End Set
- End Property
-
- '''
- Public Property TradgPty() As PartyIdentification43
- Get
- Return Me.tradgPtyField
- End Get
- Set
- Me.tradgPtyField = value
- End Set
- End Property
-
- '''
- _
- Public Property Prtry() As ProprietaryParty3()
- Get
- Return Me.prtryField
- End Get
- Set
- Me.prtryField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CashAccount24
-
- Private idField As AccountIdentification4Choice
-
- Private tpField As CashAccountType2Choice
-
- Private ccyField As String
-
- Private nmField As String
-
- '''
- Public Property Id() As AccountIdentification4Choice
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property Tp() As CashAccountType2Choice
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Ccy() As String
- Get
- Return Me.ccyField
- End Get
- Set
- Me.ccyField = value
- End Set
- End Property
-
- '''
- Public Property Nm() As String
- Get
- Return Me.nmField
- End Get
- Set
- Me.nmField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class AccountIdentification4Choice
-
- Private itemField As Object
-
- '''
- _
- Public Property Item() As Object
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class GenericAccountIdentification1
-
- Private idField As String
-
- Private schmeNmField As AccountSchemeName1Choice
-
- Private issrField As String
-
- '''
- Public Property Id() As String
- Get
- Return Me.idField
- End Get
- Set
- Me.idField = value
- End Set
- End Property
-
- '''
- Public Property SchmeNm() As AccountSchemeName1Choice
- Get
- Return Me.schmeNmField
- End Get
- Set
- Me.schmeNmField = value
- End Set
- End Property
-
- '''
- Public Property Issr() As String
- Get
- Return Me.issrField
- End Get
- Set
- Me.issrField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class AccountSchemeName1Choice
-
- Private itemField As String
-
- Private itemElementNameField As ItemChoiceType3
-
- '''
- _
- Public Property Item() As String
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType3
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType3
-
- '''
- Cd
-
- '''
- Prtry
-End Enum
-
-'''
- _
-Partial Public Class CashAccountType2Choice
-
- Private itemField As String
-
- Private itemElementNameField As ItemChoiceType4
-
- '''
- _
- Public Property Item() As String
- Get
- Return Me.itemField
- End Get
- Set
- Me.itemField = value
- End Set
- End Property
-
- '''
- _
- Public Property ItemElementName() As ItemChoiceType4
- Get
- Return Me.itemElementNameField
- End Get
- Set
- Me.itemElementNameField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Public Enum ItemChoiceType4
-
- '''
- Cd
-
- '''
- Prtry
-End Enum
-
-'''
- _
-Partial Public Class ProprietaryReference1
-
- Private tpField As String
-
- Private refField As String
-
- '''
- Public Property Tp() As String
- Get
- Return Me.tpField
- End Get
- Set
- Me.tpField = value
- End Set
- End Property
-
- '''
- Public Property Ref() As String
- Get
- Return Me.refField
- End Get
- Set
- Me.refField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class TransactionReferences3
-
- Private msgIdField As String
-
- Private acctSvcrRefField As String
-
- Private pmtInfIdField As String
-
- Private instrIdField As String
-
- Private endToEndIdField As String
-
- Private txIdField As String
-
- Private mndtIdField As String
-
- Private chqNbField As String
-
- Private clrSysRefField As String
-
- Private acctOwnrTxIdField As String
-
- Private acctSvcrTxIdField As String
-
- Private mktInfrstrctrTxIdField As String
-
- Private prcgIdField As String
-
- Private prtryField() As ProprietaryReference1
-
- '''
- Public Property MsgId() As String
- Get
- Return Me.msgIdField
- End Get
- Set
- Me.msgIdField = value
- End Set
- End Property
-
- '''
- Public Property AcctSvcrRef() As String
- Get
- Return Me.acctSvcrRefField
- End Get
- Set
- Me.acctSvcrRefField = value
- End Set
- End Property
-
- '''
- Public Property PmtInfId() As String
- Get
- Return Me.pmtInfIdField
- End Get
- Set
- Me.pmtInfIdField = value
- End Set
- End Property
-
- '''
- Public Property InstrId() As String
- Get
- Return Me.instrIdField
- End Get
- Set
- Me.instrIdField = value
- End Set
- End Property
-
- '''
- Public Property EndToEndId() As String
- Get
- Return Me.endToEndIdField
- End Get
- Set
- Me.endToEndIdField = value
- End Set
- End Property
-
- '''
- Public Property TxId() As String
- Get
- Return Me.txIdField
- End Get
- Set
- Me.txIdField = value
- End Set
- End Property
-
- '''
- Public Property MndtId() As String
- Get
- Return Me.mndtIdField
- End Get
- Set
- Me.mndtIdField = value
- End Set
- End Property
-
- '''
- Public Property ChqNb() As String
- Get
- Return Me.chqNbField
- End Get
- Set
- Me.chqNbField = value
- End Set
- End Property
-
- '''
- Public Property ClrSysRef() As String
- Get
- Return Me.clrSysRefField
- End Get
- Set
- Me.clrSysRefField = value
- End Set
- End Property
-
- '''
- Public Property AcctOwnrTxId() As String
- Get
- Return Me.acctOwnrTxIdField
- End Get
- Set
- Me.acctOwnrTxIdField = value
- End Set
- End Property
-
- '''
- Public Property AcctSvcrTxId() As String
- Get
- Return Me.acctSvcrTxIdField
- End Get
- Set
- Me.acctSvcrTxIdField = value
- End Set
- End Property
-
- '''
- Public Property MktInfrstrctrTxId() As String
- Get
- Return Me.mktInfrstrctrTxIdField
- End Get
- Set
- Me.mktInfrstrctrTxIdField = value
- End Set
- End Property
-
- '''
- Public Property PrcgId() As String
- Get
- Return Me.prcgIdField
- End Get
- Set
- Me.prcgIdField = value
- End Set
- End Property
-
- '''
- _
- Public Property Prtry() As ProprietaryReference1()
- Get
- Return Me.prtryField
- End Get
- Set
- Me.prtryField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class EntryTransaction4
-
- Private refsField As TransactionReferences3
-
- Private amtField As ActiveOrHistoricCurrencyAndAmount
-
- Private cdtDbtIndField As CreditDebitCode
-
- Private amtDtlsField As AmountAndCurrencyExchange3
-
- Private avlbtyField() As CashBalanceAvailability2
-
- Private bkTxCdField As BankTransactionCodeStructure4
-
- Private chrgsField As Charges4
-
- Private intrstField As TransactionInterest3
-
- Private rltdPtiesField As TransactionParties3
-
- Private rltdAgtsField As TransactionAgents3
-
- Private purpField As Purpose2Choice
-
- Private rltdRmtInfField() As RemittanceLocation2
-
- Private rmtInfField As RemittanceInformation7
-
- Private rltdDtsField As TransactionDates2
-
- Private rltdPricField As TransactionPrice3Choice
-
- Private rltdQtiesField() As TransactionQuantities2Choice
-
- Private finInstrmIdField As SecurityIdentification14
-
- Private taxField As TaxInformation3
-
- Private rtrInfField As PaymentReturnReason2
-
- Private corpActnField As CorporateAction9
-
- Private sfkpgAcctField As SecuritiesAccount13
-
- Private cshDpstField() As CashDeposit1
-
- Private cardTxField As CardTransaction1
-
- Private addtlTxInfField As String
-
- Private splmtryDataField() As SupplementaryData1
-
- '''
- Public Property Refs() As TransactionReferences3
- Get
- Return Me.refsField
- End Get
- Set
- Me.refsField = value
- End Set
- End Property
-
- '''
- Public Property Amt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.amtField
- End Get
- Set
- Me.amtField = value
- End Set
- End Property
-
- '''
- Public Property CdtDbtInd() As CreditDebitCode
- Get
- Return Me.cdtDbtIndField
- End Get
- Set
- Me.cdtDbtIndField = value
- End Set
- End Property
-
- '''
- Public Property AmtDtls() As AmountAndCurrencyExchange3
- Get
- Return Me.amtDtlsField
- End Get
- Set
- Me.amtDtlsField = value
- End Set
- End Property
-
- '''
- _
- Public Property Avlbty() As CashBalanceAvailability2()
- Get
- Return Me.avlbtyField
- End Get
- Set
- Me.avlbtyField = value
- End Set
- End Property
-
- '''
- Public Property BkTxCd() As BankTransactionCodeStructure4
- Get
- Return Me.bkTxCdField
- End Get
- Set
- Me.bkTxCdField = value
- End Set
- End Property
-
- '''
- Public Property Chrgs() As Charges4
- Get
- Return Me.chrgsField
- End Get
- Set
- Me.chrgsField = value
- End Set
- End Property
-
- '''
- Public Property Intrst() As TransactionInterest3
- Get
- Return Me.intrstField
- End Get
- Set
- Me.intrstField = value
- End Set
- End Property
-
- '''
- Public Property RltdPties() As TransactionParties3
- Get
- Return Me.rltdPtiesField
- End Get
- Set
- Me.rltdPtiesField = value
- End Set
- End Property
-
- '''
- Public Property RltdAgts() As TransactionAgents3
- Get
- Return Me.rltdAgtsField
- End Get
- Set
- Me.rltdAgtsField = value
- End Set
- End Property
-
- '''
- Public Property Purp() As Purpose2Choice
- Get
- Return Me.purpField
- End Get
- Set
- Me.purpField = value
- End Set
- End Property
-
- '''
- _
- Public Property RltdRmtInf() As RemittanceLocation2()
- Get
- Return Me.rltdRmtInfField
- End Get
- Set
- Me.rltdRmtInfField = value
- End Set
- End Property
-
- '''
- Public Property RmtInf() As RemittanceInformation7
- Get
- Return Me.rmtInfField
- End Get
- Set
- Me.rmtInfField = value
- End Set
- End Property
-
- '''
- Public Property RltdDts() As TransactionDates2
- Get
- Return Me.rltdDtsField
- End Get
- Set
- Me.rltdDtsField = value
- End Set
- End Property
-
- '''
- Public Property RltdPric() As TransactionPrice3Choice
- Get
- Return Me.rltdPricField
- End Get
- Set
- Me.rltdPricField = value
- End Set
- End Property
-
- '''
- _
- Public Property RltdQties() As TransactionQuantities2Choice()
- Get
- Return Me.rltdQtiesField
- End Get
- Set
- Me.rltdQtiesField = value
- End Set
- End Property
-
- '''
- Public Property FinInstrmId() As SecurityIdentification14
- Get
- Return Me.finInstrmIdField
- End Get
- Set
- Me.finInstrmIdField = value
- End Set
- End Property
-
- '''
- Public Property Tax() As TaxInformation3
- Get
- Return Me.taxField
- End Get
- Set
- Me.taxField = value
- End Set
- End Property
-
- '''
- Public Property RtrInf() As PaymentReturnReason2
- Get
- Return Me.rtrInfField
- End Get
- Set
- Me.rtrInfField = value
- End Set
- End Property
-
- '''
- Public Property CorpActn() As CorporateAction9
- Get
- Return Me.corpActnField
- End Get
- Set
- Me.corpActnField = value
- End Set
- End Property
-
- '''
- Public Property SfkpgAcct() As SecuritiesAccount13
- Get
- Return Me.sfkpgAcctField
- End Get
- Set
- Me.sfkpgAcctField = value
- End Set
- End Property
-
- '''
- _
- Public Property CshDpst() As CashDeposit1()
- Get
- Return Me.cshDpstField
- End Get
- Set
- Me.cshDpstField = value
- End Set
- End Property
-
- '''
- Public Property CardTx() As CardTransaction1
- Get
- Return Me.cardTxField
- End Get
- Set
- Me.cardTxField = value
- End Set
- End Property
-
- '''
- Public Property AddtlTxInf() As String
- Get
- Return Me.addtlTxInfField
- End Get
- Set
- Me.addtlTxInfField = value
- End Set
- End Property
-
- '''
- _
- Public Property SplmtryData() As SupplementaryData1()
- Get
- Return Me.splmtryDataField
- End Get
- Set
- Me.splmtryDataField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class AmountAndCurrencyExchange3
-
- Private instdAmtField As AmountAndCurrencyExchangeDetails3
-
- Private txAmtField As AmountAndCurrencyExchangeDetails3
-
- Private cntrValAmtField As AmountAndCurrencyExchangeDetails3
-
- Private anncdPstngAmtField As AmountAndCurrencyExchangeDetails3
-
- Private prtryAmtField() As AmountAndCurrencyExchangeDetails4
-
- '''
- Public Property InstdAmt() As AmountAndCurrencyExchangeDetails3
- Get
- Return Me.instdAmtField
- End Get
- Set
- Me.instdAmtField = value
- End Set
- End Property
-
- '''
- Public Property TxAmt() As AmountAndCurrencyExchangeDetails3
- Get
- Return Me.txAmtField
- End Get
- Set
- Me.txAmtField = value
- End Set
- End Property
-
- '''
- Public Property CntrValAmt() As AmountAndCurrencyExchangeDetails3
- Get
- Return Me.cntrValAmtField
- End Get
- Set
- Me.cntrValAmtField = value
- End Set
- End Property
-
- '''
- Public Property AnncdPstngAmt() As AmountAndCurrencyExchangeDetails3
- Get
- Return Me.anncdPstngAmtField
- End Get
- Set
- Me.anncdPstngAmtField = value
- End Set
- End Property
-
- '''
- _
- Public Property PrtryAmt() As AmountAndCurrencyExchangeDetails4()
- Get
- Return Me.prtryAmtField
- End Get
- Set
- Me.prtryAmtField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class AmountAndCurrencyExchangeDetails3
-
- Private amtField As ActiveOrHistoricCurrencyAndAmount
-
- Private ccyXchgField As CurrencyExchange5
-
- '''
- Public Property Amt() As ActiveOrHistoricCurrencyAndAmount
- Get
- Return Me.amtField
- End Get
- Set
- Me.amtField = value
- End Set
- End Property
-
- '''
- Public Property CcyXchg() As CurrencyExchange5
- Get
- Return Me.ccyXchgField
- End Get
- Set
- Me.ccyXchgField = value
- End Set
- End Property
-End Class
-
-'''
- _
-Partial Public Class CurrencyExchange5
-
- Private srcCcyField As String
-
- Private trgtCcyField As String
-
- Private unitCcyField As String
-
- Private xchgRateField As Decimal
-
- Private ctrctIdField As String
-
- Private qtnDtField As Date
-
- Private qtnDtFieldSpecified As Boolean
-
- '''