Kundenübersicht / Risiko; Verag ZA

SDL/Fakturierung/cFakturierung.vb

@@ -1439,6 +1439,11 @@ Public Class cFakturierung
             rpt.lblRgNr.Text = If(Rechnung.RechnungsNr > 0, addYeartoRgNr(firma.Firma_ID, Rechnung.Buchungsjahr) & Rechnung.RechnungsNr, "Vorschau")
             rpt.lblRgDatum.Text = If(Rechnung.RechnungsDatum IsNot Nothing, CDate(Rechnung.RechnungsDatum).ToShortDateString, "VORSCHAU")
 
+            If Rechnung.Rechnungsart = "PROFORMA" Then
+                rpt.lblRgNr.Text = "PROFORMA"
+                rpt.lblRgDatum.Text = Rechnung.RechnungsDatum.ToShortDateString
+            End If
+
             'rpt.lblKundenAuftragsnummer.Text = If(RECHNUNG.KdAuftragsNr, "")
             'If rpt.lblKundenAuftragsnummer.Text = String.Empty Then rpt.lblKundenAuftragsnummerUeberschrift.Visible = False
 
@@ -1747,7 +1752,7 @@ Public Class cFakturierung
             'End If
 
 
-            If vorschau Then
+            If vorschau Or Rechnung.Rechnungsart = "PROFORMA" Then
 
 
                 rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
@@ -3903,7 +3908,22 @@ Public Class cFakturierung
         End If
 
 
+        '-------------------------------------------------------------------------------------------------------------------------------------
+        '------PROFORMA-----------------------------------------------------------------------------------------------------------------------
+        '-------------------------------------------------------------------------------------------------------------------------------------
+        If RECHNUNG.Rechnungsart = "PROFORMA" Then
+            ' Rechnungsdaten im RK eintragen.
+            RECHNUNG.[Status] = 1
+            RECHNUNG.RechnungsNr = Nothing
+            RECHNUNG.RechnungsDatum = Now
+            RECHNUNG.Buchungsjahr = cRKSV.getGJ(RechnungsDatum, RECHNUNG.Firma_ID) ' If(CDate(RECHNUNG.[RechnungsDatum]).Month = 1, CDate(RECHNUNG.[RechnungsDatum]).Year - 1, CDate(RECHNUNG.[RechnungsDatum]).Year)
+            Return RECHNUNG.SAVE
+        End If
+        '-------------------------------------------------------------------------------------------------------------------------------------
+
+
         If RECHNUNG.Sammelrechnung = 0 Then
+
             ' Rechnungsdaten im RK eintragen.
             RECHNUNG.[Status] = 1
 

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -1831,11 +1831,13 @@ Public Class usrCntlFaktAbrechnung
             Else
                 cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
                 cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
+                cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PROFORMA", "PROFORMA"))
             End If
         Else
             cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("RG-Kopf", "RK"))
             cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Standard", "RG"))
             cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Unvollständig", "RU"))
+            cboRgArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("PROFORMA", "PROFORMA"))
         End If
 
         cboRgArt.SelectedIndex = 0
@@ -3983,6 +3985,8 @@ Nächste_Textzeile_lesen:
     ' RECHNUNG.DruckDatumZeit
     Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
         If Not checkUIDNR() Then Exit Sub
+        getValues()
+        If RECHNUNG.Rechnungsart = "PROFORMA" And RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Proforma-Rechnung nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie das PDF erstellen?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung gilt somit als gedruckt und kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
             If RECHNUNG.Status <> 0 OrElse saveMe() Then
@@ -3996,6 +4000,7 @@ Nächste_Textzeile_lesen:
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
+        getValues()
         If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Status <> 0 OrElse vbYes = MsgBox("Möchten Sie die Rechnung drucken?" & vbNewLine & "Es wird eine Rechnungsnummer vergeben, die Rechnung kann nicht mehr bearbeitet werden.", vbYesNoCancel) Then
             If RECHNUNG.Status <> 0 OrElse saveMe() Then
@@ -4043,6 +4048,7 @@ Nächste_Textzeile_lesen:
 
     Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click, Button16.Click
         If Not checkUIDNR() Then Exit Sub
+        getValues()
         If RECHNUNG.Sammelrechnung <> "0" Then MsgBox("Nur bei Einzelrechnung möglich!") : Exit Sub
         If RECHNUNG.Status <> 0 OrElse saveMe() Then
             ' Anhänge sichern, falls geändert

SDL/buchhaltung/frmBU_Mahnlauf.vb

@@ -30,8 +30,8 @@ Public Class frmBU_Mahnlauf
 
             'Dim sqlStr = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,KTO.c_plz + ' ' + KTO.c_ort Ort,isnull(KTO.c_email,'') Email, count(*) Anzahl, sum(eur_bruttobetrag+eur_zahlung) Ausstand ,min(op.d_netto) Faelligkeit,max(si_mahnstufe) Mahnstufe, cast(MAX(d_mahnung)as date) Mahndatum
             Dim sqlStr = "SELECT i_personenkonto Konto,KTO.c_name, KTO.c_landid Land,KTO.c_plz + ' ' + KTO.c_ort Ort,/*isnull(KTO.c_email,'') Email, */  " &
-                            "isnull(( SELECT  TOP 1 [kkd_Email] FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10  and kkd_KundenNr=i_personenkonto ) ,'') Email," &
+                            "isnull(( SELECT  TOP 1 [kkd_Email] FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[tblKundenKontakt] where kkd_kkaId=10  and kkd_KundenNr=i_personenkonto ) ,'') Email," &
-                             " isnull(( SELECT TOP 1 Vorkasse FROM [FMZOLL\SQLFMZOLL].[VERAG].[dbo].Kunden where  KundenNr=i_personenkonto ) ,'') VK,KTO.c_zahlziel as Zahlungsziel, " &
+                             " isnull(( SELECT TOP 1 Vorkasse FROM " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].Kunden where  KundenNr=i_personenkonto ) ,'') VK,KTO.c_zahlziel as Zahlungsziel, " &
                              "count(*) Anzahl, sum(eur_bruttobetrag+eur_zahlung) Ausstand ,min(op.d_netto) Faelligkeit,max(si_mahnstufe) Mahnstufe, cast(MAX(d_mahnung)as date) Mahndatum" &
                              If(cbxNurFaellig.Checked, "", ",SUM(CASE WHEN op.d_netto<getDATE() THEN (eur_bruttobetrag+eur_zahlung) ELSE 0 END) Summe_Faellig") & " ,  cast(isnull(si_mahnung,0) as bit) as mahnbar  
                       FROM op_debitor OP
