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/DISPO.vbproj
+++ b/UID/DISPO.vbproj
@@ -96,6 +96,10 @@
    <Reference Include="Dynamsoft.ImageCore, Version=7.0.0.3020, Culture=neutral, PublicKeyToken=298ad97013b423eb" />
    <Reference Include="Dynamsoft.PDF, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb" />
    <Reference Include="Dynamsoft.Twain, Version=7.0.0.320, Culture=neutral, PublicKeyToken=298ad97013b423eb" />
+    <Reference Include="Gemeinsames, Version=1.0.0.0, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>..\..\AVISO\AVISO\Gemeinsames\bin\Debug\Gemeinsames.dll</HintPath>
+    </Reference>
    <Reference Include="Ghostscript.NET, Version=1.2.1.0, Culture=neutral, PublicKeyToken=f85051de34525b59" />
    <Reference Include="GrapeCity.ActiveReports.ArsClient.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
    <Reference Include="GrapeCity.ActiveReports.Chart.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff" />
@@ -154,9 +158,6 @@
    <Reference Include="System.Core" />
    <Reference Include="System.Xml.Linq" />
    <Reference Include="System.Data.DataSetExtensions" />
-    <Reference Include="WinSCPnet">
-      <HintPath>..\..\..\dll\WinSCPnet.dll</HintPath>
-    </Reference>
  </ItemGroup>
  <ItemGroup>
    <Import Include="Microsoft.VisualBasic" />
@@ -1558,7 +1559,9 @@
      <FileType>Satellite</FileType>
    </PublishFile>
  </ItemGroup>
-  <ItemGroup />
+  <ItemGroup>
+    <WCFMetadata Include="Connected Services\" />
+  </ItemGroup>
  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
       Other similar extension points exist, see Microsoft.Common.targets.
--- a/Project/Resources.Designer.vb
+++ b/Project/Resources.Designer.vb
@@ -61,11 +61,11 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die  ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 4444 ähnelt.
        '''</summary>
-        Friend ReadOnly Property adasdasdd44() As String
+        Friend ReadOnly Property _87978() As String
            Get
-                Return ResourceManager.GetString("adasdasdd44", resourceCulture)
+                Return ResourceManager.GetString("87978", resourceCulture)
            End Get
        End Property
        
@@ -130,7 +130,16 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die [sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege ähnelt.
+        '''</summary>
+        Friend ReadOnly Property Conn_DBO_Aufträge() As String
+            Get
+                Return ResourceManager.GetString("Conn_DBO_Aufträge", resourceCulture)
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
        '''</summary>
        Friend ReadOnly Property connStringDISPO() As String
            Get
@@ -148,7 +157,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956; ähnelt.
        '''</summary>
        Friend ReadOnly Property connStringDispoAdmin() As String
            Get
@@ -415,7 +424,7 @@ Namespace My.Resources
        End Property
        
        '''<summary>
-        '''  Sucht eine lokalisierte Zeichenfolge, die 1.0.9.3 ähnelt.
+        '''  Sucht eine lokalisierte Zeichenfolge, die 1.0.10.0 ähnelt.
        '''</summary>
        Friend ReadOnly Property Version() As String
            Get
--- a/Project/Resources.resx
+++ b/Project/Resources.resx
@@ -148,14 +148,14 @@
  <data name="sanduhr" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\sanduhr.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
-  <data name="adasdasdd44" xml:space="preserve">
-    <value />
+  <data name="87978" xml:space="preserve">
+    <value>4444</value>
  </data>
  <data name="uid" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\uid.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="Version" xml:space="preserve">
-    <value>1.0.9.3</value>
+    <value>1.0.10.0</value>
  </data>
  <data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -188,7 +188,8 @@
    <value>..\Resources\dispo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="connStringDispoAdmin" xml:space="preserve">
-    <value>Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+    <value>Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+    <comment>Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</comment>
  </data>
  <data name="bericht_buchhaltung" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\bericht_buchhaltung.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -206,7 +207,8 @@
    <value>..\Resources\links20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
  <data name="connStringDISPO" xml:space="preserve">
