neu
This commit is contained in:
@@ -325,14 +325,18 @@ Public Class cFakturierung
|
||||
Else
|
||||
If checkIfKreditaufwendungen(RECHNUNG) Then
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : strZahlbar = "Payable within " & ZZTage & " days less pos. 750; due net from " & ZZTage & " days."
|
||||
Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen abzüglich Pos. 750; ab " & ZZTage & " Tagen netto fällig."
|
||||
'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days less pos. 750; due net from " & ZZTage & " days."
|
||||
'Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen abzüglich Pos. 750; ab " & ZZTage & " Tagen netto fällig."
|
||||
Case "EN" : strZahlbar = "Payment term: " & ZZTage & " days from invoice date; Pos. 750 is deductible within the payment term."
|
||||
Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum; Pos. 750 ist innerhalb des Zahlungsziels abzugfähig."
|
||||
End Select
|
||||
Else
|
||||
'Zahlungsziel allgemein.
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice."
|
||||
Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum."
|
||||
Case "EN" : strZahlbar = "Payment term: " & ZZTage & " days from invoice date"
|
||||
Case Else : strZahlbar = "Zahlungsziel: " & ZZTage & " Tage ab Rechnungsdatum"
|
||||
'Case "EN" : strZahlbar = "Payable within " & ZZTage & " days from date of invoice."
|
||||
'Case Else : strZahlbar = "Zahlbar innerhalb " & ZZTage & " Tagen ab Rechnungsdatum."
|
||||
End Select
|
||||
End If
|
||||
|
||||
@@ -452,6 +456,7 @@ Public Class cFakturierung
|
||||
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, RECHNUNG.RechnungsLandKz, , True) Then
|
||||
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, ,, True) Then
|
||||
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, , RECHNUNG.RechnungsLandKz, , True) Then
|
||||
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, RECHNUNG.Firma_ID, ,, ) Then
|
||||
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, True) Then
|
||||
ElseIf getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, False) Then
|
||||
End If
|
||||
@@ -466,7 +471,6 @@ Public Class cFakturierung
|
||||
getRTXT_SQL(strText, RECHNUNG, RECHNUNG_AD, ,,, False, True)
|
||||
|
||||
|
||||
|
||||
'' Informations- und Werbetexte drucken
|
||||
'Dim sqlStr = "SELECT * FROM Rechnungstexte WHERE 1=1"
|
||||
'If RECHNUNG.Firma_ID > 0 Then sqlStr &= " AND (Firma_ID='" & RECHNUNG.Firma_ID & "' or Firma_ID is null) "
|
||||
@@ -569,6 +573,7 @@ Public Class cFakturierung
|
||||
|
||||
Dim dt_RechnungsTexte As DataTable = SQL.loadDgvBySql(sqlStr & " order by Firma_ID desc,LandKz desc,Offertennr desc", "FMZOLL")
|
||||
|
||||
|
||||
If dt_RechnungsTexte.Rows.Count > 0 Then
|
||||
strText &= dt_RechnungsTexte.Rows(0)("Text") & vbCrLf
|
||||
Return True
|
||||
@@ -909,6 +914,9 @@ Public Class cFakturierung
|
||||
Select Case RECHNUNG.BelegartenKz
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = "INVOICE"
|
||||
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "CREDIT NOTE"
|
||||
rpt.lblSummeUeberschrift.Text = "Credit Amount:"
|
||||
@@ -934,7 +942,7 @@ Public Class cFakturierung
|
||||
Select Case RECHNUNG.Firma_ID
|
||||
Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard
|
||||
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 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS
|
||||
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 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE
|
||||
@@ -1097,12 +1105,34 @@ Public Class cFakturierung
|
||||
rpt.Line14.Visible = False
|
||||
rpt.Line8.Visible = False
|
||||
rpt.Line7.Visible = False
|
||||
rpt.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung"
|
||||
|
||||
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN"
|
||||
Select Case RECHNUNG.BelegartenKz
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Attachment to invoice"
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Attachment to CREDIT NOTE"
|
||||
End Select
|
||||
Case Else
|
||||
Select Case RECHNUNG.BelegartenKz
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung"
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Anlage zur Gutschrift"
|
||||
End Select
|
||||
|
||||
End Select
|
||||
End If
|
||||
|
||||
If Not printOriginalRg Then 'sonst wird der originaldruck erzwungen
|
||||
If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
|
||||
If RECHNUNG.DruckDatumZeit IsNot Nothing Then
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : rpt.lblUeberschriftRG_GS.Text &= " - COPY"
|
||||
Case Else : rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
|
||||
End Select
|
||||
End If
|
||||
End If
|
||||
|
||||
'Dim cnt As Integer = 0
|
||||
@@ -1490,7 +1520,7 @@ Public Class cFakturierung
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 15 <br><b>T</b> +43 7711 2845-0 | <b>@</b> " & If(individuell, emailindividuell, "rechnungsversand@verag.ag") & " | www.verag.ag | FN 288916b</div>"
|
||||
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
|
||||
Case 11 'VERAG CS
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag-Customs-Service-GMBH-Logo_sig.png""/>"
|
||||
getSignature &= "<img width=""250"" height=""50"" src=""" & imgsrc & "Verag_Customs_Service_AEO.jpg""/>"
|
||||
If displayFirmenmane Then getSignature &= "<br>VERAG Customs Service<br>"
|
||||
getSignature &= "<div style=""font-size:12px"">A 4975 Suben, Nr. 14 <br><b>T</b> +43 7711 2777-0 | <b>F</b> +43 7711 31 073 | <b>@</b> " & If(individuell, emailindividuell, "versand@verag.com") & " | www.verag.ag | FN 406316z</div>"
|
||||
If additionalLine <> "" Then getSignature &= vbNewLine & additionalLine & vbNewLine
|
||||
@@ -2365,12 +2395,42 @@ Public Class cFakturierung
|
||||
|
||||
'If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
|
||||
|
||||
|
||||
Select Case ROW("RechnungSprache")
|
||||
Case "EN"
|
||||
Select Case ROW("BelegartenKz")
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Attatchment to INVOICE"
|
||||
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Attatchment to CREDIT NOTE"
|
||||
rpt.lblSummeUeberschrift.Text = "Credit Amount:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
|
||||
End Select
|
||||
Case Else
|
||||
Select Case ROW("BelegartenKz")
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = "Anlage zur Sammelrechnung"
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
|
||||
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:"
|
||||
End Select
|
||||
|
||||
End Select
|
||||
|
||||
|
||||
|
||||
initRgFirmaSammelRg_Bericht(rpt, FIRMA, RechnungsNr, ROW("RechnungsLandKz"), ROW("Buchungsjahr"))
|
||||
|
||||
Select Case ROW("Firma_ID")
|
||||
Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard
|
||||
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 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS
|
||||
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 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE
|
||||
@@ -2546,11 +2606,9 @@ Public Class cFakturierung
|
||||
rpt.lblZWSumme.Visible = False
|
||||
End If
|
||||
|
||||
If CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0 Then
|
||||
|
||||
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
|
||||
End If
|
||||
'Dim BelegartenKz = If(CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0, "AG", "AR")
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
@@ -2727,9 +2785,39 @@ Public Class cFakturierung
|
||||
|
||||
'If RECHNUNG.DruckDatumZeit IsNot Nothing Then rpt.lblUeberschriftRG_GS.Text &= " - KOPIE"
|
||||
|
||||
|
||||
Select Case ROW("RechnungSprache")
|
||||
Case "EN"
|
||||
' MsgBox(("EN"))
|
||||
Select Case ROW("BelegartenKz")
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = "COLLECTIVE INVOICE"
|
||||
rpt.lblSummeUeberschrift.Text = "Invoice Amount:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Invoice No.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Invoice Date:"
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "CREDIT NOTE"
|
||||
rpt.lblSummeUeberschrift.Text = "Credit Amount:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Credit Note No.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Credit Note Date:"
|
||||
End Select
|
||||
Case Else
|
||||
Select Case ROW("BelegartenKz")
|
||||
Case "AR"
|
||||
rpt.lblUeberschriftRG_GS.Text = "SAMMELRECHNUNG"
|
||||
Case "AG"
|
||||
rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
|
||||
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
|
||||
rpt.lblRgDatumUeberschrift.Text = "Gutschrifts-Datum:"
|
||||
End Select
|
||||
|
||||
End Select
|
||||
|
||||
initRgFirmaSammelRg(rpt, FIRMA, RechnungsNr, ROW("LandKz"), ROW("Buchungsjahr"))
|
||||
|
||||
|
||||
|
||||
'rpt.lblFirmaOrt.Text = If(FIRMA.Firma_Ort, "")
|
||||
'rpt.lblFirmaStrasse.Text = If(FIRMA.Firma_Straße, "")
|
||||
'rpt.lblFirmaTel.Text = If(FIRMA.Firma_Telefon, "")
|
||||
@@ -2739,7 +2827,7 @@ Public Class cFakturierung
|
||||
Select Case ROW("Firma_ID")
|
||||
Case 1 ' rpt.picVERAG.Image= My.Resources.Verag_AG_Logo : rpt.Picture1.Image = My.Resources.aeo_AT_imex is eh standard
|
||||
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 11 : rpt.picVERAG.Image = My.Resources.Verag_Customs_Service_GMBH_Logo : rpt.Picture1.Image = My.Resources.aeo_CS
|
||||
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 22 : rpt.picVERAG.Image = My.Resources.Unisped_DE_logo : rpt.Picture1.Image = My.Resources.unisped_aeo_DE
|
||||
@@ -2910,11 +2998,6 @@ Public Class cFakturierung
|
||||
End If
|
||||
|
||||
|
||||
If CDbl((sumSteuerpflichtig + sumSteuerfrei + (sumSteuerpflichtig * steuerProz))) < 0 Then
|
||||
rpt.lblUeberschriftRG_GS.Text = "GUTSCHRIFT"
|
||||
rpt.lblSummeUeberschrift.Text = "Gutschriftsbetrag:"
|
||||
rpt.lblRgNrUeberschrift.Text = "Gutschrifts-Nr.:"
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user