@@ -64,9 +64,9 @@ Public Class frmBU_Mahnlauf
                              ", tblKundenKontakt.[kkd_Email] as Email, isnull(kde_betreuer,'') as Betreuer , cast(isnull(si_mahnung,0) as bit) as mahnbar " &
                       "FROM op_debitor OP
 	                    RIGHT join fibu_konto KTO on i_personenkonto=i_konto AND  KTO.i_firm_refid=OP.i_firm_refid
-                        inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] on Kunden.KundenNr = i_personenkonto
+                        inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[Kunden] on Kunden.KundenNr = i_personenkonto
-                      inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on tblKundenErweitert.kde_KundenNr = Kunden.KundenNr
+                      inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[tblKundenErweitert] on tblKundenErweitert.kde_KundenNr = Kunden.KundenNr
-                        left join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenKontakt] on kkd_kkaId=10  and kkd_KundenNr=i_personenkonto  
+                        left join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[tblKundenKontakt] on kkd_kkaId=10  and kkd_KundenNr=i_personenkonto  
                       WHERE (OP.i_firm_refid = '" & Firma_ID & "') AND (dt_geloescht IS NULL)  
                         " & If(cbxNurFaellig.Checked, " and op.d_netto<=getdate() and isnull(si_mahnflags,0) <>(1) ", "") & "
                         " & If(KdNr > 0, " AND i_personenkonto ='" & KdNr & "'", "") & "

SDL/buchhaltung/usrCntlBH.vb

@@ -865,8 +865,8 @@ Public Class usrCntlBH
 				
 				
                 FROM op_debitor INNER JOIN fibu_konto ON (op_debitor.i_personenkonto = fibu_konto.i_konto)
-                inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Adressen] on [Adressen].AdressenNr = op_debitor.i_personenkonto
+                inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[Adressen] on [Adressen].AdressenNr = op_debitor.i_personenkonto
-                inner join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[tblKundenErweitert] on kde_KundenNr = op_debitor.i_personenkonto
+                inner join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[tblKundenErweitert] on kde_KundenNr = op_debitor.i_personenkonto
                 left join fibu_zahlziel on dbo.fibu_zahlziel.i_firm_refid = dbo.op_debitor.i_firm_refid and dbo.fibu_zahlziel.c_zahlziel = ISNULL(fibu_konto.c_zahlziel, '0/0/20')
                 
                 WHERE op_debitor.i_firm_refid = @MandantNr and fibu_konto.i_firm_refid = @MandantNr 

SDL/kunden/usrCntlKundenuebersicht.Designer.vb

@@ -23,19 +23,19 @@ Partial Class usrCntlKundenuebersicht
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.components = New System.ComponentModel.Container()
-        Dim DataGridViewCellStyle13 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle14 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle15 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle16 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle17 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle18 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle6 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(usrCntlKundenuebersicht))
-        Dim DataGridViewCellStyle19 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle7 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle20 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle8 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle21 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle9 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle22 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle10 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle24 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle12 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
-        Dim DataGridViewCellStyle23 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
+        Dim DataGridViewCellStyle11 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Me.cntxtAddVM = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.DToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnExcel = New System.Windows.Forms.Button()
@@ -277,6 +277,8 @@ Partial Class usrCntlKundenuebersicht
         Me.ToolStripMenuItem12 = New System.Windows.Forms.ToolStripMenuItem()
         Me.cboFirmaFMZOLL = New VERAG_PROG_ALLGEMEIN.MyComboBox()
         Me.SessionService1 = New VERAG_PROG_ALLGEMEIN.at.gv.bmf.finanzonline.session.sessionService()
+        Me.txtProforma = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label24 = New System.Windows.Forms.Label()
         Me.cntxtAddVM.SuspendLayout()
         Me.tbWeitereKundenDetails.SuspendLayout()
         Me.tbOfferten.SuspendLayout()
@@ -440,8 +442,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOfferteDetailsUebersicht.AllowUserToDeleteRows = False
         Me.dgvOfferteDetailsUebersicht.AllowUserToOrderColumns = True
         Me.dgvOfferteDetailsUebersicht.AllowUserToResizeRows = False
-        DataGridViewCellStyle13.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle1.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle13
+        Me.dgvOfferteDetailsUebersicht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
         Me.dgvOfferteDetailsUebersicht.BackgroundColor = System.Drawing.Color.White
         Me.dgvOfferteDetailsUebersicht.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.dgvOfferteDetailsUebersicht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -461,8 +463,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOffertenSperrliste.AllowUserToDeleteRows = False
         Me.dgvOffertenSperrliste.AllowUserToOrderColumns = True
         Me.dgvOffertenSperrliste.AllowUserToResizeRows = False
-        DataGridViewCellStyle14.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle2.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle14
+        Me.dgvOffertenSperrliste.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
         Me.dgvOffertenSperrliste.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffertenSperrliste.BorderStyle = System.Windows.Forms.BorderStyle.Fixed3D
         Me.dgvOffertenSperrliste.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -472,10 +474,10 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOffertenSperrliste.Name = "dgvOffertenSperrliste"
         Me.dgvOffertenSperrliste.ReadOnly = True
         Me.dgvOffertenSperrliste.RowHeadersVisible = False
-        DataGridViewCellStyle15.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle15.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
+        DataGridViewCellStyle3.SelectionBackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer), CType(CType(240, Byte), Integer))
-        DataGridViewCellStyle15.SelectionForeColor = System.Drawing.Color.Black
+        DataGridViewCellStyle3.SelectionForeColor = System.Drawing.Color.Black
-        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle15
+        Me.dgvOffertenSperrliste.RowsDefaultCellStyle = DataGridViewCellStyle3
         Me.dgvOffertenSperrliste.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
         Me.dgvOffertenSperrliste.Size = New System.Drawing.Size(173, 257)
         Me.dgvOffertenSperrliste.TabIndex = 0
@@ -613,8 +615,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvOffenePosten.AllowUserToAddRows = False
         Me.dgvOffenePosten.AllowUserToDeleteRows = False
         Me.dgvOffenePosten.AllowUserToResizeRows = False
-        DataGridViewCellStyle16.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle4.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle16
+        Me.dgvOffenePosten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4
         Me.dgvOffenePosten.BackgroundColor = System.Drawing.Color.White
         Me.dgvOffenePosten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvOffenePosten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -694,8 +696,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvUmsatzbericht.AllowUserToDeleteRows = False
         Me.dgvUmsatzbericht.AllowUserToOrderColumns = True
         Me.dgvUmsatzbericht.AllowUserToResizeRows = False
-        DataGridViewCellStyle17.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle5.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle17
+        Me.dgvUmsatzbericht.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle5
         Me.dgvUmsatzbericht.BackgroundColor = System.Drawing.Color.White
         Me.dgvUmsatzbericht.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvUmsatzbericht.Dock = System.Windows.Forms.DockStyle.Fill
