Sprung
############################
.art text xt1
.art text xt2
.text xt1 'P|spr' Hallo 1
.text xt2 'P|spr' Hallo 2

.box
Hallo
..
.WEITER NEXT2

!NEXT1
.box
'xt1'
..
.WEITER NEXT3

!NEXT2
.box
'xt2'
..
.WEITER NEXT1


!NEXT3
..
##############################
HOLE
##############################
.HOLE KUNDE "70001!70012"
.weiter ENDE ? _mehr
!SCHLEIFE
.ein DATEI.F
'H|ans' 'H|such' 'H|staat' 'H|nameaspr'
..
.hol Kunde
.weiter SCHLEIFE ? mehr
!ENDE
##############################
.HOLE KUNDE "70001"
.weiter ENDE ? _mehr
.dazu H|zbed
!SCHLEIFE
.ein DATEI.F
'H|ans' 'H|such' 'H|staat' 'H|nameaspr' 'D|namebspr'
..
.hol Kunde
.weiter SCHLEIFE ? mehr
!ENDE
#############################
.art bool xbmehr
.art text xttmp
.art text xtsel
.fo xttmp = "10000!10900"
......hol teil "10020!10027"
.. Beispiel Artikel von Nummer bis-Nummer
........fo xtsel = "$,,@gruppe=1;nummer=" + 'xttmp'
.. Beispiel Artikel einheit <> Stück
........fo xtsel = "$,,@gruppe=1;le<>Stück"
.. zeichn <> leer
........fo xtsel = "$,,@gruppe=1;zeichn<>`"
.. zeichn <> leer , einheit <> Stück , und - verknüpfung der beiden bedingungen
........fo xtsel = "$,,@gruppe=1;zeichn<>`;le<>Stück;@verkn=und"
.. zeichn <> leer , einheit <> Stück , oder - verknüpfung der beiden bedingungen, Anzeigereihenfolge rückwärts
.fo xtsel = "%,,@gruppe=1;zeichn<>`;le<>Stück;@verkn=oder;@richtung=rückwärts"
.hol teil 'xtsel'
.weiter ENDE ? _mehr
!SCHLEI
.ein DATEI.F
....***'H|nummer' 'H|id' 'H|such'
.dazu H|abplatz
.fo xbmehr = 'mehr'
?'H|nummer    ' §'H|zeichn'§ 'H|le' *'H|vkbez   '* 'H|such    ' 'H|vpr' 'H|bestand' 'd|nummer' 'd|such' 'd|name' ? xbmehr
?'H|nummer    ' §'H|zeichn'§ 'H|le' *'H|vkbez   '* 'H|such    ' 'H|vpr' 'H|bestand' ? _xbmehr
..
.hol teil
.weiter ENDE ? _mehr
.weiter SCHLEI ? mehr
!ENDE
ENDE!
###########################
.art text xtsel
.fo xtsel = "$,,@gruppe=22"
.hole verkauf 'xtsel'
.weiter ENDE ? _mehr
!KOP
KOPF : 'H|nummer' 'H|kunde'
..
..  Schleife durch die Zeilen
!ZEI
.hole zeile
.weiter ENDEZEI ? _mehr
ZEILE: 'H|mge' 'H|pwert'
.weiter ZEI

!ENDEZEI
.hol verkauf
.weiter KOP ? mehr

