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

IDS_Anhang, VM Formulare, MDM, Asfinag, UTA, MSE, RMC

Browse Source
This commit is contained in:
d.breimaier
2024-11-27 09:04:47 +01:00
parent c25e93e608
commit bd65f12f46
19 changed files with 1876 additions and 132 deletions
Download Patch File Download Diff File Expand all files Collapse all files

47
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.Designer.vb generated
View File

@@ -86,6 +86,8 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxRMC = New System.Windows.Forms.CheckBox() Me.cbxRMC = New System.Windows.Forms.CheckBox()
Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox() Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox()
Me.Label22 = New System.Windows.Forms.Label()
Me.txtAnzahlAusdrucke = New VERAG_PROG_ALLGEMEIN.MyTextBox()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -196,7 +198,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'lblLand 'lblLand
' '
Me.lblLand.AutoSize = True Me.lblLand.AutoSize = True
Me.lblLand.Location = New System.Drawing.Point(3, 64) Me.lblLand.Location = New System.Drawing.Point(3, 85)
Me.lblLand.Name = "lblLand" Me.lblLand.Name = "lblLand"
Me.lblLand.Size = New System.Drawing.Size(49, 13) Me.lblLand.Size = New System.Drawing.Size(49, 13)
Me.lblLand.TabIndex = 5 Me.lblLand.TabIndex = 5
@@ -590,7 +592,7 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.cboLand._allowFreiText = False Me.cboLand._allowFreiText = False
Me.cboLand._value = "" Me.cboLand._value = ""
Me.cboLand.FormattingEnabled = True Me.cboLand.FormattingEnabled = True
Me.cboLand.Location = New System.Drawing.Point(6, 80) Me.cboLand.Location = New System.Drawing.Point(6, 101)
Me.cboLand.Name = "cboLand" Me.cboLand.Name = "cboLand"
Me.cboLand.Size = New System.Drawing.Size(89, 21) Me.cboLand.Size = New System.Drawing.Size(89, 21)
Me.cboLand.TabIndex = 10 Me.cboLand.TabIndex = 10
@@ -982,7 +984,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'CheckedListBox1 'CheckedListBox1
' '
Me.CheckedListBox1.FormattingEnabled = True Me.CheckedListBox1.FormattingEnabled = True
Me.CheckedListBox1.Location = New System.Drawing.Point(981, 3) Me.CheckedListBox1.Location = New System.Drawing.Point(978, 44)
Me.CheckedListBox1.Name = "CheckedListBox1" Me.CheckedListBox1.Name = "CheckedListBox1"
Me.CheckedListBox1.Size = New System.Drawing.Size(126, 124) Me.CheckedListBox1.Size = New System.Drawing.Size(126, 124)
Me.CheckedListBox1.TabIndex = 113 Me.CheckedListBox1.TabIndex = 113
@@ -1037,7 +1039,7 @@ Partial Class usrcntlVollmacht_MDM_EU
'cbxRMC 'cbxRMC
' '
Me.cbxRMC.AutoSize = True Me.cbxRMC.AutoSize = True
Me.cbxRMC.Location = New System.Drawing.Point(5, 46) Me.cbxRMC.Location = New System.Drawing.Point(5, 67)
Me.cbxRMC.Name = "cbxRMC" Me.cbxRMC.Name = "cbxRMC"
Me.cbxRMC.Size = New System.Drawing.Size(50, 17) Me.cbxRMC.Size = New System.Drawing.Size(50, 17)
Me.cbxRMC.TabIndex = 147 Me.cbxRMC.TabIndex = 147
@@ -1055,12 +1057,47 @@ Partial Class usrcntlVollmacht_MDM_EU
Me.cbxPrintDateAndCity.TabIndex = 148 Me.cbxPrintDateAndCity.TabIndex = 148
Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True
' '
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Location = New System.Drawing.Point(3, 44)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(85, 13)
Me.Label22.TabIndex = 149
Me.Label22.Text = "Anz. Ausdrucke:"
'
'txtAnzahlAusdrucke
'
Me.txtAnzahlAusdrucke._DateTimeOnly = False
Me.txtAnzahlAusdrucke._numbersOnly = True
Me.txtAnzahlAusdrucke._numbersOnlyKommastellen = ""
Me.txtAnzahlAusdrucke._numbersOnlyTrennzeichen = False
Me.txtAnzahlAusdrucke._Prozent = False
Me.txtAnzahlAusdrucke._ShortDateNew = False
Me.txtAnzahlAusdrucke._ShortDateOnly = False
Me.txtAnzahlAusdrucke._TimeOnly = False
Me.txtAnzahlAusdrucke._TimeOnly_Seconds = False
Me.txtAnzahlAusdrucke._value = Nothing
Me.txtAnzahlAusdrucke._Waehrung = False
Me.txtAnzahlAusdrucke._WaehrungZeichen = True
Me.txtAnzahlAusdrucke.ForeColor = System.Drawing.Color.Black
Me.txtAnzahlAusdrucke.Location = New System.Drawing.Point(94, 41)
Me.txtAnzahlAusdrucke.MaxLineLength = -1
Me.txtAnzahlAusdrucke.MaxLines_Warning = ""
Me.txtAnzahlAusdrucke.MaxLines_Warning_Label = Nothing
Me.txtAnzahlAusdrucke.Name = "txtAnzahlAusdrucke"
Me.txtAnzahlAusdrucke.Size = New System.Drawing.Size(32, 20)
Me.txtAnzahlAusdrucke.TabIndex = 150
Me.txtAnzahlAusdrucke.Text = "1"
'
'usrcntlVollmacht_MDM_EU 'usrcntlVollmacht_MDM_EU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.txtAnzahlAusdrucke)
Me.Controls.Add(Me.Label22)
Me.Controls.Add(Me.cbxPrintDateAndCity) Me.Controls.Add(Me.cbxPrintDateAndCity)
Me.Controls.Add(Me.cbxRMC) Me.Controls.Add(Me.cbxRMC)
Me.Controls.Add(Me.CheckedListBox1) Me.Controls.Add(Me.CheckedListBox1)
@@ -1196,4 +1233,6 @@ Partial Class usrcntlVollmacht_MDM_EU
Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxRMC As CheckBox Friend WithEvents cbxRMC As CheckBox
Friend WithEvents cbxPrintDateAndCity As CheckBox Friend WithEvents cbxPrintDateAndCity As CheckBox
Friend WithEvents Label22 As Label
Friend WithEvents txtAnzahlAusdrucke As VERAG_PROG_ALLGEMEIN.MyTextBox
End Class End Class

11
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_EU.vb
View File

@@ -184,12 +184,21 @@ Public Class usrcntlVollmacht_MDM_EU
End Sub End Sub
Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged
Select Case cboLand._value Select Case cboLand._value
Case "PL" Case "PL"
cbxPrintDateAndCity.Checked = False cbxPrintDateAndCity.Checked = False
txtAnzahlAusdrucke.Text = 5
Case "GB"
txtAnzahlAusdrucke.Text = 3
Case "AT"
txtAnzahlAusdrucke.Text = 2
Case Else
txtAnzahlAusdrucke.Text = 1
End Select End Select

43
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.Designer.vb generated
View File

@@ -83,6 +83,8 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.cbxPrivatfirma = New System.Windows.Forms.CheckBox() Me.cbxPrivatfirma = New System.Windows.Forms.CheckBox()
Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox() Me.cbxPrintDateAndCity = New System.Windows.Forms.CheckBox()
Me.txtAnzahlAusdrucke = New VERAG_PROG_ALLGEMEIN.MyTextBox()
Me.Label22 = New System.Windows.Forms.Label()
CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.pic, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout() Me.SuspendLayout()
' '
@@ -184,7 +186,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
'lblLand 'lblLand
' '
Me.lblLand.AutoSize = True Me.lblLand.AutoSize = True
Me.lblLand.Location = New System.Drawing.Point(3, 64) Me.lblLand.Location = New System.Drawing.Point(3, 71)
Me.lblLand.Name = "lblLand" Me.lblLand.Name = "lblLand"
Me.lblLand.Size = New System.Drawing.Size(49, 13) Me.lblLand.Size = New System.Drawing.Size(49, 13)
Me.lblLand.TabIndex = 5 Me.lblLand.TabIndex = 5
@@ -601,7 +603,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.cboLand._allowFreiText = False Me.cboLand._allowFreiText = False
Me.cboLand._value = "" Me.cboLand._value = ""
Me.cboLand.FormattingEnabled = True Me.cboLand.FormattingEnabled = True
Me.cboLand.Location = New System.Drawing.Point(6, 80) Me.cboLand.Location = New System.Drawing.Point(6, 87)
Me.cboLand.Name = "cboLand" Me.cboLand.Name = "cboLand"
Me.cboLand.Size = New System.Drawing.Size(89, 21) Me.cboLand.Size = New System.Drawing.Size(89, 21)
Me.cboLand.TabIndex = 10 Me.cboLand.TabIndex = 10
@@ -1012,12 +1014,47 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Me.cbxPrintDateAndCity.TabIndex = 145 Me.cbxPrintDateAndCity.TabIndex = 145
Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True Me.cbxPrintDateAndCity.UseVisualStyleBackColor = True
' '
'txtAnzahlAusdrucke
'
Me.txtAnzahlAusdrucke._DateTimeOnly = False
Me.txtAnzahlAusdrucke._numbersOnly = True
Me.txtAnzahlAusdrucke._numbersOnlyKommastellen = ""
Me.txtAnzahlAusdrucke._numbersOnlyTrennzeichen = False
Me.txtAnzahlAusdrucke._Prozent = False
Me.txtAnzahlAusdrucke._ShortDateNew = False
Me.txtAnzahlAusdrucke._ShortDateOnly = False
Me.txtAnzahlAusdrucke._TimeOnly = False
Me.txtAnzahlAusdrucke._TimeOnly_Seconds = False
Me.txtAnzahlAusdrucke._value = ""
Me.txtAnzahlAusdrucke._Waehrung = False
Me.txtAnzahlAusdrucke._WaehrungZeichen = True
Me.txtAnzahlAusdrucke.ForeColor = System.Drawing.Color.Black
Me.txtAnzahlAusdrucke.Location = New System.Drawing.Point(94, 47)
Me.txtAnzahlAusdrucke.MaxLineLength = -1
Me.txtAnzahlAusdrucke.MaxLines_Warning = ""
Me.txtAnzahlAusdrucke.MaxLines_Warning_Label = Nothing
Me.txtAnzahlAusdrucke.Name = "txtAnzahlAusdrucke"
Me.txtAnzahlAusdrucke.Size = New System.Drawing.Size(27, 20)
Me.txtAnzahlAusdrucke.TabIndex = 152
Me.txtAnzahlAusdrucke.Text = "1"
'
'Label22
'
Me.Label22.AutoSize = True
Me.Label22.Location = New System.Drawing.Point(3, 50)
Me.Label22.Name = "Label22"
Me.Label22.Size = New System.Drawing.Size(85, 13)
Me.Label22.TabIndex = 151
Me.Label22.Text = "Anz. Ausdrucke:"
'
'usrcntlVollmacht_MDM_NICHT_EU 'usrcntlVollmacht_MDM_NICHT_EU
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.Controls.Add(Me.txtAnzahlAusdrucke)
Me.Controls.Add(Me.Label22)
Me.Controls.Add(Me.cbxPrintDateAndCity) Me.Controls.Add(Me.cbxPrintDateAndCity)
Me.Controls.Add(Me.cbxPrivatfirma) Me.Controls.Add(Me.cbxPrivatfirma)
Me.Controls.Add(Me.cbx_GF_Geburtsland) Me.Controls.Add(Me.cbx_GF_Geburtsland)
@@ -1147,4 +1184,6 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
Friend WithEvents cbxPrivatfirma As CheckBox Friend WithEvents cbxPrivatfirma As CheckBox
Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents cbxPrintDateAndCity As CheckBox Friend WithEvents cbxPrintDateAndCity As CheckBox
Friend WithEvents txtAnzahlAusdrucke As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents Label22 As Label
End Class End Class