@@ -758,8 +760,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvAnhaenge.AllowUserToAddRows = False
         Me.dgvAnhaenge.AllowUserToDeleteRows = False
         Me.dgvAnhaenge.AllowUserToResizeRows = False
-        DataGridViewCellStyle18.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle6.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle18
+        Me.dgvAnhaenge.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle6
         Me.dgvAnhaenge.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.dgvAnhaenge.BackgroundColor = System.Drawing.Color.White
         Me.dgvAnhaenge.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
@@ -879,7 +881,6 @@ Partial Class usrCntlKundenuebersicht
         Me.grpAbfertigung.Controls.Add(Me.Button6)
         Me.grpAbfertigung.Controls.Add(Me.LinkLabel1)
         Me.grpAbfertigung.Controls.Add(Me.Label33)
-        Me.grpAbfertigung.Controls.Add(Me.txtUmsatzJahr)
         Me.grpAbfertigung.Controls.Add(Me.Label29)
         Me.grpAbfertigung.Controls.Add(Me.cbxFiskalabfertigung)
         Me.grpAbfertigung.Controls.Add(Me.lblFisk)
@@ -894,6 +895,7 @@ Partial Class usrCntlKundenuebersicht
         Me.grpAbfertigung.Controls.Add(Me.txtZahlungsziel)
         Me.grpAbfertigung.Controls.Add(Me.txtVeranlKd)
         Me.grpAbfertigung.Controls.Add(Me.lblVeranlKd)
+        Me.grpAbfertigung.Controls.Add(Me.txtUmsatzJahr)
         Me.grpAbfertigung.Cursor = System.Windows.Forms.Cursors.Default
         Me.grpAbfertigung.Location = New System.Drawing.Point(509, 3)
         Me.grpAbfertigung.Name = "grpAbfertigung"
@@ -1055,6 +1057,9 @@ Partial Class usrCntlKundenuebersicht
         '
         'UsrCntlKundenBesonderheiten1
         '
+        Me.UsrCntlKundenBesonderheiten1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
+            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.UsrCntlKundenBesonderheiten1.AutoScroll = True
         Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
         Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -1278,11 +1283,11 @@ Partial Class usrCntlKundenuebersicht
         '
         Me.Label33.AutoSize = True
         Me.Label33.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label33.Location = New System.Drawing.Point(243, 253)
+        Me.Label33.Location = New System.Drawing.Point(11, 253)
         Me.Label33.Name = "Label33"
-        Me.Label33.Size = New System.Drawing.Size(69, 13)
+        Me.Label33.Size = New System.Drawing.Size(74, 13)
         Me.Label33.TabIndex = 33
-        Me.Label33.Text = "Zahlungsziel:"
+        Me.Label33.Text = "Zahlungs-Ziel:"
         '
         'txtUmsatzJahr
         '
@@ -1302,13 +1307,13 @@ Partial Class usrCntlKundenuebersicht
         Me.txtUmsatzJahr.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtUmsatzJahr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtUmsatzJahr.ForeColor = System.Drawing.Color.Black
-        Me.txtUmsatzJahr.Location = New System.Drawing.Point(134, 253)
+        Me.txtUmsatzJahr.Location = New System.Drawing.Point(102, 272)
         Me.txtUmsatzJahr.MaxLineLength = -1
         Me.txtUmsatzJahr.MaxLines_Warning = ""
         Me.txtUmsatzJahr.MaxLines_Warning_Label = Nothing
         Me.txtUmsatzJahr.Name = "txtUmsatzJahr"
         Me.txtUmsatzJahr.ReadOnly = True
-        Me.txtUmsatzJahr.Size = New System.Drawing.Size(96, 13)
+        Me.txtUmsatzJahr.Size = New System.Drawing.Size(128, 13)
         Me.txtUmsatzJahr.TabIndex = 32
         Me.txtUmsatzJahr.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
@@ -1316,7 +1321,7 @@ Partial Class usrCntlKundenuebersicht
         '
         Me.Label29.AutoSize = True
         Me.Label29.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label29.Location = New System.Drawing.Point(11, 253)
+        Me.Label29.Location = New System.Drawing.Point(11, 272)
         Me.Label29.Name = "Label29"
         Me.Label29.Size = New System.Drawing.Size(68, 13)
         Me.Label29.TabIndex = 31
@@ -1392,7 +1397,8 @@ Partial Class usrCntlKundenuebersicht
         '
         'rtbAbf_Besonderheiten
         '
-        Me.rtbAbf_Besonderheiten.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
+        Me.rtbAbf_Besonderheiten.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
+            Or System.Windows.Forms.AnchorStyles.Left) _
             Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
         Me.rtbAbf_Besonderheiten.BackColor = System.Drawing.Color.White
         Me.rtbAbf_Besonderheiten.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@@ -1685,15 +1691,15 @@ Partial Class usrCntlKundenuebersicht
         Me.Panel5.Controls.Add(Me.Label17)
         Me.Panel5.Controls.Add(Me.Label18)
         Me.Panel5.Controls.Add(Me.txtOPNichtFaellig)
-        Me.Panel5.Location = New System.Drawing.Point(7, 272)
+        Me.Panel5.Location = New System.Drawing.Point(7, 290)
         Me.Panel5.Name = "Panel5"
-        Me.Panel5.Size = New System.Drawing.Size(230, 107)
+        Me.Panel5.Size = New System.Drawing.Size(230, 89)
         Me.Panel5.TabIndex = 38
         '
         'Panel6
         '
         Me.Panel6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel6.Location = New System.Drawing.Point(7, 81)
+        Me.Panel6.Location = New System.Drawing.Point(7, 63)
         Me.Panel6.Name = "Panel6"
         Me.Panel6.Size = New System.Drawing.Size(210, 1)
         Me.Panel6.TabIndex = 42
@@ -1716,7 +1722,7 @@ Partial Class usrCntlKundenuebersicht
         Me.txtOPFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtOPFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtOPFaellig.ForeColor = System.Drawing.Color.Black
-        Me.txtOPFaellig.Location = New System.Drawing.Point(114, 23)
+        Me.txtOPFaellig.Location = New System.Drawing.Point(114, 5)
         Me.txtOPFaellig.MaxLineLength = -1
         Me.txtOPFaellig.MaxLines_Warning = ""
         Me.txtOPFaellig.MaxLines_Warning_Label = Nothing
@@ -1730,7 +1736,7 @@ Partial Class usrCntlKundenuebersicht
         '
         Me.lblOffenePosten.AutoSize = True
         Me.lblOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.lblOffenePosten.Location = New System.Drawing.Point(3, 86)
+        Me.lblOffenePosten.Location = New System.Drawing.Point(3, 68)
         Me.lblOffenePosten.Name = "lblOffenePosten"
         Me.lblOffenePosten.Size = New System.Drawing.Size(64, 13)
         Me.lblOffenePosten.TabIndex = 27
