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

Merge branch 'Logikänderung_VM'

Browse Source
This commit is contained in:
Andreas Luxbauer
2022-09-19 10:00:53 +02:00
parent c9eb9307ef 5d324634de
commit c1fd995c1d
399 changed files with 259205 additions and 1386 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/My Project/licenses.licx
View File

@@ -1,2 +1 @@
GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win, Version=15.2.3.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff


40
SDL/SDL.vbproj
View File

@@ -89,8 +89,9 @@
<SpecificVersion>False</SpecificVersion>
<HintPath>C:\Program Files (x86)\GrapeCity\ActiveReports 15\Tools\BouncyCastle.Crypto.dll</HintPath>
</Reference>
<Reference Include="ClosedXML, Version=0.95.4.0, Culture=neutral, processorArchitecture=MSIL">
<HintPath>..\..\..\AVISO\Aviso\packages\ClosedXML.0.95.4\lib\net46\ClosedXML.dll</HintPath>
<Reference Include="ClosedXML, Version=0.76.0.0, Culture=neutral, PublicKeyToken=fd1eb21b62ae805b, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\Aviso\AVISO\packages\ClosedXML.0.95.4\lib\net46\ClosedXML.dll</HintPath>
</Reference>
<Reference Include="com.esendex.sdk, Version=3.8.0.0, Culture=neutral, PublicKeyToken=9dceac28a20578e2, processorArchitecture=MSIL">
<HintPath>..\..\..\AVISO\Aviso\packages\esendex-dotnet-sdk.3.8.0\lib\net35\com.esendex.sdk.dll</HintPath>
@@ -249,6 +250,11 @@
<Private>True</Private>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="Microsoft.Office.Interop.Excel, Version=15.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<EmbedInteropTypes>True</EmbedInteropTypes>
<HintPath>..\..\..\..\..\..\..\Windows\assembly\GAC_MSIL\Microsoft.Office.Interop.Excel\15.0.0.0__71e9bce111e9429c\Microsoft.Office.Interop.Excel.dll</HintPath>
</Reference>
<Reference Include="Microsoft.Office.Interop.Outlook, Version=14.0.0.0, Culture=neutral, PublicKeyToken=71e9bce111e9429c, processorArchitecture=MSIL">
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
@@ -283,6 +289,10 @@
<Reference Include="Registrierkasse">
<HintPath>..\..\..\dll\Registrierkasse.dll</HintPath>
</Reference>
<Reference Include="RKAesIcm, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
<SpecificVersion>False</SpecificVersion>
<HintPath>..\..\..\dll\RKAesIcm.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.Composition" />
<Reference Include="System.ComponentModel.Composition.Registration" />
@@ -560,6 +570,12 @@
<Compile Include="kunden\frmKundenUIDEORI_List.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\frmKundenZOLLVollmachtenUebersicht.Designer.vb">
<DependentUpon>frmKundenZOLLVollmachtenUebersicht.vb</DependentUpon>
</Compile>
<Compile Include="kunden\frmKundenZOLLVollmachtenUebersicht.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="kunden\Teams\frmKundeAnsprechpartnerTeams.Designer.vb">
<DependentUpon>frmKundeAnsprechpartnerTeams.vb</DependentUpon>
</Compile>
@@ -2770,6 +2786,9 @@
<EmbeddedResource Include="kunden\frmKundenUIDEORI_List.resx">
<DependentUpon>frmKundenUIDEORI_List.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\frmKundenZOLLVollmachtenUebersicht.resx">
<DependentUpon>frmKundenZOLLVollmachtenUebersicht.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="kunden\Teams\frmKundeAnsprechpartnerTeams.resx">
<DependentUpon>frmKundeAnsprechpartnerTeams.vb</DependentUpon>
</EmbeddedResource>
@@ -4139,15 +4158,6 @@
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="Microsoft.Office.Interop.Excel">
<Guid>{00020813-0000-0000-C000-000000000046}</Guid>
<VersionMajor>1</VersionMajor>
<VersionMinor>8</VersionMinor>
<Lcid>0</Lcid>
<WrapperTool>primary</WrapperTool>
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="Microsoft.Office.Interop.Word">
<Guid>{00020905-0000-0000-C000-000000000046}</Guid>
<VersionMajor>8</VersionMajor>
@@ -4530,14 +4540,6 @@
<Project>{e4190547-b222-4ae3-a0be-a44eaee70335}</Project>
<Name>Parkzeit</Name>
</ProjectReference>
<ProjectReference Include="..\..\RKAesIcm\RKAesIcm.csproj">
<Project>{4167823d-7cb2-497d-958b-d579d6492e6b}</Project>
<Name>RKAesIcm</Name>
</ProjectReference>
<ProjectReference Include="..\Registrierkasse\VERAGRegistrierkasse.vbproj">
<Project>{392a58fc-79a6-4e1c-9033-180e86b523eb}</Project>
<Name>VERAGRegistrierkasse</Name>
</ProjectReference>
<ProjectReference Include="..\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj">
<Project>{a3b497bd-842c-4a2b-b398-ed1976849df1}</Project>
<Name>VERAG_PROG_ALLGEMEIN</Name>

63
SDL/cSqlDb.vb
View File

