edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Feature: UsrCntl_Kundenvollmachten, Besuchsbereicht, FrmKundenvollmachten

Browse Source
This commit is contained in:
d.breimaier
2022-09-30 16:41:06 +02:00
parent 16806f5c55
commit 71c35e6fa5
16 changed files with 2762 additions and 2041 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
SDL.sln
View File

@@ -17,12 +17,12 @@ Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "VER
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Parkzeit", "..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj", "{E4190547-B222-4AE3-A0BE-A44EAEE70335}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "MDM_Worker_lib", "..\..\ADMIN\ADMIN\MDM_Worker\MDM_Worker_lib.vbproj", "{2E4DBC09-E57B-4AC5-8554-6117D71F993B}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "TELOTEC_Worker_lib", "..\..\ADMIN\ADMIN\TELOTEK_Worker_lib\TELOTEC_Worker_lib.vbproj", "{5B947A66-009A-4BB6-B925-F84A01045095}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DAKOSY_Worker_lib", "..\..\ADMIN\ADMIN\DAKOSY_Worker\DAKOSY_Worker_lib.vbproj", "{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}"
EndProject
Global
@@ -105,18 +105,6 @@ Global
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.Build.0 = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.ActiveCfg = Release|x86
{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.ActiveCfg = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.Build.0 = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Any CPU.ActiveCfg = Debug|x86
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|Mixed Platforms.ActiveCfg = Debug|x64
{E4190547-B222-4AE3-A0BE-A44EAEE70335}.Debug|x86.ActiveCfg = Debug|x86
@@ -138,6 +126,18 @@ Global
{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.ActiveCfg = Release|Any CPU
{2E4DBC09-E57B-4AC5-8554-6117D71F993B}.Release|x86.Build.0 = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Any CPU.Build.0 = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.ActiveCfg = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Debug|x86.Build.0 = Debug|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.ActiveCfg = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Any CPU.Build.0 = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|Mixed Platforms.Build.0 = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.ActiveCfg = Release|Any CPU
{5B947A66-009A-4BB6-B925-F84A01045095}.Release|x86.Build.0 = Release|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Any CPU.Build.0 = Debug|Any CPU
{50E8E49B-4FD9-4DD4-B159-BDC2B7D0E94F}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU

10
SDL/My Project/Resources.Designer.vb generated
View File

@@ -618,6 +618,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property email_big_gray() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("email_big_gray", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

149
SDL/My Project/Resources.resx
View File

@@ -157,6 +157,9 @@
<data name="reloadFinance" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\reloadFinance.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -166,11 +169,17 @@
<data name="positionen" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\liste-logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="axxes" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="WAI" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\WAI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -184,18 +193,12 @@
<data name="statistik2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\statistik2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX_LOGO_AEO_sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO-AEO_sig.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sicherheit11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mic_logo___short" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mic-logo - short.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -226,9 +229,6 @@
<data name="add_person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-add-contact.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="_exit" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\exit.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -262,6 +262,9 @@
<data name="pfeil_oben" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_oben.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="warenkorb1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\warenkorb1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -277,6 +280,9 @@
<data name="person_default" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person_default.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="entwurf" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\entwurf.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -286,8 +292,8 @@
<data name="email11" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email11.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_tr" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_tr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -319,17 +325,17 @@
<data name="Atilla_big_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0777_kurz" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0777_kurz.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="lorry_motion" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\lorry_motion.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="zoll" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\zoll.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uhr_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uhr_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -352,6 +358,9 @@
<data name="sgs" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sgs.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route1_IR" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route1_IR.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="passpic" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passpic.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -409,15 +418,15 @@
<data name="Excel_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Excel_2013_logo-155x110.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxNext_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxNext_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="handy" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\handy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="plose_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\plose_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -427,15 +436,9 @@
<data name="cards1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\cards1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="spedbuch1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\spedbuch1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flagge_D" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_D.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -451,8 +454,8 @@
<data name="checklist" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="data" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\data.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -460,9 +463,15 @@
<data name="ambar_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ambar_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="unisped_aeo_ZS_AT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\unisped_aeo_ZS_AT.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ok_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ok_gray.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -490,6 +499,9 @@
<data name="belegEUR1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\belegEUR1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="asfinag" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\asfinag.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -517,6 +529,9 @@
<data name="sms" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sms.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route4" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route4.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -532,8 +547,8 @@
<data name="person" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\person.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aktiveVeredelung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aktiveVeredelung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -574,8 +589,8 @@
<data name="transp" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\transp.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="uta" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\uta.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="changeKd" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-friends.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="LKW" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\LKW1.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -628,8 +643,8 @@
<data name="Atilla__sig" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Atilla _sig.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="stift1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\stift1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -652,17 +667,14 @@
<data name="passpic_sw" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\passpic_sw.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_GMBH_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-Customs-Service-GMBH-Logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route3" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route3.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="compose" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\compose.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="FrontOfficeSUB_Horizontal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Logo_blue_globe_Horizontal.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="transfer" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\transfer.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -673,8 +685,8 @@
<data name="axxes1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\axxes.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Route5" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Route5.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="toll_collect" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\toll-collect.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="FA_Graz_EV_Veranlagung_Muster" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\FA_Graz_EV-Veranlagung_Muster.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
@@ -682,8 +694,8 @@
<data name="seal" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\seal.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="picboxRotateLeft_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateLeft_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="abc_obu" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\abc_obu.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="vorauszahlung1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -694,8 +706,8 @@
<data name="LKW_klein1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="fax" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\fax.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="picboxRotateRight_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxRotateRight_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="aeo_DE" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aeo_DE.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -703,17 +715,14 @@
<data name="SR_EVOLOG" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SR_EVOLOG.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="aeo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\aeo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_bottom" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_bottom.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="SR_TransFerry360" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\SR_TransFerry360.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Einheitspapier_0735_top" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_top.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="today" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\today.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="android-note12" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\android-note12.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -730,14 +739,14 @@
<data name="Unisped_ZS_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Unisped_ZS_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Einheitspapier_0735_Position" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Einheitspapier-0735_Position.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="beleg_rot_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\beleg_rot1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pdf1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="list_new_small2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\list_new_small2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="pfeil_rechts" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pfeil_rechts.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -748,8 +757,8 @@
<data name="email_big1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Verag_Customs_Service_AEO" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\AVISO\Aviso\Diverses\Verag_Customs_Service_AEO.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="vorauszahlung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\vorauszahlung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sicherheit1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\sicherheit1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -787,8 +796,8 @@
<data name="report" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\report.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="RG_ZF" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\RG_ZF.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="kasse" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\kasse.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="moneybag1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\moneybag1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -796,9 +805,6 @@
<data name="mahn" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\mahn.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="IMEX-LOGO_simple" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\IMEX-LOGO_simple.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="VERAG_UNISPED_Logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\VERAG-UNISPED-Logo.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@@ -811,14 +817,11 @@
<data name="picboxZoomOut_Enter" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\picboxZoomOut_Enter.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="scanner1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\scanner1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="house1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\house1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="del_small" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="rechnung" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\rechnung.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -829,8 +832,8 @@
<data name="checklist1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\checklist.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Plakette1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Plakette1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Verag_AG_Logo_med" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Verag-AG-Logo21.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="sms_s" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\..\AVISO\Aviso\Diverses\sms_s.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -838,7 +841,7 @@
<data name="flagge_A" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flagge_A.gif;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="awor" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\..\..\data\awor.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="email_big_gray" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\email_big_gray.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
SDL/Resources/email_big_gray.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 46 KiB

37
SDL/SDL.vbproj
View File

@@ -106,6 +106,10 @@
<Reference Include="ExcelNumberFormat, Version=1.0.10.0, Culture=neutral, PublicKeyToken=23c6f5d73be07eca, processorArchitecture=MSIL">
<HintPath>..\..\..\AVISO\Aviso\packages\ExcelNumberFormat.1.0.10\lib\net20\ExcelNumberFormat.dll</HintPath>
</Reference>
<Reference Include="Gemeinsames, Version=1.0.0.0, Culture=neutral, processorArchitecture=AMD64">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\Aviso\AVISO\Gemeinsames\bin\x64\Debug\Gemeinsames.dll</HintPath>
</Reference>
<Reference Include="Ghostscript.NET, Version=1.2.1.0, Culture=neutral, PublicKeyToken=f85051de34525b59, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\Ghostscript.NET.dll</HintPath>
@@ -570,6 +574,12 @@
<Compile Include="kunden\frmKundenUIDEORI_List.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenZOLLVollmachten.Designer.vb">
<DependentUpon>frmKundenZOLLVollmachten.vb</DependentUpon>
</Compile>
<Compile Include="kunden\frmKundenZOLLVollmachten.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenZOLLVollmachtenUebersicht.Designer.vb">
<DependentUpon>frmKundenZOLLVollmachtenUebersicht.vb</DependentUpon>
</Compile>
@@ -588,6 +598,12 @@
<Compile Include="kunden\usrCntlKundenBesonderheiten.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="kunden\usrCntlKundenZollVollmachten.Designer.vb">
<DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
</Compile>
<Compile Include="kunden\usrCntlKundenZollVollmachten.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="mdm\Besuchsberichte\frmBesuchsberichte.Designer.vb">
<DependentUpon>frmBesuchsberichte.vb</DependentUpon>
</Compile>
@@ -1622,12 +1638,6 @@
<Compile Include="kunden\frmKundenZOLLOffertenSperre.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\usrCntlKundenZOLLVollmachten.Designer.vb">
<DependentUpon>usrCntlKundenZOLLVollmachten.vb</DependentUpon>
</Compile>
<Compile Include="kunden\usrCntlKundenZOLLVollmachten.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenSucheUebersicht.Designer.vb">
<DependentUpon>frmKundenSucheUebersicht.vb</DependentUpon>
</Compile>
@@ -2786,6 +2796,9 @@
<EmbeddedResource Include="kunden\frmKundenUIDEORI_List.resx">
<DependentUpon>frmKundenUIDEORI_List.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenZOLLVollmachten.resx">
<DependentUpon>frmKundenZOLLVollmachten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenZOLLVollmachtenUebersicht.resx">
<DependentUpon>frmKundenZOLLVollmachtenUebersicht.vb</DependentUpon>
</EmbeddedResource>
@@ -2795,6 +2808,9 @@
<EmbeddedResource Include="kunden\usrCntlKundenBesonderheiten.resx">
<DependentUpon>usrCntlKundenBesonderheiten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrCntlKundenZollVollmachten.resx">
<DependentUpon>usrCntlKundenZollVollmachten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\Besuchsberichte\frmBesuchsberichte.resx">
<DependentUpon>frmBesuchsberichte.vb</DependentUpon>
</EmbeddedResource>
@@ -3303,9 +3319,6 @@
<EmbeddedResource Include="kunden\frmKundenZOLLOffertenSperre.resx">
<DependentUpon>frmKundenZOLLOffertenSperre.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\usrCntlKundenZOLLVollmachten.resx">
<DependentUpon>usrCntlKundenZOLLVollmachten.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenSucheUebersicht.resx">
<DependentUpon>frmKundenSucheUebersicht.vb</DependentUpon>
</EmbeddedResource>
@@ -4236,6 +4249,7 @@
<ItemGroup>
<Content Include="My Project\logo_mdm.png" />
<Content Include="My Project\zoll.png" />
<None Include="Resources\email_big_gray.jpg" />
<Content Include="Resources\Verag_Customs_Service_AEO.jpg" />
<None Include="Resources\mic-logo.jpg" />
<None Include="Resources\mic-logo - short.jpg" />
@@ -4531,11 +4545,6 @@
<Project>{5b947a66-009a-4bb6-b925-f84a01045095}</Project>
<Name>TELOTEC_Worker_lib</Name>
</ProjectReference>
<ProjectReference Include="..\..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj">
<Project>{110c923b-cb02-4fd0-af24-95e0f0eeeff5}</Project>
<Name>Gemeinsames</Name>
<EmbedInteropTypes>False</EmbedInteropTypes>
</ProjectReference>
<ProjectReference Include="..\..\..\Parkzeit\Parkzeit\Parkzeit\Parkzeit.vbproj">
<Project>{e4190547-b222-4ae3-a0be-a44eaee70335}</Project>
<Name>Parkzeit</Name>

505
SDL/kunden/frmKundenZOLLVollmachten.Designer.vb generated Normal file
View File

@@ -0,0 +1,505 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmKundenZOLLVollmachten
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(frmKundenZOLLVollmachten))
Me.pnl = New System.Windows.Forms.Panel()
Me.btnUploadPDF = New System.Windows.Forms.Button()
Me.lblPDFavailable = New System.Windows.Forms.Label()
Me.btnNeu = New System.Windows.Forms.Button()
Me.dgvVollmachtenEmbedded = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox()
Me.lbl = New System.Windows.Forms.Label()
Me.pnlDetails = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.lblWarning = New System.Windows.Forms.Label()
Me.lblGueltigVon = New System.Windows.Forms.Label()
Me.cbxVMarchivieren = New System.Windows.Forms.CheckBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.picDeleteEmail = New System.Windows.Forms.PictureBox()
Me.picEmail = New System.Windows.Forms.PictureBox()
Me.picDeletePDF = New System.Windows.Forms.PictureBox()
Me.picPDF = New System.Windows.Forms.PictureBox()
Me.lblGueltigBis = New System.Windows.Forms.Label()
Me.txtGueltigVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxArchiviert = New System.Windows.Forms.CheckBox()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl.SuspendLayout()
CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlDetails.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picEmail, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.btnUploadPDF)
Me.pnl.Controls.Add(Me.lblPDFavailable)
Me.pnl.Controls.Add(Me.btnNeu)
Me.pnl.Controls.Add(Me.dgvVollmachtenEmbedded)
Me.pnl.Controls.Add(Me.MyComboBox1)
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.cbxErhaltenAm)
Me.pnl.Controls.Add(Me.lbl)
Me.pnl.Controls.Add(Me.pnlDetails)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(513, 383)
Me.pnl.TabIndex = 1
'
'btnUploadPDF
'
Me.btnUploadPDF.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUploadPDF.Location = New System.Drawing.Point(155, 179)
Me.btnUploadPDF.Name = "btnUploadPDF"
Me.btnUploadPDF.Size = New System.Drawing.Size(134, 25)
Me.btnUploadPDF.TabIndex = 12
Me.btnUploadPDF.Text = "PDF hochladen"
Me.btnUploadPDF.UseVisualStyleBackColor = True
Me.btnUploadPDF.Visible = False
'
'lblPDFavailable
'
Me.lblPDFavailable.Location = New System.Drawing.Point(297, 182)
Me.lblPDFavailable.Name = "lblPDFavailable"
Me.lblPDFavailable.Size = New System.Drawing.Size(140, 13)
Me.lblPDFavailable.TabIndex = 13
Me.lblPDFavailable.Text = "Kein PDF vorhanden."
Me.lblPDFavailable.TextAlign = System.Drawing.ContentAlignment.TopRight
Me.lblPDFavailable.Visible = False
'
'btnNeu
'
Me.btnNeu.Image = Global.SDL.My.Resources.Resources.plus
Me.btnNeu.Location = New System.Drawing.Point(443, 182)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(44, 31)
Me.btnNeu.TabIndex = 28
Me.btnNeu.UseVisualStyleBackColor = True
'
'dgvVollmachtenEmbedded
'
Me.dgvVollmachtenEmbedded.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvVollmachtenEmbedded.AllowUserToAddRows = False
Me.dgvVollmachtenEmbedded.AllowUserToDeleteRows = False
Me.dgvVollmachtenEmbedded.AllowUserToResizeColumns = False
Me.dgvVollmachtenEmbedded.AllowUserToResizeRows = False
Me.dgvVollmachtenEmbedded.BackgroundColor = System.Drawing.SystemColors.Window
Me.dgvVollmachtenEmbedded.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVollmachtenEmbedded.Location = New System.Drawing.Point(24, 33)
Me.dgvVollmachtenEmbedded.MultiSelect = False
Me.dgvVollmachtenEmbedded.Name = "dgvVollmachtenEmbedded"
Me.dgvVollmachtenEmbedded.ReadOnly = True
Me.dgvVollmachtenEmbedded.RowHeadersVisible = False
Me.dgvVollmachtenEmbedded.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvVollmachtenEmbedded.Size = New System.Drawing.Size(463, 140)
Me.dgvVollmachtenEmbedded.TabIndex = 24
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.White
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(98, 6)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(243, 21)
Me.MyComboBox1.TabIndex = 15
Me.MyComboBox1.Visible = False
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(469, 0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(42, 23)
Me.Button1.TabIndex = 9
Me.Button1.Text = "X"
Me.Button1.UseVisualStyleBackColor = False
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(209, 48)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(214, 30)
Me.Label1.TabIndex = 20
Me.Label1.Text = "VOLLMACHT"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'cbxErhaltenAm
'
Me.cbxErhaltenAm.AutoSize = True
Me.cbxErhaltenAm.Location = New System.Drawing.Point(39, 190)
Me.cbxErhaltenAm.Name = "cbxErhaltenAm"
Me.cbxErhaltenAm.Size = New System.Drawing.Size(85, 17)
Me.cbxErhaltenAm.TabIndex = 18
Me.cbxErhaltenAm.Text = "Erhalten am:"
Me.cbxErhaltenAm.UseVisualStyleBackColor = True
Me.cbxErhaltenAm.Visible = False
'
'lbl
'
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl.Location = New System.Drawing.Point(11, 0)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(214, 30)
Me.lbl.TabIndex = 20
Me.lbl.Text = "VOLLMACHT"
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'pnlDetails
'
Me.pnlDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.pnlDetails.Controls.Add(Me.lblWarning)
Me.pnlDetails.Controls.Add(Me.lblGueltigVon)
Me.pnlDetails.Controls.Add(Me.cbxVMarchivieren)
Me.pnlDetails.Controls.Add(Me.Label3)
Me.pnlDetails.Controls.Add(Me.txtVermerk)
Me.pnlDetails.Controls.Add(Me.Panel1)
Me.pnlDetails.Controls.Add(Me.lblGueltigBis)
Me.pnlDetails.Controls.Add(Me.txtGueltigVon)
Me.pnlDetails.Controls.Add(Me.txtGueltigBis)
Me.pnlDetails.Controls.Add(Me.cbxArchiviert)
Me.pnlDetails.Controls.Add(Me.btnOK)
Me.pnlDetails.Controls.Add(Me.btnSave)
Me.pnlDetails.Location = New System.Drawing.Point(4, 219)
Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(492, 159)
Me.pnlDetails.TabIndex = 28
'
'lblWarning
'
Me.lblWarning.AutoSize = True
Me.lblWarning.ForeColor = System.Drawing.Color.Red
Me.lblWarning.Location = New System.Drawing.Point(118, 30)
Me.lblWarning.Name = "lblWarning"
Me.lblWarning.Size = New System.Drawing.Size(105, 13)
Me.lblWarning.TabIndex = 30
Me.lblWarning.Text = "Gültig von eintragen!"
Me.lblWarning.Visible = False
'
'lblGueltigVon
'
Me.lblGueltigVon.AutoSize = True
Me.lblGueltigVon.Location = New System.Drawing.Point(17, 55)
Me.lblGueltigVon.Name = "lblGueltigVon"
Me.lblGueltigVon.Size = New System.Drawing.Size(75, 13)
Me.lblGueltigVon.TabIndex = 28
Me.lblGueltigVon.Text = "VM gültig von:"
'
'cbxVMarchivieren
'
Me.cbxVMarchivieren.AutoSize = True
Me.cbxVMarchivieren.Location = New System.Drawing.Point(20, 127)
Me.cbxVMarchivieren.Name = "cbxVMarchivieren"
Me.cbxVMarchivieren.Size = New System.Drawing.Size(198, 17)
Me.cbxVMarchivieren.TabIndex = 27
Me.cbxVMarchivieren.Text = "bestehende Vollmachten archivieren"
Me.cbxVMarchivieren.UseVisualStyleBackColor = True
Me.cbxVMarchivieren.Visible = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(17, 14)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(49, 13)
Me.Label3.TabIndex = 26
Me.Label3.Text = "Vermerk:"
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._numbersOnlyTrennzeichen = False
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._TimeOnly_Seconds = False
Me.txtVermerk._value = ""
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = False
Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtVermerk.ForeColor = System.Drawing.Color.Black
Me.txtVermerk.Location = New System.Drawing.Point(96, 4)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(390, 23)
Me.txtVermerk.TabIndex = 25
'
'Panel1
'
Me.Panel1.Controls.Add(Me.picDeleteEmail)
Me.Panel1.Controls.Add(Me.picEmail)
Me.Panel1.Controls.Add(Me.picDeletePDF)
Me.Panel1.Controls.Add(Me.picPDF)
Me.Panel1.Location = New System.Drawing.Point(356, 45)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(130, 74)
Me.Panel1.TabIndex = 17
Me.Panel1.Visible = False
'
'picDeleteEmail
'
Me.picDeleteEmail.Image = Global.SDL.My.Resources.Resources.del
Me.picDeleteEmail.Location = New System.Drawing.Point(27, 0)
Me.picDeleteEmail.Name = "picDeleteEmail"
Me.picDeleteEmail.Size = New System.Drawing.Size(20, 20)
Me.picDeleteEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.picDeleteEmail.TabIndex = 19
Me.picDeleteEmail.TabStop = False
Me.picDeleteEmail.Visible = False
'
'picEmail
'
Me.picEmail.Image = Global.SDL.My.Resources.Resources.email_big_gray
Me.picEmail.Location = New System.Drawing.Point(13, 23)
Me.picEmail.Name = "picEmail"
Me.picEmail.Size = New System.Drawing.Size(44, 48)
Me.picEmail.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.picEmail.TabIndex = 18
Me.picEmail.TabStop = False
'
'picDeletePDF
'
Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del
Me.picDeletePDF.Location = New System.Drawing.Point(90, 1)
Me.picDeletePDF.Name = "picDeletePDF"
Me.picDeletePDF.Size = New System.Drawing.Size(20, 20)
Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.picDeletePDF.TabIndex = 16
Me.picDeletePDF.TabStop = False
Me.picDeletePDF.Visible = False
'
'picPDF
'
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
Me.picPDF.Location = New System.Drawing.Point(79, 23)
Me.picPDF.Name = "picPDF"
Me.picPDF.Size = New System.Drawing.Size(44, 48)
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.picPDF.TabIndex = 17
Me.picPDF.TabStop = False
Me.picPDF.Visible = False
'
'lblGueltigBis
'
Me.lblGueltigBis.AutoSize = True
Me.lblGueltigBis.Location = New System.Drawing.Point(17, 79)
Me.lblGueltigBis.Name = "lblGueltigBis"
Me.lblGueltigBis.Size = New System.Drawing.Size(70, 13)
Me.lblGueltigBis.TabIndex = 23
Me.lblGueltigBis.Text = "VM gültig bis:"
'
'txtGueltigVon
'
Me.txtGueltigVon._DateTimeOnly = False
Me.txtGueltigVon._numbersOnly = False
Me.txtGueltigVon._numbersOnlyKommastellen = ""
Me.txtGueltigVon._numbersOnlyTrennzeichen = True
Me.txtGueltigVon._Prozent = False
Me.txtGueltigVon._ShortDateNew = True
Me.txtGueltigVon._ShortDateOnly = False
Me.txtGueltigVon._TimeOnly = False
Me.txtGueltigVon._TimeOnly_Seconds = False
Me.txtGueltigVon._value = ""
Me.txtGueltigVon._Waehrung = False
Me.txtGueltigVon._WaehrungZeichen = False
Me.txtGueltigVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtGueltigVon.ForeColor = System.Drawing.Color.Black
Me.txtGueltigVon.Location = New System.Drawing.Point(96, 45)
Me.txtGueltigVon.MaxLength = 10
Me.txtGueltigVon.MaxLineLength = -1
Me.txtGueltigVon.MaxLines_Warning = ""
Me.txtGueltigVon.MaxLines_Warning_Label = Nothing
Me.txtGueltigVon.Name = "txtGueltigVon"
Me.txtGueltigVon.Size = New System.Drawing.Size(127, 23)
Me.txtGueltigVon.TabIndex = 19
Me.txtGueltigVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtGueltigBis
'
Me.txtGueltigBis._DateTimeOnly = False
Me.txtGueltigBis._numbersOnly = False
Me.txtGueltigBis._numbersOnlyKommastellen = ""
Me.txtGueltigBis._numbersOnlyTrennzeichen = True
Me.txtGueltigBis._Prozent = False
Me.txtGueltigBis._ShortDateNew = True
Me.txtGueltigBis._ShortDateOnly = False
Me.txtGueltigBis._TimeOnly = False
Me.txtGueltigBis._TimeOnly_Seconds = False
Me.txtGueltigBis._value = ""
Me.txtGueltigBis._Waehrung = False
Me.txtGueltigBis._WaehrungZeichen = False
Me.txtGueltigBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtGueltigBis.ForeColor = System.Drawing.Color.Black
Me.txtGueltigBis.Location = New System.Drawing.Point(96, 74)
Me.txtGueltigBis.MaxLength = 10
Me.txtGueltigBis.MaxLineLength = -1
Me.txtGueltigBis.MaxLines_Warning = ""
Me.txtGueltigBis.MaxLines_Warning_Label = Nothing
Me.txtGueltigBis.Name = "txtGueltigBis"
Me.txtGueltigBis.Size = New System.Drawing.Size(127, 23)
Me.txtGueltigBis.TabIndex = 22
Me.txtGueltigBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'cbxArchiviert
'
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(20, 102)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(70, 17)
Me.cbxArchiviert.TabIndex = 21
Me.cbxArchiviert.Text = "Archiviert"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'btnOK
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(410, 124)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(66, 24)
Me.btnOK.TabIndex = 10
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
'
'btnSave
'
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSave.Location = New System.Drawing.Point(410, 125)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(66, 24)
Me.btnSave.TabIndex = 29
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
Me.btnSave.Visible = False
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.LöschenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(119, 48)
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.stift1
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22)
Me.ToolStripMenuItem1.Text = "Ändern"
Me.ToolStripMenuItem1.Visible = False
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
Me.LöschenToolStripMenuItem.Text = "Löschen"
'
'frmKundenZOLLVollmachten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(513, 383)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmKundenZOLLVollmachten"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "frmKundenZOLLVollmachten"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlDetails.ResumeLayout(False)
Me.pnlDetails.PerformLayout()
Me.Panel1.ResumeLayout(False)
CType(Me.picDeleteEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picEmail, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents lblPDFavailable As System.Windows.Forms.Label
Friend WithEvents btnUploadPDF As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents picDeletePDF As System.Windows.Forms.PictureBox
Friend WithEvents cbxErhaltenAm As System.Windows.Forms.CheckBox
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents txtGueltigVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lbl As Label
Friend WithEvents picPDF As PictureBox
Friend WithEvents cbxArchiviert As CheckBox
Friend WithEvents txtGueltigBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblGueltigBis As Label
Friend WithEvents dgvVollmachtenEmbedded As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Label1 As Label
Friend WithEvents Label3 As Label
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxVMarchivieren As CheckBox
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents pnlDetails As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnNeu As Button
Friend WithEvents lblGueltigVon As Label
Friend WithEvents btnSave As Button
Friend WithEvents lblWarning As Label
Friend WithEvents picDeleteEmail As PictureBox
Friend WithEvents picEmail As PictureBox
End Class

1256
SDL/kunden/frmKundenZOLLVollmachten.resx Normal file
View File

File diff suppressed because it is too large Load Diff

599
SDL/kunden/frmKundenZOLLVollmachten.vb Normal file
View File

@@ -0,0 +1,599 @@
Imports System.Web.UI.WebControls.Expressions
Imports System.Windows
Imports System.Windows.Interop
Imports com.sun.org.apache.xpath.internal.functions
Imports DAKOSY_Worker.TR100
Imports DocumentFormat.OpenXml.Drawing
Imports DocumentFormat.OpenXml.Drawing.Charts
'Imports DocumentFormat.OpenXml.Wordprocessing
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Design.DdrDesigner.Services
Imports GrapeCity.ActiveReports.Design.QueryDesignerImpl.SqlParser.Irony.Parsing
Imports javax.validation.constraints
Imports sun.misc
Imports TAlex.WPF.Helpers
Imports SDL.EORI
Imports System.Drawing
Imports System.Runtime.DesignerServices
Public Class frmKundenZOLLVollmachten
Public kdnr As Integer = -1
Public filePath As String
Public erhalten As Boolean = False
Public archiviert As Boolean = False
Public geloescht As Boolean = False
Dim id As Integer = -1
'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
Dim ksql As New kundenSQL
Dim vollmachtartId As Integer
Dim emailId As Integer
Dim vermerk As String = ""
Dim vmId As Integer = -1
Dim currentVM As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
Sub New(kdnr, vollmachtartId)
Me.InitializeComponent()
Me.kdnr = kdnr
Me.vollmachtartId = vollmachtartId
End Sub
Sub New(kdnr, vmaNr, filePath)
Me.InitializeComponent()
Me.erhalten = True
Me.kdnr = kdnr
Me.filePath = filePath
Me.vollmachtartId = vollmachtartId
'UI-Elements
MyComboBox1.Visible = True
Me.txtGueltigVon.Text = Now.ToShortDateString
Me.txtGueltigBis.Text = Nothing
End Sub
Private Sub frmKundenZOLLVollmachten_Load(sender As Object, e As EventArgs) Handles Me.Load
MyComboBox1.fillWithSQL("SELECT [kdvma_Id],[kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt]", False, "FMZOLL", False)
Me.MyComboBox1._value = vollmachtartId
initDGVVollmachtenEmbedded(False)
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
FirmaTmp = "VERAGIMEX"
End If
Select Case FirmaTmp
Case "UNISPED", "IMEX", "VERAGIMEX", "FRONTOFFICE"
Panel1.Visible = True
Case Else
Panel1.Visible = True
'Me.Height = Me.Height - Panel1.Height
End Select
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
End Sub
Sub saveVM(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
lblWarning.Visible = False
If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
VM.kdvm_vermerk = txtVermerk.Text
VM.kdvm_kdvmaId = vollmachtartId
VM.kdvm_KundenNr = kdnr
VM.kdvm_archiviert = cbxArchiviert.Checked
If txtGueltigVon.Text = "" Or Not IsDate(txtGueltigVon.Text) Then
txtGueltigVon.ForeColor = Color.Red
lblWarning.Visible = True
Me.DialogResult = Windows.Forms.DialogResult.None
Exit Sub
Else
VM.kdvm_erhalten_Datum = txtGueltigVon.Text
VM.kdvm_gueltig_ab = txtGueltigVon.Text
VM.kdvm_erhalten = True
End If
If txtGueltigBis.Text IsNot "" And Not IsDate(txtGueltigBis.Text) Then
txtGueltigBis.ForeColor = Color.Red
Me.DialogResult = Windows.Forms.DialogResult.None
Exit Sub
ElseIf txtGueltigBis.Text = "" Then
VM.kdvm_gueltig_bis = Nothing
Else
VM.kdvm_gueltig_bis = txtGueltigBis.Text
End If
vollmachtenArchivieren()
If Not VM.SAVE() Then
Me.DialogResult = Windows.Forms.DialogResult.None
End If
If dgvVollmachtenEmbedded.Enabled = False Then
dgvVollmachtenEmbedded.Enabled = True
End If
dgvVollmachtenEmbedded.GetOrder()
initDGVVollmachtenEmbedded(True)
dgvVollmachtenEmbedded.SetOrder()
End Sub
Private Sub lblNoPDFavailable_Click(sender As Object, e As EventArgs) Handles lblPDFavailable.Click
If currentVM.kdvm_datenarchivId > 0 Then
' cDATENSERVER.openDataTMPByDatenarchivId(id)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
DS.OPEN_SINGLE()
End If
End Sub
'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.CheckedChanged
' ' MyTextBox1.Enabled = sender.checked
'End Sub
'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.Click
' 'wird nicht mehr verwendet
' If Not sender.checked Then
' txtGueltigVon.Text = ""
' Else
' txtGueltigVon.Text = Now.ToShortDateString
' End If
'End Sub
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtGueltigVon.TextChanged
txtGueltigVon.ForeColor = Color.Black
cbxErhaltenAm.Checked = (txtGueltigVon.Text <> "")
End Sub
Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtGueltigVon.KeyDown
If e.KeyCode = Keys.Return Then
btnOK.PerformClick()
End If
If e.KeyCode = Keys.Escape Then
Button1.PerformClick()
End If
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
lbl.Text = MyComboBox1.Text
End Sub
Private Sub frmKundenZOLLVollmachten_Shown(sender As Object, e As EventArgs) Handles Me.Shown
txtGueltigVon.Focus()
If txtGueltigVon.Text <> "" Then
cbxErhaltenAm.Checked = True
txtGueltigVon.SelectAll()
End If
End Sub
Sub initDGVVollmachtenEmbedded(enalblePanel As Boolean)
Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'"
If dgvVollmachtenEmbedded.Enabled = False Then
dgvVollmachtenEmbedded.Enabled = True
End If
pnlDetails.Enabled = enalblePanel
With dgvVollmachtenEmbedded
.Columns.Clear()
.DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
" FROM [tblKundenVollmachtenArt] as art " &
" INNER JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
" WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
" ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
' .RowTemplate.Height = 30
.Columns("kdvm_Id").Visible = False
.Columns("kdvma_Id").Visible = False
.Columns("kdvm_KundenNr").Visible = False
.Columns("kdvm_datenarchivId").Visible = False
.Columns("kdvma_Bezeichnung").Visible = False
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
.Columns("kdvm_erhalten").Width = 50
.Columns("kdvm_erhalten").HeaderText = "Erhalten"
.Columns("kdvm_erhalten").Visible = False
.Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_erhalten_Datum").Width = 100
.Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
.Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_Info").Width = 200
.Columns("kdvm_Info").HeaderText = "Info"
.Columns("kdvm_Info").Visible = False
.Columns("kdvm_gueltig_bis").Visible = True
.Columns("kdvm_gueltig_bis").Width = 100
.Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
.Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_archiviert").Visible = True
.Columns("kdvm_archiviert").Width = 60
.Columns("kdvm_archiviert").HeaderText = "Archiviert"
.Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_vermerk").MinimumWidth = 100
.Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kdvm_vermerk").HeaderText = "Vermerk"
.Columns("kdvm_vermerk").Visible = True
.Columns("kdvm_geloescht").Visible = False
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnPDF" : c.HeaderText = "PDF"
c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "PDF anzeigen"
.Columns.Add(c)
End If
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED", "IMEX"
'.Columns("clmnTherefore").Visible = False
.Columns("clmnPDF").Visible = True
Case "FRONTOFFICE"
'.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
Case Else
'.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
End Select
For Each r As DataGridViewRow In .Rows
If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
r.DefaultCellStyle.ForeColor = Color.Gray
ElseIf CBool(r.Cells("kdvm_erhalten").Value) = False Then
r.DefaultCellStyle.ForeColor = Color.Gray
ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then
r.DefaultCellStyle.ForeColor = Color.Red
End If
If True Then
If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If
End If
Next
End With
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVMarchivieren.CheckedChanged
'If vbYes = MsgBox("Sollen die bestehenden Vollmachten archiviert werden?", vbYesNoCancel) Then
' Dim succeeded = ksql.setVollmachtarchivieren(kdnr, MyComboBox1._value)
' If succeeded = True Then
' MsgBox("Bestehende Vollmachten wurden archiviert.")
' cbxVMarchivieren.Enabled = False
' End If
'End If
End Sub
Private Sub dgvvollmachtenembedded_cellmouseclick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVollmachtenEmbedded.CellMouseClick
'für die Ermittlung des Contextmenüs -> VM löschen
If e.Button = Windows.Forms.MouseButtons.Right Then
If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
ContextMenuStrip1.Show(Cursor.Position)
End If
End If
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
'Contextmenü -> Datensatz ändern -> wird nicht verwendet
If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
Dim VM As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
loadChangedVMToPanel(True, VM)
setSaveButton()
End If
End Sub
Private Sub loadChangedVMToPanel(enablePanel As Boolean, VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
pnlDetails.Enabled = enablePanel
cbxArchiviert.Checked = VM.kdvm_archiviert
txtVermerk.Text = VM.kdvm_vermerk
txtGueltigVon.Text = VM.kdvm_erhalten_Datum
txtGueltigBis.Text = VM.kdvm_gueltig_bis
checkEmailIsPresent()
checkPDFisPresent()
setOKButton()
'Listener für Änderungen im Detail-Panel
For Each c As Control In pnlDetails.Controls
If TypeOf (c) Is CheckBox Then
AddHandler CType(c, CheckBox).CheckedChanged, AddressOf SomethingChanged
ElseIf TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
End If
Next
End Sub
Private Sub SomethingChanged(sender As Object, e As EventArgs)
setSaveButton()
End Sub
Sub checkPDFisPresent()
If currentVM.kdvm_datenarchivId > 0 Then
picDeletePDF.Visible = True
picPDF.Visible = True
picPDF.Image = My.Resources.pdf
picPDF.Cursor = Cursors.Default
Else
picDeletePDF.Visible = False
picPDF.Visible = True
picPDF.Image = My.Resources.pdf_gray
picPDF.Cursor = Cursors.Hand
End If
End Sub
Sub checkEmailIsPresent()
If currentVM.kdvm_emailId > 0 Then
picDeleteEmail.Visible = True
picEmail.Visible = True
picEmail.Image = My.Resources.email_big1
picEmail.Cursor = Cursors.Default
Else
picDeleteEmail.Visible = False
picEmail.Visible = True
picEmail.Image = My.Resources.email_big_gray
picEmail.Cursor = Cursors.Hand
End If
End Sub
Private Sub dgvVollmachtenEmbedded_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachtenEmbedded.CellDoubleClick
If dgvVollmachtenEmbedded.Columns(e.ColumnIndex).Name = "clmnPDF" Then
If dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
DS.OPEN_SINGLE(True)
End If
End If
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
'Contextmenü -> Löschen der VM
If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
If vbYes = MsgBox("Soll diese Vollmacht gelöscht werden?", vbYesNoCancel) Then
Dim vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
vollmacht.kdvm_geloescht = True
If vollmacht.SAVE = True Then
MsgBox("Bestehende Vollmacht wurde gelöscht.")
initDGVVollmachtenEmbedded(False)
End If
End If
End If
End Sub
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
'Neuanlage einer VM
dgvVollmachtenEmbedded.ClearSelection()
If dgvVollmachtenEmbedded.Rows.Count > 0 Then
cbxVMarchivieren.Visible = True
cbxVMarchivieren.Checked = True
End If
dgvVollmachtenEmbedded.Enabled = False
currentVM = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
.kdvm_KundenNr = kdnr,
.kdvm_kdvmaId = vollmachtartId,
.kdvm_Info = "",
.kdvm_erhalten = False,
.kdvm_archiviert = False,
.kdvm_datenarchivId = -1,
.kdvm_erhalten_Datum = Now.ToShortDateString,
.kdvm_emailId = -1
}
loadChangedVMToPanel(True, currentVM)
hideAttachementControl()
setSaveButton()
End Sub
Private Sub vollmachtenArchivieren()
If cbxVMarchivieren.Checked = False Then Exit Sub
Dim count As Integer = 0
With dgvVollmachtenEmbedded
For Each r As DataGridViewRow In .Rows
Dim VMindex = r.Cells("kdvm_Id").Value
If r.Cells("kdvm_archiviert").Value <> True Then
count += 1
Dim currentVollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(VMindex)
currentVollmacht.kdvm_archiviert = True
currentVollmacht.SAVE()
End If
Next
If count > 0 Then
MsgBox("Bestehende Vollmachten wurden archiviert.")
End If
End With
cbxVMarchivieren.Visible = False
cbxVMarchivieren.Checked = False
End Sub
Private Sub setSaveButton()
btnOK.Visible = False
btnSave.Visible = True
End Sub
Private Sub dgvVollmachtenEmbedded_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachtenEmbedded.SelectionChanged
If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
Dim rowindex = dgvVollmachtenEmbedded.SelectedRows(0).Index
currentVM = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value)
loadChangedVMToPanel(True, currentVM)
If dgvVollmachtenEmbedded.Enabled = False Then Exit Sub
vmId = dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value
End If
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
saveVM(currentVM)
setOKButton()
End Sub
Private Sub setOKButton()
btnOK.Visible = True
btnSave.Visible = False
End Sub
Private Sub picPDF_Click(sender As Object, e As EventArgs) Handles picPDF.Click
If Me.MyComboBox1._value < 0 Then Exit Sub
Dim DS As Object
If currentVM.kdvm_datenarchivId > 0 Then
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
DS.OPEN_SINGLE()
'MsgBox("Open PDF")
Else
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "PDF_" & MyComboBox1.Text, kdnr)
Dim path = DS.uploadDataToDATENSERVERFileDialog()
If path <> "" Then
currentVM.kdvm_datenarchivId = DS.da_id
End If
picDeletePDF.Visible = True = (currentVM.kdvm_datenarchivId > 0)
saveVM(currentVM)
End If
dgvVollmachtenEmbedded.GetOrder()
initDGVVollmachtenEmbedded(True)
dgvVollmachtenEmbedded.SetOrder()
End Sub
Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
lblPDFavailable.Cursor = Cursors.WaitCursor
If (currentVM.kdvm_datenarchivId > 0) Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_datenarchivId)
DS.DELETE_COMPLETE()
currentVM.kdvm_datenarchivId = -1
If currentVM.SAVE Then
currentVM.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
picPDF.Image = My.Resources.pdf_gray
End If
End If
End If
lblPDFavailable.Cursor = Cursors.Default
dgvVollmachtenEmbedded.GetOrder()
initDGVVollmachtenEmbedded(True)
dgvVollmachtenEmbedded.SetOrder()
End Sub
Private Sub picEmail_Click(sender As Object, e As EventArgs) Handles picEmail.Click
If Me.MyComboBox1._value < 0 Then Exit Sub
Dim DS As Object
If currentVM.kdvm_emailId > 0 Then
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_emailId)
DS.OPEN_SINGLE()
'MsgBox("Open EMail")
Else
DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", "Email_" & MyComboBox1.Text, kdnr)
Dim path = DS.uploadDataToDATENSERVERFileDialog()
If path <> "" Then
currentVM.kdvm_emailId = DS.da_id
End If
picDeleteEmail.Visible = True = (currentVM.kdvm_emailId > 0)
saveVM(currentVM)
End If
dgvVollmachtenEmbedded.GetOrder()
initDGVVollmachtenEmbedded(True)
dgvVollmachtenEmbedded.SetOrder()
End Sub
Private Sub picDeleteEmail_Click(sender As Object, e As EventArgs) Handles picDeleteEmail.Click
lblPDFavailable.Cursor = Cursors.WaitCursor
If (currentVM.kdvm_emailId > 0) Then
If vbYes = MsgBox("Möchten Sie die Email wirklich löschen?", vbYesNoCancel) Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.kdvm_emailId)
DS.DELETE_COMPLETE()
currentVM.kdvm_emailId = -1
If currentVM.SAVE Then
currentVM.kdvm_emailId = -1 : picDeleteEmail.Visible = False
picEmail.Image = My.Resources.email_big_gray
End If
End If
End If
lblPDFavailable.Cursor = Cursors.Default
dgvVollmachtenEmbedded.GetOrder()
initDGVVollmachtenEmbedded(True)
dgvVollmachtenEmbedded.SetOrder()
End Sub
Sub hideAttachementControl()
picDeletePDF.Visible = False
picPDF.Visible = False
picDeleteEmail.Visible = False
picEmail.Visible = False
End Sub
End Class