@@ -1754,7 +1760,7 @@ Partial Class usrCntlKundenuebersicht
         Me.txtOffenePosten.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtOffenePosten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtOffenePosten.ForeColor = System.Drawing.Color.Black
-        Me.txtOffenePosten.Location = New System.Drawing.Point(114, 85)
+        Me.txtOffenePosten.Location = New System.Drawing.Point(114, 67)
         Me.txtOffenePosten.MaxLineLength = -1
         Me.txtOffenePosten.MaxLines_Warning = ""
         Me.txtOffenePosten.MaxLines_Warning_Label = Nothing
@@ -1768,7 +1774,7 @@ Partial Class usrCntlKundenuebersicht
         '
         Me.Label32.AutoSize = True
         Me.Label32.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label32.Location = New System.Drawing.Point(3, 23)
+        Me.Label32.Location = New System.Drawing.Point(3, 5)
         Me.Label32.Name = "Label32"
         Me.Label32.Size = New System.Drawing.Size(86, 13)
         Me.Label32.TabIndex = 29
@@ -1792,7 +1798,7 @@ Partial Class usrCntlKundenuebersicht
         Me.txtOPCredit.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtOPCredit.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtOPCredit.ForeColor = System.Drawing.Color.Green
-        Me.txtOPCredit.Location = New System.Drawing.Point(114, 63)
+        Me.txtOPCredit.Location = New System.Drawing.Point(114, 46)
         Me.txtOPCredit.MaxLineLength = -1
         Me.txtOPCredit.MaxLines_Warning = ""
         Me.txtOPCredit.MaxLines_Warning_Label = Nothing
@@ -1806,7 +1812,7 @@ Partial Class usrCntlKundenuebersicht
         '
         Me.Label17.AutoSize = True
         Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label17.Location = New System.Drawing.Point(3, 42)
+        Me.Label17.Location = New System.Drawing.Point(3, 26)
         Me.Label17.Name = "Label17"
         Me.Label17.Size = New System.Drawing.Size(112, 13)
         Me.Label17.TabIndex = 38
@@ -1816,7 +1822,7 @@ Partial Class usrCntlKundenuebersicht
         '
         Me.Label18.AutoSize = True
         Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label18.Location = New System.Drawing.Point(3, 63)
+        Me.Label18.Location = New System.Drawing.Point(3, 46)
         Me.Label18.Name = "Label18"
         Me.Label18.Size = New System.Drawing.Size(60, 13)
         Me.Label18.TabIndex = 40
@@ -1840,7 +1846,7 @@ Partial Class usrCntlKundenuebersicht
         Me.txtOPNichtFaellig.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtOPNichtFaellig.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtOPNichtFaellig.ForeColor = System.Drawing.Color.Black
-        Me.txtOPNichtFaellig.Location = New System.Drawing.Point(114, 42)
+        Me.txtOPNichtFaellig.Location = New System.Drawing.Point(114, 26)
         Me.txtOPNichtFaellig.MaxLineLength = -1
         Me.txtOPNichtFaellig.MaxLines_Warning = ""
         Me.txtOPNichtFaellig.MaxLines_Warning_Label = Nothing
@@ -1854,6 +1860,8 @@ Partial Class usrCntlKundenuebersicht
         '
         Me.Panel7.BackColor = System.Drawing.Color.AntiqueWhite
         Me.Panel7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Panel7.Controls.Add(Me.txtProforma)
+        Me.Panel7.Controls.Add(Me.Label24)
         Me.Panel7.Controls.Add(Me.txtKdSicherheiten)
         Me.Panel7.Controls.Add(Me.Label23)
         Me.Panel7.Controls.Add(Me.txtOffenePosten2)
@@ -1865,9 +1873,9 @@ Partial Class usrCntlKundenuebersicht
         Me.Panel7.Controls.Add(Me.Label19)
         Me.Panel7.Controls.Add(Me.Label1)
         Me.Panel7.Controls.Add(Me.lblKreditlimit)
-        Me.Panel7.Location = New System.Drawing.Point(236, 272)
+        Me.Panel7.Location = New System.Drawing.Point(236, 247)
         Me.Panel7.Name = "Panel7"
-        Me.Panel7.Size = New System.Drawing.Size(253, 107)
+        Me.Panel7.Size = New System.Drawing.Size(253, 132)
         Me.Panel7.TabIndex = 43
         '
         'txtKdSicherheiten
@@ -1889,7 +1897,7 @@ Partial Class usrCntlKundenuebersicht
         Me.txtKdSicherheiten.Cursor = System.Windows.Forms.Cursors.Hand
         Me.txtKdSicherheiten.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtKdSicherheiten.ForeColor = System.Drawing.Color.Green
-        Me.txtKdSicherheiten.Location = New System.Drawing.Point(133, 24)
+        Me.txtKdSicherheiten.Location = New System.Drawing.Point(133, 27)
         Me.txtKdSicherheiten.MaxLineLength = -1
         Me.txtKdSicherheiten.MaxLines_Warning = ""
         Me.txtKdSicherheiten.MaxLines_Warning_Label = Nothing
@@ -1904,7 +1912,7 @@ Partial Class usrCntlKundenuebersicht
         Me.Label23.AutoSize = True
         Me.Label23.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label23.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label23.Location = New System.Drawing.Point(6, 64)
+        Me.Label23.Location = New System.Drawing.Point(6, 89)
         Me.Label23.Name = "Label23"
         Me.Label23.Size = New System.Drawing.Size(113, 13)
         Me.Label23.TabIndex = 50
@@ -1929,7 +1937,7 @@ Partial Class usrCntlKundenuebersicht
         Me.txtOffenePosten2.Cursor = System.Windows.Forms.Cursors.Hand
         Me.txtOffenePosten2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtOffenePosten2.ForeColor = System.Drawing.Color.Green
-        Me.txtOffenePosten2.Location = New System.Drawing.Point(133, 43)
+        Me.txtOffenePosten2.Location = New System.Drawing.Point(133, 69)
         Me.txtOffenePosten2.MaxLineLength = -1
         Me.txtOffenePosten2.MaxLines_Warning = ""
         Me.txtOffenePosten2.MaxLines_Warning_Label = Nothing
@@ -1944,7 +1952,7 @@ Partial Class usrCntlKundenuebersicht
         Me.Label22.AutoSize = True
         Me.Label22.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label22.Location = New System.Drawing.Point(6, 43)
+        Me.Label22.Location = New System.Drawing.Point(6, 69)
         Me.Label22.Name = "Label22"
         Me.Label22.Size = New System.Drawing.Size(58, 13)
         Me.Label22.TabIndex = 48
@@ -1953,7 +1961,7 @@ Partial Class usrCntlKundenuebersicht
         'Panel10
         '
         Me.Panel10.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
