Verzollungspreise, RMC, etc.

SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb

@@ -1,9 +1,9 @@
-<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
 Partial Class usrcntlVerzollungspreise
     Inherits System.Windows.Forms.UserControl
 
     'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
-    <System.Diagnostics.DebuggerNonUserCode()> _
+    <System.Diagnostics.DebuggerNonUserCode()>
     Protected Overrides Sub Dispose(ByVal disposing As Boolean)
         Try
             If disposing AndAlso components IsNot Nothing Then
@@ -20,7 +20,7 @@ Partial Class usrcntlVerzollungspreise
     '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()> _
+    <System.Diagnostics.DebuggerStepThrough()>
     Private Sub InitializeComponent()
         Me.lblVollmachtDE = New System.Windows.Forms.Label()
         Me.pic = New System.Windows.Forms.PictureBox()
@@ -48,6 +48,7 @@ Partial Class usrcntlVerzollungspreise
         Me.cbxZollpflichtigeAbfertigung = New System.Windows.Forms.CheckBox()
         Me.Label1 = New System.Windows.Forms.Label()
         Me.MyComboBoxSprache = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.cbxAusDB = New System.Windows.Forms.CheckBox()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
         CType(Me.dgvZusatzleistung, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -309,12 +310,23 @@ Partial Class usrcntlVerzollungspreise
         Me.MyComboBoxSprache.Size = New System.Drawing.Size(144, 21)
         Me.MyComboBoxSprache.TabIndex = 39
         '
+        'cbxAusDB
+        '
+        Me.cbxAusDB.AutoSize = True
+        Me.cbxAusDB.Location = New System.Drawing.Point(243, 13)
+        Me.cbxAusDB.Name = "cbxAusDB"
+        Me.cbxAusDB.Size = New System.Drawing.Size(61, 17)
+        Me.cbxAusDB.TabIndex = 40
+        Me.cbxAusDB.Text = "aus DB"
+        Me.cbxAusDB.UseVisualStyleBackColor = True
+        '
         'usrcntlVerzollungspreise
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.BackColor = System.Drawing.Color.WhiteSmoke
         Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
+        Me.Controls.Add(Me.cbxAusDB)
         Me.Controls.Add(Me.MyComboBoxSprache)
         Me.Controls.Add(Me.Label1)
         Me.Controls.Add(Me.cbxZollpflichtigeAbfertigung)
@@ -368,4 +380,5 @@ Partial Class usrcntlVerzollungspreise
     Friend WithEvents cbxZollpflichtigeAbfertigung As CheckBox
     Friend WithEvents Label1 As Label
     Friend WithEvents MyComboBoxSprache As VERAG_PROG_ALLGEMEIN.MyComboBox
+    Friend WithEvents cbxAusDB As CheckBox
 End Class

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -34,7 +34,7 @@ Public Class frmMDMDatenverarbetiung
 
     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
         Select Case LIEFERANT
-            Case "PLOSE" : genSummenbericht_PLOSE() : genSummenbericht_nachLand_PLOSE()
+            Case "PLOSE" : genSummenbericht_PLOSE() : genSummenbericht_nachLand_PLOSE() : genSummenbericht_nachLeistungsNr_PLOSE()
             Case "ASFINAG" : genSummenbericht_ASFINAG()
             Case "UTA" : genSummenbericht_UTA()
             Case "IDS" : genSummenbericht_IDS(17, cbxIDSmitVerag.Checked) : genSummenbericht_IDS(21, cbxIDSmitVerag.Checked)
@@ -376,6 +376,93 @@ Public Class frmMDMDatenverarbetiung
 
 
 
+                                          sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 4, 0)
+                                          sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
+                                          sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 4, 0)
+
+                                      End Sub
+
+
+        AddHandler rpt.ReportFooter1.Format, Sub()
+                                                 rpt.lblSumMenge.Text = sumMenge.ToString("N0")
+                                                 'rpt.lblSumPreis.Text = sumPreis.ToString("N2")
+                                                 rpt.lblSumNetto.Text = sumNetto.ToString("N2")
+                                                 rpt.lblSumMwst.Text = sumMWST.ToString("N2")
+                                                 rpt.lblSumBrutto.Text = sumBrutto.ToString("N2")
+
+                                             End Sub
+
+        print.Viewer.LoadDocument(rpt)
+        print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
+        print.Show()
+    End Sub
+
+    Sub genSummenbericht_nachLeistungsNr_PLOSE()
+        Dim displayFilter = False
+        Dim sqlstr As String = ""
+        sqlstr = "  SELECT 	  count(*) Anzahl	,plp_LeistungsNr
+                    ,sum(plose_Menge) as plose_Menge
+                    ,sum(plose_Preis) as plose_Preis
+                    ,sum(plose_NettobetragWaehrungAbbuchung) as plose_Nettobetrag
+                    ,sum(plose_MWSTBetragWaehrungAbbuchung) as plose_MWSTBetrag
+                    ,sum(plose_BruttobetragWaehrungAbbuchung) as plose_Bruttobetrag 
+                     FROM tblPLOSE_Details 
+                     INNER JOIN [tblPLOSE_Produktbeschreibung] on plose_ProduktCode = plp_ProductCode
+                     WHERE plose_DatumTransaktion BETWEEN '" & dat_Sum_Von.Value & "' and '" & dat_Sum_Bis.Value & "'
+                      AND plose_Fakturiert = 0
+                      AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & ")
+                    group by plp_LeistungsNr
+                    order by plp_LeistungsNr"
+
+
+        Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
+        'DataGridView.DataSource = dt
+
+
+        Dim print As New frmPrintLayout
+        print.Text = "PLOSE"
+
+        Dim rpt As New rptPLOSE_TransaktionenSumary
+
+        rpt.DataSource = dt
+
+
+        'If cbxProdukt.Checked Then
+        '    rpt.GroupHeader2.DataField = "prod_descr"
+        'Else
+        '    rpt.GroupHeader2.Visible = False
+        '    rpt.GroupFooter2.Visible = False
+        'End If
+
+
+
+        Dim sum = 0
+        rpt.lblUeberschrift.Text = "PLOSE Summenbericht nach Land " & dat_Sum_Von.Text & " bis " & dat_Sum_Bis.Text
+        rpt.lblSachbearbeiter.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME
+        'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & "  /  " & PERSONAL.Niederlassung
+
+        'Dim cnt As Integer = 0
+        rpt.lblDat.Text = Now.ToLongDateString
+
+
+        Dim sumPreis As Double = 0
+        Dim sumNetto As Double = 0
+        Dim sumMWST As Double = 0
+        Dim sumBrutto As Double = 0
+        Dim sumMenge As Double = 0
+
+        AddHandler rpt.Detail.Format, Sub()
+                                          '   rpt.lblProduktBeschreibung.Text = isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
+                                          rpt.lblAnzahl.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Anzahl").Value, "")
+                                          rpt.lblProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("plp_LeistungsNr").Value, "")
+                                          rpt.lblMenge.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Währung").Value, "")
+                                          ' rpt.lblPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Preis").Value, 2, "")
+                                          rpt.lblNetto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 2, "")
+                                          rpt.lblMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 2, "")
+                                          rpt.lblBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 2, "")
+
+
+
                                           sumNetto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Nettobetrag").Value, 4, 0)
                                           sumMWST += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetrag").Value, 4, 0)
                                           sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_Bruttobetrag").Value, 4, 0)

