KuundenAdresse Zusatz; MDM: UTA-Mautberichterstellung; VZPreise;Teleotec-Doks;MA-AccessCode GRN AT
This commit is contained in:
129
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb
generated
129
SDL/mdm/PLOSE/rptPLOSE_Anhang.Designer.vb
generated
File diff suppressed because one or more lines are too long
File diff suppressed because it is too large
Load Diff
63
SDL/mdm/frmMDMDatenverarbetiung.Designer.vb
generated
63
SDL/mdm/frmMDMDatenverarbetiung.Designer.vb
generated
@@ -35,6 +35,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.dat_Sum_Bis = New System.Windows.Forms.DateTimePicker()
|
||||
Me.lbl = New System.Windows.Forms.Label()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.lblProzPruef = New System.Windows.Forms.Label()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.pic = New System.Windows.Forms.PictureBox()
|
||||
Me.Panel3 = New System.Windows.Forms.Panel()
|
||||
@@ -60,7 +61,8 @@ 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.lblProzPruef = New System.Windows.Forms.Label()
|
||||
Me.Button7 = New System.Windows.Forms.Button()
|
||||
Me.Panel4 = New System.Windows.Forms.Panel()
|
||||
Me.pnl.SuspendLayout()
|
||||
Me.FlowLayoutPanel.SuspendLayout()
|
||||
Me.Panel1.SuspendLayout()
|
||||
@@ -69,17 +71,15 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.Panel3.SuspendLayout()
|
||||
Me.Panel2.SuspendLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.Panel4.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'pnl
|
||||
'
|
||||
Me.pnl.Controls.Add(Me.Panel4)
|
||||
Me.pnl.Controls.Add(Me.FlowLayoutPanel)
|
||||
Me.pnl.Controls.Add(Me.btnDatenLaden)
|
||||
Me.pnl.Controls.Add(Me.Label1)
|
||||
Me.pnl.Controls.Add(Me.dat_Sum_Von)
|
||||
Me.pnl.Controls.Add(Me.Label45)
|
||||
Me.pnl.Controls.Add(Me.Label46)
|
||||
Me.pnl.Controls.Add(Me.dat_Sum_Bis)
|
||||
Me.pnl.Controls.Add(Me.lbl)
|
||||
Me.pnl.Cursor = System.Windows.Forms.Cursors.Default
|
||||
Me.pnl.Dock = System.Windows.Forms.DockStyle.Top
|
||||
@@ -95,6 +95,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.FlowLayoutPanel.BackColor = System.Drawing.Color.FloralWhite
|
||||
Me.FlowLayoutPanel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.btn)
|
||||
Me.FlowLayoutPanel.Controls.Add(Me.Button7)
|
||||
Me.FlowLayoutPanel.Location = New System.Drawing.Point(139, 37)
|
||||
Me.FlowLayoutPanel.Name = "FlowLayoutPanel"
|
||||
Me.FlowLayoutPanel.Size = New System.Drawing.Size(840, 31)
|
||||
@@ -134,7 +135,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
'dat_Sum_Von
|
||||
'
|
||||
Me.dat_Sum_Von.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dat_Sum_Von.Location = New System.Drawing.Point(139, 74)
|
||||
Me.dat_Sum_Von.Location = New System.Drawing.Point(143, 6)
|
||||
Me.dat_Sum_Von.Name = "dat_Sum_Von"
|
||||
Me.dat_Sum_Von.Size = New System.Drawing.Size(103, 20)
|
||||
Me.dat_Sum_Von.TabIndex = 22
|
||||
@@ -142,7 +143,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
'Label45
|
||||
'
|
||||
Me.Label45.AutoSize = True
|
||||
Me.Label45.Location = New System.Drawing.Point(245, 77)
|
||||
Me.Label45.Location = New System.Drawing.Point(249, 9)
|
||||
Me.Label45.Name = "Label45"
|
||||
Me.Label45.Size = New System.Drawing.Size(23, 13)
|
||||
Me.Label45.TabIndex = 25
|
||||
@@ -151,7 +152,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
'Label46
|
||||
'
|
||||
Me.Label46.AutoSize = True
|
||||
Me.Label46.Location = New System.Drawing.Point(13, 77)
|
||||
Me.Label46.Location = New System.Drawing.Point(13, 9)
|
||||
Me.Label46.Name = "Label46"
|
||||
Me.Label46.Size = New System.Drawing.Size(119, 13)
|
||||
Me.Label46.TabIndex = 23
|
||||
@@ -160,7 +161,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
'dat_Sum_Bis
|
||||
'
|
||||
Me.dat_Sum_Bis.Format = System.Windows.Forms.DateTimePickerFormat.[Short]
|
||||
Me.dat_Sum_Bis.Location = New System.Drawing.Point(274, 74)
|
||||
Me.dat_Sum_Bis.Location = New System.Drawing.Point(278, 6)
|
||||
Me.dat_Sum_Bis.Name = "dat_Sum_Bis"
|
||||
Me.dat_Sum_Bis.Size = New System.Drawing.Size(103, 20)
|
||||
Me.dat_Sum_Bis.TabIndex = 24
|
||||
@@ -171,7 +172,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.lbl.Font = New System.Drawing.Font("Microsoft Sans Serif", 10.0!, System.Drawing.FontStyle.Bold)
|
||||
Me.lbl.Location = New System.Drawing.Point(13, 13)
|
||||
Me.lbl.Name = "lbl"
|
||||
Me.lbl.Size = New System.Drawing.Size(246, 25)
|
||||
Me.lbl.Size = New System.Drawing.Size(183, 17)
|
||||
Me.lbl.TabIndex = 0
|
||||
Me.lbl.Text = "MDM Datenverarbeitung"
|
||||
'
|
||||
@@ -200,6 +201,15 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.Panel1.Size = New System.Drawing.Size(1163, 114)
|
||||
Me.Panel1.TabIndex = 2
|
||||
'
|
||||
'lblProzPruef
|
||||
'
|
||||
Me.lblProzPruef.Location = New System.Drawing.Point(63, 92)
|
||||
Me.lblProzPruef.Name = "lblProzPruef"
|
||||
Me.lblProzPruef.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblProzPruef.TabIndex = 41
|
||||
Me.lblProzPruef.Text = "0%"
|
||||
Me.lblProzPruef.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
'
|
||||
'PictureBox1
|
||||
'
|
||||
Me.PictureBox1.BackgroundImage = Global.SDL.My.Resources.Resources.ok
|
||||
@@ -316,7 +326,7 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.cbx.AutoSize = True
|
||||
Me.cbx.Location = New System.Drawing.Point(13, 73)
|
||||
Me.cbx.Name = "cbx"
|
||||
Me.cbx.Size = New System.Drawing.Size(110, 21)
|
||||
Me.cbx.Size = New System.Drawing.Size(103, 17)
|
||||
Me.cbx.TabIndex = 42
|
||||
Me.cbx.Text = "Prüfergebnis OK"
|
||||
Me.cbx.UseVisualStyleBackColor = True
|
||||
@@ -504,14 +514,27 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.MyDatagridview1.Size = New System.Drawing.Size(1163, 577)
|
||||
Me.MyDatagridview1.TabIndex = 0
|
||||
'
|
||||
'lblProzPruef
|
||||
'Button7
|
||||
'
|
||||
Me.lblProzPruef.Location = New System.Drawing.Point(63, 92)
|
||||
Me.lblProzPruef.Name = "lblProzPruef"
|
||||
Me.lblProzPruef.Size = New System.Drawing.Size(69, 13)
|
||||
Me.lblProzPruef.TabIndex = 41
|
||||
Me.lblProzPruef.Text = "0%"
|
||||
Me.lblProzPruef.TextAlign = System.Drawing.ContentAlignment.TopRight
|
||||
Me.Button7.BackColor = System.Drawing.Color.FloralWhite
|
||||
Me.Button7.FlatStyle = System.Windows.Forms.FlatStyle.Flat
|
||||
Me.Button7.Location = New System.Drawing.Point(129, 3)
|
||||
Me.Button7.Name = "Button7"
|
||||
Me.Button7.Size = New System.Drawing.Size(120, 23)
|
||||
Me.Button7.TabIndex = 1
|
||||
Me.Button7.Text = "UTA"
|
||||
Me.Button7.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Panel4
|
||||
'
|
||||
Me.Panel4.Controls.Add(Me.Label46)
|
||||
Me.Panel4.Controls.Add(Me.dat_Sum_Bis)
|
||||
Me.Panel4.Controls.Add(Me.Label45)
|
||||
Me.Panel4.Controls.Add(Me.dat_Sum_Von)
|
||||
Me.Panel4.Location = New System.Drawing.Point(0, 67)
|
||||
Me.Panel4.Name = "Panel4"
|
||||
Me.Panel4.Size = New System.Drawing.Size(583, 33)
|
||||
Me.Panel4.TabIndex = 28
|
||||
'
|
||||
'frmMDMDatenverarbetiung
|
||||
'
|
||||
@@ -537,6 +560,8 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Me.Panel2.ResumeLayout(False)
|
||||
Me.Panel2.PerformLayout()
|
||||
CType(Me.MyDatagridview1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.Panel4.ResumeLayout(False)
|
||||
Me.Panel4.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
@@ -578,4 +603,6 @@ Partial Class frmMDMDatenverarbetiung
|
||||
Friend WithEvents pic As PictureBox
|
||||
Friend WithEvents Button6 As Button
|
||||
Friend WithEvents lblProzPruef As Label
|
||||
Friend WithEvents Button7 As Button
|
||||
Friend WithEvents Panel4 As Panel
|
||||
End Class
|
||||
|
||||
@@ -1,5 +1,7 @@
|
||||
Imports System.Data.OleDb
|
||||
Imports System.IO
|
||||
Imports com.sun.jdi
|
||||
Imports DAKOSY_Worker.NichtAbschliessendeFestsetzung
|
||||
|
||||
Public Class frmMDMDatenverarbetiung
|
||||
|
||||
@@ -25,6 +27,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : genSummenbericht_PLOSE()
|
||||
Case Else : MsgBox("Nicht verfügbar!")
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
@@ -38,6 +41,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
Dim pruef As Boolean = False
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : pruef = pruefData_PLOSE()
|
||||
Case Else : MsgBox("Nicht verfügbar!") : Exit Sub
|
||||
End Select
|
||||
|
||||
cbx.Checked = pruef
|
||||
@@ -62,6 +66,7 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Select Case LIEFERANT
|
||||
Case "PLOSE" : initDgv_PLOSE()
|
||||
Case "UTA" : initDgv_UTA()
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
@@ -74,6 +79,12 @@ Public Class frmMDMDatenverarbetiung
|
||||
setFakturiertPLOSE()
|
||||
End If
|
||||
End If
|
||||
Case "UTA"
|
||||
If genRGAtt_UTA() Then
|
||||
'If MautD_Befuellen() Then
|
||||
' setFakturiertUTA()
|
||||
'End If
|
||||
End If
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
@@ -258,6 +269,89 @@ Public Class frmMDMDatenverarbetiung
|
||||
End With
|
||||
|
||||
End Sub
|
||||
Sub initDgv_UTA()
|
||||
With MyDatagridview1
|
||||
.Columns.Clear()
|
||||
Exit Sub
|
||||
'MsgBox(.sql)
|
||||
|
||||
.SET_SQL(" SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort,Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart, tblUTAImport.Fakturierwarenart
|
||||
FROM tblUTAFakturierwarenarten
|
||||
INNER JOIN (((Adressen INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer)
|
||||
INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr)
|
||||
INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart
|
||||
group by Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort, Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart,tblUTAImport.Fakturierwarenart", "FMZOLL")
|
||||
.LOAD()
|
||||
'MsgBox(.GET_SQL())
|
||||
If .Columns.Count > 0 Then
|
||||
|
||||
'.Columns("plose_POLSEKundennummer").HeaderText = "PLOSE KdNr"
|
||||
'.Columns("plose_ProduktCode").HeaderText = "ProduktCode"
|
||||
'.Columns("plose_Produktbeschreibung").HeaderText = "Beschreibung"
|
||||
'.Columns("plose_Produktbeschreibung").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
|
||||
'.Columns("plose_Menge").HeaderText = "Menge"
|
||||
'.Columns("plose_Preis").HeaderText = "Preis"
|
||||
'.Columns("plose_NettobetragWaehrungAbbuchung").HeaderText = "Netto"
|
||||
'.Columns("plose_MWSTBetragWaehrungAbbuchung").HeaderText = "MWST"
|
||||
'.Columns("plose_BruttobetragWaehrungAbbuchung").HeaderText = "Brutto"
|
||||
|
||||
'.Columns("VERAGLeistungsNr").ReadOnly = False
|
||||
'.Columns("VERAGKdNr").ReadOnly = False
|
||||
|
||||
'For Each r As DataGridViewColumn In .Columns
|
||||
' If r.Name = "VERAGLeistungsNr" Or r.Name = "VERAGKdNr" Then
|
||||
' r.ReadOnly = False
|
||||
' Else
|
||||
' r.ReadOnly = True
|
||||
' End If
|
||||
'Next
|
||||
|
||||
|
||||
'Dim c As New DataGridViewTextBoxColumn
|
||||
'c.Name = "VERAGKdNr"
|
||||
'c.HeaderText = "VERAG KdNr"
|
||||
'c.Width = 100
|
||||
'.Columns.Insert(1, c)
|
||||
|
||||
'c = New DataGridViewTextBoxColumn
|
||||
'c.Name = "VERAGLeistungsNr"
|
||||
'c.HeaderText = "VERAG/PLOSE LeistungsNr."
|
||||
'c.Width = 100
|
||||
'.Columns.Insert(2, c)
|
||||
|
||||
'c = New DataGridViewTextBoxColumn
|
||||
'c.Name = "KundeOffertenNr"
|
||||
'c.HeaderText = "Kunde OffertenNr."
|
||||
'c.Width = 100
|
||||
'.Columns.Insert(3, c)
|
||||
|
||||
'c = New DataGridViewTextBoxColumn
|
||||
'c.Name = "KundeLeistungsNr"
|
||||
'c.HeaderText = "Kunde LeistungsNr."
|
||||
'c.Width = 100
|
||||
'.Columns.Insert(4, c)
|
||||
|
||||
|
||||
|
||||
.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells
|
||||
|
||||
End If
|
||||
|
||||
'Dim sumBto As Double = 0
|
||||
'Dim sumNto As Double = 0
|
||||
'For Each r As DataGridViewRow In .Rows
|
||||
' sumBto += If(IsNumeric(r.Cells("plose_BruttobetragWaehrungAbbuchung").Value), CDbl(r.Cells("plose_BruttobetragWaehrungAbbuchung").Value), 0)
|
||||
' sumNto += If(IsNumeric(r.Cells("plose_NettobetragWaehrungAbbuchung").Value), CDbl(r.Cells("plose_NettobetragWaehrungAbbuchung").Value), 0)
|
||||
'Next
|
||||
|
||||
'txtAnzahl.Text = .Rows.Count
|
||||
'txtPruefsummeNetto.Text = CDbl(sumNto).ToString("C2")
|
||||
'txtPruefsummeBrutto.Text = CDbl(sumBto).ToString("C2")
|
||||
.ClearSelection()
|
||||
|
||||
End With
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
|
||||
@@ -279,9 +373,15 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
Select Case Me.LIEFERANT
|
||||
Case "PLOSE"
|
||||
Panel4.Visible = True
|
||||
Dim c As New usrCntlMDMDatenverarbeitungAuswertungen_PLOSE(Me)
|
||||
Panel3.Controls.Add(c)
|
||||
c.Dock = DockStyle.Fill
|
||||
Case "UTA"
|
||||
Panel4.Visible = False
|
||||
'Dim c As New usrCntlMDMDatenverarbeitungAuswertungen_UTA(Me)
|
||||
'Panel3.Controls.Add(c)
|
||||
'c.Dock = DockStyle.Fill
|
||||
End Select
|
||||
|
||||
init()
|
||||
@@ -353,6 +453,90 @@ Public Class frmMDMDatenverarbetiung
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Function genRGAtt_UTA() As Boolean
|
||||
Dim top = ""
|
||||
'top = " TOP 20 "
|
||||
Dim SQLStr = " SELECT " & top & " Kundennummer AS [Customer ID], KundenNr AS [Customer Nr], UTAExportCSV,Rechnungsdruck
|
||||
FROM tblUTAFakturierwarenarten
|
||||
INNER JOIN (((Adressen INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer)
|
||||
INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr)
|
||||
INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart
|
||||
group by Kundennummer, KundenNr, UTAExportCSV,Rechnungsdruck
|
||||
"
|
||||
'Dim SQLStr = " SELECT TOP 3 [Customer ID],[Customer Nr], UTAExportCSV,Rechnungsdruck , sum( Gesamtbetrag_Brutto_in_Darstellwährung )
|
||||
' FROM(
|
||||
' SELECT Kundennummer AS [Customer ID], KundenNr AS [Customer Nr], UTAExportCSV,Rechnungsdruck , ( Gesamtbetrag_Brutto_in_Darstellwährung )
|
||||
' FROM tblUTAImport
|
||||
' INNER JOIN Adressen ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer
|
||||
' INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr
|
||||
' INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)
|
||||
' INNER JOIN tblUTAFakturierwarenarten ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart
|
||||
' ) as T1 /*WHERE Gesamtbetrag_Brutto_in_Darstellwährung <>0*/
|
||||
' group by [Customer ID],[Customer Nr], UTAExportCSV,Rechnungsdruck
|
||||
' "
|
||||
Dim dt_Main As DataTable = SQL.loadDgvBySql_Param(SQLStr, "FMZOLL", 1200)
|
||||
'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
|
||||
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 = "F:\FMZoll\Maut\UTA\Archiv\" & Now.ToShortDateString
|
||||
|
||||
If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
|
||||
Directory.CreateDirectory(dir)
|
||||
For Each R_PLOSE In dt_Main.Rows
|
||||
|
||||
Dim SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
|
||||
Dim verarbOK = True
|
||||
' If Not genUTA_SPEDBUCH_ByKdNr(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, SPEDBUCH) Then verarbOK = False
|
||||
' If Not genUTA_RECHNUNG_BySPEDBUCH(R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), SPEDBUCH, dat_Sum_Von.Value, dat_Sum_Bis.Value) Then verarbOK = False
|
||||
genUTAAttachmentByKdNr(R_PLOSE("Customer Nr"), R_PLOSE("Customer ID"), dir, datPloseAnhang.Value) 'R_PLOSE("AdressenNr"), R_PLOSE("PLOSEKundenNr"), dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString, dir)
|
||||
|
||||
If verarbOK Then
|
||||
'UPDATE Fakturiert
|
||||
' SQL.doSQL("UPDATE tblPLOSE_Details SET plose_FakturiertDatum=GETDATE() WHERE plose_Fakturiert = 0 AND plose_DatumTransaktion between '" & dat_Sum_Von.Value.ToShortDateString & "' and '" & dat_Sum_Bis.Value.ToShortDateString & "' AND plose_POLSEKundennummer='" & R_PLOSE("PLOSEKundenNr") & "' ", "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
|
||||
|
||||
' ANHÄNGE WERDEN NCIHT BENÖTIGT::
|
||||
'Alle Alangen im foglenden VZ löschen und die aktuellen kopieren
|
||||
Dim dirAnhang = "F:\FMZoll\Maut\UTA\Anlagen\"
|
||||
If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
|
||||
For Each f In Directory.GetFiles(dirAnhang)
|
||||
File.Delete(f)
|
||||
Next
|
||||
End If
|
||||
If Not Directory.Exists(dirAnhang) Then Directory.CreateDirectory(dirAnhang)
|
||||
|
||||
For Each f In Directory.GetFiles(dir)
|
||||
File.Copy(f, dirAnhang & (New FileInfo(f)).Name)
|
||||
Next
|
||||
|
||||
'IN FMZOLL / DB MautD einfügen --> Mautbericht
|
||||
'genPLOSEInsertMautD(dat_Sum_Von.Value.ToShortDateString, dat_Sum_Bis.Value.ToShortDateString)
|
||||
|
||||
|
||||
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 genPLOSEInsertMautD(von As Date, bis As Date) As Boolean
|
||||
Try
|
||||
@@ -684,6 +868,197 @@ Public Class frmMDMDatenverarbetiung
|
||||
End Try
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
Function genUTAAttachmentByKdNr(KdNr As String, UTAKdNr As String, dir As String, bis As Date) ', PLOSEKundenNr As String, von As Date, bis As Date, dir As String)
|
||||
Try
|
||||
|
||||
Dim displayFilter = False
|
||||
Dim sqlstr As String = ""
|
||||
|
||||
sqlstr &= "
|
||||
SELECT qryUTA_Fakturierungspositionen.KundenNr AS [Customer Nr], qryUTA_Fakturierungspositionen.Kundennummer AS [Customer ID], qryUTA_Fakturierungspositionen.[Name 1] AS [Customer name],
|
||||
cast([Belegdatum] + ' ' + dbo.timeserial(Left([Lieferzeit],2) , right(Left([Lieferzeit],4),2) , Right([Lieferzeit],2)) as datetime) AS [Transaction Date],
|
||||
qryUTA_Fakturierungspositionen.Lieferzeit AS [Transaction Time], qryUTA_Fakturierungspositionen.Lieferland AS [Transaction Country], qryUTA_Fakturierungspositionen.Warenart AS [Product description], qryUTA_Fakturierungspositionen.Fakturierwarenart AS [Product Description ID], qryUTA_Fakturierungspositionen.Kartentyp AS [Card Type], qryUTA_Fakturierungspositionen.Kartennummer AS [Card number],
|
||||
isnull([KFZ_Kennzeichen_komprimiert],isnull([KFZ_Kennzeichen],isnull([Prägetext_i_d_R_KFZ_Kennzeichen],''))) AS LicencePlateNumber, qryUTA_Fakturierungspositionen.Autobahnauffahrt AS [Entry Terminal/Direction], qryUTA_Fakturierungspositionen.Autobahnausfahrt AS [Exit Terminal Description], qryUTA_Fakturierungspositionen.Gesamtbetrag_Brutto_in_Darstellwährung AS [Transaction Amount ( EUR )]
|
||||
FROM
|
||||
(SELECT Adressen.AdressenNr, Adressen.[Name 1], Adressen.LandKz, Adressen.Ort, Adressen.UTAExportCSV, Adressen.Rechnungsdruck, Offertenpositionen.KundenNr, Offertenpositionen.OffertenNr, Offertenpositionen.LeistungsNr, Offertenpositionen.LeistungsBez, tblUTAFakturierwarenarten.Warenart, tblUTAImport.*
|
||||
FROM tblUTAFakturierwarenarten INNER JOIN (((Adressen INNER JOIN tblUTAImport ON Adressen.UTAKundenNr = tblUTAImport.Kundennummer) INNER JOIN Offertenpositionen ON Adressen.AdressenNr = Offertenpositionen.KundenNr) INNER JOIN tblUTALeistungen ON (tblUTALeistungen.VERAG_LeistungsNr = Offertenpositionen.LeistungsNr) AND (tblUTALeistungen.VERAG_OffertenNr = Offertenpositionen.OffertenNr) AND (tblUTAImport.Lieferland = tblUTALeistungen.Lieferland) AND (tblUTAImport.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart)) ON tblUTAFakturierwarenarten.Fakturierwarenart = tblUTALeistungen.Fakturierwarenart
|
||||
WHERE Offertenpositionen.KundenNr='" & KdNr & "'
|
||||
) as qryUTA_Fakturierungspositionen
|
||||
WHERE (((qryUTA_Fakturierungspositionen.Gesamtbetrag_Brutto_in_Darstellwährung)<>0))
|
||||
order by LicencePlateNumber, [Card Type]
|
||||
"
|
||||
|
||||
' sqlstr &= " group by plose_ProduktCode"
|
||||
' sqlstr &= " order by plp_Land, plose_DatumTransaktion"
|
||||
|
||||
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 rptPLOSE_Anhang
|
||||
|
||||
rpt.DataSource = dt
|
||||
|
||||
rpt.txtKunde.Text = KdNr & " " & New VERAG_PROG_ALLGEMEIN.cAdressen(KdNr).FullName
|
||||
rpt.lblRgDatum.Text = datPloseAnhang.Value.ToShortDateString
|
||||
|
||||
rpt.GroupHeaderKz.DataField = "LicencePlateNumber" 'Gruppierung
|
||||
|
||||
|
||||
rpt.txtNettoKzSum.Visible = False
|
||||
rpt.txtNettoGesSum.Visible = False
|
||||
rpt.txtNetto.Visible = False
|
||||
rpt.txtNettoKatSum.Visible = False
|
||||
rpt.lblNetto.Visible = False
|
||||
|
||||
rpt.txtMWSTKzSum.Visible = False
|
||||
rpt.txtMWSTGEsSum.Visible = False
|
||||
rpt.txtMWST.Visible = False
|
||||
rpt.txtMWSTKatSum.Visible = False
|
||||
rpt.lblMWST.Visible = False
|
||||
|
||||
rpt.lblBrutto.Text = "Total Amount ( EUR )"
|
||||
rpt.Label4.Text = bis.ToShortDateString
|
||||
rpt.Label2.Text = "UTA-KundenNr:"
|
||||
rpt.TextBox1.Text = UTAKdNr
|
||||
rpt.Label1.Text = " UTA Fleet Management Service"
|
||||
|
||||
rpt.lblSummeKennzeichen.Visible = False
|
||||
rpt.lblService.Visible = False
|
||||
|
||||
'rpt.lblSummeKennzeichen.Location = New PointF(rpt.lblSummeKennzeichen.Location.X + 4.5, rpt.lblSummeKennzeichen.Location.Y)
|
||||
'rpt.lblSumKategorie.Location = New PointF(rpt.lblSumKategorie.Location.X + 4.5, rpt.lblSumKategorie.Location.Y)
|
||||
'rpt.lblGessumme.Location = New PointF(rpt.lblGessumme.Location.X + 4.5, rpt.lblGessumme.Location.Y)
|
||||
|
||||
Dim sumNetto As Double = 0
|
||||
Dim sumMWST As Double = 0
|
||||
Dim sumBrutto As Double = 0
|
||||
|
||||
Dim sumNettoKat As Double = 0
|
||||
Dim sumMWSTKat As Double = 0
|
||||
Dim sumBruttoKat As Double = 0
|
||||
|
||||
Dim sumNettoGes As Double = 0
|
||||
Dim sumMWSTGes 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
|
||||
rpt.txtKunde.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Customer ID").Value, "")
|
||||
rpt.txtKunde.Text &= " " & SQL.isDbnullEmpty(rpt.Fields.Item("Customer name").Value, "")
|
||||
' End If
|
||||
|
||||
' rpt.txtProduktBeschreibung.Text = sql.isDbnullEmpty(rpt.Fields.Item("BC_DESCR").Value, "")
|
||||
Select Case "DE"
|
||||
Case "DE" : rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Product description").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
Case "IT" : rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Product description").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
Case Else : rpt.txtProdukt.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Product description").Value, "") 'sql.isDbnullEmpty(rpt.Fields.Item("plose_ProduktCode").Value, "") & " - " & sql.isDbnullEmpty(rpt.Fields.Item("plose_Produktbeschreibung").Value, "")
|
||||
End Select
|
||||
|
||||
rpt.txtKartennummer.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Card number").Value, "")
|
||||
rpt.txtEingang.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Entry Terminal/Direction").Value, "")
|
||||
rpt.txtAusgang.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Exit Terminal Description").Value, "")
|
||||
rpt.txtLand.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Transaction Country").Value, "")
|
||||
rpt.txtDatum.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Transaction Date").Value, "")
|
||||
rpt.txtEingang.Text = SQL.isDbnullEmpty(rpt.Fields.Item("Card Type").Value, "")
|
||||
|
||||
rpt.txtNetto.Text = "" 'SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragWaehrungAbbuchung").Value, 2, "")
|
||||
rpt.txtMWST.Text = "" 'SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetragWaehrungAbbuchung").Value, 2, "")
|
||||
rpt.txtBrutto.Text = SQL.isDbnullEmptyDbl(rpt.Fields.Item("Transaction Amount ( EUR )").Value, 2, "")
|
||||
|
||||
sumNetto += 0 'SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_NettobetragWaehrungAbbuchung").Value, 4, 0)
|
||||
sumMWST += 0 'SQL.isDbnullEmptyDbl(rpt.Fields.Item("plose_MWSTBetragWaehrungAbbuchung").Value, 4, 0)
|
||||
sumBrutto += SQL.isDbnullEmptyDbl(rpt.Fields.Item("Transaction Amount ( EUR )").Value, 4, 0)
|
||||
cnt += 1
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.GroupHeaderKz.Format, Sub()
|
||||
rpt.txtKennzeichen.Text = SQL.isDbnullEmpty(rpt.Fields.Item("LicencePlateNumber").Value, "")
|
||||
If rpt.txtKennzeichen.Text = "" Then rpt.lblKennzeichen.Visible = False
|
||||
End Sub
|
||||
AddHandler rpt.GroupHeaderKat.Format, Sub()
|
||||
rpt.lblKategorie.Text = "MAUT REPORT"
|
||||
End Sub
|
||||
|
||||
AddHandler rpt.GroupFooterKz.Format, Sub()
|
||||
rpt.txtNettoKzSum.Text = sumNetto.ToString("N2")
|
||||
rpt.txtMWSTKzSum.Text = sumMWST.ToString("N2")
|
||||
rpt.txtBruttoKzSum.Text = sumBrutto.ToString("N2")
|
||||
sumNettoGes += sumNetto
|
||||
sumMWSTGes += sumMWST
|
||||
sumBruttoGes += sumBrutto
|
||||
|
||||
sumNetto = 0
|
||||
sumMWST = 0
|
||||
sumBrutto = 0
|
||||
|
||||
rpt.lblSummeKennzeichen.Text = rpt.lblSummeKennzeichen.Text.Replace("Kennzeichen", SQL.isDbnullEmpty(rpt.Fields.Item("LicencePlateNumber").Value, ""))
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
AddHandler rpt.GroupFooterKat.Format, Sub()
|
||||
sumNettoKat += sumNetto
|
||||
sumMWSTKat += sumMWST
|
||||
sumBruttoKat += sumBrutto
|
||||
sumNetto = 0
|
||||
sumMWST = 0
|
||||
sumBrutto = 0
|
||||
|
||||
rpt.txtNettoKatSum.Text = sumNettoKat.ToString("N2")
|
||||
rpt.txtMWSTKatSum.Text = sumMWSTKat.ToString("N2")
|
||||
rpt.txtBruttoKatSum.Text = sumBruttoKat.ToString("N2")
|
||||
cntKat += 1
|
||||
End Sub
|
||||
AddHandler rpt.ReportFooter1.Format, Sub()
|
||||
'sumNettoGes += sumNettoKat
|
||||
'sumMWSTGes += sumMWSTKat
|
||||
'sumBruttoGes += sumBruttoKat
|
||||
sumNettoKat = 0
|
||||
sumMWSTKat = 0
|
||||
sumBruttoKat = 0
|
||||
|
||||
sumNetto = 0
|
||||
sumMWST = 0
|
||||
sumBrutto = 0
|
||||
|
||||
rpt.txtNettoGesSum.Text = sumNettoGes.ToString("N2")
|
||||
rpt.txtMWSTGEsSum.Text = sumMWSTGes.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 & "_Maut_UTA.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
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
|
||||
End Function
|
||||
|
||||
Function genPLOSE_SPEDBUCH_ByKdNr(KdNr As String, PLOSEKundenNr As String, von As Date, bis As Date, ByRef SPEDBUCH As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch)
|
||||
@@ -1310,5 +1685,8 @@ Public Class frmMDMDatenverarbetiung
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
|
||||
initLieferant("UTA", sender)
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user