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

66
SDL/kunden/frmBonitaet.Designer.vb generated
View File

@@ -34,6 +34,8 @@ Partial Class frmBonitaet
Me.cboRisikostufe = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtHoechstkredit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtGruendungsdatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'txtBonitaetsindex
@@ -57,7 +59,7 @@ Partial Class frmBonitaet
Me.txtBonitaetsindex.MaxLines_Warning_Label = Nothing
Me.txtBonitaetsindex.Name = "txtBonitaetsindex"
Me.txtBonitaetsindex.Size = New System.Drawing.Size(129, 26)
Me.txtBonitaetsindex.TabIndex = 27
Me.txtBonitaetsindex.TabIndex = 3
Me.txtBonitaetsindex.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label3
@@ -67,26 +69,26 @@ Partial Class frmBonitaet
Me.Label3.Location = New System.Drawing.Point(14, 40)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(87, 13)
Me.Label3.TabIndex = 26
Me.Label3.TabIndex = 2
Me.Label3.Text = "Bonitätsindex:"
'
'Button1
'
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(17, 192)
Me.Button1.Location = New System.Drawing.Point(17, 212)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(219, 23)
Me.Button1.TabIndex = 23
Me.Button1.TabIndex = 12
Me.Button1.Text = "Kunde Bonitäts-Verlauf ansehen"
Me.Button1.UseVisualStyleBackColor = True
'
'btnStandardPreiseLaden
'
Me.btnStandardPreiseLaden.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnStandardPreiseLaden.Location = New System.Drawing.Point(17, 147)
Me.btnStandardPreiseLaden.Location = New System.Drawing.Point(17, 167)
Me.btnStandardPreiseLaden.Name = "btnStandardPreiseLaden"
Me.btnStandardPreiseLaden.Size = New System.Drawing.Size(219, 43)
Me.btnStandardPreiseLaden.TabIndex = 22
Me.btnStandardPreiseLaden.TabIndex = 11
Me.btnStandardPreiseLaden.Text = "Speichern"
Me.btnStandardPreiseLaden.UseVisualStyleBackColor = True
'
@@ -111,7 +113,7 @@ Partial Class frmBonitaet
Me.txtCRDatum.Name = "txtCRDatum"
Me.txtCRDatum.ReadOnly = True
Me.txtCRDatum.Size = New System.Drawing.Size(129, 20)
Me.txtCRDatum.TabIndex = 25
Me.txtCRDatum.TabIndex = 1
Me.txtCRDatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label10
@@ -120,7 +122,7 @@ Partial Class frmBonitaet
Me.Label10.Location = New System.Drawing.Point(14, 9)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(67, 13)
Me.Label10.TabIndex = 24
Me.Label10.TabIndex = 0
Me.Label10.Text = "Abfrage, am:"
'
'Label1
@@ -130,7 +132,7 @@ Partial Class frmBonitaet
Me.Label1.Location = New System.Drawing.Point(14, 85)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(82, 13)
Me.Label1.TabIndex = 28
Me.Label1.TabIndex = 5
Me.Label1.Text = "Risikoklasse:"
'
'Label2
@@ -139,7 +141,7 @@ Partial Class frmBonitaet
Me.Label2.Location = New System.Drawing.Point(104, 61)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(28, 13)
Me.Label2.TabIndex = 24
Me.Label2.TabIndex = 4
Me.Label2.Text = "oder"
'
'cboRisikostufe
@@ -152,7 +154,7 @@ Partial Class frmBonitaet
Me.cboRisikostufe.Location = New System.Drawing.Point(107, 77)
Me.cboRisikostufe.Name = "cboRisikostufe"
Me.cboRisikostufe.Size = New System.Drawing.Size(129, 28)
Me.cboRisikostufe.TabIndex = 30
Me.cboRisikostufe.TabIndex = 6
'
'txtHoechstkredit
'
@@ -173,7 +175,7 @@ Partial Class frmBonitaet
Me.txtHoechstkredit.MaxLines_Warning_Label = Nothing
Me.txtHoechstkredit.Name = "txtHoechstkredit"
Me.txtHoechstkredit.Size = New System.Drawing.Size(129, 20)
Me.txtHoechstkredit.TabIndex = 35
Me.txtHoechstkredit.TabIndex = 8
'
'Label12
'
@@ -181,15 +183,49 @@ Partial Class frmBonitaet
Me.Label12.Location = New System.Drawing.Point(14, 114)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(70, 13)
Me.Label12.TabIndex = 34
Me.Label12.TabIndex = 7
Me.Label12.Text = "Höchstkredit:"
'
'txtGruendungsdatum
'
Me.txtGruendungsdatum._DateTimeOnly = False
Me.txtGruendungsdatum._numbersOnly = False
Me.txtGruendungsdatum._numbersOnlyKommastellen = ""
Me.txtGruendungsdatum._Prozent = False
Me.txtGruendungsdatum._ShortDateNew = True
Me.txtGruendungsdatum._ShortDateOnly = False
Me.txtGruendungsdatum._TimeOnly = False
Me.txtGruendungsdatum._value = ""
Me.txtGruendungsdatum._Waehrung = False
Me.txtGruendungsdatum._WaehrungZeichen = True
Me.txtGruendungsdatum.ForeColor = System.Drawing.Color.Black
Me.txtGruendungsdatum.Location = New System.Drawing.Point(107, 137)
Me.txtGruendungsdatum.MaxLength = 10
Me.txtGruendungsdatum.MaxLineLength = -1
Me.txtGruendungsdatum.MaxLines_Warning = ""
Me.txtGruendungsdatum.MaxLines_Warning_Label = Nothing
Me.txtGruendungsdatum.Name = "txtGruendungsdatum"
Me.txtGruendungsdatum.Size = New System.Drawing.Size(129, 20)
Me.txtGruendungsdatum.TabIndex = 10
Me.txtGruendungsdatum.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(14, 140)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(91, 13)
Me.Label4.TabIndex = 9
Me.Label4.Text = "Gründungsdatum:"
'
'frmBonitaet
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(253, 223)
Me.ClientSize = New System.Drawing.Size(253, 247)
Me.Controls.Add(Me.txtGruendungsdatum)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.txtHoechstkredit)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.cboRisikostufe)
@@ -221,4 +257,6 @@ Partial Class frmBonitaet
Friend WithEvents cboRisikostufe As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtHoechstkredit As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label12 As Label
Friend WithEvents txtGruendungsdatum As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label4 As Label
End Class

3
SDL/kunden/frmBonitaet.vb
View File

