main
Stefan Hutter 1 year ago
commit 59a8e4d6b9

@ -0,0 +1,8 @@
touch README.md
git init
git checkout -b main
git add README.md
git commit -m "first commit"
git remote add origin https://gitea.shubweb.ch/shu/Logbuch.git
git push -u origin main
pause

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

@ -0,0 +1,123 @@
{
"Version": 1,
"WorkspaceRootPath": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\",
"Documents": [
{
"AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|e:\\software-projekte\\tkbdiverse\\logbuch\\logbuch\\logbuch\\logbuch\\frmschuldbrief.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
"RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\logbuch\\frmschuldbrief.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
},
{
"AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\logbuch\\logbuch\\frmschuldbrief.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
"RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\logbuch\\frmschuldbrief.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
},
{
"AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\logbuch\\logbuch\\frmpolice.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
"RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\logbuch\\frmpolice.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
},
{
"AbsoluteMoniker": "D:0:0:{00000000-0000-0000-0000-000000000000}|\u003CSolution\u003E|Logbuch||{04B8AB82-A572-4FEF-95CE-5222444B6B64}|"
},
{
"AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\logbuch\\klassen\\clsdbhandling.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}",
"RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\klassen\\clsdbhandling.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}"
},
{
"AbsoluteMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\logbuch\\logbuch\\frmpolice.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form",
"RelativeMoniker": "D:0:0:{8A404216-38A9-4305-9BA2-04CD2AC20F32}|Logbuch\\Logbuch.vbproj|solutionrelative:logbuch\\logbuch\\frmpolice.vb||{2C015C70-C72C-11D0-88C3-00A0C9110049}|Form"
}
],
"DocumentGroupContainers": [
{
"Orientation": 0,
"VerticalTabListWidth": 256,
"DocumentGroups": [
{
"DockedWidth": 200,
"SelectedChildIndex": 4,
"Children": [
{
"$type": "Document",
"DocumentIndex": 4,
"Title": "clsdbhandling.vb",
"DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Klassen\\clsdbhandling.vb",
"RelativeDocumentMoniker": "Logbuch\\Klassen\\clsdbhandling.vb",
"ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Klassen\\clsdbhandling.vb",
"RelativeToolTip": "Logbuch\\Klassen\\clsdbhandling.vb",
"ViewState": "AQIAACwBAAAAAAAAAAAmwD4BAAAIAAAA",
"Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
"WhenOpened": "2024-10-29T19:26:52.272Z",
"IsPinned": true
},
{
"$type": "Bookmark",
"Name": "ST:0:0:{b1e99781-ab81-11d0-b683-00aa00a3ee26}"
},
{
"$type": "Bookmark",
"Name": "ST:0:0:{aa2115a1-9712-457b-9047-dbb71ca2cdd2}"
},
{
"$type": "Document",
"DocumentIndex": 1,
"Title": "frmSchuldbrief.vb [Entwurf]",
"DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmSchuldbrief.vb",
"RelativeDocumentMoniker": "Logbuch\\Logbuch\\frmSchuldbrief.vb",
"ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmSchuldbrief.vb [Entwurf]",
"RelativeToolTip": "Logbuch\\Logbuch\\frmSchuldbrief.vb [Entwurf]",
"Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
"WhenOpened": "2024-10-30T05:30:45.961Z",
"EditorCaption": " [Entwurf]"
},
{
"$type": "Document",
"DocumentIndex": 0,
"Title": "frmSchuldbrief.vb",
"DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmSchuldbrief.vb",
"RelativeDocumentMoniker": "Logbuch\\Logbuch\\frmSchuldbrief.vb",
"ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmSchuldbrief.vb",
"RelativeToolTip": "Logbuch\\Logbuch\\frmSchuldbrief.vb",
"ViewState": "AQIAAAcAAAAAAAAAAAAkwNcAAAAAAAAA",
"Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
"WhenOpened": "2024-10-30T04:57:11.392Z",
"EditorCaption": ""
},
{
"$type": "Document",
"DocumentIndex": 3,
"Title": "Logbuch",
"DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch.vbproj",
"RelativeDocumentMoniker": "Logbuch\\Logbuch.vbproj",
"ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch.vbproj",
"RelativeToolTip": "Logbuch\\Logbuch.vbproj",
"Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.001001|",
"WhenOpened": "2024-10-30T05:24:21.959Z"
},
{
"$type": "Document",
"DocumentIndex": 2,
"Title": "frmPolice.vb",
"DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmPolice.vb",
"RelativeDocumentMoniker": "Logbuch\\Logbuch\\frmPolice.vb",
"ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmPolice.vb",
"RelativeToolTip": "Logbuch\\Logbuch\\frmPolice.vb",
"ViewState": "AQIAADQBAAAAAAAAAAAAwD8BAAAAAAAA",
"Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
"WhenOpened": "2024-10-29T19:26:52.265Z"
},
{
"$type": "Document",
"DocumentIndex": 5,
"Title": "frmPolice.vb [Entwurf]",
"DocumentMoniker": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmPolice.vb",
"RelativeDocumentMoniker": "Logbuch\\Logbuch\\frmPolice.vb",
"ToolTip": "E:\\Software-Projekte\\TKBDiverse\\Logbuch\\Logbuch\\Logbuch\\Logbuch\\frmPolice.vb [Entwurf]",
"RelativeToolTip": "Logbuch\\Logbuch\\frmPolice.vb [Entwurf]",
"Icon": "ae27a6b0-e345-4288-96df-5eaf394ee369.003361|",
"WhenOpened": "2024-10-29T19:28:45.98Z"
}
]
}
]
}
]
}