@@ -1751,28 +1751,33 @@ Public Class kundenSQL
Public Function setVollmacht(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_erhalten As Boolean, ByVal kdvm_erhalten_Datum As Object, ByVal kdvm_Info As String, ByVal kdvm_datenarchivId As Integer) As Boolean
Public Function setVollmacht(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_erhalten As Boolean, ByVal kdvm_archiviert As Boolean, ByVal kdvm_erhalten_Datum As Object, ByVal kdvm_gueltig_bis As Object, ByVal kdvm_vermerk As String, ByVal kdvm_Info As String, ByVal kdvm_datenarchivId As Integer, kdvm_Id As Integer) As Boolean
Try
Dim d As String = ""
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("begin tran if exists (select * from tblKundenVollmachten with (updlock,serializable) where [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId ) " &
Using cmd As New SqlCommand("begin tran if exists (select * from tblKundenVollmachten with (updlock,serializable) where [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_Id=@kdvm_Id AND kdvm_Id <> '-1' ) " &
" begin " &
"UPDATE [tblKundenVollmachten] SET [kdvm_erhalten]=@kdvm_erhalten,[kdvm_erhalten_Datum]=@kdvm_erhalten_Datum,[kdvm_Info]=@kdvm_Info,[kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId " &
"UPDATE [tblKundenVollmachten] SET [kdvm_erhalten]=@kdvm_erhalten,[kdvm_archiviert]=@kdvm_archiviert,[kdvm_erhalten_Datum]=@kdvm_erhalten_Datum,[kdvm_gueltig_bis]=@kdvm_gueltig_bis,[kdvm_vermerk]=@kdvm_vermerk,[kdvm_Info]=@kdvm_Info,[kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_Id =@kdvm_Id " &
" End " &
" Else " &
" begin " &
"INSERT INTO tblKundenVollmachten " &
" ([kdvm_KundenNr],[kdvm_kdvmaId] ,[kdvm_erhalten],[kdvm_erhalten_Datum],[kdvm_Info],[kdvm_datenarchivId]) " &
" VALUES (@kdvm_KundenNr,@kdvm_kdvmaId ,@kdvm_erhalten ,@kdvm_erhalten_Datum,@kdvm_Info,@kdvm_datenarchivId) " &
" ([kdvm_KundenNr],[kdvm_kdvmaId],[kdvm_erhalten],[kdvm_archiviert],[kdvm_erhalten_Datum],[kdvm_gueltig_bis],[kdvm_vermerk],[kdvm_Info],[kdvm_datenarchivId]) " &
" VALUES (@kdvm_KundenNr,@kdvm_kdvmaId ,@kdvm_erhalten ,@kdvm_archiviert ,@kdvm_erhalten_Datum,@kdvm_gueltig_bis,@kdvm_vermerk,@kdvm_Info,@kdvm_datenarchivId) " &
" End " &
" commit tran ", conn)
cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
cmd.Parameters.AddWithValue("@kdvm_kdvmaId", kdvm_kdvmaId)
cmd.Parameters.AddWithValue("@kdvm_erhalten", kdvm_erhalten)
cmd.Parameters.AddWithValue("@kdvm_archiviert", kdvm_archiviert)
cmd.Parameters.AddWithValue("@kdvm_erhalten_Datum", If(kdvm_erhalten_Datum Is Nothing, DBNull.Value, CDate(kdvm_erhalten_Datum)))
cmd.Parameters.AddWithValue("@kdvm_gueltig_bis", If(kdvm_gueltig_bis Is Nothing, DBNull.Value, CDate(kdvm_gueltig_bis)))
cmd.Parameters.AddWithValue("@kdvm_vermerk", kdvm_vermerk)
cmd.Parameters.AddWithValue("@kdvm_Info", kdvm_Info)
cmd.Parameters.AddWithValue("@kdvm_datenarchivId", kdvm_datenarchivId)
cmd.Parameters.AddWithValue("@kdvm_Id", kdvm_Id)
cmd.ExecuteNonQuery()
Return True
End Using
@@ -1783,14 +1788,14 @@ Public Class kundenSQL
Return False
End Function
Public Function setVollmacht_DSId(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer, ByVal kdvm_datenarchivId As Integer) As Boolean
Public Function setVollmacht_DSId(ByVal kdvm_KundenNr As Integer, ByVal kdvm_Id As Integer, ByVal kdvm_datenarchivId As Integer) As Boolean
Try
Dim d As String = ""
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET [kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId ", conn)
Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET [kdvm_datenarchivId]=@kdvm_datenarchivId WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_Id =@kdvm_Id ", conn)
cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
cmd.Parameters.AddWithValue("@kdvm_kdvmaId", kdvm_kdvmaId)
cmd.Parameters.AddWithValue("@kdvm_Id", kdvm_Id)
cmd.Parameters.AddWithValue("@kdvm_datenarchivId", kdvm_datenarchivId)
cmd.ExecuteNonQuery()
Return True
@@ -1802,6 +1807,48 @@ Public Class kundenSQL
Return False
End Function
Public Function setVollmachtarchivieren(ByVal kdvm_KundenNr As Integer, ByVal kdvm_kdvmaId As Integer) As Boolean
Try
Dim d As String = ""
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET kdvm_archiviert = 1 WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_kdvmaId =@kdvm_kdvmaId ", conn)
cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
cmd.Parameters.AddWithValue("@kdvm_kdvmaId", kdvm_kdvmaId)
cmd.ExecuteNonQuery()
Return True
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
End Try
Return False
End Function
Public Function setVollmachtgeloescht(ByVal kdvm_KundenNr As Integer, ByVal kdvm_Id As Integer, ByVal kdvm_geloescht As Integer) As Boolean
Try
Dim d As String = ""
Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
Using cmd As New SqlCommand("UPDATE [tblKundenVollmachten] SET kdvm_geloescht = @kdvm_geloescht WHERE [kdvm_KundenNr]=@kdvm_KundenNr AND kdvm_Id =@kdvm_Id ", conn)
cmd.Parameters.AddWithValue("@kdvm_KundenNr", kdvm_KundenNr)
cmd.Parameters.AddWithValue("@kdvm_Id", kdvm_Id)
cmd.Parameters.AddWithValue("@kdvm_geloescht", kdvm_geloescht)
cmd.ExecuteNonQuery()
Return True
End Using
End Using
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name,,,,,)
End Try
Return False
End Function
Public Function setPartnerKdNrFromFMZOLL(ByVal columnName As String, ByVal value As Object, ByVal AdressenNr As String) As Boolean
Dim sql = "UPDATE Adressen " &
" SET [" & columnName & "]=@value " &

482
SDL/kunden/frmKundenZOLLVollmachten.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<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()> _
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
@@ -20,130 +20,91 @@ Partial Class frmKundenZOLLVollmachten
'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()> _
<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.txtDat = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxErhaltenAm = New System.Windows.Forms.CheckBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.picPDF = New System.Windows.Forms.PictureBox()
Me.Button2 = New System.Windows.Forms.Button()
Me.pic = New System.Windows.Forms.PictureBox()
Me.Label2 = 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.btnOK = 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.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.pic, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'pnl
'
Me.pnl.BackColor = System.Drawing.Color.White
Me.pnl.Controls.Add(Me.txtDat)
Me.pnl.Controls.Add(Me.cbxErhaltenAm)
Me.pnl.Controls.Add(Me.Panel1)
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.btnOK)
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(279, 136)
Me.pnl.Size = New System.Drawing.Size(499, 383)
Me.pnl.TabIndex = 1
'
'txtDat
'btnNeu
'
Me.txtDat._DateTimeOnly = False
Me.txtDat._numbersOnly = False
Me.txtDat._numbersOnlyKommastellen = ""
Me.txtDat._Prozent = False
Me.txtDat._ShortDateNew = True
Me.txtDat._ShortDateOnly = False
Me.txtDat._TimeOnly = False
Me.txtDat._TimeOnly_Seconds = False
Me.txtDat._value = ""
Me.txtDat._Waehrung = False
Me.txtDat._WaehrungZeichen = False
Me.txtDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDat.ForeColor = System.Drawing.Color.Black
Me.txtDat.Location = New System.Drawing.Point(98, 35)
Me.txtDat.MaxLength = 10
Me.txtDat.MaxLineLength = -1
Me.txtDat.MaxLines_Warning = ""
Me.txtDat.MaxLines_Warning_Label = Nothing
Me.txtDat.Name = "txtDat"
Me.txtDat.Size = New System.Drawing.Size(127, 23)
Me.txtDat.TabIndex = 19
Me.txtDat.TextAlign = System.Windows.Forms.HorizontalAlignment.Center
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
'
'cbxErhaltenAm
'dgvVollmachtenEmbedded
'
Me.cbxErhaltenAm.AutoSize = True
Me.cbxErhaltenAm.Location = New System.Drawing.Point(14, 39)
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
'
'Panel1
'
Me.Panel1.Controls.Add(Me.picPDF)
Me.Panel1.Controls.Add(Me.Button2)
Me.Panel1.Controls.Add(Me.pic)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Location = New System.Drawing.Point(3, 64)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(267, 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(210, 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
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(11, 10)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(134, 25)
Me.Button2.TabIndex = 12
Me.Button2.Text = "PDF hochladen"
Me.Button2.UseVisualStyleBackColor = True
'
'pic
'
Me.pic.Image = Global.SDL.My.Resources.Resources.del
Me.pic.Location = New System.Drawing.Point(11, 38)
Me.pic.Name = "pic"
Me.pic.Size = New System.Drawing.Size(20, 20)
Me.pic.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
Me.pic.TabIndex = 16
Me.pic.TabStop = False
Me.pic.Visible = False
'
'Label2
'
Me.Label2.Location = New System.Drawing.Point(5, 38)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(140, 13)
Me.Label2.TabIndex = 13
Me.Label2.Text = "Kein PDF vorhanden."
Me.Label2.TextAlign = System.Drawing.ContentAlignment.TopRight
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
'
@@ -153,7 +114,7 @@ Partial Class frmKundenZOLLVollmachten
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, 8)
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
@@ -166,39 +127,302 @@ Partial Class frmKundenZOLLVollmachten
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(237, 0)
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
'
'btnOK
'Label1
'
Me.btnOK.DialogResult = System.Windows.Forms.DialogResult.OK
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(231, 34)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(39, 24)
Me.btnOK.TabIndex = 10
Me.btnOK.Text = "OK"
Me.btnOK.UseVisualStyleBackColor = True
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(8, 3)
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
'
'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.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.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
'
'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
'
'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
'
'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
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(279, 136)
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)
@@ -207,22 +431,42 @@ Partial Class frmKundenZOLLVollmachten
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.pic, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picDeletePDF, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents pnl As System.Windows.Forms.Panel
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
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 pic As System.Windows.Forms.PictureBox
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 txtDat As VERAG_PROG_ALLGEMEIN.MyTextBox
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
End Class