SDL/mdm/usrCntlMDMAuswertungen.Designer.vb

@@ -202,6 +202,13 @@ Partial Class usrCntlMDMAuswertungen
         Me.btnContractdaten = New System.Windows.Forms.Button()
         Me.Button15 = New System.Windows.Forms.Button()
         Me.pnl = New System.Windows.Forms.Panel()
+        Me.GroupBox21 = New System.Windows.Forms.GroupBox()
+        Me.txtJahr_rechnungen = New VERAG_PROG_ALLGEMEIN.MyTextBox()
+        Me.PictureBox8 = New System.Windows.Forms.PictureBox()
+        Me.Label70 = New System.Windows.Forms.Label()
+        Me.Label71 = New System.Windows.Forms.Label()
+        Me.Button21 = New System.Windows.Forms.Button()
+        Me.Label72 = New System.Windows.Forms.Label()
         Me.GroupBox1.SuspendLayout()
         Me.GroupBox2.SuspendLayout()
         CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -239,6 +246,8 @@ Partial Class usrCntlMDMAuswertungen
         Me.GroupBox15.SuspendLayout()
         Me.GroupBox14.SuspendLayout()
         Me.pnl.SuspendLayout()
+        Me.GroupBox21.SuspendLayout()
+        CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).BeginInit()
         Me.SuspendLayout()
         '
         'GroupBox1
