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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-12 14:49:31 +01:00
parent f4c1a74870
commit cc28d5a6cf
197 changed files with 37402 additions and 4503 deletions
Download Patch File Download Diff File Expand all files Collapse all files

106
SDL/kunden/Vorauskasse/frmVorauskasse.Designer.vb generated
View File

@@ -1,9 +1,9 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmVorauskasse
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,7 +20,7 @@ Partial Class frmVorauskasse
'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(frmVorauskasse))
@@ -63,10 +63,12 @@ Partial Class frmVorauskasse
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button2 = New System.Windows.Forms.Button()
Me.pnloptions = New System.Windows.Forms.Panel()
Me.btnDel = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.txtAuswahlAbfNr = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Button3 = New System.Windows.Forms.Button()
Me.pnlBH = New System.Windows.Forms.Panel()
Me.Button4 = New System.Windows.Forms.Button()
Me.btnBuchungAufheben = New System.Windows.Forms.Button()
Me.txtBemerkung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label5 = New System.Windows.Forms.Label()
@@ -76,7 +78,6 @@ Partial Class frmVorauskasse
Me.lblErgebnis = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label()
Me.txtMaxSrch = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.btnDel = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.pnlTop.SuspendLayout()
Me.Panel1.SuspendLayout()
@@ -125,7 +126,7 @@ Partial Class frmVorauskasse
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
Me.pnl.Location = New System.Drawing.Point(0, 0)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(1113, 162)
Me.pnl.Size = New System.Drawing.Size(1199, 162)
Me.pnl.TabIndex = 0
'
'txtBetrag
@@ -139,6 +140,7 @@ Partial Class frmVorauskasse
Me.txtBetrag._TimeOnly = False
Me.txtBetrag._value = Nothing
Me.txtBetrag._Waehrung = True
Me.txtBetrag._WaehrungZeichen = True
Me.txtBetrag.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBetrag.ForeColor = System.Drawing.Color.Black
Me.txtBetrag.Location = New System.Drawing.Point(642, 129)
@@ -171,6 +173,7 @@ Partial Class frmVorauskasse
Me.txtFirma._TimeOnly = False
Me.txtFirma._value = Nothing
Me.txtFirma._Waehrung = False
Me.txtFirma._WaehrungZeichen = True
Me.txtFirma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtFirma.ForeColor = System.Drawing.Color.Black
Me.txtFirma.Location = New System.Drawing.Point(376, 129)
@@ -202,6 +205,7 @@ Partial Class frmVorauskasse
Me.MyTextBox1._TimeOnly = False
Me.MyTextBox1._value = Nothing
Me.MyTextBox1._Waehrung = False
Me.MyTextBox1._WaehrungZeichen = True
Me.MyTextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MyTextBox1.ForeColor = System.Drawing.Color.Black
Me.MyTextBox1.Location = New System.Drawing.Point(376, 110)
@@ -247,6 +251,7 @@ Partial Class frmVorauskasse
Me.txtAbfertDat._TimeOnly = False
Me.txtAbfertDat._value = ""
Me.txtAbfertDat._Waehrung = False
Me.txtAbfertDat._WaehrungZeichen = True
Me.txtAbfertDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDat.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDat.Location = New System.Drawing.Point(41, 77)
@@ -269,6 +274,7 @@ Partial Class frmVorauskasse
Me.txtAbfertDatBis._TimeOnly = False
Me.txtAbfertDatBis._value = ""
Me.txtAbfertDatBis._Waehrung = False
Me.txtAbfertDatBis._WaehrungZeichen = True
Me.txtAbfertDatBis.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertDatBis.ForeColor = System.Drawing.Color.Black
Me.txtAbfertDatBis.Location = New System.Drawing.Point(41, 106)
@@ -318,6 +324,7 @@ Partial Class frmVorauskasse
Me.txtAbfertigungsnummer._TimeOnly = False
Me.txtAbfertigungsnummer._value = ""
Me.txtAbfertigungsnummer._Waehrung = False
Me.txtAbfertigungsnummer._WaehrungZeichen = True
Me.txtAbfertigungsnummer.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAbfertigungsnummer.ForeColor = System.Drawing.Color.Black
Me.txtAbfertigungsnummer.Location = New System.Drawing.Point(417, 77)
@@ -377,7 +384,7 @@ Partial Class frmVorauskasse
'
Me.btnSuche.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnSuche.Image = Global.SDL.My.Resources.search
Me.btnSuche.Image = Global.SDL.My.Resources.Resources.search
Me.btnSuche.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnSuche.Location = New System.Drawing.Point(923, 72)
Me.btnSuche.Name = "btnSuche"
@@ -434,7 +441,7 @@ Partial Class frmVorauskasse
Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
Me.pnlTop.Location = New System.Drawing.Point(0, 0)
Me.pnlTop.Name = "pnlTop"
Me.pnlTop.Size = New System.Drawing.Size(1111, 48)
Me.pnlTop.Size = New System.Drawing.Size(1197, 48)
Me.pnlTop.TabIndex = 34
'
'Label4
@@ -600,7 +607,7 @@ Partial Class frmVorauskasse
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 162)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1113, 399)
Me.Panel1.Size = New System.Drawing.Size(1199, 399)
Me.Panel1.TabIndex = 1
'
'MyDatagridview1
@@ -615,14 +622,14 @@ Partial Class frmVorauskasse
Me.MyDatagridview1.Location = New System.Drawing.Point(0, 0)
Me.MyDatagridview1.Name = "MyDatagridview1"
Me.MyDatagridview1.RowHeadersVisible = False
Me.MyDatagridview1.Size = New System.Drawing.Size(1113, 399)
Me.MyDatagridview1.Size = New System.Drawing.Size(1199, 399)
Me.MyDatagridview1.TabIndex = 0
'
'Button2
'
Me.Button2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Image = Global.SDL.My.Resources.plus
Me.Button2.Image = Global.SDL.My.Resources.Resources.plus
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.Location = New System.Drawing.Point(148, 342)
Me.Button2.Margin = New System.Windows.Forms.Padding(0)
@@ -651,14 +658,30 @@ Partial Class frmVorauskasse
Me.pnloptions.Dock = System.Windows.Forms.DockStyle.Bottom
Me.pnloptions.Location = New System.Drawing.Point(0, 561)
Me.pnloptions.Name = "pnloptions"
Me.pnloptions.Size = New System.Drawing.Size(1113, 59)
Me.pnloptions.Size = New System.Drawing.Size(1199, 59)
Me.pnloptions.TabIndex = 2
'
'btnDel
'
Me.btnDel.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnDel.Image = Global.SDL.My.Resources.Resources.del_small
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDel.Location = New System.Drawing.Point(965, 3)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(137, 21)
Me.btnDel.TabIndex = 73
Me.btnDel.Text = "Vorauskasse löschen"
Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDel.UseVisualStyleBackColor = True
Me.btnDel.Visible = False
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label8.Location = New System.Drawing.Point(656, 15)
Me.Label8.Location = New System.Drawing.Point(799, 15)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(83, 13)
Me.Label8.TabIndex = 70
@@ -675,9 +698,10 @@ Partial Class frmVorauskasse
Me.txtAuswahlAbfNr._TimeOnly = False
Me.txtAuswahlAbfNr._value = Nothing
Me.txtAuswahlAbfNr._Waehrung = False
Me.txtAuswahlAbfNr._WaehrungZeichen = True
Me.txtAuswahlAbfNr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtAuswahlAbfNr.ForeColor = System.Drawing.Color.Black
Me.txtAuswahlAbfNr.Location = New System.Drawing.Point(659, 30)
Me.txtAuswahlAbfNr.Location = New System.Drawing.Point(802, 30)
Me.txtAuswahlAbfNr.MaxLineLength = -1
Me.txtAuswahlAbfNr.MaxLines_Warning = ""
Me.txtAuswahlAbfNr.MaxLines_Warning_Label = Nothing
@@ -689,7 +713,7 @@ Partial Class frmVorauskasse
'
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.Button3.Image = Global.SDL.My.Resources.del_small
Me.Button3.Image = Global.SDL.My.Resources.Resources.del_small
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button3.Location = New System.Drawing.Point(12, 15)
Me.Button3.Name = "Button3"
@@ -702,21 +726,35 @@ Partial Class frmVorauskasse
'pnlBH
'
Me.pnlBH.BackColor = System.Drawing.SystemColors.Control
Me.pnlBH.Controls.Add(Me.Button4)
Me.pnlBH.Controls.Add(Me.btnBuchungAufheben)
Me.pnlBH.Controls.Add(Me.txtBemerkung)
Me.pnlBH.Controls.Add(Me.Label5)
Me.pnlBH.Controls.Add(Me.Button1)
Me.pnlBH.Location = New System.Drawing.Point(169, 0)
Me.pnlBH.Name = "pnlBH"
Me.pnlBH.Size = New System.Drawing.Size(481, 59)
Me.pnlBH.Size = New System.Drawing.Size(627, 59)
Me.pnlBH.TabIndex = 72
Me.pnlBH.Visible = False
'
'Button4
'
Me.Button4.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button4.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button4.Image = Global.SDL.My.Resources.Resources.rechnung1
Me.Button4.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button4.Location = New System.Drawing.Point(466, 15)
Me.Button4.Name = "Button4"
Me.Button4.Size = New System.Drawing.Size(161, 35)
Me.Button4.TabIndex = 70
Me.Button4.Text = " Abf. Freigeben"
Me.Button4.UseVisualStyleBackColor = True
'
'btnBuchungAufheben
'
Me.btnBuchungAufheben.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBuchungAufheben.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnBuchungAufheben.Image = Global.SDL.My.Resources.del_small
Me.btnBuchungAufheben.Image = Global.SDL.My.Resources.Resources.del_small
Me.btnBuchungAufheben.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnBuchungAufheben.Location = New System.Drawing.Point(331, 4)
Me.btnBuchungAufheben.Name = "btnBuchungAufheben"
@@ -738,6 +776,7 @@ Partial Class frmVorauskasse
Me.txtBemerkung._TimeOnly = False
Me.txtBemerkung._value = Nothing
Me.txtBemerkung._Waehrung = False
Me.txtBemerkung._WaehrungZeichen = True
Me.txtBemerkung.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBemerkung.ForeColor = System.Drawing.Color.Black
Me.txtBemerkung.Location = New System.Drawing.Point(238, 30)
@@ -762,7 +801,7 @@ Partial Class frmVorauskasse
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button1.Image = Global.SDL.My.Resources.rechnung1
Me.Button1.Image = Global.SDL.My.Resources.Resources.rechnung1
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(5, 15)
Me.Button1.Name = "Button1"
@@ -774,10 +813,10 @@ Partial Class frmVorauskasse
'btnExcel
'
Me.btnExcel.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Excel_logo
Me.btnExcel.BackgroundImage = Global.SDL.My.Resources.Resources.Excel_logo
Me.btnExcel.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Center
Me.btnExcel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnExcel.Location = New System.Drawing.Point(1022, 22)
Me.btnExcel.Location = New System.Drawing.Point(1108, 22)
Me.btnExcel.Name = "btnExcel"
Me.btnExcel.Size = New System.Drawing.Size(41, 34)
Me.btnExcel.TabIndex = 67
@@ -786,13 +825,13 @@ Partial Class frmVorauskasse
'FlatButton7
'
Me.FlatButton7.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.refresh
Me.FlatButton7.BackgroundImage = Global.SDL.My.Resources.Resources.refresh
Me.FlatButton7.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.FlatButton7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.FlatButton7.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.FlatButton7.ForeColor = System.Drawing.Color.Black
Me.FlatButton7.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.FlatButton7.Location = New System.Drawing.Point(1069, 22)
Me.FlatButton7.Location = New System.Drawing.Point(1155, 22)
Me.FlatButton7.Name = "FlatButton7"
Me.FlatButton7.Size = New System.Drawing.Size(41, 34)
Me.FlatButton7.TabIndex = 68
@@ -801,7 +840,7 @@ Partial Class frmVorauskasse
'lblErgebnis
'
Me.lblErgebnis.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblErgebnis.Location = New System.Drawing.Point(895, 5)
Me.lblErgebnis.Location = New System.Drawing.Point(981, 5)
Me.lblErgebnis.Name = "lblErgebnis"
Me.lblErgebnis.Size = New System.Drawing.Size(215, 14)
Me.lblErgebnis.TabIndex = 66
@@ -812,7 +851,7 @@ Partial Class frmVorauskasse
'
Me.Label37.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label37.AutoSize = True
Me.Label37.Location = New System.Drawing.Point(936, 33)
Me.Label37.Location = New System.Drawing.Point(1022, 33)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(30, 13)
Me.Label37.TabIndex = 69
@@ -829,10 +868,11 @@ Partial Class frmVorauskasse
Me.txtMaxSrch._TimeOnly = False
Me.txtMaxSrch._value = ""
Me.txtMaxSrch._Waehrung = False
Me.txtMaxSrch._WaehrungZeichen = True
Me.txtMaxSrch.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.txtMaxSrch.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtMaxSrch.ForeColor = System.Drawing.Color.Black
Me.txtMaxSrch.Location = New System.Drawing.Point(968, 30)
Me.txtMaxSrch.Location = New System.Drawing.Point(1054, 30)
Me.txtMaxSrch.MaxLineLength = -1
Me.txtMaxSrch.MaxLines_Warning = ""
Me.txtMaxSrch.MaxLines_Warning_Label = Nothing
@@ -842,26 +882,11 @@ Partial Class frmVorauskasse
Me.txtMaxSrch.Text = "1000"
Me.txtMaxSrch.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'btnDel
'
Me.btnDel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnDel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
Me.btnDel.Image = Global.SDL.My.Resources.del_small
Me.btnDel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnDel.Location = New System.Drawing.Point(879, 3)
Me.btnDel.Name = "btnDel"
Me.btnDel.Size = New System.Drawing.Size(137, 21)
Me.btnDel.TabIndex = 73
Me.btnDel.Text = "Vorauskasse löschen"
Me.btnDel.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnDel.UseVisualStyleBackColor = True
Me.btnDel.Visible = False
'
'frmVorauskasse
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1113, 620)
Me.ClientSize = New System.Drawing.Size(1199, 620)
Me.Controls.Add(Me.Panel1)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.pnloptions)
@@ -935,4 +960,5 @@ Partial Class frmVorauskasse
Friend WithEvents txtAuswahlAbfNr As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents btnDel As System.Windows.Forms.Button
Friend WithEvents Button4 As Button
End Class