-        Me.Panel10.Location = New System.Drawing.Point(11, 81)
+        Me.Panel10.Location = New System.Drawing.Point(11, 106)
         Me.Panel10.Name = "Panel10"
         Me.Panel10.Size = New System.Drawing.Size(230, 1)
         Me.Panel10.TabIndex = 47
@@ -1962,7 +1970,7 @@ Partial Class usrCntlKundenuebersicht
         '
         Me.Label21.AutoSize = True
         Me.Label21.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label21.Location = New System.Drawing.Point(6, 86)
+        Me.Label21.Location = New System.Drawing.Point(6, 111)
         Me.Label21.Name = "Label21"
         Me.Label21.Size = New System.Drawing.Size(46, 13)
         Me.Label21.TabIndex = 45
@@ -1986,7 +1994,7 @@ Partial Class usrCntlKundenuebersicht
         Me.txtRisiko.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtRisiko.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtRisiko.ForeColor = System.Drawing.Color.Black
-        Me.txtRisiko.Location = New System.Drawing.Point(133, 86)
+        Me.txtRisiko.Location = New System.Drawing.Point(133, 111)
         Me.txtRisiko.MaxLineLength = -1
         Me.txtRisiko.MaxLines_Warning = ""
         Me.txtRisiko.MaxLines_Warning_Label = Nothing
@@ -2015,7 +2023,7 @@ Partial Class usrCntlKundenuebersicht
         Me.txtOVK.Cursor = System.Windows.Forms.Cursors.Hand
         Me.txtOVK.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtOVK.ForeColor = System.Drawing.Color.Green
-        Me.txtOVK.Location = New System.Drawing.Point(133, 62)
+        Me.txtOVK.Location = New System.Drawing.Point(133, 88)
         Me.txtOVK.MaxLineLength = -1
         Me.txtOVK.MaxLines_Warning = ""
         Me.txtOVK.MaxLines_Warning_Label = Nothing
@@ -2030,7 +2038,7 @@ Partial Class usrCntlKundenuebersicht
         Me.Label19.AutoSize = True
         Me.Label19.Cursor = System.Windows.Forms.Cursors.Hand
         Me.Label19.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        Me.Label19.Location = New System.Drawing.Point(6, 24)
+        Me.Label19.Location = New System.Drawing.Point(6, 26)
         Me.Label19.Name = "Label19"
         Me.Label19.Size = New System.Drawing.Size(75, 13)
         Me.Label19.TabIndex = 43
@@ -2101,13 +2109,13 @@ Partial Class usrCntlKundenuebersicht
         Me.txtZahlungsziel.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.txtZahlungsziel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.txtZahlungsziel.ForeColor = System.Drawing.Color.Black
-        Me.txtZahlungsziel.Location = New System.Drawing.Point(310, 255)
+        Me.txtZahlungsziel.Location = New System.Drawing.Point(180, 253)
         Me.txtZahlungsziel.MaxLineLength = -1
         Me.txtZahlungsziel.MaxLines_Warning = ""
         Me.txtZahlungsziel.MaxLines_Warning_Label = Nothing
         Me.txtZahlungsziel.Name = "txtZahlungsziel"
         Me.txtZahlungsziel.ReadOnly = True
-        Me.txtZahlungsziel.Size = New System.Drawing.Size(56, 13)
+        Me.txtZahlungsziel.Size = New System.Drawing.Size(50, 13)
         Me.txtZahlungsziel.TabIndex = 34
         Me.txtZahlungsziel.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
         '
@@ -2179,6 +2187,7 @@ Partial Class usrCntlKundenuebersicht
         '
         'tbKontaktKontakt
         '
+        Me.tbKontaktKontakt.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer))
         Me.tbKontaktKontakt.Controls.Add(Me.btncheckliste)
         Me.tbKontaktKontakt.Controls.Add(Me.FlatButton1)
         Me.tbKontaktKontakt.Controls.Add(Me.PictureBox1)
@@ -2197,7 +2206,6 @@ Partial Class usrCntlKundenuebersicht
         Me.tbKontaktKontakt.Size = New System.Drawing.Size(479, 164)
         Me.tbKontaktKontakt.TabIndex = 2
         Me.tbKontaktKontakt.Text = "Kontakt"
-        Me.tbKontaktKontakt.UseVisualStyleBackColor = True
         '
         'btncheckliste
         '
@@ -2249,7 +2257,7 @@ Partial Class usrCntlKundenuebersicht
         '
         'lblAnsprechpartner
         '
-        Me.lblAnsprechpartner.BackColor = System.Drawing.Color.White
+        Me.lblAnsprechpartner.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer))
         Me.lblAnsprechpartner.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lblAnsprechpartner.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblAnsprechpartner.Location = New System.Drawing.Point(38, 142)
@@ -2261,7 +2269,7 @@ Partial Class usrCntlKundenuebersicht
         '
         'lblMobil
         '
-        Me.lblMobil.BackColor = System.Drawing.Color.White
+        Me.lblMobil.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer))
         Me.lblMobil.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lblMobil.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblMobil.Location = New System.Drawing.Point(38, 53)
@@ -2273,7 +2281,7 @@ Partial Class usrCntlKundenuebersicht
         '
         'lblFax
         '
-        Me.lblFax.BackColor = System.Drawing.Color.White
+        Me.lblFax.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer))
         Me.lblFax.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lblFax.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblFax.Location = New System.Drawing.Point(38, 30)
@@ -2285,7 +2293,7 @@ Partial Class usrCntlKundenuebersicht
         '
         'lblEmail2
         '
-        Me.lblEmail2.BackColor = System.Drawing.Color.White
+        Me.lblEmail2.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer))
         Me.lblEmail2.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lblEmail2.Cursor = System.Windows.Forms.Cursors.Hand
         Me.lblEmail2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -2298,7 +2306,7 @@ Partial Class usrCntlKundenuebersicht
         '
         'lblEmail
         '
-        Me.lblEmail.BackColor = System.Drawing.Color.White
+        Me.lblEmail.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer))
         Me.lblEmail.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lblEmail.Cursor = System.Windows.Forms.Cursors.Hand
         Me.lblEmail.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -2333,7 +2341,7 @@ Partial Class usrCntlKundenuebersicht
         '
         'lblTel
         '
-        Me.lblTel.BackColor = System.Drawing.Color.White
+        Me.lblTel.BackColor = System.Drawing.Color.FromArgb(CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer), CType(CType(250, Byte), Integer))
         Me.lblTel.BorderStyle = System.Windows.Forms.BorderStyle.None
         Me.lblTel.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
         Me.lblTel.Location = New System.Drawing.Point(38, 6)
