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

Verbesserungen für Mestan

Browse Source
This commit is contained in:
ms
2020-10-07 08:06:26 +02:00
parent c142858a98
commit 1d86aa1bb9
9 changed files with 107 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
UID/frmMain/usrcntlAuftraege.vb
View File

@@ -142,7 +142,9 @@ atr_id
when atr_TransportAuftragArt is null then '-'
when atr_AuftragsArt = 'Handling' then '-'
end as Transportunternehmen
,case when atr_AuftragsArt='TRANSPORT' THEN atr_ladest_plz ELSE atr_absender_plz END as atr_ladest_plz
,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_plz ELSE atr_empfaenger_plz END as atr_entladest_plz
,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
@@ -178,43 +180,51 @@ WHERE " & where & ""
.Columns(0).Visible = False
.Columns("atr_AuftragsArt").Visible = False
.Columns(1).Width = 70
.Columns(1).HeaderText = "FrachtposNr."
.Columns("atr_frachtpos").Width = 70
.Columns("atr_frachtpos").HeaderText = "FrachtposNr."
.Columns(2).Width = 70
.Columns(2).HeaderText = "Datum"
.Columns("atr_datum").Width = 70
.Columns("atr_datum").HeaderText = "Datum"
.Columns(3).MinimumWidth = 165
.Columns(3).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(3).FillWeight = 150
.Columns(3).HeaderText = "Auftraggeber"
.Columns("atr_auftr_firma").MinimumWidth = 165
.Columns("atr_auftr_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("atr_auftr_firma").FillWeight = 150
.Columns("atr_auftr_firma").HeaderText = "Auftraggeber"
.Columns(4).MinimumWidth = 165
.Columns(4).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(4).FillWeight = 150
.Columns(4).HeaderText = "Frachtführer Bis"
.Columns("atr_frachtf_firma").MinimumWidth = 165
.Columns("atr_frachtf_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("atr_frachtf_firma").FillWeight = 150
.Columns("atr_frachtf_firma").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("Transportunternehmen").MinimumWidth = 165
.Columns("Transportunternehmen").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("Transportunternehmen").HeaderText = "Transportunternehmen"
.Columns(7).MinimumWidth = 165
.Columns(7).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(7).HeaderText = "Ladestelle/Absender"
.Columns("atr_ladest_plz").HeaderText = "Lad PLZ"
.Columns("atr_ladest_plz").Width = 45
.Columns("atr_ladest_plz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns(8).MinimumWidth = 165
.Columns(8).AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns(8).HeaderText = "Entladest./Empfänger"
.Columns("atr_ladest_firma").MinimumWidth = 165
.Columns("atr_ladest_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("atr_ladest_firma").HeaderText = "Ladestelle/Absender"
.Columns(9).Width = 60
.Columns(9).HeaderText = "Abl.Nachw."
.Columns(9).ReadOnly = False
.Columns(9).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("atr_entladest_plz").HeaderText = "Ent PLZ"
.Columns("atr_entladest_plz").Width = 45
.Columns("atr_entladest_plz").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
.Columns("atr_entladest_firma").MinimumWidth = 165
.Columns("atr_entladest_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
.Columns("atr_entladest_firma").HeaderText = "Entladest./Empfänger"
.Columns("atr_abliefernachweis").Width = 60
.Columns("atr_abliefernachweis").HeaderText = "Abl.Nachw."
.Columns("atr_abliefernachweis").ReadOnly = False
.Columns("atr_abliefernachweis").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
.Columns("atr_FilialenNr").Width = 60
.Columns("atr_FilialenNr").HeaderText = "Filiale"
@@ -293,6 +303,8 @@ WHERE " & where & ""
OR
(atr_absender_firma Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
OR
(atr_ladest_plz Like '%" & txtLadestelle.Text.Replace("'", "") & "%')
OR
(VERAG.dbo.Speditionsbuch.Absender Like '%" & txtLadestelle.Text.Replace("'", "") & "%'))"
End If
@@ -302,6 +314,8 @@ WHERE " & where & ""
OR
(atr_empfaenger_firma Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
OR
(atr_entladest_plz Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%')
OR
(VERAG.dbo.Speditionsbuch.Empfänger Like '%" & txtEntladeStelle.Text.Replace("'", "") & "%'))"
End If
@@ -512,7 +526,7 @@ WHERE " & where & ""
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))
DISPO.delAuftrag(Convert.ToInt32(dgvAuftraege.SelectedRows.Item(0).Cells(0).Value))
'Tabelle_anzeigen()
showDGVAuftraege()
Case vbNo
@@ -522,7 +536,8 @@ WHERE " & where & ""
Private Sub btnDuplicate_Click(sender As Object, e As EventArgs) Handles btnDuplicate.Click
Try
Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
'Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.CurrentRow.Cells(0).Value)
Dim AUFTRAG As New cDispoAuftraege(dgvAuftraege.SelectedRows.Item(0).Cells(0).Value)
AUFTRAG.atr_id = -1
AUFTRAG.atr_datum = Now
AUFTRAG.atr_frachtpos = Nothing