37
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -138,7 +138,7 @@
Dim sqlstr As String = ""
sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno FROM tblVorauskassen WHERE 1=1 "
sqlstr &= " SELECT " & TopMax & " [vk_id],[vk_FilialeNr],[vk_AbfertigungsNr],[vk_Datum],[vk_LKW],[vk_KdNr],[vk_Firma],[vk_QS_Sachbearbeiter],[vk_QS_Bemerkung],vk_Betrag,[vk_GeldEingetroffen],[vk_BH_Sachbearbeiter],[vk_BH_Bemerkung],[vk_BH_DatumGeldeingang],vk_storno,vk_Freigegeben FROM tblVorauskassen WHERE 1=1 "
With MyDatagridview1
' .DataSource = myTable
@@ -254,6 +254,8 @@
.Columns("vk_BH_Sachbearbeiter").MinimumWidth = 100
.Columns("vk_BH_Sachbearbeiter").HeaderText = "BH Sachb."
.Columns("vk_Freigegeben").HeaderText = "Freigeg."
.Columns("vk_Freigegeben").Width = 45
.Columns("vk_storno").HeaderText = "Storno"
.Columns("vk_storno").Width = 45
@@ -305,7 +307,7 @@
btnBuchungAufheben.Visible = False
txtAuswahlAbfNr.Text = ""
If MyDatagridview1.SelectedRows.Count > 0 Then
If MyDatagridview1.SelectedRows(0).Cells("vk_GeldEingetroffen").Value Then
If MyDatagridview1.SelectedRows(0).Cells("vk_GeldEingetroffen").Value Or MyDatagridview1.SelectedRows(0).Cells("vk_Freigegeben").Value Then
btnBuchungAufheben.Visible = True
End If
txtAuswahlAbfNr.Text = MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value & "/" & MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value
@@ -318,6 +320,7 @@
VK.SET_GELDEINGANG(False, txtBemerkung.Text)
txtBemerkung.Text = ""
cVorauskasseOptions.delTop1Vermerk(VK.vk_FilialeNr, VK.vk_AbfertigungsNr, 14)
cVorauskasseOptions.delTop1Vermerk(VK.vk_FilialeNr, VK.vk_AbfertigungsNr, 59)
MyDatagridview1.RELOAD()
setDGVOptions()
@@ -415,18 +418,37 @@
SDL.FormularManagerNEU.OPEN_FORM(SDL.FormularManagerArten.Importaviso_VK, kdnr, {kdnr, Nothing, Nothing, Nothing, "", MyDatagridview1.SelectedRows(0).Cells("vk_id").Value})
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
If MyDatagridview1.SelectedRows.Count > 0 Then
Dim VK As New VERAG_PROG_ALLGEMEIN.cVorauskasse(MyDatagridview1.SelectedRows(0).Cells("vk_id").Value)
VK.SET_FREIGEGEBEN(True, txtBemerkung.Text)
txtBemerkung.Text = ""
MyDatagridview1.RELOAD()
setDGVOptions()
cVorauskasseOptions.insertVermerk(MyDatagridview1.SelectedRows(0).Cells("vk_FilialeNr").Value, MyDatagridview1.SelectedRows(0).Cells("vk_AbfertigungsNr").Value, 59,, True, If(VK.vk_VermerkId, -1), If(VK.vk_SendungId, -1))
End If
End Sub
End Class
Public Class cVorauskasseOptions
Shared Sub insertVermerk(FilialenNr, AbfertigungsNr, VermerkCodeId, Optional DatumTmp = Nothing)
Shared Sub insertVermerk(FilialenNr, AbfertigungsNr, VermerkCodeId, Optional DatumTmp = Nothing, Optional Freigegeben = False, Optional ByRef VermerkId = -1, Optional tblSnd_SendungID = -1)
Try
Dim veragSQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim VermerkeDAL As New VERAG_PROG_ALLGEMEIN.cVermerkeDAL
' MsgBox("SELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'")
Dim dt As DataTable = veragSQL.loadDgvBySql("SELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'", "AVISO")
Dim dt As DataTable = Nothing
If tblSnd_SendungID > 0 Then
dt = veragSQL.loadDgvBySql("SELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where tblSnd_SendungID='" & tblSnd_SendungID & "' ", "AVISO")
Else
dt = veragSQL.loadDgvBySql("SELECT TOP 1 [tblSnd_SendungID],[tblSnd_AvisoID] FROM [tblSendungen] where AbfertigungsNr='" & AbfertigungsNr & "' and FilialenNr='" & FilialenNr & "'", "AVISO")
End If
If dt.Rows.Count = 0 Then Exit Sub
@@ -445,11 +467,12 @@ Public Class cVorauskasseOptions
Select Case VermerkCodeId
Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert"
Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten"
Case 59 : myVermerk.Hinweis_Vermerk = "Vorauskasse freigegeben"
Case Else : Exit Sub
End Select
myVermerk.VermerkCodeId = VermerkCodeId
If VermerkCodeId IsNot Nothing Then myVermerk.VermerkCodeId = VermerkCodeId
VermerkeDAL.SpeichernVermerk(myVermerk)
VermerkId = VermerkeDAL.SpeichernVermerk(myVermerk)
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
@@ -477,7 +500,7 @@ Public Class cVorauskasseOptions
If dt.Rows.Count = 0 Then Exit Sub
If Not IsNumeric(dt.Rows(0)("tblSnd_SendungID")) Then Exit Sub
veragSQL.doSQL("DELETE FROM [Vermerke] where SendungID='" & dt.Rows(0)("tblSnd_SendungID") & "' AND VermerkeCode IN ('13','14') ", "AVISO")
veragSQL.doSQL("DELETE FROM [Vermerke] where SendungID='" & dt.Rows(0)("tblSnd_SendungID") & "' AND VermerkeCode IN ('13','14','59') ", "AVISO")
Catch ex As Exception
MsgBox(ex.Message & ex.StackTrace)
End Try