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

commit

Browse Source
This commit is contained in:
d.breimaier
2024-03-07 17:41:50 +01:00
parent 54d48a4a34 0dd9d2be5a
commit d7d6d6fd02
14 changed files with 498 additions and 146 deletions
Download Patch File Download Diff File Expand all files Collapse all files

41
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.Designer.vb generated
View File

@@ -20,17 +20,17 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtATAMRN = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.txtNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.txtNr = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.picBarcodeMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture() Me.picBarcodeMRN = New GrapeCity.ActiveReports.SectionReportModel.Picture()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader() Me.ReportHeader1 = New GrapeCity.ActiveReports.SectionReportModel.ReportHeader()
Me.Shape4 = New GrapeCity.ActiveReports.SectionReportModel.Shape() Me.Shape4 = New GrapeCity.ActiveReports.SectionReportModel.Shape()
Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.TextBox8 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
Me.TextBox1 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox() Me.TextBox2 = New GrapeCity.ActiveReports.SectionReportModel.TextBox()
Me.ReportFooter1 = New GrapeCity.ActiveReports.SectionReportModel.ReportFooter()
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.txtNr, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me, System.ComponentModel.ISupportInitialize).BeginInit()
' '
@@ -87,6 +87,18 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
Me.picBarcodeMRN.Visible = False Me.picBarcodeMRN.Visible = False
Me.picBarcodeMRN.Width = 3.102756! Me.picBarcodeMRN.Width = 3.102756!
' '
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.2094488!
Me.TextBox1.Left = 3.955118!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 10pt; font-weight: bold; text-align: right; vertical-align: middle; dd" &
"o-char-set: 1"
Me.TextBox1.Text = Nothing
Me.TextBox1.Top = 0.03543307!
Me.TextBox1.Width = 3.050787!
'
'ReportHeader1 'ReportHeader1
' '
Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape4, Me.TextBox8, Me.TextBox2}) Me.ReportHeader1.Controls.AddRange(New GrapeCity.ActiveReports.SectionReportModel.ARControl() {Me.Shape4, Me.TextBox8, Me.TextBox2})
@@ -114,22 +126,6 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
Me.TextBox8.Top = 0.1035433! Me.TextBox8.Top = 0.1035433!
Me.TextBox8.Width = 1.130709! Me.TextBox8.Width = 1.130709!
' '
'ReportFooter1
'
Me.ReportFooter1.Height = 0.08333333!
Me.ReportFooter1.Name = "ReportFooter1"
'
'TextBox1
'
Me.TextBox1.CanGrow = False
Me.TextBox1.Height = 0.2094488!
Me.TextBox1.Left = 3.955118!
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Style = "font-size: 12pt; font-weight: bold; text-align: right; vertical-align: middle; dd" &
"o-char-set: 1"
Me.TextBox1.Top = 0.03543307!
Me.TextBox1.Width = 3.050787!
'
'TextBox2 'TextBox2
' '
Me.TextBox2.Height = 0.1460631! Me.TextBox2.Height = 0.1460631!
@@ -141,6 +137,11 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
Me.TextBox2.Top = 0.1035433! Me.TextBox2.Top = 0.1035433!
Me.TextBox2.Width = 1.130709! Me.TextBox2.Width = 1.130709!
' '
'ReportFooter1
'
Me.ReportFooter1.Height = 0.08333333!
Me.ReportFooter1.Name = "ReportFooter1"
'
'subRptLaufzettelZollDE_Vorpapier 'subRptLaufzettelZollDE_Vorpapier
' '
Me.PageSettings.PaperHeight = 11.0! Me.PageSettings.PaperHeight = 11.0!
@@ -158,8 +159,8 @@ Partial Public Class subRptLaufzettelZollDE_Vorpapier
CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtATAMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.txtNr, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.txtNr, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.picBarcodeMRN, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox8, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TextBox2, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me, System.ComponentModel.ISupportInitialize).EndInit() CType(Me, System.ComponentModel.ISupportInitialize).EndInit()

13
SDL/Formulare/KDFormulare/FormulareBaukasten/subRptLaufzettelZollDE_Vorpapier.vb
View File

@@ -33,9 +33,20 @@ Public Class subRptLaufzettelZollDE_Vorpapier
End If End If
If ATAMRN <> "" Then If ATAMRN <> "" Then
Dim ATB = SQL.DLookup("tblSnd_ATB_Nr", "tblSendungen", "'" & ATAMRN & "' IN (tblSnd_Vorpapier,tblSnd_Vorpapier2,tblSnd_Vorpapier3) and tblSnd_Abfertigungsart_ID=44", "AVISO", "") ' Dim ATB = SQL.DLookup("tblSnd_ATB_Nr", "tblSendungen", "'" & ATAMRN.Trim & "' IN (tblSnd_Vorpapier,tblSnd_Vorpapier2,tblSnd_Vorpapier3) and tblSnd_Abfertigungsart_ID=44", "AVISO", "")
Dim ATB = SQL.DLookup("tblSnd_ATB_Nr", "tblSendungen", " tblSnd_ATB_T1= '" & ATAMRN.Trim & "' and tblSnd_Abfertigungsart_ID=44", "AVISO", "")
If ATB <> "" Then If ATB <> "" Then
TextBox1.Text = ATB TextBox1.Text = ATB
'<27>berschreiben mit ATB-Barcode
Dim barcodeATB As Image = Code128Rendering.MakeBarcodeImage(ATB, 1, True, 20)
picBarcodeMRN.Image = barcodeATB
picBarcodeMRN.Visible = True
picBarcodeMRN.Location = New PointF(picBarcodeMRN.Location.X - 0.5, picBarcodeMRN.Location.Y)
ATAMRN = "(" & ATAMRN & ")"
txtATAMRN.Font = New Font(txtATAMRN.Font.FontFamily, 10, FontStyle.Regular) ' kleiner schreiben
End If End If
End If End If
Catch ex As Exception Catch ex As Exception

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.2.8.5")> <Assembly: AssemblyVersion("1.2.8.6")>
<Assembly: AssemblyFileVersion("1.2.8.5")> <Assembly: AssemblyFileVersion("1.2.8.6")>

11
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -186,12 +186,13 @@ Public Class frmMDM_USTVAntrag
End Sub End Sub
Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click Private Sub Button14_Click(sender As Object, e As EventArgs) Handles Button14.Click
loadUSTVFrom_PLOSE() loadUSTVFrom_PLOSE(UStVAn_ID, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked)
init() init()
End Sub End Sub
Function alreadyExists(USTVAn_KuNr As Integer, UStVAn_LandNr As String, USTV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen) As Boolean Shared Function alreadyExists(USTVAn_KuNr As Integer, UStVAn_LandNr As String, USTV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen) As Boolean
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim cnt = SQL.getValueTxtBySql(" SELECT count(*) FROM [tblUStVAntrag] inner join [tblUStVPositionen] on tblUStVAntrag.UStVAn_ID= [tblUStVPositionen].UStVAn_ID Dim cnt = SQL.getValueTxtBySql(" SELECT count(*) FROM [tblUStVAntrag] inner join [tblUStVPositionen] on tblUStVAntrag.UStVAn_ID= [tblUStVPositionen].UStVAn_ID
WHERE USTVAn_KuNr='" & USTVAn_KuNr & "' AND UStVPo_SchnittstellenNr='" & USTV_POS.UStVPo_SchnittstellenNr & "' AND UStVPo_ReNr = '" & USTV_POS.UStVPo_ReNr & "' AND UStVPo_ReDat='" & USTV_POS.UStVPo_ReDat & "' AND UStVAn_LandNr='" & UStVAn_LandNr & "' ", "FMZOLL") WHERE USTVAn_KuNr='" & USTVAn_KuNr & "' AND UStVPo_SchnittstellenNr='" & USTV_POS.UStVPo_SchnittstellenNr & "' AND UStVPo_ReNr = '" & USTV_POS.UStVPo_ReNr & "' AND UStVPo_ReDat='" & USTV_POS.UStVPo_ReDat & "' AND UStVAn_LandNr='" & UStVAn_LandNr & "' ", "FMZOLL")
Return (cnt > 0) Return (cnt > 0)
@@ -208,11 +209,11 @@ Public Class frmMDM_USTVAntrag
Return False Return False
End Function End Function
Function loadUSTVFrom_PLOSE() As Boolean Shared Function loadUSTVFrom_PLOSE(UStVAn_ID, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien) As Boolean
Try Try
Dim bytSchnittstellenNr = 6 'glaube noch frei? Dim bytSchnittstellenNr = 6 'glaube noch frei?
Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID) Dim USTV_ANTRAG As New VERAG_PROG_ALLGEMEIN.cUSTVAntrag(UStVAn_ID)
Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, cbxArchivierteEintracheNochmalsEinarbetien.Checked) Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, ArchivierteEintracheNochmalsEinarbetien)
If GET_Antraege IsNot Nothing Then If GET_Antraege IsNot Nothing Then
@@ -267,7 +268,7 @@ Public Class frmMDM_USTVAntrag
If UStVPo_ID > 0 Then If UStVPo_ID > 0 Then
Dim ANTR_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen(USTV_ANTRAG.UStVAn_ID, UStVPo_ID) Dim ANTR_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen(USTV_ANTRAG.UStVAn_ID, UStVPo_ID)
UstCntlUSTV_AntragPosition1.Enabled = True UstCntlUSTV_AntragPosition1.Enabled = True
UstCntlUSTV_AntragPosition1.setValues(ANTR_POS, Antrag_LandKz) UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz)
Else Else
UstCntlUSTV_AntragPosition1.reset() UstCntlUSTV_AntragPosition1.reset()
UstCntlUSTV_AntragPosition1.Enabled = False UstCntlUSTV_AntragPosition1.Enabled = False

