diff --git a/SDL/Fakturierung/frmFaktEmail.vb b/SDL/Fakturierung/frmFaktEmail.vb
index 7c8df8c6..4a9301b7 100644
--- a/SDL/Fakturierung/frmFaktEmail.vb
+++ b/SDL/Fakturierung/frmFaktEmail.vb
@@ -785,44 +785,45 @@ Public Class frmFaktEmail
If SPEDBUCH.hasEntry AndAlso (SPEDBUCH.Abfertigungsart = 114 Or SPEDBUCH.Abfertigungsart = 115) Then
Dim USTV_ANTRAG As New cUSTVAntrag(RECHNUNG.ErfassungsNr)
-
Dim bearbGeb As Double = 0
+ Dim hasVZ As Boolean = False
+
+ For Each pos In USTV_ANTRAG.POSITIONEN
+ If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!
+ hasVZ = True
+ Exit For
+ End If
+ Next
For Each r As cRechnungsausgangPositionen In RECHNUNG.POSITIONEN
- If r.BerechnungsartNr = 8 AndAlso (r.LeistungsBez.ToLower.Contains("mwst") Or r.LeistungsBez.ToLower.Contains("moest")) Then bearbGeb += r.Preis
+ If r.BerechnungsartNr = 8 AndAlso (r.LeistungsBez.ToLower.Contains("mwst") Or r.LeistungsBez.ToLower.Contains("moest") Or r.LeistungsBez.ToLower.Contains("vat") Or r.LeistungsBez.ToLower.Contains("excise duty") Or r.LeistungsBez.ToLower.Contains("tva")) Then bearbGeb += r.Preis
Next
+ 'nur bei NICHT VZ!
+ If Not hasVZ Then
+ Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
+ If Not ANTR_ERSTATTUNG.hasEntry Then
+ ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
+ ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
+ ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
+ ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb
+ ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb
+ ANTR_ERSTATTUNG.SAVE()
+ End If
- Dim ANTR_ERSTATTUNG As New VERAG_PROG_ALLGEMEIN.cUStVErstattungPositionen(USTV_ANTRAG.UStVAn_ID, RECHNUNG.UnterNr + 1)
- If Not ANTR_ERSTATTUNG.hasEntry Then
- ANTR_ERSTATTUNG.GutschriftsDatum = RECHNUNG.RechnungsDatum
- ANTR_ERSTATTUNG.GutschriftsNr = RECHNUNG.RechnungsNr
- ANTR_ERSTATTUNG.UStVEr_Umrechnungskurs = 1
- ANTR_ERSTATTUNG.UStVEr_USteuerbetrag = bearbGeb * -1
- ANTR_ERSTATTUNG.UStVEr_USteuerbetragEUR = bearbGeb * -1
- ANTR_ERSTATTUNG.SAVE()
+
+ If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then
+
+ USTV_ANTRAG.UStVAn_VZBetrag = bearbGeb
+ USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum
+ USTV_ANTRAG.SAVE()
+
+ End If
End If
-
- If IsDBNull(USTV_ANTRAG.UStVAn_VZBetrag) AndAlso IsDBNull(USTV_ANTRAG.UStVAn_VZDatum) Then
-
- USTV_ANTRAG.UStVAn_VZBetrag = bearbGeb * -1
- USTV_ANTRAG.UStVAn_VZDatum = RECHNUNG.RechnungsDatum
- USTV_ANTRAG.SAVE()
-
- End If
-
- Dim hasVZ As Boolean = False
- For Each pos In USTV_ANTRAG.POSITIONEN
- If pos.UStVPo_VZ AndAlso (IsDBNull(pos.UStVPo_VZ_RKID) Or pos.UStVPo_VZ_RKID Is Nothing) Then 'VZ die noch nicht abgerechnet wurde!
- hasVZ = True
- Exit For
- End If
- Next
-
- If hasVZ Then
+ If hasVZ Then
Dim SQL As New SQL
For Each pos As cUStVPositionen In USTV_ANTRAG.POSITIONEN
diff --git a/SDL/My Project/Resources.Designer.vb b/SDL/My Project/Resources.Designer.vb
index 207f572f..c77695a0 100644
--- a/SDL/My Project/Resources.Designer.vb
+++ b/SDL/My Project/Resources.Designer.vb
@@ -290,6 +290,16 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+ '''
+ Friend ReadOnly Property Auswertung_divers() As Byte()
+ Get
+ Dim obj As Object = ResourceManager.GetObject("Auswertung_divers", resourceCulture)
+ Return CType(obj,Byte())
+ End Get
+ End Property
+
'''
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''
@@ -578,6 +588,16 @@ Namespace My.Resources
End Get
End Property
+ '''
+ ''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
+ '''
+ Friend ReadOnly Property Detailauswertung_divers() As Byte()
+ Get
+ Dim obj As Object = ResourceManager.GetObject("Detailauswertung_divers", resourceCulture)
+ Return CType(obj,Byte())
+ End Get
+ End Property
+
'''
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''
diff --git a/SDL/My Project/Resources.resx b/SDL/My Project/Resources.resx
index 0fed904a..b6fe8715 100644
--- a/SDL/My Project/Resources.resx
+++ b/SDL/My Project/Resources.resx
@@ -952,4 +952,10 @@
..\Resources\RG_ZF_NEW.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+ ..\Resources\Auswertung_divers.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
+
+ ..\Resources\Detailauswertung_divers.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089
+
\ No newline at end of file
diff --git a/SDL/Resources/Auswertung_divers.xlsx b/SDL/Resources/Auswertung_divers.xlsx
new file mode 100644
index 00000000..02308797
Binary files /dev/null and b/SDL/Resources/Auswertung_divers.xlsx differ
diff --git a/SDL/Resources/Detailauswertung_divers.xlsx b/SDL/Resources/Detailauswertung_divers.xlsx
new file mode 100644
index 00000000..72b36068
Binary files /dev/null and b/SDL/Resources/Detailauswertung_divers.xlsx differ
diff --git a/SDL/SDL.vbproj b/SDL/SDL.vbproj
index b4cc7164..a3ad45cc 100644
--- a/SDL/SDL.vbproj
+++ b/SDL/SDL.vbproj
@@ -4691,6 +4691,8 @@
+
+
Always
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
index ee620bec..59a51032 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.Designer.vb
@@ -64,6 +64,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.dgvLKW = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlOpt = New System.Windows.Forms.Panel()
Me.pnlBerichte = New System.Windows.Forms.Panel()
+ Me.cbxDetailbericht = New System.Windows.Forms.CheckBox()
Me.MyComboBox2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button25 = New System.Windows.Forms.Button()
Me.Button24 = New System.Windows.Forms.Button()
@@ -77,7 +78,8 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
- Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
+ Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.cboHandlingssatz = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Button20 = New System.Windows.Forms.Button()
Me.Label46 = New System.Windows.Forms.Label()
@@ -203,7 +205,6 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.Label45 = New System.Windows.Forms.Label()
Me.cboFilialeHandling = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
- Me.cbxDetailbericht = New System.Windows.Forms.CheckBox()
Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
Me.pnlRechts.SuspendLayout()
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -815,6 +816,17 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.pnlBerichte.TabIndex = 6
Me.pnlBerichte.Visible = False
'
+ 'cbxDetailbericht
+ '
+ Me.cbxDetailbericht.AutoSize = True
+ Me.cbxDetailbericht.BackColor = System.Drawing.Color.WhiteSmoke
+ Me.cbxDetailbericht.Location = New System.Drawing.Point(725, 139)
+ Me.cbxDetailbericht.Name = "cbxDetailbericht"
+ Me.cbxDetailbericht.Size = New System.Drawing.Size(85, 17)
+ Me.cbxDetailbericht.TabIndex = 59
+ Me.cbxDetailbericht.Text = "Detailbericht"
+ Me.cbxDetailbericht.UseVisualStyleBackColor = False
+ '
'MyComboBox2
'
Me.MyComboBox2._allowedValuesFreiText = Nothing
@@ -933,7 +945,7 @@ Partial Class usrCntlSpeditionsBuchSuche
'KundenauswertungenToolStripMenuItem1
'
Me.KundenauswertungenToolStripMenuItem1.BackColor = System.Drawing.Color.FromArgb(CType(CType(0, Byte), Integer), CType(CType(54, Byte), Integer), CType(CType(128, Byte), Integer))
- Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFSteyrZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem, Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem})
+ Me.KundenauswertungenToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem, Me.ZFSteyrZeitraumAuswählenToolStripMenuItem, Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem, Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem, Me.ToolStripMenuItem1})
Me.KundenauswertungenToolStripMenuItem1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
Me.KundenauswertungenToolStripMenuItem1.ForeColor = System.Drawing.Color.White
Me.KundenauswertungenToolStripMenuItem1.Name = "KundenauswertungenToolStripMenuItem1"
@@ -963,13 +975,20 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False
'
- 'FlenderBocholtZeitraumAuswählenToolStripMenuItem
+ 'AuswertungDiversZeitraumAuswählenToolStripMenuItem
'
- Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
- Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Name = "FlenderBocholtZeitraumAuswählenToolStripMenuItem"
- Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
- Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
- Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False
+ Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
+ Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Name = "AuswertungDiversZeitraumAuswählenToolStripMenuItem"
+ Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
+ Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
+ Me.AuswertungDiversZeitraumAuswählenToolStripMenuItem.Visible = False
+ '
+ 'ToolStripMenuItem1
+ '
+ Me.ToolStripMenuItem1.Image = Global.SDL.My.Resources.Resources.Excel_logo
+ Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
+ Me.ToolStripMenuItem1.Size = New System.Drawing.Size(316, 30)
+ Me.ToolStripMenuItem1.Text = "div Kunde (Zeitraum auswählen)"
'
'cboHandlingssatz
'
@@ -2836,17 +2855,6 @@ Partial Class usrCntlSpeditionsBuchSuche
Me.SplitContainer.SplitterWidth = 2
Me.SplitContainer.TabIndex = 3
'
- 'cbxDetailbericht
- '
- Me.cbxDetailbericht.AutoSize = True
- Me.cbxDetailbericht.BackColor = System.Drawing.Color.WhiteSmoke
- Me.cbxDetailbericht.Location = New System.Drawing.Point(725, 139)
- Me.cbxDetailbericht.Name = "cbxDetailbericht"
- Me.cbxDetailbericht.Size = New System.Drawing.Size(85, 17)
- Me.cbxDetailbericht.TabIndex = 59
- Me.cbxDetailbericht.Text = "Detailbericht"
- Me.cbxDetailbericht.UseVisualStyleBackColor = False
- '
'usrCntlSpeditionsBuchSuche
'
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.None
@@ -3055,7 +3063,7 @@ Partial Class usrCntlSpeditionsBuchSuche
Friend WithEvents Button22 As Button
Friend WithEvents Button23 As Button
Friend WithEvents txtZollstelle As VERAG_PROG_ALLGEMEIN.MySearchBox
- Friend WithEvents FlenderBocholtZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
+ Friend WithEvents AuswertungDiversZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents txtVermerk As VERAG_PROG_ALLGEMEIN.MyTextBox
Friend WithEvents lblVermerke As Label
Friend WithEvents Button24 As Button
@@ -3065,4 +3073,5 @@ Partial Class usrCntlSpeditionsBuchSuche
Friend WithEvents ZFSteyrZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents cbxRptDetailsZahlungsdetails As CheckBox
Friend WithEvents cbxDetailbericht As CheckBox
+ Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
End Class
diff --git a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
index 6b1b2be2..82477514 100644
--- a/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
+++ b/SDL/Speditionsbuch/usrCntlSpeditionsBuchSuche.vb
@@ -2186,8 +2186,8 @@ Public Class usrCntlSpeditionsBuchSuche
For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows
Dim ZollInProzent As Double = 0
- If If(ZOLLANMELDUNG.Rechnungspreis, "") <> "" Then
- ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100
+ If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
+ ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
End If
Blatt.Range("A" & cnt).Value = cnt - 1
@@ -2227,8 +2227,8 @@ Public Class usrCntlSpeditionsBuchSuche
Next
Else
Dim ZollInProzent As Double = 0
- If If(ZOLLANMELDUNG.Rechnungspreis, "") <> "" Then
- ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100
+ If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
+ ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
End If
Blatt.Range("A" & cnt).Value = cnt - 1
@@ -2327,7 +2327,7 @@ Public Class usrCntlSpeditionsBuchSuche
Try
Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
- Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.Rechnungspreis
+ Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung
Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
@@ -2687,7 +2687,7 @@ Public Class usrCntlSpeditionsBuchSuche
Next
End Sub
- Private Sub FlenderBocholtZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles FlenderBocholtZeitraumAuswählenToolStripMenuItem.Click
+ Private Sub FlenderBocholtZeitraumAuswählenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AuswertungDiversZeitraumAuswählenToolStripMenuItem.Click
lblKdAusFortschritt.Text = "lädt..."
Me.Cursor = Cursors.WaitCursor
Try
@@ -2793,4 +2793,264 @@ Public Class usrCntlSpeditionsBuchSuche
End Sub
+ Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
+
+ Dim kdnrsrch As Integer = -1
+
+ If kdnrsrch < 0 Then
+
+ Dim inputKdNr = InputBox("Bitte KdNr eingeben", "Auswertung abbrechen")
+ If IsNumeric(inputKdNr) And inputKdNr > 0 Then
+ kdnrsrch = inputKdNr
+ Else
+ MsgBox("KundenNr " & inputKdNr & " nicht gültig!")
+ Exit Sub
+ End If
+
+ End If
+
+ Dim KUNDE As New cKunde(kdnrsrch)
+
+
+ Dim dt As DataTable = SQL.loadDgvBySql("SELECT CAST([FilialenNr] as varchar) + '/' + CAST([AbfertigungsNr] as varchar) Abfertigungsnummer
+ ,cast([Abfertigungsdatum] as date)Abfertigungsdatum
+ ,Absender
+ ,Rechnungsbetrag Betrag
+ ,BelegNr
+ ,[FilialenNr],[AbfertigungsNr],Speditionsbuch.Abfertigungsart,Abfertigungsbezeichnung,Speditionsbuch.Zollsystem_Land
+ FROM Speditionsbuch INNER JOIN [Abfertigungsarten] ON Speditionsbuch.Abfertigungsart=Abfertigungsarten.Abfertigungsart
+ where EmpfängerKundenNr IN (" & kdnrsrch & ") and VermittlerKundenNr IN (" & kdnrsrch & ") and Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL")
+
+ Try
+
+ Dim Path = ""
+ If dt IsNot Nothing And dt.Rows.Count > 0 Then
+
+ Dim sPath As String = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\SR\"
+ If Not My.Computer.FileSystem.DirectoryExists(sPath) Then
+ My.Computer.FileSystem.CreateDirectory(sPath)
+ End If
+
+
+ Dim exclApp As Object 'as Application
+ Dim Datei As Object 'as WorkBook
+ Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
+ exclApp = CreateObject("Excel.Application")
+
+ If cbxDetailbericht.Checked Then
+
+ With exclApp
+ .Visible = False
+
+ Try
+ Path = sPath & KUNDE.KundenNr & "_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
+ While System.IO.File.Exists(Path)
+ Path = sPath & KUNDE.KundenNr & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+ End While
+ My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Detailauswertung_divers, False)
+ Catch ex As System.Exception
+ ' MsgBox(ex.Message)
+ MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+ Me.Cursor = Cursors.Default
+
+ Exit Sub
+ End Try
+
+ Datei = .Workbooks.Open(Path) 'Anpassen
+ Blatt = Datei.Worksheets(1) 'Anpassen
+
+ Dim cnt = 2
+ For Each r In dt.Rows
+ Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+ Try
+ Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
+ If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
+
+ If ZOLLANMELDUNG.dtWARENPOS.Rows.Count > 0 Then
+
+ Dim rowcounter As Integer = 0
+
+ For Each row As DataRow In ZOLLANMELDUNG.dtWARENPOS.Rows
+
+ Dim ZollInProzent As Double = 0
+ If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
+ ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
+ End If
+
+ Blatt.Range("A" & cnt).Value = cnt - 1
+ Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
+ Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr"))
+ Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger
+ Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr")
+ Blatt.Range("F" & cnt).Value = r("BelegNr")
+ Blatt.Range("G" & cnt).Value = row.Item("PosNr")
+ Blatt.Range("H" & cnt).Value = row.Item("WarenNr")
+ Blatt.Range("I" & cnt).Value = "-"
+ Blatt.Range("J" & cnt).Value = row.Item("WarenBez")
+ Blatt.Range("K" & cnt).Value = ""
+ Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode
+ Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart
+ Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang
+ Blatt.Range("O" & cnt).Value = ""
+ Blatt.Range("P" & cnt).Value = row.Item("Netto")
+ Blatt.Range("Q" & cnt).Value = row.Item("PosWert")
+ Blatt.Range("R" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_EUST, "")
+ Blatt.Range("S" & cnt).Value = IIf(rowcounter = 0, ZOLLANMELDUNG.ABGABEN_ZOLL, "")
+ Blatt.Range("T" & cnt).Value = IIf(rowcounter = 0, ZollInProzent.ToString("N2") & " %", "")
+ Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
+ Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender
+ Blatt.Range("W" & cnt).Value = row.Item("Herkunft")
+ Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms
+ Blatt.Range("Y" & cnt).Value = row.Item("Verfahren")
+ Blatt.Range("Z" & cnt).Value = row.Item("Preferenz")
+
+ If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then
+ Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+ End If
+
+ cnt += 1
+ rowcounter += 1
+ Next
+ Else
+ Dim ZollInProzent As Double = 0
+ If If(ZOLLANMELDUNG.RechnungspreisohneWahrung, "") <> "" Then
+ ZollInProzent = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.RechnungspreisohneWahrung * 100
+ End If
+
+ Blatt.Range("A" & cnt).Value = cnt - 1
+ Blatt.Range("B" & cnt).Value = r("Abfertigungsdatum")
+ Blatt.Range("C" & cnt).Value = VERAG_PROG_ALLGEMEIN.cAllgemein.getFirmaFromFiliale(r("FilialenNr"))
+ Blatt.Range("D" & cnt).Value = ZOLLANMELDUNG.Empfaenger
+ Blatt.Range("E" & cnt).Value = r("FilialenNr") & "/" & r("AbfertigungsNr")
+ Blatt.Range("F" & cnt).Value = r("BelegNr")
+ Blatt.Range("G" & cnt).Value = ""
+ Blatt.Range("H" & cnt).Value = ""
+ Blatt.Range("I" & cnt).Value = "-"
+ Blatt.Range("J" & cnt).Value = ""
+ Blatt.Range("K" & cnt).Value = ""
+ Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Waehrungscode
+ Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.Geschaeftsart
+ Blatt.Range("N" & cnt).Value = ZOLLANMELDUNG.Zollstelle_Eingang
+ Blatt.Range("O" & cnt).Value = ""
+ Blatt.Range("P" & cnt).Value = ""
+ Blatt.Range("Q" & cnt).Value = ""
+ Blatt.Range("R" & cnt).Value = ZOLLANMELDUNG.ABGABEN_EUST
+ Blatt.Range("S" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
+ Blatt.Range("T" & cnt).Value = ZollInProzent.ToString("N2") & " %"
+ Blatt.Range("U" & cnt).Value = IIf(ZOLLANMELDUNG.VerBestLandZst.ToString.Count > 1, ZOLLANMELDUNG.VerBestLandZst.ToString.Substring(0, 2), "")
+ Blatt.Range("V" & cnt).Value = ZOLLANMELDUNG.Absender
+ Blatt.Range("W" & cnt).Value = ""
+ Blatt.Range("X" & cnt).Value = ZOLLANMELDUNG.Incoterms
+ Blatt.Range("Y" & cnt).Value = ""
+ Blatt.Range("Z" & cnt).Value = ""
+ Blatt.Range("AA" & cnt).Value = ""
+
+
+ If If(ZOLLANMELDUNG.ATCMRN, "") <> "" AndAlso Blatt.Range("F" & cnt).Value = "" Then
+ Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+ End If
+ cnt += 1
+ End If
+ End If
+
+
+
+ Catch ex As Exception
+ MsgBox(ex.Message & ex.StackTrace)
+ End Try
+ lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
+ Me.Refresh()
+
+ Next
+ Datei.Save
+
+ If False Then
+ Blatt.PrintOutEx()
+ Else
+ 'Process.Start(Path)
+ .Visible = True
+
+ End If
+ End With
+
+ Else
+
+
+ With exclApp
+ .Visible = False
+
+ Try
+ Path = sPath & KUNDE.KundenNr & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
+ While System.IO.File.Exists(Path)
+ Path = sPath & KUNDE.KundenNr & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
+ End While
+ My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.Auswertung_divers, False)
+ Catch ex As System.Exception
+ ' MsgBox(ex.Message)
+ MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
+ Me.Cursor = Cursors.Default
+
+ Exit Sub
+ End Try
+
+ Datei = .Workbooks.Open(Path) 'Anpassen
+ Blatt = Datei.Worksheets(1) 'Anpassen
+
+ Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
+
+ Dim cnt = 3
+ For Each r In dt.Rows
+ Blatt.Range("A" & cnt).Value = cnt - 2
+ Blatt.Range("B" & cnt).Value = r("Abfertigungsnummer")
+ ' Blatt.Range("C" & cnt).Value = r("RechnungsNr")
+ Blatt.Range("C" & cnt).Value = r("Abfertigungsdatum")
+ Blatt.Range("D" & cnt).Value = r("Abfertigungsbezeichnung")
+ Blatt.Range("E" & cnt).Value = r("Absender")
+ Blatt.Range("F" & cnt).Value = "" 'r("Betrag")
+ Blatt.Range("H" & cnt).Value = r("BelegNr")
+
+ Dim ZOLLANMELDUNG As New DAKOSY_Worker.cZollsysteme_Aktenbeschriftung
+ Try
+ Dim zS = If(r("Zollsystem_Land") IsNot DBNull.Value, r("Zollsystem_Land").ToString(), "")
+ If ZOLLANMELDUNG.getDataByBezugsnummer(r("FilialenNr") & "/" & r("AbfertigungsNr"), r("Abfertigungsart"), "", False, zS) Then
+ Blatt.Range("F" & cnt).Value = ZOLLANMELDUNG.RechnungspreisohneWahrung
+ Blatt.Range("G" & cnt).Value = ZOLLANMELDUNG.Handelsrechnung.Replace(", ", "," & vbNewLine)
+ Blatt.Range("I" & cnt).Value = ZOLLANMELDUNG.ABGABEN_ZOLL
+ Blatt.Range("J" & cnt).Value = ZOLLANMELDUNG.ANZ_POS
+
+ If If(ZOLLANMELDUNG.ATCMRN, "") <> "" Then
+ Blatt.Range("H" & cnt).Value = ZOLLANMELDUNG.ATCMRN
+ End If
+ End If
+
+ Catch ex As Exception
+ MsgBox(ex.Message & ex.StackTrace)
+ End Try
+ lblKdAusFortschritt.Text = (cnt - 2) & "/" & dt.Rows.Count
+ Me.Refresh()
+ cnt += 1
+ Next
+ Datei.Save
+
+ If False Then
+ Blatt.PrintOutEx()
+ Else
+ 'Process.Start(Path)
+ .Visible = True
+
+ End If
+ End With
+
+ End If
+
+ End If
+ lblKdAusFortschritt.Text = "fertig"
+ Catch ex As Exception
+ MsgBox(ex.Message & ex.StackTrace)
+ lblKdAusFortschritt.Text = "Fehler"
+ End Try
+ Me.Cursor = Cursors.Default
+ End Sub
+
+
End Class
diff --git a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
index 9c02f9e5..36ffebbc 100644
--- a/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
+++ b/SDL/USTV/frmMDM_USTVAntrag.Designer.vb
@@ -113,6 +113,7 @@ Partial Class frmMDM_USTVAntrag
Me.dgvUSTVPositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlAntragsPosDetails = New System.Windows.Forms.Panel()
Me.Panel2 = New System.Windows.Forms.Panel()
+ Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.cbxKIUploaddelete = New System.Windows.Forms.CheckBox()
Me.scanUSTVA = New VERAG_PROG_ALLGEMEIN.usrcntlPDFScan()
@@ -123,6 +124,7 @@ Partial Class frmMDM_USTVAntrag
Me.Panel3 = New System.Windows.Forms.Panel()
Me.dgvErstattungspositionen = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
Me.pnlErstattungsdetails = New System.Windows.Forms.Panel()
+ Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
@@ -137,8 +139,6 @@ Partial Class frmMDM_USTVAntrag
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem3 = New System.Windows.Forms.ToolStripMenuItem()
- Me.UstCntlUSTV_AntragPosition1 = New SDL.ustCntlUSTV_AntragPosition()
- Me.UstCntlUSTV_AntragErstattungen1 = New SDL.ustCntlUSTV_ErstattungPosition()
Me.pnlBottom.SuspendLayout()
CType(Me.pb_Beleg, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.picExcel, System.ComponentModel.ISupportInitialize).BeginInit()
@@ -1515,6 +1515,14 @@ Partial Class frmMDM_USTVAntrag
Me.Panel2.Size = New System.Drawing.Size(1438, 263)
Me.Panel2.TabIndex = 1
'
+ 'UstCntlUSTV_AntragPosition1
+ '
+ Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
+ Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
+ Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
+ Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
+ '
'Panel4
'
Me.Panel4.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1660,6 +1668,14 @@ Partial Class frmMDM_USTVAntrag
Me.pnlErstattungsdetails.Size = New System.Drawing.Size(1436, 261)
Me.pnlErstattungsdetails.TabIndex = 0
'
+ 'UstCntlUSTV_AntragErstattungen1
+ '
+ Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
+ Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
+ Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
+ Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
+ Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
+ '
'Panel1
'
Me.Panel1.BackColor = System.Drawing.Color.WhiteSmoke
@@ -1731,56 +1747,40 @@ Partial Class frmMDM_USTVAntrag
'AktivierenToolStripMenuItem
'
Me.AktivierenToolStripMenuItem.Name = "AktivierenToolStripMenuItem"
- Me.AktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.AktivierenToolStripMenuItem.Size = New System.Drawing.Size(138, 22)
Me.AktivierenToolStripMenuItem.Text = "aktivieren"
'
'DeaktivierenToolStripMenuItem
'
Me.DeaktivierenToolStripMenuItem.Name = "DeaktivierenToolStripMenuItem"
- Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
+ Me.DeaktivierenToolStripMenuItem.Size = New System.Drawing.Size(138, 22)
Me.DeaktivierenToolStripMenuItem.Text = "deaktivieren"
'
'ncs_Belege
'
Me.ncs_Belege.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1})
Me.ncs_Belege.Name = "cns_vorauszahlen"
- Me.ncs_Belege.Size = New System.Drawing.Size(152, 26)
+ Me.ncs_Belege.Size = New System.Drawing.Size(181, 48)
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem2, Me.ToolStripMenuItem3})
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
- Me.ToolStripMenuItem1.Size = New System.Drawing.Size(151, 22)
+ Me.ToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.ToolStripMenuItem1.Text = "Vorauszahlung"
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
- Me.ToolStripMenuItem2.Size = New System.Drawing.Size(138, 22)
+ Me.ToolStripMenuItem2.Size = New System.Drawing.Size(180, 22)
Me.ToolStripMenuItem2.Text = "aktivieren"
'
'ToolStripMenuItem3
'
Me.ToolStripMenuItem3.Name = "ToolStripMenuItem3"
- Me.ToolStripMenuItem3.Size = New System.Drawing.Size(138, 22)
+ Me.ToolStripMenuItem3.Size = New System.Drawing.Size(180, 22)
Me.ToolStripMenuItem3.Text = "deaktivieren"
'
- 'UstCntlUSTV_AntragPosition1
- '
- Me.UstCntlUSTV_AntragPosition1.Dock = System.Windows.Forms.DockStyle.Fill
- Me.UstCntlUSTV_AntragPosition1.Location = New System.Drawing.Point(154, 0)
- Me.UstCntlUSTV_AntragPosition1.Name = "UstCntlUSTV_AntragPosition1"
- Me.UstCntlUSTV_AntragPosition1.Size = New System.Drawing.Size(1282, 261)
- Me.UstCntlUSTV_AntragPosition1.TabIndex = 0
- '
- 'UstCntlUSTV_AntragErstattungen1
- '
- Me.UstCntlUSTV_AntragErstattungen1.Dock = System.Windows.Forms.DockStyle.Fill
- Me.UstCntlUSTV_AntragErstattungen1.Location = New System.Drawing.Point(154, 0)
- Me.UstCntlUSTV_AntragErstattungen1.Name = "UstCntlUSTV_AntragErstattungen1"
- Me.UstCntlUSTV_AntragErstattungen1.Size = New System.Drawing.Size(1280, 259)
- Me.UstCntlUSTV_AntragErstattungen1.TabIndex = 2
- '
'frmMDM_USTVAntrag
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
diff --git a/SDL/kunden/frmKundenblatt.Designer.vb b/SDL/kunden/frmKundenblatt.Designer.vb
index b73ecb1b..4a2ad8f2 100644
--- a/SDL/kunden/frmKundenblatt.Designer.vb
+++ b/SDL/kunden/frmKundenblatt.Designer.vb
@@ -2446,7 +2446,7 @@ Partial Class frmKundenblatt
'
Me.btnFirmendatenFormularSpeichern.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnFirmendatenFormularSpeichern.FlatStyle = System.Windows.Forms.FlatStyle.Flat
- Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(1490, 21)
+ Me.btnFirmendatenFormularSpeichern.Location = New System.Drawing.Point(38, 21)
Me.btnFirmendatenFormularSpeichern.Name = "btnFirmendatenFormularSpeichern"
Me.btnFirmendatenFormularSpeichern.Size = New System.Drawing.Size(71, 52)
Me.btnFirmendatenFormularSpeichern.TabIndex = 17
@@ -2724,7 +2724,7 @@ Partial Class frmKundenblatt
'
Me.cntxtCntxtMDM.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.cntxtCntxtMDM.Name = "cntxtCntxtMDM"
- Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem4
+ Me.cntxtCntxtMDM.OwnerItem = Me.ToolStripMenuItem8
Me.cntxtCntxtMDM.Size = New System.Drawing.Size(61, 4)
Me.cntxtCntxtMDM.Text = "cntxtMDM"
'
diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
index 1020c5fd..d1ef0f89 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb
@@ -407,6 +407,11 @@ Class TrdInvoice_FUNCTIONS
Dim WährungsdifferenzSteuerfreierBetrag As Integer
Dim dt As DataTable = SQL.loadDgvBySql(getSQLString_SELECTForTrdInvoice(Firma, Buchungsjahr), "FMZOLL", 9800)
+
+ Dim dtVZ As DataTable
+
+ If Firma = 19 Then dtVZ = SQL.loadDgvBySql(getSQLString_SELECT_VZ(Firma, Buchungsjahr), "FMZOLL", 9800)
+
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
For Each ROW In dt.Rows
Dim TRD_INVOICE As VERAG_PROG_ALLGEMEIN.cTrdInvoice
@@ -480,11 +485,19 @@ Class TrdInvoice_FUNCTIONS
TRD_INVOICE.Abgleich_op_debitor = 0
TRD_INVOICE.Nettozahlungsziel = ROW("RK_Nettozahlungsziel")
TRD_INVOICE.Firma_ID = ROW("RK_Firma_ID")
- TRD_INVOICE.UStVAn_ID = ROW("AntragsID")
- TRD_INVOICE.VZ = ROW("VZ")
+
+ If dtVZ IsNot Nothing AndAlso dtVZ.Rows.Count > 0 Then
+ For Each VZ_ROW In dtVZ.Rows
+ If CDate(TRD_INVOICE.Rechnungsdatum) = CDate(VZ_ROW("RK_RechnungsDatum")) And TRD_INVOICE.FilialenNr.ToString = VZ_ROW("RK_FilialenNr").ToString And TRD_INVOICE.AbfertigungsNr = VZ_ROW("RK_AbfertigungsNr") And CDate(TRD_INVOICE.Abfertigungsdatum) = CDate(VZ_ROW("RK_Abfertigungsdatum")) And TRD_INVOICE.UnterNr = VZ_ROW("RK_UnterNr") And TRD_INVOICE.BelegartenNr = VZ_ROW("RK_BelegartenNr") Then
+ TRD_INVOICE.UStVAn_ID = VZ_ROW("AntragsID")
+ TRD_INVOICE.VZ = CInt(VZ_ROW("VZ"))
+ End If
+ Next
+
+ End If
If TRD_INVOICE.SAVE Then
- If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, ROW("VZ")) Then
+ If TrdinSchreibenProduct(TRD_INVOICE.Rechnungsdatum, ROW("RK_RechnungsNr"), TRD_INVOICE.Rechnungsnummer, RK_Währungscode, ROW("RK_RechnungsLandKz"), ROW("RK_Buchungstext"), TRD_INVOICE.Firma_ID, lngSatzzähler, WährungsdifferenzSteuerpflichtigerBetrag, WährungsdifferenzSteuerfreierBetrag, Buchungsjahr, TRD_INVOICE.VZ) Then
'UPDATE rechnugnsausgang
Dim firmaTmpsql = If(Firma > 0, " AND Firma_ID= '" & Firma & "' ", "")
Dim buchungsjahrTmpsql = If(Buchungsjahr > 0, " AND Buchungsjahr= '" & Buchungsjahr & "' ", "")
@@ -694,10 +707,21 @@ Class TrdInvoice_FUNCTIONS
Sum(RechnungsausgangPositionen.SteuerfreierBetrag) AS RK_SteuerfreierBetrag
, (Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100 AS RK_Steuerbetrag,
Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)+Sum(RechnungsausgangPositionen.SteuerfreierBetrag)+((Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100) AS RK_Rechnungsbetrag,
- Count(1) AS RK_Satzzähler, max(CONVERT(int,isnull(tblUStVPositionen.UStVPo_VZ,0))) as VZ, MAX(isnull(tblUStVPositionen.UStVAn_ID,0)) as AntragsID
+ Count(1) AS RK_Satzzähler, '' as VZ
+ FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
+ WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
+ GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
+ ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
+ '" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & "
+ End Function
+
+ Shared Function getSQLString_SELECT_VZ(Optional Firma As Integer = -1, Optional Buchungsjahr As Integer = -1)
+ getSQLString_SELECT_VZ = "SELECT Rechnungsausgang.RechnungsDatum AS RK_RechnungsDatum, Rechnungsausgang.RechnungsNr AS RK_RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum) AS RK_Abfertigungsdatum, min(Rechnungsausgang.FilialenNr) AS RK_FilialenNr,
+ min(Rechnungsausgang.AbfertigungsNr) AS RK_AbfertigungsNr, min(Rechnungsausgang.UnterNr) AS RK_UnterNr, min(Rechnungsausgang.BelegartenNr) AS RK_BelegartenNr,max(CONVERT(int,isnull(tblUStVPositionen.UStVPo_VZ,0))) as VZ, MAX(isnull(tblUStVPositionen.UStVAn_ID,0)) as AntragsID
FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID LEFT JOIN tblUStVPositionen on Rechnungsausgang.RK_ID = UStVPo_VZ_RKID
WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
- GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
+ GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr
+ HAVING max(CONVERT(int,isnull(tblUStVPositionen.UStVPo_VZ,0))) > 0
ORDER BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr, min(Rechnungsausgang.Abfertigungsdatum), min(Rechnungsausgang.FilialenNr), min(Rechnungsausgang.AbfertigungsNr), min(Rechnungsausgang.UnterNr);"
'" & If(Firma = 4, " and Rechnungsausgang.RechnungsNr='23800029'", "") & "
End Function
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
index adb13240..699c0ef6 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb
@@ -330,6 +330,10 @@ Public Class cSyska_Interface
'file.WriteLine(genBuchungenBeginn()) 'not needed
For Each r In dt_Buchungen.Rows
+ If r("Rechnungsnummer") = 25224877 Then
+ MsgBox("")
+ End If
+
Dim curDifferenzbetrag As Double = 0
If r("WährungFremd") Is DBNull.Value Then