13
SDL/Formulare/KDFormulare/FormulareBaukasten/usrcntlVollmacht_MDM_NICHT_EU.vb
View File

@@ -180,16 +180,23 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
Select Case cboLand._value Select Case cboLand._value
Case "PL" Case "PL"
cbxPrintDateAndCity.Checked = False cbxPrintDateAndCity.Checked = False
Case "NL" Case "NL"
privatfirma = True privatfirma = True
Case "HR" Case "HR"
privatfirma = True privatfirma = True
txtAnzahlAusdrucke.Text = 10
Case "AT"
txtAnzahlAusdrucke.Text = 10
Case "LU"
txtAnzahlAusdrucke.Text = 5
Case "IT"
txtAnzahlAusdrucke.Text = 1
Case Else Case Else
privatfirma = False privatfirma = False
txtAnzahlAusdrucke.Text = 1
End Select End Select

50
SDL/Formulare/KDFormulare/frmFormulare.vb
View File

@@ -8,8 +8,6 @@ Imports System.Reflection
Imports System.Text.RegularExpressions Imports System.Text.RegularExpressions
Imports System.Windows.Documents Imports System.Windows.Documents
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
Public Class frmFormulare Public Class frmFormulare
Dim isSingleForm = False Dim isSingleForm = False
Event ShownFIN() Event ShownFIN()
@@ -1812,6 +1810,7 @@ Public Class FormularManagerNEU
Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), ""))) Case "date_month" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(3, 2), "")))
Case "date_year" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(6, 4), ""))) Case "date_year" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, IIf(usrCntl.cbxPrintDateAndCity.Checked AndAlso IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text.ToString.Substring(6, 4), "")))
Case "Unterschrift1" : listItem2.Add(New VERAG_PROG_ALLGEMEIN.MyListItem(item.Text, "X"))
End Select End Select
@@ -1827,10 +1826,13 @@ Public Class FormularManagerNEU
Next Next
If usrCntl.cboLand._value = "IT" Then
printMultipleTimes(1, striList, fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False))
Else
printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False))
End If
striList.Add(fm.fillPDF_Editierbar("DOKUMENTE", "VORLAGEN", "VOLLMACHTEN", "MDM", "", "VM_NICHTEU_" & usrCntl.cboLand._value, listItem2, listTowrite,,,,,, False))
'aktuell WORD und PDF 'aktuell WORD und PDF
Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing Dim odoc As Microsoft.Office.Interop.Word.Document = Nothing
@@ -1864,8 +1866,6 @@ Public Class FormularManagerNEU
Case "name4" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name4" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "name5" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name5" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "address" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text ' Case "address" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text '
Case "address1" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text ' Case "address1" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text '
Case "address2" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text ' Case "address2" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text '
@@ -1996,7 +1996,10 @@ Public Class FormularManagerNEU
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
If path <> "" Then striList.Add(path) If path <> "" Then
printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, path)
End If
End If End If
End If End If
@@ -2025,7 +2028,7 @@ Public Class FormularManagerNEU
Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID) Dim FIRMA As New VERAG_PROG_ALLGEMEIN.cFirmen(VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA_ID)
Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2) Dim FIRMA_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False) Dim isKundeDE = IIf(usrCntl.cbxLandKz._value = "DE" Or usrCntl.cbxLandKz._value = "D", True, False)
Dim dtKundenBank As DataTable = (New VERAG_PROG_ALLGEMEIN.SQL).loadDgvBySql("select bnk_iban, bnk_bic, bnk_anschrift from tblBankverbindungen where bnk_archiv = 0 and bnk_hauptkonto = 0 and bnk_KundenNr = '" & usrCntl.KdNR & "'", "FMZOLL")
Dim docBez As String = "" Dim docBez As String = ""
docBez = "VOLLMACHT_" & usrCntl.cboLand._value docBez = "VOLLMACHT_" & usrCntl.cboLand._value
@@ -2046,6 +2049,7 @@ Public Class FormularManagerNEU
Select Case fieldName Select Case fieldName
Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name_1" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text Case "name_2" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtFirma.Text
Case "address" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text Case "address" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.txtAdresse1.Text <> "", usrCntl.txtAdresse1.Text & ", ", "") & usrCntl.cbxLandKz._value & "-" & usrCntl.txtAdresse2.Text & " " & usrCntl.txtAdresse3.Text
@@ -2089,7 +2093,15 @@ Public Class FormularManagerNEU
Case "c_bank" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_Bankverbindung1, FIRMA_DE.Firma_Bankverbindung1) Case "c_bank" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_Bankverbindung1, FIRMA_DE.Firma_Bankverbindung1)
Case "c_iban" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_IBAN1.Replace("IBAN:", ""), FIRMA_DE.Firma_IBAN1.Replace("IBAN:", "")) Case "c_iban" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_IBAN1.Replace("IBAN:", ""), FIRMA_DE.Firma_IBAN1.Replace("IBAN:", ""))
Case "c_bic" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_BIC1.Replace("BIC:", ""), FIRMA_DE.Firma_BIC1.Replace("BIC:", "")) Case "c_bic" : odoc.FormFields(fieldName).Range.Text = IIf(Not isKundeDE, FIRMA.Firma_BIC1.Replace("BIC:", ""), FIRMA_DE.Firma_BIC1.Replace("BIC:", ""))
Case "place_date" : odoc.FormFields(fieldName).Range.Text = usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, "") Case "place_date" : odoc.FormFields(fieldName).Range.Text = IIf(usrCntl.cbxPrintDateAndCity.Checked, usrCntl.txtOrt.Text & ", " & IIf(IsDate(usrCntl.datDatum.Text), usrCntl.datDatum.Text, ""), "")
Case "bank" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_anschrift")), dtKundenBank.Rows(0).Item("bnk_anschrift"), "")
Case "iban" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_iban")), dtKundenBank.Rows(0).Item("bnk_iban"), "")
Case "bic" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1 AndAlso Not IsDBNull(dtKundenBank.Rows(0).Item("bnk_bic")), dtKundenBank.Rows(0).Item("bnk_bic"), "")
Case "name1" : odoc.FormFields(fieldName).Range.Text = IIf(dtKundenBank.Rows.Count = 1, usrCntl.txtFirma.Text, "")
End Select End Select
@@ -2117,16 +2129,15 @@ Public Class FormularManagerNEU
Next Next
Next Next
odoc.Save() : odoc.Activate() odoc.Save() : odoc.Activate()
If openWord Then If openWord Then
oWord.Visible = True oWord.Visible = True
Return New List(Of String) Return New List(Of String)
ElseIf printReportElsePDF Then ElseIf printReportElsePDF Then
oWord.DisplayAlerts = False oWord.DisplayAlerts = False
oWord.
oWord.PrintOut() oWord.PrintOut()
Try Try
oWord.Documents.Close() oWord.Documents.Close()
@@ -2151,7 +2162,9 @@ Public Class FormularManagerNEU
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message) MsgBox(ex.Message)
End Try End Try
striList.Add(path)
printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, path)
End If End If
Catch ex As Exception Catch ex As Exception
@@ -2162,6 +2175,18 @@ Public Class FormularManagerNEU
End Function
Shared Function printMultipleTimes(AnzahlAusdrucke As Integer, stringList As List(Of String), path As String) As Boolean
For i As Integer = 1 To AnzahlAusdrucke
stringList.Add(path)
Next
Return True
End Function End Function
Shared Function VM_AT(usrCntl As usrcntlVollmacht_AT) As String Shared Function VM_AT(usrCntl As usrcntlVollmacht_AT) As String
@@ -2257,6 +2282,7 @@ Public Class FormularManagerNEU
Return DispSendungslisteoListe(AVISO, SENDUNG_LIST,,, RechnugnAn) Return DispSendungslisteoListe(AVISO, SENDUNG_LIST,,, RechnugnAn)
End Function End Function
Shared Function DispSendungslisteoListe(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional RechnugnAn As String = "AVISIERER") As String Shared Function DispSendungslisteoListe(AVISO As VERAG_PROG_ALLGEMEIN.cAviso, SENDUNGEN As List(Of VERAG_PROG_ALLGEMEIN.cSendungen), Optional printReportElsePDF As Boolean = False, Optional printername As String = "", Optional RechnugnAn As String = "AVISIERER") As String
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues) ' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
Dim tmpPath = "" Dim tmpPath = ""

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.2.8")> <Assembly: AssemblyVersion("1.3.2.9")>
<Assembly: AssemblyFileVersion("1.3.2.8")> <Assembly: AssemblyFileVersion("1.3.2.9")>