51
SDL/USTV/usrCntlUSTV.Designer.vb generated
View File

@@ -23,7 +23,7 @@ Partial Class usrCntlUSTV
<System.Diagnostics.DebuggerStepThrough()> <System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.pnlFilter = New System.Windows.Forms.Panel() Me.pnlFilter = New System.Windows.Forms.Panel()
Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.dgvUSTV = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
@@ -38,8 +38,9 @@ Partial Class usrCntlUSTV
Me.FlatButton2 = New System.Windows.Forms.Button() Me.FlatButton2 = New System.Windows.Forms.Button()
Me.Panel2 = New System.Windows.Forms.Panel() Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel() Me.Panel3 = New System.Windows.Forms.Panel()
Me.Button8 = New System.Windows.Forms.Button() Me.btnPLOSEAlle = New System.Windows.Forms.Button()
Me.Button5 = New System.Windows.Forms.Button() Me.Button5 = New System.Windows.Forms.Button()
Me.Button8 = New System.Windows.Forms.Button()
CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvUSTV, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
@@ -61,8 +62,8 @@ Partial Class usrCntlUSTV
Me.dgvUSTV.AKTUALISIERUNGS_INTERVALL = -1 Me.dgvUSTV.AKTUALISIERUNGS_INTERVALL = -1
Me.dgvUSTV.AllowUserToAddRows = False Me.dgvUSTV.AllowUserToAddRows = False
Me.dgvUSTV.AllowUserToDeleteRows = False Me.dgvUSTV.AllowUserToDeleteRows = False
DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer)) DataGridViewCellStyle3.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6 Me.dgvUSTV.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3
Me.dgvUSTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvUSTV.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.dgvUSTV.Dock = System.Windows.Forms.DockStyle.Fill Me.dgvUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvUSTV.Location = New System.Drawing.Point(0, 84) Me.dgvUSTV.Location = New System.Drawing.Point(0, 84)
@@ -140,6 +141,7 @@ Partial Class usrCntlUSTV
Me.KdSearchBox1._displayWoelflKd = False Me.KdSearchBox1._displayWoelflKd = False
Me.KdSearchBox1._hideIfListEmpty = True Me.KdSearchBox1._hideIfListEmpty = True
Me.KdSearchBox1._loadKdData = False Me.KdSearchBox1._loadKdData = False
Me.KdSearchBox1._searchName1 = True
Me.KdSearchBox1._UseFIRMA = "" Me.KdSearchBox1._UseFIRMA = ""
Me.KdSearchBox1._ValueKdAndName = True Me.KdSearchBox1._ValueKdAndName = True
Me.KdSearchBox1.dgvpos = "LEFT" Me.KdSearchBox1.dgvpos = "LEFT"
@@ -226,6 +228,7 @@ Partial Class usrCntlUSTV
'Panel3 'Panel3
' '
Me.Panel3.AutoSize = True Me.Panel3.AutoSize = True
Me.Panel3.Controls.Add(Me.btnPLOSEAlle)
Me.Panel3.Controls.Add(Me.Button5) Me.Panel3.Controls.Add(Me.Button5)
Me.Panel3.Controls.Add(Me.Button8) Me.Panel3.Controls.Add(Me.Button8)
Me.Panel3.Controls.Add(Me.Button1) Me.Panel3.Controls.Add(Me.Button1)
@@ -237,19 +240,20 @@ Partial Class usrCntlUSTV
Me.Panel3.Size = New System.Drawing.Size(1072, 66) Me.Panel3.Size = New System.Drawing.Size(1072, 66)
Me.Panel3.TabIndex = 0 Me.Panel3.TabIndex = 0
' '
'Button8 'btnPLOSEAlle
' '
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnPLOSEAlle.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small Me.btnPLOSEAlle.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!)
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btnPLOSEAlle.ForeColor = System.Drawing.Color.Black
Me.Button8.Location = New System.Drawing.Point(213, 7) Me.btnPLOSEAlle.Image = Global.SDL.My.Resources.Resources.plus
Me.Button8.Margin = New System.Windows.Forms.Padding(0) Me.btnPLOSEAlle.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Name = "Button8" Me.btnPLOSEAlle.Location = New System.Drawing.Point(367, 8)
Me.Button8.Size = New System.Drawing.Size(145, 41) Me.btnPLOSEAlle.Name = "btnPLOSEAlle"
Me.Button8.TabIndex = 6 Me.btnPLOSEAlle.Size = New System.Drawing.Size(172, 40)
Me.Button8.Text = "Eingereichte Anträge" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "mit Differenzbetrag" Me.btnPLOSEAlle.TabIndex = 24
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btnPLOSEAlle.Text = "PLOSE für offene " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Anträge übernehmen"
Me.Button8.UseVisualStyleBackColor = True Me.btnPLOSEAlle.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnPLOSEAlle.UseVisualStyleBackColor = True
' '
'Button5 'Button5
' '
@@ -265,6 +269,20 @@ Partial Class usrCntlUSTV
Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.Button5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button5.UseVisualStyleBackColor = True Me.Button5.UseVisualStyleBackColor = True
' '
'Button8
'
Me.Button8.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button8.Image = Global.SDL.My.Resources.Resources.statistik_small
Me.Button8.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button8.Location = New System.Drawing.Point(213, 7)
Me.Button8.Margin = New System.Windows.Forms.Padding(0)
Me.Button8.Name = "Button8"
Me.Button8.Size = New System.Drawing.Size(145, 41)
Me.Button8.TabIndex = 6
Me.Button8.Text = "Eingereichte Anträge" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "mit Differenzbetrag"
Me.Button8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button8.UseVisualStyleBackColor = True
'
'usrCntlUSTV 'usrCntlUSTV
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -299,4 +317,5 @@ Partial Class usrCntlUSTV
Friend WithEvents Button8 As Button Friend WithEvents Button8 As Button
Friend WithEvents cboJahrBis As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboJahrBis As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Button5 As Button Friend WithEvents Button5 As Button
Friend WithEvents btnPLOSEAlle As Button
End Class End Class

44
SDL/USTV/usrCntlUSTV.vb
View File

@@ -6,14 +6,22 @@ Public Class usrCntlUSTV
Dim kundenSQL As New kundenSQL Dim kundenSQL As New kundenSQL
Dim SQL As New SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Dim FUNC As New cProgramFunctions Dim FUNC As New cProgramFunctions
Dim aktbtn As String = "" Dim aktbtn As String = ""
Dim dgvInitWait As Boolean = False Dim dgvInitWait As Boolean = False
Public kdNr As Integer = -1
Sub init(Optional kdNr = -1)
Sub init()
pnlFilter.AutoScroll = False pnlFilter.AutoScroll = False
' MsgBox(kdNr)
If kdNr > 0 Then
Me.kdNr = kdNr
KdSearchBox1.KdNr = kdNr
KdSearchBox1.Enabled = False
End If
btnPLOSEAlle.Enabled = KdSearchBox1.KdNr > 0
With dgvUSTV With dgvUSTV
.ClearSelection() .ClearSelection()
@@ -114,6 +122,10 @@ Public Class usrCntlUSTV
Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub usrCntlVERAGCard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' btnFilter.Left = Panel4.Width - btnFilter.Width ' btnFilter.Left = Panel4.Width - btnFilter.Width
KdSearchBox1.initKdBox(Me.FindForm) KdSearchBox1.initKdBox(Me.FindForm)
If kdNr > 0 Then
KdSearchBox1.KdNr = kdNr
KdSearchBox1.Enabled = False
End If
init() init()
cboJahr.Items.Clear() cboJahr.Items.Clear()
cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", "")) cboJahr.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -194,4 +206,30 @@ Public Class usrCntlUSTV
End If End If
' End If ' End If
End Sub End Sub
Private Sub btnPLOSEAlle_Click(sender As Object, e As EventArgs) Handles btnPLOSEAlle.Click
Try
Me.Cursor = Cursors.WaitCursor
If KdSearchBox1.KdNr <= 0 Then Exit Sub
If cboJahr._value = "" Then Exit Sub
If cboJahrBis._value = "" Then Exit Sub
Dim cnt = SQL.getValueTxtBySql(" SELECT COUNT(*) FROM [tblUStVAntrag] where UStVAn_AntragEingereichtAm is null AND UStVAn_KuNr=" & KdSearchBox1.KdNr & " AND UStVAn_ReDatVon>='01.01." & cboJahr._value & "' AND UStVAn_ReDatBis<='31.12." & cboJahrBis._value & "'", "FMZOLL")
If cnt = 0 Then MsgBox("Keine einreichbaren Anträge gefunden!") : Exit Sub
If vbYes = MsgBox("Es werden PLOSE Daten für " & cnt & " USTV-Anträge eingearbeitet. Möchten Sie fortfahren?", vbYesNoCancel) Then
For Each r As DataGridViewRow In dgvUSTV.Rows
If r.Cells("UStVAn_AntragEingereichtAm").Value Is DBNull.Value Then ' OrElse r.Cells("UStVAn_AntragEingereichtAm").Value = "" Then
'Dim Antrag_LandKz = SQL.DLookup("LandKz", "[Länderverzeichnis für die Außenhandelsstatistik]", "Landnr='" & r.Cells("UStVAn_LandNr").Value & "'", "FMZOLL")
frmMDM_USTVAntrag.loadUSTVFrom_PLOSE(r.Cells("UStVAn_ID").Value, r.Cells("LandKz").Value, False)
End If
Next
End If
init()
MsgBox("Fertig!")
Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Me.Cursor = Cursors.Default
End Sub
End Class End Class