@@ -16,7 +16,7 @@
If txtBonitaetsindex.Text <> "" Then
If Not IsNumeric(txtBonitaetsindex.Text) Then Exit Sub
If CInt(txtBonitaetsindex.Text) < 100 Then Exit Sub
If CInt(txtBonitaetsindex.Text) < 10 And CInt(txtBonitaetsindex.Text) <> 0 Then Exit Sub
End If
Try
Dim cBonitaetsauskunft As VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft = VERAG_PROG_ALLGEMEIN.cBonitaetsauskunft.LOADByKdNrDate(KdNR, Now)
@@ -41,6 +41,7 @@
cBonitaetsauskunft.ba_Zahlungsweise = ""
cBonitaetsauskunft.ba_GFName = ""
cBonitaetsauskunft.ba_Sonstiges = ""
cBonitaetsauskunft.ba_GruendundsDatum = cProgramFunctions.isLeerNothing(txtGruendungsdatum._value)
If cBonitaetsauskunft.SAVE Then
VSQL.doSQL("UPDATE Kunden SET Bonität='" & cBonitaetsauskunft.ba_BonitaetsIndex & "', Bonitätsdatum='" & cBonitaetsauskunft.ba_Datum & "', Höchstkredit=" & If(cBonitaetsauskunft.ba_Hoechstkredit Is Nothing, "null", "'" & cBonitaetsauskunft.ba_Hoechstkredit & "'") & " WHERE KundenNr='" & cBonitaetsauskunft.ba_KundenNr & "'", "FMZOLL")

2
SDL/kunden/frmBonitätsverlauf.vb
View File

@@ -39,7 +39,7 @@
If KdSearchBox1.KdNr_value > 0 Then
With MyDatagridview1
Dim sqlstr As String = ""
sqlstr &= "SELECT * FROM [VERAG].[dbo].[tblBonitaetsauskunft] where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
sqlstr &= "SELECT * FROM [tblBonitaetsauskunft] where ba_KundenNr=" & KdSearchBox1.KdNr_value & " ORDER BY ba_Datum DESC"
.SET_SQL(sqlstr, "FMZOLL")
.LOAD()

63
SDL/kunden/frmKundenDatenblatt.Designer.vb generated
View File

@@ -22,6 +22,7 @@ Partial Class frmKundenDatenblatt
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKundenDatenblatt))
Me.lbl = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
@@ -46,6 +47,11 @@ Partial Class frmKundenDatenblatt
Me.txtBestimmungslandEU = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtBrggeber = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.txtRoute = New VERAG_PROG_ALLGEMEIN.MyRichTextBox()
Me.pnl = New System.Windows.Forms.Panel()
Me.usrCntlAnhaenge = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.Label11 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.pnl.SuspendLayout()
Me.SuspendLayout()
'
'lbl
@@ -308,12 +314,62 @@ Partial Class frmKundenDatenblatt
Me.txtRoute.TabIndex = 6
Me.txtRoute.Text = ""
'
'pnl
'
Me.pnl.Controls.Add(Me.usrCntlAnhaenge)
Me.pnl.Location = New System.Drawing.Point(138, 576)
Me.pnl.Name = "pnl"
Me.pnl.Size = New System.Drawing.Size(459, 185)
Me.pnl.TabIndex = 23
'
'usrCntlAnhaenge
'
Me.usrCntlAnhaenge._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.usrCntlAnhaenge._DATENSERVER_ORDNER = "KD_ANHÄNGE_ZUSATZ"
Me.usrCntlAnhaenge._DATENSERVER_UOrdner1 = "ZOLL"
Me.usrCntlAnhaenge._DATENSERVER_UOrdner2 = ""
Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = ""
Me.usrCntlAnhaenge._OPEN_ORIGINAL = True
Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White
Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.usrCntlAnhaenge.Cursor = System.Windows.Forms.Cursors.Default
Me.usrCntlAnhaenge.Dock = System.Windows.Forms.DockStyle.Fill
Me.usrCntlAnhaenge.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.usrCntlAnhaenge.Location = New System.Drawing.Point(0, 0)
Me.usrCntlAnhaenge.Margin = New System.Windows.Forms.Padding(0)
Me.usrCntlAnhaenge.Name = "usrCntlAnhaenge"
Me.usrCntlAnhaenge.Size = New System.Drawing.Size(459, 185)
Me.usrCntlAnhaenge.TabIndex = 216
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(13, 576)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(53, 13)
Me.Label11.TabIndex = 24
Me.Label11.Text = "Anhänge:"
'
'Button2
'
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Location = New System.Drawing.Point(603, 735)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(186, 26)
Me.Button2.TabIndex = 25
Me.Button2.Text = "Checkliste Frächter anfügen"
Me.Button2.UseVisualStyleBackColor = True
'
'frmKundenDatenblatt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(895, 633)
Me.ClientSize = New System.Drawing.Size(895, 765)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.pnl)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.btn)
Me.Controls.Add(Me.txtSonstiges)
@@ -341,6 +397,7 @@ Partial Class frmKundenDatenblatt
Me.Name = "frmKundenDatenblatt"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Kundendatenblatt Zusatz"
Me.pnl.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -369,4 +426,8 @@ Partial Class frmKundenDatenblatt
Friend WithEvents Label10 As Label
Friend WithEvents btn As Button
Friend WithEvents Button1 As Button
Friend WithEvents pnl As Panel
Friend WithEvents usrCntlAnhaenge As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents Label11 As Label
Friend WithEvents Button2 As Button
End Class

13
SDL/kunden/frmKundenDatenblatt.vb
View File

@@ -40,6 +40,7 @@
End Sub
Private Sub frmKundenDatenblatt_Load(sender As Object, e As EventArgs) Handles Me.Load
usrCntlAnhaenge.INIT(KundenNr)
KD_DB = New VERAG_PROG_ALLGEMEIN.cKundenDatenblatt(KundenNr)
Dim AD = New VERAG_PROG_ALLGEMEIN.cAdressen(KundenNr)
lbl.Text = AD.Ordnungsbegriff
@@ -57,4 +58,16 @@
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
Me.Close()
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If usrCntlAnhaenge.DS IsNot Nothing Then
Dim ds = New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "", "", "Checkliste_Frachtführer.pdf")
If ds IsNot Nothing AndAlso ds.DATA_LIST.LIST.Count > 0 AndAlso ds.GET_TOP1_PATH(False) <> "" Then
usrCntlAnhaenge.DS.uploadDataToDATENSERVER(ds.GET_TOP1_PATH(False), "Checkliste_Frachtführer.pdf", ".pdf", False)
usrCntlAnhaenge.initPdf()
End If
End If
End Sub
End Class

105
SDL/kunden/frmKundenUebersichtZOLL.Designer.vb generated
View File

@@ -118,16 +118,17 @@ Partial Class frmKundenUebersichtZOLL
Me.ToolStripMenuItem19 = New System.Windows.Forms.ToolStripMenuItem()
Me.mnueFiskal = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.toolBearbeiten = New System.Windows.Forms.ToolStripMenuItem()
Me.toolOptionen = New System.Windows.Forms.ToolStripMenuItem()
Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AnDakosyÜbertragenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.AufschubEORIBearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.pnlTop = New System.Windows.Forms.Panel()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
Me.lblTESTSystem = New System.Windows.Forms.Label()
Me.pic = New System.Windows.Forms.PictureBox()
Me.KdSearchBox1 = New VERAG_PROG_ALLGEMEIN.KdSearchBox()
Me.lblAbfertigungsverbot = New System.Windows.Forms.Label()
Me.rtbInfo = New System.Windows.Forms.RichTextBox()
Me.tmrFiskal = New System.Windows.Forms.Timer(Me.components)
Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
@@ -138,7 +139,8 @@ Partial Class frmKundenUebersichtZOLL
Me.PDFLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.cbx = New System.Windows.Forms.CheckBox()
Me.toolNeuerKunde = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem11 = New System.Windows.Forms.ToolStripMenuItem()
Me.ContextMenuStrip1.SuspendLayout()
Me.tabZolltarife.SuspendLayout()
Me.tabKundendaten.SuspendLayout()
@@ -929,7 +931,7 @@ Partial Class frmKundenUebersichtZOLL
Me.MenuStripSDL.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.MenuStripSDL.Dock = System.Windows.Forms.DockStyle.Left
Me.MenuStripSDL.ImeMode = System.Windows.Forms.ImeMode.NoControl
Me.MenuStripSDL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.ToolStripFormulare, Me.mnueFiskal, Me.ToolStripMenuItem5, Me.toolBearbeiten, Me.ToolStripMenuItem1})
Me.MenuStripSDL.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.mnueKunden, Me.mnueZoll, Me.mnueOfferte, Me.mnueRechnungen, Me.mnueSpeditionsbuch, Me.mnueStatistik, Me.ToolStripFormulare, Me.mnueFiskal, Me.ToolStripMenuItem5, Me.toolNeuerKunde, Me.toolOptionen, Me.ToolStripMenuItem1, Me.ToolStripMenuItem11})
Me.MenuStripSDL.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.VerticalStackWithOverflow
Me.MenuStripSDL.Location = New System.Drawing.Point(0, 0)
Me.MenuStripSDL.Name = "MenuStripSDL"
@@ -1159,22 +1161,22 @@ Partial Class frmKundenUebersichtZOLL
Me.ToolStripMenuItem5.Image = Global.SDL.My.Resources.Resources.stift1
Me.ToolStripMenuItem5.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.ToolStripMenuItem5.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.ToolStripMenuItem5.Margin = New System.Windows.Forms.Padding(0, 60, 0, 0)
Me.ToolStripMenuItem5.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(107, 44)
Me.ToolStripMenuItem5.Text = "Bearbeiten"
Me.ToolStripMenuItem5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.ToolStripMenuItem5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'toolBearbeiten
'toolOptionen
'
Me.toolBearbeiten.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.AnDakosyÜbertragenToolStripMenuItem, Me.AufschubEORIBearbeitenToolStripMenuItem})
Me.toolBearbeiten.Enabled = False
Me.toolBearbeiten.ForeColor = System.Drawing.Color.White
Me.toolBearbeiten.Margin = New System.Windows.Forms.Padding(0, 30, 0, 0)
Me.toolBearbeiten.Name = "toolBearbeiten"
Me.toolBearbeiten.Size = New System.Drawing.Size(107, 19)
Me.toolBearbeiten.Text = "Optionen"
Me.toolOptionen.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BearbeitenToolStripMenuItem, Me.AnDakosyÜbertragenToolStripMenuItem, Me.AufschubEORIBearbeitenToolStripMenuItem})
Me.toolOptionen.Enabled = False
Me.toolOptionen.ForeColor = System.Drawing.Color.White
Me.toolOptionen.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
Me.toolOptionen.Name = "toolOptionen"
Me.toolOptionen.Size = New System.Drawing.Size(107, 19)
Me.toolOptionen.Text = "Optionen"
'
'BearbeitenToolStripMenuItem
'
@@ -1212,6 +1214,30 @@ Partial Class frmKundenUebersichtZOLL
Me.pnlTop.Size = New System.Drawing.Size(1190, 32)
Me.pnlTop.TabIndex = 209
'
'cbx
'
Me.cbx.AutoSize = True
Me.cbx.Location = New System.Drawing.Point(541, 8)
Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(77, 17)
Me.cbx.TabIndex = 213
Me.cbx.Text = "Alle Firmen"
Me.cbx.UseVisualStyleBackColor = True
'
'lblAbfertigungsverbot
'
Me.lblAbfertigungsverbot.BackColor = System.Drawing.Color.Red
Me.lblAbfertigungsverbot.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAbfertigungsverbot.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblAbfertigungsverbot.ForeColor = System.Drawing.Color.White
Me.lblAbfertigungsverbot.Location = New System.Drawing.Point(638, 1)
Me.lblAbfertigungsverbot.Name = "lblAbfertigungsverbot"
Me.lblAbfertigungsverbot.Size = New System.Drawing.Size(188, 29)
Me.lblAbfertigungsverbot.TabIndex = 209
Me.lblAbfertigungsverbot.Text = "! ABFERTIGUNGSVERBOT !"
Me.lblAbfertigungsverbot.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblAbfertigungsverbot.Visible = False
'
'lblTESTSystem
'
Me.lblTESTSystem.AutoSize = True
@@ -1236,6 +1262,7 @@ Partial Class frmKundenUebersichtZOLL
'
'KdSearchBox1
'
Me.KdSearchBox1._AlleFirmenCLUSTER = False
Me.KdSearchBox1._AllowSetValue = True
Me.KdSearchBox1._autoSizeGross = False
Me.KdSearchBox1._display_Name1 = False
@@ -1244,6 +1271,7 @@ Partial Class frmKundenUebersichtZOLL
Me.KdSearchBox1._displayWoelflKd = True
Me.KdSearchBox1._hideIfListEmpty = True
Me.KdSearchBox1._loadKdData = False
Me.KdSearchBox1._UseFIRMA = ""
Me.KdSearchBox1._ValueKdAndName = False
Me.KdSearchBox1.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.KdSearchBox1.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
@@ -1263,20 +1291,6 @@ Partial Class frmKundenUebersichtZOLL
Me.KdSearchBox1.TabIndex = 211
Me.KdSearchBox1.usrcntl = Nothing
'
'lblAbfertigungsverbot
'
Me.lblAbfertigungsverbot.BackColor = System.Drawing.Color.Red
Me.lblAbfertigungsverbot.Cursor = System.Windows.Forms.Cursors.Help
Me.lblAbfertigungsverbot.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold)
Me.lblAbfertigungsverbot.ForeColor = System.Drawing.Color.White
Me.lblAbfertigungsverbot.Location = New System.Drawing.Point(638, 1)
Me.lblAbfertigungsverbot.Name = "lblAbfertigungsverbot"
Me.lblAbfertigungsverbot.Size = New System.Drawing.Size(188, 29)
Me.lblAbfertigungsverbot.TabIndex = 209
Me.lblAbfertigungsverbot.Text = "! ABFERTIGUNGSVERBOT !"
Me.lblAbfertigungsverbot.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
Me.lblAbfertigungsverbot.Visible = False
'
'rtbInfo
'
Me.rtbInfo.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@@ -1346,15 +1360,32 @@ Partial Class frmKundenUebersichtZOLL
Me.DataGridViewTextBoxColumn2.HeaderText = "KundenNr"
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
'
'cbx
'toolNeuerKunde
'
Me.cbx.AutoSize = True
Me.cbx.Location = New System.Drawing.Point(541, 8)
Me.cbx.Name = "cbx"
Me.cbx.Size = New System.Drawing.Size(77, 17)
Me.cbx.TabIndex = 213
Me.cbx.Text = "Alle Firmen"
Me.cbx.UseVisualStyleBackColor = True
Me.toolNeuerKunde.ForeColor = System.Drawing.Color.White
Me.toolNeuerKunde.Image = Global.SDL.My.Resources.Resources.plus
Me.toolNeuerKunde.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.toolNeuerKunde.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.toolNeuerKunde.Margin = New System.Windows.Forms.Padding(0, 20, 0, 0)
Me.toolNeuerKunde.Name = "toolNeuerKunde"
Me.toolNeuerKunde.Size = New System.Drawing.Size(107, 47)
Me.toolNeuerKunde.Text = "Neuer Kunde"
Me.toolNeuerKunde.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.toolNeuerKunde.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripMenuItem11
'
Me.ToolStripMenuItem11.Enabled = False
Me.ToolStripMenuItem11.ForeColor = System.Drawing.Color.White
Me.ToolStripMenuItem11.Image = Global.SDL.My.Resources.Resources.stift1
Me.ToolStripMenuItem11.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.ToolStripMenuItem11.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.ToolStripMenuItem11.Margin = New System.Windows.Forms.Padding(0, 60, 0, 0)
Me.ToolStripMenuItem11.Name = "ToolStripMenuItem11"
Me.ToolStripMenuItem11.Size = New System.Drawing.Size(107, 44)
Me.ToolStripMenuItem11.Text = "Bearbeiten"
Me.ToolStripMenuItem11.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.ToolStripMenuItem11.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'frmKundenUebersichtZOLL
'
@@ -1455,7 +1486,7 @@ Partial Class frmKundenUebersichtZOLL
Friend WithEvents MyListBox1 As VERAG_PROG_ALLGEMEIN.MyListBox
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Label26 As System.Windows.Forms.Label
Friend WithEvents toolBearbeiten As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents toolOptionen As System.Windows.Forms.ToolStripMenuItem
Friend WithEvents rtbInfo As System.Windows.Forms.RichTextBox
Friend WithEvents ContextMenuStrip1 As System.Windows.Forms.ContextMenuStrip
Friend WithEvents KopierenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
@@ -1513,4 +1544,6 @@ Partial Class frmKundenUebersichtZOLL
Friend WithEvents usrcntlKundenuebersicht As usrCntlKundenuebersicht
Friend WithEvents Button1 As Button
Friend WithEvents cbx As CheckBox
Friend WithEvents toolNeuerKunde As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem11 As ToolStripMenuItem
End Class

