Bugfixes, Anzeige Packstücke und Gewicht, More Speeeeeeeed

UID/frmMain/usrcntlAuftraege.vb

@@ -69,6 +69,7 @@ where "
     Public Shared von, bis As Date
     Property CustomButtons As String = ""
     Property Trip As cTrips = Nothing
+    Property Loaded As Boolean = False
 
 
     Private Sub usrcntlAuftraege_Load(sender As Object, e As EventArgs) Handles Me.Load
@@ -98,6 +99,7 @@ where "
 
         If Not Me.CustomButtons = "" Then DoCustomButtons()
 
+        Loaded = True
         showDGVAuftraege()
     End Sub
 
@@ -161,10 +163,13 @@ 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_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
+,lad_anzahl as Pkg
+,lad_BruttoKg as BruttoGew
 ,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 [sqlguide01.verag.ost.dmn].[DISPO].[dbo].[tblLadungen] on atr_id = [tblLadungen].lad_atrid
 --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 & ""
@@ -236,6 +241,11 @@ WHERE " & where & ""
             .Columns("atr_entladest_firma").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
             .Columns("atr_entladest_firma").HeaderText = "Entladest./Empfänger"
 
+            .Columns("Pkg").Width = 40
+            .Columns("Pkg").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter
+
+            .Columns("BruttoGew").Width = 65
+
             .Columns("atr_abliefernachweis").Width = 60
             .Columns("atr_abliefernachweis").HeaderText = "Abl.Nachw."
             .Columns("atr_abliefernachweis").ReadOnly = False
@@ -386,7 +396,7 @@ WHERE " & where & ""
 
 
     Private Sub DateVONorBIS_ValueChanged(sender As Object, e As EventArgs) Handles DateVON.ValueChanged, DateBIS.ValueChanged
-        showDGVAuftraege()
+        If Loaded = True Then showDGVAuftraege()
     End Sub
 
     Private Sub btnDetailSuche_Click(sender As Object, e As EventArgs) Handles btnDetailSuche.Click
@@ -472,7 +482,7 @@ WHERE " & where & ""
     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()
+        If Loaded = True Then showDGVAuftraege()
     End Sub
 
     Private Sub btnReset_Click(sender As Object, e As EventArgs) Handles btnReset.Click