196
SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb generated
View File

@@ -24,9 +24,13 @@ Partial Class ustCntlUSTV_AntragPosition
Private Sub InitializeComponent() Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container() Me.components = New System.ComponentModel.Container()
Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan() Me.scanLieferschein = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.tabDok = New System.Windows.Forms.TabPage()
Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.scanSonstiges = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbcntr = New System.Windows.Forms.TabControl() Me.tbcntr = New System.Windows.Forms.TabControl()
Me.tabVollmachten = New System.Windows.Forms.TabPage()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tabFABest = New System.Windows.Forms.TabPage()
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.cbxAPI = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components) Me.cbxAPI = New VERAG_PROG_ALLGEMEIN.MyCheckBoxValue(Me.components)
Me.Label8 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label()
Me.txtRgDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtRgDatum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -37,7 +41,7 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label1 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label()
Me.btnBildAuf = New System.Windows.Forms.Button() Me.btnBildAuf = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button()
Me.txtLeistender = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtLeistungsbezeichnung = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label2 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label()
@@ -48,7 +52,7 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label12 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label()
Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtUSTBetragEUR = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label13 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label()
Me.cboLeistungsbezeichnung = New VERAG_PROG_ALLGEMEIN.MyComboBox() Me.cboLeistungsgeber = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label()
Me.lblAenderungsdatum = New System.Windows.Forms.Label() Me.lblAenderungsdatum = New System.Windows.Forms.Label()
@@ -61,8 +65,10 @@ Partial Class ustCntlUSTV_AntragPosition
Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabControl1 = New System.Windows.Forms.TabControl()
Me.TabPage1 = New System.Windows.Forms.TabPage() Me.TabPage1 = New System.Windows.Forms.TabPage()
Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList() Me.UsrcntlPDFScanList1 = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.TabPage2.SuspendLayout() Me.tabDok.SuspendLayout()
Me.tbcntr.SuspendLayout() Me.tbcntr.SuspendLayout()
Me.tabVollmachten.SuspendLayout()
Me.tabFABest.SuspendLayout()
Me.Panel2.SuspendLayout() Me.Panel2.SuspendLayout()
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel1.SuspendLayout() Me.Panel1.SuspendLayout()
@@ -90,17 +96,18 @@ Partial Class ustCntlUSTV_AntragPosition
Me.scanLieferschein.Name = "scanLieferschein" Me.scanLieferschein.Name = "scanLieferschein"
Me.scanLieferschein.Size = New System.Drawing.Size(111, 34) Me.scanLieferschein.Size = New System.Drawing.Size(111, 34)
Me.scanLieferschein.TabIndex = 2 Me.scanLieferschein.TabIndex = 2
Me.scanLieferschein.Visible = False
' '
'TabPage2 'tabDok
' '
Me.TabPage2.Controls.Add(Me.scanSonstiges) Me.tabDok.Controls.Add(Me.scanSonstiges)
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.tabDok.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.tabDok.Name = "tabDok"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.tabDok.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(256, 170) Me.tabDok.Size = New System.Drawing.Size(256, 197)
Me.TabPage2.TabIndex = 1 Me.tabDok.TabIndex = 1
Me.TabPage2.Text = "Dokumente" Me.tabDok.Text = "Dokumente"
Me.TabPage2.UseVisualStyleBackColor = True Me.tabDok.UseVisualStyleBackColor = True
' '
'scanSonstiges 'scanSonstiges
' '
@@ -119,19 +126,82 @@ Partial Class ustCntlUSTV_AntragPosition
Me.scanSonstiges.Location = New System.Drawing.Point(3, 3) Me.scanSonstiges.Location = New System.Drawing.Point(3, 3)
Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0) Me.scanSonstiges.Margin = New System.Windows.Forms.Padding(0)
Me.scanSonstiges.Name = "scanSonstiges" Me.scanSonstiges.Name = "scanSonstiges"
Me.scanSonstiges.Size = New System.Drawing.Size(250, 164) Me.scanSonstiges.Size = New System.Drawing.Size(250, 191)
Me.scanSonstiges.TabIndex = 0 Me.scanSonstiges.TabIndex = 0
' '
'tbcntr 'tbcntr
' '
Me.tbcntr.Controls.Add(Me.TabPage2) Me.tbcntr.Controls.Add(Me.tabDok)
Me.tbcntr.Controls.Add(Me.tabVollmachten)
Me.tbcntr.Controls.Add(Me.tabFABest)
Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill Me.tbcntr.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntr.Location = New System.Drawing.Point(0, 43) Me.tbcntr.Location = New System.Drawing.Point(0, 16)
Me.tbcntr.Name = "tbcntr" Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0 Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(264, 196) Me.tbcntr.Size = New System.Drawing.Size(264, 223)
Me.tbcntr.TabIndex = 3 Me.tbcntr.TabIndex = 3
' '
'tabVollmachten
'
Me.tabVollmachten.Controls.Add(Me.scanUSTVVollmachten)
Me.tabVollmachten.Location = New System.Drawing.Point(4, 22)
Me.tabVollmachten.Name = "tabVollmachten"
Me.tabVollmachten.Padding = New System.Windows.Forms.Padding(3)
Me.tabVollmachten.Size = New System.Drawing.Size(256, 197)
Me.tabVollmachten.TabIndex = 2
Me.tabVollmachten.Text = "Vollmachten"
Me.tabVollmachten.UseVisualStyleBackColor = True
'
'scanUSTVVollmachten
'
Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
Me.scanUSTVVollmachten._TYPE = "PDF"
Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanUSTVVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
Me.scanUSTVVollmachten.Location = New System.Drawing.Point(3, 3)
Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten"
Me.scanUSTVVollmachten.Size = New System.Drawing.Size(250, 191)
Me.scanUSTVVollmachten.TabIndex = 1
'
'tabFABest
'
Me.tabFABest.Controls.Add(Me.scanUSTVFABest)
Me.tabFABest.Location = New System.Drawing.Point(4, 22)
Me.tabFABest.Name = "tabFABest"
Me.tabFABest.Size = New System.Drawing.Size(256, 197)
Me.tabFABest.TabIndex = 3
Me.tabFABest.Text = "FA_Bestätigung"
Me.tabFABest.UseVisualStyleBackColor = True
'
'scanUSTVFABest
'
Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVFABest._DATENSERVER_UOrdner1 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner2 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
Me.scanUSTVFABest._OPEN_ORIGINAL = False
Me.scanUSTVFABest._TYPE = "PDF"
Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Hand
Me.scanUSTVFABest.Dock = System.Windows.Forms.DockStyle.Fill
Me.scanUSTVFABest.Location = New System.Drawing.Point(0, 0)
Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVFABest.Name = "scanUSTVFABest"
Me.scanUSTVFABest.Size = New System.Drawing.Size(256, 197)
Me.scanUSTVFABest.TabIndex = 1
'
'cbxAPI 'cbxAPI
' '
Me.cbxAPI._date = Nothing Me.cbxAPI._date = Nothing
@@ -241,9 +311,9 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(442, 14) Me.Label1.Location = New System.Drawing.Point(442, 14)
Me.Label1.Name = "Label1" Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(59, 13) Me.Label1.Size = New System.Drawing.Size(55, 13)
Me.Label1.TabIndex = 1 Me.Label1.TabIndex = 1
Me.Label1.Text = "Leistung:" Me.Label1.Text = "Leistung"
' '
'btnBildAuf 'btnBildAuf
' '
@@ -271,28 +341,28 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter Me.Button1.TextAlign = System.Drawing.ContentAlignment.TopCenter
Me.Button1.UseVisualStyleBackColor = True Me.Button1.UseVisualStyleBackColor = True
' '
'txtLeistender 'txtLeistungsbezeichnung
' '
Me.txtLeistender._DateTimeOnly = False Me.txtLeistungsbezeichnung._DateTimeOnly = False
Me.txtLeistender._numbersOnly = False Me.txtLeistungsbezeichnung._numbersOnly = False
Me.txtLeistender._numbersOnlyKommastellen = "" Me.txtLeistungsbezeichnung._numbersOnlyKommastellen = ""
Me.txtLeistender._numbersOnlyTrennzeichen = True Me.txtLeistungsbezeichnung._numbersOnlyTrennzeichen = True
Me.txtLeistender._Prozent = False Me.txtLeistungsbezeichnung._Prozent = False
Me.txtLeistender._ShortDateNew = False Me.txtLeistungsbezeichnung._ShortDateNew = False
Me.txtLeistender._ShortDateOnly = False Me.txtLeistungsbezeichnung._ShortDateOnly = False
Me.txtLeistender._TimeOnly = False Me.txtLeistungsbezeichnung._TimeOnly = False
Me.txtLeistender._TimeOnly_Seconds = False Me.txtLeistungsbezeichnung._TimeOnly_Seconds = False
Me.txtLeistender._value = Nothing Me.txtLeistungsbezeichnung._value = Nothing
Me.txtLeistender._Waehrung = False Me.txtLeistungsbezeichnung._Waehrung = False
Me.txtLeistender._WaehrungZeichen = True Me.txtLeistungsbezeichnung._WaehrungZeichen = True
Me.txtLeistender.Location = New System.Drawing.Point(634, 49) Me.txtLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49)
Me.txtLeistender.MaxLength = 22 Me.txtLeistungsbezeichnung.MaxLength = 22
Me.txtLeistender.MaxLineLength = -1 Me.txtLeistungsbezeichnung.MaxLineLength = -1
Me.txtLeistender.MaxLines_Warning = "" Me.txtLeistungsbezeichnung.MaxLines_Warning = ""
Me.txtLeistender.MaxLines_Warning_Label = Nothing Me.txtLeistungsbezeichnung.MaxLines_Warning_Label = Nothing
Me.txtLeistender.Name = "txtLeistender" Me.txtLeistungsbezeichnung.Name = "txtLeistungsbezeichnung"
Me.txtLeistender.Size = New System.Drawing.Size(279, 20) Me.txtLeistungsbezeichnung.Size = New System.Drawing.Size(182, 20)
Me.txtLeistender.TabIndex = 9 Me.txtLeistungsbezeichnung.TabIndex = 9
' '
'Label2 'Label2
' '
@@ -300,9 +370,9 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label2.Location = New System.Drawing.Point(442, 31) Me.Label2.Location = New System.Drawing.Point(442, 31)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(134, 15) Me.Label2.Size = New System.Drawing.Size(139, 15)
Me.Label2.TabIndex = 4 Me.Label2.TabIndex = 4
Me.Label2.Text = "Leistungsbezeichnung:" Me.Label2.Text = "Leistungs-Bezeichnung:"
' '
'Label3 'Label3
' '
@@ -310,9 +380,9 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!) Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.5!)
Me.Label3.Location = New System.Drawing.Point(630, 31) Me.Label3.Location = New System.Drawing.Point(630, 31)
Me.Label3.Name = "Label3" Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(82, 15) Me.Label3.Size = New System.Drawing.Size(101, 15)
Me.Label3.TabIndex = 5 Me.Label3.TabIndex = 5
Me.Label3.Text = "Leistungeber:" Me.Label3.Text = "Leistungs-Geber:"
' '
'Label6 'Label6
' '
@@ -436,16 +506,16 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Label13.TabIndex = 13 Me.Label13.TabIndex = 13
Me.Label13.Text = "USt-Betrag EUR" Me.Label13.Text = "USt-Betrag EUR"
' '
'cboLeistungsbezeichnung 'cboLeistungsgeber
' '
Me.cboLeistungsbezeichnung._allowedValuesFreiText = Nothing Me.cboLeistungsgeber._allowedValuesFreiText = Nothing
Me.cboLeistungsbezeichnung._allowFreiText = False Me.cboLeistungsgeber._allowFreiText = False
Me.cboLeistungsbezeichnung._value = "" Me.cboLeistungsgeber._value = ""
Me.cboLeistungsbezeichnung.FormattingEnabled = True Me.cboLeistungsgeber.FormattingEnabled = True
Me.cboLeistungsbezeichnung.Location = New System.Drawing.Point(445, 49) Me.cboLeistungsgeber.Location = New System.Drawing.Point(633, 49)
Me.cboLeistungsbezeichnung.Name = "cboLeistungsbezeichnung" Me.cboLeistungsgeber.Name = "cboLeistungsgeber"
Me.cboLeistungsbezeichnung.Size = New System.Drawing.Size(183, 21) Me.cboLeistungsgeber.Size = New System.Drawing.Size(280, 21)
Me.cboLeistungsbezeichnung.TabIndex = 8 Me.cboLeistungsgeber.TabIndex = 8
' '
'Label4 'Label4
' '
@@ -514,8 +584,8 @@ Partial Class ustCntlUSTV_AntragPosition
Me.pnl.Controls.Add(Me.Label4) Me.pnl.Controls.Add(Me.Label4)
Me.pnl.Controls.Add(Me.cbxAPI) Me.pnl.Controls.Add(Me.cbxAPI)
Me.pnl.Controls.Add(Me.Label1) Me.pnl.Controls.Add(Me.Label1)
Me.pnl.Controls.Add(Me.cboLeistungsbezeichnung) Me.pnl.Controls.Add(Me.cboLeistungsgeber)
Me.pnl.Controls.Add(Me.txtLeistender) Me.pnl.Controls.Add(Me.txtLeistungsbezeichnung)
Me.pnl.Controls.Add(Me.txtUSTBetragEUR) Me.pnl.Controls.Add(Me.txtUSTBetragEUR)
Me.pnl.Controls.Add(Me.Label2) Me.pnl.Controls.Add(Me.Label2)
Me.pnl.Controls.Add(Me.Label13) Me.pnl.Controls.Add(Me.Label13)
@@ -558,7 +628,7 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top Me.Panel4.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel4.Location = New System.Drawing.Point(0, 0) Me.Panel4.Location = New System.Drawing.Point(0, 0)
Me.Panel4.Name = "Panel4" Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(264, 43) Me.Panel4.Size = New System.Drawing.Size(264, 16)
Me.Panel4.TabIndex = 26 Me.Panel4.TabIndex = 26
' '
'TabControl1 'TabControl1
@@ -611,8 +681,10 @@ Partial Class ustCntlUSTV_AntragPosition
Me.Controls.Add(Me.Panel2) Me.Controls.Add(Me.Panel2)
Me.Name = "ustCntlUSTV_AntragPosition" Me.Name = "ustCntlUSTV_AntragPosition"
Me.Size = New System.Drawing.Size(1300, 269) Me.Size = New System.Drawing.Size(1300, 269)
Me.TabPage2.ResumeLayout(False) Me.tabDok.ResumeLayout(False)
Me.tbcntr.ResumeLayout(False) Me.tbcntr.ResumeLayout(False)
Me.tabVollmachten.ResumeLayout(False)
Me.tabFABest.ResumeLayout(False)
Me.Panel2.ResumeLayout(False) Me.Panel2.ResumeLayout(False)
Me.Panel2.PerformLayout() Me.Panel2.PerformLayout()
Me.pnl.ResumeLayout(False) Me.pnl.ResumeLayout(False)
@@ -626,7 +698,7 @@ Partial Class ustCntlUSTV_AntragPosition
End Sub End Sub
Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan Friend WithEvents scanLieferschein As VERAG_PROG_ALLGEMEIN.usrcntlPDFScan
Friend WithEvents TabPage2 As TabPage Friend WithEvents tabDok As TabPage
Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList Friend WithEvents scanSonstiges As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tbcntr As TabControl Friend WithEvents tbcntr As TabControl
Friend WithEvents cbxAPI As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue Friend WithEvents cbxAPI As VERAG_PROG_ALLGEMEIN.MyCheckBoxValue
@@ -639,7 +711,7 @@ Partial Class ustCntlUSTV_AntragPosition
Friend WithEvents Label1 As Label Friend WithEvents Label1 As Label
Friend WithEvents btnBildAuf As Button Friend WithEvents btnBildAuf As Button
Friend WithEvents Button1 As Button Friend WithEvents Button1 As Button
Friend WithEvents txtLeistender As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtLeistungsbezeichnung As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label2 As Label Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label Friend WithEvents Label3 As Label
Friend WithEvents Label6 As Label Friend WithEvents Label6 As Label
@@ -650,7 +722,7 @@ Partial Class ustCntlUSTV_AntragPosition
Friend WithEvents Label12 As Label Friend WithEvents Label12 As Label
Friend WithEvents txtUSTBetragEUR As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txtUSTBetragEUR As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label13 As Label Friend WithEvents Label13 As Label
Friend WithEvents cboLeistungsbezeichnung As VERAG_PROG_ALLGEMEIN.MyComboBox Friend WithEvents cboLeistungsgeber As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label4 As Label Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label Friend WithEvents Label5 As Label
Friend WithEvents lblAenderungsdatum As Label Friend WithEvents lblAenderungsdatum As Label
@@ -663,4 +735,8 @@ Partial Class ustCntlUSTV_AntragPosition
Friend WithEvents TabControl1 As TabControl Friend WithEvents TabControl1 As TabControl
Friend WithEvents TabPage1 As TabPage Friend WithEvents TabPage1 As TabPage
Friend WithEvents UsrcntlPDFScanList1 As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList Friend WithEvents UsrcntlPDFScanList1 As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tabVollmachten As TabPage
Friend WithEvents tabFABest As TabPage
Friend WithEvents scanUSTVVollmachten As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanUSTVFABest As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
End Class End Class

