Version 20180904
This commit is contained in:
0
.vs/DPM2016/v15/Server/sqlite3/db.lock
Normal file
0
.vs/DPM2016/v15/Server/sqlite3/db.lock
Normal file
BIN
.vs/DPM2016/v15/Server/sqlite3/storage.ide
Normal file
BIN
.vs/DPM2016/v15/Server/sqlite3/storage.ide
Normal file
Binary file not shown.
3992
2018_Datenmigration_Definitiv/1_Script1_Structure_Diff.sql
Normal file
3992
2018_Datenmigration_Definitiv/1_Script1_Structure_Diff.sql
Normal file
File diff suppressed because it is too large
Load Diff
105
2018_Datenmigration_Definitiv/2_Update_Scripts.sql
Normal file
105
2018_Datenmigration_Definitiv/2_Update_Scripts.sql
Normal file
@@ -0,0 +1,105 @@
|
||||
update behandlu set Behandlungsgrund=''
|
||||
update behandlu set gln_liste=''
|
||||
update behandlu set diagnose=''
|
||||
update behandlu set kostengutsprache_nummer=''
|
||||
update behandlu set nrzuweiser=0
|
||||
update behandlu set nrgesetz=0
|
||||
update [ABRTYP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Absender] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ANREDE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ANSATZ] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [anzahlug] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BARCODE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BARCODES] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BCART] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BCFNKT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BCPAGE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Behandlu] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BERECHT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BESRI] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BESRT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BJOURNAL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Calendar] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [CustDocs] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [DEBITOR] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [DentoTar] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [dentotar_19] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Dentotar_2017126132914] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Dentotar_2017126134641] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Dentotar_2017126135012] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Dentotar_Parameter] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [DesignFaktura] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ESTYP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FAKTPOS] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Faktura] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FData] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FIRMA] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FIRMAAP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FJOURNAL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FORMFELD] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FORMULAR] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FUNKTION] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [INDEXES] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [KG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [KONTO] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [LEISTUNG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [LLFILES] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Log] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [MANDANT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [MELDUNG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [MONATE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Offene_Rechnungen] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [OPTIONS] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ORTE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Ortsverzeichnis] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [PAKETPOS] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [PRIVAT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [PUNKTE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [RECALL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [RECHTEXT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Report] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [reportdb] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Reports] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Res] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [resttem1] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [resttem2] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [resttemp] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [RGTYP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ROLLENP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [sortlei] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [spalten] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [SPRACHE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [SQL_Statements] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1--,aktiv=1
|
||||
update [STATTEXT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [status] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [STATUSBH] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TAGPLAN] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARBUCH] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARIF] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARIFE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Tarifgrp] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARPAKET] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TAXPUNKT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TEXTE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TITEL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpbesr] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpempf] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpfaktura] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmphaz] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPKONTO] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpop] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmppatlab] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPRCALL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmprecalle] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmprecallw] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmprechnung] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPSORT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPUMSA] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpzaz] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [USER] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [VDKonti] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [VSKonti] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [WORKLOG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Zahlung] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Zahlung_Sik_error] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ZJOURNAL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
BIN
2018_Datenmigration_Definitiv/3_Insert_Scripts.sql
Normal file
BIN
2018_Datenmigration_Definitiv/3_Insert_Scripts.sql
Normal file
Binary file not shown.
BIN
2018_Datenmigration_Definitiv/4_Insert_Auswertung.sql
Normal file
BIN
2018_Datenmigration_Definitiv/4_Insert_Auswertung.sql
Normal file
Binary file not shown.
BIN
2018_Datenmigration_Definitiv/5_Auswertung.sql
Normal file
BIN
2018_Datenmigration_Definitiv/5_Auswertung.sql
Normal file
Binary file not shown.
4041
2018_Datenmigration_Definitiv/DPM_Update/1_Script.sql
Normal file
4041
2018_Datenmigration_Definitiv/DPM_Update/1_Script.sql
Normal file
File diff suppressed because it is too large
Load Diff
101
2018_Datenmigration_Definitiv/DPM_Update/2_Scripts.sql
Normal file
101
2018_Datenmigration_Definitiv/DPM_Update/2_Scripts.sql
Normal file
@@ -0,0 +1,101 @@
|
||||
update behandlu set Behandlungsgrund=''
|
||||
update behandlu set gln_liste=''
|
||||
update behandlu set diagnose=''
|
||||
update behandlu set kostengutsprache_nummer=''
|
||||
update behandlu set nrzuweiser=0
|
||||
update behandlu set nrgesetz=0
|
||||
update [ABRTYP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Absender] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ANREDE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ANSATZ] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [anzahlug] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BARCODE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BARCODES] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BCART] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BCFNKT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BCPAGE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Behandlu] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BERECHT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BESRI] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BESRT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BJOURNAL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Calendar] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [CustDocs] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [DEBITOR] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [DentoTar] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [dentotar_19] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Dentotar_2017126132914] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Dentotar_2017126134641] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Dentotar_2017126135012] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Dentotar_Parameter] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [DesignFaktura] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ESTYP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FAKTPOS] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Faktura] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FData] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FIRMA] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FIRMAAP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FJOURNAL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FORMFELD] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FORMULAR] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FUNKTION] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [INDEXES] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [KG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [KONTO] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [LEISTUNG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [LLFILES] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Log] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [MANDANT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [MELDUNG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [MONATE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Offene_Rechnungen] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [OPTIONS] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ORTE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Ortsverzeichnis] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [PAKETPOS] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [PRIVAT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [PUNKTE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [RECALL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [RECHTEXT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Report] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [reportdb] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Reports] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Res] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [RGTYP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ROLLENP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [sortlei] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [spalten] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [SPRACHE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [SQL_Statements] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1--,aktiv=1
|
||||
update [STATTEXT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [status] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [STATUSBH] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TAGPLAN] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARBUCH] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARIF] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARIFE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Tarifgrp] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARPAKET] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TAXPUNKT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TEXTE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TITEL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpbesr] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpempf] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpfaktura] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmphaz] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPKONTO] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpop] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmppatlab] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPRCALL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmprecalle] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmprecallw] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmprechnung] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPSORT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPUMSA] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpzaz] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [USER] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [VDKonti] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [VSKonti] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [WORKLOG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Zahlung] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ZJOURNAL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
BIN
2018_Datenmigration_Definitiv/DPM_Update/3_Insert_Scripts.sql
Normal file
BIN
2018_Datenmigration_Definitiv/DPM_Update/3_Insert_Scripts.sql
Normal file
Binary file not shown.
BIN
2018_Datenmigration_Definitiv/DPM_Update/4_Insert_Auswertung.sql
Normal file
BIN
2018_Datenmigration_Definitiv/DPM_Update/4_Insert_Auswertung.sql
Normal file
Binary file not shown.
BIN
2018_Datenmigration_Definitiv/DPM_Update/5_Auswertung.sql
Normal file
BIN
2018_Datenmigration_Definitiv/DPM_Update/5_Auswertung.sql
Normal file
Binary file not shown.
BIN
2018_Datenmigration_Definitiv/DPM_Update/Ortsverzeichnis.sql
Normal file
BIN
2018_Datenmigration_Definitiv/DPM_Update/Ortsverzeichnis.sql
Normal file
Binary file not shown.
@@ -0,0 +1,8 @@
|
||||
Tarife - Dentotar einfügen
|
||||
5 1 UV_MV_IV 2018-01-01 NULL NULL 2017-03-12 00:00:00.000 2017-03-12 00:00:00.000 1 True
|
||||
6 1 DH-Tarif NULL 9000 9999 2018-08-25 00:00:00.000 2018-08-25 00:00:00.000 1 True
|
||||
|
||||
ES-Tap: Dentotar_Vesr einfügen
|
||||
9 Dentotar_VESR 7 NULL NULL 1 True False False False True 300
|
||||
|
||||
VD-Konto: Entweder behandler oder Nr. 1
|
||||
@@ -0,0 +1,77 @@
|
||||
DROP VIEW [dbo].[View_Offene_Rechnungen]
|
||||
GO
|
||||
|
||||
/****** Object: View [dbo].[View_Offene_Rechnungen] Script Date: 15.05.2018 22:22:17 ******/
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
|
||||
CREATE VIEW [dbo].[View_Offene_Rechnungen]
|
||||
AS
|
||||
SELECT TOP (100) PERCENT dbo.DEBITOR.Nreintrag, dbo.Faktura.Nrfaktura, dbo.DEBITOR.Faelligam, dbo.DEBITOR.Betrag, dbo.DEBITOR.Status, dbo.get_adresse_direkt(dbo.DEBITOR.Nrpatient, 1) AS Patient,
|
||||
ISNULL(dbo.get_adresse_direkt(dbo.DEBITOR.Nrdebitor, 1), '') AS Debitor, dbo.DEBITOR.Nrpatient, dbo.get_offener_betrag(dbo.Faktura.Nrfaktura) AS Offener_Betrag, dbo.DEBITOR.Nrdebitor, dbo.Faktura.Mahndatum1,
|
||||
dbo.Faktura.Mahnfaelligkeit1, dbo.Faktura.Mahngebuehr1, dbo.Faktura.Mahndatum2, dbo.Faktura.Mahnfaelligkeit2, dbo.Faktura.Mahngebuehr2, dbo.Faktura.Mahndatum3, dbo.Faktura.Mahnfaelligkeit3,
|
||||
dbo.Faktura.Mahngebuehr3, dbo.Faktura.erstellt_am
|
||||
FROM dbo.DEBITOR INNER JOIN
|
||||
dbo.Faktura ON dbo.DEBITOR.Nrfaktura = dbo.Faktura.Nrfaktura
|
||||
WHERE (dbo.DEBITOR.Status <> 9) AND (dbo.DEBITOR.Betrag <> 0) AND (dbo.DEBITOR.aktiv = 1) AND (dbo.get_offener_betrag(dbo.Faktura.Nrfaktura) > 0)
|
||||
ORDER BY dbo.DEBITOR.Faelligam DESC
|
||||
|
||||
GO
|
||||
|
||||
SET IDENTITY_INSERT [dbo].[spalten] ON
|
||||
delete from spalten where tabelle='Leistung'
|
||||
DELETE FROM spalten WHERE tabelle='Offene_Rechnungen'
|
||||
DELETE FROM spalten WHERE tabelle='Zahlungen'
|
||||
go
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (383, N'leistung', N'Nrleistung', N'Nrleistung', 0, 0, N'', N'', CAST(N'2018-11-01 17:55:13.670' AS DateTime), CAST(N'2018-11-01 17:55:13.670' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (384, N'leistung', N'Datum', N'Datum', 70, 1, N'', N'dd.MM.yyyy', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (385, N'leistung', N'Nrbehandlung', N'Nrbehandlung', 0, 2, N'', N'', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (386, N'leistung', N'Mandant', N'Mandant', 0, 3, N'', N'', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (387, N'leistung', N'Nrtarifgruppe', N'Nrtarifgruppe', 0, 4, N'', N'', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (388, N'leistung', N'Nrtarif', N'Nrtarif', 0, 5, N'', N'', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (389, N'leistung', N'SSO_Nummer', N'Postition', 50, 5, N'', N'', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (390, N'leistung', N'Taxpunkte', N'TP.', 50, 7, N'', N'', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (391, N'leistung', N'Menge', N'Menge', 50, 8, N'', N'', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (392, N'leistung', N'Frankenprotaxpunkt', N'Fr./Taxpunkt', 80, 9, N'', N'Standard', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (393, N'leistung', N'Absolut', N'Absolut', 50, 11, N'', N'', CAST(N'2018-11-01 17:55:13.673' AS DateTime), CAST(N'2018-11-01 17:55:13.673' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (394, N'leistung', N'Total', N'Total', 50, 10, N'', N'Standard', CAST(N'2018-11-01 17:55:13.677' AS DateTime), CAST(N'2018-11-01 17:55:13.677' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (395, N'leistung', N'Bezd', N'Bezeichnung', 220, 6, N'', N'', CAST(N'2018-11-01 17:55:13.677' AS DateTime), CAST(N'2018-11-01 17:55:13.677' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (396, N'leistung', N'Bezi', N'Bezi', 0, 13, N'', N'', CAST(N'2018-11-01 17:55:13.677' AS DateTime), CAST(N'2018-11-01 17:55:13.677' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (397, N'leistung', N'Bezf', N'Bezf', 0, 14, N'', N'', CAST(N'2018-11-01 17:55:13.677' AS DateTime), CAST(N'2018-11-01 17:55:13.677' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (398, N'leistung', N'NrBehandler', N'NrBehandler', 0, 15, N'', N'', CAST(N'2018-11-01 17:55:13.677' AS DateTime), CAST(N'2018-11-01 17:55:13.677' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (399, N'leistung', N'erstellt_am', N'erstellt_am', 120, 16, N'', N'', CAST(N'2018-11-01 17:55:13.677' AS DateTime), CAST(N'2018-11-01 17:55:13.677' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (400, N'leistung', N'mutiert_am', N'mutiert_am', 0, 17, N'', N'', CAST(N'2018-11-01 17:55:13.677' AS DateTime), CAST(N'2018-11-01 17:55:13.677' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (401, N'leistung', N'mutierer', N'mutierer', 0, 18, N'', N'', CAST(N'2018-11-01 17:55:13.677' AS DateTime), CAST(N'2018-11-01 17:55:13.677' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (402, N'leistung', N'aktiv', N'aktiv', 0, 19, N'', N'', CAST(N'2018-11-01 17:55:13.677' AS DateTime), CAST(N'2018-11-01 17:55:13.677' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (444, N'Offene_Rechnungen', N'Nreintrag', N'Nreintrag', 0, 0, N'', N'', CAST(N'2018-01-11 22:24:01.850' AS DateTime), CAST(N'2018-01-11 22:24:01.850' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (445, N'Offene_Rechnungen', N'Nrfaktura', N'RG-Nummer', 80, 1, N'', N'', CAST(N'2018-01-11 22:24:01.853' AS DateTime), CAST(N'2018-01-11 22:24:01.853' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (446, N'Offene_Rechnungen', N'Faelligam', N'Faelligam', 70, 3, N'', N'dd.MM.yyyy', CAST(N'2018-01-11 22:24:01.853' AS DateTime), CAST(N'2018-01-11 22:24:01.853' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (447, N'Offene_Rechnungen', N'Betrag', N'Betrag', 70, 4, N'', N'Standard', CAST(N'2018-01-11 22:24:01.853' AS DateTime), CAST(N'2018-01-11 22:24:01.853' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (448, N'Offene_Rechnungen', N'Status', N'Status', 40, 5, N'', N'', CAST(N'2018-01-11 22:24:01.853' AS DateTime), CAST(N'2018-01-11 22:24:01.853' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (449, N'Offene_Rechnungen', N'Patient', N'Patient', 100, 6, N'', N'', CAST(N'2018-01-11 22:24:01.853' AS DateTime), CAST(N'2018-01-11 22:24:01.853' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (450, N'Offene_Rechnungen', N'Debitor', N'Debitor', 100, 7, N'', N'', CAST(N'2018-01-11 22:24:01.853' AS DateTime), CAST(N'2018-01-11 22:24:01.853' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (451, N'Offene_Rechnungen', N'Nrpatient', N'Nrpatient', 0, 8, N'', N'', CAST(N'2018-01-11 22:24:01.853' AS DateTime), CAST(N'2018-01-11 22:24:01.853' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (452, N'Offene_Rechnungen', N'Offener_Betrag', N'Offenen', 70, 9, N'', N'Standard', CAST(N'2018-01-11 22:24:01.853' AS DateTime), CAST(N'2018-01-11 22:24:01.853' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (453, N'Offene_Rechnungen', N'Nrdebitor', N'Nrdebitor', 50, 10, N'', N'', CAST(N'2018-01-11 22:24:01.853' AS DateTime), CAST(N'2018-01-11 22:24:01.853' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (454, N'Offene_Rechnungen', N'Mahndatum1', N'Mahn-Dat 1', 80, 11, N'', N'dd.MM.yyyy', CAST(N'2018-01-11 22:24:01.857' AS DateTime), CAST(N'2018-01-11 22:24:01.857' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (455, N'Offene_Rechnungen', N'Mahnfaelligkeit1', N'Mahn-Fälligk.- 1', 80, 12, N'', N'dd.MM.yyyy', CAST(N'2018-01-11 22:24:01.857' AS DateTime), CAST(N'2018-01-11 22:24:01.857' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (456, N'Offene_Rechnungen', N'Mahngebuehr1', N'Mahn-Geb. 1', 50, 13, N'', N'Standard', CAST(N'2018-01-11 22:24:01.857' AS DateTime), CAST(N'2018-01-11 22:24:01.857' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (457, N'Offene_Rechnungen', N'Mahndatum2', N'Mahn-Dat 2', 80, 14, N'', N'dd.MM.yyyy', CAST(N'2018-01-11 22:24:01.857' AS DateTime), CAST(N'2018-01-11 22:24:01.857' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (458, N'Offene_Rechnungen', N'Mahnfaelligkeit2', N'Mahn-Falligk. 2', 80, 15, N'', N'dd.MM.yyyy', CAST(N'2018-01-11 22:24:01.857' AS DateTime), CAST(N'2018-01-11 22:24:01.857' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (459, N'Offene_Rechnungen', N'Mahngebuehr2', N'Mahn-Geb. 2', 50, 16, N'', N'Standard', CAST(N'2018-01-11 22:24:01.857' AS DateTime), CAST(N'2018-01-11 22:24:01.857' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (460, N'Offene_Rechnungen', N'Mahndatum3', N'Mahn-Dat. 3', 80, 17, N'', N'dd.MM.yyyy', CAST(N'2018-01-11 22:24:01.857' AS DateTime), CAST(N'2018-01-11 22:24:01.857' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (461, N'Offene_Rechnungen', N'Mahnfaelligkeit3', N'Mahn-Fälligk. 3', 80, 18, N'', N'dd.MM.yyyy', CAST(N'2018-01-11 22:24:01.857' AS DateTime), CAST(N'2018-01-11 22:24:01.857' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (462, N'Offene_Rechnungen', N'Mahngebuehr3', N'Mahn-Geb. 3', 50, 19, N'', N'Standard', CAST(N'2018-01-11 22:24:01.860' AS DateTime), CAST(N'2018-01-11 22:24:01.860' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (463, N'Offene_Rechnungen', N'erstellt_am', N'RG. Erstellt am', 80, 2, N'', N'dd.MM.yyyy', CAST(N'2018-01-11 22:24:01.860' AS DateTime), CAST(N'2018-01-11 22:24:01.860' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (464, N'Zahlungen', N'nrzahlung', N'nrzahlung', 0, 0, N'', N'', CAST(N'2018-01-11 22:24:05.120' AS DateTime), CAST(N'2018-01-11 22:24:05.120' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (465, N'Zahlungen', N'Valuta', N'Valuta', 70, 3, N'', N'dd.MM.yyyy', CAST(N'2018-01-11 22:24:05.120' AS DateTime), CAST(N'2018-01-11 22:24:05.120' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (466, N'Zahlungen', N'Status', N'Status', 40, 5, N'', N'', CAST(N'2018-01-11 22:24:05.123' AS DateTime), CAST(N'2018-01-11 22:24:05.123' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (467, N'Zahlungen', N'Zahlungsstatus', N'Zahlungsstatus', 100, 4, N'', N'', CAST(N'2018-01-11 22:24:05.123' AS DateTime), CAST(N'2018-01-11 22:24:05.123' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (468, N'Zahlungen', N'Konto', N'Konto', 100, 1, N'', N'', CAST(N'2018-01-11 22:24:05.123' AS DateTime), CAST(N'2018-01-11 22:24:05.123' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (469, N'Zahlungen', N'Nrfaktura', N'Nrfaktura', 100, 6, N'', N'', CAST(N'2018-01-11 22:24:05.123' AS DateTime), CAST(N'2018-01-11 22:24:05.123' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (470, N'Zahlungen', N'betrag', N'Betrag', 70, 2, N'', N'Standard', CAST(N'2018-01-11 22:24:05.123' AS DateTime), CAST(N'2018-01-11 22:24:05.123' AS DateTime), -1, 1, 0, 0)
|
||||
INSERT [dbo].[spalten] ([SpalteNr], [Tabelle], [Tabellenspalte], [Spalte], [Breite], [Reihenfolge], [TipText], [Nummer_Format], [Erstellt_am], [Mutiert_am], [Mutierer], [aktiv], [readonly], [AlsHacken]) VALUES (471, N'Zahlungen', N'NrBehandlung', N'Nr. Beh.', 50, 7, N'', N'', CAST(N'2018-01-11 22:24:05.123' AS DateTime), CAST(N'2018-01-11 22:24:05.123' AS DateTime), -1, 1, 0, 0)
|
||||
SET IDENTITY_INSERT [dbo].[spalten] OFF
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,794 @@
|
||||
alter table behandlu alter column bemerkung varchar(2048)
|
||||
go
|
||||
DROP TABLE dbo.Gesetz
|
||||
GO
|
||||
|
||||
/****** Object: Table [dbo].[Behandlungsart] Script Date: 27.05.2018 08:38:07 ******/
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
SET ANSI_PADDING ON
|
||||
GO
|
||||
CREATE TABLE [dbo].[Behandlungsart](
|
||||
[nrbehandlungsart] [int] IDENTITY(1,1) NOT NULL,
|
||||
[Behandlungsart] [varchar](255) NULL,
|
||||
[erstellt_am] [datetime] NULL,
|
||||
[mutiert_am] [datetime] NULL,
|
||||
[mutierer] [int] NULL,
|
||||
[aktiv] [bit] NULL,
|
||||
CONSTRAINT [PK_Behandlungsart] PRIMARY KEY CLUSTERED
|
||||
(
|
||||
[nrbehandlungsart] ASC
|
||||
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
|
||||
) ON [PRIMARY]
|
||||
|
||||
GO
|
||||
SET ANSI_PADDING OFF
|
||||
GO
|
||||
/****** Object: Table [dbo].[Gesetz] Script Date: 27.05.2018 08:38:07 ******/
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
SET ANSI_PADDING ON
|
||||
GO
|
||||
CREATE TABLE [dbo].[Gesetz](
|
||||
[NrGesetz] [int] IDENTITY(1,1) NOT NULL,
|
||||
[Gesetz] [varchar](255) NULL,
|
||||
[erstellt_am] [datetime] NULL,
|
||||
[mutiert_am] [datetime] NULL,
|
||||
[mutierer] [int] NULL,
|
||||
[aktiv] [bit] NULL,
|
||||
CONSTRAINT [PK_Gesetz] PRIMARY KEY CLUSTERED
|
||||
(
|
||||
[NrGesetz] ASC
|
||||
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
|
||||
) ON [PRIMARY]
|
||||
|
||||
GO
|
||||
SET ANSI_PADDING OFF
|
||||
GO
|
||||
SET IDENTITY_INSERT [dbo].[Behandlungsart] ON
|
||||
|
||||
GO
|
||||
INSERT [dbo].[Behandlungsart] ([nrbehandlungsart], [Behandlungsart], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (1, N'', CAST(N'2018-05-05 00:00:00.000' AS DateTime), CAST(N'2018-05-05 00:00:00.000' AS DateTime), 1, 1)
|
||||
GO
|
||||
INSERT [dbo].[Behandlungsart] ([nrbehandlungsart], [Behandlungsart], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (2, N'ambulant', CAST(N'2018-05-05 00:00:00.000' AS DateTime), CAST(N'2018-05-05 00:00:00.000' AS DateTime), 1, 1)
|
||||
GO
|
||||
INSERT [dbo].[Behandlungsart] ([nrbehandlungsart], [Behandlungsart], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (3, N'stationär', CAST(N'2018-05-05 00:00:00.000' AS DateTime), CAST(N'2018-05-05 00:00:00.000' AS DateTime), 1, 1)
|
||||
GO
|
||||
SET IDENTITY_INSERT [dbo].[Behandlungsart] OFF
|
||||
GO
|
||||
SET IDENTITY_INSERT [dbo].[Gesetz] ON
|
||||
|
||||
GO
|
||||
INSERT [dbo].[Gesetz] ([NrGesetz], [Gesetz], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (1, N'', CAST(N'2018-05-05 00:00:00.000' AS DateTime), CAST(N'2018-05-05 00:00:00.000' AS DateTime), 1, 1)
|
||||
GO
|
||||
INSERT [dbo].[Gesetz] ([NrGesetz], [Gesetz], [erstellt_am], [mutiert_am], [mutierer], [aktiv]) VALUES (2, N'UVG', CAST(N'2018-05-05 00:00:00.000' AS DateTime), CAST(N'2018-05-05 00:00:00.000' AS DateTime), 1, 1)
|
||||
GO
|
||||
SET IDENTITY_INSERT [dbo].[Gesetz] OFF
|
||||
GO
|
||||
ALTER TABLE dbo.Behandlu ADD NrBehandlungsart INT
|
||||
GO
|
||||
UPDATE dbo.Behandlu SET NrBehandlungsart=0
|
||||
GO
|
||||
/****** Object: UserDefinedFunction [dbo].[get_Behandlungsart] Script Date: 27.05.2018 08:50:05 ******/
|
||||
DROP FUNCTION [dbo].[get_Behandlungsart]
|
||||
GO
|
||||
|
||||
/****** Object: UserDefinedFunction [dbo].[get_Behandlungsart] Script Date: 27.05.2018 08:50:05 ******/
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
|
||||
-- =============================================
|
||||
-- Author: <Author,,Name>
|
||||
-- Create date: <Create Date, ,>
|
||||
-- Description: <Description, ,>
|
||||
-- =============================================
|
||||
CREATE FUNCTION [dbo].[get_Behandlungsart]
|
||||
(
|
||||
|
||||
@behandlungsnr INT
|
||||
)
|
||||
RETURNS VARCHAR(255)
|
||||
AS
|
||||
BEGIN
|
||||
|
||||
DECLARE @behandlungsart VARCHAR(255)
|
||||
DECLARE @nr INT
|
||||
SELECT @nr=ISNULL(NrBehandlungsart,0) FROM behandlu WHERE Nrbehandlung=@behandlungsnr
|
||||
IF @nr=0 BEGIN
|
||||
SET @behandlungsart=''
|
||||
END ELSE BEGIN
|
||||
SELECT @behandlungsart=behandlungsart FROM behandlungsart WHERE nrbehandlungsart=@nr
|
||||
END
|
||||
RETURN @behandlungsart
|
||||
|
||||
|
||||
END
|
||||
|
||||
GO
|
||||
|
||||
|
||||
/****** Object: StoredProcedure [dbo].[sp_get_fakturadata] Script Date: 27.05.2018 09:48:21 ******/
|
||||
DROP PROCEDURE [dbo].[sp_get_fakturadata]
|
||||
GO
|
||||
|
||||
/****** Object: StoredProcedure [dbo].[sp_get_fakturadata] Script Date: 27.05.2018 09:48:21 ******/
|
||||
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
|
||||
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
|
||||
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)
|
||||
);
|
||||
|
||||
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
|
||||
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;
|
||||
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
|
||||
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 = 0 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
|
||||
|
||||
|
||||
@@ -0,0 +1,4 @@
|
||||
update behandlu set total=0.00 where Nrbehandlung=0
|
||||
go
|
||||
update behandlu set Behandlungsende='1900-01-01' where nrbehandlung=0
|
||||
go
|
||||
@@ -0,0 +1,121 @@
|
||||
Alter Table zjournal alter column debitor varchar(255)
|
||||
go
|
||||
|
||||
DROP VIEW [dbo].[View_Offene_Mahnungen]
|
||||
GO
|
||||
|
||||
/****** Object: View [dbo].[View_Offene_Mahnungen] Script Date: 30.05.2018 23:32:00 ******/
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
|
||||
CREATE VIEW [dbo].[View_Offene_Mahnungen]
|
||||
AS
|
||||
SELECT TOP (100) PERCENT dbo.DEBITOR.Nreintrag, dbo.Faktura.Nrfaktura, dbo.DEBITOR.Faelligam, dbo.DEBITOR.Betrag, dbo.DEBITOR.Status, dbo.get_adresse_direkt(dbo.DEBITOR.Nrpatient, 1) AS Patient,
|
||||
ISNULL(dbo.get_adresse_direkt(dbo.DEBITOR.Nrdebitor, 1), '') AS Debitor, dbo.DEBITOR.Nrpatient, dbo.get_offener_betrag(dbo.Faktura.Nrfaktura) AS Offener_Betrag, dbo.DEBITOR.Nrdebitor, dbo.Faktura.Mahndatum1,
|
||||
dbo.Faktura.Mahnfaelligkeit1, dbo.Faktura.Mahngebuehr1, dbo.Faktura.Mahndatum2, dbo.Faktura.Mahnfaelligkeit2, dbo.Faktura.Mahngebuehr2, dbo.Faktura.Mahndatum3, dbo.Faktura.Mahnfaelligkeit3,
|
||||
dbo.Faktura.Mahngebuehr3, dbo.Faktura.erstellt_am, dbo.Faktura.MAHNSTOP
|
||||
FROM dbo.DEBITOR INNER JOIN
|
||||
dbo.Faktura ON dbo.DEBITOR.Nrfaktura = dbo.Faktura.Nrfaktura
|
||||
WHERE (dbo.DEBITOR.Status <> 9) AND (dbo.DEBITOR.Betrag <> 0) AND (dbo.DEBITOR.Betrag > 0.04) AND (dbo.DEBITOR.aktiv = 1) AND (dbo.get_offener_betrag(dbo.Faktura.Nrfaktura) > 0) AND (dbo.Faktura.Status <> 9)
|
||||
ORDER BY dbo.DEBITOR.Faelligam DESC
|
||||
|
||||
GO
|
||||
|
||||
/****** Object: UserDefinedFunction [dbo].[get_totalblock] Script Date: 30.05.2018 23:33:16 ******/
|
||||
DROP FUNCTION [dbo].[get_totalblock]
|
||||
GO
|
||||
|
||||
/****** Object: UserDefinedFunction [dbo].[get_totalblock] Script Date: 30.05.2018 23:33:16 ******/
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
|
||||
-- =============================================
|
||||
-- Author: <Author,,Name>
|
||||
-- Create date: <Create Date, ,>
|
||||
-- Description: <Description, ,>
|
||||
-- =============================================
|
||||
CREATE FUNCTION [dbo].[get_totalblock]
|
||||
(
|
||||
-- Add the parameters for the function here
|
||||
@typ INT,
|
||||
@nrbehanlung INT
|
||||
)
|
||||
RETURNS VARCHAR(1024)
|
||||
AS
|
||||
BEGIN
|
||||
DECLARE @res VARCHAR(1024)
|
||||
DECLARE @res2 VARCHAR(1024)
|
||||
DECLARE @sum float
|
||||
declare @crlf varchar(2)
|
||||
SET @crlf = char(13) + char(10)
|
||||
SET @res=''
|
||||
SET @res2=''
|
||||
|
||||
SELECT @sum=ISNULL(dbo.get_totale(1,@nrbehanlung),0)
|
||||
IF @sum<>0 BEGIN
|
||||
IF @res<>'' BEGIN
|
||||
SET @res=@res+@crlf
|
||||
SET @res2=@res2+@crlf
|
||||
end
|
||||
SET @res=@res+'Total Leistungen'
|
||||
SET @res2=@res2+STR(@sum,10,2)
|
||||
END
|
||||
SELECT @sum=ISNULL(dbo.get_totale(2,@nrbehanlung),0)
|
||||
IF @sum<>0 BEGIN
|
||||
IF @res<>'' BEGIN
|
||||
SET @res=@res+@crlf
|
||||
SET @res2=@res2+@crlf
|
||||
end
|
||||
SET @res=@res+'Materialien'
|
||||
SET @res2=@res2+STR(@sum,10,2)
|
||||
END
|
||||
SELECT @sum=ISNULL(dbo.get_totale(3,@nrbehanlung),0)
|
||||
IF @sum<>0 BEGIN
|
||||
IF @res<>'' BEGIN
|
||||
SET @res=@res+@crlf
|
||||
SET @res2=@res2+@crlf
|
||||
end
|
||||
SET @res=@res+'Labor'
|
||||
SET @res2=@res2+STR(@sum,10,2)
|
||||
END
|
||||
DECLARE @rate FLOAT
|
||||
SELECT @rate=ratenzuschlag FROM dbo.Behandlu WHERE Nrbehandlung=@nrbehanlung
|
||||
IF @rate>0 BEGIN
|
||||
IF @res<>'' BEGIN
|
||||
SET @res=@res+@crlf
|
||||
SET @res2=@res2+@crlf
|
||||
end
|
||||
SET @res=@res+'Ratenzuschlag'
|
||||
SET @res2=@res2+STR(@rate,10,2)
|
||||
end
|
||||
SELECT @sum=ISNULL(dbo.get_totale(4,@nrbehanlung),0)
|
||||
IF @sum<>0 BEGIN
|
||||
IF @res<>'' BEGIN
|
||||
SET @res=@res+@crlf
|
||||
SET @res2=@res2+@crlf
|
||||
end
|
||||
SET @res=@res+'./. Rabatt'
|
||||
SET @res2=@res2+STR(@sum,10,2)
|
||||
END
|
||||
SELECT @sum=ISNULL(dbo.get_totale(5,@nrbehanlung),0)
|
||||
IF @sum<>0 BEGIN
|
||||
IF @res<>'' BEGIN
|
||||
SET @res=@res+@crlf
|
||||
SET @res2=@res2+@crlf
|
||||
end
|
||||
SET @res=@res+'./. Vorauszahlunagen'
|
||||
SET @res2=@res2+STR(@sum,10,2)
|
||||
END
|
||||
IF @typ=1 RETURN @res
|
||||
IF @typ=2 RETURN @res2
|
||||
RETURN ''
|
||||
END
|
||||
GO
|
||||
|
||||
|
||||
@@ -0,0 +1,738 @@
|
||||
alter table estyp add mahnnummer int
|
||||
go
|
||||
update estyp set mahnnummer=100 where nrestyp=1
|
||||
update estyp set mahnnummer=300 where nrestyp=5
|
||||
go
|
||||
/****** Object: StoredProcedure [dbo].[sp_get_fakturadata] Script Date: 30.06.2018 21:45:38 ******/
|
||||
DROP PROCEDURE [dbo].[sp_get_fakturadata]
|
||||
GO
|
||||
|
||||
/****** Object: StoredProcedure [dbo].[sp_get_fakturadata] Script Date: 30.06.2018 21:45:38 ******/
|
||||
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
|
||||
|
||||
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 = 0 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
|
||||
|
||||
|
||||
@@ -0,0 +1,104 @@
|
||||
ALTER TABLE abrtyp ADD mit_datum bit
|
||||
GO
|
||||
UPDATE abrtyp SET mit_datum = 0
|
||||
go
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
|
||||
SET ANSI_PADDING ON
|
||||
GO
|
||||
|
||||
CREATE TABLE [dbo].[CAMT_Record](
|
||||
[nreintrag] [int] IDENTITY(1,1) NOT NULL,
|
||||
[CAMT_FileNr] [int] NULL,
|
||||
[Referenz] [varchar](255) NULL,
|
||||
[Valuta] [datetime] NULL,
|
||||
[Buchungsdatum] [datetime] NULL,
|
||||
[Betrag] [float] NULL,
|
||||
[Taxen] [float] NULL,
|
||||
[aktiv] [bit] NULL,
|
||||
[erstellt_am] [datetime] NULL,
|
||||
[mutiert_am] [datetime] NULL,
|
||||
[mutierer] [int] NULL,
|
||||
[verbucht] [bit] NULL,
|
||||
CONSTRAINT [PK_CAMT_Record] PRIMARY KEY CLUSTERED
|
||||
(
|
||||
[nreintrag] ASC
|
||||
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
|
||||
) ON [PRIMARY]
|
||||
|
||||
GO
|
||||
|
||||
SET ANSI_PADDING OFF
|
||||
GO
|
||||
|
||||
/****** Object: Table [dbo].[CAMT_File] Script Date: 24.08.2018 16:27:12 ******/
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
|
||||
SET ANSI_PADDING ON
|
||||
GO
|
||||
|
||||
CREATE TABLE [dbo].[CAMT_File](
|
||||
[Nreintrag] [int] IDENTITY(1,1) NOT NULL,
|
||||
[CAMT_RunNr] [int] NULL,
|
||||
[Filename] [varchar](8000) NULL,
|
||||
[CAMT_File] [image] NULL,
|
||||
[CreateDateTime] [datetime] NULL,
|
||||
[IBAN] [varchar](255) NULL,
|
||||
[REF] [varchar](255) NULL,
|
||||
[Anzahl_Buchungen] [int] NULL,
|
||||
[ID] [varchar](255) NULL,
|
||||
[Total] [float] NULL,
|
||||
[aktiv] [bit] NULL,
|
||||
[erstellt_am] [datetime] NULL,
|
||||
[mutiert_am] [datetime] NULL,
|
||||
[mutierer] [int] NULL,
|
||||
CONSTRAINT [PK_CAMT_File] PRIMARY KEY CLUSTERED
|
||||
(
|
||||
[Nreintrag] ASC
|
||||
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
|
||||
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
|
||||
|
||||
GO
|
||||
|
||||
SET ANSI_PADDING OFF
|
||||
GO
|
||||
|
||||
/****** Object: Table [dbo].[CAMT_Run] Script Date: 24.08.2018 16:27:12 ******/
|
||||
SET ANSI_NULLS ON
|
||||
GO
|
||||
|
||||
SET QUOTED_IDENTIFIER ON
|
||||
GO
|
||||
|
||||
SET ANSI_PADDING ON
|
||||
GO
|
||||
|
||||
CREATE TABLE [dbo].[CAMT_Run](
|
||||
[NrEIntrag] [int] IDENTITY(1,1) NOT NULL,
|
||||
[Datum] [datetime] NULL,
|
||||
[aktiv] [bit] NULL,
|
||||
[erstellt_am] [datetime] NULL,
|
||||
[mutiert_am] [datetime] NULL,
|
||||
[mutierer] [int] NULL,
|
||||
[sourcefile] [image] NULL,
|
||||
[Sourcefilename] [varchar](8000) NULL,
|
||||
CONSTRAINT [PK_CAMT_Run] PRIMARY KEY CLUSTERED
|
||||
(
|
||||
[NrEIntrag] ASC
|
||||
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
|
||||
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
|
||||
|
||||
GO
|
||||
|
||||
SET ANSI_PADDING OFF
|
||||
GO
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,4 @@
|
||||
ALTER TABLE Leistung ADD NrBehandler INT
|
||||
GO
|
||||
UPDATE leistung SET nrbehandler=0
|
||||
go
|
||||
@@ -0,0 +1,6 @@
|
||||
alter table tarif alter column bezd varchar(255)
|
||||
go
|
||||
alter table tarif alter column bezf varchar(255)
|
||||
go
|
||||
alter table tarif alter column bezi varchar(255)
|
||||
go
|
||||
Binary file not shown.
BIN
2018_Datenmigration_Definitiv/Insert_Scripts_2.sql
Normal file
BIN
2018_Datenmigration_Definitiv/Insert_Scripts_2.sql
Normal file
Binary file not shown.
96
2018_Datenmigration_Definitiv/Script2.sql
Normal file
96
2018_Datenmigration_Definitiv/Script2.sql
Normal file
@@ -0,0 +1,96 @@
|
||||
update [ABRTYP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Absender] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ANREDE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ANSATZ] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [anzahlug] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BARCODE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BARCODES] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BCART] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BCFNKT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BCPAGE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Behandlu] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BERECHT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BESRI] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BESRT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [BJOURNAL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Calendar] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [CustDocs] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [DEBITOR] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [DentoTar] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
|
||||
update [Dentotar_Parameter] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [DesignFaktura] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ESTYP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FAKTPOS] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Faktura] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FData] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FIRMA] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FIRMAAP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FJOURNAL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FORMFELD] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FORMULAR] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [FUNKTION] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [INDEXES] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [KG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [KONTO] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [LEISTUNG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [LLFILES] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Log] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [MANDANT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [MELDUNG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [MONATE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Offene_Rechnungen] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [OPTIONS] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ORTE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
--update [Ortsverzeichnis] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [PAKETPOS] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [PRIVAT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [PUNKTE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [RECALL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [RECHTEXT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Report] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [reportdb] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Reports] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Res] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [resttem1] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [resttem2] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [resttemp] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [RGTYP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ROLLENP] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [sortlei] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [spalten] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [SPRACHE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [SQL_Statements] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1--,aktiv=1
|
||||
update [STATTEXT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [status] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [STATUSBH] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TAGPLAN] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARBUCH] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARIF] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARIFE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Tarifgrp] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TARPAKET] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TAXPUNKT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TEXTE] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TITEL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpbesr] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpempf] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpfaktura] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmphaz] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPKONTO] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpop] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmppatlab] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPRCALL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmprecalle] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmprecallw] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmprechnung] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPSORT] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [TMPUMSA] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [tmpzaz] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [USER] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [VDKonti] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [VSKonti] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [WORKLOG] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Zahlung] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [Zahlung_Sik_error] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
update [ZJOURNAL] set erstellt_am=getdate(),mutiert_am=getdate(),mutierer=1,aktiv=1
|
||||
6
CryptoEditor/App.config
Normal file
6
CryptoEditor/App.config
Normal 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>
|
||||
34
CryptoEditor/Crypto.vb
Normal file
34
CryptoEditor/Crypto.vb
Normal file
@@ -0,0 +1,34 @@
|
||||
Module Crypto
|
||||
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
EncryptText = strBuff
|
||||
End Function
|
||||
|
||||
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
DecryptText = strBuff
|
||||
End Function
|
||||
End Module
|
||||
125
CryptoEditor/CryptoEditor.vbproj
Normal file
125
CryptoEditor/CryptoEditor.vbproj
Normal file
@@ -0,0 +1,125 @@
|
||||
<?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>{966835BD-32B9-468C-8A54-E5FB934FC910}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>CryptoEditor.My.MyApplication</StartupObject>
|
||||
<RootNamespace>CryptoEditor</RootNamespace>
|
||||
<AssemblyName>CryptoEditor</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>CryptoEditor.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>CryptoEditor.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="C1.Win.C1Editor.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=79882d576c6336da, processorArchitecture=MSIL" />
|
||||
<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="Crypto.vb" />
|
||||
<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="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\licenses.licx" />
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</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>
|
||||
143
CryptoEditor/Form1.Designer.vb
generated
Normal file
143
CryptoEditor/Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,143 @@
|
||||
<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()
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.VerschlpsselteDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.LadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SpeichernToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.UnverschlüsselteDateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.LadenToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SpeichernToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiiToolStripMenuItem, Me.VerschlpsselteDateiToolStripMenuItem, Me.UnverschlüsselteDateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(800, 24)
|
||||
Me.MenuStrip1.TabIndex = 0
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiiToolStripMenuItem
|
||||
'
|
||||
Me.DateiiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||
Me.DateiiToolStripMenuItem.Name = "DateiiToolStripMenuItem"
|
||||
Me.DateiiToolStripMenuItem.Size = New System.Drawing.Size(49, 20)
|
||||
Me.DateiiToolStripMenuItem.Text = "&Dateii"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.BeendenToolStripMenuItem.Text = "Beenden"
|
||||
'
|
||||
'VerschlpsselteDateiToolStripMenuItem
|
||||
'
|
||||
Me.VerschlpsselteDateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LadenToolStripMenuItem, Me.SpeichernToolStripMenuItem})
|
||||
Me.VerschlpsselteDateiToolStripMenuItem.Name = "VerschlpsselteDateiToolStripMenuItem"
|
||||
Me.VerschlpsselteDateiToolStripMenuItem.Size = New System.Drawing.Size(122, 20)
|
||||
Me.VerschlpsselteDateiToolStripMenuItem.Text = "Verschlpsselte Datei"
|
||||
'
|
||||
'LadenToolStripMenuItem
|
||||
'
|
||||
Me.LadenToolStripMenuItem.Name = "LadenToolStripMenuItem"
|
||||
Me.LadenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.LadenToolStripMenuItem.Text = "Laden"
|
||||
'
|
||||
'SpeichernToolStripMenuItem
|
||||
'
|
||||
Me.SpeichernToolStripMenuItem.Name = "SpeichernToolStripMenuItem"
|
||||
Me.SpeichernToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
|
||||
Me.SpeichernToolStripMenuItem.Text = "Speichern"
|
||||
'
|
||||
'UnverschlüsselteDateiToolStripMenuItem
|
||||
'
|
||||
Me.UnverschlüsselteDateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LadenToolStripMenuItem1, Me.SpeichernToolStripMenuItem1})
|
||||
Me.UnverschlüsselteDateiToolStripMenuItem.Name = "UnverschlüsselteDateiToolStripMenuItem"
|
||||
Me.UnverschlüsselteDateiToolStripMenuItem.Size = New System.Drawing.Size(137, 20)
|
||||
Me.UnverschlüsselteDateiToolStripMenuItem.Text = "Unverschlüsselte Datei"
|
||||
'
|
||||
'LadenToolStripMenuItem1
|
||||
'
|
||||
Me.LadenToolStripMenuItem1.Name = "LadenToolStripMenuItem1"
|
||||
Me.LadenToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
Me.LadenToolStripMenuItem1.Text = "Laden"
|
||||
'
|
||||
'SpeichernToolStripMenuItem1
|
||||
'
|
||||
Me.SpeichernToolStripMenuItem1.Name = "SpeichernToolStripMenuItem1"
|
||||
Me.SpeichernToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
|
||||
Me.SpeichernToolStripMenuItem1.Text = "Speichern"
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.TextBox1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.TextBox1.Multiline = True
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(800, 426)
|
||||
Me.TextBox1.TabIndex = 1
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||
Me.Controls.Add(Me.TextBox1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "Form1"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MenuStrip1 As MenuStrip
|
||||
Friend WithEvents DateiiToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents VerschlpsselteDateiToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents LadenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents SpeichernToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents UnverschlüsselteDateiToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents LadenToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents SpeichernToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents OpenFileDialog1 As OpenFileDialog
|
||||
Friend WithEvents SaveFileDialog1 As SaveFileDialog
|
||||
Friend WithEvents TextBox1 As TextBox
|
||||
End Class
|
||||
129
CryptoEditor/Form1.resx
Normal file
129
CryptoEditor/Form1.resx
Normal file
@@ -0,0 +1,129 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>132, 17</value>
|
||||
</metadata>
|
||||
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>274, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
63
CryptoEditor/Form1.vb
Normal file
63
CryptoEditor/Form1.vb
Normal file
@@ -0,0 +1,63 @@
|
||||
Imports System.IO
|
||||
Public Class Form1
|
||||
Const CryptoKey As String = "StefanHutterUnternehmensberatung8808Pfaeffikon"
|
||||
Private Sub LadenToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles LadenToolStripMenuItem1.Click
|
||||
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
|
||||
Read_File(OpenFileDialog1.FileName, False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LadenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LadenToolStripMenuItem.Click
|
||||
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
|
||||
Read_File(OpenFileDialog1.FileName, True)
|
||||
End If
|
||||
End Sub
|
||||
Private Sub Read_File(ByVal filename As String, ByVal Crypted As Boolean)
|
||||
Dim reader = File.OpenText(filename)
|
||||
Me.TextBox1.Text = ""
|
||||
Dim line As String = Nothing
|
||||
|
||||
Dim lines As Integer = 0
|
||||
Dim i = 0
|
||||
While (reader.Peek() <> -1)
|
||||
line = reader.ReadLine()
|
||||
If Crypted Then
|
||||
line = Crypto.DecryptText(line, CryptoKey)
|
||||
End If
|
||||
If i > 0 Then Me.TextBox1.AppendText(vbCrLf)
|
||||
i = i + 1
|
||||
Me.TextBox1.AppendText(line)
|
||||
End While
|
||||
reader.Close()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub SpeichernToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem1.Click
|
||||
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
|
||||
save_file(SaveFileDialog1.FileName, False)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub SpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichernToolStripMenuItem.Click
|
||||
If SaveFileDialog1.ShowDialog = DialogResult.OK Then
|
||||
Save_File(SaveFileDialog1.FileName, True)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Save_File(ByVal Filename As String, ByVal Crypted As Boolean)
|
||||
Dim file As System.IO.StreamWriter
|
||||
file = My.Computer.FileSystem.OpenTextFileWriter(Filename, False)
|
||||
For i = 0 To Me.TextBox1.Lines.Count - 1
|
||||
Dim s As String
|
||||
s = Me.TextBox1.Lines(i)
|
||||
If Crypted Then s = Crypto.EncryptText(s, CryptoKey)
|
||||
file.WriteLine(s)
|
||||
Next
|
||||
file.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
38
CryptoEditor/My Project/Application.Designer.vb
generated
Normal file
38
CryptoEditor/My Project/Application.Designer.vb
generated
Normal 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.CryptoEditor.Form1
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
11
CryptoEditor/My Project/Application.myapp
Normal file
11
CryptoEditor/My Project/Application.myapp
Normal 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
CryptoEditor/My Project/AssemblyInfo.vb
Normal file
35
CryptoEditor/My Project/AssemblyInfo.vb
Normal 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("CryptoEditor")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("CryptoEditor")>
|
||||
<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("cb7c4350-726a-4815-acef-9c8cde784209")>
|
||||
|
||||
' 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
CryptoEditor/My Project/Resources.Designer.vb
generated
Normal file
62
CryptoEditor/My Project/Resources.Designer.vb
generated
Normal 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("CryptoEditor.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
CryptoEditor/My Project/Resources.resx
Normal file
117
CryptoEditor/My Project/Resources.resx
Normal 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
CryptoEditor/My Project/Settings.Designer.vb
generated
Normal file
73
CryptoEditor/My Project/Settings.Designer.vb
generated
Normal 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.CryptoEditor.My.MySettings
|
||||
Get
|
||||
Return Global.CryptoEditor.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
CryptoEditor/My Project/Settings.settings
Normal file
7
CryptoEditor/My Project/Settings.settings
Normal 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>
|
||||
1
CryptoEditor/My Project/licenses.licx
Normal file
1
CryptoEditor/My Project/licenses.licx
Normal file
@@ -0,0 +1 @@
|
||||
C1.Win.C1Editor.C1Editor, C1.Win.C1Editor.4, Version=4.0.20153.110, Culture=neutral, PublicKeyToken=79882d576c6336da
|
||||
BIN
CryptoEditor/bin/Debug/C1.Win.C1Editor.4.dll
Normal file
BIN
CryptoEditor/bin/Debug/C1.Win.C1Editor.4.dll
Normal file
Binary file not shown.
14524
CryptoEditor/bin/Debug/C1.Win.C1Editor.4.xml
Normal file
14524
CryptoEditor/bin/Debug/C1.Win.C1Editor.4.xml
Normal file
File diff suppressed because it is too large
Load Diff
BIN
CryptoEditor/bin/Debug/CryptoEditor.exe
Normal file
BIN
CryptoEditor/bin/Debug/CryptoEditor.exe
Normal file
Binary file not shown.
6
CryptoEditor/bin/Debug/CryptoEditor.exe.config
Normal file
6
CryptoEditor/bin/Debug/CryptoEditor.exe.config
Normal 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>
|
||||
BIN
CryptoEditor/bin/Debug/CryptoEditor.pdb
Normal file
BIN
CryptoEditor/bin/Debug/CryptoEditor.pdb
Normal file
Binary file not shown.
26
CryptoEditor/bin/Debug/CryptoEditor.xml
Normal file
26
CryptoEditor/bin/Debug/CryptoEditor.xml
Normal file
@@ -0,0 +1,26 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
CryptoEditor
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:CryptoEditor.My.Resources.Resources">
|
||||
<summary>
|
||||
A strongly-typed resource class, for looking up localized strings, etc.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:CryptoEditor.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Returns the cached ResourceManager instance used by this class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:CryptoEditor.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Overrides the current thread's CurrentUICulture property for all
|
||||
resource lookups using this strongly typed resource class.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
BIN
CryptoEditor/obj/Debug/CryptoEditor.Form1.resources
Normal file
BIN
CryptoEditor/obj/Debug/CryptoEditor.Form1.resources
Normal file
Binary file not shown.
BIN
CryptoEditor/obj/Debug/CryptoEditor.Resources.resources
Normal file
BIN
CryptoEditor/obj/Debug/CryptoEditor.Resources.resources
Normal file
Binary file not shown.
BIN
CryptoEditor/obj/Debug/CryptoEditor.exe
Normal file
BIN
CryptoEditor/obj/Debug/CryptoEditor.exe
Normal file
Binary file not shown.
BIN
CryptoEditor/obj/Debug/CryptoEditor.pdb
Normal file
BIN
CryptoEditor/obj/Debug/CryptoEditor.pdb
Normal file
Binary file not shown.
@@ -0,0 +1 @@
|
||||
c25b68a472794d78e09340ae6530aa05beafcb9a
|
||||
@@ -0,0 +1,16 @@
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\bin\Debug\CryptoEditor.exe.config
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\bin\Debug\CryptoEditor.exe
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\bin\Debug\CryptoEditor.pdb
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\bin\Debug\CryptoEditor.xml
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\bin\Debug\C1.Win.C1Editor.4.dll
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\bin\Debug\C1.Win.C1Editor.4.xml
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.vbprojResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.Form1.resources
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.Resources.resources
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.vbproj.GenerateResource.cache
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.exe.licenses
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.vbproj.CoreCompileInputs.cache
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.vbproj.CopyComplete
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.exe
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.xml
|
||||
E:\Software-Projekte\DPM\DPM2016\CryptoEditor\obj\Debug\CryptoEditor.pdb
|
||||
Binary file not shown.
Binary file not shown.
26
CryptoEditor/obj/Debug/CryptoEditor.xml
Normal file
26
CryptoEditor/obj/Debug/CryptoEditor.xml
Normal file
@@ -0,0 +1,26 @@
|
||||
<?xml version="1.0"?>
|
||||
<doc>
|
||||
<assembly>
|
||||
<name>
|
||||
CryptoEditor
|
||||
</name>
|
||||
</assembly>
|
||||
<members>
|
||||
<member name="T:CryptoEditor.My.Resources.Resources">
|
||||
<summary>
|
||||
A strongly-typed resource class, for looking up localized strings, etc.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:CryptoEditor.My.Resources.Resources.ResourceManager">
|
||||
<summary>
|
||||
Returns the cached ResourceManager instance used by this class.
|
||||
</summary>
|
||||
</member>
|
||||
<member name="P:CryptoEditor.My.Resources.Resources.Culture">
|
||||
<summary>
|
||||
Overrides the current thread's CurrentUICulture property for all
|
||||
resource lookups using this strongly typed resource class.
|
||||
</summary>
|
||||
</member>
|
||||
</members>
|
||||
</doc>
|
||||
BIN
CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferences.cache
Normal file
BIN
CryptoEditor/obj/Debug/DesignTimeResolveAssemblyReferences.cache
Normal file
Binary file not shown.
Binary file not shown.
Binary file not shown.
BIN
CryptoEditor/obj/Debug/cryptoeditor.exe.licenses
Normal file
BIN
CryptoEditor/obj/Debug/cryptoeditor.exe.licenses
Normal file
Binary file not shown.
@@ -0,0 +1 @@
|
||||
c25b68a472794d78e09340ae6530aa05beafcb9a
|
||||
Binary file not shown.
Binary file not shown.
34
DAL_SQLServer/Crypto.vb
Normal file
34
DAL_SQLServer/Crypto.vb
Normal file
@@ -0,0 +1,34 @@
|
||||
Module Crypto
|
||||
Public Function EncryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c + Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
EncryptText = strBuff
|
||||
End Function
|
||||
|
||||
Public Function DecryptText(ByVal strText As String, ByVal strPwd As String)
|
||||
Dim i As Integer, c As Integer
|
||||
Dim strBuff As String
|
||||
strPwd = UCase$(strPwd)
|
||||
If Len(strPwd) Then
|
||||
For i = 1 To Len(strText)
|
||||
c = Asc(Mid$(strText, i, 1))
|
||||
c = c - Asc(Mid$(strPwd, (i Mod Len(strPwd)) + 1, 1))
|
||||
strBuff = strBuff & Chr(c And &HFF)
|
||||
Next i
|
||||
Else
|
||||
strBuff = strText
|
||||
End If
|
||||
DecryptText = strBuff
|
||||
End Function
|
||||
End Module
|
||||
104
DAL_SQLServer/DAL_SQLServer.vbproj
Normal file
104
DAL_SQLServer/DAL_SQLServer.vbproj
Normal file
@@ -0,0 +1,104 @@
|
||||
<?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>{A5D551F4-5069-4BE7-A3B5-391759A81295}</ProjectGuid>
|
||||
<OutputType>Library</OutputType>
|
||||
<RootNamespace>DAL_SQLServer</RootNamespace>
|
||||
<AssemblyName>DAL_SQLServer</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>Windows</MyType>
|
||||
<TargetFrameworkVersion>v4.6</TargetFrameworkVersion>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>DAL_SQLServer.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>DAL_SQLServer.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.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.Diagnostics" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
<Import Include="System.Threading.Tasks" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="clsdb.vb" />
|
||||
<Compile Include="Crypto.vb" />
|
||||
<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>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
</Project>
|
||||
13
DAL_SQLServer/My Project/Application.Designer.vb
generated
Normal file
13
DAL_SQLServer/My Project/Application.Designer.vb
generated
Normal file
@@ -0,0 +1,13 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <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
|
||||
|
||||
10
DAL_SQLServer/My Project/Application.myapp
Normal file
10
DAL_SQLServer/My Project/Application.myapp
Normal file
@@ -0,0 +1,10 @@
|
||||
<?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>false</MySubMain>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>1</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
35
DAL_SQLServer/My Project/AssemblyInfo.vb
Normal file
35
DAL_SQLServer/My Project/AssemblyInfo.vb
Normal 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("DAL_SQLServer")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("DAL_SQLServer")>
|
||||
<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("edbb5355-3b23-4334-b2e5-f6e8a1be4203")>
|
||||
|
||||
' 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
DAL_SQLServer/My Project/Resources.Designer.vb
generated
Normal file
62
DAL_SQLServer/My Project/Resources.Designer.vb
generated
Normal 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("DAL_SQLServer.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
DAL_SQLServer/My Project/Resources.resx
Normal file
117
DAL_SQLServer/My Project/Resources.resx
Normal 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
DAL_SQLServer/My Project/Settings.Designer.vb
generated
Normal file
73
DAL_SQLServer/My Project/Settings.Designer.vb
generated
Normal 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.DAL_SQLServer.My.MySettings
|
||||
Get
|
||||
Return Global.DAL_SQLServer.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
7
DAL_SQLServer/My Project/Settings.settings
Normal file
7
DAL_SQLServer/My Project/Settings.settings
Normal 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>
|
||||
869
DAL_SQLServer/clsdb.vb
Normal file
869
DAL_SQLServer/clsdb.vb
Normal file
@@ -0,0 +1,869 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Data.SqlTypes
|
||||
Imports System.IO
|
||||
|
||||
|
||||
Public Class clsDB
|
||||
#Region "Deklarationen"
|
||||
Dim m_connectionstring As String
|
||||
Dim m_actuser As String
|
||||
Property ActUser As String
|
||||
Get
|
||||
Return m_actuser
|
||||
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_actuser = value
|
||||
End Set
|
||||
End Property
|
||||
Property Connectionstring As String
|
||||
Get
|
||||
Return m_connectionstring
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_connectionstring = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_encrypted As Boolean
|
||||
Property Encrypted As Boolean
|
||||
Get
|
||||
Return m_encrypted
|
||||
End Get
|
||||
Set(value As Boolean)
|
||||
m_encrypted = value
|
||||
End Set
|
||||
End Property
|
||||
Sub New()
|
||||
Me.Connectionstring = Me.Connectionstring
|
||||
End Sub
|
||||
|
||||
Dim m_startuppath As String
|
||||
Property Startuppath As String
|
||||
Get
|
||||
Return m_startuppath
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_startuppath = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_auswertungsverzeichnis As String
|
||||
Property Auswertungsverzeichnis As String
|
||||
Get
|
||||
Return m_auswertungsverzeichnis
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_auswertungsverzeichnis = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_mandant As Integer
|
||||
Property Mandant As Integer
|
||||
Get
|
||||
Return m_mandant
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_mandant = value
|
||||
End Set
|
||||
End Property
|
||||
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=" + 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&", Me.Startuppath + Me.Auswertungsverzeichnis)
|
||||
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(Me.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(Me.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()," + 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()," + 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(Me.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(Me.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(Me.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") = 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(Me.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=" + 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=" + 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=" + 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 = Me.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 = Me.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") = 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
|
||||
BIN
DAL_SQLServer/obj/Debug/DAL_SQLServer.Resources.resources
Normal file
BIN
DAL_SQLServer/obj/Debug/DAL_SQLServer.Resources.resources
Normal file
Binary file not shown.
@@ -0,0 +1 @@
|
||||
a5c3c0fd74db3fae6c46f496fe10b50e35f90b25
|
||||
@@ -0,0 +1,4 @@
|
||||
E:\Software-Projekte\DPM\DPM2016\DAL_SQLServer\obj\Debug\DAL_SQLServer.vbprojResolveAssemblyReference.cache
|
||||
E:\Software-Projekte\DPM\DPM2016\DAL_SQLServer\obj\Debug\DAL_SQLServer.Resources.resources
|
||||
E:\Software-Projekte\DPM\DPM2016\DAL_SQLServer\obj\Debug\DAL_SQLServer.vbproj.GenerateResource.cache
|
||||
E:\Software-Projekte\DPM\DPM2016\DAL_SQLServer\obj\Debug\DAL_SQLServer.vbproj.CoreCompileInputs.cache
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
337
DPM2016/Auswertungen/FremAuswertung.Designer.vb
generated
Normal file
337
DPM2016/Auswertungen/FremAuswertung.Designer.vb
generated
Normal file
@@ -0,0 +1,337 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmAuswertung
|
||||
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(frmAuswertung))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.SchliessenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsbtnSave = New System.Windows.Forms.ToolStripButton()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.Properties = New PropertyGridEx.PropertyGridEx()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.TreeReporting = New System.Windows.Forms.TreeView()
|
||||
Me.previewControl1 = New FastReport.Preview.PreviewControl()
|
||||
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(1077, 24)
|
||||
Me.MenuStrip1.TabIndex = 0
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.SchliessenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'SchliessenToolStripMenuItem
|
||||
'
|
||||
Me.SchliessenToolStripMenuItem.Name = "SchliessenToolStripMenuItem"
|
||||
Me.SchliessenToolStripMenuItem.Size = New System.Drawing.Size(128, 22)
|
||||
Me.SchliessenToolStripMenuItem.Text = "Schliessen"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.AllowDrop = True
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(1077, 25)
|
||||
Me.ToolStrip1.TabIndex = 17
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'tsbtnquit
|
||||
'
|
||||
Me.tsbtnquit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
|
||||
Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnquit.Name = "tsbtnquit"
|
||||
Me.tsbtnquit.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnquit.Text = "Schliessen"
|
||||
'
|
||||
'tsbtnSave
|
||||
'
|
||||
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
|
||||
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnSave.Name = "tsbtnSave"
|
||||
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnSave.Text = "Zahlungsdatei öffnen und verarbeiten"
|
||||
Me.tsbtnSave.Visible = False
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.Controls.Add(Me.CheckBox4)
|
||||
Me.GroupBox1.Controls.Add(Me.CheckBox3)
|
||||
Me.GroupBox1.Controls.Add(Me.CheckBox2)
|
||||
Me.GroupBox1.Controls.Add(Me.CheckBox1)
|
||||
Me.GroupBox1.Controls.Add(Me.Button1)
|
||||
Me.GroupBox1.Controls.Add(Me.GroupBox3)
|
||||
Me.GroupBox1.Controls.Add(Me.GroupBox2)
|
||||
Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Left
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(0, 49)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(297, 635)
|
||||
Me.GroupBox1.TabIndex = 18
|
||||
Me.GroupBox1.TabStop = False
|
||||
'
|
||||
'CheckBox4
|
||||
'
|
||||
Me.CheckBox4.AutoSize = True
|
||||
Me.CheckBox4.Location = New System.Drawing.Point(146, 524)
|
||||
Me.CheckBox4.Name = "CheckBox4"
|
||||
Me.CheckBox4.Size = New System.Drawing.Size(56, 17)
|
||||
Me.CheckBox4.TabIndex = 13
|
||||
Me.CheckBox4.Text = "Export"
|
||||
Me.CheckBox4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox3
|
||||
'
|
||||
Me.CheckBox3.AutoSize = True
|
||||
Me.CheckBox3.Location = New System.Drawing.Point(146, 501)
|
||||
Me.CheckBox3.Name = "CheckBox3"
|
||||
Me.CheckBox3.Size = New System.Drawing.Size(72, 17)
|
||||
Me.CheckBox3.TabIndex = 12
|
||||
Me.CheckBox3.Text = "Datatable"
|
||||
Me.CheckBox3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox2
|
||||
'
|
||||
Me.CheckBox2.AutoSize = True
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(12, 568)
|
||||
Me.CheckBox2.Name = "CheckBox2"
|
||||
Me.CheckBox2.Size = New System.Drawing.Size(102, 17)
|
||||
Me.CheckBox2.TabIndex = 11
|
||||
Me.CheckBox2.Text = "Eigenes Fenster"
|
||||
Me.CheckBox2.UseVisualStyleBackColor = True
|
||||
Me.CheckBox2.Visible = False
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(146, 478)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(59, 17)
|
||||
Me.CheckBox1.TabIndex = 10
|
||||
Me.CheckBox1.Text = "Design"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(12, 474)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 9
|
||||
Me.Button1.Text = "Aufbereiten"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.Properties)
|
||||
Me.GroupBox3.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(3, 242)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(291, 226)
|
||||
Me.GroupBox3.TabIndex = 1
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Parameter"
|
||||
'
|
||||
'Properties
|
||||
'
|
||||
Me.Properties.AutoSizeProperties = True
|
||||
Me.Properties.CategoryForeColor = System.Drawing.SystemColors.InactiveCaptionText
|
||||
Me.Properties.CommandsVisibleIfAvailable = False
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.Properties.DocCommentDescription.AccessibleName = ""
|
||||
Me.Properties.DocCommentDescription.AutoEllipsis = True
|
||||
Me.Properties.DocCommentDescription.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Properties.DocCommentDescription.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.Properties.DocCommentDescription.ForeColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Properties.DocCommentDescription.Location = New System.Drawing.Point(3, 18)
|
||||
Me.Properties.DocCommentDescription.Name = ""
|
||||
Me.Properties.DocCommentDescription.Size = New System.Drawing.Size(0, 52)
|
||||
Me.Properties.DocCommentDescription.TabIndex = 1
|
||||
Me.Properties.DocCommentImage = CType(resources.GetObject("Properties.DocCommentImage"), System.Drawing.Image)
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.Properties.DocCommentTitle.AutoSize = True
|
||||
Me.Properties.DocCommentTitle.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Properties.DocCommentTitle.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.Properties.DocCommentTitle.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold)
|
||||
Me.Properties.DocCommentTitle.ForeColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.Properties.DocCommentTitle.Location = New System.Drawing.Point(3, 3)
|
||||
Me.Properties.DocCommentTitle.Name = ""
|
||||
Me.Properties.DocCommentTitle.Size = New System.Drawing.Size(110, 13)
|
||||
Me.Properties.DocCommentTitle.TabIndex = 0
|
||||
Me.Properties.DocCommentTitle.Text = "DocComment Title"
|
||||
Me.Properties.DocCommentTitle.UseMnemonic = False
|
||||
Me.Properties.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.Properties.HelpVisible = False
|
||||
Me.Properties.Location = New System.Drawing.Point(3, 16)
|
||||
Me.Properties.Name = "Properties"
|
||||
Me.Properties.PropertySort = System.Windows.Forms.PropertySort.NoSort
|
||||
Me.Properties.SelectedObject = Me.Properties.Item
|
||||
Me.Properties.Size = New System.Drawing.Size(285, 207)
|
||||
Me.Properties.TabIndex = 4
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.Properties.ToolStrip.AccessibleName = "ToolBar"
|
||||
Me.Properties.ToolStrip.AccessibleRole = System.Windows.Forms.AccessibleRole.ToolBar
|
||||
Me.Properties.ToolStrip.AllowMerge = False
|
||||
Me.Properties.ToolStrip.AutoSize = False
|
||||
Me.Properties.ToolStrip.CanOverflow = False
|
||||
Me.Properties.ToolStrip.Dock = System.Windows.Forms.DockStyle.None
|
||||
Me.Properties.ToolStrip.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
|
||||
Me.Properties.ToolStrip.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
|
||||
Me.Properties.ToolStrip.Location = New System.Drawing.Point(0, 1)
|
||||
Me.Properties.ToolStrip.Name = ""
|
||||
Me.Properties.ToolStrip.Padding = New System.Windows.Forms.Padding(2, 0, 1, 0)
|
||||
Me.Properties.ToolStrip.Size = New System.Drawing.Size(285, 25)
|
||||
Me.Properties.ToolStrip.TabIndex = 1
|
||||
Me.Properties.ToolStrip.TabStop = True
|
||||
Me.Properties.ToolStrip.Text = "PropertyGridToolBar"
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.TreeReporting)
|
||||
Me.GroupBox2.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(3, 16)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(291, 226)
|
||||
Me.GroupBox2.TabIndex = 0
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Auswertungen"
|
||||
'
|
||||
'TreeReporting
|
||||
'
|
||||
Me.TreeReporting.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.TreeReporting.Location = New System.Drawing.Point(3, 16)
|
||||
Me.TreeReporting.Name = "TreeReporting"
|
||||
Me.TreeReporting.Size = New System.Drawing.Size(285, 207)
|
||||
Me.TreeReporting.TabIndex = 0
|
||||
'
|
||||
'previewControl1
|
||||
'
|
||||
Me.previewControl1.BackColor = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.previewControl1.Buttons = CType(((((((((((FastReport.PreviewButtons.Print Or FastReport.PreviewButtons.Open) _
|
||||
Or FastReport.PreviewButtons.Save) _
|
||||
Or FastReport.PreviewButtons.Email) _
|
||||
Or FastReport.PreviewButtons.Find) _
|
||||
Or FastReport.PreviewButtons.Zoom) _
|
||||
Or FastReport.PreviewButtons.Outline) _
|
||||
Or FastReport.PreviewButtons.PageSetup) _
|
||||
Or FastReport.PreviewButtons.Edit) _
|
||||
Or FastReport.PreviewButtons.Watermark) _
|
||||
Or FastReport.PreviewButtons.Navigator), FastReport.PreviewButtons)
|
||||
Me.previewControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.previewControl1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
Me.previewControl1.Location = New System.Drawing.Point(297, 49)
|
||||
Me.previewControl1.Name = "previewControl1"
|
||||
Me.previewControl1.PageOffset = New System.Drawing.Point(10, 10)
|
||||
Me.previewControl1.RightToLeft = System.Windows.Forms.RightToLeft.No
|
||||
Me.previewControl1.Size = New System.Drawing.Size(780, 635)
|
||||
Me.previewControl1.TabIndex = 25
|
||||
Me.previewControl1.UIStyle = FastReport.Utils.UIStyle.VisualStudio2005
|
||||
'
|
||||
'DataGridView1
|
||||
'
|
||||
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
|
||||
Me.DataGridView1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.DataGridView1.Location = New System.Drawing.Point(297, 49)
|
||||
Me.DataGridView1.Name = "DataGridView1"
|
||||
Me.DataGridView1.Size = New System.Drawing.Size(780, 635)
|
||||
Me.DataGridView1.TabIndex = 26
|
||||
'
|
||||
'frmAuswertung
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(1077, 684)
|
||||
Me.Controls.Add(Me.DataGridView1)
|
||||
Me.Controls.Add(Me.previewControl1)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MainMenuStrip = Me.MenuStrip1
|
||||
Me.Name = "frmAuswertung"
|
||||
Me.Text = "Auswertungen"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox1.PerformLayout()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MenuStrip1 As MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents SchliessenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
Friend WithEvents tsbtnquit As ToolStripButton
|
||||
Friend WithEvents tsbtnSave As ToolStripButton
|
||||
Friend WithEvents GroupBox1 As GroupBox
|
||||
Friend WithEvents GroupBox3 As GroupBox
|
||||
Friend WithEvents GroupBox2 As GroupBox
|
||||
Friend WithEvents TreeReporting As TreeView
|
||||
Friend WithEvents CheckBox4 As CheckBox
|
||||
Friend WithEvents CheckBox3 As CheckBox
|
||||
Friend WithEvents CheckBox2 As CheckBox
|
||||
Friend WithEvents CheckBox1 As CheckBox
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents Properties As PropertyGridEx.PropertyGridEx
|
||||
Private WithEvents previewControl1 As FastReport.Preview.PreviewControl
|
||||
Friend WithEvents DataGridView1 As DataGridView
|
||||
End Class
|
||||
3726
DPM2016/Auswertungen/FremAuswertung.resx
Normal file
3726
DPM2016/Auswertungen/FremAuswertung.resx
Normal file
File diff suppressed because it is too large
Load Diff
809
DPM2016/Auswertungen/FremAuswertung.vb
Normal file
809
DPM2016/Auswertungen/FremAuswertung.vb
Normal file
@@ -0,0 +1,809 @@
|
||||
Imports PropertyGridEx
|
||||
Imports System.IO
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Text.RegularExpressions
|
||||
|
||||
Public Class frmAuswertung
|
||||
Dim sqlfilename As String
|
||||
Dim reportfilename As String
|
||||
Dim intdb As New clsDB
|
||||
Dim ReportCollection As New Collection
|
||||
Dim ParameterColleation As New Collection
|
||||
|
||||
Private Sub SchliessenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SchliessenToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub tsbtnquit_Click(sender As Object, e As EventArgs) Handles tsbtnquit.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub frmAuswertung_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Get_Reports()
|
||||
End Sub
|
||||
|
||||
|
||||
Sub Get_Reports()
|
||||
|
||||
Dim fileEntries As String() = Directory.GetFiles(intdb.Get_Option(100), "*.frx")
|
||||
' Process the list of .txt files found in the directory. '
|
||||
Dim fileName As String
|
||||
|
||||
'For Each fileName In fileEntries
|
||||
' If (System.IO.File.Exists(fileName)) Then
|
||||
' Dim r As New FastReport.Report
|
||||
' r.Load(fileName)
|
||||
' Dim s As String
|
||||
' s = r.ReportInfo.Name
|
||||
|
||||
|
||||
' '
|
||||
' End If
|
||||
'Next
|
||||
|
||||
|
||||
Dim s As String
|
||||
Me.TreeReporting.Nodes.Clear()
|
||||
FileOpen(1, intdb.Get_Option(100) + "Reports.txt", Mode:=OpenMode.Input)
|
||||
While Not EOF(1)
|
||||
Input(1, s)
|
||||
ReportCollection.Add(New Report(s))
|
||||
End While
|
||||
FileClose(1)
|
||||
|
||||
Dim tn As TreeNode
|
||||
Dim i As Integer
|
||||
For i = 1 To ReportCollection.Count
|
||||
Dim xreport As Report = ReportCollection(i)
|
||||
If xreport.Parentid = 0 Then
|
||||
tn = New TreeNode
|
||||
tn.Text = xreport.Reportname
|
||||
tn.Tag = xreport.Keyvalue
|
||||
TreeReporting.Nodes.Add(tn)
|
||||
Else
|
||||
Dim tn1 As New TreeNode
|
||||
tn1.Text = xreport.Reportname
|
||||
tn1.Tag = xreport.Keyvalue
|
||||
tn.Nodes.Add(tn1)
|
||||
End If
|
||||
Next
|
||||
Me.TreeReporting.ExpandAll()
|
||||
'Fill_Parameter()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TreeReporting_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TreeReporting.AfterSelect
|
||||
Try
|
||||
get_filenames()
|
||||
Fill_Parameter()
|
||||
Catch
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
Sub get_filenames()
|
||||
For i As Integer = 1 To ReportCollection.Count
|
||||
Dim rc As Report = ReportCollection(i)
|
||||
If rc.Reportname = Me.TreeReporting.SelectedNode.Text Then
|
||||
sqlfilename = intdb.Get_Option(101)
|
||||
If Microsoft.VisualBasic.Right(sqlfilename, 1) <> "\" Then sqlfilename = sqlfilename + "\"
|
||||
sqlfilename = sqlfilename + rc.sqlfile
|
||||
reportfilename = intdb.Get_Option(100)
|
||||
If Microsoft.VisualBasic.Right(reportfilename, 1) <> "\" Then reportfilename = reportfilename + "\"
|
||||
reportfilename = reportfilename + rc.reportfile
|
||||
End If
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Sub Fill_Parameter()
|
||||
ParameterColleation.Clear()
|
||||
Dim sr As StreamReader = New StreamReader(sqlfilename)
|
||||
Dim s As String
|
||||
Do While sr.Peek() >= 0
|
||||
s = sr.ReadLine()
|
||||
If Microsoft.VisualBasic.Left(s, 1) = "#" Then
|
||||
ParameterColleation.Add(New Reportparameter(s))
|
||||
End If
|
||||
Loop
|
||||
sr.Close()
|
||||
|
||||
Properties.ShowCustomProperties = True
|
||||
Properties.Item.Clear()
|
||||
Dim defaultvalue As String
|
||||
|
||||
If ParameterColleation.Count > 0 Then
|
||||
For i As Integer = 1 To ParameterColleation.Count
|
||||
Dim param As Reportparameter = ParameterColleation(i)
|
||||
Select Case UCase(param.Parametertype)
|
||||
Case "TABLE"
|
||||
Dim splitter() As String
|
||||
splitter = param.ParameterDefault.ToString.Split(";")
|
||||
Properties.Item.Add(param.Parameterbezeichnung, splitter(0), False, "Tabellenauswahl", "Tabellenauswahl", True)
|
||||
Properties.Item(Properties.Item.Count - 1).Datasource = splitter
|
||||
Properties.Item(Properties.Item.Count - 1).IsDropdownResizable = False
|
||||
|
||||
Dim Languages As String() = New String() {"Ja", "Nein"}
|
||||
'Properties.Item.Add("Array of strings", Languages(0), False, "Databinding", "This is a UITypeEditor that implement a listbox", True)
|
||||
'Properties.Item(Properties.Item.Count - 1).Datasource = Languages
|
||||
'Properties.Item(Properties.Item.Count - 1).IsDropdownResizable = True
|
||||
Case "DATATABLE"
|
||||
Dim splitter() As String
|
||||
splitter = param.ParameterDefault.ToString.Split(";")
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("Parameter", "", param.ParameterDefault)
|
||||
Dim s1 As String = ""
|
||||
For Each r As DataRow In db.dsDaten.Tables(0).Rows
|
||||
If s1 <> "" Then s1 = s1 + "~"
|
||||
If db.dsDaten.Tables(0).Columns.Count > 1 Then
|
||||
Try
|
||||
s1 = s1 + r.Item(0).ToString + " -- " + r.Item(1).ToString
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Else
|
||||
s1 = s1 + r.Item(0)
|
||||
End If
|
||||
|
||||
Next
|
||||
s1 = "" + "~" + s1
|
||||
splitter = s1.Split("~")
|
||||
Properties.Item.Add(param.Parameterbezeichnung, splitter(0), False, "Tabellenauswahl", "Tabellenauswahl", True)
|
||||
Properties.Item(Properties.Item.Count - 1).Datasource = splitter
|
||||
Properties.Item(Properties.Item.Count - 1).IsDropdownResizable = False
|
||||
|
||||
Dim Languages As String() = New String() {"Ja", "Nein"}
|
||||
'Properties.Item.Add("Array of strings", Languages(0), False, "Databinding", "This is a UITypeEditor that implement a listbox", True)
|
||||
'Properties.Item(Properties.Item.Count - 1).Datasource = Languages
|
||||
'Properties.Item(Properties.Item.Count - 1).IsDropdownResizable = True
|
||||
Case Else
|
||||
Select Case param.ParameterDefault
|
||||
Case "now"
|
||||
Properties.Item.Add(param.Parameterbezeichnung, New Date(Today.Ticks), False, "Parameter", "Datum", True)
|
||||
Case Else
|
||||
defaultvalue = param.ParameterDefault
|
||||
If IsNumeric(defaultvalue) Then
|
||||
Properties.Item.Add(param.Parameterbezeichnung, defaultvalue, False, "Parameter", "Ganzzahl", True)
|
||||
|
||||
Else
|
||||
Select Case defaultvalue
|
||||
Case "currentyear"
|
||||
Properties.Item.Add(param.Parameterbezeichnung, Year(Now), False, "Parameter", "Jahreszahl", True)
|
||||
Case "lastyear"
|
||||
Properties.Item.Add(param.Parameterbezeichnung, Year(Now) - 1, False, "Parameter", "Jahreszahl", True)
|
||||
Case "firstofcurrentyear"
|
||||
Dim dt As Date = "01.01." + Year(Now).ToString
|
||||
Properties.Item.Add(param.Parameterbezeichnung, New Date(dt.Ticks), False, "Parameter", "Datum", True)
|
||||
Case "lastofcurrentyear"
|
||||
Dim dt As Date = "31.12." + Year(Now).ToString
|
||||
Properties.Item.Add(param.Parameterbezeichnung, New Date(dt.Ticks), False, "Parameter", "Datum", True)
|
||||
Case "firstofcurrentmonth"
|
||||
Dim m As String = Month(Now).ToString
|
||||
While Len(m) < 2
|
||||
m = "0" + m
|
||||
End While
|
||||
Dim dt As Date = "01." + m + "." + Year(Now).ToString
|
||||
Properties.Item.Add(param.Parameterbezeichnung, New Date(dt.Ticks), False, "Parameter", "Datum", True)
|
||||
Case "lastofcurrentmonth"
|
||||
Dim datLastDay As Date
|
||||
datLastDay = GetLastDayOfMonth(Month(Now), Year(Now))
|
||||
|
||||
Properties.Item.Add(param.Parameterbezeichnung, New Date(datLastDay.Ticks), False, "Parameter", "Datum", True)
|
||||
Case "currentdate"
|
||||
Dim dt As Date = Now.ToShortDateString
|
||||
Properties.Item.Add(param.Parameterbezeichnung, New Date(dt.Ticks), False, "Parameter", "Datum", True)
|
||||
Case "monthtable"
|
||||
Dim splitter() As String
|
||||
splitter = param.ParameterDefault.ToString.Split(";")
|
||||
Dim dr As New DataTable
|
||||
dr.Columns.Add("Keyvalue")
|
||||
dr.Columns.Add("Value")
|
||||
Dim currentdate As Date = FirstDayOfMonth(Now)
|
||||
currentdate = currentdate.AddMonths(+12)
|
||||
|
||||
For ii As Integer = 1 To 24
|
||||
Dim r As DataRow = dr.NewRow
|
||||
r(0) = Month_Year(currentdate)
|
||||
r(1) = Month_Year_Name(currentdate)
|
||||
dr.Rows.Add(r)
|
||||
currentdate = currentdate.AddMonths(-1)
|
||||
Next
|
||||
|
||||
|
||||
Dim s1 As String = ""
|
||||
For Each r As DataRow In dr.Rows
|
||||
If s1 <> "" Then s1 = s1 + "~"
|
||||
If dr.Columns.Count > 1 Then
|
||||
Try
|
||||
s1 = s1 + r.Item(0).ToString + " -- " + r.Item(1).ToString
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
Else
|
||||
s1 = s1 + r.Item(0)
|
||||
End If
|
||||
|
||||
Next
|
||||
s1 = "" + "~" + s1
|
||||
splitter = s1.Split("~")
|
||||
Properties.Item.Add(param.Parameterbezeichnung, splitter(0), False, "Tabellenauswahl", "Tabellenauswahl", True)
|
||||
Properties.Item(Properties.Item.Count - 1).Datasource = splitter
|
||||
Properties.Item(Properties.Item.Count - 1).IsDropdownResizable = False
|
||||
|
||||
Dim Languages As String() = New String() {"Ja", "Nein"}
|
||||
'Properties.Item.Add("Array of strings", Languages(0), False, "Databinding", "This is a UITypeEditor that implement a listbox", True)
|
||||
'Properties.Item(Properties.Item.Count - 1).Datasource = Languages
|
||||
'Properties.Item(Properties.Item.Count - 1).IsDropdownResizable = True
|
||||
Case Else
|
||||
Properties.Item.Add(param.Parameterbezeichnung, defaultvalue, False, "Parameter", "Text", True)
|
||||
End Select
|
||||
End If
|
||||
|
||||
End Select
|
||||
End Select
|
||||
|
||||
'If param.Parametertype = "Table" Then
|
||||
' Dim splitter() As String
|
||||
' splitter = param.ParameterDefault.ToString.Split(";")
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, splitter(0), False, "Tabellenauswahl", "Tabellenauswahl", True)
|
||||
' Properties.Item(Properties.Item.Count - 1).Datasource = splitter
|
||||
' Properties.Item(Properties.Item.Count - 1).IsDropdownResizable = False
|
||||
|
||||
' Dim Languages As String() = New String() {"Ja", "Nein"}
|
||||
' 'Properties.Item.Add("Array of strings", Languages(0), False, "Databinding", "This is a UITypeEditor that implement a listbox", True)
|
||||
' 'Properties.Item(Properties.Item.Count - 1).Datasource = Languages
|
||||
' 'Properties.Item(Properties.Item.Count - 1).IsDropdownResizable = True
|
||||
'Else
|
||||
' Select Case param.ParameterDefault
|
||||
' Case "now"
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, New Date(Today.Ticks), False, "Parameter", "Datum", True)
|
||||
' Case Else
|
||||
' defaultvalue = param.ParameterDefault
|
||||
' If IsNumeric(defaultvalue) Then
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, defaultvalue, False, "Parameter", "Ganzzahl", True)
|
||||
|
||||
' Else
|
||||
' Select Case defaultvalue
|
||||
' Case "currentyear"
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, Year(Now), False, "Parameter", "Jahreszahl", True)
|
||||
' Case "lastyear"
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, Year(Now) - 1, False, "Parameter", "Jahreszahl", True)
|
||||
' Case "firstofcurrentyear"
|
||||
' Dim dt As Date = "01.01." + Year(Now).ToString
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, New Date(dt.Ticks), False, "Parameter", "Datum", True)
|
||||
' Case "lastofcurrentyear"
|
||||
' Dim dt As Date = "31.12." + Year(Now).ToString
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, New Date(dt.Ticks), False, "Parameter", "Datum", True)
|
||||
' Case Else
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, defaultvalue, False, "Parameter", "Text", True)
|
||||
' End Select
|
||||
' End If
|
||||
' End Select
|
||||
'End If
|
||||
|
||||
'Select Case UCase(param.Parametertype)
|
||||
' Case "DATETIME"
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, New Date(Today.Ticks), False, "Parameter", "Datum", True)
|
||||
' Case "INT"
|
||||
' Properties.Item.Add(param.Parameterbezeichnung, Year(Now), False, "Parameter", "Ganzzahl", True)
|
||||
|
||||
' Case Else
|
||||
' MsgBox(param.Parametertype)
|
||||
'End Select
|
||||
Next
|
||||
End If
|
||||
With Properties
|
||||
'.ShowCustomProperties = True
|
||||
'.Item.Clear()
|
||||
'.Item.Add("My Integer", 100, False, "Simple properties", "This is an integer", True)
|
||||
'.Item.Add("My Date", New Date(Today.Ticks), False, "Simple properties", "This is point class", True)
|
||||
.Refresh()
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
Public Function GetLastDayOfMonth(intMonth, intYear) As Date
|
||||
GetLastDayOfMonth = DateSerial(intYear, intMonth + 1, 0)
|
||||
|
||||
End Function
|
||||
|
||||
Public Function FirstDayOfMonth(ByVal sourceDate As DateTime) As DateTime
|
||||
Return New DateTime(sourceDate.Year, sourceDate.Month, 1)
|
||||
End Function
|
||||
|
||||
Public Function Month_Year(ByVal d As Date) As String
|
||||
Dim m As String
|
||||
m = Month(d).ToString
|
||||
While Len(m) < 2
|
||||
m = "0" + m
|
||||
|
||||
End While
|
||||
Return m + "." + Year(d).ToString
|
||||
End Function
|
||||
|
||||
Public Function Month_Year_Name(ByVal d As Date) As String
|
||||
Dim m As String
|
||||
Dim s As String
|
||||
m = Month(d).ToString
|
||||
While Len(m) < 2
|
||||
m = "0" + m
|
||||
|
||||
End While
|
||||
Select Case m
|
||||
Case "01"
|
||||
s = "Januar"
|
||||
Case "02"
|
||||
s = "Februar"
|
||||
Case "03"
|
||||
s = "Mörz"
|
||||
Case "04"
|
||||
s = "April"
|
||||
Case "05"
|
||||
s = "Mai"
|
||||
Case "06"
|
||||
s = "Juni"
|
||||
Case "07"
|
||||
s = "Juli"
|
||||
Case "08"
|
||||
s = "August"
|
||||
Case "09"
|
||||
s = "September"
|
||||
Case "10"
|
||||
s = "Oktober"
|
||||
Case "11"
|
||||
s = "November"
|
||||
Case "12"
|
||||
s = "Dezember"
|
||||
End Select
|
||||
Return s + " " + Year(d).ToString
|
||||
End Function
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Show_Report()
|
||||
End Sub
|
||||
|
||||
Public Sub Show_CAMT_Journal()
|
||||
Dim tmpcollection As New Collection
|
||||
Dim s As String
|
||||
Me.TreeReporting.Nodes.Clear()
|
||||
FileOpen(1, intdb.Get_Option(100) + "Reports.txt", Mode:=OpenMode.Input)
|
||||
While Not EOF(1)
|
||||
Input(1, s)
|
||||
tmpcollection.Add(New Report(s))
|
||||
End While
|
||||
FileClose(1)
|
||||
|
||||
For i = 1 To tmpcollection.Count
|
||||
Dim xreport As Report = ReportCollection(i)
|
||||
If xreport.reportfile = "CamtJournaleinfach.frx" Then
|
||||
sqlfilename = intdb.Get_Option(101)
|
||||
If Microsoft.VisualBasic.Right(sqlfilename, 1) <> "\" Then sqlfilename = sqlfilename + "\"
|
||||
sqlfilename = sqlfilename + xreport.sqlfile
|
||||
reportfilename = intdb.Get_Option(100)
|
||||
If Microsoft.VisualBasic.Right(reportfilename, 1) <> "\" Then reportfilename = reportfilename + "\"
|
||||
reportfilename = reportfilename + xreport.reportfile
|
||||
End If
|
||||
Next
|
||||
ParameterColleation.Clear()
|
||||
Dim sr As StreamReader = New StreamReader(sqlfilename)
|
||||
|
||||
Do While sr.Peek() >= 0
|
||||
s = sr.ReadLine()
|
||||
If Microsoft.VisualBasic.Left(s, 1) = "#" Then
|
||||
ParameterColleation.Add(New Reportparameter(s))
|
||||
End If
|
||||
Loop
|
||||
sr.Close()
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("CAMT_RUN", "", "Select top 1 * from CAMT_Run order by nreintrag desc")
|
||||
Show_Report(db.dsDaten.Tables(0).Rows(0).Item(0).ToString)
|
||||
|
||||
|
||||
End Sub
|
||||
Private Function SplitWords(ByVal s As String) As String()
|
||||
' Call Regex.Split function from the imported namespace.
|
||||
' ... Return the result array.
|
||||
Return Regex.Split(s, "\W+")
|
||||
End Function
|
||||
|
||||
Sub Show_Report(Optional Paramvalue As String = "")
|
||||
If Paramvalue <> "" Then Me.GroupBox1.Visible = False
|
||||
Dim SQL As String = ""
|
||||
Dim export_filename As String
|
||||
Dim report As New FastReport.Report
|
||||
If Not File.Exists(reportfilename) Then
|
||||
Dim tmp As String
|
||||
tmp = reportfilename
|
||||
reportfilename = intdb.Get_Option("100")
|
||||
If Microsoft.VisualBasic.Right(reportfilename, 1) <> "\" Then reportfilename = reportfilename + "\empty.frx" Else reportfilename = reportfilename + "empty.frx"
|
||||
FileCopy(reportfilename, tmp)
|
||||
reportfilename = tmp
|
||||
End If
|
||||
export_filename = Path.GetFileName(reportfilename)
|
||||
report.Load(reportfilename)
|
||||
If Not File.Exists(sqlfilename) Then
|
||||
MsgBox(sqlfilename + " fehlt.", vbExclamation)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
'Dim spl As String()
|
||||
'spl = report.ReportInfo.Description.Split("vbCrLf")
|
||||
'SQL = ""
|
||||
'Dim ss As String
|
||||
'For i As Integer = 0 To spl.Length - 1
|
||||
' If spl(i).Substring(0, 1) = "#" Then
|
||||
' ss = ss
|
||||
' Else
|
||||
' ss = spl(i)
|
||||
' ss = ss.Replace("""", "")
|
||||
' SQL = SQL + " " + vbCrLf + " " + ss
|
||||
' End If
|
||||
'Next
|
||||
|
||||
|
||||
|
||||
Dim sr As StreamReader = New StreamReader(sqlfilename)
|
||||
Dim s As String = ""
|
||||
Do While sr.Peek() >= 0
|
||||
s = sr.ReadLine
|
||||
If Microsoft.VisualBasic.Left(s, 1) = "#" Then s = ""
|
||||
SQL = SQL + " " + vbCrLf + s
|
||||
Loop
|
||||
sr.Close()
|
||||
|
||||
Dim Absender As String = intdb.Get_Option(103)
|
||||
report.SetParameterValue("Absender", Absender)
|
||||
|
||||
For i = 1 To ParameterColleation.Count
|
||||
Dim r As Reportparameter = ParameterColleation(i)
|
||||
Dim PV As String = ""
|
||||
Try
|
||||
If Paramvalue <> "" Then
|
||||
PV = Paramvalue
|
||||
Else
|
||||
PV = Properties.Item(i - 1).Value
|
||||
End If
|
||||
Catch
|
||||
End Try
|
||||
|
||||
'If pv.IndexOf(" -- ") > -1 Then
|
||||
' Dim p As Integer
|
||||
' p = pv.IndexOf(" -- ")
|
||||
' pv = pv.Substring(0, p)
|
||||
'End If
|
||||
If r.Parametertype = "datetime" Then
|
||||
Dim dt As Date = PV
|
||||
PV = dt.ToString("yyyy-MM-dd")
|
||||
report.SetParameterValue(r.Parameterbezeichnung, dt.ToString("dd.MM.yyyy"))
|
||||
export_filename = PV + "_" + export_filename
|
||||
Else
|
||||
Dim x As String = ""
|
||||
If Paramvalue <> "" Then x = Paramvalue Else x = Properties.Item(i - 1).Value.ToString
|
||||
If x.IndexOf(" -- ") > -1 Then
|
||||
x = x.Substring(0, PV.IndexOf(" -- "))
|
||||
Properties.Item(i - 1).Value = x
|
||||
report.SetParameterValue(r.Parameterbezeichnung, x)
|
||||
Else
|
||||
If Paramvalue <> "" Then
|
||||
report.SetParameterValue(r.Parameterbezeichnung, x.ToString)
|
||||
Else
|
||||
report.SetParameterValue(r.Parameterbezeichnung, Properties.Item(i - 1).Value.ToString)
|
||||
End If
|
||||
'report.SetParameterValue(r.Parameterbezeichnung, Properties.Item(i - 1).Value.ToString)
|
||||
|
||||
End If
|
||||
' report.SetParameterValue(r.Parameterbezeichnung, Properties.Item(i - 1).Value.ToString)
|
||||
export_filename = PV + "_" + export_filename
|
||||
|
||||
End If
|
||||
SQL = SQL.Replace(r.Parametername, PV)
|
||||
Next
|
||||
|
||||
|
||||
|
||||
export_filename = intdb.Get_Option("102") + export_filename + ".pdf"
|
||||
|
||||
Dim sr1 As StreamReader = New StreamReader(sqlfilename)
|
||||
Dim s1 As String = ""
|
||||
Dim sqlcollection As New Collection
|
||||
Dim defsqlcollection As New Collection
|
||||
SQL = ""
|
||||
Do While sr1.Peek() >= 0
|
||||
s1 = sr1.ReadLine
|
||||
If Trim(s1) <> "" Then
|
||||
If s1.IndexOf("-SQL-") > -1 Then
|
||||
If SQL <> "" Then sqlcollection.Add(SQL)
|
||||
SQL = ""
|
||||
Else
|
||||
If s1.Substring(0, 1) <> "#" Then
|
||||
SQL = SQL + vbCrLf + s1
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
|
||||
Loop
|
||||
If SQL <> "" Then sqlcollection.Add(SQL)
|
||||
sr1.Close()
|
||||
|
||||
|
||||
|
||||
For i1 As Integer = 1 To sqlcollection.Count
|
||||
Dim s2 As String = sqlcollection(i1).ToString
|
||||
For i = 1 To ParameterColleation.Count
|
||||
Dim r As Reportparameter = ParameterColleation(i)
|
||||
Dim PV As String = ""
|
||||
If Paramvalue <> "" Then PV = Paramvalue Else PV = Properties.Item(i - 1).Value
|
||||
|
||||
If r.Parametertype = "datetime" Then
|
||||
Dim dt As Date = PV
|
||||
PV = dt.ToString("yyyy-MM-dd")
|
||||
Else
|
||||
If Paramvalue <> "" Then PV = Paramvalue Else PV = Properties.Item(i - 1).Value
|
||||
End If
|
||||
|
||||
s2 = s2.Replace(r.Parametername, PV)
|
||||
Next
|
||||
|
||||
defsqlcollection.Add(s2)
|
||||
Next
|
||||
|
||||
Dim ds As New DataSet
|
||||
Dim tblcounter As Integer = 0
|
||||
|
||||
'20180829
|
||||
If defsqlcollection.Count > 1 Then
|
||||
For i = 1 To defsqlcollection.Count
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("Reportdata", "", defsqlcollection(i))
|
||||
ds.Tables.Add(db.dsDaten.Tables(0).Copy)
|
||||
tblcounter = tblcounter + 1
|
||||
ds.Tables(ds.Tables.Count - 1).TableName = "Daten_" + tblcounter.ToString
|
||||
db.Dispose()
|
||||
Next
|
||||
Else
|
||||
Dim db As New clsDB
|
||||
db.Get_Tabledata("Reportdata", "", defsqlcollection(1))
|
||||
ds.Tables.Add(db.dsDaten.Tables(0).Copy)
|
||||
ds.Tables(ds.Tables.Count - 1).TableName = "Daten"
|
||||
db.Dispose()
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
'Dim SQLconnect As New SqlConnection
|
||||
'SQLconnect.ConnectionString = intdb.Connectionstring
|
||||
'SQLconnect.Open()
|
||||
|
||||
'Dim da As New SqlDataAdapter("", SQLconnect)
|
||||
'Dim sqlcmd As New SqlCommand
|
||||
|
||||
'sqlcmd.Connection = SQLconnect
|
||||
'sqlcmd.CommandType = CommandType.Text
|
||||
'If defsqlcollection.Count > 1 Then
|
||||
' For i = 1 To defsqlcollection.Count
|
||||
' sqlcmd.CommandText = defsqlcollection(i)
|
||||
' da.SelectCommand = sqlcmd
|
||||
' tblcounter = tblcounter + 1
|
||||
' da.Fill(ds, "Daten_" + tblcounter.ToString)
|
||||
' Next
|
||||
'Else
|
||||
' sqlcmd.CommandText = defsqlcollection(1)
|
||||
' da.SelectCommand = sqlcmd
|
||||
' Try
|
||||
' da.Fill(ds, "Daten")
|
||||
' Catch ex As Exception
|
||||
' MsgBox(ex.Message)
|
||||
|
||||
' End Try
|
||||
'End If
|
||||
'sqlcmd.Dispose()
|
||||
'SQLconnect.Close()
|
||||
|
||||
report.RegisterData(ds)
|
||||
If tblcounter > 0 Then
|
||||
Dim i As Integer
|
||||
For i = 1 To tblcounter
|
||||
report.GetDataSource("Daten_" + i.ToString).Enabled = True
|
||||
Next i
|
||||
Else
|
||||
report.GetDataSource("Daten").Enabled = True
|
||||
End If
|
||||
report.Preview = previewControl1
|
||||
report.Prepare()
|
||||
If CheckBox4.Checked Then
|
||||
Dim export As FastReport.Export.Pdf.PDFExport = New FastReport.Export.Pdf.PDFExport()
|
||||
report.Export(export, export_filename)
|
||||
Process.Start(export_filename)
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If Me.CheckBox1.Checked = False Then
|
||||
report.ShowPrepared()
|
||||
Else
|
||||
report.Design()
|
||||
End If
|
||||
If CheckBox2.Checked Then
|
||||
Dim f As New frmreport
|
||||
report.Preview = f.PreviewControl1
|
||||
report.ShowPrepared()
|
||||
f.Show()
|
||||
Me.previewControl1.Visible = False
|
||||
Else
|
||||
Me.previewControl1.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
Me.DataGridView1.DataSource = Nothing
|
||||
Me.DataGridView1.DataSource = ds.Tables(0)
|
||||
|
||||
If CheckBox3.Checked Then
|
||||
|
||||
Me.DataGridView1.Visible = True
|
||||
Me.previewControl1.Visible = False
|
||||
Else
|
||||
Me.DataGridView1.Visible = False
|
||||
Me.previewControl1.Visible = True
|
||||
End If
|
||||
|
||||
' Me.PreviewControl1.Report = report
|
||||
|
||||
' report.Design()
|
||||
|
||||
' f.DesignerControl1.Report = report
|
||||
' f.MdiParent = Parentform
|
||||
' f.Show()
|
||||
'End Sub
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class Report
|
||||
Dim m_reportname As String
|
||||
|
||||
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_parentid As Integer
|
||||
Property Parentid As Integer
|
||||
Get
|
||||
Return m_parentid
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_parentid = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Property Reportname As String
|
||||
Get
|
||||
Return m_reportname
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_reportname = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_sqlfile As String
|
||||
Property sqlfile As String
|
||||
Get
|
||||
Return m_sqlfile
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_sqlfile = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Dim m_reportfile As String
|
||||
Property reportfile As String
|
||||
Get
|
||||
Return m_reportfile
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_reportfile = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New(ByVal inputstring As String)
|
||||
Try
|
||||
Dim splitter() As String
|
||||
splitter = inputstring.Split(";")
|
||||
Me.Keyvalue = splitter(0)
|
||||
Me.Parentid = splitter(1)
|
||||
Me.Reportname = splitter(2)
|
||||
Me.sqlfile = splitter(3)
|
||||
Me.reportfile = splitter(4)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Public Class Reportparameter
|
||||
Dim m_parametername As String
|
||||
Property Parametername As String
|
||||
Get
|
||||
Return m_parametername
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_parametername = value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_Parameterbezeichnung As String
|
||||
Property Parameterbezeichnung As String
|
||||
Get
|
||||
Return m_Parameterbezeichnung
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_Parameterbezeichnung = value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_Parametertype As String
|
||||
Property Parametertype As String
|
||||
Get
|
||||
Return m_Parametertype
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_Parametertype = value
|
||||
End Set
|
||||
End Property
|
||||
Dim m_Parameterdefault As String
|
||||
Property ParameterDefault As String
|
||||
Get
|
||||
Return m_Parameterdefault
|
||||
End Get
|
||||
Set(value As String)
|
||||
m_Parameterdefault = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Sub New(ByVal Inputstring As String)
|
||||
Dim splitter() As String
|
||||
splitter = Inputstring.Split(":")
|
||||
Me.Parametername = splitter(0)
|
||||
Me.Parameterbezeichnung = splitter(1)
|
||||
Me.Parametertype = splitter(2)
|
||||
Try
|
||||
Me.ParameterDefault = splitter(3)
|
||||
Catch
|
||||
Me.ParameterDefault = ""
|
||||
End Try
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
''' <summary>
|
||||
''' A Simple Class to test BrowsableAttribute usage
|
||||
''' </summary>
|
||||
''' <remarks></remarks>
|
||||
<Serializable()>
|
||||
Public Class MyOwnClass
|
||||
Private iValue As Integer = 0
|
||||
Private sText As String
|
||||
Public Sub New()
|
||||
|
||||
End Sub
|
||||
Public Sub New(ByVal Text As String, ByVal Value As Integer)
|
||||
sText = Text
|
||||
iValue = Value
|
||||
End Sub
|
||||
Public Property Value() As Integer
|
||||
Get
|
||||
Return iValue
|
||||
End Get
|
||||
Set(ByVal value As Integer)
|
||||
iValue = value
|
||||
End Set
|
||||
End Property
|
||||
Public Property Text() As String
|
||||
Get
|
||||
Return sText
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
sText = value
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
51
DPM2016/Auswertungen/frmreport.designer.vb
generated
Normal file
51
DPM2016/Auswertungen/frmreport.designer.vb
generated
Normal file
@@ -0,0 +1,51 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmreport
|
||||
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.PreviewControl1 = New FastReport.Preview.PreviewControl()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PreviewControl1
|
||||
'
|
||||
Me.PreviewControl1.BackColor = System.Drawing.SystemColors.AppWorkspace
|
||||
Me.PreviewControl1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.PreviewControl1.Font = New System.Drawing.Font("Tahoma", 8.0!)
|
||||
Me.PreviewControl1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.PreviewControl1.Name = "PreviewControl1"
|
||||
Me.PreviewControl1.PageOffset = New System.Drawing.Point(10, 10)
|
||||
Me.PreviewControl1.Size = New System.Drawing.Size(673, 562)
|
||||
Me.PreviewControl1.TabIndex = 2
|
||||
'
|
||||
'frmreport
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(673, 562)
|
||||
Me.Controls.Add(Me.PreviewControl1)
|
||||
Me.Name = "frmreport"
|
||||
Me.Text = "frmreport"
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents PreviewControl1 As FastReport.Preview.PreviewControl
|
||||
End Class
|
||||
120
DPM2016/Auswertungen/frmreport.resx
Normal file
120
DPM2016/Auswertungen/frmreport.resx
Normal 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>
|
||||
3
DPM2016/Auswertungen/frmreport.vb
Normal file
3
DPM2016/Auswertungen/frmreport.vb
Normal file
@@ -0,0 +1,3 @@
|
||||
Public Class frmreport
|
||||
|
||||
End Class
|
||||
77
DPM2016/Behandlung/Form1.Designer.vb
generated
Normal file
77
DPM2016/Behandlung/Form1.Designer.vb
generated
Normal file
@@ -0,0 +1,77 @@
|
||||
<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()
|
||||
Me.MaskedTextBoxAdv1 = New DevComponents.DotNetBar.Controls.MaskedTextBoxAdv()
|
||||
Me.DoubleTextBox1 = New Syncfusion.Windows.Forms.Tools.DoubleTextBox()
|
||||
CType(Me.DoubleTextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MaskedTextBoxAdv1
|
||||
'
|
||||
'
|
||||
'
|
||||
'
|
||||
Me.MaskedTextBoxAdv1.BackgroundStyle.Class = "TextBoxBorder"
|
||||
Me.MaskedTextBoxAdv1.BackgroundStyle.CornerType = DevComponents.DotNetBar.eCornerType.Square
|
||||
Me.MaskedTextBoxAdv1.ButtonClear.Visible = True
|
||||
Me.MaskedTextBoxAdv1.Location = New System.Drawing.Point(223, 127)
|
||||
Me.MaskedTextBoxAdv1.Mask = "9.00"
|
||||
Me.MaskedTextBoxAdv1.Name = "MaskedTextBoxAdv1"
|
||||
Me.MaskedTextBoxAdv1.Size = New System.Drawing.Size(130, 19)
|
||||
Me.MaskedTextBoxAdv1.Style = DevComponents.DotNetBar.eDotNetBarStyle.StyleManagerControlled
|
||||
Me.MaskedTextBoxAdv1.TabIndex = 0
|
||||
Me.MaskedTextBoxAdv1.Text = ""
|
||||
'
|
||||
'DoubleTextBox1
|
||||
'
|
||||
Me.DoubleTextBox1.BackGroundColor = System.Drawing.SystemColors.Window
|
||||
Me.DoubleTextBox1.BeforeTouchSize = New System.Drawing.Size(100, 20)
|
||||
Me.DoubleTextBox1.DoubleValue = 1.0R
|
||||
Me.DoubleTextBox1.Location = New System.Drawing.Point(236, 241)
|
||||
Me.DoubleTextBox1.Metrocolor = System.Drawing.Color.FromArgb(CType(CType(209, Byte), Integer), CType(CType(211, Byte), Integer), CType(CType(212, Byte), Integer))
|
||||
Me.DoubleTextBox1.Name = "DoubleTextBox1"
|
||||
Me.DoubleTextBox1.NullString = ""
|
||||
Me.DoubleTextBox1.Size = New System.Drawing.Size(100, 20)
|
||||
Me.DoubleTextBox1.Style = Syncfusion.Windows.Forms.Tools.TextBoxExt.theme.[Default]
|
||||
Me.DoubleTextBox1.TabIndex = 1
|
||||
Me.DoubleTextBox1.Text = "1.00"
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(800, 450)
|
||||
Me.Controls.Add(Me.DoubleTextBox1)
|
||||
Me.Controls.Add(Me.MaskedTextBoxAdv1)
|
||||
Me.Name = "Form1"
|
||||
Me.Text = "Form1"
|
||||
CType(Me.DoubleTextBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MaskedTextBoxAdv1 As DevComponents.DotNetBar.Controls.MaskedTextBoxAdv
|
||||
Friend WithEvents DoubleTextBox1 As Syncfusion.Windows.Forms.Tools.DoubleTextBox
|
||||
End Class
|
||||
120
DPM2016/Behandlung/Form1.resx
Normal file
120
DPM2016/Behandlung/Form1.resx
Normal 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>
|
||||
5
DPM2016/Behandlung/Form1.vb
Normal file
5
DPM2016/Behandlung/Form1.vb
Normal file
@@ -0,0 +1,5 @@
|
||||
Public Class Form1
|
||||
Private Sub MaskedTextBoxAdv1_MaskInputRejected(sender As Object, e As MaskInputRejectedEventArgs) Handles MaskedTextBoxAdv1.MaskInputRejected
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
151
DPM2016/Behandlung/clsFakturaFunktionen.vb
Normal file
151
DPM2016/Behandlung/clsFakturaFunktionen.vb
Normal file
@@ -0,0 +1,151 @@
|
||||
Public Class clsFakturaFunktionen
|
||||
Public Sub Vorschau_Rechnung(ByVal nrbehandlung As String)
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim anzahlraten As Integer = 0
|
||||
'db.Get_Tabledata("Behandlu", "where nrbehandlung=" + Me.Behandlungsnr.ToString)
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
Dim reportnr As Integer
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
|
||||
While doloop = True
|
||||
For i As Integer = 1 To anzahlraten
|
||||
' Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + Me.Behandlungsnr.ToString, Me.Behandlungsnr.ToString)
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + nrbehandlung, nrbehandlung)
|
||||
|
||||
f.Show()
|
||||
f.Print_Rechnung(True, False, i)
|
||||
Next i
|
||||
|
||||
If Folgeauswertung > 0 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Else
|
||||
doloop = False
|
||||
End If
|
||||
End While
|
||||
End Sub
|
||||
|
||||
Public Sub Rechnungskopie(ByVal nrbehandlung As String, Optional preview As Boolean = False, Optional asPDF As Boolean = False)
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Globals.RGCollection.Clear()
|
||||
Dim anzahlraten As Integer = 0
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + nrbehandlung)
|
||||
Dim behandlungsnr As Integer = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
db.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
Dim reportnr As Integer
|
||||
reportnr = db.Get_ReportNr(db.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
|
||||
Dim fakturanr As Integer
|
||||
Try
|
||||
db.Get_Tabledata("Faktura", "", "Select top 1 nrfaktura from faktura where nrbehandlung=" + behandlungsnr.ToString + " and status <> 9 order by erstellt_am asc ")
|
||||
fakturanr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
Catch
|
||||
fakturanr = 0
|
||||
End Try
|
||||
Globals.FakturaNr = fakturanr
|
||||
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim hauptfaktura As Integer
|
||||
While doloop = True
|
||||
For i As Integer = 1 To anzahlraten
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString, asPDF)
|
||||
f.Show()
|
||||
If fakturanr = 0 Then
|
||||
If preview Then
|
||||
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
Else
|
||||
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
End If
|
||||
Else
|
||||
If preview Then
|
||||
f.Fakturierung_Vorschau(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
Else
|
||||
f.Fakturierung(reportnr, behandlungsnr, "", i, 1, fakturanr)
|
||||
End If
|
||||
End If
|
||||
If Not preview Then f.Close()
|
||||
Next i
|
||||
If Folgeauswertung > 0 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Else
|
||||
doloop = False
|
||||
End If
|
||||
End While
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub Mahnung(ByVal Fakturanr As String, ByVal Stufe As Integer, Optional Preview As Boolean = False, Optional Design As Boolean = False)
|
||||
Dim db As New clsDB
|
||||
Dim db1 As New clsDB
|
||||
Dim anzahlraten As Integer = 0
|
||||
Dim Behandlungsnr As Integer
|
||||
db.Get_Tabledata("Faktura", "", "Select nrbehandlung from faktura where nrfaktura=" + Fakturanr)
|
||||
Behandlungsnr = db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung")
|
||||
db.Get_Tabledata("Behandlu", "where nrbehandlung=" + db.dsDaten.Tables(0).Rows(0).Item("nrbehandlung").ToString)
|
||||
db1.Get_Tabledata("estyp", "where nrestyp=" + db.dsDaten.Tables(0).Rows(0).Item("nrestyp").ToString)
|
||||
|
||||
anzahlraten = db.dsDaten.Tables(0).Rows(0).Item("Anzahlraten")
|
||||
|
||||
If anzahlraten = 0 Then anzahlraten = 1
|
||||
|
||||
Dim reportnr As Integer
|
||||
|
||||
reportnr = db.Get_ReportNr(db1.dsDaten.Tables(0).Rows(0).Item("estyp"))
|
||||
reportnr = db1.dsDaten.Tables(0).Rows(0).Item("mahnnummer") + Stufe
|
||||
Globals.FakturaNr = 0
|
||||
|
||||
Dim Folgeauswertung As Integer
|
||||
Dim Separater_Druckjob As Boolean
|
||||
Dim doloop As Boolean = True
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + reportnr.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Dim hauptfaktura As Integer
|
||||
Dim buchen As Boolean = False
|
||||
If Preview = False And Design = False Then buchen = True
|
||||
|
||||
While doloop = True
|
||||
For i As Integer = 1 To anzahlraten
|
||||
Dim f As New frmReportView(reportnr, False, "Vorschau Rechung", " where nrbehandlung = " + behandlungsnr.ToString, behandlungsnr.ToString)
|
||||
f.Show()
|
||||
f.Mahnungg(Stufe, reportnr, Behandlungsnr, "", i, True, Fakturanr, buchen, Preview, Design)
|
||||
If Not Preview Then f.Close()
|
||||
If Design Then f.Close()
|
||||
Next i
|
||||
If Folgeauswertung > 0 Then
|
||||
reportnr = Folgeauswertung
|
||||
db.Get_Tabledata("Auswertung", "where auswertungnr=" + Folgeauswertung.ToString)
|
||||
Folgeauswertung = db.dsDaten.Tables(0).Rows(0).Item("Folge_Report")
|
||||
Separater_Druckjob = db.dsDaten.Tables(0).Rows(0).Item("Folgereport_Sep_Druckjob")
|
||||
Else
|
||||
doloop = False
|
||||
End If
|
||||
End While
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
BIN
DPM2016/DPM2016_TemporaryKey.pfx
Normal file
BIN
DPM2016/DPM2016_TemporaryKey.pfx
Normal file
Binary file not shown.
BIN
DPM2016/DPMNeu.ico
Normal file
BIN
DPM2016/DPMNeu.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 153 KiB |
848
DPM2016/Database/clsMySQLDB.vb
Normal file
848
DPM2016/Database/clsMySQLDB.vb
Normal 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
|
||||
213
DPM2016/Diverses/frmDemoMode.Designer.vb
generated
Normal file
213
DPM2016/Diverses/frmDemoMode.Designer.vb
generated
Normal file
@@ -0,0 +1,213 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmDemoMode
|
||||
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(frmDemoMode))
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.lblprodukt = New System.Windows.Forms.Label()
|
||||
Me.lblVersion = New System.Windows.Forms.Label()
|
||||
Me.lblDatum = New System.Windows.Forms.Label()
|
||||
Me.lblSN = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.lblLizenznehmer = New System.Windows.Forms.Label()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.lblkey = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.ErrorImage = CType(resources.GetObject("PictureBox1.ErrorImage"), System.Drawing.Image)
|
||||
Me.PictureBox1.Image = CType(resources.GetObject("PictureBox1.Image"), System.Drawing.Image)
|
||||
Me.PictureBox1.InitialImage = CType(resources.GetObject("PictureBox1.InitialImage"), System.Drawing.Image)
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(287, 160)
|
||||
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.PictureBox1.TabIndex = 0
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(9, 192)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(47, 13)
|
||||
Me.Label1.TabIndex = 1
|
||||
Me.Label1.Text = "Produkt:"
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(9, 215)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(45, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "Version:"
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(9, 239)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(41, 13)
|
||||
Me.Label3.TabIndex = 3
|
||||
Me.Label3.Text = "Datum:"
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(9, 265)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(25, 13)
|
||||
Me.Label4.TabIndex = 4
|
||||
Me.Label4.Text = "SN:"
|
||||
'
|
||||
'lblprodukt
|
||||
'
|
||||
Me.lblprodukt.AutoSize = True
|
||||
Me.lblprodukt.Location = New System.Drawing.Point(90, 192)
|
||||
Me.lblprodukt.Name = "lblprodukt"
|
||||
Me.lblprodukt.Size = New System.Drawing.Size(39, 13)
|
||||
Me.lblprodukt.TabIndex = 5
|
||||
Me.lblprodukt.Text = "Label5"
|
||||
'
|
||||
'lblVersion
|
||||
'
|
||||
Me.lblVersion.AutoSize = True
|
||||
Me.lblVersion.Location = New System.Drawing.Point(90, 216)
|
||||
Me.lblVersion.Name = "lblVersion"
|
||||
Me.lblVersion.Size = New System.Drawing.Size(41, 13)
|
||||
Me.lblVersion.TabIndex = 6
|
||||
Me.lblVersion.Text = "Datum:"
|
||||
'
|
||||
'lblDatum
|
||||
'
|
||||
Me.lblDatum.AutoSize = True
|
||||
Me.lblDatum.Location = New System.Drawing.Point(90, 240)
|
||||
Me.lblDatum.Name = "lblDatum"
|
||||
Me.lblDatum.Size = New System.Drawing.Size(41, 13)
|
||||
Me.lblDatum.TabIndex = 7
|
||||
Me.lblDatum.Text = "Datum:"
|
||||
'
|
||||
'lblSN
|
||||
'
|
||||
Me.lblSN.AutoSize = True
|
||||
Me.lblSN.Location = New System.Drawing.Point(90, 266)
|
||||
Me.lblSN.Name = "lblSN"
|
||||
Me.lblSN.Size = New System.Drawing.Size(41, 13)
|
||||
Me.lblSN.TabIndex = 8
|
||||
Me.lblSN.Text = "Datum:"
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(9, 294)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(75, 13)
|
||||
Me.Label5.TabIndex = 9
|
||||
Me.Label5.Text = "Lizenznehmer:"
|
||||
'
|
||||
'lblLizenznehmer
|
||||
'
|
||||
Me.lblLizenznehmer.AutoSize = True
|
||||
Me.lblLizenznehmer.Location = New System.Drawing.Point(90, 295)
|
||||
Me.lblLizenznehmer.Name = "lblLizenznehmer"
|
||||
Me.lblLizenznehmer.Size = New System.Drawing.Size(75, 13)
|
||||
Me.lblLizenznehmer.TabIndex = 10
|
||||
Me.lblLizenznehmer.Text = "Lizenznehmer:"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(9, 320)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(83, 13)
|
||||
Me.Label6.TabIndex = 11
|
||||
Me.Label6.Text = "Lizenzschlüssel:"
|
||||
'
|
||||
'lblkey
|
||||
'
|
||||
Me.lblkey.AutoSize = True
|
||||
Me.lblkey.Location = New System.Drawing.Point(90, 320)
|
||||
Me.lblkey.Name = "lblkey"
|
||||
Me.lblkey.Size = New System.Drawing.Size(35, 13)
|
||||
Me.lblkey.TabIndex = 12
|
||||
Me.lblkey.Text = "lblKey"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(112, 360)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 13
|
||||
Me.Button1.Text = "OK"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmDemoMode
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(312, 398)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.lblkey)
|
||||
Me.Controls.Add(Me.Label6)
|
||||
Me.Controls.Add(Me.lblLizenznehmer)
|
||||
Me.Controls.Add(Me.Label5)
|
||||
Me.Controls.Add(Me.lblSN)
|
||||
Me.Controls.Add(Me.lblDatum)
|
||||
Me.Controls.Add(Me.lblVersion)
|
||||
Me.Controls.Add(Me.lblprodukt)
|
||||
Me.Controls.Add(Me.Label4)
|
||||
Me.Controls.Add(Me.Label3)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.Controls.Add(Me.PictureBox1)
|
||||
Me.Name = "frmDemoMode"
|
||||
Me.Text = "frmDemoMode"
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
Friend WithEvents Label1 As Label
|
||||
Friend WithEvents Label2 As Label
|
||||
Friend WithEvents Label3 As Label
|
||||
Friend WithEvents Label4 As Label
|
||||
Friend WithEvents lblprodukt As Label
|
||||
Friend WithEvents lblVersion As Label
|
||||
Friend WithEvents lblDatum As Label
|
||||
Friend WithEvents lblSN As Label
|
||||
Friend WithEvents Label5 As Label
|
||||
Friend WithEvents lblLizenznehmer As Label
|
||||
Friend WithEvents Label6 As Label
|
||||
Friend WithEvents lblkey As Label
|
||||
Friend WithEvents Button1 As Button
|
||||
End Class
|
||||
1432
DPM2016/Diverses/frmDemoMode.resx
Normal file
1432
DPM2016/Diverses/frmDemoMode.resx
Normal file
File diff suppressed because it is too large
Load Diff
34
DPM2016/Diverses/frmDemoMode.vb
Normal file
34
DPM2016/Diverses/frmDemoMode.vb
Normal file
@@ -0,0 +1,34 @@
|
||||
Public Class frmDemoMode
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub New(Optional Formulartitel As String = "")
|
||||
InitializeComponent()
|
||||
Me.Text = Formulartitel
|
||||
If Formulartitel = "" Then Me.Text = "DPM"
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub frmDemoMode_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
||||
Me.lblprodukt.Text = Globals.Productname
|
||||
Me.lblVersion.Text = Globals.Version
|
||||
Me.lblDatum.Text = Globals.Versionastaum
|
||||
Me.lblSN.Text = Globals.Seriennummer
|
||||
If Globals.License.DemoMode Then
|
||||
|
||||
Me.lblLizenznehmer.Text = "Demo-Version"
|
||||
Me.lblkey.Text = Globals.License.KeyCode
|
||||
Else
|
||||
Me.lblLizenznehmer.Text = Globals.License.Lizenznahmer
|
||||
Me.lblkey.Text = Globals.License.KeyCode
|
||||
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
End Class
|
||||
132
DPM2016/Fakturierung/clsFakturierung.vb
Normal file
132
DPM2016/Fakturierung/clsFakturierung.vb
Normal file
@@ -0,0 +1,132 @@
|
||||
Public Class clsFakturierung
|
||||
|
||||
Dim m_fakturanr As Integer
|
||||
Property fakturanr As Integer
|
||||
Get
|
||||
Return m_fakturanr
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
m_fakturanr = value
|
||||
End Set
|
||||
End Property
|
||||
Public Sub Verbuchen(ByVal Behandlungsnummer As Integer, Optional Ratenr As Integer = 0, Optional nrhauptfaktura As Integer = 0)
|
||||
Dim db As New clsDB
|
||||
Dim paramdaten As New DataTable
|
||||
Dim dbr As DataRow = paramdaten.NewRow
|
||||
|
||||
paramdaten.Columns.Clear()
|
||||
paramdaten.Rows.Clear()
|
||||
|
||||
|
||||
dbr = paramdaten.NewRow
|
||||
paramdaten.Columns.Add("Paramname")
|
||||
paramdaten.Columns.Add("Paramvalue")
|
||||
|
||||
dbr(0) = "@behandlungsnr"
|
||||
dbr(1) = Behandlungsnummer
|
||||
paramdaten.Rows.Add(dbr)
|
||||
dbr = paramdaten.NewRow
|
||||
dbr(0) = "@ratenr"
|
||||
dbr(1) = Ratenr
|
||||
|
||||
paramdaten.Rows.Add(dbr)
|
||||
dbr = paramdaten.NewRow
|
||||
dbr(0) = "@nrhauptfaktura"
|
||||
dbr(1) = nrhauptfaktura
|
||||
|
||||
paramdaten.Rows.Add(dbr)
|
||||
dbr = paramdaten.NewRow
|
||||
dbr(0) = "@idatum"
|
||||
dbr(1) = Now
|
||||
|
||||
paramdaten.Rows.Add(dbr)
|
||||
|
||||
db.Get_Tabledata("sp_verbuchen", "", "", "", True, paramdaten)
|
||||
db.Get_Tabledata("Faktura", "", "Select top 1 nrfaktura from faktura order by nrfaktura desc")
|
||||
If nrhauptfaktura = 0 Then Me.fakturanr = db.dsDaten.Tables(0).Rows(0).Item(0)
|
||||
End Sub
|
||||
|
||||
Public Function Verrechnet(ByVal behandlungsnummer As Integer) As Integer
|
||||
Dim db As New clsDB
|
||||
Dim paramdaten As New DataTable
|
||||
Dim dbr As DataRow = paramdaten.NewRow
|
||||
|
||||
paramdaten.Columns.Clear()
|
||||
paramdaten.Rows.Clear()
|
||||
|
||||
dbr = paramdaten.NewRow
|
||||
paramdaten.Columns.Add("Paramname")
|
||||
paramdaten.Columns.Add("Paramvalue")
|
||||
|
||||
dbr(0) = "@fnkt"
|
||||
dbr(1) = 1
|
||||
paramdaten.Rows.Add(dbr)
|
||||
|
||||
|
||||
dbr = paramdaten.NewRow
|
||||
dbr(0) = "@behandlungsnr"
|
||||
dbr(1) = behandlungsnummer
|
||||
paramdaten.Rows.Add(dbr)
|
||||
|
||||
db.Get_Tabledata("sp_verrechnungsstatus", "", "", "", True, paramdaten)
|
||||
Dim result As Integer = 0
|
||||
If db.dsDaten.Tables(0).Rows(0).Item(1) > 0 Then result = 2
|
||||
If db.dsDaten.Tables(0).Rows(0).Item(0) > 0 And db.dsDaten.Tables(0).Rows(0).Item(1) = 0 Then result = 1
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Public Function Storno(ByVal behandlungsnummer As Integer) As Integer
|
||||
Dim db As New clsDB
|
||||
Dim paramdaten As New DataTable
|
||||
Dim dbr As DataRow = paramdaten.NewRow
|
||||
|
||||
paramdaten.Columns.Clear()
|
||||
paramdaten.Rows.Clear()
|
||||
|
||||
dbr = paramdaten.NewRow
|
||||
paramdaten.Columns.Add("Paramname")
|
||||
paramdaten.Columns.Add("Paramvalue")
|
||||
|
||||
dbr(0) = "@fnkt"
|
||||
dbr(1) = 2
|
||||
paramdaten.Rows.Add(dbr)
|
||||
|
||||
dbr = paramdaten.NewRow
|
||||
dbr(0) = "@behandlungsnr"
|
||||
dbr(1) = behandlungsnummer
|
||||
paramdaten.Rows.Add(dbr)
|
||||
|
||||
db.Get_Tabledata("sp_verrechnungsstatus", "", "", "", True, paramdaten)
|
||||
|
||||
End Function
|
||||
|
||||
Public Function Storno_Zahlung(ByVal Zahlungnr As Integer)
|
||||
Dim db As New clsDB
|
||||
Dim paramdaten As New DataTable
|
||||
Dim dbr As DataRow = paramdaten.NewRow
|
||||
|
||||
paramdaten.Columns.Clear()
|
||||
paramdaten.Rows.Clear()
|
||||
|
||||
dbr = paramdaten.NewRow
|
||||
paramdaten.Columns.Add("Paramname")
|
||||
paramdaten.Columns.Add("Paramvalue")
|
||||
|
||||
dbr(0) = "@zahlungnr"
|
||||
dbr(1) = Zahlungnr
|
||||
paramdaten.Rows.Add(dbr)
|
||||
|
||||
db.Get_Tabledata("sp_zahlung_storno", "", "", "", True, paramdaten)
|
||||
|
||||
Dim zahlung As New DataTable
|
||||
db.Get_Tabledata("Zahlung", "", "Select * from zahlung where nrzahlung=" + Zahlungnr.ToString)
|
||||
zahlung = db.dsDaten.Tables(0).Copy
|
||||
|
||||
db.Insert_ZJournal(zahlung.Rows(0).Item("nrfaktura"), zahlung.Rows(0).Item("nrdebitor"), db.Get_Datavalue("Select dbo.get_name(" + zahlung.Rows(0).Item("nrdebitor").ToString + ")"), zahlung.Rows(0).Item("Betrag"), db.Get_Datavalue("Select konto from konto where nrkonto=" + zahlung.Rows(0).Item("nrkonto").ToString), zahlung.Rows(0).Item("vorauszahlung").ToString, "J")
|
||||
End Function
|
||||
|
||||
Public Sub Preview_Mahnung()
|
||||
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
273
DPM2016/Fakturierung/frmOffeneBehandlungen.Designer.vb
generated
Normal file
273
DPM2016/Fakturierung/frmOffeneBehandlungen.Designer.vb
generated
Normal file
@@ -0,0 +1,273 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmOffeneBehandlungen
|
||||
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(frmOffeneBehandlungen))
|
||||
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
|
||||
Me.DateiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.BeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
|
||||
Me.tsbtnquit = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsbtnSave = 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.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
|
||||
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
|
||||
Me.tstxtsuche = New System.Windows.Forms.ToolStripTextBox()
|
||||
Me.tsbtnfirst = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsbtprev = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsbtnnext = New System.Windows.Forms.ToolStripButton()
|
||||
Me.tsbtnlast = New System.Windows.Forms.ToolStripButton()
|
||||
Me.C1OffeneBehandlungen = New C1.Win.C1TrueDBGrid.C1TrueDBGrid()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.MenuStrip1.SuspendLayout()
|
||||
Me.ToolStrip1.SuspendLayout()
|
||||
CType(Me.C1OffeneBehandlungen, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'MenuStrip1
|
||||
'
|
||||
Me.MenuStrip1.AllowMerge = False
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DateiToolStripMenuItem})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(674, 24)
|
||||
Me.MenuStrip1.TabIndex = 21
|
||||
Me.MenuStrip1.Text = "MenuStrip1"
|
||||
'
|
||||
'DateiToolStripMenuItem
|
||||
'
|
||||
Me.DateiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BeendenToolStripMenuItem})
|
||||
Me.DateiToolStripMenuItem.Name = "DateiToolStripMenuItem"
|
||||
Me.DateiToolStripMenuItem.Size = New System.Drawing.Size(46, 20)
|
||||
Me.DateiToolStripMenuItem.Text = "&Datei"
|
||||
'
|
||||
'BeendenToolStripMenuItem
|
||||
'
|
||||
Me.BeendenToolStripMenuItem.Name = "BeendenToolStripMenuItem"
|
||||
Me.BeendenToolStripMenuItem.Size = New System.Drawing.Size(120, 22)
|
||||
Me.BeendenToolStripMenuItem.Text = "&Beenden"
|
||||
'
|
||||
'ToolStrip1
|
||||
'
|
||||
Me.ToolStrip1.AllowDrop = True
|
||||
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnquit, Me.tsbtnSave, Me.tsbtnnew, Me.ToolStripButton4, Me.ToolStripButton2, Me.ToolStripButton3, Me.ToolStripLabel1, Me.tstxtsuche, Me.tsbtnfirst, Me.tsbtprev, Me.tsbtnnext, Me.tsbtnlast})
|
||||
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
|
||||
Me.ToolStrip1.Name = "ToolStrip1"
|
||||
Me.ToolStrip1.Size = New System.Drawing.Size(674, 25)
|
||||
Me.ToolStrip1.TabIndex = 22
|
||||
Me.ToolStrip1.Text = "ToolStrip1"
|
||||
'
|
||||
'tsbtnquit
|
||||
'
|
||||
Me.tsbtnquit.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnquit.Image = CType(resources.GetObject("tsbtnquit.Image"), System.Drawing.Image)
|
||||
Me.tsbtnquit.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnquit.Name = "tsbtnquit"
|
||||
Me.tsbtnquit.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnquit.Text = "Schliessen"
|
||||
'
|
||||
'tsbtnSave
|
||||
'
|
||||
Me.tsbtnSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnSave.Image = CType(resources.GetObject("tsbtnSave.Image"), System.Drawing.Image)
|
||||
Me.tsbtnSave.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnSave.Name = "tsbtnSave"
|
||||
Me.tsbtnSave.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnSave.Text = "Speichern"
|
||||
Me.tsbtnSave.Visible = False
|
||||
'
|
||||
'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
|
||||
'
|
||||
'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
|
||||
'
|
||||
'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 = "Dokument anzeigen"
|
||||
Me.ToolStripButton3.Visible = False
|
||||
'
|
||||
'ToolStripLabel1
|
||||
'
|
||||
Me.ToolStripLabel1.Name = "ToolStripLabel1"
|
||||
Me.ToolStripLabel1.Size = New System.Drawing.Size(39, 22)
|
||||
Me.ToolStripLabel1.Text = "Suche"
|
||||
Me.ToolStripLabel1.Visible = False
|
||||
'
|
||||
'tstxtsuche
|
||||
'
|
||||
Me.tstxtsuche.Name = "tstxtsuche"
|
||||
Me.tstxtsuche.Size = New System.Drawing.Size(100, 25)
|
||||
Me.tstxtsuche.Visible = False
|
||||
'
|
||||
'tsbtnfirst
|
||||
'
|
||||
Me.tsbtnfirst.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnfirst.Image = CType(resources.GetObject("tsbtnfirst.Image"), System.Drawing.Image)
|
||||
Me.tsbtnfirst.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnfirst.Name = "tsbtnfirst"
|
||||
Me.tsbtnfirst.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnfirst.Text = "Erster Datensatz"
|
||||
Me.tsbtnfirst.Visible = False
|
||||
'
|
||||
'tsbtprev
|
||||
'
|
||||
Me.tsbtprev.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtprev.Image = CType(resources.GetObject("tsbtprev.Image"), System.Drawing.Image)
|
||||
Me.tsbtprev.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtprev.Name = "tsbtprev"
|
||||
Me.tsbtprev.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtprev.Text = "Vorheriger Datensatz"
|
||||
Me.tsbtprev.Visible = False
|
||||
'
|
||||
'tsbtnnext
|
||||
'
|
||||
Me.tsbtnnext.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnnext.Image = CType(resources.GetObject("tsbtnnext.Image"), System.Drawing.Image)
|
||||
Me.tsbtnnext.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnnext.Name = "tsbtnnext"
|
||||
Me.tsbtnnext.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnnext.Text = "nächster Datensatz"
|
||||
Me.tsbtnnext.Visible = False
|
||||
'
|
||||
'tsbtnlast
|
||||
'
|
||||
Me.tsbtnlast.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
|
||||
Me.tsbtnlast.Image = CType(resources.GetObject("tsbtnlast.Image"), System.Drawing.Image)
|
||||
Me.tsbtnlast.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.tsbtnlast.Name = "tsbtnlast"
|
||||
Me.tsbtnlast.Size = New System.Drawing.Size(23, 22)
|
||||
Me.tsbtnlast.Text = "Letzter Datensatz"
|
||||
Me.tsbtnlast.Visible = False
|
||||
'
|
||||
'C1OffeneBehandlungen
|
||||
'
|
||||
Me.C1OffeneBehandlungen.AlternatingRows = True
|
||||
Me.C1OffeneBehandlungen.Dock = System.Windows.Forms.DockStyle.Top
|
||||
Me.C1OffeneBehandlungen.FilterBar = True
|
||||
Me.C1OffeneBehandlungen.GroupByCaption = "Drag a column header here to group by that column"
|
||||
Me.C1OffeneBehandlungen.Images.Add(CType(resources.GetObject("C1OffeneBehandlungen.Images"), System.Drawing.Image))
|
||||
Me.C1OffeneBehandlungen.Location = New System.Drawing.Point(0, 49)
|
||||
Me.C1OffeneBehandlungen.Name = "C1OffeneBehandlungen"
|
||||
Me.C1OffeneBehandlungen.PreviewInfo.Location = New System.Drawing.Point(0, 0)
|
||||
Me.C1OffeneBehandlungen.PreviewInfo.Size = New System.Drawing.Size(0, 0)
|
||||
Me.C1OffeneBehandlungen.PreviewInfo.ZoomFactor = 75.0R
|
||||
Me.C1OffeneBehandlungen.PrintInfo.PageSettings = CType(resources.GetObject("C1OffeneBehandlungen.PrintInfo.PageSettings"), System.Drawing.Printing.PageSettings)
|
||||
Me.C1OffeneBehandlungen.Size = New System.Drawing.Size(674, 189)
|
||||
Me.C1OffeneBehandlungen.TabIndex = 23
|
||||
Me.C1OffeneBehandlungen.Text = "C1OffeneRechnungen"
|
||||
Me.C1OffeneBehandlungen.PropBag = resources.GetString("C1OffeneBehandlungen.PropBag")
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(12, 244)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button1.TabIndex = 24
|
||||
Me.Button1.Text = "Zuweisen"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.Location = New System.Drawing.Point(587, 244)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(75, 23)
|
||||
Me.Button2.TabIndex = 25
|
||||
Me.Button2.Text = "Abbruch"
|
||||
Me.Button2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'frmOffeneBehandlungen
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(674, 275)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.C1OffeneBehandlungen)
|
||||
Me.Controls.Add(Me.ToolStrip1)
|
||||
Me.Controls.Add(Me.MenuStrip1)
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmOffeneBehandlungen"
|
||||
Me.Text = "Offene Behandlungen"
|
||||
Me.MenuStrip1.ResumeLayout(False)
|
||||
Me.MenuStrip1.PerformLayout()
|
||||
Me.ToolStrip1.ResumeLayout(False)
|
||||
Me.ToolStrip1.PerformLayout()
|
||||
CType(Me.C1OffeneBehandlungen, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
|
||||
Friend WithEvents MenuStrip1 As MenuStrip
|
||||
Friend WithEvents DateiToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents BeendenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ToolStrip1 As ToolStrip
|
||||
Friend WithEvents tsbtnquit As ToolStripButton
|
||||
Friend WithEvents tsbtnSave As ToolStripButton
|
||||
Friend WithEvents tsbtnnew As ToolStripButton
|
||||
Friend WithEvents ToolStripButton4 As ToolStripButton
|
||||
Friend WithEvents ToolStripButton2 As ToolStripButton
|
||||
Friend WithEvents ToolStripButton3 As ToolStripButton
|
||||
Friend WithEvents ToolStripLabel1 As ToolStripLabel
|
||||
Friend WithEvents tstxtsuche As ToolStripTextBox
|
||||
Friend WithEvents tsbtnfirst As ToolStripButton
|
||||
Friend WithEvents tsbtprev As ToolStripButton
|
||||
Friend WithEvents tsbtnnext As ToolStripButton
|
||||
Friend WithEvents tsbtnlast As ToolStripButton
|
||||
Friend WithEvents C1OffeneBehandlungen As C1.Win.C1TrueDBGrid.C1TrueDBGrid
|
||||
Friend WithEvents Button1 As Button
|
||||
Friend WithEvents Button2 As Button
|
||||
End Class
|
||||
4394
DPM2016/Fakturierung/frmOffeneBehandlungen.resx
Normal file
4394
DPM2016/Fakturierung/frmOffeneBehandlungen.resx
Normal file
File diff suppressed because it is too large
Load Diff
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user