9
SDL/SDL.vbproj
View File

@@ -868,6 +868,12 @@
<Compile Include="mdm\frmDatumsabfrage.vb"> <Compile Include="mdm\frmDatumsabfrage.vb">
<SubType>Form</SubType> <SubType>Form</SubType>
</Compile> </Compile>
<Compile Include="mdm\IDS\rptIDS_Anhang.Designer.vb">
<DependentUpon>rptIDS_Anhang.vb</DependentUpon>
</Compile>
<Compile Include="mdm\IDS\rptIDS_Anhang.vb">
<SubType>Component</SubType>
</Compile>
<Compile Include="USTV\frmUSTVoffeneAntraege.Designer.vb"> <Compile Include="USTV\frmUSTVoffeneAntraege.Designer.vb">
<DependentUpon>frmUSTVoffeneAntraege.vb</DependentUpon> <DependentUpon>frmUSTVoffeneAntraege.vb</DependentUpon>
</Compile> </Compile>
@@ -3352,6 +3358,9 @@
<EmbeddedResource Include="mdm\PLOSE\frmPLOSE_ProductCodes.resx"> <EmbeddedResource Include="mdm\PLOSE\frmPLOSE_ProductCodes.resx">
<DependentUpon>frmPLOSE_ProductCodes.vb</DependentUpon> <DependentUpon>frmPLOSE_ProductCodes.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>
<EmbeddedResource Include="mdm\IDS\rptIDS_Anhang.resx">
<DependentUpon>rptIDS_Anhang.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.resx"> <EmbeddedResource Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.resx">
<DependentUpon>rptPLOSE_CustomerConsortio.vb</DependentUpon> <DependentUpon>rptPLOSE_CustomerConsortio.vb</DependentUpon>
</EmbeddedResource> </EmbeddedResource>

8
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -404,7 +404,7 @@ Public Class frmMDM_USTVAntrag
Next Next
'Einträge als archivert setzen ' vormals wichtig 'Einträge als archivert setzen ' vormals wichtig
MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr) MDM_Worker.cPLOSE.UPDATE_ARCHIV(USTV_ANTRAG.UStVAn_ReDatVon, USTV_ANTRAG.UStVAn_ReDatBis, USTV_ANTRAG.UStVAn_KuNr, USTV_ANTRAG.UStVAn_ID)
End If End If
Return True Return True
@@ -460,7 +460,7 @@ Public Class frmMDM_USTVAntrag
End If End If
If USTV_POS.INSERT() Then If USTV_POS.INSERT() Then
cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdNr) cRMC.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdNr, USTV_POS.UStVAn_ID)
End If End If
End If End If
@@ -528,7 +528,7 @@ Public Class frmMDM_USTVAntrag
End If End If
If USTV_POS.INSERT() Then If USTV_POS.INSERT() Then
cMSEAPI.UPDATE_ARCHIV(r.Item("invoice_date"), r.Item("invoice_number"), r.Item("customer_id"), Antrag_LandKz) cMSEAPI.UPDATE_ARCHIV(r.Item("invoice_date"), r.Item("invoice_number"), r.Item("customer_id"), Antrag_LandKz, USTV_POS.UStVAn_ID)
End If End If
End If End If
@@ -595,7 +595,7 @@ Public Class frmMDM_USTVAntrag
End If End If
If USTV_POS.INSERT() Then If USTV_POS.INSERT() Then
cUTA.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdnr) cUTA.UPDATE_ARCHIV(USTV_POS.UStVPo_ReDat, USTV_POS.UStVPo_ReNr, kdnr, USTV_POS.UStVAn_ID)
End If End If
'tblUStVPositionen 'tblUStVPositionen
End If End If

1050
SDL/mdm/IDS/rptIDS_Anhang.Designer.vb generated Normal file
View File

File diff suppressed because it is too large Load Diff

132
SDL/mdm/IDS/rptIDS_Anhang.resx Normal file
View File

File diff suppressed because one or more lines are too long

7
SDL/mdm/IDS/rptIDS_Anhang.vb Normal file
View File

@@ -0,0 +1,7 @@
Imports GrapeCity.ActiveReports
Imports GrapeCity.ActiveReports.Document
Public Class rptIDS_Anhang
End Class

25
SDL/mdm/frmMDMDatenverarbetiung.Designer.vb generated
View File

@@ -48,6 +48,7 @@ Partial Class frmMDMDatenverarbetiung
Me.lbl = New System.Windows.Forms.Label() Me.lbl = New System.Windows.Forms.Label()
Me.Panel1 = New System.Windows.Forms.Panel() Me.Panel1 = New System.Windows.Forms.Panel()
Me.pnlIDS = New System.Windows.Forms.Panel() Me.pnlIDS = New System.Windows.Forms.Panel()
Me.Button10 = New System.Windows.Forms.Button()
Me.btnRechenwertesetzen = New System.Windows.Forms.Button() Me.btnRechenwertesetzen = New System.Windows.Forms.Button()
Me.lblTTRSum = New System.Windows.Forms.Label() Me.lblTTRSum = New System.Windows.Forms.Label()
Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox() Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
@@ -80,7 +81,7 @@ Partial Class frmMDMDatenverarbetiung
Me.Button3 = New System.Windows.Forms.Button() Me.Button3 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button() Me.Button2 = New System.Windows.Forms.Button()
Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components) Me.MyDatagridview1 = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.Button10 = New System.Windows.Forms.Button() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.pnl.SuspendLayout() Me.pnl.SuspendLayout()
Me.Panel5.SuspendLayout() Me.Panel5.SuspendLayout()
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -374,6 +375,16 @@ Partial Class frmMDMDatenverarbetiung
Me.pnlIDS.TabIndex = 50 Me.pnlIDS.TabIndex = 50
Me.pnlIDS.Visible = False Me.pnlIDS.Visible = False
' '
'Button10
'
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button10.Location = New System.Drawing.Point(168, 5)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(140, 23)
Me.Button10.TabIndex = 49
Me.Button10.Text = "Rechenw. zurücksetzen"
Me.Button10.UseVisualStyleBackColor = True
'
'btnRechenwertesetzen 'btnRechenwertesetzen
' '
Me.btnRechenwertesetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.btnRechenwertesetzen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
@@ -764,15 +775,10 @@ Partial Class frmMDMDatenverarbetiung
Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577) Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577)
Me.MyDatagridview1.TabIndex = 0 Me.MyDatagridview1.TabIndex = 0
' '
'Button10 'ContextMenuStrip1
' '
Me.Button10.FlatStyle = System.Windows.Forms.FlatStyle.Flat Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.Button10.Location = New System.Drawing.Point(168, 5) Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
Me.Button10.Name = "Button10"
Me.Button10.Size = New System.Drawing.Size(140, 23)
Me.Button10.TabIndex = 49
Me.Button10.Text = "Rechenw. zurücksetzen"
Me.Button10.UseVisualStyleBackColor = True
' '
'frmMDMDatenverarbetiung 'frmMDMDatenverarbetiung
' '
@@ -866,4 +872,5 @@ Partial Class frmMDMDatenverarbetiung
Friend WithEvents pnlIDS As Panel Friend WithEvents pnlIDS As Panel
Friend WithEvents btnRechenwertesetzen As Button Friend WithEvents btnRechenwertesetzen As Button
Friend WithEvents Button10 As Button Friend WithEvents Button10 As Button
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
End Class End Class

3
SDL/mdm/frmMDMDatenverarbetiung.resx
View File

@@ -117,6 +117,9 @@
<resheader name="writer"> <resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader> </resheader>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" /> <assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> <data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value> <value>

541
SDL/mdm/frmMDMDatenverarbetiung.vb
View File

@@ -1,6 +1,7 @@
Imports System.Data.OleDb Imports System.Data.OleDb
Imports System.IO Imports System.IO
Imports Challenge Imports Challenge
Imports MDM_Worker
Imports TAlex.WPF.Helpers Imports TAlex.WPF.Helpers
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -28,9 +29,7 @@ Public Class frmMDMDatenverarbetiung
Case "PLOSE" : genSummenbericht_PLOSE() Case "PLOSE" : genSummenbericht_PLOSE()
Case "ASFINAG" : genSummenbericht_ASFINAG() Case "ASFINAG" : genSummenbericht_ASFINAG()
Case "UTA" : genSummenbericht_UTA() Case "UTA" : genSummenbericht_UTA()
Case "IDS" Case "IDS" : genSummenbericht_IDS(17) : genSummenbericht_IDS(21)
genSummenbericht_IDS(17)
genSummenbericht_IDS(21)
Case "MSE" : genSummenbericht_MSE() Case "MSE" : genSummenbericht_MSE()
Case Else : MsgBox("Nicht verfügbar!") Case Else : MsgBox("Nicht verfügbar!")
End Select End Select
@@ -98,26 +97,33 @@ Public Class frmMDMDatenverarbetiung
End If End If
Select Case LIEFERANT Select Case LIEFERANT
Case "PLOSE" Case "PLOSE"
If genRGAtt_PLOSE() Then Dim ploseParam As New cPLOSE
ploseParam.initImportPfade()
If genRGAtt_PLOSE(ploseParam) Then
If MautD_Befuellen() Then If MautD_Befuellen() Then
setFakturiert(LIEFERANT) setFakturiert(LIEFERANT)
End If End If
End If End If
Case "UTA" Case "UTA"
If genRGAtt_UTA() Then Dim UTA As New cUTA
UTA.initImportPfade(LIEFERANT)
If genRGAtt_UTA(UTA) Then
If Not test AndAlso MautD_Befuellen() Then If Not test AndAlso MautD_Befuellen() Then
setFakturiert(LIEFERANT) setFakturiert(LIEFERANT)
End If End If
End If End If
Case "IDS" Case "IDS"
MsgBox("Nicht verfügbar!") showIDSContextMenu()
Case "MSE" Case "MSE"
If genRGAtt_MSE() Then Dim mseParam As New cMSEAPI(LIEFERANT)
If genRGAtt_MSE(mseParam) Then
If Not test AndAlso MautD_Befuellen() Then If Not test AndAlso MautD_Befuellen() Then
setFakturiert(LIEFERANT) setFakturiert(LIEFERANT)
End If End If
End If End If
Case "ASFINAG" Case "ASFINAG"
Dim asfinagParam As New cAsfinagMaut
asfinagParam.initImportPfade()
Dim abrechnungsDatum As DateTime = Now() Dim abrechnungsDatum As DateTime = Now()
If datum = Nothing Then If datum = Nothing Then
datum = SQL.getValueTxtBySql("select top (1) Abrechnungsdatum from Abrechnungsdatum", "ASFINAG") datum = SQL.getValueTxtBySql("select top (1) Abrechnungsdatum from Abrechnungsdatum", "ASFINAG")
@@ -125,7 +131,7 @@ Public Class frmMDMDatenverarbetiung
Dim inputKdNr = "" 'InputBox("Wenn einzelner Kunde abgerechnet werde soll, bitte KdNr eingeben" & vbNewLine & "Wenn keine KdNr angegeben wird, dann werden alle Kunden abgerechnet:", "Asfinag abrechen") Dim inputKdNr = "" 'InputBox("Wenn einzelner Kunde abgerechnet werde soll, bitte KdNr eingeben" & vbNewLine & "Wenn keine KdNr angegeben wird, dann werden alle Kunden abgerechnet:", "Asfinag abrechen")
If genRGAtt_ASFINAG(abrechnungsDatum, datum, inputKdNr) Then If genRGAtt_ASFINAG(abrechnungsDatum, datum, inputKdNr, asfinagParam) Then
MautD_Befuellen(inputKdNr) MautD_Befuellen(inputKdNr)
End If End If
initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked) initDgv_ASFINAG(cbxASFINAGAbgerechnet.Checked, cbxBelegeerstellt.Checked)
@@ -934,7 +940,7 @@ Public Class frmMDMDatenverarbetiung
left join tbl_IDS_Kunden as Kunde on Kunde.CustomerCode = trans.CustomerCode And Kunde.KdNrAlt = 0 left join tbl_IDS_Kunden as Kunde on Kunde.CustomerCode = trans.CustomerCode And Kunde.KdNrAlt = 0
left join tbl_IDS_Kunden_ohne_Rabatt as KundeOhneR on KundeOhneR.CustomerCode = trans.CustomerCode left join tbl_IDS_Kunden_ohne_Rabatt as KundeOhneR on KundeOhneR.CustomerCode = trans.CustomerCode
left join tbl_IDS_Produkte as prod on prod.ProductTypeCode = trans.ProductTypeCode left join tbl_IDS_Produkte as prod on prod.ProductTypeCode = trans.ProductTypeCode
where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and trans.UStVAn_ID is null", "FMZOLL") where cast(trans.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' and trans.UStVAn_ID is null and trans.charged <> 1 ", "FMZOLL")
.LOAD() .LOAD()
@@ -1144,7 +1150,7 @@ Public Class frmMDMDatenverarbetiung
Function genRGAtt_PLOSE() As Boolean Function genRGAtt_PLOSE(ploseParam As cPLOSE) As Boolean
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL") Dim dt_Main As DataTable = SQL.loadDgvBySql_Param("SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where plose_Fakturiert = 0 AND plose_ProduktCode NOT IN (" & ProduktCode_NOT_IN & " ) AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ", "FMZOLL")
'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ") 'MsgBox("Keine Daten!""SELECT [AdressenNr],PLOSEKundenNr FROM tblPLOSE_Details INNER JOIN Adressen ON plose_POLSEKundennummer=PLOSEKundenNr where AND plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' group by [AdressenNr],PLOSEKundenNr ")
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
@@ -1153,7 +1159,7 @@ Public Class frmMDMDatenverarbetiung
End If End If
Dim cnt = 0 Dim cnt = 0
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
Dim dir = "F:\FMZoll\Maut\PLOSE\" & Now.ToShortDateString Dim dir = ploseParam.ANLAGEN & Now.ToShortDateString
If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "") If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
Directory.CreateDirectory(dir) Directory.CreateDirectory(dir)
@@ -1208,7 +1214,7 @@ Public Class frmMDMDatenverarbetiung
Return False Return False
End Function End Function
Function genRGAtt_UTA() As Boolean Function genRGAtt_UTA(utaParam As cUTA) As Boolean
Dim top = "" Dim top = ""
'top = " TOP 20 " 'top = " TOP 20 "
Dim SQLStr = " SELECT Kundennummer AS [Customer ID], KundenNr AS [Customer Nr], UTAExportCSV,Rechnungsdruck Dim SQLStr = " SELECT Kundennummer AS [Customer ID], KundenNr AS [Customer Nr], UTAExportCSV,Rechnungsdruck
@@ -1228,7 +1234,8 @@ Public Class frmMDMDatenverarbetiung
End If End If
Dim cnt = 0 Dim cnt = 0
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
Dim dir = "F:\FMZoll\Maut\UTA\Archiv\" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString
Dim dir = IIf(test, utaParam.ARCHIV & "TEST\", utaParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "")
If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "") If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
Directory.CreateDirectory(dir) Directory.CreateDirectory(dir)
@@ -1270,19 +1277,19 @@ Public Class frmMDMDatenverarbetiung
Next Next
For Each UTA In dt_Main.Rows For Each uta In dt_Main.Rows
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Dim verarbOK = True Dim verarbOK = IIf(test, False, True)
If Not gen_SPEDBUCH_ByKdNr(UTA("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False If Not gen_SPEDBUCH_ByKdNr(uta("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False
If Not gen_RECHNUNG_BySPEDBUCH(UTA("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False If Not gen_RECHNUNG_BySPEDBUCH(uta("Customer Nr"), SPEDBUCH, "UTA") Then verarbOK = False
genUTAAttachmentByKdNr(UTA("Customer Nr"), UTA("Customer ID"), dir, datPloseAnhang.Value) genUTAAttachmentByKdNr(uta("Customer Nr"), uta("Customer ID"), dir, datPloseAnhang.Value)
If verarbOK Then If verarbOK Then
'UPDATE Fakturiert 'UPDATE Fakturiert
SQL.doSQL("UPDATE [tblUTAImportNew] set abgerechnetDatum=GETDATE() where abgerechnetDatum is null and [Rechnungsdatum] = '" & DateTimePicker2.Text & "' and Kundennummer = " & UTA("Customer ID"), "FMZOLL") SQL.doSQL("UPDATE [tblUTAImportNew] set abgerechnetDatum=GETDATE() where abgerechnetDatum is null and [Rechnungsdatum] = '" & DateTimePicker2.Text & "' and Kundennummer = " & uta("Customer ID"), "FMZOLL")
End If End If
@@ -1299,7 +1306,7 @@ Public Class frmMDMDatenverarbetiung
' ANHÄNGE WERDEN NCIHT BENÖTIGT:: ' ANHÄNGE WERDEN NCIHT BENÖTIGT::
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren 'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren
Dim dirAnhang = "F:\FMZoll\Maut\UTA\Anlagen\" Dim dirAnhang = IIf(test, utaParam.ANLAGEN & "TEST\", utaParam.ANLAGEN)
If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True) If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
For Each f In Directory.GetFiles(dirAnhang) For Each f In Directory.GetFiles(dirAnhang)
File.Delete(f) File.Delete(f)
@@ -1324,7 +1331,7 @@ Public Class frmMDMDatenverarbetiung
Return False Return False
End Function End Function
Function genRGAtt_MSE() As Boolean Function genRGAtt_MSE(mseParam As cMSEAPI) As Boolean
Dim top = "" Dim top = ""
'top = " TOP 20 " 'top = " TOP 20 "
Dim sqlWhere = IIf(test, " and (cust.[customer_id] = 12229 or cust.[customer_id] = 13236 or cust.[customer_id] = 11836 or cust.[customer_id] = 14385)", "") 'zum testem Dim sqlWhere = IIf(test, " and (cust.[customer_id] = 12229 or cust.[customer_id] = 13236 or cust.[customer_id] = 11836 or cust.[customer_id] = 14385)", "") 'zum testem
@@ -1348,7 +1355,7 @@ Public Class frmMDMDatenverarbetiung
Dim cnt = 0 Dim cnt = 0
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
Dim dir = IIf(test, "C:\Users\d.breimaier\Desktop\MSE\", "F:\FMZoll\MSE\Archiv\") & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") Dim dir = IIf(test, "C:\Users\d.breimaier\Desktop\MSE\", mseParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "")
If Directory.Exists(dir) Then If Directory.Exists(dir) Then
dir &= "_" & Now.ToShortTimeString.Replace(":", "") dir &= "_" & Now.ToShortTimeString.Replace(":", "")
@@ -1435,7 +1442,7 @@ Public Class frmMDMDatenverarbetiung
' ANHÄNGE WERDEN NCIHT BENÖTIGT:: ' ANHÄNGE WERDEN NCIHT BENÖTIGT::
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren 'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren
Dim dirAnhang = "F:\FMZoll\MSE\Anlagen\" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString Dim dirAnhang = mseParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString
If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True) If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
For Each f In Directory.GetFiles(dirAnhang) For Each f In Directory.GetFiles(dirAnhang)
File.Delete(f) File.Delete(f)
@@ -1461,7 +1468,155 @@ Public Class frmMDMDatenverarbetiung
End Function End Function
Function genRGAtt_ASFINAG(belegerstellungsdatum As DateTime, abrechnungsdatum As Date, inputKdNr As String) As Boolean Function genRGAtt_IDS(art As String, idsParam As cIDS) As Boolean
Dim top = ""
Dim sqlWhere = ""
Select Case art
Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode<>740543"
Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.OutletCountryCode=740543"
Case Else
MsgBox("falscher Typ!") : Return False
End Select
Dim SQLStr = " SELECT
distinct(tblIDSTransactionsNew.KdNrVERAG),
tblIDSTransactionsNew.CustomerCode,
Adressen.Rechnungsdruck,
isNULL(tblIDSInvoicesNew.daId,0) as InvoiceID
FROM
tblIDSTransactionsNew
INNER JOIN
Adressen
ON tblIDSTransactionsNew.KdNrVERAG = Adressen.AdressenNr
LEFT JOIN
tblIDSInvoicesNew
on tblIDSInvoicesNew.CustomerCode = tblIDSTransactionsNew.CustomerCode and tblIDSInvoicesNew.Invoicenumber = Paymentsummarynumber
WHERE cast(tblIDSTransactionsNew.YearMonthDay as Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null" & sqlWhere & "
order by tblIDSTransactionsNew.KdNrVERAG"
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200)
If dt_Main Is Nothing OrElse dt_Main.Rows.Count = 0 Then
MsgBox("Keine Daten!")
Return False
End If
Dim cnt = 0
If vbYes = MsgBox("Es wurden Daten von " & dt_Main.Rows.Count & " Kunden gefunden " & vbNewLine & " Möchten Sie die Anhänge erstellen?", vbYesNoCancel) Then
Dim dir = IIf(test, idsParam.ARCHIV & "TEST\", idsParam.ARCHIV) & Now.ToShortDateString & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "")
If Directory.Exists(dir) Then
'dir &= "_" & Now.ToShortTimeString.Replace(":", "")
End If
Directory.CreateDirectory(dir)
'Dim displayView = New DataView(dt_Main, "", "KdNrVERAG", DataViewRowState.CurrentRows)
'Dim distinctDT_CSV As DataTable = displayView.ToTable(True, "KdNrVERAG")
'For Each csv As DataRow In distinctDT_CSV.Rows
' Dim dt_CSV_selected = SQL.loadDgvBySql_Param("
' SELECT controller_id as [Controller ID], 'VERAG 360 GmbH' as [Controller Name] , inv.[invoice_id] as [Invoice ID], inv.invoice_date as [Invoice Date],
' cust.customer_id as [Customer ID], cust.partner_customer_number as [Customer No], cust.customer_name as [Customer name], bills.specification_page_name as [Specification Page], bills.specification_page_id as [Specification ID], trans.purchase_datetime as [Transaction date], trans.transaction_id as [Transaction ID],
' trans.supplier_name as [Transaction Supplier/Terminal], trans.transaction_country as [Transaction Country], trans.transaction_product_name as [Product description], trans.transaction_product_id as [Product Description ID], trans.device_product_type as [Card Type], trans.device_product_number as [Card number], trans.license_plate_number as [Load File Licence Plate Number],
' '' as [Card Licence Plate Number], trans.license_plate_number as [Truck Licence Plate Number], '' as [Truck Fleet Code], '' as [Truck Driver Name], trans.entry_point_name as [Entry Terminal/Direction], trans.entry_datetime as [Start date], trans.entry_datetime as [Start Time], trans.exit_point_name as [Exit Terminal Description], trans.exit_datetime as [End Date], trans.exit_datetime as [End Time],
' '' as [Eurovignet K-Number], '' as [LKW-Kostenstelle], trans.original_net_amount as [Original Nett Amount], trans.original_vat_amount as [Original VAT Amount], trans.original_gross_amount as [Original Amount], trans.original_currency as [Original Currency],
' trans.transaction_gross_amount as [Transaction Amount ( EUR )], trans.msts_fee_amount as [Admin Fee Amount ( EUR )], '' as [Fees and Costs Amount ( EUR )], trans.msts_vat_amount as [VAT Amount ( EUR )],trans.total_gross_amount as [Total Amount ( EUR )], '' as [Total Dutch VAT ( EUR )], '' as [Total Foreign VAT ( EUR )], trans.[USteuer_EUR] as [USteuer_EUR]
' FROM [VERAG].[dbo].[tblMSESettlements] as bills
' left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id]
' left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
' left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.[invoice_id] = bills.[invoice_number] and inv.customer_number = cust.[customer_id] and trans.transaction_country = inv.country
' where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.charged <> 1 and (trans.transaction_gross_amount <> 0 or [msts_fee_amount] <> 0) and cust.[customer_id] = " & csv.Item("Customer ID"), "FMZOLL")
' dt_CSV_selected.ParentRelations.Clear()
' dt_CSV_selected.ChildRelations.Clear()
' dt_CSV_selected.Constraints.Clear()
' Dim fn As String = dir & "\" & csv.Item("Customer Nr") & "_Maut_MSE.csv"
' Dim outFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
' Dim clmns As String = ""
' For i = 0 To dt_CSV_selected.Columns.Count - 1
' clmns &= dt_CSV_selected.Columns(i).ColumnName.ToString().Replace(";", ", ") & ";"
' Next
' outFile.WriteLine(clmns)
' For i = 0 To dt_CSV_selected.Rows.Count - 1
' clmns = ""
' For j = 0 To dt_CSV_selected.Columns.Count - 1
' clmns &= dt_CSV_selected.Rows(i)(j).ToString.Replace(";", ", ") & ";"
' Next
' outFile.WriteLine(clmns)
' Next
' outFile.Close()
'Next
For Each IDS In dt_Main.Rows
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
Dim verarbOK = IIf(test, False, True)
If Not gen_SPEDBUCH_ByKdNr(IDS("KdNrVERAG"), SPEDBUCH, art) Then verarbOK = False
If Not gen_RECHNUNG_BySPEDBUCH(IDS("KdNrVERAG"), SPEDBUCH, art) Then verarbOK = False
If IDS("Rechnungsdruck") = 2 Then
If genIDSAttachmentByKdNr(IDS("KdNrVERAG"), IDS("CustomerCode"), dir, datPloseAnhang.Value, art) = "" Then verarbOK = False
End If
If IDS("InvoiceID") > 0 Then
Dim DS = New VERAG_PROG_ALLGEMEIN.cDATENSERVER(IDS("InvoiceID"))
File.Copy(DS.GET_TOP1_PATH, dir & "\" & IDS("KdNrVERAG") & "_" & (DS.da_name))
End If
If verarbOK Then
'Update Fakturiert
SQL.doSQL("UPDATE [tblIDSTransactionsNew] Set chargedDatetime = GETDATE()
where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null and tblIDSTransactionsNew.KdNrVERAG = " & IDS("KdNrVERAG") & sqlWhere, "FMZOLL")
End If
If True Then 'cnt Mod 10 = 0 Then
txtPloseAnh_Einarbeitung.Text = cnt & " / " & dt_Main.Rows.Count
Dim proz As Double = (cnt / dt_Main.Rows.Count) * 100
pbPloseAnh_Proz.Value = proz
lblPloseAnh_Proz.Text = proz.ToString("N2") & " %"
'GroupBox12.Refresh()
My.Application.DoEvents()
End If
cnt += 1
Next
If test Then Return True
' ANHÄNGE WERDEN NCIHT BENÖTIGT::
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren
Dim dirAnhang = IIf(test, idsParam.ANLAGEN & "TEST\", idsParam.ANLAGEN) & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString
If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
For Each f In Directory.GetFiles(dirAnhang)
File.Delete(f)
Next
Else
Directory.CreateDirectory(dirAnhang)
End If
For Each f In Directory.GetFiles(dir)
File.Copy(f, dirAnhang & "\" & (New FileInfo(f)).Name)
Next
pbPloseAnh_Proz.Value = 100
txtPloseAnh_Einarbeitung.Text = dt_Main.Rows.Count & " / " & dt_Main.Rows.Count
lblPloseAnh_Proz.Text = "100.00 %"
Return True
End If
Return False
End Function
Function genRGAtt_ASFINAG(belegerstellungsdatum As DateTime, abrechnungsdatum As Date, inputKdNr As String, asfinagParam As cAsfinagMaut) As Boolean
If cbxASFINAGAbgerechnet.Checked = False Then If cbxASFINAGAbgerechnet.Checked = False Then
MsgBox("Bitte abgerechnete Daten auswählen!") MsgBox("Bitte abgerechnete Daten auswählen!")
@@ -1508,7 +1663,7 @@ Public Class frmMDMDatenverarbetiung
End If End If
If vbYes = MsgBox(Info & vbNewLine & "Möchten Sie die Rechnungen + Anhänge erstellen?", vbYesNoCancel) Then If vbYes = MsgBox(Info & vbNewLine & "Möchten Sie die Rechnungen + Anhänge erstellen?", vbYesNoCancel) Then
Dim dir = "F:\FMZoll\Maut\AT\Anlagen" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "\Test", "") '"C:\Users\d.breimaier\Desktop\Asfinag\Mautberichte" Dim dir = asfinagParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "\Test", "") '"C:\Users\d.breimaier\Desktop\Asfinag\Mautberichte"
If Not Directory.Exists(dir) Then If Not Directory.Exists(dir) Then
Directory.CreateDirectory(dir) Directory.CreateDirectory(dir)
@@ -1609,7 +1764,7 @@ Public Class frmMDMDatenverarbetiung
' Next ' Next
'End If 'End If
'If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang) 'If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang)
Dim dirCSV = "F:\FMZoll\Maut\Anlagen\" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test\", "") Dim dirCSV = asfinagParam.ANLAGEN & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test\", "")
If Not Directory.Exists(dirCSV) Then If Not Directory.Exists(dirCSV) Then
Directory.CreateDirectory(dirCSV) Directory.CreateDirectory(dirCSV)
@@ -2614,6 +2769,7 @@ Public Class frmMDMDatenverarbetiung
sumNettoKat += sumNetto sumNettoKat += sumNetto
sumMWSTKat += sumMWST sumMWSTKat += sumMWST
sumBruttoKat += sumBrutto sumBruttoKat += sumBrutto
sumNetto = 0 sumNetto = 0
sumMWST = 0 sumMWST = 0
sumBrutto = 0 sumBrutto = 0
@@ -2624,9 +2780,7 @@ Public Class frmMDMDatenverarbetiung
cntKat += 1 cntKat += 1
End Sub End Sub
AddHandler rpt.ReportFooter1.Format, Sub() AddHandler rpt.ReportFooter1.Format, Sub()
'sumNettoGes += sumNettoKat
'sumMWSTGes += sumMWSTKat
'sumBruttoGes += sumBruttoKat
sumNettoKat = 0 sumNettoKat = 0
sumMWSTKat = 0 sumMWSTKat = 0
sumBruttoKat = 0 sumBruttoKat = 0
@@ -2669,6 +2823,169 @@ Public Class frmMDMDatenverarbetiung
End Function End Function
Function genIDSAttachmentByKdNr(KdNr As String, IDSKdNr As String, dir As String, von As Date, art As String)
Try
Dim displayFilter = False
Dim sqlstr As String = ""
Dim sqlWhere As String = ""
Select Case art
Case "IDS" : sqlWhere = " AND tblIDSTransactionsNew.[OutletCountryCode]<>740543"
Case "IDS_AT" : sqlWhere = " AND tblIDSTransactionsNew.[OutletCountryCode]=740543"
End Select
sqlstr &= " SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.UstIdKz, Adressen.UstIdNr, tblIDSTransactionsNew.[CustomerCode], tblIDSTransactionsNew.[OutletCountry], tbl_IDS_Produkte.ProductDescription, tbl_IDS_Länder.Steuersatz, tblIDSTransactionsNew.Rechenwert, tblIDSTransactionsNew.Kz, Sum(tblIDSTransactionsNew.[TransactionVolume]) AS Liter, Sum(tblIDSTransactionsNew.[TotalNetAmount]) AS Nettobetrag, Sum(tblIDSTransactionsNew.[VATAmount]) AS Steuerbetrag, Sum([TotalNetAmount])/Sum([TransactionVolume]) AS NettopreisProLiter, Sum(tblIDSTransactionsNew.Rabattbetrag) AS [SummevonRabattbetrag], Sum([Rabattbetrag])/Sum([TransactionVolume]) AS RabattbetragProLiter
FROM ((tblIDSTransactionsNew INNER JOIN tbl_IDS_Länder ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode) INNER JOIN tbl_IDS_Produkte ON tblIDSTransactionsNew.[ProductTypeCode] = tbl_IDS_Produkte.ProductTypeCode) INNER JOIN Adressen ON tblIDSTransactionsNew.KdNrVERAG = Adressen.AdressenNr
WHERE tblIDSTransactionsNew.KdNrVERAG = " & KdNr & sqlWhere & "
GROUP BY Adressen.AdressenNr, Adressen.[Name 1], Adressen.[Name 2], Adressen.Straße, Adressen.LandKz, Adressen.PLZ, Adressen.Ort, Adressen.UstIdKz, Adressen.UstIdNr, tblIDSTransactionsNew.[CustomerCode], tblIDSTransactionsNew.[OutletCountry], tbl_IDS_Produkte.ProductDescription, tbl_IDS_Länder.Steuersatz, tblIDSTransactionsNew.Rechenwert, tblIDSTransactionsNew.Kz;
"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL")
If dt Is DBNull.Value Then Return ""
If dt.Rows.Count = 0 Then Return ""
Dim rpt As New rptIDS_Anhang
rpt.DataSource = dt
rpt.txtKunde.Text = KdNr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr).FullName
rpt.lblIDSKdNr.Text = IDSKdNr
rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString
rpt.GroupHeaderKz.DataField = "OutletCountry"
rpt.Label4.Text = von.ToShortDateString
Dim curRabattbetragProLiter As Double = 0
Dim curRabattbetrag As Double = 0
Dim curGesamtbetrag As Double = 0
Dim sumLiter As Double = 0
Dim sumBrutto As Double = 0
Dim sumLiterLand As Double = 0
Dim sumLiterKat As Double = 0
Dim sumBruttoLand As Double = 0
Dim sumBruttoKat As Double = 0
Dim sumLiterGes As Double = 0
Dim sumBruttoGes As Double = 0
Dim cntKat = 0
Dim cnt = 0
rpt.GroupFooterKat.Visible = False
AddHandler rpt.Detail.Format, Sub()
' If cnt = 0 Then
curRabattbetrag = 0 - SQL.isDbnullEmptyDbl(rpt.Fields.Item("SummevonRabattbetrag").Value, 2, "") '=0-[Summe von Rabattbetrag]
curRabattbetragProLiter = 0 - IIf(SQL.isDbnullEmpty(rpt.Fields.Item("KZ").Value, "") = "P", SQL.isDbnullEmptyDbl(rpt.Fields.Item("RabattbetragProLiter").Value, 4, 0), SQL.isDbnullEmptyDbl(rpt.Fields.Item("Rechenwert").Value, 4, 0)) '=0-Wenn([Kz]="P";[RabattbetragProLiter];[Rechenwert])
curGesamtbetrag = CDbl(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 2, 0) + curRabattbetrag + SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, 0)) '=[Nettobetrag]+[curRabattbetrag]+[Steuerbetrag]
rpt.txtKunde.Text = SQL.isDbnullEmpty(rpt.Fields.Item("AdressenNr").Value, "")
rpt.txtKunde.Text &= " " & SQL.isDbnullEmpty(rpt.Fields.Item("Name 1").Value, "")
rpt.txtProduktBeschreibung.Text = SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "")
rpt.txtLiter.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Liter").Value, "")
rpt.txtPreis.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("NettopreisProLiter").Value, 4, "")
rpt.txtBetrag.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Nettobetrag").Value, 2, "")
rpt.txtRabattPreis.Text = curRabattbetragProLiter
rpt.txtRabattBetrag.Text = curRabattbetrag
rpt.lblMWST.Text = "zuzüglich MWST "
rpt.lblMWST.Text &= IIf(SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "")
rpt.txtMWST.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Steuerbetrag").Value, 2, "")
rpt.txtPreisProLiter.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("NettopreisProLiter").Value, 4, 0) + curRabattbetragProLiter '=[NettopreisProLiter]+[curRabattbetragProLiter]
rpt.txtGesamtbetrag.Text = curGesamtbetrag
sumLiter += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Liter").Value, 2, 0)
sumBrutto += curGesamtbetrag
cnt += 1
End Sub
AddHandler rpt.GroupHeaderKz.Format, Sub()
rpt.txtOutletCountry.Text = SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "")
End Sub
AddHandler rpt.GroupFooterKz.Format, Sub()
sumLiterLand += sumLiter
sumBruttoLand += sumBrutto
rpt.txtNettoKzSum.Text = sumLiterLand.ToString("N2")
rpt.txtMWSTKzSum.Text = ""
rpt.txtBruttoKzSum.Text = sumBruttoLand.ToString("N2")
cntKat += 1
sumLiter = 0
sumBrutto = 0
sumLiterGes += sumLiterLand
sumBruttoGes += sumBruttoLand
sumLiterLand = 0
sumBruttoLand = 0
rpt.txtOutletCountry.Text = rpt.txtOutletCountry.Text.Replace("Land", SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, ""))
End Sub
AddHandler rpt.ReportFooter1.Format, Sub()
rpt.txtNettoGesSum.Text = sumLiterGes.ToString("N2")
rpt.txtBruttoGesSum.Text = sumBruttoGes.ToString("N2")
If cntKat <= 1 Then
rpt.GroupFooterKat.Visible = False
End If
End Sub
'print.Viewer.LoadDocument(rpt)
'print.Viewer.ViewType = GrapeCity.Viewer.Common.Model.ViewType.Continuous
'print.Show()
Dim tmpPath = dir & "\" & KdNr & "_Diesel_" & art & ".pdf"
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
rpt.Run(False)
p.NeverEmbedFonts = ""
p.Export(rpt.Document, tmpPath)
rpt.Dispose()
Return tmpPath
Catch ex As System.Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try
Return ""
End Function
Function genASFINAGAttachmentByKdNr(KdNr As Integer, dt As DataTable, tmpPath As String) Function genASFINAGAttachmentByKdNr(KdNr As Integer, dt As DataTable, tmpPath As String)
Try Try
@@ -2853,7 +3170,7 @@ Public Class frmMDMDatenverarbetiung
Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4823 Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4823
Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4821 Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4821
Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4868 Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4868
Case "IDS AUT" : OffertenNr = 21 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4868 Case "IDS_AT" : OffertenNr = 21 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4868
End Select End Select
SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year) SPEDBUCH.AbfertigungsNr = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(SPEDBUCH.FilialenNr, Now.Year)
@@ -3058,7 +3375,7 @@ Public Class frmMDMDatenverarbetiung
Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang"
Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang"
Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "IDS" : OffertenNr = 17 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang"
Case "IDS AUT" : OffertenNr = 21 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang" Case "IDS_AT" : OffertenNr = 21 : Abfertigungsart = 10 : RG.Anlage_1 = "Email Anhang"
End Select End Select
@@ -3234,56 +3551,6 @@ Public Class frmMDMDatenverarbetiung
Case "MSE" Case "MSE"
'des is da schass!!!!
' Case 23 'MSE Maut
'5070 Select Case ![LeistungsNr]
' Case 134 'Frejus - Tunnelmaut (20.01.2011)
'5080 Set rst = OpenParameterQuery("qryReErfSchOpt6BeträgeLNr134", eOpensnapshot, "prmAdressenNr:=" & rstRK![RechnungsKundenNr])
'5090 If Not rst.EOF Then
'5100 ![Anzahl] = 1
'5110 ![Preis] = rst![SummevonTransaction Amount ( EUR )] + rst![SummevonFees And Costs Amount ( EUR )]
'5120 If Not IsNull(![BGebLeistungsNr]) Then
'5130 ![BGebBgl] = ![Preis] - rst![SummevonUSteuer_EUR]
'5140 End If
'5150 End If
'5160 rst.Close
'5170 Set rst = Nothing
'qryReErfSchOpt6BeträgeLNr134
'5180 Case 141 'MSC Ressa - alle Länder
'5190 Set rst = OpenParameterQuery("qryReErfSchOpt6BeträgeLNr141", eOpensnapshot, "prmAdressenNr:=" & rstRK![RechnungsKundenNr])
'5200 If Not rst.EOF Then
'5210 ![Anzahl] = 1
'5220 ![Preis] = rst![SummevonTransaction Amount ( EUR )] + rst![SummevonFees And Costs Amount ( EUR )]
'5230 If Not IsNull(![BGebLeistungsNr]) Then
'5240 ![BGebBgl] = ![Preis] - rst![SummevonUSteuer_EUR]
'5250 End If
'5260 End If
'5270 rst.Close
'5280 Set rst = Nothing
'qryReErfSchOpt6BeträgeLNr141
'5290 Case Else 'alle anderen MSE Transactions
'5300 Set rst = OpenParameterQuery("qryReErfSchOpt6Beträge", eOpensnapshot, "prmAdressenNr:=" & rstRK![RechnungsKundenNr], "prmLeistungsNr:=" & ![LeistungsNr])
'5310 If Not rst.EOF Then
'5320 ![Anzahl] = 1
'5330 ![Preis] = rst![SummevonTransaction Amount ( EUR )] + rst![SummevonFees And Costs Amount ( EUR )]
'5340 If Not IsNull(![BGebLeistungsNr]) Then
'5350 ![BGebBgl] = ![Preis] - rst![SummevonUSteuer_EUR]
'5360 End If
'5370 End If
'5380 rst.Close
'5390 Set rst = Nothing
'5400 End Select
'qryReErfSchOpt6Beträge
useNettogesamtbetrag = False useNettogesamtbetrag = False
'alles steuerfrei also Brutto = Netto 'alles steuerfrei also Brutto = Netto
@@ -3317,7 +3584,59 @@ Public Class frmMDMDatenverarbetiung
Next Next
Case "IDS" Case "IDS", "IDS_AT"
useNettogesamtbetrag = False
Dim sqlWhere = " and tblIDSTransactionsNew.OutletCountryCode"
sqlWhere &= IIf(Lieferant = "IDS", "<>740543", "=740543")
sqlstr = "
Select
Leistungen.LeistungsNr,
Leistungen.LeistungsBez,
Leistungen.BerechnungsartNr,
tblIDSTransactionsNew.KdNrVERAG,
SUM(tblIDSTransactionsNew.AmminclVAT) As Brutto,
SUM(tblIDSTransactionsNew.[TotalNetAmount]) As Netto,
SUM(tblIDSTransactionsNew.[VATAmount]) As Steuerbetrag,
SUM(tblIDSTransactionsNew.Rabattbetrag) As [SummevonRabattbetrag]
FROM
Leistungen
INNER Join
tbl_IDS_Länder
On Leistungen.LeistungsNr = tbl_IDS_Länder.LeistungsNr
INNER Join
tblIDSTransactionsNew
On tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
INNER Join
Adressen
On tblIDSTransactionsNew.KdNrVERAG = Adressen.AdressenNr
WHERE cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' AND [UStVAn_ID] is null and tblIDSTransactionsNew.KdNrVERAG = " & KdNr & sqlWhere & "
GROUP BY
tblIDSTransactionsNew.KdNrVERAG,
Leistungen.LeistungsNr,
Leistungen.LeistungsBez,
Leistungen.BerechnungsartNr
order by tblIDSTransactionsNew.KdNrVERAG"
Dim dt As DataTable = SQL.loadDgvBySql_Param(sqlstr, "FMZOLL", 1200)
For Each r In dt.Rows
Dim NettoBetrag As Double = r("Netto")
Dim BruttoBetrag As Double = r("Brutto")
Dim UstBetrag As Double = r("Steuerbetrag")
Dim Rabatt As Double = r("SummevonRabattbetrag")
Dim LeistungsNr As Integer = r("LeistungsNr")
Dim OFFERTE As New VERAG_PROG_ALLGEMEIN.cOfferte(KdNr, OffertenNr, True)
allPos(RG, OFFERTE, LeistungsNr, NettoBetrag, BruttoBetrag - Rabatt, UstBetrag)
Next
' Case 17 'Diesel IDS ' Case 17 'Diesel IDS
'5970 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte17") '5970 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte17")
@@ -3355,7 +3674,6 @@ Public Class frmMDMDatenverarbetiung
'6290 qryOffPos.Close '6290 qryOffPos.Close
'6300 Set qryOffPos = Nothing '6300 Set qryOffPos = Nothing
Case "IDS AUT"
' Case 21 'Diesel IDS AT ' Case 21 'Diesel IDS AT
'6320 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte21") '6320 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte21")
@@ -4014,7 +4332,7 @@ Public Class frmMDMDatenverarbetiung
End If End If
End Sub End Sub
Function MautD_Befuellen(Optional kdNr = "") As Boolean Function MautD_Befuellen(Optional kdNr = "", Optional _Lieferant = "") As Boolean
Select Case LIEFERANT Select Case LIEFERANT
Case "PLOSE" : deleteMautD("PLOSE") : Return genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString) Case "PLOSE" : deleteMautD("PLOSE") : Return genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
Case "ASFINAG" : deleteMautD("AT") : Return genASFINAGInsertMautAT(kdNr) Case "ASFINAG" : deleteMautD("AT") : Return genASFINAGInsertMautAT(kdNr)
@@ -4034,23 +4352,35 @@ Public Class frmMDMDatenverarbetiung
PictureBox1.Visible = True PictureBox1.Visible = True
End If End If
Case "UTA" Case "UTA"
If SQL.doSQL("UPDATE [tblUTAImportNew] set abgerechnet=1 where abgerechnetDatum is not null and abgerechnet <> 1", "FMZOLL") Then If SQL.doSQL("UPDATE [tblUTAImportNew] set abgerechnet=1 where abgerechnetDatum is not null and abgerechnet <> 1 And and tblUTAImportNew.Rechnungsdatum = '" & DateTimePicker2.Text & "'", "FMZOLL") Then
PictureBox1.Visible = True PictureBox1.Visible = True
End If End If
Case "MSE" Case "MSE"
If SQL.doSQL("UPDATE [VERAG].[dbo].[tblMSETransactions] Set charged = 1 If SQL.doSQL("UPDATE [VERAG].[dbo].[tblMSETransactions] Set charged = 1
FROM [VERAG].[dbo].[tblMSESettlements] as bills From [VERAG].[dbo].[tblMSESettlements] as bills
inner join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] inner join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id]
inner join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id inner join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id
where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.chargedDatetime is not null and charged <> 1 ") Then where bills.invoice_date = '" & DateTimePicker2.Text & "' and trans.chargedDatetime is not null and charged <> 1 ") Then
PictureBox1.Visible = True PictureBox1.Visible = True
End If End If
Case "IDS"
If SQL.doSQL("UPDATE [VERAG].[dbo].[tblIDSTransactionsNew] Set charged = 1
FROM [VERAG].[dbo].[tblIDSTransactionsNew]
where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' and chargedDatetime is not null and charged <> 1 and tblIDSTransactionsNew.OutletCountryCode <> 740543 ") Then
PictureBox1.Visible = True
End If
Case "IDS_AT"
If SQL.doSQL("UPDATE [VERAG].[dbo].[tblIDSTransactionsNew] Set charged = 1
FROM [VERAG].[dbo].[tblIDSTransactionsNew]
where cast(tblIDSTransactionsNew.YearMonthDay As Date) = '" & DateTimePicker2.Text & "' and chargedDatetime is not null and charged <> 1 and tblIDSTransactionsNew.OutletCountryCode = 740543 ") Then
PictureBox1.Visible = True
End If
Case Else Case Else
MsgBox("Funktion setFaktiuriert für den Lieferant " & Lieferant & " nicht definiert!") MsgBox("Funktion setFaktiuriert für den Lieferant " & Lieferant & " nicht definiert!")
End Select End Select
End Sub End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
@@ -4065,6 +4395,7 @@ Public Class frmMDMDatenverarbetiung
Case "UTA" : setFakturiert(LIEFERANT) Case "UTA" : setFakturiert(LIEFERANT)
Case "MSE" : setFakturiert(LIEFERANT) Case "MSE" : setFakturiert(LIEFERANT)
Case "ASFINAG" : setFakturiert_ASFINAG() Case "ASFINAG" : setFakturiert_ASFINAG()
Case "IDS" : setFakturiert(LIEFERANT) : setFakturiert("IDS_AT")
End Select End Select
End If End If
End Sub End Sub
@@ -4688,4 +5019,38 @@ RabattBerechnen:
End If End If
End Sub End Sub
Private Sub showIDSContextMenu()
If Not ContextMenuStrip1.Items.ContainsKey("IDS") Then
Dim IDS = New ToolStripMenuItem() With {.Text = "IDS", .Name = "IDS", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
ContextMenuStrip1.Items.Add(IDS)
AddHandler IDS.Click, AddressOf mnuItemIDS_Clicked
End If
If Not ContextMenuStrip1.Items.ContainsKey("IDS_AT") Then
Dim idsat = New ToolStripMenuItem() With {.Text = "IDS AT", .Name = "IDS_AT", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler idsat.Click, AddressOf mnuItemIDS_Clicked
ContextMenuStrip1.Items.Add(idsat)
End If
ContextMenuStrip1.Show(Cursor.Position)
End Sub
Private Sub mnuItemIDS_Clicked(sender As Object, e As EventArgs)
ContextMenuStrip1.Hide()
Dim item As ToolStripMenuItem = TryCast(sender, ToolStripMenuItem)
If item IsNot Nothing Then
Dim idsParam As New cIDS()
idsParam.initImportPfade("IDS")
If genRGAtt_IDS(item.Name, idsParam) Then
If Not test Then
setFakturiert(item.Name)
End If
End If
End If
End Sub
End Class End Class

25
VERAG_PROG_ALLGEMEIN/Classes/cAsfinagMaut.vb
View File

@@ -100,4 +100,29 @@ Public Class cAsfinagMaut
End Function End Function
Public ANLAGEN
Dim Dateiname = ""
Public Function initImportPfade() As Boolean
ANLAGEN = cAsfinagMaut.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
Return True
End Function
Public Class Paramter
Shared apiSettingsloaded As Boolean = False
Shared SQL As New VERAG_PROG_ALLGEMEIN.SQL
Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='ASFINAG' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
End Function
End Class
End Class End Class

8
VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb
View File

@@ -44,6 +44,8 @@ Public Class cIDS
Property UStVAn_ID As Object = Nothing Property UStVAn_ID As Object = Nothing
Property VRNumber As Object = Nothing Property VRNumber As Object = Nothing
Property OBONumber As Object = Nothing Property OBONumber As Object = Nothing
Property charged As Boolean = False
Property chargedDatetime As Object = Nothing
Public hasEntry = False Public hasEntry = False
@@ -105,6 +107,8 @@ Public Class cIDS
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VRNumber", VRNumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("VRNumber", VRNumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBONumber", OBONumber)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("OBONumber", OBONumber))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("charged", charged))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chargedDatetime", chargedDatetime))
Return list Return list
End Function End Function
@@ -301,6 +305,8 @@ Public Class cIDS
Public ERROR_PFAD Public ERROR_PFAD
Public ZIEL_PFAD Public ZIEL_PFAD
Public FTP_PFAD Public FTP_PFAD
Public ANLAGEN
Public ARCHIV
Public API_STRING As String Public API_STRING As String
Public API As New DataTable Public API As New DataTable
@@ -313,6 +319,8 @@ Public Class cIDS
ARCHIV_PFAD = cIDS.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) ARCHIV_PFAD = cIDS.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
VERARBEITUNG_PFAD = cIDS.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) VERARBEITUNG_PFAD = cIDS.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
ZIEL_PFAD = cIDS.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) ZIEL_PFAD = cIDS.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
ANLAGEN = cIDS.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
ARCHIV = cIDS.Paramter.GET_PARAM_ByName("ARCHIV", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) AndAlso VERARBEITUNG_PFAD <> "" Then If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) AndAlso VERARBEITUNG_PFAD <> "" Then
System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD) System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)