20
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -2,6 +2,7 @@
Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing Public UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen = Nothing
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
Dim Antrag_LandKz = "" Dim Antrag_LandKz = ""
Dim kdnr = ""
Public Event EV_PREV() Public Event EV_PREV()
Public Event EV_NEXT() Public Event EV_NEXT()
@@ -20,18 +21,19 @@
txtRgNr._value = "" txtRgNr._value = ""
End Sub End Sub
Sub setValues(UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String) Sub setValues(kdnr As Integer, UStV_POS As VERAG_PROG_ALLGEMEIN.cUStVPositionen, Antrag_LandKz As String)
gridAktiv = False gridAktiv = False
Me.Antrag_LandKz = Antrag_LandKz Me.Antrag_LandKz = Antrag_LandKz
Me.UStV_POS = UStV_POS Me.UStV_POS = UStV_POS
Me.kdnr = kdnr
cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False) cbxAPI.Checked = If(UStV_POS.UStVPo_Schnittstelle, False)
cboSchnittstellennr.changeItem(If(UStV_POS.UStVPo_SchnittstellenNr, "")) cboSchnittstellennr.changeItem(If(UStV_POS.UStVPo_SchnittstellenNr, ""))
txtRgDatum._value = If(UStV_POS.UStVPo_ReDat, "") txtRgDatum._value = If(UStV_POS.UStVPo_ReDat, "")
txtRgNr._value = If(UStV_POS.UStVPo_ReNr, "") txtRgNr._value = If(UStV_POS.UStVPo_ReNr, "")
lblSachbearbeiter.Text = If(UStV_POS.UStVPo_Sachbearbeiter, "") lblSachbearbeiter.Text = If(UStV_POS.UStVPo_Sachbearbeiter, "")
If UStV_POS.UStVPo_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_POS.UStVPo_Zeitstempel).ToString("dd.MM.yyyy HH:mm") If UStV_POS.UStVPo_Zeitstempel IsNot Nothing Then lblAenderungsdatum.Text = CDate(UStV_POS.UStVPo_Zeitstempel).ToString("dd.MM.yyyy HH:mm")
txtLeistender.Text = If(UStV_POS.UStVPo_Leistender, "") cboLeistungsgeber.Text = If(UStV_POS.UStVPo_Leistender, "")
cboLeistungsbezeichnung.Text = If(UStV_POS.UStVPo_Leistungsbezeichnung, "") txtLeistungsbezeichnung.Text = If(UStV_POS.UStVPo_Leistungsbezeichnung, "")
txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "") txtUSTBetrag.Text = If(UStV_POS.UStVPo_USteuerbetrag, "")
txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "") txtUmrechnungskurs.Text = If(UStV_POS.UStVPo_Umrechnungskurs, "")
txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "") txtUSTBetragEUR.Text = If(UStV_POS.UStVPo_USteuerbetragEUR, "")
@@ -42,6 +44,8 @@
End Select End Select
scanSonstiges.INIT_daId(da_id) scanSonstiges.INIT_daId(da_id)
scanUSTVFABest.INIT(kdnr, "KUNDENDATEN", "FA_Bestaetigungen")
scanUSTVVollmachten.INIT(kdnr, "KUNDENDATEN", "USTV_Vollmachten")
gridAktiv = True gridAktiv = True
End Sub End Sub
@@ -51,6 +55,9 @@
'UStV_POS. 'UStV_POS.
UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME UStV_POS.UStVPo_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
UStV_POS.UStVPo_Zeitstempel = Now UStV_POS.UStVPo_Zeitstempel = Now
'TO DO!!!!!
End Sub End Sub
Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown Private Sub ustCntlUSTV_AntragPosition_KeyDown(sender As Object, e As PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
@@ -78,8 +85,8 @@
Return UStV_POS.save Return UStV_POS.save
End Function End Function
Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged, cboLeistungsbezeichnung.SelectedIndexChanged, Private Sub txtBestellung_TextChanged(sender As Object, e As EventArgs) Handles txtRgDatum.PropertyChanged, txtRgNr.TextChanged, cboLeistungsgeber.SelectedIndexChanged,
txtLeistender.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetragEUR.TextChanged ', cbxAPI.CheckedChanged, cboSchnittstellennr.SelectedIndexChanged txtLeistungsbezeichnung.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetrag.TextChanged, txtUSTBetragEUR.TextChanged ', cbxAPI.CheckedChanged, cboSchnittstellennr.SelectedIndexChanged
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MDM_Leistungen_bearbeiten", Me.FindForm) Then Exit Sub
@@ -99,7 +106,4 @@
Private Sub ustCntlUSTV_AntragPosition_Load(sender As Object, e As EventArgs) Handles Me.Load
End Sub
End Class End Class

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

@@ -152,6 +152,15 @@ Partial Class frmKundenblatt
Me.tbBesuchsberichte = New System.Windows.Forms.TabPage() Me.tbBesuchsberichte = New System.Windows.Forms.TabPage()
Me.tbOfferte = New System.Windows.Forms.TabPage() Me.tbOfferte = New System.Windows.Forms.TabPage()
Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte() Me.UsrCntlOfferte1 = New SDL.usrCntlOfferte()
Me.tbUSTV = New System.Windows.Forms.TabPage()
Me.tbcntrUSTV = New System.Windows.Forms.TabControl()
Me.tbUSTVDokumente = New System.Windows.Forms.TabPage()
Me.Label27 = New System.Windows.Forms.Label()
Me.Label37 = New System.Windows.Forms.Label()
Me.scanUSTVFABest = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
@@ -167,6 +176,7 @@ Partial Class frmKundenblatt
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
Me.pnl = New System.Windows.Forms.Panel() Me.pnl = New System.Windows.Forms.Panel()
@@ -212,6 +222,10 @@ Partial Class frmKundenblatt
Me.tbVERAGCard.SuspendLayout() Me.tbVERAGCard.SuspendLayout()
Me.tbDokumente.SuspendLayout() Me.tbDokumente.SuspendLayout()
Me.tbOfferte.SuspendLayout() Me.tbOfferte.SuspendLayout()
Me.tbUSTV.SuspendLayout()
Me.tbcntrUSTV.SuspendLayout()
Me.tbUSTVDokumente.SuspendLayout()
Me.tbUSTVAntrage.SuspendLayout()
Me.cntxtExcel.SuspendLayout() Me.cntxtExcel.SuspendLayout()
Me.ContextMenuStrip2.SuspendLayout() Me.ContextMenuStrip2.SuspendLayout()
Me.ContextMenuStrip3.SuspendLayout() Me.ContextMenuStrip3.SuspendLayout()
@@ -247,7 +261,7 @@ Partial Class frmKundenblatt
Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25) Me.tbFirmendaten.Location = New System.Drawing.Point(4, 25)
Me.tbFirmendaten.Name = "tbFirmendaten" Me.tbFirmendaten.Name = "tbFirmendaten"
Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3) Me.tbFirmendaten.Padding = New System.Windows.Forms.Padding(3)
Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 727) Me.tbFirmendaten.Size = New System.Drawing.Size(1630, 744)
Me.tbFirmendaten.TabIndex = 3 Me.tbFirmendaten.TabIndex = 3
Me.tbFirmendaten.Text = "Firmendaten" Me.tbFirmendaten.Text = "Firmendaten"
' '
@@ -257,7 +271,7 @@ Partial Class frmKundenblatt
Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill Me.Panel4.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel4.Location = New System.Drawing.Point(3, 3) Me.Panel4.Location = New System.Drawing.Point(3, 3)
Me.Panel4.Name = "Panel4" Me.Panel4.Name = "Panel4"
Me.Panel4.Size = New System.Drawing.Size(1624, 721) Me.Panel4.Size = New System.Drawing.Size(1624, 738)
Me.Panel4.TabIndex = 0 Me.Panel4.TabIndex = 0
' '
'UsrcntlKundeBearbeitenFull1 'UsrcntlKundeBearbeitenFull1
@@ -267,7 +281,7 @@ Partial Class frmKundenblatt
Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0) Me.UsrcntlKundeBearbeitenFull1.Location = New System.Drawing.Point(0, 0)
Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.UsrcntlKundeBearbeitenFull1.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1" Me.UsrcntlKundeBearbeitenFull1.Name = "UsrcntlKundeBearbeitenFull1"
Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 721) Me.UsrcntlKundeBearbeitenFull1.Size = New System.Drawing.Size(1624, 738)
Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0 Me.UsrcntlKundeBearbeitenFull1.TabIndex = 0
' '
'tbcntrMain 'tbcntrMain
@@ -278,13 +292,14 @@ Partial Class frmKundenblatt
Me.tbcntrMain.Controls.Add(Me.tbZoll) Me.tbcntrMain.Controls.Add(Me.tbZoll)
Me.tbcntrMain.Controls.Add(Me.tbMdm) Me.tbcntrMain.Controls.Add(Me.tbMdm)
Me.tbcntrMain.Controls.Add(Me.tbOfferte) Me.tbcntrMain.Controls.Add(Me.tbOfferte)
Me.tbcntrMain.Controls.Add(Me.tbUSTV)
Me.tbcntrMain.Dock = System.Windows.Forms.DockStyle.Fill Me.tbcntrMain.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntrMain.ItemSize = New System.Drawing.Size(76, 0) Me.tbcntrMain.ItemSize = New System.Drawing.Size(76, 0)
Me.tbcntrMain.Location = New System.Drawing.Point(0, 112) Me.tbcntrMain.Location = New System.Drawing.Point(0, 112)
Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMain.Name = "tbcntrMain" Me.tbcntrMain.Name = "tbcntrMain"
Me.tbcntrMain.SelectedIndex = 0 Me.tbcntrMain.SelectedIndex = 0
Me.tbcntrMain.Size = New System.Drawing.Size(1638, 756) Me.tbcntrMain.Size = New System.Drawing.Size(1638, 790)
Me.tbcntrMain.TabIndex = 3 Me.tbcntrMain.TabIndex = 3
' '
'tbAllgemein 'tbAllgemein
@@ -317,7 +332,7 @@ Partial Class frmKundenblatt
Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0) Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
Me.tbAllgemein.Name = "tbAllgemein" Me.tbAllgemein.Name = "tbAllgemein"
Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3) Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
Me.tbAllgemein.Size = New System.Drawing.Size(1630, 727) Me.tbAllgemein.Size = New System.Drawing.Size(1630, 761)
Me.tbAllgemein.TabIndex = 0 Me.tbAllgemein.TabIndex = 0
Me.tbAllgemein.Text = "Allgemein" Me.tbAllgemein.Text = "Allgemein"
' '
@@ -652,7 +667,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6 Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
Me.dgvSperrliste.Size = New System.Drawing.Size(835, 617) Me.dgvSperrliste.Size = New System.Drawing.Size(835, 651)
Me.dgvSperrliste.TabIndex = 23 Me.dgvSperrliste.TabIndex = 23
' '
'PictureBox2 'PictureBox2
@@ -706,7 +721,7 @@ Partial Class frmKundenblatt
Me.tbZoll.Location = New System.Drawing.Point(4, 25) Me.tbZoll.Location = New System.Drawing.Point(4, 25)
Me.tbZoll.Name = "tbZoll" Me.tbZoll.Name = "tbZoll"
Me.tbZoll.Padding = New System.Windows.Forms.Padding(3) Me.tbZoll.Padding = New System.Windows.Forms.Padding(3)
Me.tbZoll.Size = New System.Drawing.Size(1630, 727) Me.tbZoll.Size = New System.Drawing.Size(1630, 744)
Me.tbZoll.TabIndex = 9 Me.tbZoll.TabIndex = 9
Me.tbZoll.Text = "ZOLL" Me.tbZoll.Text = "ZOLL"
Me.tbZoll.UseVisualStyleBackColor = True Me.tbZoll.UseVisualStyleBackColor = True
@@ -718,7 +733,7 @@ Partial Class frmKundenblatt
Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3) Me.tbcntrZOLL.Location = New System.Drawing.Point(3, 3)
Me.tbcntrZOLL.Name = "tbcntrZOLL" Me.tbcntrZOLL.Name = "tbcntrZOLL"
Me.tbcntrZOLL.SelectedIndex = 0 Me.tbcntrZOLL.SelectedIndex = 0
Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 721) Me.tbcntrZOLL.Size = New System.Drawing.Size(1624, 738)
Me.tbcntrZOLL.TabIndex = 0 Me.tbcntrZOLL.TabIndex = 0
' '
'tabZoll_Artikel 'tabZoll_Artikel
@@ -726,7 +741,7 @@ Partial Class frmKundenblatt
Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22) Me.tabZoll_Artikel.Location = New System.Drawing.Point(4, 22)
Me.tabZoll_Artikel.Name = "tabZoll_Artikel" Me.tabZoll_Artikel.Name = "tabZoll_Artikel"
Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3) Me.tabZoll_Artikel.Padding = New System.Windows.Forms.Padding(3)
Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 695) Me.tabZoll_Artikel.Size = New System.Drawing.Size(1616, 712)
Me.tabZoll_Artikel.TabIndex = 1 Me.tabZoll_Artikel.TabIndex = 1
Me.tabZoll_Artikel.Text = "Artikel" Me.tabZoll_Artikel.Text = "Artikel"
Me.tabZoll_Artikel.UseVisualStyleBackColor = True Me.tabZoll_Artikel.UseVisualStyleBackColor = True
@@ -737,7 +752,7 @@ Partial Class frmKundenblatt
Me.tbMdm.Location = New System.Drawing.Point(4, 25) Me.tbMdm.Location = New System.Drawing.Point(4, 25)
Me.tbMdm.Name = "tbMdm" Me.tbMdm.Name = "tbMdm"
Me.tbMdm.Padding = New System.Windows.Forms.Padding(3) Me.tbMdm.Padding = New System.Windows.Forms.Padding(3)
Me.tbMdm.Size = New System.Drawing.Size(1630, 727) Me.tbMdm.Size = New System.Drawing.Size(1630, 744)
Me.tbMdm.TabIndex = 10 Me.tbMdm.TabIndex = 10
Me.tbMdm.Text = "MDM" Me.tbMdm.Text = "MDM"
Me.tbMdm.UseVisualStyleBackColor = True Me.tbMdm.UseVisualStyleBackColor = True
@@ -755,7 +770,7 @@ Partial Class frmKundenblatt
Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0) Me.tbcntrMDM.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrMDM.Name = "tbcntrMDM" Me.tbcntrMDM.Name = "tbcntrMDM"
Me.tbcntrMDM.SelectedIndex = 0 Me.tbcntrMDM.SelectedIndex = 0
Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 721) Me.tbcntrMDM.Size = New System.Drawing.Size(1624, 738)
Me.tbcntrMDM.TabIndex = 0 Me.tbcntrMDM.TabIndex = 0
' '
'tbSDL 'tbSDL
@@ -767,7 +782,7 @@ Partial Class frmKundenblatt
Me.tbSDL.Margin = New System.Windows.Forms.Padding(0) Me.tbSDL.Margin = New System.Windows.Forms.Padding(0)
Me.tbSDL.Name = "tbSDL" Me.tbSDL.Name = "tbSDL"
Me.tbSDL.Padding = New System.Windows.Forms.Padding(3) Me.tbSDL.Padding = New System.Windows.Forms.Padding(3)
Me.tbSDL.Size = New System.Drawing.Size(1616, 695) Me.tbSDL.Size = New System.Drawing.Size(1616, 712)
Me.tbSDL.TabIndex = 5 Me.tbSDL.TabIndex = 5
Me.tbSDL.Text = "SDL-Leistungen" Me.tbSDL.Text = "SDL-Leistungen"
Me.tbSDL.UseVisualStyleBackColor = True Me.tbSDL.UseVisualStyleBackColor = True
@@ -809,7 +824,7 @@ Partial Class frmKundenblatt
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True] DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10 Me.dgvSDLLeistungenFull.RowHeadersDefaultCellStyle = DataGridViewCellStyle10
Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect Me.dgvSDLLeistungenFull.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 499) Me.dgvSDLLeistungenFull.Size = New System.Drawing.Size(1610, 516)
Me.dgvSDLLeistungenFull.TabIndex = 5 Me.dgvSDLLeistungenFull.TabIndex = 5
' '
'Panel6 'Panel6
@@ -913,7 +928,7 @@ Partial Class frmKundenblatt
Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL) Me.Panel5.Controls.Add(Me.lblLetzterSA_SDL)
Me.Panel5.Controls.Add(Me.rtbVermerke) Me.Panel5.Controls.Add(Me.rtbVermerke)
Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom Me.Panel5.Dock = System.Windows.Forms.DockStyle.Bottom
Me.Panel5.Location = New System.Drawing.Point(3, 549) Me.Panel5.Location = New System.Drawing.Point(3, 566)
Me.Panel5.Name = "Panel5" Me.Panel5.Name = "Panel5"
Me.Panel5.Size = New System.Drawing.Size(1610, 143) Me.Panel5.Size = New System.Drawing.Size(1610, 143)
Me.Panel5.TabIndex = 177 Me.Panel5.TabIndex = 177
@@ -1777,7 +1792,7 @@ Partial Class frmKundenblatt
Me.tbOfferte.Location = New System.Drawing.Point(4, 25) Me.tbOfferte.Location = New System.Drawing.Point(4, 25)
Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2) Me.tbOfferte.Margin = New System.Windows.Forms.Padding(2)
Me.tbOfferte.Name = "tbOfferte" Me.tbOfferte.Name = "tbOfferte"
Me.tbOfferte.Size = New System.Drawing.Size(1630, 727) Me.tbOfferte.Size = New System.Drawing.Size(1630, 744)
Me.tbOfferte.TabIndex = 11 Me.tbOfferte.TabIndex = 11
Me.tbOfferte.Text = "Offerte" Me.tbOfferte.Text = "Offerte"
Me.tbOfferte.UseVisualStyleBackColor = True Me.tbOfferte.UseVisualStyleBackColor = True
@@ -1789,9 +1804,121 @@ Partial Class frmKundenblatt
Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0) Me.UsrCntlOfferte1.Location = New System.Drawing.Point(0, 0)
Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1) Me.UsrCntlOfferte1.Margin = New System.Windows.Forms.Padding(1)
Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1" Me.UsrCntlOfferte1.Name = "UsrCntlOfferte1"
Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 727) Me.UsrCntlOfferte1.Size = New System.Drawing.Size(1630, 744)
Me.UsrCntlOfferte1.TabIndex = 0 Me.UsrCntlOfferte1.TabIndex = 0
' '
'tbUSTV
'
Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
Me.tbUSTV.Name = "tbUSTV"
Me.tbUSTV.Size = New System.Drawing.Size(1630, 761)
Me.tbUSTV.TabIndex = 12
Me.tbUSTV.Text = "USTV"
Me.tbUSTV.UseVisualStyleBackColor = True
'
'tbcntrUSTV
'
Me.tbcntrUSTV.Controls.Add(Me.tbUSTVDokumente)
Me.tbcntrUSTV.Controls.Add(Me.tbUSTVAntrage)
Me.tbcntrUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.tbcntrUSTV.Location = New System.Drawing.Point(0, 0)
Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
Me.tbcntrUSTV.Name = "tbcntrUSTV"
Me.tbcntrUSTV.SelectedIndex = 0
Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 761)
Me.tbcntrUSTV.TabIndex = 1
'
'tbUSTVDokumente
'
Me.tbUSTVDokumente.Controls.Add(Me.Label27)
Me.tbUSTVDokumente.Controls.Add(Me.Label37)
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVFABest)
Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 735)
Me.tbUSTVDokumente.TabIndex = 8
Me.tbUSTVDokumente.Text = "Dokumente"
Me.tbUSTVDokumente.UseVisualStyleBackColor = True
'
'Label27
'
Me.Label27.AutoSize = True
Me.Label27.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label27.Location = New System.Drawing.Point(311, 17)
Me.Label27.Name = "Label27"
Me.Label27.Size = New System.Drawing.Size(153, 13)
Me.Label27.TabIndex = 6
Me.Label27.Text = "Finanzamt-Bestätigungen:"
'
'Label37
'
Me.Label37.AutoSize = True
Me.Label37.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label37.Location = New System.Drawing.Point(14, 17)
Me.Label37.Name = "Label37"
Me.Label37.Size = New System.Drawing.Size(113, 13)
Me.Label37.TabIndex = 2
Me.Label37.Text = "USTV Vollmachten"
'
'scanUSTVFABest
'
Me.scanUSTVFABest._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVFABest._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVFABest._DATENSERVER_UOrdner1 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner2 = ""
Me.scanUSTVFABest._DATENSERVER_UOrdner3 = ""
Me.scanUSTVFABest._OPEN_ORIGINAL = False
Me.scanUSTVFABest._TYPE = "PDF"
Me.scanUSTVFABest.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVFABest.BackColor = System.Drawing.Color.White
Me.scanUSTVFABest.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVFABest.Cursor = System.Windows.Forms.Cursors.Default
Me.scanUSTVFABest.Location = New System.Drawing.Point(311, 36)
Me.scanUSTVFABest.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVFABest.Name = "scanUSTVFABest"
Me.scanUSTVFABest.Size = New System.Drawing.Size(285, 505)
Me.scanUSTVFABest.TabIndex = 5
'
'scanUSTVVollmachten
'
Me.scanUSTVVollmachten._DATENSERVER_KATEGORIE = "DOKUMENTE"
Me.scanUSTVVollmachten._DATENSERVER_ORDNER = "MDM"
Me.scanUSTVVollmachten._DATENSERVER_UOrdner1 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner2 = ""
Me.scanUSTVVollmachten._DATENSERVER_UOrdner3 = ""
Me.scanUSTVVollmachten._OPEN_ORIGINAL = False
Me.scanUSTVVollmachten._TYPE = "PDF"
Me.scanUSTVVollmachten.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
Me.scanUSTVVollmachten.BackColor = System.Drawing.Color.White
Me.scanUSTVVollmachten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.scanUSTVVollmachten.Cursor = System.Windows.Forms.Cursors.Default
Me.scanUSTVVollmachten.Location = New System.Drawing.Point(14, 36)
Me.scanUSTVVollmachten.Margin = New System.Windows.Forms.Padding(0)
Me.scanUSTVVollmachten.Name = "scanUSTVVollmachten"
Me.scanUSTVVollmachten.Size = New System.Drawing.Size(285, 505)
Me.scanUSTVVollmachten.TabIndex = 1
'
'tbUSTVAntrage
'
Me.tbUSTVAntrage.Controls.Add(Me.UsrCntlUSTV)
Me.tbUSTVAntrage.Location = New System.Drawing.Point(4, 22)
Me.tbUSTVAntrage.Name = "tbUSTVAntrage"
Me.tbUSTVAntrage.Padding = New System.Windows.Forms.Padding(3)
Me.tbUSTVAntrage.Size = New System.Drawing.Size(1622, 735)
Me.tbUSTVAntrage.TabIndex = 9
Me.tbUSTVAntrage.Text = "USTV-Anträge"
Me.tbUSTVAntrage.UseVisualStyleBackColor = True
'
'UsrCntlUSTV
'
Me.UsrCntlUSTV.Dock = System.Windows.Forms.DockStyle.Fill
Me.UsrCntlUSTV.Location = New System.Drawing.Point(3, 3)
Me.UsrCntlUSTV.Name = "UsrCntlUSTV"
Me.UsrCntlUSTV.Size = New System.Drawing.Size(1616, 729)
Me.UsrCntlUSTV.TabIndex = 0
'
'cntxtExcel 'cntxtExcel
' '
Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtExcel.ImageScalingSize = New System.Drawing.Size(24, 24)
@@ -1877,7 +2004,7 @@ Partial Class frmKundenblatt
Me.mne.Dock = System.Windows.Forms.DockStyle.Bottom Me.mne.Dock = System.Windows.Forms.DockStyle.Bottom
Me.mne.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.mne.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.mne.ImageScalingSize = New System.Drawing.Size(25, 25) Me.mne.ImageScalingSize = New System.Drawing.Size(25, 25)
Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7}) Me.mne.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.AllgemeinToolStripMenuItem, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.ToolStripMenuItem8, Me.ToolStripMenuItem5, Me.ToolStripMenuItem7})
Me.mne.Location = New System.Drawing.Point(0, 31) Me.mne.Location = New System.Drawing.Point(0, 31)
Me.mne.Name = "mne" Me.mne.Name = "mne"
Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0) Me.mne.Padding = New System.Windows.Forms.Padding(5, 0, 0, 0)
@@ -1934,10 +2061,27 @@ Partial Class frmKundenblatt
' '
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24) Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM" Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4 Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4) Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM" Me.cntxtCntxtMDM.Text = "cntxtMDM"
' '
'ToolStripMenuItem8
'
Me.ToolStripMenuItem8.AutoSize = False
Me.ToolStripMenuItem8.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
Me.ToolStripMenuItem8.DropDown = Me.cntxtCntxtMDM
Me.ToolStripMenuItem8.ForeColor = System.Drawing.Color.White
Me.ToolStripMenuItem8.Image = Global.SDL.My.Resources.Resources.logo_mdm
Me.ToolStripMenuItem8.ImageAlign = System.Drawing.ContentAlignment.TopCenter
Me.ToolStripMenuItem8.ImageScaling = System.Windows.Forms.ToolStripItemImageScaling.None
Me.ToolStripMenuItem8.MergeIndex = 10
Me.ToolStripMenuItem8.Name = "ToolStripMenuItem8"
Me.ToolStripMenuItem8.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStripMenuItem8.Size = New System.Drawing.Size(94, 60)
Me.ToolStripMenuItem8.Text = "USTV"
Me.ToolStripMenuItem8.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.ToolStripMenuItem8.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripMenuItem5 'ToolStripMenuItem5
' '
Me.ToolStripMenuItem5.AutoSize = False Me.ToolStripMenuItem5.AutoSize = False
@@ -2057,7 +2201,7 @@ Partial Class frmKundenblatt
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoScroll = True Me.AutoScroll = True
Me.BackColor = System.Drawing.Color.White Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1180, 885) Me.ClientSize = New System.Drawing.Size(1180, 919)
Me.Controls.Add(Me.lblAbfVerb) Me.Controls.Add(Me.lblAbfVerb)
Me.Controls.Add(Me.btnAbfVerb) Me.Controls.Add(Me.btnAbfVerb)
Me.Controls.Add(Me.tbcntrMain) Me.Controls.Add(Me.tbcntrMain)
@@ -2117,6 +2261,11 @@ Partial Class frmKundenblatt
Me.tbDokumente.ResumeLayout(False) Me.tbDokumente.ResumeLayout(False)
Me.tbDokumente.PerformLayout() Me.tbDokumente.PerformLayout()
Me.tbOfferte.ResumeLayout(False) Me.tbOfferte.ResumeLayout(False)
Me.tbUSTV.ResumeLayout(False)
Me.tbcntrUSTV.ResumeLayout(False)
Me.tbUSTVDokumente.ResumeLayout(False)
Me.tbUSTVDokumente.PerformLayout()
Me.tbUSTVAntrage.ResumeLayout(False)
Me.cntxtExcel.ResumeLayout(False) Me.cntxtExcel.ResumeLayout(False)
Me.ContextMenuStrip2.ResumeLayout(False) Me.ContextMenuStrip2.ResumeLayout(False)
Me.ContextMenuStrip3.ResumeLayout(False) Me.ContextMenuStrip3.ResumeLayout(False)
@@ -2266,4 +2415,14 @@ Partial Class frmKundenblatt
Friend WithEvents Label7 As Label Friend WithEvents Label7 As Label
Friend WithEvents scanUebernahmebestätigungen As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList Friend WithEvents scanUebernahmebestätigungen As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tbBesuchsberichte As TabPage Friend WithEvents tbBesuchsberichte As TabPage
Friend WithEvents tbUSTV As TabPage
Friend WithEvents ToolStripMenuItem8 As ToolStripMenuItem
Friend WithEvents tbcntrUSTV As TabControl
Friend WithEvents tbUSTVDokumente As TabPage
Friend WithEvents Label27 As Label
Friend WithEvents Label37 As Label
Friend WithEvents scanUSTVFABest As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents scanUSTVVollmachten As VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList
Friend WithEvents tbUSTVAntrage As TabPage
Friend WithEvents UsrCntlUSTV As usrCntlUSTV
End Class End Class

