Änderungen f Ambar (ilyas)
This commit is contained in:
@@ -1776,7 +1776,7 @@ Public Class cFakturierung
|
||||
Return getSignature(RECHNUNG.RechnungsLandKz, RECHNUNG.Firma_ID)
|
||||
End Function
|
||||
|
||||
Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = True, Optional special = "", Optional additionalLine = "", Optional departmentmailadress = True) As String
|
||||
Shared Function getSignature(Optional landKz = "", Optional firma = -1, Optional individuell = False, Optional displayFirmenmane = True, Optional special = "", Optional additionalLine = "", Optional departmentmailadress = True, Optional fakturierung = False) As String
|
||||
getSignature = ""
|
||||
|
||||
firma = getFirmaNr(firma)
|
||||
@@ -1821,10 +1821,10 @@ Public Class cFakturierung
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Autobahngrenze 15 <br><b>T</b> +43 7711 31630 | <b>F</b> +43 7711 31630-1 | <b>@</b> " & If(individuell, emailindividuell, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>"
|
||||
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
|
||||
Case 24 'AMBAR
|
||||
Dim defaultMail = getDefaultMail("AMBAR", departmentmailadress)
|
||||
Dim defaultMail = getDefaultMail("AMBAR", departmentmailadress, fakturierung)
|
||||
getSignature &= "<img width=""250"" height=""70"" src=""" & imgsrc & "ambar_boarder.png""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br><b>AMBAR Logistic Services GmbH</b><br>"
|
||||
getSignature &= "<div style=""font-size:12px"">D 83435 Bad Reichenhall, Reichenhallerstrasse 62<br><b>T</b> +49 8651 99624911 | <b>F</b> +49 8651 9962493 | <b>@</b> " & If(individuell, emailindividuell, defaultMail) & " | www.ambarlog.com | DE309105428</div>"
|
||||
getSignature &= "<div style=""font-size:12px"">D 83435 Bad Reichenhall, Reichenhallerstrasse 62<br><b>T</b> +49 8651 9962492 | <b>F</b> +49 8651 9962493 | <b>@</b> " & If(individuell, emailindividuell, defaultMail) & " | www.ambarlog.com | DE309105428</div>"
|
||||
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
|
||||
Case 21 'UNISPED
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Unisped_logo.jpg""/>"
|
||||
@@ -1877,24 +1877,40 @@ Public Class cFakturierung
|
||||
getSignature &= "<br>"
|
||||
End Select
|
||||
End If
|
||||
Select Case landKz
|
||||
Case "D", "A", "DE", "AT", "CH"
|
||||
getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grund der Allgemeinen Österreichischen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten,<br>
|
||||
Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-Zoll - und Tarifauskünfte sind unverbindlich.</span>"
|
||||
Case "E", "GB"
|
||||
getSignature &= "<span style=""font-size:9px"">We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially<br>
|
||||
charged on freight, fees and interests and at last on customs duties. The place of jurisdiction is Schärding or Ried. Tax, customs and tariff information are not binding.</span>"
|
||||
|
||||
Select Case firma
|
||||
Case 24 'AMBAR
|
||||
|
||||
Select Case landKz
|
||||
Case "D", "A", "DE", "AT", "CH"
|
||||
getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grundlage der Allgemeinen Deutschen Spediteurbedingungen 2017 – ADSp 2017 –.</span>"
|
||||
|
||||
Case Else
|
||||
getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grundlage der Allgemeinen Deutschen Spediteurbedingungen 2017 – ADSp 2017 –.</span>"
|
||||
|
||||
End Select
|
||||
|
||||
Case Else
|
||||
getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten,<br>
|
||||
Select Case landKz
|
||||
Case "D", "A", "DE", "AT", "CH"
|
||||
getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grund der Allgemeinen Österreichischen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten,<br>
|
||||
Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-Zoll - und Tarifauskünfte sind unverbindlich.</span>"
|
||||
getSignature &= "<br>"
|
||||
getSignature &= "<span style=""font-size:9px"">We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially<br>
|
||||
Case "E", "GB"
|
||||
getSignature &= "<span style=""font-size:9px"">We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially<br>
|
||||
charged on freight, fees and interests and at last on customs duties. The place of jurisdiction is Schärding or Ried. Tax, customs and tariff information are not binding.</span>"
|
||||
Case Else
|
||||
getSignature &= "<span style=""font-size:9px"">Wir arbeiten ausschließlich auf Grund der Allgemeinen Spediteurbedingungen in der jeweils geltenden Fassung. Zahlungen werden zunächst auf Frachten,<br>
|
||||
Spesen und Zinsen zuletzt auf Zölle angerechnet. Zahlbar und klagbar in Schärding. Steuer-Zoll - und Tarifauskünfte sind unverbindlich.</span>"
|
||||
getSignature &= "<br>"
|
||||
getSignature &= "<span style=""font-size:9px"">We operate exclusively on the basis of the General Freight Forwarding Terms and Conditions in the respectively applicable version. Payments are initially<br>
|
||||
charged on freight, fees and interests and at last on customs duties. The place of jurisdiction is Schärding or Ried. Tax, customs and tariff information are not binding.</span>"
|
||||
|
||||
End Select
|
||||
End Select
|
||||
|
||||
End Function
|
||||
|
||||
Shared Function getDefaultMail(firma, Optional useDepartmentmailadress = True) As String
|
||||
Shared Function getDefaultMail(firma, Optional useDepartmentmailadress = True, Optional fakturierung = False) As String
|
||||
Dim defaultMail = ""
|
||||
Select Case firma
|
||||
Case "AMBAR"
|
||||
@@ -1903,6 +1919,8 @@ Public Class cFakturierung
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "BH" Then defaultMail = "buchhaltung@ambarlog.de"
|
||||
If VERAG_PROG_ALLGEMEIN.cAllgemein.ABTEILUNG = "EXPORT" Then defaultMail = "office@ambarlog.de"
|
||||
End If
|
||||
If fakturierung Then defaultMail = "buchhaltung@ambarlog.de"
|
||||
|
||||
End Select
|
||||
Return defaultMail
|
||||
End Function
|
||||
|
||||
Reference in New Issue
Block a user