3
SDL/kunden/frmKundenZOLLVollmachten.resx
View File

@@ -117,6 +117,9 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

507
SDL/kunden/frmKundenZOLLVollmachten.vb
View File

@@ -1,37 +1,59 @@
Public Class frmKundenZOLLVollmachten
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 vollmachtId As String
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 vermerk As String = ""
Dim vmId As Integer = -1
'Dim currentVM As frmKundenZOLLVollmachten = Nothing
Dim currentVM2 As New VERAG_PROG_ALLGEMEIN.cKundenVollmachten
Sub New(kdnr, vollmachtId, erhalten, datum, id)
Sub New(kdnr, vollmachtartId)
Me.InitializeComponent()
If erhalten IsNot DBNull.Value Then Me.erhalten = erhalten
Me.kdnr = kdnr
Me.vollmachtId = vollmachtId
Me.txtDat.Text = If(IsDate(If(datum, "")), CDate(datum).ToShortDateString, "")
If id IsNot DBNull.Value Then Me.id = id
Me.vollmachtartId = vollmachtartId
End Sub
Sub New(kdnr, filePath)
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.txtDat.Text = Now.ToShortDateString
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 = vollmachtId
Me.cbxErhaltenAm.Checked = erhalten
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
@@ -46,70 +68,124 @@
'Me.Height = Me.Height - Panel1.Height
End Select
If id > 0 Then
pic.Visible = True
If currentVM2.kdvm_datenarchivId > 0 Then
picDeletePDF.Visible = True
picPDF.Image = My.Resources.pdf
Label2.Text = "PDF vorhanden."
Label2.Cursor = Cursors.Hand
lblPDFavailable.Text = "PDF vorhanden."
lblPDFavailable.Cursor = Cursors.Hand
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
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", "", "", "", MyComboBox1.Text, kdnr)
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
id = DS.da_id 'cDATENSERVER.getLAST_ID(path)
Label2.Text = "PDF vorhanden."
Label2.Cursor = Cursors.Hand
If path <> "" Then
currentVM2.kdvm_datenarchivId = DS.da_id 'cDATENSERVER.getLAST_ID(path)
lblPDFavailable.Text = "PDF vorhanden."
lblPDFavailable.Cursor = Cursors.Hand
End If
pic.Visible = True = (id > 0)
picDeletePDF.Visible = True = (currentVM2.kdvm_datenarchivId > 0)
saveVM(currentVM2)
dgvVollmachtenEmbedded.GetOrder()
initDGVVollmachtenEmbedded(True)
dgvVollmachtenEmbedded.SetOrder()
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
Private Sub picDeletePDF_Click(sender As Object, e As EventArgs) Handles picDeletePDF.Click
Label2.Cursor = Cursors.WaitCursor
If (id > 0) Then 'cDATENSERVER.deleteFileByDatenarchivId(id)
If vbYes = MsgBox("Möchten Sie die Vollamcht wirklich löschen?", vbYesNoCancel) Then
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(id)
'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, MyComboBox1._value, -1) Then
id = -1 : pic.Visible = False
Label2.Text = "Kein PDF vorhanden."
'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
Label2.Cursor = Cursors.Default
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
If MyComboBox1._value = "" Then Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
Dim datVM As Object = Nothing
If cbxErhaltenAm.Checked Then
If txtDat.Text = "" Or Not IsDate(txtDat.Text) Then
txtDat.ForeColor = Color.Red
Me.DialogResult = Windows.Forms.DialogResult.None
Exit Sub
Else
datVM = txtDat.Text
End If
End If
If Not ksql.setVollmacht(kdnr, MyComboBox1._value, cbxErhaltenAm.Checked, datVM, "", id) Then
Me.DialogResult = Windows.Forms.DialogResult.None
End If
'test
End Sub
Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click
If id > 0 Then
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(id)
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(currentVM2.kdvm_datenarchivId)
DS.OPEN_SINGLE()
End If
End Sub
@@ -117,20 +193,21 @@
'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
If Not sender.checked Then
txtDat.Text = ""
Else
txtDat.Text = Now.ToShortDateString
End If
'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_TextChanged(sender As Object, e As EventArgs) Handles txtDat.TextChanged
txtDat.ForeColor = Color.Black
cbxErhaltenAm.Checked = (txtDat.Text <> "")
End Sub
Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtDat.KeyDown
Private Sub MyTextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles txtGueltigVon.KeyDown
If e.KeyCode = Keys.Return Then
btnOK.PerformClick()
End If
@@ -144,10 +221,308 @@
End Sub
Private Sub frmKundenZOLLVollmachten_Shown(sender As Object, e As EventArgs) Handles Me.Shown
txtDat.Focus()
If txtDat.Text <> "" Then
txtGueltigVon.Focus()
If txtGueltigVon.Text <> "" Then
cbxErhaltenAm.Checked = True
txtDat.SelectAll()
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
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 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,
.kdvm_Info = "",
.kdvm_erhalten = False,
.kdvm_archiviert = False,
.kdvm_datenarchivId = -1,
.kdvm_erhalten_Datum = Now.ToShortDateString
}
loadChangedVMToPanel(True, currentVM2)
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
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
End Class

30
SDL/kunden/frmKundenZOLLVollmachtenUebersicht.Designer.vb generated Normal file
View File

@@ -0,0 +1,30 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class frmKundenZOLLVollmachtenUebersicht
Inherits System.Windows.Forms.Form
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
components = New System.ComponentModel.Container
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(800, 450)
Me.Text = "frmKundenZOLLVollmachtenUebersicht"
End Sub
End Class

120
SDL/kunden/frmKundenZOLLVollmachtenUebersicht.resx Normal file
View File

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

3
SDL/kunden/frmKundenZOLLVollmachtenUebersicht.vb Normal file
View File

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

6
SDL/kunden/frmKundenblatt.Designer.vb generated
View File

@@ -1104,10 +1104,12 @@ Partial Class frmKundenblatt
Me.txtMautDE_BenutzerNr._DateTimeOnly = False
Me.txtMautDE_BenutzerNr._numbersOnly = True
Me.txtMautDE_BenutzerNr._numbersOnlyKommastellen = ""
Me.txtMautDE_BenutzerNr._numbersOnlyTrennzeichen = True
Me.txtMautDE_BenutzerNr._Prozent = False
Me.txtMautDE_BenutzerNr._ShortDateNew = False
Me.txtMautDE_BenutzerNr._ShortDateOnly = False
Me.txtMautDE_BenutzerNr._TimeOnly = False
Me.txtMautDE_BenutzerNr._TimeOnly_Seconds = False
Me.txtMautDE_BenutzerNr._value = ""
Me.txtMautDE_BenutzerNr._Waehrung = False
Me.txtMautDE_BenutzerNr._WaehrungZeichen = True
@@ -1143,10 +1145,12 @@ Partial Class frmKundenblatt
Me.txtMautDE_FlottenPIN._DateTimeOnly = False
Me.txtMautDE_FlottenPIN._numbersOnly = True
Me.txtMautDE_FlottenPIN._numbersOnlyKommastellen = ""
Me.txtMautDE_FlottenPIN._numbersOnlyTrennzeichen = True
Me.txtMautDE_FlottenPIN._Prozent = False
Me.txtMautDE_FlottenPIN._ShortDateNew = False
Me.txtMautDE_FlottenPIN._ShortDateOnly = False
Me.txtMautDE_FlottenPIN._TimeOnly = False
Me.txtMautDE_FlottenPIN._TimeOnly_Seconds = False
Me.txtMautDE_FlottenPIN._value = ""
Me.txtMautDE_FlottenPIN._Waehrung = False
Me.txtMautDE_FlottenPIN._WaehrungZeichen = True
@@ -1164,10 +1168,12 @@ Partial Class frmKundenblatt
Me.txtMautDEMasterPIN._DateTimeOnly = False
Me.txtMautDEMasterPIN._numbersOnly = True
Me.txtMautDEMasterPIN._numbersOnlyKommastellen = ""
Me.txtMautDEMasterPIN._numbersOnlyTrennzeichen = True
Me.txtMautDEMasterPIN._Prozent = False
Me.txtMautDEMasterPIN._ShortDateNew = False
Me.txtMautDEMasterPIN._ShortDateOnly = False
Me.txtMautDEMasterPIN._TimeOnly = False
Me.txtMautDEMasterPIN._TimeOnly_Seconds = False
Me.txtMautDEMasterPIN._value = ""
Me.txtMautDEMasterPIN._Waehrung = False
Me.txtMautDEMasterPIN._WaehrungZeichen = True

