====== LSOFT Code-Snippets ======

=== Variable mit richtiger Anzahl von Nachkommastellen ===

<code>
  w19 = val(var.i,length(var.i)-pos(',',var.i))
</code>

=== Zahlenvariable mit edit richtig ausgeben ===
 :!: Hierbei wird die Zahl durch edit() richtig formatiert, mit Komma als Trennzeichen und **OHNE** die nervigen führenden Leerzeichen
<code>
  strip(edit(w12,'--9V,99'))
</code>

=== Zahl mit edit richtig formatiert ausgeben ===
<code>
/* Ausgabe Arbeitspreis mit 2 Nachkommastellen */
say cursor(rpos, 285) textright(strip(edit(w110,'--9V,99')),'B')
</code>

=== Datumse ===

<code>
substr(datum.i,7,4)+substr(datum.i,4,2)+substr(datum.i,1,2)
</code>

=== Textboxen ===

<code>
set textbox to "BLOCK", @FALSE, @TRUE
say textbox(rpos,cpos,rpos,430,'Viel Text; Variablen mit Plus (+) anfügen!!!: ' + variable + ' << !!! ')

do while @TBTEXT <> ''
    rpos+=rpi
    say textbox(rpos,cpos,rpos,430,@TBTEXT)
enddo
</code>

=== Leerzeichen ersetzen ===

<code>
aus1 = v_tarif_zusatzvereinbarung.l2

do while pos(' ', aus1) > 0
	aus += substr(aus1, 0, pos(' ', aus1) - 1)
	aus += ' '
	aus1 = substr(aus1, pos(' ', aus1) + 1)
enddo

aus += aus1 + ', sowie der Zusatzvereinbarung '
</code>

=== 0 am Ende von Nachkommastellen nicht ausgeben ===

<code>
l_w14_arbeitspreis_text = edit(l_w14_arbeitspreis,'--.--9V,9999')
if ( substr(l_w14_arbeitspreis_text,length(l_w14_arbeitspreis_text)) <> '0' )
  	say textright( l_w14_arbeitspreis_text + ' ct/kWh')
else
  	say textright( edit(l_w14_arbeitspreis,'--.--9V,999') + ' ct/kWh')
endif
</code>

==== Variablen dynamisch ausgeben ====


<code>
	do 10
		r100=pos('$$',s,1)-1
		r101=pos('$$',substr(s,r100+3,length(s)-r100-3),1)+r100+4
		if r100 > 0 and r101-r100-4 > 0
			sv=substr(s,r100+3,r101-r100-5)
			sv = 'a_name_report'
			s=substr(s,1,r100)+ &sv +substr(s,r101,length(s)-r101+1) ##hier wird &sv zu einem pointer auf die Variable "a_name_report"
		else
			leave
		endif
	enddo
</code>