neu

2022-07-08 08:12:43 +02:00
parent 697b78e3c9
commit 7f5057dc3e
121 changed files with 8039 additions and 19322 deletions
--- a/SDL/kunden/usrCntlKundenuebersicht.vb
+++ b/SDL/kunden/usrCntlKundenuebersicht.vb
@@ -466,20 +466,24 @@ Public Class usrCntlKundenuebersicht
            '   TMPText = TMPText.Replace("/", "" & vbNewLine)
            rtbAbf_Besonderheiten.Text = TMPText

-            lblKreditlimit.BackColor = Color.White
-            lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("N", CultureInfo.CurrentCulture)
+            ' lblKreditlimit.BackColor = Color.White
+            lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C", CultureInfo.CurrentCulture)
            If KUNDE.Kreditlimit <> 0 And KUNDE.Kreditlimit <> 2600 Then
-                lblKreditlimit.BackColor = Color.Yellow
+                '  lblKreditlimit.BackColor = Color.Yellow
            End If
+
            If KUNDE.Kreditlimit = 0 Then lblKreditlimit.Text = ""
+            If KUNDE.Kreditlimit = 2600 Then lblKreditlimit.Text = ""

            'lblAviso.Font = f_norm
            'lblNeutralisierung.Font = f_norm
            'txtVorauskasse.Font = f_norm
            lblAviso.BackColor = Color.White
-            lblNeutralisierung.BackColor = Color.White
+            txtNeutralisierung.BackColor = Color.White
            txtVorauskasse.BackColor = Color.White

+
+
            Select Case checkNullStr(KUNDE.Avis)
                Case 0 : lblAviso.Text = "NEIN"
                Case 1 : lblAviso.Text = "Voravis" : lblAviso.BackColor = Color.Yellow ' lblAviso.Font = f_bold
@@ -487,14 +491,14 @@ Public Class usrCntlKundenuebersicht
                Case 3 : lblAviso.Text = "Vor- und Nachavis" : lblAviso.BackColor = Color.Yellow  ' lblAviso.Font = f_bold
            End Select
            Select Case checkNullStr(KUNDE.Neutralisierung)
-                Case 0 : lblNeutralisierung.Text = "NEIN"
-                Case 1 : lblNeutralisierung.Text = "JA" : lblNeutralisierung.BackColor = Color.Yellow  'lblNeutralisierung.Font = f_bold
-                Case 2 : lblNeutralisierung.Text = "nur in Sonderfällen" : lblNeutralisierung.BackColor = Color.Yellow  'lblNeutralisierung.Font = f_bold
+                Case 0 : txtNeutralisierung.Text = "NEIN"
+                Case 1 : txtNeutralisierung.Text = "JA" : txtNeutralisierung.BackColor = Color.Yellow  'lblNeutralisierung.Font = f_bold
+                Case 2 : txtNeutralisierung.Text = "nur in Sonderfällen" : txtNeutralisierung.BackColor = Color.Yellow  'lblNeutralisierung.Font = f_bold
            End Select
            Select Case checkNullStr(KUNDE.Neutralisierung)
-                Case 0 : lblNeutralisierung.Text = "NEIN"
-                Case 1 : lblNeutralisierung.Text = "JA" : lblNeutralisierung.BackColor = Color.Yellow  'lblNeutralisierung.Font = f_bold
-                Case 2 : lblNeutralisierung.Text = "nur in Sonderfällen" : lblNeutralisierung.BackColor = Color.Yellow  'lblNeutralisierung.Font = f_bold
+                Case 0 : txtNeutralisierung.Text = "NEIN"
+                Case 1 : txtNeutralisierung.Text = "JA" : txtNeutralisierung.BackColor = Color.Yellow  'lblNeutralisierung.Font = f_bold
+                Case 2 : txtNeutralisierung.Text = "nur in Sonderfällen" : txtNeutralisierung.BackColor = Color.Yellow  'lblNeutralisierung.Font = f_bold
            End Select


@@ -508,7 +512,8 @@ Public Class usrCntlKundenuebersicht
                txtVorauskasse.BackColor = Color.White
            End If

-
+            lblVorkasse.BackColor = txtVorauskasse.BackColor
+            lblNeutralisierung.BackColor = txtNeutralisierung.BackColor

            If KUNDE_ERW.kde_KundeFremdspedition Then
                txtVerzolltBei.Text = If(KUNDE_ERW.kde_verzolltBei, "FREMD")
@@ -746,7 +751,11 @@ Public Class usrCntlKundenuebersicht
            .Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleCenter

            If .RowCount > 0 Then
-                txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
+                '                txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
+                'txtUmsatzJahr.Text = String.Format("{0:n}", .Rows(0).Cells("Nettoumsatz").Value)
+                If IsNumeric(.Rows(0).Cells("Nettoumsatz").Value) Then
+                    txtUmsatzJahr.Text = CDbl(.Rows(0).Cells("Nettoumsatz").Value).ToString("C")
+                End If
                Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
            Else
                txtUmsatzJahr.Text = ""
@@ -1196,6 +1205,8 @@ Public Class usrCntlKundenuebersicht

            Dim zahlungsziel = 10
            Dim sumZZ As Double = 0
+            Dim sumNOTZZ As Double = 0
+            Dim sumCredit As Double = 0
            Dim sumGes As Double = 0
            If IsNumeric(KUNDE.Zahlungsziel) Then zahlungsziel = KUNDE.Zahlungsziel

@@ -1204,7 +1215,12 @@ Public Class usrCntlKundenuebersicht
                For Each r As DataGridViewRow In .Rows
                    If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
                        If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value)
+                    Else
+                        If CDbl(r.Cells("Betrag").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("Betrag").Value)
                    End If
