SQL Server Anpassungen, Reports repariert

2020-06-24 09:24:33 +02:00
parent a4c8b45922
commit c142858a98
11 changed files with 91 additions and 57 deletions
--- a/UID/Reports/Auswertung/cAbfragen.vb
+++ b/UID/Reports/Auswertung/cAbfragen.vb
@@ -18,7 +18,8 @@ GROUP BY DATEADD(MONTH, DateDiff(Year, 0, Abfertigungsdatum), 0),DATEADD(MONTH,
 ,vork.preis as vorkosten
 ,Rechnungsausgang.Abfertigungsdatum as Datum
  from dbo.Vorkosten as vork
- right join dbo.Rechnungsausgang on Rechnungsausgang.AbfertigungsNr  = vork.AbfertigungsNr where Rechnungsausgang.FilialenNr = '{0}' AND Abfertigungsdatum >= '{1}' and Abfertigungsdatum <= '{2}'
+ right join dbo.Rechnungsausgang on Rechnungsausgang.AbfertigungsNr  = vork.AbfertigungsNr --AND vork.filialenNr = atr_filialennr
+where Rechnungsausgang.FilialenNr = '{0}' AND Abfertigungsdatum >= '{1}' and Abfertigungsdatum <= '{2}'
 ) as meh
  GROUP BY DATEADD(MONTH, DateDiff(Year, 0, Datum), 0),DATEADD(MONTH, DATEDIFF(MONTH, 0, Datum ), 0)"

@@ -56,7 +57,7 @@ case
    else sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag - Vorkosten)
 end as Marge
 from dbo.Rechnungsausgang as RechAus	