7
VERAG_PROG_ALLGEMEIN/Classes/cRMC.vb
View File

@@ -27,6 +27,7 @@ Public Class cRMC
Property rmc_archiv As Boolean = False Property rmc_archiv As Boolean = False
Property rmc_fibuNr As Boolean = False Property rmc_fibuNr As Boolean = False
Property rmc_sammelReNr As Object = Nothing Property rmc_sammelReNr As Object = Nothing
Property UStVAn_ID As Object = Nothing
Public hasEntry = False Public hasEntry = False
@@ -66,6 +67,7 @@ Public Class cRMC
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_fibuNr", rmc_fibuNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_fibuNr", rmc_fibuNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_sammelReNr", rmc_sammelReNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_sammelReNr", rmc_sammelReNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_betragMWST", rmc_betragMWST)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_betragMWST", rmc_betragMWST))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
Return list Return list
@@ -194,7 +196,7 @@ Public Class cRMC
End Function End Function
Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, rmc_kdNr As Integer) As Boolean Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, rmc_kdNr As Integer, UStVAn_ID As Integer) As Boolean
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -202,11 +204,12 @@ Public Class cRMC
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reDat", reDat)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reDat", reDat))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_kdNr", rmc_kdNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("rmc_kdNr", rmc_kdNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
Return SQL.doSQLVarList(" Return SQL.doSQLVarList("
UPDATE [tblRMCImport] set rmc_archiv=1, [rmc_archiviertDatum]=GETDATE() UPDATE [tblRMCImport] set rmc_archiv=1, [rmc_archiviertDatum]=GETDATE(),
WHERE cast(rmc_reDatum as date) = @reDat and rmc_reNr = @reNr and rmc_kdNr=@rmc_kdNr WHERE cast(rmc_reDatum as date) = @reDat and rmc_reNr = @reNr and rmc_kdNr=@rmc_kdNr
", "FMZOLL",, list) ", "FMZOLL",, list)