!ENDE
############################
.art bool xbmehr
.art text xttmp
.art text xtsel
.fo xttmp = "10000!10900"
......hol teil "10020!10027"
.. Beispiel Artikel von Nummer bis-Nummer
.fo xtsel = "$,,@gruppe=1;nummer=" + 'xttmp'
.. Beispiel Artikel einheit <> Stück
........fo xtsel = "$,,@gruppe=1;le<>Stück"
.. zeichn <> leer
........fo xtsel = "$,,@gruppe=1;zeichn<>`"
.. zeichn <> leer , einheit <> Stück , und - verknüpfung der beiden bedingungen
........fo xtsel = "$,,@gruppe=1;zeichn<>`;le<>Stück;@verkn=und"
.. zeichn <> leer , einheit <> Stück , oder - verknüpfung der beiden bedingungen, Anzeigereihenfolge rückwärts
........fo xtsel = "$,,@gruppe=1;zeichn<>`;le<>Stück;@verkn=oder;@richtung=rückwärts"
........fo xtsel = "%,,@gruppe=1;vpr>0"
.hol teil 'xtsel'
.AUSGABE E
.EINGABE EXCEL.F
.SETZE DEZPUNKT ,
....aus auf "tmp/CSVFILE.CSV"
.weiter ENDE ? _mehr
!SCHLEI
.ein DATEI.F
....***'H|nummer' 'H|id' 'H|such'
.dazu H|abplatz
.fo xbmehr = 'mehr'
?'H|nummer    ' ; 'H|vpr' ; §'H|zeichn'§ ; 'H|le' ; *'H|vkbez   ' ; * 'H|such    ' ; $$$'H|vpr'$$$ ; 'H|bestand' 'd|nummer' 'd|such' 'd|name' ? xbmehr
?'H|nummer    ' ; 'H|vpr' ; §'H|zeichn'§ ; 'H|le' ; *'H|vkbez   ' ; * 'H|such    ' ; $$$'H|vpr'$$$ ; 'H|bestand' ? _xbmehr
..
.hol teil
.weiter ENDE ? _mehr
.weiter SCHLEI ? mehr
!ENDE
ENDE!
#########################
.art bool xbmehr
.art text xttmp
.art text xtsel
.fo xttmp = "10000!10900"
......hol teil "10020!10027"
.. Beispiel Artikel von Nummer bis-Nummer
.fo xtsel = "$,,@gruppe=1;nummer=" + 'xttmp'
.. Beispiel Artikel einheit <> Stück
........fo xtsel = "$,,@gruppe=1;le<>Stück"
.. zeichn <> leer
........fo xtsel = "$,,@gruppe=1;zeichn<>`"
.. zeichn <> leer , einheit <> Stück , und - verknüpfung der beiden bedingungen
........fo xtsel = "$,,@gruppe=1;zeichn<>`;le<>Stück;@verkn=und"
.. zeichn <> leer , einheit <> Stück , oder - verknüpfung der beiden bedingungen, Anzeigereihenfolge rückwärts
........fo xtsel = "$,,@gruppe=1;zeichn<>`;le<>Stück;@verkn=oder;@richtung=rückwärts"
........fo xtsel = "%,,@gruppe=1;vpr>0"
.hol teil 'xtsel'
.AUSGABE E
.EINGABE EXCEL.F
.SETZE DEZPUNKT ,
....aus auf "tmp/CSVFILE.CSV"
.weiter ENDE ? _mehr
!SCHLEI
.ein DATEI.F
....***'H|nummer' 'H|id' 'H|such'
.dazu H|abplatz
.fo xbmehr = 'mehr'
?'H|nummer    ' ; 'H|vpr' ; §'H|zeichn'§ ; 'H|le' ; *'H|vkbez   ' ; * 'H|such    ' ; $$$'H|vpr'$$$ ; 'H|bestand' 'd|nummer' 'd|such' 'd|name' ? xbmehr
?'H|nummer    ' ; 'H|vpr' ; §'H|zeichn'§ ; 'H|le' ; *'H|vkbez   ' ; * 'H|such    ' ; $$$'H|vpr'$$$ ; 'H|bestand' ? _xbmehr
..
.hol teil
.weiter ENDE ? _mehr
.weiter SCHLEI ? mehr
!ENDE
ENDE!

#######################
Maskenprüfung
#######################
.box Gib was ein !!! ? 'M|bem' = ""
.cursor bem 0 ? M|bem ""
.ende 1 ? 'M|bem' = ""
#######################
FA
#######################
..box
..?ist leer ?

#######################
MASKENPRÜFUNG II
#######################
.weiter TEIL2
.box Gib was ein !!! ? 'M|bem'=""
.cursor bem 0 ? M|bem=""
.ende 1 ? 'M|bem' = ""
!TEIL2

.art r7.2 pr
.fo pr=0
.hole maske kopf
!ZEI

.hol maske zeile
.weiter ENDE ? _mehr
.fo pr=pr + M|pwert
.weiter ZEI

!ENDE
.box
GESAMTPREIS: 'pr'
..
#######################
MASKENPRÜFUNG für gewisse masken
######################
.art text mask
.fo mask='G|evtmask'
.weiter EENDE ? 'mask'<>"31" & mask<> 32

.art r7.2 pr
.fo pr=0

.hole maske kopf

!ZEI
.hol maske zeile
.weiter ENDE ? _mehr
.fo pr=pr + M|pwert
.weiter ZEI

