684 lines
27 KiB
VB.net
684 lines
27 KiB
VB.net
Imports System.ComponentModel
|
|
Imports System.IO
|
|
Imports System.Globalization
|
|
Imports System.Data.SqlClient
|
|
Imports System.Reflection
|
|
|
|
|
|
Public Class usrcntlAuftraege
|
|
|
|
|
|
|
|
Dim Core_SQLAuswertungAusAnsicht As String = "select
|
|
atr_frachtpos,
|
|
atr_auftr_firma,
|
|
atr_ladest_firma,
|
|
atr_frachtfab_firma,
|
|
atr_frachtf_firma,
|
|
atr_Auftragsart,
|
|
atr_TransportauftragArt,
|
|
count(*) As Anzahl,
|
|
case
|
|
when atr_TransportauftragArt = 'NACH' then atr_frachtfab_firma
|
|
when atr_TransportauftragArt = 'VOR' then atr_frachtf_firma
|
|
when atr_TransportauftragArt = '' and atr_AuftragsArt = 'Transport' then '--na--'
|
|
when atr_AuftragsArt = 'Handling' then '-'
|
|
end as Frächter,
|
|
case
|
|
when atr_Auftragsart = 'TRANSPORT' then 'TRANSP.'
|
|
when atr_Auftragsart = 'HANDLING' then 'HANDLING'
|
|
end as ShortAuftragsart,
|
|
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag) as Rechnungen, --atr_frachtpos, Vorkosten
|
|
sum (vorkosten) as Vorkosten,
|
|
sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
|
|
|
|
from (([sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege as dispoauftraege
|
|
inner join VERAG.dbo.Speditionsbuch on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
|
|
inner join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
|
|
|
|
where "
|
|
|
|
|
|
|
|
Dim dataAdapterAuftraege As New SqlDataAdapter
|
|
Dim dataBindingAuftraege As New BindingSource
|
|
|
|
Dim SelectedDGVIndex As Integer = 0
|
|
|
|
Private DISPO As New cOptionenDAL
|
|
|
|
Public Shared Niederlassung As String
|
|
Public Shared dt As DataTable
|
|
Public Shared SQLAuswerungAusAnsicht, SQLStatAusAnsicht As String
|
|
|
|
Public Shared von, bis As Date
|
|
Property CustomButtons As String = ""
|
|
Property Trip As cTrips = Nothing
|
|
|
|
|
|
Private Sub usrcntlAuftraege_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
SplitContainer1.Panel1Collapsed = True
|
|
cboAuftragsart.Items.Clear()
|
|
cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
|
|
cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("HANDLING", "HANDLING"))
|
|
cboAuftragsart.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("TRANSPORT", "TRANSPORT"))
|
|
cboAuftragsart.changeItem("ALLE")
|
|
|
|
|
|
cboFiliale.Items.Clear()
|
|
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", ""))
|
|
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUBEN", "4807"))
|
|
cboFiliale.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NEUHAUS", "4819"))
|
|
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
|
Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
|
|
Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
|
|
End Select
|
|
|
|
DateBIS.Value = Now()
|
|
DateVON.Value = Now.AddYears(-1).AddDays(1)
|
|
|
|
EnableDoubleBuffered(dgvAuftraege)
|
|
btnDetailSuche.Text = ChrW(9660) & ChrW(9660) & ChrW(9660) & "Detailsuche" & ChrW(9660) & ChrW(9660) & ChrW(9660)
|
|
|
|
If Not Me.CustomButtons = "" Then DoCustomButtons()
|
|
|
|
showDGVAuftraege()
|
|
End Sub
|
|
|
|
|
|
|
|
Function DoCustomButtons()
|
|
|
|
Select Case CustomButtons
|
|
Case ""
|
|
Case "AddToTrip"
|
|
For Each b As System.Windows.Forms.Control In PanButtons.Controls
|
|
b.Visible = False
|
|
Next
|
|
btnAddTo.Visible = True
|
|
End Select
|
|
|
|
End Function
|
|
|
|
Private Sub initDGVAuftraege(bindingString As String)
|
|
Dim sqlstr As String = bindingString
|
|
SQLStatAusAnsicht = bindingString
|
|
' dgvLKW.DataSource = bindingSDL
|
|
Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL
|
|
|
|
dt = vpasql.loadDgvBySql(sqlstr, "VERAG")
|
|
dgvAuftraege.DataSource = dt
|
|
End Sub
|
|
|
|
|
|
Public Sub showDGVAuftraege()
|
|
Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
Dim where As String = WhereInator3000()
|
|
Dim DispoDBO As String
|
|
If frmLogin.TESTSYSTEM = True Then
|
|
DispoDBO = "DISPO.dbo.tblAuftraege"
|
|
Else
|
|
DispoDBO = My.Resources.Conn_DBO_Aufträge
|
|
End If
|
|
|
|
With dgvAuftraege
|
|
|
|
Dim selectionstring As String = "SELECT
|
|
atr_id
|
|
,case
|
|
when atr_frachtpos is null then '0'
|
|
when atr_frachtpos = '' then '0'
|
|
else atr_frachtpos end as atr_frachtpos
|
|
,atr_datum
|
|
,atr_auftr_firma
|
|
,atr_frachtf_firma
|
|
,atr_frachtfAb_firma
|
|
--,atr_trans_firma
|
|
,case
|
|
when atr_TransportauftragArt = 'NACH' then (case when atr_frachtfab_firma is null then '-' else atr_frachtfab_firma end)
|
|
when atr_TransportauftragArt = 'VOR' then (case when atr_frachtf_firma is null then '-' else atr_frachtf_firma end)
|
|
when atr_TransportauftragArt = '' and atr_AuftragsArt = 'Transport' then ''
|
|
when atr_TransportAuftragArt is null then '-'
|
|
when atr_AuftragsArt = 'Handling' then '-'
|
|
end as Transportunternehmen
|
|
,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_firma ELSE atr_absender_firma END as atr_ladest_firma
|
|
,case when atr_AuftragsArt='TRANSPORT' THEN atr_entladest_firma ELSE atr_empfaenger_firma END as atr_entladest_firma
|
|
,atr_abliefernachweis,atr_AuftragsArt,atr_FilialenNr
|
|
,atr_tripNr
|
|
FROM (" & DispoDBO & " as dispoauftraege
|
|
left join VERAG.dbo.Speditionsbuch on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
|
|
--left join VERAG.dbo.Rechnungsausgang on atr_speditionsbuchNr = Rechnungsausgang.FilialenNr AND atr_frachtpos = Rechnungsausgang.AbfertigungsNr)
|
|
--left join VERAG.dbo.Vorkosten on atr_speditionsbuchNr = Vorkosten.FilialenNr AND atr_frachtpos = Vorkosten.AbfertigungsNr)
|
|
WHERE " & where & ""
|
|
initDGVAuftraege(selectionstring)
|
|
|
|
|
|
Dim top As String = ""
|
|
|
|
'Tabelle Kommt/Geht bereinigen
|
|
For i As Integer = 0 To dgvAuftraege.Columns.Count - 1
|
|
.Columns(i).ReadOnly = True
|
|
Next
|
|
|
|
If .RowCount = 0 Then Exit Sub
|
|
|
|
.Sort(dgvAuftraege.Columns(1), ListSortDirection.Descending)
|
|
.RowTemplate.Height = 20
|
|
'.RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft
|
|
.AllowUserToAddRows = False
|
|
.AllowUserToDeleteRows = False
|
|
.AllowUserToOrderColumns = False
|
|
.AllowUserToResizeColumns = True
|
|
.AllowUserToResizeRows = False
|
|
'.RowTemplate.ReadOnly = True
|
|
.RowHeadersVisible = False
|
|
.SelectionMode = DataGridViewSelectionMode.FullRowSelect
|
|
.MultiSelect = False
|
|
.Columns(0).Visible = False
|
|
.Columns("atr_AuftragsArt").Visible = False
|
|
|
|
.Columns(1).Width = 70
|
|
.Columns(1).HeaderText = "FrachtposNr."
|
|
|
|
.Columns(2).Width = 70
|
|
.Columns(2).HeaderText = "Datum"
|
|
|
|
.Columns(3).MinimumWidth = 165
|
|
.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns(3).FillWeight = 150
|
|
.Columns(3).HeaderText = "Auftraggeber"
|
|
|
|
.Columns(4).MinimumWidth = 165
|
|
.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns(4).FillWeight = 150
|
|
.Columns(4).HeaderText = "Frachtführer Bis"
|
|
|
|
.Columns("atr_frachtfAb_firma").MinimumWidth = 165
|
|
.Columns("atr_frachtfAb_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns("atr_frachtfAb_firma").HeaderText = "Frachtführer Ab"
|
|
|
|
|
|
.Columns(6).MinimumWidth = 165
|
|
.Columns(6).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns(6).HeaderText = "Transportunternehmen"
|
|
|
|
.Columns(7).MinimumWidth = 165
|
|
.Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns(7).HeaderText = "Ladestelle/Absender"
|
|
|
|
.Columns(8).MinimumWidth = 165
|
|
.Columns(8).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
|
.Columns(8).HeaderText = "Entladest./Empfänger"
|
|
|
|
.Columns(9).Width = 60
|
|
.Columns(9).HeaderText = "Abl.Nachw."
|
|
.Columns(9).ReadOnly = False
|
|
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
.Columns("atr_FilialenNr").Width = 60
|
|
.Columns("atr_FilialenNr").HeaderText = "Filiale"
|
|
.Columns("atr_FilialenNr").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
|
|
.Columns("atr_Auftragsart").Width = 80
|
|
.Columns("atr_Auftragsart").HeaderText = "Auftragsart"
|
|
.Columns("atr_Auftragsart").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
|
|
.Columns("atr_Auftragsart").DisplayIndex = 11
|
|
|
|
.Columns("atr_tripNr").Visible = False
|
|
|
|
|
|
'Anzeige der Anzahl gewählter/aller Datensätze
|
|
lblAnzahl.Text = Format(dgvAuftraege.RowCount, "#,##0") & " Einträge"
|
|
If (dgvAuftraege.RowCount = 100) Then lblAnzahl.Text &= " ausgewählt (Die Suche wurde auf 100 Ergebnisse beschränkt.)"
|
|
|
|
' initDGVAuftraegeFilter()
|
|
End With
|
|
lblAnzahl.Refresh()
|
|
Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
|
Try
|
|
If dgvAuftraege.Rows.Count - 1 >= SelectedDGVIndex Then dgvAuftraege.Rows(SelectedDGVIndex).Selected = True
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
'lblMs.Image = Nothing
|
|
End Sub
|
|
|
|
Public Function WhereInator3000()
|
|
Dim where As String = ""
|
|
where &= "atr_datum <= '" & DateBIS.Value.ToShortDateString & "' AND atr_datum >= '" & DateVON.Value.ToShortDateString & "'"
|
|
|
|
If cboAuftragsart._value <> "" Then
|
|
where &= " AND " & " atr_AuftragsArt='" & cboAuftragsart._value & "' "
|
|
End If
|
|
|
|
If cboFiliale._value <> "" Then
|
|
where &= " AND " & " atr_FilialenNr='" & cboFiliale._value & "' "
|
|
End If
|
|
|
|
If cbxAbliefer.CheckState = CheckState.Checked Then
|
|
where &= " AND " & " atr_abliefernachweis = 1"
|
|
ElseIf cbxAbliefer.CheckState = CheckState.Unchecked Then
|
|
where &= " AND " & " atr_abliefernachweis = 0"
|
|
End If
|
|
|
|
If txtSuche.Text <> "" Then
|
|
where &= " AND atr_frachtpos Like '%" & txtSuche.Text.Replace("'", "") & "%'"
|
|
End If
|
|
|
|
If txtAuftraggeber.Text <> "" Then
|
|
where &= " AND atr_auftr_firma Like '%" & txtAuftraggeber.Text.Replace("'", "") & "%'"
|
|
End If
|
|
|
|
If txtFrachtfuehrerBis.Text <> "" Then
|
|
where &= " AND atr_frachtf_firma Like '%" & txtFrachtfuehrerBis.Text.Replace("'", "") & "%'"
|
|
End If
|
|
|
|
If txtFrachtfuehrerAb.Text <> "" Then
|
|
where &= " AND atr_frachtfAb_firma Like '%" & txtFrachtfuehrerAb.Text.Replace("'", "") & "%'"
|
|
End If
|
|
|
|
If txtTransportunternehmen.Text <> "" Then
|
|
'where &= " AND atr_trans_firma Like '%" & txtTransportunternehmen.Text.Replace("'", "") & "%'"
|
|
where &= " AND
|
|
((atr_TransportauftragArt = 'NACH' and atr_frachtfab_firma LIKE '%" & txtTransportunternehmen.Text.Replace("'", "") & "%')
|
|
OR
|
|
(atr_TransportauftragArt = 'VOR' AND atr_frachtf_firma LIKE '%" & txtTransportunternehmen.Text.Replace("'", "") & "%'))"
|
|
End If
|
|
|
|
If txtLadestelle.Text <> "" Then
|
|
where &= " AND
|
|
((atr_ladest_firma Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
|
|
OR
|
|
(atr_absender_firma Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
|
|
OR
|
|
(VERAG.dbo.Speditionsbuch.Absender Like '%" & txtLadestelle.Text.Replace("'", "") & "%'))"
|
|
End If
|
|
|
|
If txtEntladeStelle.Text <> "" Then
|
|
where &= " AND
|
|
((atr_entladest_firma Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
|
|
OR
|
|
(atr_empfaenger_firma Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
|
|
OR
|
|
(VERAG.dbo.Speditionsbuch.Empfänger Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%'))"
|
|
End If
|
|
|
|
If Not CustomButtons = "" Then
|
|
Select Case CustomButtons
|
|
Case "AddToTrip"
|
|
where &= " AND atr_tripNr IS NULL"
|
|
End Select
|
|
End If
|
|
|
|
'' 2019/05/10 -> atr_empfaenger_firma und atr_sender_firma als Suchoption eingegeben, damit die Detailsuche auch in Handlings funktionert, die keinen Ablieferungsnachweis enthalten.
|
|
'' Bug Report von Mestan
|
|
|
|
Return where
|
|
End Function
|
|
|
|
Public Sub initDGVAuftraegeFilter()
|
|
Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
Dim andtxt As String = ""
|
|
Dim where As String = ""
|
|
'If txtSuche.Text <> "" Then
|
|
' Dim oItem As MyListItem = CType(cboSearchAuftraege.SelectedItem, MyListItem)
|
|
' where = " " & oItem.Value & " LIKE '%" & txtSuche.Text & "%'"
|
|
' andtxt = " AND "
|
|
'End If
|
|
|
|
If cboAuftragsart._value <> "" Then
|
|
where &= andtxt & " atr_AuftragsArt='" & cboAuftragsart._value & "' "
|
|
andtxt = " AND "
|
|
|
|
End If
|
|
|
|
If cboFiliale._value <> "" Then
|
|
where &= andtxt & " atr_FilialenNr='" & cboFiliale._value & "' "
|
|
andtxt = " AND "
|
|
|
|
End If
|
|
|
|
If cbxAbliefer.CheckState = CheckState.Checked Then
|
|
where &= andtxt & " atr_abliefernachweis = 1"
|
|
ElseIf cbxAbliefer.CheckState = CheckState.Unchecked Then
|
|
where &= andtxt & " atr_abliefernachweis = 0"
|
|
End If
|
|
|
|
|
|
'where &= andtxt & "atr_datum <= '" & enddatestring & "' AND atr_datum >= '" & startdatestring & "' "
|
|
|
|
dataBindingAuftraege.Filter = where
|
|
lblAnzahl.Refresh()
|
|
Dim ende As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds
|
|
lblMs.Text = "Ladezeit: " & (ende - start) & " ms"
|
|
End Sub
|
|
|
|
|
|
Private Sub DateVONorBIS_ValueChanged(sender As Object, e As EventArgs) Handles DateVON.ValueChanged, DateBIS.ValueChanged
|
|
showDGVAuftraege()
|
|
End Sub
|
|
|
|
Private Sub btnDetailSuche_Click(sender As Object, e As EventArgs) Handles btnDetailSuche.Click
|
|
SplitContainer1.Panel1Collapsed = Not SplitContainer1.Panel1Collapsed
|
|
|
|
If SplitContainer1.Panel1Collapsed Then
|
|
btnDetailSuche.BackColor = Color.White
|
|
btnDetailSuche.Text = ChrW(9660) & ChrW(9660) & ChrW(9660) & "Detailsuche" & ChrW(9660) & ChrW(9660) & ChrW(9660)
|
|
Else
|
|
btnDetailSuche.BackColor = Color.RoyalBlue
|
|
btnDetailSuche.Text = ChrW(9650) & ChrW(9650) & ChrW(9650) & "Detailsuche" & ChrW(9650) & ChrW(9650) & ChrW(9650)
|
|
End If
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub CmdHeute_Click(sender As Object, e As EventArgs) Handles CmdHeute.Click
|
|
DateVON.Value = Now()
|
|
DateBIS.Value = Now()
|
|
End Sub
|
|
|
|
Private Sub CmdTagMinus_Click(sender As Object, e As EventArgs) Handles CmdTagMinus.Click, CmdTagPlus.Click
|
|
If sender Is CmdTagPlus Then
|
|
DateVON.Value = DateVON.Value.AddDays(1)
|
|
DateBIS.Value = DateVON.Value
|
|
Else
|
|
DateVON.Value = DateVON.Value.AddDays(-1)
|
|
DateBIS.Value = DateVON.Value
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CmdMonat_Click(sender As Object, e As EventArgs) Handles CmdMonat.Click
|
|
DateVON.Value = Now.AddDays(-Now.Day + 1)
|
|
DateBIS.Value = Now()
|
|
End Sub
|
|
|
|
Private Sub CmdMonatMinus_Click(sender As Object, e As EventArgs) Handles CmdMonatMinus.Click, CmdMonatPlus.Click
|
|
If sender Is CmdMonatPlus Then
|
|
DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(1)
|
|
DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
|
|
Else
|
|
DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-1)
|
|
DateBIS.Value = DateVON.Value.AddMonths(1).AddDays(-1)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CmdJahr_Click(sender As Object, e As EventArgs) Handles CmdJahr.Click
|
|
DateVON.Value = Now.AddDays(-Now.Day + 1).AddMonths(-Now.Month + 1)
|
|
DateBIS.Value = Now()
|
|
End Sub
|
|
|
|
Private Sub CmdJahrMinus_Click(sender As Object, e As EventArgs) Handles CmdJahrMinus.Click, CmdJahrPlus.Click
|
|
If sender Is CmdJahrPlus Then
|
|
DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
|
|
DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
|
|
Else
|
|
DateVON.Value = DateVON.Value.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(-1)
|
|
DateBIS.Value = DateVON.Value.AddYears(1).AddDays(-1)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CmdAlle_Click(sender As Object, e As EventArgs) Handles CmdAlle.Click
|
|
Try
|
|
DateVON.Value = "01.01.1970"
|
|
DateBIS.Value = Now.AddDays(-DateVON.Value.Day + 1).AddMonths(-DateVON.Value.Month + 1).AddYears(1)
|
|
'cboAuftragsart.changeItem("Alle")
|
|
'cboFiliale.changeItem("Alle")
|
|
Catch
|
|
MsgBox("Oh oh")
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Public 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
|
|
|
|
Private Sub cboAuftragsart_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboAuftragsart.SelectedIndexChanged, cboFiliale.SelectedIndexChanged, cbxAbliefer.CheckedChanged, txtSuche.TextChanged, txtAuftraggeber.TextChanged, txtFrachtfuehrerBis.TextChanged, txtFrachtfuehrerAb.TextChanged, txtTransportunternehmen.TextChanged, txtLadestelle.TextChanged, txtEntladeStelle.TextChanged
|
|
showDGVAuftraege()
|
|
End Sub
|
|
|
|
Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click
|
|
DateBIS.Value = Now()
|
|
DateVON.Value = Now.AddYears(-1).AddDays(1)
|
|
txtSuche.Text = ""
|
|
txtAuftraggeber.Text = ""
|
|
txtFrachtfuehrerBis.Text = ""
|
|
txtFrachtfuehrerAb.Text = ""
|
|
txtTransportunternehmen.Text = ""
|
|
txtLadestelle.Text = ""
|
|
txtEntladeStelle.Text = ""
|
|
cbxAbliefer.CheckState = CheckState.Indeterminate
|
|
cbxAbliefer.Checked = True
|
|
cboAuftragsart.changeItem("ALLE")
|
|
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung
|
|
Case "NEU" : cboFiliale.changeItem("4819") : Niederlassung = "4819"
|
|
Case Else : cboFiliale.changeItem("4807") : Niederlassung = "4807"
|
|
End Select
|
|
End Sub
|
|
|
|
Private Sub btnNew_Click(sender As Object, e As EventArgs) Handles btnNew.Click
|
|
frmAuftragNEU.auftragID = -1 : frmAuftragNEU.Show() : AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
|
End Sub
|
|
|
|
Private Sub meEnabledTrue()
|
|
Me.Enabled = True
|
|
showDGVAuftraege()
|
|
Me.BringToFront()
|
|
End Sub
|
|
|
|
Private Sub btnAuswertung_Click(sender As Object, e As EventArgs) Handles btnAuswertung.Click
|
|
'If cboFiliale.SelectedItem.text = "NEUHAUS" Then
|
|
' frmAuswertung.Niederlassung = "4819"
|
|
'ElseIf cboFiliale.SelectedItem.text = "SUBEN" Then
|
|
' frmAuswertung.Niederlassung = "4807"
|
|
'Else
|
|
' Niederlassung = ""
|
|
'End If
|
|
Dim auswertung As New frmAuswertung
|
|
auswertung.Niederlassung = returnfil()
|
|
auswertung.Show()
|
|
End Sub
|
|
|
|
Private Sub btnChange_Click(sender As Object, e As EventArgs) Handles btnChange.Click
|
|
SelectedDGVIndex = dgvAuftraege.CurrentRow.Index
|
|
Dim frmAuftragNEU = New frmAuftragNEU
|
|
Try
|
|
If frmAuftragNEU.Visible Then
|
|
MsgBox("Ein Auftrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
|
frmAuftragNEU.BringToFront()
|
|
Else
|
|
frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
|
|
frmAuftragNEU.Show()
|
|
AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
|
Me.Enabled = False
|
|
End If
|
|
' Me.Enabled = False
|
|
Catch ex As Exception
|
|
Me.Enabled = True
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub btnDel_Click(sender As Object, e As EventArgs) Handles btnDel.Click
|
|
If dgvAuftraege.SelectedRows.Count > 0 Then
|
|
|
|
Select Case MsgBox("Soll der Eintrag wirklich gelöscht werden?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Löschen?")
|
|
Case vbYes
|
|
DISPO.delAuftrag(Convert.ToInt32(dgvAuftraege.CurrentRow.Cells(0).Value))
|
|
'Tabelle_anzeigen()
|
|
showDGVAuftraege()
|
|
Case vbNo
|
|
End Select
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub btnDuplicate_Click(sender As Object, e As EventArgs) Handles btnDuplicate.Click
|
|
Try
|
|
Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
|
|
AUFTRAG.atr_id = -1
|
|
AUFTRAG.atr_datum = Now
|
|
AUFTRAG.atr_frachtpos = Nothing
|
|
' AUFTRAG.LADUNGEN.Clear()
|
|
AUFTRAG.BH_rechnungen.Clear()
|
|
AUFTRAG.SAVE()
|
|
|
|
Dim frmAuftragNEU As New frmAuftragNEU
|
|
frmAuftragNEU.auftragID = AUFTRAG.atr_id
|
|
AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
|
frmAuftragNEU.Show()
|
|
|
|
Exit Sub
|
|
Dim a As cAuftraege = DISPO.getAuftragById(dgvAuftraege.CurrentRow.Cells(0).Value)
|
|
a.atr_frachtpos = DISPO.getFrachtpos
|
|
a.atr_datum = Now
|
|
a.atr_abliefernachweis = False
|
|
|
|
'a.atr_ladungen = New List(Of cLadungen)
|
|
a.bh_rechnungen = New List(Of cBuchhaltungRechnung)
|
|
|
|
'lt. Mestan CMR übernehmen (20191204)
|
|
'a.cmr_ausl_land = ""
|
|
'a.cmr_ausl_ort = ""
|
|
'a.cmr_beigefDok = ""
|
|
'a.cmr_anwAbs = ""
|
|
'a.cmr_rueckerst = ""
|
|
'a.cmr_frZahlanwFrei = ""
|
|
'a.cmr_frZahlanwUnfrei = ""
|
|
'a.cmr_besVereinb = ""
|
|
'a.cmr_ausgefIn = ""
|
|
'a.cmr_uebergabe_land = ""
|
|
'a.cmr_uebergabe_ort = ""
|
|
'a.cmr_uebergabe_datum = ""
|
|
'a.cmr_vorbehFrachtf = ""
|
|
|
|
a.bh_mon = ""
|
|
|
|
a.bh_vermerke = ""
|
|
a.atr_notes = ""
|
|
a.atr_gefahrengut = ""
|
|
a.atr_frachtkosten = ""
|
|
a.atr_entladest_terminBis = ""
|
|
a.atr_entladest_terminVon = ""
|
|
a.atr_entladest_terminDat = ""
|
|
a.atr_ladest_terminBis = ""
|
|
a.atr_ladest_terminVon = ""
|
|
a.atr_ladest_terminDat = ""
|
|
a.atr_bemerkung = ""
|
|
a.atr_speditionsbuchNr = -1
|
|
a.atr_lkwArt = ""
|
|
a.atr_lkwKz = ""
|
|
a.atr_lkwNutzlast = ""
|
|
a.atr_anhKz = ""
|
|
a.atr_anhNutzlast = ""
|
|
|
|
DISPO.insertAuftragUndLadung(a)
|
|
DISPO.setFrachtpos(a.atr_frachtpos)
|
|
frmAuftragNEU.auftragID = DISPO.atr_id_insert
|
|
AddHandler frmAuftragNEU.Disposed, AddressOf meEnabledTrue
|
|
frmAuftragNEU.Show()
|
|
|
|
'frmAuftragNEU.Show()
|
|
Catch ex As Exception
|
|
MsgBox("Fehler beim Duplizieren: " & ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub dgvAuftraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellDoubleClick
|
|
Dim frmauftragneu = New frmAuftragNEU
|
|
frmauftragneu.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value
|
|
If frmauftragneu.Visible Then
|
|
MsgBox("Ein Antrag ist bereits geöffnet!", vbCritical, "Fenster geöffnet")
|
|
frmauftragneu.BringToFront()
|
|
End If
|
|
frmauftragneu.Show()
|
|
AddHandler frmauftragneu.Disposed, AddressOf meEnabledTrue
|
|
frmauftragneu.BringToFront()
|
|
End Sub
|
|
Private Sub dataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellClick
|
|
SelectedDGVIndex = dgvAuftraege.CurrentRow.Index
|
|
Try
|
|
If e.ColumnIndex = dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").ColumnIndex Then
|
|
Dim val As Boolean = Not dgvAuftraege.Rows(e.RowIndex).Cells("atr_abliefernachweis").Value
|
|
DISPO.setAbliefernachweis(dgvAuftraege.Rows(e.RowIndex).Cells(0).Value, val)
|
|
'Tabelle_anzeigen()
|
|
showDGVAuftraege()
|
|
End If
|
|
Catch ex As Exception
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub btnSuchStat_Click(sender As Object, e As EventArgs) Handles btnSuchStat.Click
|
|
Dim frmAus As New frmAuswertung
|
|
frmAus.chkStandard.Checked = False
|
|
frmAus.chkStatSuchererg.Checked = True
|
|
frmAus.Niederlassung = returnfil()
|
|
frmAus.von = DateVON.Value
|
|
frmAus.bis = DateBIS.Value
|
|
frmAus.Show()
|
|
'MsgBox(SQLAuswerungAusAnsicht)
|
|
End Sub
|
|
|
|
Private Sub btnTrip_Click(sender As Object, e As EventArgs) Handles btnTrip.Click
|
|
Dim frmTrips As New frmLeer
|
|
frmTrips.Text = "Trips"
|
|
Dim usrcntrl As New usrcntlTrips
|
|
usrcntrl.Dock = DockStyle.Fill : frmTrips.PanMain.Controls.Add(usrcntrl)
|
|
|
|
AddHandler frmTrips.Disposed, AddressOf meEnabledTrue
|
|
Me.Enabled = False
|
|
frmTrips.Show()
|
|
End Sub
|
|
|
|
Private Sub btnAddTo_Click(sender As Object, e As EventArgs) Handles btnAddTo.Click
|
|
Dim tripauftrag As New cDispoAuftraege
|
|
tripauftrag.atr_id = dgvAuftraege.CurrentRow.Cells(0).Value
|
|
tripauftrag.LOAD()
|
|
tripauftrag.atr_tripNr = Trip.tripNr
|
|
tripauftrag.atr_tripStopNr = Trip.CreateNextStop
|
|
If Not Trip.trip_Transporter = tripauftrag.Return_TransportauftragArt() Then
|
|
If MsgBox("Trip-Frächter und Auftrag-Frächter stimmen nicht überein: " & vbCrLf &
|
|
"Trip: " & Trip.trip_Transporter & vbCrLf &
|
|
"Auftrag: " & tripauftrag.Return_TransportauftragArt() & vbCrLf &
|
|
"Trotzdem fortfahren?", MsgBoxStyle.OkCancel, "Unterschiedliche Frächter") = MsgBoxResult.Cancel Then ParentForm.Close() : Exit Sub
|
|
End If
|
|
tripauftrag.SAVE()
|
|
ParentForm.Close()
|
|
End Sub
|
|
|
|
Private Sub btnSuchAuswertung_Click(sender As Object, e As EventArgs) Handles btnSuchAuswertung.Click
|
|
Dim frmAus As New frmAuswertung
|
|
SQLAuswerungAusAnsicht = Core_SQLAuswertungAusAnsicht & WhereInator3000() & " group by atr_frachtpos, atr_auftr_firma, atr_frachtfAb_firma, atr_frachtf_firma, atr_ladest_firma, atr_Auftragsart, atr_TransportauftragArt--, Anzahl
|
|
ORDER BY atr_frachtpos"
|
|
frmAus.Niederlassung = returnfil()
|
|
frmAus.chkStandard.Checked = False
|
|
frmAus.chkAusSuchererg.Checked = True
|
|
frmAus.von = DateVON.Value.ToShortDateString
|
|
frmAus.bis = DateBIS.Value.ToShortDateString
|
|
frmAus.Suchauswertung = True
|
|
frmAus.Show()
|
|
'MsgBox(SQLAuswerungAusAnsicht)
|
|
End Sub
|
|
|
|
Public Function returnfil()
|
|
If cboFiliale.SelectedItem.text = "NEUHAUS" Then
|
|
Return "4819"
|
|
ElseIf cboFiliale.SelectedItem.text = "SUBEN" Then
|
|
Return "4807"
|
|
Else
|
|
Return ""
|
|
End If
|
|
End Function
|
|
|
|
|
|
End Class
|