13
VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb
View File

@@ -244,6 +244,8 @@ Public Class cUTA
Property abgerechnetDatum As Object Property abgerechnetDatum As Object
Property abgerechnet As Boolean = False Property abgerechnet As Boolean = False
Property daId As Object Property daId As Object
Property charged As Boolean = False
Property chargedDatetime As Object = Nothing
Public hasEntry = False Public hasEntry = False
@@ -347,6 +349,8 @@ Public Class cUTA
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnetDatum", abgerechnetDatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnetDatum", abgerechnetDatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnet", abgerechnet)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("abgerechnet", abgerechnet))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("daId", daId)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("daId", daId))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("charged", charged))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("chargedDatetime", chargedDatetime))
Return list Return list
End Function End Function
@@ -1193,6 +1197,8 @@ Public Class cUTA
Public ERROR_PFAD Public ERROR_PFAD
Public ZIEL_PFAD Public ZIEL_PFAD
Public FTP_PFAD Public FTP_PFAD
Public ANLAGEN
Public ARCHIV
Public API_STRING As String Public API_STRING As String
Public API As New DataTable Public API As New DataTable
@@ -1205,6 +1211,8 @@ Public Class cUTA
ARCHIV_PFAD = cUTA.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) ARCHIV_PFAD = cUTA.Paramter.GET_PARAM_ByName("ARCHIV_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
VERARBEITUNG_PFAD = cUTA.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) VERARBEITUNG_PFAD = cUTA.Paramter.GET_PARAM_ByName("VERARBEITUNG_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
ZIEL_PFAD = cUTA.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) ZIEL_PFAD = cUTA.Paramter.GET_PARAM_ByName("ZIEL_PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
ANLAGEN = cUTA.Paramter.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
ARCHIV = cUTA.Paramter.GET_PARAM_ByName("ARCHIV", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) AndAlso VERARBEITUNG_PFAD <> "" Then If Not System.IO.Directory.Exists(VERARBEITUNG_PFAD) AndAlso VERARBEITUNG_PFAD <> "" Then
System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD) System.IO.Directory.CreateDirectory(VERARBEITUNG_PFAD)
@@ -1253,7 +1261,7 @@ Public Class cUTA
End Function End Function
Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, uta_kdNr As Integer) As Boolean Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, uta_kdNr As Integer, ustvaId As Integer) As Boolean
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1261,11 +1269,12 @@ Public Class cUTA
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reDat", reDat)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reDat", reDat))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uta_kdNr", uta_kdNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("uta_kdNr", uta_kdNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ustvaId", ustvaId))
Return SQL.doSQLVarList(" Return SQL.doSQLVarList("
UPDATE [tblUTAImportNew] set abgerechnet=1, [abgerechnetDatum]=GETDATE() UPDATE [tblUTAImportNew] set abgerechnet=1, [abgerechnetDatum]=GETDATE(), UStVAn_ID = @ustvaId
WHERE cast(Rechnungsdatum as date) = @reDat and Rechnungsnummer_pro_Lieferland = @reNr and Kundennummer=@uta_kdNr WHERE cast(Rechnungsdatum as date) = @reDat and Rechnungsnummer_pro_Lieferland = @reNr and Kundennummer=@uta_kdNr
", "FMZOLL",, list) ", "FMZOLL",, list)