@@ -2693,8 +2701,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvVollmachten.AllowUserToDeleteRows = False
         Me.dgvVollmachten.AllowUserToOrderColumns = True
         Me.dgvVollmachten.AllowUserToResizeRows = False
-        DataGridViewCellStyle19.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle7.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle19
+        Me.dgvVollmachten.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle7
         Me.dgvVollmachten.BackgroundColor = System.Drawing.Color.White
         Me.dgvVollmachten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvVollmachten.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2747,8 +2755,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvVertraege.AllowUserToDeleteRows = False
         Me.dgvVertraege.AllowUserToOrderColumns = True
         Me.dgvVertraege.AllowUserToResizeRows = False
-        DataGridViewCellStyle20.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle8.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle20
+        Me.dgvVertraege.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle8
         Me.dgvVertraege.BackgroundColor = System.Drawing.Color.White
         Me.dgvVertraege.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvVertraege.Dock = System.Windows.Forms.DockStyle.Fill
@@ -2948,8 +2956,8 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvGestGarantie.AllowUserToDeleteRows = False
         Me.dgvGestGarantie.AllowUserToOrderColumns = True
         Me.dgvGestGarantie.AllowUserToResizeRows = False
-        DataGridViewCellStyle21.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
+        DataGridViewCellStyle9.BackColor = System.Drawing.Color.FromArgb(CType(CType(240, Byte), Integer), CType(CType(245, Byte), Integer), CType(CType(255, Byte), Integer))
-        Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle21
+        Me.dgvGestGarantie.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle9
         Me.dgvGestGarantie.BackgroundColor = System.Drawing.Color.White
         Me.dgvGestGarantie.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvGestGarantie.Dock = System.Windows.Forms.DockStyle.Fill
@@ -3439,24 +3447,24 @@ Partial Class usrCntlKundenuebersicht
         Me.dgvAufschub.AllowUserToResizeColumns = False
         Me.dgvAufschub.AllowUserToResizeRows = False
         Me.dgvAufschub.BackgroundColor = System.Drawing.Color.White
-        DataGridViewCellStyle22.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle22.BackColor = System.Drawing.SystemColors.Control
+        DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
-        DataGridViewCellStyle22.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle22.ForeColor = System.Drawing.SystemColors.WindowText
+        DataGridViewCellStyle10.ForeColor = System.Drawing.SystemColors.WindowText
-        DataGridViewCellStyle22.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle10.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle22.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle10.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle22.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
+        DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
-        Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle22
+        Me.dgvAufschub.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
         Me.dgvAufschub.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
         Me.dgvAufschub.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.KtoId, Me.Art, Me.HZA, Me.KontoNr, Me.EORI, Me.NL, Me.BIN})
-        DataGridViewCellStyle24.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
+        DataGridViewCellStyle12.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
-        DataGridViewCellStyle24.BackColor = System.Drawing.SystemColors.Window
+        DataGridViewCellStyle12.BackColor = System.Drawing.SystemColors.Window
-        DataGridViewCellStyle24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        DataGridViewCellStyle12.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
-        DataGridViewCellStyle24.ForeColor = System.Drawing.SystemColors.ControlText
+        DataGridViewCellStyle12.ForeColor = System.Drawing.SystemColors.ControlText
-        DataGridViewCellStyle24.SelectionBackColor = System.Drawing.SystemColors.Highlight
+        DataGridViewCellStyle12.SelectionBackColor = System.Drawing.SystemColors.Highlight
-        DataGridViewCellStyle24.SelectionForeColor = System.Drawing.SystemColors.HighlightText
+        DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
-        DataGridViewCellStyle24.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
+        DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
-        Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle24
+        Me.dgvAufschub.DefaultCellStyle = DataGridViewCellStyle12
         Me.dgvAufschub.Location = New System.Drawing.Point(13, 61)
         Me.dgvAufschub.MultiSelect = False
         Me.dgvAufschub.Name = "dgvAufschub"
@@ -3483,8 +3491,8 @@ Partial Class usrCntlKundenuebersicht
         '
         'HZA
         '
-        DataGridViewCellStyle23.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
+        DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleRight
-        Me.HZA.DefaultCellStyle = DataGridViewCellStyle23
+        Me.HZA.DefaultCellStyle = DataGridViewCellStyle11
         Me.HZA.HeaderText = "HZA"
         Me.HZA.Name = "HZA"
         Me.HZA.ReadOnly = True
@@ -3702,6 +3710,46 @@ Partial Class usrCntlKundenuebersicht
         Me.SessionService1.Url = "https://finanzonline.bmf.gv.at/fonws/ws/session"
         Me.SessionService1.UseDefaultCredentials = False
         '
+        'txtProforma
+        '
+        Me.txtProforma._DateTimeOnly = False
+        Me.txtProforma._numbersOnly = False
+        Me.txtProforma._numbersOnlyKommastellen = ""
+        Me.txtProforma._numbersOnlyTrennzeichen = True
+        Me.txtProforma._Prozent = False
+        Me.txtProforma._ShortDateNew = False
+        Me.txtProforma._ShortDateOnly = False
+        Me.txtProforma._TimeOnly = False
+        Me.txtProforma._TimeOnly_Seconds = False
+        Me.txtProforma._value = Nothing
+        Me.txtProforma._Waehrung = False
+        Me.txtProforma._WaehrungZeichen = True
+        Me.txtProforma.BackColor = System.Drawing.Color.AntiqueWhite
+        Me.txtProforma.BorderStyle = System.Windows.Forms.BorderStyle.None
+        Me.txtProforma.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.txtProforma.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtProforma.ForeColor = System.Drawing.Color.Green
+        Me.txtProforma.Location = New System.Drawing.Point(133, 48)
+        Me.txtProforma.MaxLineLength = -1
+        Me.txtProforma.MaxLines_Warning = ""
+        Me.txtProforma.MaxLines_Warning_Label = Nothing
+        Me.txtProforma.Name = "txtProforma"
+        Me.txtProforma.ReadOnly = True
+        Me.txtProforma.Size = New System.Drawing.Size(108, 13)
+        Me.txtProforma.TabIndex = 53
+        Me.txtProforma.TextAlign = System.Windows.Forms.HorizontalAlignment.Right
+        '
+        'Label24
+        '
+        Me.Label24.AutoSize = True
+        Me.Label24.Cursor = System.Windows.Forms.Cursors.Hand
+        Me.Label24.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label24.Location = New System.Drawing.Point(6, 48)
+        Me.Label24.Name = "Label24"
+        Me.Label24.Size = New System.Drawing.Size(120, 13)
+        Me.Label24.TabIndex = 52
+        Me.Label24.Text = "- Proforma-Rechnungen"
+        '
         'usrCntlKundenuebersicht
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -4039,4 +4087,6 @@ Partial Class usrCntlKundenuebersicht
     Friend WithEvents Panel10 As Panel
     Friend WithEvents Label21 As Label
     Friend WithEvents txtRisiko As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtProforma As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label24 As Label
 End Class

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -521,7 +521,10 @@ Public Class usrCntlKundenuebersicht
             initInsolvent(KUNDE_ERW.kde_CSinsolventAm)
 
             ' lblKreditlimit.BackColor = Color.White
