Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
- ##########################
- Diagramme
- ##########################
- .chart -init
- .chart -param -charttype bar
- .chart -param -titlechart "Percental efficiency"
- .chart -param -titley "%"
- .chart -param -stacktype STACKED
- .chart -param -markerx "Mon.; Tue.; Wed.; Thu.; Fri.; Sat.; Sun."
- .chart -param -minmaxy 0 200
- .chart -startvalues "normal load" -rgbcolor 0 255 0
- .chart -value 70
- .chart -value 80
- .chart -value 100
- .chart -value 100
- .chart -value 60
- .chart -value 20
- .chart -value 20
- .chart -startvalues "overload" -rgbcolor 255 0 0
- .chart -value null
- .chart -value null
- .chart -value 10
- .chart -value 70
- .chart -value null
- .chart -value null
- .chart -value null
- .chart -show ychart 0
- #############################
- Pseudo-Arrays
- #############################
- .art int xilauf
- .fo xilauf=1
- !BEGIN
- .art text xt.xilauf
- .fo xt.xilauf = "Ich wurde in Lauf "+'xilauf'+" Erzeugt!"
- .fo xilauf = xilauf + 1
- .weiter BEG ? xilauf < 10
- .fo xilauf=1
- !AUSBEGIN
- .text 'xt.xilauf'
- .fo xilauf= xilauf+1
- .weiter AUSBEGIN ? xilauf <10
- .weiter
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement