LeistungenFIBU, Abrechungsmaske, ZE-Buttons, creditsafe, bugfix PLOSE (bei Rechnungsausgang)

SDL/Creditsafe/usrcntlCreditsafe.vb

@@ -41,11 +41,6 @@ Public Class usrcntlCreditsafe
         user = creditsafeAPI.dataTablecs.Rows(0).Item("api_user")
         pw = creditsafeAPI.dataTablecs.Rows(0).Item("api_password")
 
-
-        'Zugangsdaten hartcoded, da Webservice-User nicht Mitarbeiterabhängig ist!!!
-        'user = "creditsafe@verag.ag"
-        'pw = "^AZcBVTBUIHTT5SQ1C9OOH"
-
         cboLand.fillWithSQL(" SELECT [Länderverzeichnis für die Außenhandelsstatistik].LandKz,[Länderverzeichnis für die Außenhandelsstatistik].LandBez  " &
                                       " FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN [Währungstabelle] ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = [Währungstabelle].[Währungsschlüssel] " &
                                       " WHERE ([Währungstabelle].[MitgliedslandEU] = 1 Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz  = 'TR' Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz  = 'GB' Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz  = 'RS' Or [Länderverzeichnis für die Außenhandelsstatistik].LandKz  = 'CH') " &

SDL/Fakturierung/frmAbrechnungsMaske.vb

@@ -50,7 +50,7 @@ Public Class frmAbrechnungsMaske
         End If
 
         'If VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM Then
-        '    FirmaTmp = "AMBAR"
+        'FirmaTmp = "AMBAR"
         'End If
 
         MyComboBox2.Items.Clear()

SDL/Fakturierung/frmFaktSammelRgDrucken.vb

@@ -1,4 +1,5 @@
 Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmFaktSammelRgDrucken
 
@@ -100,12 +101,14 @@ Public Class frmFaktSammelRgDrucken
             FirmaTmp = "VERAGIMEX"
         End If
 
+        FirmaTmp = "AMBAR"
+
         Select Case FirmaTmp
             Case "VERAG"
                 cboFirma.fillWithSQL("Select [Firma_ID], [Firma_Bez]  FROM  [tblFirma] WHERE Firma_ID<>20", False, "FMZOLL")
                 cboFirma.changeItem("1")
                 cboSB.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR [mit_id] IN (SELECT  [beroz_bergrId]  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND  beroz_art='B')) order by mit_username", False, "ADMIN", True)
-        Case "IMEX"
+            Case "IMEX"
                 cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE Firma_ID=20", False, "FMZOLL")
                 cboFirma.changeItem("20")
                 cboSB.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where  mit_firma='IMEX'  and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR (SELECT COUNT(*)  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
@@ -120,6 +123,10 @@ Public Class frmFaktSammelRgDrucken
                     Case "IMEX" : cboFirma.changeItem("20")
                 End Select
                 cboSB.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where mit_firma IN ('IMEX','VERAG'" & If(VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME = "ADMIN", ",'ALL'", "") & ") and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR [mit_id] IN (SELECT  [beroz_bergrId]  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND  beroz_art='B')) order by mit_username", False, "ADMIN", True)
+            Case "AMBAR"
+                cboFirma.fillWithSQL("SELECT [Firma_ID],[Firma_Bez]  FROM  [tblFirma] WHERE FIRMENGRUPPE IN ('AMBAR') ", False, "FMZOLL")
+                cboFirma.changeItem("24")
+                cboSB.fillWithSQL("SELECT [mit_username] FROM [tblMitarbeiter] where  mit_firma='AMBAR'  and mit_gekuendigt=0 AND  (mit_abteilung IN ('VRR','BH')	OR (SELECT COUNT(*)  FROM [tblBerechtigungsObjekteZuordnung]  where [beroz_beroId]=90 AND [beroz_bergrId]=[mit_id] AND beroz_art='B')>0) order by mit_username", False, "ADMIN", True)
         End Select
         '  cboFirma.fillWithSQL("SELECT  [Firma_ID],[Firma_Bez] FROM [tblFirma] WHERE Firma_ID NOT IN(3) ORDER BY Firma_ID  ", True, "FMZOLL")
         cboFirma.changeItem(Firma)

SDL/Fakturierung/usrCntlFaktAbrechnung.vb

@@ -3136,7 +3136,7 @@ Nächste_Textzeile_lesen:
                 Button1.PerformClick()
             End If
 
-            If keyData = Keys.F3 Then
+            If keyData = Keys.F3 AndAlso cboSammelrechnung._value = 0 Then
                 btn.PerformClick()
             End If
 
@@ -4093,7 +4093,7 @@ Nächste_Textzeile_lesen:
             If check >= 0 Then
                 If IsNumeric(cboSteuerschlüssel._value) AndAlso CInt(cboSteuerschlüssel._value) <> check Then
                     Dim text = SQL.getValueTxtBySql("select AuswahlSteuerbezeichnung from Steuertabelle where Steuerschlüssel =" & check, "FMZOLL")
-                    Dim hintUIDPruef As String = IIf((RECHNUNG.RechnungsUstIdGeprüft IsNot Nothing AndAlso CDate(RECHNUNG.RechnungsUstIdGeprüft) < Today.AddDays(-30)), " UID-ÜrPrüfung ist älter als 30 Tage!", "")
+                    Dim hintUIDPruef As String = IIf((RECHNUNG.RechnungsUstIdGeprüft IsNot Nothing AndAlso CDate(RECHNUNG.RechnungsUstIdGeprüft) < Today.AddDays(-30)), " UID-Prüfung ist älter als 30 Tage!", "")
                     If Not vbYes = MsgBox("Falscher Steuertyp!" & vbNewLine & " Steuerschlüssel " & text & " sollte hinterlegt werden." & vbNewLine & IIf(hintUIDPruef <> "", hintUIDPruef & vbNewLine, "") & "Trotzdem speichern?", vbYesNo) Then
                         Return False
                     End If
@@ -4104,4 +4104,10 @@ Nächste_Textzeile_lesen:
         Return True
 
     End Function
+
+    Private Sub cboSammelrechnung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cboSammelrechnung.SelectedValueChanged
+
+        btn.Enabled = IIf(cboSammelrechnung._value = 0, True, False)
+
+    End Sub
 End Class

SDL/SDL.vbproj

@@ -442,6 +442,12 @@
     <Compile Include="buchhaltung\frmBU_Mahnlauf_Ausgabe.vb">
       <SubType>Form</SubType>
     </Compile>
+    <Compile Include="buchhaltung\frmLeistundenFIBUKonten.Designer.vb">
+      <DependentUpon>frmLeistundenFIBUKonten.vb</DependentUpon>
+    </Compile>
+    <Compile Include="buchhaltung\frmLeistundenFIBUKonten.vb">
+      <SubType>Form</SubType>
+    </Compile>
     <Compile Include="buchhaltung\frmMDM_BH_SollHaben.Designer.vb">
       <DependentUpon>frmMDM_BH_SollHaben.vb</DependentUpon>
     </Compile>
@@ -520,6 +526,7 @@
     <Compile Include="Classes\cGeschaeftsjahr.vb" />
     <Compile Include="Classes\cKassenbuch.vb" />
     <Compile Include="Classes\cVERAG_Card.vb" />