-            lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C", CultureInfo.CurrentCulture)
+            lblKreditlimit.Text = checkNullNbr(KUNDE.Kreditlimit).ToString("C2", CultureInfo.CurrentCulture)
+            txtProforma.Text = getProformaKd(kdNr)
+
+
             If KUNDE.Kreditlimit <> 0 And KUNDE.Kreditlimit <> 2600 Then
                 '  lblKreditlimit.BackColor = Color.Yellow
             End If
@@ -858,7 +861,7 @@ Public Class usrCntlKundenuebersicht
                 '                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")
+                    txtUmsatzJahr.Text = CDbl(.Rows(0).Cells("Nettoumsatz").Value).ToString("C2")
                 End If
                 Label29.Text = "Umsatz " & .Rows(0).Cells("Jahr").Value & ":"
             Else
@@ -1327,10 +1330,11 @@ Public Class usrCntlKundenuebersicht
         txtOffenePosten2.Text = txtOffenePosten.Text
         txtKdSicherheiten.Text = CDbl(VERAG_PROG_ALLGEMEIN.cKundenSicherheiten.GetSummeSicherheitenAktuell(kdNr)).ToString("C2")
         Dim Kreditlimit As Double = If(IsNumeric(lblKreditlimit.Text), CDbl(lblKreditlimit.Text), 0)
+        Dim Proforma As Double = If(IsNumeric(txtProforma.Text), CDbl(txtProforma.Text), 0)
         Dim OVK As Double = If(IsNumeric(txtOVK.Text), CDbl(txtOVK.Text), 0)
         Dim Sicherheiten As Double = If(IsNumeric(txtKdSicherheiten.Text), CDbl(txtKdSicherheiten.Text), 0)
         Dim OP As Double = If(IsNumeric(txtOffenePosten2.Text), CDbl(txtOffenePosten2.Text), 0)
-        Dim Risiko = Kreditlimit + Sicherheiten - OVK - OP
+        Dim Risiko = Kreditlimit + Sicherheiten - Proforma - OVK - OP
 
         txtRisiko.Text = Risiko.ToString("N2")
         If Risiko = 0 Then
@@ -1436,14 +1440,14 @@ Public Class usrCntlKundenuebersicht
             '    txtOffenePosten.Text = ""
             'End If
 
-            txtOPFaellig.Text = sumZZ.ToString("C")
+            txtOPFaellig.Text = sumZZ.ToString("C2")
             If sumZZ > 0 Then
                 txtOPFaellig.ForeColor = Color.Red
             Else
                 txtOPFaellig.ForeColor = Color.Black
             End If
 
-            txtOPNichtFaellig.Text = sumNOTZZ.ToString("C")
+            txtOPNichtFaellig.Text = sumNOTZZ.ToString("C2")
             txtOPNichtFaellig.ForeColor = Color.Black
             'If sumNOTZZ > 0 Then
             '    txtOPNichtFaellig.ForeColor = Color.Red
@@ -1451,7 +1455,7 @@ Public Class usrCntlKundenuebersicht
             '    txtOPNichtFaellig.ForeColor = Color.Black
             'End If
 
-            txtOPCredit.Text = sumCredit.ToString("C")
+            txtOPCredit.Text = sumCredit.ToString("C2")
             txtOPCredit.ForeColor = Color.Green
             'If sumCredit < 0 Then
             '    txtOPCredit.ForeColor = Color.Red
@@ -1467,7 +1471,7 @@ Public Class usrCntlKundenuebersicht
             End If
 
             If sumGes <> 0 Then
-                txtOffenePosten.Text = sumGes.ToString("C")
+                txtOffenePosten.Text = sumGes.ToString("C2")
                 If sumGes < 0 Then
                     txtOffenePosten.ForeColor = Color.Green
                 Else
@@ -1589,7 +1593,7 @@ Public Class usrCntlKundenuebersicht
             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 = OP_tmp.ToString("C")
+                txtOffenePosten.Text = OP_tmp.ToString("C2")
                 If OP_tmp < 0 Then
                     txtOffenePosten.ForeColor = Color.Green
                 Else
@@ -1617,14 +1621,14 @@ Public Class usrCntlKundenuebersicht
             Catch ex As Exception
                 VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             End Try
-            txtOPFaellig.Text = sumZZ.ToString("C")
+            txtOPFaellig.Text = sumZZ.ToString("C2")
             If sumZZ > 0 Then
                 txtOPFaellig.ForeColor = Color.Red
             Else
                 txtOPFaellig.ForeColor = Color.Black
             End If
 
-            txtOPNichtFaellig.Text = sumNOTZZ.ToString("C")
+            txtOPNichtFaellig.Text = sumNOTZZ.ToString("C2")
             txtOPNichtFaellig.ForeColor = Color.Black
             'If sumNOTZZ > 0 Then
             '    txtOPNichtFaellig.ForeColor = Color.Red
@@ -1632,11 +1636,11 @@ Public Class usrCntlKundenuebersicht
             '    txtOPNichtFaellig.ForeColor = Color.Black
             'End If
 
-            txtOPCredit.Text = sumCredit.ToString("C")
+            txtOPCredit.Text = sumCredit.ToString("C2")
             txtOPCredit.ForeColor = Color.Green
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("KUNDE_VK_OP") Then
-                txtOVK.Text = sumVK.ToString("C")
+                txtOVK.Text = sumVK.ToString("C2")
                 txtOVK.ForeColor = Color.Red
             Else
                 txtOVK.Text = "-"

SDL/zoll/usrCntlZOLLAuswertungen.vb

@@ -1144,10 +1144,10 @@ Adressen.[E-Mail] as EMailKunde1,
 				 inner join zsAnmHea on zsAnmHea.LizenzNr=zsAnmGdsitem.LizenzNr and zsAnmHea.AnmID=zsAnmGdsitem.AnmID and zsAnmHea.VorgangID=zsAnmGdsitem.VorgangID and zsAnmHea.OperatorID=zsAnmGdsitem.OperatorID
 				 inner join zsAnmDeclarant on zsAnmHea.LizenzNr=zsAnmDeclarant.LizenzNr and zsAnmHea.AnmID=zsAnmDeclarant.AnmID and zsAnmHea.VorgangID=zsAnmDeclarant.VorgangID and zsAnmHea.OperatorID=zsAnmDeclarant.OperatorID
 				 inner join zsAnmTransp on zsAnmHea.LizenzNr=zsAnmTransp.LizenzNr and zsAnmHea.AnmID=zsAnmTransp.AnmID and zsAnmHea.VorgangID=zsAnmTransp.VorgangID and zsAnmHea.OperatorID=zsAnmTransp.OperatorID