63
SDL/kunden/frmKundenUebersichtZOLL.vb
View File

@@ -127,11 +127,12 @@ Public Class frmKundenUebersichtZOLL
mnueRechnungen.Visible = False
mnueSpeditionsbuch.Visible = False
mnueStatistik.Visible = False
toolBearbeiten.Visible = False
toolOptionen.Visible = False
ToolStripMenuItem5.Visible = False
mnueOfferte.Visible = False
ToolStripFormulare.Visible = False
mnueFiskal.Visible = False
toolNeuerKunde.Visible = False
End If
@@ -256,13 +257,44 @@ Public Class frmKundenUebersichtZOLL
mnueStatistik.Enabled = True
mnueRechnungen.Enabled = True
mnueSpeditionsbuch.Enabled = True
toolBearbeiten.Enabled = True
toolOptionen.Enabled = True
ToolStripMenuItem5.Enabled = True
'SchließenToolStripMenuItem.Enabled = True
mnueFiskal.Enabled = True
Me.tbcntrKundenDaten.Visible = True
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
mnueRechnungen.Visible = False
mnueSpeditionsbuch.Visible = False
mnueStatistik.Visible = False
mnueOfferte.Visible = False
If usrcntlKundenuebersicht.ADRESSE IsNot Nothing AndAlso usrcntlKundenuebersicht.ADRESSE.LandKz = "TR" Then
mnueRechnungen.Visible = True
mnueSpeditionsbuch.Visible = True
mnueStatistik.Visible = True
mnueOfferte.Visible = True
End If
End If
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
If (KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER) And
Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") Then
mnueOfferte.Enabled = False
mnueRechnungen.Enabled = False
mnueSpeditionsbuch.Enabled = False
mnueStatistik.Enabled = False
ToolStripFormulare.Enabled = False
mnueFiskal.Enabled = False
ToolStripMenuItem5.Enabled = False
toolOptionen.Enabled = False
UsrCntlOfferte1.init(-1)
End If
Else
End If
Try
Dim cntZoll = SQL.getValueTxtBySql("SELECT COUNT(*) FROM tblZollArtikel WHERE KundenNr='" & kdnr & "'", "FMZOLL")
@@ -1227,4 +1259,31 @@ Public Class frmKundenUebersichtZOLL
KdSearchBox1._AlleFirmenCLUSTER = cbx.Checked
KdSearchBox1.RESARCH()
End Sub
Private Sub toolNeuerKunde_Click(sender As Object, e As EventArgs) Handles toolNeuerKunde.Click
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Kundendaten_bearbeiten", "SDL") Then
Dim frmKundenblatt As New SDL.frmKundenblatt
frmKundenblatt.showEdit = True
frmKundenblatt.kdNr = -1
'frmKundenblatt.BERECHTIGUNEN = BERECHTIGUNEN
If frmKundenblatt.ShowDialog(Me) Then
If frmKundenblatt.kdNr > 0 Then
setKD(frmKundenblatt.kdNr)
End If
End If
Else
Dim frmKd As New SDL.frmNeuerKunde
frmKd.openKd = False
frmKd.timerIntervall = 500
frmKd.username = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.mit_username
If frmKd.username.Length > 15 Then frmKd.username = frmKd.username.Substring(0, 15)
frmKd.tmpFiliale = VERAG_PROG_ALLGEMEIN.cGlobal.AktiverMitarbeiter.StandartFiliale
frmKd.ShowDialog()
If frmKd.kdnr > 0 Then
setKD(frmKd.kdnr)
End If
End If
End Sub
End Class

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