@ -0,0 +1,84 @@
ALTER TABLE Logbuch ADD LSNr VARCHAR(255)
GO
ALTER TABLE Logbuch ADD GrundBuchNr INT
GO
UPDATE logbuch SET grundbuchnr=0
UPDATE logbuch SET lsnr=''
USE [logbuch]
GO
/****** Object: Table [dbo].[Grundbuch] Script Date: 26.11.2017 11:16:51 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_PADDING ON
GO
CREATE TABLE [dbo].[Grundbuch](
[GrundbuchNr] [INT] IDENTITY(1,1) NOT NULL,
[Grundbuch] [VARCHAR](255) NULL,
[Aktiv] [BIT] NULL,
CONSTRAINT [PK_Grundbuch] PRIMARY KEY CLUSTERED
(
[GrundbuchNr] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]
GO
SET ANSI_PADDING OFF
GO
USE [logbuch]
GO
/****** Object: StoredProcedure [dbo].[SP_Anzeige] Script Date: 26.11.2017 15:26:08 ******/
DROP PROCEDURE [dbo].[SP_Anzeige]
GO
/****** Object: StoredProcedure [dbo].[SP_Anzeige] Script Date: 26.11.2017 15:26:08 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[SP_Anzeige]
@partner VARCHAR(25),
@modus INT = 1 -- 1 -> schuldbriefe, 0 -> policen
AS
IF @modus = 1 BEGIN
SELECT Logbuch.*, Partner.BKPAR00, Benutzer.Kurzzeichen AS UserKurzzeichen, Bemerkungen.Bemerkung AS XBemerkung,
Gegenpartei.Bezeichnung AS XGegenpartei , LEFT(RIGHT(REPLICATE('0',8) + CAST(partnernr AS VARCHAR(8)),8),4)+'.'+RIGHT(RIGHT(REPLICATE('0',8)+CAST(partnernr AS VARCHAR(8)),8),4) AS PnrAufbereitet,
grundbuch.Grundbuch
FROM Logbuch
INNER JOIN Gegenpartei ON Logbuch.Gegenpartei = Gegenpartei.Gegenparteinr
LEFT OUTER JOIN Grundbuch ON Logbuch.Grundbuchnr = Grundbuch.Grundbuchnr
LEFT OUTER JOIN Bemerkungen ON Logbuch.Stdbemerkung = Bemerkungen.Bemerkungsnr
LEFT OUTER JOIN Benutzer ON Logbuch.Mitarbeiter = Benutzer.NrBenutzer
LEFT OUTER JOIN dbo.Partner ON Logbuch.Partnernr = dbo.Partner.NRPAR00
WHERE Partnernr = @partner
END ELSE IF @modus = 0 BEGIN
SELECT Policen.*, Partner.BKPAR00, Benutzer.Kurzzeichen AS UserKurzzeichen, Bemerkungen.Bemerkung AS XBemerkung,
Gegenpartei.Bezeichnung AS XGegenpartei , LEFT(RIGHT(REPLICATE('0',8) + CAST(partnernr AS VARCHAR(8)),8),4)+'.'+RIGHT(RIGHT(REPLICATE('0',8)+CAST(partnernr AS VARCHAR(8)),8),4) AS PnrAufbereitet,
dbo.Versgesellschaften.Bezeichnung AS Versgesellschaft
FROM Policen
INNER JOIN Gegenpartei ON Policen.Gegenpartei = Gegenpartei.Gegenparteinr
LEFT OUTER JOIN dbo.Versgesellschaften ON policen.VersgesellschaftId = dbo.Versgesellschaften.VersgesellschaftId
LEFT OUTER JOIN Bemerkungen ON Policen.Stdbemerkung = Bemerkungen.Bemerkungsnr
LEFT OUTER JOIN Benutzer ON Policen.MitarbeiterNr = Benutzer.NrBenutzer
LEFT OUTER JOIN dbo.Partner ON Policen.Partnernr = dbo.Partner.NRPAR00
WHERE Partnernr = @partner
END
GO

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

@ -0,0 +1 @@
¹µÈ¦rȽ¹¿¸ª‰ Œ¢‰¢§˜…|˜˜”žœs•½Â®Æ¾¯°m¸¦À­±Á¯È»¦¿È{ªÇ»³Æ‡µ·ºÈ½Ç¹rȳ§ÂÇ®ÀÅe»¶»Ã³ÁÁ©ˆÌ´¾·¸Æ©É½Ã³r¾²ˆÅ¦¯·ªÆhȽڏ‰~}ƒº¿±·r±¹¸§³ÂÁªÇ»€¼­¸Å¿ÄƸ¶·¯±À»¿²~wƒ

@ -0,0 +1 @@
¹µÈ¦rȽ¹¿¸ª‰ Œ¢”¤¥™t}ƒ™“”¤˜ƒ—œ€»Ã·¸¶¶±l¯¦Æ©Áû¾Äµ¦Â¸­‡¼ªÄ»¾ÇÈeź±¹¿¾¹Ål®À®Äš¦¾È³ÄÄ··¿¹³¼¾ÃÂe»¹½¶¨·±¹r»¾Î¹†…‡zˆÊ¸±¾e»¬¸¶±Á¼°¹°½€¼­¸Å¿ÄƸ¶·º³´·º¯´w„¸

@ -0,0 +1,23 @@
<?xml version="1.0"?>
<configuration>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>

@ -0,0 +1,23 @@
<?xml version="1.0"?>
<configuration>
<system.diagnostics>
<sources>
<!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
<source name="DefaultSource" switchName="DefaultSwitch">
<listeners>
<add name="FileLog"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog"/>-->
</listeners>
</source>
</sources>
<switches>
<add name="DefaultSwitch" value="Information"/>
</switches>
<sharedListeners>
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
<!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
</sharedListeners>
</system.diagnostics>
<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>

@ -0,0 +1,11 @@
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
<security>
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
<requestedExecutionLevel level="asInvoker" uiAccess="false"/>
</requestedPrivileges>
</security>
</trustInfo>
</assembly>

@ -0,0 +1,24 @@
<?xml version="1.0"?>
<doc>
<assembly>
<name>
TKBCRReporting
</name>
</assembly>
<members>
<member name="P:CrystalReportsApplication1.My.Resources.Resources.ResourceManager">
<summary>
Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
</summary>
</member><member name="P:CrystalReportsApplication1.My.Resources.Resources.Culture">
<summary>
Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
</summary>
</member><member name="T:CrystalReportsApplication1.My.Resources.Resources">
<summary>
Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
</summary>
</member>
</members>
</doc>

@ -0,0 +1 @@
AcpxZPPiXKddDph[A_wdh]qUzt;bnYgbullSXiQr<vz@PeiI\awdl;XI?VblIjje>HQO;oL?N\h[^ieVu]a\a^wmE@KsBQhKvMWURwuCNZV_o<aQNbwNY\oMD\ED=PFR\KYhAadxxIYK^>VirVER\B@XT[RhD_OPupfaNDT]Iqp;RC_\]\xiNkooKXoTEZWa\\G

@ -0,0 +1,457 @@
USE [logbuch]
GO
/****** Object: StoredProcedure [dbo].[sp_get_dbkey] Script Date: 28.09.2017 15:37:18 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
CREATE PROCEDURE [dbo].[sp_get_dbkey]
@tablename varchar(255),
@dbkey int output,
@iErrorcode int output
AS
BEGIN
declare @zwkey int
select @zwkey = key_wert from key_tabelle where beschreibung = @tablename
set @zwkey = @zwkey + 1
update key_tabelle set key_wert = @zwkey where beschreibung=@tablename
select @dbkey = @zwkey
select @iErrorCode=@@Error
END
GO
/****** Object: StoredProcedure [dbo].[pr_spalten_Delete] Script Date: 28.09.2017 15:37:18 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
---------------------------------------------------------------------------------
-- Stored procedure that will delete an existing row from the table 'spalten'
-- using the Primary Key.
-- Gets: @ieintragnr int
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_spalten_Delete]
@ieintragnr INT,
@iErrorCode INT OUTPUT
AS
SET NOCOUNT ON
-- DELETE an existing row from the table.
DELETE FROM [dbo].[spalten]
WHERE
[eintragnr] = @ieintragnr
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
/****** Object: StoredProcedure [dbo].[pr_spalten_Insert] Script Date: 28.09.2017 15:37:18 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
---------------------------------------------------------------------------------
-- Stored procedure that will insert 1 row in the table 'spalten'
-- Gets: @ieintragnr int
-- Gets: @stabelle varchar(255)
-- Gets: @stabellenspalte varchar(255)
-- Gets: @sspalte varchar(255)
-- Gets: @bReadonly bit
-- Gets: @balsHacken bit
-- Gets: @iBreite int
-- Gets: @iReihenfolge int
-- Gets: @stiptext varchar(255)
-- Gets: @baktiv bit
-- Gets: @daerstellt_am datetime
-- Gets: @damutiert_am datetime
-- Gets: @imutierer int
-- Gets: @imandantnr int
-- Gets: @sNumberFormat varchar(255)
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_spalten_Insert]
@ieintragnr INT,
@stabelle VARCHAR(255),
@stabellenspalte VARCHAR(255),
@sspalte VARCHAR(255),
@bReadonly BIT,
@balsHacken BIT,
@iBreite INT,
@iReihenfolge INT,
@stiptext VARCHAR(255),
@baktiv BIT,
@daerstellt_am DATETIME,
@damutiert_am DATETIME,
@imutierer INT,
@imandantnr INT,
@sNumberFormat VARCHAR(255),
@iErrorCode INT OUTPUT
AS
SET NOCOUNT ON
-- INSERT a new row in the table.
INSERT [dbo].[spalten]
(
[eintragnr],
[tabelle],
[tabellenspalte],
[spalte],
[Readonly],
[alsHacken],
[Breite],
[Reihenfolge],
[tiptext],
[aktiv],
[erstellt_am],
[mutiert_am],
[mutierer],
[mandantnr],
[NumberFormat]
)
VALUES
(
@ieintragnr,
@stabelle,
@stabellenspalte,
@sspalte,
@bReadonly,
@balsHacken,
@iBreite,
@iReihenfolge,
@stiptext,
@baktiv,
@daerstellt_am,
@damutiert_am,
@imutierer,
@imandantnr,
@sNumberFormat
)
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
/****** Object: StoredProcedure [dbo].[pr_spalten_SelectAll_Aktiv] Script Date: 28.09.2017 15:37:18 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
CREATE PROCEDURE [dbo].[pr_spalten_SelectAll_Aktiv]
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- SELECT all rows from the table.
SELECT
[eintragnr],
tabelle,
tabellenspalte,
[spalte],
[Readonly],
[alsHacken],
[Breite],
[Reihenfolge],
[tiptext],
[aktiv],
[erstellt_am],
[mutiert_am],
[mutierer],
[mandantnr],
[numberformat]
FROM [dbo].[spalten]
Where aktiv=1
ORDER BY
[eintragnr] ASC
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
/****** Object: StoredProcedure [dbo].[pr_spalten_SelectAll] Script Date: 28.09.2017 15:37:18 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
---------------------------------------------------------------------------------
-- Stored procedure that will select all rows from the table 'spalten'
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_spalten_SelectAll]
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- SELECT all rows from the table.
SELECT
[eintragnr],
[tabelle],
[tabellenspalte],
[spalte],
[Readonly],
[alsHacken],
[Breite],
[Reihenfolge],
[tiptext],
[aktiv],
[erstellt_am],
[mutiert_am],
[mutierer],
[mandantnr],
[NumberFormat]
FROM [dbo].[spalten]
ORDER BY
[eintragnr] ASC
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
/****** Object: StoredProcedure [dbo].[pr_spalten_Update] Script Date: 28.09.2017 15:37:18 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
---------------------------------------------------------------------------------
-- Stored procedure that will update an existing row in the table 'spalten'
-- Gets: @ieintragnr int
-- Gets: @stabelle varchar(255)
-- Gets: @stabellenspalte varchar(255)
-- Gets: @sspalte varchar(255)
-- Gets: @bReadonly bit
-- Gets: @balsHacken bit
-- Gets: @iBreite int
-- Gets: @iReihenfolge int
-- Gets: @stiptext varchar(255)
-- Gets: @baktiv bit
-- Gets: @daerstellt_am datetime
-- Gets: @damutiert_am datetime
-- Gets: @imutierer int
-- Gets: @imandantnr int
-- Gets: @sNumberFormat varchar(255)
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_spalten_Update]
@ieintragnr int,
@stabelle varchar(255),
@stabellenspalte varchar(255),
@sspalte varchar(255),
@bReadonly bit,
@balsHacken bit,
@iBreite int,
@iReihenfolge int,
@stiptext varchar(255),
@baktiv bit,
@daerstellt_am datetime,
@damutiert_am datetime,
@imutierer int,
@imandantnr int,
@sNumberFormat varchar(255),
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- UPDATE an existing row in the table.
UPDATE [dbo].[spalten]
SET
[tabelle] = @stabelle,
[tabellenspalte] = @stabellenspalte,
[spalte] = @sspalte,
[Readonly] = @bReadonly,
[alsHacken] = @balsHacken,
[Breite] = @iBreite,
[Reihenfolge] = @iReihenfolge,
[tiptext] = @stiptext,
[aktiv] = @baktiv,
[erstellt_am] = @daerstellt_am,
[mutiert_am] = @damutiert_am,
[mutierer] = @imutierer,
[mandantnr] = @imandantnr,
[NumberFormat] = @sNumberFormat
WHERE
[eintragnr] = @ieintragnr
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
/****** Object: StoredProcedure [dbo].[pr_spalten_SelectOne] Script Date: 28.09.2017 15:37:18 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
---------------------------------------------------------------------------------
-- Stored procedure that will select an existing row from the table 'spalten'
-- based on the Primary Key.
-- Gets: @ieintragnr int
-- Returns: @iErrorCode int
---------------------------------------------------------------------------------
CREATE PROCEDURE [dbo].[pr_spalten_SelectOne]
@ieintragnr int,
@iErrorCode int OUTPUT
AS
SET NOCOUNT ON
-- SELECT an existing row from the table.
SELECT
[eintragnr],
[tabelle],
[tabellenspalte],
[spalte],
[Readonly],
[alsHacken],
[Breite],
[Reihenfolge],
[tiptext],
[aktiv],
[erstellt_am],
[mutiert_am],
[mutierer],
[mandantnr],
[NumberFormat]
FROM [dbo].[spalten]
WHERE
[eintragnr] = @ieintragnr
-- Get the Error Code for the statement just executed.
SELECT @iErrorCode=@@ERROR
GO
/****** Object: StoredProcedure [dbo].[sp_update_spalten] Script Date: 28.09.2017 15:37:18 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
CREATE PROCEDURE [dbo].[sp_update_spalten]
@tablename varchar(255)
AS
begin
declare @len int
declare @inhalt varchar(30)
declare @col varchar(30)
declare @readonly int
declare @dbkey int
declare @alshacken int
declare @ierrorcode int
declare @spaltenkey int
declare @aktiv int
declare @tiptext varchar(255)
declare xcursor cursor for
SELECT column_name
from INFORMATION_SCHEMA.Columns
where table_name = @tablename
open xcursor
FETCH NEXT FROM xcursor into @col
WHILE @@FETCH_STATUS = 0 BEGIN
execute sp_get_dbkey 'spalten', @dbkey output, @ierrorcode output
set @spaltenkey=@dbkey
set @inhalt=@col
set @readonly=0
set @aktiv=1
set @tiptext=''
set @len=100
set @alshacken=0
if upper(@col)='ERSTELLT_AM' begin
set @inhalt='Erstellungsdatum'
set @len=100
set @readonly=1
end
if upper(@col)='MUTIERT_AM' begin
set @inhalt='Mutationsdatum'
set @len=100
set @readonly=1
end
if upper(@col)='MUTIERER' begin
set @inhalt='Mutiert durch'
set @len=40
set @readonly=1
end
if upper(@col)='AKTIV' begin
set @inhalt='Aktiv'
set @len=40
set @alshacken=0
end
insert into spalten (eintragnr,tabelle,tabellenspalte,spalte,readonly,aktiv,erstellt_am, mutiert_am,mutierer,mandantnr,alsHacken,tiptext, breite, reihenfolge)
values(@spaltenkey,@tablename,@col,@inhalt,@readonly,@aktiv,getdate(),getdate(),-1,1,@alshacken,@tiptext,@len,0)
FETCH NEXT FROM xcursor into @col
end
close xcursor
deallocate xcursor
end
GO

Binary file not shown.

Binary file not shown.

After

Width:  |  Height:  |  Size: 174 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 161 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 682 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 766 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 17 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 4.8 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 211 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 680 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.0 MiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 21 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.4 MiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.2 KiB

@ -0,0 +1,22 @@

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 15
VisualStudioVersion = 15.0.26228.4
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Logbuch", "Logbuch\Logbuch.vbproj", "{8A404216-38A9-4305-9BA2-04CD2AC20F32}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{8A404216-38A9-4305-9BA2-04CD2AC20F32}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{8A404216-38A9-4305-9BA2-04CD2AC20F32}.Debug|Any CPU.Build.0 = Debug|Any CPU
{8A404216-38A9-4305-9BA2-04CD2AC20F32}.Release|Any CPU.ActiveCfg = Release|Any CPU
{8A404216-38A9-4305-9BA2-04CD2AC20F32}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

@ -0,0 +1,21 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
<section name="Logbuch.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup>
</configSections>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5" />
</startup>
<userSettings>
<Logbuch.My.MySettings>
<setting name="Waehrung" serializeAs="String">
<value>CHF</value>
</setting>
<setting name="NumRegex" serializeAs="String">
<value>[^0-9.]</value>
</setting>
</Logbuch.My.MySettings>
</userSettings>
</configuration>

@ -0,0 +1,61 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
Public Class clsMyKey_Tabelle
Inherits db.clsKey_tabelle
Public Function get_dbkey(ByVal Tablename As String) As Long
Dim m_dbkey As Long
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename))
scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
Try
scmCmdToExecute.Connection.Open()
Catch ex As Exception
Finally
End Try
scmCmdToExecute.ExecuteNonQuery()
m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
scmCmdToExecute.Connection.Close()
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return m_dbkey
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
End Class
End Namespace

@ -0,0 +1,59 @@
Imports System.IO
Namespace DB
''' <summary>
''' Dynamische Datenbank-Verbindung aufbauen. Verwendet wird standardmässig Vertragsverwaltung.cfg.
''' Sollen Datenbank-Verbindungen zur Auswahl angezeigt werden, werden sämntliche Datenbank-Verbindungsdateien
''' mit dem Namen "Vertragsverwaltung....cfg" berücksichtigt
''' </summary>
''' <remarks></remarks>
Public Class DB_Connection
''' <summary>
''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
'''
''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
''' </summary>
''' <remarks></remarks>
Shared Sub New()
Dim fc As Integer = 0
If Globals.ConnectionFileName.Length = 0 Then
Dim Dir As DirectoryInfo = New DirectoryInfo(Application.StartupPath)
Try
Dim f As New frmDatenbankauswahl()
Dim ChildFile As FileInfo
For Each ChildFile In Dir.GetFiles()
If UCase(Left(ChildFile.Name, 14)) = "LOGBUCH" And UCase(ChildFile.Extension) = ".CFG" Then
f.ListBox1.Items.Add(ChildFile.Name)
fc = fc + 1
End If
Next
If fc > 1 Then
f.ListBox1.SelectedIndex = 0
f.ListBox1.Select()
f.ShowDialog()
Globals.ConnectionFileName = f.ListBox1.SelectedItem
f.Dispose()
End If
Catch except As Exception
fc = 0
Exit Sub
End Try
End If
If fc < 2 Then Globals.ConnectionFileName = "LOGBUCH.cfg"
Dim ofile As System.IO.File
Dim oread As System.IO.StreamReader
oread = ofile.OpenText(Application.StartupPath + "\" + Globals.ConnectionFileName)
sConnectionString = oread.ReadLine
sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
sConnectionString = Left(sConnectionString, Len(sConnectionString) - 1)
Globals.sConnectionString = sConnectionString
Globals.conn.sConnectionString = sConnectionString
oread.Close()
End Sub
End Class
End Namespace

@ -0,0 +1,138 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAICAEAAAAAADoAgAAFgAAACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//
AAD///8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAzd3d3MzMzAAAAAAAAAAAAM3d3dzMzMwAAAAAAAAAAM3eIiIi7MzMzAAAAAAAA
ADN3iIiIuzMzMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAA
AAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7
MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uI
iIi7uzMzAAAAAAAAAHe7iIiIu7szMwAAAAAAAAB3u4iIiLu7MzMAAAAAAAAAd7uIiIi7uzMzAAAAAAAA
AHe7iIiIiIi7dwAAAAAAAAB3u4iIiIiIu3cAAAAAAAAAiIj//////4h3AAAAAAAAAIiI//////+IdwAA
AAAAAAAzd3d3d3d3dzMAAAAAAAAAM3d3d3d3d3czAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD//////////////////////AAA//wA
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//AAA//wA
AP/8AAD//AAA//wAAP/8AAD//AAA//wAAP/8AAD//////////////////////w==
</value>
</data>
</root>

@ -0,0 +1,95 @@
''' <summary>
''' Form für die Datenbankauswahl
''' </summary>
''' <remarks></remarks>
Public Class frmDatenbankauswahl
Inherits System.Windows.Forms.Form
#Region " Vom Windows Form Designer generierter Code "
Public Sub New()
MyBase.New()
' Dieser Aufruf ist für den Windows Form-Designer erforderlich.
InitializeComponent()
' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
End Sub
' Die Form überschreibt den Löschvorgang der Basisklasse, um Komponenten zu bereinigen.
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
' Für Windows Form-Designer erforderlich
Private components As System.ComponentModel.IContainer
'HINWEIS: Die folgende Prozedur ist für den Windows Form-Designer erforderlich
'Sie kann mit dem Windows Form-Designer modifiziert werden.
'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents Button1 As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmDatenbankauswahl))
Me.ListBox1 = New System.Windows.Forms.ListBox
Me.Button1 = New System.Windows.Forms.Button
Me.SuspendLayout()
'
'ListBox1
'
Me.ListBox1.Location = New System.Drawing.Point(16, 16)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(232, 95)
Me.ListBox1.TabIndex = 0
'
'Button1
'
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Button1.Location = New System.Drawing.Point(88, 128)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 1
Me.Button1.Text = "&OK"
'
'frmDatenbankauswahl
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(258, 165)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.ListBox1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "frmDatenbankauswahl"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Vertragsverwaltung: Datebbankauswahl"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub frmDatenbankauswahl_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
Me.Close()
End Sub
Private Sub ListBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ListBox1.KeyDown
If e.KeyCode = Keys.Enter Then Me.Close()
End Sub
End Class

@ -0,0 +1,289 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Connection Provider class for Database connection sharing
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
' // This class implements IDisposable.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Collections
Namespace DB
' /// <summary>
' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
' /// on a high level.
' /// </summary>
Public Class clsConnectionProvider
Implements IDisposable
#Region " Class Member Declarations "
Private m_scoDBConnection As SqlConnection
Private m_bIsTransactionPending, m_bIsDisposed As Boolean
Private m_stCurrentTransaction As SqlTransaction
Private m_alSavePoints As ArrayList
#End Region
Public Sub New()
' // Init the class
InitClass()
End Sub
' /// <summary>
' /// Purpose: Implements the IDispose' method Dispose.
' /// </summary>
Overloads Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
' /// <summary>
' /// Purpose: Implements the Dispose functionality.
' /// </summary>
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
' // Check to see if Dispose has already been called.
If Not m_bIsDisposed Then
If bIsDisposing Then
' // Dispose managed resources.
If Not (m_stCurrentTransaction Is Nothing) Then
m_stCurrentTransaction.Dispose()
m_stCurrentTransaction = Nothing
End If
If Not (m_scoDBConnection Is Nothing) Then
' // closing the connection will abort (rollback) any pending transactions
m_scoDBConnection.Close()
m_scoDBConnection.Dispose()
m_scoDBConnection = Nothing
End If
End If
End If
m_bIsDisposed = True
End Sub
' /// <summary>
' /// Purpose: Initializes class members.
' /// </summary>
Private Sub InitClass()
' // Create all the objects and initialize other members.
m_scoDBConnection = new SqlConnection()
m_bIsDisposed = False
m_stCurrentTransaction = Nothing
m_bIsTransactionPending = False
m_alSavePoints = new ArrayList()
End Sub
' /// <summary>
' /// Purpose: Opens the connection object.
' /// </summary>
' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
Public Function OpenConnection() As Boolean
Try
If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
' // It's already open.
Throw New Exception("OpenConnection::Connection is already open.")
End If
m_scoDBConnection.Open()
m_bIsTransactionPending = False
m_alSavePoints.Clear()
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
' /// </summary>
' /// <param name="sTransactionName">Name of the transaction to start</param>
' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
Public Function BeginTransaction(sTransactionName As String) As Boolean
Try
If m_bIsTransactionPending Then
' // no nested transactions allowed.
Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
End If
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // no open connection
Throw New Exception("BeginTransaction::Connection is not open.")
End If
' // begin the transaction and store the transaction object.
m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
m_bIsTransactionPending = True
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Commits a pending transaction on the open connection object of this class.
' /// </summary>
' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
Public Function CommitTransaction() As Boolean
Try
If Not m_bIsTransactionPending Then
' // no transaction pending
Throw New Exception("CommitTransaction::No transaction pending.")
End If
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // no open connection
Throw New Exception("CommitTransaction::Connection is not open.")
End if
' // commit the transaction
m_stCurrentTransaction.Commit()
m_bIsTransactionPending = False
m_stCurrentTransaction.Dispose()
m_stCurrentTransaction = Nothing
m_alSavePoints.Clear()
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Rolls back a pending transaction on the open connection object of this class,
' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
' /// </summary>
' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
Public Function RollbackTransaction(sTransactionToRollback As String) As Boolean
Try
If Not m_bIsTransactionPending Then
' // no transaction pending
Throw New Exception("RollbackTransaction::No transaction pending.")
End If
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // no open connection
Throw New Exception("RollbackTransaction::Connection is not open.")
End If
' // rollback the transaction
m_stCurrentTransaction.Rollback(sTransactionToRollback)
' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
' // can clean it up.
If Not m_alSavePoints.Contains(sTransactionToRollback) Then
' // it's not a savepoint
m_bIsTransactionPending = False
m_stCurrentTransaction.Dispose()
m_stCurrentTransaction = Nothing
m_alSavePoints.Clear()
End If
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
' /// with the given name.
' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
' /// </summary>
' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
Public Function SaveTransaction(sSavePointName As String) As Boolean
Try
If Not m_bIsTransactionPending Then
' // no transaction pending
Throw New Exception("SaveTransaction::No transaction pending.")
End If
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // no open connection
Throw New Exception("SaveTransaction::Connection is not open.")
End If
' // save the transaction
m_stCurrentTransaction.Save(sSavePointName)
' // Store the savepoint in the list.
m_alSavePoints.Add(sSavePointName)
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
' /// <summary>
' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
' /// transaction is commited, or aborted.
' /// </summary>
' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
' /// an error occurs</returns>
Public Function CloseConnection(bCommitPendingTransaction As Boolean) As Boolean
Try
If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
' // No open connection
Return False
End If
If m_bIsTransactionPending Then
If bCommitPendingTransaction Then
' // Commit the pending transaction
m_stCurrentTransaction.Commit()
Else
' // Rollback the pending transaction
m_stCurrentTransaction.Rollback()
End If
m_bIsTransactionPending = False
m_stCurrentTransaction.Dispose()
m_stCurrentTransaction = Nothing
m_alSavePoints.Clear()
End If
' // close the connection
m_scoDBConnection.Close()
Return True
Catch ex As Exception
' // bubble exception
Throw ex
End Try
End Function
#Region " Class Property Declarations "
Public ReadOnly Property stCurrentTransaction() As SqlTransaction
Get
Return m_stCurrentTransaction
End Get
End Property
Public ReadOnly Property bIsTransactionPending() As Boolean
Get
Return m_bIsTransactionPending
End Get
End Property
Public ReadOnly Property scoDBConnection() As SqlConnection
Get
Return m_scoDBConnection
End Get
End Property
Public WriteOnly Property sConnectionString() As String
Set (ByVal Value As String)
m_scoDBConnection.ConnectionString = Value
End Set
End Property
#End Region
End Class
End Namespace

@ -0,0 +1,208 @@
' //////////////////////////////////////////////////////////////////////////////////////////
' // Description: Base class for Database Interaction.
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
' // Because this class implements IDisposable, derived classes shouldn't do so.
' //////////////////////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Configuration
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Namespace DB
' /// <summary>
' /// Purpose: Error Enums used by this LLBL library.
' /// </summary>
Public Enum LLBLError
AllOk
' // Add more here (check the comma's!)
End Enum
' /// <summary>
' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
' /// </summary>
Public Interface ICommonDBAccess
Function Insert() As Boolean
Function Update() As Boolean
Function Delete() As Boolean
Function SelectOne() As DataTable
Function SelectAll() As DataTable
End Interface
' /// <summary>
' /// Purpose: Abstract base class for Database Interaction classes.
' /// </summary>
Public MustInherit Class clsDBInteractionBase
Implements IDisposable
Implements ICommonDBAccess
#Region " Class Member Declarations "
Protected m_scoMainConnection As SqlConnection
Protected m_iRowsAffected As Integer
Protected m_iErrorCode As SqlInt32
Protected m_bMainConnectionIsCreatedLocal As Boolean
Protected m_cpMainConnectionProvider As clsConnectionProvider
Private m_sConnectionString As String
Private m_bIsDisposed As Boolean
#End Region
' /// <summary>
' /// Purpose: Class constructor.
' /// </summary>
Public Sub New()
' // Initialize the class' members.
InitClass()
End Sub
' /// <summary>
' /// Purpose: Initializes class members.
' /// </summary>
Private Sub InitClass()
' // create all the objects and initialize other members.
m_scoMainConnection = new SqlConnection()
m_bMainConnectionIsCreatedLocal = True
m_cpMainConnectionProvider = Nothing
m_iErrorCode = New SqlInt32(LLBLError.AllOk)
m_bIsDisposed = False
End Sub
' /// <summary>
' /// Purpose: Implements the IDispose' method Dispose.
' /// </summary>
Overloads Public Sub Dispose() Implements IDisposable.Dispose
Dispose(True)
GC.SuppressFinalize(Me)
End Sub
' /// <summary>
' /// Purpose: Implements the Dispose functionality.
' /// </summary>
Overridable Overloads Protected Sub Dispose(ByVal bIsDisposing As Boolean)
' // Check to see if Dispose has already been called.
If Not m_bIsDisposed Then
If bIsDisposing Then
' // Dispose managed resources.
If m_bMainConnectionIsCreatedLocal Then
' // Object is created in this class, so destroy it here.
m_scoMainConnection.Close()
m_scoMainConnection.Dispose()
m_bMainConnectionIsCreatedLocal = True
End If
m_cpMainConnectionProvider = Nothing
m_scoMainConnection = Nothing
End If
End If
m_bIsDisposed = True
End Sub
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.Insert() method.
' /// </summary>
Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.Delete() method.
' /// </summary>
Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.Update() method.
' /// </summary>
Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
' /// </summary>
Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
' /// <summary>
' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
' /// </summary>
Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
' // No implementation, throw exception
Throw New NotImplementedException()
End Function
#Region " Class Property Declarations "
Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
Set(ByVal Value As clsConnectionProvider)
If Value Is Nothing Then
' // Invalid value
Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
End If
' // A connection provider object is passed to this class.
' // Retrieve the SqlConnection object, if present and create a
' // reference to it. If there is already a MainConnection object
' // referenced by the membervar, destroy that one or simply
' // remove the reference, based on the flag.
If Not (m_scoMainConnection Is Nothing) Then
' // First get rid of current connection object. Caller is responsible
If m_bMainConnectionIsCreatedLocal Then
' // Is local created object, close it and dispose it.
m_scoMainConnection.Close()
m_scoMainConnection.Dispose()
End If
' // Remove reference.
m_scoMainConnection = Nothing
End If
m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
m_bMainConnectionIsCreatedLocal = False
End Set
End Property
Public ReadOnly Property iErrorCode() As SqlInt32
Get
Return m_iErrorCode
End Get
End Property
Public Property sConnectionString() As String
Get
Return m_sConnectionString
End Get
Set (ByVal Value As String)
m_sConnectionString = Value
m_scoMainConnection.ConnectionString = m_sConnectionString
End Set
End Property
Public Readonly Property iRowsAffected() As Integer
Get
Return m_iRowsAffected
End Get
End Property
#End Region
End Class
End Namespace

@ -0,0 +1,491 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'key_tabelle'
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 19:36:38
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace DB
''' <summary>
''' Purpose: Data Access class for the table 'key_tabelle'.
''' </summary>
Public Class clsKey_tabelle
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
Private m_sBeschreibung As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>sBeschreibung</LI>
''' <LI>iKey_wert</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iKeynr</LI>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iKeynr = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@ikeynr").Value, Integer))
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iKeynr</LI>
''' <LI>sBeschreibung</LI>
''' <LI>iKey_wert</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>bAktiv. May be SqlBoolean.Null</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iKeynr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iKeynr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iKeynr</LI>
''' <LI>sBeschreibung</LI>
''' <LI>iKey_wert</LI>
''' <LI>iMandantnr</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
m_iMandantnr = SqlInt32.Null
Else
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
End If
If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
m_bAktiv = SqlBoolean.Null
Else
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
End If
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("key_tabelle")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iKeynr]() As SqlInt32
Get
Return m_iKeynr
End Get
Set(ByVal Value As SqlInt32)
Dim iKeynrTmp As SqlInt32 = Value
If iKeynrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
End If
m_iKeynr = Value
End Set
End Property
Public Property [sBeschreibung]() As SqlString
Get
Return m_sBeschreibung
End Get
Set(ByVal Value As SqlString)
Dim sBeschreibungTmp As SqlString = Value
If sBeschreibungTmp.IsNull Then
Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
End If
m_sBeschreibung = Value
End Set
End Property
Public Property [iKey_wert]() As SqlInt32
Get
Return m_iKey_wert
End Get
Set(ByVal Value As SqlInt32)
Dim iKey_wertTmp As SqlInt32 = Value
If iKey_wertTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
End If
m_iKey_wert = Value
End Set
End Property
Public Property [iMandantnr]() As SqlInt32
Get
Return m_iMandantnr
End Get
Set(ByVal Value As SqlInt32)
m_iMandantnr = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
#End Region
End Class
End Namespace

@ -0,0 +1,200 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace edokadb
Public Class clsMyPartner
Public Function search_partner(ByVal query As String, ByVal anzahl As String, ByVal fnkt As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim table As String = "dbo.partner"
scmCmdToExecute.CommandText = "dbo.[sp_search_partner]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("partner")
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anzahl))
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
scmCmdToExecute.Connection.Open()
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function search_doppelte_partner(ByVal query As String, ByVal table As String, ByVal fnkt As Integer) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("partner")
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
scmCmdToExecute.Connection.Open()
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Partner_Detail(ByVal nrpar00 As String) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim table As String = "dbo.partner"
scmCmdToExecute.CommandText = "dbo.[sp_partner_detail]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("partner")
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
scmCmdToExecute.Connection.Open()
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Partner_zus_Adressen(ByVal nrpar00 As String) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim table As String = "dbo.partner"
scmCmdToExecute.CommandText = "dbo.[sp_partner_zus_adressen]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("partner")
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
scmCmdToExecute.Connection.Open()
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Partner_VV(ByVal nrpar00 As String) As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim table As String = "dbo.partner"
scmCmdToExecute.CommandText = "dbo.[sp_partner_vv]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("partner")
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
scmCmdToExecute.Connection.Open()
sdaAdapter.Fill(dtToReturn)
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Partner_Gebdat(ByVal nrpar00 As String) As String
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim table As String = "dbo.partner"
scmCmdToExecute.CommandText = "dbo.[sp_partner_gebdat]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("partner")
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@gebdat", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
scmCmdToExecute.Connection.Open()
sdaAdapter.Fill(dtToReturn)
Return scmCmdToExecute.Parameters("@gebdat").Value
Catch ex As Exception
' MsgBox(ex.Message)
' // some error occured. Bubble it to caller and encapsulate Exception object
' Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
Return ""
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Partner_Betreuer(ByVal nrpar00 As String) As String
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim table As String = "dbo.partner"
scmCmdToExecute.CommandText = "dbo.[sp_partner_betreuer]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("partner")
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = conn.scoDBConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
scmCmdToExecute.Parameters.Add(New SqlParameter("@betreuer", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
scmCmdToExecute.Connection.Open()
sdaAdapter.Fill(dtToReturn)
Return scmCmdToExecute.Parameters("@betreuer").Value
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
Return ""
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
dtToReturn.Dispose()
End Try
End Function
End Class
End Namespace

@ -0,0 +1,630 @@
' ///////////////////////////////////////////////////////////////////////////
' // Description: Data Access class for the table 'spalten'
' // Generated by LLBLGen v1.21.2003.712 Final on: Dienstag, 1. Januar 2013, 13:15:45
' // Because the Base Class already implements IDispose, this class doesn't.
' ///////////////////////////////////////////////////////////////////////////
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
Namespace db
''' <summary>
''' Purpose: Data Access class for the table 'spalten'.
''' </summary>
Public Class clsSpalten
Inherits clsDBInteractionBase
#Region " Class Member Declarations "
Private m_bReadonly, m_bAlsHacken, m_bAktiv As SqlBoolean
Private m_daErstellt_am, m_daMutiert_am As SqlDateTime
Private m_iMandantnr, m_iMutierer, m_iReihenfolge, m_iEintragnr, m_iBreite As SqlInt32
Private m_sTabelle, m_sNumberFormat, m_sTiptext, m_sSpalte, m_sTabellenspalte As SqlString
#End Region
''' <summary>
''' Purpose: Class constructor.
''' </summary>
Public Sub New()
' // Nothing for now.
End Sub
''' <summary>
''' Purpose: Insert method. This method will insert one new row into the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iEintragnr</LI>
''' <LI>sTabelle. May be SqlString.Null</LI>
''' <LI>sTabellenspalte. May be SqlString.Null</LI>
''' <LI>sSpalte. May be SqlString.Null</LI>
''' <LI>bReadonly</LI>
''' <LI>bAlsHacken</LI>
''' <LI>iBreite. May be SqlInt32.Null</LI>
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
''' <LI>sTiptext. May be SqlString.Null</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>sNumberFormat. May be SqlString.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Insert() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Insert]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_spalten_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSpalten::Insert::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Update method. This method will Update one existing row in the database.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iEintragnr</LI>
''' <LI>sTabelle. May be SqlString.Null</LI>
''' <LI>sTabellenspalte. May be SqlString.Null</LI>
''' <LI>sSpalte. May be SqlString.Null</LI>
''' <LI>bReadonly</LI>
''' <LI>bAlsHacken</LI>
''' <LI>iBreite. May be SqlInt32.Null</LI>
''' <LI>iReihenfolge. May be SqlInt32.Null</LI>
''' <LI>sTiptext. May be SqlString.Null</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am. May be SqlDateTime.Null</LI>
''' <LI>daMutiert_am. May be SqlDateTime.Null</LI>
''' <LI>iMutierer. May be SqlInt32.Null</LI>
''' <LI>iMandantnr. May be SqlInt32.Null</LI>
''' <LI>sNumberFormat. May be SqlString.Null</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Update() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Update]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabelle", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabelle))
scmCmdToExecute.Parameters.Add(New SqlParameter("@stabellenspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTabellenspalte))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sspalte", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sSpalte))
scmCmdToExecute.Parameters.Add(New SqlParameter("@bReadonly", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bReadonly))
scmCmdToExecute.Parameters.Add(New SqlParameter("@balsHacken", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAlsHacken))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iBreite", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBreite))
scmCmdToExecute.Parameters.Add(New SqlParameter("@iReihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
scmCmdToExecute.Parameters.Add(New SqlParameter("@stiptext", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTiptext))
scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_bAktiv))
scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daErstellt_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_daMutiert_am))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@sNumberFormat", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sNumberFormat))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_spalten_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSpalten::Update::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
''' </summary>
''' <returns>True if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iEintragnr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function Delete() As Boolean
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_spalten_Delete]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
m_iRowsAffected = scmCmdToExecute.ExecuteNonQuery()
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_spalten_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return True
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSpalten::Delete::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
End Try
End Function
''' <summary>
''' Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties needed for this method:
''' <UL>
''' <LI>iEintragnr</LI>
''' </UL>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
''' <LI>iEintragnr</LI>
''' <LI>sTabelle</LI>
''' <LI>sTabellenspalte</LI>
''' <LI>sSpalte</LI>
''' <LI>bReadonly</LI>
''' <LI>bAlsHacken</LI>
''' <LI>iBreite</LI>
''' <LI>iReihenfolge</LI>
''' <LI>sTiptext</LI>
''' <LI>bAktiv</LI>
''' <LI>daErstellt_am</LI>
''' <LI>daMutiert_am</LI>
''' <LI>iMutierer</LI>
''' <LI>iMandantnr</LI>
''' <LI>sNumberFormat</LI>
'''</UL>
''' Will fill all properties corresponding with a field in the table with the value of the row selected.
''' </remarks>
Overrides Public Function SelectOne() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectOne]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("spalten")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@ieintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iEintragnr))
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_spalten_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
If dtToReturn.Rows.Count > 0 Then
m_iEintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("eintragnr"), Integer))
If dtToReturn.Rows(0)("tabelle") Is System.DBNull.Value Then
m_sTabelle = SqlString.Null
Else
m_sTabelle = New SqlString(CType(dtToReturn.Rows(0)("tabelle"), String))
End If
If dtToReturn.Rows(0)("tabellenspalte") Is System.DBNull.Value Then
m_sTabellenspalte = SqlString.Null
Else
m_sTabellenspalte = New SqlString(CType(dtToReturn.Rows(0)("tabellenspalte"), String))
End If
If dtToReturn.Rows(0)("spalte") Is System.DBNull.Value Then
m_sSpalte = SqlString.Null
Else
m_sSpalte = New SqlString(CType(dtToReturn.Rows(0)("spalte"), String))
End If
m_bReadonly = New SqlBoolean(CType(dtToReturn.Rows(0)("Readonly"), Boolean))
m_bAlsHacken = New SqlBoolean(CType(dtToReturn.Rows(0)("alsHacken"), Boolean))
If dtToReturn.Rows(0)("Breite") Is System.DBNull.Value Then
m_iBreite = SqlInt32.Null
Else
m_iBreite = New SqlInt32(CType(dtToReturn.Rows(0)("Breite"), Integer))
End If
If dtToReturn.Rows(0)("Reihenfolge") Is System.DBNull.Value Then
m_iReihenfolge = SqlInt32.Null
Else
m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("Reihenfolge"), Integer))
End If
If dtToReturn.Rows(0)("tiptext") Is System.DBNull.Value Then
m_sTiptext = SqlString.Null
Else
m_sTiptext = New SqlString(CType(dtToReturn.Rows(0)("tiptext"), String))
End If
m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
m_daErstellt_am = SqlDateTime.Null
Else
m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
End If
If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
m_daMutiert_am = SqlDateTime.Null
Else
m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
End If
If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
m_iMutierer = SqlInt32.Null
Else
m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
End If
If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
m_iMandantnr = SqlInt32.Null
Else
m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
End If
If dtToReturn.Rows(0)("NumberFormat") Is System.DBNull.Value Then
m_sNumberFormat = SqlString.Null
Else
m_sNumberFormat = New SqlString(CType(dtToReturn.Rows(0)("NumberFormat"), String))
End If
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSpalten::SelectOne::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Overrides Public Function SelectAll() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectAll]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = new DataTable("spalten")
Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_spalten_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSpalten::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
#Region " Class Property Declarations "
Public Property [iEintragnr]() As SqlInt32
Get
Return m_iEintragnr
End Get
Set(ByVal Value As SqlInt32)
Dim iEintragnrTmp As SqlInt32 = Value
If iEintragnrTmp.IsNull Then
Throw New ArgumentOutOfRangeException("iEintragnr", "iEintragnr can't be NULL")
End If
m_iEintragnr = Value
End Set
End Property
Public Property [sTabelle]() As SqlString
Get
Return m_sTabelle
End Get
Set(ByVal Value As SqlString)
m_sTabelle = Value
End Set
End Property
Public Property [sTabellenspalte]() As SqlString
Get
Return m_sTabellenspalte
End Get
Set(ByVal Value As SqlString)
m_sTabellenspalte = Value
End Set
End Property
Public Property [sSpalte]() As SqlString
Get
Return m_sSpalte
End Get
Set(ByVal Value As SqlString)
m_sSpalte = Value
End Set
End Property
Public Property [bReadonly]() As SqlBoolean
Get
Return m_bReadonly
End Get
Set(ByVal Value As SqlBoolean)
Dim bReadonlyTmp As SqlBoolean = Value
If bReadonlyTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bReadonly", "bReadonly can't be NULL")
End If
m_bReadonly = Value
End Set
End Property
Public Property [bAlsHacken]() As SqlBoolean
Get
Return m_bAlsHacken
End Get
Set(ByVal Value As SqlBoolean)
Dim bAlsHackenTmp As SqlBoolean = Value
If bAlsHackenTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bAlsHacken", "bAlsHacken can't be NULL")
End If
m_bAlsHacken = Value
End Set
End Property
Public Property [iBreite]() As SqlInt32
Get
Return m_iBreite
End Get
Set(ByVal Value As SqlInt32)
m_iBreite = Value
End Set
End Property
Public Property [iReihenfolge]() As SqlInt32
Get
Return m_iReihenfolge
End Get
Set(ByVal Value As SqlInt32)
m_iReihenfolge = Value
End Set
End Property
Public Property [sTiptext]() As SqlString
Get
Return m_sTiptext
End Get
Set(ByVal Value As SqlString)
m_sTiptext = Value
End Set
End Property
Public Property [bAktiv]() As SqlBoolean
Get
Return m_bAktiv
End Get
Set(ByVal Value As SqlBoolean)
Dim bAktivTmp As SqlBoolean = Value
If bAktivTmp.IsNull Then
Throw New ArgumentOutOfRangeException("bAktiv", "bAktiv can't be NULL")
End If
m_bAktiv = Value
End Set
End Property
Public Property [daErstellt_am]() As SqlDateTime
Get
Return m_daErstellt_am
End Get
Set(ByVal Value As SqlDateTime)
m_daErstellt_am = Value
End Set
End Property
Public Property [daMutiert_am]() As SqlDateTime
Get
Return m_daMutiert_am
End Get
Set(ByVal Value As SqlDateTime)
m_daMutiert_am = Value
End Set
End Property
Public Property [iMutierer]() As SqlInt32
Get
Return m_iMutierer
End Get
Set(ByVal Value As SqlInt32)
m_iMutierer = Value
End Set
End Property
Public Property [iMandantnr]() As SqlInt32
Get
Return m_iMandantnr
End Get
Set(ByVal Value As SqlInt32)
m_iMandantnr = Value
End Set
End Property
Public Property [sNumberFormat]() As SqlString
Get
Return m_sNumberFormat
End Get
Set(ByVal Value As SqlString)
m_sNumberFormat = Value
End Set
End Property
#End Region
End Class
End Namespace

@ -0,0 +1,131 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.menuStrip1 = New System.Windows.Forms.MenuStrip()
Me.dateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.beendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.logbuchToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SystemadministrationToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AuswertungenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tscbboxAuswertung = New System.Windows.Forms.ToolStripComboBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnclose = New System.Windows.Forms.ToolStripButton()
Me.menuStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.SuspendLayout()
'
'menuStrip1
'
Me.menuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.dateiToolStripMenuItem, Me.logbuchToolStripMenuItem, Me.SystemadministrationToolStripMenuItem, Me.AuswertungenToolStripMenuItem, Me.tscbboxAuswertung})
Me.menuStrip1.Location = New System.Drawing.Point(0, 0)
Me.menuStrip1.Name = "menuStrip1"
Me.menuStrip1.Size = New System.Drawing.Size(1005, 27)
Me.menuStrip1.TabIndex = 1
Me.menuStrip1.Text = "menuStrip1"
'
'dateiToolStripMenuItem
'
Me.dateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.beendenToolStripMenuItem})
Me.dateiToolStripMenuItem.Name = "dateiToolStripMenuItem"
Me.dateiToolStripMenuItem.Size = New System.Drawing.Size(46, 23)
Me.dateiToolStripMenuItem.Text = "&Datei"
'
'beendenToolStripMenuItem
'
Me.beendenToolStripMenuItem.Name = "beendenToolStripMenuItem"
Me.beendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
Me.beendenToolStripMenuItem.Text = "&Beenden"
'
'logbuchToolStripMenuItem
'
Me.logbuchToolStripMenuItem.Name = "logbuchToolStripMenuItem"
Me.logbuchToolStripMenuItem.Size = New System.Drawing.Size(135, 23)
Me.logbuchToolStripMenuItem.Text = "Schuldbriefe / Policen"
'
'SystemadministrationToolStripMenuItem
'
Me.SystemadministrationToolStripMenuItem.Name = "SystemadministrationToolStripMenuItem"
Me.SystemadministrationToolStripMenuItem.Size = New System.Drawing.Size(134, 23)
Me.SystemadministrationToolStripMenuItem.Text = "Systemadministration"
'
'AuswertungenToolStripMenuItem
'
Me.AuswertungenToolStripMenuItem.Name = "AuswertungenToolStripMenuItem"
Me.AuswertungenToolStripMenuItem.Size = New System.Drawing.Size(96, 23)
Me.AuswertungenToolStripMenuItem.Text = "&Auswertungen"
'
'tscbboxAuswertung
'
Me.tscbboxAuswertung.Name = "tscbboxAuswertung"
Me.tscbboxAuswertung.Size = New System.Drawing.Size(250, 23)
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnclose})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 27)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1005, 25)
Me.ToolStrip1.TabIndex = 3
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtnclose
'
Me.tsbtnclose.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnclose.Image = CType(resources.GetObject("tsbtnclose.Image"), System.Drawing.Image)
Me.tsbtnclose.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnclose.Name = "tsbtnclose"
Me.tsbtnclose.Size = New System.Drawing.Size(23, 22)
Me.tsbtnclose.Text = "Anwendung beenden"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1005, 464)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.menuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.IsMdiContainer = True
Me.Name = "Form1"
Me.Text = "Logbuch"
Me.menuStrip1.ResumeLayout(False)
Me.menuStrip1.PerformLayout()
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Private WithEvents menuStrip1 As MenuStrip
Private WithEvents dateiToolStripMenuItem As ToolStripMenuItem
Private WithEvents beendenToolStripMenuItem As ToolStripMenuItem
Private WithEvents logbuchToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents tsbtnclose As ToolStripButton
Friend WithEvents SystemadministrationToolStripMenuItem As ToolStripMenuItem
Friend WithEvents AuswertungenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tscbboxAuswertung As ToolStripComboBox
End Class

@ -0,0 +1,311 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="menuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>132, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="tsbtnclose.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK1SURBVDhPnZLfS1NhGMdfCPoDuummi+i6KwcWZYjb3Obx
7MzN5dY5Z9tJV86MirIgK8t++KssC63IYSoVRaVWRmn2Q9FIUcpCyiXVRXiRRCFIFwWfjhqLXdYDH3if
F94P7/d5X/E/9XVyIDj7aexn295M/mwt1vWK3K6Oyly6js0jJek8KnHjkJ2n8V3MTPTwZfwes+/7ubrf
mirorJBJW2tnzXobazf8JX29ldWWDOYSPSS6DjPa5Odb4hnXDzpSBR3lMplWJza7hN3hSmLNdpKeYeNd
W4TRSzrD54PMvHnIrSM5qQJHg0CqXkKO3YfkUpBy3EiSjMsls8EqMdFqMHwxxPPGINOjnQtR/xwVwlYj
SEy34zQluVkabmcARfKjyF5kt4csh5vX8TBDTTr9DZv4OHiN+1XKosBWLRj/1ExrvyCzSmCvFzjPCeTy
5XiVIJ48P9m5PsYuafSf1Zl7sJK3fS08rPUiXHWCFx+qiA8JmgfN9VQRIx8ivPwcXpBs9ITJzw8ieQKM
nFd5ckbjR88q3txvoq/evyh4nCgjPiaIjwpaXgtaJwSvvkdwnBUE84soCIRw52sMNQboOx2kuczJy84a
njUEFiJY7GaE7rdbaE8IsuYjnBQ4zgjyDq1AV6OouoEvaDDQ4Kf31EZuVyq8uFbBYKOaHKIlu1bQNeXD
eVpgBHZjaKUY4WIMI0rEKCQQivKk3suDOh/d1V4GLu9h+EIo5RktTvPKSt1SosYOokUlFEWLFyg00TbH
eFTnobsqjzvHPfQ0xRhrjqQIRFvpOraWlFIS20nJtu1JYiaFxTvorZW5e0Kh45ibu6dCjLcUInRdR9dC
aFoYVZ3HXKua2atJVLMv2KSzLxbgSoVi/kCZm0fzmGjfsjjEf6VcT99/+YDj1+SVWGqEf6hlJmlCCMtv
k4rCoiUUiGcAAAAASUVORK5CYII=
</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
AAYAgAAmAIAAGACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
AAIAgAAyAIAAdgCAALQAgADSAIAAugCAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAACAIAAEgCA
ACoAgABUAIAAmACAAN4AgAD/AIAA/wCAAP8AgAD/AIAA/wCAANYAgAAeAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAIAAEACA
ADwAgAB0AIAApACAANIAgAD6AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACmAIAAHAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAACACA
ADYAgACKAIAAwACAANwAgAD2AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPoAgAD4AIAA/wCA
AP8AgAD0AIAAiACAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAIAgAAWAIAALgCA
AFYAgACmAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD6AIAA6ACAANAAgACgAIAAWgCA
ABgAgABcAIAA6gCAAP8AgAD/AIAA+ACAAH4AgAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAASAIAAQACA
AHIAgACsAIAA2gCAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA6ACAALwAgACCAIAAVACA
ACQAgAAAAAAAAAAAAAAAgAAOAIAAgACAAPAAgAD/AIAA/wCAAPIAgABSAIAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAACAIAAIgCA
AHQAgADCAIAA3gCAAPYAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA8gCAAL4AgABqAIAAOACA
AB4AgAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAFgCAAKQAgAD/AIAA/wCAAP8AgADSAIAAPACA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
AA4AgACGAIAA8ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPoAgADkAIAAzACAAKAAgABOAIAAEgCA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAoAgADAAIAA/ACA
AP8AgAD/AIAAygCAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAIAADgCAAH4AgAD6AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADiAIAAtACAAIQAgABMAIAAHACA
AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAA2AIAAzACAAP8AgAD/AIAA/ACAALYAgAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAACAIAAYACAAOoAgAD/AIAA/wCAAP8AgAD0AIAAvACAAHAAgAA0AIAAGgCA
AAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAEAIAAUgCAAOQAgAD/AIAA/wCAAPwAgACKAIAACAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAqAIAAzgCAAP8AgAD/AIAA9ACAAKIAgAAYAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAFgAgADyAIAA/wCAAP8AgADyAIAAgACA
AAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgABgAIAA+gCAAP8AgAD8AIAAqgCA
ABoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAIAgACMAIAA9gCA
AP8AgAD/AIAA5gCAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgACgAIAA/wCA
AP8AgADmAIAAUgCAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAQAIAASACAAG4AgAAiAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAaAIAApgCAAPwAgAD/AIAA/wCAAOIAgAAqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgADSAIAA/wCAAP8AgADOAIAAHgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAAAIAACgCAACAAgAA+AIAAdACAALQAgAD2AIAA/wCAAP8AgADaAIAARgCA
AAQAAAAAAAAAAAAAAAAAAAAAAIAAHACAALAAgAD/AIAA/wCAAP8AgADMAIAALgCAAAIAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgADgAIAA/wCAAP8AgADGAIAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAACACAACwAgABiAIAAkACAAL4AgADuAIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD8AIAAxgCAADQAAAAAAAAAAAAAAAAAAAAAAAAAAACAACwAgADaAIAA/wCAAP8AgAD6AIAArACA
AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgADaAIAA/wCAAP8AgADIAIAAFAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAABACAACoAgAB6AIAAtACAANQAgADuAIAA/ACAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAMIAgAAOAAAAAAAAAAAAAAAAAAAAAACAAAAAgABWAIAA6ACA
AP8AgAD/AIAA9gCAAJQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAC2AIAA/wCAAP8AgADcAIAAOgCA
AAAAAAAAAAAAAACAAAIAgAAYAIAALgCAAFIAgACgAIAA3gCAAPwAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACuAIAAHACAAAAAAAAAAAAAAAAA
AAAAgAAEAIAAYgCAAOgAgAD/AIAA/wCAAP8AgAByAIAACAAAAAAAAAAAAAAAAAAAAAAAgACIAIAA/wCA
AP8AgAD2AIAAogCAAD4AgAAwAIAAUgCAAHoAgACuAIAA2gCAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD0AIAAkgCA
ABQAAAAAAAAAAAAAAAAAAAAAAIAADACAAH4AgAD/AIAA/wCAAP8AgADkAIAAWACAAAYAAAAAAAAAAAAA
AAAAgABQAIAA+gCAAP8AgAD/AIAA9gCAAN4AgADWAIAA6ACAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA8ACAAHwAAAAAAAAAAAAAAAAAAAAAAAAAAACAABAAgACyAIAA/wCAAP8AgAD8AIAA0gCA
ADQAAAAAAAAAAAAAAAAAgAAkAIAAyACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPwAgABkAIAACAAAAAAAAAAAAAAAAAAAAAAAgAAgAIAAtgCA
APoAgAD/AIAA/wCAANYAgAAcAAAAAAAAAAAAgAAIAIAAhACAAPgAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADgAIAAUgCAAAQAAAAAAAAAAAAA
AAAAgAAAAIAAOgCAANAAgAD/AIAA/wCAAP8AgACgAIAAGAAAAAAAgAAAAIAALgCAANQAgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA0gCA
ADYAAAAAAAAAAAAAAAAAAAAAAIAABACAAEwAgAD6AIAA/wCAAP8AgADyAIAAfgCAAAoAAAAAAAAAAACA
ADwAgADoAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAN4AgAAmAIAAAAAAAAAAAAAAAAAAAAAAAAAAgABwAIAA8gCAAP8AgAD/AIAA9ACA
AF4AAAAAAAAAAAAAAAAAgABmAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACwAIAAIgAAAAAAAAAAAAAAAAAAAAAAgAAUAIAAngCA
APoAgAD/AIAA/wCAAJwAAAAAAAAAAAAAAAAAgAAMAIAAfACAAPAAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD2AIAAlgCAABQAAAAAAAAAAAAA
AAAAgAAAAIAAZACAAPAAgAD/AIAA/wCAAH4AAAAAAAAAAAAAAAAAAAAAAIAABgCAAHoAgAD4AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACA
AJQAgAAIAAAAAAAAAAAAAAAAAIAAZgCAAPIAgAD/AIAA/wCAAFQAAAAAAAAAAAAAAAAAAAAAAAAAAACA
AAgAgACeAIAA+ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAPgAgABqAIAACAAAAAAAAAAAAIAAZgCAAPIAgAD/AIAA/wCAAFgAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAgAIAArACAAPwAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADiAIAAVgCAAAIAAAAAAIAAWgCAAOwAgAD/AIAA/wCA
AHwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAHACAAK4AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA4gCAAFAAAAAAAIAALACA
ANIAgAD/AIAA/wCAAJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAACQAgADMAIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPIAgADOAIAAwACAAOgAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
ANYAgAAqAIAABgCAAIAAgAD0AIAA4gCAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgABEAIAA1gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAOAAgACeAIAAaACAAD4AgAAoAIAAIACAAEYAgADuAIAA/wCA
AP8AgAD/AIAA/wCAAP8AgACwAIAAHgCAABAAgAA8AIAANACAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAAAIAARACAANQAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/ACAAPAAgADaAIAAxACAAJoAgABWAIAAHgCAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgABOAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD8AIAAqgCAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAgCAAFAAgADuAIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/ACAAOYAgAC2AIAAjACAAGQAgAA2AIAAEACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAUAIAApgCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA+ACAAJQAgAAGAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAQAgAByAIAA9ACA
AP8AgAD/AIAA/wCAAP8AgAD0AIAAkgCAADYAgAAcAIAACACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAEAIAAKACAAGQAgACsAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
APYAgABoAIAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAIAIAAcgCAAO4AgAD/AIAA/wCAAP8AgAD2AIAAhgCAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAACAIAAEACAACIAgAA8AIAAaACAAKIAgADkAIAA/ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgADqAIAAZACAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAAEACAAIQAgAD8AIAA/wCAAP8AgAD/AIAA5gCAAGQAAAAAAAAAAAAA
AAAAgAAGAIAAIgCAAEgAgAB2AIAAnACAAMQAgADuAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA2ACAAEYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAABAAgACqAIAA/wCAAP8AgAD/AIAA/wCA
AOYAgAB0AIAAXACAAIAAgAC2AIAA0ACAAOIAgAD4AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAL4AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAYAIAApACA
APgAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AMIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAAAIAAKACAALYAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
APwAgADeAIAAsACAAEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAAAACAACgAgADeAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
APQAgAC+AIAAiACAAFQAgAAwAIAAGgCAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA2AIAA0ACAAPwAgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAPAAgADcAIAAygCA
AKgAgABsAIAANgCAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAEAIAATACA
ANoAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA9ACAANYAgACsAIAAiACA
AGQAgAA6AIAAGACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAIAABgCAAFAAgAD4AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA4ACAAKwAgABsAIAAQgCA
ACwAgAAWAIAABgCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgABaAIAAygCAANAAgAC4AIAAigCAAFYAgAAaAIAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAEAIAAHACAACQAgAAGAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP///////wAA////x///
AAD///wD//8AAP//4AH//wAA//4AAP//AAD/8ABw//8AAP+AA/B//wAA/AA/+D//AADgAf/8H/8AAOAP
//4P/wAAwP///wf/AACD////g/8AAIf///+D/wAAD////8H/AAAP//4P4P8AAA//4AfwfwAAD/8AA/g/
AAAP8AAB/D8AAAeAAAD+HwAAgAAAAP4PAACAAAAAfwcAAIAAAAA/gwAAwAAAAB/DAADgAAAAD+EAAPAA
AAAH4AAA+AAAAAPxAAD8AAAAAfEAAPwAAAAB8QAA/gAAAADxAAD/AAAAAHAAAP+AAAAAMQAA/8AAAfAf
AAD/4AAf+A8AAP/wAf/4BwAA//gP//AHAAD//A//AAMAAP/8D/AAAQAA//4GAAAAAAD//wAAAAAAAP//
gAAAAQAA///AAAAPAAD//+AAAf8AAP//8AAf/wAA///4A///AAD///w///8AAP///////wAA////////
AAA=
</value>
</data>
</root>

@ -0,0 +1,98 @@
Imports System.Security.Principal
Public Class Form1
Dim ouser As New WindowsPrincipal(WindowsIdentity.GetCurrent)
Dim db As New clsdbhandling
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles tsbtnclose.Click
beendenToolStripMenuItem_Click(sender, e)
End Sub
Private Sub beendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles beendenToolStripMenuItem.Click
Me.Close()
End Sub
Private Sub logbuchToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles logbuchToolStripMenuItem.Click
Dim f As New frmLogbuch
f.MdiParent = Me
f.Show()
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Check_User() = False Then
MsgBox("Sie haben keine Bereichtigungen für diese Anwendung.", vbExclamation)
Me.Close()
Exit Sub
End If
Dim sql As String = ""
If Globals.Userdaten.Rows(0).Item("ES_Auswerten") = True Then
sql = sql + "Reportgruppe=2"
End If
If Globals.Userdaten.Rows(0).Item("Policen_Auswerten") = True Then
If sql = "" Then
sql = sql + "Reportgruppe=4"
Else
sql = sql + " or Reportgruppe=4"
End If
End If
If Globals.Userdaten.Rows(0).Item("Systemadministrator") = False Then
Me.SystemadministrationToolStripMenuItem.Visible = False
End If
If sql <> "" Then
sql = "Select ReportNr, Bezeichnung from Report where aktiv=1 and (" + sql + ") order by sortorder"
Else
sql = "Select ReportNr, Bezeichnung from Report where aktiv=1 and reportgruppe=-1 order by sortorder"
End If
db.Fill_TSCombobox(Me.tscbboxAuswertung, sql, False, True)
If Me.tscbboxAuswertung.Items.Count = 0 Then
Me.tscbboxAuswertung.Visible = False
Me.AuswertungenToolStripMenuItem.Visible = False
End If
Globals.Version = Globals.Version
Dim f As New frmLogbuch
f.MdiParent = Me
f.Show()
Me.WindowState = FormWindowState.Maximized
Globals.Applikationsdaten = db.Get_Tabledata("Select * from applikation", False, True)
End Sub
Function Check_User() As Boolean
Globals.Userdaten = db.Get_Tabledata("Select * from Benutzer where tgnummer='" + Get_Username() + "'", False, True)
If Globals.Userdaten.Rows.Count < 1 Then
Return False
Else
Return True
End If
End Function
Private Sub SystemadministrationToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SystemadministrationToolStripMenuItem.Click
Dim f1 As New frmSysadmin
f1.MdiParent = Me
f1.Show()
End Sub
Private Sub tscbboxAuswertung_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscbboxAuswertung.SelectedIndexChanged
For Each r As DataRow In Globals.Reportdata.Rows
If r.Item(1) = tscbboxAuswertung.Text Then
Dim f As New frmAuswertung(r.Item(0), Me.tscbboxAuswertung.Text)
f.MdiParent = Me
f.Show()
End If
Next
End Sub
Private Function Get_Username() As String
With ouser.Identity.Name
Return (.Substring(.IndexOf("\") + 1))
End With
End Function
Private Sub AuswertungenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswertungenToolStripMenuItem.Click
End Sub
End Class

@ -0,0 +1,432 @@
Imports System
Imports System.Data
Imports System.Data.SqlTypes
Imports System.Data.SqlClient
'*
' Object MyspaltenTitel
'
' Dieses Objekt liest die Daten aus der Tabelle Spalten und speichert diese in spaltendaten
' Die Daten werden für die Spaltenbezeichnung der C1Datagrids verwendet
'
' Autor: Stefan Hutter
' Datum: 2.12.2002
'*
Imports C1.Win.C1TrueDBGrid
Namespace Utils
Public Class Tabellenspalte
Private m_table As String
Private m_field As String
Private m_spaltenname As String
Private m_locked As Boolean
Private m_Width As Integer
Private m_Order As Integer
Private m_alsHacken As Boolean
Private m_tiptext As String
Private m_numberformat As String
Property ColWith() As Integer
Get
Return m_Width
End Get
Set(ByVal Value As Integer)
m_Width = Value
End Set
End Property
Property Order() As Integer
Get
Return m_Order
End Get
Set(ByVal Value As Integer)
m_Order = Value
End Set
End Property
Property Tabelle() As String
Get
Return m_table
End Get
Set(ByVal Value As String)
m_table = Value
End Set
End Property
Property Feld() As String
Get
Return m_field
End Get
Set(ByVal Value As String)
m_field = Value
End Set
End Property
Property spaltenname() As String
Get
Return m_spaltenname
End Get
Set(ByVal Value As String)
m_spaltenname = Value
End Set
End Property
Property locked() As Boolean
Get
Return m_locked
End Get
Set(ByVal Value As Boolean)
m_locked = Value
End Set
End Property
Property AlsHacken() As Boolean
Get
Return m_alsHacken
End Get
Set(ByVal Value As Boolean)
m_alsHacken = Value
End Set
End Property
Property TipText() As String
Get
Return m_tiptext
End Get
Set(ByVal Value As String)
m_tiptext = Value
End Set
End Property
Property Numberformat() As String
Get
Return m_numberformat
End Get
Set(ByVal value As String)
m_numberformat = value
End Set
End Property
Public Sub New()
End Sub
Public Sub New(ByRef daten As Object, ByRef tablename As String, ByRef ds As DataSet)
Spaltentitel_aktualisieren(daten, tablename, ds)
End Sub
Public Function getspalte()
Try
Dim myspalten As New MySpaltenTitel()
myspalten.getspalte(Me.Tabelle, Me.Feld, Me.spaltenname, Me.locked, Me.ColWith, Me.Order, Me.AlsHacken, Me.TipText, Me.Numberformat)
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Public Function Spaltentitel_aktualisieren(ByRef daten As Object, ByRef tablename As String, ByRef ds As DataSet)
Dim anzcols As Integer
Dim i As Integer
Dim s As String
anzcols = daten.Splits(0).DisplayColumns.Count
Me.Tabelle = tablename
For i = 0 To daten.Columns.Count - 1
s = daten.Columns(i).DataField
Me.Feld = s
Me.getspalte()
daten.Columns(i).Caption = Me.spaltenname
If Me.ColWith = 0 Then
daten.Splits(0).DisplayColumns(i).Width = 0
daten.Splits(0).DisplayColumns(i).Visible = False
Else
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
End If
If Me.locked Then
daten.Splits(0).DisplayColumns(i).Locked = True
End If
If Me.AlsHacken Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
'Präsentation von aktiv
If LCase(daten.Columns(i).DataField) = "aktiv" Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
daten.Columns(i).ValueItems.DefaultItem = True
daten.Columns(i).DefaultValue = True
daten.Columns(i).FilterText = True
'Dim items As C1.Win.C1TrueDBGrid.ValueItems = daten.Columns("aktiv").ValueItems
'items.Values.Clear()
'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("False", False)) ' unchecked
'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("True", True)) ' checked
'items.Values.Add(New C1.Win.C1TrueDBGrid.ValueItem("", "INDETERMINATE")) ' indeterminate state
End If
Select Case LCase(daten.Columns(i).DataField)
Case "erstellt_am", "erstelltam"
daten.Columns(i).DefaultValue = Now
End Select
If daten.Columns(i).DataType.Name = "DateTime" Then
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If
If Me.Numberformat <> "" Then
daten.columns(i).numberformat = Me.Numberformat
End If
Next
ColumnOrder(tablename, daten)
daten.HeadingStyle.WrapText = False
End Function
Public Function Spaltentitel_aktualisieren(ByRef daten As Object, ByRef tablename As String, ByRef dt As DataTable, Optional ByVal Aktiv_Spalte_True_Setzen As Boolean = True)
Dim anzcols As Integer
Dim i As Integer
Dim t As New DataTable()
Dim s As String
anzcols = daten.Splits(0).DisplayColumns.Count
t = dt
Me.Tabelle = tablename
For i = 0 To daten.Columns.Count - 1
s = daten.Columns(i).DataField
'If s = "ApplikationNr" Then
' MsgBox("Hallo")
'End If
Me.Feld = s
Me.getspalte()
daten.Columns(i).Caption = Me.spaltenname
If Me.ColWith = 0 Then
daten.Splits(0).DisplayColumns(i).Width = 0
daten.Splits(0).DisplayColumns(i).Visible = False
Else
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
End If
If Me.locked Then
daten.Splits(0).DisplayColumns(i).Locked = True
End If
If Me.AlsHacken Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
'Präsentation von aktiv
If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Spalte_True_Setzen = True Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
daten.Columns(i).ValueItems.DefaultItem = True
daten.Columns(i).DefaultValue = True
daten.Columns(i).FilterText = True
End If
Select Case LCase(daten.Columns(i).DataField)
Case "erstellt_am", "erstelltam"
daten.Columns(i).DefaultValue = Now
End Select
If daten.Columns(i).DataType.Name = "DateTime" Then
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If
If Me.Numberformat <> "" Then
daten.columns(i).numberformat = Me.Numberformat
End If
Next
ColumnOrder(tablename, daten)
daten.HeadingStyle.WrapText = False
End Function
Public Function Spaltentitel_aktualisieren_Optionaler_Aktiv_Filer(ByRef daten As Object, ByRef tablename As String, ByRef dt As DataTable, Optional ByVal Aktiv_Filter As String = "")
Dim anzcols As Integer
Dim i As Integer
Dim t As New DataTable()
Dim s As String
anzcols = daten.Splits(0).DisplayColumns.Count
t = dt
Me.Tabelle = tablename
For i = 0 To daten.Columns.Count - 1
s = daten.Columns(i).DataField
Me.Feld = s
Me.getspalte()
If Me.spaltenname = "" Then
daten.Splits(0).DisplayColumns(i).Width = 0
Else
daten.Columns(i).Caption = Me.spaltenname
If Me.ColWith = 0 Then
daten.Splits(0).DisplayColumns(i).Width = 0
daten.Splits(0).DisplayColumns(i).Visible = False
Else
daten.Splits(0).DisplayColumns(i).Width = Me.ColWith
End If
If Me.locked Then
daten.Splits(0).DisplayColumns(i).Locked = True
End If
If Me.AlsHacken Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
End If
'Präsentation von aktiv
If LCase(daten.Columns(i).DataField) = "aktiv" And Aktiv_Filter <> "" Then
daten.Columns(i).ValueItems.Presentation = C1.Win.C1TrueDBGrid.PresentationEnum.CheckBox
daten.Columns(i).ValueItems.DefaultItem = True
daten.Columns(i).DefaultValue = True
daten.Columns(i).FilterText = Aktiv_Filter
End If
Select Case LCase(daten.Columns(i).DataField)
Case "erstellt_am", "erstelltam"
daten.Columns(i).DefaultValue = Now
End Select
If daten.Columns(i).DataType.Name = "DateTime" Then
daten.Columns(i).NumberFormat = "dd.MM.yyyy HH:mm:ss"
End If
If Me.Numberformat <> "" Then
daten.columns(i).numberformat = Me.Numberformat
End If
End If
Next
ColumnOrder(tablename, daten)
daten.HeadingStyle.WrapText = False
End Function
''' <summary>
''' Sortierung der in der DB-Tabelle Spalaten festgelegten Reihenfolge
''' </summary>
''' <param name="Tablename"></param>
''' <param name="Data"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function ColumnOrder(ByVal Tablename As String, ByRef Data As C1TrueDBGrid)
Dim spaltendata As DataTable = Globals.Spaltendaten
Dim dv() As DataRow
Dim dr As DataRow
Dim dc As New Collection
dv = spaltendata.Select("Tabelle='" & Tablename & "'", "Reihenfolge desc, Eintragnr")
For Each c As C1DisplayColumn In Data.Splits(0).DisplayColumns
dc.Add(c)
Next
While Data.Splits(0).DisplayColumns.Count > 0
Data.Splits(0).DisplayColumns.RemoveAt(0)
End While
For Each dr In dv
For Each e As C1DisplayColumn In dc
If e.Name = dr.Item(3) Then
Data.Splits(0).DisplayColumns.Insert(0, e)
End If
Next
Next
End Function
End Class
Public Class MySpaltenTitel
Private spaltendata As DataTable = Globals.Spaltendaten
Sub New()
load_data()
End Sub
Sub dispose()
spaltendata.Dispose()
Me.dispose()
End Sub
Public Function getspalte(ByVal tabelle As String, ByVal feld As String, ByRef spaltenname As String, ByRef locked As Boolean,
ByRef colwidth As Integer, ByRef order As Integer, ByRef alshacken As Boolean, ByRef tiptext As String, ByRef numberformat As String)
If spaltendata.Rows.Count = 0 Then load_data()
Dim dv() As DataRow
Dim dr As DataRow
dv = spaltendata.Select("Tabelle='" & tabelle & "' and tabellenspalte='" & feld & "'", "Reihenfolge, Eintragnr")
If dv.Length = 0 Then
spaltenname = ""
locked = True
colwidth = 0
order = 0
alshacken = False
tiptext = ""
numberformat = ""
End If
For Each dr In dv
spaltenname = dr.Item(3)
locked = dr.Item(4)
colwidth = dr.Item(6)
order = dr.Item(7)
alshacken = dr.Item(5)
tiptext = dr.Item(8)
numberformat = dr.Item(14).ToString
Next
'Dim i As Integer
'For i = 0 To spaltendata.Rows.Count - 1
' If UCase(spaltendata.Rows(i).Item(1)) = UCase(tabelle) And UCase(spaltendata.Rows(i).Item(2)) = UCase(feld) Then
' spaltenname = spaltendata.Rows(i).Item(3)
' locked = spaltendata.Rows(i).Item(4)
' colwidth = spaltendata.Rows(i).Item(6)
' order = spaltendata.Rows(i).Item(7)
' alshacken = spaltendata.Rows(i).Item(5)
' tiptext = spaltendata.Rows(i).Item(8)
' Exit Function
' End If
'Next
End Function
Public Sub load_data()
If Me.spaltendata.Rows.Count > 0 Then Exit Sub
Dim spalten As New Utils.clsSpalten()
spaltendata.Rows.Clear()
spalten.cpMainConnectionProvider = conn
spaltendata = spalten.Select_All_Aktiv
Globals.Spaltendaten = spaltendata
End Sub
End Class
Public Class clsSpalten
Inherits DB.clsSpalten
''' <summary>
''' Purpose: SelectAll method. This method will Select all rows from the table.
''' </summary>
''' <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
''' <remarks>
''' Properties set after a succesful call of this method:
''' <UL>
''' <LI>iErrorCode</LI>
'''</UL>
''' </remarks>
Public Function Select_All_Aktiv() As DataTable
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[pr_spalten_SelectAll_Aktiv]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As DataTable = New DataTable("spalten")
Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
' // Use base class' connection object
scmCmdToExecute.Connection = m_scoMainConnection
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
If m_bMainConnectionIsCreatedLocal Then
' // Open connection.
m_scoMainConnection.Open()
Else
If m_cpMainConnectionProvider.bIsTransactionPending Then
scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
End If
End If
' // Execute query.
sdaAdapter.Fill(dtToReturn)
m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
If Not m_iErrorCode.Equals(New SqlInt32(0)) Then
' // Throw error.
Throw New Exception("Stored Procedure 'pr_spalten_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
End If
Return dtToReturn
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsSpalten::SelectAll::Error occured.", ex)
Finally
If m_bMainConnectionIsCreatedLocal Then
' // Close connection.
m_scoMainConnection.Close()
End If
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
End Class
End Namespace

@ -0,0 +1,354 @@
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Public Class clsdbhandling
Dim ConnString As String
Public daten As New DataSet
Dim qb As New SqlCommandBuilder
Sub New()
Me.ConNString = Get_Connectionstring()
End Sub
Function Get_Connectionstring() As String
Return Globals.sConnectionString
'Return "Data Source=shu00;Initial Catalog=logbuch;User ID=sa;Password=*shu29"
End Function
Public Function get_datatable(typ As Integer, partnernr As Integer) As System.Data.DataTable
''string Connstr = System.Configuration.ConfigurationManager.AppSettings["EDOKAConnectionstring"];
Dim scmCmdToExecute As New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_anzeige]"
scmCmdToExecute.CommandType = CommandType.StoredProcedure
Dim dtToReturn As New DataTable("partner")
Dim sdaAdapter As New SqlDataAdapter(scmCmdToExecute)
Dim conn As New SqlConnection(ConnString)
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@partner", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10,
0, "", DataRowVersion.Proposed, partnernr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@modus", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10,
0, "", DataRowVersion.Proposed, typ))
conn.Open()
sdaAdapter.Fill(daten)
'Return daten
Catch ex As Exception
' // some error occured. Bubble it to caller and encapsulate Exception object
Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
Finally
scmCmdToExecute.Connection.Close()
scmCmdToExecute.Dispose()
sdaAdapter.Dispose()
End Try
End Function
Public Function Get_Tabledata(ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
Try
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.ConnString
sqlconnect.Open()
Dim da As New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
If StoredProc = True Then
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = Tablename
Else
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = "Select * from " + Tablename
End If
If is_SQL_String = True Then
sqlcmd.CommandText = Tablename
End If
' sqlcmd.CommandType = CommandType.StoredProcedure
' sqlcmd.CommandText = "Berufsliste"
da.SelectCommand = sqlcmd
da.Fill(ds, "Daten")
If Left(UCase(sqlcmd.CommandText), 6) = "INSERT" Then Exit Function
Return ds.Tables(0)
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Function
Public Function Get_Tabledata(ByVal Tablename As String, ByVal Params As List(Of ParamItem), Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.ConnString
sqlconnect.Open()
Dim da As New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
If StoredProc = True Then
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = Tablename
For Each p As ParamItem In Params
sqlcmd.Parameters.Add(p.ParamName, p.ParamValue)
Next
Else
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = "Select * from " + Tablename
End If
If is_SQL_String = True Then
sqlcmd.CommandText = Tablename
End If
' sqlcmd.CommandType = CommandType.StoredProcedure
' sqlcmd.CommandText = "Berufsliste"
da.SelectCommand = sqlcmd
da.Fill(ds, "Daten")
Return ds.Tables(0)
End Function
Dim da As SqlDataAdapter
Public Function Get_Tabledata_for_Update(ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.ConnString
sqlconnect.Open()
da = New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
If StoredProc = True Then
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = Tablename
Else
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = "Select * from " + Tablename
End If
If is_SQL_String = True Then
sqlcmd.CommandText = Tablename
End If
' sqlcmd.CommandType = CommandType.StoredProcedure
' sqlcmd.CommandText = "Berufsliste"
da.SelectCommand = sqlcmd
da.Fill(daten, "Daten")
qb = New SqlCommandBuilder(da)
End Function
Public Sub Update_Tabeldata()
da.Update(daten, "Daten")
End Sub
Public Sub Fill_Combobox(ByRef cbbox As ComboBox, ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False)
Dim data As New DataTable
data = Get_Tabledata(Tablename, StoredProc, is_SQL_String)
Dim cbboxitems = New List(Of ComboboxItem)
For Each r As DataRow In data.Rows
cbboxitems.Add(New ComboboxItem(r.Item(0), r.Item(1)))
Next
cbbox.DataSource = cbboxitems
cbbox.DisplayMember = "bezeichnung"
cbbox.ValueMember = data.Columns(0).ColumnName
End Sub
Public Function Fill_Combobox1(ByRef cbbox As ComboBox, ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataTable
Dim data As New DataTable
data = Get_Tabledata(Tablename, StoredProc, is_SQL_String)
Dim cbboxitems = New List(Of ComboboxItem)
For Each r As DataRow In data.Rows
cbboxitems.Add(New ComboboxItem(r.Item(0), r.Item(1)))
Try
cbbox.AutoCompleteCustomSource.Add(r.Item("kurzzeichen"))
cbbox.AutoCompleteCustomSource.Add(r.Item("tgnummer"))
cbbox.AutoCompleteCustomSource.Add(r.Item(1))
Catch
End Try
Next
cbbox.DataSource = cbboxitems
cbbox.DisplayMember = "bezeichnung"
cbbox.ValueMember = data.Columns(0).ColumnName
Return data
End Function
Public Sub Fill_TSCombobox(ByRef cbbox As ToolStripComboBox, ByVal Tablename As String, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False)
Dim data As New DataTable
data = Get_Tabledata(Tablename, StoredProc, is_SQL_String)
Globals.Reportdata = data.Copy
For Each r As DataRow In data.Rows
cbbox.Items.Add(r.Item(1))
Next
End Sub
Public Function Insert_New_Entry(ByVal Table As String) As DataTable
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.ConnString
Dim da As New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
Dim sql As String
If Table = "Logbuch" Then
sqlcmd.CommandText = "Insert into Logbuch (aktiv) values(1)"
Else
sqlcmd.CommandText = "Insert into Policen (aktiv) values(1)"
End If
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
Dim data As New DataTable
If Table = "Logbuch" Then
data = Get_Tabledata("Select top 1 * from logbuch order by nreintrag desc", False, True)
Else
data = Get_Tabledata("Select top 1 * from Policen order by policeid desc", False, True)
End If
Return data
End Function
Public Function updatedata(ByVal Tablename As String, ByVal sourcetable As DataTable, Optional StoredProc As Boolean = False, Optional is_SQL_String As Boolean = False) As DataSet
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
Dim qb As New SqlCommandBuilder
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.ConnString
sqlconnect.Open()
Dim da As New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
If StoredProc = True Then
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = Tablename
Else
sqlcmd.CommandType = CommandType.Text
sqlcmd.CommandText = "Select * from " + Tablename
End If
If is_SQL_String = True Then
sqlcmd.CommandText = Tablename
End If
' sqlcmd.CommandType = CommandType.StoredProcedure
' sqlcmd.CommandText = "Berufsliste"
da.SelectCommand = sqlcmd
da.Fill(ds, "Daten")
qb = New SqlCommandBuilder(da)
For Each c As DataColumn In sourcetable.Columns
ds.Tables(0).Rows(0).Item(c.ColumnName) = sourcetable.Rows(0).Item(c.ColumnName)
Next
da.Update(ds, "Daten")
End Function
Public Sub Delete_Entry(ByVal Typ As Integer, ByVal Key As Integer)
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
Dim qb As New SqlCommandBuilder
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.ConnString
sqlconnect.Open()
Dim da As New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
Dim sql As String
If Typ = 1 Then
sql = "Update LOGBUCH "
Else
sql = "Update Policen "
End If
sql = sql + "set aktiv=0, Mutationsdatum=getdate(), mutierer=" + Globals.Userdaten.Rows(0).Item(0).ToString + " where "
If Typ = 1 Then
sql = sql + "nreintrag = " + Key.ToString
Else
sql = sql + "policeid = " + Key.ToString
End If
sqlcmd.CommandText = sql
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
End Sub
Public Sub insert_stammdaten(ByVal typ As String, ByVal Text As String)
Try
Dim sql As String
Select Case UCase(typ)
Case "GRUNDBUCH"
sql = "Insert grundbuch (grundbuch,aktiv) values('" + Text + "',1)"
Get_Tabledata(sql, False, True)
Case "GEGENPARTEI"
sql = "Insert Gegenpartei (Bezeichnung) values('" + Text + "')"
Get_Tabledata(sql, False, True)
Case "STDBEMERKUNG"
sql = "Insert Bemerkungen (Bemerkung) values('" + Text + "')"
Get_Tabledata(sql, False, True)
Case "VERSGESELLSCHAFT"
sql = "Insert Versgesellschaften (bezeichnung,aktiv) values('" + Text + "',1)"
Get_Tabledata(sql, False, True)
End Select
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Public Class ComboboxItem
Public Sub New(ByVal id As Integer, ByVal Bezeichnung As String)
mID = id
mBezeichnung = Bezeichnung
End Sub
Private mID As Integer
Public Property ID() As Integer
Get
Return mID
End Get
Set(ByVal value As Integer)
mID = value
End Set
End Property
Private mBezeichnung As String
Public Property Bezeichnung() As String
Get
Return mBezeichnung
End Get
Set(ByVal value As String)
mBezeichnung = value
End Set
End Property
End Class
Public Class ParamItem
Public Sub New(ByVal ParamName As String, ByVal ParamValue As String)
mParamName = ParamName
mParamValue = ParamValue
End Sub
Private mParamName As String
Property ParamName As String
Get
Return mParamName
End Get
Set(value As String)
mParamName = value
End Set
End Property
Private mParamValue As String
Public Property ParamValue() As String
Get
Return mParamValue
End Get
Set(ByVal value As String)
mParamValue = value
End Set
End Property
End Class

@ -0,0 +1,247 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="15.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{8A404216-38A9-4305-9BA2-04CD2AC20F32}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>Logbuch.My.MyApplication</StartupObject>
<RootNamespace>Logbuch</RootNamespace>
<AssemblyName>Logbuch</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>Logbuch.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>Logbuch.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<PropertyGroup>
<ApplicationIcon>book-multi-size.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup>
<Reference Include="C1.Win.C1Command.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8" />
<Reference Include="C1.Win.C1Command.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=e808566f358766d8" />
<Reference Include="C1.Win.C1Input.2, Version=2.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a, processorArchitecture=MSIL" />
<Reference Include="C1.Win.C1Input.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=7e7ff60f0c214f9a, processorArchitecture=MSIL" />
<Reference Include="C1.Win.C1TrueDBGrid.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=75ae3fb0e2b1e0da, processorArchitecture=MSIL" />
<Reference Include="FastReport, Version=2017.4.1.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\Framework 4.0\FastReport.dll</HintPath>
</Reference>
<Reference Include="FastReport.Bars, Version=2017.4.1.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\Framework 4.0\FastReport.Bars.dll</HintPath>
</Reference>
<Reference Include="FastReport.Editor, Version=2017.4.1.0, Culture=neutral, PublicKeyToken=db7e5ce63278458c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\FastReports\FastReport.Net\Framework 4.0\FastReport.Editor.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Design" />
<Reference Include="System.Drawing" />
<Reference Include="System.Web.Services" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
<Reference Include="System.Net.Http" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
<Import Include="System.Threading.Tasks" />
</ItemGroup>
<ItemGroup>
<Compile Include="DB\clsConnectionProvider.vb" />
<Compile Include="DB\clsDBInteractionBase.vb" />
<Compile Include="DB\clsKey_tabelle.vb" />
<Compile Include="DB\clsMyPartner.vb" />
<Compile Include="DB\clsSpalten.vb" />
<Compile Include="DB\MyDBObjects\clsMyKey_Tabelle.vb" />
<Compile Include="DB\MyDBObjects\db_connection.vb" />
<Compile Include="DB\MyDBObjects\frmDatenbankauswahl.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="frmSplash.designer.vb">
<DependentUpon>frmSplash.vb</DependentUpon>
</Compile>
<Compile Include="frmSplash.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Klassen\clsdbhandling.vb" />
<Compile Include="Klassen\clsSpalten.vb" />
<Compile Include="Logbuch\frmLogbuch.Designer.vb">
<DependentUpon>frmLogbuch.vb</DependentUpon>
</Compile>
<Compile Include="Logbuch\frmLogbuch.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Logbuch\frmPolice.Designer.vb">
<DependentUpon>frmPolice.vb</DependentUpon>
</Compile>
<Compile Include="Logbuch\frmPolice.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Logbuch\frmSchuldbrief.Designer.vb">
<DependentUpon>frmSchuldbrief.vb</DependentUpon>
</Compile>
<Compile Include="Logbuch\frmSchuldbrief.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
<Compile Include="Partner\frmPartnersuche.Designer.vb">
<DependentUpon>frmPartnersuche.vb</DependentUpon>
</Compile>
<Compile Include="Partner\frmPartnersuche.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Reports\frmAuswertung.Designer.vb">
<DependentUpon>frmAuswertung.vb</DependentUpon>
</Compile>
<Compile Include="Reports\frmAuswertung.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Reports\frmCRReporting.Designer.vb">
<DependentUpon>frmCRReporting.vb</DependentUpon>
</Compile>
<Compile Include="Reports\frmCRReporting.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Reports\frmKalender.Designer.vb">
<DependentUpon>frmKalender.vb</DependentUpon>
</Compile>
<Compile Include="Reports\frmKalender.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Sysadmin\frmSysadmin.Designer.vb">
<DependentUpon>frmSysadmin.vb</DependentUpon>
</Compile>
<Compile Include="Sysadmin\frmSysadmin.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Utils\Crypto.vb" />
<Compile Include="Utils\Globals.vb" />
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="DB\MyDBObjects\frmDatenbankauswahl.resx" />
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="frmSplash.resx">
<DependentUpon>frmSplash.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Logbuch\frmLogbuch.resx">
<DependentUpon>frmLogbuch.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Logbuch\frmPolice.resx">
<DependentUpon>frmPolice.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Logbuch\frmSchuldbrief.resx">
<DependentUpon>frmSchuldbrief.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\licenses.licx" />
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
<EmbeddedResource Include="Partner\frmPartnersuche.resx">
<DependentUpon>frmPartnersuche.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\frmAuswertung.resx">
<DependentUpon>frmAuswertung.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\frmCRReporting.resx">
<DependentUpon>frmCRReporting.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Reports\frmKalender.resx">
<DependentUpon>frmKalender.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Sysadmin\frmSysadmin.resx">
<DependentUpon>frmSysadmin.vb</DependentUpon>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
<None Include="App.config" />
</ItemGroup>
<ItemGroup>
<Content Include="book-48.ico" />
<Content Include="book-multi-size.ico" />
</ItemGroup>
<ItemGroup>
<Service Include="{C0C07587-41A7-46C8-8FBD-3F9C8EBE2DDC}" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ReferencePath>C:\Program Files (x86)\SAP BusinessObjects\Crystal Reports for .NET Framework 4.0\Common\SAP BusinessObjects Enterprise XI 4.0\win32_x86\dotnet\</ReferencePath>
</PropertyGroup>
</Project>

@ -0,0 +1,212 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmLogbuch
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmLogbuch))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.Tstxtpartnernr = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripLabel3 = New System.Windows.Forms.ToolStripLabel()
Me.tscbboxArt = New System.Windows.Forms.ToolStripComboBox()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.tscbboxmodus = New System.Windows.Forms.ToolStripComboBox()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.C1Daten = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeuerEintragToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EintragAnzeigenBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.EintragLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1.SuspendLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.ToolStripLabel1, Me.Tstxtpartnernr, Me.ToolStripButton2, Me.ToolStripSeparator1, Me.ToolStripLabel3, Me.tscbboxArt, Me.ToolStripSeparator2, Me.ToolStripLabel2, Me.tscbboxmodus, Me.ToolStripButton3})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1073, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Image = CType(resources.GetObject("ToolStripButton1.Image"), System.Drawing.Image)
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton1.Text = "Schliessen"
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(66, 22)
Me.ToolStripLabel1.Text = "Partner-Nr:"
'
'Tstxtpartnernr
'
Me.Tstxtpartnernr.Name = "Tstxtpartnernr"
Me.Tstxtpartnernr.Size = New System.Drawing.Size(100, 25)
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Image = CType(resources.GetObject("ToolStripButton2.Image"), System.Drawing.Image)
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton2.Text = "Partner suchen"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 25)
'
'ToolStripLabel3
'
Me.ToolStripLabel3.Name = "ToolStripLabel3"
Me.ToolStripLabel3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripLabel3.Text = "Art"
'
'tscbboxArt
'
Me.tscbboxArt.Items.AddRange(New Object() {"Aktive Einträge", "Alle Einträge", "Inaktive Einträge"})
Me.tscbboxArt.Name = "tscbboxArt"
Me.tscbboxArt.Size = New System.Drawing.Size(121, 25)
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(47, 22)
Me.ToolStripLabel2.Text = "Modus:"
'
'tscbboxmodus
'
Me.tscbboxmodus.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.tscbboxmodus.Items.AddRange(New Object() {"Schuldbrife", "Policen"})
Me.tscbboxmodus.Name = "tscbboxmodus"
Me.tscbboxmodus.Size = New System.Drawing.Size(121, 25)
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = CType(resources.GetObject("ToolStripButton3.Image"), System.Drawing.Image)
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton3.Text = "Neuer Eintrag"
'
'C1Daten
'
Me.C1Daten.CellTips = C1.Win.C1TrueDBGrid.CellTipEnum.Floating
Me.C1Daten.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Daten.Dock = System.Windows.Forms.DockStyle.Fill
Me.C1Daten.FilterBar = True
Me.C1Daten.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Daten.Images.Add(CType(resources.GetObject("C1Daten.Images"), System.Drawing.Image))
Me.C1Daten.Location = New System.Drawing.Point(0, 25)
Me.C1Daten.Name = "C1Daten"
Me.C1Daten.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Daten.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Daten.PreviewInfo.ZoomFactor = 75.0R
Me.C1Daten.PrintInfo.PageSettings = CType(resources.GetObject("C1Daten.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Daten.PropBag = resources.GetString("C1Daten.PropBag")
Me.C1Daten.Size = New System.Drawing.Size(1073, 406)
Me.C1Daten.TabAction = C1.Win.C1TrueDBGrid.TabActionEnum.ColumnNavigation
Me.C1Daten.TabIndex = 10
Me.C1Daten.Text = "C1TrueDBGrid1"
Me.C1Daten.VisualStyle = C1.Win.C1TrueDBGrid.VisualStyle.Office2010Silver
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerEintragToolStripMenuItem, Me.EintragAnzeigenBearbeitenToolStripMenuItem, Me.EintragLöschenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(223, 92)
'
'NeuerEintragToolStripMenuItem
'
Me.NeuerEintragToolStripMenuItem.Name = "NeuerEintragToolStripMenuItem"
Me.NeuerEintragToolStripMenuItem.Size = New System.Drawing.Size(222, 22)
Me.NeuerEintragToolStripMenuItem.Text = "&Neuer Eintrag"
'
'EintragAnzeigenBearbeitenToolStripMenuItem
'
Me.EintragAnzeigenBearbeitenToolStripMenuItem.Name = "EintragAnzeigenBearbeitenToolStripMenuItem"
Me.EintragAnzeigenBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(222, 22)
Me.EintragAnzeigenBearbeitenToolStripMenuItem.Text = "Eintrag anzeigen/bearbeiten"
'
'EintragLöschenToolStripMenuItem
'
Me.EintragLöschenToolStripMenuItem.Name = "EintragLöschenToolStripMenuItem"
Me.EintragLöschenToolStripMenuItem.Size = New System.Drawing.Size(222, 22)
Me.EintragLöschenToolStripMenuItem.Text = "Eintrag löschen"
'
'frmLogbuch
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1073, 431)
Me.Controls.Add(Me.C1Daten)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmLogbuch"
Me.Text = "Schuldbriefe / Policen"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
CType(Me.C1Daten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents Tstxtpartnernr As ToolStripTextBox
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ToolStripLabel3 As ToolStripLabel
Friend WithEvents tscbboxArt As ToolStripComboBox
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents ToolStripLabel2 As ToolStripLabel
Friend WithEvents tscbboxmodus As ToolStripComboBox
Friend WithEvents C1Daten As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents NeuerEintragToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EintragAnzeigenBearbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents EintragLöschenToolStripMenuItem As ToolStripMenuItem
End Class

@ -0,0 +1,380 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAK0SURBVDhPnZLfS1NhGMdfCPoDuummi+i6qwYmlYjb3Obx
7MzN1dY5Z9tJV86Min5BlvZb07Is1CKHqVQYlVoZaZmlaGQopSLmkuwigoooguii4NNRY7HLeuAD7/PC
++H9Pu8r/qc+Tw8EP8yO/mzZm8mfrYVqK8/tbD+SS+exOaQkHUclrpfZeRzfyafJHj6O3eXb636u7rem
CjrKZVal21m91kZ6xl/S1lpZaVnH90QPic5DjNT7+ZJ4QttBR6qgvVQm0+rEZpewO1xJrNlO0tbZeNUS
YeSSznBDkE8T3dw8nJMqcNQKpMpF5Nh9SC4FKceNJMm4XDIZVonJZoPhiyGe1gV5P9IxH/XPUSFsJwWJ
9604TUlulobbGUCR/CiyF9ntIcvhZjweZqhep792I7OD17hXoSwIbJWCsbeNNPcLMisE9hqB87xALl2K
VwniyfOTnetj9JJG/zmd7/eXM9XbRHeVF+GqFjx7U0F8SNA4aK5nCnn+JsKLd+F5yXpPmPz8IJInwPMG
lb6zGj96VjBxr57eGv+C4FFiD/FRQXxE0DQuaJ4UvPwawXFOEMwvZEMghDtfY6guQO+ZII17nLzoOMmT
2sB8BIvdjNA1tZnWhCBrLsIpgeOsIK9sGboaRdUNfEGDgVo/D06v59YRhWfXyhmsU5NDtGRXCTpnfDjP
CIzALgytBCNchGFEiRgFBEJR+mq83K/20VXpZeDyboYvhFKe0eI0r6xULyZqbCdaWExhtGieAhNtU4yH
1R66KvK4fdxDT32M0cZIikC0lKxhS3EJxbEdFG/dliRmUlC0nQdVMndOKLQfc3PndIixpgKEruvoWghN
C6Oqc5hrVTN7NYlq9hs26uyLBbhSrpg/UObG0TwmWzcvDPFfKdXT9jccyPg1fSWWGuEfaonJKiGE5Tdo
FcKGVVlc7gAAAABJRU5ErkJggg==
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHxSURBVDhPYxgFGICxpbF5o6ur6wNjY2MuqBiDhYWFkI+3
94PO9vYFUCFMkJ+fr1BUUNCVlJD439zM/L+ZsXGAoaGhr5ubmwfQgGgLoFhaSsr/6srKtubqZlmoNghY
PG+x0bIlS79ER0b9t7e1++/u6vbfzMT0X3BwyP+4uASQgf9AYiC5/Ny8/2vXrv24bNkybah2BoaF8xau
q6+t+29na/tfQ139P8g2K0ur/yUlJZ9LS0q/wvi21jb/y0pK/q9cvuL/7h27FoM1L5o717ykuPhPVVnJ
/+DAgP/iYmL/tTQ0wYpNDA13AvEROxvb/04Ojv9NjU3+JyfE/6+tKP9fWlLyZ9miReYMzg726wIMFf/n
e5r8b0iP/G9jpPffxsr6f3dn139zE/OF1hYWa6ZMmvw/LCT0v5m26v8wE6X/1RFu/2szY//b2FiuZTCT
E/+ZZybxv99H43+bt/b/aDOF/5qamjuszK0y9fT0xLS0tCQszCzS9bS1twXoy/5vcFX9PznY4H+dm9p/
XVHRnwyaKipHOtwU/+9LNfm/KETzv5+BIsiAALD/kICamlpAoLEyWA1IbYer4n9VBfmjDOrq6lKOpvpr
CpyN3uX629/z9vAogOrBADZWVoVp3tYP6kOtPwS7OazT19eXhkoNXcDAAABhb8pBnSSQ0QAAAABJRU5E
rkJggg==
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAINSURBVDhPY6AVYAyc67K/+XD1/SYg9p3quAQqTiQIZWAO
Wu75Zu6Nuf9nX5/9322S/TmoDJEAaIDnctc3k69M/D/hSt9/p0nm56EyRAKwATZveq+0/O++0gg0wAiP
AfUMTOYLtWx81tnYB0CxZZ+ak88myw9dV8v/d1wp+e88T++2/XxtB591FvYeQOyyzsTeYJGyFVi/cAGn
Se6J5P99V5v+T7ze8H/Szbr/U27V/O++kfe/43rm/9Zr6f87r+f+775e9L/tSsH/hot5/yvPZf8P2Ov6
ny+OXZlBLJfTogoo0H+9Fqi56v+U2xX/p94p/d9+M+5/283o/y03I/533Ur+33Mz63/79fT/DZdT/1ee
T/4fdtD5P28ImzqDUAaLRcQOwf9ph4T/554U+l94Ruh/wRnB/zXXzP633/H533rH83/5ZZ3/+af5/+cB
cdZx/v9JB/j++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaQdFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwAsbvzUSNPIp4AAAAASUVORK5CYII=
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<data name="C1Daten.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO
wwAADsMBx2+oZAAAADRJREFUKFN1iQEKACAMAv3/p4six3R5IIqHD+v1oIu0Lzy8B0cwQhcpQhSEwrvo
R9qCCWADoKoc5CkvobIAAAAASUVORK5CYII=
</value>
</data>
<data name="C1Daten.PrintInfo.PageSettings" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACRTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5QYWdlU2V0dGluZ3MHAAAAD3ByaW50ZXJTZXR0aW5ncwVjb2xvcglwYXBlclNp
emULcGFwZXJTb3VyY2URcHJpbnRlclJlc29sdXRpb24JbGFuZHNjYXBlB21hcmdpbnMEBAQEBAQEJ1N5
c3RlbS5EcmF3aW5nLlByaW50aW5nLlByaW50ZXJTZXR0aW5ncwIAAAAgU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuVHJpU3RhdGUCAAAAIVN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlBhcGVyU2l6ZQIAAAAjU3lz
dGVtLkRyYXdpbmcuUHJpbnRpbmcuUGFwZXJTb3VyY2UCAAAAKVN5c3RlbS5EcmF3aW5nLlByaW50aW5n
LlByaW50ZXJSZXNvbHV0aW9uAgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAf
U3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuTWFyZ2lucwIAAAACAAAACQMAAAAF/P///yBTeXN0ZW0uRHJh
d2luZy5QcmludGluZy5UcmlTdGF0ZQEAAAAFdmFsdWUAAgIAAAAACgoKAfv////8////AAkGAAAABQMA
AAAnU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRlclNldHRpbmdzEgAAAAtwcmludGVyTmFtZQpk
cml2ZXJOYW1lCm91dHB1dFBvcnQLcHJpbnRUb0ZpbGUUcHJpbnREaWFsb2dEaXNwbGF5ZWQKZXh0cmFi
eXRlcwlleHRyYWluZm8GY29waWVzBmR1cGxleAdjb2xsYXRlE2RlZmF1bHRQYWdlU2V0dGluZ3MIZnJv
bVBhZ2UGdG9QYWdlB21heFBhZ2UHbWluUGFnZQpwcmludFJhbmdlDGRldm1vZGVieXRlcw1jYWNoZWRE
ZXZtb2RlAQEBAAAABwAEBAQAAAAABAAHAQEHAgceU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuRHVwbGV4
AgAAACBTeXN0ZW0uRHJhd2luZy5QcmludGluZy5UcmlTdGF0ZQIAAAAkU3lzdGVtLkRyYXdpbmcuUHJp
bnRpbmcuUGFnZVNldHRpbmdzAgAAAAgICAgiU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuUHJpbnRSYW5n
ZQIAAAAHAgIAAAAKBgcAAAAACQcAAAAAAAAACv//Bfj///8eU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcu
RHVwbGV4AQAAAAd2YWx1ZV9fAAgCAAAA/////wH3/////P///wAJCgAAAAAAAAAAAAAADycAAAAAAAAF
9f///yJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAQAAAAd2YWx1ZV9fAAgCAAAAAAAA
AAAACgUGAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMIAAAABGxlZnQFcmlnaHQDdG9w
BmJvdHRvbQpkb3VibGVMZWZ0C2RvdWJsZVJpZ2h0CWRvdWJsZVRvcAxkb3VibGVCb3R0b20AAAAAAAAA
AAgICAgGBgYGAgAAAGQAAABkAAAAZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZ
QAEKAAAAAQAAAAkDAAAAAfP////8////AAoKCgHy/////P///wAJDwAAAAEPAAAABgAAAGQAAABkAAAA
ZAAAAGQAAAAAAAAAAABZQAAAAAAAAFlAAAAAAAAAWUAAAAAAAABZQAs=
</value>
</data>
<data name="C1Daten.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style3{}Footer{}Style14{}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{ForeColor:Black;BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" FilterBorderStyle="Raised" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FilterWatermarkStyle parent="FilterWatermark" me="Style14" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 1071, 404&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;BorderStyle&gt;Sunken&lt;/BorderStyle&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 1071, 404&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAMDAAAAEAIACoJQAAFgAAACgAAAAwAAAAYAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
AAYAgAAmAIAAGACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
AAIAgAAyAIAAdgCAALQAgADSAIAAugCAADAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAACAIAAEgCA
ACoAgABUAIAAmACAAN4AgAD/AIAA/wCAAP8AgAD/AIAA/wCAANYAgAAeAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAIAAEACA
ADwAgAB0AIAApACAANIAgAD6AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACmAIAAHAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAACACA
ADYAgACKAIAAwACAANwAgAD2AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPoAgAD4AIAA/wCA
AP8AgAD0AIAAiACAAA4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAIAgAAWAIAALgCA
AFYAgACmAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD6AIAA6ACAANAAgACgAIAAWgCA
ABgAgABcAIAA6gCAAP8AgAD/AIAA+ACAAH4AgAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAASAIAAQACA
AHIAgACsAIAA2gCAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA6ACAALwAgACCAIAAVACA
ACQAgAAAAAAAAAAAAAAAgAAOAIAAgACAAPAAgAD/AIAA/wCAAPIAgABSAIAAAgAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAACAIAAIgCA
AHQAgADCAIAA3gCAAPYAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA8gCAAL4AgABqAIAAOACA
AB4AgAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAFgCAAKQAgAD/AIAA/wCAAP8AgADSAIAAPACA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACA
AA4AgACGAIAA8ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPoAgADkAIAAzACAAKAAgABOAIAAEgCA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAoAgADAAIAA/ACA
AP8AgAD/AIAAygCAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAIAADgCAAH4AgAD6AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADiAIAAtACAAIQAgABMAIAAHACA
AAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAA2AIAAzACAAP8AgAD/AIAA/ACAALYAgAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAACAIAAYACAAOoAgAD/AIAA/wCAAP8AgAD0AIAAvACAAHAAgAA0AIAAGgCA
AAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAEAIAAUgCAAOQAgAD/AIAA/wCAAPwAgACKAIAACAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAqAIAAzgCAAP8AgAD/AIAA9ACAAKIAgAAYAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAFgAgADyAIAA/wCAAP8AgADyAIAAgACA
AAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgABgAIAA+gCAAP8AgAD8AIAAqgCA
ABoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAIAgACMAIAA9gCA
AP8AgAD/AIAA5gCAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgACgAIAA/wCA
AP8AgADmAIAAUgCAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAQAIAASACAAG4AgAAiAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAaAIAApgCAAPwAgAD/AIAA/wCAAOIAgAAqAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgADSAIAA/wCAAP8AgADOAIAAHgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAAAIAACgCAACAAgAA+AIAAdACAALQAgAD2AIAA/wCAAP8AgADaAIAARgCA
AAQAAAAAAAAAAAAAAAAAAAAAAIAAHACAALAAgAD/AIAA/wCAAP8AgADMAIAALgCAAAIAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgADgAIAA/wCAAP8AgADGAIAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAACACAACwAgABiAIAAkACAAL4AgADuAIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD8AIAAxgCAADQAAAAAAAAAAAAAAAAAAAAAAAAAAACAACwAgADaAIAA/wCAAP8AgAD6AIAArACA
AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgADaAIAA/wCAAP8AgADIAIAAFAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAABACAACoAgAB6AIAAtACAANQAgADuAIAA/ACAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAMIAgAAOAAAAAAAAAAAAAAAAAAAAAACAAAAAgABWAIAA6ACA
AP8AgAD/AIAA9gCAAJQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAC2AIAA/wCAAP8AgADcAIAAOgCA
AAAAAAAAAAAAAACAAAIAgAAYAIAALgCAAFIAgACgAIAA3gCAAPwAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACuAIAAHACAAAAAAAAAAAAAAAAA
AAAAgAAEAIAAYgCAAOgAgAD/AIAA/wCAAP8AgAByAIAACAAAAAAAAAAAAAAAAAAAAAAAgACIAIAA/wCA
AP8AgAD2AIAAogCAAD4AgAAwAIAAUgCAAHoAgACuAIAA2gCAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD0AIAAkgCA
ABQAAAAAAAAAAAAAAAAAAAAAAIAADACAAH4AgAD/AIAA/wCAAP8AgADkAIAAWACAAAYAAAAAAAAAAAAA
AAAAgABQAIAA+gCAAP8AgAD/AIAA9gCAAN4AgADWAIAA6ACAAPoAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA8ACAAHwAAAAAAAAAAAAAAAAAAAAAAAAAAACAABAAgACyAIAA/wCAAP8AgAD8AIAA0gCA
ADQAAAAAAAAAAAAAAAAAgAAkAIAAyACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPwAgABkAIAACAAAAAAAAAAAAAAAAAAAAAAAgAAgAIAAtgCA
APoAgAD/AIAA/wCAANYAgAAcAAAAAAAAAAAAgAAIAIAAhACAAPgAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADgAIAAUgCAAAQAAAAAAAAAAAAA
AAAAgAAAAIAAOgCAANAAgAD/AIAA/wCAAP8AgACgAIAAGAAAAAAAgAAAAIAALgCAANQAgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA0gCA
ADYAAAAAAAAAAAAAAAAAAAAAAIAABACAAEwAgAD6AIAA/wCAAP8AgADyAIAAfgCAAAoAAAAAAAAAAACA
ADwAgADoAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAN4AgAAmAIAAAAAAAAAAAAAAAAAAAAAAAAAAgABwAIAA8gCAAP8AgAD/AIAA9ACA
AF4AAAAAAAAAAAAAAAAAgABmAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgACwAIAAIgAAAAAAAAAAAAAAAAAAAAAAgAAUAIAAngCA
APoAgAD/AIAA/wCAAJwAAAAAAAAAAAAAAAAAgAAMAIAAfACAAPAAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD2AIAAlgCAABQAAAAAAAAAAAAA
AAAAgAAAAIAAZACAAPAAgAD/AIAA/wCAAH4AAAAAAAAAAAAAAAAAAAAAAIAABgCAAHoAgAD4AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACA
AJQAgAAIAAAAAAAAAAAAAAAAAIAAZgCAAPIAgAD/AIAA/wCAAFQAAAAAAAAAAAAAAAAAAAAAAAAAAACA
AAgAgACeAIAA+ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAPgAgABqAIAACAAAAAAAAAAAAIAAZgCAAPIAgAD/AIAA/wCAAFgAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAgAIAArACAAPwAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgADiAIAAVgCAAAIAAAAAAIAAWgCAAOwAgAD/AIAA/wCA
AHwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAHACAAK4AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA4gCAAFAAAAAAAIAALACA
ANIAgAD/AIAA/wCAAJwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAACQAgADMAIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAPIAgADOAIAAwACAAOgAgAD/AIAA/wCAAP8AgAD/AIAA/wCA
ANYAgAAqAIAABgCAAIAAgAD0AIAA4gCAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgABEAIAA1gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAOAAgACeAIAAaACAAD4AgAAoAIAAIACAAEYAgADuAIAA/wCA
AP8AgAD/AIAA/wCAAP8AgACwAIAAHgCAABAAgAA8AIAANACAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAAAIAARACAANQAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/ACAAPAAgADaAIAAxACAAJoAgABWAIAAHgCAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgABOAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD8AIAAqgCAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAgCAAFAAgADuAIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/ACAAOYAgAC2AIAAjACAAGQAgAA2AIAAEACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAUAIAApgCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA+ACAAJQAgAAGAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAQAgAByAIAA9ACA
AP8AgAD/AIAA/wCAAP8AgAD0AIAAkgCAADYAgAAcAIAACACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAgAAEAIAAKACAAGQAgACsAIAA5gCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
APYAgABoAIAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAIAIAAcgCAAO4AgAD/AIAA/wCAAP8AgAD2AIAAhgCAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAACAIAAEACAACIAgAA8AIAAaACAAKIAgADkAIAA/ACAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgADqAIAAZACAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAAEACAAIQAgAD8AIAA/wCAAP8AgAD/AIAA5gCAAGQAAAAAAAAAAAAA
AAAAgAAGAIAAIgCAAEgAgAB2AIAAnACAAMQAgADuAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA2ACAAEYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAABAAgACqAIAA/wCAAP8AgAD/AIAA/wCA
AOYAgAB0AIAAXACAAIAAgAC2AIAA0ACAAOIAgAD4AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAL4AAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAYAIAApACA
APgAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AMIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAgAAAAIAAKACAALYAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
APwAgADeAIAAsACAAEQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAIAAAACAACgAgADeAIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCA
APQAgAC+AIAAiACAAFQAgAAwAIAAGgCAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAA2AIAA0ACAAPwAgAD/AIAA/wCA
AP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/ACAAPAAgADcAIAAygCA
AKgAgABsAIAANgCAAAoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAEAIAATACA
ANoAgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD/AIAA9ACAANYAgACsAIAAiACA
AGQAgAA6AIAAGACAAAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAIAABgCAAFAAgAD4AIAA/wCAAP8AgAD/AIAA/wCAAP8AgAD8AIAA4ACAAKwAgABsAIAAQgCA
ACwAgAAWAIAABgCAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgABaAIAAygCAANAAgAC4AIAAigCAAFYAgAAaAIAAAgAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAEAIAAHACAACQAgAAGAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///////8AAP///////wAA////x///
AAD///wD//8AAP//4AH//wAA//4AAP//AAD/8ABw//8AAP+AA/B//wAA/AA/+D//AADgAf/8H/8AAOAP
//4P/wAAwP///wf/AACD////g/8AAIf///+D/wAAD////8H/AAAP//4P4P8AAA//4AfwfwAAD/8AA/g/
AAAP8AAB/D8AAAeAAAD+HwAAgAAAAP4PAACAAAAAfwcAAIAAAAA/gwAAwAAAAB/DAADgAAAAD+EAAPAA
AAAH4AAA+AAAAAPxAAD8AAAAAfEAAPwAAAAB8QAA/gAAAADxAAD/AAAAAHAAAP+AAAAAMQAA/8AAAfAf
AAD/4AAf+A8AAP/wAf/4BwAA//gP//AHAAD//A//AAMAAP/8D/AAAQAA//4GAAAAAAD//wAAAAAAAP//
gAAAAQAA///AAAAPAAD//+AAAf8AAP//8AAf/wAA///4A///AAD///w///8AAP///////wAA////////
AAA=
</value>
</data>
</root>

@ -0,0 +1,218 @@
Imports System.ComponentModel
Imports C1.Win.C1TrueDBGrid
Public Class frmLogbuch
Dim spalten As New Utils.Tabellenspalte
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Me.Close()
End Sub
Private Sub frmLogbuch_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.tscbboxmodus.Items.Clear()
If Globals.Userdaten.Rows(0).Item("es_anzeigen") = True Or Globals.Userdaten.Rows(0).Item("es_bearbeiten") = True Then
Me.tscbboxmodus.Items.Add("Schuldbriefe")
End If
If Globals.Userdaten.Rows(0).Item("policen_anzeigen") = True Or Globals.Userdaten.Rows(0).Item("policen_bearbeiten") = True Then
Me.tscbboxmodus.Items.Add("Policen")
End If
If Me.tscbboxmodus.Items.Count < 1 Then
MsgBox("Sie haben keine Berechtigungen für diesen Dialog.", vbExclamation)
Exit Sub
End If
Try
Me.tscbboxArt.SelectedIndex = 0
Me.tscbboxmodus.SelectedIndex = 0
Refresh_View()
Catch
End Try
End Sub
Private Sub Refresh_View()
Try
Dim bm As Integer = C1Daten.Bookmark
Dim data As New DataTable
Dim db As New clsdbhandling
Dim i As Integer
i = Me.tscbboxmodus.SelectedIndex
If i = 0 Then i = 1 Else i = 0
db.get_datatable(i, Me.Tstxtpartnernr.Text)
data = db.daten.Tables(0).Copy
For Each r As DataRow In data.Rows
For Each c As DataColumn In data.Columns
If r.Item(c.ColumnName).ToString = "01.01.1900 00:00:00" Then
r.Item(c.ColumnName) = System.DBNull.Value
End If
Next
Next
Me.C1Daten.DataSource = Nothing
Me.C1Daten.DataSource = data
Me.C1Daten.DataMember = data.TableName
If i = 1 Then
spalten.Spaltentitel_aktualisieren(C1Daten, "Logbuch_View", data)
Else
spalten.Spaltentitel_aktualisieren(C1Daten, "Policen_View", data)
End If
Set_Filter()
C1Daten.Bookmark = bm
Me.ToolStripButton3.Enabled = True
If Me.tscbboxmodus.Text = "Schuldbriefe" And Globals.Userdaten.Rows(0).Item("ES_Bearbeiten") = False Then
Me.ToolStripButton3.Enabled = False
Me.NeuerEintragToolStripMenuItem.Enabled = False
Me.EintragLöschenToolStripMenuItem.Enabled = False
End If
If Me.tscbboxmodus.Text = "Policen" And Globals.Userdaten.Rows(0).Item("Plicen_Bearbeiten") = False Then
Me.ToolStripButton3.Enabled = False
Me.NeuerEintragToolStripMenuItem.Enabled = False
Me.EintragLöschenToolStripMenuItem.Enabled = False
End If
Catch
End Try
End Sub
Sub Set_Filter()
Try
Select Case Me.tscbboxArt.SelectedIndex
Case 0
Me.C1Daten.Columns("aktiv").FilterText = True
Case 1
Me.C1Daten.Columns("aktiv").FilterText = 0
Case 2
Me.C1Daten.Columns("aktiv").FilterText = False
End Select
Catch
End Try
End Sub
Private Sub Tstxtpartnernr_KeyDown(sender As Object, e As KeyEventArgs) Handles Tstxtpartnernr.KeyDown
If e.KeyCode = Keys.Enter Then Refresh_View()
End Sub
Private Sub C1Daten_DoubleClick(sender As Object, e As EventArgs) Handles C1Daten.DoubleClick
Try
Dim i As Integer
If Me.tscbboxmodus.Text = "Schuldbriefe" Then
Dim f As New frmSchuldbrief
f.SchuldbriefNr = C1Daten.Columns(0).Value
f.ShowDialog()
Else
Dim f As New frmPolice
f.Policenr = C1Daten.Columns(0).Value
f.ShowDialog()
End If
Refresh_View()
Catch ex As Exception
End Try
End Sub
Private Sub tscbboxmodus_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscbboxmodus.SelectedIndexChanged
Refresh_View()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Dim f As New frmPartnersuche
f.ShowDialog()
If f.PartnerNr > 0 Then
Me.Tstxtpartnernr.Text = f.PartnerNr
Refresh_View()
End If
End Sub
Private Sub tscbboxArt_SelectedIndexChanged(sender As Object, e As EventArgs) Handles tscbboxArt.SelectedIndexChanged
Set_Filter()
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Dim key As Integer
If Me.tscbboxmodus.Text = "Schuldbriefe" Then
Dim f As New frmSchuldbrief
f.SchuldbriefNr = -1
f.ShowDialog()
key = f.SchuldbriefNr
Else
Dim f As New frmPolice
f.Policenr = -1
f.ShowDialog()
key = f.Policenr
End If
Refresh_View()
Try
For i As Integer = 0 To Me.C1Daten.Splits(0).Rows.Count - 1
If C1Daten.Rows(i).Item("nreintrag") = key Then C1Daten.Bookmark = i
Next
Catch ex As Exception
End Try
End Sub
Private Sub tscbboxmodus_Click(sender As Object, e As EventArgs) Handles tscbboxmodus.Click
End Sub
Private Sub tscbboxmodus_Leave(sender As Object, e As EventArgs) Handles tscbboxmodus.Leave
If Me.tscbboxmodus.Text <> "Schuldbriefe" And Me.tscbboxmodus.Text <> "Policen" Then
Me.tscbboxmodus.Select()
Me.tscbboxmodus.SelectedIndex = 0
End If
End Sub
Private Sub c1daten_formattext(ByVal sender As Object, ByVal e As C1.Win.C1TrueDBGrid.FormatTextEventArgs) Handles C1Daten.FormatText
If e.Column.DataType.Name = "DateTime" And e.Value = "01.01.1900 00:00:00" Then e.Value = ""
End Sub
Private Sub NeuerEintragToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuerEintragToolStripMenuItem.Click
Me.ToolStripButton3_Click(sender, e)
End Sub
Private Sub EintragAnzeigenBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragAnzeigenBearbeitenToolStripMenuItem.Click
Me.C1Daten_DoubleClick(sender, e)
End Sub
Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
If MsgBox("Eintrag wirklihc löschen?", vbYesNo + vbQuestion) = vbYes Then
Dim key As Integer = C1Daten.Columns(0).Value
Dim db As New clsdbhandling
If Me.tscbboxmodus.Text = "Schuldbriefe" Then
db.Delete_Entry(1, key)
Else
db.Delete_Entry(2, key)
End If
Refresh_View()
End If
End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
Me.EintragAnzeigenBearbeitenToolStripMenuItem.Enabled = True
Me.EintragLöschenToolStripMenuItem.Enabled = True
If Me.C1Daten.Splits(0).Rows.Count < 1 Then
Me.EintragAnzeigenBearbeitenToolStripMenuItem.Enabled = False
Me.EintragLöschenToolStripMenuItem.Enabled = False
End If
End Sub
End Class

@ -0,0 +1,988 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmPolice
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmPolice))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnexit = New System.Windows.Forms.ToolStripButton()
Me.tsbtensave = New System.Windows.Forms.ToolStripButton()
Me.tsbtndelete = New System.Windows.Forms.ToolStripButton()
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.dtpickerGemahntSchuldbrief2 = New System.Windows.Forms.DateTimePicker()
Me.txtGemahntSchuldbrief2 = New System.Windows.Forms.MaskedTextBox()
Me.dtpickerGemahntSchuldbrief1 = New System.Windows.Forms.DateTimePicker()
Me.txtGemahntSchuldbrief1 = New System.Windows.Forms.MaskedTextBox()
Me.dtpickermahnungSchuldbrief2 = New System.Windows.Forms.DateTimePicker()
Me.txtmahnungSchuldbrief2 = New System.Windows.Forms.MaskedTextBox()
Me.dtpickerMahnungSchuldbrief1 = New System.Windows.Forms.DateTimePicker()
Me.txtMahnungSchuldbrief1 = New System.Windows.Forms.MaskedTextBox()
Me.dtpickerTerminSchuldbrief = New System.Windows.Forms.DateTimePicker()
Me.txtTerminSchuldbrief = New System.Windows.Forms.MaskedTextBox()
Me.dtpickerGemahntEmpfangsschein2 = New System.Windows.Forms.DateTimePicker()
Me.txtGemahntEmpfangsschein2 = New System.Windows.Forms.MaskedTextBox()
Me.dtpickerGemahntEmpfangsschein1 = New System.Windows.Forms.DateTimePicker()
Me.txtGemahntEmpfangsschein1 = New System.Windows.Forms.MaskedTextBox()
Me.dtpickerMahnungEmpfangsschein2 = New System.Windows.Forms.DateTimePicker()
Me.txtMahnungEmpfangsschein2 = New System.Windows.Forms.MaskedTextBox()
Me.dtpickerMahnungEmpfangsschein1 = New System.Windows.Forms.DateTimePicker()
Me.txtMahnungEmpfangsschein1 = New System.Windows.Forms.MaskedTextBox()
Me.dtpickerTerminEmpfangsschein = New System.Windows.Forms.DateTimePicker()
Me.Label18 = New System.Windows.Forms.Label()
Me.txtTerminEmpfangsschein = New System.Windows.Forms.MaskedTextBox()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.Button4 = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.cbboxGegenpartei = New System.Windows.Forms.ComboBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.txtbemerkung = New System.Windows.Forms.TextBox()
Me.Label10 = New System.Windows.Forms.Label()
Me.cbboxstandardbemerkung = New System.Windows.Forms.ComboBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.cbboxversgesellschaft = New System.Windows.Forms.ComboBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.GrpStatus = New System.Windows.Forms.GroupBox()
Me.dtPickerEingangSB = New System.Windows.Forms.DateTimePicker()
Me.Label7 = New System.Windows.Forms.Label()
Me.txtEingangSB = New System.Windows.Forms.MaskedTextBox()
Me.cberledigt = New System.Windows.Forms.CheckBox()
Me.cbempfangsscheinerhalten = New System.Windows.Forms.CheckBox()
Me.cbeinlieferung = New System.Windows.Forms.CheckBox()
Me.cbtitelvorhanden = New System.Windows.Forms.CheckBox()
Me.cbneugeschäft = New System.Windows.Forms.CheckBox()
Me.cbdevauslieferung = New System.Windows.Forms.CheckBox()
Me.cbprovauslieferung = New System.Windows.Forms.CheckBox()
Me.cbpfandbrief = New System.Windows.Forms.CheckBox()
Me.cbgrundpfandverschreibung = New System.Windows.Forms.CheckBox()
Me.cbschuldbrief = New System.Windows.Forms.CheckBox()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.txtPolicenNr = New System.Windows.Forms.TextBox()
Me.txtNominal = New System.Windows.Forms.TextBox()
Me.dtPickerDatum = New System.Windows.Forms.DateTimePicker()
Me.txtDatum = New System.Windows.Forms.MaskedTextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.cbboxSachbearbeiter = New System.Windows.Forms.ComboBox()
Me.txtKurzname = New System.Windows.Forms.TextBox()
Me.txtPartnernr = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.cbeuro = New System.Windows.Forms.CheckBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbaktiv = New System.Windows.Forms.CheckBox()
Me.ToolStrip1.SuspendLayout()
Me.GroupBox3.SuspendLayout()
Me.GroupBox2.SuspendLayout()
Me.GrpStatus.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnexit, Me.tsbtensave, Me.tsbtndelete})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1013, 25)
Me.ToolStrip1.TabIndex = 6
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtnexit
'
Me.tsbtnexit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnexit.Image = CType(resources.GetObject("tsbtnexit.Image"), System.Drawing.Image)
Me.tsbtnexit.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnexit.Name = "tsbtnexit"
Me.tsbtnexit.Size = New System.Drawing.Size(23, 22)
Me.tsbtnexit.Text = "Schliessen"
'
'tsbtensave
'
Me.tsbtensave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtensave.Image = CType(resources.GetObject("tsbtensave.Image"), System.Drawing.Image)
Me.tsbtensave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtensave.Name = "tsbtensave"
Me.tsbtensave.Size = New System.Drawing.Size(23, 22)
Me.tsbtensave.Text = "Speichern"
'
'tsbtndelete
'
Me.tsbtndelete.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtndelete.Image = CType(resources.GetObject("tsbtndelete.Image"), System.Drawing.Image)
Me.tsbtndelete.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtndelete.Name = "tsbtndelete"
Me.tsbtndelete.Size = New System.Drawing.Size(23, 22)
Me.tsbtndelete.Text = "Löschen"
'
'GroupBox3
'
Me.GroupBox3.Controls.Add(Me.Button2)
Me.GroupBox3.Controls.Add(Me.dtpickerGemahntSchuldbrief2)
Me.GroupBox3.Controls.Add(Me.txtGemahntSchuldbrief2)
Me.GroupBox3.Controls.Add(Me.dtpickerGemahntSchuldbrief1)
Me.GroupBox3.Controls.Add(Me.txtGemahntSchuldbrief1)
Me.GroupBox3.Controls.Add(Me.dtpickermahnungSchuldbrief2)
Me.GroupBox3.Controls.Add(Me.txtmahnungSchuldbrief2)
Me.GroupBox3.Controls.Add(Me.dtpickerMahnungSchuldbrief1)
Me.GroupBox3.Controls.Add(Me.txtMahnungSchuldbrief1)
Me.GroupBox3.Controls.Add(Me.dtpickerTerminSchuldbrief)
Me.GroupBox3.Controls.Add(Me.txtTerminSchuldbrief)
Me.GroupBox3.Controls.Add(Me.dtpickerGemahntEmpfangsschein2)
Me.GroupBox3.Controls.Add(Me.txtGemahntEmpfangsschein2)
Me.GroupBox3.Controls.Add(Me.dtpickerGemahntEmpfangsschein1)
Me.GroupBox3.Controls.Add(Me.txtGemahntEmpfangsschein1)
Me.GroupBox3.Controls.Add(Me.dtpickerMahnungEmpfangsschein2)
Me.GroupBox3.Controls.Add(Me.txtMahnungEmpfangsschein2)
Me.GroupBox3.Controls.Add(Me.dtpickerMahnungEmpfangsschein1)
Me.GroupBox3.Controls.Add(Me.txtMahnungEmpfangsschein1)
Me.GroupBox3.Controls.Add(Me.dtpickerTerminEmpfangsschein)
Me.GroupBox3.Controls.Add(Me.Label18)
Me.GroupBox3.Controls.Add(Me.txtTerminEmpfangsschein)
Me.GroupBox3.Controls.Add(Me.Label17)
Me.GroupBox3.Controls.Add(Me.Label14)
Me.GroupBox3.Controls.Add(Me.Label15)
Me.GroupBox3.Controls.Add(Me.Label16)
Me.GroupBox3.Controls.Add(Me.Label13)
Me.GroupBox3.Controls.Add(Me.Label12)
Me.GroupBox3.Controls.Add(Me.Label11)
Me.GroupBox3.Location = New System.Drawing.Point(623, 24)
Me.GroupBox3.Name = "GroupBox3"
Me.GroupBox3.Size = New System.Drawing.Size(383, 249)
Me.GroupBox3.TabIndex = 10
Me.GroupBox3.TabStop = False
Me.GroupBox3.Text = "Termine"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(21, 212)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(136, 23)
Me.Button2.TabIndex = 11
Me.Button2.TabStop = False
Me.Button2.Text = "Termindaten initialisieren"
Me.Button2.UseVisualStyleBackColor = True
'
'dtpickerGemahntSchuldbrief2
'
Me.dtpickerGemahntSchuldbrief2.Location = New System.Drawing.Point(324, 173)
Me.dtpickerGemahntSchuldbrief2.Name = "dtpickerGemahntSchuldbrief2"
Me.dtpickerGemahntSchuldbrief2.Size = New System.Drawing.Size(21, 20)
Me.dtpickerGemahntSchuldbrief2.TabIndex = 47
Me.dtpickerGemahntSchuldbrief2.TabStop = False
'
'txtGemahntSchuldbrief2
'
Me.txtGemahntSchuldbrief2.Location = New System.Drawing.Point(261, 173)
Me.txtGemahntSchuldbrief2.Mask = "00/00/0000"
Me.txtGemahntSchuldbrief2.Name = "txtGemahntSchuldbrief2"
Me.txtGemahntSchuldbrief2.Size = New System.Drawing.Size(66, 20)
Me.txtGemahntSchuldbrief2.TabIndex = 9
Me.txtGemahntSchuldbrief2.ValidatingType = GetType(Date)
'
'dtpickerGemahntSchuldbrief1
'
Me.dtpickerGemahntSchuldbrief1.Location = New System.Drawing.Point(324, 143)
Me.dtpickerGemahntSchuldbrief1.Name = "dtpickerGemahntSchuldbrief1"
Me.dtpickerGemahntSchuldbrief1.Size = New System.Drawing.Size(21, 20)
Me.dtpickerGemahntSchuldbrief1.TabIndex = 45
Me.dtpickerGemahntSchuldbrief1.TabStop = False
'
'txtGemahntSchuldbrief1
'
Me.txtGemahntSchuldbrief1.Location = New System.Drawing.Point(261, 143)
Me.txtGemahntSchuldbrief1.Mask = "00/00/0000"
Me.txtGemahntSchuldbrief1.Name = "txtGemahntSchuldbrief1"
Me.txtGemahntSchuldbrief1.Size = New System.Drawing.Size(66, 20)
Me.txtGemahntSchuldbrief1.TabIndex = 7
Me.txtGemahntSchuldbrief1.ValidatingType = GetType(Date)
'
'dtpickermahnungSchuldbrief2
'
Me.dtpickermahnungSchuldbrief2.Location = New System.Drawing.Point(217, 170)
Me.dtpickermahnungSchuldbrief2.Name = "dtpickermahnungSchuldbrief2"
Me.dtpickermahnungSchuldbrief2.Size = New System.Drawing.Size(21, 20)
Me.dtpickermahnungSchuldbrief2.TabIndex = 43
Me.dtpickermahnungSchuldbrief2.TabStop = False
'
'txtmahnungSchuldbrief2
'
Me.txtmahnungSchuldbrief2.Location = New System.Drawing.Point(154, 170)
Me.txtmahnungSchuldbrief2.Mask = "00/00/0000"
Me.txtmahnungSchuldbrief2.Name = "txtmahnungSchuldbrief2"
Me.txtmahnungSchuldbrief2.Size = New System.Drawing.Size(66, 20)
Me.txtmahnungSchuldbrief2.TabIndex = 8
Me.txtmahnungSchuldbrief2.ValidatingType = GetType(Date)
'
'dtpickerMahnungSchuldbrief1
'
Me.dtpickerMahnungSchuldbrief1.Location = New System.Drawing.Point(217, 146)
Me.dtpickerMahnungSchuldbrief1.Name = "dtpickerMahnungSchuldbrief1"
Me.dtpickerMahnungSchuldbrief1.Size = New System.Drawing.Size(21, 20)
Me.dtpickerMahnungSchuldbrief1.TabIndex = 41
Me.dtpickerMahnungSchuldbrief1.TabStop = False
'
'txtMahnungSchuldbrief1
'
Me.txtMahnungSchuldbrief1.Location = New System.Drawing.Point(154, 146)
Me.txtMahnungSchuldbrief1.Mask = "00/00/0000"
Me.txtMahnungSchuldbrief1.Name = "txtMahnungSchuldbrief1"
Me.txtMahnungSchuldbrief1.Size = New System.Drawing.Size(66, 20)
Me.txtMahnungSchuldbrief1.TabIndex = 6
Me.txtMahnungSchuldbrief1.ValidatingType = GetType(Date)
'
'dtpickerTerminSchuldbrief
'
Me.dtpickerTerminSchuldbrief.Location = New System.Drawing.Point(217, 118)
Me.dtpickerTerminSchuldbrief.Name = "dtpickerTerminSchuldbrief"
Me.dtpickerTerminSchuldbrief.Size = New System.Drawing.Size(21, 20)
Me.dtpickerTerminSchuldbrief.TabIndex = 39
Me.dtpickerTerminSchuldbrief.TabStop = False
'
'txtTerminSchuldbrief
'
Me.txtTerminSchuldbrief.Location = New System.Drawing.Point(154, 118)
Me.txtTerminSchuldbrief.Mask = "00/00/0000"
Me.txtTerminSchuldbrief.Name = "txtTerminSchuldbrief"
Me.txtTerminSchuldbrief.Size = New System.Drawing.Size(66, 20)
Me.txtTerminSchuldbrief.TabIndex = 5
Me.txtTerminSchuldbrief.ValidatingType = GetType(Date)
'
'dtpickerGemahntEmpfangsschein2
'
Me.dtpickerGemahntEmpfangsschein2.Location = New System.Drawing.Point(324, 69)
Me.dtpickerGemahntEmpfangsschein2.Name = "dtpickerGemahntEmpfangsschein2"
Me.dtpickerGemahntEmpfangsschein2.Size = New System.Drawing.Size(21, 20)
Me.dtpickerGemahntEmpfangsschein2.TabIndex = 37
Me.dtpickerGemahntEmpfangsschein2.TabStop = False
'
'txtGemahntEmpfangsschein2
'
Me.txtGemahntEmpfangsschein2.Location = New System.Drawing.Point(261, 69)
Me.txtGemahntEmpfangsschein2.Mask = "00/00/0000"
Me.txtGemahntEmpfangsschein2.Name = "txtGemahntEmpfangsschein2"
Me.txtGemahntEmpfangsschein2.Size = New System.Drawing.Size(66, 20)
Me.txtGemahntEmpfangsschein2.TabIndex = 4
Me.txtGemahntEmpfangsschein2.ValidatingType = GetType(Date)
'
'dtpickerGemahntEmpfangsschein1
'
Me.dtpickerGemahntEmpfangsschein1.Location = New System.Drawing.Point(324, 46)
Me.dtpickerGemahntEmpfangsschein1.Name = "dtpickerGemahntEmpfangsschein1"
Me.dtpickerGemahntEmpfangsschein1.Size = New System.Drawing.Size(21, 20)
Me.dtpickerGemahntEmpfangsschein1.TabIndex = 35
Me.dtpickerGemahntEmpfangsschein1.TabStop = False
'
'txtGemahntEmpfangsschein1
'
Me.txtGemahntEmpfangsschein1.Location = New System.Drawing.Point(261, 46)
Me.txtGemahntEmpfangsschein1.Mask = "00/00/0000"
Me.txtGemahntEmpfangsschein1.Name = "txtGemahntEmpfangsschein1"
Me.txtGemahntEmpfangsschein1.Size = New System.Drawing.Size(66, 20)
Me.txtGemahntEmpfangsschein1.TabIndex = 2
Me.txtGemahntEmpfangsschein1.ValidatingType = GetType(Date)
'
'dtpickerMahnungEmpfangsschein2
'
Me.dtpickerMahnungEmpfangsschein2.Location = New System.Drawing.Point(217, 69)
Me.dtpickerMahnungEmpfangsschein2.Name = "dtpickerMahnungEmpfangsschein2"
Me.dtpickerMahnungEmpfangsschein2.Size = New System.Drawing.Size(21, 20)
Me.dtpickerMahnungEmpfangsschein2.TabIndex = 33
Me.dtpickerMahnungEmpfangsschein2.TabStop = False
'
'txtMahnungEmpfangsschein2
'
Me.txtMahnungEmpfangsschein2.Location = New System.Drawing.Point(154, 69)
Me.txtMahnungEmpfangsschein2.Mask = "00/00/0000"
Me.txtMahnungEmpfangsschein2.Name = "txtMahnungEmpfangsschein2"
Me.txtMahnungEmpfangsschein2.Size = New System.Drawing.Size(66, 20)
Me.txtMahnungEmpfangsschein2.TabIndex = 3
Me.txtMahnungEmpfangsschein2.ValidatingType = GetType(Date)
'
'dtpickerMahnungEmpfangsschein1
'
Me.dtpickerMahnungEmpfangsschein1.Location = New System.Drawing.Point(217, 45)
Me.dtpickerMahnungEmpfangsschein1.Name = "dtpickerMahnungEmpfangsschein1"
Me.dtpickerMahnungEmpfangsschein1.Size = New System.Drawing.Size(21, 20)
Me.dtpickerMahnungEmpfangsschein1.TabIndex = 31
Me.dtpickerMahnungEmpfangsschein1.TabStop = False
'
'txtMahnungEmpfangsschein1
'
Me.txtMahnungEmpfangsschein1.Location = New System.Drawing.Point(154, 45)
Me.txtMahnungEmpfangsschein1.Mask = "00/00/0000"
Me.txtMahnungEmpfangsschein1.Name = "txtMahnungEmpfangsschein1"
Me.txtMahnungEmpfangsschein1.Size = New System.Drawing.Size(66, 20)
Me.txtMahnungEmpfangsschein1.TabIndex = 1
Me.txtMahnungEmpfangsschein1.ValidatingType = GetType(Date)
'
'dtpickerTerminEmpfangsschein
'
Me.dtpickerTerminEmpfangsschein.Location = New System.Drawing.Point(217, 17)
Me.dtpickerTerminEmpfangsschein.Name = "dtpickerTerminEmpfangsschein"
Me.dtpickerTerminEmpfangsschein.Size = New System.Drawing.Size(21, 20)
Me.dtpickerTerminEmpfangsschein.TabIndex = 17
Me.dtpickerTerminEmpfangsschein.TabStop = False
'
'Label18
'
Me.Label18.AutoSize = True
Me.Label18.Location = New System.Drawing.Point(260, 126)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(67, 13)
Me.Label18.TabIndex = 29
Me.Label18.Text = "Gemahnt am"
'
'txtTerminEmpfangsschein
'
Me.txtTerminEmpfangsschein.Location = New System.Drawing.Point(154, 17)
Me.txtTerminEmpfangsschein.Mask = "00/00/0000"
Me.txtTerminEmpfangsschein.Name = "txtTerminEmpfangsschein"
Me.txtTerminEmpfangsschein.Size = New System.Drawing.Size(66, 20)
Me.txtTerminEmpfangsschein.TabIndex = 0
Me.txtTerminEmpfangsschein.ValidatingType = GetType(Date)
'
'Label17
'
Me.Label17.AutoSize = True
Me.Label17.Location = New System.Drawing.Point(260, 25)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(67, 13)
Me.Label17.TabIndex = 13
Me.Label17.Text = "Gemahnt am"
'
'Label14
'
Me.Label14.AutoSize = True
Me.Label14.Location = New System.Drawing.Point(18, 173)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(61, 13)
Me.Label14.TabIndex = 25
Me.Label14.Text = "Mahnung 2"
'
'Label15
'
Me.Label15.AutoSize = True
Me.Label15.Location = New System.Drawing.Point(18, 150)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(61, 13)
Me.Label15.TabIndex = 23
Me.Label15.Text = "Mahnung 1"
'
'Label16
'
Me.Label16.AutoSize = True
Me.Label16.Location = New System.Drawing.Point(18, 121)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(95, 13)
Me.Label16.TabIndex = 21
Me.Label16.Text = "Termin Schuldbrief"
'
'Label13
'
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(18, 72)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(61, 13)
Me.Label13.TabIndex = 17
Me.Label13.Text = "Mahnung 2"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(18, 49)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(61, 13)
Me.Label12.TabIndex = 15
Me.Label12.Text = "Mahnung 1"
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(18, 20)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(120, 13)
Me.Label11.TabIndex = 13
Me.Label11.Text = "Termin Empfangsschein"
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.Button4)
Me.GroupBox2.Controls.Add(Me.Button5)
Me.GroupBox2.Controls.Add(Me.Button3)
Me.GroupBox2.Controls.Add(Me.cbboxGegenpartei)
Me.GroupBox2.Controls.Add(Me.Label19)
Me.GroupBox2.Controls.Add(Me.txtbemerkung)
Me.GroupBox2.Controls.Add(Me.Label10)
Me.GroupBox2.Controls.Add(Me.cbboxstandardbemerkung)
Me.GroupBox2.Controls.Add(Me.Label9)
Me.GroupBox2.Controls.Add(Me.cbboxversgesellschaft)
Me.GroupBox2.Controls.Add(Me.Label8)
Me.GroupBox2.Location = New System.Drawing.Point(7, 312)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(610, 181)
Me.GroupBox2.TabIndex = 9
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Diverses"
'
'Button4
'
Me.Button4.Location = New System.Drawing.Point(348, 69)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(21, 23)
Me.Button4.TabIndex = 24
Me.Button4.TabStop = False
Me.Button4.Text = "N"
Me.Button4.UseVisualStyleBackColor = True
'
'Button5
'
Me.Button5.Location = New System.Drawing.Point(348, 17)
Me.Button5.Name = "Button5"
Me.Button5.Size = New System.Drawing.Size(21, 23)
Me.Button5.TabIndex = 23
Me.Button5.TabStop = False
Me.Button5.Text = "N"
Me.Button5.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(348, 42)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(21, 23)
Me.Button3.TabIndex = 21
Me.Button3.TabStop = False
Me.Button3.Text = "N"
Me.Button3.UseVisualStyleBackColor = True
'
'cbboxGegenpartei
'
Me.cbboxGegenpartei.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cbboxGegenpartei.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxGegenpartei.FormattingEnabled = True
Me.cbboxGegenpartei.Location = New System.Drawing.Point(106, 19)
Me.cbboxGegenpartei.Name = "cbboxGegenpartei"
Me.cbboxGegenpartei.Size = New System.Drawing.Size(240, 21)
Me.cbboxGegenpartei.Sorted = True
Me.cbboxGegenpartei.TabIndex = 0
'
'Label19
'
Me.Label19.AutoSize = True
Me.Label19.Location = New System.Drawing.Point(16, 20)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(65, 13)
Me.Label19.TabIndex = 19
Me.Label19.Text = "Gegenpartei"
'
'txtbemerkung
'
Me.txtbemerkung.Location = New System.Drawing.Point(106, 101)
Me.txtbemerkung.Multiline = True
Me.txtbemerkung.Name = "txtbemerkung"
Me.txtbemerkung.Size = New System.Drawing.Size(479, 74)
Me.txtbemerkung.TabIndex = 3
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(16, 104)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(61, 13)
Me.Label10.TabIndex = 17
Me.Label10.Text = "Bemerkung"
'
'cbboxstandardbemerkung
'
Me.cbboxstandardbemerkung.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cbboxstandardbemerkung.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxstandardbemerkung.FormattingEnabled = True
Me.cbboxstandardbemerkung.Location = New System.Drawing.Point(106, 71)
Me.cbboxstandardbemerkung.Name = "cbboxstandardbemerkung"
Me.cbboxstandardbemerkung.Size = New System.Drawing.Size(240, 21)
Me.cbboxstandardbemerkung.Sorted = True
Me.cbboxstandardbemerkung.TabIndex = 2
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(16, 72)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(80, 13)
Me.Label9.TabIndex = 15
Me.Label9.Text = "Std-Bemerkung"
'
'cbboxversgesellschaft
'
Me.cbboxversgesellschaft.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cbboxversgesellschaft.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cbboxversgesellschaft.FormattingEnabled = True
Me.cbboxversgesellschaft.Location = New System.Drawing.Point(106, 44)
Me.cbboxversgesellschaft.Name = "cbboxversgesellschaft"
Me.cbboxversgesellschaft.Size = New System.Drawing.Size(240, 21)
Me.cbboxversgesellschaft.Sorted = True
Me.cbboxversgesellschaft.TabIndex = 1
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(16, 45)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(92, 13)
Me.Label8.TabIndex = 13
Me.Label8.Text = "Vers.-Gesellschaft"
'
'GrpStatus
'
Me.GrpStatus.Controls.Add(Me.dtPickerEingangSB)
Me.GrpStatus.Controls.Add(Me.Label7)
Me.GrpStatus.Controls.Add(Me.txtEingangSB)
Me.GrpStatus.Controls.Add(Me.cberledigt)
Me.GrpStatus.Controls.Add(Me.cbempfangsscheinerhalten)
Me.GrpStatus.Controls.Add(Me.cbeinlieferung)
Me.GrpStatus.Controls.Add(Me.cbtitelvorhanden)
Me.GrpStatus.Controls.Add(Me.cbneugeschäft)
Me.GrpStatus.Controls.Add(Me.cbdevauslieferung)
Me.GrpStatus.Controls.Add(Me.cbprovauslieferung)
Me.GrpStatus.Controls.Add(Me.cbpfandbrief)
Me.GrpStatus.Controls.Add(Me.cbgrundpfandverschreibung)
Me.GrpStatus.Controls.Add(Me.cbschuldbrief)
Me.GrpStatus.Location = New System.Drawing.Point(7, 170)
Me.GrpStatus.Name = "GrpStatus"
Me.GrpStatus.Size = New System.Drawing.Size(610, 136)
Me.GrpStatus.TabIndex = 8
Me.GrpStatus.TabStop = False
Me.GrpStatus.Text = "Status"
'
'dtPickerEingangSB
'
Me.dtPickerEingangSB.Location = New System.Drawing.Point(170, 101)
Me.dtPickerEingangSB.Name = "dtPickerEingangSB"
Me.dtPickerEingangSB.Size = New System.Drawing.Size(21, 20)
Me.dtPickerEingangSB.TabIndex = 17
Me.dtPickerEingangSB.TabStop = False
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(21, 104)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(78, 13)
Me.Label7.TabIndex = 13
Me.Label7.Text = "Eingang Police"
'
'txtEingangSB
'
Me.txtEingangSB.Location = New System.Drawing.Point(107, 101)
Me.txtEingangSB.Mask = "00/00/0000"
Me.txtEingangSB.Name = "txtEingangSB"
Me.txtEingangSB.Size = New System.Drawing.Size(66, 20)
Me.txtEingangSB.TabIndex = 7
Me.txtEingangSB.ValidatingType = GetType(Date)
'
'cberledigt
'
Me.cberledigt.AutoSize = True
Me.cberledigt.Location = New System.Drawing.Point(308, 49)
Me.cberledigt.Name = "cberledigt"
Me.cberledigt.Size = New System.Drawing.Size(61, 17)
Me.cberledigt.TabIndex = 6
Me.cberledigt.Text = "Erledigt"
Me.cberledigt.UseVisualStyleBackColor = True
'
'cbempfangsscheinerhalten
'
Me.cbempfangsscheinerhalten.AutoSize = True
Me.cbempfangsscheinerhalten.Location = New System.Drawing.Point(308, 26)
Me.cbempfangsscheinerhalten.Name = "cbempfangsscheinerhalten"
Me.cbempfangsscheinerhalten.Size = New System.Drawing.Size(145, 17)
Me.cbempfangsscheinerhalten.TabIndex = 5
Me.cbempfangsscheinerhalten.Text = "Empfangsschein erhalten"
Me.cbempfangsscheinerhalten.UseVisualStyleBackColor = True
'
'cbeinlieferung
'
Me.cbeinlieferung.AutoSize = True
Me.cbeinlieferung.Location = New System.Drawing.Point(169, 49)
Me.cbeinlieferung.Name = "cbeinlieferung"
Me.cbeinlieferung.Size = New System.Drawing.Size(81, 17)
Me.cbeinlieferung.TabIndex = 4
Me.cbeinlieferung.Text = "Einlieferung"
Me.cbeinlieferung.UseVisualStyleBackColor = True
'
'cbtitelvorhanden
'
Me.cbtitelvorhanden.AutoSize = True
Me.cbtitelvorhanden.Location = New System.Drawing.Point(168, 26)
Me.cbtitelvorhanden.Name = "cbtitelvorhanden"
Me.cbtitelvorhanden.Size = New System.Drawing.Size(100, 17)
Me.cbtitelvorhanden.TabIndex = 3
Me.cbtitelvorhanden.Text = "Titel vorhanden"
Me.cbtitelvorhanden.UseVisualStyleBackColor = True
'
'cbneugeschäft
'
Me.cbneugeschäft.AutoSize = True
Me.cbneugeschäft.Location = New System.Drawing.Point(24, 72)
Me.cbneugeschäft.Name = "cbneugeschäft"
Me.cbneugeschäft.Size = New System.Drawing.Size(87, 17)
Me.cbneugeschäft.TabIndex = 2
Me.cbneugeschäft.Text = "Neugeschäft"
Me.cbneugeschäft.UseVisualStyleBackColor = True
Me.cbneugeschäft.Visible = False
'
'cbdevauslieferung
'
Me.cbdevauslieferung.AutoSize = True
Me.cbdevauslieferung.Location = New System.Drawing.Point(24, 49)
Me.cbdevauslieferung.Name = "cbdevauslieferung"
Me.cbdevauslieferung.Size = New System.Drawing.Size(110, 17)
Me.cbdevauslieferung.TabIndex = 1
Me.cbdevauslieferung.Text = "Dev. Auslieferung"
Me.cbdevauslieferung.UseVisualStyleBackColor = True
'
'cbprovauslieferung
'
Me.cbprovauslieferung.AutoSize = True
Me.cbprovauslieferung.Location = New System.Drawing.Point(23, 26)
Me.cbprovauslieferung.Name = "cbprovauslieferung"
Me.cbprovauslieferung.Size = New System.Drawing.Size(112, 17)
Me.cbprovauslieferung.TabIndex = 0
Me.cbprovauslieferung.Text = "Prov. Auslieferung"
Me.cbprovauslieferung.UseVisualStyleBackColor = True
'
'cbpfandbrief
'
Me.cbpfandbrief.AutoSize = True
Me.cbpfandbrief.Location = New System.Drawing.Point(443, 109)
Me.cbpfandbrief.Name = "cbpfandbrief"
Me.cbpfandbrief.Size = New System.Drawing.Size(74, 17)
Me.cbpfandbrief.TabIndex = 2
Me.cbpfandbrief.Text = "Pfandbrief"
Me.cbpfandbrief.UseVisualStyleBackColor = True
Me.cbpfandbrief.Visible = False
'
'cbgrundpfandverschreibung
'
Me.cbgrundpfandverschreibung.AutoSize = True
Me.cbgrundpfandverschreibung.Location = New System.Drawing.Point(443, 86)
Me.cbgrundpfandverschreibung.Name = "cbgrundpfandverschreibung"
Me.cbgrundpfandverschreibung.Size = New System.Drawing.Size(149, 17)
Me.cbgrundpfandverschreibung.TabIndex = 1
Me.cbgrundpfandverschreibung.Text = "Grundpfandverschreibung"
Me.cbgrundpfandverschreibung.UseVisualStyleBackColor = True
Me.cbgrundpfandverschreibung.Visible = False
'
'cbschuldbrief
'
Me.cbschuldbrief.AutoSize = True
Me.cbschuldbrief.Location = New System.Drawing.Point(442, 63)
Me.cbschuldbrief.Name = "cbschuldbrief"
Me.cbschuldbrief.Size = New System.Drawing.Size(79, 17)
Me.cbschuldbrief.TabIndex = 0
Me.cbschuldbrief.Text = "Schuldbrief"
Me.cbschuldbrief.UseVisualStyleBackColor = True
Me.cbschuldbrief.Visible = False
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.Button1)
Me.GroupBox1.Controls.Add(Me.txtPolicenNr)
Me.GroupBox1.Controls.Add(Me.txtNominal)
Me.GroupBox1.Controls.Add(Me.dtPickerDatum)
Me.GroupBox1.Controls.Add(Me.txtDatum)
Me.GroupBox1.Controls.Add(Me.Label6)
Me.GroupBox1.Controls.Add(Me.cbboxSachbearbeiter)
Me.GroupBox1.Controls.Add(Me.txtKurzname)
Me.GroupBox1.Controls.Add(Me.txtPartnernr)
Me.GroupBox1.Controls.Add(Me.Label5)
Me.GroupBox1.Controls.Add(Me.cbeuro)
Me.GroupBox1.Controls.Add(Me.Label4)
Me.GroupBox1.Controls.Add(Me.Label3)
Me.GroupBox1.Controls.Add(Me.Label2)
Me.GroupBox1.Controls.Add(Me.Label1)
Me.GroupBox1.Location = New System.Drawing.Point(7, 24)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(610, 140)
Me.GroupBox1.TabIndex = 7
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Datum/Partner"
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.Location = New System.Drawing.Point(199, 43)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(33, 23)
Me.Button1.TabIndex = 11
Me.Button1.TabStop = False
Me.Button1.UseVisualStyleBackColor = True
'
'txtPolicenNr
'
Me.txtPolicenNr.Location = New System.Drawing.Point(443, 100)
Me.txtPolicenNr.Name = "txtPolicenNr"
Me.txtPolicenNr.Size = New System.Drawing.Size(161, 20)
Me.txtPolicenNr.TabIndex = 5
'
'txtNominal
'
Me.txtNominal.Location = New System.Drawing.Point(106, 100)
Me.txtNominal.Name = "txtNominal"
Me.txtNominal.Size = New System.Drawing.Size(187, 20)
Me.txtNominal.TabIndex = 3
Me.txtNominal.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'dtPickerDatum
'
Me.dtPickerDatum.Location = New System.Drawing.Point(170, 18)
Me.dtPickerDatum.Name = "dtPickerDatum"
Me.dtPickerDatum.Size = New System.Drawing.Size(21, 20)
Me.dtPickerDatum.TabIndex = 15
Me.dtPickerDatum.TabStop = False
'
'txtDatum
'
Me.txtDatum.Location = New System.Drawing.Point(107, 18)
Me.txtDatum.Mask = "00/00/0000"
Me.txtDatum.Name = "txtDatum"
Me.txtDatum.Size = New System.Drawing.Size(66, 20)
Me.txtDatum.TabIndex = 0
Me.txtDatum.ValidatingType = GetType(Date)
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(21, 102)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(45, 13)
Me.Label6.TabIndex = 11
Me.Label6.Text = "Nominal"
'
'cbboxSachbearbeiter
'
Me.cbboxSachbearbeiter.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cbboxSachbearbeiter.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.cbboxSachbearbeiter.FormattingEnabled = True
Me.cbboxSachbearbeiter.Location = New System.Drawing.Point(106, 71)
Me.cbboxSachbearbeiter.Name = "cbboxSachbearbeiter"
Me.cbboxSachbearbeiter.Size = New System.Drawing.Size(187, 21)
Me.cbboxSachbearbeiter.Sorted = True
Me.cbboxSachbearbeiter.TabIndex = 2
'
'txtKurzname
'
Me.txtKurzname.Location = New System.Drawing.Point(308, 42)
Me.txtKurzname.Name = "txtKurzname"
Me.txtKurzname.ReadOnly = True
Me.txtKurzname.Size = New System.Drawing.Size(296, 20)
Me.txtKurzname.TabIndex = 8
Me.txtKurzname.TabStop = False
'
'txtPartnernr
'
Me.txtPartnernr.Location = New System.Drawing.Point(106, 45)
Me.txtPartnernr.Name = "txtPartnernr"
Me.txtPartnernr.Size = New System.Drawing.Size(97, 20)
Me.txtPartnernr.TabIndex = 1
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(378, 103)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(59, 13)
Me.Label5.TabIndex = 5
Me.Label5.Text = "Policen-Nr."
'
'cbeuro
'
Me.cbeuro.AutoSize = True
Me.cbeuro.Location = New System.Drawing.Point(308, 103)
Me.cbeuro.Name = "cbeuro"
Me.cbeuro.Size = New System.Drawing.Size(48, 17)
Me.cbeuro.TabIndex = 4
Me.cbeuro.Text = "Euro"
Me.cbeuro.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(20, 72)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(79, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Sachbearbeiter"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(239, 45)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(54, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Kurzname"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(20, 45)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(41, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Partner"
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(20, 20)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(38, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Datum"
'
'cbaktiv
'
Me.cbaktiv.AutoSize = True
Me.cbaktiv.Location = New System.Drawing.Point(947, 470)
Me.cbaktiv.Name = "cbaktiv"
Me.cbaktiv.Size = New System.Drawing.Size(50, 17)
Me.cbaktiv.TabIndex = 19
Me.cbaktiv.TabStop = False
Me.cbaktiv.Text = "Aktiv"
Me.cbaktiv.UseVisualStyleBackColor = True
'
'frmPolice
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1013, 494)
Me.Controls.Add(Me.cbaktiv)
Me.Controls.Add(Me.GroupBox3)
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GrpStatus)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmPolice"
Me.Text = "Police"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.GroupBox3.ResumeLayout(False)
Me.GroupBox3.PerformLayout()
Me.GroupBox2.ResumeLayout(False)
Me.GroupBox2.PerformLayout()
Me.GrpStatus.ResumeLayout(False)
Me.GrpStatus.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents tsbtnexit As ToolStripButton
Friend WithEvents tsbtensave As ToolStripButton
Friend WithEvents tsbtndelete As ToolStripButton
Friend WithEvents GroupBox3 As GroupBox
Friend WithEvents dtpickerGemahntSchuldbrief2 As DateTimePicker
Friend WithEvents txtGemahntSchuldbrief2 As MaskedTextBox
Friend WithEvents dtpickerGemahntSchuldbrief1 As DateTimePicker
Friend WithEvents txtGemahntSchuldbrief1 As MaskedTextBox
Friend WithEvents dtpickermahnungSchuldbrief2 As DateTimePicker
Friend WithEvents txtmahnungSchuldbrief2 As MaskedTextBox
Friend WithEvents dtpickerMahnungSchuldbrief1 As DateTimePicker
Friend WithEvents txtMahnungSchuldbrief1 As MaskedTextBox
Friend WithEvents dtpickerTerminSchuldbrief As DateTimePicker
Friend WithEvents txtTerminSchuldbrief As MaskedTextBox
Friend WithEvents dtpickerGemahntEmpfangsschein2 As DateTimePicker
Friend WithEvents txtGemahntEmpfangsschein2 As MaskedTextBox
Friend WithEvents dtpickerGemahntEmpfangsschein1 As DateTimePicker
Friend WithEvents txtGemahntEmpfangsschein1 As MaskedTextBox
Friend WithEvents dtpickerMahnungEmpfangsschein2 As DateTimePicker
Friend WithEvents txtMahnungEmpfangsschein2 As MaskedTextBox
Friend WithEvents dtpickerMahnungEmpfangsschein1 As DateTimePicker
Friend WithEvents txtMahnungEmpfangsschein1 As MaskedTextBox
Friend WithEvents dtpickerTerminEmpfangsschein As DateTimePicker
Friend WithEvents Label18 As Label
Friend WithEvents txtTerminEmpfangsschein As MaskedTextBox
Friend WithEvents Label17 As Label
Friend WithEvents Label14 As Label
Friend WithEvents Label15 As Label
Friend WithEvents Label16 As Label
Friend WithEvents Label13 As Label
Friend WithEvents Label12 As Label
Friend WithEvents Label11 As Label
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents txtbemerkung As TextBox
Friend WithEvents Label10 As Label
Friend WithEvents cbboxstandardbemerkung As ComboBox
Friend WithEvents Label9 As Label
Friend WithEvents cbboxversgesellschaft As ComboBox
Friend WithEvents Label8 As Label
Friend WithEvents GrpStatus As GroupBox
Friend WithEvents dtPickerEingangSB As DateTimePicker
Friend WithEvents Label7 As Label
Friend WithEvents txtEingangSB As MaskedTextBox
Friend WithEvents cberledigt As CheckBox
Friend WithEvents cbempfangsscheinerhalten As CheckBox
Friend WithEvents cbeinlieferung As CheckBox
Friend WithEvents cbtitelvorhanden As CheckBox
Friend WithEvents cbneugeschäft As CheckBox
Friend WithEvents cbdevauslieferung As CheckBox
Friend WithEvents cbprovauslieferung As CheckBox
Friend WithEvents cbpfandbrief As CheckBox
Friend WithEvents cbgrundpfandverschreibung As CheckBox
Friend WithEvents cbschuldbrief As CheckBox
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents txtPolicenNr As TextBox
Friend WithEvents txtNominal As TextBox
Friend WithEvents dtPickerDatum As DateTimePicker
Friend WithEvents txtDatum As MaskedTextBox
Friend WithEvents Label6 As Label
Friend WithEvents cbboxSachbearbeiter As ComboBox
Friend WithEvents txtKurzname As TextBox
Friend WithEvents txtPartnernr As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents cbeuro As CheckBox
Friend WithEvents Label4 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label1 As Label
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents cbaktiv As CheckBox
Friend WithEvents cbboxGegenpartei As ComboBox
Friend WithEvents Label19 As Label
Friend WithEvents Button3 As Button
Friend WithEvents Button4 As Button
Friend WithEvents Button5 As Button
End Class

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

Loading…
Cancel
Save