neu

SDL/kunden/frmKundenblatt.Designer.vb

@@ -1215,7 +1215,7 @@ Partial Class frmKundenblatt
         Me.usrcntlKarten.Location = New System.Drawing.Point(3, 3)
         Me.usrcntlKarten.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)
         Me.usrcntlKarten.Name = "usrcntlKarten"
-        Me.usrcntlKarten.Size = New System.Drawing.Size(1156, 582)
+        Me.usrcntlKarten.Size = New System.Drawing.Size(186, 68)
         Me.usrcntlKarten.TabIndex = 0
         '
         'tbLKW

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1273,10 +1273,11 @@ Public Class usrCntlKundenuebersicht
             Else
                 where = If(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige.contains("A"), "", " AND Firma_ID IN(" & VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_FirmenDatenAnzeige & ")")
             End If
-
             .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 OP_ID DESC /*, Belegdatum DESC*/", "FMZOLL")
+
+
             If .DataSource Is Nothing Then Exit Sub
             If .Columns.Count = 0 Then Exit Sub
 
@@ -2377,9 +2378,13 @@ Public Class usrCntlKundenuebersicht
         Try
             If KUNDE Is Nothing Then Exit Sub
             If cboFirmaFMZOLL._value <> "" Then
-                VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirmaFMZOLL._value, KUNDE.KundenNrZentrale)
+                If VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen(cboFirmaFMZOLL._value, KUNDE.KundenNrZentrale) Then
+                    MsgBox("Die OP-Liste wurde erfolgreich aktualisiert!")
+                End If
             Else
-                VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL(KUNDE.KundenNrZentrale)
+                If VERAG_PROG_ALLGEMEIN.cSyska_Interface.OP_Einlesen_ALL(KUNDE.KundenNrZentrale) Then
+                    MsgBox("Die OP-Liste wurde erfolgreich aktualisiert!")
+                End If
             End If
             initDGVUmsatz()
             initDGVOffenePosten()