@@ -333,9 +342,9 @@ Partial Class usrCntlMDMAuswertungen
         Me.Label4.ForeColor = System.Drawing.SystemColors.ControlDarkDark
         Me.Label4.Location = New System.Drawing.Point(7, 11)
         Me.Label4.Name = "Label4"
-        Me.Label4.Size = New System.Drawing.Size(296, 17)
+        Me.Label4.Size = New System.Drawing.Size(293, 17)
         Me.Label4.TabIndex = 9
-        Me.Label4.Text = "Wölfl Rechnungen als CSV bereitstellen"
+        Me.Label4.Text = "RMC Rechnungen als CSV bereitstellen"
         '
         'GroupBox2
         '
@@ -434,11 +443,11 @@ Partial Class usrCntlMDMAuswertungen
         '
         Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button1.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button1.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.Button1.Location = New System.Drawing.Point(6, 19)
         Me.Button1.Name = "Button1"
         Me.Button1.Size = New System.Drawing.Size(121, 49)
         Me.Button1.TabIndex = 4
-        Me.Button1.Text = "CSV erstellen"
         Me.Button1.UseVisualStyleBackColor = True
         '
         'Label8
@@ -1420,6 +1429,8 @@ Partial Class usrCntlMDMAuswertungen
         '
         'TabPage3
         '
+        Me.TabPage3.Controls.Add(Me.Label72)
+        Me.TabPage3.Controls.Add(Me.GroupBox21)
         Me.TabPage3.Controls.Add(Me.Label66)
         Me.TabPage3.Controls.Add(Me.GroupBox20)
         Me.TabPage3.Controls.Add(Me.UsrCntlWoelfl_IM_CSVRg1)
@@ -1439,9 +1450,9 @@ Partial Class usrCntlMDMAuswertungen
         Me.Label66.ForeColor = System.Drawing.SystemColors.ControlDarkDark
         Me.Label66.Location = New System.Drawing.Point(9, 136)
         Me.Label66.Name = "Label66"
-        Me.Label66.Size = New System.Drawing.Size(347, 17)
+        Me.Label66.Size = New System.Drawing.Size(344, 17)
         Me.Label66.TabIndex = 15
-        Me.Label66.Text = "Wölfl Rechnungen Bearbeitungsbetrag Quartal"
+        Me.Label66.Text = "RMC Rechnungen Bearbeitungsbetrag Quartal"
         '
         'GroupBox20
         '
@@ -1581,17 +1592,17 @@ Partial Class usrCntlMDMAuswertungen
         '
         Me.Button20.FlatStyle = System.Windows.Forms.FlatStyle.Flat
         Me.Button20.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button20.Image = Global.SDL.My.Resources.Resources.Excel_logo
         Me.Button20.Location = New System.Drawing.Point(6, 19)
         Me.Button20.Name = "Button20"
         Me.Button20.Size = New System.Drawing.Size(121, 49)
         Me.Button20.TabIndex = 4
-        Me.Button20.Text = "CSV erstellen"
         Me.Button20.UseVisualStyleBackColor = True
         '
         'UsrCntlWoelfl_IM_CSVRg1
         '
         Me.UsrCntlWoelfl_IM_CSVRg1.BackColor = System.Drawing.Color.White
-        Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(12, 292)
+        Me.UsrCntlWoelfl_IM_CSVRg1.Location = New System.Drawing.Point(6, 421)
         Me.UsrCntlWoelfl_IM_CSVRg1.Name = "UsrCntlWoelfl_IM_CSVRg1"
         Me.UsrCntlWoelfl_IM_CSVRg1.Size = New System.Drawing.Size(728, 97)
         Me.UsrCntlWoelfl_IM_CSVRg1.TabIndex = 10
@@ -2254,6 +2265,92 @@ Partial Class usrCntlMDMAuswertungen
         Me.pnl.Size = New System.Drawing.Size(1057, 54)
         Me.pnl.TabIndex = 26
         '
+        'GroupBox21
+        '
+        Me.GroupBox21.Controls.Add(Me.txtJahr_rechnungen)
+        Me.GroupBox21.Controls.Add(Me.PictureBox8)
+        Me.GroupBox21.Controls.Add(Me.Label70)
+        Me.GroupBox21.Controls.Add(Me.Label71)
+        Me.GroupBox21.Controls.Add(Me.Button21)
+        Me.GroupBox21.Location = New System.Drawing.Point(6, 283)
+        Me.GroupBox21.Name = "GroupBox21"
+        Me.GroupBox21.Size = New System.Drawing.Size(697, 111)
+        Me.GroupBox21.TabIndex = 18
+        Me.GroupBox21.TabStop = False
+        '
+        'txtJahr_rechnungen
+        '
+        Me.txtJahr_rechnungen._DateTimeOnly = False
+        Me.txtJahr_rechnungen._numbersOnly = False
+        Me.txtJahr_rechnungen._numbersOnlyKommastellen = ""
+        Me.txtJahr_rechnungen._numbersOnlyTrennzeichen = True
+        Me.txtJahr_rechnungen._Prozent = False
+        Me.txtJahr_rechnungen._ShortDateNew = False
+        Me.txtJahr_rechnungen._ShortDateOnly = False
+        Me.txtJahr_rechnungen._TimeOnly = False
+        Me.txtJahr_rechnungen._TimeOnly_Seconds = False
+        Me.txtJahr_rechnungen._value = ""
+        Me.txtJahr_rechnungen._Waehrung = False
+        Me.txtJahr_rechnungen._WaehrungZeichen = True
+        Me.txtJahr_rechnungen.ForeColor = System.Drawing.Color.Black
+        Me.txtJahr_rechnungen.Location = New System.Drawing.Point(185, 47)
+        Me.txtJahr_rechnungen.MaxLineLength = -1
+        Me.txtJahr_rechnungen.MaxLines_Warning = ""
+        Me.txtJahr_rechnungen.MaxLines_Warning_Label = Nothing
+        Me.txtJahr_rechnungen.Name = "txtJahr_rechnungen"
+        Me.txtJahr_rechnungen.Size = New System.Drawing.Size(53, 20)
+        Me.txtJahr_rechnungen.TabIndex = 13
+        '
+        'PictureBox8
+        '
+        Me.PictureBox8.Image = Global.SDL.My.Resources.Resources.woelfl
+        Me.PictureBox8.Location = New System.Drawing.Point(640, 8)
+        Me.PictureBox8.Name = "PictureBox8"
+        Me.PictureBox8.Size = New System.Drawing.Size(51, 37)
+        Me.PictureBox8.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
+        Me.PictureBox8.TabIndex = 11
+        Me.PictureBox8.TabStop = False
+        '
+        'Label70
+        '
+        Me.Label70.AutoSize = True
+        Me.Label70.Location = New System.Drawing.Point(145, 50)
+        Me.Label70.Name = "Label70"
+        Me.Label70.Size = New System.Drawing.Size(27, 13)
+        Me.Label70.TabIndex = 8
+        Me.Label70.Text = "Jahr"
+        '
+        'Label71
+        '
+        Me.Label71.AutoSize = True
+        Me.Label71.Location = New System.Drawing.Point(145, 19)
+        Me.Label71.Name = "Label71"
+        Me.Label71.Size = New System.Drawing.Size(277, 13)
+        Me.Label71.TabIndex = 5
+        Me.Label71.Text = "RMC-Rechnungen ohne zugehörigen Kunden im System."
+        '
+        'Button21
+        '
+        Me.Button21.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button21.ForeColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
+        Me.Button21.Image = Global.SDL.My.Resources.Resources.Excel_logo
+        Me.Button21.Location = New System.Drawing.Point(6, 19)
+        Me.Button21.Name = "Button21"
+        Me.Button21.Size = New System.Drawing.Size(121, 49)
+        Me.Button21.TabIndex = 4
+        Me.Button21.UseVisualStyleBackColor = True
+        '
+        'Label72
+        '
+        Me.Label72.AutoSize = True
+        Me.Label72.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+        Me.Label72.ForeColor = System.Drawing.SystemColors.ControlDarkDark
+        Me.Label72.Location = New System.Drawing.Point(9, 267)
+        Me.Label72.Name = "Label72"
+        Me.Label72.Size = New System.Drawing.Size(238, 17)
+        Me.Label72.TabIndex = 19
+        Me.Label72.Text = "RMC Rechnungen ohne Kunden"
+        '
         'usrCntlMDMAuswertungen
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2326,6 +2423,9 @@ Partial Class usrCntlMDMAuswertungen
         Me.GroupBox14.PerformLayout()
         Me.pnl.ResumeLayout(False)
         Me.pnl.PerformLayout()
