Mahnlauf, FaktMail, etc.
This commit is contained in:
@@ -1099,10 +1099,10 @@ Public Class frmFaktEmail
|
||||
|
||||
If RECHNUNG.VermittlerKundenNr = 150000 Or RECHNUNG.VermittlerKundenNr = 140000 Then
|
||||
|
||||
'bei RMC und Durmaz doch wieder alles in einem Anhang !!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||||
For Each a In myListLiefereranten
|
||||
myList.Add(a)
|
||||
Next
|
||||
'bei RMC und Durmaz doch wieder alles in einem Anhang und ohne LIEFERANTENRECHNUNGEN !!!!!!!!
|
||||
'For Each a In myListLiefereranten
|
||||
' myList.Add(a)
|
||||
'Next
|
||||
|
||||
For Each a In myListPOSLIST
|
||||
myList.Add(a)
|
||||
|
||||
10
SDL/My Project/Resources.Designer.vb
generated
10
SDL/My Project/Resources.Designer.vb
generated
@@ -1893,6 +1893,16 @@ Namespace My.Resources
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
|
||||
'''</summary>
|
||||
Friend ReadOnly Property RG_ZF_NEW() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("RG_ZF_NEW", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
||||
@@ -949,4 +949,7 @@
|
||||
<data name="linked_b" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\linked_b.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<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>
|
||||
</root>
|
||||
BIN
SDL/Resources/RG_ZF_NEW.xlsx
Normal file
BIN
SDL/Resources/RG_ZF_NEW.xlsx
Normal file
Binary file not shown.
@@ -4704,6 +4704,9 @@
|
||||
<None Include="Resources\MDM_Schreiben\Uebernahmebestätigung\ÜBERNAHMEBESTÄTIGUNG_Kuvert_RO.dotx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
<None Include="Resources\RG_ZF_NEW.xlsx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
<None Include="Resources\RG_ZF.xlsx">
|
||||
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
|
||||
</None>
|
||||
|
||||
@@ -100,6 +100,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.Label31 = New System.Windows.Forms.Label()
|
||||
Me.Button8 = New System.Windows.Forms.Button()
|
||||
Me.Panel1 = New System.Windows.Forms.Panel()
|
||||
Me.cbxRptDetailsZahlungsdetails = New System.Windows.Forms.CheckBox()
|
||||
Me.cboDetailberichtKdAtrNr = New VERAG_PROG_ALLGEMEIN.MyComboBox()
|
||||
Me.Label38 = New System.Windows.Forms.Label()
|
||||
Me.Label44 = New System.Windows.Forms.Label()
|
||||
@@ -202,7 +203,7 @@ 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.cbxRptDetailsZahlungsdetails = New System.Windows.Forms.CheckBox()
|
||||
Me.cbxDetailbericht = New System.Windows.Forms.CheckBox()
|
||||
Me.cntxtCntxtSpeditionsbuch.SuspendLayout()
|
||||
Me.pnlRechts.SuspendLayout()
|
||||
CType(Me.DataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
@@ -774,6 +775,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
'pnlBerichte
|
||||
'
|
||||
Me.pnlBerichte.Controls.Add(Me.cbxDetailbericht)
|
||||
Me.pnlBerichte.Controls.Add(Me.MyComboBox2)
|
||||
Me.pnlBerichte.Controls.Add(Me.Button25)
|
||||
Me.pnlBerichte.Controls.Add(Me.Button24)
|
||||
@@ -924,7 +926,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.KundenauswertungenToolStripMenuItem1})
|
||||
Me.MenuStrip1.Location = New System.Drawing.Point(715, 158)
|
||||
Me.MenuStrip1.Name = "MenuStrip1"
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(163, 27)
|
||||
Me.MenuStrip1.Size = New System.Drawing.Size(283, 27)
|
||||
Me.MenuStrip1.TabIndex = 89
|
||||
Me.MenuStrip1.Text = "Kundenauswertungen"
|
||||
'
|
||||
@@ -942,7 +944,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image = CType(resources.GetObject("ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Image"), System.Drawing.Image)
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Name = "ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem"
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Text = "ZF Passau (Zeitraum auswählen)"
|
||||
Me.ZFFriedrichshafenAGZeitraumAuswählenToolStripMenuItem.Visible = False
|
||||
'
|
||||
@@ -950,14 +952,14 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Name = "ZFSteyrZeitraumAuswählenToolStripMenuItem"
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
|
||||
Me.ZFSteyrZeitraumAuswählenToolStripMenuItem.Text = "ZF Steyr (Zeitraum auswählen)"
|
||||
'
|
||||
'ZFThyrnauZeitraumAuswählenToolStripMenuItem
|
||||
'
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Image = Global.SDL.My.Resources.Resources.Excel_logo
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Name = "ZFThyrnauZeitraumAuswählenToolStripMenuItem"
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(308, 24)
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Text = "ZF Thyrnau (Zeitraum auswählen)"
|
||||
Me.ZFThyrnauZeitraumAuswählenToolStripMenuItem.Visible = False
|
||||
'
|
||||
@@ -965,7 +967,7 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
'
|
||||
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(308, 24)
|
||||
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Size = New System.Drawing.Size(316, 30)
|
||||
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Text = "Flender Bocholt (Zeitraum auswählen)"
|
||||
Me.FlenderBocholtZeitraumAuswählenToolStripMenuItem.Visible = False
|
||||
'
|
||||
@@ -1275,6 +1277,17 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.Panel1.Size = New System.Drawing.Size(227, 100)
|
||||
Me.Panel1.TabIndex = 48
|
||||
'
|
||||
'cbxRptDetailsZahlungsdetails
|
||||
'
|
||||
Me.cbxRptDetailsZahlungsdetails.AutoSize = True
|
||||
Me.cbxRptDetailsZahlungsdetails.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.cbxRptDetailsZahlungsdetails.Location = New System.Drawing.Point(5, 79)
|
||||
Me.cbxRptDetailsZahlungsdetails.Name = "cbxRptDetailsZahlungsdetails"
|
||||
Me.cbxRptDetailsZahlungsdetails.Size = New System.Drawing.Size(100, 17)
|
||||
Me.cbxRptDetailsZahlungsdetails.TabIndex = 58
|
||||
Me.cbxRptDetailsZahlungsdetails.Text = "Zahlungsdetails"
|
||||
Me.cbxRptDetailsZahlungsdetails.UseVisualStyleBackColor = False
|
||||
'
|
||||
'cboDetailberichtKdAtrNr
|
||||
'
|
||||
Me.cboDetailberichtKdAtrNr._allowedValuesFreiText = Nothing
|
||||
@@ -2823,16 +2836,16 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Me.SplitContainer.SplitterWidth = 2
|
||||
Me.SplitContainer.TabIndex = 3
|
||||
'
|
||||
'cbxRptDetailsZahlungsdetails
|
||||
'cbxDetailbericht
|
||||
'
|
||||
Me.cbxRptDetailsZahlungsdetails.AutoSize = True
|
||||
Me.cbxRptDetailsZahlungsdetails.BackColor = System.Drawing.Color.WhiteSmoke
|
||||
Me.cbxRptDetailsZahlungsdetails.Location = New System.Drawing.Point(5, 79)
|
||||
Me.cbxRptDetailsZahlungsdetails.Name = "cbxRptDetailsZahlungsdetails"
|
||||
Me.cbxRptDetailsZahlungsdetails.Size = New System.Drawing.Size(100, 17)
|
||||
Me.cbxRptDetailsZahlungsdetails.TabIndex = 58
|
||||
Me.cbxRptDetailsZahlungsdetails.Text = "Zahlungsdetails"
|
||||
Me.cbxRptDetailsZahlungsdetails.UseVisualStyleBackColor = False
|
||||
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
|
||||
'
|
||||
@@ -3051,4 +3064,5 @@ Partial Class usrCntlSpeditionsBuchSuche
|
||||
Friend WithEvents SendungsdetailsÖffnenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ZFSteyrZeitraumAuswählenToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents cbxRptDetailsZahlungsdetails As CheckBox
|
||||
Friend WithEvents cbxDetailbericht As CheckBox
|
||||
End Class
|
||||
|
||||
@@ -2131,7 +2131,7 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
,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 Abfertigungsdatum BETWEEN '" & txtAbfertDat.Text & "' AND '" & txtAbfertDatBis.Text & "' And Speditionsbuch.Abfertigungsart IN (1,29,38)", "FMZOLL")
|
||||
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")
|
||||
|
||||
Dim Path = ""
|
||||
If dt IsNot Nothing And dt.Rows.Count > 0 Then
|
||||
@@ -2148,79 +2148,217 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
Dim Blatt As Object 'Microsoft.Office.Interop.Excel.Worksheet 'As Object 'as Worksheet
|
||||
exclApp = CreateObject("Excel.Application")
|
||||
|
||||
With exclApp
|
||||
.Visible = False
|
||||
If cbxDetailbericht.Checked Then
|
||||
|
||||
Try
|
||||
Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
|
||||
While System.IO.File.Exists(Path)
|
||||
Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
|
||||
End While
|
||||
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, False)
|
||||
Catch ex As System.Exception
|
||||
' MsgBox(ex.Message)
|
||||
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
With exclApp
|
||||
.Visible = False
|
||||
|
||||
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.Rechnungspreis
|
||||
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
|
||||
Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
|
||||
While System.IO.File.Exists(Path)
|
||||
Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
|
||||
End While
|
||||
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF_NEW, False)
|
||||
Catch ex As System.Exception
|
||||
' MsgBox(ex.Message)
|
||||
MsgBox("ERROR 01: " & ex.Message & vbNewLine & ex.StackTrace)
|
||||
Me.Cursor = Cursors.Default
|
||||
|
||||
|
||||
'----------------------------------NEW
|
||||
|
||||
Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.Anmelder
|
||||
Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Warenbezeichung
|
||||
Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.VerBestLandZst
|
||||
'----------------------------------
|
||||
|
||||
|
||||
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)
|
||||
Exit Sub
|
||||
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
|
||||
Datei = .Workbooks.Open(Path) 'Anpassen
|
||||
Blatt = Datei.Worksheets(1) 'Anpassen
|
||||
|
||||
End If
|
||||
End With
|
||||
'Blatt.Range("I1").Value = txtAbfertDat.Text & "-" & txtAbfertDatBis.Text
|
||||
|
||||
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 = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100
|
||||
|
||||
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")
|
||||
Blatt.Range("AA" & cnt).Value = IIf(row.Item("isCBAM"), "Y", "N")
|
||||
|
||||
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 = ZOLLANMELDUNG.ABGABEN_ZOLL / ZOLLANMELDUNG.Rechnungspreis * 100
|
||||
|
||||
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 & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "" & " .xlsx"
|
||||
While System.IO.File.Exists(Path)
|
||||
Path = sPath & "ZF_" & txtAbfertDat.Text & "-" & txtAbfertDatBis.Text & "_" & Now.ToString("ddMMyyyyHHmmss") & ".xlsx"
|
||||
End While
|
||||
My.Computer.FileSystem.WriteAllBytes(Path, My.Resources.RG_ZF, 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.Rechnungspreis
|
||||
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
|
||||
|
||||
|
||||
'----------------------------------NEW
|
||||
|
||||
Blatt.Range("K" & cnt).Value = ZOLLANMELDUNG.Anmelder
|
||||
Blatt.Range("L" & cnt).Value = ZOLLANMELDUNG.Warenbezeichung
|
||||
Blatt.Range("M" & cnt).Value = ZOLLANMELDUNG.VerBestLandZst
|
||||
'----------------------------------
|
||||
|
||||
|
||||
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"
|
||||
@@ -2649,5 +2787,4 @@ Public Class usrCntlSpeditionsBuchSuche
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
@@ -1194,7 +1194,7 @@ Public Class usrCntlUSTV
|
||||
|
||||
Dim pruefdatum As Date = CDate(f.Datum)
|
||||
|
||||
Dim sqlQery = "Select A.AdressenNr, A.[E-Mail], A.[E-Mail2], A.LandKz, A.Ordnungsbegriff, L.LandKz, S.StNrFürRückerstattungUSt, S.StNrGültigkeitsdatum, CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum,
|
||||
Dim sqlQery = "Select A.AdressenNr, A.[E-Mail], A.[E-Mail2], A.LandKz as KundeLand, A.Ordnungsbegriff,L.LandKz as SteuerLandKz, S.StNrFürRückerstattungUSt, S.StNrGültigkeitsdatum, CAST('" & pruefdatum & "' AS DATE) AS Prüfdatum,
|
||||
CASE
|
||||
WHEN S.StNrGültigkeitsdatum > CAST('" & pruefdatum & "' AS DATE) THEN 1 ELSE 0
|
||||
END AS Gültig
|
||||
@@ -1247,27 +1247,27 @@ Public Class usrCntlUSTV
|
||||
|
||||
Dim attachmentSRB As Boolean = False
|
||||
Dim attachmentBIH As Boolean = False
|
||||
Dim attachmendSK As Boolean = False
|
||||
Dim attachmentSK As Boolean = False
|
||||
Dim attachmentHR As Boolean = False
|
||||
|
||||
For Each r In dt_Data_selected.Rows
|
||||
|
||||
If Not IsDBNull(r.item("LandKZ1")) Then
|
||||
Select Case r.item("LandKZ1")
|
||||
Case "HU" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Madarski, potpis sluzbene osobe ne smije biti faksimil mora bit vlastorucan)</li></b><br><br>"
|
||||
Case "SI" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Slovenacki)</li></b><br><br>"
|
||||
Case "LU" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju obavezno navedite sifru djelatnosti 4941, prevesti na Engleski)</li></b><br><br>"
|
||||
Case "SK" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Engleski)</li></b><br><br>" : attachmendSK = True
|
||||
Case "RO" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Rumonski)</li></b><br><br>"
|
||||
Case "HR" : TextHTML &= "<li><b>" & r.item("LandKZ1") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Hrvatski)</li></b><br><br>"
|
||||
If Not IsDBNull(r.item("SteuerLandKz")) Then
|
||||
Select Case r.item("SteuerLandKz")
|
||||
Case "HU" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Madarski, potpis sluzbene osobe ne smije biti faksimil mora bit vlastorucan)</li></b><br><br>"
|
||||
Case "SI" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Slovenacki)</li></b><br><br>"
|
||||
Case "LU" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju obavezno navedite sifru djelatnosti 4941, prevesti na Engleski)</li></b><br><br>"
|
||||
Case "SK" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Engleski)</li></b><br><br>" : attachmentSK = True
|
||||
Case "RO" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, prevedite na Rumonski)</li></b><br><br>"
|
||||
Case "HR" : TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (Na uverenju mora biti naveden datum kad ste registrovani kao PDV obaveznik, " & IIf(Not IsDBNull(r.item("KundeLand")) AndAlso r.item("KundeLand") = "BIH", "trazite da Vam izdaju uvjerenja na latinici da izbjegnete trosak prijevoda na Hrvatski jezik.", "prevedite na Hrvatski") & ")</li></b><br><br>" : attachmentHR = True
|
||||
Case Else
|
||||
TextHTML &= "<li><b>" & r.item("LandKZ1") & " (prevod na Engleski)</li></b><br><br>"
|
||||
TextHTML &= "<li><b>" & r.item("SteuerLandKz") & " (prevod na Engleski)</li></b><br><br>"
|
||||
End Select
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If Not IsDBNull(r.item("LandKZ")) Then
|
||||
Select Case r.item("LandKZ")
|
||||
If Not IsDBNull(r.item("KundeLand")) Then
|
||||
Select Case r.item("KundeLand")
|
||||
Case "SRB" : attachmentSRB = True
|
||||
Case "BIH" : attachmentBIH = True
|
||||
End Select
|
||||
@@ -1276,12 +1276,8 @@ Public Class usrCntlUSTV
|
||||
Next
|
||||
|
||||
TextHTML &= "<br><br>Molim Vas da nam original uverenja + prijevod dostavite pojedinacno za svaku zemlju, znaci koliko zemalja toliko uverenja I prevoda.<br><br>"
|
||||
|
||||
TextHTML &= "U privitku se nalazi primjer uverenja (u smislu sadrzaja)<br><br>"
|
||||
|
||||
TextHTML &= "za pitanja stojim na raspolaganju!<br><br>"
|
||||
|
||||
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
@@ -1296,17 +1292,27 @@ Public Class usrCntlUSTV
|
||||
If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
|
||||
End If
|
||||
|
||||
If attachmentBIH Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "BIH_FA_BESTAETIGUNG")
|
||||
Dim filepath = DS.GET_TOP1_PATH(False)
|
||||
If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End If
|
||||
If attachmentBIH And attachmendSK Then
|
||||
|
||||
If attachmentBIH And attachmentSK Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "SVK_FA_BESTAETIGUNG")
|
||||
Dim filepath = DS.GET_TOP1_PATH(False)
|
||||
If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End If
|
||||
|
||||
|
||||
If attachmentBIH And attachmentHR Then
|
||||
Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VORLAGEN", "SONSTIGE", "MDM", "", "HR_FA_BESTAETIGUNG")
|
||||
Dim filepath = DS.GET_TOP1_PATH(False)
|
||||
If filepath <> "" Then Mail.Attachments.Add(filepath, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue)
|
||||
End If
|
||||
|
||||
|
||||
Mail.Display()
|
||||
|
||||
Dim API = VERAG_PROG_ALLGEMEIN.cAPI.INSERT_API(VERAG_PROG_ALLGEMEIN.cAPI_INOUT.OUT, VERAG_PROG_ALLGEMEIN.cAPI_Type.MAIL, VERAG_PROG_ALLGEMEIN.cAPI_ART.SDL_OUT_FA, "FA-Bestaetigung",,, row.Item(0))
|
||||
|
||||
@@ -527,7 +527,7 @@ Public Class frmBU_Mahnlauf
|
||||
Case -2 : Mahngeb = 0 : rpt.Label24.Visible = False : rpt.lblSteuersatz.Visible = False : rpt.Label23.Visible = False : rpt.lblZwText.Visible = False
|
||||
Case -1 : Mahngeb = 0
|
||||
Case 0 : Mahngeb = 0
|
||||
Case 1 : Mahngeb = 10
|
||||
Case 1 : Mahngeb = 0 '10 keine Mahngeb bei 1. Mahnstufe laut Brigitte 29.07.2025
|
||||
Case 2 : Mahngeb = 20
|
||||
Case 3 : Mahngeb = 30
|
||||
Case 4 : Mahngeb = 40
|
||||
@@ -600,8 +600,11 @@ Public Class frmBU_Mahnlauf
|
||||
Dim Verzugszinsen As Double = 0
|
||||
Dim Verzugtage = DateDiff(DateInterval.Day, CDate(rpt.Fields.Item("Faelligkeit").Value), Now)
|
||||
If Verzugtage > 0 And Ausstand > 0 Then
|
||||
Verzugszinsen = ZinssatzVerzugszinsen / 365 * Ausstand * Verzugtage
|
||||
VerzugszinsenGes += Verzugszinsen
|
||||
If Firma_ID = 19 And MAHNSTUFE > 1 Then 'erst ab Mahnstufe 2 sollen bei MDM Verzugszinsen berechnet werden.
|
||||
Verzugszinsen = ZinssatzVerzugszinsen / 365 * Ausstand * Verzugtage
|
||||
VerzugszinsenGes += Verzugszinsen
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Reference in New Issue
Block a user