LexWIKI Contact Details:
Main address: Celsiusstrasse 28 12207 Berlin, Germany ,
Tel:( 49 30) 55 14 54 38 , Fax:( 49 30) 70 01 43 11 28 , E-mail: info(at)lexwiki.de URL: Logo LexWIKI Founder:
Udo Netzel Director (CEO)
Advent Advent

LexWIKI® wünscht allen Besuchern
unserer Seiten eine frohe und besinnliche Adventszeit, ein schönes
Weihnachtsfest und einen guten Rutsch ins Jahr 2019.

 

Alles Wichtige mach' ich selbst! Erst recht, wenn es um meine Finanzen geht. Mit Software von Lexware, z.B. Buchhaltung, Lohn und Gehalt, Aufträge, Rechnungen und Warenwirtschaft.

Sicherheitseinbehalt auf Rechnung ausgeben

Wie kann man den Sicherheitseinbehalt auf der Rechnung ausgeben? Lesen Sie bitte zunächst den Beitrag Änderungen am Quelltext. Platzieren Sie diesen Code dann ca. 150 Zeilen vor dem Ende des Layout-Formulars (unmittelbar vor „Erzeugen des gesamten Formulars“). 

'////////////////////////////////////////////////////////////////////////////////////
'Errechnen des Sicherheitseinbehaltes
'////////////////////////////////////////////////////////////////////////////////////
Dim sicherheitseinbehalt_text as string
Dim seb_prozent_text as String
Dim seb_rg_summe_text as string
Dim seb_einbehalt_text as string
Dim seb_auftr_rg_summe_text as string
 
Function seb(seb_prozent_text as string,seb_rg_summe_text as string ,seb_einbehalt_text as string, seb_auftr_rg_summe_text as string)
 
	Dim seb_auftr_prozentstring as string = Get(auftr_freifeld3)
	Dim seb_prozent_zahl as numeric = 0
		if seb_auftr_prozentstring = "X5" then
			seb_prozent_zahl = 5
			seb_prozent_text = "5%"
		end if
		if seb_auftr_prozentstring = "X6" then
			seb_prozent_zahl = 6
			seb_prozent_text = "6%"
		end if
		if seb_auftr_prozentstring = "X7" then
			seb_prozent_zahl = 7
			seb_prozent_text = "7%"
		end if
		if seb_auftr_prozentstring = "X8" then
			seb_prozent_zahl = 8
			seb_prozent_text = "8%"
		end if
		if seb_auftr_prozentstring = "X9" then
			seb_prozent_zahl = 9
			seb_prozent_text = "9%"
		end if
		if seb_auftr_prozentstring = "X10" then
			seb_prozent_zahl = 10
			seb_prozent_text = "10%"											
		end if
 
Dim seb_einbehalt_zahl as numeric
Dim seb_rg_summe_zahl as numeric
 
if seb_prozent_zahl <> 0 then
	seb_einbehalt_zahl = GetNumeric(AUFTR_RG_BETRAG) * seb_prozent_zahl
	seb_einbehalt_zahl = seb_einbehalt_zahl / 100
	seb_rg_summe_zahl = GetNumeric(AUFTR_RG_BETRAG)- seb_einbehalt_zahl
 
	seb_einbehalt_text = FormatNumeric( "%.2f €" , seb_einbehalt_zahl )
	seb_rg_summe_text = FormatNumeric( "%.2f €" , seb_rg_summe_zahl )
 
	seb_auftr_rg_summe_text = FormatNumeric( "%.2f €" , GetNumeric(AUFTR_RG_BETRAG))
 
	sicherheitseinbehalt_text = "\nDer vereinbarte Sicherheitseinbehalt nach § 17 VOB/B, von " 
+ seb_prozent_text + " auf die Rechnungsgesamtsumme, entspricht " + seb_einbehalt_text 
+ " und wurde bei der Rechnungslegung nicht berücksichtigt. Daraus ergibt sich ein 
vorläufiger Forderungsbetrag von " + seb_rg_summe_text + "\nDer Auftraggeber hat eine 
nicht verwertete Sicherheit für die Vertragserfüllung zum vereinbarten Zeitpunkt, 
spätestens nach Abnahme und Stellung der Sicherheit für Mängelansprüche zurückzugeben 
und eine nicht verwertete Sicherheit für Mängelansprüche nach Ablauf von 4 Jahren, wenn 
kein anderer Rückgabezeitpunkt vereinbart worden ist."
 
	end if
end function

Platzieren Sie den folgenden Code dann ca. 70 Zeilen vor dem Ende des Layout-Formulars (unmittelbar vor „Alle Felder löschen“).

'////////////////////////////////////////////////////////////////////////////////////
'------------Sicherheitseinbehalt ausgeben-----------------
'////////////////////////////////////////////////////////////////////////////////////
 
	if get(auftr_freifeld3) <> "" then
	seb(seb_prozent_text,seb_rg_summe_text,seb_einbehalt_text,seb_auftr_rg_summe_text)
	TL(sicherheitseinbehalt_text)
	end if

Empfehlung zur Positionierung: Zwischen „DruckeSchlussTexte des Auftrags drucken“ und „Zahlungsbedingungen ausgeben“

Anwendung:

Einfach im „Auftragsfreifeld 3“ den Wert „X5“, „X6“ usw bis „X10“ Eintragen. Die jeweilige Ziffer steht dabei für den Prozentsatz des Sicherheitseinbehaltes. Achtung: Es sind nur Ganzzahlen zwischen 5 und 10 möglich.

Fertiges Formular:

Wer nicht selbst programmieren möchte, kann im LexSHOP ein fertiges Formular erwerben.

Anzeige

Lexware neue SteuerkanzleiDie leistungsstarke Kanzleisoftware für Steuerberater

Dank tausendfach bewährter Lexware-Technologie unterstützt Sie die Kanzleisoftware für Steuerberater effizient bei Kanzleimanagement, Buchhaltung, Lohnabrechnung und Steuererklärung für Ihre Mandanten. Die Bedienung von Lexware neue Steuerkanzlei ist intuitiv und denkbar einfach.

 

Jetzt kennenlernen und überzeugen

 

 

Corporate Social Responsibility (CSR) bzw. Unternehmerische Sozialverantwortung

Logo CEFOMEC Wenn alle gesellschaftlichen Gruppen ihrer Verantwortung gerecht werden, dann lassen sich die globalen Herausforderungen gemeinsam meistern – zum gegenseitigen Vorteil ökonomischer, sozialer und ökologischer Ziele. Die LexSHOP GmbH & Co.KG, als Betreiberin dieses LexWIKI®, unterstützt mit regelmäßigen Spenden den gemeinnützigen Verein CEFOMEC® e.V. beim Bau eines Krankenhauses in Lomié, im Süd-Osten von Kamerun, und unterstützt dort Kinder und Jugendliche. Bitte helfen auch Sie mit und spenden Sie für diese Projekte. Vielen Dank.

© 2008-2018 by LexWIKI® | Ein Projekt der LexSHOP GmbH & Co.KG