edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Verzollungspreise, RMC, etc.

Browse Source
This commit is contained in:
d.breimaier
2026-02-04 08:24:49 +01:00
parent 0a94fc3431
commit bc361f6d7a
8 changed files with 1277 additions and 939 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.Designer.vb generated
View File

@@ -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

1908
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVerzollungspreise.vb
View File

File diff suppressed because it is too large Load Diff

89
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -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)

121
SDL/mdm/usrCntlMDMAuswertungen.Designer.vb generated
View File

@@ -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

34
SDL/mdm/usrCntlMDMAuswertungen.vb
View File

@@ -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

2
VERAG_PROG_ALLGEMEIN/Classes/cAdressen.vb
View File

@@ -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

41
VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb
View File

@@ -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

2
VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb
View File

@@ -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