3
SDL/kunden/usrCntlKundenKontakte.vb
View File

@@ -1,4 +1,5 @@
Public Class usrCntlKundenKontakte

Public Class usrCntlKundenKontakte
'Dim KD_KONTAKT As VERAG_PROG_ALLGEMEIN.cKundenKontakt = Nothing
Public kdNr As Integer

458
SDL/kunden/usrCntlKundenZOLLVollmachten.Designer.vb generated
View File

@@ -1,8 +1,8 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class usrCntlKundenZOLLVollmachten
Inherits System.Windows.Forms.Form
Partial Class usrCntlKundenZollVollmachten
Inherits System.Windows.Forms.UserControl
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
@@ -23,283 +23,92 @@ Partial Class usrCntlKundenZOLLVollmachten
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenZOLLVollmachten))
Me.pnl = New System.Windows.Forms.Panel()
Me.btnNeu = New System.Windows.Forms.Button()
Me.dgvVollmachtenEmbedded = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.MyComboBox1 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox()
Me.lbl = New System.Windows.Forms.Label()
Me.pnlDetails = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.lblWarning = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtVermerkNew = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.lblGueltigVon = New System.Windows.Forms.Label()
Me.cbxVMarchivieren = New System.Windows.Forms.CheckBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtVermerk = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.picPDF = New System.Windows.Forms.PictureBox()
Me.btnUploadPDF = New System.Windows.Forms.Button()
Me.picDeletePDF = New System.Windows.Forms.PictureBox()
Me.lblPDFavailable = New System.Windows.Forms.Label()
Me.lblGueltigBis = New System.Windows.Forms.Label()
Me.txtGueltigVon = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.txtGueltigBis = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxArchiviert = New System.Windows.Forms.CheckBox()
Me.btnSave = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.lblWarning = New System.Windows.Forms.Label()
Me.pnl.SuspendLayout()
CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).BeginInit()
Me.pnlDetails.SuspendLayout()
Me.Panel1.SuspendLayout()
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.btnNeu = New System.Windows.Forms.Button()
Me.gdvKundenvollmachten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
CType(Me.gdvKundenvollmachten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'pnl
'lblWarning
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.pnl.Controls.Add(Me.btnNeu)
Me.pnl.Controls.Add(Me.dgvVollmachtenEmbedded)
Me.pnl.Controls.Add(Me.MyComboBox1)
Me.pnl.Controls.Add(Me.Button1)
Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.cbxErhaltenAm)
Me.pnl.Controls.Add(Me.lbl)
Me.pnl.Controls.Add(Me.pnlDetails)
Me.pnl.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(499, 383)
Me.pnl.TabIndex = 1
Me.lblWarning.AutoSize = True
Me.lblWarning.ForeColor = System.Drawing.Color.Red
Me.lblWarning.Location = New System.Drawing.Point(107, 234)
Me.lblWarning.Name = "lblWarning"
Me.lblWarning.Size = New System.Drawing.Size(105, 13)
Me.lblWarning.TabIndex = 42
Me.lblWarning.Text = "Gültig von eintragen!"
Me.lblWarning.Visible = False
'
'btnNeu
'Label3
'
Me.btnNeu.Image = Global.SDL.My.Resources.Resources.plus
Me.btnNeu.Location = New System.Drawing.Point(443, 182)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(44, 31)
Me.btnNeu.TabIndex = 28
Me.btnNeu.UseVisualStyleBackColor = True
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(10, 209)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(49, 13)
Me.Label3.TabIndex = 38
Me.Label3.Text = "Vermerk:"
'
'dgvVollmachtenEmbedded
'txtVermerkNew
'
Me.dgvVollmachtenEmbedded.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvVollmachtenEmbedded.AllowUserToAddRows = False
Me.dgvVollmachtenEmbedded.AllowUserToDeleteRows = False
Me.dgvVollmachtenEmbedded.AllowUserToResizeColumns = False
Me.dgvVollmachtenEmbedded.AllowUserToResizeRows = False
Me.dgvVollmachtenEmbedded.BackgroundColor = System.Drawing.SystemColors.Window
Me.dgvVollmachtenEmbedded.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvVollmachtenEmbedded.Location = New System.Drawing.Point(24, 33)
Me.dgvVollmachtenEmbedded.MultiSelect = False
Me.dgvVollmachtenEmbedded.Name = "dgvVollmachtenEmbedded"
Me.dgvVollmachtenEmbedded.ReadOnly = True
Me.dgvVollmachtenEmbedded.RowHeadersVisible = False
Me.dgvVollmachtenEmbedded.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvVollmachtenEmbedded.Size = New System.Drawing.Size(463, 140)
Me.dgvVollmachtenEmbedded.TabIndex = 24
'
'MyComboBox1
'
Me.MyComboBox1._allowedValuesFreiText = Nothing
Me.MyComboBox1._allowFreiText = False
Me.MyComboBox1._value = ""
Me.MyComboBox1.BackColor = System.Drawing.Color.White
Me.MyComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyComboBox1.FormattingEnabled = True
Me.MyComboBox1.Location = New System.Drawing.Point(98, 6)
Me.MyComboBox1.Name = "MyComboBox1"
Me.MyComboBox1.Size = New System.Drawing.Size(127, 21)
Me.MyComboBox1.TabIndex = 15
Me.MyComboBox1.Visible = False
'
'Button1
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.BackColor = System.Drawing.Color.Red
Me.Button1.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.White
Me.Button1.Location = New System.Drawing.Point(455, 0)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(42, 23)
Me.Button1.TabIndex = 9
Me.Button1.Text = "X"
Me.Button1.UseVisualStyleBackColor = False
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(209, 48)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(214, 30)
Me.Label1.TabIndex = 20
Me.Label1.Text = "VOLLMACHT"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'cbxErhaltenAm
'
Me.cbxErhaltenAm.AutoSize = True
Me.cbxErhaltenAm.Location = New System.Drawing.Point(39, 190)
Me.cbxErhaltenAm.Name = "cbxErhaltenAm"
Me.cbxErhaltenAm.Size = New System.Drawing.Size(85, 17)
Me.cbxErhaltenAm.TabIndex = 18
Me.cbxErhaltenAm.Text = "Erhalten am:"
Me.cbxErhaltenAm.UseVisualStyleBackColor = True
Me.cbxErhaltenAm.Visible = False
'
'lbl
'
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.lbl.Location = New System.Drawing.Point(11, 0)
Me.lbl.Name = "lbl"
Me.lbl.Size = New System.Drawing.Size(214, 30)
Me.lbl.TabIndex = 20
Me.lbl.Text = "VOLLMACHT"
Me.lbl.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'pnlDetails
'
Me.pnlDetails.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.pnlDetails.Controls.Add(Me.lblWarning)
Me.pnlDetails.Controls.Add(Me.lblGueltigVon)
Me.pnlDetails.Controls.Add(Me.cbxVMarchivieren)
Me.pnlDetails.Controls.Add(Me.Label3)
Me.pnlDetails.Controls.Add(Me.txtVermerk)
Me.pnlDetails.Controls.Add(Me.Panel1)
Me.pnlDetails.Controls.Add(Me.lblGueltigBis)
Me.pnlDetails.Controls.Add(Me.txtGueltigVon)
Me.pnlDetails.Controls.Add(Me.txtGueltigBis)
Me.pnlDetails.Controls.Add(Me.cbxArchiviert)
Me.pnlDetails.Controls.Add(Me.btnOK)
Me.pnlDetails.Controls.Add(Me.btnSave)
Me.pnlDetails.Location = New System.Drawing.Point(4, 219)
Me.pnlDetails.Name = "pnlDetails"
Me.pnlDetails.Size = New System.Drawing.Size(492, 159)
Me.pnlDetails.TabIndex = 28
Me.txtVermerkNew._DateTimeOnly = False
Me.txtVermerkNew._numbersOnly = False
Me.txtVermerkNew._numbersOnlyKommastellen = ""
Me.txtVermerkNew._numbersOnlyTrennzeichen = False
Me.txtVermerkNew._Prozent = False
Me.txtVermerkNew._ShortDateNew = False
Me.txtVermerkNew._ShortDateOnly = False
Me.txtVermerkNew._TimeOnly = False
Me.txtVermerkNew._TimeOnly_Seconds = False
Me.txtVermerkNew._value = ""
Me.txtVermerkNew._Waehrung = False
Me.txtVermerkNew._WaehrungZeichen = False
Me.txtVermerkNew.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtVermerkNew.ForeColor = System.Drawing.Color.Black
Me.txtVermerkNew.Location = New System.Drawing.Point(85, 199)
Me.txtVermerkNew.MaxLength = 100
Me.txtVermerkNew.MaxLineLength = -1
Me.txtVermerkNew.MaxLines_Warning = ""
Me.txtVermerkNew.MaxLines_Warning_Label = Nothing
Me.txtVermerkNew.Name = "txtVermerkNew"
Me.txtVermerkNew.Size = New System.Drawing.Size(390, 23)
Me.txtVermerkNew.TabIndex = 37
'
'lblGueltigVon
'
Me.lblGueltigVon.AutoSize = True
Me.lblGueltigVon.Location = New System.Drawing.Point(17, 55)
Me.lblGueltigVon.Location = New System.Drawing.Point(10, 255)
Me.lblGueltigVon.Name = "lblGueltigVon"
Me.lblGueltigVon.Size = New System.Drawing.Size(75, 13)
Me.lblGueltigVon.TabIndex = 28
Me.lblGueltigVon.TabIndex = 40
Me.lblGueltigVon.Text = "VM gültig von:"
'
'cbxVMarchivieren
'
Me.cbxVMarchivieren.AutoSize = True
Me.cbxVMarchivieren.Location = New System.Drawing.Point(20, 127)
Me.cbxVMarchivieren.Location = New System.Drawing.Point(12, 341)
Me.cbxVMarchivieren.Name = "cbxVMarchivieren"
Me.cbxVMarchivieren.Size = New System.Drawing.Size(198, 17)
Me.cbxVMarchivieren.TabIndex = 27
Me.cbxVMarchivieren.TabIndex = 39
Me.cbxVMarchivieren.Text = "bestehende Vollmachten archivieren"
Me.cbxVMarchivieren.UseVisualStyleBackColor = True
Me.cbxVMarchivieren.Visible = False
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(17, 14)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(49, 13)
Me.Label3.TabIndex = 26
Me.Label3.Text = "Vermerk:"
'
'txtVermerk
'
Me.txtVermerk._DateTimeOnly = False
Me.txtVermerk._numbersOnly = False
Me.txtVermerk._numbersOnlyKommastellen = ""
Me.txtVermerk._numbersOnlyTrennzeichen = False
Me.txtVermerk._Prozent = False
Me.txtVermerk._ShortDateNew = False
Me.txtVermerk._ShortDateOnly = False
Me.txtVermerk._TimeOnly = False
Me.txtVermerk._TimeOnly_Seconds = False
Me.txtVermerk._value = ""
Me.txtVermerk._Waehrung = False
Me.txtVermerk._WaehrungZeichen = False
Me.txtVermerk.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtVermerk.ForeColor = System.Drawing.Color.Black
Me.txtVermerk.Location = New System.Drawing.Point(96, 4)
Me.txtVermerk.MaxLength = 100
Me.txtVermerk.MaxLineLength = -1
Me.txtVermerk.MaxLines_Warning = ""
Me.txtVermerk.MaxLines_Warning_Label = Nothing
Me.txtVermerk.Name = "txtVermerk"
Me.txtVermerk.Size = New System.Drawing.Size(390, 23)
Me.txtVermerk.TabIndex = 25
'
'Panel1
'
Me.Panel1.Controls.Add(Me.picPDF)
Me.Panel1.Controls.Add(Me.btnUploadPDF)
Me.Panel1.Controls.Add(Me.picDeletePDF)
Me.Panel1.Controls.Add(Me.lblPDFavailable)
Me.Panel1.Location = New System.Drawing.Point(254, 42)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(233, 70)
Me.Panel1.TabIndex = 17
Me.Panel1.Visible = False
'
'picPDF
'
Me.picPDF.Image = Global.SDL.My.Resources.Resources.pdf_gray
Me.picPDF.Location = New System.Drawing.Point(178, 10)
Me.picPDF.Name = "picPDF"
Me.picPDF.Size = New System.Drawing.Size(44, 48)
Me.picPDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.picPDF.TabIndex = 17
Me.picPDF.TabStop = False
Me.picPDF.Visible = False
'
'btnUploadPDF
'
Me.btnUploadPDF.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnUploadPDF.Location = New System.Drawing.Point(11, 10)
Me.btnUploadPDF.Name = "btnUploadPDF"
Me.btnUploadPDF.Size = New System.Drawing.Size(134, 25)
Me.btnUploadPDF.TabIndex = 12
Me.btnUploadPDF.Text = "PDF hochladen"
Me.btnUploadPDF.UseVisualStyleBackColor = True
'
'picDeletePDF
'
Me.picDeletePDF.Image = Global.SDL.My.Resources.Resources.del
Me.picDeletePDF.Location = New System.Drawing.Point(11, 38)
Me.picDeletePDF.Name = "picDeletePDF"
Me.picDeletePDF.Size = New System.Drawing.Size(20, 20)
Me.picDeletePDF.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.picDeletePDF.TabIndex = 16
Me.picDeletePDF.TabStop = False
Me.picDeletePDF.Visible = False
'
'lblPDFavailable
'
Me.lblPDFavailable.Location = New System.Drawing.Point(5, 38)
Me.lblPDFavailable.Name = "lblPDFavailable"
Me.lblPDFavailable.Size = New System.Drawing.Size(140, 13)
Me.lblPDFavailable.TabIndex = 13
Me.lblPDFavailable.Text = "Kein PDF vorhanden."
Me.lblPDFavailable.TextAlign = System.Drawing.ContentAlignment.TopRight
'
'lblGueltigBis
'
Me.lblGueltigBis.AutoSize = True
Me.lblGueltigBis.Location = New System.Drawing.Point(17, 79)
Me.lblGueltigBis.Location = New System.Drawing.Point(9, 284)
Me.lblGueltigBis.Name = "lblGueltigBis"
Me.lblGueltigBis.Size = New System.Drawing.Size(70, 13)
Me.lblGueltigBis.TabIndex = 23
Me.lblGueltigBis.TabIndex = 36
Me.lblGueltigBis.Text = "VM gültig bis:"
'
'txtGueltigVon
@@ -318,14 +127,14 @@ Partial Class usrCntlKundenZOLLVollmachten
Me.txtGueltigVon._WaehrungZeichen = False
Me.txtGueltigVon.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtGueltigVon.ForeColor = System.Drawing.Color.Black
Me.txtGueltigVon.Location = New System.Drawing.Point(96, 45)
Me.txtGueltigVon.Location = New System.Drawing.Point(85, 250)
Me.txtGueltigVon.MaxLength = 10
Me.txtGueltigVon.MaxLineLength = -1
Me.txtGueltigVon.MaxLines_Warning = ""
Me.txtGueltigVon.MaxLines_Warning_Label = Nothing
Me.txtGueltigVon.Name = "txtGueltigVon"
Me.txtGueltigVon.Size = New System.Drawing.Size(127, 23)
Me.txtGueltigVon.TabIndex = 19
Me.txtGueltigVon.TabIndex = 33
Me.txtGueltigVon.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'txtGueltigBis
@@ -344,129 +153,88 @@ Partial Class usrCntlKundenZOLLVollmachten
Me.txtGueltigBis._WaehrungZeichen = False
Me.txtGueltigBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtGueltigBis.ForeColor = System.Drawing.Color.Black
Me.txtGueltigBis.Location = New System.Drawing.Point(96, 74)
Me.txtGueltigBis.Location = New System.Drawing.Point(85, 279)
Me.txtGueltigBis.MaxLength = 10
Me.txtGueltigBis.MaxLineLength = -1
Me.txtGueltigBis.MaxLines_Warning = ""
Me.txtGueltigBis.MaxLines_Warning_Label = Nothing
Me.txtGueltigBis.Name = "txtGueltigBis"
Me.txtGueltigBis.Size = New System.Drawing.Size(127, 23)
Me.txtGueltigBis.TabIndex = 22
Me.txtGueltigBis.TabIndex = 35
Me.txtGueltigBis.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
'
'cbxArchiviert
'
Me.cbxArchiviert.AutoSize = True
Me.cbxArchiviert.Location = New System.Drawing.Point(20, 102)
Me.cbxArchiviert.Location = New System.Drawing.Point(13, 318)
Me.cbxArchiviert.Name = "cbxArchiviert"
Me.cbxArchiviert.Size = New System.Drawing.Size(70, 17)
Me.cbxArchiviert.TabIndex = 21
Me.cbxArchiviert.TabIndex = 34
Me.cbxArchiviert.Text = "Archiviert"
Me.cbxArchiviert.UseVisualStyleBackColor = True
'
'btnSave
'btnNeu
'
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSave.Location = New System.Drawing.Point(410, 125)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(66, 24)
Me.btnSave.TabIndex = 29
Me.btnSave.Text = "Speichern"
Me.btnSave.UseVisualStyleBackColor = True
Me.btnSave.Visible = False
Me.btnNeu.Image = Global.SDL.My.Resources.Resources.plus
Me.btnNeu.Location = New System.Drawing.Point(430, 333)
Me.btnNeu.Name = "btnNeu"
Me.btnNeu.Size = New System.Drawing.Size(77, 37)
Me.btnNeu.TabIndex = 41
Me.btnNeu.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnNeu.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.btnNeu.UseVisualStyleBackColor = True
Me.btnNeu.Visible = False
'
'btnOK
'gdvKundenvollmachten
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(410, 124)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(66, 24)
Me.btnOK.TabIndex = 10
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
Me.gdvKundenvollmachten.AKTUALISIERUNGS_INTERVALL = -1
Me.gdvKundenvollmachten.AllowUserToAddRows = False
Me.gdvKundenvollmachten.AllowUserToDeleteRows = False
Me.gdvKundenvollmachten.AllowUserToResizeColumns = False
Me.gdvKundenvollmachten.AllowUserToResizeRows = False
Me.gdvKundenvollmachten.BackgroundColor = System.Drawing.Color.White
Me.gdvKundenvollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.gdvKundenvollmachten.Location = New System.Drawing.Point(12, 0)
Me.gdvKundenvollmachten.MultiSelect = False
Me.gdvKundenvollmachten.Name = "gdvKundenvollmachten"
Me.gdvKundenvollmachten.ReadOnly = True
Me.gdvKundenvollmachten.RowHeadersVisible = False
Me.gdvKundenvollmachten.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.gdvKundenvollmachten.Size = New System.Drawing.Size(495, 180)
Me.gdvKundenvollmachten.TabIndex = 43
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.LöschenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(119, 48)
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.stift1
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(118, 22)
Me.ToolStripMenuItem1.Text = "Ändern"
Me.ToolStripMenuItem1.Visible = False
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.del
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
Me.LöschenToolStripMenuItem.Text = "Löschen"
'
'lblWarning
'
Me.lblWarning.AutoSize = True
Me.lblWarning.ForeColor = System.Drawing.Color.Red
Me.lblWarning.Location = New System.Drawing.Point(118, 30)
Me.lblWarning.Name = "lblWarning"
Me.lblWarning.Size = New System.Drawing.Size(105, 13)
Me.lblWarning.TabIndex = 30
Me.lblWarning.Text = "Gültig von eintragen!"
Me.lblWarning.Visible = False
'
'frmKundenZOLLVollmachten
'usrCntlKundenZollVollmachten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(499, 383)
Me.Controls.Add(Me.pnl)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmKundenZOLLVollmachten"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "frmKundenZOLLVollmachten"
Me.pnl.ResumeLayout(False)
Me.pnl.PerformLayout()
CType(Me.dgvVollmachtenEmbedded, System.ComponentModel.ISupportInitialize).EndInit()
Me.pnlDetails.ResumeLayout(False)
Me.pnlDetails.PerformLayout()
Me.Panel1.ResumeLayout(False)
CType(Me.picPDF, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.Controls.Add(Me.gdvKundenvollmachten)
Me.Controls.Add(Me.lblWarning)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtVermerkNew)
Me.Controls.Add(Me.lblGueltigVon)
Me.Controls.Add(Me.cbxVMarchivieren)
Me.Controls.Add(Me.lblGueltigBis)
Me.Controls.Add(Me.txtGueltigVon)
Me.Controls.Add(Me.txtGueltigBis)
Me.Controls.Add(Me.cbxArchiviert)
Me.Controls.Add(Me.btnNeu)
Me.Name = "usrCntlKundenZollVollmachten"
Me.Size = New System.Drawing.Size(523, 378)
CType(Me.gdvKundenvollmachten, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents lblPDFavailable As System.Windows.Forms.Label
Friend WithEvents btnUploadPDF As System.Windows.Forms.Button
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents btnOK As System.Windows.Forms.Button
Friend WithEvents MyComboBox1 As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents picDeletePDF As System.Windows.Forms.PictureBox
Friend WithEvents cbxErhaltenAm As System.Windows.Forms.CheckBox
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents txtGueltigVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lbl As Label
Friend WithEvents picPDF As PictureBox
Friend WithEvents cbxArchiviert As CheckBox
Friend WithEvents txtGueltigBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblGueltigBis As Label
Friend WithEvents dgvVollmachtenEmbedded As VERAG_PROG_ALLGEMEIN.MyDatagridview
Friend WithEvents Label1 As Label
Friend WithEvents Label3 As Label
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxVMarchivieren As CheckBox
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents pnlDetails As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnNeu As Button
Friend WithEvents lblGueltigVon As Label
Friend WithEvents btnSave As Button
Friend WithEvents lblWarning As Label
Friend WithEvents Label3 As Label
Friend WithEvents txtVermerkNew As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblGueltigVon As Label
Friend WithEvents cbxVMarchivieren As CheckBox
Friend WithEvents lblGueltigBis As Label
Friend WithEvents txtGueltigVon As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents txtGueltigBis As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxArchiviert As CheckBox
Friend WithEvents btnNeu As Button
Friend WithEvents gdvKundenvollmachten As VERAG_PROG_ALLGEMEIN.MyDatagridview
End Class

1136
SDL/kunden/usrCntlKundenZOLLVollmachten.resx
View File

File diff suppressed because it is too large Load Diff

597
SDL/kunden/usrCntlKundenZOLLVollmachten.vb
View File

@@ -1,458 +1,128 @@
Imports System.Web.UI.WebControls.Expressions
Imports System.Windows
Imports System.Windows.Interop
Imports com.sun.org.apache.xpath.internal.functions
Imports DAKOSY_Worker.TR100
Imports DocumentFormat.OpenXml.Drawing
Imports DocumentFormat.OpenXml.Drawing.Charts
'Imports DocumentFormat.OpenXml.Wordprocessing
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Design.DdrDesigner.Services
Imports GrapeCity.ActiveReports.Design.QueryDesignerImpl.SqlParser.Irony.Parsing
Imports javax.validation.constraints
Imports com.sun.org.apache.xerces.internal.impl.dtd.models
Imports jdk.nashorn.internal.objects.annotations
Imports sun.misc
Imports TAlex.WPF.Helpers
Imports SDL.EORI
Imports System.Drawing
Imports System.Runtime.DesignerServices
Imports VERAG_PROG_ALLGEMEIN
Public Class usrCntlKundenZollVollmachten
Public Class usrCntlKundenZOLLVollmachten
Public kdnr As Integer = -1
Public filePath As String
Public erhalten As Boolean = False
Public archiviert As Boolean = False
Public geloescht As Boolean = False
Dim id As Integer = -1
'Dim cDATENSERVER As New VERAG_PROG_ALLGEMEIN.cDATENSERVER
'Dim id As Integer = -1
Dim ksql As New kundenSQL
Dim vollmachtartId As Integer
Public vollmachtartId As Integer
Dim vermerk As String = ""
Dim vmId As Integer = -1
'Dim currentVM As frmKundenZOLLVollmachten = Nothing
Dim currentVM2 As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
Public vmId As Integer = -1
Dim vollmacht As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
Sub New(kdnr, vollmachtartId)
Me.InitializeComponent()
Me.kdnr = kdnr
Me.vollmachtartId = vollmachtartId
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Sub New(kdnr, vmaNr, filePath)
Sub New(kdnr, vollmachtartId, filepath)
Me.InitializeComponent()
Me.erhalten = True
Me.kdnr = kdnr
Me.filePath = filePath
Me.filePath = filepath
Me.vollmachtartId = vollmachtartId
'UI-Elements
MyComboBox1.Visible = True
Me.txtGueltigVon.Text = Now.ToShortDateString
Me.txtGueltigBis.Text = Nothing
End Sub
Private Sub frmKundenZOLLVollmachten_Load(sender As Object, e As EventArgs) Handles Me.Load
MyComboBox1.fillWithSQL("SELECT [kdvma_Id],[kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt]", False, "FMZOLL", False)
Me.MyComboBox1._value = vollmachtartId
initDGVVollmachtenEmbedded(False)
Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Or VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("FAKTURIERUNG_VERAGIMEX", "SDL") Then
FirmaTmp = "VERAGIMEX"
End If
'Private Sub dgvVollmachtenEmbedded_SelectionChanged(sender As Object, e As EventArgs) Handles gdvKundenvollmachten.SelectionChanged
Select Case FirmaTmp
Case "UNISPED", "IMEX", "VERAGIMEX", "FRONTOFFICE"
Panel1.Visible = True
Case Else
Panel1.Visible = True
'Me.Height = Me.Height - Panel1.Height
End Select
If currentVM2.kdvm_datenarchivId > 0 Then
picDeletePDF.Visible = True
picPDF.Image = My.Resources.pdf
' If gdvKundenvollmachten.SelectedRows.Count > 0 Then
lblPDFavailable.Text = "PDF vorhanden."
lblPDFavailable.Cursor = Cursors.Hand
End If
' Dim rowindex = gdvKundenvollmachten.SelectedRows(0).Index
' vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(gdvKundenvollmachten.SelectedRows(0).Cells("kdvm_id").Value)
' loadChangedVMToUsrCntl(vollmacht)
End Sub
Private Sub btnUploadPDF_Click(sender As Object, e As EventArgs) Handles btnUploadPDF.Click
If Me.MyComboBox1._value < 0 Then Exit Sub
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & vmId, "", "", MyComboBox1.Text, kdnr)
Dim path = DS.uploadDataToDATENSERVERFileDialog() ' cDATENSERVER.uploadDataToDATENSERVERFileDialog("DOKUMENTE", "VOLLMACHTEN", kdnr, MyComboBox1.Text)
If path <> "" Then
currentVM2.kdvm_datenarchivId = DS.da_id 'cDATENSERVER.getLAST_ID(path)
lblPDFavailable.Text = "PDF vorhanden."
lblPDFavailable.Cursor = Cursors.Hand
End If
picDeletePDF.Visible = True = (currentVM2.kdvm_datenarchivId > 0)
saveVM(currentVM2)
dgvVollmachtenEmbedded.GetOrder()
initDGVVollmachtenEmbedded(True)
dgvVollmachtenEmbedded.SetOrder()
End Sub
Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
lblPDFavailable.Cursor = Cursors.WaitCursor
'If (currentVM.id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id)
If (currentVM2.kdvm_datenarchivId > 0) Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM.id)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM2.kdvm_datenarchivId)
DS.DELETE_COMPLETE()
'If ksql.setVollmacht_DSId(kdnr, vmId, -1) Then
currentVM2.kdvm_datenarchivId = -1
If currentVM2.SAVE Then
currentVM2.kdvm_datenarchivId = -1 : picDeletePDF.Visible = False
lblPDFavailable.Text = "Kein PDF vorhanden."
picPDF.Image = My.Resources.pdf_gray
End If
End If
End If
lblPDFavailable.Cursor = Cursors.Default
dgvVollmachtenEmbedded.GetOrder()
initDGVVollmachtenEmbedded(True)
dgvVollmachtenEmbedded.SetOrder()
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
'test
End Sub
Sub saveVM(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
lblWarning.Visible = False
If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
VM.kdvm_vermerk = txtVermerk.Text
VM.kdvm_kdvmaId = vollmachtartId
VM.kdvm_KundenNr = kdnr
VM.kdvm_archiviert = cbxArchiviert.Checked
If txtGueltigVon.Text = "" Or Not IsDate(txtGueltigVon.Text) Then
txtGueltigVon.ForeColor = Color.Red
lblWarning.Visible = True
Me.DialogResult = Windows.Forms.DialogResult.None
Exit Sub
Else
VM.kdvm_erhalten_Datum = txtGueltigVon.Text
VM.kdvm_gueltig_ab = txtGueltigVon.Text
VM.kdvm_erhalten = True
End If
If txtGueltigBis.Text IsNot "" And Not IsDate(txtGueltigBis.Text) Then
txtGueltigBis.ForeColor = Color.Red
Me.DialogResult = Windows.Forms.DialogResult.None
Exit Sub
ElseIf txtGueltigBis.Text = "" Then
VM.kdvm_gueltig_bis = Nothing
Else
VM.kdvm_gueltig_bis = txtGueltigBis.Text
End If
vollmachtenArchivieren()
If Not VM.SAVE() Then
Me.DialogResult = Windows.Forms.DialogResult.None
End If
If dgvVollmachtenEmbedded.Enabled = False Then
dgvVollmachtenEmbedded.Enabled = True
End If
If btnUploadPDF.Enabled = False Then
btnUploadPDF.Enabled = True
End If
dgvVollmachtenEmbedded.GetOrder()
initDGVVollmachtenEmbedded(True)
dgvVollmachtenEmbedded.SetOrder()
End Sub
Private Sub lblNoPDFavailable_Click(sender As Object, e As EventArgs) Handles lblPDFavailable.Click
If currentVM2.kdvm_datenarchivId > 0 Then
' cDATENSERVER.openDataTMPByDatenarchivId(id)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM2.kdvm_datenarchivId)
DS.OPEN_SINGLE()
End If
End Sub
'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.CheckedChanged
' ' MyTextBox1.Enabled = sender.checked
'End Sub
'Private Sub cbxErhaltenAm_CheckedChanged(sender As Object, e As EventArgs) Handles cbxErhaltenAm.Click
' 'wird nicht mehr verwendet
' If Not sender.checked Then
' txtGueltigVon.Text = ""
' Else
' txtGueltigVon.Text = Now.ToShortDateString
' End If
'End Sub
Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles txtGueltigVon.TextChanged
txtGueltigVon.ForeColor = Color.Black
cbxErhaltenAm.Checked = (txtGueltigVon.Text <> "")
End Sub
Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtGueltigVon.KeyDown
If e.KeyCode = Keys.Return Then
btnOK.PerformClick()
End If
If e.KeyCode = Keys.Escape Then
Button1.PerformClick()
End If
End Sub
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyComboBox1.SelectedIndexChanged
lbl.Text = MyComboBox1.Text
End Sub
Private Sub frmKundenZOLLVollmachten_Shown(sender As Object, e As EventArgs) Handles Me.Shown
txtGueltigVon.Focus()
If txtGueltigVon.Text <> "" Then
cbxErhaltenAm.Checked = True
txtGueltigVon.SelectAll()
End If
Sub init(kdnr As Integer, vollmachtartId As Integer)
'dgvVollmachten.Rows.Clear()
Me.kdnr = kdnr
Me.vollmachtartId = vollmachtartId
initDGV()
Me.Reset()
End Sub
Sub initDGVVollmachtenEmbedded(enalblePanel As Boolean)
Private Sub initDGV()
Dim where = " And art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "'"
If dgvVollmachtenEmbedded.Enabled = False Then
dgvVollmachtenEmbedded.Enabled = True
End If
pnlDetails.Enabled = enalblePanel
With dgvVollmachtenEmbedded
.Columns.Clear()
If kdnr > 0 AndAlso vollmachtartId >= 0 Then
.DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
" FROM [tblKundenVollmachtenArt] as art " &
" INNER JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
" WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
" ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
' .RowTemplate.Height = 30
.Columns("kdvm_Id").Visible = False
.Columns("kdvma_Id").Visible = False
.Columns("kdvm_KundenNr").Visible = False
.Columns("kdvm_datenarchivId").Visible = False
.Columns("kdvma_Bezeichnung").Visible = False
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
.Columns("kdvm_erhalten").Width = 50
.Columns("kdvm_erhalten").HeaderText = "Erhalten"
.Columns("kdvm_erhalten").Visible = False
.Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_erhalten_Datum").Width = 100
.Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
.Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_Info").Width = 200
.Columns("kdvm_Info").HeaderText = "Info"
.Columns("kdvm_Info").Visible = False
.Columns("kdvm_gueltig_bis").Visible = True
.Columns("kdvm_gueltig_bis").Width = 100
.Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
.Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_archiviert").Visible = True
.Columns("kdvm_archiviert").Width = 60
.Columns("kdvm_archiviert").HeaderText = "Archiviert"
.Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_vermerk").MinimumWidth = 100
.Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kdvm_vermerk").HeaderText = "Vermerk"
.Columns("kdvm_vermerk").Visible = True
.Columns("kdvm_geloescht").Visible = False
With gdvKundenvollmachten
.Columns.Clear()
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnPDF" : c.HeaderText = "PDF"
c.Image = My.Resources.pdf_gray : c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "PDF anzeigen"
.Columns.Add(c)
End If
.DataSource = ksql.loadDgvBySql("SELECT abf.kdvm_Id,art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.kdvm_datenarchivId,abf.kdvm_Info, abf.[kdvm_archiviert], abf.[kdvm_gueltig_bis], abf.[kdvm_vermerk], abf.[kdvm_geloescht]" &
" FROM [tblKundenVollmachtenArt] as art " &
" INNER JOIN (select * from [tblKundenVollmachten]) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId]" &
" WHERE art.kdvma_visible=1 AND abf.kdvm_erhalten = 1 AND ISNULL(abf.[kdvm_geloescht],0) != 1 AND [kdvm_KundenNr]='" & kdnr & "' AND [kdvm_kdvmaId]='" & vollmachtartId & "'" & where &
" ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc ", "FMZOLL")
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED", "IMEX"
'.Columns("clmnTherefore").Visible = False
.Columns("clmnPDF").Visible = True
Case "FRONTOFFICE"
'.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
Case Else
'.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
End Select
For Each r As DataGridViewRow In .Rows
If r.Cells("kdvm_erhalten").Value Is DBNull.Value Then
r.DefaultCellStyle.ForeColor = Color.Gray
ElseIf CBool(r.Cells("kdvm_erhalten").Value) = False Then
r.DefaultCellStyle.ForeColor = Color.Gray
ElseIf IsDate(r.Cells("kdvm_erhalten_Datum").Value) AndAlso CDate(r.Cells("kdvm_erhalten_Datum").Value) < Now.AddYears(-2) Then
r.DefaultCellStyle.ForeColor = Color.Red
End If
If True Then
If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
End If
End If
Next
End With
End Sub
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxVMarchivieren.CheckedChanged
'.RowTemplate.Height = 30
.Columns("kdvm_Id").Visible = False
.Columns("kdvma_Id").Visible = False
.Columns("kdvm_KundenNr").Visible = False
.Columns("kdvm_datenarchivId").Visible = False
.Columns("kdvma_Bezeichnung").Visible = False
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
.Columns("kdvm_erhalten").Width = 50
.Columns("kdvm_erhalten").HeaderText = "Erhalten"
.Columns("kdvm_erhalten").Visible = False
.Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_erhalten_Datum").Width = 100
.Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
.Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_Info").Width = 200
.Columns("kdvm_Info").HeaderText = "Info"
.Columns("kdvm_Info").Visible = False
.Columns("kdvm_gueltig_bis").Visible = True
.Columns("kdvm_gueltig_bis").Width = 100
.Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
.Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_archiviert").Visible = True
.Columns("kdvm_archiviert").Width = 60
.Columns("kdvm_archiviert").HeaderText = "Archiviert"
.Columns("kdvm_archiviert").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_vermerk").MinimumWidth = 100
.Columns("kdvm_vermerk").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kdvm_vermerk").HeaderText = "Vermerk"
.Columns("kdvm_vermerk").Visible = True
.Columns("kdvm_geloescht").Visible = False
'If vbYes = MsgBox("Sollen die bestehenden Vollmachten archiviert werden?", vbYesNoCancel) Then
' Dim succeeded = ksql.setVollmachtarchivieren(kdnr, MyComboBox1._value)
' If succeeded = True Then
' MsgBox("Bestehende Vollmachten wurden archiviert.")
' cbxVMarchivieren.Enabled = False
' End If
'End If
End Sub
Private Sub dgvvollmachtenembedded_cellmouseclick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvVollmachtenEmbedded.CellMouseClick
'für die Ermittlung des Contextmenüs -> VM löschen
If e.Button = Windows.Forms.MouseButtons.Right Then
If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
ContextMenuStrip1.Show(Cursor.Position)
End If
End If
End Sub
Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
'Contextmenü -> Datensatz ändern -> wird nicht verwendet
If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
Dim VM As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
loadChangedVMToPanel(True, VM)
setSaveButton()
End If
End Sub
Private Sub loadChangedVMToPanel(enablePanel As Boolean, VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
pnlDetails.Enabled = enablePanel
cbxArchiviert.Checked = VM.kdvm_archiviert
txtVermerk.Text = VM.kdvm_vermerk
txtGueltigVon.Text = VM.kdvm_erhalten_Datum
txtGueltigBis.Text = VM.kdvm_gueltig_bis
If VM.kdvm_datenarchivId > 0 Then
picDeletePDF.Visible = True
picPDF.Visible = True
picPDF.Image = My.Resources.pdf
lblPDFavailable.Text = "PDF vorhanden."
lblPDFavailable.Cursor = Cursors.Hand
Else
picDeletePDF.Visible = False
picPDF.Visible = True
lblPDFavailable.Text = "Kein PDF vorhanden."
picPDF.Image = My.Resources.pdf_gray
End If
setOKButton()
'Listener für Änderungen im Detail-Panel
For Each c As Control In pnlDetails.Controls
If TypeOf (c) Is CheckBox Then
AddHandler CType(c, CheckBox).CheckedChanged, AddressOf SomethingChanged
ElseIf TypeOf (c) Is TextBox Then
AddHandler CType(c, TextBox).TextChanged, AddressOf SomethingChanged
End If
Next
End Sub
Private Sub SomethingChanged(sender As Object, e As EventArgs)
setSaveButton()
End Sub
'Private Sub dgvVollmachtenEmbedded_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachtenEmbedded.CellClick
'wird aktuell nicht mehr verwendet
' currentVM = New frmKundenZOLLVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_KundenNr").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvma_Id").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_erhalten").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_archiviert").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_erhalten_Datum").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_gueltig_bis").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_vermerk").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_datenarchivId").Value, dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
' loadChangedVMToPanel(True, currentVM)
'End Sub
Private Sub dgvVollmachtenEmbedded_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachtenEmbedded.CellDoubleClick
'Öffnet das PDFs im DGV
If dgvVollmachtenEmbedded.Columns(e.ColumnIndex).Name = "clmnPDF" Then
If dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value) > 0 Then
' cDATENSERVER.openDataTMPByDatenarchivId(dgvVollmachten.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(dgvVollmachtenEmbedded.Rows(e.RowIndex).Cells("kdvm_datenarchivId").Value)
DS.OPEN_SINGLE(True)
End If
End If
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
'Contextmenü -> Löschen der VM
If dgvVollmachtenEmbedded.SelectedRows.Count = 1 Then
If vbYes = MsgBox("Soll diese Vollmacht gelöscht werden?", vbYesNoCancel) Then
Dim vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_Id").Value)
vollmacht.kdvm_geloescht = True
If vollmacht.SAVE = True Then
MsgBox("Bestehende Vollmacht wurde gelöscht.")
initDGVVollmachtenEmbedded(False)
End If
End If
End With
End If
End Sub
Private Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
'Neuanlage einer VM
dgvVollmachtenEmbedded.ClearSelection()
If dgvVollmachtenEmbedded.Rows.Count > 0 Then
cbxVMarchivieren.Visible = True
cbxVMarchivieren.Checked = True
End If
dgvVollmachtenEmbedded.Enabled = False
btnUploadPDF.Enabled = False
currentVM2 = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
.kdvm_KundenNr = kdnr,
.kdvm_kdvmaId = vollmachtartId,
Public Sub btnNeu_Click(sender As Object, e As EventArgs) Handles btnNeu.Click
vollmacht = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten With {
.kdvm_KundenNr = Me.kdnr,
.kdvm_kdvmaId = Me.vollmachtartId,
.kdvm_Info = "",
.kdvm_erhalten = False,
.kdvm_archiviert = False,
@@ -460,16 +130,81 @@ Public Class usrCntlKundenZOLLVollmachten
.kdvm_erhalten_Datum = Now.ToShortDateString
}
loadChangedVMToPanel(True, currentVM2)
setSaveButton()
vollmacht.kdvm_gueltig_bis = txtGueltigBis
vollmacht.kdvm_vermerk = Me.txtVermerkNew.Text
vollmacht.kdvm_archiviert = Me.cbxArchiviert.Checked
If txtGueltigVon.Text = "" Or Not IsDate(txtGueltigVon.Text) Then
txtGueltigVon.ForeColor = Color.Red
lblWarning.Visible = True
Exit Sub
Else
vollmacht.kdvm_erhalten_Datum = txtGueltigVon.Text
vollmacht.kdvm_gueltig_ab = txtGueltigVon.Text
vollmacht.kdvm_erhalten = True
End If
If txtGueltigBis.Text IsNot "" And Not IsDate(txtGueltigBis.Text) Then
txtGueltigBis.ForeColor = Color.Red
Exit Sub
ElseIf txtGueltigBis.Text = "" Then
vollmacht.kdvm_gueltig_bis = Nothing
Else
vollmacht.kdvm_gueltig_bis = txtGueltigBis.Text
End If
If vollmacht.SAVEVM > 0 Then
vollmachtenArchivieren()
vmId = vollmacht.SAVEVM
End If
End Sub
Private Sub loadChangedVMToUsrCntl(VM As VERAG_PROG_ALLGEMEIN.cKundenVollmachten)
Me.Reset()
cbxArchiviert.Checked = VM.kdvm_archiviert
txtVermerkNew.Text = VM.kdvm_vermerk
txtGueltigVon.Text = VM.kdvm_erhalten_Datum
txtGueltigBis.Text = VM.kdvm_gueltig_bis
End Sub
Public Sub Reset()
If gdvKundenvollmachten.Rows.Count > 0 Then
cbxVMarchivieren.Visible = True
cbxVMarchivieren.Checked = True
Else
cbxVMarchivieren.Visible = False
cbxVMarchivieren.Checked = False
End If
txtGueltigBis.Clear()
txtGueltigVon.Clear()
txtGueltigVon.Text = Now.ToShortDateString
txtVermerkNew.Clear()
cbxArchiviert.Checked = False
End Sub
Private Sub vollmachtenArchivieren()
If cbxVMarchivieren.Checked = False Then Exit Sub
Dim count As Integer = 0
With dgvVollmachtenEmbedded
With gdvKundenvollmachten
For Each r As DataGridViewRow In .Rows
Dim VMindex = r.Cells("kdvm_Id").Value
@@ -492,48 +227,4 @@ Public Class usrCntlKundenZOLLVollmachten
End Sub
Private Sub setSaveButton()
btnOK.Visible = False
btnSave.Visible = True
End Sub
Private Sub dgvVollmachtenEmbedded_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachtenEmbedded.SelectionChanged
If dgvVollmachtenEmbedded.SelectedRows.Count > 0 Then
Dim rowindex = dgvVollmachtenEmbedded.SelectedRows(0).Index
currentVM2 = New VERAG_PROG_ALLGEMEIN.cKundenVollmachten(dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value)
loadChangedVMToPanel(True, currentVM2)
If dgvVollmachtenEmbedded.Enabled = False Then Exit Sub
vmId = dgvVollmachtenEmbedded.SelectedRows(0).Cells("kdvm_id").Value
If btnUploadPDF.Enabled = False Then
btnUploadPDF.Enabled = True
End If
End If
End Sub
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
saveVM(currentVM2)
setOKButton()
End Sub
Private Sub setOKButton()
btnOK.Visible = True
btnSave.Visible = False
End Sub
Private Sub hidePDFControl(hide As Boolean)
If hide Then
btnUploadPDF.Visible = False
picDeletePDF.Visible = False
lblPDFavailable.Visible = False
picPDF.Visible = False
End If
End Sub
End Class

6
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1566,7 +1566,7 @@ Public Class usrCntlKundenuebersicht
'Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
'Dim gueltigBis = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value Is DBNull.Value, Nothing, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value)
'Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_archiviert").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_gueltig_bis").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_vermerk").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
Dim l As New usrCntlKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value)
Dim l As New frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value) '
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
l.initDGVVollmachtenEmbedded(False)
'initDGVVollmachten()
@@ -2517,7 +2517,7 @@ Public Class usrCntlKundenuebersicht
For Each W In FileList
If Not W.ToUpper.EndsWith(".EXE") Then
Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
Dim l As New usrCntlKundenZOLLVollmachten(kdNr, -1, W)
Dim l As New frmKundenZOLLVollmachten(kdNr, -1, W)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
initDGVVollmachten()
End If
@@ -2567,7 +2567,7 @@ Public Class usrCntlKundenuebersicht
If sender.name.contains("kdvma_id_") Then
Dim vmaText As String = sender.name.ToString.Replace("kdvma_id_", "")
Dim vmaNr As Integer = Convert.ToInt32(vmaText)
Dim l As New usrCntlKundenZOLLVollmachten(kdNr, vmaNr)
Dim l As New frmKundenZOLLVollmachten(kdNr, vmaNr)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
End If

