678 lines
26 KiB
VB.net
678 lines
26 KiB
VB.net
Imports System.Reflection
|
|
|
|
|
|
Public Class usrcntlFremdrechnungen
|
|
Dim KUNDE As New cKunden
|
|
Public kdNr As Integer
|
|
Public kdNr_filter As Boolean = True
|
|
Dim kundenSQL As New kundenSQL
|
|
Dim SQL As New SQL
|
|
Dim FUNC As New cProgramFunctions
|
|
Dim aktbtn As String = ""
|
|
Dim dgvInitWait As Boolean = False
|
|
Dim aktSDLNr As Integer = -1
|
|
Dim fullyPainted = False
|
|
|
|
|
|
' Dim show200 = True
|
|
Private Sub usrCntlDaten_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
EnableDoubleBuffered(dgvSDL)
|
|
|
|
init()
|
|
|
|
AddHandler SplitContainer1.Panel1.Scroll, Sub()
|
|
initFilterLeft()
|
|
End Sub
|
|
|
|
AddHandler cbxMax200Eintrage.Click, Sub()
|
|
reClick()
|
|
End Sub
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Public Shared Sub EnableDoubleBuffered(ByRef dgv As DataGridView)
|
|
Dim dgvType As Type = dgv.[GetType]()
|
|
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
|
|
pi.SetValue(dgv, True, Nothing)
|
|
End Sub
|
|
|
|
|
|
Sub init()
|
|
|
|
dgvInitWait = True
|
|
|
|
Dim kdNr_WHERE = ""
|
|
If kdNr_filter Then
|
|
kdNr_WHERE = ""
|
|
End If
|
|
If kdNr_filter Then
|
|
'Dim dt As DataTable = SQL.loadDgvBySql("SELECT KundenSDL.SDLNr FROM KundenSDL INNER JOIN [Speditionsdienstleistungen] as S ON s.SDLNr=KundenSDL.sdlnr WHERE s.SDLTypNr IN (1,2) AND KundenSDL.KundenNr = '" & kdNr & "' group by KundenSDL.SDLNr ")
|
|
'If dt Is Nothing Then
|
|
' MsgBox("Es wurden noch keine Leistungen freigeschaltet.")
|
|
'Else
|
|
btnSDL_IDS.Visible = True ' dt.Select("SDLNr=100").Count > 0
|
|
btnSDL_UTA.Visible = True 'dt.Select("SDLNr=212").Count > 0
|
|
btnSDL_Hugo.Visible = False ' dt.Select("SDLNr=213").Count > 0
|
|
btnSDL_PLOSE.Visible = True 'dt.Select("SDLNr=214").Count > 0
|
|
btnVERAGCardNew.Visible = True 'dt.Select("SDLNr=502").Count > 0
|
|
btnSDL_MautMSE.Visible = True 'dt.Select("SDLNr=208").Count > 0
|
|
btnSDL_FREJUS.Visible = False ' dt.Select("SDLNr=207").Count > 0
|
|
btnSDL_RMC.Visible = True
|
|
btnSDL_Alle.Visible = False
|
|
'End If
|
|
|
|
SplitContainer1.Panel2Collapsed = False
|
|
dgvSDL_SelectionChanged(dgvSDL, New System.EventArgs)
|
|
|
|
End If
|
|
|
|
SET_SDL(-1)
|
|
|
|
dgvInitWait = False
|
|
Panel3.Visible = True
|
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Sub initFilterLeft()
|
|
Dim left_value As Integer = SplitContainer1.Panel1.HorizontalScroll.Value 'HorizontalScrollingOffset
|
|
dgvFILTER.Left = (-1) * left_value
|
|
End Sub
|
|
|
|
|
|
|
|
Sub initFilter()
|
|
dgvInitWait = True
|
|
|
|
dgvFILTER.RowTemplate.Height = dgvFILTER.Height
|
|
If Not fullyPainted Then Exit Sub ' nur wenn die usrcntl komplett gelden wurde...
|
|
'pnlFilter.Controls.Clear()
|
|
Try
|
|
dgvFILTER.Columns.Clear()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
For Each c As DataGridViewColumn In dgvSDL.Columns
|
|
Dim cNew As DataGridViewColumn = c.Clone
|
|
|
|
If c.ReadOnly And c.Name = "IDS-KdNr" Then
|
|
cNew = New DataGridViewTextBoxColumn
|
|
cNew.Name = c.Name
|
|
cNew.Width = c.Width
|
|
cNew.Visible = c.Visible
|
|
'KundenNr
|
|
End If
|
|
cNew.MinimumWidth = c.Width
|
|
dgvFILTER.Columns.Add(cNew)
|
|
If cNew.GetType Is GetType(DataGridViewCheckBoxColumn) Then
|
|
DirectCast(cNew, DataGridViewCheckBoxColumn).ThreeState = True
|
|
DirectCast(cNew, DataGridViewCheckBoxColumn).DefaultCellStyle.NullValue = CheckState.Indeterminate
|
|
End If
|
|
Next
|
|
|
|
If dgvFILTER IsNot Nothing AndAlso dgvFILTER.ColumnCount > 0 Then
|
|
|
|
'dgv.AllowUserToAddRows = False
|
|
dgvFILTER.Rows.Add()
|
|
' pnlTest.Controls.Add(dgv)
|
|
' dgv.Top = 0
|
|
' dgv.Left = 0
|
|
dgvFILTER.Width = dgvSDL.Width
|
|
End If
|
|
|
|
dgvInitWait = False
|
|
|
|
End Sub
|
|
|
|
Dim txtchanged As Boolean = False
|
|
Sub initSearchOLD()
|
|
reClick()
|
|
Exit Sub
|
|
' MsgBox("SEARCH")
|
|
txtchanged = True
|
|
' initSDLBinding()
|
|
initAllg()
|
|
|
|
|
|
dgvSDL.RELOAD()
|
|
txtchanged = False
|
|
dgvSDL.ClearSelection()
|
|
If dgvSDL.RowCount > 0 Then dgvSDL.Rows(0).Cells(0).Selected = True
|
|
'dgvSDL_SelectionChanged(dgvSDL, New EventArgs)
|
|
End Sub
|
|
|
|
Function getSqlText(t) As String
|
|
Try
|
|
Return t.Replace("'", "")
|
|
Catch ex As Exception
|
|
Return ""
|
|
End Try
|
|
End Function
|
|
|
|
Function getFilter() As String
|
|
|
|
|
|
Dim filter As String = ""
|
|
Dim andstr As String = ""
|
|
|
|
If dgvFILTER.RowCount > 0 Then
|
|
For Each c As DataGridViewCell In dgvFILTER.Rows(0).Cells
|
|
If c.Value IsNot DBNull.Value Then
|
|
If c.GetType Is GetType(DataGridViewTextBoxCell) Then
|
|
If c.Value IsNot Nothing AndAlso c.Value <> "" Then
|
|
Dim srchstr = getSqlText(c.Value.ToString.Trim)
|
|
If c.OwningColumn.Name.Contains("SDLNr") Then
|
|
filter &= andstr & " FMZOLL.[" & c.OwningColumn.Name & "] LIKE '%" & srchstr & "%' "
|
|
ElseIf c.OwningColumn.Name.Contains("IDS-KdNr") Then
|
|
filter &= andstr & " (SELECT TOP 1 [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE [KdNrVERAG]=KundenNr AND KdNrAlt =0 ORDER BY Zeitstempel DESC) LIKE '%" & srchstr & "%' "
|
|
ElseIf IsDate(srchstr) Then
|
|
If srchstr.ToLower = "ist null" Then
|
|
filter &= andstr & "( [" & c.OwningColumn.Name & "] is null ) "
|
|
Else
|
|
filter &= andstr & " convert(varchar,[" & c.OwningColumn.Name & "] ,104) LIKE '%" & srchstr & "%' "
|
|
End If
|
|
Else
|
|
If srchstr.ToLower = "ist null" Then
|
|
filter &= andstr & "( [" & c.OwningColumn.Name & "] LIKE '' OR [" & c.OwningColumn.Name & "] is null ) "
|
|
Else
|
|
filter &= andstr & " [" & c.OwningColumn.Name & "] LIKE '%" & srchstr & "%' "
|
|
End If
|
|
End If
|
|
andstr = " AND "
|
|
End If
|
|
ElseIf c.GetType Is GetType(DataGridViewCheckBoxCell) Then
|
|
If c.Value IsNot Nothing AndAlso c.Value.ToString <> "" Then
|
|
If c.Value = CheckState.Checked Then
|
|
filter &= andstr & " FMZOLL.[" & c.OwningColumn.Name & "] =1 "
|
|
andstr = " AND "
|
|
ElseIf c.Value = CheckState.Unchecked Then
|
|
filter &= andstr & " FMZOLL.[" & c.OwningColumn.Name & "] =0 "
|
|
andstr = " AND "
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
Return filter
|
|
End Function
|
|
|
|
|
|
|
|
|
|
Sub clearFilter()
|
|
If dgvFILTER.RowCount > 0 Then
|
|
For Each c As DataGridViewCell In dgvFILTER.Rows(0).Cells
|
|
c.Value = c.DefaultNewRowValue
|
|
Next
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Sub initAllg()
|
|
If Not fullyPainted Then Exit Sub ' nur wenn die usrcntl komplett gelden wurde...
|
|
Try
|
|
|
|
With dgvSDL
|
|
.RowTemplate.Height = 20
|
|
.AllowUserToOrderColumns = False
|
|
.AllowUserToResizeRows = False
|
|
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|
.ReadOnly = True
|
|
|
|
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
'redRows()
|
|
|
|
End With
|
|
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
Sub initDGVWidth()
|
|
Dim DGVwidth = 0
|
|
Dim reduceWidth = 0
|
|
For Each c As DataGridViewColumn In dgvSDL.Columns
|
|
DGVwidth += c.Width
|
|
Next
|
|
Dim DGVheight = 0
|
|
For Each r As DataGridViewRow In dgvSDL.Rows
|
|
DGVheight += r.Height
|
|
Next
|
|
DGVheight += 50
|
|
'
|
|
|
|
If DGVheight > (SplitContainer1.Panel1.Height) Then
|
|
dgvSDL.Height = DGVheight
|
|
reduceWidth = 25 ' Scrollbar
|
|
Else
|
|
dgvSDL.Height = SplitContainer1.Panel1.Height - 25
|
|
End If
|
|
If DGVwidth > SplitContainer1.Panel1.Width Then
|
|
dgvSDL.Width = DGVwidth - reduceWidth
|
|
Else
|
|
dgvSDL.Width = SplitContainer1.Panel1.Width - reduceWidth
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub ifContainsAndTrueRed(r As DataGridViewRow, t As String)
|
|
If r.Cells(t).Value IsNot DBNull.Value AndAlso r.Cells(t).Value = True Then
|
|
r.DefaultCellStyle.ForeColor = Color.Red
|
|
End If
|
|
End Sub
|
|
Sub initBtnClick(b As Button)
|
|
'Dim defaufl_color As Color = Color.FromArgb(240, 245, 255)
|
|
Dim defaufl_color As Color = Color.White
|
|
Dim defaufl_forecolor As Color = Color.Black
|
|
btnSDL_Alle.BackColor = defaufl_color : btnSDL_Alle.ForeColor = defaufl_forecolor : btnSDL_Alle.FlatAppearance.BorderSize = 0
|
|
btnSDL_IDS.BackColor = defaufl_color : btnSDL_IDS.ForeColor = defaufl_forecolor : btnSDL_IDS.FlatAppearance.BorderSize = 0
|
|
btnSDL_UTA.BackColor = defaufl_color : btnSDL_UTA.ForeColor = defaufl_forecolor : btnSDL_UTA.FlatAppearance.BorderSize = 0
|
|
btnSDL_FREJUS.BackColor = defaufl_color : btnSDL_FREJUS.ForeColor = defaufl_forecolor : btnSDL_FREJUS.FlatAppearance.BorderSize = 0
|
|
btnSDL_Hugo.BackColor = defaufl_color : btnSDL_Hugo.ForeColor = defaufl_forecolor : btnSDL_Hugo.FlatAppearance.BorderSize = 0
|
|
btnSDL_MautMSE.BackColor = defaufl_color : btnSDL_MautMSE.ForeColor = defaufl_forecolor : btnSDL_MautMSE.FlatAppearance.BorderSize = 0
|
|
btnSDL_PLOSE.BackColor = defaufl_color : btnSDL_PLOSE.ForeColor = defaufl_forecolor : btnSDL_PLOSE.FlatAppearance.BorderSize = 0
|
|
btnVERAGCardNew.BackColor = defaufl_color : btnVERAGCardNew.ForeColor = defaufl_forecolor : btnVERAGCardNew.FlatAppearance.BorderSize = 0
|
|
|
|
b.FlatAppearance.BorderSize = 1
|
|
b.BackColor = SystemColors.ButtonHighlight
|
|
b.ForeColor = Color.Black
|
|
aktbtn = b.Name
|
|
|
|
If dgvSDL.Columns("SDLNr") IsNot Nothing Then
|
|
|
|
If aktbtn = "btnSDL_Alle" Then
|
|
dgvSDL.Columns("SDLNr").Visible = True
|
|
Else
|
|
dgvSDL.Columns("SDLNr").Visible = False
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Sub SET_SDL(SDLNrTmp, Optional doFilter = False)
|
|
aktSDLNr = SDLNrTmp
|
|
|
|
Dim SQL_STR = ""
|
|
Select Case SDLNrTmp
|
|
|
|
'IDS
|
|
Case 100 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
|
|
" [YearMonthDay] as Rechnungsdatum,[Invoicenumber] as Rechnungsnummer,[daId], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM tblIDSInvoicesNew WHERE [CustomerCode] = (SELECT TOP 1 [CustomerCode] FROM [VERAG].[dbo].[tbl_IDS_Kunden] WHERE [KdNrVERAG]=" & kdNr & " AND KdNrAlt =0 ORDER BY Zeitstempel DESC) order by [YearMonthDay], [Invoicenumber]"
|
|
|
|
'UTA
|
|
Case 212 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
|
|
" [Rechnungsdatum],[Abrechnungsnummer] as Rechnungsnummer,Kundennummer,[daId],[Lieferland_ISO2] as Land, 'RE' as Art, cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTAImportNew] inner join adressen on Kundennummer = UTAKundenNr where AdressenNr = " & kdNr & " group by [Abrechnungsnummer],[Rechnungsdatum],Kundennummer,[daId],[Lieferland_ISO2]"
|
|
|
|
SQL_STR &= " UNION ALL SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") & " [Datum], [RechnungsNr],[KundenNr],[daId],'',[DocumentTyp], cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblUTADocuments]inner join adressen on KundenNr = UTAKundenNr where AdressenNr = " & kdNr
|
|
|
|
'PLOSE
|
|
Case 214 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
|
|
" [plInv_SupplierRechnungsDatum] as Rechnungsdatum, [plInv_SupplierRechnungsNr] as Rechnungsnummer,[plInv_Nettobetrag] as Nettobetrag,[plInv_MWSTBetrag] as MWST,[plInv_Bruttobetrag] as Bruttobetrag,[plInv_daId] as daId, [plInv_SupplierCountry] as Land, cast(case when [plInv_daId] is not null then 1 else 0 end as bit) as PDF FROM tblPLOSE_Inv_Data where plInv_PLOSEKundennummer = " & kdNr
|
|
|
|
'MSE
|
|
Case 208 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
|
|
" [invoice_date] as Rechnungsdatum, [invoice_id] as Rechnungsnummer/*,[invoice_nr]*/,[customer_number] as Kundennummer, daId, [total_amount_euro] as Brutto_EUR ,[total_vat_amount_euro] as MWST,[country] as Land, cast(case when [daId] is not null then 1 else 0 end as bit) as PDF FROM tblMSEInvoices where customer_number = (select top 1 customer_id from tblMSECustomers where partner_customer_number = " & kdNr & ") order by invoice_date, invoice_id"
|
|
|
|
'VERAG
|
|
Case 502 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
|
|
" tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer , tblTrdinInvoice.SteuerbetragLokal, cast( 1 as bit) as PDF FROM tblTrdinInvoice WHERE tblTrdinInvoice.RechnungsKundenNr=" & kdNr & " ORDER BY tblTrdinInvoice.Rechnungsdatum, tblTrdinInvoice.Rechnungsnummer"
|
|
'RMC
|
|
Case 999 : SQL_STR = "SELECT " & IIf(cbxMax200Eintrage.Checked, " top 200 ", "") &
|
|
"[rmc_reDatum] as Rechnungsdatum,[rmc_reNr] as Rechnungsnummer,[rmc_betragNetto] as Nettobetrag,[rmc_betragBrutto] as Bruttobetrag,[rmc_waehrung] as Währung ,[rmc_euroBrutto] as Brutto_EUR,[rmc_daId] as daId,[rmc_betragMWST] as MWST, cast(case when [rmc_daId] is not null then 1 else 0 end as bit) as PDF FROM [VERAG].[dbo].[tblRMCImport] where rmc_kdNr = " & kdNr & " order by rmc_reDatum, rmc_reNr"
|
|
Case Else
|
|
Exit Sub
|
|
|
|
End Select
|
|
|
|
newBinding(SDLNrTmp, SQL_STR, doFilter)
|
|
initBtnClick(getSDLNrButton(SDLNrTmp))
|
|
|
|
With dgvSDL
|
|
|
|
If .Columns.Count > 0 Then
|
|
If .Columns.Contains("daId") Then
|
|
If .Columns("daId") IsNot Nothing Then .Columns("daId").Visible = False
|
|
|
|
End If
|
|
End If
|
|
|
|
End With
|
|
|
|
initAllg()
|
|
dgvSDL.Width = 100
|
|
dgvSDL.Height = 100
|
|
dgvSDL.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
initDGVWidth() 'vor Filter, damit richtige Größe
|
|
If Not doFilter Then initFilter()
|
|
|
|
|
|
End Sub
|
|
|
|
Function getSDLNrButton(SDLNrTmp) As Object
|
|
Select Case SDLNrTmp
|
|
Case 100 : Return btnSDL_IDS
|
|
Case 212 : Return btnSDL_UTA
|
|
Case 213 : Return btnSDL_Hugo
|
|
Case 214 : Return btnSDL_PLOSE
|
|
Case 208 : Return btnSDL_MautMSE
|
|
Case 207 : Return btnSDL_FREJUS
|
|
Case 502 : Return btnVERAGCardNew
|
|
Case 999 : Return btnSDL_RMC
|
|
Case Else : Return btnSDL_Alle
|
|
End Select
|
|
End Function
|
|
Private Sub btnSDL_Alle_Click(sender As Object, e As EventArgs) Handles btnSDL_Alle.Click
|
|
SET_SDL(-1)
|
|
End Sub
|
|
|
|
Private Sub btnSDL_IDS_Click(sender As Object, e As EventArgs) Handles btnSDL_IDS.Click
|
|
SET_SDL(100)
|
|
End Sub
|
|
|
|
Private Sub btnSDL_UTA_Click(sender As Object, e As EventArgs) Handles btnSDL_UTA.Click
|
|
SET_SDL(212)
|
|
End Sub
|
|
|
|
Private Sub btnSDL_Hugo_Click(sender As Object, e As EventArgs) Handles btnSDL_Hugo.Click
|
|
SET_SDL(213)
|
|
End Sub
|
|
|
|
Private Sub btnSDL_PLOSE_Click(sender As Object, e As EventArgs) Handles btnSDL_PLOSE.Click
|
|
SET_SDL(214)
|
|
End Sub
|
|
|
|
|
|
Private Sub btnSDL_MautMSE_Click(sender As Object, e As EventArgs) Handles btnSDL_MautMSE.Click
|
|
SET_SDL(208)
|
|
End Sub
|
|
|
|
Private Sub btnSDL_MotorWay_Click(sender As Object, e As EventArgs)
|
|
SET_SDL(205)
|
|
End Sub
|
|
|
|
Private Sub btnSDL_FREJUS_Click(sender As Object, e As EventArgs) Handles btnSDL_FREJUS.Click
|
|
SET_SDL(207)
|
|
End Sub
|
|
|
|
Private Sub btnVERAGCardNew_Click(sender As Object, e As EventArgs) Handles btnVERAGCardNew.Click
|
|
SET_SDL(502)
|
|
End Sub
|
|
|
|
Private Sub btnSDL_RMC_Click(sender As Object, e As EventArgs) Handles btnSDL_RMC.Click
|
|
SET_SDL(999)
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvSDL_ColumnWidthChanged(sender As Object, e As DataGridViewColumnEventArgs) Handles dgvSDL.ColumnWidthChanged
|
|
initfilterColumnsWidth()
|
|
End Sub
|
|
|
|
Sub initfilterColumnsWidth()
|
|
|
|
If dgvFILTER.ColumnCount > 0 AndAlso dgvFILTER.ColumnCount = dgvSDL.ColumnCount Then
|
|
|
|
dgvFILTER.Width = dgvSDL.Width
|
|
For Each c As DataGridViewColumn In dgvSDL.Columns
|
|
dgvFILTER.Columns(c.Index).Width = c.Width
|
|
Next
|
|
|
|
End If
|
|
End Sub
|
|
Sub newBinding(sdlNr As Integer, ByVal sql As String, doFilter As Boolean)
|
|
dgvInitWait = True
|
|
' bindingSDL = Nothing
|
|
dgvSDL.Columns.Clear()
|
|
dgvSDL.VirtualMode = True
|
|
txtchanged = True
|
|
dgvInitWait = True
|
|
|
|
If doFilter Then
|
|
Dim filter As String = getFilter()
|
|
If filter <> "" Then sql &= " AND " & filter
|
|
Else
|
|
|
|
End If
|
|
|
|
dgvSDL.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
|
|
|
dgvSDL.SET_SQL(sql, "FMZOLL")
|
|
dgvSDL.LOAD()
|
|
|
|
lblEinträge.Text = dgvSDL.RowCount & " Einträge"
|
|
If dgvSDL.RowCount >= 200 Then lblEinträge.Text = dgvSDL.RowCount & " Einträge " & IIf(cbxMax200Eintrage.Checked, "(Anzeige auf 200 beschränkt)", "")
|
|
|
|
dgvInitWait = False
|
|
|
|
txtchanged = False
|
|
dgvInitWait = False
|
|
dgvSDL.ClearSelection()
|
|
|
|
If dgvSDL.RowCount > 0 Then
|
|
dgvSDL.Rows(0).Cells(0).Selected = True
|
|
Else
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles btnFilter.Click
|
|
' MsgBox(pnlFilterInside.Height)
|
|
Exit Sub
|
|
If pnlTest.Height > 0 Then
|
|
pnlTest.Height = 0
|
|
btnFilter.Text = "Filter einblenden"
|
|
Else
|
|
pnlTest.Height = 39
|
|
btnFilter.Text = "Filter ausblenden"
|
|
End If
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles Button4.Click
|
|
If SplitContainer1.Panel2Collapsed Then
|
|
SplitContainer1.Panel2Collapsed = False
|
|
dgvSDL_SelectionChanged(dgvSDL, New System.EventArgs)
|
|
Else
|
|
SplitContainer1.Panel2Collapsed = True
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Sub reClick()
|
|
getSDLNrButton(aktSDLNr).PerformClick()
|
|
End Sub
|
|
|
|
Sub refreshDgv(kdNr, SDLNr, Optional Kfz = "", Optional History = "")
|
|
SET_SDL(aktSDLNr, True)
|
|
|
|
dgvSDL.ClearSelection()
|
|
If Kfz <> "" And History <> "" Then
|
|
For Each r As DataGridViewRow In dgvSDL.Rows
|
|
If r.Cells("KundenNr").Value = kdNr And
|
|
r.Cells("SDLNr").Value = SDLNr And
|
|
r.Cells("KfzKennzeichen").Value = Kfz And
|
|
r.Cells("History").Value = History Then
|
|
r.Selected = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub UsrCntlDatenDetails1_Changed(kdNr, Kfz, SDLNr, History) Handles UsrCntlDatenDetails1.Changed
|
|
'refreshDgv(kdNr, SDLNr, Kfz, History)'?????????????? ausgebelndet,was das ein VErsuch? 31.07.2017
|
|
dgvSDL.VALUE_CHANGED = True
|
|
End Sub
|
|
|
|
Private Sub datadgvSDL_SelectionChanged(kdNr, Kfz, SDLNr, History) Handles UsrCntlDatenDetails1.DataChanged
|
|
' refreshDgv(kdNr, SDLNr, Kfz, History)
|
|
dgvSDL.VALUE_CHANGED = True
|
|
Exit Sub
|
|
|
|
dgvInitWait = True
|
|
dgvSDL.RELOAD()
|
|
dgvInitWait = False
|
|
End Sub
|
|
' Private Sub dgvSDL_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSDL.SelectionChanged
|
|
|
|
Private Sub dgvSDL_KeyDown(sender As Object, e As KeyEventArgs) Handles dgvSDL.KeyUp
|
|
If e.KeyCode = Keys.Up Or e.KeyCode = Keys.Down Or e.KeyCode = Keys.End Or e.KeyCode = Keys.Home Then '?POS1
|
|
' ReloadLeistung()
|
|
End If
|
|
End Sub
|
|
Private Sub dgvSDL_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSDL.Click
|
|
'ReloadLeistung()
|
|
End Sub
|
|
|
|
|
|
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
|
|
If Not kdNr_filter Then
|
|
If dgvSDL.SelectedCells.Count > 0 Then
|
|
If IsNumeric(dgvSDL.CurrentRow.Cells("KundenNr").Value) Then
|
|
cProgramFunctions.openKundenblatt(dgvSDL.CurrentRow.Cells("KundenNr").Value, Me.FindForm, True)
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Sub SelectRow(kdnr, kfz, SDLNr, history)
|
|
dgvInitWait = True
|
|
dgvSDL.ClearSelection()
|
|
For Each r As DataGridViewRow In dgvSDL.Rows
|
|
If r.Cells("KundenNr").Value = kdnr AndAlso
|
|
r.Cells("SDLNr").Value = SDLNr AndAlso
|
|
r.Cells("KfzKennzeichen").Value = kfz AndAlso
|
|
r.Cells("History").Value = history Then
|
|
r.Selected = True
|
|
dgvSDL.FirstDisplayedScrollingRowIndex = r.Index
|
|
Exit For
|
|
End If
|
|
Next
|
|
dgvInitWait = False
|
|
'ReloadLeistung()
|
|
dgvSDL.PerformLayout()
|
|
End Sub
|
|
|
|
|
|
Private Sub ToolStripMenuItem3_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem3.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
cProgramFunctions.genExcelFromDGV(dgvSDL, True)
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub ToolStripMenuItem6_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem6.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
cProgramFunctions.genExcelFromDGV_NEW(dgvSDL, True)
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
|
|
Private Sub Button8_Click_1(sender As Object, e As EventArgs) Handles Button8.Click
|
|
Me.Cursor = Cursors.WaitCursor
|
|
cProgramFunctions.genExcelFromDGV_NEW(dgvSDL, True, True)
|
|
Me.Cursor = Cursors.Default
|
|
End Sub
|
|
|
|
Private Sub Button1_Click_2(sender As Object, e As EventArgs) Handles Button1.Click
|
|
dgvSDL.RELOAD()
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvSDL_RELOADED() Handles dgvSDL.RELOADED
|
|
' redRows()
|
|
End Sub
|
|
|
|
Private Sub usrCntlKartenDaten_SizeChanged(sender As Object, e As EventArgs) Handles Me.SizeChanged
|
|
' initDGVWidth()
|
|
End Sub
|
|
|
|
|
|
Dim vval As Integer
|
|
Private Sub dgvSDL_GotFocus(sender As Object, e As EventArgs) Handles dgvSDL.GotFocus
|
|
'dgvSDL.VerticalScrollingOffset = vval
|
|
SplitContainer1.Panel1.VerticalScroll.Value = vval
|
|
End Sub
|
|
|
|
Private Sub dgvSDL_Enter(sender As Object, e As EventArgs) Handles dgvSDL.Enter
|
|
vval = SplitContainer1.Panel1.VerticalScroll.Value
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvFILTER_SelectionChanged(sender As Object, e As EventArgs) Handles dgvFILTER.SelectionChanged
|
|
dgvFILTER.ClearSelection()
|
|
End Sub
|
|
|
|
Private Sub dgvFILTER_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFILTER.CellContentClick
|
|
If dgvFILTER.Columns(e.ColumnIndex).GetType Is GetType(DataGridViewCheckBoxColumn) Then
|
|
dgvSDL.Focus()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub dgvFILTER_CellValueChanged(sender As Object, e As DataGridViewCellEventArgs) Handles dgvFILTER.CellValueChanged
|
|
SET_SDL(aktSDLNr, True)
|
|
initfilterColumnsWidth()
|
|
End Sub
|
|
|
|
Private Sub dgvSDL_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvSDL.CellContentDoubleClick
|
|
|
|
Try
|
|
If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
|
|
|
|
Select Case aktSDLNr
|
|
Case 502
|
|
Dim ReDat = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsdatum").Value
|
|
Dim ReNr = dgvSDL.Rows(e.RowIndex).Cells("Rechnungsnummer").Value
|
|
|
|
If ReDat IsNot Nothing AndAlso ReNr > 0 Then
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim da_id = SQL.getValueTxtBySql("SELECT TOP(1) RK_ID FROM Rechnungsausgang where cast(Rechnungsausgang.RechnungsDatum as Date) ='" & ReDat & "' and Rechnungsausgang.RechnungsNr='" & ReNr & "' AND FilialenNr = 4814 AND RK_ID is not null", "FMZOLL")
|
|
cFakturierung.doRechnungsDruck_SRorER(da_id,, False, 3)
|
|
End If
|
|
|
|
Case Else
|
|
Dim daId = dgvSDL.Rows(e.RowIndex).Cells("daId").Value
|
|
If daId > 0 Then
|
|
Me.Cursor = Cursors.WaitCursor
|
|
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER(daId)
|
|
DS.OPEN_SINGLE()
|
|
End If
|
|
|
|
End Select
|
|
|
|
|
|
End If
|
|
|
|
|
|
|
|
Catch ex As Exception
|
|
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
|
Me.Cursor = Cursors.Default
|
|
End Try
|
|
|
|
Me.Cursor = Cursors.Default
|
|
|
|
|
|
End Sub
|
|
End Class
|