33
SDL/kunden/frmKundenblatt.vb
View File

@@ -40,6 +40,17 @@ Public Class frmKundenblatt
Private WithEvents timShow As New Timer With {.Interval = 10} Private WithEvents timShow As New Timer With {.Interval = 10}
Private WithEvents timHide As New Timer With {.Interval = 10} Private WithEvents timHide As New Timer With {.Interval = 10}
Sub New()
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
End Sub
Private Sub frmKundenblatt_BackColorChanged(sender As Object, e As EventArgs) Handles pnl.BackColorChanged Private Sub frmKundenblatt_BackColorChanged(sender As Object, e As EventArgs) Handles pnl.BackColorChanged
'lblFirma.BackColor = sender.BackColor 'lblFirma.BackColor = sender.BackColor
' pnl.BackColor = sender.BackColor ' pnl.BackColor = sender.BackColor
@@ -219,7 +230,7 @@ Public Class frmKundenblatt
End If End If
' lblFirma.Text = KUNDE.Kurzname ' lblFirma.Text = KUNDE.Kurzname
End Sub End Sub
Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrMain.SelectedIndexChanged, tbcntrMDM.SelectedIndexChanged Private Sub TabControl1_TabIndexChanged(sender As Object, e As EventArgs) Handles tbcntrMain.SelectedIndexChanged, tbcntrMDM.SelectedIndexChanged, tbcntrUSTV.SelectedIndexChanged
' tbcntrMDM.SuspendLayout() ' tbcntrMDM.SuspendLayout()
' If kdNr <= 0 Then changeTab(0, AllgemeinToolStripMenuItem) : Exit Sub ' If kdNr <= 0 Then changeTab(0, AllgemeinToolStripMenuItem) : Exit Sub
If kdNr <= 0 Then changeTab(1, ToolStripMenuItem2) : Exit Sub If kdNr <= 0 Then changeTab(1, ToolStripMenuItem2) : Exit Sub
@@ -246,6 +257,16 @@ Public Class frmKundenblatt
scanUebernahmebestätigungen.INIT(kdNr, "KUNDENDATEN", "Übernahmebestätigungen") scanUebernahmebestätigungen.INIT(kdNr, "KUNDENDATEN", "Übernahmebestätigungen")
Case "tbBesuchsberichte" : initTABBesuchsberichte() Case "tbBesuchsberichte" : initTABBesuchsberichte()
End Select End Select
Case "tbUSTV"
Select Case tbcntrUSTV.SelectedTab.Name
Case "tbUSTVDokumente"
scanUSTVFABest.INIT(kdNr, "KUNDENDATEN", "FA_Bestaetigungen")
scanUSTVVollmachten.INIT(kdNr, "KUNDENDATEN", "USTV_Vollmachten")
Case "tbUSTVAntrage" : initTABUSTVAntraege()
End Select
Case "tbZoll" : initTZOLL() Case "tbZoll" : initTZOLL()
Case "tbOfferte" : UsrCntlOfferte1.init(kdNr) Case "tbOfferte" : UsrCntlOfferte1.init(kdNr)
@@ -341,6 +362,13 @@ Public Class frmKundenblatt
usrcntlKarten.init() usrcntlKarten.init()
End Sub End Sub
Sub initTABUSTVAntraege()
' UsrCntlUSTV.kdNr_filter = True
' MsgBox("kdNr: " & kdNr)
UsrCntlUSTV.init(kdNr)
End Sub
Private Sub initTZOLL() Private Sub initTZOLL()
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Hauptmenue", Me) = 0 Then If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG("ZOLL_Hauptmenue", Me) = 0 Then
If tbcntrZOLL.SelectedIndex = 0 Then If tbcntrZOLL.SelectedIndex = 0 Then
@@ -1704,6 +1732,9 @@ Public Class frmKundenblatt
f.ShowDialog(Me) f.ShowDialog(Me)
End Sub End Sub
Private Sub ToolStripMenuItem8_Click_1(sender As Object, e As EventArgs) Handles ToolStripMenuItem8.Click
changeTab(5, sender, 1)
End Sub
End Class End Class

