Vorkasse OP Saldo

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1303,10 +1303,17 @@ Public Class usrCntlKundenuebersicht
             Dim sumZZ As Double = 0
             Dim sumNOTZZ As Double = 0
             Dim sumCredit As Double = 0
+            Dim sumVK As Double
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
+                sumVK = getOffeneVK(KUNDE.KundenNrZentrale)
+
+            End If
+
             Dim sumGes As Double = 0
             If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel
 
 
+
             Try
                 For Each r As DataGridViewRow In .Rows
                     If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
@@ -1324,6 +1331,8 @@ Public Class usrCntlKundenuebersicht
                 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             End Try
 
+            sumGes += sumVK
+
             'Dim OP_tmp As Double = 0
 
             'If cboFirmaFMZOLL._value <> "" Then
@@ -1360,7 +1369,12 @@ Public Class usrCntlKundenuebersicht
             '    txtOPCredit.ForeColor = Color.Black
             'End If
 
-
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
+                txtOVK.Text = sumVK.ToString("C")
+                txtOVK.ForeColor = Color.Red
+            Else
+                txtOVK.Text = "-"
+            End If
 
             If sumGes <> 0 Then
                 txtOffenePosten.Text = sumGes.ToString("C")
@@ -1400,6 +1414,9 @@ Public Class usrCntlKundenuebersicht
 
 
 
+    Function getOffeneVK(KundenNrZentrale)
+        Return SQL.getValueTxtBySql("SELECT isnull(sum([vk_Betrag]),0)FROM [tblVorauskassen] where vk_KdNr = '" & KundenNrZentrale & "' and vk_GeldEingetroffen=0 and vk_Datum > DATEADD(year,-1, GETDATE())", "FMZOLL")
+    End Function
     Sub initDGVOffenePostenVERAG()
 
 
@@ -1466,6 +1483,13 @@ Public Class usrCntlKundenuebersicht
                 End If
             End If
 
+            Dim sumVK As Double
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
+                sumVK = getOffeneVK(KUNDE.KundenNrZentrale)
+                OP_tmp += sumVK
+            End If
+
+
 
             ' If .RowCount > 0 Then
             If OP_tmp <> 0 Then
@@ -1484,6 +1508,7 @@ Public Class usrCntlKundenuebersicht
             Dim zahlungsziel = 10
             Dim sumZZ As Double = 0
             Dim sumNOTZZ As Double = 0
+
             Dim sumCredit As Double = 0
             If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel
             Try
@@ -1515,6 +1540,14 @@ Public Class usrCntlKundenuebersicht
 
             txtOPCredit.Text = sumCredit.ToString("C")
             txtOPCredit.ForeColor = Color.Green
+
+            If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
+                txtOVK.Text = sumVK.ToString("C")
+                txtOVK.ForeColor = Color.Red
+            Else
+                txtOVK.Text = "-"
+            End If
+
             'If sumCredit < 0 Then
             '    txtOPCredit.ForeColor = Color.Red
             'Else
@@ -3102,4 +3135,13 @@ Public Class usrCntlKundenuebersicht
         End If
 
     End Sub
+
+    Private Sub Label19_Click(sender As Object, e As EventArgs) Handles Label19.Click, txtOVK.Click
+        Dim f As New frmVorauskasse
+        f.KundenNr = kdNr
+        f.GeldEingang = False
+
+        f.Show(Me)
+
+    End Sub
 End Class