2026
SDL/kunden/usrCntlKundenuebersicht.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

2
SDL/kunden/usrCntlKundenuebersicht.resx
View File

@@ -117,7 +117,7 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="cntxtAddSdl.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<metadata name="cntxtAddVM.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />

139
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -2,6 +2,7 @@
Imports System.Globalization
Imports System.IO
Imports SDL.EORI
Imports sun.invoke.empty
Public Class usrCntlKundenuebersicht
'Implements INotifyPropertyChanged
@@ -102,7 +103,7 @@ Public Class usrCntlKundenuebersicht
Private Sub frmKundenUebersichtZOLL_Load(sender As Object, e As EventArgs) Handles Me.Load
Private Sub frmKundenUebersichtZOLL_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Try
Me.BER_STUFE = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("KUNDEN", "SDL")
@@ -296,7 +297,7 @@ Public Class usrCntlKundenuebersicht
loaded = True
End Sub
Private Sub pnlAbfVerb_MouseHover(sender As Object, e As EventArgs) Handles lblAbfertigungsverbot.MouseHover, rtbInfo.MouseHover
Private Sub pnlAbfVerb_MouseHover(sender As Object, e As EventArgs) Handles rtbInfo.MouseHover, lblAbfertigungsverbot.MouseHover
Dim p As New UserControl
' rtbInfo.Width = 450
rtbInfo.Height = 300
@@ -304,7 +305,7 @@ Public Class usrCntlKundenuebersicht
rtbInfo.Visible = True
End Sub
Private Sub lblAbfertigungsverbot_MouseLeave(sender As Object, e As EventArgs) Handles lblAbfertigungsverbot.MouseLeave, rtbInfo.MouseLeave
Private Sub lblAbfertigungsverbot_MouseLeave(sender As Object, e As EventArgs) Handles rtbInfo.MouseLeave, lblAbfertigungsverbot.MouseLeave
' rtbInfo.Visible = False
rtbInfo.Height = 26
@@ -773,9 +774,9 @@ Public Class usrCntlKundenuebersicht
where = " AND art.kdvma_Firma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr) & "' "
End If
.DataSource = SQL.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 " &
" FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) as abf on art.[kdvma_Id]=abf.[kdvm_kdvmaId] WHERE art.kdvma_visible=1 " & where &
" ORDER BY art.kdvma_id", "FMZOLL")
.DataSource = SQL.loadDgvBySql("SELECT * FROM (SELECT abf.kdvm_Id, art.kdvma_Id, art.kdvma_Bezeichnung, abf.[kdvm_KundenNr], abf.[kdvm_erhalten],abf.[kdvm_erhalten_Datum], abf.[kdvm_gueltig_bis], abf.kdvm_datenarchivId, abf.kdvm_Info, abf.[kdvm_vermerk], abf.[kdvm_archiviert],ROW_NUMBER() OVER(PARTITION BY art.kdvma_Id ORDER BY kdvm_archiviert asc, abf.kdvm_gueltig_bis asc, abf.kdvm_erhalten_Datum desc) RowNumber" &
" FROM [tblKundenVollmachtenArt] as art LEFT JOIN (select * from [tblKundenVollmachten] where [kdvm_KundenNr]='" & kdNr & "' ) 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 " & where &
" ) A WHERE RowNumber = 1", "FMZOLL")
' .RowTemplate.Height = 30
@@ -785,17 +786,47 @@ Public Class usrCntlKundenuebersicht
.Columns("kdvm_datenarchivId").Visible = False
.Columns("kdvma_Bezeichnung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("kdvma_Bezeichnung").HeaderText = "Bezeichnung"
.Columns("kdvm_erhalten").Width = 45
.Columns("kdvm_erhalten").Visible = False
.Columns("kdvm_erhalten").Width = 50
.Columns("kdvm_erhalten").HeaderText = "Erhalten"
.Columns("kdvm_erhalten").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_erhalten_Datum").Width = 100
.Columns("kdvm_erhalten_Datum").HeaderText = "Erhalten am"
.Columns("kdvm_erhalten_Datum").Width = 80
.Columns("kdvm_erhalten_Datum").HeaderText = "Gültig von"
.Columns("kdvm_erhalten_Datum").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_gueltig_bis").Width = 80
.Columns("kdvm_gueltig_bis").HeaderText = "Gültig bis"
.Columns("kdvm_gueltig_bis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopCenter
.Columns("kdvm_Info").Width = 200
.Columns("kdvm_Info").HeaderText = "Info"
.Columns("kdvm_Info").Visible = False
.Columns("kdvm_vermerk").Width = 10
.Columns("kdvm_vermerk").HeaderText = "Vermerk"
.Columns("kdvm_vermerk").Visible = False
.Columns("kdvm_archiviert").Visible = False
.Columns("RowNumber").Visible = False
If True Then
Dim c As New DataGridViewImageColumn
c.Name = "clmnVermerk" : c.HeaderText = ""
c.DefaultCellStyle.NullValue = Nothing
c.ImageLayout = DataGridViewImageCellLayout.Zoom
c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
c.DefaultCellStyle.Tag = "" '.Columns("kdvm_vermerk")
.Columns.Add(c)
For Each r As DataGridViewRow In .Rows
If r.Cells("kdvm_vermerk").Value IsNot DBNull.Value AndAlso r.Cells("kdvm_vermerk").Value IsNot "" Then
DirectCast(r.Cells("clmnVermerk"), DataGridViewImageCell).Value = My.Resources.warning2
DirectCast(r.Cells("clmnVermerk"), DataGridViewImageCell).ToolTipText = r.Cells("kdvm_vermerk").Value.ToString
End If
Next
End If
If True Then
Dim c As New DataGridViewImageColumn
@@ -832,12 +863,15 @@ Public Class usrCntlKundenuebersicht
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "UNISPED", "IMEX"
.Columns("clmnVermerk").Visible = True
.Columns("clmnTherefore").Visible = False
.Columns("clmnPDF").Visible = True
Case "FRONTOFFICE"
.Columns("clmnVermerk").Visible = True
.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
Case Else
.Columns("clmnVermerk").Visible = True
.Columns("clmnTherefore").Visible = True
.Columns("clmnPDF").Visible = True
End Select
@@ -860,6 +894,8 @@ Public Class usrCntlKundenuebersicht
End Sub
Sub initDGVGestGarantie()
With dgvGestGarantie
.Columns.Clear()
@@ -1527,12 +1563,16 @@ Public Class usrCntlKundenuebersicht
If tmprowindex < 0 Then Exit Sub
Dim frmGrayOut = cProgramFunctions.grayoutForm(Me)
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 frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten").Value, datum, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_datenarchivId").Value)
'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 frmKundenZOLLVollmachten(kdNr, dgvVollmachten.Rows(tmprowindex).Cells("kdvma_Id").Value)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
initDGVVollmachten()
l.initDGVVollmachtenEmbedded(False)
'initDGVVollmachten()
End If
frmGrayOut.Close()
initDGVVollmachten()
End If
End If
@@ -1559,7 +1599,7 @@ Public Class usrCntlKundenuebersicht
Private Sub dgvUmsatzbericht_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachten.SelectionChanged, dgvOffenePosten.SelectionChanged, dgvUmsatzbericht.SelectionChanged, dgvOfferteDetailsUebersicht.SelectionChanged ', dgvOffertenSperrliste.SelectionChanged
Private Sub dgvUmsatzbericht_SelectionChanged(sender As Object, e As EventArgs) Handles dgvVollmachten.SelectionChanged, dgvUmsatzbericht.SelectionChanged, dgvOfferteDetailsUebersicht.SelectionChanged, dgvOffenePosten.SelectionChanged ', dgvOffertenSperrliste.SelectionChanged
sender.ClearSelection()
End Sub
@@ -2310,33 +2350,8 @@ Public Class usrCntlKundenuebersicht
Me.Cursor = Cursors.Default
End Sub
Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click
If cboVertrag._value <> "" And datVertrag._value <> "" Then
Dim KV As New VERAG_PROG_ALLGEMEIN.cKundenVertraege
If Button12.Visible Then
If dgvVertraege.SelectedRows.Count = 1 Then
KV = New VERAG_PROG_ALLGEMEIN.cKundenVertraege(dgvVertraege.SelectedRows(0).Cells("kv_id").Value)
Else
Exit Sub
End If
End If
KV.kv_KundenNr = kdNr
KV.kv_erhalten_Datum = datVertrag._value
'KV.kv_Zollamt = If(cbxKV.Checked, "GENERELL", txtT1VerzollungsadresseBestimmungszollstelle._value)
Private Sub Button11_Click(sender As Object, e As EventArgs)
'If Not Button9.Visible AndAlso VERAG_PROG_ALLGEMEIN.cKundenVertraege.ENTRY_Exists(kdNr, KV.kv_Zollamt) Then
' MsgBox("Der Eintrag existiert bereits!")
' Exit Sub
'End If
KV.kv_vertragArtId = cboVertrag._value
KV.kv_Info = txtVertragVermerk.Text
If KV.SAVE Then
setKD(kdNr)
End If
clearKV()
End If
End Sub
Private Sub Button12_Click(sender As Object, e As EventArgs) Handles Button12.Click
@@ -2389,7 +2404,7 @@ Public Class usrCntlKundenuebersicht
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "KD_VERTRÄGE", "", "", "", "KV_" & dgvVertraege.SelectedRows(0).Cells("kv_id").Value, kdNr)
Dim frmScan As New VERAG_PROG_ALLGEMEIN.frmScan("DirectScan")
frmScan.DefaultFileName = DS.da_name
frmScan.DefaultFileName = DS.da_name
If frmScan.ShowDialog(Me) = DialogResult.OK Then
If frmScan.ReturnValue IsNot Nothing Then
@@ -2408,7 +2423,7 @@ Public Class usrCntlKundenuebersicht
End If
End Sub
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click, Button11.Click
If dgvVertraege.SelectedRows.Count = 1 Then
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
If vbYes = MsgBox("Möchten Sie das PDF wirklich löschen?", vbYesNoCancel) Then
@@ -2456,7 +2471,7 @@ Public Class usrCntlKundenuebersicht
Process.Start(PdfTmp)
End If
End Sub
End Sub
frmList.Show(Me)
End If
Case "EORI"
@@ -2502,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 frmKundenZOLLVollmachten(kdNr, W)
Dim l As New frmKundenZOLLVollmachten(kdNr, -1, W)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
initDGVVollmachten()
End If
@@ -2526,4 +2541,42 @@ Public Class usrCntlKundenuebersicht
Private Sub Panel5_Paint(sender As Object, e As PaintEventArgs) Handles Panel5.Paint
End Sub
Private Sub Button15_Click_1(sender As Object, e As EventArgs) Handles btnVMhinzufuegen.Click
Dim where = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Dim dt = SQL.loadDgvBySql("SELECT [kdvma_Id], [kdvma_Bezeichnung] FROM [tblKundenVollmachtenArt] where [kdvma_visible] = 1 AND [kdvma_Firma]='" & where & "'", "FMZOLL")
cntxtAddVM.Items.Clear()
For Each dr As DataRow In dt.Rows
Dim i As New ToolStripMenuItem
i.Text = dr.Item(1).ToString
i.Name = "kdvma_id_" & dr.Item(0).ToString
cntxtAddVM.Items.Add(i)
AddHandler i.Click, AddressOf DToolStripMenuItem_Click
Next
btnVMhinzufuegen.ContextMenuStrip = cntxtAddVM
Dim ptLowerLeft As New Point(sender.width, sender.Height)
ptLowerLeft = sender.PointToScreen(ptLowerLeft)
ptLowerLeft.X -= sender.width
cntxtAddVM.Show(ptLowerLeft)
End Sub
Private Sub DToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles DToolStripMenuItem.Click
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 frmKundenZOLLVollmachten(kdNr, vmaNr)
If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
End If
initDGVVollmachten()
End If
End Sub
Private Sub dgvVertraege_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVertraege.CellContentClick
End Sub
End Class

