neu
This commit is contained in:
@@ -16,6 +16,7 @@ Public Class frmFormulare
|
||||
Dim isSingleForm = False
|
||||
Event ShownFIN()
|
||||
Dim KdNr As Integer = 0
|
||||
Public printed As Boolean = False
|
||||
|
||||
Sub New()
|
||||
|
||||
@@ -183,7 +184,7 @@ Public Class frmFormulare
|
||||
|
||||
End Try
|
||||
|
||||
|
||||
cboTextkonserve.fillWithSQL("SELECT distinct([txt_bezeichnung]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText'", False, "FMZOLL", True)
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
@@ -210,6 +211,7 @@ Public Class frmFormulare
|
||||
|
||||
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Verbundenheit Käufer/Verkäufer", FormularManagerArten.Verbundenheit))
|
||||
MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Rechnungsbestätigung", FormularManagerArten.Rechnungsbestaetigung))
|
||||
|
||||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("Auftrag Überwachungsdokument", FormularManagerArten.QS_UeDok))
|
||||
' MyListBox2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VerpflichtungserklärungFahrer", FormularManagerArten.VerpflichtungserklärungFahrer))
|
||||
@@ -409,7 +411,6 @@ Public Class frmFormulare
|
||||
c = New usrcntlVorauskasse
|
||||
Else
|
||||
c = New usrcntlVorauskasse(param)
|
||||
|
||||
End If
|
||||
' Dim c As New usrcntlVorauskasse(param(0))
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
@@ -486,6 +487,20 @@ Public Class frmFormulare
|
||||
End Sub
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
Case FormularManagerArten.Rechnungsbestaetigung
|
||||
Dim c As New usrcntlRechnungsbestaetigung
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.CHANGED, AddressOf ValueChanged
|
||||
AddHandler c.KDNR_CHANGED, AddressOf KDNR_CHANGED
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
AddHandler c.MOVE_UP, AddressOf ControlMoveUp
|
||||
AddHandler c.MOVE_DOWN, AddressOf ControlMoveDown
|
||||
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
End If
|
||||
|
||||
Case FormularManagerArten.DispoListe
|
||||
If param Is Nothing Then param = {0}
|
||||
Dim c As New usrCntlDispoliste(param(0))
|
||||
@@ -559,7 +574,14 @@ Public Class frmFormulare
|
||||
MyFlowLayoutPanel1.Controls.Add(c)
|
||||
Case FormularManagerArten.Verzollungsunterlagen
|
||||
' If param Is Nothing Then Exit Sub
|
||||
Dim c As New usrcntlVerzollungsunterlagen()
|
||||
Dim c As usrcntlVerzollungsunterlagen
|
||||
If param Is Nothing Then
|
||||
c = New usrcntlVerzollungsunterlagen()
|
||||
Else
|
||||
c = New usrcntlVerzollungsunterlagen(param)
|
||||
End If
|
||||
|
||||
' Dim c As New usrcntlVerzollungsunterlagen()
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
AddHandler c.DELETE, AddressOf ControlDELETE
|
||||
@@ -914,6 +936,11 @@ Public Class frmFormulare
|
||||
Dim Mail As Microsoft.Office.Interop.Outlook.MailItem
|
||||
Mail = outl.CreateItem(0)
|
||||
|
||||
|
||||
'If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
|
||||
' Dim tX As New VERAG_PROG_ALLGEMEIN.textkon
|
||||
'End If
|
||||
|
||||
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
|
||||
Mail.Display()
|
||||
|
||||
@@ -934,6 +961,8 @@ Public Class frmFormulare
|
||||
End If
|
||||
End If
|
||||
|
||||
printed = True
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message & ex.StackTrace)
|
||||
End Try
|
||||
@@ -1090,6 +1119,12 @@ Public Class frmFormulare
|
||||
Private Sub cboPrinter_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboPrinter.SelectedIndexChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub MyComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboTextkonserve.SelectedIndexChanged
|
||||
cboTextKonserveSprache.Items.Clear()
|
||||
If cboTextkonserve._value <> "" Then cboTextKonserveSprache.fillWithSQL("SELECT distinct([txt_sprache]) FROM [tblTextkonserve] where [txt_kategorie] ='FRM_MNGR_MailText' and [txt_bezeichnung]='" & cboTextkonserve._value & "' ", False, "FMZOLL", True)
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
@@ -1151,6 +1186,8 @@ Public Class FormularManagerNEU
|
||||
retStr = FormularManagerNEU.QS_UeDok(c)
|
||||
Case GetType(usrcntlVerbundenheit).ToString
|
||||
retStr = FormularManagerNEU.Verbundenheit(c)
|
||||
Case GetType(usrcntlRechnungsbestaetigung).ToString
|
||||
retStr = FormularManagerNEU.Rechnungsbestaetigung(c)
|
||||
|
||||
Case GetType(usrcntlVUB).ToString
|
||||
retStr = FormularManagerNEU.VUB(c)
|
||||
@@ -1191,7 +1228,7 @@ Public Class FormularManagerNEU
|
||||
Case GetType(usrcntlVollmacht_VERAG_EXPORT).ToString
|
||||
' retStr = FormularManagerNEU.VM_VERAG_EXPORT(c)
|
||||
Case GetType(usrcntlVorauskasse).ToString
|
||||
validFormulare = DirectCast(c, usrcntlVorauskasse).ValidValues(err)
|
||||
If Not DirectCast(c, usrcntlVorauskasse).ValidValues(err) Then validFormulare = False
|
||||
Case GetType(usrcntlGestellungsgarantie).ToString
|
||||
' retStr = FormularManagerNEU.Gestellungsgarantie(c)
|
||||
Case GetType(usrcntlVerzollungspreise).ToString
|
||||
@@ -1206,6 +1243,8 @@ Public Class FormularManagerNEU
|
||||
' striList = FormularManagerNEU.VerpflichtungserklärungFahrer(c)
|
||||
Case GetType(usrcntlFiskalInfoschreiben).ToString
|
||||
' retStr = FormularManagerNEU.FiskalInfoschreiben(c)
|
||||
Case GetType(usrcntlVerzollungsunterlagen).ToString
|
||||
If Not DirectCast(c, usrcntlVerzollungsunterlagen).ValidValues(err) Then validFormulare = False
|
||||
|
||||
Case GetType(usrcntlVUB).ToString
|
||||
' retStr = FormularManagerNEU.VUB(c)
|
||||
@@ -1484,6 +1523,9 @@ Public Class FormularManagerNEU
|
||||
End If
|
||||
If colliGewicht <> "" Then rpt.txtAnmerkung.Text = (colliGewicht & vbNewLine & rpt.txtAnmerkung.Text).Trim
|
||||
|
||||
If SND.tblSnd_Abfertigungsart_ID = 23 Then 'ATA NR
|
||||
If If(SND.tblSnd_ATANr, "") <> "" Then rpt.txtAnmerkung.Text &= vbNewLine & "ATA-Nr.: " & SND.tblSnd_ATANr
|
||||
End If
|
||||
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX" : rpt.txtPosNr.Text &= vbNewLine & SND.tblSnd_KdAuftragsNrAvisierer
|
||||
@@ -2351,6 +2393,22 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
|
||||
'Dim myVermerk As New VERAG_PROG_ALLGEMEIN.cVermerk
|
||||
'myVermerk.AvisoID = usrCntl.AVISO.AvisoID
|
||||
'myVermerk.SendungID = dt.Rows(0)("tblSnd_SendungID")
|
||||
'myVermerk.Datum = If(DatumTmp, Now)
|
||||
'myVermerk.VermerkArt = "S"
|
||||
'myVermerk.Mitarbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " (AUTO)"
|
||||
'myVermerk.MitarbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
'Select Case VermerkCodeId
|
||||
' Case 13 : myVermerk.Hinweis_Vermerk = "Vorauskasse angefordert"
|
||||
' Case 14 : myVermerk.Hinweis_Vermerk = "Vorauskasse erhalten"
|
||||
' Case Else : Exit Sub
|
||||
'End Select
|
||||
'myVermerk.VermerkCodeId = VermerkCodeId
|
||||
|
||||
'VermerkeDAL.SpeichernVermerk(myVermerk)
|
||||
|
||||
|
||||
If usrCntl.cbxLKWWartet.Checked Then
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("!!! LKW wartet !!!", 141, 11, 60, 15, "boldRed", 20, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
@@ -2708,7 +2766,7 @@ Public Class FormularManagerNEU
|
||||
odoc.FormFields("Adresse4").Range.Text = usrCntl.txtAdresse2.Text
|
||||
odoc.FormFields("Adresse5").Range.Text = usrCntl.txtAdresse3.Text
|
||||
|
||||
odoc.FormFields("PosNr").Range.Text = usrCntl.txtPosNr.Text
|
||||
odoc.FormFields("PosNr").Range.Text = usrCntl.txtLKW.Text & " " & usrCntl.cboFiliale._value & "/" & usrCntl.txtAbfertigungsNr.Text
|
||||
|
||||
odoc.FormFields("Anlage1").Range.Text = usrCntl.txtAnlage1.Text
|
||||
odoc.FormFields("Anlage2").Range.Text = usrCntl.txtAnlage2.Text
|
||||
@@ -2726,6 +2784,13 @@ Public Class FormularManagerNEU
|
||||
|
||||
odoc.Save() : odoc.Activate()
|
||||
|
||||
|
||||
If usrCntl.cbxBeimErstellenSpeichern.Checked Then
|
||||
' If vbYes = MsgBox("Möchten Sie die Bonitätsauskunft in den Kundendaten speichern?", vbYesNoCancel) Then
|
||||
savePostversand(usrCntl, usrCntl.POST_ID)
|
||||
'End If
|
||||
End If
|
||||
|
||||
If openWord Then
|
||||
oWord.Visible = True
|
||||
Return New List(Of String)
|
||||
@@ -2836,152 +2901,152 @@ Public Class FormularManagerNEU
|
||||
|
||||
|
||||
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"
|
||||
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)
|
||||
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
|
||||
End Select
|
||||
|
||||
Case "DE_FISKAL"
|
||||
bool_StbFA = True
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
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)
|
||||
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
|
||||
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)
|
||||
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
|
||||
End Select
|
||||
|
||||
'MailHTMLText &= cFakturierung.getSignature(11)
|
||||
End Select
|
||||
'MailHTMLText &= cFakturierung.getSignature(11)
|
||||
End Select
|
||||
|
||||
MailHTMLText &= "</div>"
|
||||
'MAIL??
|
||||
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))
|
||||
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)
|
||||
Catch ex As Exception
|
||||
MessageBox.Show(ex.ToString & ex.StackTrace)
|
||||
End Try
|
||||
Return New List(Of String)
|
||||
End Function
|
||||
@@ -2996,8 +3061,9 @@ Public Class FormularManagerNEU
|
||||
Dim Mail_To = ""
|
||||
|
||||
If usrCntl.KdNR > 0 Then
|
||||
Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
|
||||
If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "")
|
||||
'lt. Kerstin: Steuerberater braucht den Verbringungsnachweis nicht
|
||||
' Dim FISKAL As New cFiskal_Daten(usrCntl.KdNR)
|
||||
' If FISKAL IsNot Nothing Then Mail_CC = If(FISKAL.fisk_schreibenSB_Mail, "")
|
||||
Dim AD As New VERAG_PROG_ALLGEMEIN.cAdressen(usrCntl.KdNR)
|
||||
If AD IsNot Nothing Then Mail_To = If(AD.E_Mail, "")
|
||||
End If
|
||||
@@ -3143,6 +3209,32 @@ Public Class FormularManagerNEU
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function Rechnungsbestaetigung(usrCntl As usrcntlRechnungsbestaetigung) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim top = 0
|
||||
|
||||
Select Case usrCntl.cboSprache._value
|
||||
Case "EN"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 50, 182, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 200, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_EN", listTowrite)
|
||||
Case "FR" '140/102
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 115, 182, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 102, 142, 60, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_FR", listTowrite)
|
||||
Case "TR"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 26, 165, 30, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 60, 147, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung_TR", listTowrite)
|
||||
Case Else
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtRgNr.Text, 80, 148, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtVersender.Text, 50, 165, 150, 6, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "Rechnungsbestaetigung", listTowrite)
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
@@ -3344,6 +3436,57 @@ Public Class FormularManagerNEU
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function savePostversand(usrCntl As usrcntlVerzollungsunterlagen, ByRef POST_ID As Integer) As Boolean
|
||||
Try
|
||||
'If Not IsNumeric(usrCntl.cboFiliale._value) Then Return False
|
||||
'If Not IsNumeric(usrCntl.txtAbfertigungsNr.Text) Then Return False
|
||||
|
||||
'Dim cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand = VERAG_PROG_ALLGEMEIN.cPostversand.LOADByFilialeAbfNr(usrCntl.cboFiliale._value, usrCntl.txtAbfertigungsNr.Text, usrCntl.ROLLE)
|
||||
Dim cPostversand As VERAG_PROG_ALLGEMEIN.cPostversand
|
||||
|
||||
If POST_ID > 0 Then
|
||||
cPostversand = New VERAG_PROG_ALLGEMEIN.cPostversand(POST_ID)
|
||||
Else
|
||||
cPostversand = New VERAG_PROG_ALLGEMEIN.cPostversand
|
||||
End If
|
||||
|
||||
'If cPostversand Is Nothing Then
|
||||
' cPostversand = New VERAG_PROG_ALLGEMEIN.cPostversand
|
||||
' 'ElseIf vbYes <> MsgBox("Es wurde am '" & cPostversand.post_Datum.ToShortDateString & "' um '" & cPostversand.post_Datum.ToShortTimeString & "' bereits eine Vorauskasse mit dieser Abfertigungsnummer angefordert, möchten Sie diese überschreiben?", vbYesNoCancel) Then
|
||||
' ' Return False
|
||||
'End If
|
||||
|
||||
|
||||
'cPostversand.post_GeldEingetroffen = usrCntl.XXXXXXX
|
||||
'cPostversand.post_BH_SachbearbeiterId = usrCntl.XXXXXXX
|
||||
'cPostversand.post_BH_Sachbearbeiter = usrCntl.XXXXXXX
|
||||
'cPostversand.post_BH_Bemerkung = usrCntl.XXXXXXX
|
||||
'cPostversand.post_BH_DatumGeldeingang = usrCntl.XXXXXXX
|
||||
|
||||
usrCntl.getValues(cPostversand)
|
||||
|
||||
If cPostversand.SAVE Then
|
||||
|
||||
usrCntl.btnNEU.Visible = True
|
||||
POST_ID = cPostversand.post_id
|
||||
usrCntl.lblCRsaved.Text = "(gespeichert)"
|
||||
usrCntl.lblCRsaved.ForeColor = Color.Green
|
||||
|
||||
' cPostversandOptions.insertVermerk(cPostversand.post_FilialeNr, cPostversand.post_AbfertigungsNr, 13)
|
||||
|
||||
Return True
|
||||
Else
|
||||
Return False
|
||||
End If
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("SaveVK: " & ex.Message)
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function addEinmaligeVM(listTowrite As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues), left As Integer, top As Integer, language As String, RgNr As String, RgDat As String, Optional small As Boolean = False) As List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Select Case language
|
||||
Case "EN", "FR"
|
||||
@@ -3540,6 +3683,11 @@ Public Class FormularManagerNEU
|
||||
Shared Sub OPEN_FORM(FORM As Form, PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False)
|
||||
Dim f As New frmFormulare(PDFArt, KdNr, param, isSingleForm)
|
||||
f.Show(FORM)
|
||||
End Sub
|
||||
|
||||
Shared Sub OPEN_FORM_Byref(PDFArt As String, Optional KdNr As Integer = 0, Optional param() As Object = Nothing, Optional isSingleForm As Boolean = False, Optional ByRef f As frmFormulare = Nothing)
|
||||
f = New frmFormulare(PDFArt, KdNr, param, isSingleForm)
|
||||
f.Show()
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
@@ -3583,6 +3731,7 @@ Public Class FormularManagerArten
|
||||
Shared Property Verbundenheit = "Verbundenheit"
|
||||
|
||||
Shared Property Sendungsliste = "Sendungsliste"
|
||||
Shared Property Rechnungsbestaetigung = "Rechnungsbestaetigung"
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user