Parkplatzabrechnung
This commit is contained in:
@@ -349,6 +349,11 @@ Public Class cFakturierung
|
||||
End Select
|
||||
End If
|
||||
|
||||
If RECHNUNG.Firma_ID = 4 Then
|
||||
strZahlbar &= " (<Rechnungsdatum+10T>)"
|
||||
End If
|
||||
'
|
||||
|
||||
'Zahlungsziel bei Maut/Diesel.
|
||||
'DA STIMMT WAS NICHT::::::
|
||||
'If RECHNUNG.OffertenNr IsNot Nothing And RECHNUNG.RechnungsKundenNr > 0 And RECHNUNG.RechnungsLandKz IsNot Nothing Then
|
||||
@@ -529,7 +534,7 @@ Public Class cFakturierung
|
||||
If PARK IsNot Nothing AndAlso PARK.Count > 0 Then
|
||||
Select Case RECHNUNG.RechnungSprache
|
||||
Case "EN" : strText = strText & "Place of fulfilment: DE-94152 Neuhaus am Inn " & vbCrLf & "The tax was paid at the tax office DE-94032 Passau under the tax number 153/105/80268 (UID:DE245897610)" & vbCrLf
|
||||
Case Else : strText = strText & "Leistungsort: DE-94152 Neuhaus am Inn " & vbCrLf & "Die Steuer wurde beim Finanzamt DE-94032 Passau unter Angabe der Steuernummer 153/105/80268 abgeführt (UID:DE245897610)" & vbCrLf
|
||||
Case Else : strText = strText & "Leistungsort: DE-94152 Neuhaus am Inn " & vbCrLf & "Die Steuer wurde beim Finanzamt DE-94032 Passau unter der Steuernummer 153/105/80268 abgeführt (UID:DE245897610)" & vbCrLf
|
||||
End Select
|
||||
End If
|
||||
Case 21, 22, 23
|
||||
@@ -730,6 +735,10 @@ Public Class cFakturierung
|
||||
rpt.lblUID.Text = If(FIRMA.Firma_UID, "").ToString.Replace("UID:", "").Trim
|
||||
rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "").ToString.Replace("EORI:", "").Trim
|
||||
|
||||
If FIRMA.Firma_ID = 4 Then
|
||||
rpt.lblEORIUeberschrift.Text = "St-Nr.:"
|
||||
End If
|
||||
|
||||
Select Case FIRMA.Firma_ID'VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
Case 21 '"UNISPED"
|
||||
rpt.txtBank1.Text = If(FIRMA.Firma_Bankverbindung1, "") & vbNewLine & If(FIRMA.Firma_IBAN1, "") & vbNewLine & If(FIRMA.Firma_BIC1, "").ToString.Trim
|
||||
@@ -1052,6 +1061,7 @@ Public Class cFakturierung
|
||||
Case Else : rpt.Label2.Text = ZZTage & " Tage"
|
||||
End Select
|
||||
|
||||
|
||||
Select Case RECHNUNG.Firma_ID
|
||||
Case 21, 22, 23, 26, 24 : rpt.Label1.Visible = False : rpt.Label2.Visible = False
|
||||
End Select
|
||||
@@ -1072,9 +1082,11 @@ Public Class cFakturierung
|
||||
rpt.txtAbsender.Text = If(RECHNUNG.AbsenderName_1, "") & " " & If(RECHNUNG.AbsenderName_2, "") & vbNewLine & If(RECHNUNG.AbsenderOrt, "").ToString.Trim
|
||||
rpt.txtEmpfaenger.Text = If(RECHNUNG.EmpfängerName_1, "") & " " & If(RECHNUNG.EmpfängerName_2, "") & vbNewLine & If(RECHNUNG.EmpfängerOrt, "").ToString.Trim
|
||||
rpt.txtAvisierer.Text = If(RECHNUNG.Avisierer, "")
|
||||
If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
|
||||
If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
|
||||
If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
|
||||
|
||||
If FIRMA.Firma_ID = 4 Then
|
||||
rpt.lblWarenWertUeberschrift.Visible = False
|
||||
rpt.txtWarenwert.Visible = False
|
||||
End If
|
||||
|
||||
rpt.txtZollbelegNr.Text = If(RECHNUNG.BelegNr, "")
|
||||
|
||||
@@ -1134,14 +1146,6 @@ Public Class cFakturierung
|
||||
rpt.TextBox1.Text = If(RECHNUNG.TextZZ, "").ToString.Replace("; ", vbNewLine).Trim
|
||||
rpt.txtVermerk.Text = (If(RECHNUNG.Text, "").ToString.Trim & vbNewLine & vbNewLine & If(RECHNUNG.Notiz, "").ToString.Trim).ToString.Trim
|
||||
|
||||
If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
|
||||
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
|
||||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
|
||||
Else
|
||||
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
|
||||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
|
||||
End If
|
||||
|
||||
|
||||
' REVERSE CHARGE (Übergang der Steuerschuld in EU-Ländern).
|
||||
' Dies hat zur Folge, dass steuerfreie Rechnungsbeträge für Leistungen,
|
||||
@@ -1178,6 +1182,15 @@ Public Class cFakturierung
|
||||
End If
|
||||
|
||||
|
||||
If rpt.txtAbsender.Text.Trim = String.Empty Then rpt.lblAbsenderUeberschrift.Visible = False
|
||||
If rpt.txtEmpfaenger.Text.Trim = String.Empty Then rpt.lblEmpfaengerUeberschrift.Visible = False
|
||||
If rpt.txtAvisierer.Text.Trim = String.Empty Then rpt.lblAvisiererUeberschrift.Visible = False
|
||||
If rpt.lblLKWId.Text.Trim = String.Empty Then rpt.lblLKWIdUebeschrift.Visible = False
|
||||
If rpt.txtWarenwert.Text.Trim = String.Empty Then rpt.lblWarenWertUeberschrift.Visible = False
|
||||
If rpt.txtZollbelegNr.Text.Trim = String.Empty Then rpt.lblZollbelegNr.Visible = False
|
||||
If rpt.txtBeförderungsmittel.Text.Trim = String.Empty Then rpt.txtBeförderungsmittelUeberschrift.Visible = False
|
||||
|
||||
|
||||
'rpt.lblMandantNiederlassung.Text = PERSONAL.Mandant & " / " & PERSONAL.Niederlassung
|
||||
|
||||
'ANLAGE ZUR RECHNUNG:
|
||||
@@ -1352,6 +1365,12 @@ Public Class cFakturierung
|
||||
|
||||
|
||||
If vorschau Then
|
||||
|
||||
|
||||
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
|
||||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
|
||||
|
||||
|
||||
cProgramFunctions.showRpt(rpt, "Rechnungsdruck", False)
|
||||
Return True
|
||||
Else
|
||||
@@ -1367,11 +1386,11 @@ Public Class cFakturierung
|
||||
rpt.lblRgDatum.Text = CDate(RECHNUNG.RechnungsDatum).ToShortDateString
|
||||
|
||||
If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Erstmaliger Druck
|
||||
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
|
||||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(10).ToShortDateString)
|
||||
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
|
||||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
|
||||
Else
|
||||
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
|
||||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(10).ToShortDateString)
|
||||
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
|
||||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
|
||||
End If
|
||||
|
||||
Else
|
||||
@@ -1383,6 +1402,15 @@ Public Class cFakturierung
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
|
||||
If RECHNUNG.RechnungsDatum IsNot Nothing Then 'Muss zweimal vorkommen, Wiederholungsdruck
|
||||
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
|
||||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", CDate(RECHNUNG.RechnungsDatum).AddDays(ZZTage).ToShortDateString)
|
||||
Else
|
||||
rpt.txtVermerk.Text = rpt.txtVermerk.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
|
||||
rpt.TextBox1.Text = rpt.TextBox1.Text.Replace("<Rechnungsdatum+10T>", Now.AddDays(ZZTage).ToShortDateString)
|
||||
End If
|
||||
|
||||
If RECHNUNG.[DruckDatumZeit] Is Nothing Then
|
||||
RECHNUNG.[DruckDatumZeit] = Now 'Wenn Rg-Nr schon vergeben wird das neu gesetzt
|
||||
RECHNUNG.SAVE_DruckDatumZeit() ' Nur SAVE_DruckDatumZeit ändern/setzen
|
||||
@@ -3065,7 +3093,7 @@ Public Class cFakturierung
|
||||
'rpt.lblUID.Text = If(FIRMA.Firma_UID, "")
|
||||
'rpt.lblEORI.Text = If(FIRMA.Firma_EORI, "")
|
||||
rpt.lblLKWId.Text = getLKWID(RechnungsNr, DruckdatumUhrzeit, Rgstatus)
|
||||
rpt.lblLKWIdUebeschrift.Visible = (rpt.lblLKWId.Text <> "")
|
||||
rpt.lblLKWIdUebeschrift.Visible = (rpt.lblLKWId.Text.Trim <> "")
|
||||
|
||||
|
||||
rpt.lblRechnungAn.Text = ROW("RechnungsName 1") & vbNewLine
|
||||
|
||||
Reference in New Issue
Block a user