3
VERAG_PROG_ALLGEMEIN/Classes/cSendungen.vb
View File

@@ -115,6 +115,7 @@ Public Class cSendungen
Property tblSnd_Firma As Object = Nothing Property tblSnd_Firma As Object = Nothing
Property tblSnd_Cluster As Object = Nothing Property tblSnd_Cluster As Object = Nothing
Property tblSnd_ATBFakturieren As Object = Nothing
Public saveSachbearbeiter As Boolean = False Public saveSachbearbeiter As Boolean = False
@@ -435,6 +436,7 @@ Public Class cSendungen
Me.tblSnd_AbfertigungTRAnzahlPos = SQL.checkNullIntegerZero(dr.Item("tblSnd_AbfertigungTRAnzahlPos")) Me.tblSnd_AbfertigungTRAnzahlPos = SQL.checkNullIntegerZero(dr.Item("tblSnd_AbfertigungTRAnzahlPos"))
Me.tblSnd_Firma = SQL.checkNullReturnValue(dr.Item("tblSnd_Firma"), Nothing) Me.tblSnd_Firma = SQL.checkNullReturnValue(dr.Item("tblSnd_Firma"), Nothing)
Me.tblSnd_Cluster = SQL.checkNullReturnValue(dr.Item("tblSnd_Cluster"), Nothing) Me.tblSnd_Cluster = SQL.checkNullReturnValue(dr.Item("tblSnd_Cluster"), Nothing)
Me.tblSnd_ATBFakturieren = SQL.checkNullReturnValue(dr.Item("tblSnd_ATBFakturieren"), Nothing)
End If End If
@@ -664,6 +666,7 @@ Public Class cSendungen
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTRAnzahlPos", tblSnd_AbfertigungTRAnzahlPos)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_AbfertigungTRAnzahlPos", tblSnd_AbfertigungTRAnzahlPos))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Firma", tblSnd_Firma)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Firma", tblSnd_Firma))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Cluster", tblSnd_Cluster)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_Cluster", tblSnd_Cluster))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("tblSnd_ATBFakturieren", tblSnd_ATBFakturieren))
'End If 'End If
Return list Return list