- left join [BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos
+ left join [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos AND rechaus.filialenNr = atr_filialennr
 where rechaus.FilialenNr = '{0}' 
 AND atr_datum between '{1}' and  '{2}' AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
 -- AND abfertigungsnr = @AbfertigungsNr
@@ -70,7 +71,7 @@ max(DATENAME(YEAR, (atr_datum))) As Jahr,
  sum(Vorkosten) as Vorkosten FROM (
                SELECT Vorkosten, atr_datum,  ROW_NUMBER() OVER(PARTITION BY AbfertigungsNr ORDER BY AbfertigungsNr DESC) as rn
                   from dbo.Rechnungsausgang as RechAus	
- left join [BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos
+ left join [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos AND rechaus.filialenNr = atr_filialennr
  where rechaus.FilialenNr = '{0}' 
 AND atr_datum between '{1}' and  '{2}' AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
              ) a
@@ -86,7 +87,7 @@ sum (vorkosten) as Vorkosten,
 sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
 
 FROM ((VERAG.dbo.Speditionsbuch --as SpedBuch
-inner join [BUCHHALTUNG\SQLEXPRESS].DISPO.dbo.tblAuftraege as dispoauftraege on atr_speditionsbuchNr = Speditionsbuch.FilialenNr AND atr_frachtpos = Speditionsbuch.AbfertigungsNr)
+inner join [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege as dispoauftraege 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 atr_datum between '{1}' and  '{2}'
@@ -105,7 +106,7 @@ sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag) as Rechnungen,
 sum (SteuerfreierGesamtbetrag + SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
 
 from dbo.Rechnungsausgang as RechAus	
-left join [BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos
+left join [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege on rechaus.AbfertigungsNr = atr_frachtpos AND rechaus.filialenNr = atr_filialennr
 
 where rechaus.FilialenNr = '{0}' AND atr_datum between '{1}' and '{2}' AND (atr_auftragsart = 'Transport' OR atr_auftragsart = 'Handling')
 GROUP BY DATEADD(MONTH, DateDiff(Year, 0, atr_datum), 0),DATEADD(MONTH, DATEDIFF(MONTH, 0, atr_datum ), 0)
--- a/UID/Reports/Auswertung/frmAuswertung.vb
+++ b/UID/Reports/Auswertung/frmAuswertung.vb
@@ -250,6 +250,7 @@ Public Class frmAuswertung
        Dim vpasql As New VERAG_PROG_ALLGEMEIN.SQL

        dt = vpasql.loadDgvBySql(sql, database)
+        'dt = RemoveDuplicateRows(dt, "atr_frachtpos")

        printauswertung.von = von
        printauswertung.bis = bis
@@ -270,4 +271,24 @@ Public Class frmAuswertung
        Return filialnr

    End Function
+
+    Public Function RemoveDuplicateRows(ByVal dTable As DataTable, ByVal colName As String) As DataTable
+        Dim hTable As Hashtable = New Hashtable()
+        Dim duplicateList As ArrayList = New ArrayList()
+
+        For Each drow As DataRow In dTable.Rows
+
+            If hTable.Contains(drow(colName)) Then
+                duplicateList.Add(drow)
+            Else
+                hTable.Add(drow(colName), String.Empty)
+            End If
+        Next
+
+        For Each dRow As DataRow In duplicateList
+            dTable.Rows.Remove(dRow)
+        Next
+
+        Return dTable
+    End Function
 End Class
--- a/UID/Reports/TransportAuftrag/subrptTrip.vb
+++ b/UID/Reports/TransportAuftrag/subrptTrip.vb
@@ -13,6 +13,8 @@ Public Class subrptTrip
    End Sub

    Private Sub Detail_Format(sender As Object, e As EventArgs) Handles Detail.Format
+        ' txtBemTitel.Visible = True : txtVerzollTitel.Visible = True : txtFrachtkoTitel.Visible = True
+
        Line3.Visible = True
        Shape1.Height = 0

@@ -36,33 +38,16 @@ Public Class subrptTrip
        txtFrachtkosten.Text = auftraglist(i).atr_frachtkosten
        'If auftraglist(i).atr_frachtkosten = "" Then txtFrachtkoTitel.Visible = False

-        If Not txtBemerkung.Text = "" Then
-            txtBemTitel.Visible = True
-        Else
-            txtBemTitel.Visible = False
-        End If
-        If Not txtVerzollungsadresse.Text = "" Then
-            txtVerzollTitel.Visible = True
-        Else
-            txtVerzollTitel.Visible = False
-        End If
-        If Not txtFrachtkosten.Text = "" Then
-            txtFrachtkoTitel.Visible = True
-        Else
-            txtFrachtkoTitel.Visible = False
-        End If
-        'If txtVerzollTitel.Visible = False And txtBemTitel.Visible = False Then
-        '    Line3.Visible = False
-        'Else
-        '    Line3.Visible = True
-        'End If
+        If auftraglist(i).atr_bemerkung.ToString.Length = 0 Then txtBemerkung.Text = "---"
+        If auftraglist(i).atr_verzollungsadresse.ToString.Length = 0 Then txtVerzollungsadresse.Text = "---"
+        If auftraglist(i).atr_frachtkosten.ToString.Length = 0 Then txtFrachtkosten.Text = "---"

        i = i + 1
    End Sub

    Private Sub Detail_BeforePrint(sender As Object, e As EventArgs) Handles Detail.BeforePrint
        Dim dh As Integer = Detail.Height
-        'Shape1.Height = Detail.Height - 0.2
+

        If Not txtBemerkung.Text = "" Or Not txtVerzollungsadresse.Text = "" Or Not txtFrachtkosten.Text = "" Then

@@ -74,13 +59,6 @@ Public Class subrptTrip
        End If


-
-        'If Line3.Visible = False Then
-        '    Shape1.Height = subrptTransportauftragLadung.Location.Y + subrptTransportauftragLadung.Height - 0.15
-        'Else
-        '    'Shape1.Height = txtEnd.Location.Y 'dh' - 0.1
-        '    Shape1.Height = Detail.Height - 0.2
-
    End Sub

    Private Sub Detail_AfterPrint(sender As Object, e As EventArgs) Handles Detail.AfterPrint
--- a/UID/Reports/frmPrintActiveReports.vb
+++ b/UID/Reports/frmPrintActiveReports.vb
@@ -73,9 +73,13 @@ Public Class frmPrintActiveReports
        savefiledialog.ShowDialog()

        Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
-        If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)
+        Try
+            If savefiledialog.FileName <> "" Then p.Export(Viewer1.Document, savefiledialog.FileName)

-        If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
+            If System.IO.File.Exists(savefiledialog.FileName) = True Then Process.Start(savefiledialog.FileName)
+        Catch ex As Exception
+            MsgBox(ex.Message)
+        End Try
    End Sub