div. Änderungen
This commit is contained in:
@@ -785,36 +785,9 @@ 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
|
||||
|
||||
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
|
||||
|
||||
Next
|
||||
|
||||
|
||||
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()
|
||||
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
|
||||
@@ -822,6 +795,34 @@ Public Class frmFaktEmail
|
||||
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") 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
|
||||
|
||||
|
||||
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 hasVZ Then
|
||||
Dim SQL As New SQL
|
||||
|
||||
|
||||
20
SDL/My Project/Resources.Designer.vb
generated
20
SDL/My Project/Resources.Designer.vb
generated
@@ -290,6 +290,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
|
||||
'''</summary>
|
||||
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
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
@@ -578,6 +588,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
|
||||
'''</summary>
|
||||
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
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
||||
@@ -952,4 +952,10 @@
|
||||
<data name="RG_ZF_NEW" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\RG_ZF_NEW.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Auswertung_divers" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Auswertung_divers.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Detailauswertung_divers" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Detailauswertung_divers.xlsx;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
</root>
|
||||
BIN
SDL/Resources/Auswertung_divers.xlsx
Normal file
BIN
SDL/Resources/Auswertung_divers.xlsx
Normal file
Binary file not shown.
BIN
SDL/Resources/Detailauswertung_divers.xlsx
Normal file
BIN
SDL/Resources/Detailauswertung_divers.xlsx
Normal file
Binary file not shown.
@@ -4691,6 +4691,8 @@
|
||||
<None Include="andreas.cer" />
|
||||
<None Include="ClassDiagram1.cd" />
|
||||
<None Include="PrivateCodeSignaturDaniel20240131.pfx" />
|
||||
<None Include="Resources\Auswertung_divers.xlsx" />
|
||||
<None Include="Resources\Detailauswertung_divers.xlsx" />
|
||||
<None Include="Resources\FA_Graz_EV-Veranlagung_Muster.xlsx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
48
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
48
SDL/USTV/frmMDM_USTVAntrag.Designer.vb
generated
@@ -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!)
|
||||
|
||||
4
SDL/kunden/frmKundenblatt.Designer.vb
generated
4
SDL/kunden/frmKundenblatt.Designer.vb
generated
@@ -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"
|
||||
'
|
||||
|
||||
@@ -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
|
||||
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
|
||||
|
||||
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user