12
VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb
View File

@@ -13,6 +13,8 @@ Public Class cMSEAPI
Dim apiSettingsloaded As Boolean = False Dim apiSettingsloaded As Boolean = False
Dim test As Boolean = False Dim test As Boolean = False
Dim PDFRECHNUNGENPFAD As String = "" Dim PDFRECHNUNGENPFAD As String = ""
Public ANLAGEN
Public ARCHIV
Sub New(program As String) Sub New(program As String)
@@ -31,12 +33,13 @@ Public Class cMSEAPI
End If End If
PDFRECHNUNGENPFAD = Me.GET_PARAM_ByName("PDFRECHNUNGEN-PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM) PDFRECHNUNGENPFAD = Me.GET_PARAM_ByName("PDFRECHNUNGEN-PFAD", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
ANLAGEN = Me.GET_PARAM_ByName("ANLAGEN", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
ARCHIV = Me.GET_PARAM_ByName("ARCHIV", VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
End If End If
End Sub End Sub
Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String Shared Function GET_PARAM_ByName(tcParam_name, TESTSYSTEM) As String
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='MSE' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM)) Return SQL.getValueTxtBySql("SELECT TOP 1 [Param_value] FROM [tblPartnersystem_Paramter] WHERE Param_system='MSE' AND [Param_name]='" & tcParam_name & "'", , , SQL.GetNewOpenConnectionFMZOLL_SYSTEM(TESTSYSTEM))
@@ -1392,7 +1395,7 @@ Public Class cMSEAPI
End Function End Function
Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, mse_kdNr As Integer, country As String) As Boolean Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As Integer, mse_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean
Try Try
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
@@ -1401,11 +1404,12 @@ Public Class cMSEAPI
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mse_kdNr", mse_kdNr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("mse_kdNr", mse_kdNr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("country", country)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("country", country))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
Return SQL.doSQLVarList(" Return SQL.doSQLVarList("
UPDATE [tblMSEInvoices] set archiv=1, [archiviertDatum]=GETDATE() UPDATE [tblMSEInvoices] set archiv=1, [archiviertDatum]=GETDATE(), UStVAn_ID = @UStVAn_ID
WHERE cast(invoice_date as date) = @reDat and invoice_id = @reNr and customer_number=@mse_kdNr and country = @country WHERE cast(invoice_date as date) = @reDat and invoice_id = @reNr and customer_number=@mse_kdNr and country = @country
", "FMZOLL",, list) ", "FMZOLL",, list)
@@ -1433,6 +1437,7 @@ Public Class cMSEInvoices
Property daId As Object = Nothing Property daId As Object = Nothing
Property archiv As Boolean = False Property archiv As Boolean = False
Property archiviertDatum As Object = Nothing Property archiviertDatum As Object = Nothing
Property UStVAn_ID As Object = Nothing
Public hasEntry = False Public hasEntry = False
@@ -1462,6 +1467,7 @@ Public Class cMSEInvoices
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiv", archiv)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiv", archiv))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiviertDatum", archiviertDatum)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("archiviertDatum", archiviertDatum))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_nr", invoice_nr)) list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("invoice_nr", invoice_nr))
list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
Return list Return list
End Function End Function