@@ -162,6 +162,8 @@ Partial Class frmKundenblatt
Me.tbiKartenverwaltung = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiLKW = New System.Windows.Forms.ToolStripMenuItem()
Me.tbiVERAGCard = New System.Windows.Forms.ToolStripMenuItem()
Me.Label7 = New System.Windows.Forms.Label()
Me.scanUebernahmebestätigungen = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.pnlInfo.SuspendLayout()
Me.tbFirmendaten.SuspendLayout()
Me.Panel4.SuspendLayout()
@@ -1027,6 +1029,8 @@ Partial Class frmKundenblatt
Me.scanSDLSonst._DATENSERVER_UOrdner1 = ""
Me.scanSDLSonst._DATENSERVER_UOrdner2 = ""
Me.scanSDLSonst._DATENSERVER_UOrdner3 = ""
Me.scanSDLSonst._OPEN_ORIGINAL = False
Me.scanSDLSonst._TYPE = "PDF"
Me.scanSDLSonst.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSDLSonst.BackColor = System.Drawing.Color.White
Me.scanSDLSonst.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -1199,7 +1203,7 @@ Partial Class frmKundenblatt
Me.tbSDLKarten.Location = New System.Drawing.Point(4, 22)
Me.tbSDLKarten.Name = "tbSDLKarten"
Me.tbSDLKarten.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDLKarten.Size = New System.Drawing.Size(1162, 588)
Me.tbSDLKarten.Size = New System.Drawing.Size(178, 39)
Me.tbSDLKarten.TabIndex = 7
Me.tbSDLKarten.Text = "SDL-Kartenverwaltung"
Me.tbSDLKarten.UseVisualStyleBackColor = True
@@ -1211,7 +1215,7 @@ Partial Class frmKundenblatt
Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.usrcntlKarten.Name = "usrcntlKarten"
Me.usrcntlKarten.Size = New System.Drawing.Size(1156, 582)
Me.usrcntlKarten.Size = New System.Drawing.Size(172, 33)
Me.usrcntlKarten.TabIndex = 0
'
'tbLKW
@@ -1444,6 +1448,8 @@ Partial Class frmKundenblatt
'
'tbDokumente
'
Me.tbDokumente.Controls.Add(Me.Label7)
Me.tbDokumente.Controls.Add(Me.scanUebernahmebestätigungen)
Me.tbDokumente.Controls.Add(Me.scanHKA)
Me.tbDokumente.Controls.Add(Me.Label3)
Me.tbDokumente.Controls.Add(Me.lblSonstigeDokumente)
@@ -1455,7 +1461,7 @@ Partial Class frmKundenblatt
Me.tbDokumente.Controls.Add(Me.scanVertragVeragKd)
Me.tbDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbDokumente.Name = "tbDokumente"
Me.tbDokumente.Size = New System.Drawing.Size(178, 39)
Me.tbDokumente.Size = New System.Drawing.Size(1162, 588)
Me.tbDokumente.TabIndex = 8
Me.tbDokumente.Text = "Dokumente"
Me.tbDokumente.UseVisualStyleBackColor = True
@@ -1507,6 +1513,8 @@ Partial Class frmKundenblatt
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -1840,6 +1848,7 @@ Partial Class frmKundenblatt
'
'KdSearchBox1
'
Me.KdSearchBox1._AlleFirmenCLUSTER = False
Me.KdSearchBox1._AllowSetValue = True
Me.KdSearchBox1._autoSizeGross = False
Me.KdSearchBox1._display_Name1 = False
@@ -1892,6 +1901,35 @@ Partial Class frmKundenblatt
Me.tbiVERAGCard.Size = New System.Drawing.Size(186, 22)
Me.tbiVERAGCard.Text = "VERAG Card"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label7.Location = New System.Drawing.Point(488, 21)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(155, 13)
Me.Label7.TabIndex = 6
Me.Label7.Text = "Übernahmebestätigungen:"
'
'scanUebernahmebestätigungen
'
Me.scanUebernahmebestätigungen._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUebernahmebestätigungen._DATENSERVER_ORDNER = "MDM"
Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner1 = ""
Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner2 = ""
Me.scanUebernahmebestätigungen._DATENSERVER_UOrdner3 = ""
Me.scanUebernahmebestätigungen._OPEN_ORIGINAL = False
Me.scanUebernahmebestätigungen._TYPE = "PDF"
Me.scanUebernahmebestätigungen.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUebernahmebestätigungen.BackColor = System.Drawing.Color.White
Me.scanUebernahmebestätigungen.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUebernahmebestätigungen.Cursor = System.Windows.Forms.Cursors.Default
Me.scanUebernahmebestätigungen.Location = New System.Drawing.Point(488, 40)
Me.scanUebernahmebestätigungen.Margin = New System.Windows.Forms.Padding(0)
Me.scanUebernahmebestätigungen.Name = "scanUebernahmebestätigungen"
Me.scanUebernahmebestätigungen.Size = New System.Drawing.Size(285, 505)
Me.scanUebernahmebestätigungen.TabIndex = 5
'
'frmKundenblatt
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2104,4 +2142,6 @@ Partial Class frmKundenblatt
Friend WithEvents scanMWSTAgreement As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents Button3 As Button
Friend WithEvents scanHKA As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents Label7 As Label
Friend WithEvents scanUebernahmebestätigungen As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
End Class

1
SDL/kunden/frmKundenblatt.vb
View File

@@ -238,6 +238,7 @@ Public Class frmKundenblatt
scanHKA.INIT(kdNr, "KUNDENDATEN")
scanEULizenz.INIT(kdNr, "KUNDENDATEN")
scanSonstiges.INIT(kdNr, "KUNDENDATEN")
scanUebernahmebestätigungen.INIT(kdNr, "KUNDENDATEN", "Übernahmebestätigungen")
End Select
Case "tbZoll" : initTZOLL()
Case "tbOfferte" : UsrCntlOfferte1.init(kdNr)

1
SDL/kunden/frmNeuerKunde.vb
View File

@@ -30,6 +30,7 @@
ComboBox1.changeItem("5701")
Case "ATILLA"
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
'ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
ComboBox2.changeItem("100000-199999")

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

@@ -650,6 +650,8 @@ Partial Class usrCntlKundenuebersicht
Me.usrCntlAnhaenge._DATENSERVER_UOrdner1 = "ZOLL"
Me.usrCntlAnhaenge._DATENSERVER_UOrdner2 = ""
Me.usrCntlAnhaenge._DATENSERVER_UOrdner3 = ""
Me.usrCntlAnhaenge._OPEN_ORIGINAL = False
Me.usrCntlAnhaenge._TYPE = ""
Me.usrCntlAnhaenge.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.usrCntlAnhaenge.BackColor = System.Drawing.Color.White
Me.usrCntlAnhaenge.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

40
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -8,8 +8,8 @@ Public Class usrCntlKundenuebersicht
Public superuser As Boolean = False
Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
Public KUNDE_ERW As VERAG_PROG_ALLGEMEIN.cKundenErweitert = Nothing
Dim ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Dim AUFSCHUB As List(Of VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten) = Nothing
Public ADRESSE As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
Public AUFSCHUB As List(Of VERAG_PROG_ALLGEMEIN.cKundenAufschubkonten) = Nothing
Public kdNr As Integer = -1
Private dataAdapterFirma As New SqlDataAdapter
@@ -245,7 +245,18 @@ Public Class usrCntlKundenuebersicht
'MsgBox(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM & " - " & VERAG_PROG_ALLGEMEIN.cAllgemein.USR_NNAME)
lblTESTSystem.Visible = VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM
initAllgemein()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
tbWeitereKundenDetails.TabPages.Remove(TabPage3)
tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then
tbWeitereKundenDetails.TabPages.Add(TabPage3)
tbWeitereKundenDetails.TabPages.Add(tbOffenePosten)
End If
End If
initDGVUmsatz()
initDGVOffenePosten()
initDGVVollmachten()
@@ -263,7 +274,6 @@ Public Class usrCntlKundenuebersicht
'If tbcntrKundenDaten.SelectedIndex = 1 Then initZollTarife() ' nur wenn der Tab aktiv, sonst dauert das Laden länger
'If tbcntrKundenDaten.SelectedIndex = 3 Then initStatistik() ' nur wenn der Tab aktiv, sonst dauert das Laden länger
' btncheckliste.Focus()
loaded = True
End Sub
@@ -311,9 +321,26 @@ Public Class usrCntlKundenuebersicht
' Me.dataAdapterFirma.Fill(Me.dataFirma)
conn.Close()
dgvOfferteDetailsUebersicht.Visible = True
dgvOffenePosten.Visible = True
dgvUmsatzbericht.Visible = True
usrCntlAnhaenge.Visible = True
rtbAbf_Besonderheiten.Visible = True
Dim KdFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(KUNDE.FilialenNr)
If KdFirma <> VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Then
lblFirma.Text = KdFirma
lblFirma.Visible = True
If Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") Then
dgvOfferteDetailsUebersicht.Visible = False
dgvOffenePosten.Visible = False
dgvUmsatzbericht.Visible = False
usrCntlAnhaenge.Visible = False
rtbAbf_Besonderheiten.Visible = False
End If
End If
End If
Else
lblFirma.Visible = False
End If
@@ -624,6 +651,8 @@ Public Class usrCntlKundenuebersicht
.DataSource = SQL.loadDgvBySql("SELECT [KundenNr],[Jahr],[steuerpflichtig],[steuerfrei],[Nettoumsatz],[MwSt],[Bruttoumsatz],[Währung],[Rechnungen],[Gutschriften],[Datum],[Nummer]" &
" FROM [tblKundenumsatz] " &
" WHERE [KundenNr]='" & kdNr & "' " & where & " ORDER BY Jahr DESC", "FMZOLL")
If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub
.Columns(0).Visible = False
.Columns(11).Visible = False
.Columns(1).Width = 45
@@ -802,7 +831,7 @@ Public Class usrCntlKundenuebersicht
With dgvOffertenSperrliste
Dim where As String = ""
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
where = " AND Offerten.OffertenNr IN (5,6) "
where = " AND Offerten.OffertenNr IN (5,6,18,24,32,33,34,37,40,7,8,9,12,13) "
End If
@@ -1147,6 +1176,9 @@ Public Class usrCntlKundenuebersicht
.DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " &
" FROM [Offene Posten] " &
" WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY Belegdatum DESC", "FMZOLL")
If .DataSource Is Nothing Then Exit Sub
If .Columns.Count = 0 Then Exit Sub
.Columns(0).Visible = False
.Columns(1).Width = 70

30
SDL/kunden/usrCntlLKW.Designer.vb generated
View File

@@ -56,6 +56,7 @@ Partial Class usrCntlLKW
Me.scanZulassungsschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanLeasingVertrag = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanCEMT = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.scanMietVertrag = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
CType(Me.dgvSDLLeistungen, System.ComponentModel.ISupportInitialize).BeginInit()
Me.cntxtSDLLeistungenOptions.SuspendLayout()
Me.pnlSDLLeistungenDetails.SuspendLayout()
@@ -231,7 +232,7 @@ Partial Class usrCntlLKW
'
Me.Button3.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Button3.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button3.Image = Global.SDL.My.Resources.plus
Me.Button3.Image = Global.SDL.My.Resources.Resources.plus
Me.Button3.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button3.Location = New System.Drawing.Point(354, 2)
Me.Button3.Name = "Button3"
@@ -256,7 +257,7 @@ Partial Class usrCntlLKW
'PictureBox1
'
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Image = Global.SDL.My.Resources.LKW_klein
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.LKW_klein
Me.PictureBox1.Location = New System.Drawing.Point(6, -1)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(46, 38)
@@ -352,6 +353,7 @@ Partial Class usrCntlLKW
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.scanMietVertrag)
Me.TabPage2.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Controls.Add(Me.scanZulassungsschein)
Me.TabPage2.Controls.Add(Me.scanLeasingVertrag)
@@ -371,6 +373,8 @@ Partial Class usrCntlLKW
Me.scanSonstiges._DATENSERVER_UOrdner1 = ""
Me.scanSonstiges._DATENSERVER_UOrdner2 = ""
Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
Me.scanSonstiges._OPEN_ORIGINAL = False
Me.scanSonstiges._TYPE = "PDF"
Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanSonstiges.BackColor = System.Drawing.Color.White
Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -442,6 +446,26 @@ Partial Class usrCntlLKW
Me.scanCEMT.Size = New System.Drawing.Size(126, 22)
Me.scanCEMT.TabIndex = 159
'
'scanMietVertrag
'
Me.scanMietVertrag._ARCHIV = True
Me.scanMietVertrag._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanMietVertrag._DATENSERVER_ORDNER = "MDM"
Me.scanMietVertrag._DATENSERVER_UOrdner1 = Nothing
Me.scanMietVertrag._DATENSERVER_UOrdner2 = Nothing
Me.scanMietVertrag._DATENSERVER_UOrdner3 = Nothing
Me.scanMietVertrag._MULTI_FILES = True
Me.scanMietVertrag._TEXT_PDF = "Miet-Vertrag"
Me.scanMietVertrag.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanMietVertrag.BackColor = System.Drawing.Color.White
Me.scanMietVertrag.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanMietVertrag.Cursor = System.Windows.Forms.Cursors.Default
Me.scanMietVertrag.Enabled = False
Me.scanMietVertrag.Location = New System.Drawing.Point(138, 29)
Me.scanMietVertrag.Name = "scanMietVertrag"
Me.scanMietVertrag.Size = New System.Drawing.Size(126, 22)
Me.scanMietVertrag.TabIndex = 163
'
'usrCntlLKW
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -502,5 +526,5 @@ Partial Class usrCntlLKW
Friend WithEvents tbcntrLKW As System.Windows.Forms.TabControl
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
Friend WithEvents scanMietVertrag As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
End Class

2
SDL/kunden/usrCntlLKW.vb
View File

@@ -80,11 +80,13 @@ Public Class usrCntlLKW
scanZulassungsschein.INIT(kdnr, Me.kz)
scanCEMT.INIT(kdnr, Me.kz)
scanLeasingVertrag.INIT(kdnr, Me.kz)
scanMietVertrag.INIT(kdnr, Me.kz)
scanSonstiges.INIT(kdnr, Me.kz)
scanZulassungsschein.Enabled = True
scanCEMT.Enabled = True
scanLeasingVertrag.Enabled = True
scanMietVertrag.Enabled = True
scanSonstiges.Enabled = True

8
SDL/kunden/usrCntlOfferte.vb
View File

@@ -33,8 +33,14 @@
Sub initDGVOfferte()
dgvOfferteDetails.Columns.Clear()
Dim where As String = ""
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
where = " AND Offerten.OffertenNr IN (5,6,18,24,32,33,34,37,40,7,8,9,12,13) "
End If
With dgvOfferte
.DataSource = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' ORDER BY Offerten.OffertenNr ", "FMZOLL")
.DataSource = SQL.loadDgvBySql("SELECT Offerten.OffertenNr, cast(Offerten.OffertenNr as varchar(3)) + ' - ' + Offertenstamm.OffertenBez as OffertenBez ,Offerten.Besonderheiten FROM Offerten inner join Offertenstamm on [Offerten].OffertenNr=Offertenstamm.OffertenNr WHERE Offerten.KundenNr='" & kdNr & "' " & where & " ORDER BY Offerten.OffertenNr ", "FMZOLL")
.Columns("OffertenNr").Visible = False
.Columns("Besonderheiten").Visible = False
' .Columns("OffertenNr").HeaderText = "Nr"

74
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb generated
View File

