neu
This commit is contained in:
@@ -17,6 +17,8 @@ Public Class frmFormulare
|
||||
Event ShownFIN()
|
||||
Dim KdNr As Integer = 0
|
||||
Public printed As Boolean = False
|
||||
Public SENDUNG As VERAG_PROG_ALLGEMEIN.cSendungen = Nothing
|
||||
Public AVISO As VERAG_PROG_ALLGEMEIN.cAviso = Nothing
|
||||
|
||||
Sub New()
|
||||
|
||||
@@ -440,8 +442,12 @@ Public Class frmFormulare
|
||||
c = New usrcntlVorauskasse
|
||||
Else
|
||||
c = New usrcntlVorauskasse(param)
|
||||
If param.Length > 3 Then AVISO = param(3)
|
||||
End If
|
||||
' Dim c As New usrcntlVorauskasse(param(0))
|
||||
If cboTextkonserve._value = "" Then cboTextkonserve._value = "Vorauskasse"
|
||||
If cboTextKonserveSprache._value = "" Then cboTextKonserveSprache._value = "DE"
|
||||
|
||||
If ControlExists_addOK(c.GetType.ToString) Then
|
||||
c.Width = MyFlowLayoutPanel1.Width - 6
|
||||
c.KdNR = KdNr
|
||||
@@ -985,8 +991,25 @@ Public Class frmFormulare
|
||||
If Me.txtEmail.Text <> "" Then Mail.To = Me.txtEmail.Text
|
||||
If cboTextkonserve._value <> "" AndAlso cboTextKonserveSprache._value <> "" Then
|
||||
Dim tX As New VERAG_PROG_ALLGEMEIN.cTextkonserve("FRM_MNGR_MailText", cboTextkonserve._value, cboTextKonserveSprache._value, VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA)
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & tX.txt_text & cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig) & "</div>"
|
||||
Mail.Subject = tX.txt_betreff.Replace("%LKW%", "")
|
||||
|
||||
Dim TextHTML = ""
|
||||
TextHTML &= tX.txt_text
|
||||
TextHTML &= cFakturierung.getSignature(cboTextKonserveSprache._value, tX.txt_firmaSig, True, True)
|
||||
TextHTML &= "<br>"
|
||||
TextHTML &= "Mit freundlichen Grüßen<br>"
|
||||
TextHTML &= VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME & "<br>"
|
||||
TextHTML &= "<br>"
|
||||
|
||||
Mail.HTMLBody = "<div style=""font-family:Calibri, Arial"">" & TextHTML & "</div>"
|
||||
|
||||
|
||||
Mail.Subject = tX.txt_betreff
|
||||
If AVISO IsNot Nothing Then
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", AVISO.LKW_Nr)
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", AVISO.LKW_Nr)
|
||||
End If
|
||||
Mail.Subject = Mail.Subject.Replace("%LKW%", "")
|
||||
Mail.Subject = Mail.Subject.Replace("%LKWKennzeichen%", "")
|
||||
End If
|
||||
|
||||
Mail.Attachments.Add(dest_path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue, , "VERAG_Formular.pdf")
|
||||
@@ -1815,7 +1838,13 @@ Public Class FormularManagerNEU
|
||||
Case Else
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
|
||||
Case "SBG" : ort = "Bad Reichenhall"
|
||||
Case "WAI" : ort = "Waidhaus"
|
||||
Case "WAI"
|
||||
ort = "Waidhaus"
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.TextBox7.Visible = True
|
||||
If AVISO.ImEx = "EXPORT" Then rpt.TextBox3.Visible = False
|
||||
rpt.picVERAG.Image = My.Resources.Verag_Spedition_GMBH_Logo
|
||||
|
||||
Case "NKD" : ort = "Nickelsdorf"
|
||||
Case "NEU" : ort = "Neuhaus am Inn"
|
||||
End Select
|
||||
@@ -3399,12 +3428,21 @@ Public Class FormularManagerNEU
|
||||
rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_IMEX.Visible = True
|
||||
rpt.TextBox6.Visible = False
|
||||
Case "AMBAR"
|
||||
rpt.txtFirmenkennung.Text = "Ambar Logistic Services GmbH"
|
||||
rpt.picVERAG.Image = My.Resources.ambar_simple
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_IMEX.Visible = False
|
||||
rpt.TextBox6.Visible = True
|
||||
Case "ATILLA"
|
||||
rpt.txtFirmenkennung.Text = "ATILLA Spedition GmbH"
|
||||
rpt.picVERAG.Image = My.Resources.Atilla
|
||||
rpt.txtFirmaInfo_VERAG.Visible = False
|
||||
rpt.txtFirmaInfo_ATILLA.Visible = True
|
||||
Case Else 'Nix
|
||||
rpt.TextBox6.Visible = False
|
||||
Case Else 'Nix
|
||||
rpt.txtFirmaInfo_VERAG.Visible = True
|
||||
End Select
|
||||
|
||||
rpt.DataSource = dt
|
||||
@@ -3650,6 +3688,7 @@ Public Class FormularManagerNEU
|
||||
nameDispo = "VerzollungsunterlagenAG2"
|
||||
Select Case usrCntl.cboFirma._value
|
||||
Case "IMEX" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "IMEX"
|
||||
Case "AMBAR" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "AMBAR"
|
||||
Case "UNISPED" : nameDispo = "Verzollungsunterlagen" : uOrdner2 = "UNISPED"
|
||||
Case "CS" : nameDispo = "VerzollungsunterlagenCS"
|
||||
Case Else : nameDispo = "VerzollungsunterlagenAG2"
|
||||
@@ -3799,6 +3838,7 @@ Public Class FormularManagerNEU
|
||||
Select Case usrCntl.cboFiliale._value
|
||||
Case "5501" : Firma_idI_Sig_AT = 20 : Firma_idI_Sig_DE = 20 : Firma_idI_Sig_EV = 20 : SonderUID_AT = "DE295575575" : SonderUID_DE = "DE295575575" : Postfach_DE = "IMEX CUSTOMS SERVICE GMBH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
|
||||
Case "5601" : Firma_idI_Sig_AT = 23 : Firma_idI_Sig_DE = 22 : Firma_idI_Sig_EV = 23 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "UNISPED Speditions GmbH<br>HARTHAM 6<br>D 94152 NEUHAUS AM INN<br>"
|
||||
Case "5701" : Firma_idI_Sig_AT = 24 : Firma_idI_Sig_DE = 24 : Firma_idI_Sig_EV = 24 : SonderUID_AT = "" : SonderUID_DE = "" : Postfach_DE = "AMBAR Logistic Services GmbH<br>Reichenhallerstraße 62<br>D 83435 BAD REICHENHALL<br>"
|
||||
Case Else : Firma_idI_Sig_AT = 11 : Firma_idI_Sig_DE = 99 : Firma_idI_Sig_EV = 11 ' VERAG
|
||||
|
||||
End Select
|
||||
@@ -4068,6 +4108,14 @@ Public Class FormularManagerNEU
|
||||
MailHTMLText &= "Vielen Dank im Voraus.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case "AMBAR"
|
||||
MailHTMLText &= "Ambar Logistic Services GmbH <br>"
|
||||
MailHTMLText &= "Reichenhallerstrasse 62</b><br>"
|
||||
MailHTMLText &= "DE-83435 Bad Reichenhall </b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Vielen Dank im Voraus.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case Else
|
||||
MailHTMLText &= "Verag Customs Service GmbH<br>"
|
||||
MailHTMLText &= "Postfach 1013<br>"
|
||||
@@ -4101,6 +4149,14 @@ Public Class FormularManagerNEU
|
||||
MailHTMLText &= "Vielen Dank im Voraus.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case "AMBAR"
|
||||
MailHTMLText &= "Ambar Logistic Services GmbH <br>"
|
||||
MailHTMLText &= "Reichenhallerstrasse 62</b><br>"
|
||||
MailHTMLText &= "DE-83435 Bad Reichenhall </b><br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= "Vielen Dank im Voraus.<br>"
|
||||
MailHTMLText &= "<br>"
|
||||
MailHTMLText &= cFakturierung.getSignature("D", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case Else
|
||||
MailHTMLText &= "Verag Customs Service GmbH<br>"
|
||||
MailHTMLText &= "Postfach 1013<br>"
|
||||
@@ -4134,6 +4190,8 @@ Public Class FormularManagerNEU
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
MailHTMLText &= cFakturierung.getSignature("GB", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case "AMBAR"
|
||||
MailHTMLText &= cFakturierung.getSignature("GB", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case Else
|
||||
MailHTMLText &= cFakturierung.getSignature("GB", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
End Select
|
||||
@@ -4161,6 +4219,8 @@ Public Class FormularManagerNEU
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
MailHTMLText &= cFakturierung.getSignature("FR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case "AMBAR"
|
||||
MailHTMLText &= cFakturierung.getSignature("FR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case Else
|
||||
MailHTMLText &= cFakturierung.getSignature("FR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
End Select
|
||||
@@ -4180,6 +4240,8 @@ Public Class FormularManagerNEU
|
||||
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case "IMEX"
|
||||
MailHTMLText &= cFakturierung.getSignature("TR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case "AMBAR"
|
||||
MailHTMLText &= cFakturierung.getSignature("TR", 20, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
Case Else
|
||||
MailHTMLText &= cFakturierung.getSignature("TR", 99, (VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "VERAG"))
|
||||
End Select
|
||||
@@ -4303,8 +4365,8 @@ Public Class FormularManagerNEU
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 37, 46, 120, 12, "bold", 20, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 141, 47, 50, 12, "bold", 16, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 216, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 64, 265, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", "FRONTOFFICE", "", "zumZoll_Aviso", listTowrite)
|
||||
'End Select
|
||||
' End If
|
||||
@@ -4313,6 +4375,29 @@ Public Class FormularManagerNEU
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function zumZOLL_AVISO_WAI(AVISO As VERAG_PROG_ALLGEMEIN.cAviso) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
Dim listTowrite As New List(Of VERAG_PROG_ALLGEMEIN.cPDFWriteValues)
|
||||
Dim top = 0
|
||||
|
||||
' If AVISO.Grenzstelle = "WAI" Then
|
||||
' If AVISO.Status = VERAG_PROG_ALLGEMEIN.cGlobal.Status_Freigegeben Then
|
||||
'Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
' Case "FRONTOFFICE", "VERAG"
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.LKW_Nr, 55, 23, 65, 8, "bold", 15, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(AVISO.Freigabe.ToShortDateString & " " & AVISO.Freigabe.ToShortTimeString, 141, 47, 50, 8, "bold", 10, , iTextSharp.text.Element.ALIGN_LEFT))
|
||||
listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(Now.ToShortDateString & " " & Now.ToShortTimeString, 150, 32, 45, 10, "bold", 12, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
'If Zollamt = "DE" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 215, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
'If Zollamt = "AT" Then listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues("X", 61, 263, 6, 6, "bold", 16, , iTextSharp.text.Element.ALIGN_CENTER))
|
||||
Return fm.fillPDF("DOKUMENTE", "VORLAGEN", "SONSTIGE", getUO2, "", "zumZoll_Aviso_WAI", listTowrite)
|
||||
'End Select
|
||||
' End If
|
||||
' End If
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Shared Function QS_UeDok(usrCntl As usrcntlQS_UeDok) As String
|
||||
Dim fm As New VERAG_PROG_ALLGEMEIN.cFormularManager
|
||||
|
||||
|
||||
Reference in New Issue
Block a user