+    <Compile Include="cLeistungFIBU.vb" />
     <Compile Include="cProgramFunctions.vb" />
     <Compile Include="Creditsafe\frmCreditSafeSearch.Designer.vb">
       <DependentUpon>frmCreditSafeSearch.vb</DependentUpon>
@@ -3068,6 +3075,9 @@
     <EmbeddedResource Include="buchhaltung\frmBU_Mahnlauf_Ausgabe.resx">
       <DependentUpon>frmBU_Mahnlauf_Ausgabe.vb</DependentUpon>
     </EmbeddedResource>
+    <EmbeddedResource Include="buchhaltung\frmLeistundenFIBUKonten.resx">
+      <DependentUpon>frmLeistundenFIBUKonten.vb</DependentUpon>
+    </EmbeddedResource>
     <EmbeddedResource Include="buchhaltung\frmMDM_BH_SollHaben.resx">
       <DependentUpon>frmMDM_BH_SollHaben.vb</DependentUpon>
     </EmbeddedResource>

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -104,6 +104,33 @@ Public Class frmMDM_USTVAntrag
                 .Columns("UStVPo_Sachbearbeiter").MinimumWidth = 100
                 .Columns("UStVPo_Sachbearbeiter").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
 
+
+                Dim c As New DataGridViewImageColumn
+                c.Name = "clmnPDF" : c.HeaderText = "Rechnungen"
+                '    c.Image = Nothing
+                c.DefaultCellStyle.NullValue = Nothing
+                c.ImageLayout = DataGridViewImageCellLayout.Zoom
+                c.Width = 40 : c.DefaultCellStyle.Padding = New Padding(2) : c.DefaultCellStyle.BackColor = Color.White
+                'c.DefaultCellStyle.Tag = "Therefore anzeigen"
+
+                .Columns.Add(c)
+
+                For Each r As DataGridViewRow In .Rows
+
+
+                    Dim da_id = -1
+
+                    Select Case If(r.Cells("UStVPo_SchnittstellenNr").Value, -1)
+                        Case 6, 0 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [plInv_daId] FROM [tblPLOSE_Inv_Data] where plInv_SupplierRechnungsDatum='" & r.Cells("UStVPo_ReDat").Value & "' and plInv_SupplierRechnungsNr='" & r.Cells("UStVPo_ReNr").Value & "' and plInv_SupplierCountry='" & Antrag_LandKz & "' AND [plInv_daId] is not null", "FMZOLL",,, -1)
+                        Case 7 : da_id = SQL.getValueTxtBySql("SELECT TOP(1) [rmc_daId] FROM [tblRMCImport] where rmc_reDatum='" & r.Cells("UStVPo_ReDat").Value & "' and rmc_reNr='" & r.Cells("UStVPo_ReNr") & "' and rmc_landKZ='" & Antrag_LandKz & "' AND [rmc_daId] is not null", "FMZOLL",,, -1)
+                    End Select
+
+                    If da_id > 0 Then
+                        DirectCast(r.Cells("clmnPDF"), DataGridViewImageCell).Value = My.Resources.pdf
+                    End If
+
+                Next
+
             End If
 
         End With
@@ -119,14 +146,14 @@ Public Class frmMDM_USTVAntrag
 
         Dim GET_Antraege = MDM_Worker.cPLOSE.GET_Antraege(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, Antrag_LandKz, False)
 
-
-
         If GET_Antraege IsNot Nothing AndAlso GET_Antraege.Count > 0 Then
             lblPLOSE_EintrageVerarbetiet.Text = "aussehende Einträge: " & GET_Antraege.Count
         Else
             lblPLOSE_EintrageVerarbetiet.Text = "alle Einträge verarbeitet"
         End If
 
+        
+
 
     End Sub
 

SDL/USTV/ustCntlUSTV_AntragPosition.Designer.vb

@@ -132,6 +132,7 @@ Partial Class ustCntlUSTV_AntragPosition
         Me.scanSonstiges._DATENSERVER_UOrdner3 = ""
         Me.scanSonstiges._OPEN_ORIGINAL = False
         Me.scanSonstiges._TYPE = "PDF"
+        Me.scanSonstiges.AllowDrop = True
         Me.scanSonstiges.AutoSizeMode = System.Windows.Forms.AutoSizeMode.GrowAndShrink
         Me.scanSonstiges.BackColor = System.Drawing.Color.White
         Me.scanSonstiges.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

SDL/buchhaltung/frmLeistundenFIBUKonten.Designer.vb

@@ -0,0 +1,482 @@
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
+Partial Class frmLeistundenFIBUKonten
+    Inherits System.Windows.Forms.Form
+
+    'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()>
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    'Wird vom Windows Form-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Windows Form-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()>
+    Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
+        Me.mainPanel = New System.Windows.Forms.Panel()
+        Me.txtDrittland = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label7 = New System.Windows.Forms.Label()
+        Me.txtEUstfrei = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label6 = New System.Windows.Forms.Label()
+        Me.txtEUstpfl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label5 = New System.Windows.Forms.Label()
+        Me.txtInlandstfrei = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label1 = New System.Windows.Forms.Label()
+        Me.txtInlandstpfl = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label9 = New System.Windows.Forms.Label()
+        Me.lblWordcount = New System.Windows.Forms.Label()
+        Me.cboLeistung = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label2 = New System.Windows.Forms.Label()
+        Me.btnSave = New System.Windows.Forms.Button()
+        Me.btnAdd = New System.Windows.Forms.Button()
+        Me.btnDelete = New System.Windows.Forms.Button()
+        Me.pnlTop = New System.Windows.Forms.Panel()
+        Me.cbxLeistungSelected = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.Label8 = New System.Windows.Forms.Label()
+        Me.txtSuche = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.Label18 = New System.Windows.Forms.Label()
+        Me.lblWarning = New System.Windows.Forms.Label()
+        Me.Label4 = New System.Windows.Forms.Label()
+        Me.Label3 = New System.Windows.Forms.Label()
+        Me.cbxFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.dgvSachkonten = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
+        Me.mainPanel.SuspendLayout()
+        Me.pnlTop.SuspendLayout()
+        CType(Me.dgvSachkonten, System.ComponentModel.ISupportInitialize).BeginInit()
+        Me.SuspendLayout()
+        '
+        'mainPanel
+        '
+        Me.mainPanel.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.mainPanel.Controls.Add(Me.txtDrittland)
+        Me.mainPanel.Controls.Add(Me.Label7)
+        Me.mainPanel.Controls.Add(Me.txtEUstfrei)
+        Me.mainPanel.Controls.Add(Me.Label6)
+        Me.mainPanel.Controls.Add(Me.txtEUstpfl)
+        Me.mainPanel.Controls.Add(Me.Label5)
+        Me.mainPanel.Controls.Add(Me.txtInlandstfrei)
+        Me.mainPanel.Controls.Add(Me.Label1)
+        Me.mainPanel.Controls.Add(Me.txtInlandstpfl)
+        Me.mainPanel.Controls.Add(Me.Label9)
+        Me.mainPanel.Controls.Add(Me.lblWordcount)
+        Me.mainPanel.Controls.Add(Me.cboLeistung)
+        Me.mainPanel.Controls.Add(Me.Label2)
+        Me.mainPanel.Controls.Add(Me.btnSave)
+        Me.mainPanel.Location = New System.Drawing.Point(1, 648)
+        Me.mainPanel.Name = "mainPanel"
+        Me.mainPanel.Size = New System.Drawing.Size(1283, 77)
+        Me.mainPanel.TabIndex = 101
+        '
+        'txtDrittland
+        '
+        Me.txtDrittland._DateTimeOnly = False
+        Me.txtDrittland._numbersOnly = True
+        Me.txtDrittland._numbersOnlyKommastellen = ""
+        Me.txtDrittland._numbersOnlyTrennzeichen = False
+        Me.txtDrittland._Prozent = False
+        Me.txtDrittland._ShortDateNew = False
+        Me.txtDrittland._ShortDateOnly = False
+        Me.txtDrittland._TimeOnly = False
+        Me.txtDrittland._TimeOnly_Seconds = False
+        Me.txtDrittland._value = ""
+        Me.txtDrittland._Waehrung = False
+        Me.txtDrittland._WaehrungZeichen = False
+        Me.txtDrittland.ForeColor = System.Drawing.Color.Black
+        Me.txtDrittland.Location = New System.Drawing.Point(800, 38)
+        Me.txtDrittland.MaxLineLength = 4
+        Me.txtDrittland.MaxLines_Warning = ""
+        Me.txtDrittland.MaxLines_Warning_Label = Nothing
+        Me.txtDrittland.Name = "txtDrittland"
+        Me.txtDrittland.Size = New System.Drawing.Size(120, 20)
+        Me.txtDrittland.TabIndex = 45
+        '
+        'Label7
+        '
+        Me.Label7.AutoSize = True
+        Me.Label7.Location = New System.Drawing.Point(797, 15)
+        Me.Label7.Name = "Label7"
+        Me.Label7.Size = New System.Drawing.Size(46, 13)
+        Me.Label7.TabIndex = 44
+        Me.Label7.Text = "Drittland"
+        '
+        'txtEUstfrei
+        '
+        Me.txtEUstfrei._DateTimeOnly = False
+        Me.txtEUstfrei._numbersOnly = True
+        Me.txtEUstfrei._numbersOnlyKommastellen = ""
+        Me.txtEUstfrei._numbersOnlyTrennzeichen = False
+        Me.txtEUstfrei._Prozent = False
+        Me.txtEUstfrei._ShortDateNew = False
+        Me.txtEUstfrei._ShortDateOnly = False
+        Me.txtEUstfrei._TimeOnly = False
+        Me.txtEUstfrei._TimeOnly_Seconds = False
+        Me.txtEUstfrei._value = ""
+        Me.txtEUstfrei._Waehrung = False
+        Me.txtEUstfrei._WaehrungZeichen = False
+        Me.txtEUstfrei.ForeColor = System.Drawing.Color.Black
+        Me.txtEUstfrei.Location = New System.Drawing.Point(662, 38)
+        Me.txtEUstfrei.MaxLineLength = 4
+        Me.txtEUstfrei.MaxLines_Warning = ""
+        Me.txtEUstfrei.MaxLines_Warning_Label = Nothing
+        Me.txtEUstfrei.Name = "txtEUstfrei"
+        Me.txtEUstfrei.Size = New System.Drawing.Size(120, 20)
+        Me.txtEUstfrei.TabIndex = 43
+        '
+        'Label6
+        '
+        Me.Label6.AutoSize = True
+        Me.Label6.Location = New System.Drawing.Point(659, 15)
+        Me.Label6.Name = "Label6"
+        Me.Label6.Size = New System.Drawing.Size(70, 13)
+        Me.Label6.TabIndex = 42
+        Me.Label6.Text = "EU Steuerfrei"
+        '
+        'txtEUstpfl
+        '
+        Me.txtEUstpfl._DateTimeOnly = False
+        Me.txtEUstpfl._numbersOnly = True
+        Me.txtEUstpfl._numbersOnlyKommastellen = ""
+        Me.txtEUstpfl._numbersOnlyTrennzeichen = False
+        Me.txtEUstpfl._Prozent = False
+        Me.txtEUstpfl._ShortDateNew = False
+        Me.txtEUstpfl._ShortDateOnly = False
+        Me.txtEUstpfl._TimeOnly = False
+        Me.txtEUstpfl._TimeOnly_Seconds = False
+        Me.txtEUstpfl._value = ""
+        Me.txtEUstpfl._Waehrung = False
+        Me.txtEUstpfl._WaehrungZeichen = False
+        Me.txtEUstpfl.ForeColor = System.Drawing.Color.Black
+        Me.txtEUstpfl.Location = New System.Drawing.Point(517, 38)
+        Me.txtEUstpfl.MaxLineLength = 4
+        Me.txtEUstpfl.MaxLines_Warning = ""
+        Me.txtEUstpfl.MaxLines_Warning_Label = Nothing
+        Me.txtEUstpfl.Name = "txtEUstpfl"
+        Me.txtEUstpfl.Size = New System.Drawing.Size(120, 20)
+        Me.txtEUstpfl.TabIndex = 41
+        '
+        'Label5
+        '
+        Me.Label5.AutoSize = True
+        Me.Label5.Location = New System.Drawing.Point(514, 15)
+        Me.Label5.Name = "Label5"
+        Me.Label5.Size = New System.Drawing.Size(92, 13)
+        Me.Label5.TabIndex = 40
+        Me.Label5.Text = "EU Steuerpflichtig"
+        '
+        'txtInlandstfrei
+        '
+        Me.txtInlandstfrei._DateTimeOnly = False
+        Me.txtInlandstfrei._numbersOnly = True
+        Me.txtInlandstfrei._numbersOnlyKommastellen = ""
+        Me.txtInlandstfrei._numbersOnlyTrennzeichen = False
+        Me.txtInlandstfrei._Prozent = False
+        Me.txtInlandstfrei._ShortDateNew = False
+        Me.txtInlandstfrei._ShortDateOnly = False
+        Me.txtInlandstfrei._TimeOnly = False
+        Me.txtInlandstfrei._TimeOnly_Seconds = False
+        Me.txtInlandstfrei._value = ""
+        Me.txtInlandstfrei._Waehrung = False
+        Me.txtInlandstfrei._WaehrungZeichen = False
+        Me.txtInlandstfrei.ForeColor = System.Drawing.Color.Black
+        Me.txtInlandstfrei.Location = New System.Drawing.Point(374, 38)
+        Me.txtInlandstfrei.MaxLineLength = 4
+        Me.txtInlandstfrei.MaxLines_Warning = ""
+        Me.txtInlandstfrei.MaxLines_Warning_Label = Nothing
+        Me.txtInlandstfrei.Name = "txtInlandstfrei"
+        Me.txtInlandstfrei.Size = New System.Drawing.Size(120, 20)
+        Me.txtInlandstfrei.TabIndex = 39
+        '
+        'Label1
+        '
+        Me.Label1.AutoSize = True
+        Me.Label1.Location = New System.Drawing.Point(371, 15)
+        Me.Label1.Name = "Label1"
+        Me.Label1.Size = New System.Drawing.Size(84, 13)
+        Me.Label1.TabIndex = 38
+        Me.Label1.Text = "Inland Steuerfrei"
+        '
+        'txtInlandstpfl
+        '
+        Me.txtInlandstpfl._DateTimeOnly = False
+        Me.txtInlandstpfl._numbersOnly = True
+        Me.txtInlandstpfl._numbersOnlyKommastellen = ""
+        Me.txtInlandstpfl._numbersOnlyTrennzeichen = False
+        Me.txtInlandstpfl._Prozent = False
+        Me.txtInlandstpfl._ShortDateNew = False
+        Me.txtInlandstpfl._ShortDateOnly = False
+        Me.txtInlandstpfl._TimeOnly = False
+        Me.txtInlandstpfl._TimeOnly_Seconds = False
+        Me.txtInlandstpfl._value = ""
+        Me.txtInlandstpfl._Waehrung = False
+        Me.txtInlandstpfl._WaehrungZeichen = False
+        Me.txtInlandstpfl.ForeColor = System.Drawing.Color.Black
+        Me.txtInlandstpfl.Location = New System.Drawing.Point(225, 38)
+        Me.txtInlandstpfl.MaxLineLength = 4
+        Me.txtInlandstpfl.MaxLines_Warning = ""
+        Me.txtInlandstpfl.MaxLines_Warning_Label = Nothing
+        Me.txtInlandstpfl.Name = "txtInlandstpfl"
+        Me.txtInlandstpfl.Size = New System.Drawing.Size(120, 20)
+        Me.txtInlandstpfl.TabIndex = 37
+        '
+        'Label9
+        '
+        Me.Label9.AutoSize = True
+        Me.Label9.Location = New System.Drawing.Point(222, 15)
+        Me.Label9.Name = "Label9"
+        Me.Label9.Size = New System.Drawing.Size(106, 13)
+        Me.Label9.TabIndex = 36
+        Me.Label9.Text = "Inland Steuerpflichtig"
+        '
+        'lblWordcount
+        '
+        Me.lblWordcount.AutoSize = True
+        Me.lblWordcount.Location = New System.Drawing.Point(1199, 398)
+        Me.lblWordcount.Name = "lblWordcount"
+        Me.lblWordcount.Size = New System.Drawing.Size(0, 13)
+        Me.lblWordcount.TabIndex = 32
+        '
+        'cboLeistung
+        '
+        Me.cboLeistung._allowedValuesFreiText = Nothing
+        Me.cboLeistung._allowFreiText = False
+        Me.cboLeistung._value = ""
+        Me.cboLeistung.DropDownWidth = 120
+        Me.cboLeistung.FormattingEnabled = True
+        Me.cboLeistung.Location = New System.Drawing.Point(28, 38)
+        Me.cboLeistung.Name = "cboLeistung"
+        Me.cboLeistung.Size = New System.Drawing.Size(159, 21)
+        Me.cboLeistung.TabIndex = 24
+        '
+        'Label2
+        '
+        Me.Label2.AutoSize = True
+        Me.Label2.Location = New System.Drawing.Point(25, 16)
+        Me.Label2.Name = "Label2"
+        Me.Label2.Size = New System.Drawing.Size(47, 13)
+        Me.Label2.TabIndex = 23
+        Me.Label2.Text = "Leistung"
+        '
+        'btnSave
+        '
+        Me.btnSave.Location = New System.Drawing.Point(1202, 44)
+        Me.btnSave.Name = "btnSave"
+        Me.btnSave.Size = New System.Drawing.Size(75, 23)
+        Me.btnSave.TabIndex = 10
+        Me.btnSave.Text = "Speichern"
+        Me.btnSave.UseVisualStyleBackColor = True
+        '
+        'btnAdd
+        '
+        Me.btnAdd.BackgroundImage = Global.SDL.My.Resources.Resources.plus
+        Me.btnAdd.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnAdd.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnAdd.Location = New System.Drawing.Point(1237, 622)
+        Me.btnAdd.Name = "btnAdd"
+        Me.btnAdd.Size = New System.Drawing.Size(24, 20)
+        Me.btnAdd.TabIndex = 103
+        Me.btnAdd.UseVisualStyleBackColor = True
+        '
+        'btnDelete
+        '
+        Me.btnDelete.BackgroundImage = Global.SDL.My.Resources.Resources.del
+        Me.btnDelete.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
+        Me.btnDelete.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.btnDelete.Location = New System.Drawing.Point(1260, 622)
+        Me.btnDelete.Name = "btnDelete"
+        Me.btnDelete.Size = New System.Drawing.Size(24, 20)
+        Me.btnDelete.TabIndex = 102
+        Me.btnDelete.UseVisualStyleBackColor = True
+        '
+        'pnlTop
+        '
+        Me.pnlTop.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.pnlTop.Controls.Add(Me.cbxLeistungSelected)
+        Me.pnlTop.Controls.Add(Me.Label8)
+        Me.pnlTop.Controls.Add(Me.txtSuche)
+        Me.pnlTop.Controls.Add(Me.Label18)
+        Me.pnlTop.Controls.Add(Me.lblWarning)
+        Me.pnlTop.Controls.Add(Me.Label4)
+        Me.pnlTop.Controls.Add(Me.Label3)
+        Me.pnlTop.Controls.Add(Me.cbxFirma)
+        Me.pnlTop.Dock = System.Windows.Forms.DockStyle.Top
+        Me.pnlTop.Location = New System.Drawing.Point(0, 0)
+        Me.pnlTop.Name = "pnlTop"
+        Me.pnlTop.Size = New System.Drawing.Size(1295, 48)
+        Me.pnlTop.TabIndex = 100
+        '
+        'cbxLeistungSelected
+        '
+        Me.cbxLeistungSelected._allowedValuesFreiText = Nothing
+        Me.cbxLeistungSelected._allowFreiText = False
+        Me.cbxLeistungSelected._value = ""
+        Me.cbxLeistungSelected.DropDownWidth = 120
+        Me.cbxLeistungSelected.FormattingEnabled = True
+        Me.cbxLeistungSelected.Location = New System.Drawing.Point(994, 18)
+        Me.cbxLeistungSelected.Name = "cbxLeistungSelected"
+        Me.cbxLeistungSelected.Size = New System.Drawing.Size(127, 21)
+        Me.cbxLeistungSelected.TabIndex = 37
+        '
+        'Label8
+        '
+        Me.Label8.AutoSize = True
+        Me.Label8.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label8.ForeColor = System.Drawing.Color.White
+        Me.Label8.Location = New System.Drawing.Point(991, 2)
+        Me.Label8.Name = "Label8"
+        Me.Label8.Size = New System.Drawing.Size(55, 13)
+        Me.Label8.TabIndex = 36
+        Me.Label8.Text = "Leistung"
+        '
+        'txtSuche
+        '
+        Me.txtSuche._DateTimeOnly = False
+        Me.txtSuche._numbersOnly = False
+        Me.txtSuche._numbersOnlyKommastellen = ""
+        Me.txtSuche._numbersOnlyTrennzeichen = True
+        Me.txtSuche._Prozent = False
+        Me.txtSuche._ShortDateNew = False
+        Me.txtSuche._ShortDateOnly = False
+        Me.txtSuche._TimeOnly = False
+        Me.txtSuche._TimeOnly_Seconds = False
+        Me.txtSuche._value = Nothing
+        Me.txtSuche._Waehrung = False
+        Me.txtSuche._WaehrungZeichen = False
+        Me.txtSuche.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.txtSuche.ForeColor = System.Drawing.Color.Black
+        Me.txtSuche.Location = New System.Drawing.Point(663, 19)
+        Me.txtSuche.MaxLineLength = -1
+        Me.txtSuche.MaxLines_Warning = ""
+        Me.txtSuche.MaxLines_Warning_Label = Nothing
+        Me.txtSuche.Name = "txtSuche"
+        Me.txtSuche.Size = New System.Drawing.Size(314, 20)
+        Me.txtSuche.TabIndex = 34
+        '
+        'Label18
+        '
+        Me.Label18.AutoSize = True
+        Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label18.ForeColor = System.Drawing.Color.White
+        Me.Label18.Location = New System.Drawing.Point(660, 4)
+        Me.Label18.Name = "Label18"
+        Me.Label18.Size = New System.Drawing.Size(43, 13)
+        Me.Label18.TabIndex = 33
+        Me.Label18.Text = "Suche"
+        '
+        'lblWarning
+        '
+        Me.lblWarning.AutoSize = True
+        Me.lblWarning.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.lblWarning.ForeColor = System.Drawing.Color.Red
+        Me.lblWarning.Location = New System.Drawing.Point(166, 13)
+        Me.lblWarning.Name = "lblWarning"
+        Me.lblWarning.Size = New System.Drawing.Size(0, 13)
+        Me.lblWarning.TabIndex = 14
+        '
+        'Label4
+        '
+        Me.Label4.AutoSize = True
+        Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 16.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label4.ForeColor = System.Drawing.Color.White
+        Me.Label4.Location = New System.Drawing.Point(10, 13)
+        Me.Label4.Name = "Label4"
+        Me.Label4.Size = New System.Drawing.Size(198, 26)
+        Me.Label4.TabIndex = 0
+        Me.Label4.Text = "FIBU Sachkonten"
+        '
+        'Label3
+        '
+        Me.Label3.AutoSize = True
+        Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label3.ForeColor = System.Drawing.Color.White
+        Me.Label3.Location = New System.Drawing.Point(1152, 3)
+        Me.Label3.Name = "Label3"
+        Me.Label3.Size = New System.Drawing.Size(37, 13)
+        Me.Label3.TabIndex = 5
+        Me.Label3.Text = "Firma"
+        '
+        'cbxFirma
+        '
+        Me.cbxFirma._allowedValuesFreiText = Nothing
+        Me.cbxFirma._allowFreiText = False
+        Me.cbxFirma._value = ""
+        Me.cbxFirma.DropDownWidth = 150
+        Me.cbxFirma.Enabled = False
+        Me.cbxFirma.FormattingEnabled = True
+        Me.cbxFirma.Location = New System.Drawing.Point(1155, 19)
+        Me.cbxFirma.Name = "cbxFirma"
+        Me.cbxFirma.Size = New System.Drawing.Size(128, 21)
+        Me.cbxFirma.TabIndex = 13
+        '
+        'dgvSachkonten
+        '
+        Me.dgvSachkonten.AKTUALISIERUNGS_INTERVALL = -1
+        Me.dgvSachkonten.AllowUserToAddRows = False
+        Me.dgvSachkonten.AllowUserToDeleteRows = False
+        Me.dgvSachkonten.BackgroundColor = System.Drawing.Color.White
+        Me.dgvSachkonten.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+        Me.dgvSachkonten.Location = New System.Drawing.Point(0, 54)
+        Me.dgvSachkonten.Name = "dgvSachkonten"
+        Me.dgvSachkonten.Size = New System.Drawing.Size(1283, 588)
+        Me.dgvSachkonten.TabIndex = 104
+        '
+        'frmLeistundenFIBUKonten
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(1295, 727)
+        Me.Controls.Add(Me.mainPanel)
+        Me.Controls.Add(Me.btnAdd)
+        Me.Controls.Add(Me.btnDelete)
+        Me.Controls.Add(Me.pnlTop)
+        Me.Controls.Add(Me.dgvSachkonten)
+        Me.Name = "frmLeistundenFIBUKonten"
+        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
+        Me.Text = "FIBU Konten"
+        Me.mainPanel.ResumeLayout(False)
+        Me.mainPanel.PerformLayout()
+        Me.pnlTop.ResumeLayout(False)
+        Me.pnlTop.PerformLayout()
+        CType(Me.dgvSachkonten, System.ComponentModel.ISupportInitialize).EndInit()
+        Me.ResumeLayout(False)
+
+    End Sub
+    Friend WithEvents mainPanel As Panel
+    Friend WithEvents btnSave As Button
+    Friend WithEvents btnAdd As Button
+    Friend WithEvents btnDelete As Button
+    Friend WithEvents pnlTop As Panel
+    Friend WithEvents lblWarning As Label
+    Friend WithEvents Label4 As Label
+    Friend WithEvents Label3 As Label
+    Friend WithEvents cbxFirma As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents dgvSachkonten As VERAG_PROG_ALLGEMEIN.MyDatagridview
+    Friend WithEvents cboLeistung As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label2 As Label
+    Friend WithEvents txtSuche As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label18 As Label
+    Friend WithEvents lblWordcount As Label
+    Friend WithEvents Label9 As Label
+    Friend WithEvents txtInlandstpfl As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents txtDrittland As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label7 As Label
+    Friend WithEvents txtEUstfrei As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label6 As Label
+    Friend WithEvents txtEUstpfl As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label5 As Label
+    Friend WithEvents txtInlandstfrei As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents Label1 As Label
+    Friend WithEvents cbxLeistungSelected As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents Label8 As Label
+End Class

SDL/buchhaltung/frmLeistundenFIBUKonten.resx

@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" use="required" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+              <xsd:attribute ref="xml:space" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

SDL/buchhaltung/frmLeistundenFIBUKonten.vb

@@ -0,0 +1,280 @@
+Imports System.Windows.Controls
+Imports com.sun.org.apache.xalan.internal
+Imports GrapeCity.ActiveReports.SectionReportModel
+Imports Microsoft.Office.Interop
+Imports VERAG_PROG_ALLGEMEIN
+
+Public Class frmLeistundenFIBUKonten
+
+    Dim lfibu As New cLeistungFIBU
+    Dim editall As Boolean = False
+
+
+    Sub New(permission As Boolean)
+        InitializeComponent()
+        editall = permission
+    End Sub
+
+    Private Sub frmLeistundenFIBUKonten_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+
+        cbxLeistungSelected.Items.Clear()
+        cbxLeistungSelected.fillWithSQL("SELECT [LeistungsNr] ,[LeistungsBez] FROM [Leistungen] ", True, "FMZOLL", True)
+
+        cboLeistung.Items.AddRange(cbxLeistungSelected.Items.Cast(Of VERAG_PROG_ALLGEMEIN.MyListItem).ToArray())
+
+        Dim listofFirmen = cFirmen.LOAD_LIST
+
+        cbxFirma.Items.Clear()
+        cbxFirma.fillWithSQL("SELECT Firma_ID, Firma_Bez FROM [tblFirma]", True, "FMZOLL", True)
+
+        cbxFirma.changeItem(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
+
+        cbxFirma.Enabled = editall
+        btnDelete.Enabled = editall
+
+        initDGVSachkonten(cbxFirma._value)
+
+    End Sub
+
+
+    Private Sub initDGVSachkonten(Optional firmaID As Integer = 0, Optional searchparam As String = "", Optional leistungsNr As Integer = 0)
+
+        lblWarning.Text = ""
+
+        Dim SQLString As String = "SELECT l.LeistungsNr, l.LeistungsBez, fibu.SachkontoInlandSteuerpflichtig, fibu.SachkontoInlandSteuerfrei, fibu.SachkontoEUSteuerpflichtig, fibu.SachkontoEUSteuerfrei, fibu.Sachkonto3Land, fibu.Firma_ID, fibu.letzteAenderungUser, fibu.letzteAenderung FROM [VERAG].[dbo].[LeistungenBUKonten] as FIBU inner join Leistungen as l on l.LeistungsNr = FIBU.LeistungsNr where 1 = 1"
+        Dim SQLWHere = ""
+        If firmaID > 0 Then
+            SQLWHere &= " AND FIBU.Firma_ID = " & firmaID & ""
+        End If
+
+        If searchparam <> "" Then
+            SQLWHere &= " AND (FIBU.SachkontoInlandSteuerpflichtig like '%" & searchparam & "%' OR FIBU.SachkontoInlandSteuerfrei like '%" & searchparam & "%' OR FIBU.SachkontoEUSteuerpflichtig like '%" & searchparam & "%' OR FIBU.SachkontoEUSteuerfrei like '%" & searchparam & "%' OR FIBU.Sachkonto3Land like '%" & searchparam & "%')"
+        End If
+
+        If leistungsNr > 0 Then
+            SQLWHere &= " AND (FIBU.LeistungsNr = " & leistungsNr & ")"
+        End If
+
+
+        dgvSachkonten.SET_SQL(SQLString & SQLWHere, "FMZOLL", ,)
+        dgvSachkonten.LOAD()
+
+
+        If dgvSachkonten.Columns.Count < 1 Then Exit Sub
+
+        With dgvSachkonten
+
+            .MultiSelect = False
+            .RowHeadersVisible = False
+            .ReadOnly = True
+            .SelectionMode = DataGridViewSelectionMode.FullRowSelect
+            .Columns("LeistungsNr").HeaderText = "LeistungsNr"
+            .Columns("LeistungsBez").HeaderText = "Bezeichnung"
+            .Columns("LeistungsBez").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+            .Columns("SachkontoInlandSteuerpflichtig").Width = 100
+            .Columns("SachkontoInlandSteuerpflichtig").HeaderText = "Inland Stpfl."
+
+            .Columns("SachkontoInlandSteuerfrei").Width = 100
+            .Columns("SachkontoInlandSteuerfrei").HeaderText = "Inland Stfrei."
+
+            .Columns("SachkontoEUSteuerpflichtig").Width = 100
+            .Columns("SachkontoEUSteuerpflichtig").HeaderText = "EU Stpfl."
+
+            .Columns("SachkontoEUSteuerfrei").Width = 100
+            .Columns("SachkontoEUSteuerfrei").HeaderText = "EU Stfrei."
+
+            .Columns("Sachkonto3Land").Width = 100
+            .Columns("Sachkonto3Land").HeaderText = "Drittland"
+
+            .Columns("Firma_ID").HeaderText = "Firma"
+            .Columns("letzteAenderungUser").HeaderText = "letzte Änderung durch"
+            .Columns("letzteAenderung").HeaderText = "letzte Änderung"
+
+            If .RowCount = 0 Then Me.Cursor = Cursors.Default : Exit Sub
+
+        End With
+
+
+        For Each row As DataGridViewRow In dgvSachkonten.Rows
+
+
+            If row.Cells("Firma_ID").Value IsNot DBNull.Value AndAlso IsNumeric(row.Cells("Firma_ID").Value) Then
+                If CInt(row.Cells("Firma_ID").Value) > 0 Then
+
+                    Dim tmpFirma = New VERAG_PROG_ALLGEMEIN.cFirmen(row.Cells("Firma_ID").Value)
+                End If
+            End If
+
+        Next
+
+
+
+    End Sub
+
+    Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
+
+        If checkIfFirmaIsFilled(True) = False Then Exit Sub
+
+
+
+        If Not mainPanel.Enabled Then mainPanel.Enabled = True
+
+        For Each contr As Windows.Forms.Control In mainPanel.Controls
+            If (contr.GetType.FullName = "System.Windows.Forms.TextBox" Or contr.GetType.FullName = "VERAG_PROG_ALLGEMEIN.MyTextBox") Then contr.Text = ""
+        Next
+        cboLeistung.changeItem("")
+
+    End Sub
+
+    Private Sub btnDelete_Click(sender As Object, e As EventArgs) Handles btnDelete.Click
+        If dgvSachkonten.SelectedRows.Count > 0 Then
+
+            Dim lfibu As New cLeistungFIBU(dgvSachkonten.SelectedRows(0).Cells("LeistungsNr").Value, dgvSachkonten.SelectedRows(0).Cells("Firma_ID").Value)
+
+            If vbYes = MsgBox("Möchten Sie diesen Sachkontenzuweisung für LeistungsNr " & lfibu.LeistungsNr & " für Firma " & lfibu.Firma_ID & " wirklich löschen?", vbYesNo) Then
+                lfibu.DELETE()
+                initDGVSachkonten(cbxFirma._value)
+            End If
+
+        End If
+
+    End Sub
+
+    Private Function checkNrIsValid(LeistungsNrID As Integer) As Boolean
+
+        If dgvSachkonten.Rows.Count = 0 Then Return True
+        If checkIfFirmaIsFilled(False) = False Then Return False
+
+
+        For Each row As DataGridViewRow In dgvSachkonten.Rows
+            If Not IsDBNull(row.Cells("LeistungsNr").Value) AndAlso Not IsDBNull(row.Cells("Firma_ID").Value) Then
+                If row.Cells("LeistungsNr").Value = LeistungsNrID AndAlso row.Cells("Firma_ID").Value = cbxFirma._value Then
+                    Return False
+                End If
+            End If
+
+        Next
+
+        Return True
+
+    End Function
+
+
+    Private Sub dgvSachkonten_SelectionChanged(sender As Object, e As EventArgs) Handles dgvSachkonten.SelectionChanged
+        Try
+
+            If dgvSachkonten.SelectedRows.Count < 1 Then
+                mainPanel.Enabled = False
+                Exit Sub
+
+            Else
+                mainPanel.Enabled = True
+            End If
+
+            lfibu = New cLeistungFIBU(dgvSachkonten.SelectedRows(0).Cells("LeistungsNr").Value, dgvSachkonten.SelectedRows(0).Cells("Firma_ID").Value)
+
+            txtInlandstpfl.Text = lfibu.SachkontoInlandSteuerpflichtig
+            txtInlandstfrei.Text = lfibu.SachkontoInlandSteuerfrei
+            txtEUstpfl.Text = lfibu.SachkontoEUSteuerpflichtig
+            txtEUstfrei.Text = lfibu.SachkontoEUSteuerfrei
+            txtDrittland.Text = lfibu.Sachkonto3Land
+            cboLeistung.changeItem(lfibu.LeistungsNr)
+
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+        Try
+            checkIfFirmaIsFilled(False)
+
+            Dim txtKS As New cLeistungFIBU()
+
+            If checkFields() = False Then Exit Sub
+
+            txtKS.LeistungsNr = cboLeistung._value
+            txtKS.SachkontoInlandSteuerpflichtig = txtInlandstpfl.Text
+            txtKS.SachkontoInlandSteuerfrei = txtInlandstfrei.Text
+            txtKS.SachkontoEUSteuerpflichtig = txtEUstpfl.Text
+            txtKS.SachkontoEUSteuerfrei = txtEUstfrei.Text
+            txtKS.Sachkonto3Land = txtDrittland.Text
+            txtKS.Firma_ID = cbxFirma._value
+            txtKS.letzteAenderung = DateTime.Now
+            txtKS.letzteAenderungUser = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+
+            txtKS.SAVE()
+
+            dgvSachkonten.GetOrder()
+            initDGVSachkonten(cbxFirma._value)
+            dgvSachkonten.SetOrder()
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+    End Sub
+
+    Private Sub cbxFirma_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxFirma.SelectedValueChanged
+        Try
+
+            dgvSachkonten.GetOrder()
+            initDGVSachkonten(IIf(cbxFirma._value <> "", cbxFirma._value, -1), txtSuche.Text)
+            dgvSachkonten.SetOrder()
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+
+    End Sub
+
+    Private Function checkIfFirmaIsFilled(initialSave As Boolean, Optional setWarning As Boolean = True)
+
+        If cbxFirma._value = "" Then
+            If ((dgvSachkonten.SelectedRows(0).Cells("Firma_ID").Value Is DBNull.Value Or dgvSachkonten.SelectedRows(0).Cells("Firma_ID").Value < 0) Or initialSave = True) Then 'And initialSave = False ???
+
+                If setWarning Then
+                    lblWarning.Text = "Bitte Firma auswählen!"
+                Else
+                    lblWarning.Text = ""
+                End If
+
+                Return False
+            End If
+            lblWarning.Text = ""
+            Return True
+
+        End If
+
+        Return True
+    End Function
+
+    Private Function checkFields() As Boolean
+
+        If cboLeistung._value <> "" AndAlso checkNrIsValid(cboLeistung._value) Then
+
+            lblWarning.Text = ""
+            Return True
+        Else
+            lblWarning.Text = "LeistungsNr setzen!"
+            Return False
+        End If
+
+
+
+    End Function
+
+    Private Sub txtSuche_KeyDown(sender As Object, e As KeyEventArgs) Handles txtSuche.KeyDown
+        If e.KeyCode = Keys.Enter Then
+
+            initDGVSachkonten(IIf(cbxFirma._value <> "", cbxFirma._value, -1), txtSuche.Text)
+            e.Handled = True
+
+        End If
+    End Sub
+
+End Class

SDL/cLeistungFIBU.vb

@@ -0,0 +1,142 @@
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+Public Class cLeistungFIBU
+
+    Property Firma_ID As Integer
+    Property LeistungsNr As Integer
+    Property Gl_account As String
+    Property SachkontoInlandSteuerpflichtig As Object
+    Property SachkontoInlandSteuerfrei As Object
+    Property SachkontoEUSteuerpflichtig As Object
+    Property SachkontoEUSteuerfrei As Object
+    Property Sachkonto3Land As Object
+    Property letzteAenderungUser As String
+    Property letzteAenderung As DateTime
+
+    Public hasEntry As Boolean = False
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Sub New()
+
+    End Sub
+
+    Sub New(LeistungsNr, Firma_ID)
+        Me.LeistungsNr = LeistungsNr
+        Me.Firma_ID = Firma_ID
+        LOAD()
+    End Sub
+
+
+
+
+    Private Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Firma_ID", Firma_ID,))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("LeistungsNr", LeistungsNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Gl_account", Gl_account))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerpflichtig", SachkontoInlandSteuerpflichtig))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoInlandSteuerfrei", SachkontoInlandSteuerfrei))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerpflichtig", SachkontoEUSteuerpflichtig))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("SachkontoEUSteuerfrei", SachkontoEUSteuerfrei))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("Sachkonto3Land", Sachkonto3Land))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("letzteAenderung", letzteAenderung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("letzteAenderungUser", letzteAenderungUser))
+
+        Return list
+    End Function
+
+
+    Public Function SAVE(Optional errHinweis = "") As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM LeistungenBUKonten WITH(updlock,serializable) WHERE LeistungsNr=@LeistungsNr AND Firma_ID=@Firma_ID) " &
+                           " BEGIN " & getUpdateCmd() & " END " &
+                           " Else " &
+                           " BEGIN " & getInsertCmd() & " END " &
+                           " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL
+                Using cmd As New SqlCommand("SELECT * FROM LeistungenBUKonten WHERE LeistungsNr=@LeistungsNr AND Firma_ID=@Firma_ID ", conn)
+                    cmd.Parameters.AddWithValue("@LeistungsNr", LeistungsNr)
+                    cmd.Parameters.AddWithValue("@Firma_ID", Firma_ID)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+                            hasEntry = True
+                        Next
+
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+    End Sub
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [LeistungenBUKonten] SET " & str & " WHERE LeistungsNr=@LeistungsNr AND Firma_ID=@Firma_ID ")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO LeistungenBUKonten  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+
+    Public Function DELETE() As Boolean
+        Dim sqlstr = " DELETE FROM [LeistungenBUKonten] WITH(updlock,serializable) WHERE LeistungsNr=" & Me.LeistungsNr & " AND Firma_ID=" & Me.Firma_ID
+        Return (New VERAG_PROG_ALLGEMEIN.SQL).doSQL(sqlstr, "FMZOLL")
+    End Function
+
+
+
+End Class
+
+
+

SDL/frmdynMailvorlage.Designer.vb

@@ -1,5 +1,5 @@
 <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
-Partial Class frmdynMailvorlage
+Partial Class frmdynMailvorlagen
     Inherits System.Windows.Forms.Form
 
     'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.

SDL/frmdynMailvorlage.vb

@@ -3,7 +3,7 @@ Imports GrapeCity.ActiveReports.SectionReportModel
 Imports Microsoft.Office.Interop
 Imports VERAG_PROG_ALLGEMEIN
 
-Public Class frmdynMailvorlage
+Public Class frmdynMailvorlagen
 
     Dim txtkonserve As New cTextkonserve
     Dim editall As Boolean = False

SDL/kunden/frmKundenblatt.Designer.vb

@@ -22,6 +22,7 @@ Partial Class frmKundenblatt
     'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
     <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
+        Me.components = New System.ComponentModel.Container()
         Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
         Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
@@ -162,21 +163,21 @@ Partial Class frmKundenblatt
         Me.scanUSTVVollmachten = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScanList()
         Me.tbUSTVAntrage = New System.Windows.Forms.TabPage()
         Me.UsrCntlUSTV = New SDL.usrCntlUSTV()
-        Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip()
+        Me.cntxtExcel = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem6 = New System.Windows.Forms.ToolStripMenuItem()
         Me.btnAbfVerb = New System.Windows.Forms.Button()
         Me.lblAbfVerb = New System.Windows.Forms.Label()
-        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip()
-        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
+        Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
-        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip()
+        Me.ContextMenuStrip3 = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
         Me.mne = New System.Windows.Forms.MenuStrip()
         Me.AllgemeinToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
-        Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip()
+        Me.cntxtCntxtMDM = New System.Windows.Forms.ContextMenuStrip(Me.components)
         Me.ToolStripMenuItem8 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
         Me.ToolStripMenuItem7 = New System.Windows.Forms.ToolStripMenuItem()
@@ -300,7 +301,7 @@ Partial Class frmKundenblatt
         Me.tbcntrMain.Margin = New System.Windows.Forms.Padding(0)
         Me.tbcntrMain.Name = "tbcntrMain"
         Me.tbcntrMain.SelectedIndex = 0
-        Me.tbcntrMain.Size = New System.Drawing.Size(1638, 807)
+        Me.tbcntrMain.Size = New System.Drawing.Size(1638, 824)
         Me.tbcntrMain.TabIndex = 3
         '
         'tbAllgemein
@@ -333,7 +334,7 @@ Partial Class frmKundenblatt
         Me.tbAllgemein.Margin = New System.Windows.Forms.Padding(0)
         Me.tbAllgemein.Name = "tbAllgemein"
         Me.tbAllgemein.Padding = New System.Windows.Forms.Padding(3)
-        Me.tbAllgemein.Size = New System.Drawing.Size(1630, 778)
+        Me.tbAllgemein.Size = New System.Drawing.Size(1630, 795)
         Me.tbAllgemein.TabIndex = 0
         Me.tbAllgemein.Text = "Allgemein"
         '
@@ -668,7 +669,7 @@ Partial Class frmKundenblatt
         DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
         DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
         Me.dgvSperrliste.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
-        Me.dgvSperrliste.Size = New System.Drawing.Size(835, 668)
+        Me.dgvSperrliste.Size = New System.Drawing.Size(835, 685)
         Me.dgvSperrliste.TabIndex = 23
         '
         'PictureBox2
@@ -1813,7 +1814,7 @@ Partial Class frmKundenblatt
         Me.tbUSTV.Controls.Add(Me.tbcntrUSTV)
         Me.tbUSTV.Location = New System.Drawing.Point(4, 25)
         Me.tbUSTV.Name = "tbUSTV"
-        Me.tbUSTV.Size = New System.Drawing.Size(1630, 778)
+        Me.tbUSTV.Size = New System.Drawing.Size(1630, 795)
         Me.tbUSTV.TabIndex = 12
         Me.tbUSTV.Text = "USTV"
         Me.tbUSTV.UseVisualStyleBackColor = True
@@ -1827,7 +1828,7 @@ Partial Class frmKundenblatt
         Me.tbcntrUSTV.Margin = New System.Windows.Forms.Padding(0)
         Me.tbcntrUSTV.Name = "tbcntrUSTV"
         Me.tbcntrUSTV.SelectedIndex = 0
-        Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 778)
+        Me.tbcntrUSTV.Size = New System.Drawing.Size(1630, 795)
         Me.tbcntrUSTV.TabIndex = 1
         '
         'tbUSTVDokumente
@@ -1840,7 +1841,7 @@ Partial Class frmKundenblatt
         Me.tbUSTVDokumente.Controls.Add(Me.scanUSTVVollmachten)
         Me.tbUSTVDokumente.Location = New System.Drawing.Point(4, 22)
         Me.tbUSTVDokumente.Name = "tbUSTVDokumente"
-        Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 752)
+        Me.tbUSTVDokumente.Size = New System.Drawing.Size(1622, 769)
         Me.tbUSTVDokumente.TabIndex = 8
         Me.tbUSTVDokumente.Text = "Dokumente"
         Me.tbUSTVDokumente.UseVisualStyleBackColor = True
@@ -2093,7 +2094,7 @@ Partial Class frmKundenblatt
         '
         Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
         Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
-        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
+        Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
         Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
         Me.cntxtCntxtMDM.Text = "cntxtMDM"
         '
@@ -2233,7 +2234,7 @@ Partial Class frmKundenblatt
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.AutoScroll = True
         Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(1180, 936)
+        Me.ClientSize = New System.Drawing.Size(1180, 953)
         Me.Controls.Add(Me.lblAbfVerb)
         Me.Controls.Add(Me.btnAbfVerb)
         Me.Controls.Add(Me.tbcntrMain)

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -1,6 +1,7 @@
 Imports System.Data.SqlClient
 Imports System.Globalization
 Imports System.IO
+Imports System.ServiceModel.Configuration
 Imports SDL.EORI
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -2649,9 +2650,9 @@ Public Class usrCntlKundenuebersicht
                                                                 Dim eoripruef As New cEORIPruefung(frmList.dgv.SelectedRows(0).Cells("eori_id").Value)
                                                                 Dim msgErgebnis
                                                                 Select Case eoripruef.eori_valid
-                                                                        Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG   -   OK"
-                                                                        Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
-                                                                    End Select
+                                                                    Case 0 : msgErgebnis = "EORI-Nr. GÜLTIG   -   OK"
+                                                                    Case 1 : msgErgebnis = "EORI-Nr. UNGÜLTIG"
+                                                                End Select
 
                                                                 Dim PdfTmp = SDL.FormularManagerNEU.EORI_PRUEFUNG(msgErgebnis, eoripruef.eori_firma, eoripruef.eori_sessionID, KUNDE.EORITIN,, eoripruef.eori_sendungsid)
                                                                 If PdfTmp <> "" Then
@@ -2831,32 +2832,53 @@ Public Class usrCntlKundenuebersicht
 
 
 
-                    If cs.checkDateOfLastRequest(company) < lastChecked Then
-                        Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
-                        If a = vbYes Then
+                    ' If cs.checkDateOfLastRequest(company) < lastChecked Then
+                    Dim dtEvents As New DataTable
 
-                            setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
+                    dtEvents.Columns.Add("eventId", GetType(String))
+                    dtEvents.Columns.Add("companyId", GetType(String))
+                    dtEvents.Columns.Add("portfolioId", GetType(String))
+                    dtEvents.Columns.Add("ruleName", GetType(String))
+                    dtEvents.Columns.Add("localEventCode", GetType(String))
+                    dtEvents.Columns.Add("globalEventCode", GetType(String))
+                    dtEvents.Columns.Add("newValue", GetType(String))
+                    dtEvents.Columns.Add("oldValue", GetType(String))
+                    dtEvents.Columns.Add("eventDate", GetType(DateTime))
+                    dtEvents.Columns.Add("createdDate", GetType(DateTime))
+
+                    cs.getCompanieEvents(company, dtEvents)
+
+                    If dtEvents.Rows.Count > 0 Then
+                        dtEvents.DefaultView.Sort = "eventDate desc"
+                        If dtEvents.Rows(0).Item("eventDate") < lastChecked Then
+
+                            Dim a As MsgBoxResult = MsgBox("Seit der letzen Abfrage (" & lastChecked.ToShortDateString & ") wurde bei Creditsafe keine Änderung gemacht!" & vbNewLine & "Trotzdem Creditreport-Daten aktualisieren?", vbYesNo)
+                            If a = vbYes Then
+
+                                setCreditsafereportEntry(cs, company, True) 'doppelte Abfragen mitprotokollieren
+
+                            End If
+
+                        Else
+                            setCreditsafereportEntry(cs, company)
 
                         End If
-
                     Else
+
                         setCreditsafereportEntry(cs, company)
 
                     End If
-                Else
 
-                    setCreditsafereportEntry(cs, company)
+
+                Else
+                    MsgBox("Authentifizierungsfehler bei Creditsafe-User")
 
                 End If
 
-
-            Else
-                MsgBox("Authentifizierungsfehler bei Creditsafe-User")
-
             End If
-
         End If
 
+
         initCreditsave()
         setKD(kdNr)
         Cursor = Cursors.Default

SDL/kunden/usrcntlKundeBearbeitenFull.vb

@@ -91,6 +91,7 @@ Public Class usrcntlKundeBearbeitenFull
                     Case "AMBAR"
                         cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("3000000-3099999: AMBAR", "3000000-3099990"))
                         cboKundenkreis.changeItem("3000000-3099990")
+                        KUNDE.Zahlungsziel = 0
                     Case "ATILLA"
                         cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  100000-199999: ATILLA", "100000-199999"))
                         cboKundenkreis.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("  900000-999999: Sonstige", "900000-999999"))