neu

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -107,13 +107,15 @@ Public Class usrCntlKundenuebersicht
             timerOP.Interval = 500
             timerOP.Enabled = False
 
-            If Not VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "COBAN" Then
 
+            Try
                 Select Case BER_STUFE
-                        Case 99 : Me.FindForm.Close() : Exit Sub
-                    End Select
+                    Case 99 : Me.FindForm.Close() : Exit Sub
+                End Select
 
-            End If
+            Catch ex As Exception
+
+            End Try
 
 
             '  KdSearchBox1.initKdBox(Me, lblKdNr)
@@ -154,8 +156,8 @@ Public Class usrCntlKundenuebersicht
                 txtVorauskasse.Visible = True
                 Label42.Visible = True
             End If
-            If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
-                FlatButton7.Visible = True
+            If True Then 'VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("KUNDEN_Verwaltung", "SDL") Then
+                btnThereforeKundeninfo.Visible = True
             End If
 
 
@@ -165,10 +167,15 @@ Public Class usrCntlKundenuebersicht
 
 
             If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
-                tbWeitereKundenDetails.TabPages.Remove(TabPage3)
-                tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
-                tbcntrAllg.TabPages.Remove(TabPage6)
-                tbcntrAllg.TabPages.Remove(TabPage7)
+                Try
+
+                    tbWeitereKundenDetails.TabPages.Remove(TabPage3)
+                    tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
+                    tbcntrAllg.TabPages.Remove(TabPage6)
+                    tbcntrAllg.TabPages.Remove(TabPage7)
+                Catch ex As Exception
+
+                End Try
             End If
 
 
@@ -192,8 +199,10 @@ Public Class usrCntlKundenuebersicht
                     btncheckliste.Visible = False
                     tbcntrAllg.Visible = False
                 Case "IMEX"
-                    FlatButton8.Visible = False
-                    FlatButton7.Visible = False
+                    btnThereforeTarifNr.Visible = True
+                    '     btnThereforeTarifNr.Visible = False
+                    btnThereforeKundeninfo.Visible = True
+                    'btnThereforeKundeninfo.Visible = False
 
             End Select
 
@@ -247,9 +256,14 @@ Public Class usrCntlKundenuebersicht
 
 
         initAllgemein()
+
         If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("VERIMEX", "AVISO") Then
-            tbWeitereKundenDetails.TabPages.Remove(TabPage3)
-            tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
+            Try
+                tbWeitereKundenDetails.TabPages.Remove(TabPage3)
+                tbWeitereKundenDetails.TabPages.Remove(tbOffenePosten)
+            Catch ex As Exception
+
+            End Try
             If ADRESSE IsNot Nothing AndAlso ADRESSE.LandKz = "TR" Then
                 tbWeitereKundenDetails.TabPages.Add(TabPage3)
                 tbWeitereKundenDetails.TabPages.Add(tbOffenePosten)
@@ -333,7 +347,7 @@ Public Class usrCntlKundenuebersicht
                 If Not (KdFirma = "IMEX" And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("AVISO_IMEX", "AVISO")) Then
                     If Not VERAG_PROG_ALLGEMEIN.cAllgemein.isCLUSTER Then
                         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_CLUSTER", "SDL") And
-                             Not ((KdFirma = "IMEX" Or KdFirma = "VERAG") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL")) Then
+                             Not ((KdFirma = "IMEX" Or KdFirma = "VERAG" Or KdFirma = "VERIMEX") And VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("OFFERTE_FREMD_VERAGIMEX", "SDL")) Then
                             dgvOfferteDetailsUebersicht.Visible = False
                             dgvOffenePosten.Visible = False
                             dgvUmsatzbericht.Visible = False
@@ -468,10 +482,31 @@ Public Class usrCntlKundenuebersicht
                 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
             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
+            End Select
+
+
+
+
             If KUNDE.Vorkasse Then
-                txtVorauskasse.Text = "JA" : txtVorauskasse.BackColor = Color.Yellow  'txtVorauskasse.Font = f_bold
+                txtVorauskasse.Text = "JA"
+                txtVorauskasse.BackColor = Color.Yellow
             Else
-                txtVorauskasse.Text = "NEIN"
+                txtVorauskasse.Text = ""
+                txtVorauskasse.BackColor = Color.White
+            End If
+
+
+
+            If KUNDE_ERW.kde_KundeFremdspedition Then
+                txtVerzolltBei.Text = If(KUNDE_ERW.kde_verzolltBei, "FREMD")
+                txtVerzolltBei.BackColor = Color.Yellow
+            Else
+                txtVerzolltBei.Text = ""
+                txtVerzolltBei.BackColor = Color.White
             End If
 
 
@@ -540,9 +575,21 @@ Public Class usrCntlKundenuebersicht
             rtbLKWFreigabeSenden.Text = checkNullStr(KUNDE.DokumenteLKWFreigabe)
             cbxKdAuftragsNr.Checked = checkNullBool(KUNDE_ERW.kde_VerwendetAuftragsNr)
             txtFixeKdAtrNr.Text = If(KUNDE_ERW.kde_FixeAuftragsNr, "")
+            txtInfoKdAtrNr.Text = If(KUNDE_ERW.kde_InfoAuftragsNr, "")
 
             UsrCntlKundenAvisoMailBenachrichtigung1.init(KUNDE, KUNDE_ERW)
 
+
+
+            If KUNDE_ERW.kde_BesonderheitenNeu Then
+                UsrCntlKundenBesonderheiten1.Size = rtbAbf_Besonderheiten.Size
+                UsrCntlKundenBesonderheiten1.init(kdNr)
+                UsrCntlKundenBesonderheiten1.Visible = True
+            Else
+                UsrCntlKundenBesonderheiten1.Visible = False
+            End If
+            rtbAbf_Besonderheiten.Visible = Not UsrCntlKundenBesonderheiten1.Visible
+
             initAufschub()
 
             Button1.BackgroundImage = My.Resources.fragezeichen
@@ -562,6 +609,8 @@ Public Class usrCntlKundenuebersicht
             Dim kdErwTmp As New VERAG_PROG_ALLGEMEIN.cKundenErweitert(kdNr)
             kdErwTmp.kde_VerwendetAuftragsNr = cbxKdAuftragsNr.Checked
             kdErwTmp.kde_FixeAuftragsNr = If(txtFixeKdAtrNr.Text <> "", txtFixeKdAtrNr.Text, Nothing)
+            kdErwTmp.kde_InfoAuftragsNr = If(txtInfoKdAtrNr.Text <> "", txtInfoKdAtrNr.Text, Nothing)
+
             kdErwTmp.SAVE()
         Catch ex As Exception
             MsgBox("Fehler beim Speichern." & vbNewLine & ex.Message)
@@ -781,12 +830,12 @@ Public Class usrCntlKundenuebersicht
                     r.DefaultCellStyle.ForeColor = Color.Red
                 End If
 
-                    If True Then
-                        If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
-                            DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
-                        End If
+                If True Then
+                    If r.Cells("kdvm_datenarchivId").Value IsNot DBNull.Value AndAlso CInt(r.Cells("kdvm_datenarchivId").Value) > 0 Then
+                        DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
                     End If
-                Next
+                End If
+            Next
         End With
 
     End Sub
@@ -1856,6 +1905,7 @@ Public Class usrCntlKundenuebersicht
 
     Private Sub cbxKdAuftragsNr_CheckedChanged(sender As Object, e As EventArgs) Handles cbxKdAuftragsNr.CheckedChanged
         txtFixeKdAtrNr.Enabled = cbxKdAuftragsNr.Checked
+        txtInfoKdAtrNr.Enabled = cbxKdAuftragsNr.Checked
     End Sub
 
     Private Sub timer_EORI_Tick(sender As Object, e As EventArgs) Handles timer_EORI.Tick
@@ -1957,11 +2007,11 @@ Public Class usrCntlKundenuebersicht
     End Sub
 
 
-    Private Sub FlatButton8_Click(sender As Object, e As EventArgs) Handles FlatButton8.Click
+    Private Sub FlatButton8_Click(sender As Object, e As EventArgs) Handles btnThereforeTarifNr.Click
         cProgramFunctions.openThereforeNavigatorTarifnummern(kdNr)
     End Sub
 
-    Private Sub FlatButton7_Click_1(sender As Object, e As EventArgs) Handles FlatButton7.Click
+    Private Sub FlatButton7_Click_1(sender As Object, e As EventArgs) Handles btnThereforeKundeninfo.Click
         cProgramFunctions.openThereforeNavigatorKudnenInfo(kdNr)
     End Sub