shu/DPM2016
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update 20190329

Browse Source
This commit is contained in:
Stefan Hutter
2019-03-29 10:31:51 +01:00
parent 2418a68590
commit 6a7ac4892b
328 changed files with 700981 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

737
2018_Datenmigration_Definitiv/DPM_Update/Version 20180911/Scripts.sql Normal file
View File

@@ -0,0 +1,737 @@
USE [DPM2018_1]
GO
/****** Object: StoredProcedure [dbo].[sp_get_fakturadata] Script Date: 11.09.2018 20:13:14 ******/
DROP PROCEDURE [dbo].[sp_get_fakturadata]
GO
/****** Object: StoredProcedure [dbo].[sp_get_fakturadata] Script Date: 11.09.2018 20:13:14 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: <Author,,Name>
-- Create date: <Create Date,,>
-- Description: <Description,,>
-- =============================================
CREATE PROCEDURE [dbo].[sp_get_fakturadata]
@behandlungsnr INT ,
@typ INT ,
@betrag FLOAT = 0 ,
@rate INT = 0,
@verbuchen INT = 0,
@kopie INT = 0,
@ifakturanr INT = 0,
@iMahnStufe int = 0
AS
BEGIN
--INSERT __log (logeintrag) VALUES(@kopie)
DECLARE @rgdatum DATETIME
SET @rgdatum=GETDATE()
IF @kopie = 1 BEGIN
SELECT @rgdatum=datum FROM faktura WHERE Nrfaktura=@ifakturanr
END
IF @iMahnStufe>0 BEGIN
SET @rgdatum=GETDATE()
end
DECLARE @type INT;
DECLARE @Tabelle_ohne_datum TABLE
(
[Typ] [INT] NULL ,
[SSO_Nummer] [VARCHAR](255) NULL ,
[Bezd] [VARCHAR](255) NULL ,
[Taxpunkte] [FLOAT] NULL ,
[Menge] [FLOAT] NULL ,
[Frankenprotaxpunkt] [FLOAT] NULL ,
[Absolut] [INT] NULL ,
[Leistungstotal] [FLOAT] NULL ,
[NrBehandlung] INT
);
DECLARE @Tabelle_mit_datum TABLE
(
[Typ] [INT] NULL ,
[Datum] [DATE] NULL ,
[SSO_Nummer] [VARCHAR](255) NULL ,
[Bezd] [VARCHAR](255) NULL ,
[Taxpunkte] [FLOAT] NULL ,
[Menge] [FLOAT] NULL ,
[Frankenprotaxpunkt] [FLOAT] NULL ,
[Absolut] [BIT] NULL ,
[Leistungstotal] [FLOAT] NULL ,
[nrbehandlu] INT
);
DECLARE @lr_tabelle_mit_Datum TABLE
(
pk INT NOT NULL
IDENTITY(1, 1) ,
[L_Datum] [DATE] NULL ,
[L_SSO_Nummer] [VARCHAR](255) NULL ,
[L_Bezd] [VARCHAR](255) NULL ,
[L_Taxpunkte] [FLOAT] NULL ,
[L_Menge] [FLOAT] NULL ,
[L_Frankenprotaxpunkt] [FLOAT] NULL ,
[L_Absolut] [BIT] NULL ,
[L_Leistungstotal] [FLOAT] NULL ,
[R_Datum] [DATE] NULL ,
[R_SSO_Nummer] [VARCHAR](255) NULL ,
[R_Bezd] [VARCHAR](255) NULL ,
[R_Taxpunkte] [FLOAT] NULL ,
[R_Menge] [FLOAT] NULL ,
[R_Frankenprotaxpunkt] [FLOAT] NULL ,
[R_Absolut] [BIT] NULL ,
[R_Leistungstotal] [FLOAT] NULL ,
PRIMARY KEY ( pk )
);
DECLARE @lr_tabelle_dentotar TABLE
(
pk INT NOT NULL
IDENTITY(1, 1) ,
datum DATE NULL ,
tarif VARCHAR(255) ,
tarifziffer VARCHAR(255) NULL ,
tariftext VARCHAR(255) NULL ,
bezugsziffer VARCHAR(255) NULL ,
si VARCHAR(255) NULL ,
st VARCHAR(255) NULL ,
anzahl INT NULL ,
tpal_preis DECIMAL(10, 2) NULL ,
f_al DECIMAL(10, 2) NULL ,
tpw_al DECIMAL(10, 2) NULL ,
f_tl DECIMAL(10, 2) NULL ,
tpw_tl DECIMAL(10, 2) NULL ,
a INT NULL ,
v INT NULL ,
p INT NULL ,
m INT NULL ,
betrag DECIMAL(10, 2) NULL PRIMARY KEY ( pk )
);
DECLARE @lr_tabelle_ohne_Datum TABLE
(
pk INT NOT NULL
IDENTITY(1, 1) ,
[L_SSO_Nummer] [VARCHAR](255) NULL ,
[L_Bezd] [VARCHAR](255) NULL ,
[L_Taxpunkte] [FLOAT] NULL ,
[L_Menge] [FLOAT] NULL ,
[L_Frankenprotaxpunkt] [FLOAT] NULL ,
[L_Absolut] [BIT] NULL ,
[L_Leistungstotal] [FLOAT] NULL ,
[R_SSO_Nummer] [VARCHAR](255) NULL ,
[R_Bezd] [VARCHAR](255) NULL ,
[R_Taxpunkte] [FLOAT] NULL ,
[R_Menge] [FLOAT] NULL ,
[R_Frankenprotaxpunkt] [FLOAT] NULL ,
[R_Absolut] [BIT] NULL ,
[R_Leistungstotal] [FLOAT] NULL ,
PRIMARY KEY ( pk )
);
DECLARE @Nrbehandlung AS INT ,
@Behandlungsbeginn AS DATE ,
@Behandlungsende AS DATE ,
@Patient AS VARCHAR(51) ,
@Behandler AS VARCHAR(51) ,
@Taxpunktwert AS FLOAT ,
@Rabatt AS FLOAT ,
@Total AS FLOAT ,
@Rechnungsbemerkung AS VARCHAR(255) ,
@Ratenzuschlag AS FLOAT ,
@Andrucken_Taxpunkte AS BIT ,
@Anzahlung AS FLOAT ,
@ESTyp INT ,
@Nrleistung AS INT ,
@Datum AS DATE ,
@SSO_Nummer AS VARCHAR(255) ,
@Taxpunkte AS FLOAT ,
@Menge AS FLOAT ,
@Frankenprotaxpunkt AS FLOAT ,
@Absolut AS BIT ,
@Leistungstotal AS FLOAT ,
@Bezd AS VARCHAR(255) ,
@@AdressZeile1 AS VARCHAR(255) ,
@AdressZeile2 AS VARCHAR(255) ,
@AdressZeile3 AS VARCHAR(255) ,
@AdressZeile4 AS VARCHAR(255) ,
@AdressZeile5 AS VARCHAR(255) ,
@Total_SSO AS FLOAT ,
@Total_Medikamente AS FLOAT ,
@Total_Labor AS FLOAT ,
@RabattTotal AS FLOAT ,
@Vorauszahlung AS FLOAT ,
@TotalTextblock AS VARCHAR(1024) ,
@TotalNumBlock AS VARCHAR(1024) ,
@Anzahlraten INT ,
@Ungeraterateamstart INT ,
@i INT ,
@franken VARCHAR(255) ,
@rappen VARCHAR(255) ,
@totalstring VARCHAR(255) ,
@faelligkeit DATETIME ,
@hauptfaktura VARCHAR(255);
DECLARE @esdaten TABLE
(
[Vs_konto] [VARCHAR](20) NULL ,
[Vs_belegart] [VARCHAR](2) NULL ,
[Vs_teilnehmernummer] [VARCHAR](20) NULL ,
[Vs_besrid] [VARCHAR](20) NULL ,
[Bankzeile1] [VARCHAR](50) NULL ,
[Bankzeile2] [VARCHAR](50) NULL ,
[Bankzeile3] [VARCHAR](50) NULL ,
[ZuGunstenVon1] [VARCHAR](50) NULL ,
[ZuGunstenVon2] [VARCHAR](50) NULL ,
[ZuGunstenVon3] [VARCHAR](50) NULL ,
[ZuGunstenVon4] [VARCHAR](50) NULL ,
[Total_Franken] FLOAT ,
[Nur_Franken] INT ,
[Nur_Rappen] VARCHAR(2) ,
Referenzzeile1 VARCHAR(255) ,
referenzzeile2 VARCHAR(255) ,
fakturanr VARCHAR(255) ,
rate INT ,
zahlungsfrist INT ,
faelligkeit DATETIME ,
hauptfaktura VARCHAR(255),
mahndatum DATETIME,
mahnfaelligkeit DATETIME,
mahnzuschlag FLOAT,
mahnstufe INT,
FakturaDatum datetime
);
IF @typ = 1
BEGIN-- Kontoinformationen / ES_Daten
DECLARE @manr INT;
DECLARE @totalbetrag FLOAT;
DECLARE @rc INT;
DECLARE @FAKTURANR INT;
DECLARE @vz FLOAT;
SELECT @vz = dbo.Get_Totale(5, @behandlungsnr);
SET @vz = 0;
SET @rc = 0;
IF @kopie=1 Or @ifakturanr<>0 BEGIN
SET @fakturanr=@ifakturanr
PRINT 'huhu'
END ELSE begin
SET @FAKTURANR = dbo.get_FakturaNr();
end
IF @betrag <> 0
SET @totalbetrag = @betrag;
SELECT @manr = Nrbehandler ,
@totalbetrag = Total ,
@Anzahlraten = Anzahlraten ,
@Ungeraterateamstart = Ungeraterateamstart
FROM Behandlu
WHERE Nrbehandlung = @behandlungsnr;
SET @totalbetrag = dbo.GetRoundedValue(@totalbetrag - @vz);
SELECT @rc = COUNT(*)
FROM dbo.VDKonti
WHERE NrPrivat = @manr;
PRINT @totalbetrag;
IF @rc = 0
SET @manr = 1;
PRINT FLOOR(@totalbetrag);
PRINT ( @totalbetrag - FLOOR(@totalbetrag) ) * 100;
DECLARE @temp FLOAT;
DECLARE @temp1 FLOAT;
DECLARE @temp2 FLOAT;
DECLARE @temp3 VARCHAR(255);
DECLARE @tage_zahlungsfrist INT;
SELECT @tage_zahlungsfrist = INHALT
FROM dbo.OPTIONS
WHERE NROPTION = 2000;
IF @Anzahlraten > 1
BEGIN
SET @temp = FLOOR(FLOOR(@totalbetrag) / @Anzahlraten); -- Rate ohne Nachkommastellen
SET @temp1 = @temp * @Anzahlraten;
SET @temp2 = @temp + ( @totalbetrag - @temp1 ); -- ungerate rate
IF @rate <= 1
BEGIN
IF @Ungeraterateamstart = 1
BEGIN
SET @totalbetrag = @temp2;
END;
ELSE
BEGIN
SET @totalbetrag = @temp;
END;
SET @hauptfaktura = @FAKTURANR;
SET @faelligkeit = DATEADD(dd,
@tage_zahlungsfrist,
GETDATE());
SET @faelligkeit = DATEADD(dd,
@tage_zahlungsfrist,
@rgdatum);
END;
ELSE
BEGIN
IF @Ungeraterateamstart = 1
AND @rate = @Anzahlraten
BEGIN
SET @totalbetrag = @temp2;
END;
ELSE
BEGIN
SET @totalbetrag = @temp;
END;
SELECT TOP 1
@hauptfaktura = Nrhauptfaktura
FROM Faktura
ORDER BY Nrfaktura DESC;
SET @faelligkeit = DATEADD(dd,
@tage_zahlungsfrist
* @rate, GETDATE());
SET @faelligkeit = DATEADD(dd,
@tage_zahlungsfrist
* @rate, @rgdatum);
END;
END;
ELSE
BEGIN
SET @hauptfaktura = @FAKTURANR;
SET @faelligkeit = DATEADD(dd, @tage_zahlungsfrist,
GETDATE());
SET @faelligkeit = DATEADD(dd, @tage_zahlungsfrist,
@rgdatum);
END;
DECLARE @mahndatum date
DECLARE @mahnfaelligkeit date
DECLARE @mahnstufe INT
DECLARE @mahnzuschlag FLOAT
DECLARE @tmp INT
DECLARE @tmpbetrag FLOAT
DECLARE @fakturadatum DATETIME
SET @mahndatum=GETDATE()
SET @mahnfaelligkeit=GETDATE()
SET @mahnzuschlag=0
SELECT @fakturadatum=datum FROM faktura WHERE Nrfaktura=@ifakturanr
IF YEAR(@fakturadatum) < 2010 SET @fakturadatum=GETDATE()
IF @iMahnStufe = 1 BEGIN
SET @mahndatum=GETDATE()
SELECT @tmp=inhalt FROM options WHERE NROPTION=5005
SET @mahnfaelligkeit=@mahndatum
SET @mahnfaelligkeit=DATEADD(d,@tmp,GETDATE())
SELECT @mahnzuschlag=inhalt FROM options WHERE nroption=5010
SELECT @fakturadatum=datum FROM faktura WHERE Nrfaktura=@ifakturanr
PRINT @ifakturanr
end
IF @iMahnStufe = 2 BEGIN
SELECT @mahndatum = mahndatum1 FROM faktura WHERE Nrfaktura=@FAKTURANR
--SET @mahndatum=GETDATE()
SELECT @tmp=inhalt FROM options WHERE NROPTION=5006
SET @mahnfaelligkeit=@mahndatum
SET @mahnfaelligkeit=DATEADD(d,@tmp,getdate())
SELECT @mahnzuschlag=inhalt FROM options WHERE nroption=5011
end
IF @iMahnStufe = 3 BEGIN
SET @mahndatum=GETDATE()
SELECT @mahndatum = mahndatum2 FROM faktura WHERE Nrfaktura=@FAKTURANR
SELECT @tmp=inhalt FROM options WHERE NROPTION=5007
SET @mahnfaelligkeit=@mahndatum
SET @mahnfaelligkeit=DATEADD(d,@tmp,GETDATE())
SELECT @mahnzuschlag=inhalt FROM options WHERE nroption=5012
end
SET @totalbetrag=@totalbetrag+@mahnzuschlag
SET @totalstring = CONVERT(NUMERIC(10, 2), @totalbetrag);
SET @franken = SUBSTRING(@totalstring, 1,
CHARINDEX('.', @totalstring) - 1);
SET @rappen = SUBSTRING(@totalstring,
CHARINDEX('.', @totalstring) + 1, 2);
WHILE LEN(@rappen)<2 BEGIN
SET @rappen='0'+LTRIM(RTRIM(STR(@rappen)))
END
PRINT @franken;
PRINT @rappen;
PRINT @totalstring;
INSERT @esdaten
SELECT Vs_konto ,
Vs_belegart ,
Vs_teilnehmernummer ,
Vs_besrid ,
Bankzeile1 ,
Bankzeile2 ,
Bankzeile3 ,
ZuGunstenVon1 ,
ZuGunstenVon2 ,
ZuGunstenVon3 ,
ZuGunstenVon4 ,
@totalbetrag ,
@franken ,--FLOOR(@totalbetrag) ,
@rappen ,--( @totalbetrag - FLOOR(@totalbetrag) ) * 100 ,
' ' ,
' ' ,
@FAKTURANR ,
@rate ,
@tage_zahlungsfrist ,
@faelligkeit ,
@hauptfaktura,
@mahndatum,
@mahnfaelligkeit,
@mahnzuschlag,
@imahnstufe,
@fakturadatum
FROM dbo.VDKonti
WHERE NrPrivat = @manr;
SELECT *
FROM @esdaten;
END;
DECLARE @mitdatum INT;
SELECT @mitdatum = MitDatum
FROM Behandlu
WHERE Nrbehandlung = @behandlungsnr;
IF @typ = 2
BEGIN -- Empfängerdaten / Allg Behandlung / Totale
DECLARE @absenderort AS VARCHAR(255)
SELECT TOP 1 @absenderort = absenderort FROM absender
SET @absenderort=@absenderort + ', '+CONVERT(VARCHAR(10),@rgdatum,104)
SELECT 1 AS Typ ,
@rgdatum AS Rechnungsdatum,
@mitdatum AS MitDatum ,
dbo.Behandlu.Nrbehandlung ,
dbo.Behandlu.Behandlungsbeginn ,
dbo.Behandlu.Behandlungsende ,
dbo.PRIVAT.NAME + ' ' + dbo.PRIVAT.VORNAME AS Patient ,
dbo.PRIVAT.NAME AS Patient_Name ,
dbo.PRIVAT.VORNAME AS Patient_Vorname ,
dbo.PRIVAT.STRASSE AS Patient_Strasse ,
dbo.PRIVAT.PLZ AS Patient_PLZ ,
dbo.PRIVAT.ORT AS Patient_Ort ,
dbo.PRIVAT.Kanton AS Patient_Kanton ,
dbo.PRIVAT.AHVNR AS Patient_AHVNr ,
CASE WHEN dbo.PRIVAT.GESCHLECHT = 2 THEN 'M'
ELSE 'W'
END AS Patient_Geschlecht ,
CONVERT(VARCHAR(10),dbo.PRIVAT.GEBDAT,104) AS Patient_Geburtsdatum ,
dbo.PRIVAT.GLN AS Patient_GLNr ,
privat_1.NAME + ' ' + privat_1.VORNAME AS Behandler ,
dbo.Behandlu.Taxpunktwert ,
dbo.Behandlu.Rabatt ,
dbo.Behandlu.Total ,
dbo.Behandlu.Rechnungsbemerkung ,
dbo.Behandlu.Ratenzuschlag ,
dbo.Behandlu.Andrucken_Taxpunkte ,
dbo.Behandlu.Anzahlung ,
dbo.Behandlu.Nrestyp ,
dbo.Behandlu.Fallnummer ,
dbo.Behandlu.Anzahlraten ,
dbo.Behandlu.Unfalldatum,
dbo.behandlu.Datum_Kostengutsprache,
dbo.behandlu.Kostengutsprache_Nummer,
dbo.behandlu.Behandlungsgrund,
dbo.behandlu.Diagnose,
dbo.behandlu.GLN_Liste,
dbo.get_adresszeile(1, dbo.Behandlu.Nrbehandlung) AS AdressZeile1 ,
dbo.get_adresszeile(2, dbo.Behandlu.Nrbehandlung) AS AdressZeile2 ,
dbo.get_adresszeile(3, dbo.Behandlu.Nrbehandlung) AS AdressZeile3 ,
dbo.get_adresszeile(4, dbo.Behandlu.Nrbehandlung) AS AdressZeile4 ,
dbo.get_adresszeile(5, dbo.Behandlu.Nrbehandlung) AS AdressZeile5 ,
dbo.Get_Dentotar_Parameter(11,
dbo.Behandlu.Nrbehandlung) AS GLN_Empfaenger ,
dbo.get_adresse(dbo.Behandlu.Nrbehandlung, 0) AS Empfaenger ,
dbo.Get_Totale(1, dbo.Behandlu.Nrbehandlung) AS Total_SSO ,
dbo.Get_Totale(2, dbo.Behandlu.Nrbehandlung) AS Total_Medikamente ,
dbo.Get_Totale(3, dbo.Behandlu.Nrbehandlung) AS Total_Labor ,
dbo.Get_Totale(4, dbo.Behandlu.Nrbehandlung) AS RabattTotal ,
dbo.Get_Totale(5, dbo.Behandlu.Nrbehandlung) AS Vorauszahlung ,
dbo.get_totalblock(1, dbo.Behandlu.Nrbehandlung) AS TotalTextblock ,
dbo.get_totalblock(2, dbo.Behandlu.Nrbehandlung) AS TotalNumBlock ,
dbo.Get_Dentotar_Parameter(1,
dbo.Behandlu.Nrbehandlung) AS Rechnungstitel ,
dbo.Get_Dentotar_Parameter(2,
dbo.Behandlu.Nrbehandlung) AS Dokument_Identifikation ,
dbo.Get_Dentotar_Parameter(3,
dbo.Behandlu.Nrbehandlung) AS RG_Steller_GLN ,
dbo.Get_Dentotar_Parameter(4,
dbo.Behandlu.Nrbehandlung) AS RG_Steller_ZSR ,
dbo.Get_Dentotar_Parameter(5,
dbo.Behandlu.Nrbehandlung) AS RG_Steller_Name ,
dbo.Get_Dentotar_Parameter(6,
dbo.Behandlu.Nrbehandlung) AS RG_Steller_Adresse ,
dbo.Get_Dentotar_Parameter(15,
dbo.Behandlu.Nrbehandlung) AS RG_Steller_Tel ,
dbo.Get_Dentotar_Parameter(16,
dbo.Behandlu.Nrbehandlung) AS RG_Steller_Fax ,
(SELECT ISNULL(GLN,'') FROM privat WHERE nrprivat=behandlu.Nrbehandler) AS Leistungserbringer_GSN,
(SELECT ISNULL(ZSR,'') FROM privat WHERE nrprivat=behandlu.Nrbehandler) AS Leistungserbringer_ZSR,
(SELECT name+' '+vorname FROM privat WHERE nrprivat=behandlu.Nrbehandler) AS Leistungserbringer_Name,
--dbo.Get_Dentotar_Parameter(7,
-- dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_GSN ,
--dbo.Get_Dentotar_Parameter(8,
-- dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_ZSR ,
--dbo.Get_Dentotar_Parameter(9,
-- dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_Name ,
dbo.Get_Dentotar_Parameter(10,
dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_Adresse ,
dbo.Get_Dentotar_Parameter(12,
dbo.Behandlu.Nrbehandlung) AS Verguetungsart ,
--dbo.Get_Dentotar_Parameter(13,
-- dbo.Behandlu.Nrbehandlung) AS Gesetz ,
dbo.get_gesetz(dbo.Behandlu.Nrbehandlung) AS Gesetz,
dbo.Get_Dentotar_Parameter(14,
dbo.Behandlu.Nrbehandlung) AS Rolle_Ort ,
dbo.Get_Dentotar_Parameter(17,
dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_Tel ,
dbo.Get_Dentotar_Parameter(18,
dbo.Behandlu.Nrbehandlung) AS Leistungserbringer_Fax,
CASE WHEN @kopie=0 THEN 'nein' ELSE 'nein' END AS Kopie,
@absenderort AS Absenderort_Datum,
dbo.get_behandlungsart(dbo.behandlu.nrbehandlung) AS Behandlungsart
INTO #tmp1
FROM dbo.Behandlu
INNER JOIN dbo.PRIVAT ON dbo.Behandlu.Nrpatient = dbo.PRIVAT.NRPRIVAT
INNER JOIN dbo.PRIVAT AS privat_1 ON dbo.Behandlu.Nrbehandler = privat_1.NRPRIVAT
WHERE Behandlu.Nrbehandlung = @behandlungsnr;
SELECT *
FROM #tmp1;
END;
IF @typ = 3
OR @typ = 4
BEGIN -- Leistungen
DECLARE @pk INT;
IF @mitdatum = 1
BEGIN -- Nach Datum
INSERT @Tabelle_mit_datum
SELECT *
FROM View_Leistungen_mit_Datum
WHERE Nrbehandlung = @behandlungsnr
ORDER BY Datum ,
SSO_Nummer;
SET @i = 1;
DECLARE xc CURSOR
FOR
SELECT *
FROM @Tabelle_mit_datum
ORDER BY Datum ,
[SSO_Nummer];
OPEN xc;
FETCH NEXT FROM xc INTO @type, @Datum, @SSO_Nummer,
@Bezd, @Taxpunkte, @Menge, @Frankenprotaxpunkt,
@Absolut, @Leistungstotal, @Nrbehandlung;
WHILE @@FETCH_STATUS = 0
BEGIN
IF @i = 1
BEGIN
INSERT @lr_tabelle_mit_Datum
( L_Datum ,
L_SSO_Nummer ,
L_Bezd ,
L_Taxpunkte ,
L_Menge ,
L_Frankenprotaxpunkt ,
L_Absolut ,
L_Leistungstotal ,
R_Datum ,
R_SSO_Nummer ,
R_Bezd ,
R_Taxpunkte ,
R_Menge ,
R_Frankenprotaxpunkt ,
R_Absolut ,
R_Leistungstotal
)
VALUES ( @Datum , -- L_Datum - date
@SSO_Nummer , -- L_SSO_Nummer - int
@Bezd , -- L_Bezd - varchar(255)
@Taxpunkte , -- L_Taxpunkte - float
@Menge , -- L_Menge - float
@Frankenprotaxpunkt , -- L_Frankenprotaxpunkt - float
@Absolut , -- L_Absolut - bit
@Leistungstotal , -- L_Leistungstotal - float
NULL , -- R_Datum - date
NULL , -- R_SSO_Nummer - int
CONVERT(VARCHAR(255), '') , -- R_Bezd - varchar(255)
NULL , -- R_Taxpunkte - float
NULL , -- R_Menge - float
NULL , -- R_Frankenprotaxpunkt - float
NULL , -- R_Absolut - bit
NULL -- R_Leistungstotal - float
);
SET @i = @i + 1;
END;
ELSE
BEGIN
SELECT TOP 1
@pk = pk
FROM @lr_tabelle_mit_Datum
ORDER BY pk DESC;
UPDATE @lr_tabelle_mit_Datum
SET R_Datum = @Datum ,
R_SSO_Nummer = @SSO_Nummer ,
R_Bezd = @Bezd ,
R_Taxpunkte = @Taxpunkte ,
R_Menge = @Menge ,
R_Frankenprotaxpunkt = @Frankenprotaxpunkt ,
R_Absolut = @Absolut ,
R_Leistungstotal = @Leistungstotal
WHERE pk = @pk;
SET @i = 1;
END;
FETCH NEXT FROM xc INTO @type, @Datum,
@SSO_Nummer, @Bezd, @Taxpunkte, @Menge,
@Frankenprotaxpunkt, @Absolut,
@Leistungstotal, @Nrbehandlung;
END;
CLOSE xc;
DEALLOCATE xc;
IF @typ = 4
BEGIN
PRINT 'a0';
SELECT *
FROM @lr_tabelle_mit_Datum;
END;
ELSE
BEGIN
SELECT *
FROM @Tabelle_mit_datum;
END;
END;
ELSE
BEGIN -- ohne Datum
INSERT @Tabelle_ohne_datum
SELECT *
FROM View_Leistungen_ohne_Datum
WHERE Nrbehandlung = @behandlungsnr
ORDER BY SSO_Nummer;
SET @i = 1;
DECLARE xc CURSOR
FOR
SELECT *
FROM @Tabelle_ohne_datum
ORDER BY [SSO_Nummer];
OPEN xc;
FETCH NEXT FROM xc INTO @type, @SSO_Nummer, @Bezd,
@Taxpunkte, @Menge, @Frankenprotaxpunkt, @Absolut,
@Leistungstotal, @Nrbehandlung;
WHILE @@FETCH_STATUS = 0
BEGIN
IF @i = 1
BEGIN
INSERT @lr_tabelle_ohne_Datum
( L_SSO_Nummer ,
L_Bezd ,
L_Taxpunkte ,
L_Menge ,
L_Frankenprotaxpunkt ,
L_Absolut ,
L_Leistungstotal ,
R_SSO_Nummer ,
R_Bezd ,
R_Taxpunkte ,
R_Menge ,
R_Frankenprotaxpunkt ,
R_Absolut ,
R_Leistungstotal
)
VALUES ( @SSO_Nummer , -- L_SSO_Nummer - int
@Bezd , -- L_Bezd - varchar(255)
@Taxpunkte , -- L_Taxpunkte - float
@Menge , -- L_Menge - float
@Frankenprotaxpunkt , -- L_Frankenprotaxpunkt - float
@Absolut , -- L_Absolut - bit
@Leistungstotal , -- L_Leistungstotal - float
NULL , -- R_SSO_Nummer - int
CONVERT(VARCHAR(255), '') , -- R_Bezd - varchar(255)
NULL , -- R_Taxpunkte - float
NULL , -- R_Menge - float
NULL , -- R_Frankenprotaxpunkt - float
NULL , -- R_Absolut - bit
NULL -- R_Leistungstotal - float
);
SET @i = @i + 1;
END;
ELSE
BEGIN
SELECT TOP 1
@pk = pk
FROM @lr_tabelle_ohne_Datum
ORDER BY pk DESC;
PRINT @pk;
UPDATE @lr_tabelle_ohne_Datum
SET R_SSO_Nummer = @SSO_Nummer ,
R_Bezd = @Bezd ,
R_Taxpunkte = @Taxpunkte ,
R_Menge = @Menge ,
R_Frankenprotaxpunkt = @Frankenprotaxpunkt ,
R_Absolut = @Absolut ,
R_Leistungstotal = @Leistungstotal
WHERE pk = @pk;
SET @i = 1;
END;
FETCH NEXT FROM xc INTO @type, @SSO_Nummer,
@Bezd, @Taxpunkte, @Menge,
@Frankenprotaxpunkt, @Absolut,
@Leistungstotal, @Nrbehandlung;
END;
CLOSE xc;
DEALLOCATE xc;
IF @typ = 4
BEGIN
SELECT '' AS Datum ,
*
FROM @lr_tabelle_ohne_Datum;
END;
ELSE
BEGIN
SELECT '' AS Datum ,
*
FROM @Tabelle_ohne_datum;
END;
END;
END;
IF @typ = 5
BEGIN
SELECT *
FROM View_Leistungen_Dentotar
WHERE Nrbehandlung = @behandlungsnr;
END;
END;
GO

3
DMS/Class1.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class Class1
End Class

8
DMS/DMS.vbproj Normal file
View File

@@ -0,0 +1,8 @@
<Project Sdk="Microsoft.NET.Sdk">
<PropertyGroup>
<RootNamespace>DMS</RootNamespace>
<TargetFramework>netstandard2.0</TargetFramework>
</PropertyGroup>
</Project>

5
DMS/obj/DMS.vbproj.nuget.cache Normal file
View File

@@ -0,0 +1,5 @@
{
"version": 1,
"dgSpecHash": "aou7QHUCltK2Acpar7iO4NV7Hx9eBgn5JmfaoLarwjUxQsnbvQoTSp22n26chRamOFK40cqSILLmD9k+Wa6r9A==",
"success": true
}

15
DMS/obj/DMS.vbproj.nuget.g.props Normal file
View File

@@ -0,0 +1,15 @@
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
<RestoreSuccess Condition=" '$(RestoreSuccess)' == '' ">True</RestoreSuccess>
<RestoreTool Condition=" '$(RestoreTool)' == '' ">NuGet</RestoreTool>
<ProjectAssetsFile Condition=" '$(ProjectAssetsFile)' == '' ">E:\Software-Projekte\DPM\DPM2016\DMS\obj\project.assets.json</ProjectAssetsFile>
<NuGetPackageRoot Condition=" '$(NuGetPackageRoot)' == '' ">$(UserProfile)\.nuget\packages\</NuGetPackageRoot>
<NuGetPackageFolders Condition=" '$(NuGetPackageFolders)' == '' ">C:\Users\Stefan Hutter\.nuget\packages\;C:\Program Files (x86)\Microsoft SDKs\NuGetPackagesFallback\;C:\Program Files\dotnet\sdk\NuGetFallbackFolder</NuGetPackageFolders>
<NuGetProjectStyle Condition=" '$(NuGetProjectStyle)' == '' ">PackageReference</NuGetProjectStyle>
<NuGetToolVersion Condition=" '$(NuGetToolVersion)' == '' ">4.6.1</NuGetToolVersion>
</PropertyGroup>
<PropertyGroup>
<MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
</PropertyGroup>
</Project>

9
DMS/obj/DMS.vbproj.nuget.g.targets Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8" standalone="no"?>
<Project ToolsVersion="14.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<MSBuildAllProjects>$(MSBuildAllProjects);$(MSBuildThisFileFullPath)</MSBuildAllProjects>
</PropertyGroup>
<ImportGroup Condition=" '$(ExcludeRestorePackageImports)' != 'true' ">
<Import Project="C:\Program Files (x86)\Microsoft SDKs\NuGetPackagesFallback\netstandard.library\2.0.1\build\netstandard2.0\NETStandard.Library.targets" Condition="Exists('C:\Program Files (x86)\Microsoft SDKs\NuGetPackagesFallback\netstandard.library\2.0.1\build\netstandard2.0\NETStandard.Library.targets')" />
</ImportGroup>
</Project>

24
DMS/obj/Debug/netstandard2.0/DMS.AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,24 @@
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict Off
Option Explicit On
Imports System
Imports System.Reflection
<Assembly: System.Reflection.AssemblyCompanyAttribute("DMS"), _
Assembly: System.Reflection.AssemblyConfigurationAttribute("Debug"), _
Assembly: System.Reflection.AssemblyFileVersionAttribute("1.0.0.0"), _
Assembly: System.Reflection.AssemblyInformationalVersionAttribute("1.0.0"), _
Assembly: System.Reflection.AssemblyProductAttribute("DMS"), _
Assembly: System.Reflection.AssemblyTitleAttribute("DMS"), _
Assembly: System.Reflection.AssemblyVersionAttribute("1.0.0.0")>
'Von der MSBuild WriteCodeFragment-Klasse generiert.

1
DMS/obj/Debug/netstandard2.0/DMS.AssemblyInfoInputs.cache Normal file
View File

@@ -0,0 +1 @@
09de9d290ebebc01dbbd6363407e83d3afa04788

1
DMS/obj/Debug/netstandard2.0/DMS.vbproj.CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
e66739b61668e7211a783f0cb82685791abfd60c

BIN
DMS/obj/Debug/netstandard2.0/DMS.vbprojResolveAssemblyReference.cache Normal file
View File

Binary file not shown.

239
DMS/obj/project.assets.json Normal file
View File

@@ -0,0 +1,239 @@
{
"version": 3,
"targets": {
".NETStandard,Version=v2.0": {
"Microsoft.NETCore.Platforms/1.1.0": {
"type": "package",
"compile": {
"lib/netstandard1.0/_._": {}
},
"runtime": {
"lib/netstandard1.0/_._": {}
}
},
"NETStandard.Library/2.0.1": {
"type": "package",
"dependencies": {
"Microsoft.NETCore.Platforms": "1.1.0"
},
"compile": {
"lib/netstandard1.0/_._": {}
},
"runtime": {
"lib/netstandard1.0/_._": {}
},
"build": {
"build/netstandard2.0/NETStandard.Library.targets": {}
}
}
}
},
"libraries": {
"Microsoft.NETCore.Platforms/1.1.0": {
"sha512": "kz0PEW2lhqygehI/d6XsPCQzD7ff7gUJaVGPVETX611eadGsA3A877GdSlU0LRVMCTH/+P3o2iDTak+S08V2+A==",
"type": "package",
"path": "microsoft.netcore.platforms/1.1.0",
"files": [
"ThirdPartyNotices.txt",
"dotnet_library_license.txt",
"lib/netstandard1.0/_._",
"microsoft.netcore.platforms.1.1.0.nupkg.sha512",
"microsoft.netcore.platforms.nuspec",
"runtime.json"
]
},
"NETStandard.Library/2.0.1": {
"sha512": "oA6nwv9MhEKYvLpjZ0ggSpb1g4CQViDVQjLUcDWg598jtvJbpfeP2reqwI1GLW2TbxC/Ml7xL6BBR1HmKPXlTg==",
"type": "package",
"path": "netstandard.library/2.0.1",
"files": [
"LICENSE.TXT",
"NETStandard.Library.2.0.1.nupkg.sha512",
"NETStandard.Library.nuspec",
"THIRD-PARTY-NOTICES.TXT",
"build/NETStandard.Library.targets",
"build/netstandard2.0/NETStandard.Library.targets",
"build/netstandard2.0/ref/Microsoft.Win32.Primitives.dll",
"build/netstandard2.0/ref/System.AppContext.dll",
"build/netstandard2.0/ref/System.Collections.Concurrent.dll",
"build/netstandard2.0/ref/System.Collections.NonGeneric.dll",
"build/netstandard2.0/ref/System.Collections.Specialized.dll",
"build/netstandard2.0/ref/System.Collections.dll",
"build/netstandard2.0/ref/System.ComponentModel.Composition.dll",
"build/netstandard2.0/ref/System.ComponentModel.EventBasedAsync.dll",
"build/netstandard2.0/ref/System.ComponentModel.Primitives.dll",
"build/netstandard2.0/ref/System.ComponentModel.TypeConverter.dll",
"build/netstandard2.0/ref/System.ComponentModel.dll",
"build/netstandard2.0/ref/System.Console.dll",
"build/netstandard2.0/ref/System.Core.dll",
"build/netstandard2.0/ref/System.Data.Common.dll",
"build/netstandard2.0/ref/System.Data.dll",
"build/netstandard2.0/ref/System.Diagnostics.Contracts.dll",
"build/netstandard2.0/ref/System.Diagnostics.Debug.dll",
"build/netstandard2.0/ref/System.Diagnostics.FileVersionInfo.dll",
"build/netstandard2.0/ref/System.Diagnostics.Process.dll",
"build/netstandard2.0/ref/System.Diagnostics.StackTrace.dll",
"build/netstandard2.0/ref/System.Diagnostics.TextWriterTraceListener.dll",
"build/netstandard2.0/ref/System.Diagnostics.Tools.dll",
"build/netstandard2.0/ref/System.Diagnostics.TraceSource.dll",
"build/netstandard2.0/ref/System.Diagnostics.Tracing.dll",
"build/netstandard2.0/ref/System.Drawing.Primitives.dll",
"build/netstandard2.0/ref/System.Drawing.dll",
"build/netstandard2.0/ref/System.Dynamic.Runtime.dll",
"build/netstandard2.0/ref/System.Globalization.Calendars.dll",
"build/netstandard2.0/ref/System.Globalization.Extensions.dll",
"build/netstandard2.0/ref/System.Globalization.dll",
"build/netstandard2.0/ref/System.IO.Compression.FileSystem.dll",
"build/netstandard2.0/ref/System.IO.Compression.ZipFile.dll",
"build/netstandard2.0/ref/System.IO.Compression.dll",
"build/netstandard2.0/ref/System.IO.FileSystem.DriveInfo.dll",
"build/netstandard2.0/ref/System.IO.FileSystem.Primitives.dll",
"build/netstandard2.0/ref/System.IO.FileSystem.Watcher.dll",
"build/netstandard2.0/ref/System.IO.FileSystem.dll",
"build/netstandard2.0/ref/System.IO.IsolatedStorage.dll",
"build/netstandard2.0/ref/System.IO.MemoryMappedFiles.dll",
"build/netstandard2.0/ref/System.IO.Pipes.dll",
"build/netstandard2.0/ref/System.IO.UnmanagedMemoryStream.dll",
"build/netstandard2.0/ref/System.IO.dll",
"build/netstandard2.0/ref/System.Linq.Expressions.dll",
"build/netstandard2.0/ref/System.Linq.Parallel.dll",
"build/netstandard2.0/ref/System.Linq.Queryable.dll",
"build/netstandard2.0/ref/System.Linq.dll",
"build/netstandard2.0/ref/System.Net.Http.dll",
"build/netstandard2.0/ref/System.Net.NameResolution.dll",
"build/netstandard2.0/ref/System.Net.NetworkInformation.dll",
"build/netstandard2.0/ref/System.Net.Ping.dll",
"build/netstandard2.0/ref/System.Net.Primitives.dll",
"build/netstandard2.0/ref/System.Net.Requests.dll",
"build/netstandard2.0/ref/System.Net.Security.dll",
"build/netstandard2.0/ref/System.Net.Sockets.dll",
"build/netstandard2.0/ref/System.Net.WebHeaderCollection.dll",
"build/netstandard2.0/ref/System.Net.WebSockets.Client.dll",
"build/netstandard2.0/ref/System.Net.WebSockets.dll",
"build/netstandard2.0/ref/System.Net.dll",
"build/netstandard2.0/ref/System.Numerics.dll",
"build/netstandard2.0/ref/System.ObjectModel.dll",
"build/netstandard2.0/ref/System.Reflection.Extensions.dll",
"build/netstandard2.0/ref/System.Reflection.Primitives.dll",
"build/netstandard2.0/ref/System.Reflection.dll",
"build/netstandard2.0/ref/System.Resources.Reader.dll",
"build/netstandard2.0/ref/System.Resources.ResourceManager.dll",
"build/netstandard2.0/ref/System.Resources.Writer.dll",
"build/netstandard2.0/ref/System.Runtime.CompilerServices.VisualC.dll",
"build/netstandard2.0/ref/System.Runtime.Extensions.dll",
"build/netstandard2.0/ref/System.Runtime.Handles.dll",
"build/netstandard2.0/ref/System.Runtime.InteropServices.RuntimeInformation.dll",
"build/netstandard2.0/ref/System.Runtime.InteropServices.dll",
"build/netstandard2.0/ref/System.Runtime.Numerics.dll",
"build/netstandard2.0/ref/System.Runtime.Serialization.Formatters.dll",
"build/netstandard2.0/ref/System.Runtime.Serialization.Json.dll",
"build/netstandard2.0/ref/System.Runtime.Serialization.Primitives.dll",
"build/netstandard2.0/ref/System.Runtime.Serialization.Xml.dll",
"build/netstandard2.0/ref/System.Runtime.Serialization.dll",
"build/netstandard2.0/ref/System.Runtime.dll",
"build/netstandard2.0/ref/System.Security.Claims.dll",
"build/netstandard2.0/ref/System.Security.Cryptography.Algorithms.dll",
"build/netstandard2.0/ref/System.Security.Cryptography.Csp.dll",
"build/netstandard2.0/ref/System.Security.Cryptography.Encoding.dll",
"build/netstandard2.0/ref/System.Security.Cryptography.Primitives.dll",
"build/netstandard2.0/ref/System.Security.Cryptography.X509Certificates.dll",
"build/netstandard2.0/ref/System.Security.Principal.dll",
"build/netstandard2.0/ref/System.Security.SecureString.dll",
"build/netstandard2.0/ref/System.ServiceModel.Web.dll",
"build/netstandard2.0/ref/System.Text.Encoding.Extensions.dll",
"build/netstandard2.0/ref/System.Text.Encoding.dll",
"build/netstandard2.0/ref/System.Text.RegularExpressions.dll",
"build/netstandard2.0/ref/System.Threading.Overlapped.dll",
"build/netstandard2.0/ref/System.Threading.Tasks.Parallel.dll",
"build/netstandard2.0/ref/System.Threading.Tasks.dll",
"build/netstandard2.0/ref/System.Threading.Thread.dll",
"build/netstandard2.0/ref/System.Threading.ThreadPool.dll",
"build/netstandard2.0/ref/System.Threading.Timer.dll",
"build/netstandard2.0/ref/System.Threading.dll",
"build/netstandard2.0/ref/System.Transactions.dll",
"build/netstandard2.0/ref/System.ValueTuple.dll",
"build/netstandard2.0/ref/System.Web.dll",
"build/netstandard2.0/ref/System.Windows.dll",
"build/netstandard2.0/ref/System.Xml.Linq.dll",
"build/netstandard2.0/ref/System.Xml.ReaderWriter.dll",
"build/netstandard2.0/ref/System.Xml.Serialization.dll",
"build/netstandard2.0/ref/System.Xml.XDocument.dll",
"build/netstandard2.0/ref/System.Xml.XPath.XDocument.dll",
"build/netstandard2.0/ref/System.Xml.XPath.dll",
"build/netstandard2.0/ref/System.Xml.XmlDocument.dll",
"build/netstandard2.0/ref/System.Xml.XmlSerializer.dll",
"build/netstandard2.0/ref/System.Xml.dll",
"build/netstandard2.0/ref/System.dll",
"build/netstandard2.0/ref/mscorlib.dll",
"build/netstandard2.0/ref/netstandard.dll",
"build/netstandard2.0/ref/netstandard.xml",
"lib/netstandard1.0/_._"
]
}
},
"projectFileDependencyGroups": {
".NETStandard,Version=v2.0": [
"NETStandard.Library >= 2.0.1"
]
},
"packageFolders": {
"C:\\Users\\Stefan Hutter\\.nuget\\packages\\": {},
"C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackagesFallback\\": {},
"C:\\Program Files\\dotnet\\sdk\\NuGetFallbackFolder": {}
},
"project": {
"version": "1.0.0",
"restore": {
"projectUniqueName": "E:\\Software-Projekte\\DPM\\DPM2016\\DMS\\DMS.vbproj",
"projectName": "DMS",
"projectPath": "E:\\Software-Projekte\\DPM\\DPM2016\\DMS\\DMS.vbproj",
"packagesPath": "C:\\Users\\Stefan Hutter\\.nuget\\packages\\",
"outputPath": "E:\\Software-Projekte\\DPM\\DPM2016\\DMS\\obj\\",
"projectStyle": "PackageReference",
"fallbackFolders": [
"C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackagesFallback\\",
"C:\\Program Files\\dotnet\\sdk\\NuGetFallbackFolder"
],
"configFilePaths": [
"C:\\Users\\Stefan Hutter\\AppData\\Roaming\\NuGet\\NuGet.Config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.config",
"C:\\Program Files (x86)\\NuGet\\Config\\Microsoft.VisualStudio.Offline.Fallback.config"
],
"originalTargetFrameworks": [
"netstandard2.0"
],
"sources": {
"C:\\Program Files (x86)\\Microsoft SDKs\\NuGetPackages\\": {},
"http://nuget.grapecity.com/nuget": {},
"https://www.nuget.org/api/v2/": {}
},
"frameworks": {
"netstandard2.0": {
"projectReferences": {}
}
},
"warningProperties": {
"warnAsError": [
"NU1605"
]
}
},
"frameworks": {
"netstandard2.0": {
"dependencies": {
"NETStandard.Library": {
"suppressParent": "All",
"target": "Package",
"version": "[2.0.1, )",
"autoReferenced": true
}
},
"imports": [
"net461"
],
"assetTargetFallback": true,
"warn": true
}
}
}
}

6
DMSTest/App.config Normal file
View File

@@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8" ?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6" />
</startup>
</configuration>

119
DMSTest/DMSTest.vbproj Normal file
View File

@@ -0,0 +1,119 @@
<?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>{9C2612EE-2967-4C6E-BA46-B776919A7096}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>DMSTest.My.MyApplication</StartupObject>
<RootNamespace>DMSTest</RootNamespace>
<AssemblyName>DMSTest</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
</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>DMSTest.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>DMSTest.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>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<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="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<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>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</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>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
</Project>

317
DMSTest/DokumentDetail.Designer.vb generated Normal file
View File

@@ -0,0 +1,317 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class DokumentDetail
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(DokumentDetail))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtPath = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.dtTermin = New System.Windows.Forms.DateTimePicker()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtTermin = New System.Windows.Forms.TextBox()
Me.btnSave = New System.Windows.Forms.Button()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
Me.treestruktur = New DevComponents.AdvTree.AdvTree()
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
Me.Label6 = New System.Windows.Forms.Label()
Me.StatusStrip1.SuspendLayout()
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(24, 27)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(69, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Bezeichnung"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(24, 57)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Beschreibung"
'
'txtBezeichnung
'
Me.txtBezeichnung.Location = New System.Drawing.Point(115, 24)
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Size = New System.Drawing.Size(404, 20)
Me.txtBezeichnung.TabIndex = 2
'
'txtBeschreibung
'
Me.txtBeschreibung.Location = New System.Drawing.Point(115, 54)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.Size = New System.Drawing.Size(404, 65)
Me.txtBeschreibung.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(24, 132)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(29, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Pfad"
'
'txtPath
'
Me.txtPath.AllowDrop = True
Me.txtPath.Location = New System.Drawing.Point(115, 129)
Me.txtPath.Name = "txtPath"
Me.txtPath.Size = New System.Drawing.Size(382, 20)
Me.txtPath.TabIndex = 5
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.Location = New System.Drawing.Point(491, 127)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(28, 23)
Me.Button1.TabIndex = 6
Me.Button1.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(24, 163)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 13)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Termin"
'
'dtTermin
'
Me.dtTermin.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtTermin.Location = New System.Drawing.Point(115, 157)
Me.dtTermin.Name = "dtTermin"
Me.dtTermin.Size = New System.Drawing.Size(106, 20)
Me.dtTermin.TabIndex = 8
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(24, 186)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(79, 13)
Me.Label5.TabIndex = 9
Me.Label5.Text = "Termin-Hinweis"
'
'txtTermin
'
Me.txtTermin.Location = New System.Drawing.Point(115, 183)
Me.txtTermin.Multiline = True
Me.txtTermin.Name = "txtTermin"
Me.txtTermin.Size = New System.Drawing.Size(404, 65)
Me.txtTermin.TabIndex = 10
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(27, 284)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 11
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(724, 284)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 12
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(227, 159)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(77, 17)
Me.CheckBox1.TabIndex = 13
Me.CheckBox1.Text = "Erinnerung"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 327)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(814, 22)
Me.StatusStrip1.TabIndex = 14
Me.StatusStrip1.Text = "StatusStrip1"
'
'ToolStripStatusLabel1
'
Me.ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Red
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
'
'treestruktur
'
Me.treestruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.treestruktur.AllowDrop = True
Me.treestruktur.AllowExternalDrop = False
Me.treestruktur.AllowUserToResizeColumns = False
Me.treestruktur.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.treestruktur.BackgroundStyle.Class = "TreeBorderKey"
Me.treestruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.treestruktur.DragDropEnabled = False
Me.treestruktur.DragDropNodeCopyEnabled = False
Me.treestruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.treestruktur.Location = New System.Drawing.Point(619, 24)
Me.treestruktur.Name = "treestruktur"
Me.treestruktur.NodesConnector = Me.NodeConnector1
Me.treestruktur.NodeStyle = Me.ElementStyle1
Me.treestruktur.NodeStyleSelected = Me.ElementStyle2
Me.treestruktur.PathSeparator = ";"
Me.treestruktur.Size = New System.Drawing.Size(180, 224)
Me.treestruktur.Styles.Add(Me.ElementStyle1)
Me.treestruktur.Styles.Add(Me.ElementStyle2)
Me.treestruktur.TabIndex = 15
Me.treestruktur.Text = "AdvTree1"
'
'NodeConnector1
'
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle2
'
Me.ElementStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(221, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(247, Byte), Integer))
Me.ElementStyle2.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(168, Byte), Integer), CType(CType(228, Byte), Integer))
Me.ElementStyle2.BackColorGradientAngle = 90
Me.ElementStyle2.BorderBottom = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderBottomWidth = 1
Me.ElementStyle2.BorderColor = System.Drawing.Color.DarkGray
Me.ElementStyle2.BorderLeft = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderLeftWidth = 1
Me.ElementStyle2.BorderRight = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderRightWidth = 1
Me.ElementStyle2.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderTopWidth = 1
Me.ElementStyle2.CornerDiameter = 4
Me.ElementStyle2.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle2.Description = "Blue"
Me.ElementStyle2.Name = "ElementStyle2"
Me.ElementStyle2.PaddingBottom = 1
Me.ElementStyle2.PaddingLeft = 1
Me.ElementStyle2.PaddingRight = 1
Me.ElementStyle2.PaddingTop = 1
Me.ElementStyle2.TextColor = System.Drawing.Color.Black
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(569, 27)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(44, 13)
Me.Label6.TabIndex = 16
Me.Label6.Text = "Struktur"
'
'DokumentDetail
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(814, 349)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.treestruktur)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.txtTermin)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.dtTermin)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.txtPath)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtBeschreibung)
Me.Controls.Add(Me.txtBezeichnung)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "DokumentDetail"
Me.Text = "DokumentDetail"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtBezeichnung As TextBox
Friend WithEvents txtBeschreibung As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents txtPath As TextBox
Friend WithEvents Button1 As Button
Friend WithEvents Label4 As Label
Friend WithEvents dtTermin As DateTimePicker
Friend WithEvents Label5 As Label
Friend WithEvents txtTermin As TextBox
Friend WithEvents btnSave As Button
Friend WithEvents btnAbbruch As Button
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
Friend WithEvents treestruktur As DevComponents.AdvTree.AdvTree
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents ElementStyle2 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents Label6 As Label
End Class

5091
DMSTest/DokumentDetail.resx Normal file
View File

File diff suppressed because it is too large Load Diff

267
DMSTest/DokumentDetail.vb Normal file
View File

@@ -0,0 +1,267 @@
Imports DevComponents.AdvTree
Imports Gnostice.Documents.Controls.WinForms
Imports Gnostice.Documents
Public Class DokumentDetail
Dim m_massenimport As Boolean
Property Massenimport
Get
Return m_massenimport
End Get
Set(value)
m_massenimport = value
End Set
End Property
Dim m_keyvalue As Integer
Property KeyValue As Integer
Get
Return m_keyvalue
End Get
Set(value As Integer)
m_keyvalue = value
End Set
End Property
Dim m_strutkurid As Integer
Property Strukturid As Integer
Get
Return m_strutkurid
End Get
Set(value As Integer)
m_strutkurid = value
End Set
End Property
Dim m_editmode As Boolean
Property Edit_Mode As Boolean
Get
Return m_editmode
End Get
Set(value As Boolean)
m_editmode = value
End Set
End Property
Dim m_dokid As Integer
Property DokID As Integer
Get
Return m_dokid
End Get
Set(value As Integer)
m_dokid = value
End Set
End Property
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ByVal KeyValue As Integer, ByVal StrukturID As Integer, Optional DokID As Integer = 0, Optional edit As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.KeyValue = KeyValue
Me.Strukturid = StrukturID
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.DokID = DokID
Me.Edit_Mode = edit
Get_tree()
End Sub
Private Sub DokumentDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Not Me.Edit_Mode Then Me.AllowDrop = True
If Me.Edit_Mode = True Then
Me.txtPath.Enabled = False
Me.Button1.Enabled = False
Dim db As New clsDB
db.Get_Tabledata("dms_dokument", "where nreintrag=" + Me.DokID.ToString)
Me.txtBezeichnung.Text = db.dsDaten.Tables(0).Rows(0).Item(2)
Me.txtBeschreibung.Text = db.dsDaten.Tables(0).Rows(0).Item(3)
Me.txtPath.Text = db.dsDaten.Tables(0).Rows(0).Item(4)
Me.dtTermin.Value = db.dsDaten.Tables(0).Rows(0).Item(10)
Me.CheckBox1.Checked = db.dsDaten.Tables(0).Rows(0).Item(11) = True
Me.txtTermin.Text = db.dsDaten.Tables(0).Rows(0).Item(12)
End If
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If Not Me.Edit_Mode And Not System.IO.File.Exists(Me.txtPath.Text) Then
MsgBox("Die ausgewählte Datei ist nicht vorhandne." + vbExclamation)
Exit Sub
End If
Dim dir As String
Dim db As New clsDB
Dim db1 As New clsDB
db1.Get_Tabledata("DMS_Settings", "", "Select * from dms_settings where nreintrag=1")
Dim db2 As New clsDB
db2.Get_Tabledata("DMS_Settings", "", "Select * from dms_settings where nreintrag=2")
dir = db2.dsDaten.Tables(0).Rows(0).Item(2)
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "False" Then
If System.IO.File.Exists(dir + System.IO.Path.GetFileName(Me.txtPath.Text)) Then
If MsgBox("Die Datei " + System.IO.Path.GetFileName(Me.txtPath.Text) + " ist im Ablage-Verzeichnis bereits vorhanden." + vbCrLf + "Soll sie überschrieben werden?", vbYesNo + vbQuestion) = MsgBoxResult.No Then
Exit Sub
End If
End If
End If
If Me.Edit_Mode Then
db.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where nreintrag=" + Me.DokID.ToString)
Else
db.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where nreintrag=-1")
End If
Dim dr As DataRow
If Edit_Mode = False Then
dr = db.dsDaten.Tables(0).NewRow
Else
dr = db.dsDaten.Tables(0).Rows(0)
End If
dr.Item(1) = Me.treestruktur.SelectedNode.Tag
dr.Item(2) = Me.txtBezeichnung.Text
dr.Item(3) = Me.txtBeschreibung.Text
dr.Item(4) = Me.txtPath.Text
If Not Me.Edit_Mode Then dr.Item(5) = Now
dr.Item(6) = Now
dr.Item(7) = Globals.ActUser
dr.Item(8) = True
If Not Edit_Mode Then
dr.Item(9) = db1.dsDaten.Tables(0).Rows(0).Item(2)
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "False" Then
dr.Item(4) = dir + System.IO.Path.GetFileName(Me.txtPath.Text)
End If
End If
dr.Item(10) = dtTermin.Value
dr.Item(11) = CheckBox1.Checked = True
dr.Item(12) = txtTermin.Text
dr.Item(13) = Me.KeyValue
If Not Edit_Mode Then db.dsDaten.Tables(0).Rows.Add(dr)
db.Update_Data()
If Not Me.Edit_Mode Then
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "True" Then
db.Get_Tabledata("Dokument", "", "Select top 1 * from dms_dokument order by nreintrag desc")
Dim dok As New clsDok
dok.Save_Document(db.dsDaten.Tables(0).Rows(0).Item(0), Me.txtPath.Text)
Else
If Not System.IO.Directory.Exists(dir) Then
System.IO.Directory.CreateDirectory(dir)
End If
System.IO.File.Copy(Me.txtPath.Text, dir + System.IO.Path.GetFileName(Me.txtPath.Text))
End If
End If
ToolStripStatusLabel1.Text = "Dokument wurde gespeicher."
If Me.Massenimport Then Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then Me.txtPath.Text = Me.OpenFileDialog1.FileName
End Sub
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
Me.Close()
End Sub
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
For Each path In files
Me.txtPath.Text = path
Next
End Sub
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub txtPath_TextChanged(sender As Object, e As EventArgs) Handles txtPath.TextChanged
ToolStripStatusLabel1.Text = ""
End Sub
Sub Get_tree()
Dim db As New clsDB
db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
Load_Treeview(db.dsDaten, Me.treestruktur)
End Sub
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As AdvTree)
If Not (oSourceData Is Nothing) Then
Dim oView As DataView = oSourceData.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation",
oDS.Tables(0).Columns("eintragnr"),
oDS.Tables(0).Columns("parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView(oDS, tree)
oDS.Dispose()
oDS = Nothing
End If
End Sub
''' <summary>
''' Tree aufbauen
''' </summary>
''' <param name="oDS"></param>
''' <param name="oTreeview"></param>
''' <remarks></remarks>
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As AdvTree)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
Dim oNode As New DevComponents.AdvTree.Node
oNode.Text = oDataRow("Bezeichnung").ToString()
oNode.Tag = oDataRow("eintragnr").ToString
oNode.ImageIndex = 0
oNode.ImageIndex = 0
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New DevComponents.AdvTree.Node()
oChildNode.Text = oChildRow("Bezeichnung").ToString()
oChildNode.Tag = oChildRow("eintragnr").ToString()
If oChildRow("eintragnr") = 0 Then
oChildNode.ImageIndex = 0
oChildNode.ImageIndex = 0
Else
oChildNode.ImageIndex = 1
oChildNode.ImageIndex = 1
End If
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree(oChildRow, oChildNode)
Next oChildRow
End Sub
End Class

31
DMSTest/Form1.Designer.vb generated Normal file
View File

@@ -0,0 +1,31 @@
<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()
components = New System.ComponentModel.Container()
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Text = "Form1"
End Sub
End Class

3
DMSTest/Form1.vb Normal file
View File

@@ -0,0 +1,3 @@
Public Class Form1
End Class

38
DMSTest/My Project/Application.Designer.vb generated Normal file
View File

@@ -0,0 +1,38 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.DMSTest.Form1
End Sub
End Class
End Namespace

11
DMSTest/My Project/Application.myapp Normal file
View File

@@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
DMSTest/My Project/AssemblyInfo.vb Normal file
View File

@@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' Allgemeine Informationen über eine Assembly werden über die folgenden
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
' die einer Assembly zugeordnet sind.
' Werte der Assemblyattribute überprüfen
<Assembly: AssemblyTitle("DMSTest")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("DMSTest")>
<Assembly: AssemblyCopyright("Copyright © 2018")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird.
<Assembly: Guid("3be55fb9-fbd3-4efd-841e-37e08c2186ca")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
' Hauptversion
' Nebenversion
' Buildnummer
' Revision
'
' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

62
DMSTest/My Project/Resources.Designer.vb generated Normal file
View File

@@ -0,0 +1,62 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DMSTest.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set(ByVal value As Global.System.Globalization.CultureInfo)
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
DMSTest/My Project/Resources.resx Normal file
View File

@@ -0,0 +1,117 @@
<?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.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: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" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</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" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</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>
</root>

73
DMSTest/My Project/Settings.Designer.vb generated Normal file
View File

@@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.DMSTest.My.MySettings
Get
Return Global.DMSTest.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
DMSTest/My Project/Settings.settings Normal file
View File

@@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

845
DMSTest/clsDB.vb Normal file
View File

@@ -0,0 +1,845 @@
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
#Const dbtype = "SQL"
#If dbtype = "MySQL" Then
Public Class clsMySQLDB
#Else
Public Class clsDB
#End If
#Region "Deklarationen"
Dim m_connectionstring As String
Property Connectionstring As String
Get
Return m_connectionstring
End Get
Set(value As String)
m_connectionstring = value
End Set
End Property
Dim m_sqltype As String
Property Sqltype As String
Get
Return m_sqltype
End Get
Set(value As String)
m_sqltype = value
End Set
End Property
Sub New()
Me.Connectionstring = My.Settings.ConnectionString
End Sub
Public dsDaten As New DataSet
Public dssql As New DataSet
Public dadaten As SqlDataAdapter
#End Region
#Region "Allgemein Get / Save"
Public Sub Dispose()
dsDaten.Dispose()
dssql.Dispose()
End Sub
Public Function Get_Option(ByVal nr As Integer) As String
Try
Dim dad As New SqlDataAdapter
Dim sql As String = "Select Inhalt from options where nroption=" + nr.ToString + " and mandant=" + Globals.Mandant.ToString + " and aktiv=1"
Dim data As New DataTable
dad = New SqlDataAdapter(sql, Me.Connectionstring)
dad.Fill(data)
Dim s As String
s = data.Rows(0).Item(0).ToString.Replace("&Startup&", Application.StartupPath + Globals.Auswertungsverzeicnis)
Return s
dad.Dispose()
data.Dispose()
Catch ex As Exception
Dim a As Integer = 1
End Try
End Function
Public Function Get_Datavalue(sql As String, Optional args As String = "") As String
Try
Try
dsDaten.Clear()
dsDaten.Tables.Clear()
If sql <> "" Then
sql = sql.Replace("&ARGS&", args)
dadaten = New SqlDataAdapter(sql, Me.Connectionstring)
End If
Dim dt As New DataTable
dadaten.Fill(dt)
Return dt.Rows(0).Item(0)
Catch ex As Exception
Dim a As Integer = 1
End Try
Catch ex As Exception
Dim a As Integer = 1
End Try
End Function
Public Sub Get_Tabledata(ByVal tablename As String, Optional wherestatement As String = "", Optional SQL As String = "", Optional args As String = "", Optional SP As Boolean = False, Optional SP_Params As DataTable = Nothing)
If SP = True Then
End If
Try
dsDaten.Clear()
dsDaten.Tables.Clear()
dadaten = New SqlDataAdapter(SQL, Me.Connectionstring)
If SP = True Then
Dim sqlcmd As New SqlCommand
Dim sqlconnect As New SqlConnection
sqlconnect.ConnectionString = Me.Connectionstring
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = tablename
For Each r As DataRow In SP_Params.Rows
sqlcmd.Parameters.Add(r("Paramname"), SqlDbType.VarChar)
sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue")
Next
sqlcmd.Connection = sqlconnect
Try
dadaten.SelectCommand = sqlcmd
dadaten.Fill(dsDaten, tablename)
Exit Sub
Catch ex As Exception
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
End Try
End If
If SQL <> "" Then
SQL = SQL.Replace("&ARGS&", args)
dadaten = New SqlDataAdapter(SQL, Me.Connectionstring)
Else
dadaten = New SqlDataAdapter("select * from [" + tablename + "] " + wherestatement, Me.Connectionstring)
End If
'dadaten = New SqlDataAdapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring)
dadaten.Fill(dsDaten, tablename)
If encrypted = True Then
For Each r As DataRow In dsDaten.Tables(0).Rows
For Each c As DataColumn In dsDaten.Tables(0).Columns
Select Case UCase(c.ColumnName)
Case "NAME", "VORNAME", "STRASSE", "PLZ", "ORT", "TELP", "PATIENT", "BEHANDLER"
r(c.ColumnName) = Crypto.DecryptText(r(c.ColumnName), Globals.encryptkey)
End Select
Next
Next
End If
Catch ex As Exception
Dim a As Integer = 1
End Try
End Sub
Public Sub Update_Data()
Dim cb As New SqlCommandBuilder(dadaten)
dadaten.Update(dsDaten, dsDaten.Tables(0).TableName)
End Sub
Dim da As SqlDataAdapter
Dim qb As New SqlCommandBuilder
Public daten As New DataSet
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.Connectionstring
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 Exec_Prod(ByVal Procedure As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = Procedure
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
Public Sub Exec_SQL(ByVal SQL As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = SQL
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.Text
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
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.Connectionstring
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 Function Insert_New_Entry(Table As String, Optional KeyName As String = "", Optional getdbkey As Boolean = False, Optional sqlstring As String = "") As DataTable
Dim dbkey As Integer = 0
If getdbkey Then
dsDaten.Tables.Clear()
Get_Tabledata("firmaap", "", sqlstring, "", False)
dbkey = dsDaten.Tables(0).Rows(0).Item(0) + 1
End If
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.Connectionstring
Dim da As New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
Dim sql As String
sqlcmd.CommandText = "Insert into " + Table + " (" + KeyName + ",aktiv,erstellt_am,mutiert_am,mutierer) values(" + dbkey.ToString + ",1,getdate(),getdate()," + Globals.ActUser.ToString + ")"
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
Dim data As New DataTable
dsDaten.Tables.Clear()
Get_Tabledata(Table, "", "Select top 1 * from " + Table + " order by " + KeyName + " desc")
Return dsDaten.Tables(0)
End Function
Public Function Insert_New_Entry_autokey(Table As String, Optional KeyName As String = "", Optional getdbkey As Boolean = False, Optional sqlstring As String = "") As DataTable
Dim dbkey As Integer = 0
If getdbkey Then
dsDaten.Tables.Clear()
Get_Tabledata("firmaap", "", sqlstring, "", False)
dbkey = dsDaten.Tables(0).Rows(0).Item(0) + 1
End If
Dim sqlconnect As New SqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.Connectionstring
Dim da As New SqlDataAdapter("", sqlconnect)
Dim sqlcmd As New SqlCommand
sqlcmd.Connection = sqlconnect
Dim sql As String
sqlcmd.CommandText = "Insert into " + Table + " (aktiv,erstellt_am,mutiert_am,mutierer) values(1,getdate(),getdate()," + Globals.ActUser.ToString + ")"
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
Dim data As New DataTable
dsDaten.Tables.Clear()
Get_Tabledata(Table, "", "Select top 1 * from " + Table + " order by " + KeyName + " desc")
Return dsDaten.Tables(0)
End Function
Public Sub Copy_Behandlung(ByVal behandlugnsnr As String, typ As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_copy_behandlung]"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@behandlungsnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlugnsnr))
scmCmdToExecute.Parameters.Add(New SqlParameter("@typ", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, typ))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
#End Region
#Region "Spalten"
Public Sub Generate_SpaltenData(ByVal tablename As String)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
Dim dttable As New DataTable(tablename)
scmCmdToExecute.CommandText = "dbo.[sp_update_spalten]"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, tablename))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
Public Function Get_Spaltendata()
Try
Dim dbRow As DataRow
Dim dsPartner As New DataSet
dadaten = New SqlDataAdapter("select * from Spalten where aktiv=1", Me.Connectionstring)
dadaten.Fill(dsDaten, "Daten")
Catch ex As Exception
End Try
End Function
Public Function Get_SQL(ByVal nr As Integer) As String
Try
If Globals.SQLStatements.Rows.Count = 0 Then
dssql.Clear()
dadaten = New SqlDataAdapter("select * from sql_statements", Me.Connectionstring)
dadaten.Fill(dssql, "SQLStatements")
Globals.SQLStatements = dssql.Tables(0).Copy
End If
For Each r As DataRow In Globals.SQLStatements.Rows
If r(0) = nr Then
Return r(1)
Exit Function
End If
Next
Catch
End Try
End Function
#End Region
#Region "Suche"
Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer
Select Case Type
Case "Patient"
If IsNumeric(Searchstring) Then
Get_Tabledata("privat", " where nrprivat=" + Searchstring + " order by name, vorname, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit der Nr. " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
Else
Get_Tabledata("privat", " where name like '" + Searchstring + "%'" + " order by name, vorname, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
End If
If dsDaten.Tables(0).Rows.Count = 1 Then
Return (dsDaten.Tables(0).Rows(0).Item("nrprivat"))
Else
Dim f As New frmPrivatSelect
f.Text = "Patient-Suche"
f.TreeView1.Nodes.Clear()
For Each r As DataRow In dsDaten.Tables(0).Rows
Dim tn As New TreeNode
tn.Text = r("nrprivat").ToString + " " + r("Name") + " " + r("vorname") + ", " + r("PLZ") + " " + r("ort")
tn.Tag = r("nrprivat")
f.TreeView1.Nodes.Add(tn)
Next
f.TreeView1.SelectedNode = f.TreeView1.Nodes(0)
f.StartPosition = FormStartPosition.CenterParent
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Return f.TreeView1.SelectedNode.Tag
Else
Return -1
End If
End If
Return -1
Case "Firma"
If IsNumeric(Searchstring) Then
Get_Tabledata("firma", " where nrfirma=" + Searchstring + " order by name1, name2, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit der Nr. " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
Else
Get_Tabledata("firma", " where name1 like '" + Searchstring + "%'" + " order by name1, name2, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
End If
If dsDaten.Tables(0).Rows.Count = 1 Then
Return (dsDaten.Tables(0).Rows(0).Item("nrfirma"))
Else
Dim f As New frmPrivatSelect
f.Text = "Firmensuche"
f.TreeView1.Nodes.Clear()
For Each r As DataRow In dsDaten.Tables(0).Rows
Dim tn As New TreeNode
tn.Text = r("nrfirma").ToString + " " + r("Name1") + " " + r("name2") + ", " + r("PLZ") + " " + r("ort")
tn.Tag = r("nrfirma")
f.TreeView1.Nodes.Add(tn)
Next
f.TreeView1.SelectedNode = f.TreeView1.Nodes(0)
f.StartPosition = FormStartPosition.CenterParent
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Return f.TreeView1.SelectedNode.Tag
Else
Return -1
End If
End If
Return -1
End Select
End Function
#End Region
#Region "Log"
Public Function WriteLog(ByVal Entry As String, ByVal logtype As Integer)
Try
Dim conn As New SqlConnection(Me.Connectionstring)
Dim sql As String
sql = "Insert Log (Eintrag,logtype ) values('" + Entry + "'," + logtype.ToString + ")"
Dim cm As New SqlCommand(sql, conn)
conn.Open()
cm.ExecuteNonQuery()
conn.Close()
conn.Dispose()
cm.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
#End Region
#Region "Utils"
Public Function Get_DBKey(ByVal Tablename As String) As Integer
Select Case Tablename
Case "Privat"
Me.Get_Tabledata("NewKeyPrivat", "", Me.Get_SQL(15))
Case "Firma"
Me.Get_Tabledata("NewKeyFirma", "", Me.Get_SQL(28))
Case "Leistung"
Me.Get_Tabledata("NewKeyLeistung", "", Me.Get_SQL(17))
Case "Behandlung"
Me.Get_Tabledata("NewKeyBehandlung", "", Me.Get_SQL(18))
Case "Zahlung"
Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20))
Case "Recall"
Me.Get_Tabledata("NewKeyRecall", "", Me.Get_SQL(31))
Case "Tarif"
Me.Get_Tabledata("Tarif", "", "Select top 1 nrtarif+1 from tarif order by nrtarif desc")
End Select
Return Me.dsDaten.Tables(0).Rows(0).Item(0)
End Function
#End Region
#Region "Tarife / Leistungen"
Public Function Get_Tarife() As DataTable
Dim found As Boolean = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarife" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Tarife", "order by nummervon")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarifgrp" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Tarifgrp", "order by tarifvon")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarpaket" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Tarpaket", "order by paketbezeichnung")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
If Not found Then
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "paketpos" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("paketpos", "order by nrpaket")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Dentotar" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Dentotar", "", Get_SQL(23))
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
End Function
Public Function Get_Tarif() As DataTable
Dim found As Boolean = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarif" Then
found = True
Exit Function
End If
Next
If Not found Then
Me.Get_Tabledata("Tarif", "", Get_SQL(16))
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
End Function
Public Sub Recalc_Leistungen(ByVal nrbehandlung As Integer, taxpunktwert As Double)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_recalc_leistungen]"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@nrbehandlung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, nrbehandlung))
scmCmdToExecute.Parameters.Add(New SqlParameter("@taxpunktwert", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, taxpunktwert))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
#End Region
#Region "Leistung"
Public Function delete_leistung(ByVal nrleistung As Integer)
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
dsDaten.Tables(0).Rows(0).Item("Aktiv") = 0
dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
Update_Data()
End Function
Public Function Get_Leistung(ByVal nrleistung As Integer)
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
End Function
#End Region
#Region "Auswertungen"
Public Function get_reportdata(ByVal Reportnr As Integer, ByVal Parameter As String) As String
Get_Tabledata("Auswertung", "where Auswertungnr=" + Reportnr.ToString, "", "")
Dim sql As String
Dim typ As String
sql = dsDaten.Tables(0).Rows(0).Item("sql")
typ = dsDaten.Tables(0).Rows(0).Item("sqltype")
If Parameter <> "" Then sql = sql + " " + Parameter
Dim Filename As String = My.Settings.TempPath + "\" + dsDaten.Tables(0).Rows(0).Item("BEZEICHNUNG") + ".FRX"
dsDaten.Clear()
Select Case UCase(typ)
Case "SQL"
Get_Tabledata("Auswertungsdaten", "", sql, "")
Return Filename
End Select
End Function
Public Function Get_ReportNr(ByVal Report As String) As Integer
Try
Get_Tabledata("Auswertung", "where es_typ='" + Report + "'")
Return dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
Return 0
End Try
End Function
Public Function Get_ReportNr_by_ESTypnr(ByVal ESTypNr As String) As Integer
Try
Get_Tabledata("ESTyp", "where nrestyp=" + ESTypNr)
Get_Tabledata("Auswertung", "where es_typ='" + dsDaten.Tables(0).Rows(0).Item("estyp") + "'")
Return dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
Return 0
End Try
End Function
#End Region
#Region "Fakturierung"
Public Sub Rechnung_buchen(ByVal Type As Integer, ByVal Rechnungsnummer As String, rate As String, behandlungsnummer As String, ByVal Betrag As Decimal)
Dim scmCmdToExecute As SqlCommand = New SqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_Rechnung_Buchen"
Dim conn As New SqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New SqlParameter("@Type", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Type))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Fakturanr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Hauptfaktura", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Rate", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, rate))
scmCmdToExecute.Parameters.Add(New SqlParameter("@behandlungsnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlungsnummer))
scmCmdToExecute.Parameters.Add(New SqlParameter("@Betrag", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Betrag))
scmCmdToExecute.Connection.Open()
'scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
Public Sub Mahnung_Buchen(ByVal nrfaktura As Integer, ByVal Stufe As Integer, ByVal daten As DataTable)
Dim db As New clsDB
Dim mahndatum As Date
Dim faelligkeit As Date
Dim mahngebuehr As Double
mahndatum = daten.Rows(0).Item("Mahndatum")
faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
Select Case Stufe
Case 1
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum1='" + mahndatum + "', mahnfaelligkeit1='" + faelligkeit + "', mahngebuehr1='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
Case 2
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum2='" + mahndatum + "', mahnfaelligkeit2='" + faelligkeit + "', mahngebuehr2='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
Case 3
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum3='" + mahndatum + "', mahnfaelligkeit3='" + faelligkeit + "',mahngebuehr3='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
End Select
End Sub
#End Region
#Region "Documenthandling"
Public Function Save_CAMT_File_RUN(ByVal Key As Integer, Filename As String)
Return Save_File("Select * from camt_run where nreintrag=" + Key.ToString, Filename, "SourceFIle")
End Function
Public Function Save_CAMT_File(ByVal Key As Integer, Filename As String)
Return Save_File("Select * from camt_file where nreintrag=" + Key.ToString, Filename, "camt_file")
End Function
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
Return Save_File("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
End Function
Public Function Get_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
Return Get_file("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
End Function
Public Function Save_File(ByVal sql As String, ByVal filename As String, ByVal DBAttribut As String) As String
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter(sql, Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New System.IO.FileStream(filename, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
Try
Connection.ConnectionString = My.Settings.ConnectionString
Connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
MsgBox("Datei kann nicht gespeichert werden.", MsgBoxStyle.Critical)
Exit Function
Else
myRow = ds.Tables(0).Rows(0)
myRow.Item(DBAttribut) = mydata
DA.Update(ds, "RptFile")
End If
Return filename
Catch ex As Exception
MsgBox(ex.Message)
filename = ""
Return filename
Finally
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
End Try
End Function
Public Function Get_file(ByVal sql As String, filename As String, DBAttribut As String) As String
Dim connection As New SqlConnection()
Dim DA As New SqlDataAdapter(sql, connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Try
connection.ConnectionString = My.Settings.ConnectionString
connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(DBAttribut)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Return filename
Catch ex As Exception
Return ""
Finally
CB = Nothing
ds = Nothing
DA = Nothing
connection.Close()
connection = Nothing
End Try
End Function
#End Region
#Region "Zahlungen"
Public Sub Insert_ZJournal(fakturanr As String, ByVal debitor As String, ByVal debitortext As String, ByVal betrag As Decimal, ByVal konto As String, ByVal vz As String, ByVal storno As String)
Get_Tabledata("Zahlung", "", "Select top 1 * from zjournal order by pk desc")
Dim dr As DataRow = dsDaten.Tables(0).NewRow
dr.Item("nreintrag") = 0
dr.Item("Mandant") = Globals.Mandant
dr.Item("Datum") = Now
dr.Item("nrfaktura") = fakturanr
dr.Item("nrdebitor") = debitor
dr.Item("debitor") = debitortext
dr.Item("Konto") = konto
dr.Item("betrag") = betrag
If vz = "False" Then vz = ""
If vz = "True" Then vz = "J"
dr.Item("vz") = vz
dr.Item("storno") = storno
dr.Item("erstellt_am") = Now
dr.Item("mutiert_am") = Now
dr.Item("mutierer") = Globals.ActUser
dr.Item("aktiv") = True
dsDaten.Tables(0).Rows.Add(dr)
Update_Data()
End Sub
#End Region
#Region "Security"
Public Function Objexists(ByVal securityform As String, ByVal securityobjecttype As String, ByVal securityobject As String, ByVal securityobjectitem As String) As Boolean
Get_Tabledata("SecurityObject", "SecurityForm='" + securityform + "' and securityobjecttype='" + securityobjecttype + "' and securityobject='" + securityobject + "' and securityobjectitem='" + securityobjectitem + "? and aktiv=1")
If dsDaten.Tables(0).Rows.Count > 0 Then Return True Else Return False
End Function
#End Region
End Class

129
DMSTest/clsDok.vb Normal file
View File

@@ -0,0 +1,129 @@
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Public Class clsDok
Dim m_stream As MemoryStream
Property Documentstream As MemoryStream
Get
Return m_stream
End Get
Set(value As MemoryStream)
m_stream = value
End Set
End Property
Public Function Save_Document(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from dms_dokument where nreintrag =" + Str(Dokumentnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
Try
Connection.ConnectionString = My.Settings.ConnectionString
Connection.Open()
DA.Fill(ds, "Dokument")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
Return False
Else
myRow = ds.Tables(0).Rows(0)
myRow.Item(14) = mydata
DA.Update(ds, "Dokument")
End If
Catch ex As Exception
MsgBox(ex.Message)
Return False
End Try
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
Return True
End Function
Public Function Get_Dokument(ByVal DokumentNr As Integer) As String
Dim Filename As String = My.Settings.TempPath
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From dms_Dokument where nreintrag=" + Str(DokumentNr), connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
connection.ConnectionString = My.Settings.ConnectionString
connection.Open()
da.Fill(ds, "Dokument")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(14)
Dim K As Long
K = UBound(MyData)
Filename = Filename + System.IO.Path.GetFileName(myRow.Item(4))
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Return ""
Finally
connection.Close()
connection = Nothing
End Try
CB = Nothing
ds = Nothing
da = Nothing
Return Filename
End Function
Public Function Get_Dokument_stram(ByVal DokumentNr As Integer) As MemoryStream
Dim Filename As String = My.Settings.TempPath
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From dms_Dokument where nreintrag=" + Str(DokumentNr), connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
connection.ConnectionString = My.Settings.ConnectionString
connection.Open()
da.Fill(ds, "Dokument")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(14)
Dim K As Long
K = UBound(MyData)
Dim ms As New MemoryStream(MyData)
Return ms
Filename = Filename + System.IO.Path.GetFileName(myRow.Item(4))
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Return Nothing
Finally
connection.Close()
connection = Nothing
End Try
CB = Nothing
ds = Nothing
da = Nothing
Return Nothing
End Function
End Class

612
DMSTest/clsDokumente.Designer.vb generated Normal file
View File

@@ -0,0 +1,612 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class clsDokumente
Inherits System.Windows.Forms.UserControl
'UserControl ü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(clsDokumente))
Dim FormatterSettings2 As Gnostice.Documents.FormatterSettings = New Gnostice.Documents.FormatterSettings()
Dim SpreadSheetFormatterSettings2 As Gnostice.Documents.Spreadsheet.SpreadSheetFormatterSettings = New Gnostice.Documents.Spreadsheet.SpreadSheetFormatterSettings()
Dim PageSettings3 As Gnostice.Documents.PageSettings = New Gnostice.Documents.PageSettings()
Dim Margins3 As Gnostice.Documents.Margins = New Gnostice.Documents.Margins()
Dim SheetOptions3 As Gnostice.Documents.Spreadsheet.SheetOptions = New Gnostice.Documents.Spreadsheet.SheetOptions()
Dim SheetOptions4 As Gnostice.Documents.Spreadsheet.SheetOptions = New Gnostice.Documents.Spreadsheet.SheetOptions()
Dim TxtFormatterSettings2 As Gnostice.Documents.TXTFormatterSettings = New Gnostice.Documents.TXTFormatterSettings()
Dim PageSettings4 As Gnostice.Documents.PageSettings = New Gnostice.Documents.PageSettings()
Dim Margins4 As Gnostice.Documents.Margins = New Gnostice.Documents.Margins()
Dim RenderingSettings2 As Gnostice.Graphics.RenderingSettings = New Gnostice.Graphics.RenderingSettings()
Dim ImageRenderingSettings2 As Gnostice.Graphics.ImageRenderingSettings = New Gnostice.Graphics.ImageRenderingSettings()
Dim LineArtRenderingSettings2 As Gnostice.Graphics.LineArtRenderingSettings = New Gnostice.Graphics.LineArtRenderingSettings()
Dim ResolutionSettings2 As Gnostice.Graphics.ResolutionSettings = New Gnostice.Graphics.ResolutionSettings()
Dim TextRenderingSettings2 As Gnostice.Graphics.TextRenderingSettings = New Gnostice.Graphics.TextRenderingSettings()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.treestruktur = New DevComponents.AdvTree.AdvTree()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.grpdokumentvorschau = New System.Windows.Forms.GroupBox()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.btnFirstPage = New System.Windows.Forms.ToolStripButton()
Me.btnPrvPage = New System.Windows.Forms.ToolStripButton()
Me.txtGoToPage = New System.Windows.Forms.ToolStripTextBox()
Me.btnNxtPage = New System.Windows.Forms.ToolStripButton()
Me.btnLastPage = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsActSize = New System.Windows.Forms.ToolStripButton()
Me.tsFitPage = New System.Windows.Forms.ToolStripButton()
Me.tsFitWidth = New System.Windows.Forms.ToolStripButton()
Me.tsZoomOut = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.txtZoom = New System.Windows.Forms.ToolStripTextBox()
Me.toolStripPercentlabel = New System.Windows.Forms.ToolStripLabel()
Me.tsZoomIn = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.DocumentViewer1 = New Gnostice.Documents.Controls.WinForms.DocumentViewer()
Me.C1Dokumente = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeuesDokumentHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentinformationenBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.DokumentAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentExportierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PerMailVersendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.ToolStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
Me.grpdokumentvorschau.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnew, Me.ToolStripButton4, Me.tsbtnSave, Me.ToolStripButton2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1007, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtnnew
'
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnew.Name = "tsbtnnew"
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnew.Text = "Neuer Datensatz"
Me.tsbtnnew.Visible = False
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
Me.ToolStripButton4.Visible = False
'
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
Me.tsbtnSave.Text = "Speichern"
Me.tsbtnSave.Visible = False
'
'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 = "Dokument löschen"
Me.ToolStripButton2.Visible = False
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.treestruktur)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 25)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(278, 465)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Struktur"
'
'treestruktur
'
Me.treestruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.treestruktur.AllowDrop = True
Me.treestruktur.AllowExternalDrop = False
Me.treestruktur.AllowUserToResizeColumns = False
Me.treestruktur.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.treestruktur.BackgroundStyle.Class = "TreeBorderKey"
Me.treestruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.treestruktur.Dock = System.Windows.Forms.DockStyle.Fill
Me.treestruktur.DragDropEnabled = False
Me.treestruktur.DragDropNodeCopyEnabled = False
Me.treestruktur.ImageList = Me.ImageList1
Me.treestruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.treestruktur.Location = New System.Drawing.Point(3, 16)
Me.treestruktur.Name = "treestruktur"
Me.treestruktur.NodesConnector = Me.NodeConnector1
Me.treestruktur.NodeStyle = Me.ElementStyle1
Me.treestruktur.NodeStyleSelected = Me.ElementStyle2
Me.treestruktur.PathSeparator = ";"
Me.treestruktur.Size = New System.Drawing.Size(272, 446)
Me.treestruktur.Styles.Add(Me.ElementStyle1)
Me.treestruktur.Styles.Add(Me.ElementStyle2)
Me.treestruktur.TabIndex = 1
Me.treestruktur.Text = "AdvTree1"
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "Favorites_32.png")
Me.ImageList1.Images.SetKeyName(1, "Favorites_32.png")
'
'NodeConnector1
'
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle2
'
Me.ElementStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(221, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(247, Byte), Integer))
Me.ElementStyle2.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(168, Byte), Integer), CType(CType(228, Byte), Integer))
Me.ElementStyle2.BackColorGradientAngle = 90
Me.ElementStyle2.BorderBottom = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderBottomWidth = 1
Me.ElementStyle2.BorderColor = System.Drawing.Color.DarkGray
Me.ElementStyle2.BorderLeft = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderLeftWidth = 1
Me.ElementStyle2.BorderRight = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderRightWidth = 1
Me.ElementStyle2.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderTopWidth = 1
Me.ElementStyle2.CornerDiameter = 4
Me.ElementStyle2.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle2.Description = "Blue"
Me.ElementStyle2.Name = "ElementStyle2"
Me.ElementStyle2.PaddingBottom = 1
Me.ElementStyle2.PaddingLeft = 1
Me.ElementStyle2.PaddingRight = 1
Me.ElementStyle2.PaddingTop = 1
Me.ElementStyle2.TextColor = System.Drawing.Color.Black
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.grpdokumentvorschau)
Me.GroupBox2.Controls.Add(Me.C1Dokumente)
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox2.Location = New System.Drawing.Point(278, 25)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(729, 465)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Dokumente"
'
'grpdokumentvorschau
'
Me.grpdokumentvorschau.Controls.Add(Me.DocumentViewer1)
Me.grpdokumentvorschau.Controls.Add(Me.ToolStrip2)
Me.grpdokumentvorschau.Dock = System.Windows.Forms.DockStyle.Fill
Me.grpdokumentvorschau.Location = New System.Drawing.Point(3, 190)
Me.grpdokumentvorschau.Name = "grpdokumentvorschau"
Me.grpdokumentvorschau.Size = New System.Drawing.Size(723, 272)
Me.grpdokumentvorschau.TabIndex = 9
Me.grpdokumentvorschau.TabStop = False
Me.grpdokumentvorschau.Text = "Dokumentvorschau"
'
'ToolStrip2
'
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnFirstPage, Me.btnPrvPage, Me.txtGoToPage, Me.btnNxtPage, Me.btnLastPage, Me.toolStripSeparator4, Me.tsActSize, Me.tsFitPage, Me.tsFitWidth, Me.tsZoomOut, Me.toolStripSeparator7, Me.txtZoom, Me.toolStripPercentlabel, Me.tsZoomIn, Me.ToolStripButton1, Me.ToolStripButton3})
Me.ToolStrip2.Location = New System.Drawing.Point(3, 16)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(717, 25)
Me.ToolStrip2.TabIndex = 8
Me.ToolStrip2.Text = "ToolStrip2"
'
'btnFirstPage
'
Me.btnFirstPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFirstPage.Image = CType(resources.GetObject("btnFirstPage.Image"), System.Drawing.Image)
Me.btnFirstPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFirstPage.Name = "btnFirstPage"
Me.btnFirstPage.Size = New System.Drawing.Size(23, 22)
Me.btnFirstPage.Text = "toolStripButton1"
Me.btnFirstPage.ToolTipText = "Erste Seite"
'
'btnPrvPage
'
Me.btnPrvPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnPrvPage.Image = CType(resources.GetObject("btnPrvPage.Image"), System.Drawing.Image)
Me.btnPrvPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnPrvPage.Name = "btnPrvPage"
Me.btnPrvPage.Size = New System.Drawing.Size(23, 22)
Me.btnPrvPage.ToolTipText = "Vorherige Seite"
'
'txtGoToPage
'
Me.txtGoToPage.Name = "txtGoToPage"
Me.txtGoToPage.Size = New System.Drawing.Size(40, 25)
'
'btnNxtPage
'
Me.btnNxtPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnNxtPage.Image = CType(resources.GetObject("btnNxtPage.Image"), System.Drawing.Image)
Me.btnNxtPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnNxtPage.Name = "btnNxtPage"
Me.btnNxtPage.Size = New System.Drawing.Size(23, 22)
Me.btnNxtPage.Text = "toolStripButton1"
Me.btnNxtPage.ToolTipText = "Nächste Seite"
'
'btnLastPage
'
Me.btnLastPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLastPage.Image = CType(resources.GetObject("btnLastPage.Image"), System.Drawing.Image)
Me.btnLastPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLastPage.Name = "btnLastPage"
Me.btnLastPage.Size = New System.Drawing.Size(23, 22)
Me.btnLastPage.ToolTipText = "Letzte Seite"
'
'toolStripSeparator4
'
Me.toolStripSeparator4.Name = "toolStripSeparator4"
Me.toolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'tsActSize
'
Me.tsActSize.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.tsActSize.Image = CType(resources.GetObject("tsActSize.Image"), System.Drawing.Image)
Me.tsActSize.ImageTransparentColor = System.Drawing.Color.White
Me.tsActSize.Name = "tsActSize"
Me.tsActSize.Size = New System.Drawing.Size(108, 22)
Me.tsActSize.Text = "Aktuelle Grüsse"
'
'tsFitPage
'
Me.tsFitPage.Image = CType(resources.GetObject("tsFitPage.Image"), System.Drawing.Image)
Me.tsFitPage.ImageTransparentColor = System.Drawing.Color.White
Me.tsFitPage.Name = "tsFitPage"
Me.tsFitPage.Size = New System.Drawing.Size(86, 22)
Me.tsFitPage.Text = "ganze Seite"
'
'tsFitWidth
'
Me.tsFitWidth.Image = CType(resources.GetObject("tsFitWidth.Image"), System.Drawing.Image)
Me.tsFitWidth.ImageTransparentColor = System.Drawing.Color.Transparent
Me.tsFitWidth.Name = "tsFitWidth"
Me.tsFitWidth.Size = New System.Drawing.Size(57, 22)
Me.tsFitWidth.Text = "Breite"
'
'tsZoomOut
'
Me.tsZoomOut.Image = CType(resources.GetObject("tsZoomOut.Image"), System.Drawing.Image)
Me.tsZoomOut.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsZoomOut.Name = "tsZoomOut"
Me.tsZoomOut.Size = New System.Drawing.Size(85, 22)
Me.tsZoomOut.Text = "verkleinern"
'
'toolStripSeparator7
'
Me.toolStripSeparator7.Name = "toolStripSeparator7"
Me.toolStripSeparator7.Size = New System.Drawing.Size(6, 25)
'
'txtZoom
'
Me.txtZoom.MaxLength = 4
Me.txtZoom.Name = "txtZoom"
Me.txtZoom.Size = New System.Drawing.Size(35, 25)
Me.txtZoom.Text = "100"
Me.txtZoom.ToolTipText = "Key in the zoom value and press enter"
'
'toolStripPercentlabel
'
Me.toolStripPercentlabel.Name = "toolStripPercentlabel"
Me.toolStripPercentlabel.Size = New System.Drawing.Size(17, 22)
Me.toolStripPercentlabel.Text = "%"
'
'tsZoomIn
'
Me.tsZoomIn.Image = CType(resources.GetObject("tsZoomIn.Image"), System.Drawing.Image)
Me.tsZoomIn.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsZoomIn.Name = "tsZoomIn"
Me.tsZoomIn.Size = New System.Drawing.Size(88, 22)
Me.tsZoomIn.Text = "vergrössern"
'
'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 = "ToolStripButton1"
Me.ToolStripButton1.ToolTipText = "90 Grad gegen Urzeigersinn"
'
'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 = "ToolStripButton2"
Me.ToolStripButton3.ToolTipText = "90 Grad im Uhrzeigersinn"
'
'DocumentViewer1
'
Me.DocumentViewer1.BackColor = System.Drawing.SystemColors.ControlDark
Me.DocumentViewer1.BorderWidth = 10
Me.DocumentViewer1.CurrentPage = 0
Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DocumentViewer1.HScrollBar.LargeChange = 40
Me.DocumentViewer1.HScrollBar.SmallChange = 20
Me.DocumentViewer1.HScrollBar.Value = 0
Me.DocumentViewer1.HScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
Me.DocumentViewer1.Location = New System.Drawing.Point(3, 41)
Me.DocumentViewer1.MouseMode = Gnostice.DOM.CursorPreferences.AreaSelection
Me.DocumentViewer1.Name = "DocumentViewer1"
'
'
'
Me.DocumentViewer1.NavigationPane.ActivePage = Nothing
Me.DocumentViewer1.NavigationPane.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.NavigationPane.Name = ""
Me.DocumentViewer1.NavigationPane.TabIndex = 0
Me.DocumentViewer1.NavigationPane.Visibility = Gnostice.Documents.Controls.WinForms.Visibility.[Auto]
Me.DocumentViewer1.NavigationPane.WidthPercentage = 20
Me.DocumentViewer1.PageLayout = Nothing
Me.DocumentViewer1.PageRotation = Gnostice.Documents.Controls.WinForms.RotationAngle.Zero
Me.DocumentViewer1.Preferences.Cursor = Gnostice.DOM.CursorPreferences.Pan
SpreadSheetFormatterSettings2.FormattingMode = Gnostice.DOM.FormattingMode.PreferDocumentSettings
SpreadSheetFormatterSettings2.PageOrder = Gnostice.Documents.Spreadsheet.LayoutDirection.BackwardN
PageSettings3.Height = 11.6929!
Margins3.Bottom = 1.0!
Margins3.Footer = 0!
Margins3.Header = 0!
Margins3.Left = 1.0!
Margins3.Right = 1.0!
Margins3.Top = 1.0!
PageSettings3.Margin = Margins3
PageSettings3.Orientation = Gnostice.Graphics.Orientation.Portrait
PageSettings3.PageSize = Gnostice.Documents.PageSize.A4
PageSettings3.Width = 8.2677!
SpreadSheetFormatterSettings2.PageSettings = PageSettings3
SheetOptions3.Print = False
SheetOptions3.View = False
SpreadSheetFormatterSettings2.ShowGridlines = SheetOptions3
SheetOptions4.Print = False
SheetOptions4.View = False
SpreadSheetFormatterSettings2.ShowHeadings = SheetOptions4
FormatterSettings2.SpreadSheet = SpreadSheetFormatterSettings2
TxtFormatterSettings2.Font = New System.Drawing.Font("Calibri", 12.0!)
PageSettings4.Height = 11.6929!
Margins4.Bottom = 1.0!
Margins4.Footer = 0!
Margins4.Header = 0!
Margins4.Left = 1.0!
Margins4.Right = 1.0!
Margins4.Top = 1.0!
PageSettings4.Margin = Margins4
PageSettings4.Orientation = Gnostice.Graphics.Orientation.Portrait
PageSettings4.PageSize = Gnostice.Documents.PageSize.A4
PageSettings4.Width = 8.2677!
TxtFormatterSettings2.PageSettings = PageSettings4
FormatterSettings2.TXT = TxtFormatterSettings2
Me.DocumentViewer1.Preferences.FormatterSettings = FormatterSettings2
Me.DocumentViewer1.Preferences.KeyNavigation = True
ImageRenderingSettings2.CompositingMode = Gnostice.Graphics.CompositingMode.SourceOver
ImageRenderingSettings2.CompositingQuality = Gnostice.Graphics.CompositingQuality.[Default]
ImageRenderingSettings2.InterpolationMode = Gnostice.Graphics.InterpolationMode.Bilinear
ImageRenderingSettings2.PixelOffsetMode = Gnostice.Graphics.PixelOffsetMode.[Default]
RenderingSettings2.Image = ImageRenderingSettings2
LineArtRenderingSettings2.SmoothingMode = Gnostice.Graphics.SmoothingMode.AntiAlias
RenderingSettings2.LineArt = LineArtRenderingSettings2
ResolutionSettings2.DpiX = 96.0!
ResolutionSettings2.DpiY = 96.0!
ResolutionSettings2.ResolutionMode = Gnostice.Graphics.ResolutionMode.UseSource
RenderingSettings2.Resolution = ResolutionSettings2
TextRenderingSettings2.TextContrast = 3
TextRenderingSettings2.TextRenderingHint = Gnostice.Graphics.TextRenderingHint.AntiAlias
RenderingSettings2.Text = TextRenderingSettings2
Me.DocumentViewer1.Preferences.RenderingSettings = RenderingSettings2
Me.DocumentViewer1.Preferences.Units = Gnostice.Graphics.MeasurementUnit.Inches
Me.DocumentViewer1.Size = New System.Drawing.Size(717, 228)
Me.DocumentViewer1.TabIndex = 7
Me.DocumentViewer1.VScrollBar.LargeChange = 40
Me.DocumentViewer1.VScrollBar.SmallChange = 20
Me.DocumentViewer1.VScrollBar.Value = 0
Me.DocumentViewer1.VScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
Me.DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.ActualSize
Me.DocumentViewer1.Zoom.ZoomPercent = 100.0R
'
'C1Dokumente
'
Me.C1Dokumente.AllowDrop = True
Me.C1Dokumente.AlternatingRows = True
Me.C1Dokumente.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Dokumente.Dock = System.Windows.Forms.DockStyle.Top
Me.C1Dokumente.FilterBar = True
Me.C1Dokumente.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Dokumente.Images.Add(CType(resources.GetObject("C1Dokumente.Images"), System.Drawing.Image))
Me.C1Dokumente.Location = New System.Drawing.Point(3, 16)
Me.C1Dokumente.Name = "C1Dokumente"
Me.C1Dokumente.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Dokumente.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Dokumente.PreviewInfo.ZoomFactor = 75.0R
Me.C1Dokumente.PrintInfo.PageSettings = CType(resources.GetObject("C1Dokumente.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Dokumente.Size = New System.Drawing.Size(723, 174)
Me.C1Dokumente.TabIndex = 5
Me.C1Dokumente.Text = "C1TrueDBGrid1"
Me.C1Dokumente.PropBag = resources.GetString("C1Dokumente.PropBag")
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuesDokumentHinzufügenToolStripMenuItem, Me.DokumentinformationenBearbeitenToolStripMenuItem, Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem, Me.DokumentLöschenToolStripMenuItem, Me.ToolStripMenuItem1, Me.DokumentExportierenToolStripMenuItem, Me.PerMailVersendenToolStripMenuItem, Me.DokumentAnzeigenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(307, 186)
'
'NeuesDokumentHinzufügenToolStripMenuItem
'
Me.NeuesDokumentHinzufügenToolStripMenuItem.Name = "NeuesDokumentHinzufügenToolStripMenuItem"
Me.NeuesDokumentHinzufügenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.NeuesDokumentHinzufügenToolStripMenuItem.Text = "&Neues Dokument hinzufügen"
'
'DokumentinformationenBearbeitenToolStripMenuItem
'
Me.DokumentinformationenBearbeitenToolStripMenuItem.Name = "DokumentinformationenBearbeitenToolStripMenuItem"
Me.DokumentinformationenBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentinformationenBearbeitenToolStripMenuItem.Text = "Dokumentinformationen bearbeiten"
'
'DokumentEinemAnderenPartnerZuordnenToolStripMenuItem
'
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Name = "DokumentEinemAnderenPartnerZuordnenToolStripMenuItem"
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Text = "Dokument einem anderen Partner zuordnen"
'
'DokumentLöschenToolStripMenuItem
'
Me.DokumentLöschenToolStripMenuItem.Name = "DokumentLöschenToolStripMenuItem"
Me.DokumentLöschenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentLöschenToolStripMenuItem.Text = "Dokument löschen"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(303, 6)
'
'DokumentAnzeigenToolStripMenuItem
'
Me.DokumentAnzeigenToolStripMenuItem.Name = "DokumentAnzeigenToolStripMenuItem"
Me.DokumentAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentAnzeigenToolStripMenuItem.Text = "Dokument anzeigen"
'
'DokumentExportierenToolStripMenuItem
'
Me.DokumentExportierenToolStripMenuItem.Name = "DokumentExportierenToolStripMenuItem"
Me.DokumentExportierenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentExportierenToolStripMenuItem.Text = "Dokument exportieren"
'
'PerMailVersendenToolStripMenuItem
'
Me.PerMailVersendenToolStripMenuItem.Name = "PerMailVersendenToolStripMenuItem"
Me.PerMailVersendenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.PerMailVersendenToolStripMenuItem.Text = "Per Mail versenden"
Me.PerMailVersendenToolStripMenuItem.Visible = False
'
'clsDokumente
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "clsDokumente"
Me.Size = New System.Drawing.Size(1007, 490)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
Me.grpdokumentvorschau.ResumeLayout(False)
Me.grpdokumentvorschau.PerformLayout()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents treestruktur As DevComponents.AdvTree.AdvTree
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents C1Dokumente As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ImageList1 As ImageList
Friend WithEvents ElementStyle2 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents tsbtnSave As ToolStripButton
Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents tsbtnnew As ToolStripButton
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents NeuesDokumentHinzufügenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DokumentinformationenBearbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DokumentLöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
Friend WithEvents DokumentAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DocumentViewer1 As Gnostice.Documents.Controls.WinForms.DocumentViewer
Private WithEvents ToolStrip2 As ToolStrip
Private WithEvents btnFirstPage As ToolStripButton
Private WithEvents btnPrvPage As ToolStripButton
Private WithEvents txtGoToPage As ToolStripTextBox
Private WithEvents btnNxtPage As ToolStripButton
Private WithEvents btnLastPage As ToolStripButton
Private WithEvents toolStripSeparator4 As ToolStripSeparator
Private WithEvents tsActSize As ToolStripButton
Private WithEvents tsFitPage As ToolStripButton
Private WithEvents tsFitWidth As ToolStripButton
Private WithEvents tsZoomOut As ToolStripButton
Private WithEvents toolStripSeparator7 As ToolStripSeparator
Private WithEvents txtZoom As ToolStripTextBox
Private WithEvents toolStripPercentlabel As ToolStripLabel
Private WithEvents tsZoomIn As ToolStripButton
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents grpdokumentvorschau As GroupBox
Friend WithEvents DokumentEinemAnderenPartnerZuordnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DokumentExportierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PerMailVersendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SaveFileDialog1 As SaveFileDialog
End Class

436
DMSTest/clsDokumente.resx Normal file
View File

@@ -0,0 +1,436 @@
<?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="tsbtnnew.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++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
Q9+opTzFuO5MOqRC0q0kA+RYnpBC9Lbju20L4nPPW6nt30S9mq1C8GpeIJtTUyeQsO/A6lQXGaTAH79E
Q23l2ZgfDggeJVanT5MXHCSbOyD6jiPr3RWhlvIUo9fVKW8nfnqOYC2ogkC+sPamDyx7oPjJVl9LbeUp
LDxKCJ525N5fgzh5DJnQJaTI9mJo/wVqqUz+81OkF3mkZ+8g87qXbD+PQujoBC1XZmzssgQCj+yXl1hf
CiKXCCAX6V6n5eo0N+9WXuzrQuarG3khAhRituzKh520XJ2mlpZz27bXYk9Dgyu1NNNE05sjHA7vY1l2
VKvV6jiTSaXXPxswm82DDodjpCSe5weJ1ERXXC5Xv9PpPOnz+RS0nWHsdvshi8XSS5oGDAbDkNFoHCFx
lES2JHou5YaJ1BzH9Vut1sMMwzB/AbGNI/RUTiAEAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABW
CQAAAk1TRnQBSQFMAgEBAgEAAVABAAFQAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wMAAf8B9AHzCFIBTAJL
AgAB/wH0AfMIUgFMAkskAAFSCnoBUgQAAVIKegFSIwAB/wGaCnoBeQMAAf8Bmgp6AXkjAAF0AaAB5Qd6
AeUBUgF6AwABdAGgAeUHegHlAVIBeiIAAf8BmgKgAeUGegGaAVkBegIAAf8BmgKgAeUGegGaAVkBeiIA
AXkBwwOgAeUDegHlAaABUgFZAZoCAAF5AcMDoAHlA3oB5QGgAVIBWQGaIgABmgHDApoCoAHlAnoB5QGg
AVIBWQGaAgABmgHDApoCoAHlAnoB5QGgAVIBWQGaIQABGgLDBKAC5QF6AaABdAJZAZoBAAEaAsMEoALl
AXoBoAF0AlkBmiEAAZoEwwOgAuUBoAFSAnoBGgEAAZoEwwOgAuUBoAFSAnoBGiEABPYDwwFeA/sBXgFZ
AXoBGgEABPYDwwFeA/sBXgFZAXoBGiEABP8BegX7AcMBWQKaAcMBAAT/AXoF+wHDAVkCmgHDJAABegL7
AV4C+wH/AZoBGgKaAcMEAAF6AvsBXgL7Af8BmgEaApoBwyQAAeUBegFZAXoBoAH7AZoBwwL2AcMB9AQA
AeUBegFZAXoBoAH7AZoBwwL2AcMB9CgAAXoBXgF6DQABegFeAXouAAF6AVkOAAF6AVkvAAH0DwAB9CUA
AUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEBBQABgBcAA/8BAAHAAQABwAUAAfABAAHwBQAB4AEA
AeAFAAHgAQAB4AUAAcABAAHABQABwAEAAcAFAAHAAQABwAUAAYABAAGABQABgAEAAYAFAAGAAQABgAUA
AYABAAGABQAB8AEAAfAFAAHwAQAB8AUAAf8BHwH/AR8EAAH/AZ8B/wGfBAAB/wHfAf8B3wQACw==
</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>391, 17</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>234, 17</value>
</metadata>
<data name="C1Dokumente.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Dokumente.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="C1Dokumente.PropBag" xml:space="preserve">
<value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:ControlLight;}Style3{}Footer{}Style14{}FilterBar{BackColor:Info;}Heading{AlignVert:Center;Border:Flat,ControlDark,0, 1, 0, 1;Wrap:True;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" 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, 721, 172&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 721, 172&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>391, 17</value>
</metadata>
<data name="btnFirstPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHGSURBVDhPYxhcoGH1q/8gXLfyxf/SpU/3Q4XhILj3ZntA
/c0vUC4maFj94v+Wc5/+Lzr47n/BgocoBnh3Xm/3ql/1z7Xlxn+oECYoX/bs/4bTH/7P3ffmf+pMhAGe
LVf7Mufe/z9hy/P/ltWXcBtQsODR/9Un3v+ftvPV/5iJd8EGuLdcm5c26/7//q3P//duevZfp+Q8bgNS
Zz/8v/TI2//9W178D+y8ud+x/vKSlOl3/0/Y+gwYLo/+t6598l8u+yxuA2Im3f8/78Dr/zN2v/xvVn/i
R/Gih//7Nj/7X7n84f/sOXf/1614+F8q6QRuA4K6b4I1gzRZVl94kzvv3v+2dU/+Fy68/z9p+u3/ZYvv
/5eIPIbbAFAIT9z24n/5kof/tYrPH5DNPL3GpfHy/6rlD/4nT7/1v2D+vf/iQQdwGwAK4a6NT//nzr33
XzbzLDgQJaOOrLQtv/A/b/7d/1mz7/wX89qL2wBQCDevefw/FehcycQT8GgU89i9yCL7FNgVIo67cRsA
CuFqYEDFTbwB9OtRlIQkYrd1gXHKsf/CNttxGwAKYcmYY/8lQo/8Fw08gGIACAgZbpwtZLkNtwEDABgY
ABeDDJJQpITjAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnPrvPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAA0AAAASCAYAAACAa1QyAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFVSURBVDhPnc9LSwJRGMbx8xm6ENE3aBctoiBoV7RsFwRC
drGMQCGMMCiiC0ThZrpoYZIEISGUkBJCQUgSUUEF5VgjMqVRq3FmvCyeHGHEacZgWvzgwPP+F4cUCgXo
9b8on89Dr6qR/+obEzsJzU0z8kW+YNxg0O+IqzYJyeVyqLR/kcbMAQtn+BO9y8+KTaaINoMfmPImsX2W
BhVKocP+oDiWlaP1AAvLHlMKlvws1o7f0Wy9VQUSks1mYaRiMO8yoIIpzPuSsHresHCURNNwFNL+Wyma
9jIwUDRWT1jYiu9RJ138VwKNA5HqES+IMLti6Fl8gv0wgZGtGCyeVzT0nWtHoihCNuR4RKftDpPuOMZc
NOq7w+WtEhEEAZVMK/doM0cxSL2griuk2GSqSGKau0GL4RK17aeqTUJ4noeW8dlr1LQGNLeq0V9IJpOB
XoTjOOjD4QeGDVYMZCqaCAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnNxtPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAA8AAAARCAYAAAACCvahAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFSSURBVDhPnc2/SwJhHMfx56+IaO0/CJoqGhyDlqagRaeC
ECpFjH4YFHcVRLRIW3ZSloRJRERLRlCRcZbkEuKPk/xBGXF3nj+GTzoI+jzPEDe8luf7ed+RRqMBs0i9
XodZ3HgjVMS1/Mu807ixJ1jCciCPi2iZuXUitVoNNPfxJ84efyCcFyBFisy9jRvbD7IIPJQh3X3D6Vew
Hc4xmxZubPNm4It8Ye+qgP2bIqzeJJyHSWZHqtUqaBM7H82oBM+pgrWggq3mn8fEBAYWnrt23NiynsDu
ZR4OKQ2XP938QBaW1TimxPeuHTcedL1BCOUw70th6SSD0cUYrJtxaLrRtSOGYYDWb3/BSiAD91EaI64Y
bEKM2bSQSqUCWp/tCU4phWGHjGnxlbm3cePeyXsMzUUxI8jMrRPRdR20nvFbzIoy807jxv9FNE2DWURV
VZij4g8vAaumPuiPLAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHJSURBVDhPzZDfS1phGMfP37BsmRf9AbF/wIig2AZbNKgx
hhQR/YIWjFpRNEGr5cykKKmsSRZuie1U9AMS+/UemIU3sa0N0UhNj9rJrXXTRVd9O28cghjvdX3hvXi+
8H6ehw93v2LkpXODRzIr400aJuOkZiwG3XAEFdYwlPr/dPMS9EbfZasrcQtSNRIh1tVjfNrM4ElfiA3o
dKexEDhD/5KE2vHokFJz5ZYw6VtMYtQrQavfZwNaZhLgZYD72z+8d6dQZgk5aS9vJXqPiMGVNB61f2cD
GhxxzPpPYV/PwLmdQdNUDNquH1+0XT9Jm+sIpoUk8pr32IAqWwxO4Q/MS2lYltOwySe/lSH57wIXPXwC
Bk8cmtoAG0ANT2ycwPhVRC8vwrqSQuNkBHn1e3/bP8fQIT+1bpcNoIZH1iQY50T5giRKzUFo6gLz8lah
2hZGy3QUORUCG0ANDyyn8FE2/tQURG7Nzhzt1bod8toaxBvHIR4+32IDqOEP8yIe9/xCbuWuS6m57HKB
vDT9Rp39AKriDTaAGi6hn3X+GaW6TvazLfKiex/VoyFkFXrZAGpY/UpwKONNVMU+oiryIavAiwfaNTbg
DsJxV/Q9C/hS+j/iAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsActSize.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABEAAAASCAYAAAC9+TVUAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAI1SURBVDhPzZPZU1JhGIfPX5aBoomGgMi+QywlKktD1OTY
WDgJmJmFTQ5maW4tII1JZGSazDTZctN/IC1q08QOF7/O+WiYCO+46eL5Lt7fmWfe77zvR5XLZTQK5Upa
wODcMcPxxgT71qkjP2QwrSlhfKqAflUG7RMp1I/EpE4kvveXMP7BSwSHmQP0vTKgVCrVwAgO0vswrirg
idvhjvVDuSwiGcV0MLo7hIXPIfjfDcP52orel/o6iTEqhz4iw7n4ACaTAZx/7oR8UViROLZNcGybMfJ2
EFO7Y5j5FMSZF9o6iY4W3Ej6cSVxEZ6YA7IFISTz/Ipk4M8VbAkDEdz9OAVrTINisViD5rEEEzt+BLZG
oF6WYP/Xd/Tc45GMYg5bQo/eDR1Ox7WwxNQwP1PVSVQrPVAsdVc6mONXBQxE0ihUoVBAo/xHknw+DwO9
A8wImQmoHtI/kF4ipv43glAH+NNc8G6fQGewDdybnGpGMYJvP7/CGFZidPMyfJteMoFcLldD1x0uBtc8
8ERdRJA6TKHtejPJKF1YSjpwr9txYd0F78YQGeG/kpN0B+6oE5YlA9SzcrRPtIBzjVWRaOhHxAiuJobR
F7FUdyCbzdbQcasVvCAX+jkNzobtUIQkaAkcJxmlXBGhP2qFLWKGdF6ALz9SEM501knaJznYO9hD6zgb
2lkl5NNisP1NFYl8sRvSBwKI73dBNMsjgkwmcySMgDPGQjPdAdvXBNboMVKn0uk0GiON33xM8BfRNAZ2
AAAAAElFTkSuQmCC
</value>
</data>
<data name="tsFitPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAATCAYAAACQjC21AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIgSURBVDhP1ZPdT5JRAMbfvywDM28cFaHyFYQQtHxh4gtt
lDIVJ4NARW2tsUpLPrJhLV7RrRk0JNK5Ndfm+guwLa0LPuTj4olzNhqn4R03Xfx2tud59ts5F4drNBro
JlToyN+lCJ8tGM+ZYc/e6TgmmFNamEQNRt6rcPutErrEENNz9Xqdyl5/X0Ps+DmVkewiTos/YRH1WPkS
xOP9eWg3FExPheRmkeNnCB8twXvgxtOjZWbUgshGRQPcu/cxl3FjMeeHOi5nNlQ4vmeGMzeKwKEH69/C
mM0/xJOvIWZIsG6bMLnrxHI+ACFlhSomx3DkOrPharUaxprPPCudwpHl4dufwsyeC6EDP0jXTjA7B+eO
DcIWj8AnL80GX8qYDRW2oNI0j6XDADNqx5ue/ivrBCPsBly1WkU3+Q+E5+fnaGch54M3M8Nk7UzvuKFa
HcSP3ycde65SqcCYVIOcRCakeNjFe/B+9NCsnQnRBVNMD0t8BIqwDIWzAvpDvcyGCg3vlNBvDlOZPzML
x5YNxg0NMyR4Um4YIrfgSjphXNdjYKUffQsSZsOVy2Xomx/cn/HgwbYAQeShi6tw8qsA0v3LVHICulU1
TFEdxhI8rgQvMz0Vat8o4Et74PkwCU1UcaGsxdVFKewJK4RNG6SBHqbjSqVS84PfhDJ6A0OvrkGxJoP8
xQBI3gki65uXoLd5M+mjHkj8l5ieKxaL6CZdFhbxB3vJNtE1aIzMAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsFitWidth.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAARCAYAAADdRIy+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG6SURBVDhPvZK5SyNRHMdfoSI27j9gZalipSxaiIWghQu7
gmzARmy3WMTCQhEVvDplYVEbtfCKx6obDxwP4pFEd4URdTQecYlXks2FycwkKb7OGxiZx1gOFh94/D4/
Po83DEmlUjAT84PJZBJm8j7BPWEU/ojHMNd4CJ7D5Z5805FEIgE95147vi/kgr9bZ+Z6HB4rmm2FuLzf
NzgmGHn2o2kiB2U7BDv/bZBkiVmmiLKIFd84yrcJWmfzEX0OMJ4JtlsLUG5Pw9dDgj7+Gy6Vp+k95TTA
o5tvQO0BQcV2Bnp/lTKeyLIMyo+VT6jk0lGkLNb9Ieg4qseYMIS5qwkIgRMc+47U86gwiLa/FliUnWIX
QTWXhWHOojYor8F5VwtqfmeqS1pw4doKu3cDt+EbXIfc6plGteBHB4Fl+QOWDjuNQQq9id74RYn+FFrx
L+x5dRpXwQsMnDXis5OghsvGyFYD44kkSdDTM1+ifhuHf42Z6+GeplG1mYl+W6XBEVEUoScUeULLTB54
zyoz1+N0T6FrsQShqM/gDEHKhXcXweijYa4RCHuVf9D5piPxeBxmYn4wFovBPGJ4AZn40zTeQGXrAAAA
AElFTkSuQmCC
</value>
</data>
<data name="tsZoomOut.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABMAAAARCAYAAAA/mJfHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAI9SURBVDhPrc9NSJNxAMfxp4snKyioTkaHDKI6RkKHugXd
wovQ0Q5dus1huHwhMB2piUN7MSt1NhFTUpOYuikzmrFNRKdO08oaaq7yeeYzn718e/ZUg6VuBj3wuTz/
3/Pl/wjhcJjduqE3U1ozQFnF4LbngqIopNPZO8bQ1BIvPis0Lyi0zIdoHg9gfjWVtEsb093uJqBEiT91
TpHrrSvc7F3D5JboXo1QUNqR2KaMWe2ztC8Esa+EsUwGKR/+jskl8dKvMLQewaHEGFgV6epxanthc3OT
nVQ+eEvXN9D3BjC8DtDik3FGwKPe0v3bhKrcNKTtU8ZqWj0890PjtRI8RzKZOZDB3B4B38EMfFmZTNUZ
mVRjVWa7tk8ZMz5y0qbGHuor8Zw9zGz2Xi32/ngmH3MOMd9qYlqNVdTbtL0QCoXYiXXYh2VR5t47icEf
Ee234jdZU4VUsmpclOnuG9P2KWOjb7zcqrbS8SWCTfwVi/OqPqhiqsrqnsR+25gyP0zEXY9/wsrdqiYM
tZ30f/qKKxrVYq5oDMeySP/oHJZ2R+I7QZZl/ha7fwYsF1gqOkbu5fPauyu5d9CXdVDd5KCidoTCwr4t
3wkbGxv8EZq1EWs4BU/PIZZkYc4/QZGuLnGeTlIs1nAa2i+yXpxFY95+DPqGpHE6QjAYJC5qOgnPcgiW
HqUtPxuDrpbpmWXtbLcSsceFl5DUX2vK24ehwLRluBuCJEnEjYyM8sRwlWKdEa/Xr737V4IoivwfIj8B
DBSBX45AyqIAAAAASUVORK5CYII=
</value>
</data>
<data name="tsZoomIn.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAVCAYAAABG1c6oAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJVSURBVDhPxZFbSJNhGMe/oosgaF0VRBZ1UXS8LhCqu6C7
8Ebo0ou66W4Oy2VKYB5yOhybUU0zpxMxBWcS88wWaWgibh4aM7RMrUX7Nje/HX59G/TBUqfFoBd+PPA8
z//H+/IKkUiETPJ/hXc0Foqreykp69t0nkCQJIntaLeN0u9a5NVniUavxEtPmMYJH5bXrg272wrVDzvx
STESp3ZE5HbTCndt3zGMB+hcjZJf3Jayn1ZoH5yl1RtkcCWCdSpIS1EFc/t24TTW0O+P4pDi9K6KdHSN
KBlhfX2drSh/8o6OH6Cx+dC+8WErrcS7R8DdqGdcvnGCSZlSQ7+SSSusbvpAyxLU3yphKkuF5+DepNB7
SK4nVMwYK5mShVWWQSWTVljxdIRmWWi+V4UrOwvv2QNJ4cJpFV8vH2G+xcS0LCwzDigZIRwOsxX2oTms
8yFq3gfo+xnF1VCdFK7W6wjLopDMhBiis3tUyaQVOt+6ua+z0/YlyoAoC611eA/vxiPXT7IsLlOu60rJ
bCqUPENEx40sTdp5XGVGq2+nZ+EbY7FY8iPGYnEcyyI9zo9YWx0pWSEUCvEn8boLYL3CYuFxcq5nJ3s3
ch6hKWlDZ3ZQph+moKB7Qy6BsLa2xm/CswPETeeg4SLig6NY8k5RqK5V5jshRRg3nYfWq/iLjvIsV4VW
Y0pZ3glCMBgkQcxwBl5cIlh8jOa8k2jVeqZnlpOzv0ERPi+4RkB+pjl3P9p8w4bFnSIEAgESDA87qdfe
pEhdgdu9lOz9C4IoimSSzAv9fj+Zw88v9Dvul8vs9JEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAVCAYAAABPPm7SAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHgSURBVDhPpY7dS1NxGIDPXxKVZdmHiYiEdNN/EHQlJYmh
fbEmm1PX5tH50dSkEGthpaa0ky2DkJUtcaU15ooQzdSoi6CibrrY19nXxdMmOPohcQbn4rl4ed734ZUy
mQx6kNLpNFskU0l837z5uRCEgLIxhjMkCwta5ANTX9z0vZNxLto5/6KG+menMM400L/QhXftKb/Dv7Yd
55BSqRTTX6fozR571sd5vDHO5PoYyqcRRpdvcT3YQ/PMZa76HHz8vkxu/182A08+K/QEbZuHD9dGca/e
Y2J1mPsrt3F9GODu0hBtLy04pm38/PNjeyDHg5UR2uct2P0majwnqVZOYPZeZDDUl43c4Ob7Ac5N1vJo
UREDyWSSLYZDQ7Q+b8zPd966qJ2opj/QhTPQTkvWmdyGvM8hBNSEimdJERZc/kHOuk9zLdhNb6CTKrlC
8ELgfxx3VmU/6KD7jUyltUxwUiKRQItjjko6F+x0zF+hvOmw4CRVVdHiqL0c+bWVtlfNlBpLBFdQoKLl
CDa/BeucmQOXigUnxeNxtCgzHaR1zoRltpF9DUWCKyhwyLCfplkjZp+BPXU7BSfFYjG0KLmwl+L63RRl
j3ed2SE4KRqNogf9gUgkgh6kcDiMHnR+EOEviLWq1b39p/gAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABMAAAAUCAYAAABvVQZ0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPrdHLSxtRFAbw+Z+6kFa0qKioKFZUhC7EFxg0
RcWKIgg+Yow1MYnRZIxJmigKvkoRgyQLFz7is/Ftu6lbRVd5TCbJ4nPuhQzGyWICs/gt5txzv7mcwyST
SShF2bBEIgE5tv5ugo/zGc9SZIcN+LrBHs1kPEuRhD1HnuB/8MJ8MokenwrNvxvQuF6Hfl8X+rxqLASs
af1vMfF4HCn/Xu5hPZ+G5nAQs+dT+HllxdKNHZ5rFs7LOcwHzfj2qw2uA7t45y0x7Cn8KARMw3Q6gZU7
p3DZAs8NSwMdFxbYgzP0R6q1Jth2ZyVBhBjm/+/F2P4Alm8dWBRew/4x4fuOGvXuStQslKNzsxXtq00w
+/WSkBSG53kQhmOtMCcd7Bdm+oKOjRY4AjZ6RqgWm6HbHhO/MxHDWoRBu69tdDa93o60IMK97wQX49Jq
74lhZGNkNmTIta4KSaMcTCwWA/F15QvYoBFzZwZUs6W0li2G4zgQ9Z5KWE71wjYnUWEporVsiWFkY0Zh
AfqjcZQaPksa5WCi0SiIKmsJfgQ00B2OoFCXS2vZEsPKTIXQHgxDszeE/NEcSaMcTCQSAVE8lY8C7Sfk
jeTg49AHWssWEw6HoRRlw0KhEJQRwiu1nmGGw8uMdQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>498, 17</value>
</metadata>
</root>

514
DMSTest/clsDokumente.vb Normal file
View File

@@ -0,0 +1,514 @@
Imports System.Net.Mail
Imports C1.Win.C1TrueDBGrid
Imports DevComponents.AdvTree
'Imports Gnostice.Documents.Controls.WinForms
'Imports Gnostice.Documents
Public Class clsDokumente
Dim licenseKey As String = "6F09-41FA-5E5E-101F-E577-BDD0-1BB8-3EFB-3081-2E1F-5264-3475"
Dim dbDokumente As New clsDB
Dim m_patientnr As Integer
Property Patientnr As Integer
Get
Return m_patientnr
End Get
Set(value As Integer)
m_patientnr = value
End Set
End Property
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Public Sub refreshdata()
Gnostice.Documents.Framework.ActivateLicense(licenseKey)
Me.C1Dokumente.AllowDrop = True
If Me.treestruktur.Nodes.Count = 0 Then
Get_tree()
Me.treestruktur.SelectedNode = Me.treestruktur.Nodes(0)
End If
End Sub
Sub Refresh_Grid()
Update_Grid()
End Sub
Sub Get_tree()
Dim db As New clsDB
db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
Load_Treeview(db.dsDaten, Me.treestruktur)
End Sub
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As AdvTree)
If Not (oSourceData Is Nothing) Then
Dim oView As DataView = oSourceData.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation",
oDS.Tables(0).Columns("eintragnr"),
oDS.Tables(0).Columns("parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView(oDS, tree)
oDS.Dispose()
oDS = Nothing
End If
End Sub
''' <summary>
''' Tree aufbauen
''' </summary>
''' <param name="oDS"></param>
''' <param name="oTreeview"></param>
''' <remarks></remarks>
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As AdvTree)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
Dim oNode As New DevComponents.AdvTree.Node
oNode.Text = oDataRow("Bezeichnung").ToString()
oNode.Tag = oDataRow("eintragnr").ToString
oNode.ImageIndex = 0
oNode.ImageIndex = 0
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New DevComponents.AdvTree.Node()
oChildNode.Text = oChildRow("Bezeichnung").ToString()
oChildNode.Tag = oChildRow("eintragnr").ToString()
If oChildRow("eintragnr") = 0 Then
oChildNode.ImageIndex = 0
oChildNode.ImageIndex = 0
Else
oChildNode.ImageIndex = 1
oChildNode.ImageIndex = 1
End If
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree(oChildRow, oChildNode)
Next oChildRow
End Sub
Private Sub tsbtnnew_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
f.ShowDialog()
Me.treestruktur_SelectionChanged(sender, e)
End Sub
Private Sub treestruktur_SelectionChanged(sender As Object, e As EventArgs) Handles treestruktur.SelectionChanged
Update_Grid()
End Sub
Sub Update_Grid()
dbDokumente.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where dms_strukturnr=" + Me.treestruktur.SelectedNode.Tag.ToString + " and keyvalue=" + Me.Patientnr.ToString + " and aktiv=1")
Me.C1Dokumente.DataSource = Nothing
Me.C1Dokumente.DataSource = dbDokumente.dsDaten.Tables(0)
Me.C1Dokumente.DataMember = dbDokumente.dsDaten.Tables(0).TableName
Dim spalten As New Tabellenspalte
spalten.Spaltentitel_aktualisieren(Me.C1Dokumente, "DMS_Dokument", dbDokumente.dsDaten.Tables(0))
If Me.C1Dokumente.Splits(0).Rows.Count = 0 Then
Me.DocumentViewer1.Visible = False
Else
Me.DocumentViewer1.Visible = True
End If
End Sub
Private Sub C1Dokumente_DoubleClick(sender As Object, e As EventArgs) Handles C1Dokumente.DoubleClick
Try
If C1Dokumente.Columns("indb").Value = "True" Then
Dim d As New clsDok
Dim s As String = d.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value)
Process.Start(s)
Else
Process.Start(Me.C1Dokumente.Columns("pfad").Value)
End If
Catch
End Try
End Sub
Private Sub NeuesDokumentHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesDokumentHinzufügenToolStripMenuItem.Click
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
f.treestruktur.ImageList = Me.treestruktur.ImageList
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
f.ShowDialog()
Me.treestruktur_SelectionChanged(sender, e)
End Sub
Private Sub DokumentLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentLöschenToolStripMenuItem.Click
Try
Dim i As Integer = C1Dokumente.Columns("nreintrag").Value
If MsgBox("Gewähltes Dokument löschen?", vbYesNo + vbQuestion) = vbYes Then
Dim db As New clsDB
db.Get_Tabledata("DMS_Dokument", "where nreintrag=" + C1Dokumente.Columns("nreintrag").Value.ToString, "")
db.dsDaten.Tables(0).Rows(0).Item("Aktiv") = 0
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
db.Dispose()
treestruktur_SelectionChanged(sender, e)
End If
Catch
End Try
End Sub
Private Sub DokumentAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
Me.C1Dokumente_DoubleClick(sender, e)
End Sub
Private Sub DokumentinformationenBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentinformationenBearbeitenToolStripMenuItem.Click
Try
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag, Me.C1Dokumente.Columns("nreintrag").Value, True)
f.treestruktur.ImageList = Me.treestruktur.ImageList
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
f.ShowDialog()
Me.treestruktur_SelectionChanged(sender, e)
Catch
End Try
End Sub
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
For Each path In files
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
f.txtPath.Text = path
f.txtBezeichnung.Text = System.IO.Path.GetFileName(path)
f.dtTermin.Value = Now
f.ShowDialog()
Next
End Sub
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub C1Dokumente_DataSourceChanged(sender As Object, e As EventArgs) Handles C1Dokumente.DataSourceChanged
End Sub
Private Sub C1Dokumente_KeyDown(sender As Object, e As KeyEventArgs) Handles C1Dokumente.KeyDown
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.V Then
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.FileDrop) Then
Dim clipbrd As String() = DirectCast(iData.GetData(DataFormats.FileDrop),
String())
For Each path In clipbrd
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
f.txtPath.Text = path
f.txtBezeichnung.Text = System.IO.Path.GetFileName(path)
f.dtTermin.Value = Now
f.treestruktur.ImageList = Me.treestruktur.ImageList
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
f.Massenimport = True
f.ShowDialog()
Next
End If
Me.treestruktur_SelectionChanged(sender, e)
End If
End Sub
Private Sub C1Dokumente_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Dokumente.RowColChange
Try
If C1Dokumente.Columns("InDB").Value = "False" Then
Me.DocumentViewer1.LoadDocument(C1Dokumente.Columns("Pfad").Value)
Else
Dim dok As New clsDok
Dim ms As System.IO.MemoryStream = dok.Get_Dokument_stram(Me.C1Dokumente.Columns("nreintrag").Value)
Me.DocumentViewer1.LoadDocument(ms)
End If
Catch
End Try
End Sub
Private Sub tsActSize_Click(sender As Object, e As EventArgs) Handles tsActSize.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.ActualSize
End If
End Sub
Private Sub tsFitPage_Click(sender As Object, e As EventArgs) Handles tsFitPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.FitPage
End If
End Sub
Private Sub tsFitWidth_Click(sender As Object, e As EventArgs) Handles tsFitWidth.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.FitWidth
End If
End Sub
Private Sub tsZoomOut_Click(sender As Object, e As EventArgs) Handles tsZoomOut.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.ZoomOut()
End If
End Sub
Private Sub tsZoomIn_Click(sender As Object, e As EventArgs) Handles tsZoomIn.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.ZoomIn()
End If
End Sub
Private Sub btnFirstPage_Click(sender As Object, e As EventArgs) Handles btnFirstPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.FirstPage()
End If
End Sub
Private Sub btnPrvPage_Click(sender As Object, e As EventArgs) Handles btnPrvPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.PreviousPage()
End If
End Sub
Private Sub btnNxtPage_Click(sender As Object, e As EventArgs) Handles btnNxtPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.NextPage()
End If
End Sub
Private Sub btnLastPage_Click(sender As Object, e As EventArgs) Handles btnLastPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.LastPage()
End If
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
DocumentViewer1.RotatePagesAntiClockwise90()
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
DocumentViewer1.RotatePagesClockwise90()
End Sub
Private Sub txtGoToPage_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtGoToPage.KeyDown
Select Case e.KeyCode
Case Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5,
Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Delete, Keys.[End],
Keys.Home, Keys.Down, Keys.Up, Keys.Left, Keys.Right, Keys.Back
e.SuppressKeyPress = False
Exit Select
Case Keys.D0, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5,
Keys.D6, Keys.D7, Keys.D8, Keys.D9
If e.Shift Then
e.SuppressKeyPress = True
Else
e.SuppressKeyPress = False
End If
Exit Select
Case Keys.Enter
e.SuppressKeyPress = False
If txtGoToPage.Text.Trim() <> "" Then
DocumentViewer1.GoToPage(Convert.ToInt32(txtGoToPage.Text))
End If
Exit Select
Case Else
e.SuppressKeyPress = True
Exit Select
End Select
End Sub
Private Sub txtZoom_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtZoom.KeyDown
Select Case e.KeyCode
Case Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5,
Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Delete, Keys.[End],
Keys.Home, Keys.Down, Keys.Up, Keys.Left, Keys.Right, Keys.Back
e.SuppressKeyPress = False
Exit Select
Case Keys.D0, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5,
Keys.D6, Keys.D7, Keys.D8, Keys.D9
If e.Shift Then
e.SuppressKeyPress = True
Else
e.SuppressKeyPress = False
End If
Exit Select
Case Keys.Enter
e.SuppressKeyPress = False
DocumentViewer1.Zoom.ZoomPercent = Double.Parse(txtZoom.Text)
Exit Select
Case Else
e.SuppressKeyPress = True
Exit Select
End Select
End Sub
Private Sub DokumentEinemAnderenPartnerZuordnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Click
Dim f As New frmSuche
f.Dokumentsuche = True
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim db As New clsDB
db.Get_Tabledata("Dokument", "", "Select * from dms_dokument where nreintrag=" + Me.C1Dokumente.Columns("nreintrag").Value.ToString)
db.dsDaten.Tables(0).Rows(0).Item("keyvalue") = f.Key
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
Me.treestruktur_SelectionChanged(sender, e)
End If
End Sub
Private Sub DokumentExportierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentExportierenToolStripMenuItem.Click
Try
If C1Dokumente.Columns("indb").Value = "True" Then
Me.SaveFileDialog1.FileName = C1Dokumente.Columns("pfad").Value
If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim fn As String
Dim dok As New clsDok
fn = dok.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value)
System.IO.File.Copy(fn, SaveFileDialog1.FileName)
End If
Else
If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim fn As String
Dim dok As New clsDok
fn = Me.C1Dokumente.Columns("Pfad").Value
System.IO.File.Copy(fn, SaveFileDialog1.FileName)
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub PerMailVersendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PerMailVersendenToolStripMenuItem.Click
Try
Dim db As New clsDB
Dim email As String
If Me.Patientnr > 49999 Then
db.Get_Tabledata("Email", "", "Select E_Mail from firma where nrfirma=" + Me.Patientnr.ToString)
Else
db.Get_Tabledata("Email", "", "Select E_Mail from privat where nrprivat=" + Me.Patientnr.ToString)
End If
Try
email = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
End Try
db.Dispose()
If C1Dokumente.Columns("indb").Value = "True" Then
Dim dok As New clsDok
test(email, dok.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value))
' OpenEmail(email, "test", "test", dok.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value))
Else
test(email, Me.C1Dokumente.Columns("Pfad").Value)
' OpenEmail(email, "", "", Me.C1Dokumente.Columns("Pfad").Value)
End If
Catch EX As Exception
MsgBox(EX.Message)
End Try
End Sub
Public Function OpenEmail(ByVal EmailAddress As String,
Optional ByVal Subject As String = "test",
Optional ByVal Body As String = "test",
Optional ByVal Attachments As String = "") _
As Boolean
Dim bAns As Boolean = True
Dim sParams As String
sParams = EmailAddress
If LCase(Strings.Left(sParams, 7)) <> "mailto:" Then _
sParams = "mailto:" & sParams
If Subject <> "" Then sParams = sParams &
"?subject=" & Subject
If Body <> "" Then
sParams = CStr(sParams & CStr(IIf(Subject = "", "?", "&")))
sParams = sParams & "body=" & Body
End If
If Attachments <> "" Then
'sParams = CStr(sParams & CStr(IIf(Body = "", "?", "&")))
sParams = sParams & "attachments=" & Attachments
End If
Try
System.Diagnostics.Process.Start(sParams)
Catch
bAns = False
End Try
Return bAns
End Function
Sub test(email As String, ByVal attachmentfile As String)
'string builder used for concatination
Dim MsgBuilder As New System.Text.StringBuilder
MsgBuilder.Append("<A href=""mailto: melroy@testmail.com"">mailto:melroy@testmail.com</A>")
'MsgBuilder.Append("<A href='mailto:&cc=testcc@testcc.com,testcc1@testcc.com'>&cc=testcc@testcc.com,testcc1@testcc.com</A>")
'MsgBuilder.Append("<A href='mailto:&bcc=testcc@testbcc.com,testcc1@testbcc.com'>&bcc=testcc@testbcc.com,testcc1@testbcc.com</A>")
MsgBuilder.Append("&subject=this is test subject")
MsgBuilder.Append("&body=this is test body")
ExecuteFile(MsgBuilder.ToString)
End Sub
Private Function ExecuteFile(ByVal FileName As String) As Boolean
Dim myProcess As New Process
myProcess.StartInfo.FileName = FileName
myProcess.StartInfo.UseShellExecute = True
myProcess.StartInfo.RedirectStandardOutput = False
myProcess.Start()
myProcess.Dispose()
End Function
End Class

848
DMSTest/clsMySQLDB.vb Normal file
View File

@@ -0,0 +1,848 @@
Imports System.IO
Imports MySql.Data.MySqlClient
Imports MySql.Data.Types
#Const dbtype = "SQL"
#If dbtype = "MySQL" Then
Public Class clsDB
#Else
Public Class clsMySQKDB
#End If
#Region "Deklarationen"
Dim m_connectionstring As String
Property Connectionstring As String
Get
Return m_connectionstring
End Get
Set(value As String)
m_connectionstring = value
End Set
End Property
Sub New()
Me.Connectionstring = My.Settings.ConnectionString
End Sub
Public dsDaten As New DataSet
Public dssql As New DataSet
Public dadaten As MySqlDataAdapter
#End Region
#Region "Allgemein Get / Save"
Public Sub Dispose()
dsDaten.Dispose()
dssql.Dispose()
End Sub
Public Function Get_Option(ByVal nr As Integer) As String
Try
Dim dad As New MySqlDataAdapter
Dim sql As String = "Select Inhalt from options where nroption=" + nr.ToString + " and mandant=" + Globals.Mandant.ToString + " and aktiv=1"
Dim data As New DataTable
dad = New MySqlDataAdapter(sql, Me.Connectionstring)
dad.Fill(data)
Dim s As String
s = data.Rows(0).Item(0).ToString.Replace("&Startup&", Application.StartupPath + Globals.Auswertungsverzeicnis)
Return s
dad.Dispose()
data.Dispose()
Catch ex As Exception
Dim a As Integer = 1
End Try
End Function
Public Function Get_Datavalue(sql As String, Optional args As String = "") As String
Try
Try
dsDaten.Clear()
dsDaten.Tables.Clear()
If sql <> "" Then
sql = sql.Replace("&ARGS&", args)
dadaten = New MySqlDataAdapter(sql, Me.Connectionstring)
End If
Dim dt As New DataTable
dadaten.Fill(dt)
Return dt.Rows(0).Item(0)
Catch ex As Exception
Dim a As Integer = 1
End Try
Catch ex As Exception
Dim a As Integer = 1
End Try
End Function
Public Sub Get_Tabledata(ByVal tablename As String, Optional wherestatement As String = "", Optional SQL As String = "", Optional args As String = "", Optional SP As Boolean = False, Optional SP_Params As DataTable = Nothing)
If SP = True Then
End If
Try
dsDaten.Clear()
dsDaten.Tables.Clear()
dadaten = New MySqlDataAdapter(SQL, Me.Connectionstring)
If SP = True Then
Dim sqlcmd As New MySqlCommand
Dim sqlconnect As New MySqlConnection
sqlconnect.ConnectionString = Me.Connectionstring
sqlcmd.CommandType = CommandType.StoredProcedure
sqlcmd.CommandText = tablename
For Each r As DataRow In SP_Params.Rows
sqlcmd.Parameters.Add(r("Paramname"), SqlDbType.VarChar)
sqlcmd.Parameters(sqlcmd.Parameters.Count - 1).Value = r("Paramvalue")
Next
sqlcmd.Connection = sqlconnect
Try
dadaten.SelectCommand = sqlcmd
dadaten.Fill(dsDaten, tablename)
Exit Sub
Catch ex As Exception
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
End Try
End If
If SQL <> "" Then
SQL = SQL.Replace("&ARGS&", args)
SQL = SQL.Replace("[", "")
SQL = SQL.Replace("]", "")
SQL = SQL.Replace("'", "`")
SQL = SQL.Replace("dbo.", "")
dadaten = New MySqlDataAdapter(SQL, Me.Connectionstring)
Else
Dim statement As String = "select * from " + tablename + " " + wherestatement
statement = statement.Replace("[", "")
statement = statement.Replace("[", "")
statement = statement.Replace("'", "`")
statement = statement.Replace("dbo.", "")
dadaten = New MySqlDataAdapter(statement, Me.Connectionstring)
End If
'dadaten = New MySQLDataadapter("select * from " + tablename + " " + wherestatement, Me.Connectionstring)
dadaten.Fill(dsDaten, tablename)
If encrypted = True Then
For Each r As DataRow In dsDaten.Tables(0).Rows
For Each c As DataColumn In dsDaten.Tables(0).Columns
Select Case UCase(c.ColumnName)
Case "NAME", "VORNAME", "STRASSE", "PLZ", "ORT", "TELP", "PATIENT", "BEHANDLER"
r(c.ColumnName) = Crypto.DecryptText(r(c.ColumnName), Globals.encryptkey)
End Select
Next
Next
End If
Catch ex As Exception
Dim a As Integer = 1
End Try
End Sub
Public Sub Update_Data()
Dim cb As New MySqlCommandBuilder(dadaten)
dadaten.Update(dsDaten, dsDaten.Tables(0).TableName)
End Sub
Dim da As MySqlDataAdapter
Dim qb As New MySqlCommandBuilder
Public daten As New DataSet
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 MySqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.Connectionstring
sqlconnect.Open()
da = New MySqlDataAdapter("", sqlconnect)
Dim sqlcmd As New MySqlCommand
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 MySqlCommandBuilder(da)
End Function
Public Sub Update_Tabeldata()
da.Update(daten, "Daten")
End Sub
Public Sub Exec_Prod(ByVal Procedure As String)
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
scmCmdToExecute.CommandText = Procedure
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
Public Sub Exec_SQL(ByVal SQL As String)
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
scmCmdToExecute.CommandText = SQL
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.Text
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
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 MySqlConnection
Dim ds As New DataSet
Dim qb As New MySqlCommandBuilder
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.Connectionstring
sqlconnect.Open()
Dim da As New MySqlDataAdapter("", sqlconnect)
Dim sqlcmd As New MySqlCommand
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 MySqlCommandBuilder(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 Function Insert_New_Entry(Table As String, Optional KeyName As String = "", Optional getdbkey As Boolean = False, Optional sqlstring As String = "") As DataTable
Dim dbkey As Integer = 0
If getdbkey Then
dsDaten.Tables.Clear()
Get_Tabledata("firmaap", "", sqlstring, "", False)
dbkey = dsDaten.Tables(0).Rows(0).Item(0) + 1
End If
Dim sqlconnect As New MySqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.Connectionstring
Dim da As New MySqlDataAdapter("", sqlconnect)
Dim sqlcmd As New MySqlCommand
sqlcmd.Connection = sqlconnect
Dim sql As String
sqlcmd.CommandText = "Insert into " + Table + " (" + KeyName + ",aktiv,erstellt_am,mutiert_am,mutierer) values(" + dbkey.ToString + ",1,getdate(),getdate()," + Globals.ActUser.ToString + ")"
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
Dim data As New DataTable
dsDaten.Tables.Clear()
Get_Tabledata(Table, "", "Select top 1 * from " + Table + " order by " + KeyName + " desc")
Return dsDaten.Tables(0)
End Function
Public Function Insert_New_Entry_autokey(Table As String, Optional KeyName As String = "", Optional getdbkey As Boolean = False, Optional sqlstring As String = "") As DataTable
Dim dbkey As Integer = 0
If getdbkey Then
dsDaten.Tables.Clear()
Get_Tabledata("firmaap", "", sqlstring, "", False)
dbkey = dsDaten.Tables(0).Rows(0).Item(0) + 1
End If
Dim sqlconnect As New MySqlConnection
Dim ds As New DataSet
ds.Tables.Clear()
sqlconnect.ConnectionString = Me.Connectionstring
Dim da As New MySqlDataAdapter("", sqlconnect)
Dim sqlcmd As New MySqlCommand
sqlcmd.Connection = sqlconnect
Dim sql As String
sqlcmd.CommandText = "Insert into " + Table + " (aktiv,erstellt_am,mutiert_am,mutierer) values(1,getdate(),getdate()," + Globals.ActUser.ToString + ")"
sqlconnect.Open()
sqlcmd.ExecuteNonQuery()
sqlconnect.Close()
Dim data As New DataTable
dsDaten.Tables.Clear()
Get_Tabledata(Table, "", "Select top 1 * from " + Table + " order by " + KeyName + " desc")
Return dsDaten.Tables(0)
End Function
Public Sub Copy_Behandlung(ByVal behandlugnsnr As String, typ As String)
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_copy_behandlung]"
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New MySqlParameter("@behandlungsnr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlugnsnr))
scmCmdToExecute.Parameters.Add(New MySqlParameter("@typ", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, typ))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
#End Region
#Region "Spalten"
Public Sub Generate_SpaltenData(ByVal tablename As String)
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
Dim dttable As New DataTable(tablename)
scmCmdToExecute.CommandText = "dbo.[sp_update_spalten]"
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, tablename))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
Public Function Get_Spaltendata()
Try
Dim dbRow As DataRow
Dim dsPartner As New DataSet
dadaten = New MySqlDataAdapter("select * from Spalten where aktiv=1", Me.Connectionstring)
dadaten.Fill(dsDaten, "Daten")
Catch ex As Exception
End Try
End Function
Public Function Get_SQL(ByVal nr As Integer) As String
Try
If Globals.SQLStatements.Rows.Count = 0 Then
dssql.Clear()
dadaten = New MySqlDataAdapter("select * from sql_statements", Me.Connectionstring)
dadaten.Fill(dssql, "SQLStatements")
Globals.SQLStatements = dssql.Tables(0).Copy
End If
For Each r As DataRow In Globals.SQLStatements.Rows
If r(0) = nr Then
Return r(1)
Exit Function
End If
Next
Catch
End Try
End Function
#End Region
#Region "Suche"
Public Function Search(ByVal Type As String, ByVal Searchstring As String) As Integer
Select Case Type
Case "Patient"
If IsNumeric(Searchstring) Then
Get_Tabledata("privat", " where nrprivat=" + Searchstring + " order by name, vorname, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit der Nr. " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
Else
Get_Tabledata("privat", " where name like '" + Searchstring + "%'" + " order by name, vorname, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
End If
If dsDaten.Tables(0).Rows.Count = 1 Then
Return (dsDaten.Tables(0).Rows(0).Item("nrprivat"))
Else
Dim f As New frmPrivatSelect
f.Text = "Patient-Suche"
f.TreeView1.Nodes.Clear()
For Each r As DataRow In dsDaten.Tables(0).Rows
Dim tn As New TreeNode
tn.Text = r("nrprivat").ToString + " " + r("Name") + " " + r("vorname") + ", " + r("PLZ") + " " + r("ort")
tn.Tag = r("nrprivat")
f.TreeView1.Nodes.Add(tn)
Next
f.TreeView1.SelectedNode = f.TreeView1.Nodes(0)
f.StartPosition = FormStartPosition.CenterParent
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Return f.TreeView1.SelectedNode.Tag
Else
Return -1
End If
End If
Return -1
Case "Firma"
If IsNumeric(Searchstring) Then
Get_Tabledata("firma", " where nrfirma=" + Searchstring + " order by name1, name2, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit der Nr. " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
Else
Get_Tabledata("firma", " where name1 like '" + Searchstring + "%'" + " order by name1, name2, ort")
If dsDaten.Tables(0).Rows.Count = 0 Then
MsgBox("Keine Daten mit dem Suchbegriff " + Searchstring + " gefunden.", vbExclamation)
Return -1
End If
End If
If dsDaten.Tables(0).Rows.Count = 1 Then
Return (dsDaten.Tables(0).Rows(0).Item("nrfirma"))
Else
Dim f As New frmPrivatSelect
f.Text = "Firmensuche"
f.TreeView1.Nodes.Clear()
For Each r As DataRow In dsDaten.Tables(0).Rows
Dim tn As New TreeNode
tn.Text = r("nrfirma").ToString + " " + r("Name1") + " " + r("name2") + ", " + r("PLZ") + " " + r("ort")
tn.Tag = r("nrfirma")
f.TreeView1.Nodes.Add(tn)
Next
f.TreeView1.SelectedNode = f.TreeView1.Nodes(0)
f.StartPosition = FormStartPosition.CenterParent
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Return f.TreeView1.SelectedNode.Tag
Else
Return -1
End If
End If
Return -1
End Select
End Function
#End Region
#Region "Log"
Public Function WriteLog(ByVal Entry As String, ByVal logtype As Integer)
Try
Dim conn As New MySqlConnection(Me.Connectionstring)
Dim sql As String
sql = "Insert Log (Eintrag,logtype ) values('" + Entry + "'," + logtype.ToString + ")"
Dim cm As New MySqlCommand(sql, conn)
conn.Open()
cm.ExecuteNonQuery()
conn.Close()
conn.Dispose()
cm.Dispose()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
#End Region
#Region "Utils"
Public Function Get_DBKey(ByVal Tablename As String) As Integer
Select Case Tablename
Case "Privat"
Me.Get_Tabledata("NewKeyPrivat", "", Me.Get_SQL(15))
Case "Firma"
Me.Get_Tabledata("NewKeyFirma", "", Me.Get_SQL(28))
Case "Leistung"
Me.Get_Tabledata("NewKeyLeistung", "", Me.Get_SQL(17))
Case "Behandlung"
Me.Get_Tabledata("NewKeyBehandlung", "", Me.Get_SQL(18))
Case "Zahlung"
Me.Get_Tabledata("NewKeyZahlung", "", Me.Get_SQL(20))
Case "Recall"
Me.Get_Tabledata("NewKeyRecall", "", Me.Get_SQL(31))
Case "Tarif"
Me.Get_Tabledata("Tarif", "", "Select top 1 nrtarif+1 from tarif order by nrtarif desc")
End Select
Return Me.dsDaten.Tables(0).Rows(0).Item(0)
End Function
#End Region
#Region "Tarife / Leistungen"
Public Function Get_Tarife() As DataTable
Dim found As Boolean = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarife" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Tarife", "order by nummervon")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarifgrp" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Tarifgrp", "order by tarifvon")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarpaket" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Tarpaket", "order by paketbezeichnung")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
If Not found Then
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "paketpos" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("paketpos", "order by nrpaket")
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
found = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Dentotar" Then
found = True
End If
Next
If Not found Then
Me.Get_Tabledata("Dentotar", "", Get_SQL(23))
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
End Function
Public Function Get_Tarif() As DataTable
Dim found As Boolean = False
For Each t As DataTable In IntTables.Inttables.Tables
If t.TableName = "Tarif" Then
found = True
Exit Function
End If
Next
If Not found Then
Me.Get_Tabledata("Tarif", "", Get_SQL(16))
IntTables.Inttables.Tables.Add(dsDaten.Tables(0).Copy)
End If
End Function
Public Sub Recalc_Leistungen(ByVal nrbehandlung As Integer, taxpunktwert As Double)
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
scmCmdToExecute.CommandText = "dbo.[sp_recalc_leistungen]"
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New MySqlParameter("@nrbehandlung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, nrbehandlung))
scmCmdToExecute.Parameters.Add(New MySqlParameter("@taxpunktwert", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, taxpunktwert))
scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
#End Region
#Region "Leistung"
Public Function delete_leistung(ByVal nrleistung As Integer)
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
dsDaten.Tables(0).Rows(0).Item("Aktiv") = 0
dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
Update_Data()
End Function
Public Function Get_Leistung(ByVal nrleistung As Integer)
Get_Tabledata("Leistung", "where nrleistung=" + nrleistung.ToString, "")
End Function
#End Region
#Region "Auswertungen"
Public Function get_reportdata(ByVal Reportnr As Integer, ByVal Parameter As String) As String
Get_Tabledata("Auswertung", "where Auswertungnr=" + Reportnr.ToString, "", "")
Dim sql As String
Dim typ As String
sql = dsDaten.Tables(0).Rows(0).Item("sql")
typ = dsDaten.Tables(0).Rows(0).Item("sqltype")
If Parameter <> "" Then sql = sql + " " + Parameter
Dim Filename As String = My.Settings.TempPath + "\" + dsDaten.Tables(0).Rows(0).Item("BEZEICHNUNG") + ".FRX"
dsDaten.Clear()
Select Case UCase(typ)
Case "SQL"
Get_Tabledata("Auswertungsdaten", "", sql, "")
Return Filename
End Select
End Function
Public Function Get_ReportNr(ByVal Report As String) As Integer
Try
Get_Tabledata("Auswertung", "where es_typ='" + Report + "'")
Return dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
Return 0
End Try
End Function
Public Function Get_ReportNr_by_ESTypnr(ByVal ESTypNr As String) As Integer
Try
Get_Tabledata("ESTyp", "where nrestyp=" + ESTypNr)
Get_Tabledata("Auswertung", "where es_typ='" + dsDaten.Tables(0).Rows(0).Item("estyp") + "'")
Return dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
Return 0
End Try
End Function
#End Region
#Region "Fakturierung"
Public Sub Rechnung_buchen(ByVal Type As Integer, ByVal Rechnungsnummer As String, rate As String, behandlungsnummer As String, ByVal Betrag As Decimal)
Dim scmCmdToExecute As MySqlCommand = New MySqlCommand()
scmCmdToExecute.CommandText = "dbo.sp_Rechnung_Buchen"
Dim conn As New MySqlConnection(My.Settings.ConnectionString)
scmCmdToExecute.CommandType = CommandType.StoredProcedure
scmCmdToExecute.Connection = conn
Try
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Type", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Type))
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Fakturanr", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Hauptfaktura", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Rechnungsnummer))
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Rate", SqlDbType.Int, 4, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, rate))
scmCmdToExecute.Parameters.Add(New MySqlParameter("@behandlungsnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, behandlungsnummer))
scmCmdToExecute.Parameters.Add(New MySqlParameter("@Betrag", SqlDbType.Float, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Betrag))
scmCmdToExecute.Connection.Open()
'scmCmdToExecute.Connection.Open()
scmCmdToExecute.ExecuteNonQuery()
Return
Catch ex As Exception
MsgBox(ex.Message)
Finally
scmCmdToExecute.Connection.Close()
End Try
End Sub
Public Sub Mahnung_Buchen(ByVal nrfaktura As Integer, ByVal Stufe As Integer, ByVal daten As DataTable)
Dim db As New clsDB
Dim mahndatum As Date
Dim faelligkeit As Date
Dim mahngebuehr As Double
mahndatum = daten.Rows(0).Item("Mahndatum")
faelligkeit = daten.Rows(0).Item("Mahnfaelligkeit")
mahngebuehr = daten.Rows(0).Item("mahnzuschlag")
Select Case Stufe
Case 1
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum1='" + mahndatum + "', mahnfaelligkeit1='" + faelligkeit + "', mahngebuehr1='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
Case 2
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum2='" + mahndatum + "', mahnfaelligkeit2='" + faelligkeit + "', mahngebuehr2='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
Case 3
db.Exec_SQL("Update faktura set mutiert_am=getdate(), mutierer=" + Globals.ActUser.ToString + ",mahndatum3='" + mahndatum + "', mahnfaelligkeit3='" + faelligkeit + "',mahngebuehr3='" + mahngebuehr.ToString + "' where nrfaktura=" + FakturaNr.ToString)
End Select
End Sub
#End Region
#Region "Documenthandling"
Public Function Save_CAMT_File_RUN(ByVal Key As Integer, Filename As String)
Return Save_File("Select * from camt_run where nreintrag=" + Key.ToString, Filename, "SourceFIle")
End Function
Public Function Save_CAMT_File(ByVal Key As Integer, Filename As String)
Return Save_File("Select * from camt_file where nreintrag=" + Key.ToString, Filename, "camt_file")
End Function
Public Function Save_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
Return Save_File("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
End Function
Public Function Get_RptDatei(ByVal Auswertungnr As Integer, ByVal Auswertungname As String) As String
Return Get_file("Select * from auswertung where auswertungnr=" + Auswertungnr.ToString, Auswertungname, "Reportdatei")
End Function
Public Function Save_File(ByVal sql As String, ByVal filename As String, ByVal DBAttribut As String) As String
Dim Connection As New MySqlConnection()
Dim DA As New MySqlDataAdapter(sql, Connection)
Dim cb As MySqlCommandBuilder = New MySqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New System.IO.FileStream(filename, System.IO.FileMode.OpenOrCreate, System.IO.FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
Try
Connection.ConnectionString = My.Settings.ConnectionString
Connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
MsgBox("Datei kann nicht gespeichert werden.", MsgBoxStyle.Critical)
Exit Function
Else
myRow = ds.Tables(0).Rows(0)
myRow.Item(DBAttribut) = mydata
DA.Update(ds, "RptFile")
End If
Return filename
Catch ex As Exception
MsgBox(ex.Message)
filename = ""
Return filename
Finally
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
End Try
End Function
Public Function Get_file(ByVal sql As String, filename As String, DBAttribut As String) As String
Dim connection As New MySqlConnection()
Dim DA As New MySqlDataAdapter(sql, connection)
Dim CB As MySqlCommandBuilder = New MySqlCommandBuilder(DA)
Dim ds As New DataSet()
Try
connection.ConnectionString = My.Settings.ConnectionString
connection.Open()
DA.Fill(ds, "RptFile")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(DBAttribut)
Dim K As Long
K = UBound(MyData)
Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Return filename
Catch ex As Exception
Return ""
Finally
CB = Nothing
ds = Nothing
DA = Nothing
connection.Close()
connection = Nothing
End Try
End Function
#End Region
#Region "Zahlungen"
Public Sub Insert_ZJournal(fakturanr As String, ByVal debitor As String, ByVal debitortext As String, ByVal betrag As Decimal, ByVal konto As String, ByVal vz As String, ByVal storno As String)
Get_Tabledata("Zahlung", "", "Select top 1 * from zjournal order by pk desc")
Dim dr As DataRow = dsDaten.Tables(0).NewRow
dr.Item("nreintrag") = 0
dr.Item("Mandant") = Globals.Mandant
dr.Item("Datum") = Now
dr.Item("nrfaktura") = fakturanr
dr.Item("nrdebitor") = debitor
dr.Item("debitor") = debitortext
dr.Item("Konto") = konto
dr.Item("betrag") = betrag
If vz = "False" Then vz = ""
If vz = "True" Then vz = "J"
dr.Item("vz") = vz
dr.Item("storno") = storno
dr.Item("erstellt_am") = Now
dr.Item("mutiert_am") = Now
dr.Item("mutierer") = Globals.ActUser
dr.Item("aktiv") = True
dsDaten.Tables(0).Rows.Add(dr)
Update_Data()
End Sub
#End Region
#Region "Security"
Public Function Objexists(ByVal securityform As String, ByVal securityobjecttype As String, ByVal securityobject As String, ByVal securityobjectitem As String) As Boolean
Get_Tabledata("SecurityObject", "SecurityForm='" + securityform + "' and securityobjecttype='" + securityobjecttype + "' and securityobject='" + securityobject + "' and securityobjectitem='" + securityobjectitem + "? and aktiv=1")
If dsDaten.Tables(0).Rows.Count > 0 Then Return True Else Return False
End Function
#End Region
End Class

1
DMSTest/obj/Debug/DMSTest.vbproj.CoreCompileInputs.cache Normal file
View File

@@ -0,0 +1 @@
56517063abd0a44a5a7077cd8bd9a74cf0e76e54

BIN
DMSTest/obj/Debug/DMSTest.vbprojResolveAssemblyReference.cache Normal file
View File

Binary file not shown.

BIN
DMSTest/obj/Debug/DesignTimeResolveAssemblyReferences.cache Normal file
View File

Binary file not shown.

BIN
DMSTest/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache Normal file
View File

Binary file not shown.

BIN
DMSTest/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll Normal file
View File

Binary file not shown.

317
DPM2016/Dokumente/DokumentDetail.Designer.vb generated Normal file
View File

@@ -0,0 +1,317 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class DokumentDetail
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(DokumentDetail))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
Me.txtBeschreibung = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtPath = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label4 = New System.Windows.Forms.Label()
Me.dtTermin = New System.Windows.Forms.DateTimePicker()
Me.Label5 = New System.Windows.Forms.Label()
Me.txtTermin = New System.Windows.Forms.TextBox()
Me.btnSave = New System.Windows.Forms.Button()
Me.btnAbbruch = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.ToolStripStatusLabel1 = New System.Windows.Forms.ToolStripStatusLabel()
Me.treestruktur = New DevComponents.AdvTree.AdvTree()
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
Me.Label6 = New System.Windows.Forms.Label()
Me.StatusStrip1.SuspendLayout()
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(24, 27)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(69, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Bezeichnung"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(24, 57)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(72, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Beschreibung"
'
'txtBezeichnung
'
Me.txtBezeichnung.Location = New System.Drawing.Point(115, 24)
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Size = New System.Drawing.Size(404, 20)
Me.txtBezeichnung.TabIndex = 2
'
'txtBeschreibung
'
Me.txtBeschreibung.Location = New System.Drawing.Point(115, 54)
Me.txtBeschreibung.Multiline = True
Me.txtBeschreibung.Name = "txtBeschreibung"
Me.txtBeschreibung.Size = New System.Drawing.Size(404, 65)
Me.txtBeschreibung.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(24, 132)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(29, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "Pfad"
'
'txtPath
'
Me.txtPath.AllowDrop = True
Me.txtPath.Location = New System.Drawing.Point(115, 129)
Me.txtPath.Name = "txtPath"
Me.txtPath.Size = New System.Drawing.Size(382, 20)
Me.txtPath.TabIndex = 5
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.Location = New System.Drawing.Point(491, 127)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(28, 23)
Me.Button1.TabIndex = 6
Me.Button1.UseVisualStyleBackColor = True
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(24, 163)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(39, 13)
Me.Label4.TabIndex = 7
Me.Label4.Text = "Termin"
'
'dtTermin
'
Me.dtTermin.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
Me.dtTermin.Location = New System.Drawing.Point(115, 157)
Me.dtTermin.Name = "dtTermin"
Me.dtTermin.Size = New System.Drawing.Size(106, 20)
Me.dtTermin.TabIndex = 8
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(24, 186)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(79, 13)
Me.Label5.TabIndex = 9
Me.Label5.Text = "Termin-Hinweis"
'
'txtTermin
'
Me.txtTermin.Location = New System.Drawing.Point(115, 183)
Me.txtTermin.Multiline = True
Me.txtTermin.Name = "txtTermin"
Me.txtTermin.Size = New System.Drawing.Size(404, 65)
Me.txtTermin.TabIndex = 10
'
'btnSave
'
Me.btnSave.Location = New System.Drawing.Point(27, 284)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(75, 23)
Me.btnSave.TabIndex = 11
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
'
'btnAbbruch
'
Me.btnAbbruch.Location = New System.Drawing.Point(724, 284)
Me.btnAbbruch.Name = "btnAbbruch"
Me.btnAbbruch.Size = New System.Drawing.Size(75, 23)
Me.btnAbbruch.TabIndex = 12
Me.btnAbbruch.Text = "Abbruch"
Me.btnAbbruch.UseVisualStyleBackColor = True
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(227, 159)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(77, 17)
Me.CheckBox1.TabIndex = 13
Me.CheckBox1.Text = "Erinnerung"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripStatusLabel1})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 327)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(814, 22)
Me.StatusStrip1.TabIndex = 14
Me.StatusStrip1.Text = "StatusStrip1"
'
'ToolStripStatusLabel1
'
Me.ToolStripStatusLabel1.ForeColor = System.Drawing.Color.Red
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(0, 17)
'
'treestruktur
'
Me.treestruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.treestruktur.AllowDrop = True
Me.treestruktur.AllowExternalDrop = False
Me.treestruktur.AllowUserToResizeColumns = False
Me.treestruktur.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.treestruktur.BackgroundStyle.Class = "TreeBorderKey"
Me.treestruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.treestruktur.DragDropEnabled = False
Me.treestruktur.DragDropNodeCopyEnabled = False
Me.treestruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.treestruktur.Location = New System.Drawing.Point(619, 24)
Me.treestruktur.Name = "treestruktur"
Me.treestruktur.NodesConnector = Me.NodeConnector1
Me.treestruktur.NodeStyle = Me.ElementStyle1
Me.treestruktur.NodeStyleSelected = Me.ElementStyle2
Me.treestruktur.PathSeparator = ";"
Me.treestruktur.Size = New System.Drawing.Size(180, 224)
Me.treestruktur.Styles.Add(Me.ElementStyle1)
Me.treestruktur.Styles.Add(Me.ElementStyle2)
Me.treestruktur.TabIndex = 15
Me.treestruktur.Text = "AdvTree1"
'
'NodeConnector1
'
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle2
'
Me.ElementStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(221, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(247, Byte), Integer))
Me.ElementStyle2.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(168, Byte), Integer), CType(CType(228, Byte), Integer))
Me.ElementStyle2.BackColorGradientAngle = 90
Me.ElementStyle2.BorderBottom = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderBottomWidth = 1
Me.ElementStyle2.BorderColor = System.Drawing.Color.DarkGray
Me.ElementStyle2.BorderLeft = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderLeftWidth = 1
Me.ElementStyle2.BorderRight = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderRightWidth = 1
Me.ElementStyle2.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderTopWidth = 1
Me.ElementStyle2.CornerDiameter = 4
Me.ElementStyle2.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle2.Description = "Blue"
Me.ElementStyle2.Name = "ElementStyle2"
Me.ElementStyle2.PaddingBottom = 1
Me.ElementStyle2.PaddingLeft = 1
Me.ElementStyle2.PaddingRight = 1
Me.ElementStyle2.PaddingTop = 1
Me.ElementStyle2.TextColor = System.Drawing.Color.Black
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(569, 27)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(44, 13)
Me.Label6.TabIndex = 16
Me.Label6.Text = "Struktur"
'
'DokumentDetail
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(814, 349)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.treestruktur)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.btnAbbruch)
Me.Controls.Add(Me.btnSave)
Me.Controls.Add(Me.txtTermin)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.dtTermin)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.txtPath)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtBeschreibung)
Me.Controls.Add(Me.txtBezeichnung)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "DokumentDetail"
Me.Text = "DokumentDetail"
Me.StatusStrip1.ResumeLayout(False)
Me.StatusStrip1.PerformLayout()
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents txtBezeichnung As TextBox
Friend WithEvents txtBeschreibung As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents txtPath As TextBox
Friend WithEvents Button1 As Button
Friend WithEvents Label4 As Label
Friend WithEvents dtTermin As DateTimePicker
Friend WithEvents Label5 As Label
Friend WithEvents txtTermin As TextBox
Friend WithEvents btnSave As Button
Friend WithEvents btnAbbruch As Button
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents OpenFileDialog1 As OpenFileDialog
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
Friend WithEvents treestruktur As DevComponents.AdvTree.AdvTree
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents ElementStyle2 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents Label6 As Label
End Class

5091
DPM2016/Dokumente/DokumentDetail.resx Normal file
View File

File diff suppressed because it is too large Load Diff

267
DPM2016/Dokumente/DokumentDetail.vb Normal file
View File

@@ -0,0 +1,267 @@
Imports DevComponents.AdvTree
Imports Gnostice.Documents.Controls.WinForms
Imports Gnostice.Documents
Public Class DokumentDetail
Dim m_massenimport As Boolean
Property Massenimport
Get
Return m_massenimport
End Get
Set(value)
m_massenimport = value
End Set
End Property
Dim m_keyvalue As Integer
Property KeyValue As Integer
Get
Return m_keyvalue
End Get
Set(value As Integer)
m_keyvalue = value
End Set
End Property
Dim m_strutkurid As Integer
Property Strukturid As Integer
Get
Return m_strutkurid
End Get
Set(value As Integer)
m_strutkurid = value
End Set
End Property
Dim m_editmode As Boolean
Property Edit_Mode As Boolean
Get
Return m_editmode
End Get
Set(value As Boolean)
m_editmode = value
End Set
End Property
Dim m_dokid As Integer
Property DokID As Integer
Get
Return m_dokid
End Get
Set(value As Integer)
m_dokid = value
End Set
End Property
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(ByVal KeyValue As Integer, ByVal StrukturID As Integer, Optional DokID As Integer = 0, Optional edit As Boolean = False)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.KeyValue = KeyValue
Me.Strukturid = StrukturID
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.DokID = DokID
Me.Edit_Mode = edit
Get_tree()
End Sub
Private Sub DokumentDetail_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If Not Me.Edit_Mode Then Me.AllowDrop = True
If Me.Edit_Mode = True Then
Me.txtPath.Enabled = False
Me.Button1.Enabled = False
Dim db As New clsDB
db.Get_Tabledata("dms_dokument", "where nreintrag=" + Me.DokID.ToString)
Me.txtBezeichnung.Text = db.dsDaten.Tables(0).Rows(0).Item(2)
Me.txtBeschreibung.Text = db.dsDaten.Tables(0).Rows(0).Item(3)
Me.txtPath.Text = db.dsDaten.Tables(0).Rows(0).Item(4)
Me.dtTermin.Value = db.dsDaten.Tables(0).Rows(0).Item(10)
Me.CheckBox1.Checked = db.dsDaten.Tables(0).Rows(0).Item(11) = True
Me.txtTermin.Text = db.dsDaten.Tables(0).Rows(0).Item(12)
End If
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If Not Me.Edit_Mode And Not System.IO.File.Exists(Me.txtPath.Text) Then
MsgBox("Die ausgewählte Datei ist nicht vorhandne." + vbExclamation)
Exit Sub
End If
Dim dir As String
Dim db As New clsDB
Dim db1 As New clsDB
db1.Get_Tabledata("DMS_Settings", "", "Select * from dms_settings where nreintrag=1")
Dim db2 As New clsDB
db2.Get_Tabledata("DMS_Settings", "", "Select * from dms_settings where nreintrag=2")
dir = db2.dsDaten.Tables(0).Rows(0).Item(2)
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "False" Then
If System.IO.File.Exists(dir + System.IO.Path.GetFileName(Me.txtPath.Text)) Then
If MsgBox("Die Datei " + System.IO.Path.GetFileName(Me.txtPath.Text) + " ist im Ablage-Verzeichnis bereits vorhanden." + vbCrLf + "Soll sie überschrieben werden?", vbYesNo + vbQuestion) = MsgBoxResult.No Then
Exit Sub
End If
End If
End If
If Me.Edit_Mode Then
db.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where nreintrag=" + Me.DokID.ToString)
Else
db.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where nreintrag=-1")
End If
Dim dr As DataRow
If Edit_Mode = False Then
dr = db.dsDaten.Tables(0).NewRow
Else
dr = db.dsDaten.Tables(0).Rows(0)
End If
dr.Item(1) = Me.treestruktur.SelectedNode.Tag
dr.Item(2) = Me.txtBezeichnung.Text
dr.Item(3) = Me.txtBeschreibung.Text
dr.Item(4) = Me.txtPath.Text
If Not Me.Edit_Mode Then dr.Item(5) = Now
dr.Item(6) = Now
dr.Item(7) = Globals.ActUser
dr.Item(8) = True
If Not Edit_Mode Then
dr.Item(9) = db1.dsDaten.Tables(0).Rows(0).Item(2)
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "False" Then
dr.Item(4) = dir + System.IO.Path.GetFileName(Me.txtPath.Text)
End If
End If
dr.Item(10) = dtTermin.Value
dr.Item(11) = CheckBox1.Checked = True
dr.Item(12) = txtTermin.Text
dr.Item(13) = Me.KeyValue
If Not Edit_Mode Then db.dsDaten.Tables(0).Rows.Add(dr)
db.Update_Data()
If Not Me.Edit_Mode Then
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "True" Then
db.Get_Tabledata("Dokument", "", "Select top 1 * from dms_dokument order by nreintrag desc")
Dim dok As New clsDok
dok.Save_Document(db.dsDaten.Tables(0).Rows(0).Item(0), Me.txtPath.Text)
Else
If Not System.IO.Directory.Exists(dir) Then
System.IO.Directory.CreateDirectory(dir)
End If
System.IO.File.Copy(Me.txtPath.Text, dir + System.IO.Path.GetFileName(Me.txtPath.Text))
End If
End If
ToolStripStatusLabel1.Text = "Dokument wurde gespeicher."
If Me.Massenimport Then Me.Close()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then Me.txtPath.Text = Me.OpenFileDialog1.FileName
End Sub
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
Me.Close()
End Sub
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
For Each path In files
Me.txtPath.Text = path
Next
End Sub
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub txtPath_TextChanged(sender As Object, e As EventArgs) Handles txtPath.TextChanged
ToolStripStatusLabel1.Text = ""
End Sub
Sub Get_tree()
Dim db As New clsDB
db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
Load_Treeview(db.dsDaten, Me.treestruktur)
End Sub
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As AdvTree)
If Not (oSourceData Is Nothing) Then
Dim oView As DataView = oSourceData.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation",
oDS.Tables(0).Columns("eintragnr"),
oDS.Tables(0).Columns("parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView(oDS, tree)
oDS.Dispose()
oDS = Nothing
End If
End Sub
''' <summary>
''' Tree aufbauen
''' </summary>
''' <param name="oDS"></param>
''' <param name="oTreeview"></param>
''' <remarks></remarks>
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As AdvTree)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
Dim oNode As New DevComponents.AdvTree.Node
oNode.Text = oDataRow("Bezeichnung").ToString()
oNode.Tag = oDataRow("eintragnr").ToString
oNode.ImageIndex = 0
oNode.ImageIndex = 0
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New DevComponents.AdvTree.Node()
oChildNode.Text = oChildRow("Bezeichnung").ToString()
oChildNode.Tag = oChildRow("eintragnr").ToString()
If oChildRow("eintragnr") = 0 Then
oChildNode.ImageIndex = 0
oChildNode.ImageIndex = 0
Else
oChildNode.ImageIndex = 1
oChildNode.ImageIndex = 1
End If
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree(oChildRow, oChildNode)
Next oChildRow
End Sub
End Class

400
DPM2016/Dokumente/clsDok.vb Normal file
View File

@@ -0,0 +1,400 @@
Imports System.Data.Sql
Imports System.Data.SqlClient
Imports System.Data.SqlTypes
Imports System.IO
Imports DevComponents.AdvTree
Public Class clsDok
Dim dbdokumente As New clsDB
Dim m_stream As MemoryStream
Property Documentstream As MemoryStream
Get
Return m_stream
End Get
Set(value As MemoryStream)
m_stream = value
End Set
End Property
#Region "Dokument Save Get"
Public Function Save_Document(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from dms_dokument where nreintrag =" + Str(Dokumentnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
Dim mydata(fs.Length) As Byte
Try
fs.Read(mydata, 0, fs.Length)
fs.Close()
Connection.ConnectionString = My.Settings.ConnectionString
Connection.Open()
DA.Fill(ds, "Dokument")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
Return False
Else
myRow = ds.Tables(0).Rows(0)
myRow.Item(14) = mydata
DA.Update(ds, "Dokument")
End If
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
Finally
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
End Try
End Function
Public Function Save_Vorlage(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
Dim Connection As New SqlConnection()
Dim DA As New SqlDataAdapter("select * from dms_vorlage where nreintrag =" + Str(Dokumentnr), Connection)
Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
Dim ds As New DataSet()
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
Dim mydata(fs.Length) As Byte
Try
fs.Read(mydata, 0, fs.Length)
fs.Close()
Connection.ConnectionString = My.Settings.ConnectionString
Connection.Open()
DA.Fill(ds, "Dokument")
Dim myRow As DataRow
If ds.Tables(0).Rows.Count = 0 Then
Return False
Else
myRow = ds.Tables(0).Rows(0)
myRow.Item(8) = mydata
DA.Update(ds, "Dokument")
End If
Return True
Catch ex As Exception
MsgBox(ex.Message)
Return False
Finally
fs = Nothing
cb = Nothing
ds = Nothing
DA = Nothing
Connection.Close()
Connection = Nothing
End Try
End Function
Public Function Get_Dokument(ByVal DokumentNr As Integer, Optional destdir As String = "", Optional WithTimeStamp As Boolean = False, Optional DeleteDestFile As Boolean = False) As String
Dim Filename As String = My.Settings.TempPath
If destdir <> "" Then Filename = destdir
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From dms_Dokument where nreintrag=" + Str(DokumentNr), connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
connection.ConnectionString = My.Settings.ConnectionString
connection.Open()
da.Fill(ds, "Dokument")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(14)
Dim K As Long
K = UBound(MyData)
If WithTimeStamp = True Then
Filename = Filename + Format(Now, "yyyyMMddHHmmss") + "_"
End If
Filename = Filename + System.IO.Path.GetFileName(myRow.Item(4))
If System.IO.File.Exists(Filename) Then
System.IO.File.Delete(Filename)
End If
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Return ""
Finally
connection.Close()
connection = Nothing
End Try
CB = Nothing
ds = Nothing
da = Nothing
Return Filename
End Function
Public Function Get_Vorlage(ByVal DokumentNr As Integer, ByVal Filename As String) As String
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From dms_vorlage where nreintrag=" + Str(DokumentNr), connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
connection.ConnectionString = My.Settings.ConnectionString
connection.Open()
da.Fill(ds, "Dokument")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(8)
Dim K As Long
K = UBound(MyData)
If System.IO.File.Exists(Filename) Then
System.IO.File.Delete(Filename)
End If
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Return ""
Finally
connection.Close()
connection = Nothing
End Try
CB = Nothing
ds = Nothing
da = Nothing
Return Filename
End Function
Public Function Get_Dokument_stram(ByVal DokumentNr As Integer) As MemoryStream
Dim Filename As String = My.Settings.TempPath
If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
Dim connection As New SqlConnection()
Dim da As New SqlDataAdapter("Select * From dms_Dokument where nreintrag=" + Str(DokumentNr), connection)
Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
Dim ds As New DataSet()
Try
connection.ConnectionString = My.Settings.ConnectionString
connection.Open()
da.Fill(ds, "Dokument")
Dim myRow As DataRow
myRow = ds.Tables(0).Rows(0)
Dim MyData() As Byte
MyData = myRow.Item(14)
Dim K As Long
K = UBound(MyData)
Dim ms As New MemoryStream(MyData)
Return ms
Filename = Filename + System.IO.Path.GetFileName(myRow.Item(4))
Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(MyData, 0, K)
fs.Close()
fs = Nothing
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Return Nothing
Finally
connection.Close()
connection = Nothing
End Try
CB = Nothing
ds = Nothing
da = Nothing
Return Nothing
End Function
#End Region
#Region "Tree"
Public Function LoadTree(ByRef Tree As DevComponents.AdvTree.AdvTree)
Dim db As New clsDB
db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
Load_Treeview(db.dsDaten, Tree)
db.Dispose()
Tree.ExpandAll()
End Function
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As AdvTree)
If Not (oSourceData Is Nothing) Then
Dim oView As DataView = oSourceData.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation",
oDS.Tables(0).Columns("eintragnr"),
oDS.Tables(0).Columns("parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView(oDS, tree)
oDS.Dispose()
oDS = Nothing
End If
End Sub
''' <summary>
''' Tree aufbauen
''' </summary>
''' <param name="oDS"></param>
''' <param name="oTreeview"></param>
''' <remarks></remarks>
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As AdvTree)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
Dim oNode As New DevComponents.AdvTree.Node
oNode.Text = oDataRow("Bezeichnung").ToString()
oNode.Tag = oDataRow("eintragnr").ToString
oNode.ImageIndex = 0
oNode.ImageIndex = 0
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New DevComponents.AdvTree.Node()
oChildNode.Text = oChildRow("Bezeichnung").ToString()
oChildNode.Tag = oChildRow("eintragnr").ToString()
If oChildRow("eintragnr") = 0 Then
oChildNode.ImageIndex = 0
oChildNode.ImageIndex = 0
Else
oChildNode.ImageIndex = 1
oChildNode.ImageIndex = 1
End If
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree(oChildRow, oChildNode)
Next oChildRow
End Sub
#End Region
#Region "Datahandling"
Public Function Update_Grid(ByVal Strukturelement As Integer, ByVal Keyvalue As Integer, ByRef c1dokumente As C1.Win.C1TrueDBGrid.C1TrueDBGrid)
dbdokumente.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where dms_strukturnr=" + Strukturelement.ToString + " and keyvalue=" + Keyvalue.ToString + " and aktiv=1 order by erstellt_am desc")
c1dokumente.DataSource = Nothing
c1dokumente.DataSource = dbdokumente.dsDaten.Tables(0)
c1dokumente.DataMember = dbdokumente.dsDaten.Tables(0).TableName
Dim spalten As New Tabellenspalte
spalten.Spaltentitel_aktualisieren(c1dokumente, "DMS_Dokument", dbdokumente.dsDaten.Tables(0))
End Function
Public Function Create_Doc(ByVal Strukturelement As Integer, ByVal Bezeichnung As String, ByVal Path As String, ByVal Partnernr As Integer, Optional nrfaktura As Integer = 0)
Dim dir As String
Dim db1 As New clsDB
db1.Get_Tabledata("DMS_Settings", "", "Select * from dms_settings where nreintrag=1")
Dim db2 As New clsDB
db2.Get_Tabledata("DMS_Settings", "", "Select * from dms_settings where nreintrag=2")
dir = db2.dsDaten.Tables(0).Rows(0).Item(2)
dbdokumente.Get_Tabledata("Dokumente", "", "Select * from dms_dokument where nreintrag=-1")
Dim dr As DataRow
dr = dbdokumente.dsDaten.Tables(0).NewRow
dr.Item(1) = Strukturelement
dr.Item(2) = Bezeichnung
dr.Item(3) = ""
dr.Item(4) = Path
dr.Item(5) = Now
dr.Item(6) = Now
dr.Item(7) = Globals.ActUser
dr.Item(8) = True
dr.Item(9) = db1.dsDaten.Tables(0).Rows(0).Item(2)
If UCase(db1.dsDaten.Tables(0).Rows(0).Item(2)) = "FALSE" Then
dr.Item(4) = dir + System.IO.Path.GetFileName(Path)
End If
dr.Item(10) = Now
dr.Item(11) = False
dr.Item(12) = ""
dr.Item(13) = Partnernr
dr.Item(15) = nrfaktura
dbdokumente.dsDaten.Tables(0).Rows.Add(dr)
dbdokumente.Update_Data()
If db1.dsDaten.Tables(0).Rows(0).Item(2) = "True" Then
dbdokumente.Get_Tabledata("Dokument", "", "Select top 1 * from dms_dokument order by nreintrag desc")
Dim dok As New clsDok
dok.Save_Document(dbdokumente.dsDaten.Tables(0).Rows(0).Item(0), Path)
Else
If Not System.IO.Directory.Exists(dir) Then
System.IO.Directory.CreateDirectory(dir)
End If
System.IO.File.Copy(Path, dir + System.IO.Path.GetFileName(Path))
End If
End Function
Public Sub Delete_Doks(ByVal nrbehandlung As String)
Dim db As New clsDB
Try
Dim Hauptfaktura As Integer
db.Get_Tabledata("Doks", "", "Select nrhauptfaktura from faktura where nrbehandlung=" + nrbehandlung.ToString + " order by erstellt_am desc")
Hauptfaktura = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Get_Tabledata("Doks", "", "Select * from dms_dokument where nrfaktura=" + Hauptfaktura.ToString + " and aktiv=1")
If db.dsDaten.Tables(0).Rows.Count > 0 Then
If MsgBox("Möchten Sie die vorhandnen Dokumente löschen?", vbYesNo + vbQuestion) = vbNo Then Exit Sub
For Each r As DataRow In db.dsDaten.Tables(0).Rows
Delete_Dok(r.Item(0))
Next
End If
Catch
Finally
db.Dispose()
End Try
End Sub
Public Sub Delete_Dok(ByVal Dokumentid As String)
Dim db As New clsDB
Dim db1 As New clsDB
db.Get_Tabledata("DMS_Dokument", "where nreintrag=" + Dokumentid, "")
db.dsDaten.Tables(0).Rows(0).Item("Aktiv") = 0
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
db1.Get_Tabledata("DMS_Settings", "", "Select * from dms_settings where nreintrag=1")
If UCase(db1.dsDaten.Tables(0).Rows(0).Item(2)) = "FALSE" Then
Try
System.IO.File.Delete(db.dsDaten.Tables(0).Rows(0).Item("Pfad"))
Catch ex As Exception
MsgBox("Die Datei '" + db.dsDaten.Tables(0).Rows(0).Item("Pfad") + " konnte nicht gelöscht werden.", vbExclamation)
End Try
End If
db.Dispose()
db1.Dispose()
End Sub
#End Region
End Class

688
DPM2016/Dokumente/clsDokumente.Designer.vb generated Normal file
View File

@@ -0,0 +1,688 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class clsDokumente
Inherits System.Windows.Forms.UserControl
'UserControl ü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(clsDokumente))
Dim FormatterSettings2 As Gnostice.Documents.FormatterSettings = New Gnostice.Documents.FormatterSettings()
Dim SpreadSheetFormatterSettings2 As Gnostice.Documents.Spreadsheet.SpreadSheetFormatterSettings = New Gnostice.Documents.Spreadsheet.SpreadSheetFormatterSettings()
Dim PageSettings3 As Gnostice.Documents.PageSettings = New Gnostice.Documents.PageSettings()
Dim Margins3 As Gnostice.Documents.Margins = New Gnostice.Documents.Margins()
Dim SheetOptions3 As Gnostice.Documents.Spreadsheet.SheetOptions = New Gnostice.Documents.Spreadsheet.SheetOptions()
Dim SheetOptions4 As Gnostice.Documents.Spreadsheet.SheetOptions = New Gnostice.Documents.Spreadsheet.SheetOptions()
Dim TxtFormatterSettings2 As Gnostice.Documents.TXTFormatterSettings = New Gnostice.Documents.TXTFormatterSettings()
Dim PageSettings4 As Gnostice.Documents.PageSettings = New Gnostice.Documents.PageSettings()
Dim Margins4 As Gnostice.Documents.Margins = New Gnostice.Documents.Margins()
Dim RenderingSettings2 As Gnostice.Graphics.RenderingSettings = New Gnostice.Graphics.RenderingSettings()
Dim ImageRenderingSettings2 As Gnostice.Graphics.ImageRenderingSettings = New Gnostice.Graphics.ImageRenderingSettings()
Dim LineArtRenderingSettings2 As Gnostice.Graphics.LineArtRenderingSettings = New Gnostice.Graphics.LineArtRenderingSettings()
Dim ResolutionSettings2 As Gnostice.Graphics.ResolutionSettings = New Gnostice.Graphics.ResolutionSettings()
Dim TextRenderingSettings2 As Gnostice.Graphics.TextRenderingSettings = New Gnostice.Graphics.TextRenderingSettings()
Dim PdfViewerPrinterSettings2 As Syncfusion.Windows.PdfViewer.PdfViewerPrinterSettings = New Syncfusion.Windows.PdfViewer.PdfViewerPrinterSettings()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnvorlagen = New System.Windows.Forms.ToolStripButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.treestruktur = New DevComponents.AdvTree.AdvTree()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.grpdokumentvorschau = New System.Windows.Forms.GroupBox()
Me.DocumentViewer1 = New Gnostice.Documents.Controls.WinForms.DocumentViewer()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.btnFirstPage = New System.Windows.Forms.ToolStripButton()
Me.btnPrvPage = New System.Windows.Forms.ToolStripButton()
Me.txtGoToPage = New System.Windows.Forms.ToolStripTextBox()
Me.btnNxtPage = New System.Windows.Forms.ToolStripButton()
Me.btnLastPage = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsActSize = New System.Windows.Forms.ToolStripButton()
Me.tsFitPage = New System.Windows.Forms.ToolStripButton()
Me.tsFitWidth = New System.Windows.Forms.ToolStripButton()
Me.tsZoomOut = New System.Windows.Forms.ToolStripButton()
Me.toolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.txtZoom = New System.Windows.Forms.ToolStripTextBox()
Me.toolStripPercentlabel = New System.Windows.Forms.ToolStripLabel()
Me.tsZoomIn = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.C1Dokumente = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeuesDokumentHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentinformationenBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripSeparator()
Me.DokumentExportierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PerMailVersendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DokumentAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripSeparator()
Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.grpdokumentvorschaupdf = New System.Windows.Forms.GroupBox()
Me.pdfViewerControl1 = New Syncfusion.Windows.Forms.PdfViewer.PdfViewerControl()
Me.ToolStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox2.SuspendLayout()
Me.grpdokumentvorschau.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.grpdokumentvorschaupdf.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnnew, Me.ToolStripButton4, Me.tsbtnSave, Me.ToolStripButton2, Me.tsbtnvorlagen})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1007, 25)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'tsbtnnew
'
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnew.Name = "tsbtnnew"
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnew.Text = "Neuer Datensatz"
Me.tsbtnnew.Visible = False
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "Dokumentinformationen bearbeiten"
Me.ToolStripButton4.Visible = False
'
'tsbtnSave
'
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnSave.Name = "tsbtnSave"
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
Me.tsbtnSave.Text = "Speichern"
Me.tsbtnSave.Visible = False
'
'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 = "Dokument löschen"
Me.ToolStripButton2.Visible = False
'
'tsbtnvorlagen
'
Me.tsbtnvorlagen.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text
Me.tsbtnvorlagen.Image = CType(resources.GetObject("tsbtnvorlagen.Image"), System.Drawing.Image)
Me.tsbtnvorlagen.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnvorlagen.Name = "tsbtnvorlagen"
Me.tsbtnvorlagen.Size = New System.Drawing.Size(111, 22)
Me.tsbtnvorlagen.Text = "Vorlagen verwalten"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.treestruktur)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
Me.GroupBox1.Location = New System.Drawing.Point(0, 25)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(278, 465)
Me.GroupBox1.TabIndex = 1
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Struktur"
'
'treestruktur
'
Me.treestruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.treestruktur.AllowDrop = True
Me.treestruktur.AllowExternalDrop = False
Me.treestruktur.AllowUserToResizeColumns = False
Me.treestruktur.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.treestruktur.BackgroundStyle.Class = "TreeBorderKey"
Me.treestruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.treestruktur.Dock = System.Windows.Forms.DockStyle.Fill
Me.treestruktur.DragDropEnabled = False
Me.treestruktur.DragDropNodeCopyEnabled = False
Me.treestruktur.ImageList = Me.ImageList1
Me.treestruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.treestruktur.Location = New System.Drawing.Point(3, 16)
Me.treestruktur.Name = "treestruktur"
Me.treestruktur.NodesConnector = Me.NodeConnector1
Me.treestruktur.NodeStyle = Me.ElementStyle1
Me.treestruktur.NodeStyleSelected = Me.ElementStyle2
Me.treestruktur.PathSeparator = ";"
Me.treestruktur.Size = New System.Drawing.Size(272, 446)
Me.treestruktur.Styles.Add(Me.ElementStyle1)
Me.treestruktur.Styles.Add(Me.ElementStyle2)
Me.treestruktur.TabIndex = 1
Me.treestruktur.Text = "AdvTree1"
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "Favorites_32.png")
Me.ImageList1.Images.SetKeyName(1, "Favorites_32.png")
Me.ImageList1.Images.SetKeyName(2, "Document_48.png")
'
'NodeConnector1
'
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle2
'
Me.ElementStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(221, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(247, Byte), Integer))
Me.ElementStyle2.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(168, Byte), Integer), CType(CType(228, Byte), Integer))
Me.ElementStyle2.BackColorGradientAngle = 90
Me.ElementStyle2.BorderBottom = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderBottomWidth = 1
Me.ElementStyle2.BorderColor = System.Drawing.Color.DarkGray
Me.ElementStyle2.BorderLeft = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderLeftWidth = 1
Me.ElementStyle2.BorderRight = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderRightWidth = 1
Me.ElementStyle2.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderTopWidth = 1
Me.ElementStyle2.CornerDiameter = 4
Me.ElementStyle2.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle2.Description = "Blue"
Me.ElementStyle2.Name = "ElementStyle2"
Me.ElementStyle2.PaddingBottom = 1
Me.ElementStyle2.PaddingLeft = 1
Me.ElementStyle2.PaddingRight = 1
Me.ElementStyle2.PaddingTop = 1
Me.ElementStyle2.TextColor = System.Drawing.Color.Black
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.grpdokumentvorschaupdf)
Me.GroupBox2.Controls.Add(Me.grpdokumentvorschau)
Me.GroupBox2.Controls.Add(Me.C1Dokumente)
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox2.Location = New System.Drawing.Point(278, 25)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(729, 465)
Me.GroupBox2.TabIndex = 2
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Dokumente"
'
'grpdokumentvorschau
'
Me.grpdokumentvorschau.Controls.Add(Me.DocumentViewer1)
Me.grpdokumentvorschau.Controls.Add(Me.ToolStrip2)
Me.grpdokumentvorschau.Location = New System.Drawing.Point(355, 190)
Me.grpdokumentvorschau.Name = "grpdokumentvorschau"
Me.grpdokumentvorschau.Size = New System.Drawing.Size(371, 272)
Me.grpdokumentvorschau.TabIndex = 9
Me.grpdokumentvorschau.TabStop = False
Me.grpdokumentvorschau.Text = "Dokumentvorschau"
'
'DocumentViewer1
'
Me.DocumentViewer1.BackColor = System.Drawing.SystemColors.ControlDark
Me.DocumentViewer1.BorderWidth = 10
Me.DocumentViewer1.CurrentPage = 0
Me.DocumentViewer1.Dock = System.Windows.Forms.DockStyle.Fill
Me.DocumentViewer1.HScrollBar.LargeChange = 40
Me.DocumentViewer1.HScrollBar.SmallChange = 20
Me.DocumentViewer1.HScrollBar.Value = 0
Me.DocumentViewer1.HScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
Me.DocumentViewer1.Location = New System.Drawing.Point(3, 41)
Me.DocumentViewer1.MouseMode = Gnostice.DOM.CursorPreferences.AreaSelection
Me.DocumentViewer1.Name = "DocumentViewer1"
'
'
'
Me.DocumentViewer1.NavigationPane.ActivePage = Nothing
Me.DocumentViewer1.NavigationPane.Location = New System.Drawing.Point(0, 0)
Me.DocumentViewer1.NavigationPane.Name = ""
Me.DocumentViewer1.NavigationPane.TabIndex = 0
Me.DocumentViewer1.NavigationPane.Visibility = Gnostice.Documents.Controls.WinForms.Visibility.[Auto]
Me.DocumentViewer1.NavigationPane.WidthPercentage = 20
Me.DocumentViewer1.PageLayout = Nothing
Me.DocumentViewer1.PageRotation = Gnostice.Documents.Controls.WinForms.RotationAngle.Zero
Me.DocumentViewer1.Preferences.Cursor = Gnostice.DOM.CursorPreferences.Pan
SpreadSheetFormatterSettings2.FormattingMode = Gnostice.DOM.FormattingMode.PreferDocumentSettings
SpreadSheetFormatterSettings2.PageOrder = Gnostice.Documents.Spreadsheet.LayoutDirection.BackwardN
PageSettings3.Height = 11.6929!
Margins3.Bottom = 1.0!
Margins3.Footer = 0!
Margins3.Header = 0!
Margins3.Left = 1.0!
Margins3.Right = 1.0!
Margins3.Top = 1.0!
PageSettings3.Margin = Margins3
PageSettings3.Orientation = Gnostice.Graphics.Orientation.Portrait
PageSettings3.PageSize = Gnostice.Documents.PageSize.A4
PageSettings3.Width = 8.2677!
SpreadSheetFormatterSettings2.PageSettings = PageSettings3
SheetOptions3.Print = False
SheetOptions3.View = False
SpreadSheetFormatterSettings2.ShowGridlines = SheetOptions3
SheetOptions4.Print = False
SheetOptions4.View = False
SpreadSheetFormatterSettings2.ShowHeadings = SheetOptions4
FormatterSettings2.SpreadSheet = SpreadSheetFormatterSettings2
TxtFormatterSettings2.Font = New System.Drawing.Font("Calibri", 12.0!)
PageSettings4.Height = 11.6929!
Margins4.Bottom = 1.0!
Margins4.Footer = 0!
Margins4.Header = 0!
Margins4.Left = 1.0!
Margins4.Right = 1.0!
Margins4.Top = 1.0!
PageSettings4.Margin = Margins4
PageSettings4.Orientation = Gnostice.Graphics.Orientation.Portrait
PageSettings4.PageSize = Gnostice.Documents.PageSize.A4
PageSettings4.Width = 8.2677!
TxtFormatterSettings2.PageSettings = PageSettings4
FormatterSettings2.TXT = TxtFormatterSettings2
Me.DocumentViewer1.Preferences.FormatterSettings = FormatterSettings2
Me.DocumentViewer1.Preferences.KeyNavigation = True
ImageRenderingSettings2.CompositingMode = Gnostice.Graphics.CompositingMode.SourceOver
ImageRenderingSettings2.CompositingQuality = Gnostice.Graphics.CompositingQuality.[Default]
ImageRenderingSettings2.InterpolationMode = Gnostice.Graphics.InterpolationMode.Bilinear
ImageRenderingSettings2.PixelOffsetMode = Gnostice.Graphics.PixelOffsetMode.[Default]
RenderingSettings2.Image = ImageRenderingSettings2
LineArtRenderingSettings2.SmoothingMode = Gnostice.Graphics.SmoothingMode.AntiAlias
RenderingSettings2.LineArt = LineArtRenderingSettings2
ResolutionSettings2.DpiX = 96.0!
ResolutionSettings2.DpiY = 96.0!
ResolutionSettings2.ResolutionMode = Gnostice.Graphics.ResolutionMode.UseSource
RenderingSettings2.Resolution = ResolutionSettings2
TextRenderingSettings2.TextContrast = 3
TextRenderingSettings2.TextRenderingHint = Gnostice.Graphics.TextRenderingHint.AntiAlias
RenderingSettings2.Text = TextRenderingSettings2
Me.DocumentViewer1.Preferences.RenderingSettings = RenderingSettings2
Me.DocumentViewer1.Preferences.Units = Gnostice.Graphics.MeasurementUnit.Inches
Me.DocumentViewer1.Size = New System.Drawing.Size(365, 228)
Me.DocumentViewer1.TabIndex = 7
Me.DocumentViewer1.VScrollBar.LargeChange = 40
Me.DocumentViewer1.VScrollBar.SmallChange = 20
Me.DocumentViewer1.VScrollBar.Value = 0
Me.DocumentViewer1.VScrollBar.Visibility = Gnostice.Documents.Controls.WinForms.ScrollBarVisibility.Always
Me.DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.ActualSize
Me.DocumentViewer1.Zoom.ZoomPercent = 100.0R
'
'ToolStrip2
'
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.btnFirstPage, Me.btnPrvPage, Me.txtGoToPage, Me.btnNxtPage, Me.btnLastPage, Me.toolStripSeparator4, Me.tsActSize, Me.tsFitPage, Me.tsFitWidth, Me.tsZoomOut, Me.toolStripSeparator7, Me.txtZoom, Me.toolStripPercentlabel, Me.tsZoomIn, Me.ToolStripButton1, Me.ToolStripButton3})
Me.ToolStrip2.Location = New System.Drawing.Point(3, 16)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Size = New System.Drawing.Size(365, 25)
Me.ToolStrip2.TabIndex = 8
Me.ToolStrip2.Text = "ToolStrip2"
'
'btnFirstPage
'
Me.btnFirstPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnFirstPage.Image = CType(resources.GetObject("btnFirstPage.Image"), System.Drawing.Image)
Me.btnFirstPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnFirstPage.Name = "btnFirstPage"
Me.btnFirstPage.Size = New System.Drawing.Size(23, 22)
Me.btnFirstPage.Text = "toolStripButton1"
Me.btnFirstPage.ToolTipText = "Erste Seite"
'
'btnPrvPage
'
Me.btnPrvPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnPrvPage.Image = CType(resources.GetObject("btnPrvPage.Image"), System.Drawing.Image)
Me.btnPrvPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnPrvPage.Name = "btnPrvPage"
Me.btnPrvPage.Size = New System.Drawing.Size(23, 22)
Me.btnPrvPage.ToolTipText = "Vorherige Seite"
'
'txtGoToPage
'
Me.txtGoToPage.Name = "txtGoToPage"
Me.txtGoToPage.Size = New System.Drawing.Size(40, 25)
'
'btnNxtPage
'
Me.btnNxtPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnNxtPage.Image = CType(resources.GetObject("btnNxtPage.Image"), System.Drawing.Image)
Me.btnNxtPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnNxtPage.Name = "btnNxtPage"
Me.btnNxtPage.Size = New System.Drawing.Size(23, 22)
Me.btnNxtPage.Text = "toolStripButton1"
Me.btnNxtPage.ToolTipText = "Nächste Seite"
'
'btnLastPage
'
Me.btnLastPage.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.btnLastPage.Image = CType(resources.GetObject("btnLastPage.Image"), System.Drawing.Image)
Me.btnLastPage.ImageTransparentColor = System.Drawing.Color.Magenta
Me.btnLastPage.Name = "btnLastPage"
Me.btnLastPage.Size = New System.Drawing.Size(23, 22)
Me.btnLastPage.ToolTipText = "Letzte Seite"
'
'toolStripSeparator4
'
Me.toolStripSeparator4.Name = "toolStripSeparator4"
Me.toolStripSeparator4.Size = New System.Drawing.Size(6, 25)
'
'tsActSize
'
Me.tsActSize.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.tsActSize.Image = CType(resources.GetObject("tsActSize.Image"), System.Drawing.Image)
Me.tsActSize.ImageTransparentColor = System.Drawing.Color.White
Me.tsActSize.Name = "tsActSize"
Me.tsActSize.Size = New System.Drawing.Size(108, 22)
Me.tsActSize.Text = "Aktuelle Grüsse"
'
'tsFitPage
'
Me.tsFitPage.Image = CType(resources.GetObject("tsFitPage.Image"), System.Drawing.Image)
Me.tsFitPage.ImageTransparentColor = System.Drawing.Color.White
Me.tsFitPage.Name = "tsFitPage"
Me.tsFitPage.Size = New System.Drawing.Size(86, 22)
Me.tsFitPage.Text = "ganze Seite"
'
'tsFitWidth
'
Me.tsFitWidth.Image = CType(resources.GetObject("tsFitWidth.Image"), System.Drawing.Image)
Me.tsFitWidth.ImageTransparentColor = System.Drawing.Color.Transparent
Me.tsFitWidth.Name = "tsFitWidth"
Me.tsFitWidth.Size = New System.Drawing.Size(57, 20)
Me.tsFitWidth.Text = "Breite"
'
'tsZoomOut
'
Me.tsZoomOut.Image = CType(resources.GetObject("tsZoomOut.Image"), System.Drawing.Image)
Me.tsZoomOut.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsZoomOut.Name = "tsZoomOut"
Me.tsZoomOut.Size = New System.Drawing.Size(85, 20)
Me.tsZoomOut.Text = "verkleinern"
'
'toolStripSeparator7
'
Me.toolStripSeparator7.Name = "toolStripSeparator7"
Me.toolStripSeparator7.Size = New System.Drawing.Size(6, 25)
'
'txtZoom
'
Me.txtZoom.MaxLength = 4
Me.txtZoom.Name = "txtZoom"
Me.txtZoom.Size = New System.Drawing.Size(35, 23)
Me.txtZoom.Text = "100"
Me.txtZoom.ToolTipText = "Key in the zoom value and press enter"
'
'toolStripPercentlabel
'
Me.toolStripPercentlabel.Name = "toolStripPercentlabel"
Me.toolStripPercentlabel.Size = New System.Drawing.Size(17, 15)
Me.toolStripPercentlabel.Text = "%"
'
'tsZoomIn
'
Me.tsZoomIn.Image = CType(resources.GetObject("tsZoomIn.Image"), System.Drawing.Image)
Me.tsZoomIn.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsZoomIn.Name = "tsZoomIn"
Me.tsZoomIn.Size = New System.Drawing.Size(88, 20)
Me.tsZoomIn.Text = "vergrössern"
'
'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, 20)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.ToolTipText = "90 Grad gegen Urzeigersinn"
'
'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, 20)
Me.ToolStripButton3.Text = "ToolStripButton2"
Me.ToolStripButton3.ToolTipText = "90 Grad im Uhrzeigersinn"
'
'C1Dokumente
'
Me.C1Dokumente.AllowDrop = True
Me.C1Dokumente.AlternatingRows = True
Me.C1Dokumente.ContextMenuStrip = Me.ContextMenuStrip1
Me.C1Dokumente.Dock = System.Windows.Forms.DockStyle.Top
Me.C1Dokumente.FilterBar = True
Me.C1Dokumente.GroupByCaption = "Drag a column header here to group by that column"
Me.C1Dokumente.Images.Add(CType(resources.GetObject("C1Dokumente.Images"), System.Drawing.Image))
Me.C1Dokumente.Location = New System.Drawing.Point(3, 16)
Me.C1Dokumente.Name = "C1Dokumente"
Me.C1Dokumente.PreviewInfo.Location = New System.Drawing.Point(0, 0)
Me.C1Dokumente.PreviewInfo.Size = New System.Drawing.Size(0, 0)
Me.C1Dokumente.PreviewInfo.ZoomFactor = 75.0R
Me.C1Dokumente.PrintInfo.PageSettings = CType(resources.GetObject("C1Dokumente.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
Me.C1Dokumente.Size = New System.Drawing.Size(723, 174)
Me.C1Dokumente.TabIndex = 5
Me.C1Dokumente.Text = "C1TrueDBGrid1"
Me.C1Dokumente.PropBag = resources.GetString("C1Dokumente.PropBag")
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuesDokumentHinzufügenToolStripMenuItem, Me.DokumentinformationenBearbeitenToolStripMenuItem, Me.DokumentBearbeitenToolStripMenuItem, Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem, Me.DokumentLöschenToolStripMenuItem, Me.ToolStripMenuItem1, Me.DokumentExportierenToolStripMenuItem, Me.PerMailVersendenToolStripMenuItem, Me.DokumentAnzeigenToolStripMenuItem, Me.ToolStripMenuItem2, Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(307, 214)
'
'NeuesDokumentHinzufügenToolStripMenuItem
'
Me.NeuesDokumentHinzufügenToolStripMenuItem.Name = "NeuesDokumentHinzufügenToolStripMenuItem"
Me.NeuesDokumentHinzufügenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.NeuesDokumentHinzufügenToolStripMenuItem.Text = "&Neues Dokument hinzufügen"
'
'DokumentinformationenBearbeitenToolStripMenuItem
'
Me.DokumentinformationenBearbeitenToolStripMenuItem.Name = "DokumentinformationenBearbeitenToolStripMenuItem"
Me.DokumentinformationenBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentinformationenBearbeitenToolStripMenuItem.Text = "Dokumentinformationen bearbeiten"
'
'DokumentBearbeitenToolStripMenuItem
'
Me.DokumentBearbeitenToolStripMenuItem.Name = "DokumentBearbeitenToolStripMenuItem"
Me.DokumentBearbeitenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentBearbeitenToolStripMenuItem.Text = "Dokument bearbeiten"
'
'DokumentEinemAnderenPartnerZuordnenToolStripMenuItem
'
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Name = "DokumentEinemAnderenPartnerZuordnenToolStripMenuItem"
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Text = "Dokument einem anderen Partner zuordnen"
'
'DokumentLöschenToolStripMenuItem
'
Me.DokumentLöschenToolStripMenuItem.Name = "DokumentLöschenToolStripMenuItem"
Me.DokumentLöschenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentLöschenToolStripMenuItem.Text = "Dokument löschen"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(303, 6)
'
'DokumentExportierenToolStripMenuItem
'
Me.DokumentExportierenToolStripMenuItem.Name = "DokumentExportierenToolStripMenuItem"
Me.DokumentExportierenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentExportierenToolStripMenuItem.Text = "Dokument exportieren"
'
'PerMailVersendenToolStripMenuItem
'
Me.PerMailVersendenToolStripMenuItem.Name = "PerMailVersendenToolStripMenuItem"
Me.PerMailVersendenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.PerMailVersendenToolStripMenuItem.Text = "Per Mail versenden"
Me.PerMailVersendenToolStripMenuItem.Visible = False
'
'DokumentAnzeigenToolStripMenuItem
'
Me.DokumentAnzeigenToolStripMenuItem.Name = "DokumentAnzeigenToolStripMenuItem"
Me.DokumentAnzeigenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.DokumentAnzeigenToolStripMenuItem.Text = "Dokument anzeigen"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(303, 6)
'
'NeuesDokumentAusVorlageErstellenToolStripMenuItem
'
Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem.Name = "NeuesDokumentAusVorlageErstellenToolStripMenuItem"
Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem.Size = New System.Drawing.Size(306, 22)
Me.NeuesDokumentAusVorlageErstellenToolStripMenuItem.Text = "Neues Dokument aus Vorlage erstellen"
'
'grpdokumentvorschaupdf
'
Me.grpdokumentvorschaupdf.Controls.Add(Me.pdfViewerControl1)
Me.grpdokumentvorschaupdf.Location = New System.Drawing.Point(6, 196)
Me.grpdokumentvorschaupdf.Name = "grpdokumentvorschaupdf"
Me.grpdokumentvorschaupdf.Size = New System.Drawing.Size(319, 242)
Me.grpdokumentvorschaupdf.TabIndex = 10
Me.grpdokumentvorschaupdf.TabStop = False
Me.grpdokumentvorschaupdf.Text = "Dokumentvorschau"
'
'pdfViewerControl1
'
Me.pdfViewerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.pdfViewerControl1.EnableContextMenu = True
Me.pdfViewerControl1.EnableNotificationBar = True
Me.pdfViewerControl1.IsBookmarkEnabled = True
Me.pdfViewerControl1.Location = New System.Drawing.Point(3, 16)
Me.pdfViewerControl1.Name = "pdfViewerControl1"
Me.pdfViewerControl1.PageBorderThickness = 1
PdfViewerPrinterSettings2.PrintLocation = CType(resources.GetObject("PdfViewerPrinterSettings2.PrintLocation"), System.Drawing.PointF)
Me.pdfViewerControl1.PrinterSettings = PdfViewerPrinterSettings2
Me.pdfViewerControl1.ReferencePath = Nothing
Me.pdfViewerControl1.RenderingEngine = Syncfusion.Windows.Forms.PdfViewer.PdfRenderingEngine.SfPdf
Me.pdfViewerControl1.ScrollDisplacementValue = 0
Me.pdfViewerControl1.ShowHorizontalScrollBar = True
Me.pdfViewerControl1.ShowToolBar = True
Me.pdfViewerControl1.ShowVerticalScrollBar = True
Me.pdfViewerControl1.Size = New System.Drawing.Size(313, 223)
Me.pdfViewerControl1.SpaceBetweenPages = 8
Me.pdfViewerControl1.TabIndex = 4
Me.pdfViewerControl1.Text = "pdfViewerControl1"
Me.pdfViewerControl1.VisualStyle = Syncfusion.Windows.Forms.PdfViewer.VisualStyle.[Default]
Me.pdfViewerControl1.ZoomMode = Syncfusion.Windows.Forms.PdfViewer.ZoomMode.[Default]
'
'clsDokumente
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.Controls.Add(Me.GroupBox2)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ToolStrip1)
Me.Name = "clsDokumente"
Me.Size = New System.Drawing.Size(1007, 490)
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox2.ResumeLayout(False)
Me.grpdokumentvorschau.ResumeLayout(False)
Me.grpdokumentvorschau.PerformLayout()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
CType(Me.C1Dokumente, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.grpdokumentvorschaupdf.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents treestruktur As DevComponents.AdvTree.AdvTree
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents GroupBox2 As GroupBox
Friend WithEvents C1Dokumente As C1.Win.C1TrueDBGrid.C1TrueDBGrid
Friend WithEvents ImageList1 As ImageList
Friend WithEvents ElementStyle2 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents tsbtnSave As ToolStripButton
Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents tsbtnnew As ToolStripButton
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents NeuesDokumentHinzufügenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DokumentinformationenBearbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DokumentLöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem1 As ToolStripSeparator
Friend WithEvents DokumentAnzeigenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DocumentViewer1 As Gnostice.Documents.Controls.WinForms.DocumentViewer
Private WithEvents ToolStrip2 As ToolStrip
Private WithEvents btnFirstPage As ToolStripButton
Private WithEvents btnPrvPage As ToolStripButton
Private WithEvents txtGoToPage As ToolStripTextBox
Private WithEvents btnNxtPage As ToolStripButton
Private WithEvents btnLastPage As ToolStripButton
Private WithEvents toolStripSeparator4 As ToolStripSeparator
Private WithEvents tsActSize As ToolStripButton
Private WithEvents tsFitPage As ToolStripButton
Private WithEvents tsFitWidth As ToolStripButton
Private WithEvents tsZoomOut As ToolStripButton
Private WithEvents toolStripSeparator7 As ToolStripSeparator
Private WithEvents txtZoom As ToolStripTextBox
Private WithEvents toolStripPercentlabel As ToolStripLabel
Private WithEvents tsZoomIn As ToolStripButton
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents grpdokumentvorschau As GroupBox
Friend WithEvents DokumentEinemAnderenPartnerZuordnenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DokumentExportierenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PerMailVersendenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SaveFileDialog1 As SaveFileDialog
Friend WithEvents DokumentBearbeitenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tsbtnvorlagen As ToolStripButton
Friend WithEvents ToolStripMenuItem2 As ToolStripSeparator
Friend WithEvents NeuesDokumentAusVorlageErstellenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents grpdokumentvorschaupdf As GroupBox
Private WithEvents pdfViewerControl1 As Syncfusion.Windows.Forms.PdfViewer.PdfViewerControl
End Class

464
DPM2016/Dokumente/clsDokumente.resx Normal file
View File

@@ -0,0 +1,464 @@
<?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="tsbtnnew.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++27lAhrAoM7A6cQgLRnPsFk2mWGbYhrDNuV0IA3EaftFf3Y+sP3f/sDqf9gm8Q8gMRgG
qRWPZ9jAZ8EgBA4HIGBEwfYMLOGHmN7UPeb4X/eY67/7ciZQLKCqgWAcABiNiecY3nS8YvgPwj5rGEhP
B7kXBN4s+CT/f/5H+f9hG3lJNyBpr+6bOQ89/oNwwCJ1Eg1gYGCSymXYYdjGcAOExeIZ5kHFSQIsDCoM
7GDMwMAMEUIHDAwArmHzT5KTHe0AAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton4.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIXSURBVDhPlY9dSJNhFMffCylqduHIEk2pbaWwqMyLpCsL
+sAwJRlBBNLozoYSXhQFr6N1ZRdBH2AXo959tll799GcbrWtmN2EoIXkWiOc1t7emdvcRRu5f8/guWyb
/eDPeZ5z/uec52E2g18mc75ra7tJr//HdE/Pw/sMA31dHQJy+ce3CkU9LVWnuPC4cz4ehfv2XdwjQ8Yl
ErxobMSsTNZNLZX5PXdDTE92IBl9gtiigPG9MjyoqYFLKr1FLeXZiOm4X/6zSDpbsWxisOI/hegPEa80
Q9+opTzFuO5MOqRC0q0kA+RYnpBC9Lbju20L4nPPW6nt30S9mq1C8GpeIJtTUyeQsO/A6lQXGaTAH79E
Q23l2ZgfDggeJVanT5MXHCSbOyD6jiPr3RWhlvIUo9fVKW8nfnqOYC2ogkC+sPamDyx7oPjJVl9LbeUp
LDxKCJ525N5fgzh5DJnQJaTI9mJo/wVqqUz+81OkF3mkZ+8g87qXbD+PQujoBC1XZmzssgQCj+yXl1hf
CiKXCCAX6V6n5eo0N+9WXuzrQuarG3khAhRituzKh520XJ2mlpZz27bXYk9Dgyu1NNNE05sjHA7vY1l2
VKvV6jiTSaXXPxswm82DDodjpCSe5weJ1ERXXC5Xv9PpPOnz+RS0nWHsdvshi8XSS5oGDAbDkNFoHCFx
lES2JHou5YaJ1BzH9Vut1sMMwzB/AbGNI/RUTiAEAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsbtnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABSSURBVDhP3YxbCgAgCAQ9ukfzZkXBlkIv7Sf6GNB1HRKR
dEMVEFEII2Du4Yr2eCMAdUfoEejubwIcVujeUHDKVFDmHSFB6ekuskcEOHgxghiSMjk0Kh+omBHQAAAA
AElFTkSuQmCC
</value>
</data>
<data name="ToolStripButton2.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJASURBVDhPfZNLSxtRFMdn5Suah0oChhiJmlGj8RGfiKIi
gouAEPULuMlSxe+Rrbt8hKEWGfJobNq5k0ZaJ7Vgq90ILW5auiiFLv8955oJiU37hwPDPfd3/ufMvVex
VTk4SF0mEprmcrmrS39JCwbdpZ0dzdjeTlWXHvUhmUw/nJ7i7e4uspGIxRurqZqqsPXp5ATG4iJyo6Np
mWBnCScSMNfXIVZXoatqQ5EafHwMMTcHY2ZGRkZVUwq3zc42LJaXYSwtQQ+HZZEafHQEEYtBTE3VQh8a
0hSemduuh435eRizs9BDIasUj1u3h4cwydGcnIQZjaJEwblal/zBbdfDggB2+ZhMojQ9LaE3FOWJiUbY
lixCbdfD7ChGRmAMDEAEgzApss1gW7IIbTDIqRgIoOB04iXFK7cboqcHus/3b5jFSbG1ZVnxOF50dkr4
tccDs7cXZa8XWb///+5Fgiv7+8gTeFEHX/p8eNfXh/f9/cgHAs3nL25sWJW9PeTIuUBRdLlk22WCr/x+
XNP8N6EQboeHUXx6AgxbBGccDuQ6OnDR1SXdeeYctc3ON4OD+KyquI9E8IX+kajeE8XY3NSu6CLp7e3I
tLUhT0V4dt3rlRs4uO27cBj34+N4oCP9RrfxOx13SVU1pbCwkDpvbYXe0oIsFeGfd97d3TCn7JLa/krH
yuBPunC/VlZQiUYfH9WZw5G2Czx7AtviNZMu2w96SL/X1nAXiz0+JltnTmfqucejNYNtca48NqZd286K
ovwBHtVvxMSvxBEAAAAASUVORK5CYII=
</value>
</data>
<data name="tsbtnvorlagen.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG
YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9
0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw
bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc
VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9
c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32
Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo
mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+
kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D
TgDQASA1MVpwzwAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ImageList1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
</metadata>
<data name="ImageList1.ImageStream" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAACU
CgAAAk1TRnQBSQFMAgEBAwEAAYgBAAGIAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm
AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM
AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA
ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz
AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ
AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM
AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA
AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA
AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ
AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/
AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA
AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm
ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ
Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz
AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA
AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM
AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM
ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM
Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA
AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM
AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ
AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz
AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm
AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw
AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wMAAf8B9AHzCFIBTAJL
AgAB/wH0AfMIUgFMAksBAAH/AbwLcwH0FQABUgp6AVIEAAFSCnoBUgEAAf8BHAMbB/IB8QHzFAAB/wGa
CnoBeQMAAf8Bmgp6AXkBAAH/ARwC8wQbBPIB8QHzFAABdAGgAeUHegHlAVIBegMAAXQBoAHlB3oB5QFS
AXoBAAH/AZgF8wMbAvIB8QHzEwAB/wGaAqAB5QZ6AZoBWQF6AgAB/wGaAqAB5QZ6AZoBWQF6AQAB/wEc
BvMDGwLyAfMTAAF5AcMDoAHlA3oB5QGgAVIBWQGaAgABeQHDA6AB5QN6AeUBoAFSAVkBmgEAAf8BmAjz
AhsB8gHzEwABmgHDApoCoAHlAnoB5QGgAVIBWQGaAgABmgHDApoCoAHlAnoB5QGgAVIBWQGaAQAB/wHv
CfMBGwHyAfMSAAEaAsMEoALlAXoBoAF0AlkBmgEAARoCwwSgAuUBegGgAXQCWQGaAQAB/wEHCvMB8gHz
EgABmgTDA6AC5QGgAVICegEaAQABmgTDA6AC5QGgAVICegEaAQAB/wEHCvMB8gHzEgAE9gPDAV4D+wFe
AVkBegEaAQAE9gPDAV4D+wFeAVkBegEaAQAB/wEHBvMB8gPxARwB9BIABP8BegX7AcMBWQKaAcMBAAT/
AXoF+wHDAVkCmgHDAQAB/wEIBvMB/wH2AvQBHAH/FQABegL7AV4C+wH/AZoBGgKaAcMEAAF6AvsBXgL7
Af8BmgEaApoBwwEAAf8BvAP0A/MB9gH0AfMBHAH/FgAB5QF6AVkBegGgAfsBmgHDAvYBwwH0BAAB5QF6
AVkBegGgAfsBmgHDAvYBwwH0AQAB/wHwBPQC8wL0AZkB/xsAAXoBXgF6DQABegFeAXoGAAH/AfAF9AHz
AfQBBwH/HQABegFZDgABegFZBgAB/wHxBvQB7wH/HwAB9A8AAfQHAAH/BvQB/xYAAUIBTQE+BwABPgMA
ASgDAAFAAwABEAMAAQEBAAEBBQABgBcAA/8BAAHAAQABwAEAAYABAQIAAfABAAHwAQABgAEBAgAB4AEA
AeABAAGAAQECAAHgAQAB4AEAAYABAQIAAcABAAHAAQABgAEBAgABwAEAAcABAAGAAQECAAHAAQABwAEA
AYABAQIAAYABAAGAAQABgAEBAgABgAEAAYABAAGAAQECAAGAAQABgAEAAYABAQIAAYABAAGAAQABgAEB
AgAB8AEAAfABAAGAAQMCAAHwAQAB8AEAAYABBwIAAf8BHwH/AR8BgAEPAgAB/wGfAf8BnwGAAR8CAAH/
Ad8B/wHfAcABPwIACw==
</value>
</data>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>391, 17</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>391, 17</value>
</metadata>
<data name="btnFirstPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHGSURBVDhPYxhcoGH1q/8gXLfyxf/SpU/3Q4XhILj3ZntA
/c0vUC4maFj94v+Wc5/+Lzr47n/BgocoBnh3Xm/3ql/8z7Xlxn+oECYoX/bs/4bTH/7P3ffmf+pMhAGe
LVf7Mufe/z9hy/P/ltWXcBtQsODR/9Un3v+ftvPV/5iJd8EGuLdcm5c26/7//q3P//duevZfp+Q8bgNS
Zz/8v/TI2//9W178D+y8ud+x/vKSlOl3/0/Y+gwYLo/+t6598l8u+yxuA2Im3f8/78Dr/zN2v/xvVn/i
R/Gih//7Nj/7X7n84f/sOXf/1614+F8q6QRuA4K6b4I1gzRZVl94kzvv3v+2dU/+Fy68/z9p+u3/ZYvv
/5eIPIbbAFAIT9z24n/5kof/tYrPH5DNPL3GpfHy/6rlD/4nT7/1v2D+vf/iQQdwGwAK4a6NT//nzr33
XzbzLDgQJaOOrLQtv/A/b/7d/1mz7/wX89qL2wBQCDevefw/FehcycQT8GgU89i9yCL7FNgVIo67cRsA
CuFqYEDFTbwB9OtRlIQkYrd1gXHKsf/CNttxGwAKYcmYY/8lQo/8Fw08gGIACAgZbpwtZLkNtwEDABgY
AAGxDIsu6kURAAAAAElFTkSuQmCC
</value>
</data>
<data name="btnPrvPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAA0AAAASCAYAAACAa1QyAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFVSURBVDhPnc9LSwJRGMbx8xm6ENE3aBctoiBoV7RsFwRC
drGMQCGMMCiiC0ThZrpoYZIEISGUkBJCQUgSUUEF5VgjMqVRq3FmvCyeHGHEacZgWvzgwPP+F4cUCgXo
9b8on89Dr6qR/+obEzsJzU0z8kW+YNxg0O+IqzYJyeVyqLR/kcbMAQtn+BO9y8+KTaaINoMfmPImsX2W
BhVKocP+oDiWlaP1AAvLHlMKlvws1o7f0Wy9VQUSks1mYaRiMO8yoIIpzPuSsHresHCURNNwFNL+Wyma
9jIwUDRWT1jYiu9RJ138VwKNA5HqES+IMLti6Fl8gv0wgZGtGCyeVzT0nWtHoihCNuR4RKftDpPuOMZc
NOq7w+WtEhEEAZVMK/doM0cxSL2griuk2GSqSGKau0GL4RK17aeqTUJ4noeW8dlr1LQGNLeq0V9IJpOB
XoTjOOjD4QeGDVYMZCqaCAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnNxtPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAA8AAAARCAYAAAACCvahAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAFSSURBVDhPnc2/SwJhHMfx56+IaO0/CJoqGhyDlqagRaeC
ECpFjH4YFHcVRLRIW3ZSloRJRERLRlCRcZbkEuKPk/xBGXF3nj+GTzoI+jzPEDe8luf7ed+RRqMBs0i9
XodZ3HgjVMS1/Mu807ixJ1jCciCPi2iZuXUitVoNNPfxJ84efyCcFyBFisy9jRvbD7IIPJQh3X3D6Vew
Hc4xmxZubPNm4It8Ye+qgP2bIqzeJJyHSWZHqtUqaBM7H82oBM+pgrWggq3mn8fEBAYWnrt23NiynsDu
ZR4OKQ2XP938QBaW1TimxPeuHTcedL1BCOUw70th6SSD0cUYrJtxaLrRtSOGYYDWb3/BSiAD91EaI64Y
bEKM2bSQSqUCWp/tCU4phWGHjGnxlbm3cePeyXsMzUUxI8jMrRPRdR20nvFbzIoy807jxv9FNE2DWURV
VZij4g8vAaumPuiPLAAAAABJRU5ErkJggg==
</value>
</data>
<data name="btnLastPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHJSURBVDhPzZDdS1phHMfP31C2rIv+gLF/wIhBowZrLKgx
QgqJ3qCC6I1GCVpb5kwaS2q9SCZWYjsVZZD0+hyYhTexrQ3RmDo9aifX2k0XXfXtPHEIxniu6wvPxe8L
z+f348Pdrxh56cLgkczKeJvGqTipHY9B+yGCSmsYSv1/+nkJeqP3qsOV+AdSMxoh1vUTTO9kUDoYYgNe
u9NYDvzFu1UJdR+j75Waq7CEyeBKEmM+CRr9ERvQ7kyAlwHuz+foc6fwwhJy0F7eSvQeESPeNB51f2ED
Gu1xLPj/YGIrA8deBs0zMWh6v85rer+RLtcvmJaTKGg9ZANqbDE4hN8wr6ZhWUvDJp/cJkMedgYuB/gE
DJ448usCbAA1PLl9CuMnEW94EVZvCk1TERQ0HJ51z8XQIz+19oANoIZHNyQYF0X5giSem4PIrw8syVsF
nS2M9tkocisFNoAaHl5LYUg2/tQURF7t/iLt1dp9UmUNosX+Ew/KdtkAavjtkoiSge/Iqz5wKTWXUyGQ
l6YfqJ84hqp4mw2ghp/Qz1q/U6lukvNsl5T3H0E3FkJ2kY8NoIbVrwS7Mt5GVbxJVI83kV3oQ5Zmgw24
g3DcNd2nC/FvSQWXAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsActSize.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABEAAAASCAYAAAC9+TVUAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAI1SURBVDhPzZPZU1JhGIfPX5aBoomGgMi+QywlKktD1OTY
WDgJmJmFTQ5maW4tII1JZGSazDTZctN/IC1q08QOF7/O+WiYCO+46eL5Lt7fmWfe77zvR5XLZTQK5Upa
wODcMcPxxgT71qkjP2QwrSlhfKqAflUG7RMp1I/EpE4kvveXMP7BSwSHmQP0vTKgVCrVwAgO0vswrirg
idvhjvVDuSwiGcV0MLo7hIXPIfjfDcP52orel/o6iTEqhz4iw7n4ACaTAZx/7oR8UViROLZNcGybMfJ2
EFO7Y5j5FMSZF9o6iY4W3Ej6cSVxEZ6YA7IFISTz/Ipk4M8VbAkDEdz9OAVrTINisViD5rEEEzt+BLZG
oF6WYP/Xd/Tc45GMYg5bQo/eDR1Ox7WwxNQwP1PVSVQrPVAsdVc6mONXBQxE0ihUoVBAo/xHknw+DwO9
A8wImQmoHtI/kF4ipv43glAH+NNc8G6fQGewDdybnGpGMYJvP7/CGFZidPMyfJteMoFcLldD1x0uBtc8
8ERdRJA6TKHtejPJKF1YSjpwr9txYd0F78YQGeG/kpN0B+6oE5YlA9SzcrRPtIBzjVWRaOhHxAiuJobR
F7FUdyCbzdbQcasVvCAX+jkNzobtUIQkaAkcJxmlXBGhP2qFLWKGdF6ALz9SEM501knaJznYO9hD6zgb
2lkl5NNisP1NFYl8sRvSBwKI73dBNMsjgkwmcySMgDPGQjPdAdvXBNboMVKn0uk0GiON33xM8BfRNAZ2
AAAAAElFTkSuQmCC
</value>
</data>
<data name="tsFitPage.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAATCAYAAACQjC21AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIgSURBVDhP1ZPdT5JRAMbfvywDM28cFaHyFYQQtHxh4gtt
lDIVJ4NARW2tsUpLPrJhLV7RrRk0JNK5Ndfm+guwLa0LPuTj4olzNhqn4R03Xfx2tud59ts5F4drNBro
JlToyN+lCJ8tGM+ZYc/e6TgmmFNamEQNRt6rcPutErrEENNz9Xqdyl5/X0Ps+DmVkewiTos/YRH1WPkS
xOP9eWg3FExPheRmkeNnCB8twXvgxtOjZWbUgshGRQPcu/cxl3FjMeeHOi5nNlQ4vmeGMzeKwKEH69/C
mM0/xJOvIWZIsG6bMLnrxHI+ACFlhSomx3DkOrPharUaxprPPCudwpHl4dufwsyeC6EDP0jXTjA7B+eO
DcIWj8AnL80GX8qYDRW2oNI0j6XDADNqx5ue/ivrBCPsBly1WkU3+Q+E5+fnaGch54M3M8Nk7UzvuKFa
HcSP3ycde65SqcCYVIOcRCakeNjFe/B+9NCsnQnRBVNMD0t8BIqwDIWzAvpDvcyGCg3vlNBvDlOZPzML
x5YNxg0NMyR4Um4YIrfgSjphXNdjYKUffQsSZsOVy2Xomx/cn/HgwbYAQeShi6tw8qsA0v3LVHICulU1
TFEdxhI8rgQvMz0Vat8o4Et74PkwCU1UcaGsxdVFKewJK4RNG6SBHqbjSqVS84PfhDJ6A0OvrkGxJoP8
xQBI3gki65uXoLd5M+mjHkj8l5ieKxaL6CZdFhbxB3vJNtE1aIzMAAAAAElFTkSuQmCC
</value>
</data>
<data name="tsFitWidth.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAARCAYAAADdRIy+AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAG6SURBVDhPvZK5SyNRHMdfoSI27j9gZalipSxaiIWghQu7
gmzARmy3WMTCQhEVvDplYVEbtfCKx6obDxwP4pFEd4URdTQecYlXks2FycwkKb7OGxiZx1gOFh94/D4/
Po83DEmlUjAT84PJZBJm8j7BPWEU/ojHMNd4CJ7D5Z5805FEIgE95147vi/kgr9bZ+Z6HB4rmm2FuLzf
NzgmGHn2o2kiB2U7BDv/bZBkiVmmiLKIFd84yrcJWmfzEX0OMJ4JtlsLUG5Pw9dDgj7+Gy6Vp+k95TTA
o5tvQO0BQcV2Bnp/lTKeyLIMyo+VT6jk0lGkLNb9Ieg4qseYMIS5qwkIgRMc+47U86gwiLa/FliUnWIX
QTWXhWHOojYor8F5VwtqfmeqS1pw4doKu3cDt+EbXIfc6plGteBHB4Fl+QOWDjuNQQq9id74RYn+FFrx
L+x5dRpXwQsMnDXis5OghsvGyFYD44kkSdDTM1+ifhuHf42Z6+GeplG1mYl+W6XBEVEUoScUeULLTB54
zyoz1+N0T6FrsQShqM/gDEHKhXcXweijYa4RCHuVf9D5piPxeBxmYn4wFovBPGJ4AZn40zTeQGXrAAAA
AElFTkSuQmCC
</value>
</data>
<data name="tsZoomOut.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABMAAAARCAYAAAA/mJfHAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAI9SURBVDhPrc9NSJNxAMfxp4snKyioTkaHDKI6RkKHugXd
wovQ0Q5dus1huHwhMB2piUN7MSt1NhFTUpOYuikzmrFNRKdO08oaaq7yeeYzn718e/ZUg6VuBj3wuTz/
3/Pl/wjhcJjduqE3U1ozQFnF4LbngqIopNPZO8bQ1BIvPis0Lyi0zIdoHg9gfjWVtEsb093uJqBEiT91
TpHrrSvc7F3D5JboXo1QUNqR2KaMWe2ztC8Esa+EsUwGKR/+jskl8dKvMLQewaHEGFgV6epxanthc3OT
nVQ+eEvXN9D3BjC8DtDik3FGwKPe0v3bhKrcNKTtU8ZqWj0890PjtRI8RzKZOZDB3B4B38EMfFmZTNUZ
mVRjVWa7tk8ZMz5y0qbGHuor8Zw9zGz2Xi32/ngmH3MOMd9qYlqNVdTbtL0QCoXYiXXYh2VR5t47icEf
Ee234jdZU4VUsmpclOnuG9P2KWOjb7zcqrbS8SWCTfwVi/OqPqhiqsrqnsR+25gyP0zEXY9/wsrdqiYM
tZ30f/qKKxrVYq5oDMeySP/oHJZ2R+I7QZZl/ha7fwYsF1gqOkbu5fPauyu5d9CXdVDd5KCidoTCwr4t
3wkbGxv8EZq1EWs4BU/PIZZkYc4/QZGuLnGeTlIs1nAa2i+yXpxFY95+DPqGpHE6QjAYJC5qOgnPcgiW
HqUtPxuDrpbpmWXtbLcSsceFl5DUX2vK24ehwLRluBuCJEnEjYyM8sRwlWKdEa/Xr737V4IoivwfIj8B
DBSBX45AyqIAAAAASUVORK5CYII=
</value>
</data>
<data name="tsZoomIn.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABQAAAAVCAYAAABG1c6oAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAJVSURBVDhPxZFbSJNhGMe/oosgaF0VRBZ1UXS8LhCqu6C7
8Ebo0ou66W4Oy2VKYB5yOhybUU0zpxMxBWcS88wWaWgibh4aM7RMrUX7Nje/HX59G/TBUqfFoBd+PPA8
z//H+/IKkUiETPJ/hXc0Foqreykp69t0nkCQJIntaLeN0u9a5NVniUavxEtPmMYJH5bXrg272wrVDzvx
STESp3ZE5HbTCndt3zGMB+hcjZJf3Jayn1ZoH5yl1RtkcCWCdSpIS1EFc/t24TTW0O+P4pDi9K6KdHSN
KBlhfX2drSh/8o6OH6Cx+dC+8WErrcS7R8DdqGdcvnGCSZlSQ7+SSSusbvpAyxLU3yphKkuF5+DepNB7
SK4nVMwYK5mShVWWQSWTVljxdIRmWWi+V4UrOwvv2QNJ4cJpFV8vH2G+xcS0LCwzDigZIRwOsxX2oTms
8yFq3gfo+xnF1VCdFK7W6wjLopDMhBiis3tUyaQVOt+6ua+z0/YlyoAoC611eA/vxiPXT7IsLlOu60rJ
bCqUPENEx40sTdp5XGVGq2+nZ+EbY7FY8iPGYnEcyyI9zo9YWx0pWSEUCvEn8boLYL3CYuFxcq5nJ3s3
ch6hKWlDZ3ZQph+moKB7Qy6BsLa2xm/CswPETeeg4SLig6NY8k5RqK5V5jshRRg3nYfWq/iLjvIsV4VW
Y0pZ3glCMBgkQcxwBl5cIlh8jOa8k2jVeqZnlpOzv0ERPi+4RkB+pjl3P9p8w4bFnSIEAgESDA87qdfe
pEhdgdu9lOz9C4IoimSSzAv9fj+Zw88v9Dvul8vs9JEAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABAAAAAVCAYAAABPPm7SAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHgSURBVDhPpY7dS1NxGIDPXxKVZdmHiYiEdNN/EHQlJYmh
fbEmm1PX5tH50dSkEGthpaa0ky2DkJUtcaU15ooQzdSoi6CibrrY19nXxdMmOPohcQbn4rl4ed734ZUy
mQx6kNLpNFskU0l837z5uRCEgLIxhjMkCwta5ANTX9z0vZNxLto5/6KG+menMM400L/QhXftKb/Dv7Yd
55BSqRTTX6fozR571sd5vDHO5PoYyqcRRpdvcT3YQ/PMZa76HHz8vkxu/182A08+K/QEbZuHD9dGca/e
Y2J1mPsrt3F9GODu0hBtLy04pm38/PNjeyDHg5UR2uct2P0majwnqVZOYPZeZDDUl43c4Ob7Ac5N1vJo
UREDyWSSLYZDQ7Q+b8zPd966qJ2opj/QhTPQTkvWmdyGvM8hBNSEimdJERZc/kHOuk9zLdhNb6CTKrlC
8ELgfxx3VmU/6KD7jUyltUxwUiKRQItjjko6F+x0zF+hvOmw4CRVVdHiqL0c+bWVtlfNlBpLBFdQoKLl
CDa/BeucmQOXigUnxeNxtCgzHaR1zoRltpF9DUWCKyhwyLCfplkjZp+BPXU7BSfFYjG0KLmwl+L63RRl
j3ed2SE4KRqNogf9gUgkgh6kcDiMHnR+EOEviLWq1b39p/gAAAAASUVORK5CYII=
</value>
</data>
<data name="ToolStripButton3.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABMAAAAUCAYAAABvVQZ0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAHcSURBVDhPrdHLSxtRFAbw+Z+6kFa0qKioKFZUhC7EFxg0
RcWKIgg+Yow1MYnRZIxJmigKvkoRgyQLFz7is/Ftu6lbRVd5TCbJ4nPuhQzGyWICs/gt5txzv7mcwyST
SShF2bBEIgE5tv5ugo/zGc9SZIcN+LrBHs1kPEuRhD1HnuB/8MJ8MokenwrNvxvQuF6Hfl8X+rxqLASs
af1vMfF4HCn/Xu5hPZ+G5nAQs+dT+HllxdKNHZ5rFs7LOcwHzfj2qw2uA7t45y0x7Cn8KARMw3Q6gZU7
p3DZAs8NSwMdFxbYgzP0R6q1Jth2ZyVBhBjm/+/F2P4Alm8dWBRew/4x4fuOGvXuStQslKNzsxXtq00w
+/WSkBSG53kQhmOtMCcd7Bdm+oKOjRY4AjZ6RqgWm6HbHhO/MxHDWoRBu69tdDa93o60IMK97wQX49Jq
74lhZGNkNmTIta4KSaMcTCwWA/F15QvYoBFzZwZUs6W0li2G4zgQ9Z5KWE71wjYnUWEporVsiWFkY0Zh
AfqjcZQaPksa5WCi0SiIKmsJfgQ00B2OoFCXS2vZEsPKTIXQHgxDszeE/NEcSaMcTCQSAVE8lY8C7Sfk
jeTg49AHWssWEw6HoRRlw0KhEJQRwiu1nmGGw8uMdQAAAABJRU5ErkJggg==
</value>
</data>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>234, 17</value>
</metadata>
<data name="C1Dokumente.Images" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAAAkAAAAJCAYAAADgkQYQAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8
YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAA0SURBVChTdYkBCgAgDAL9/6eLIsd0eSCKhw/r9aCLtC88
vAdHMEIXKUIUhMK76EfagglgA6CqHOQpL6GyAAAAAElFTkSuQmCC
</value>
</data>
<data name="C1Dokumente.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="C1Dokumente.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:ControlLight;}Style3{}Footer{}Style14{}Heading{Wrap:True;Border:Flat,ControlDark,0, 1, 0, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{}FilterWatermark{ForeColor:InfoText;BackColor:Info;}Style16{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:Info;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" FilterBar="True" 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, 721, 172&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="FilterBar" me="FilterWatermark" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 721, 172&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style15" /&gt;&lt;PrintPageFooterStyle parent="" me="Style16" /&gt;&lt;/Blob&gt;</value>
</data>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>498, 17</value>
</metadata>
<data name="PdfViewerPrinterSettings2.PrintLocation" mimetype="application/x-microsoft.net.object.binary.base64">
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj00LjAuMC4wLCBDdWx0
dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAABVTeXN0ZW0uRHJh
d2luZy5Qb2ludEYCAAAAAXgBeQAACwsCAAAAAAAAAAAAAAAL
</value>
</data>
</root>

614
DPM2016/Dokumente/clsDokumente.vb Normal file
View File

@@ -0,0 +1,614 @@
Imports System.ComponentModel
Imports System.Net.Mail
Imports C1.Win.C1TrueDBGrid
Imports DevComponents.AdvTree
Imports System.IO
Imports System.Threading
'Imports Gnostice.Documents.Controls.WinForms
'Imports Gnostice.Documents
Public Class clsDokumente
Dim licenseKey As String = "6F09-41FA-5E5E-101F-E577-BDD0-1BB8-3EFB-3081-2E1F-5264-3475"
Dim dbDokumente As New clsDB
Dim Dokumente As New clsDok
Dim m_patientnr As Integer
Property Patientnr As Integer
Get
Return m_patientnr
End Get
Set(value As Integer)
m_patientnr = value
End Set
End Property
Private Sub ToolStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked
End Sub
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.grpdokumentvorschau.Dock = DockStyle.Fill
Me.grpdokumentvorschaupdf.Dock = DockStyle.Fill
End Sub
Public Sub refreshdata()
Gnostice.Documents.Framework.ActivateLicense(licenseKey)
Me.C1Dokumente.AllowDrop = True
If Me.treestruktur.Nodes.Count = 0 Then
Get_tree()
Me.treestruktur.SelectedNode = Me.treestruktur.Nodes(0)
End If
End Sub
Sub Refresh_Grid()
Update_Grid()
End Sub
Sub Get_tree()
Dokumente.LoadTree(Me.treestruktur)
End Sub
Private Sub tsbtnnew_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
f.ShowDialog()
Me.treestruktur_SelectionChanged(sender, e)
End Sub
Private Sub treestruktur_SelectionChanged(sender As Object, e As EventArgs) Handles treestruktur.SelectionChanged
Update_Grid()
End Sub
Sub Update_Grid()
Dokumente.Update_Grid(Me.treestruktur.SelectedNode.Tag.ToString, Me.Patientnr.ToString, Me.C1Dokumente)
If Me.C1Dokumente.Splits(0).Rows.Count = 0 Then
Me.DocumentViewer1.Visible = False
Else
Me.DocumentViewer1.Visible = True
End If
End Sub
Private Sub C1Dokumente_DoubleClick(sender As Object, e As EventArgs) Handles C1Dokumente.DoubleClick
Try
If C1Dokumente.Columns("indb").Value = "True" Then
Dim d As New clsDok
Dim s As String = d.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value)
Process.Start(s)
IsFileInUse(s)
Else
Process.Start(Me.C1Dokumente.Columns("pfad").Value)
End If
Catch
End Try
End Sub
Public Function IsFileInUse(sFile As String) As Boolean
Try
Using f As New IO.FileStream(sFile, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
End Using
Catch Ex As Exception
Return True
End Try
Return False
End Function
Private Sub NeuesDokumentHinzufügenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesDokumentHinzufügenToolStripMenuItem.Click
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
f.treestruktur.ImageList = Me.treestruktur.ImageList
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
f.ShowDialog()
Me.treestruktur_SelectionChanged(sender, e)
End Sub
Private Sub DokumentLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentLöschenToolStripMenuItem.Click
Try
Dim i As Integer = C1Dokumente.Columns("nreintrag").Value
If MsgBox("Gewähltes Dokument löschen?", vbYesNo + vbQuestion) = vbYes Then
Dokumente.Delete_Dok(C1Dokumente.Columns("nreintrag").Value.ToString)
treestruktur_SelectionChanged(sender, e)
End If
Catch
End Try
End Sub
Private Sub DokumentAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentAnzeigenToolStripMenuItem.Click
Me.C1Dokumente_DoubleClick(sender, e)
End Sub
Private Sub DokumentinformationenBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentinformationenBearbeitenToolStripMenuItem.Click
Try
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag, Me.C1Dokumente.Columns("nreintrag").Value, True)
f.treestruktur.ImageList = Me.treestruktur.ImageList
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
f.ShowDialog()
Me.treestruktur_SelectionChanged(sender, e)
Catch
End Try
End Sub
Private Sub Form1_DragDrop(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
Dim files() As String = e.Data.GetData(DataFormats.FileDrop)
For Each path In files
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
f.txtPath.Text = path
f.txtBezeichnung.Text = System.IO.Path.GetFileName(path)
f.dtTermin.Value = Now
f.ShowDialog()
Next
End Sub
Private Sub Form1_DragEnter(sender As System.Object, e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
e.Effect = DragDropEffects.Copy
End If
End Sub
Private Sub C1Dokumente_DataSourceChanged(sender As Object, e As EventArgs) Handles C1Dokumente.DataSourceChanged
End Sub
Private Sub C1Dokumente_KeyDown(sender As Object, e As KeyEventArgs) Handles C1Dokumente.KeyDown
If e.Modifiers = Keys.Control AndAlso e.KeyCode = Keys.V Then
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.FileDrop) Then
Dim clipbrd As String() = DirectCast(iData.GetData(DataFormats.FileDrop),
String())
For Each path In clipbrd
Dim f As New DokumentDetail(Me.Patientnr, Me.treestruktur.SelectedNode.Tag)
f.txtPath.Text = path
f.txtBezeichnung.Text = System.IO.Path.GetFileName(path)
f.dtTermin.Value = Now
f.treestruktur.ImageList = Me.treestruktur.ImageList
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
f.Massenimport = True
f.ShowDialog()
Next
End If
Me.treestruktur_SelectionChanged(sender, e)
End If
End Sub
Private Sub C1Dokumente_RowColChange(sender As Object, e As RowColChangeEventArgs) Handles C1Dokumente.RowColChange
Try
Dim Previewfilename As String = ""
If Globals.PreViewDir = "" Then
Dim db As New clsDB
db.Get_Tabledata("dms", "", "Select * from dms_Settings where nreintrag=6")
Globals.PreViewDir = db.dsDaten.Tables(0).Rows(0).Item(2)
If Not System.IO.Directory.Exists(Globals.PreViewDir) Then
System.IO.Directory.CreateDirectory(Globals.PreViewDir)
End If
End If
If C1Dokumente.Columns("InDB").Value = "False" Then
Try
Previewfilename = Globals.PreViewDir + "\" + System.IO.Path.GetFileName(C1Dokumente.Columns("Pfad").Value)
If System.IO.File.Exists(Previewfilename) Then
System.IO.File.Delete(Previewfilename)
End If
FileCopy(C1Dokumente.Columns("Pfad").Value, Previewfilename)
Catch
MsgBox("Das Dokument kann aktuell in der Vorschau nicht angezeigt werden, da es blockiert ist.", vbInformation)
Previewfilename = ""
End Try
Else
Try
Dim d As New clsDok
Previewfilename = d.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value, Globals.PreViewDir, True, True)
Show_Doc(Previewfilename)
Catch
Previewfilename = ""
End Try
End If
'Show_Doc(Previewfilename)
Catch
Show_Doc("")
End Try
End Sub
Private Sub Show_Doc(ByVal PreviewFilename As String)
If Not PreviewOK(PreviewFilename) Or PreviewFilename = "" Then
Me.grpdokumentvorschau.Visible = False
Me.grpdokumentvorschaupdf.Visible = False
Exit Sub
End If
Me.grpdokumentvorschau.SuspendLayout()
Me.grpdokumentvorschaupdf.SuspendLayout()
If UCase(System.IO.Path.GetExtension(PreviewFilename)) = ".PDF" Then
Me.grpdokumentvorschau.Visible = False
Me.grpdokumentvorschaupdf.Visible = True
Me.pdfViewerControl1.RenderingEngine = Syncfusion.Windows.Forms.PdfViewer.PdfRenderingEngine.Pdfium
Me.pdfViewerControl1.ReferencePath = Application.StartupPath + ""
Me.pdfViewerControl1.Load(PreviewFilename)
Else
Me.grpdokumentvorschaupdf.Visible = False
Me.grpdokumentvorschau.Visible = True
Try
'Threading.Thread.CurrentThread.Sleep(1000)
Try
DocumentViewer1.CloseDocument()
Catch
End Try
Me.DocumentViewer1.LoadDocument(PreviewFilename)
Catch es As Gnostice.Core.XDocException
End Try
End If
Me.grpdokumentvorschau.ResumeLayout()
Me.grpdokumentvorschaupdf.ResumeLayout()
End Sub
Private Function PreviewOK(ByVal Filename As String) As Boolean
Dim db As New clsDB
db.Get_Tabledata("DMS", "", "Select * from dms_settings where nreintrag=7")
Dim exludefiletypes As String = db.dsDaten.Tables(0).Rows(0).Item(2)
Dim ext As String = System.IO.Path.GetExtension(Filename)
ext = ext.Replace(".", "")
exludefiletypes = UCase(exludefiletypes)
ext = UCase(ext)
If exludefiletypes.IndexOf(ext) > -1 Then
Return False
Else
Return True
End If
End Function
Private Sub tsActSize_Click(sender As Object, e As EventArgs) Handles tsActSize.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.ActualSize
End If
End Sub
Private Sub tsFitPage_Click(sender As Object, e As EventArgs) Handles tsFitPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.FitPage
End If
End Sub
Private Sub tsFitWidth_Click(sender As Object, e As EventArgs) Handles tsFitWidth.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.Zoom.ZoomMode = Gnostice.Documents.Controls.WinForms.ZoomMode.FitWidth
End If
End Sub
Private Sub tsZoomOut_Click(sender As Object, e As EventArgs) Handles tsZoomOut.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.ZoomOut()
End If
End Sub
Private Sub tsZoomIn_Click(sender As Object, e As EventArgs) Handles tsZoomIn.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.ZoomIn()
End If
End Sub
Private Sub btnFirstPage_Click(sender As Object, e As EventArgs) Handles btnFirstPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.FirstPage()
End If
End Sub
Private Sub btnPrvPage_Click(sender As Object, e As EventArgs) Handles btnPrvPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.PreviousPage()
End If
End Sub
Private Sub btnNxtPage_Click(sender As Object, e As EventArgs) Handles btnNxtPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.NextPage()
End If
End Sub
Private Sub btnLastPage_Click(sender As Object, e As EventArgs) Handles btnLastPage.Click
If DocumentViewer1.IsDocumentLoaded Then
DocumentViewer1.LastPage()
End If
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
DocumentViewer1.RotatePagesAntiClockwise90()
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
DocumentViewer1.RotatePagesClockwise90()
End Sub
Private Sub txtGoToPage_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtGoToPage.KeyDown
Select Case e.KeyCode
Case Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5,
Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Delete, Keys.[End],
Keys.Home, Keys.Down, Keys.Up, Keys.Left, Keys.Right, Keys.Back
e.SuppressKeyPress = False
Exit Select
Case Keys.D0, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5,
Keys.D6, Keys.D7, Keys.D8, Keys.D9
If e.Shift Then
e.SuppressKeyPress = True
Else
e.SuppressKeyPress = False
End If
Exit Select
Case Keys.Enter
e.SuppressKeyPress = False
If txtGoToPage.Text.Trim() <> "" Then
DocumentViewer1.GoToPage(Convert.ToInt32(txtGoToPage.Text))
End If
Exit Select
Case Else
e.SuppressKeyPress = True
Exit Select
End Select
End Sub
Private Sub txtZoom_KeyDown(sender As System.Object, e As System.Windows.Forms.KeyEventArgs) Handles txtZoom.KeyDown
Select Case e.KeyCode
Case Keys.NumPad0, Keys.NumPad1, Keys.NumPad2, Keys.NumPad3, Keys.NumPad4, Keys.NumPad5,
Keys.NumPad6, Keys.NumPad7, Keys.NumPad8, Keys.NumPad9, Keys.Delete, Keys.[End],
Keys.Home, Keys.Down, Keys.Up, Keys.Left, Keys.Right, Keys.Back
e.SuppressKeyPress = False
Exit Select
Case Keys.D0, Keys.D1, Keys.D2, Keys.D3, Keys.D4, Keys.D5,
Keys.D6, Keys.D7, Keys.D8, Keys.D9
If e.Shift Then
e.SuppressKeyPress = True
Else
e.SuppressKeyPress = False
End If
Exit Select
Case Keys.Enter
e.SuppressKeyPress = False
DocumentViewer1.Zoom.ZoomPercent = Double.Parse(txtZoom.Text)
Exit Select
Case Else
e.SuppressKeyPress = True
Exit Select
End Select
End Sub
Private Sub DokumentEinemAnderenPartnerZuordnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentEinemAnderenPartnerZuordnenToolStripMenuItem.Click
Dim f As New frmSuche
f.Dokumentsuche = True
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim db As New clsDB
db.Get_Tabledata("Dokument", "", "Select * from dms_dokument where nreintrag=" + Me.C1Dokumente.Columns("nreintrag").Value.ToString)
db.dsDaten.Tables(0).Rows(0).Item("keyvalue") = f.Key
db.dsDaten.Tables(0).Rows(0).Item("mutiert_am") = Now
db.dsDaten.Tables(0).Rows(0).Item("mutierer") = Globals.ActUser
db.Update_Data()
Me.treestruktur_SelectionChanged(sender, e)
End If
End Sub
Private Sub DokumentExportierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentExportierenToolStripMenuItem.Click
Try
If C1Dokumente.Columns("indb").Value = "True" Then
Me.SaveFileDialog1.FileName = C1Dokumente.Columns("pfad").Value
If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim fn As String
Dim dok As New clsDok
fn = dok.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value)
System.IO.File.Copy(fn, SaveFileDialog1.FileName)
End If
Else
If Me.SaveFileDialog1.ShowDialog = DialogResult.OK Then
Dim fn As String
Dim dok As New clsDok
fn = Me.C1Dokumente.Columns("Pfad").Value
System.IO.File.Copy(fn, SaveFileDialog1.FileName)
End If
End If
Catch ex As Exception
End Try
End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As System.ComponentModel.CancelEventArgs) Handles ContextMenuStrip1.Opening
Dim db As New clsDB
db.Get_Tabledata("EditableDocTypes", "", "select wert from dms_settings where nreintrag=3")
Dim s As String = C1Dokumente.Columns("pfad").Value
s = System.IO.Path.GetExtension(s)
s = s.Replace(".", "")
s = UCase(s)
Dim dbw As String = UCase(db.dsDaten.Tables(0).Rows(0).Item(0).ToString)
If dbw.IndexOf(s) > -1 Then
Me.DokumentBearbeitenToolStripMenuItem.Visible = True
Else
Me.DokumentBearbeitenToolStripMenuItem.Visible = False
End If
End Sub
Private Sub DokumentBearbeitenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DokumentBearbeitenToolStripMenuItem.Click
Try
Dim fn As String
Dim fi As FileInfo
Dim dok As New clsDok
If C1Dokumente.Columns("indb").Value = "True" Then
fn = dok.Get_Dokument(Me.C1Dokumente.Columns("nreintrag").Value)
fi = New System.IO.FileInfo(fn)
Else
fn = Me.C1Dokumente.Columns("Pfad").Value
fi = New System.IO.FileInfo(fn)
End If
Dim db As New clsDB
db.Get_Tabledata("DMS", "", "Select * from dms_settings where nreintrag=5")
If db.dsDaten.Tables(0).Rows(0).Item(2) = "True" Then
db.Get_Tabledata("DMS", "", "Select * from dms_settings where nreintrag=4")
Dim dir As String = db.dsDaten.Tables(0).Rows(0).Item(2)
If System.IO.Directory.Exists(dir) = False Then
System.IO.Directory.CreateDirectory(dir)
End If
Dim filenew As String
filenew = Format(Now, "yyyyMMddHHmmss") + "_" + Me.Patientnr.ToString + "_" + System.IO.Path.GetFileName(fn)
filenew = dir + "\" + filenew
System.IO.File.Copy(fn, filenew)
End If
Process.Start(fn)
Dim ts1 As DateTime = Now.AddSeconds(10)
Dim filelocked As Boolean = False
While Now < ts1
If IsFileInUse(fn) Then
filelocked = True
Exit While
End If
End While
If filelocked Then
Globals.Filemanagement.AddFile(Me.C1Dokumente.Columns("nreintrag").Value, fi.FullName, fi.LastAccessTime, Me.C1Dokumente.Columns("indb").Value)
Else
MsgBox("Die Dateiüberwachung für das automatische Speichern konnte nicht initialisiert werden", vbExclamation)
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub tsbtnvorlagen_Click(sender As Object, e As EventArgs) Handles tsbtnvorlagen.Click
Dim f As New frmdokumentvorlagen
f.treestruktur.ImageList = Me.treestruktur.ImageList
f.treestruktur.SelectedNode = Me.treestruktur.SelectedNode
f.ShowDialog()
End Sub
Private Sub NeuesDokumentAusVorlageErstellenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeuesDokumentAusVorlageErstellenToolStripMenuItem.Click
Dim f As New frmdokumentvorlagen
f.Vorlagenselect = True
f.treestruktur.ImageList = Me.treestruktur.ImageList
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Dim Vorlagenkey As String = f.treestruktur.SelectedNode.Tag.ToString
Vorlagenkey = Vorlagenkey.Replace("V:", "")
Dim dok As New clsDok
Dim db As New clsDB
Dim dbv As New clsDB
Dim filename As String
db.Get_Tabledata("DMS", "", "Select * from dms_settings where nreintrag=1")
dbv.Get_Tabledata("DMS", "", "Select * from dms_vorlage where nreintrag=" + Vorlagenkey.ToString)
If db.dsDaten.Tables(0).Rows(0).Item(2) = "True" Then
filename = My.Settings.TempPath
If Microsoft.VisualBasic.Right(filename, 1) <> "\" Then filename = filename + "\"
filename = filename + Format(Now, "yyyyMMddHHmmss") + "_" + Me.Patientnr.ToString + "_" + System.IO.Path.GetFileName(dbv.dsDaten.Tables(0).Rows(0).Item(3).ToString)
dok.Get_Vorlage(Vorlagenkey, filename)
Else
db.Get_Tabledata("DMS", "", "Select * from dms_settings where nreintrag=2")
filename = db.dsDaten.Tables(0).Rows(0).Item(2)
filename = filename + Format(Now, "yyyyMMddHHmmss") + "_" + Me.Patientnr.ToString + "_" + System.IO.Path.GetFileName(dbv.dsDaten.Tables(0).Rows(0).Item(3).ToString)
dok.Get_Vorlage(Vorlagenkey, filename)
End If
Dim dbd As New clsDB
dbd.Get_Tabledata("DMS", "", "Select * from dms_dokument where nreintrag=-1")
Dim dr As DataRow = dbd.dsDaten.Tables(0).NewRow
dr.Item(1) = f.treestruktur.SelectedNode.Parent.Tag
dr.Item(2) = f.treestruktur.SelectedNode.Text
dr.Item(3) = ""
dr.Item(4) = filename
dr.Item(5) = Now
dr.Item(6) = Now
dr.Item(7) = Globals.ActUser
dr.Item(8) = True
dr.Item(9) = db.dsDaten.Tables(0).Rows(0).Item(2).ToString = "True"
dr.Item(10) = Now
dr.Item(11) = False
dr.Item(12) = ""
dr.Item(13) = Me.Patientnr
dbd.dsDaten.Tables(0).Rows.Add(dr)
dbd.Update_Data()
dbd.Get_Tabledata("DMS", "", "Select top 1 * from dms_dokument order by nreintrag desc")
If db.dsDaten.Tables(0).Rows(0).Item(2) = "True" Then
dok.Save_Document(dbd.dsDaten.Tables(0).Rows(0).Item(0), filename)
End If
Me.treestruktur.SelectedNode = SearchTheTreeView(Me.treestruktur, f.treestruktur.SelectedNode.Parent.Text)
Update_Grid()
For i As Integer = 0 To C1Dokumente.Splits(0).Rows.Count - 1
If C1Dokumente.Columns(0).CellText(i) = dbd.dsDaten.Tables(0).Rows(0).Item(0) Then
Me.C1Dokumente.Bookmark = i
Me.Cursor = Cursors.WaitCursor
Thread.Sleep(2000)
DokumentBearbeitenToolStripMenuItem_Click(sender, e)
Me.Cursor = Cursors.Default
Exit For
End If
Next
db.Dispose()
dbv.Dispose()
dbd.Dispose()
End If
End Sub
Dim NodesThatMatch As New List(Of DevComponents.AdvTree.Node)
Private Function SearchTheTreeView(ByVal TV As AdvTree, ByVal TextToFind As String) As DevComponents.AdvTree.Node
' Empty previous
NodesThatMatch.Clear()
' Keep calling RecursiveSearch
For Each TN As DevComponents.AdvTree.Node In TV.Nodes
If TN.Text = TextToFind Then
NodesThatMatch.Add(TN)
End If
RecursiveSearch(TN, TextToFind)
Next
If NodesThatMatch.Count > 0 Then
Return NodesThatMatch(0)
Else
Return Nothing
End If
End Function
Private Sub RecursiveSearch(ByVal treeNode As DevComponents.AdvTree.Node, ByVal TextToFind As String)
' Keep calling the test recursively.
For Each TN As DevComponents.AdvTree.Node In treeNode.Nodes
If TN.Text = TextToFind Then
NodesThatMatch.Add(TN)
End If
RecursiveSearch(TN, TextToFind)
Next
End Sub
Private Sub treestruktur_Click(sender As Object, e As EventArgs) Handles treestruktur.Click
End Sub
End Class
Public Class DocumentNotLoadedException
Inherits Gnostice.Core.XDocException
End Class
Public Class DokumentNotLoadedExeption
Inherits Gnostice.Core.XDocException
End Class

114
DPM2016/Dokumente/clsfilewatcher.vb Normal file
View File

@@ -0,0 +1,114 @@
Imports System.IO
Imports System.Diagnostics
Imports System.Runtime.InteropServices
Public Class clsfilewatcher
Public WithEvents filetimer As New Timer
Public Filecollection As New Collection
Dim FiletimerStoped As Boolean = True
Public Sub AddFile(ByVal Filenr As Integer, ByVal filename As String, ByVal filedate As DateTime, ByVal indb As Boolean)
Dim fi As New System.IO.FileInfo(filename)
Filecollection.Add(New FileToWatch(Filenr, filename, fi.LastWriteTime, indb))
If FiletimerStoped Then
filetimer.Start()
filetimer.Enabled = True
FiletimerStoped = False
End If
End Sub
Sub New()
filetimer.Interval = 1000
End Sub
Private Sub filetimer_Tick(sender As Object, e As EventArgs) Handles filetimer.Tick
If Filecollection.Count = 0 Then
filetimer.Enabled = False
filetimer.Stop()
FiletimerStoped = True
End If
For i = 1 To Filecollection.Count
Dim ftw As FileToWatch = Filecollection(i)
Dim fi As New System.IO.FileInfo(ftw.Filename)
If IsFileOpen(fi) Then Exit Sub
Dim finew As New System.IO.FileInfo(ftw.Filename)
If finew.LastWriteTime > ftw.Filedate Then
If ftw.InDB = True Then
Dim d As New clsDok
If d.Save_Document(ftw.FileNr, ftw.Filename) = False Then Exit Sub
End If
End If
Filecollection.Remove(i)
Next
End Sub
Private Function IsFileOpen(ByVal file As FileInfo) As Boolean
Dim stream As FileStream = Nothing
Try
stream = file.Open(FileMode.Open, FileAccess.ReadWrite, FileShare.None)
stream.Close()
Return False
Catch ex As Exception
Return True
If TypeOf ex Is IOException AndAlso IsFileLocked(ex) Then
' do something here, either close the file if you have a handle, show a msgbox, retry or as a last resort terminate the process - which could cause corruption and lose data
End If
End Try
End Function
Private Shared Function IsFileLocked(exception As Exception) As Boolean
Dim errorCode As Integer = Marshal.GetHRForException(exception) And ((1 << 16) - 1)
Return errorCode = 32 OrElse errorCode = 33
End Function
End Class
Public Class FileToWatch
Dim m_filenr As Integer
Property FileNr As Integer
Get
Return m_filenr
End Get
Set(value As Integer)
m_filenr = value
End Set
End Property
Dim m_filename As String
Property Filename As String
Get
Return m_filename
End Get
Set(value As String)
m_filename = value
End Set
End Property
Dim m_filedate As DateTime
Property Filedate As DateTime
Get
Return m_filedate
End Get
Set(value As DateTime)
m_filedate = value
End Set
End Property
Dim m_indb As Boolean
Property InDB As Boolean
Get
Return m_indb
End Get
Set(value As Boolean)
m_indb = value
End Set
End Property
Sub New(ByVal Filenr As Integer, ByVal Filename As String, ByVal filedate As DateTime, ByVal indb As Boolean)
Me.FileNr = Filenr
Me.Filename = Filename
Me.Filedate = filedate
Me.InDB = indb
End Sub
End Class

50
DPM2016/Dokumente/dmstest.Designer.vb generated Normal file
View File

@@ -0,0 +1,50 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class dmstest
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.ClsDokumente1 = New DPM2016.clsDokumente()
Me.SuspendLayout()
'
'ClsDokumente1
'
Me.ClsDokumente1.Dock = System.Windows.Forms.DockStyle.Fill
Me.ClsDokumente1.Location = New System.Drawing.Point(0, 0)
Me.ClsDokumente1.Name = "ClsDokumente1"
Me.ClsDokumente1.Patientnr = 0
Me.ClsDokumente1.Size = New System.Drawing.Size(960, 641)
Me.ClsDokumente1.TabIndex = 0
'
'dmstest
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(960, 641)
Me.Controls.Add(Me.ClsDokumente1)
Me.Name = "dmstest"
Me.Text = "dmstest"
Me.ResumeLayout(False)
End Sub
Friend WithEvents ClsDokumente1 As clsDokumente
End Class

120
DPM2016/Dokumente/dmstest.resx Normal file
View File

@@ -0,0 +1,120 @@
<?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>
</root>

6
DPM2016/Dokumente/dmstest.vb Normal file
View File

@@ -0,0 +1,6 @@
Public Class dmstest
Private Sub dmstest_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.ClsDokumente1.Patientnr = 1
Me.ClsDokumente1.refreshdata()
End Sub
End Class

126
DPM2016/Dokumente/frmImportVorlage.Designer.vb generated Normal file
View File

@@ -0,0 +1,126 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmImportVorlage
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(frmImportVorlage))
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(12, 19)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(69, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Bezeichnung"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 50)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(32, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Datei"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(87, 16)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(347, 20)
Me.TextBox1.TabIndex = 2
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(87, 47)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(329, 20)
Me.TextBox2.TabIndex = 3
'
'Button1
'
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.Location = New System.Drawing.Point(406, 45)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(28, 23)
Me.Button1.TabIndex = 7
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(15, 100)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 8
Me.Button2.Text = "Speichern"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(359, 100)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 23)
Me.Button3.TabIndex = 9
Me.Button3.Text = "Abbruch"
Me.Button3.UseVisualStyleBackColor = True
'
'OpenFileDialog1
'
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
'
'frmImportVorlage
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(458, 142)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "frmImportVorlage"
Me.Text = "Neue Vorlage erstellen"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents TextBox2 As TextBox
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents OpenFileDialog1 As OpenFileDialog
End Class

132
DPM2016/Dokumente/frmImportVorlage.resx Normal file
View File

@@ -0,0 +1,132 @@
<?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>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABgAAAAYCAYAAADgdz34AAAABGdBTUEAALGPC/xhBQAAAJ5JREFUSEvt
ktEJwCAMRDNKR3CDdpNmA0fQERzJzVIjCUjJR2rbPx88kNK7AxEWi/+otdITJebHKmFLKYSIXT7rN4n5
uRerWqrnEEIfk5ifGCOltHfH0lEub7/ODXAxUerq0CiXjmMS88MlOmD5+cB57nQcYLpt8G6Ay3MGU0SY
e0U64CmfviJv+dRAw7xv9f50JeOnhfITJbZYfA7ABZaBdfkxFkkPAAAAAElFTkSuQmCC
</value>
</data>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

85
DPM2016/Dokumente/frmImportVorlage.vb Normal file
View File

@@ -0,0 +1,85 @@
Public Class frmImportVorlage
Dim m_strukturnr As Integer
Property Strukturnr As Integer
Get
Return m_strukturnr
End Get
Set(value As Integer)
m_strukturnr = value
End Set
End Property
Dim m_eintragnr As String
Property eintragnr As String
Get
Return m_eintragnr
End Get
Set(value As String)
m_eintragnr = value
End Set
End Property
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If Me.OpenFileDialog1.ShowDialog = DialogResult.OK Then
Me.TextBox2.Text = Me.OpenFileDialog1.FileName
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If Me.TextBox2.Visible = False Then
change_Description
Exit Sub
End If
If Trim(Me.TextBox1.Text) = "" Then
MsgBox("Die Bezeichnung fehlt.", vbExclamation)
Me.TextBox1.Select()
Exit Sub
End If
If Trim(Me.TextBox2.Text) = "" Then
MsgBox("Die Datei-Vorlage muss angegeben werden.", vbExclamation)
Me.TextBox1.Select()
Exit Sub
End If
If Not System.IO.File.Exists(Me.TextBox2.Text) Then
MsgBox("Die ausgewählte Vorlage ist nicht vorhanden.", vbExclamation)
Exit Sub
End If
Dim db As New clsDB
db.Get_Tabledata("DMS", "", "Select top 1 * from dms_vorlage where nreintrag=-1")
Dim dr As DataRow = db.dsDaten.Tables(0).NewRow
dr.Item(1) = Me.Strukturnr
dr.Item(2) = Me.TextBox1.Text
dr.Item(3) = Me.TextBox2.Text
dr.Item(4) = True
dr.Item(5) = Now
dr.Item(6) = Now
dr.Item(7) = Globals.ActUser
db.dsDaten.Tables(0).Rows.Add(dr)
db.Update_Data()
db.Get_Tabledata("DMS", "", "Select top 1 * from dms_vorlage order by nreintrag desc")
Dim dok As New clsDok
dok.Save_Vorlage(db.dsDaten.Tables(0).Rows(0).Item(0), Me.TextBox2.Text)
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Sub Change_Description()
Dim s As String
s = Me.eintragnr
s = s.Replace("V:", "")
Dim db As New clsDB
db.Get_Tabledata("DMS", "", "Select * from dms_vorlage where nreintrag=" + s)
db.dsDaten.Tables(0).Rows(0).Item(2) = Me.TextBox1.Text
db.dsDaten.Tables(0).Rows(0).Item(6) = Now
db.dsDaten.Tables(0).Rows(0).Item(7) = Globals.ActUser
db.Update_Data()
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class

232
DPM2016/Dokumente/frmdokumentvorlagen.Designer.vb generated Normal file
View File

@@ -0,0 +1,232 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmdokumentvorlagen
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(frmdokumentvorlagen))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.tsbtnnew = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.treestruktur = New DevComponents.AdvTree.AdvTree()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.NeueVorlageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VorlageÄndernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.VorlagelöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NodeConnector1 = New DevComponents.AdvTree.NodeConnector()
Me.ElementStyle1 = New DevComponents.DotNetBar.ElementStyle()
Me.ElementStyle2 = New DevComponents.DotNetBar.ElementStyle()
Me.VorlageAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1.SuspendLayout()
Me.GroupBox1.SuspendLayout()
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'ToolStrip1
'
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton1, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(674, 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"
'
'tsbtnnew
'
Me.tsbtnnew.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.tsbtnnew.Image = CType(resources.GetObject("tsbtnnew.Image"), System.Drawing.Image)
Me.tsbtnnew.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnnew.Name = "tsbtnnew"
Me.tsbtnnew.Size = New System.Drawing.Size(23, 22)
Me.tsbtnnew.Text = "Neuer Datensatz"
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = CType(resources.GetObject("ToolStripButton4.Image"), System.Drawing.Image)
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(23, 22)
Me.ToolStripButton4.Text = "Bearbeiten"
'
'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 = "Löschen"
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.treestruktur)
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Fill
Me.GroupBox1.Location = New System.Drawing.Point(0, 25)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(674, 425)
Me.GroupBox1.TabIndex = 3
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Dokumentvorlagen"
'
'treestruktur
'
Me.treestruktur.AccessibleRole = System.Windows.Forms.AccessibleRole.Outline
Me.treestruktur.AllowDrop = True
Me.treestruktur.AllowExternalDrop = False
Me.treestruktur.AllowUserToResizeColumns = False
Me.treestruktur.BackColor = System.Drawing.SystemColors.Window
'
'
'
Me.treestruktur.BackgroundStyle.Class = "TreeBorderKey"
Me.treestruktur.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.treestruktur.ContextMenuStrip = Me.ContextMenuStrip1
Me.treestruktur.Dock = System.Windows.Forms.DockStyle.Fill
Me.treestruktur.DragDropEnabled = False
Me.treestruktur.DragDropNodeCopyEnabled = False
Me.treestruktur.LicenseKey = "F962CEC7-CD8F-4911-A9E9-CAB39962FC1F"
Me.treestruktur.Location = New System.Drawing.Point(3, 16)
Me.treestruktur.Name = "treestruktur"
Me.treestruktur.NodesConnector = Me.NodeConnector1
Me.treestruktur.NodeStyle = Me.ElementStyle1
Me.treestruktur.NodeStyleSelected = Me.ElementStyle2
Me.treestruktur.PathSeparator = ";"
Me.treestruktur.Size = New System.Drawing.Size(668, 406)
Me.treestruktur.Styles.Add(Me.ElementStyle1)
Me.treestruktur.Styles.Add(Me.ElementStyle2)
Me.treestruktur.TabIndex = 1
Me.treestruktur.Text = "AdvTree1"
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeueVorlageToolStripMenuItem, Me.VorlageÄndernToolStripMenuItem, Me.VorlagelöschenToolStripMenuItem, Me.VorlageAuswählenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(181, 114)
'
'NeueVorlageToolStripMenuItem
'
Me.NeueVorlageToolStripMenuItem.Name = "NeueVorlageToolStripMenuItem"
Me.NeueVorlageToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.NeueVorlageToolStripMenuItem.Text = "&Neue Vorlage"
'
'VorlageÄndernToolStripMenuItem
'
Me.VorlageÄndernToolStripMenuItem.Name = "VorlageÄndernToolStripMenuItem"
Me.VorlageÄndernToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.VorlageÄndernToolStripMenuItem.Text = "&Vorlage ändern"
'
'VorlagelöschenToolStripMenuItem
'
Me.VorlagelöschenToolStripMenuItem.Name = "VorlagelöschenToolStripMenuItem"
Me.VorlagelöschenToolStripMenuItem.Size = New System.Drawing.Size(172, 22)
Me.VorlagelöschenToolStripMenuItem.Text = "Vorlage &löschen"
'
'NodeConnector1
'
Me.NodeConnector1.LineColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle1
'
Me.ElementStyle1.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle1.Name = "ElementStyle1"
Me.ElementStyle1.TextColor = System.Drawing.SystemColors.ControlText
'
'ElementStyle2
'
Me.ElementStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(221, Byte), Integer), CType(CType(230, Byte), Integer), CType(CType(247, Byte), Integer))
Me.ElementStyle2.BackColor2 = System.Drawing.Color.FromArgb(CType(CType(138, Byte), Integer), CType(CType(168, Byte), Integer), CType(CType(228, Byte), Integer))
Me.ElementStyle2.BackColorGradientAngle = 90
Me.ElementStyle2.BorderBottom = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderBottomWidth = 1
Me.ElementStyle2.BorderColor = System.Drawing.Color.DarkGray
Me.ElementStyle2.BorderLeft = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderLeftWidth = 1
Me.ElementStyle2.BorderRight = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderRightWidth = 1
Me.ElementStyle2.BorderTop = DevComponents.DotNetBar.eStyleBorderType.Solid
Me.ElementStyle2.BorderTopWidth = 1
Me.ElementStyle2.CornerDiameter = 4
Me.ElementStyle2.CornerType = DevComponents.DotNetBar.eCornerType.Square
Me.ElementStyle2.Description = "Blue"
Me.ElementStyle2.Name = "ElementStyle2"
Me.ElementStyle2.PaddingBottom = 1
Me.ElementStyle2.PaddingLeft = 1
Me.ElementStyle2.PaddingRight = 1
Me.ElementStyle2.PaddingTop = 1
Me.ElementStyle2.TextColor = System.Drawing.Color.Black
'
'VorlageAuswählenToolStripMenuItem
'
Me.VorlageAuswählenToolStripMenuItem.Name = "VorlageAuswählenToolStripMenuItem"
Me.VorlageAuswählenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.VorlageAuswählenToolStripMenuItem.Text = "Vorlage auswählen"
'
'frmdokumentvorlagen
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(674, 450)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.ToolStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmdokumentvorlagen"
Me.Text = "Vorlagen verwalten"
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
CType(Me.treestruktur, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents treestruktur As DevComponents.AdvTree.AdvTree
Friend WithEvents NodeConnector1 As DevComponents.AdvTree.NodeConnector
Friend WithEvents ElementStyle1 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents ElementStyle2 As DevComponents.DotNetBar.ElementStyle
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents tsbtnnew As ToolStripButton
Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents NeueVorlageToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VorlageÄndernToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VorlagelöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents VorlageAuswählenToolStripMenuItem As ToolStripMenuItem
End Class

5147
DPM2016/Dokumente/frmdokumentvorlagen.resx Normal file
View File

File diff suppressed because it is too large Load Diff

268
DPM2016/Dokumente/frmdokumentvorlagen.vb Normal file
View File

@@ -0,0 +1,268 @@
Imports System.ComponentModel
Imports DevComponents.AdvTree
Public Class frmdokumentvorlagen
Dim m_toSelect As Boolean = False
Property Vorlagenselect As Boolean
Get
Return m_toSelect
End Get
Set(value As Boolean)
m_toSelect = value
If value = True Then
Me.tsbtnnew.Visible = False
Me.ToolStripButton1.Visible = False
Me.ToolStripButton2.Visible = False
Me.ToolStripButton4.Visible = False
End If
End Set
End Property
Private Sub frmdokumentvorlagen_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Load_Tree()
End Sub
#Region "LoadTree"
Sub Load_Tree()
Me.treestruktur.Nodes.Clear()
Get_tree()
Dim db As New clsDB
Dim s As String = "SELECT dbo.dms_vorlage.nreintrag, dbo.dms_vorlage.strukturnr, dbo.dms_vorlage.Bezeichnung, dbo.DMS_Struktur.Bezeichnung as Node FROM dbo.dms_vorlage INNER JOIN dbo.DMS_Struktur ON dbo.dms_vorlage.strukturnr = dbo.DMS_Struktur.Eintragnr where dbo.dms_vorlage.aktiv=1"
db.Get_Tabledata("DMS", "", s)
For Each dr As DataRow In db.dsDaten.Tables(0).Rows
Dim n As DevComponents.AdvTree.Node
n = SearchTheTreeView(Me.treestruktur, dr.Item("node"))
If Not n Is Nothing Then
Me.treestruktur.SelectedNode = n
Dim tn As New DevComponents.AdvTree.Node
tn.Text = dr.Item("Bezeichnung")
tn.Tag = "V:" + dr.Item("nreintrag").ToString
tn.ImageIndex = 2
Me.treestruktur.SelectedNode.Nodes.Add(tn)
End If
Next
Me.treestruktur.ExpandAll()
End Sub
Sub Get_tree()
Dim db As New clsDB
db.Get_Tabledata("DMS_Struktur", "", "Select * from dms_struktur where aktiv=1")
Load_Treeview(db.dsDaten, Me.treestruktur)
End Sub
Private Sub Load_Treeview(ByVal oSourceData As DataSet, ByRef tree As AdvTree)
If Not (oSourceData Is Nothing) Then
Dim oView As DataView = oSourceData.Tables(0).DefaultView
Dim oTable As DataTable = oView.Table
Dim oDS As DataSet = New DataSet()
oDS.Tables.Add(oTable.Copy())
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
oDS.Relations.Add("SelfRefenceRelation",
oDS.Tables(0).Columns("eintragnr"),
oDS.Tables(0).Columns("parentid"))
End If
oTable.Dispose()
oTable = Nothing
LoadTreeView(oDS, tree)
oDS.Dispose()
oDS = Nothing
End If
End Sub
''' <summary>
''' Tree aufbauen
''' </summary>
''' <param name="oDS"></param>
''' <param name="oTreeview"></param>
''' <remarks></remarks>
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As AdvTree)
'Dim oTreeView As TreeView = New TreeView()
Dim oDataRow As DataRow
For Each oDataRow In oDS.Tables(0).Rows
If Not oDataRow.IsNull("Parentid") Then
If oDataRow.Item("Parentid") = 0 Then
Dim oNode As New DevComponents.AdvTree.Node
oNode.Text = oDataRow("Bezeichnung").ToString()
oNode.Tag = oDataRow("eintragnr").ToString
oNode.ImageIndex = 0
oNode.ImageIndex = 0
oTreeview.Nodes.Add(oNode)
RecursivelyLoadTree(oDataRow, oNode)
End If
End If
Next oDataRow
oDS.Dispose()
oDS = Nothing
End Sub
''' <summary>
''' Child-Nodes hinzufügen
''' </summary>
''' <param name="oDataRow"></param>
''' <param name="oNode"></param>
''' <remarks></remarks>
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As DevComponents.AdvTree.Node)
Dim oChildRow As DataRow
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
Dim oChildNode As New DevComponents.AdvTree.Node()
oChildNode.Text = oChildRow("Bezeichnung").ToString()
oChildNode.Tag = oChildRow("eintragnr").ToString()
If oChildRow("eintragnr") = 0 Then
oChildNode.ImageIndex = 0
oChildNode.ImageIndex = 0
Else
oChildNode.ImageIndex = 1
oChildNode.ImageIndex = 1
End If
oNode.Nodes.Add(oChildNode)
RecursivelyLoadTree(oChildRow, oChildNode)
Next oChildRow
End Sub
Dim NodesThatMatch As New List(Of DevComponents.AdvTree.Node)
Private Function SearchTheTreeView(ByVal TV As AdvTree, ByVal TextToFind As String) As DevComponents.AdvTree.Node
' Empty previous
NodesThatMatch.Clear()
' Keep calling RecursiveSearch
For Each TN As DevComponents.AdvTree.Node In TV.Nodes
If TN.Text = TextToFind Then
NodesThatMatch.Add(TN)
End If
RecursiveSearch(TN, TextToFind)
Next
If NodesThatMatch.Count > 0 Then
Return NodesThatMatch(0)
Else
Return Nothing
End If
End Function
Private Sub RecursiveSearch(ByVal treeNode As DevComponents.AdvTree.Node, ByVal TextToFind As String)
' Keep calling the test recursively.
For Each TN As DevComponents.AdvTree.Node In treeNode.Nodes
If TN.Text = TextToFind Then
NodesThatMatch.Add(TN)
End If
RecursiveSearch(TN, TextToFind)
Next
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
Me.Close()
End Sub
#End Region
Private Sub tsbtnnew_Click(sender As Object, e As EventArgs) Handles tsbtnnew.Click
Dim f As New frmImportVorlage
Dim strukturnr As String
strukturnr = Me.treestruktur.SelectedNode.Tag
If strukturnr.IndexOf("V:") > -1 Then
f.Strukturnr = Me.treestruktur.SelectedNode.Parent.Tag
Else
f.Strukturnr = Me.treestruktur.SelectedNode.Tag
End If
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Load_Tree()
Me.treestruktur.SelectedNode = SearchTheTreeView(Me.treestruktur, f.TextBox1.Text)
End If
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
If Me.treestruktur.SelectedNode.Tag.ToString.IndexOf("V:") > -1 Then
Dim f As New frmImportVorlage
f.TextBox1.Text = Me.treestruktur.SelectedNode.Text
f.TextBox2.Visible = False
f.Label2.Visible = False
f.Button1.Visible = False
f.TextBox1.Select()
f.eintragnr = Me.treestruktur.SelectedNode.Tag
f.Text = "Vorlagenbezeichnung ändern"
f.ShowDialog()
If f.DialogResult = DialogResult.OK Then
Load_Tree()
Me.treestruktur.SelectedNode = SearchTheTreeView(Me.treestruktur, f.TextBox1.Text)
End If
Else
MsgBox("Es ist keine Vorlage für die Änderung gewählt.", vbExclamation)
End If
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
If Me.treestruktur.SelectedNode.Tag.ToString.IndexOf("V:") > -1 Then
If MsgBox("Möchten Sie die Vorlage '" + Me.treestruktur.SelectedNode.Text + "' wirklich löschen?", vbYesNo + vbQuestion) = MsgBoxResult.Yes Then
Dim db As New clsDB
Dim s As String
s = Me.treestruktur.SelectedNode.Tag.ToString.Replace("V:", "")
db.Get_Tabledata("DMS", "", "Select * from dms_vorlage where nreintrag=" + s)
db.dsDaten.Tables(0).Rows(0).Item(4) = False
db.dsDaten.Tables(0).Rows(0).Item(6) = Now
db.dsDaten.Tables(0).Rows(0).Item(7) = Globals.ActUser
db.Update_Data()
Load_Tree()
End If
Else
MsgBox("Es ist keine Vorlage zum Löschen gewählt.", vbExclamation)
End If
End Sub
Private Sub NeueVorlageToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NeueVorlageToolStripMenuItem.Click
tsbtnnew_Click(sender, e)
End Sub
Private Sub VorlageÄndernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlageÄndernToolStripMenuItem.Click
ToolStripButton4_Click(sender, e)
End Sub
Private Sub VorlagelöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlagelöschenToolStripMenuItem.Click
ToolStripButton2_Click(sender, e)
End Sub
Private Sub ContextMenuStrip1_Opening(sender As Object, e As CancelEventArgs) Handles ContextMenuStrip1.Opening
If Me.treestruktur.SelectedNode.Tag.ToString.IndexOf("V:") = -1 Then
Me.VorlageÄndernToolStripMenuItem.Enabled = False
Me.VorlagelöschenToolStripMenuItem.Enabled = False
Else
Me.VorlageÄndernToolStripMenuItem.Enabled = True
Me.VorlagelöschenToolStripMenuItem.Enabled = True
End If
If Me.Vorlagenselect = True Then
Me.NeueVorlageToolStripMenuItem.Visible = False
Me.VorlageÄndernToolStripMenuItem.Visible = False
Me.VorlagelöschenToolStripMenuItem.Visible = False
Me.VorlageAuswählenToolStripMenuItem.Visible = True
Else
Me.NeueVorlageToolStripMenuItem.Visible = True
Me.VorlageÄndernToolStripMenuItem.Visible = True
Me.VorlagelöschenToolStripMenuItem.Visible = True
Me.VorlageAuswählenToolStripMenuItem.Visible = False
End If
End Sub
Private Sub VorlageAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles VorlageAuswählenToolStripMenuItem.Click
If Me.treestruktur.SelectedNode.Tag.ToString.IndexOf("V:") < 0 Then
MsgBox("Es wirde keine Vorlage ausgwählt.", vbInformation)
Exit Sub
End If
Me.DialogResult = DialogResult.OK
Me.Close()
End Sub
Private Sub treestruktur_DoubleClick(sender As Object, e As EventArgs) Handles treestruktur.DoubleClick
If Me.Vorlagenselect = True Then
VorlageAuswählenToolStripMenuItem_Click(sender, e)
End If
End Sub
End Class

73
DPM2016/Klassen/clsMailClient.vb Normal file
View File

@@ -0,0 +1,73 @@
Public Class clsMailClient
Dim m_empfaenger As String
Property Empfaenger As String
Get
Return m_empfaenger
End Get
Set(value As String)
m_empfaenger = value
End Set
End Property
Public Enum EmpfangerFrom
Behandlung
Rechnung
LetzteRechnung
Dokument
End Enum
Public Function Read_Empfaenger(ByVal Behandlungsnr As String, ByVal Fakturanr As String, ByVal FromLastFaktura As Boolean)
Try
Dim db As New clsDB
If FromLastFaktura = True Then
db.Get_Tabledata("fak", "", "select top 1 nrdebitor from faktura order by nrfaktura desc")
End If
If Behandlungsnr <> "" Then
db.Get_Tabledata("fak", "", "select top 1 nrdebitor from behandlu where nrbehandlung=" + Behandlungsnr)
End If
If Fakturanr <> "" Then
db.Get_Tabledata("fak", "", "select top 1 nrdebitor from faktura where nrfaktura=" + Fakturanr)
End If
Dim debitor As Integer
debitor = db.dsDaten.Tables(0).Rows(0).Item(0)
If debitor > 49000 Then
db.Get_Tabledata("fak", "", "Select isnull(e_mail,'') from firma where nrfirma=" + debitor.ToString)
Else
db.Get_Tabledata("fak", "", "select isnull(e_mail,'') from privat where nrprivat=" + debitor.ToString)
End If
Me.Empfaenger = db.dsDaten.Tables(0).Rows(0).Item(0)
Catch ex As Exception
MsgBox(ex.Message)
Me.Empfaenger = ""
End Try
End Function
Public Sub CreateOutlookMail(type As EmpfangerFrom, ByVal keyvalue As String, ByVal Attachment As String)
Select Case type
Case EmpfangerFrom.Behandlung
Read_Empfaenger(keyvalue, "", False)
Case EmpfangerFrom.Rechnung
Read_Empfaenger("", keyvalue, False)
Case EmpfangerFrom.LetzteRechnung
Read_Empfaenger("", "", True)
Case Else
Me.Empfaenger = ""
End Select
If type = 1 Then
End If
Dim Outl As Object
Outl = CreateObject("Outlook.Application")
If Outl IsNot Nothing Then
Dim omsg As Object
omsg = Outl.CreateItem(0)
omsg.To = Me.Empfaenger
omsg.bcc = ""
omsg.subject = "Rechnung"
omsg.body = "Gute Tag"
omsg.Attachments.Add(Attachment)
omsg.Display(True)
End If
End Sub
End Class

127
DPM2016/Klassen/clspdfhelper.vb Normal file
View File

@@ -0,0 +1,127 @@
Imports Syncfusion.Pdf.Parsing
Imports Syncfusion.Pdf
Public Class clspdfhelper
Public Enum GetEmpfaengerType
FromFaktura
FromLastFaktura
Andere
End Enum
Public Function ConCatPDF(Optional DeleteSource As Boolean = True) As String
Dim document As New PdfDocument
document.EnableMemoryOptimization = False
Dim newfi As String
Dim newfn As String
For i = 1 To Globals.pdfCollection.Count
If i = 1 Then
newfn = System.IO.Path.GetDirectoryName(Globals.pdfCollection.Item(i).ToString)
newfi = System.IO.Path.GetFileName(Globals.pdfCollection.Item(i).ToString)
newfi = newfi.Replace(".pdf", "_concat.pdf")
newfn = newfn + "\" + newfi
End If
Dim loadeddocument As New PdfLoadedDocument(Globals.pdfCollection.Item(i).ToString)
loadeddocument.EnableMemoryOptimization = False
document.ImportPageRange(loadeddocument, 0, loadeddocument.Pages.Count - 1)
loadeddocument = Nothing
Next
document.Save(newfn)
document.Close()
document.Dispose()
If DeleteSource Then
For i = 1 To Globals.pdfCollection.Count
System.IO.File.Delete(Globals.pdfCollection.Item(i))
Next
End If
Return newfn
End Function
Public Sub HandlePDF(ByVal alsPDF As Boolean, ByVal alsMail As Boolean)
If alsPDF = True Then
If Globals.pdfCollection.Count > 1 Then
If alsMail = False Then Process.Start(ConCatPDF())
If alsMail = True Then
Dim em As New clsMailClient
em.CreateOutlookMail(em.EmpfangerFrom.LetzteRechnung, "", ConCatPDF())
End If
Else
If alsMail = False Then Process.Start(Globals.pdfCollection.Item(1))
If alsMail = True Then
Dim email As New clsMailClient
email.CreateOutlookMail(email.EmpfangerFrom.LetzteRechnung, "", Globals.pdfCollection.Item(1))
End If
End If
pdfCollection.Clear()
End If
End Sub
Public Sub Create_Archivdoc(ByVal From As GetEmpfaengerType, Optional keyvalue As String = "", Optional Bezeichnung As String = "")
Dim s As String
Dim db As New clsDB
Dim Fakturadb As New clsDB
Dim StrukturEintrag_Patient As Integer
Dim StrukturEintrag_Garant As Integer
Dim CopyDocToGarant As String
Dim Patient As Integer
Dim Debitor As Integer
Dim nrfaktura As Integer
Dim Patientname As String
Dim Fakturanr As String
If Globals.pdfCollection.Count > 1 Then
s = ConCatPDF(False)
Else
s = Globals.pdfCollection.Item(1)
End If
Select Case From
Case GetEmpfaengerType.FromFaktura
Fakturadb.Get_Tabledata("Faktura", "", "Select top 1 * from faktura WHeRE NRFAKTURA=" + keyvalue.ToString + " order by nrfaktura desc")
Patient = Fakturadb.dsDaten.Tables(0).Rows(0).Item("nrpatient")
Debitor = Fakturadb.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
Fakturanr = Fakturadb.dsDaten.Tables(0).Rows(0).Item("nrhauptfaktura")
Case GetEmpfaengerType.FromLastFaktura
Fakturadb.Get_Tabledata("Faktura", "", "Select top 1 * from faktura order by nrfaktura desc")
Patient = Fakturadb.dsDaten.Tables(0).Rows(0).Item("nrpatient")
Debitor = Fakturadb.dsDaten.Tables(0).Rows(0).Item("nrdebitor")
Fakturanr = Fakturadb.dsDaten.Tables(0).Rows(0).Item("nrhauptfaktura")
Case GetEmpfaengerType.Andere
End Select
Bezeichnung = Bezeichnung + " " + Fakturanr
If Globals.License.DMS = True Then
db.Get_Tabledata("DMS", "", "Select wert from dms_settings where nreintrag=8")
StrukturEintrag_Patient = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Get_Tabledata("DMS", "", "Select wert from dms_settings where nreintrag=9")
StrukturEintrag_Garant = db.dsDaten.Tables(0).Rows(0).Item(0)
db.Get_Tabledata("DMS", "", "Select wert from dms_settings where nreintrag=10")
CopyDocToGarant = db.dsDaten.Tables(0).Rows(0).Item(0)
'Patienten-Dokumente
Dim dok As New clsDok
Dim Directoryname As String = System.IO.Path.GetDirectoryName(s)
Dim Filename As String = System.IO.Path.GetFileName(s)
Dim DestFilename As String
DestFilename = System.IO.Path.GetFileNameWithoutExtension(Filename) + "_" + Patient.ToString + System.IO.Path.GetExtension(Filename)
System.IO.File.Copy(Directoryname + "\" + Filename, Directoryname + "\" + DestFilename)
dok.Create_Doc(StrukturEintrag_Patient, Bezeichnung, Directoryname + "\" + DestFilename, Patient, Fakturanr)
System.IO.File.Delete(Directoryname + "\" + DestFilename)
If CopyDocToGarant = True And Patient <> Debitor Then
DestFilename = System.IO.Path.GetFileNameWithoutExtension(Filename) + "_fuer_" + Patient.ToString + System.IO.Path.GetExtension(Filename)
System.IO.File.Copy(Directoryname + "\" + Filename, Directoryname + "\" + DestFilename)
dok.Create_Doc(StrukturEintrag_Garant, Bezeichnung, Directoryname + "\" + DestFilename, Debitor, Fakturanr)
System.IO.File.Delete(Directoryname + "\" + DestFilename)
End If
dok = Nothing
db.Dispose()
End If
End Sub
End Class

BIN
DPM2016/bin/Debug/20180915092746_1_Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/20180915093016_1_Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Demo/20180426_Text&Event_Infrastruktur.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Demo/20180915220034_1_Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Demo/20180915220203_1_Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Demo/20180916110558_1_Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Demo/OpenOfficeTextDokument.odt Normal file
View File

Binary file not shown.

7
DPM2016/bin/Debug/Demo/Reporting/Report/KGEtiketten.frx Normal file
View File

@@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="09/20/2018 09:24:46" ReportInfo.Modified="09/20/2018 09:25:47" ReportInfo.CreatorVersion="2018.2.11.0">
<Dictionary/>
<ReportPage Name="Page1" RawPaperSize="9" LeftMargin="4.78" TopMargin="12.7" RightMargin="0" BottomMargin="0" Columns.Count="3" Columns.Width="68.41" Columns.Positions="0,68.41,136.81">
<DataBand Name="Data1" Width="258.59" Height="96.01"/>
</ReportPage>
</Report>

7
DPM2016/bin/Debug/Demo/Reporting/Report/KGEtiketten1.frx Normal file
View File

@@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="09/20/2018 09:26:14" ReportInfo.Modified="09/20/2018 09:26:28" ReportInfo.CreatorVersion="2018.2.11.0">
<Dictionary/>
<ReportPage Name="Page1" PaperWidth="215.9" PaperHeight="279.4" LeftMargin="4.7752" TopMargin="12.7" RightMargin="0" BottomMargin="0" Columns.Count="3" Columns.Width="66.675" Columns.Positions="0,69.85,139.7">
<DataBand Name="Data1" Width="252.03" Height="96.01"/>
</ReportPage>
</Report>

BIN
DPM2016/bin/Debug/Demo/Test.docm Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Demo/Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Demo/datasheet.pdf Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/Demo20180915215807_1_Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/DemoWebland/20180426_Text&Event_Infrastruktur.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/DemoWebland/20180915220034_1_Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/DemoWebland/20180915220203_1_Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/DemoWebland/20180916110558_1_Test.docx Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/DemoWebland/OpenOfficeTextDokument.odt Normal file
View File

Binary file not shown.

18
DPM2016/bin/Debug/DemoWebland/PrinterConfig/Default.cfg Normal file
View File

@@ -0,0 +1,18 @@
Microsoft Print to PDF
1;Microsoft Print to PDF;;1
2;Microsoft Print to PDF;;1
3;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);260;1
4;;;1
5;Microsoft Print to PDF;;2
6;Microsoft Print to PDF;;2
7;Microsoft Print to PDF;;1
1000;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);259;1
Microsoft Print to PDF
1;Standard;;1
2;Microsoft Print to PDF;;1
3;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);260;1
4;;;1
5;Microsoft Print to PDF;;2
6;Microsoft Print to PDF;;2
7;Microsoft Print to PDF;;1
1000;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);259;1

9
DPM2016/bin/Debug/DemoWebland/PrinterConfig/fax.cfg Normal file
View File

@@ -0,0 +1,9 @@
Microsoft Print to PDF
1;Microsoft Print to PDF;;1
2;Microsoft Print to PDF;;1
3;Fax;260;1
4;;;1
5;Microsoft Print to PDF;;2
6;Microsoft Print to PDF;;2
7;Microsoft Print to PDF;;1
1000;Buelach_HPCDCFDC (HP Officejet Pro X476dw MFP);259;1

BIN
DPM2016/bin/Debug/DemoWebland/Reporting/Logo/ReportLogo.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 13 KiB

BIN
DPM2016/bin/Debug/DemoWebland/Reporting/PDF/23 -- 18.08.2018_CamtJournaleinfach.frx.pdf Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/DemoWebland/Reporting/PDF/Abgeschlossene_Behandlungen.frx.pdf Normal file
View File

Binary file not shown.

BIN
DPM2016/bin/Debug/DemoWebland/Reporting/PDF/_2018-09-04_2018-01-01_fakturajournal.frx.pdf Normal file
View File

Binary file not shown.

39
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Abgeschlossene_Behandlungen - Kopie.frx Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="01/14/2018 14:02:31" ReportInfo.CreatorVersion="2017.4.1.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="255.15" Height="18.9" Text="Abgeschlossene Behandlungen" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="97.17" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

69
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Abgeschlossene_Behandlungen.frx Normal file
View File

@@ -0,0 +1,69 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="08/26/2018 11:32:33" ReportInfo.CreatorVersion="2018.2.11.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
dim s as String()
s=report.FileName.Split(&quot;Reporting&quot;)
Dim ReportLogo as String
ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
picture1.ImageLocation=Reportlogo
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="75.6">
<TextObject Name="Text1" Left="444.15" Width="255.15" Height="18.9" Text="Abgeschlossene Behandlungen" HorzAlign="Right" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Top="18.9" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
<PictureObject Name="Picture1" Left="9.45" Width="160.65" Height="47.25" BeforePrintEvent="Picture1_BeforePrint" Image=""/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="78.93" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="110.62" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="132.85" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

69
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Abgeschlossene_KV.frx Normal file
View File

@@ -0,0 +1,69 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="08/26/2018 11:33:35" ReportInfo.CreatorVersion="2018.2.11.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
dim s as String()
s=report.FileName.Split(&quot;Reporting&quot;)
Dim ReportLogo as String
ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
picture1.ImageLocation=Reportlogo
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="85.05">
<TextObject Name="Text1" Left="434.7" Width="264.6" Height="18.9" Text="Abgeschlossene Kostenvoranschläge" HorzAlign="Right" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Top="18.9" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
<PictureObject Name="Picture1" Left="18.9" Width="179.55" Height="56.7" BeforePrintEvent="Picture1_BeforePrint" Image=""/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="88.38" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="120.07" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="142.3" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

39
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/Abgeschlossene_Behandlungen - Kopie.frx Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="01/14/2018 14:02:31" ReportInfo.CreatorVersion="2017.4.1.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="255.15" Height="18.9" Text="Abgeschlossene Behandlungen" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="97.17" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

39
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/Abgeschlossene_Behandlungen.frx Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="01/14/2018 14:09:29" ReportInfo.CreatorVersion="2017.4.1.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="255.15" Height="18.9" Text="Abgeschlossene Behandlungen" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="97.17" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

39
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/Abgeschlossene_KV.frx Normal file
View File

@@ -0,0 +1,39 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="01/14/2018 14:05:14" ReportInfo.CreatorVersion="2017.4.1.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Behandlungsbeginn" DataType="System.DateTime"/>
<Column Name="Behandlungsende" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Behandler" DataType="System.String"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="aktiv" DataType="System.Boolean" BindableControl="CheckBox"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="255.15" Height="18.9" Text="Abgeschlossene Kostenvoranschläge" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35">
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Beh-Beginn" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text5" Left="122.85" Width="94.5" Height="18.9" Text="Patient" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text7" Left="415.8" Width="122.85" Height="18.9" Text="Behandler" Font="Arial, 10pt, style=Bold"/>
<TextObject Name="Text9" Left="604.8" Width="94.5" Height="18.9" Text="Total" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="18.9" DataSource="Daten">
<TextObject Name="Text2" Left="9.45" Width="94.5" Height="18.9" Text="[Daten.Behandlungsbeginn]" Format="Date" Format.Format="d"/>
<TextObject Name="Text4" Left="122.85" Width="283.5" Height="18.9" Text="[Daten.Patient]"/>
<TextObject Name="Text6" Left="415.8" Width="189" Height="18.9" Text="[Daten.Behandler]"/>
<TextObject Name="Text8" Left="604.8" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Trimming="EllipsisCharacter"/>
</DataBand>
<PageFooterBand Name="PageFooter1" Top="97.17" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

117
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/CamtJournaldetail.frx Normal file
View File

File diff suppressed because one or more lines are too long

106
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/CamtJournaleinfach.frx Normal file
View File

File diff suppressed because one or more lines are too long

100
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/Offene_Debitoren.frx Normal file
View File

File diff suppressed because one or more lines are too long

64
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/Recallkarte.frx Normal file
View File

File diff suppressed because one or more lines are too long

82
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/Recallliste.frx Normal file
View File

File diff suppressed because one or more lines are too long

10
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/Report1.frx Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="11/28/2015 07:43:26" ReportInfo.CreatorVersion="2015.3.1.0">
<Dictionary/>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8"/>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35"/>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="75.6"/>
<PageFooterBand Name="PageFooter1" Top="153.87" Width="718.2" Height="18.9"/>
</ReportPage>
</Report>

56
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/Zahlungsjournal.frx Normal file
View File

@@ -0,0 +1,56 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="05/02/2018 20:59:09" ReportInfo.CreatorVersion="2018.2.11.0">
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Status" DataType="System.Int32"/>
<Column Name="Debitor" DataType="System.String"/>
<Column Name="Nrfaktura" DataType="System.Int32"/>
<Column Name="Valuta" DataType="System.DateTime"/>
<Column Name="Betrag" DataType="System.Double"/>
<Column Name="Vorauszahlung" DataType="System.Boolean" BindableControl="CheckBox"/>
<Column Name="Nrkonto" DataType="System.Int32"/>
<Column Name="Konto" DataType="System.String"/>
<Column Name="Statusdatum" DataType="System.DateTime"/>
<Column Name="Storno" DataType="System.String"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
<Parameter Name="Datum von" DataType="System.String"/>
<Parameter Name="Datum bis" DataType="System.String"/>
<Parameter Name="Konto" DataType="System.String"/>
<Total Name="Total" Expression="[Daten.Betrag]" Evaluator="Data1"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8">
<TextObject Name="Text1" Left="9.45" Width="349.65" Height="18.9" Text="Zahlungsjournal [Datum von] bis [Datum bis]" Font="Arial, 10pt, style=Bold, Underline"/>
<TextObject Name="Text12" Left="349.65" Width="349.65" Height="18.9" Text="[Absender]" HorzAlign="Right"/>
</ReportTitleBand>
<PageHeaderBand Name="PageHeader1" Top="40.66" Width="718.2" Height="28.35">
<LineObject Name="Line1" Left="9.45" Top="18.9" Width="689.85"/>
<TextObject Name="Text3" Left="9.45" Width="94.5" Height="18.9" Text="Valuta" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text5" Left="103.95" Width="94.5" Height="18.9" Text="Debitor" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text7" Left="406.35" Width="94.5" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text8" Left="510.3" Width="28.35" Height="18.9" Text="VZ" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text13" Left="538.65" Width="94.5" Height="18.9" Text="Konto" Font="Arial, 8pt, style=Bold"/>
<TextObject Name="Text15" Left="642.6" Width="94.5" Height="18.9" Text="Storno" Font="Arial, 8pt, style=Bold"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="71.86" Width="718.2" Height="18.9" DataSource="Daten" Filter="[Daten.Konto]=[Konto] OR [Konto]=&quot;&quot;">
<TextObject Name="Text2" Left="9.45" Width="75.6" Height="18.9" Text="[Daten.Valuta]" Duplicates="Hide" Format="Date" Format.Format="d" Font="Arial, 8pt"/>
<TextObject Name="Text4" Left="103.95" Width="274.05" Height="18.9" Text="[Daten.Debitor]" Font="Arial, 8pt"/>
<TextObject Name="Text6" Left="406.35" Width="94.5" Height="18.9" Text="[Daten.Betrag]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Font="Arial, 8pt" Trimming="EllipsisCharacter"/>
<CheckBoxObject Name="CheckBox1" Left="510.3" Width="18.9" Height="18.9" Checked="false" DataColumn="Daten.Vorauszahlung"/>
<TextObject Name="Text9" Left="538.65" Width="94.5" Height="18.9" Text="[Daten.Konto]" Font="Arial, 8pt"/>
<TextObject Name="Text14" Left="642.6" Width="94.5" Height="18.9" Text="[Daten.Storno]" Font="Arial, 8pt"/>
<Sort>
<Sort Expression="[Daten.Valuta]"/>
</Sort>
</DataBand>
<ReportSummaryBand Name="ReportSummary1" Top="93.62" Width="718.2" Height="37.8">
<TextObject Name="Text16" Left="359.1" Width="141.75" Height="18.9" Text="[Total]" Format="Number" Format.UseLocale="false" Format.DecimalDigits="2" Format.DecimalSeparator="." Format.GroupSeparator="'" Format.NegativePattern="1" HorzAlign="Right" Font="Arial, 10pt, style=Bold"/>
</ReportSummaryBand>
<PageFooterBand Name="PageFooter1" Top="134.28" Width="718.2" Height="37.8">
<TextObject Name="Text10" Left="9.45" Top="9.45" Width="170.1" Height="18.9" Text="[Date]"/>
<LineObject Name="Line2" Left="9.45" Width="689.85"/>
<TextObject Name="Text11" Left="604.8" Top="9.45" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right"/>
</PageFooterBand>
</ReportPage>
</Report>

10
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/empty.frx Normal file
View File

@@ -0,0 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="CSharp" ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="11/28/2015 07:43:26" ReportInfo.CreatorVersion="2015.3.1.0">
<Dictionary/>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2" Height="37.8"/>
<PageHeaderBand Name="PageHeader1" Top="41.84" Width="718.2" Height="28.35"/>
<DataBand Name="Data1" Top="74.23" Width="718.2" Height="75.6"/>
<PageFooterBand Name="PageFooter1" Top="153.87" Width="718.2" Height="18.9"/>
</ReportPage>
</Report>

82
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/esrjournal.frx Normal file
View File

File diff suppressed because one or more lines are too long

82
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/fakturajournal.frx Normal file
View File

@@ -0,0 +1,82 @@
<?xml version="1.0" encoding="utf-8"?>
<Report ScriptLanguage="Vb" ReportInfo.Name="Fakturajournal" ReportInfo.Description="#Parameter1:Datum von:datetime:firstofcurrentyear&#13;&#10;#Parameter2:Datum bis:datetime:currentdate&#13;&#10;#Parameter3:Behandler:DataTable:select name+' '+vorname from privat where behandler=1 AND aktiv=1 order by nrprivat&#13;&#10;-SQL-&#13;&#10;SELECT Nrfaktura, Nrdebitor, Nrpatient, Datum, Total, dbo.faktura.Status, dbo.get_name(Nrpatient) AS Patient, case when nrdebitor&lt;&gt;nrpatient then dbo.get_name(Nrdebitor) else '' end AS Debitor, dbo.privat.name+' '+dbo.privat.vorname as behandler&#13;&#10;FROM dbo.Faktura JOIN&#13;&#10; dbo.PRIVAT ON dbo.Faktura.Nrbehandler = dbo.PRIVAT.NRPRIVAT&#13;&#10;where datum&gt;='#Parameter1 00:00:00' and datum &lt;='#Parameter2 23:59:59' and (''='#Parameter3' or '#Parameter3'= dbo.privat.name+' '+dbo.privat.vorname) " ReportInfo.Created="11/28/2015 07:43:07" ReportInfo.Modified="08/26/2018 11:08:04" ReportInfo.CreatorVersion="2018.2.11.0">
<ScriptText>Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports Microsoft.VisualBasic
Imports FastReport
Imports FastReport.Data
Imports FastReport.Dialog
Imports FastReport.Table
Imports FastReport.Barcode
Imports FastReport.Utils
Namespace FastReport
Public Class ReportScript
Private Sub Picture1_BeforePrint(ByVal sender As object, ByVal e As EventArgs)
dim s as String()
s=report.FileName.Split(&quot;Reporting&quot;)
Dim ReportLogo as String
ReportLogo=s(0)+&quot;\Reporting\Logo\reportlogo.png&quot;
picture1.ImageLocation=Reportlogo
End Sub
End Class
End Namespace
</ScriptText>
<Dictionary>
<TableDataSource Name="Daten" ReferenceName="Data.Daten" DataType="System.Int32" Enabled="true">
<Column Name="Nrfaktura" DataType="System.Int32"/>
<Column Name="Nrdebitor" DataType="System.Int32"/>
<Column Name="Nrpatient" DataType="System.Int32"/>
<Column Name="Datum" DataType="System.DateTime"/>
<Column Name="Total" DataType="System.Double"/>
<Column Name="Status" DataType="System.Int32"/>
<Column Name="Patient" DataType="System.String"/>
<Column Name="Debitor" DataType="System.String"/>
<Column Name="behandler" DataType="System.String"/>
</TableDataSource>
<Parameter Name="Absender" DataType="System.String"/>
<Parameter Name="Datum von" DataType="System.String"/>
<Parameter Name="Datum bis" DataType="System.String"/>
<Parameter Name="Behandler" DataType="System.String"/>
<Total Name="Total" Expression="[Daten.Total]" Evaluator="Data1" EvaluateCondition="[Daten.Status]&lt;&gt;9"/>
<Total Name="Total_Storno" Expression="[Daten.Total]" Evaluator="Data1" EvaluateCondition="[Daten.Status]=9"/>
</Dictionary>
<ReportPage Name="Page1">
<ReportTitleBand Name="ReportTitle1" Width="718.2"/>
<PageHeaderBand Name="PageHeader1" Top="3.33" Width="718.2" Height="94.5">
<PictureObject Name="Picture1" Width="132.3" Height="56.7" BeforePrintEvent="Picture1_BeforePrint" ImageLocation="E:\Software-Projekte\DPM\DPM2016\DPM2016\bin\Debug\Dentis\Reporting\Logo\ReportLogo.png"/>
<TextObject Name="Text1" Left="406.35" Top="9.45" Width="302.4" Height="28.35" Text="Rechnungsjournal [Datum von] - [Datum bis]&#13;&#10;Behandler: [Behandler]" HorzAlign="Right"/>
<TextObject Name="Text8" Top="75.6" Width="94.5" Height="18.9" Text="RG-Nummer" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text9" Left="85.05" Top="75.6" Width="94.5" Height="18.9" Text="Datum" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text10" Left="179.55" Top="75.6" Width="170.1" Height="18.9" Text="Patient / Debitor" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text11" Left="614.25" Top="75.6" Width="47.25" Height="18.9" Text="Betrag" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text12" Left="642.6" Top="75.6" Width="66.15" Height="18.9" Text="Storno" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<LineObject Name="Line2" Top="90.5" Width="708.75"/>
</PageHeaderBand>
<DataBand Name="Data1" Top="101.17" Width="718.2" Height="19.9" CanGrow="true" DataSource="Daten">
<TextObject Name="Text2" Top="1" Width="85.05" Height="18.9" Text="[Daten.Nrfaktura]" Font="Arial, 9pt"/>
<TextObject Name="Text3" Left="85.05" Top="1" Width="94.5" Height="18.9" Text="[Daten.Datum]" Format="Date" Format.Format="d" Font="Arial, 9pt"/>
<TextObject Name="Text4" Left="179.55" Top="1" Width="378" Height="18.9" CanGrow="true" Text="[Daten.Patient]&#13;&#10;[Daten.Debitor]" Font="Arial, 9pt"/>
<TextObject Name="Text6" Left="567" Top="1" Width="94.5" Height="18.9" Text="[Daten.Total]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt" Trimming="EllipsisCharacter"/>
<TextObject Name="Text7" Left="670.95" Top="1" Width="37.8" Height="18.9" Text="[IIf([Daten.Status]=9,&quot;J&quot;,&quot;&quot;)]" HorzAlign="Right" Font="Arial, 9pt"/>
<ChildBand Name="Child1" Top="124.4" Width="718.2">
<LineObject Name="Line1" Width="708.75"/>
</ChildBand>
<Sort>
<Sort Expression="[Daten.Nrfaktura]"/>
</Sort>
</DataBand>
<ReportSummaryBand Name="ReportSummary1" Top="127.73" Width="718.2" Height="37.8">
<TextObject Name="Text13" Left="434.7" Top="3" Width="132.3" Height="28.35" Text="Total (ohne Storno)&#13;&#10;Total Storno" HorzAlign="Right" Font="Arial, 9pt, style=Bold"/>
<TextObject Name="Text14" Left="567" Top="3" Width="94.5" Height="28.35" Text="[Total]&#13;&#10;[Total_Storno]" Format="Number" Format.UseLocale="true" HorzAlign="Right" WordWrap="false" Font="Arial, 9pt, style=Bold" Trimming="EllipsisCharacter"/>
</ReportSummaryBand>
<PageFooterBand Name="PageFooter1" Top="168.87" Width="718.2" Height="18.9">
<TextObject Name="Text5" Width="189" Height="18.9" Text="[Date]" Font="Arial, 9pt"/>
<TextObject Name="Text15" Left="614.25" Width="94.5" Height="18.9" Text="[Page#]" HorzAlign="Right" Font="Arial, 9pt"/>
</PageFooterBand>
</ReportPage>
</Report>

61
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/mahnliste.frx Normal file
View File

File diff suppressed because one or more lines are too long

BIN
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Archiv/xxx.pdf Normal file
View File

Binary file not shown.

125
DPM2016/bin/Debug/DemoWebland/Reporting/Report/CamtJournaldetail.frx Normal file
View File

File diff suppressed because one or more lines are too long

113
DPM2016/bin/Debug/DemoWebland/Reporting/Report/CamtJournaleinfach.frx Normal file
View File

File diff suppressed because one or more lines are too long

110
DPM2016/bin/Debug/DemoWebland/Reporting/Report/Offene_Debitoren.frx Normal file
View File

File diff suppressed because one or more lines are too long

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