div. Änderungen, Gesamtsicherheiten, etc.
This commit is contained in:
@@ -352,7 +352,7 @@ Public Class usrCntlATLAS_AnkunftsAnzeige
|
||||
|
||||
CLOSED_DUMMY.SAVE()
|
||||
|
||||
GesSichRef.CalcSaldo()
|
||||
GesSichRef.CalcSaldo_new()
|
||||
|
||||
Catch ex As Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
|
||||
115
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
115
SDL/kunden/usrcntlKundeBearbeitenFull.Designer.vb
generated
@@ -22,7 +22,6 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()>
|
||||
Private Sub InitializeComponent()
|
||||
Me.components = New System.ComponentModel.Container()
|
||||
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
|
||||
@@ -61,8 +60,10 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboFremdspedition = New System.Windows.Forms.ComboBox()
|
||||
Me.cbxVerzolltBei = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxBesonderheitenNEU = New System.Windows.Forms.CheckBox()
|
||||
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
|
||||
Me.tbcntrAbf = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
|
||||
Me.rtbLKWFreigabeSenden = New System.Windows.Forms.RichTextBox()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
@@ -76,6 +77,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cboAbfVerb_Abfertigungsverbot = New System.Windows.Forms.CheckBox()
|
||||
Me.txtAbfVerb_AbfertigungsverbotSeit = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.tbAufschub = New System.Windows.Forms.TabPage()
|
||||
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.Label78 = New System.Windows.Forms.Label()
|
||||
Me.cbxAbf_ZollVM = New System.Windows.Forms.CheckBox()
|
||||
@@ -100,6 +102,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.rtbAbf_Besonderheiten = New System.Windows.Forms.RichTextBox()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.tbFiskal = New System.Windows.Forms.TabPage()
|
||||
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
|
||||
Me.tbVerrechnung = New System.Windows.Forms.TabPage()
|
||||
Me.cbxHR_autoselect = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxPDFMerge = New System.Windows.Forms.CheckBox()
|
||||
@@ -111,7 +114,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.btnAddKundeUID = New System.Windows.Forms.Button()
|
||||
Me.cboUSt_UstIdNrLand2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.txtUSt_UstIdNr2 = New VERAG_PROG_ALLGEMEIN.MyTextBox()
|
||||
Me.dgvKundenUID = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
|
||||
Me.dgvKundenUID = New VERAG_PROG_ALLGEMEIN.MyDatagridview()
|
||||
Me.Label117 = New System.Windows.Forms.Label()
|
||||
Me.Panel2 = New System.Windows.Forms.Panel()
|
||||
Me.Label115 = New System.Windows.Forms.Label()
|
||||
@@ -419,6 +422,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbKontakt = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage10 = New System.Windows.Forms.TabPage()
|
||||
Me.TabPage11 = New System.Windows.Forms.TabPage()
|
||||
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
|
||||
Me.Label50 = New System.Windows.Forms.Label()
|
||||
Me.Label68 = New System.Windows.Forms.Label()
|
||||
Me.pnlNeukunde = New System.Windows.Forms.Panel()
|
||||
@@ -437,18 +441,14 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.txtERROR = New System.Windows.Forms.TextBox()
|
||||
Me.btnDatevExport = New System.Windows.Forms.Button()
|
||||
Me.Label98 = New System.Windows.Forms.Label()
|
||||
Me.cnsBankverbindungen = New System.Windows.Forms.ContextMenuStrip(Me.components)
|
||||
Me.cnsBankverbindungen = New System.Windows.Forms.ContextMenuStrip()
|
||||
Me.ArchivierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentHinzufügenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.DokumentLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.cboFirma = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.cboAuswahl = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
|
||||
Me.ucKundenKontakte = New SDL.usrCntlKundenKontakte()
|
||||
Me.UsrCntlKundenBesonderheiten1 = New SDL.usrCntlKundenBesonderheiten()
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1 = New SDL.usrCntlKundenAvisoMailBenachrichtigung()
|
||||
Me.usrCntlAufschubkonten = New SDL.usrCntlAufschubkonten()
|
||||
Me.UsrCntlKundeFiskaldaten1 = New SDL.usrCntlKundeFiskaldaten()
|
||||
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
|
||||
Me.tbcntrDetails.SuspendLayout()
|
||||
Me.tbAbfertigung.SuspendLayout()
|
||||
Me.tbcntrAbf.SuspendLayout()
|
||||
@@ -498,6 +498,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.TabPage11.SuspendLayout()
|
||||
Me.pnlNeukunde.SuspendLayout()
|
||||
Me.cnsBankverbindungen.SuspendLayout()
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'tbcntrDetails
|
||||
@@ -643,6 +644,16 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.cbxBesonderheitenNEU.Text = "Besonderheiten NEU"
|
||||
Me.cbxBesonderheitenNEU.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlKundenBesonderheiten1
|
||||
'
|
||||
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
|
||||
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
|
||||
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
|
||||
Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
|
||||
Me.UsrCntlKundenBesonderheiten1.Visible = False
|
||||
'
|
||||
'tbcntrAbf
|
||||
'
|
||||
Me.tbcntrAbf.Controls.Add(Me.TabPage4)
|
||||
@@ -669,6 +680,15 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.TabPage4.Text = " Aviso / E-Mail Benachrichtigung"
|
||||
Me.TabPage4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlKundenAvisoMailBenachrichtigung1
|
||||
'
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
|
||||
'
|
||||
'rtbLKWFreigabeSenden
|
||||
'
|
||||
Me.rtbLKWFreigabeSenden.Location = New System.Drawing.Point(485, 33)
|
||||
@@ -837,6 +857,14 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbAufschub.Text = "Aufschubkonten"
|
||||
Me.tbAufschub.UseVisualStyleBackColor = True
|
||||
'
|
||||
'usrCntlAufschubkonten
|
||||
'
|
||||
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
|
||||
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
|
||||
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
|
||||
Me.usrCntlAufschubkonten.TabIndex = 0
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.Label78)
|
||||
@@ -1142,6 +1170,15 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.tbFiskal.Text = "Fiskal"
|
||||
Me.tbFiskal.UseVisualStyleBackColor = True
|
||||
'
|
||||
'UsrCntlKundeFiskaldaten1
|
||||
'
|
||||
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
|
||||
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
|
||||
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
|
||||
'
|
||||
'tbVerrechnung
|
||||
'
|
||||
Me.tbVerrechnung.Controls.Add(Me.cbxHR_autoselect)
|
||||
@@ -4127,6 +4164,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
'
|
||||
'tbSonstiges
|
||||
'
|
||||
Me.tbSonstiges.Controls.Add(Me.PictureBox1)
|
||||
Me.tbSonstiges.Controls.Add(Me.cbxIDSMautberichtNachOrt)
|
||||
Me.tbSonstiges.Controls.Add(Me.txtSonst_weitereKdNrWOELFL)
|
||||
Me.tbSonstiges.Controls.Add(Me.lblIDS_Rabatte)
|
||||
@@ -5839,6 +5877,14 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.TabPage11.Text = "Spezifisch"
|
||||
Me.TabPage11.UseVisualStyleBackColor = True
|
||||
'
|
||||
'ucKundenKontakte
|
||||
'
|
||||
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
|
||||
Me.ucKundenKontakte.Name = "ucKundenKontakte"
|
||||
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
|
||||
Me.ucKundenKontakte.TabIndex = 0
|
||||
'
|
||||
'Label50
|
||||
'
|
||||
Me.Label50.AutoSize = True
|
||||
@@ -6119,49 +6165,16 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.DataGridViewTextBoxColumn2.HeaderText = "E-Mail"
|
||||
Me.DataGridViewTextBoxColumn2.Name = "DataGridViewTextBoxColumn2"
|
||||
'
|
||||
'ucKundenKontakte
|
||||
'PictureBox1
|
||||
'
|
||||
Me.ucKundenKontakte.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.ucKundenKontakte.Location = New System.Drawing.Point(3, 3)
|
||||
Me.ucKundenKontakte.Name = "ucKundenKontakte"
|
||||
Me.ucKundenKontakte.Size = New System.Drawing.Size(439, 169)
|
||||
Me.ucKundenKontakte.TabIndex = 0
|
||||
'
|
||||
'UsrCntlKundenBesonderheiten1
|
||||
'
|
||||
Me.UsrCntlKundenBesonderheiten1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundenBesonderheiten1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.UsrCntlKundenBesonderheiten1.Location = New System.Drawing.Point(6, 25)
|
||||
Me.UsrCntlKundenBesonderheiten1.Name = "UsrCntlKundenBesonderheiten1"
|
||||
Me.UsrCntlKundenBesonderheiten1.Size = New System.Drawing.Size(107, 52)
|
||||
Me.UsrCntlKundenBesonderheiten1.TabIndex = 235
|
||||
Me.UsrCntlKundenBesonderheiten1.Visible = False
|
||||
'
|
||||
'UsrCntlKundenAvisoMailBenachrichtigung1
|
||||
'
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.AutoScroll = True
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Location = New System.Drawing.Point(0, 6)
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Name = "UsrCntlKundenAvisoMailBenachrichtigung1"
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.Size = New System.Drawing.Size(479, 172)
|
||||
Me.UsrCntlKundenAvisoMailBenachrichtigung1.TabIndex = 6
|
||||
'
|
||||
'usrCntlAufschubkonten
|
||||
'
|
||||
Me.usrCntlAufschubkonten.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.usrCntlAufschubkonten.Location = New System.Drawing.Point(3, 3)
|
||||
Me.usrCntlAufschubkonten.Name = "usrCntlAufschubkonten"
|
||||
Me.usrCntlAufschubkonten.Size = New System.Drawing.Size(652, 172)
|
||||
Me.usrCntlAufschubkonten.TabIndex = 0
|
||||
'
|
||||
'UsrCntlKundeFiskaldaten1
|
||||
'
|
||||
Me.UsrCntlKundeFiskaldaten1.BackColor = System.Drawing.Color.White
|
||||
Me.UsrCntlKundeFiskaldaten1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.UsrCntlKundeFiskaldaten1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.UsrCntlKundeFiskaldaten1.Name = "UsrCntlKundeFiskaldaten1"
|
||||
Me.UsrCntlKundeFiskaldaten1.Size = New System.Drawing.Size(672, 495)
|
||||
Me.UsrCntlKundeFiskaldaten1.TabIndex = 0
|
||||
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
|
||||
Me.PictureBox1.Image = Global.SDL.My.Resources.Resources.pdf_s
|
||||
Me.PictureBox1.Location = New System.Drawing.Point(290, 191)
|
||||
Me.PictureBox1.Name = "PictureBox1"
|
||||
Me.PictureBox1.Size = New System.Drawing.Size(20, 20)
|
||||
Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.Zoom
|
||||
Me.PictureBox1.TabIndex = 150
|
||||
Me.PictureBox1.TabStop = False
|
||||
'
|
||||
'usrcntlKundeBearbeitenFull
|
||||
'
|
||||
@@ -6272,6 +6285,7 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Me.pnlNeukunde.ResumeLayout(False)
|
||||
Me.pnlNeukunde.PerformLayout()
|
||||
Me.cnsBankverbindungen.ResumeLayout(False)
|
||||
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
@@ -6674,4 +6688,5 @@ Partial Class usrcntlKundeBearbeitenFull
|
||||
Friend WithEvents cbxPDFMerge As CheckBox
|
||||
Friend WithEvents cbxHR_autoselect As CheckBox
|
||||
Friend WithEvents cbxIDSMautberichtNachOrt As CheckBox
|
||||
Friend WithEvents PictureBox1 As PictureBox
|
||||
End Class
|
||||
|
||||
@@ -1,4 +1,7 @@
|
||||
Imports MDM_Worker
|
||||
Imports com.sun.xml.internal.rngom
|
||||
Imports DAKOSY_Worker
|
||||
Imports MDM_Worker
|
||||
Imports Tamir.SharpSsh.jsch
|
||||
Imports VERAG_PROG_ALLGEMEIN
|
||||
|
||||
Public Class usrcntlKundeBearbeitenFull
|
||||
@@ -405,6 +408,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
cbxSonst_CsvUTA.Checked = loadValue(ADRESSE.UTAExportCSV, False)
|
||||
cbxUIDMehrfachverwendung.Checked = KUNDE_ERW.kde_UIDMehrfachverwendung
|
||||
cbxkeineMWSt.Checked = loadValue(KUNDE_ERW.kde_keineMWSt, False)
|
||||
cbxIDSMautberichtNachOrt.Checked = loadValue(ADRESSE.IDSMautbericht_nachOrt, False)
|
||||
|
||||
' ----- Provision Dienstleistungen -----
|
||||
cbxProvDL.Checked = KUNDE_ERW.kde_Provisionsverguetung
|
||||
@@ -2828,8 +2832,8 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End If
|
||||
|
||||
Button6.Enabled = True
|
||||
Else
|
||||
Button6.Enabled = False
|
||||
Else
|
||||
Button6.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -2843,7 +2847,7 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
|
||||
For Each r As DataGridViewRow In dgvKundenUID.SelectedRows
|
||||
Dim UID_KUNDE As New cKundenveranlagungUID(KUNDE.KundenNr, r.Cells("UstIdKz").Value)
|
||||
UID_KUNDE.DELETE
|
||||
UID_KUNDE.DELETE()
|
||||
Next
|
||||
|
||||
initdgvKUNDENUID(KUNDE.KundenNr)
|
||||
@@ -2854,5 +2858,216 @@ Public Class usrcntlKundeBearbeitenFull
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
|
||||
Dim ids As New cIDS
|
||||
Dim gruppierungNachOrt As Boolean = False
|
||||
If ADRESSE.IDSMautbericht_nachOrt IsNot Nothing AndAlso Not IsDBNull(ADRESSE.IDSMautbericht_nachOrt) Then
|
||||
gruppierungNachOrt = ADRESSE.IDSMautbericht_nachOrt
|
||||
End If
|
||||
|
||||
Dim rechnungsdatum = ids.getCurrentInvoicedate(KUNDE.KundenNr)
|
||||
|
||||
If rechnungsdatum <> "" AndAlso IsDate(rechnungsdatum) Then
|
||||
|
||||
Dim f As New frmDatumsabfrage("IDS-Mautbericht Datum ", True)
|
||||
f.dtp_date.Value = CDate(rechnungsdatum)
|
||||
f.ShowDialog()
|
||||
If f.DialogResult = DialogResult.OK Then
|
||||
|
||||
|
||||
Dim dt_ids = ids.genIDSMautberichtDatatByKdNr(KUNDE.KundenNr, CDate(rechnungsdatum), "IDS", False) '
|
||||
Dim dt_ids_at = ids.genIDSMautberichtDatatByKdNr(KUNDE.KundenNr, CDate(rechnungsdatum), "IDS_AT", gruppierungNachOrt)
|
||||
|
||||
If dt_ids.Rows.Count = 0 AndAlso dt_ids_at.Rows.Count = 0 Then
|
||||
MsgBox("Zum eingegebenen Datum existieren keine Daten!")
|
||||
Exit Sub
|
||||
End If
|
||||
|
||||
|
||||
If dt_ids.Rows.Count > 0 Then createBericht(dt_ids, KUNDE.KundenNr, -1, CDate(rechnungsdatum), False)
|
||||
If dt_ids_at.Rows.Count > 0 Then createBericht(dt_ids_at, KUNDE.KundenNr, -1, CDate(rechnungsdatum), gruppierungNachOrt)
|
||||
|
||||
End If
|
||||
|
||||
Else
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub createBericht(dt As DataTable, kdnr As String, idsKdnr As String, rechnungsdatum As Date, Gruppierung_nach_Ort As Boolean)
|
||||
Try
|
||||
|
||||
Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
|
||||
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 = rechnungsdatum.ToShortDateString
|
||||
|
||||
rpt.GroupHeaderKz.DataField = "OutletCountry"
|
||||
|
||||
rpt.Label4.Text = rechnungsdatum.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, "")
|
||||
|
||||
Dim Station As String = ""
|
||||
If Gruppierung_nach_Ort Then
|
||||
Station = sql.isDbnullEmpty(rpt.Fields.Item("OutletOrt").Value, "")
|
||||
If Station <> "" Then
|
||||
Station = " (" & Station & ")"
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
rpt.txtProduktBeschreibung.Text = sql.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") & Station
|
||||
|
||||
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 "
|
||||
|
||||
'SPANIEN, POLEN : für alle Produkte gilt eine Reduzierung der MwSt. auf 10 % bzw. 8%, mit Ausnahme von AdBlue (bleibt bei 21 % MwSt.) -> Regelung der MWST-Anzeige erfolgt über IDS-Länder, allerdings wird auf Datenbasis hier kein Unterschied zw. ProductCode gemacht, daher hardcodiert -> weil es nur um Anzeige geht!
|
||||
|
||||
'20.07.2026 -> Änderungen wieder deaktivert!
|
||||
|
||||
'If (SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Spain" Or SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "") = "Poland") And SQL.isDbnullEmpty(rpt.Fields.Item("ProductDescription").Value, "") <> "Ad Blue" Then
|
||||
|
||||
' Select Case SQL.isDbnullEmpty(rpt.Fields.Item("OutletCountry").Value, "")
|
||||
' Case "Spain" : rpt.lblMWST.Text &= "10 %"
|
||||
' Case "Poland" : rpt.lblMWST.Text &= "8 %"
|
||||
' End Select
|
||||
|
||||
'Else
|
||||
|
||||
rpt.lblMWST.Text &= IIf(sql.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") <> "", sql.isDbnullEmptyDbl(rpt.Fields.Item("Steuersatz").Value, 2, "") * 100 & " %", "")
|
||||
|
||||
'End If
|
||||
|
||||
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
|
||||
|
||||
|
||||
|
||||
Dim tmpPath = VERAG_PROG_ALLGEMEIN.DATENVERVER_OPTIONS.getTMPPath("IDS_ " & kdnr & "_IDS_Mautbericht.pdf", ".pdf", , False)
|
||||
Dim p As New GrapeCity.ActiveReports.Export.Pdf.Section.PdfExport
|
||||
rpt.Run(False)
|
||||
p.Export(rpt.Document, tmpPath)
|
||||
Process.Start(tmpPath)
|
||||
rpt.Dispose()
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Catch ex As System.Exception
|
||||
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
|
||||
End Try
|
||||
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user