X
This commit is contained in:
@@ -290,6 +290,19 @@ Public Class frmFormulare
|
||||
Next
|
||||
|
||||
End Sub
|
||||
|
||||
Public Sub clearExceptMe(usrCntl)
|
||||
Dim list As New List(Of Object)
|
||||
For Each o In MyFlowLayoutPanel1.Controls
|
||||
If o.GetType IsNot usrCntl.GetType Then
|
||||
list.Add(o)
|
||||
End If
|
||||
Next
|
||||
For Each i In list
|
||||
MyFlowLayoutPanel1.Controls.Remove(i)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Public Sub MyListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles MyListBox1.DoubleClick, MyListBox2.DoubleClick
|
||||
Dim lb = DirectCast(sender, VERAG_PROG_ALLGEMEIN.MyListBox)
|
||||
If lb.SelectedItems().Count = 0 Then Exit Sub
|
||||
@@ -560,6 +573,19 @@ Public Class frmFormulare
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
Case FormularManagerArten.Gelangensbestaetigung
|
||||
' If param Is Nothing Then Exit Sub
|
||||
Dim c As New usrcntlVerzollungsunterlagen_Verbringsungsnachweis
|
||||
c.KdNR = param(0)
|
||||
c.Path = param(1)
|
||||
c.VBNr = param(2)
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
|
||||
Case FormularManagerArten.AT_InformationsblattFiskalverzollung, FormularManagerArten.DE_InformationsblattFiskalverzollung
|
||||
Dim displayName = ""
|
||||
' If param Is Nothing Then Exit Sub
|
||||
@@ -716,12 +742,9 @@ Public Class frmFormulare
|
||||
|
||||
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click, btn.Click, btnPrint.Click
|
||||
Me.Cursor = Cursors.WaitCursor
|
||||
Dim MailHTMLText = ""
|
||||
Dim Mail_To = ""
|
||||
Dim Mail_CC = ""
|
||||
Dim Mail_Subject = ""
|
||||
|
||||
|
||||
Dim listMail As New List(Of FormMangagerEmail)
|
||||
|
||||
Try
|
||||
|
||||
@@ -744,13 +767,13 @@ Public Class frmFormulare
|
||||
|
||||
If isSingleForm And sender Is btnPrint Then 'Sofortdruck --> wir bei ActiveRepots benötigt --> schneller, als zuerst pdf....
|
||||
If Not MyFlowLayoutPanel1.Controls.Count = 1 Then Me.Cursor = Cursors.Default : Exit Sub 'funkt. nur bei genau 1 Control
|
||||
FormularManagerNEU.genPDF(MyFlowLayoutPanel1.Controls(0), , True, cboPrinter.SelectedItem.ToString,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
|
||||
FormularManagerNEU.genPDF(MyFlowLayoutPanel1.Controls(0), , True, cboPrinter.SelectedItem.ToString,, listMail)
|
||||
Else
|
||||
|
||||
Dim list As New List(Of String) ' Sammlung PDFs
|
||||
|
||||
For Each c In MyFlowLayoutPanel1.Controls
|
||||
Dim pfadList As List(Of String) = FormularManagerNEU.genPDF(c,,,,, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
|
||||
Dim pfadList As List(Of String) = FormularManagerNEU.genPDF(c,,,,, listMail)
|
||||
For Each pfad In pfadList
|
||||
If pfad <> "" Then list.Add(pfad)
|
||||
Next
|
||||
@@ -835,7 +858,7 @@ Public Class frmFormulare
|
||||
' MailMessage.From = New MailAddress("someone@yourdomain.com")
|
||||
MailMessage.Subject = "" ' "Your subject here"
|
||||
MailMessage.IsBodyHtml = True
|
||||
MailMessage.Body = MailHTMLText '"<span style='font-size: 12pt; color: red;'>My HTML formatted body</span>"
|
||||
' MailMessage.Body = MailHTMLText '"<span style='font-size: 12pt; color: red;'>My HTML formatted body</span>"
|
||||
|
||||
MailMessage.Attachments.Add(New Attachment(dest_path))
|
||||
|
||||
@@ -866,18 +889,34 @@ Public Class frmFormulare
|
||||
' Else
|
||||
' Dim outl = CreateObject("Outlook.Application")
|
||||
' Dim Mail = CreateObject("Microsoft.Office.Interop.Outlook.MailItem")
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
If MailHTMLText <> "" Then Mail.HTMLBody = MailHTMLText
|
||||
If Mail_To <> "" Then Mail.To = Mail_To
|
||||
If Mail_CC <> "" Then Mail.CC = Mail_CC
|
||||
If Mail_Subject <> "" Then Mail.Subject = Mail_Subject
|
||||
If listMail IsNot Nothing AndAlso listMail.Count > 0 Then
|
||||
For Each l In listMail
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
If l.MailHTMLText <> "" Then Mail.HTMLBody = l.MailHTMLText
|
||||
If l.Mail_To <> "" Then Mail.To = l.Mail_To
|
||||
If l.Mail_CC <> "" Then Mail.CC = l.Mail_CC
|
||||
If l.Mail_BCC <> "" Then Mail.CC = l.Mail_BCC
|
||||
If l.Mail_Subject <> "" Then Mail.Subject = l.Mail_Subject
|
||||
|
||||
|
||||
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
|
||||
Mail.Display()
|
||||
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
|
||||
Mail.Display()
|
||||
|
||||
Next
|
||||
Else
|
||||
Dim outl As New Outlook.Application
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
|
||||
Mail.Display()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
'Dim matilPath = "C:\TEMP\VERAG_Mail.msg"
|
||||
' Mail.SaveAs(matilPath)
|
||||
@@ -1055,7 +1094,7 @@ End Class
|
||||
Public Class FormularManagerNEU
|
||||
|
||||
Shared VSQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
Shared Function genPDF(c As Control, Optional open As Boolean = False, Optional printReportElsePdf As Boolean = False, Optional printerName As String = "", Optional openWord As Boolean = False, Optional ByRef MailHTMLText As String = "", Optional ByRef Mail_To As String = "", Optional ByRef Mail_CC As String = "", Optional ByRef Mail_Subject As String = "") As List(Of String)
|
||||
Shared Function genPDF(c As Control, Optional open As Boolean = False, Optional printReportElsePdf As Boolean = False, Optional printerName As String = "", Optional openWord As Boolean = False, Optional ByRef listMail As List(Of FormMangagerEmail) = Nothing) As List(Of String)
|
||||
Dim retStr = ""
|
||||
Dim striList As New List(Of String)
|
||||
Select Case c.GetType.ToString
|
||||
@@ -1102,7 +1141,9 @@ Public Class FormularManagerNEU
|
||||
Case GetType(usrcntlVerzollungsunterlagen).ToString
|
||||
striList = FormularManagerNEU.Verzollungsunterlagen(c, printReportElsePdf, printerName, openWord)
|
||||
Case GetType(usrcntlVerzollungsunterlagen_BAR).ToString
|
||||
striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, MailHTMLText, Mail_To, Mail_CC, Mail_Subject)
|
||||
striList = FormularManagerNEU.VerzollungsunterlagenBAR(c, listMail)
|
||||
Case GetType(usrcntlVerzollungsunterlagen_Verbringsungsnachweis).ToString
|
||||
striList = FormularManagerNEU.Verzollungsunterlagen_Verbringungsnachweis(c, listMail)
|
||||
|
||||
Case GetType(usrcntlQS_UeDok).ToString
|
||||
retStr = FormularManagerNEU.QS_UeDok(c)
|
||||
@@ -2724,10 +2765,233 @@ Public Class FormularManagerNEU
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function VerzollungsunterlagenBAR(usrCntl As usrcntlVerzollungsunterlagen_BAR, ByRef MailHTMLText As String, ByRef Mail_To As String, ByRef Mail_CC As String, ByRef Mail_Subject As String) As List(Of String)
|
||||
Shared Function VerzollungsunterlagenBAR(usrCntl As usrcntlVerzollungsunterlagen_BAR, ByRef listMail As List(Of FormMangagerEmail)) As List(Of String)
|
||||
Try
|
||||
|
||||
Dim MailHTMLText = ""
|
||||
Dim Mail_Subject = ""
|
||||
|
||||
Dim MailHTMLText_STBFA = ""
|
||||
Dim Mail_Subject_STBFA = ""
|
||||
|
||||
Dim mail_To = ""
|
||||
|
||||
|
||||
Dim mail_To_Stb = ""
|
||||
Dim mail_To_FA = ""
|
||||
|
||||
Dim AD As VERAG_PROG_ALLGEMEIN.cAdressen = Nothing
|
||||
Dim KD As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
|
||||
|
||||
If usrCntl.KdNR > 0 Then
|
||||
AD = New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
|
||||
KD = New VERAG_PROG_ALLGEMEIN.cKunde(usrCntl.KdNR)
|
||||
If AD IsNot Nothing AndAlso AD.E_Mail <> "" Then
|
||||
mail_To = AD.E_Mail
|
||||
End If
|
||||
|
||||
Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
|
||||
If FISKAL IsNot Nothing Then
|
||||
mail_To_Stb = If(FISKAL.fisk_schreibenSB_Mail, "")
|
||||
mail_To_FA = If(FISKAL.fisk_schreibenFA_Mail, "")
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
Dim posNr = usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsnummer.Text
|
||||
If posNr = "/" Then
|
||||
posNr = ""
|
||||
Else
|
||||
posNr = " Pos.Nr.: " & posNr
|
||||
End If
|
||||
|
||||
Dim bool_StbFA = False
|
||||
|
||||
MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
|
||||
MailHTMLText_STBFA = "<div style=""font-family:Calibri, Arial"">"
|
||||
|
||||
Mail_Subject_STBFA = "Meldung innergemeinschaftlicher Erwerb" & posNr
|
||||
MailHTMLText_STBFA &= "<b><table style=""font-family:Calibri, Arial;font-weight:bold"">"
|
||||
MailHTMLText_STBFA &= "<tr><td>EORI-Nr.:</td><td>" & If(KD IsNot Nothing, If(KD.EORITIN, ""), "") & "</td></tr>"
|
||||
MailHTMLText_STBFA &= "<tr><td>UID-Nr.:</td><td>" & If(AD IsNot Nothing, If(AD.UstIdKz, ""), "") & If(AD IsNot Nothing, If(AD.UstIdNr, ""), "") & "</td></tr>"
|
||||
MailHTMLText_STBFA &= "<tr><td>Firma:</td><td>" & If(AD IsNot Nothing, AD.Name_1, "") & If(AD IsNot Nothing, If(AD.Name_2, ""), "") & "</td></tr>"
|
||||
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.Straße, "") & "</td></tr>" : Catch ex As Exception : End Try
|
||||
Try : MailHTMLText_STBFA &= "<tr><td></td><td>" & If(AD IsNot Nothing, AD.LandKz, "") & " " & If(AD IsNot Nothing, AD.PLZ, "") & " " & If(AD IsNot Nothing, AD.Ort, "") & "</td></tr>" : Catch ex As Exception : End Try
|
||||
MailHTMLText_STBFA &= "</table></b>"
|
||||
MailHTMLText_STBFA &= "<br>"
|
||||
MailHTMLText_STBFA &= "Sehr geehrte Damen und Herren,<br>"
|
||||
MailHTMLText_STBFA &= "<br>"
|
||||
MailHTMLText_STBFA &= "wir teilen Ihnen mit, dass wir für oben genanntes Unternehmen eine Zollabfertigung mit anschließender<br>"
|
||||
MailHTMLText_STBFA &= "innergemeinschaftlicher Lieferung (Verfahren 4200) lt. beiliegenden Unterlagen durchgeführt haben.<br>"
|
||||
MailHTMLText_STBFA &= "<br>"
|
||||
MailHTMLText_STBFA &= "Dies muss dem Finanzamt als ""innergemeinschaftlicher Erwerb"" gemeldet werden.<br>"
|
||||
MailHTMLText_STBFA &= "<br>"
|
||||
MailHTMLText_STBFA &= "<br>"
|
||||
MailHTMLText_STBFA &= "<br>"
|
||||
MailHTMLText_STBFA &= "Freundlichen Grüßen<br>"
|
||||
MailHTMLText_STBFA &= "<br>"
|
||||
MailHTMLText_STBFA &= "<br>"
|
||||
|
||||
|
||||
Select Case usrCntl.cboTEXT._value
|
||||
Case "AT_FISKAL"
|
||||
bool_StbFA = True
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "DE", ""
|
||||
Mail_Subject = "Meldung innergemeinschaftlicher Erwerb" & posNr
|
||||
MailHTMLText &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
|
||||
MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145 an</b>.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen. <br>"
|
||||
MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Bitte:<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "• GUT LESBAR<br>"
|
||||
MailHTMLText &= "• VERMERK: WAREN ERHALTEN<br>"
|
||||
MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME<br>"
|
||||
MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL<br>"
|
||||
MailHTMLText &= "• ORIGINAL UNTERSCHRIFT</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Post Adresse:</b><br>"
|
||||
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
|
||||
MailHTMLText &= "POSTFACH 1013<br>"
|
||||
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Freundlichen Grüßen<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 11)
|
||||
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
|
||||
Case "EN"
|
||||
|
||||
Mail_Subject = "intra-community acquisition" & posNr
|
||||
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Dear Sir / Madam,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
|
||||
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading. <br>"
|
||||
MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Please ensure the following:<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE<br>"
|
||||
MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
|
||||
MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
|
||||
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
|
||||
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Adress:</b><br>"
|
||||
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
|
||||
MailHTMLText &= "POSTFACH 1013<br>"
|
||||
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Yours faithfully,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("EN", 11)
|
||||
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 11)
|
||||
|
||||
End Select
|
||||
|
||||
Case "DE_FISKAL"
|
||||
bool_StbFA = True
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
|
||||
Mail_Subject = "intra-community acquisition" & posNr
|
||||
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Dear Sir / Madam,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
|
||||
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Yours faithfully<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("EN", 99)
|
||||
MailHTMLText_STBFA &= cFakturierung.getSignature("D", 99)
|
||||
|
||||
End Select
|
||||
|
||||
Case "EV"
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "DE", ""
|
||||
Mail_Subject = "Verzollungsunterlagen" & posNr
|
||||
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Freundlichen Grüßen<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 11)
|
||||
Case "EN"
|
||||
Mail_Subject = "Verzollungsunterlagen" & posNr
|
||||
MailHTMLText &= "Dear Sir / Madam,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "attached you will find the documents for customs clearance.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Yours faithfully<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("EN", 11)
|
||||
|
||||
End Select
|
||||
|
||||
'MailHTMLText &= cFakturierung.getSignature(11)
|
||||
End Select
|
||||
|
||||
MailHTMLText &= "</div>"
|
||||
'MAIL??
|
||||
|
||||
|
||||
|
||||
listMail.Add(New FormMangagerEmail(mail_To, "", "", Mail_Subject, MailHTMLText))
|
||||
If bool_StbFA Then listMail.Add(New FormMangagerEmail(mail_To_Stb, mail_To_FA, "", Mail_Subject_STBFA, MailHTMLText_STBFA))
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
Return New List(Of String)
|
||||
End Function
|
||||
|
||||
Shared Function Verzollungsunterlagen_Verbringungsnachweis(usrCntl As usrcntlVerzollungsunterlagen_Verbringsungsnachweis, ByRef listMail As List(Of FormMangagerEmail)) As List(Of String)
|
||||
Dim striList = New List(Of String)
|
||||
Try
|
||||
Dim VBNW_Nr = usrCntl.VBNr
|
||||
Dim MailHTMLText = "<div style=""font-family:Calibri, Arial"">"
|
||||
Dim Mail_Subject = ""
|
||||
Dim Mail_CC = ""
|
||||
Dim Mail_To = ""
|
||||
|
||||
If usrCntl.KdNR > 0 Then
|
||||
Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
|
||||
@@ -2737,120 +3001,123 @@ Public Class FormularManagerNEU
|
||||
End If
|
||||
|
||||
Select Case usrCntl.cboTEXT._value
|
||||
Case "AT_FISKAL"
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "DE", ""
|
||||
Mail_Subject = "Meldung innergemeinschaftlicher Erwerb"
|
||||
MailHTMLText &= "<b>!!! DRINGENDE ZOLLSACHE !!!</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "in der Anlage erhalten Sie die Unterlagen zu der Verzollung im Verfahren 4200.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Bitte melden Sie den Import in Ihrer Steuererklärung (UVA) als <b>""innergemeinschaftlichen Erwerb""</b><br>"
|
||||
MailHTMLText &= "mit unser <b>Sonder - UID-Nr.: ATU 68374145 an</b>.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Des Weiteren möchten wir Sie darauf hinweisen, dass eine <b>Intrastat Anmeldung</b> zu machen ist! <br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Die österreichische Zollbehörde verlangt in diesem Verfahren die Vorlegung einer gültigen Empfangsbestätigung. Aufgrund dessen ersuchen wir Sie den CMR/Frachtbrief, welchen der Fahrer bei der Abladung abgibt, zu bestätigen. <br>"
|
||||
MailHTMLText &= "Wir müssen diesen im Original vorlegen können, deshalb bitten wir Sie, das Dokument per Post an uns abzusenden!<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Bitte:<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "• GUT LESBAR<br>"
|
||||
MailHTMLText &= "• VERMERK: WAREN ERHALTEN<br>"
|
||||
MailHTMLText &= "• GENAUES DATUM DER WARENÜBERNAHME<br>"
|
||||
MailHTMLText &= "• ORIGINAL FIRMENSTEMPEL<br>"
|
||||
MailHTMLText &= "• ORIGINAL UNTERSCHRIFT</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Post Adresse:</b><br>"
|
||||
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
|
||||
MailHTMLText &= "POSTFACH 1013<br>"
|
||||
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Freundlichen Grüßen<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 11)
|
||||
Case "EN"
|
||||
Case "AT_FISKAL_DIREKT"
|
||||
|
||||
Mail_Subject = "intra-community acquisition"
|
||||
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Dear Sir / Madam,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Please register the import on your tax decleration ( turnover tax advance return ) as <br>"
|
||||
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an <b>Intrastat decleration!</b> <br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "In this procedure, the Austrian customs authority requires the presentation of a valid entry certificate. For this reason, we ask you to confirm the CMR/consignment note which the driver hands out in during unloading. <br>"
|
||||
MailHTMLText &= "We must be able to present this document in original. Therefore we ask you to send the document to us by post!<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Please ensure the following:<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "• THE DOCUMENT IS FULLY LEGIBLE<br>"
|
||||
MailHTMLText &= "• YOU NOTE ON THE FORM: GOODS RECEIVED<br>"
|
||||
MailHTMLText &= "• YOU NOTE THE EXACT DATE OF RECEIPT OF GOODS<br>"
|
||||
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL COMPANY STAMP<br>"
|
||||
MailHTMLText &= "• YOU PROVIDE AN ORIGINAL SIGNATURE</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Adress:</b><br>"
|
||||
MailHTMLText &= "VERAG CUSTOMS SERVICE GMBH<br>"
|
||||
MailHTMLText &= "POSTFACH 1013<br>"
|
||||
MailHTMLText &= "D 94152 NEUHAUS AM INN<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Yours faithfully,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("EN", 11)
|
||||
Mail_Subject = "Verbringungsnachweis AT-Fiskal | Nr.: " & VBNW_Nr
|
||||
|
||||
End Select
|
||||
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "beiliegend erhalten Sie eine Liste der Sendungen, bei denen eine FIskalverzollung durchgeführt wurde.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Die Aufstellung dient als Verbringungsnachweis der Ware, wir bitten Sie das Eingangsdatum der Sendung auszufüllen und das Formular mit Firmenstempel, Unterschrift und aktuellem Datum zu bestätigen.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Bitte den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse senden:<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Verag Customs Service GmbH<br>"
|
||||
MailHTMLText &= "Postfach 1013<br>"
|
||||
MailHTMLText &= "DE-94152 Neuhaus/Inn</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Vielen Dank im Voraus.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 11)
|
||||
|
||||
Case "DE_FISKAL"
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
Case "AT_FISKAL_INDIREKT"
|
||||
|
||||
Mail_Subject = "intra-community acquisition"
|
||||
MailHTMLText &= "<b>!! URGENT CUSTOMS MATTER !!</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Dear Sir / Madam,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Please find enclosed the documents regarding the customs clearance (process 4200).<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Please register the import on your tax declaration (turnover tax advance return) as ""<b>intra-Community acquisition</b>"" with our <b>special value added tax identification number DE 813667748.</b> <br>"
|
||||
MailHTMLText &= "<b>""intra-community acquisition""</b> with our <b>special value added tax identification number ATU68374145.</b>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Furthermore, we would like to point out that you must fill out an Intrastat declaration!<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Yours faithfully,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("EN", 99)
|
||||
Mail_Subject = "Verbringungsnachweis AT-Fiskal | Nr.: " & VBNW_Nr
|
||||
|
||||
End Select
|
||||
MailHTMLText &= "Sehr geehrte Damen und Herren,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "beiliegend erhalten Sie die Verbringungsnachweise für die jeweiligen Firmen, bei denen eine Fikalverzollung duchgeführt wurde.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Die jeweiligen Kunden sollen den beigefügten Verbringungsnachweis mit dem Eingangsdatum der Sendung ausfüllen und mit Firmenstempel,<br>"
|
||||
MailHTMLText &= "Unterschrift und aktuellem Datum ergänzen.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Wir bitten Sie den <u>Original</u>-Verbringungsnachweis umgehend an folgende Adresse zu senden:<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Verag Customs Service GmbH<br>"
|
||||
MailHTMLText &= "Postfach 1013<br>"
|
||||
MailHTMLText &= "DE-94152 Neuhaus/Inn<br>"
|
||||
MailHTMLText &= "</b><br>"
|
||||
MailHTMLText &= "Vielen Dank im Voraus.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 11)
|
||||
|
||||
|
||||
Case "DE_FISKAL_GB"
|
||||
|
||||
|
||||
Mail_Subject = "ENTRY CERTIFICATE | Nr.: " & VBNW_Nr
|
||||
|
||||
MailHTMLText &= "Dear Sir Or Madam,<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "we made german fiscal custom clearances for you at the border.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "In relation to this, we would like to inform you, that you have to register the acquisition and submit an Intrastat declaration.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "You also have to send us the necessary entry certificate.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Please confirm us the attached entry certificate With the date Of delivery, company stamp, Signature And<br>"
|
||||
MailHTMLText &= "the current date And send it back by E-Mail.</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Thanks in advance.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
|
||||
|
||||
MailHTMLText &= cFakturierung.getSignature("GB", 99)
|
||||
|
||||
|
||||
|
||||
Case "DE_FISKAL_FR"
|
||||
|
||||
|
||||
Mail_Subject = "ATTESTATION DE RECEPTION | Nr.: " & VBNW_Nr
|
||||
|
||||
MailHTMLText &= "Madame, Monsieur!<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Nous avons transporté pour vous de la marchandise provenant dans le cadre d'une livraison intracommunautaire exemptée de taxes.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Par consequent, nous vous informons du fait que vous êtes tenus de déclarer l'acquisation intracommunautaire et de remettre une déclaration Intrastat.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "En outre, s'il vous plaît envoyer nous la nécessité attestation de reception.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "<b>Confirmez, simplement la attestation de reception (voir ci-joint) avec du cachet de l'entreprise, signature, <br>"
|
||||
MailHTMLText &= "date de la marchandise d'entrée et la date courante et retourner à mon adresse e-mail.</b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Merci d'avance.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
|
||||
MailHTMLText &= cFakturierung.getSignature("FR", 99)
|
||||
|
||||
'MailHTMLText &= cFakturierung.getSignature(11)
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
MailHTMLText &= "</div>"
|
||||
'MAIL??
|
||||
|
||||
|
||||
listMail.Add(New FormMangagerEmail(Mail_To, Mail_CC, "", Mail_Subject, MailHTMLText))
|
||||
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 53, 82, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
|
||||
' listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtBestimmungszollamt.Text, 82, 152, 100, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
' Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "GESTELLUNGSGARANTIEN", getUO2, "", "Gestellungsgarantie_EN", listTowrite)
|
||||
|
||||
|
||||
'oWord.Visible = True
|
||||
|
||||
|
||||
striList.Add(usrCntl.Path)
|
||||
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
Return New List(Of String)
|
||||
Return striList
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Shared Function Verbundenheit(usrCntl As usrcntlVerbundenheit) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
@@ -3307,6 +3574,7 @@ Public Class FormularManagerArten
|
||||
Shared Property AT_InformationsblattFiskalverzollung = "AT_InformationsblattFiskalverzollung"
|
||||
Shared Property Verzollungsunterlagen = "Verzollungsunterlagen"
|
||||
Shared Property VerzollungsunterlagenBAR = "VerzollungsunterlagenBAR"
|
||||
Shared Property Gelangensbestaetigung = "Gelangensbestaetigung"
|
||||
Shared Property QS_UeDok = "QS_UeDok"
|
||||
Shared Property SA_Gestellung = "SA_Gestellung"
|
||||
Shared Property Importaviso = "Importaviso"
|
||||
@@ -3341,4 +3609,19 @@ Public NotInheritable Class FormularManagerArten2
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Public Class FormMangagerEmail
|
||||
Property Mail_To
|
||||
Property Mail_CC
|
||||
Property Mail_BCC
|
||||
Property Mail_Subject
|
||||
Property MailHTMLText
|
||||
Sub New(Mail_To, Mail_CC, Mail_BCC, Mail_Subject, MailHTMLText)
|
||||
Me.Mail_To = Mail_To
|
||||
Me.Mail_CC = Mail_CC
|
||||
Me.Mail_BCC = Mail_BCC
|
||||
Me.Mail_Subject = Mail_Subject
|
||||
Me.MailHTMLText = MailHTMLText
|
||||
End Sub
|
||||
End Class
|
||||
'Member von System.Windows.Forms
|
||||
|
||||
Reference in New Issue
Block a user