neu

SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb

@@ -345,13 +345,20 @@ Public Class usrCntlSpeditionsBuchSuche
         kdtxtAuftraggeber.initKdBox(Me.FindForm, txtAuftraggeberKdnr) 'initKdAuftraggeber()
         kdtxtFrachtfuehrer.initKdBox(Me.FindForm, txtFrachtfuehrerKdnr) 'initKdFrachtfuehrer()
         kdtxtEndempfaenger.initKdBox(Me.FindForm, txtEndempfaengerKdnr) 'initKdEndempfaenger()
+        kdtxtAvisierer.initKdBox(Me.FindForm, txtAvisiererKdNr) 'initKdEndempfaenger()
 
 
+        Dim FirmaTmp = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL") Then
+            FirmaTmp = "VERAGIMEX"
+        End If
+
         Dim sbWhere = ""
 
-        Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
+        Select Case FirmaTmp
             Case "ATILLA" : sbWhere = " AND Niederlassung = 'SUA' "
             Case "IMEX" : sbWhere = " AND Mandant = 'IMEX' "
+            Case "VERAGIMEX" : sbWhere = " "
             Case Else
                 sbWhere = " AND Mandant <> 'IMEX' "
 
@@ -364,7 +371,7 @@ Public Class usrCntlSpeditionsBuchSuche
 
         cboHandlingssatz.fillWithSQL("SELECT [hs_Bezeichnung]   FROM [tblHandlingssaetzeIntern] group by [hs_Bezeichnung] ", False, "FMZOLL", True)
 
-        If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.STAMMFILIALE <> "" And Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER And FirmaTmp <> "VERAGIMEX" Then
             If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE" Then
                 Dim whereCluster = ""
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.CLUSTER = "FRONTOFFICE" Then whereCluster = ",'5801'"
@@ -420,6 +427,7 @@ Public Class usrCntlSpeditionsBuchSuche
         lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("WAI", "WAI"))
         lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("NKD", "NKD"))
         lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("SUA", "SUA"))
+        lstGrenze.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("???", "???"))
 
 
 
@@ -1403,7 +1411,7 @@ Public Class usrCntlSpeditionsBuchSuche
             sqlstr &= " WHERE 1=1 "
             sqlstr &= getSpedBuchWhere()
             '    sqlstr &= " order by FilialenNr, AvisoId,Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
-            sqlstr &= " order by FilialenNr, Speditionsbuch.Abfertigungsart,Abfertigungsdatum"
+            sqlstr &= " order by  Speditionsbuch.Abfertigungsart,FilialenNr,Abfertigungsdatum"
 
             Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", , getSpedbuchList())
 
@@ -1421,6 +1429,9 @@ Public Class usrCntlSpeditionsBuchSuche
             rpt.DataSource = dt
 
 
+            If CheckBox1.Checked Then
+                rpt.GroupHeader1.DataField = "Abfertigungsart" 'Gruppierung
+            End If
 
             If rpt.DataSource.rows.count = 0 Then
                 rpt.Dispose() : print.Dispose()
@@ -1454,16 +1465,24 @@ Public Class usrCntlSpeditionsBuchSuche
             'Dim gesSumAnzLKW As Double = 0
             'Dim gesgesSumAnzLKW As Double = 0
 
+
+            Dim gesAnz As Double = 0
+            Dim gesBar As Double = 0
+            Dim geshandling As Double = 0
+            Dim geszukassBAR As Double = 0
+
             Dim sumAnz As Double = 0
             Dim sumBar As Double = 0
             Dim sumhandling As Double = 0
             Dim sumzukassBAR As Double = 0
 
+
+
             Dim sumAbfBez = ""
             Dim gesFilBez = ""
 
             '   Dim gesgesAbfBez = ""
-
+            Dim SumText = ""
             AddHandler rpt.Detail.Format, Sub()
                                               ' rpt.lblVon.Text = CDate(rpt.Fields.Item("von").Value).ToShortDateString
                                               ' rpt.lblLKWNr.Text = CDate(rpt.Fields.Item("bis").Value).ToShortDateString
@@ -1506,15 +1525,42 @@ Public Class usrCntlSpeditionsBuchSuche
                                               sumhandling += handling
                                               sumzukassBAR += zukassBAR
 
+                                              gesAnz += anz
+                                              gesBar += bar
+                                              geshandling += handling
+                                              geszukassBAR += zukassBAR
+
                                           End Sub
 
+            Dim bezeichnung = ""
             AddHandler rpt.ReportFooter1.Format, Sub()
                                                      rpt.lblGesGesSumAnzahl.Text = sumAnz.ToString("N0")
                                                      rpt.lblSumBarzahlungsbetrag.Text = sumBar.ToString("N2")
                                                      rpt.lblSumzuKassierenHandling.Text = sumzukassBAR.ToString("N2")
                                                      rpt.lblSumHandlingsgebuehr.Text = sumhandling.ToString("N2")
 
+                                                     rpt.txtUebersicht.Text = SumText
+
                                                  End Sub
+            AddHandler rpt.GroupHeader1.Format, Sub()
+
+                                                    rpt.lblAbfArtUeberschrift.Text = checkNull(rpt.Fields.Item("Abfertigungsart").Value) & " - " & checkNull(rpt.Fields.Item("Abfertigungsbezeichnung").Value)
+                                                    bezeichnung = rpt.lblAbfArtUeberschrift.Text
+
+                                                    gesAnz = 0
+                                                    gesBar = 0
+                                                    geshandling = 0
+                                                    geszukassBAR = 0
+
+                                                End Sub
+            AddHandler rpt.GroupFooter1.Format, Sub()
+                                                    rpt.lblGesSumAnzahl.Text = gesAnz.ToString("N0")
+                                                    rpt.lblGesBarzahlungsbetrag.Text = gesBar.ToString("N2")
+                                                    rpt.lblGeszuKassierenHandling.Text = geszukassBAR.ToString("N2")
+                                                    rpt.lblGesHandlingsgebuehr.Text = geshandling.ToString("N2")
+                                                    SumText &= gesAnz.ToString("N0") & vbTab & bezeichnung & vbNewLine
+
+                                                End Sub
             If showDok Then
                 print.Viewer.LoadDocument(rpt)
                 print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous