Projektdateien hinzufügen.
This commit is contained in:
679
UID/frmMain/usrcntlAuftraege.vb
Normal file
679
UID/frmMain/usrcntlAuftraege.vb
Normal file
@@ -0,0 +1,679 @@
|
||||
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 (([BUCHHALTUNG\SQLExpress].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 = "[BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege"
|
||||
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(ByVal 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)
|
||||
|
||||
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
|
||||
Reference in New Issue
Block a user