neu

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1159,7 +1159,7 @@ Public Class usrCntlKundenuebersicht
 
             .DataSource = SQL.loadDgvBySql("SELECT [KundenNr] as KdNr,[Datum] as Datum,[Rechnung] as Nummer,[Saldo] as Betrag,'-' as [OP-Saldo],'EUR' as Währung ,'-' as [KumSaldoEUR]  ,[Buchungstext]   " &
                                                            " FROM [Offene_Posten_DVO] " &
-                                                           " WHERE KundenNr='" & KUNDE.KundenNr & "' " & where & "  order BY datum DESC,[OP_ID]  DESC", "FMZOLL")
+                                                           " WHERE KundenNr='" & KUNDE.KundenNrZentrale & "' " & where & "  order BY datum DESC, [OP_ID]  DESC", "FMZOLL")
             If .Columns.Count > 0 Then
 
                 .Columns("KdNr").Visible = False
@@ -1276,7 +1276,7 @@ Public Class usrCntlKundenuebersicht
 
             .DataSource = SQL.loadDgvBySql("SELECT [Kontonummer] as KdNr,[Belegdatum] as Datum,[Belegnummer] as Nummer,[Bruttobetrag] as Betrag,[Gesamtausstand] as [OP-Saldo],[Waehrung] as Währung,[KumSaldoEUR] ,[Buchungstext] as Referenz " &
                                                            " FROM [Offene Posten] " &
-                                                           " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY Belegdatum DESC", "FMZOLL")
+                                                           " WHERE [Kontonummer]='" & KUNDE.KundenNrZentrale & "' " & where & " ORDER BY OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL")
             If .DataSource Is Nothing Then Exit Sub
             If .Columns.Count = 0 Then Exit Sub
 
@@ -1853,6 +1853,11 @@ Public Class usrCntlKundenuebersicht
         cboFirmaFMZOLL.Visible = (tbWeitereKundenDetails.SelectedIndex > 0)
         Label30.Visible = (tbWeitereKundenDetails.SelectedIndex > 0)
         btnExcel.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten)
+
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OP_LADEN", "SDL") Then
+            btnReloadOP.Visible = (tbWeitereKundenDetails.SelectedTab Is tbOffenePosten)
+        End If
+
     End Sub
 
     Private Sub FlatButton5_Click(sender As Object, e As EventArgs) Handles btnBonitaetBearbeiten.Click
@@ -2367,4 +2372,20 @@ Public Class usrCntlKundenuebersicht
 
     End Sub
 
+    Private Sub Button15_Click(sender As Object, e As EventArgs) Handles btnReloadOP.Click
+        Me.Cursor = Cursors.WaitCursor
+        Try
+            If KUNDE Is Nothing Then Exit Sub
+            If cboFirmaFMZOLL._value <> "" Then
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirmaFMZOLL._value, KUNDE.KundenNrZentrale)
+            Else
+                VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL(KUNDE.KundenNrZentrale)
+            End If
+            initDGVUmsatz()
+            initDGVOffenePosten()
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Me.Cursor = Cursors.Default
+    End Sub
 End Class