SQL Server Anpassungen, Reports repariert

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.

UID/My 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

UID/My 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">
+  <data name="87978" xml:space="preserve">
-    <value />
+    <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>

UID/My 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

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)

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

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
+        If auftraglist(i).atr_bemerkung.ToString.Length = 0 Then txtBemerkung.Text = "---"
-            txtBemTitel.Visible = True
+        If auftraglist(i).atr_verzollungsadresse.ToString.Length = 0 Then txtVerzollungsadresse.Text = "---"
-        Else
+        If auftraglist(i).atr_frachtkosten.ToString.Length = 0 Then txtFrachtkosten.Text = "---"
-            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
 
         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

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
 
 

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>

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

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]()