2
SDL/mdm/Besuchsberichte/frmBesuchsberichte.vb
View File

@@ -100,7 +100,7 @@
txtAuftraggeber.Text = If(BB.bb_Auftraggeber, "")
txtTransportRoute.Text = If(BB.bb_Route, "")
txtDerzeitigerLieferant.Text = If(BB.bb_DerzeitigerLieferant, "")
cboZufrieden.changeItem(If(BB.bb_Zufrieden, ""))
cboZufrieden.changeItem(If(BB.bb_Zufrieden.ToString, ""))
txtZufriedenNEIN.Text = If(BB.bb_ZufriedenNEIN, "")
txtGarantie.Text = If(BB.bb_Garantie, "")

15
VERAG_PROG_ALLGEMEIN/Classes/cKundenVollmachten.vb
View File

@@ -15,6 +15,7 @@ Public Class cKundenVollmachten 'in Arbeit!
Property kdvm_gueltig_ab As Object = Nothing
Property kdvm_vermerk As Object = Nothing
Property kdvm_geloescht As Boolean = False
Property kdvm_emailId As Object = Nothing
Public hasEntry = False
@@ -47,6 +48,7 @@ Public Class cKundenVollmachten 'in Arbeit!
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_gueltig_ab", kdvm_gueltig_ab))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_vermerk", kdvm_vermerk))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_geloescht", kdvm_geloescht))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kdvm_emailId", kdvm_emailId))
Return list
End Function
@@ -65,6 +67,19 @@ Public Class cKundenVollmachten 'in Arbeit!
Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
End Function
Public Function SAVEVM() As Integer
Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblKundenVollmachten WHERE kdvm_Id=@kdvm_Id) " &
" BEGIN " & getUpdateCmd() & " END " &
" Else " &
" BEGIN " & getInsertCmd() & " END " &
" commit tran "
kdvm_Id = SQL.doSQLVarListID(kdvm_Id, sqlstr, "FMZOLL", , list)
Return kdvm_Id
End Function
Public Sub LOAD()
Try
hasEntry = False

BIN
VERAG_PROG_ALLGEMEIN/Resources/email_big_gray.jpg Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 46 KiB