!ENDE
.box
GESAMTPREIS: 'pr'
..
.weiter fin

!EENDE
.box
Maske nur für Angebot freigeschaltet!
..

!fin
.weiter
######################
fop.txt
######################
.art real mask
.art text eevee
.fo mask='G|evtmask'
.fo eevee='G|evtkommd'
.weiter fin ? mask <> 35 & mask <> 36

.box
Maske: 'mask'
Event: 'eevee'
..

!fin
.weiter
#######################
Freitexthandling
#######################
.art text eevee
.art text xtf
.art text xtsel

.fo eevee='G|evtkommd'
.fo xtf= "rmtmp/XLEERTEXT"+'G|aufrufernr'+".TMP"
.fo xtsel ="$,,@gruppe=24"

.weiter fin ? _eevee="ändern"

.aus auf 'xtf'
.ein DATEI.F
.aus

.fo M|ftext ='xtf' ? M|ftext=""
.aus an 'M|ftext'

.hole verkauf 'xtsel'
..... Schleife über alle Rechnungen
!RGNUMMERN
.weiter ENDE ?_mehr
Rechnungsnummer: 'H|num3'
.hole verkauf
.weiter RGNUMMERN
.....
.aus
!fin
.weiter
#######################
ICONS
#######################
.hole maske kopf

!ZEI
.hol maske zeile
.weiter fin ? _mehr
.fo M|yicon = "icon:process"
.fo M|yicon = "icon:garbage" ? M|preis=0
.weiter ZEI

!fin
.weiter
#######################
VORGANGSKETTE
#######################

.art text xtsel
.fo xtsel ="$,,nummer=400024;@gruppe=24;@sort=-alle"
.hol verkauf 'xtsel'
'H|schlag'
!ZEI
.hol zeile
.weiter FIN ? _mehr
** 'H|okopf^nummer'
.weiter ZEI

!FIN
.weiter

#######################
VORGANGSKETTE alle Rechnungen mit LS und Auftragsmenge
#######################

.art text xtsel
.fo xtsel ="$,,@gruppe=24;@sort=-alle"
.hole verkauf 'xtsel'

!GETVERK
.weiter FIN ? _mehr
!ZEI
.hol zeile
.weiter FININNER ? _mehr
.weiter NOMGE ? H|mge=0
MGE  : 'H|mge'
?LSNR : 'H|okopf^nummer' ? F|defined(H|okopf^nummer)
?LSMGE: 'H|orig^mge' ? F|defined(H|orig^mge)
?Auftr: 'H|orig^okopf^nummer' ? F|defined(H|orig^okopf^nummer)
?AMGE : 'H|orig^orig^mge' ? F|defined(H|orig^orig^mge)
------------------------
!NOMGE
.weiter ZEI
!FININNER
.hole verkauf
.weiter GETVERK
!FIN
.weiter
#######################
Bilder einbinden  //Wenn der Pfad zum Bild im Artikelstamm/Dokumente eingetragen ist
#######################
.hole maske kopf
!ZEI
.hole maske zeile
.weiter ENDE ? _mehr
.fo M|ypic=M|artex^foto
.weiter ZEI
!ENDE
.weiter
##########################
BRINGE (Datensätze schreiben)
##########################
.art text xtsel
.fo xtsel="$,,@gruppe=1"
.hole sperren kunde 'xtsel'
!ZEI
Kunde: 'H|namebspr'
.fo H|bem = 'H|bem' + "Test by Webs"
.bringe
.hole sperren kunde
.weiter ZEI ? mehr
##########################
BRINGE (Datensätze schreiben)  - Rechnung ptext
##########################
.art text xtsel
.fo xtsel="$,,@gruppe=24"
.hole sperren verkauf 'xtsel'
!RE
.weiter FIN ? _mehr
Rechnungsnummer 'H|nummer'
POSITIONEN:
!ZEI
.hole zeile
.weiter FININNER ? _mehr
'H|artex^nummer'
.fo H|ptext="Positionstext"
.bringe
.weiter ZEI
!FININNER
.hole sperren verkauf
.weiter RE
!FIN
.weiter
##########################
Kommandos ausführen
##########################
.art text xtkomm
.art text tump
.fo xtkomm="Infosystem LOP?bervon="+"|berbis="+'M|kunde'+'M|kunde'+"|bstart=1"
.kommando -warten 'xtkomm'
##########################

##########################