@@ -31,6 +31,7 @@ Partial Class usrcntlKundeBearbeitenFull
Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.tbcntrDetails = New System.Windows.Forms.TabControl()
Me.tbAbfertigung = New System.Windows.Forms.TabPage()
Me.tbcntrAbf = New System.Windows.Forms.TabControl()
@@ -289,6 +290,11 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.cbxFiBu = New System.Windows.Forms.CheckBox()
Me.cbxFiBuLG = New System.Windows.Forms.CheckBox()
Me.tbSchnittstellen = New System.Windows.Forms.TabPage()
Me.txtVERAG_Schnittstellen_ID = New System.Windows.Forms.TextBox()
Me.Label91 = New System.Windows.Forms.Label()
Me.Label92 = New System.Windows.Forms.Label()
Me.DataGridView1 = New System.Windows.Forms.DataGridView()
Me.tbcntrDetails.SuspendLayout()
Me.tbAbfertigung.SuspendLayout()
Me.tbcntrAbf.SuspendLayout()
@@ -317,6 +323,8 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage10.SuspendLayout()
Me.TabPage11.SuspendLayout()
Me.pnlNeukunde.SuspendLayout()
Me.tbSchnittstellen.SuspendLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'tbcntrDetails
@@ -330,6 +338,7 @@ Partial Class usrcntlKundeBearbeitenFull
Me.tbcntrDetails.Controls.Add(Me.tbBank)
Me.tbcntrDetails.Controls.Add(Me.tbUmsatzsteuer)
Me.tbcntrDetails.Controls.Add(Me.tbSonstiges)
Me.tbcntrDetails.Controls.Add(Me.tbSchnittstellen)
Me.tbcntrDetails.Location = New System.Drawing.Point(462, 3)
Me.tbcntrDetails.Name = "tbcntrDetails"
Me.tbcntrDetails.SelectedIndex = 0
@@ -3855,6 +3864,63 @@ Partial Class usrcntlKundeBearbeitenFull
Me.cbxFiBuLG.UseVisualStyleBackColor = True
Me.cbxFiBuLG.Visible = False
'
'tbSchnittstellen
'
Me.tbSchnittstellen.Controls.Add(Me.txtVERAG_Schnittstellen_ID)
Me.tbSchnittstellen.Controls.Add(Me.Label91)
Me.tbSchnittstellen.Controls.Add(Me.Label92)
Me.tbSchnittstellen.Controls.Add(Me.DataGridView1)
Me.tbSchnittstellen.Location = New System.Drawing.Point(4, 22)
Me.tbSchnittstellen.Name = "tbSchnittstellen"
Me.tbSchnittstellen.Padding = New System.Windows.Forms.Padding(3)
Me.tbSchnittstellen.Size = New System.Drawing.Size(672, 458)
Me.tbSchnittstellen.TabIndex = 10
Me.tbSchnittstellen.Text = "Schnittstellen"
Me.tbSchnittstellen.UseVisualStyleBackColor = True
'
'txtVERAG_Schnittstellen_ID
'
Me.txtVERAG_Schnittstellen_ID.Enabled = False
Me.txtVERAG_Schnittstellen_ID.Location = New System.Drawing.Point(131, 17)
Me.txtVERAG_Schnittstellen_ID.Name = "txtVERAG_Schnittstellen_ID"
Me.txtVERAG_Schnittstellen_ID.Size = New System.Drawing.Size(122, 20)
Me.txtVERAG_Schnittstellen_ID.TabIndex = 24
'
'Label91
'
Me.Label91.AutoSize = True
Me.Label91.Enabled = False
Me.Label91.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label91.Location = New System.Drawing.Point(6, 20)
Me.Label91.Name = "Label91"
Me.Label91.Size = New System.Drawing.Size(119, 13)
Me.Label91.TabIndex = 23
Me.Label91.Text = "VERAG Schnittellen-ID:"
'
'Label92
'
Me.Label92.AutoSize = True
Me.Label92.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label92.Location = New System.Drawing.Point(6, 77)
Me.Label92.Name = "Label92"
Me.Label92.Size = New System.Drawing.Size(110, 13)
Me.Label92.TabIndex = 21
Me.Label92.Text = "VERAG-Schnittstellen"
'
'DataGridView1
'
Me.DataGridView1.AllowUserToResizeRows = False
DataGridViewCellStyle10.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle10
Me.DataGridView1.BackgroundColor = System.Drawing.Color.White
Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.DataGridView1.Enabled = False
Me.DataGridView1.Location = New System.Drawing.Point(9, 93)
Me.DataGridView1.MultiSelect = False
Me.DataGridView1.Name = "DataGridView1"
Me.DataGridView1.Size = New System.Drawing.Size(657, 358)
Me.DataGridView1.TabIndex = 22
'
'usrcntlKundeBearbeitenFull
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -3930,6 +3996,9 @@ Partial Class usrcntlKundeBearbeitenFull
Me.TabPage11.ResumeLayout(False)
Me.pnlNeukunde.ResumeLayout(False)
Me.pnlNeukunde.PerformLayout()
Me.tbSchnittstellen.ResumeLayout(False)
Me.tbSchnittstellen.PerformLayout()
CType(Me.DataGridView1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -4192,4 +4261,9 @@ Partial Class usrcntlKundeBearbeitenFull
Friend WithEvents cbxAutoFakturierung As CheckBox
Friend WithEvents txtSonst_KdNrPLOSE As TextBox
Friend WithEvents Label83 As Label
Friend WithEvents tbSchnittstellen As TabPage
Friend WithEvents txtVERAG_Schnittstellen_ID As TextBox
Friend WithEvents Label91 As Label
Friend WithEvents Label92 As Label
Friend WithEvents DataGridView1 As DataGridView
End Class

7
SDL/kunden/usrcntlKundeBearbeitenFull.vb
View File

@@ -67,6 +67,7 @@ Public Class usrcntlKundeBearbeitenFull
ComboBox2.changeItem("3000000-3099990")
Case "ATILLA"
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 100000-199999: ATILLA", "100000-199999"))
ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
'ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 700000-799999: ZOLL Abrechnung", "728000-799999"))
' ComboBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(" 900000-999999: Sonstige", "900000-999999"))
ComboBox2.changeItem("100000-199999")
@@ -251,6 +252,8 @@ Public Class usrcntlKundeBearbeitenFull
cbxDepot.Checked = KUNDE_ERW.Depot_Kunde
cbxAutoFakturierung.Checked = KUNDE_ERW.AutoFakturierung
txtVERAG_Schnittstellen_ID.Text = If(KUNDE_ERW.kde_VERAG_INTERFACE_ID, "")
' ----- Abfertigungsverbot -----
' cboAbfVerb_Kreditlimit.Checked=loadValue(KUNDE.Kreditlimit, "")
' txtVers_Kreditlimit._value=loadValue(KUNDE.Kreditlimit vom, "")
@@ -292,6 +295,8 @@ Public Class usrcntlKundeBearbeitenFull
txtSonst_KdNrMSE.Text = loadValue(ADRESSE.MSEKundenNr, "")
txtSonst_KdNrTelepass.Text = loadValue(ADRESSE.TELEPASS_Kd_Nr, "")
txtSonst_KdNrPLOSE.Text = loadValue(ADRESSE.PLOSEKundenNr, "")
txtSonst_KdNrUTA.Text = loadValue(ADRESSE.UTAKundenNr, "")
cbxSonst_CsvAsfinag.Checked = loadValue(ADRESSE.ASFINAGExportCSV, False)
cbxSonst_CsvMautbericht.Checked = loadValue(ADRESSE.ExportMautberichtCSV, False)
cbxSonst_CsvMSE.Checked = loadValue(ADRESSE.MSEExportCSV, False)
@@ -488,6 +493,7 @@ Public Class usrcntlKundeBearbeitenFull
KUNDE_ERW.Depot_Kunde = cbxDepot.Checked
KUNDE_ERW.AutoFakturierung = cbxAutoFakturierung.Checked
KUNDE_ERW.kde_VERAG_INTERFACE_ID = isLeerNothing(txtVERAG_Schnittstellen_ID.Text)
' ----- Abfertigungsverbot -----
@@ -527,6 +533,7 @@ Public Class usrcntlKundeBearbeitenFull
ADRESSE.MSEKundenNr = isLeerNothing(txtSonst_KdNrMSE.Text)
ADRESSE.TELEPASS_Kd_Nr = isLeerNothing(txtSonst_KdNrTelepass.Text)
ADRESSE.PLOSEKundenNr = isLeerNothing(txtSonst_KdNrPLOSE.Text)
ADRESSE.UTAKundenNr = isLeerNothing(txtSonst_KdNrUTA.Text)
ADRESSE.ASFINAGExportCSV = cbxSonst_CsvAsfinag.Checked
ADRESSE.ExportMautberichtCSV = cbxSonst_CsvMautbericht.Checked
ADRESSE.MSEExportCSV = cbxSonst_CsvMSE.Checked