+                    If CDbl(r.Cells("Betrag").Value) < 0 Then sumCredit += CDbl(r.Cells("Betrag").Value)
+
+
                    sumGes += CDbl(r.Cells("Betrag").Value)
                Next

@@ -1232,6 +1248,24 @@ Public Class usrCntlKundenuebersicht
                txtOPFaellig.ForeColor = Color.Black
            End If

+            txtOPNichtFaellig.Text = sumNOTZZ.ToString("C")
+            txtOPNichtFaellig.ForeColor = Color.Black
+            'If sumNOTZZ > 0 Then
+            '    txtOPNichtFaellig.ForeColor = Color.Red
+            'Else
+            '    txtOPNichtFaellig.ForeColor = Color.Black
+            'End If
+
+            txtOPCredit.Text = sumCredit.ToString("C")
+            txtOPCredit.ForeColor = Color.Green
+            'If sumCredit < 0 Then
+            '    txtOPCredit.ForeColor = Color.Red
+            'Else
+            '    txtOPCredit.ForeColor = Color.Black
+            'End If
+
+
+
            If sumGes <> 0 Then txtOffenePosten.Text = sumGes.ToString("C") Else txtOffenePosten.Text = ""
            'If sumGes > 0 Then
            '    txtOffenePosten.Text = sumGes.ToString("C")
@@ -1321,19 +1355,25 @@ Public Class usrCntlKundenuebersicht
            ' If .RowCount > 0 Then
            If OP_tmp > 0 Then
                ' txtOffenePosten.Text = String.Format("{0:n}", .Rows(0).Cells("KumSaldoEUR").Value)
-                txtOffenePosten.Text = String.Format("{0:n}", OP_tmp)
+                'txtOffenePosten.Text = String.Format("{0:n}", OP_tmp)
+                txtOffenePosten.Text = OP_tmp.ToString("C")
            Else
                txtOffenePosten.Text = ""
            End If

            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
                For Each r As DataGridViewRow In .Rows
                    If DateDiff(DateInterval.Day, CDate(r.Cells("Datum").Value), Now) > zahlungsziel Then
-                        If CDbl(r.Cells("Betrag").Value) > 0 Then sumZZ += CDbl(r.Cells("Betrag").Value)
+                        If CDbl(r.Cells("OP-Saldo").Value) > 0 Then sumZZ += CDbl(r.Cells("OP-Saldo").Value)
+                    Else
+                        If CDbl(r.Cells("OP-Saldo").Value) > 0 Then sumNOTZZ += CDbl(r.Cells("OP-Saldo").Value)
                    End If
+                    If CDbl(r.Cells("OP-Saldo").Value) < 0 Then sumCredit += CDbl(r.Cells("OP-Saldo").Value)
                Next
            Catch ex As Exception
                VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
@@ -1344,6 +1384,23 @@ Public Class usrCntlKundenuebersicht
            Else
                txtOPFaellig.ForeColor = Color.Black
            End If
+
+            txtOPNichtFaellig.Text = sumNOTZZ.ToString("C")
+            txtOPNichtFaellig.ForeColor = Color.Black
+            'If sumNOTZZ > 0 Then
+            '    txtOPNichtFaellig.ForeColor = Color.Red
+            'Else
+            '    txtOPNichtFaellig.ForeColor = Color.Black
+            'End If
+
+            txtOPCredit.Text = sumCredit.ToString("C")
+            txtOPCredit.ForeColor = Color.Green
+            'If sumCredit < 0 Then
+            '    txtOPCredit.ForeColor = Color.Red
+            'Else
+            '    txtOPCredit.ForeColor = Color.Black
+            'End If
+
        End With
    End Sub

@@ -2414,4 +2471,45 @@ Public Class usrCntlKundenuebersicht
        End Try
        Me.Cursor = Cursors.Default
    End Sub
+
+    Private Sub dgvVollmachten_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvVollmachten.CellContentClick
+
+    End Sub
+
+    Private Sub dgvVollmachten_DragDrop(sender As Object, e As DragEventArgs) Handles dgvVollmachten.DragDrop
+        Try
+            If e.Data.GetDataPresent("FileDrop", True) = True Then
+                Dim FileList As String() = CType(e.Data.GetData("FileDrop"), Object) 'Hier wird der Variable "Wert" das übergeben, was wir auf die Form gezogen haben. Bei einer Datei wäre es dann der Pfad der Datei.
+                If FileList.Count > 0 Then
+                    'If Not _MULTI_FILES And FileList.Count > 1 Then
+                    '    MsgBox("Es können nicht mehrere Dateien hochgeladen werden!")
+                    '    Exit Sub
+                    'End If
+                    For Each W In FileList
+                        If Not W.ToUpper.EndsWith(".EXE") Then
+                            Dim datum = IIf(dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value Is DBNull.Value, Now, dgvVollmachten.Rows(tmprowindex).Cells("kdvm_erhalten_Datum").Value)
+                            Dim l As New frmKundenZOLLVollmachten(kdNr, W)
+                            If l.ShowDialog(frmGrayOut) = DialogResult.OK Then
+                                initDGVVollmachten()
+                            End If
+                        End If
+                    Next
+                End If
+            End If
+        Catch ex As Exception
+            MsgBox("   FEHLER: DragDrop!" & ex.Message & ex.StackTrace)
+        End Try
+    End Sub
+
+    Private Sub Label17_Click(sender As Object, e As EventArgs) Handles Label17.Click
+
+    End Sub
+
+    Private Sub grpAbfertigung_Enter(sender As Object, e As EventArgs) Handles grpAbfertigung.Enter
+
+    End Sub
+
+    Private Sub Panel5_Paint(sender As Object, e As PaintEventArgs) Handles Panel5.Paint
+
+    End Sub
 End Class