-				 Left Join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].[Kunden] on Kunden.EORITIN = (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID ))
+				 Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].[Kunden] on Kunden.EORITIN = (SELECT TIN FROM zsAnmConeeTra WHERE (zsAnmConeeTra.LizenzNr =  zsAnmHea.LizenzNr ) And (zsAnmConeeTra.OperatorID =zsAnmHea.OperatorID ) And (zsAnmConeeTra.VorgangID = zsAnmHea.VorgangID ) And (zsAnmConeeTra.AnmID = zsAnmHea.AnmID ))
-			     Left Join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].Adressen on Adressen.AdressenNr = Kunden.KundenNr
+			     Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].Adressen on Adressen.AdressenNr = Kunden.KundenNr
-                 Left Join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].Offerten on Offerten.KundenNr = Kunden.KundenNr And OffertenNr = 65 
+                 Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].Offerten on Offerten.KundenNr = Kunden.KundenNr And OffertenNr = 65 
-                 Left Join [FMZOLL\SQLFMZOLL].[VERAG].[dbo].tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez  = 'Allgemein'
+                 Left Join " & VERAG_PROG_ALLGEMEIN.cAllgemein.FMZOLL_SERVER & ".[VERAG].[dbo].tblKundenKontakt on Kunden.KundenNr = kkd_KundenNr And kkd_kkaBez  = 'Allgemein'
 				where DecDT between '" & von & "' AND '" & bis & "'
 						 
                  and 

VERAG_PROG_ALLGEMEIN/Classes/SQL.vb

@@ -65,6 +65,22 @@ Public Class SQL
         End If
 
 
+    End Function
+    Public Shared Function GetNewOpenConnectionStringSQLGUIDE_ADMIN() As String
+        'Properties.Settings.Default.
+
+        If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
+
+            Return ""
+        Else
+            Try
+                Return My.MySettings.Default.VERAGConnectionStringPROD_ADMIN
+            Catch ex As Exception
+                Return ""
+            End Try
+        End If
+
+
     End Function
     Public Shared Function GetPARKZEITConnectionString() As String
         'Properties.Settings.Default.
@@ -289,6 +305,18 @@ Public Class SQL
         End Try
         Return Nothing
 
+    End Function
+    Public Shared Function GetNewOpenConnectionSQLGUIDE_ADMIN(Optional pooling As Boolean = True) As SqlConnection
+        Dim cn As New SqlConnection()
+        Try
+            cn.ConnectionString = GetNewOpenConnectionStringSQLGUIDE_ADMIN() & IIf(pooling, "", ";pooling=false")
+            cn.Open()
+            Return cn
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "SQL CONNECTION | " & cn.ConnectionString.Replace("BmWr501956", "*******").Replace("yp/THDd?xM+pZ$", "*******") & " | Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return Nothing
+
     End Function
 
     Public Shared Function GetNewOpenConnectionAsfinag(Optional pooling As Boolean = True) As SqlConnection
@@ -877,6 +905,7 @@ Public Class SQL
                 Case "FIBU", "SYSKA" : conn = GetNewOpenConnectionSYSKA()
                 Case "PARKZEIT" : conn = GetNewOpenConnectionPARKZEIT()
 
+                Case "SQLGUIDE_ADMIN" : conn = GetNewOpenConnectionSQLGUIDE_ADMIN()
                 Case "AVISO_ATILLA"
                     conn.ConnectionString = "Data Source=172.16.0.98;Initial Catalog=AVISO_ATILLA;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200"
                     conn.Open()

VERAG_PROG_ALLGEMEIN/My Project/Settings.Designer.vb

@@ -418,6 +418,18 @@ Namespace My
                 Return CType(Me("VERAGConnectionStringPROD"),String)
             End Get
         End Property
+        
+        <Global.System.Configuration.ApplicationScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=fa"& _ 
+            "lse;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=20"& _ 
+            "0")>  _
+        Public ReadOnly Property VERAGConnectionStringPROD_ADMIN() As String
+            Get
+                Return CType(Me("VERAGConnectionStringPROD_ADMIN"),String)
+            End Get
+        End Property
     End Class
 End Namespace
 

VERAG_PROG_ALLGEMEIN/My Project/Settings.settings

@@ -190,5 +190,12 @@
 &lt;/SerializableConnectionString&gt;</DesignTimeValue>
       <Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=AppUser;Password=yp/THDd?xM+pZ$;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
     </Setting>
+    <Setting Name="VERAGConnectionStringPROD_ADMIN" Type="(Connection string)" Scope="Application">
+      <DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
+&lt;SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"&gt;
+  &lt;ConnectionString&gt;Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200&lt;/ConnectionString&gt;
+&lt;/SerializableConnectionString&gt;</DesignTimeValue>
+      <Value Profile="(Default)">Data Source=SQLGUIDE01.verag.ost.dmn;Initial Catalog=VERAG;Integrated Security=false;User ID=sa;Password=BmWr501956;Pooling=true;Min Pool Size=5;Max Pool Size=200</Value>
+    </Setting>
   </Settings>
 </SettingsFile>

VERAG_PROG_ALLGEMEIN/VERAG_Zollanmeldung/cVERAG_Zollanmeldung.vb

@@ -594,7 +594,7 @@ Public Class cVERAG_CustomsDeclarations
                                         '           "<p>" &
 
                                         ' VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(If(AD.E_Mail, ""), "CBAM-WARNUNG – " & If(WarnLevel = 3, " ACHTUNG: Überschreitung 50to! ", "Überschreitung der Meldeschwelle"), bodyHtml, "cbam@verag.ag", (WarnLevel = 3), "cbam@verag.ag",, "al@verag.ag")
-                                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(If(AD.E_Mail, ""), "CBAM-WARNUNG – " & If(WarnLevel = 3, " ACHTUNG: Überschreitung 50to! ", "Überschreitung der Meldeschwelle"), bodyHtml, "cbam@verag.ag", (WarnLevel = 3), False, "cbam@verag.ag", "al@verag.ag")
+                                        VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(If(AD.E_Mail, ""), "CBAM-WARNUNG – " & If(WarnLevel = 3, " ACHTUNG: Überschreitung 50to! ", "Überschreitung der Meldeschwelle"), bodyHtml, "cbam@verag.ag", (WarnLevel = 3), False, "cbam@verag.ag;" & If(AD.E_Mail2, ""), "al@verag.ag")
 
                                         'VERAG_PROG_ALLGEMEIN.cProgramFunctions.sendMail(
                                         '         "al@verag.ag",