-    <value>Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+    <value>Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
+    <comment>Data Source=sqlguide01.verag.ost.dmn;Initial Catalog=DISPO;Integrated Security=false;User ID=sa;Password=BmWr501956;</comment>
  </data>
  <data name="uhr_notime" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\uhr_notime.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -223,4 +225,7 @@
  <data name="Print20x20" type="System.Resources.ResXFileRef, System.Windows.Forms">
    <value>..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
  </data>
+  <data name="Conn_DBO_Aufträge" xml:space="preserve">
+    <value>[sqlguide01.verag.ost.dmn].DISPO.dbo.tblAuftraege</value>
+  </data>
 </root>
--- a/Project/licenses.licx
+++ b/Project/licenses.licx
@@ -1,5 +1,3 @@
-GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
-GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
-GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
 GrapeCity.ActiveReports.Viewer.Win.Viewer, GrapeCity.ActiveReports.Viewer.Win.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
-GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport, GrapeCity.ActiveReports.Export.Pdf.v12, Version=12.2.13986.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
+GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v9, Version=9.1.2302.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
+GrapeCity.ActiveReports.SectionReport, GrapeCity.ActiveReports.v12, Version=12.3.17127.0, Culture=neutral, PublicKeyToken=cc4967777c49a3ff
--- 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


--- a/UID/app.config
+++ b/UID/app.config
@@ -20,4 +20,14 @@
            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
        </sharedListeners>
    </system.diagnostics>
+  <system.serviceModel>
+    <bindings>
+      <basicHttpBinding>
+        <binding name="BasicHttpBinding_IRKSVWcf" />
+      </basicHttpBinding>
+    </bindings>
+    <client>
+      <endpoint address="http://localhost:8733/Design_Time_Addresses/RKSVCompleteServer/Service1/" binding="basicHttpBinding" bindingConfiguration="BasicHttpBinding_IRKSVWcf" contract="RKSVServer.IRKSVWcf" name="BasicHttpBinding_IRKSVWcf" />
+    </client>
+  </system.serviceModel>
 <startup><supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7"/></startup></configuration>
--- a/UID/frmAuftragNEU.vb
+++ b/UID/frmAuftragNEU.vb
@@ -2218,7 +2218,10 @@ Public Class frmAuftragNEU
        saveMe()
        Dim PERSONAL As SDL.cPersonal = Nothing
        Dim frmSecureLoginKassenbuch As New SDL.frmSecureLoginKassenbuch
+        frmSecureLoginKassenbuch.openKB = False
+        frmSecureLoginKassenbuch.disableCBO = True
        If frmSecureLoginKassenbuch.ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
+
            PERSONAL = frmSecureLoginKassenbuch.PERSONAL
            Dim frmBeleg As New SDL.frmBelegNeu(PERSONAL, Nothing, "E")
            ' frmBeleg.AvisoID = AvisoId
--- a/UID/frmMain/usrcntlAuftraege.vb
+++ b/UID/frmMain/usrcntlAuftraege.vb
@@ -32,7 +32,7 @@ sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.Steuerpflichti
 sum (vorkosten) as Vorkosten,
 sum (Rechnungsausgang.SteuerfreierGesamtbetrag + Rechnungsausgang.SteuerpflichtigerGesamtbetrag - Vorkosten) as Marge
 
-from (([BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege  as dispoauftraege
+from (([sqlguide01.verag.ost.dmn].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)

@@ -86,6 +86,8 @@ where "
        showDGVAuftraege()
    End Sub

+
+
    Function DoCustomButtons()

        Select Case CustomButtons
@@ -117,7 +119,7 @@ where "
        If frmLogin.TESTSYSTEM = True Then
            DispoDBO = "DISPO.dbo.tblAuftraege"
        Else
-            DispoDBO = "[BUCHHALTUNG\SQLExpress].DISPO.dbo.tblAuftraege"
+            DispoDBO = My.Resources.Conn_DBO_Aufträge
        End If

        With dgvAuftraege
@@ -429,7 +431,7 @@ WHERE " & where & ""

    End Sub

-    Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
+    Public Sub EnableDoubleBuffered(ByRef dgv As DataGridView)

        Dim dgvType As Type = dgv.[GetType]()