+        Me.GroupBox21.ResumeLayout(False)
+        Me.GroupBox21.PerformLayout()
+        CType(Me.PictureBox8, System.ComponentModel.ISupportInitialize).EndInit()
         Me.ResumeLayout(False)
 
     End Sub
@@ -2508,4 +2608,11 @@ Partial Class usrCntlMDMAuswertungen
     Friend WithEvents txtLeistungsNr As VERAG_PROG_ALLGEMEIN.MyTextBox
     Friend WithEvents cboQuartal As VERAG_PROG_ALLGEMEIN.MyComboBox
     Friend WithEvents cbxNurUnter50EUR As CheckBox
+    Friend WithEvents Label72 As Label
+    Friend WithEvents GroupBox21 As GroupBox
+    Friend WithEvents txtJahr_rechnungen As VERAG_PROG_ALLGEMEIN.MyTextBox
+    Friend WithEvents PictureBox8 As PictureBox
+    Friend WithEvents Label70 As Label
+    Friend WithEvents Label71 As Label
+    Friend WithEvents Button21 As Button
 End Class

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -1542,12 +1542,44 @@ Public Class usrCntlMDMAuswertungen
 
 
         Catch ex As System.Exception
-            MsgBox(ex.Message & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
 
         Me.Cursor = Cursors.Default
 
     End Sub
+
+    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles Button21.Click
+
+        Try
+
+
+            Me.Cursor = Cursors.WaitCursor
+
+            Dim Jahr As Integer = Now().Year
+
+            If txtJahr_rechnungen.Text <> "" AndAlso IsNumeric(txtJahr_rechnungen.Text) AndAlso txtJahr_rechnungen.Text.Length = 4 Then
+                Jahr = txtJahr.Text
+            End If
+
+            Dim rmc As cRMC
+            Dim dt = rmc.getRMCBelegeOhneRechnungen(New VERAG_PROG_ALLGEMEIN.SQL, Jahr)
+
+            If dt.Rows.Count > 0 Then
+                cProgramFunctions.genExcelFromDT_NEW(dt)
+            Else
+                MsgBox("keine Daten für ausgewählten Zeitraum")
+            End If
+
+
+        Catch ex As System.Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+
+        Me.Cursor = Cursors.Default
+
+
+    End Sub
 End Class
 
 

VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb

@@ -314,7 +314,7 @@ Public Class cAdressen
 
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL(False)
-                Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE (UstIdKz + UstIdNr='" & UIDNr & "' or Steuernummer ='" & UIDNr & "') AND (WölflKundenNr = " & woelflKdNr & " OR weitereWölflKundenNr = " & woelflKdNr & ") " & IIf(isWoelfKdNr, " AND AdressenNr LIKE '15%'", ""), conn)
+                Using cmd As New SqlCommand("Select TOP(1) * FROM Adressen WHERE (UstIdKz + UstIdNr='" & UIDNr & "' or Steuernummer ='" & UIDNr & "') AND (WölflKundenNr = " & woelflKdNr & " OR weitereWölflKundenNr = " & woelflKdNr & ") " & IIf(isWoelfKdNr, " AND (AdressenNr LIKE '15%' or AdressenNr LIKE '18%')", ""), conn)
 
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then

VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb

@@ -332,6 +332,45 @@ Public Class cRMC
 
 
 
+    End Function
+
+
+
+    Public Shared Function getRMCBelegeOhneRechnungen(SQL As SQL, jahr As Integer) As DataTable
+
+
+
+
+        Dim SQLstr = "select Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal, sum(Temp.Betrag) as 'verrechneter Bearbeitungsbetrag' from (SELECT
+              USTVA.UStVAn_KuNr as KundenNr,
+              USTVA.UStVAn_Name as Kundenname,
+              [Länderverzeichnis für die Außenhandelsstatistik].LandKz as LandKZ,
+              YEAR(R.Abfertigungsdatum)                    AS Jahr,
+              DATEPART(QUARTER, R.Abfertigungsdatum)       AS Quartal,
+              POS.LeistungsNr,
+              SUM(POS.SteuerfreierBetrag + POS.SteuerpflichtigerBetrag) AS Betrag
+          FROM tblUStVAntrag AS USTVA
+          INNER JOIN Rechnungsausgang AS R ON R.FilialenNr     = USTVA.FilialenNr AND R.AbfertigungsNr = USTVA.AbfertigungsNr
+          INNER JOIN RechnungsausgangPositionen AS POS ON R.RK_ID = POS.RK_ID 
+          INNER JOIN  [Länderverzeichnis für die Außenhandelsstatistik] on UStVAn_LandNr=Landnr 
+          
+          GROUP BY
+              USTVA.UStVAn_KuNr,
+              USTVA.UStVAn_Name,
+              [Länderverzeichnis für die Außenhandelsstatistik].LandKz,
+              YEAR(R.Abfertigungsdatum),
+              DATEPART(QUARTER, R.Abfertigungsdatum),
+              POS.LeistungsNr
+          ) as Temp
+          	WHERE 1 = 1 " & IIf(jahr > 0, " AND temp.Quartal = " & jahr, "") & " 
+          	Group by Temp.KundenNr, Temp.Kundenname,Temp.LandKZ, Temp.Jahr, Temp.Quartal"
+
+        Dim dt = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql(SQLstr, "FMZOLL")
+
+        Return dt
+
+
+
     End Function
 
     Public Class Paramter
@@ -341,7 +380,7 @@ Public Class cRMC
 
         Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
             Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value]  FROM [tblPartnersystem_Paramter] WHERE  Param_system='RMC' AND [Param_name]='" & tcParam_name & "' AND Param_testsystem = " & IIf(TESTSYSTEM, 1, 0), , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
-    End Function
+        End Function
 
         Shared Function getFTPConenction(ByRef API_String As String, ByRef API As DataTable, ByRef program As String) As Boolean
 

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -34,7 +34,7 @@ Public Class frmMitarbeitersuche
     Private Sub frmMitarbeitersuche_Load(sender As Object, e As EventArgs) Handles Me.Load
         pnl.Visible = False
         If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("MITARBEITER_VERZEICHNIS", "SDL") Then
-            MsgBox("Noch nicht verfügbar!")
+            MsgBox("keine Berechtigung für MA-Verzeichnis!")
             Me.Close()
             Exit Sub
         End If