edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-08-04 16:34:47 +02:00
parent 40295a2819
commit 89d8e0a3a8
95 changed files with 3655 additions and 697 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
SDL/Fakturierung/cFakturierung.vb
View File

@@ -420,6 +420,10 @@ Public Class cFakturierung
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case 21 '"UNISPED"
rpt.txtBank1.Text = "????"
rpt.txtBank2.Text = "????"
Case 20 '"IMEX"
If Rechnung.RechnungsLandKz = "TR" Then
'rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
@@ -473,6 +477,10 @@ Public Class cFakturierung
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA.Firma_ID
Case 21 '"UNISPED"
rpt.txtBank1.Text = "????"
rpt.txtBank2.Text = "????"
Case 20 '"IMEX"
If RechnungsLandKz = "TR" Then
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
@@ -516,6 +524,10 @@ Public Class cFakturierung
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Select Case FIRMA.Firma_ID
Case 21 '"UNISPED"
rpt.txtBank1.Text = "????"
rpt.txtBank2.Text = "????"
Case 20 '"IMEX"
If RechnungsLandKz = "TR" Then
rpt.txtBank1.Text = "Garanti Bank " & vbNewLine & "IBAN:TR84 0006 2001 6040 0009 0987 13 " & vbNewLine & "BLZ Sube.: 1604 - Beykent Ticari - Hesap: 9098713"
@@ -636,6 +648,7 @@ Public Class cFakturierung
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
Case 17 : rpt.picVERAG.Image = My.Resources.FrontOfficeSUB_Horizontal : rpt.Picture1.Image = Nothing
End Select
@@ -1023,6 +1036,9 @@ Public Class cFakturierung
Case 20 'Imex
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
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, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "info@imex-group.at") & " | www.imex-group.at | FN 410356s</div>"
Case 21 'UNISPED
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "IMEX-LOGO-AEO_sig.jpg""/>"
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2677-0 | <b>F</b> +43 7711 2677-27 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "office@unisped.at") & " | www.unisped.at | FN 375838d</div>"
Case 99 'GmbH
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Spedition-GMBH-Logo1.png""/>"
getSignature &= "<div style=""font-size:12px"">D 94152 Neuhaus/Inn, Hartham 6 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_email, "rechnungsversand@verag.ag") & " | www.verag.ag </div>"
@@ -1384,6 +1400,7 @@ Public Class cFakturierung
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
End Select
@@ -1619,6 +1636,8 @@ Public Class cFakturierung
Select Case Firma_id
Case 20
firma = "'IMEX'"
Case 21
firma = "'UNISPED'"
Case Else
firma = "'VERAG','ALL'"
End Select
@@ -1684,6 +1703,7 @@ Public Class cFakturierung
Case 7 : rpt.picVERAG.Image = My.Resources.Atilla_big_med : rpt.Picture1.Image = Nothing
Case 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = Nothing
Case 20 : rpt.picVERAG.Image = My.Resources.IMEX_LOGO_simple : rpt.Picture1.Image = My.Resources.aeo_AT_imex
Case 21 : rpt.picVERAG.Image = My.Resources.Unisped_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_AT
End Select
@@ -1693,7 +1713,6 @@ Public Class cFakturierung
End If
rpt.txtVermerk.Text = strText
rpt.lblKundenNr.Text = If(ROW("RechnungsKundenNr") > 0, ROW("RechnungsKundenNr"), "")
rpt.lblRgNr.Text = ROW("RechnungsNr")
rpt.lblRgDatum.Text = ROW("RechnungsDatum")