294
SDL/mdm/Besuchsberichte/frmBesuchsberichte.Designer.vb generated
View File

@@ -24,9 +24,9 @@ Partial Class frmBesuchsberichte
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmBesuchsberichte))
Me.Button14 = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.btnOK = New System.Windows.Forms.Button()
Me.btnSave = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
Me.txtVermerk = New System.Windows.Forms.RichTextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
@@ -63,7 +63,7 @@ Partial Class frmBesuchsberichte
Me.cbxFerry = New System.Windows.Forms.CheckBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.Label20 = New System.Windows.Forms.Label()
Me.Button3 = New System.Windows.Forms.Button()
Me.btnPDFReport = New System.Windows.Forms.Button()
Me.Label21 = New System.Windows.Forms.Label()
Me.lblErr_BesuchtAm = New System.Windows.Forms.Label()
Me.lblErr_Kontaktart = New System.Windows.Forms.Label()
@@ -86,55 +86,55 @@ Partial Class frmBesuchsberichte
Me.datBesuchtAm = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.MyPanel1 = New VERAG_PROG_ALLGEMEIN.MyPanel(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.pnlMain = New System.Windows.Forms.Panel()
Me.MyPanel1.SuspendLayout()
Me.Panel1.SuspendLayout()
Me.pnlMain.SuspendLayout()
Me.SuspendLayout()
'
'Button14
'btnOK
'
Me.Button14.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button14.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button14.ForeColor = System.Drawing.Color.Black
Me.Button14.Image = CType(resources.GetObject("Button14.Image"), System.Drawing.Image)
Me.Button14.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button14.Location = New System.Drawing.Point(834, 10)
Me.Button14.Name = "Button14"
Me.Button14.Size = New System.Drawing.Size(87, 39)
Me.Button14.TabIndex = 19
Me.Button14.Text = "OK"
Me.Button14.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button14.UseVisualStyleBackColor = True
Me.btnOK.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.ForeColor = System.Drawing.Color.Black
Me.btnOK.Image = CType(resources.GetObject("btnOK.Image"), System.Drawing.Image)
Me.btnOK.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnOK.Location = New System.Drawing.Point(834, 10)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(87, 39)
Me.btnOK.TabIndex = 19
Me.btnOK.Text = "OK"
Me.btnOK.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnOK.UseVisualStyleBackColor = True
'
'Button1
'btnSave
'
Me.Button1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.ForeColor = System.Drawing.Color.Black
Me.Button1.Image = CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(731, 10)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(97, 39)
Me.Button1.TabIndex = 20
Me.Button1.Text = "Speichern"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.UseVisualStyleBackColor = True
Me.btnSave.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSave.ForeColor = System.Drawing.Color.Black
Me.btnSave.Image = CType(resources.GetObject("btnSave.Image"), System.Drawing.Image)
Me.btnSave.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSave.Location = New System.Drawing.Point(731, 10)
Me.btnSave.Name = "btnSave"
Me.btnSave.Size = New System.Drawing.Size(97, 39)
Me.btnSave.TabIndex = 20
Me.btnSave.Text = "Speichern"
Me.btnSave.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnSave.UseVisualStyleBackColor = True
'
'Button2
'btnCancel
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.ForeColor = System.Drawing.Color.Black
Me.Button2.Image = Global.SDL.My.Resources.Resources.del
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(12, 10)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(113, 39)
Me.Button2.TabIndex = 21
Me.Button2.Text = "Abbrechen"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.UseVisualStyleBackColor = True
Me.btnCancel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCancel.ForeColor = System.Drawing.Color.Black
Me.btnCancel.Image = Global.SDL.My.Resources.Resources.del
Me.btnCancel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnCancel.Location = New System.Drawing.Point(12, 10)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(113, 39)
Me.btnCancel.TabIndex = 21
Me.btnCancel.Text = "Abbrechen"
Me.btnCancel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCancel.UseVisualStyleBackColor = True
'
'txtVermerk
'
@@ -469,20 +469,20 @@ Partial Class frmBesuchsberichte
Me.Label20.TabIndex = 79
Me.Label20.Text = "Anhänge:"
'
'Button3
'btnPDFReport
'
Me.Button3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.ForeColor = System.Drawing.Color.Black
Me.Button3.Image = Global.SDL.My.Resources.Resources.pdf1
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(368, 10)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(107, 39)
Me.Button3.TabIndex = 80
Me.Button3.Text = "Bericht"
Me.Button3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.UseVisualStyleBackColor = True
Me.btnPDFReport.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnPDFReport.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnPDFReport.ForeColor = System.Drawing.Color.Black
Me.btnPDFReport.Image = Global.SDL.My.Resources.Resources.pdf1
Me.btnPDFReport.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnPDFReport.Location = New System.Drawing.Point(368, 10)
Me.btnPDFReport.Name = "btnPDFReport"
Me.btnPDFReport.Size = New System.Drawing.Size(107, 39)
Me.btnPDFReport.TabIndex = 80
Me.btnPDFReport.Text = "Bericht"
Me.btnPDFReport.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnPDFReport.UseVisualStyleBackColor = True
'
'Label21
'
@@ -564,10 +564,12 @@ Partial Class frmBesuchsberichte
Me.txtZufriedenNEIN._DateTimeOnly = False
Me.txtZufriedenNEIN._numbersOnly = False
Me.txtZufriedenNEIN._numbersOnlyKommastellen = ""
Me.txtZufriedenNEIN._numbersOnlyTrennzeichen = True
Me.txtZufriedenNEIN._Prozent = False
Me.txtZufriedenNEIN._ShortDateNew = False
Me.txtZufriedenNEIN._ShortDateOnly = False
Me.txtZufriedenNEIN._TimeOnly = False
Me.txtZufriedenNEIN._TimeOnly_Seconds = False
Me.txtZufriedenNEIN._value = ""
Me.txtZufriedenNEIN._Waehrung = False
Me.txtZufriedenNEIN._WaehrungZeichen = True
@@ -587,10 +589,12 @@ Partial Class frmBesuchsberichte
Me.txtDerzeitigerLieferant._DateTimeOnly = False
Me.txtDerzeitigerLieferant._numbersOnly = False
Me.txtDerzeitigerLieferant._numbersOnlyKommastellen = ""
Me.txtDerzeitigerLieferant._numbersOnlyTrennzeichen = True
Me.txtDerzeitigerLieferant._Prozent = False
Me.txtDerzeitigerLieferant._ShortDateNew = False
Me.txtDerzeitigerLieferant._ShortDateOnly = False
Me.txtDerzeitigerLieferant._TimeOnly = False
Me.txtDerzeitigerLieferant._TimeOnly_Seconds = False
Me.txtDerzeitigerLieferant._value = ""
Me.txtDerzeitigerLieferant._Waehrung = False
Me.txtDerzeitigerLieferant._WaehrungZeichen = True
@@ -609,10 +613,12 @@ Partial Class frmBesuchsberichte
Me.txtTransportRoute._DateTimeOnly = False
Me.txtTransportRoute._numbersOnly = False
Me.txtTransportRoute._numbersOnlyKommastellen = ""
Me.txtTransportRoute._numbersOnlyTrennzeichen = True
Me.txtTransportRoute._Prozent = False
Me.txtTransportRoute._ShortDateNew = False
Me.txtTransportRoute._ShortDateOnly = False
Me.txtTransportRoute._TimeOnly = False
Me.txtTransportRoute._TimeOnly_Seconds = False
Me.txtTransportRoute._value = ""
Me.txtTransportRoute._Waehrung = False
Me.txtTransportRoute._WaehrungZeichen = True
@@ -631,10 +637,12 @@ Partial Class frmBesuchsberichte
Me.txtFuhrparkLeasing._DateTimeOnly = False
Me.txtFuhrparkLeasing._numbersOnly = False
Me.txtFuhrparkLeasing._numbersOnlyKommastellen = ""
Me.txtFuhrparkLeasing._numbersOnlyTrennzeichen = True
Me.txtFuhrparkLeasing._Prozent = False
Me.txtFuhrparkLeasing._ShortDateNew = False
Me.txtFuhrparkLeasing._ShortDateOnly = False
Me.txtFuhrparkLeasing._TimeOnly = False
Me.txtFuhrparkLeasing._TimeOnly_Seconds = False
Me.txtFuhrparkLeasing._value = ""
Me.txtFuhrparkLeasing._Waehrung = False
Me.txtFuhrparkLeasing._WaehrungZeichen = True
@@ -653,10 +661,12 @@ Partial Class frmBesuchsberichte
Me.txtFuhrparkEigene._DateTimeOnly = False
Me.txtFuhrparkEigene._numbersOnly = False
Me.txtFuhrparkEigene._numbersOnlyKommastellen = ""
Me.txtFuhrparkEigene._numbersOnlyTrennzeichen = True
Me.txtFuhrparkEigene._Prozent = False
Me.txtFuhrparkEigene._ShortDateNew = False
Me.txtFuhrparkEigene._ShortDateOnly = False
Me.txtFuhrparkEigene._TimeOnly = False
Me.txtFuhrparkEigene._TimeOnly_Seconds = False
Me.txtFuhrparkEigene._value = ""
Me.txtFuhrparkEigene._Waehrung = False
Me.txtFuhrparkEigene._WaehrungZeichen = True
@@ -675,10 +685,12 @@ Partial Class frmBesuchsberichte
Me.txtUmsatz._DateTimeOnly = False
Me.txtUmsatz._numbersOnly = False
Me.txtUmsatz._numbersOnlyKommastellen = ""
Me.txtUmsatz._numbersOnlyTrennzeichen = True
Me.txtUmsatz._Prozent = False
Me.txtUmsatz._ShortDateNew = False
Me.txtUmsatz._ShortDateOnly = False
Me.txtUmsatz._TimeOnly = False
Me.txtUmsatz._TimeOnly_Seconds = False
Me.txtUmsatz._value = ""
Me.txtUmsatz._Waehrung = False
Me.txtUmsatz._WaehrungZeichen = True
@@ -696,10 +708,12 @@ Partial Class frmBesuchsberichte
Me.txtGF._DateTimeOnly = False
Me.txtGF._numbersOnly = False
Me.txtGF._numbersOnlyKommastellen = ""
Me.txtGF._numbersOnlyTrennzeichen = True
Me.txtGF._Prozent = False
Me.txtGF._ShortDateNew = False
Me.txtGF._ShortDateOnly = False
Me.txtGF._TimeOnly = False
Me.txtGF._TimeOnly_Seconds = False
Me.txtGF._value = ""
Me.txtGF._Waehrung = False
Me.txtGF._WaehrungZeichen = True
@@ -718,10 +732,12 @@ Partial Class frmBesuchsberichte
Me.txtMail._DateTimeOnly = False
Me.txtMail._numbersOnly = False
Me.txtMail._numbersOnlyKommastellen = ""
Me.txtMail._numbersOnlyTrennzeichen = True
Me.txtMail._Prozent = False
Me.txtMail._ShortDateNew = False
Me.txtMail._ShortDateOnly = False
Me.txtMail._TimeOnly = False
Me.txtMail._TimeOnly_Seconds = False
Me.txtMail._value = ""
Me.txtMail._Waehrung = False
Me.txtMail._WaehrungZeichen = True
@@ -740,10 +756,12 @@ Partial Class frmBesuchsberichte
Me.txtTel._DateTimeOnly = False
Me.txtTel._numbersOnly = False
Me.txtTel._numbersOnlyKommastellen = ""
Me.txtTel._numbersOnlyTrennzeichen = True
Me.txtTel._Prozent = False
Me.txtTel._ShortDateNew = False
Me.txtTel._ShortDateOnly = False
Me.txtTel._TimeOnly = False
Me.txtTel._TimeOnly_Seconds = False
Me.txtTel._value = ""
Me.txtTel._Waehrung = False
Me.txtTel._WaehrungZeichen = True
@@ -762,10 +780,12 @@ Partial Class frmBesuchsberichte
Me.txtAnsprechpartner._DateTimeOnly = False
Me.txtAnsprechpartner._numbersOnly = False
Me.txtAnsprechpartner._numbersOnlyKommastellen = ""
Me.txtAnsprechpartner._numbersOnlyTrennzeichen = True
Me.txtAnsprechpartner._Prozent = False
Me.txtAnsprechpartner._ShortDateNew = False
Me.txtAnsprechpartner._ShortDateOnly = False
Me.txtAnsprechpartner._TimeOnly = False
Me.txtAnsprechpartner._TimeOnly_Seconds = False
Me.txtAnsprechpartner._value = ""
Me.txtAnsprechpartner._Waehrung = False
Me.txtAnsprechpartner._WaehrungZeichen = True
@@ -811,10 +831,12 @@ Partial Class frmBesuchsberichte
Me.txtTeilgenommen._DateTimeOnly = False
Me.txtTeilgenommen._numbersOnly = False
Me.txtTeilgenommen._numbersOnlyKommastellen = ""
Me.txtTeilgenommen._numbersOnlyTrennzeichen = True
Me.txtTeilgenommen._Prozent = False
Me.txtTeilgenommen._ShortDateNew = False
Me.txtTeilgenommen._ShortDateOnly = False
Me.txtTeilgenommen._TimeOnly = False
Me.txtTeilgenommen._TimeOnly_Seconds = False
Me.txtTeilgenommen._value = ""
Me.txtTeilgenommen._Waehrung = False
Me.txtTeilgenommen._WaehrungZeichen = True
@@ -833,10 +855,12 @@ Partial Class frmBesuchsberichte
Me.datBesuchtAm._DateTimeOnly = False
Me.datBesuchtAm._numbersOnly = False
Me.datBesuchtAm._numbersOnlyKommastellen = ""
Me.datBesuchtAm._numbersOnlyTrennzeichen = True
Me.datBesuchtAm._Prozent = False
Me.datBesuchtAm._ShortDateNew = True
Me.datBesuchtAm._ShortDateOnly = False
Me.datBesuchtAm._TimeOnly = False
Me.datBesuchtAm._TimeOnly_Seconds = False
Me.datBesuchtAm._value = ""
Me.datBesuchtAm._Waehrung = False
Me.datBesuchtAm._WaehrungZeichen = True
@@ -866,87 +890,87 @@ Partial Class frmBesuchsberichte
Me.UsrcntlPDFScanList1.Location = New System.Drawing.Point(624, 62)
Me.UsrcntlPDFScanList1.Margin = New System.Windows.Forms.Padding(0)
Me.UsrcntlPDFScanList1.Name = "UsrcntlPDFScanList1"
Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(297, 547)
Me.UsrcntlPDFScanList1.Size = New System.Drawing.Size(297, 551)
Me.UsrcntlPDFScanList1.TabIndex = 0
'
'MyPanel1
'
Me.MyPanel1.BackColor = System.Drawing.Color.WhiteSmoke
Me.MyPanel1.Controls.Add(Me.Button2)
Me.MyPanel1.Controls.Add(Me.Button14)
Me.MyPanel1.Controls.Add(Me.Button1)
Me.MyPanel1.Controls.Add(Me.Button3)
Me.MyPanel1.Controls.Add(Me.btnCancel)
Me.MyPanel1.Controls.Add(Me.btnOK)
Me.MyPanel1.Controls.Add(Me.btnSave)
Me.MyPanel1.Controls.Add(Me.btnPDFReport)
Me.MyPanel1.Dock = System.Windows.Forms.DockStyle.Bottom
Me.MyPanel1.Location = New System.Drawing.Point(0, 859)
Me.MyPanel1.Name = "MyPanel1"
Me.MyPanel1.Size = New System.Drawing.Size(930, 59)
Me.MyPanel1.TabIndex = 87
'
'Panel1
'pnlMain
'
Me.Panel1.AutoScroll = True
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.UsrcntlPDFScanList1)
Me.Panel1.Controls.Add(Me.lblErr_Teilgenommen)
Me.Panel1.Controls.Add(Me.txtVermerk)
Me.Panel1.Controls.Add(Me.lblErr_Firma)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.lblErr_Kontaktart)
Me.Panel1.Controls.Add(Me.datBesuchtAm)
Me.Panel1.Controls.Add(Me.lblErr_BesuchtAm)
Me.Panel1.Controls.Add(Me.txtTeilgenommen)
Me.Panel1.Controls.Add(Me.Label21)
Me.Panel1.Controls.Add(Me.Label3)
Me.Panel1.Controls.Add(Me.cboKontaktart)
Me.Panel1.Controls.Add(Me.Label4)
Me.Panel1.Controls.Add(Me.Label20)
Me.Panel1.Controls.Add(Me.kdFirma)
Me.Panel1.Controls.Add(Me.Label19)
Me.Panel1.Controls.Add(Me.txtFirma)
Me.Panel1.Controls.Add(Me.cbxFerry)
Me.Panel1.Controls.Add(Me.Label5)
Me.Panel1.Controls.Add(Me.cbxYesMonex)
Me.Panel1.Controls.Add(Me.txtAnsprechpartner)
Me.Panel1.Controls.Add(Me.cbxRola)
Me.Panel1.Controls.Add(Me.Label6)
Me.Panel1.Controls.Add(Me.cbxLagerUmschlag)
Me.Panel1.Controls.Add(Me.Label7)
Me.Panel1.Controls.Add(Me.cbxParkplatz)
Me.Panel1.Controls.Add(Me.txtTel)
Me.Panel1.Controls.Add(Me.cbxBrexit)
Me.Panel1.Controls.Add(Me.txtMail)
Me.Panel1.Controls.Add(Me.cbxZollabfertigung)
Me.Panel1.Controls.Add(Me.Label8)
Me.Panel1.Controls.Add(Me.Label18)
Me.Panel1.Controls.Add(Me.txtGF)
Me.Panel1.Controls.Add(Me.txtGarantie)
Me.Panel1.Controls.Add(Me.Label9)
Me.Panel1.Controls.Add(Me.Label17)
Me.Panel1.Controls.Add(Me.txtUmsatz)
Me.Panel1.Controls.Add(Me.Label16)
Me.Panel1.Controls.Add(Me.Label10)
Me.Panel1.Controls.Add(Me.cboZufrieden)
Me.Panel1.Controls.Add(Me.txtFuhrparkEigene)
Me.Panel1.Controls.Add(Me.txtZufriedenNEIN)
Me.Panel1.Controls.Add(Me.txtFuhrparkLeasing)
Me.Panel1.Controls.Add(Me.txtDerzeitigerLieferant)
Me.Panel1.Controls.Add(Me.cbxPlane)
Me.Panel1.Controls.Add(Me.Label15)
Me.Panel1.Controls.Add(Me.cbxKuehltransporte)
Me.Panel1.Controls.Add(Me.Label14)
Me.Panel1.Controls.Add(Me.cbxSondertransporte)
Me.Panel1.Controls.Add(Me.txtTransportRoute)
Me.Panel1.Controls.Add(Me.cbxSprinter)
Me.Panel1.Controls.Add(Me.txtAuftraggeber)
Me.Panel1.Controls.Add(Me.cbxSiloTank)
Me.Panel1.Controls.Add(Me.Label13)
Me.Panel1.Controls.Add(Me.Label11)
Me.Panel1.Controls.Add(Me.Label12)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(930, 859)
Me.Panel1.TabIndex = 0
Me.pnlMain.AutoScroll = True
Me.pnlMain.Controls.Add(Me.Label1)
Me.pnlMain.Controls.Add(Me.UsrcntlPDFScanList1)
Me.pnlMain.Controls.Add(Me.lblErr_Teilgenommen)
Me.pnlMain.Controls.Add(Me.txtVermerk)
Me.pnlMain.Controls.Add(Me.lblErr_Firma)
Me.pnlMain.Controls.Add(Me.Label2)
Me.pnlMain.Controls.Add(Me.lblErr_Kontaktart)
Me.pnlMain.Controls.Add(Me.datBesuchtAm)
Me.pnlMain.Controls.Add(Me.lblErr_BesuchtAm)
Me.pnlMain.Controls.Add(Me.txtTeilgenommen)
Me.pnlMain.Controls.Add(Me.Label21)
Me.pnlMain.Controls.Add(Me.Label3)
Me.pnlMain.Controls.Add(Me.cboKontaktart)
Me.pnlMain.Controls.Add(Me.Label4)
Me.pnlMain.Controls.Add(Me.Label20)
Me.pnlMain.Controls.Add(Me.kdFirma)
Me.pnlMain.Controls.Add(Me.Label19)
Me.pnlMain.Controls.Add(Me.txtFirma)
Me.pnlMain.Controls.Add(Me.cbxFerry)
Me.pnlMain.Controls.Add(Me.Label5)
Me.pnlMain.Controls.Add(Me.cbxYesMonex)
Me.pnlMain.Controls.Add(Me.txtAnsprechpartner)
Me.pnlMain.Controls.Add(Me.cbxRola)
Me.pnlMain.Controls.Add(Me.Label6)
Me.pnlMain.Controls.Add(Me.cbxLagerUmschlag)
Me.pnlMain.Controls.Add(Me.Label7)
Me.pnlMain.Controls.Add(Me.cbxParkplatz)
Me.pnlMain.Controls.Add(Me.txtTel)
Me.pnlMain.Controls.Add(Me.cbxBrexit)
Me.pnlMain.Controls.Add(Me.txtMail)
Me.pnlMain.Controls.Add(Me.cbxZollabfertigung)
Me.pnlMain.Controls.Add(Me.Label8)
Me.pnlMain.Controls.Add(Me.Label18)
Me.pnlMain.Controls.Add(Me.txtGF)
Me.pnlMain.Controls.Add(Me.txtGarantie)
Me.pnlMain.Controls.Add(Me.Label9)
Me.pnlMain.Controls.Add(Me.Label17)
Me.pnlMain.Controls.Add(Me.txtUmsatz)
Me.pnlMain.Controls.Add(Me.Label16)
Me.pnlMain.Controls.Add(Me.Label10)
Me.pnlMain.Controls.Add(Me.cboZufrieden)
Me.pnlMain.Controls.Add(Me.txtFuhrparkEigene)
Me.pnlMain.Controls.Add(Me.txtZufriedenNEIN)
Me.pnlMain.Controls.Add(Me.txtFuhrparkLeasing)
Me.pnlMain.Controls.Add(Me.txtDerzeitigerLieferant)
Me.pnlMain.Controls.Add(Me.cbxPlane)
Me.pnlMain.Controls.Add(Me.Label15)
Me.pnlMain.Controls.Add(Me.cbxKuehltransporte)
Me.pnlMain.Controls.Add(Me.Label14)
Me.pnlMain.Controls.Add(Me.cbxSondertransporte)
Me.pnlMain.Controls.Add(Me.txtTransportRoute)
Me.pnlMain.Controls.Add(Me.cbxSprinter)
Me.pnlMain.Controls.Add(Me.txtAuftraggeber)
Me.pnlMain.Controls.Add(Me.cbxSiloTank)
Me.pnlMain.Controls.Add(Me.Label13)
Me.pnlMain.Controls.Add(Me.Label11)
Me.pnlMain.Controls.Add(Me.Label12)
Me.pnlMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.pnlMain.Location = New System.Drawing.Point(0, 0)
Me.pnlMain.Name = "pnlMain"
Me.pnlMain.Size = New System.Drawing.Size(930, 859)
Me.pnlMain.TabIndex = 0
'
'frmBesuchsberichte
'
@@ -954,23 +978,23 @@ Partial Class frmBesuchsberichte
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(930, 918)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnlMain)
Me.Controls.Add(Me.MyPanel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmBesuchsberichte"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Besuchsbericht"
Me.MyPanel1.ResumeLayout(False)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.pnlMain.ResumeLayout(False)
Me.pnlMain.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents UsrcntlPDFScanList1 As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents Button14 As Button
Friend WithEvents Button1 As Button
Friend WithEvents Button2 As Button
Friend WithEvents btnOK As Button
Friend WithEvents btnSave As Button
Friend WithEvents btnCancel As Button
Friend WithEvents txtVermerk As RichTextBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
@@ -1021,7 +1045,7 @@ Partial Class frmBesuchsberichte
Friend WithEvents cbxFerry As CheckBox
Friend WithEvents Label19 As Label
Friend WithEvents Label20 As Label
Friend WithEvents Button3 As Button
Friend WithEvents btnPDFReport As Button
Friend WithEvents cboKontaktart As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label21 As Label
Friend WithEvents lblErr_BesuchtAm As Label
@@ -1029,5 +1053,5 @@ Partial Class frmBesuchsberichte
Friend WithEvents lblErr_Firma As Label
Friend WithEvents lblErr_Teilgenommen As Label
Friend WithEvents MyPanel1 As VERAG_PROG_ALLGEMEIN.MyPanel
Friend WithEvents Panel1 As Panel
Friend WithEvents pnlMain As Panel
End Class

4
SDL/mdm/Besuchsberichte/frmBesuchsberichte.resx
View File

@@ -118,7 +118,7 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="Button14.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="btnOK.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAA+9JREFUSEu9
1klMG1cYB3ADZrExizfAYOxiEGACCS47KBTSQEIgikLSpJWqJIemPTSVUlSpVlSRHEgvlWjopT0EeuBU
@@ -140,7 +140,7 @@
FEaPY4mTFJJ6co823Pd0fUp+pcLwB13/pHM2JK4ajYO8aVLg+wHNP9/gygoUfWs4AAAAAElFTkSuQmCC
</value>
</data>
<data name="Button1.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<data name="btnSave.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
iVBORw0KGgoAAAANSUhEUgAAABwAAAAcCAYAAAByDd+UAAAABGdBTUEAALGPC/xhBQAAA+9JREFUSEu9
1klMG1cYB3ADZrExizfAYOxiEGACCS47KBTSQEIgikLSpJWqJIemPTSVUlSpVlSRHEgvlWjopT0EeuBU

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

@@ -135,20 +135,20 @@
Return BB.SAVE()
End Function
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
If getvalues(BB) Then
UsrcntlPDFScanList1.Enabled = True
UsrcntlPDFScanList1.INIT(-1, "BESUCHSBERICHTE", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA, bb_id)
End If
End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
If getvalues(BB) Then
Me.Close()
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click
Me.Close()
End Sub
@@ -164,4 +164,11 @@
Return True
End Function
Private Sub UsrcntlPDFScanList1_Load(sender As Object, e As EventArgs) Handles UsrcntlPDFScanList1.Load
End Sub
Private Sub btnPDFReport_Click(sender As Object, e As EventArgs) Handles btnPDFReport.Click
End Sub
End Class