1
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.Designer.vb generated
View File

@@ -1012,6 +1012,7 @@ Partial Class frmMessenger
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(912, 922) Me.ClientSize = New System.Drawing.Size(912, 922)
Me.Controls.Add(Me.SplitContainer) Me.Controls.Add(Me.SplitContainer)
Me.DoubleBuffered = True
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.Name = "frmMessenger" Me.Name = "frmMessenger"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

10
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -1,5 +1,6 @@
Imports System.Drawing Imports System.Drawing
Imports System.IO Imports System.IO
Imports System.Reflection
Imports System.Threading Imports System.Threading
Imports System.Web.UI.WebControls.WebParts Imports System.Web.UI.WebControls.WebParts
Imports System.Windows.Forms Imports System.Windows.Forms
@@ -27,10 +28,17 @@ Public Class frmMessenger
InitializeComponent() InitializeComponent()
' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
Me.DoubleBuffered = True
SetStyle(ControlStyles.OptimizedDoubleBuffer Or ControlStyles.UserPaint Or ControlStyles.AllPaintingInWmPaint Or ControlStyles.ResizeRedraw, True)
UpdateStyles()
End Sub End Sub
Public Sub SetDoubleBuffered([Control] As Control)
[Control].GetType().InvokeMember("DoubleBuffered", BindingFlags.SetProperty Or
BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object() {True})
End Sub
Sub initEMOJI_PATH() Sub initEMOJI_PATH()
@@ -82,7 +90,7 @@ Public Class frmMessenger
Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load Private Sub frmMessenger_Load(sender As Object, e As EventArgs) Handles Me.Load
initEMOJI_PATH() initEMOJI_PATH()
SetDoubleBuffered(MyFlowLayoutPanel1)
rtbChatMessage.AllowDrop = True rtbChatMessage.AllowDrop = True
MSG_LISTENDER.START() MSG_LISTENDER.START()
TimerNEW_MESSAGE.Enabled = True TimerNEW_MESSAGE.Enabled = True

18
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb
View File

@@ -257,15 +257,15 @@ Public Class frmUeberstundenauszahlen
If dgv IsNot Nothing Then If dgv IsNot Nothing Then
dgv.AutoSize = DataGridViewAutoSizeColumnMode.Fill dgv.AutoSize = DataGridViewAutoSizeColumnMode.Fill
dgv.Dock = DockStyle.Fill dgv.Dock = DockStyle.Fill
dgv.ReadOnly = True dgv.ReadOnly = True
frm.Controls.Add(dgv) frm.Controls.Add(dgv)
frm.Width *= 2 frm.Width *= 2
frm.StartPosition = FormStartPosition.CenterScreen frm.StartPosition = FormStartPosition.CenterScreen
frm.ShowDialog() frm.ShowDialog()
End If End If
Catch ex As System.Exception Catch ex As System.Exception