Merge branch 'newMaster2024' of https://dev.azure.com/VeragAG/_git/SDL into newMaster2024
This commit is contained in:
@@ -86,6 +86,8 @@ Partial Class usrcntlVollmacht_MDM_EU
|
||||
Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.cbxRMC = 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()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
@@ -196,7 +198,7 @@ Partial Class usrcntlVollmacht_MDM_EU
|
||||
'lblLand
|
||||
'
|
||||
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.Size = New System.Drawing.Size(49, 13)
|
||||
Me.lblLand.TabIndex = 5
|
||||
@@ -590,7 +592,7 @@ Partial Class usrcntlVollmacht_MDM_EU
|
||||
Me.cboLand._allowFreiText = False
|
||||
Me.cboLand._value = ""
|
||||
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.Size = New System.Drawing.Size(89, 21)
|
||||
Me.cboLand.TabIndex = 10
|
||||
@@ -982,7 +984,7 @@ Partial Class usrcntlVollmacht_MDM_EU
|
||||
'CheckedListBox1
|
||||
'
|
||||
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.Size = New System.Drawing.Size(126, 124)
|
||||
Me.CheckedListBox1.TabIndex = 113
|
||||
@@ -1037,7 +1039,7 @@ Partial Class usrcntlVollmacht_MDM_EU
|
||||
'cbxRMC
|
||||
'
|
||||
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.Size = New System.Drawing.Size(50, 17)
|
||||
Me.cbxRMC.TabIndex = 147
|
||||
@@ -1055,12 +1057,47 @@ Partial Class usrcntlVollmacht_MDM_EU
|
||||
Me.cbxPrintDateAndCity.TabIndex = 148
|
||||
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
|
||||
'
|
||||
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.txtAnzahlAusdrucke)
|
||||
Me.Controls.Add(Me.Label22)
|
||||
Me.Controls.Add(Me.cbxPrintDateAndCity)
|
||||
Me.Controls.Add(Me.cbxRMC)
|
||||
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 cbxRMC As CheckBox
|
||||
Friend WithEvents cbxPrintDateAndCity As CheckBox
|
||||
Friend WithEvents Label22 As Label
|
||||
Friend WithEvents txtAnzahlAusdrucke As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
End Class
|
||||
|
||||
@@ -184,12 +184,21 @@ Public Class usrcntlVollmacht_MDM_EU
|
||||
End Sub
|
||||
|
||||
Private Sub cboLand_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboLand.SelectedIndexChanged
|
||||
|
||||
Select Case cboLand._value
|
||||
|
||||
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
|
||||
|
||||
|
||||
@@ -83,6 +83,8 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
|
||||
Me.cbxPrivatfirma = New System.Windows.Forms.CheckBox()
|
||||
Me.txt_GF_vorname = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
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()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
@@ -184,7 +186,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
|
||||
'lblLand
|
||||
'
|
||||
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.Size = New System.Drawing.Size(49, 13)
|
||||
Me.lblLand.TabIndex = 5
|
||||
@@ -601,7 +603,7 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
|
||||
Me.cboLand._allowFreiText = False
|
||||
Me.cboLand._value = ""
|
||||
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.Size = New System.Drawing.Size(89, 21)
|
||||
Me.cboLand.TabIndex = 10
|
||||
@@ -1012,12 +1014,47 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
|
||||
Me.cbxPrintDateAndCity.TabIndex = 145
|
||||
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
|
||||
'
|
||||
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.txtAnzahlAusdrucke)
|
||||
Me.Controls.Add(Me.Label22)
|
||||
Me.Controls.Add(Me.cbxPrintDateAndCity)
|
||||
Me.Controls.Add(Me.cbxPrivatfirma)
|
||||
Me.Controls.Add(Me.cbx_GF_Geburtsland)
|
||||
@@ -1147,4 +1184,6 @@ Partial Class usrcntlVollmacht_MDM_NICHT_EU
|
||||
Friend WithEvents cbxPrivatfirma As CheckBox
|
||||
Friend WithEvents txt_GF_vorname As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents cbxPrintDateAndCity As CheckBox
|
||||
Friend WithEvents txtAnzahlAusdrucke As VERAG_PROG_ALLGEMEIN.MyTextBox
|
||||
Friend WithEvents Label22 As Label
|
||||
End Class
|
||||
|
||||
@@ -180,16 +180,23 @@ Public Class usrcntlVollmacht_MDM_NICHT_EU
|
||||
Select Case cboLand._value
|
||||
|
||||
Case "PL"
|
||||
|
||||
cbxPrintDateAndCity.Checked = False
|
||||
|
||||
|
||||
Case "NL"
|
||||
privatfirma = True
|
||||
Case "HR"
|
||||
privatfirma = True
|
||||
txtAnzahlAusdrucke.Text = 10
|
||||
Case "AT"
|
||||
txtAnzahlAusdrucke.Text = 10
|
||||
Case "LU"
|
||||
txtAnzahlAusdrucke.Text = 5
|
||||
Case "IT"
|
||||
txtAnzahlAusdrucke.Text = 1
|
||||
Case Else
|
||||
privatfirma = False
|
||||
txtAnzahlAusdrucke.Text = 1
|
||||
|
||||
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
@@ -8,8 +8,6 @@ Imports System.Reflection
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports System.Windows.Documents
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
|
||||
Public Class frmFormulare
|
||||
Dim isSingleForm = False
|
||||
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_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
|
||||
@@ -1827,10 +1826,13 @@ Public Class FormularManagerNEU
|
||||
|
||||
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
|
||||
|
||||
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 "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 "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 '
|
||||
@@ -1996,7 +1996,10 @@ Public Class FormularManagerNEU
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
If path <> "" Then striList.Add(path)
|
||||
If path <> "" Then
|
||||
printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, path)
|
||||
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_DE As New VERAG_PROG_ALLGEMEIN.cFirmen(2)
|
||||
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 = ""
|
||||
|
||||
docBez = "VOLLMACHT_" & usrCntl.cboLand._value
|
||||
@@ -2046,6 +2049,7 @@ Public Class FormularManagerNEU
|
||||
|
||||
Select Case fieldName
|
||||
Case "name" : 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 "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_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 "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
|
||||
|
||||
@@ -2117,16 +2129,15 @@ Public Class FormularManagerNEU
|
||||
Next
|
||||
Next
|
||||
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
|
||||
If openWord Then
|
||||
oWord.Visible = True
|
||||
Return New List(Of String)
|
||||
ElseIf printReportElsePDF Then
|
||||
|
||||
oWord.DisplayAlerts = False
|
||||
oWord.
|
||||
oWord.PrintOut()
|
||||
Try
|
||||
oWord.Documents.Close()
|
||||
@@ -2151,7 +2162,9 @@ Public Class FormularManagerNEU
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message)
|
||||
End Try
|
||||
striList.Add(path)
|
||||
|
||||
printMultipleTimes(usrCntl.txtAnzahlAusdrucke.Text, striList, path)
|
||||
|
||||
End If
|
||||
|
||||
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
|
||||
|
||||
Shared Function VM_AT(usrCntl As usrcntlVollmacht_AT) As String
|
||||
@@ -2257,6 +2282,7 @@ Public Class FormularManagerNEU
|
||||
Return DispSendungslisteoListe(AVISO, SENDUNG_LIST,,, RechnugnAn)
|
||||
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
|
||||
' Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim tmpPath = ""
|
||||
|
||||
@@ -868,6 +868,12 @@
|
||||
<Compile Include="mdm\frmDatumsabfrage.vb">
|
||||
<SubType>Form</SubType>
|
||||
</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">
|
||||
<DependentUpon>frmUSTVoffeneAntraege.vb</DependentUpon>
|
||||
</Compile>
|
||||
@@ -3352,6 +3358,9 @@
|
||||
<EmbeddedResource Include="mdm\PLOSE\frmPLOSE_ProductCodes.resx">
|
||||
<DependentUpon>frmPLOSE_ProductCodes.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="mdm\IDS\rptIDS_Anhang.resx">
|
||||
<DependentUpon>rptIDS_Anhang.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="mdm\PLOSE\rptPLOSE_CustomerConsortio.resx">
|
||||
<DependentUpon>rptPLOSE_CustomerConsortio.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
|
||||
@@ -404,7 +404,7 @@ Public Class frmMDM_USTVAntrag
|
||||
Next
|
||||
|
||||
'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
|
||||
Return True
|
||||
@@ -460,7 +460,7 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
|
||||
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
|
||||
@@ -528,7 +528,7 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
|
||||
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
|
||||
@@ -595,7 +595,7 @@ Public Class frmMDM_USTVAntrag
|
||||
End If
|
||||
|
||||
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
|
||||
'tblUStVPositionen
|
||||
End If
|
||||
|
||||
@@ -17,7 +17,7 @@ Public Class usrCntlUSTV
|
||||
Public kdNr As Integer = -1
|
||||
Dim loaded As Boolean = False
|
||||
|
||||
Sub init(Optional kdNr = -1)
|
||||
Sub init(Optional kdNr As Integer = -1)
|
||||
pnlFilter.AutoScroll = False
|
||||
btnKundendatenaktualisieren.Enabled = False
|
||||
' MsgBox(kdNr)
|
||||
|
||||
@@ -1959,6 +1959,8 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
.DataSource.Columns("bnk_KundenNr").DefaultValue = KUNDE.KundenNr
|
||||
|
||||
.SelectionMode = DataGridViewSelectionMode.CellSelect
|
||||
|
||||
.Columns(0).Visible = False
|
||||
.Columns(5).Visible = False
|
||||
If archivierteDSAnzeigen Then
|
||||
|
||||
1050
SDL/mdm/IDS/rptIDS_Anhang.Designer.vb
generated
Normal file
1050
SDL/mdm/IDS/rptIDS_Anhang.Designer.vb
generated
Normal file
File diff suppressed because it is too large
Load Diff
132
SDL/mdm/IDS/rptIDS_Anhang.resx
Normal file
132
SDL/mdm/IDS/rptIDS_Anhang.resx
Normal file
File diff suppressed because one or more lines are too long
7
SDL/mdm/IDS/rptIDS_Anhang.vb
Normal file
7
SDL/mdm/IDS/rptIDS_Anhang.vb
Normal 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
25
SDL/mdm/frmMDMDatenverarbetiung.Designer.vb
generated
@@ -48,6 +48,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.Panel1 = 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.lblTTRSum = New System.Windows.Forms.Label()
|
||||
Me.txtTTRSum = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
@@ -80,7 +81,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
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.Panel5.SuspendLayout()
|
||||
CType(Me.PictureBox5, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -374,6 +375,16 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.pnlIDS.TabIndex = 50
|
||||
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
|
||||
'
|
||||
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.TabIndex = 0
|
||||
'
|
||||
'Button10
|
||||
'ContextMenuStrip1
|
||||
'
|
||||
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
|
||||
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
|
||||
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
|
||||
'
|
||||
'frmMDMDatenverarbetiung
|
||||
'
|
||||
@@ -866,4 +872,5 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Friend WithEvents pnlIDS As Panel
|
||||
Friend WithEvents btnRechenwertesetzen As Button
|
||||
Friend WithEvents Button10 As Button
|
||||
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
|
||||
End Class
|
||||
|
||||
@@ -117,6 +117,9 @@
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</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" />
|
||||
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
Imports System.Data.OleDb
|
||||
Imports System.IO
|
||||
Imports Challenge
|
||||
Imports MDM_Worker
|
||||
Imports TAlex.WPF.Helpers
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
@@ -28,9 +29,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Case "PLOSE" : genSummenbericht_PLOSE()
|
||||
Case "ASFINAG" : genSummenbericht_ASFINAG()
|
||||
Case "UTA" : genSummenbericht_UTA()
|
||||
Case "IDS"
|
||||
genSummenbericht_IDS(17)
|
||||
genSummenbericht_IDS(21)
|
||||
Case "IDS" : genSummenbericht_IDS(17) : genSummenbericht_IDS(21)
|
||||
Case "MSE" : genSummenbericht_MSE()
|
||||
Case Else : MsgBox("Nicht verfügbar!")
|
||||
End Select
|
||||
@@ -98,26 +97,33 @@ Public Class frmMDMDatenverarbetiung
|
||||
End If
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE"
|
||||
If genRGAtt_PLOSE() Then
|
||||
Dim ploseParam As New cPLOSE
|
||||
ploseParam.initImportPfade()
|
||||
If genRGAtt_PLOSE(ploseParam) Then
|
||||
If MautD_Befuellen() Then
|
||||
setFakturiert(LIEFERANT)
|
||||
End If
|
||||
End If
|
||||
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
|
||||
setFakturiert(LIEFERANT)
|
||||
End If
|
||||
End If
|
||||
Case "IDS"
|
||||
MsgBox("Nicht verfügbar!")
|
||||
showIDSContextMenu()
|
||||
Case "MSE"
|
||||
If genRGAtt_MSE() Then
|
||||
Dim mseParam As New cMSEAPI(LIEFERANT)
|
||||
If genRGAtt_MSE(mseParam) Then
|
||||
If Not test AndAlso MautD_Befuellen() Then
|
||||
setFakturiert(LIEFERANT)
|
||||
End If
|
||||
End If
|
||||
Case "ASFINAG"
|
||||
Dim asfinagParam As New cAsfinagMaut
|
||||
asfinagParam.initImportPfade()
|
||||
Dim abrechnungsDatum As DateTime = Now()
|
||||
If datum = Nothing Then
|
||||
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")
|
||||
|
||||
If genRGAtt_ASFINAG(abrechnungsDatum, datum, inputKdNr) Then
|
||||
If genRGAtt_ASFINAG(abrechnungsDatum, datum, inputKdNr, asfinagParam) Then
|
||||
MautD_Befuellen(inputKdNr)
|
||||
End If
|
||||
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_ohne_Rabatt as KundeOhneR on KundeOhneR.CustomerCode = trans.CustomerCode
|
||||
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()
|
||||
|
||||
@@ -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")
|
||||
'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
|
||||
@@ -1153,7 +1159,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
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 = "F:\FMZoll\Maut\PLOSE\" & Now.ToShortDateString
|
||||
Dim dir = ploseParam.ANLAGEN & Now.ToShortDateString
|
||||
|
||||
If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
|
||||
Directory.CreateDirectory(dir)
|
||||
@@ -1208,7 +1214,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function genRGAtt_UTA() As Boolean
|
||||
Function genRGAtt_UTA(utaParam As cUTA) As Boolean
|
||||
Dim top = ""
|
||||
'top = " TOP 20 "
|
||||
Dim SQLStr = " SELECT Kundennummer AS [Customer ID], KundenNr AS [Customer Nr], UTAExportCSV,Rechnungsdruck
|
||||
@@ -1228,7 +1234,8 @@ Public Class frmMDMDatenverarbetiung
|
||||
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 = "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(":", "")
|
||||
Directory.CreateDirectory(dir)
|
||||
@@ -1270,19 +1277,19 @@ Public Class frmMDMDatenverarbetiung
|
||||
Next
|
||||
|
||||
|
||||
For Each UTA In dt_Main.Rows
|
||||
For Each uta In dt_Main.Rows
|
||||
|
||||
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_RECHNUNG_BySPEDBUCH(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
|
||||
|
||||
genUTAAttachmentByKdNr(UTA("Customer Nr"), UTA("Customer ID"), dir, datPloseAnhang.Value)
|
||||
genUTAAttachmentByKdNr(uta("Customer Nr"), uta("Customer ID"), dir, datPloseAnhang.Value)
|
||||
|
||||
If verarbOK Then
|
||||
'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
|
||||
|
||||
@@ -1299,7 +1306,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
' ANHÄNGE WERDEN NCIHT BENÖTIGT::
|
||||
'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)
|
||||
For Each f In Directory.GetFiles(dirAnhang)
|
||||
File.Delete(f)
|
||||
@@ -1324,7 +1331,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function genRGAtt_MSE() As Boolean
|
||||
Function genRGAtt_MSE(mseParam As cMSEAPI) As Boolean
|
||||
Dim top = ""
|
||||
'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
|
||||
@@ -1348,7 +1355,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
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, "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
|
||||
dir &= "_" & Now.ToShortTimeString.Replace(":", "")
|
||||
@@ -1435,7 +1442,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
' ANHÄNGE WERDEN NCIHT BENÖTIGT::
|
||||
'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)
|
||||
For Each f In Directory.GetFiles(dirAnhang)
|
||||
File.Delete(f)
|
||||
@@ -1461,7 +1468,155 @@ Public Class frmMDMDatenverarbetiung
|
||||
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
|
||||
MsgBox("Bitte abgerechnete Daten auswählen!")
|
||||
@@ -1508,7 +1663,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
End If
|
||||
|
||||
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
|
||||
Directory.CreateDirectory(dir)
|
||||
@@ -1609,7 +1764,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
' Next
|
||||
'End If
|
||||
'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
|
||||
Directory.CreateDirectory(dirCSV)
|
||||
@@ -2614,6 +2769,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
sumNettoKat += sumNetto
|
||||
sumMWSTKat += sumMWST
|
||||
sumBruttoKat += sumBrutto
|
||||
|
||||
sumNetto = 0
|
||||
sumMWST = 0
|
||||
sumBrutto = 0
|
||||
@@ -2624,9 +2780,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
cntKat += 1
|
||||
End Sub
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
'sumNettoGes += sumNettoKat
|
||||
'sumMWSTGes += sumMWSTKat
|
||||
'sumBruttoGes += sumBruttoKat
|
||||
|
||||
sumNettoKat = 0
|
||||
sumMWSTKat = 0
|
||||
sumBruttoKat = 0
|
||||
@@ -2669,6 +2823,169 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
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)
|
||||
Try
|
||||
@@ -2853,7 +3170,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Case "UTA" : OffertenNr = 30 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4823
|
||||
Case "MSE" : OffertenNr = 23 : Abfertigungsart = 10 : SPEDBUCH.FilialenNr = 4821
|
||||
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
|
||||
|
||||
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 "MSE" : OffertenNr = 23 : 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
|
||||
|
||||
@@ -3234,56 +3551,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
|
||||
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
|
||||
'alles steuerfrei also Brutto = Netto
|
||||
@@ -3317,7 +3584,59 @@ Public Class frmMDMDatenverarbetiung
|
||||
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
|
||||
'5970 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte17")
|
||||
@@ -3355,7 +3674,6 @@ Public Class frmMDMDatenverarbetiung
|
||||
'6290 qryOffPos.Close
|
||||
'6300 Set qryOffPos = Nothing
|
||||
|
||||
Case "IDS AUT"
|
||||
|
||||
' Case 21 'Diesel IDS AT
|
||||
'6320 Set qryOffPos = dbs.QueryDefs("qryIDSDieselofferte21")
|
||||
@@ -4014,7 +4332,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Function MautD_Befuellen(Optional kdNr = "") As Boolean
|
||||
Function MautD_Befuellen(Optional kdNr = "", Optional _Lieferant = "") As Boolean
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : deleteMautD("PLOSE") : Return genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
|
||||
Case "ASFINAG" : deleteMautD("AT") : Return genASFINAGInsertMautAT(kdNr)
|
||||
@@ -4034,23 +4352,35 @@ Public Class frmMDMDatenverarbetiung
|
||||
PictureBox1.Visible = True
|
||||
End If
|
||||
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
|
||||
End If
|
||||
Case "MSE"
|
||||
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].[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
|
||||
PictureBox1.Visible = True
|
||||
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
|
||||
MsgBox("Funktion setFaktiuriert für den Lieferant " & Lieferant & " nicht definiert!")
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
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 "MSE" : setFakturiert(LIEFERANT)
|
||||
Case "ASFINAG" : setFakturiert_ASFINAG()
|
||||
Case "IDS" : setFakturiert(LIEFERANT) : setFakturiert("IDS_AT")
|
||||
End Select
|
||||
End If
|
||||
End Sub
|
||||
@@ -4688,4 +5019,38 @@ RabattBerechnen:
|
||||
End If
|
||||
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user