Artikelsuche i '(s?.N) q "0"_"|"_s ;1 - Kundenkarte Chip-Seriennummer i $L(s)=17 g kundechip ;2 - Belegzahlungen i $L(s)=13,$E(s,1,3)="221" g beleg ;3 - Waage ;4 - Gutscheine i $L(s)=13,$E(s,1,4)="2204" q "4"_"|"_$E(s,5,12) ;5 - GS-Bons i $L(s)=13,$E(s,1,4)="2207" q "5"_"|"_+($E(s,5,12)) ;6 - Ausfolgeschein i $L(s)=13,$E(s,1,4)="2205" g ausfolge ;7 - Interner EAN/Sammelartikel i $L(s)=13,$E(s,1,2)="20" g intern ;sonst Artikelsuche q "0"_"|"_s intern s anr=+$E(s,3,8) s anrid=$O(^stamm.artikelI("keyid",siteid,0,anr,"")) i anrid="" q "0"_"|"_s q "7"_"|"_anrid_"|"_s kundechip s datum=$H+1,erg="" s datum="" f s datum=$O(^stamm.kukarteI("karte",siteid,0," "_$ZCONVERT(s,"U"),1,datum),-1) q:datum="" d q:$L(erg) . s kuid=$O(^stamm.kukarteI("karte",siteid,0," "_$ZCONVERT(s,"U"),1,datum,"")) . i $L(kuid) d .. s kaid=$O(^stamm.kukarteI("karte",siteid,0," "_$ZCONVERT(s,"U"),1,datum,kuid,"")) .. i $L(kaid) d ... s kaobj=##class(stamm.kukarte).%OpenId(kuid_"||"_kaid) ... i $L(kaobj) d .... i $L(kaobj.abldatum),kaobj.abldatum<(+$H) q .... s erg=kuid k kaobj i $L(erg) q "1"_"|"_erg e q "0"_"|"_s beleg s belnr=+$E(s,4,11) s belart=$P("AC,BV,LS,SR,RE,PV,ER",",",+$E(s,12)) q 2_"|"_belart_" "_belnr ausfolge s anr=+($E(s,5,12)) s anrid=$O(^stamm.artikelI("keyid",siteid,0,anr,"")) i anrid="" q "0"_"|"_s q "6"_"|"_anrid bruttoest(ean) n est,est1,brutto s (est,brutto)="" //Baumat Sammelartikel mit Einstand I $L(ean)=13,$E(ean,1,2)="20" s est1=$E(ean,9,12) i +est1 s est=$J(est1/13.7603,0,4) q $LB(brutto,est) ]]> 0 q -1_"|"_$P(erg,"|",1,99) ///////// s siteid=$LI(^system.session($J),1) I sutxt="" g suche I $F(sutxt,"*") g suche I $F(sutxt,"%") g suche s id=$O(^stamm.artikelI("keyid",siteid,0,sutxt,"")) I $L(id) q 1_"|"_id i $L(sutxt)=13!($L(sutxt)=8) s id=$O(^stamm.eanI("keyean",siteid,0,sutxt,1,"")) I $L(id) q 1_"|"_id_"|"_sutxt i $L(sutxt)=13!($L(sutxt)=8) s id=$O(^stamm.artikelI("keyvean",siteid,0," "_sutxt,"")) I $L(id) q 1_"|"_id_"|"_sutxt g suche suche i $L(sutxt) d . s sutxt=$TR(sutxt,"*","%") . I +sutxt'=sutxt,'$F(sutxt,"%") s sutxt=sutxt_"%" s cnt=0 s result=##class(%Library.ResultSet).%New() ; i $L(sutxt) d . s sql="select distinct top(200) partikel,partikel->anr,partikel->bez1,partikel->bez2,partikel->pabt->code from stamm.artmatch" . s sql=sql_" where partikel->psite=:siteid and partikel->loesw=0" . i $L(sutxt) s sql=sql_" and sutext like """_sutxt_"""" . i $L(abtnrid) s sql=sql_" and partikel->pabt="_abtnrid . i $L(wargrid) s sql=sql_" and partikel->pwargr="_wargrid . i +aktiv s sql=sql_" and partikel->aktiv=1" . s sql=sql_" order by partikel->kbez" . I 1 e d . s sql="select distinct top(200) %Id,anr,bez1,bez2,pabt->code from stamm.artikel" . s sql=sql_" where psite="_siteid_" and loesw=0" . i $L(abtnrid) s sql=sql_" and pabt="_abtnrid . i $L(wargrid) s sql=sql_" and pwargr="_wargrid . s sql=sql_" and aktiv=:aktiv" . s sql=sql_" order by kbez" k ^system.searchD(userid,"AR") d result.Prepare(sql) d result.Execute() f q:'result.Next() d . s cnt=cnt+1 . s id=result.GetData(1) . s preis=##class(stamm.artikel).GetVkp(id,+$H,1,1,1) . I $L(preis) s preis=$FN($LI(preis,2),",",2) . s ^system.searchD(userid,"AR",cnt)=$LB("",id_"|"_result.GetData(2)_"|"_result.GetData(3)_result.GetData(4)_"|"_result.GetData(5)_"|"_preis) d result.Close() k result i cnt=0 q 0 i cnt=1 q cnt_"|"_id s obj1=##class(system.searchpar).%OpenId(userid_"||"_"AR") i obj1="" d . s obj1=##class(system.searchpar).%New() . d obj1.puserSetObjectId(userid) . s obj1.typ="AR" I cnt>0 s obj1.lastsel="" s obj1.feld1=$LB(sutxt,abtnrid,wargrid,aktiv) d obj1.%Save() d obj1.%Close() k obj1 q cnt ]]> code,belnr,pkunde->knr,pkunde->person_name_name1,pkunde->person_name_name2,wertincl,status FROM beweg.beleg" s sql=sql_" where psite="_siteid_" and loesw=0" i $L(belartid) s sql=sql_" and pbelart=:belartid" i $L(kundeid) s sql=sql_" and pkunde=:kundeid" i $L(datumab) s sql=sql_" and beldat>=:datumab" i 'kasbelsw,belartid="" s kbelart="" f s kbelart=$O(^param.belartI("kassasw",siteid,0,1,kbelart)) q:kbelart="" d . s id="" f s id=$O(^param.belartI("kassasw",siteid,0,1,kbelart,id)) q:id="" d .. s sql=sql_" and pbelart<>"_id s sql=sql_" order by beldat desc, %Id desc" ; i +merken s ind=userid e s ind=userid_"t" d result.Prepare(sql) d result.Execute() s ksw=1,cnt=0 f q:'result.Next() d q:cnt'<1000 . s cnt=cnt+1 . i ksw k ^system.searchD(ind,"BE") s ksw=0 . s ^system.searchD(ind,"BE",cnt)=$LB("",result.GetData(1)_"|"_$ZD(result.GetData(2),3)_"|"_result.GetData(3)_" "_result.GetData(4)_"|"_result.GetData(5)_"|"_result.GetData(6)_" "_result.GetData(7)_"|"_result.GetData(8)_"|"_result.GetData(9)) d result.Close() k result i +merken d . s obj1=##class(system.searchpar).%OpenId(userid_"||"_"BE") . i obj1="" d .. s obj1=##class(system.searchpar).%New() .. d obj1.puserSetObjectId(userid) .. s obj1.typ="BE" . I cnt>0 s obj1.lastsel="" . s obj1.feld1=$LB(kundeid,datumab,belart) . d obj1.%Save() . d obj1.%Close() . k obj1 q $LB(cnt) ]]> knr,pkunde->person_name_name1,pkunde->person_name_name2,pkunde->person_adresse_plz,pkunde->person_adresse_ort,$$testKarte^KWWSKUND("_siteid_","_kartid_",pkunde->%Id) from stamm.kundmatch" s sql=sql_" where pkunde->psite=:siteid and pkunde->loesw=0" i $L(sutxt) s sql=sql_" and sutext like """_sutxt_"""" i +aktiv s sql=sql_" and pkunde->aktiv=1" i +karte s sql=sql_" and $$testKarte^KWWSKUND("_siteid_","_kartid_",pkunde->%Id)>0" i $L(kgrpid) s sql=sql_" and pkunde->pkgrp="_kgrpid i plzcnt=1 s sql=sql_" and pkunde->person_adresse_land="""_sland_""" and pkunde->person_adresse_plz="""_plz_"""" e i plzcnt>1 s sql=sql_" and pkunde->person_adresse_land="""_sland_""" and pkunde->person_adresse_plz in ("_splz_")" s sql=sql_" order by pkunde->person_name_kbez" ; k ^system.searchD(userid,"KU") d result.Prepare(sql) d result.Execute() f q:'result.Next() d . s cnt=cnt+1 . s id=result.GetData(1) . s name1=result.GetData(3) . s name2=result.GetData(4) . s name=name2_$S(name2'="":" ",1:"")_name1 . s ^system.searchD(userid,"KU",cnt)=$LB("",result.GetData(1)_"|"_result.GetData(2)_"|"_name_"|"_result.GetData(5)_"|"_result.GetData(6)_"|"_result.GetData(7)) d result.Close() k result i cnt=0 q 0 i cnt=1 q cnt_"|"_id s obj1=##class(system.searchpar).%OpenId(userid_"||"_"KU") i obj1="" d . s obj1=##class(system.searchpar).%New() . d obj1.puserSetObjectId(userid) . s obj1.typ="KU" I cnt>0 s obj1.lastsel="" s obj1.feld1=$LB(sutxt,kgrpid,aktiv,karte,plz,plzzusatz) s ^test("S")=plzzusatz d obj1.%Save() d obj1.%Close() k obj1 q cnt testKarte(siteid, kartid, kundid) q $D(^stamm.kukarteI("kartesw",siteid,0,kartid,kundid))>0 ]]> serial 1 %XML.Adaptor,%SerialObject 61076,50056 59921,85740.842812 0 %String %Date %Float %Library.CacheSerialState acontobezahlState ^basis.acontobezahlS listnode "basis.acontobezahl" beleg betrag datum pbeleg acontonr adatum serial 1 %SerialObject,%XML.Adaptor 61076,50056 59921,85740.962454 0 %String %String %String %String %Library.CacheSerialState adresseState ^basis.adresseS listnode "basis.adresse" land ort plz strasse pland port pplz pstrasse anrede name1 name2 prechtsform ptitel 1 1 %XML.Adaptor 61076,50056 59921,85740.968611 0 param.mwcode %Boolean %Boolean %Library.CacheSerialState artberState ^basis.artberS listnode "basis.artber" mwcode sktber rabber rabbervk rabvkjn sktjn skontojn 1 1 %XML.Adaptor 61076,50056 59921,85740.974729 0 stamm.notiz %String %String %String %String %String %String list %String %Library.CacheSerialState artbezState ^basis.artbezS serial 1 %SerialObject,%XML.Adaptor 61076,50056 59921,85740.979995 0 param.meeinh %Float %Library.CacheSerialState arteinhState ^basis.arteinhS listnode "basis.arteinh" einh faktor serial 1 %XML.Adaptor,%SerialObject 61076,50056 59921,85740.985865 %Float %Float %Float %Float %Float %Library.CacheSerialState artekState ^basis.artekS listnode "basis.artek" netto rab1 rab2 rab3 rab4 serial 1 %XML.Adaptor,%SerialObject 61076,50056 59922,78548.0775 0 %Float stamm.artikel %Library.CacheSerialState artfolgeState ^basis.artfolgeS listnode "basis.artfolge" folge menge serial 1 %SerialObject 61076,50056 61075,48826.825206 0 stamm.konto stamm.konto stamm.konto %Library.CacheSerialState artkontierungState ^basis.artkontierungS listnode "basis.artkontierung" euausland euinland inland 1 1 %XML.Adaptor 61076,50056 61075,48826.829287 %Float %Float %Float %Float %String 1 1 %XML.Adaptor 61076,50056 59921,85740.996546 %String %String %String 1 %List 1 1 61076,50056 61075,48826.847705 0 %String %String %String %String param.abt param.wargr %String serial 1 %SerialObject 61076,50056 61075,48826.852943 0 soll=true,haben=false %Boolean basis.konto basis.konto %Float %Float %Float basis.belkost list %Library.CacheSerialState belkontoState ^basis.belkontoS listnode "basis.belkonto" betrexcl betrmwst kost mwproz sollhaben sollhab kontoart pkonto pkunde gkonto konto serial 1 %SerialObject 61076,50056 61075,48826.857025 0 %Float %Library.CacheSerialState belkostState ^basis.belkostS listnode "basis.belkost" betrag serial 1 %SerialObject 61076,50056 61075,48826.861728 0 %Float %Float %Float %Float %Float %Float basis.belkonto list %Library.CacheSerialState belmwtabState ^basis.belmwtabS listnode "basis.belmwtab" betrexcl betrmwst konten mwproz skbasis skexcl skmwst serial 1 %XML.Adaptor,%SerialObject 61076,50056 61075,48826.865906 0 param.fremdw %Float %Float %Library.CacheSerialState fremdwbezahlState ^basis.fremdwbezahlS listnode "basis.fremdwbezahl" betrag betragfrw pfremdw serial 1 %XML.Adaptor,%SerialObject 61076,50056 61075,48826.870541 0 %String %Date %Float %Library.CacheSerialState gsbonbezahlState ^basis.gsbonbezahlS listnode "basis.gsbonbezahl" adatum betrag gsnr serial 1 %XML.Adaptor,%SerialObject 61076,50056 59922,78548.140965 0 %String %Date $LB(belart,belnr) %List %Float %Library.CacheSerialState gutschbezahlState ^basis.gutschbezahlS listnode "basis.gutschbezahl" gutsch pgutsch adatum betrag gsnr abeleg serial 1 %SerialObject 61076,50056 59922,78548.152415 0 param.zahlungsm %String %Float %Date stamm.kunde %String %Date stamm.kunde %String %Library.CacheSerialState gutscheinState ^basis.gutscheinS listnode "basis.gutschein" abeleg adatum betrag ebeleg edatum gsnr pgstyp qbeleg paknr peknr pgutstyp serial 1 %XML.Adaptor,%SerialObject 61076,50056 59921,85741.02782 0 param.karttyp %Float %String %String %String %Library.CacheSerialState kartbezahlState ^basis.kartbezahlS listnode "basis.kartbezahl" betrag pkarte pkarttyp zahlungsid bisdat nr bisper 1 1 %SerialObject 61076,50056 61075,48826.889808 %Date %Float %Date %Float %Boolean %Library.CacheSerialState kbonusState ^basis.kbonusS listnode "basis.kbonus" abrdatum abrpkt aktpkt bonusjn datum kbabrdatum kbabrpkt kbaktpkt kbdatum kbonusjn serial 1 %SerialObject,%Populate,%XML.Adaptor 61076,50056 59921,85741.039371 0 %String %String %String %String %String %Library.CacheSerialState kontaktState ^basis.kontaktS listnode "basis.kontakt" email fax mobil tel www serial 1 %SerialObject 61076,50056 61075,48826.898458 0 Kontotyp S=Sachkonto,K=Kundenkonto,L=Lieferantenkonto %String stamm.konto stamm.kunde %Library.CacheSerialState kontoState ^basis.kontoS listnode "basis.konto" pkonto pkunde typ serial 1 %SerialObject 61076,50056 61075,48826.902665 0 stamm.kost %Float %Library.CacheSerialState kostState ^basis.kostS listnode "basis.kost" betrag pkost sollhaben betrexcl betrmwst pmwcode serial 1 %XML.Adaptor,%SerialObject 61076,50056 61075,48826.907643 %String %String %String basis.adresse basis.kontakt %Library.CacheSerialState kuliadresseState ^basis.kuliadresseS listnode "basis.kuliadresse" adr kbez kontakt name1 name2 serial 1 %SerialObject,%Populate,%XML.Adaptor 61076,50056 59921,85741.043943 %Library.CacheSerialState ^basis.liverbandS serial 1 %SerialObject 61076,50056 61075,48826.917238 0 %Float %Integer %Library.CacheSerialState muenzeState ^basis.muenzeS listnode "basis.muenze" anzahl wert serial 1 %SerialObject,%XML.Adaptor 61112,63355.247673 61075,48826.922616 0 %String %String %String vorname %String zuname oder firmenname in den firmennamen kann per funktion rechtsform geladen werden %String %String %String list %List 1 %String Set {name} = {name2}_" "_{name1} 1 Arg:%List %Status %List %String %Library.CacheSerialState nameState ^basis.nameS listnode "basis.name" anrede name1 name2 prechtsform ptitel kbez kbez1 titel1 titel2 titel name serial 1 %XML.Adaptor,%SerialObject 61076,50056 61075,48826.927289 basis.name basis.adresse basis.kontakt %Date %Date %Library.CacheSerialState personState ^basis.personS listnode "basis.person" adresse gebdat kontakt name altgrp altgruppe serial 1 %SerialObject,%Populate,%XML.Adaptor 61118,56216.251603 59921,85741.052994 0 %Float %Float %Float %Float %Float %String %Float %Float param.mwcode %Float param.prliste stamm.aktion param.meeinh %Float %Float %Boolean %Boolean %String %Library.CacheSerialState preisState ^basis.preisS listnode "basis.preis" mwcode preis1 preis2 preis3 rab1 rab2 rab3 rab4 brutto netto1 netto2 aktion prlist paktion pmwcode pprlist preinh prme manuell prfaktor skontojn skontosw rabtxt preistext est serial 1 %SerialObject 61076,50056 61075,48826.938874 0 param.fremdw %Float %Float %Library.CacheSerialState valuteState ^basis.valuteS listnode "basis.valute" betr betrval pvalute serial 1 %SerialObject 61076,50056 61075,48826.943582 0 %Float %Date %Float %Date %Date %Library.CacheSerialState zkdatState ^basis.zkdatS listnode "basis.zkdat" datum1 datum2 datumn skontopr1 skontopr2 basis persistent system.base,%Persistent,%XML.Adaptor 61127,15442.176725 61075,48826.974393 0 /////// KOPFDATEN //////////////////////////////////////////////////////////////// %Date %Time param.belart %String 0=neu, 1=offen, 2=erledigt %Integer stamm.kunde basis.person stamm.kuadr basis.kuliadresse stamm.lief stamm.liadr %Boolean %List /// SKONTODATEN //////////////////////////////////////////////////////////////// param.zk aufgelöste Skontodaten basis.zkdat %Date %Float Barskonto %Float %Float ///// RABATTDATEN /////////////////////////////////////////////////////////////////// %Float %String %Boolean ///// KASSA //////////////////////////////////////////////////////////////////////// %String beweg.belegeinaus children beleg 1 Summe Zahlbetrag Warenartikel + Belegzahlungen +E/A %Float %Float basis.fremdwbezahl list basis.gutschbezahl list basis.kartbezahl list basis.gsbonbezahl list basis.acontobezahl list %Float %Float %Boolean ///// BELEGBETRÄGE //////////////////////////////////////////////////////////////// wenn false dann keine Mwst %Boolean Warenwert excl/incl vor Skonto %Float %Float %String ///// BONUSDATEN /////////////////////////////////////////////////////////////////// %Integer %Float %Boolean ///// ARCHIVDATEN ////////////////////////////////////////////////////////////////// %Stream binarystream ////// FIBUDATEN /////////////////////////////////////////////////////////////////// basis.belmwtab array ///// POSITIONSDATEN /////////////////////////////////////////////////////////////// beweg.belegpos children beleg 1 beweg.beleg array beweg.beleg array Information für Positionsnummernverwaltung mit hirachischen Positionsnummern beweg.belegnextpos children beleg 1 /////// INDEXDEFINITIONEN /////////////////////////////////////////////////////////// psite,loesw,pkunde psite,loesw,pbelart,belnr psite,loesw,kassa ///// CALLBACK METHODEN /////////////////////////////////////////////////// InitialValue:%CacheString %Status Insert:Boolean %Status belegart:%String,wjid:%String,kassa:%String %String belegart:%String,wjid:%String,kassa:%String %String ////// BELEGMODELL ///////////////////////////////////////////////////////////////// posnr:%String="" %List idpos:%String,idart:%String,menge:%String="",savesw:%Boolean=1,ausfolgesw:%Boolean=0,ean:%String="" %List idpos:%String,menge:%Float,prfind:%String,savesw:%Boolean=1 %List idpos:%String,manuell:%String,brutto:%String,rab1:%String,rab2:%String,rab3:%String,savesw:%Boolean=1,preistext:%String="",inclexcl:%String="E" %List %String %Integer idpos %Boolean idpos:%String,sw:%Integer %Integer idpos:%String %String idpos:%String ean:%String %String idpos:%String %Integer idpos:%String %List idpos:%String %List pos:%String %String opos:beweg.belegpos,idpos:%String="" %List 0, opos.panr.pdeflager.menge,opos.ean,opos.preis.skontosw,opos.stornoretoure,opos.preis.preistext, opos.panr.parttyp.sammelsw,opos.panr.parttyp.dezimalsw,opos.panr.parttyp.kummsw,opos.panr.parttyp.einkaufsw, ..wertexcl,..wertincl,..zahlb) d opos.postxt.Rewind() q erg ]]> par:%String,idpos:%String %Integer barskpr %List gesrabpr:%Float,rabtxt:%String="" %List eatok:%String,betrag:%Float,text1:%String,text2:%String,cargo:%String="" %String %Integer 0,..beldat0,..beldat>objnl.datumbis q . i ..pkunde.kbonusjn,$L(objnl.vonpkt),..pkunde.kbaktpktobjnl.bispkt q . i ..pkunde.kbonusjn,$L(objnl.vonabrpkt),+abrpkt,abrpkt-abrpktabobjnl.bisabrpkt q . i $L(objnl.anzahl),##class(beweg.nachltxtcnt).GetCounter(..pkunde.%Id(),id)' ///////////////////////////////////////////////////////////////////////////////// ////// Methoden ///////////////////////////////////////////////////////////////////// belart:%String,kassa:%String,wjid:%String %String kundid:%String,artid:%String %String belart:%String,belnr:%String %String belart:%String %Integer true=open false=not open sw:%Boolean %Integer 1 userid:%String,belart:%String,belnr:%String,kundeid:%String,datumab:%Date,kasbelsw=1,merken:%Boolean=1 %List %Boolean %List id:%String %List einausid:%String %Integer %Integer typ:%String,id:%String,betrag:%String,text1:%String,text2:%String,einausid:%String="",offen:%Float=0,cargo:%String="",skonto:%Float=0,skontopr:%Float=0 %String %String gutsch:%List %Integer gutsch:%String %String %String betrag:%Float,negsw:%Boolean %String zstr:%String %Integer karte:%List %Integer gutsch:%List %Integer gutsch:%String %String %String aconto:%List %Integer %String fremdw:%List %Integer %String %List %Integer nettodat!(obj1.betrag<0) s ..bonusbasis=..bonusbasis+obj1.betrag . i obj1.typ=2 d .. i obj1.pkassaea.einaus,obj1.pkassaea.bonussw s ..bonusbasis=..bonusbasis+obj1.betrag ; s zmbetr=..GetZmittel() //Bonusfähig Zahlungsmittel Bar i '##class(param.zahlungsm).getBonus("B") s ..bonusbasis=..bonusbasis-..bar //Bonusfähig Zahlungsmittel Bar-Fremdwährung i '##class(param.zahlungsm).getBonus("B") s ..bonusbasis=..bonusbasis-$LI(zmbetr,2) //Bonusfähig Zahlungsmittel Karte/Bankomat i '##class(param.zahlungsm).getBonus("E") s ..bonusbasis=..bonusbasis-$LI(zmbetr,3) //Bonusfähig Zahlungsmittel Aconto i '##class(param.zahlungsm).getBonus("A") s ..bonusbasis=..bonusbasis-$LI(zmbetr,6) //Bonusfähig Zahlungsmittel Gutschein s id="" f s objgm=..gutsch.GetNext(.id) q:objgm="" d . s gstyp=$E(objgm.gsnr,1) . i '##class(param.zahlungsm).getBonus("D"_gstyp) s ..bonusbasis=..bonusbasis-$LI(zmbetr,4) i 1 . e i '##class(stamm.gutschein).getBonus(objgm.gsnr) s ..bonusbasis=..bonusbasis-objgm.betrag //Bonusfähig Zahlungsmittel GS-Non s id="" f s objgm=..gsbon.GetNext(.id) q:objgm="" d . i '##class(param.zahlungsm).getBonus("G") s ..bonusbasis=..bonusbasis-$LI(zmbetr,5) i 1 . e i '##class(stamm.gsbon).getBonus(objgm.gsnr) s ..bonusbasis=..bonusbasis-objgm.betrag ; I ..bonusbasis<0,'..bonusnegativ s ..bonusbasis=0 s ..bonuspunkte=0 i ..pkunde.kbonusjn,..beldat'<..pkunde.kbdatum,+..bonusbasis d . s bonustime=##class(beweg.bonusdat).getBasisLast(..pkunde.%Id(),60) . s ..bonuspunkte=##class(param.bonustab).GetPunkte(..pkunde.%Id(),..bonusbasis+$LI(bonustime,1))-$LI(bonustime,2) . i ..bonuspunkte<0,'..bonusnegativ s ..bonuspunkte=0 . i ..bonuspunkte<0,..pkunde.kbaktpkt'<0,..pkunde.kbaktpkt+..bonuspunkte<0 s ..bonuspunkte=0 q ..bonuspunkte ]]> belartid:%String,belnr:%String %String 1 belnr %String %List %Integer muenzen:%List,valuten:%List,werte:%List %Integer 1 id:%String %String /// QUERY-s ////////////////////////////////////////////////////////////// %SQLQuery siteid:%String,userid:%String,datum:%Date="",belart:%String code,belnr,pkunde->person_name_name1,pkunde->person_name_name2 FROM beleg where loesw=0 and psite=:siteid and beldat>=:datum and panlmitarb=:userid and (pbelart->code=:belart or :belart="") order by beldat, %Id]]> ///// Methoden für Reports //////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// layid:%String,kopietxt:%String="",p2:%String="",p3:%String="",p4:%String="",p5:%String="" %Integer 0,'kopie d .. i ..bonuspunkte'=1 s punktetxt="- Treuebonus-Punkte" i 1 .. e s punktetxt="- Treuebonus-Punkt" .. s punkte=..bonuspunkte .. d rep.line("bonus",##this) . i 'kopie,'intern d ..nachlauftext(rep) . i 'kopie,'intern d rep.line("gruss",##this) i 1 . e f k=1:1:3 d rep.line("dummy",##this) . i 1 e d rep.line("posfussvorschau",##this) s repid=rep.end() d rep.%Close() k rep s scroll=..status=1 q $LB(repid,scroll,anzkop) ]]> layid:%String,kopietxt:%String,belegbez:%String="Lieferbeleg",p3:%String="",p4:%String="",p5:%String="" %Integer rep:system.rep rep:system.rep,kartobj:basis.kartbezahl 0 s txt1=$E(erg,64,96) d rep.line("txtkarte",##this) .. i cnt>1 s txt1=$E(erg,97,129) d rep.line("txtkarte",##this) .. i cnt>2 s txt1=$E(erg,130,162) d rep.line("txtkarte",##this) .. i cnt>3 s txt1=$E(erg,163,195) d rep.line("txtkarte",##this) .. i cnt>4 s txt1=$E(erg,196,228) d rep.line("txtkarte",##this) .. i $E(erg,62)="1" d ... s txt1="" d rep.line("txtkarte",##this) ... s txt1="" d rep.line("txtkarte",##this) ... s txt1="Unterschrift:" d rep.line("txtkarte",##this) ; //Kreditkarten i kartobj.pkarttyp.kreditsw d . s mergebnis=$E(erg,89,108) . s mtid=$E(erg,69,76) . s mname=$E(erg,6,25) . s mgenehm=$E(erg,83,88) . s mtid=$E(erg,69,76) . s mkarte=$E(erg,26,46) . s mlese=$E(erg,52,52) . s mablauf=$E(erg,47,51) . s muid=$E(erg,53,68) . s mbeleg=$E(erg,77,82) . s mbetrag=$E(erg,109,116) . s txt1=mergebnis,txt2=mtid d rep.line("txtkarte",##this) . s txt1=mname,txt2=mgenehm d rep.line("txtkarte",##this) . s txt1=mkarte_" ("_mlese_")",txt2=mablauf d rep.line("txtkarte",##this) . s txt1=muid,txt2="Beleg Nr.:"_mbeleg d rep.line("txtkarte",##this) . s txt1="",txt2="" d rep.line("txtkarte",##this) . s txt1="",txt2="INFO: Betrag = "_$TR($FN(mbetrag/100,",",2),".,",",.")_" EURO" d rep.line("txtkarte",##this) . s txt1="",txt2="" d rep.line("txtkarte",##this) ]]> layid:%String,p1:%String,duplikat:%String,p3:%String="",p4:%String="",p5:%String="" %Integer layid:%String,p1:%String="",p2:%String="",p3:%String="",p4:%String="",p5:%String="" %Integer layid:%String,kopietxt:%String="",p2:%String="",p3:%String="",p4:%String="",p5:%String="" %Integer layid:%String,ergm:%String,hkerg:%String,idj:%String,p4:%String="",p5:%String="" %Integer layid:%String,ergk:%String,hkerg:%String,p3:%String="",p4:%String="",p5:%String="" %Integer layid:%String,bonnr:%String,betrag,p3:%String="",p4:%String="",p5:%String="" %Integer layid:%String,kopietxt:%String="",p2:%String="",p3:%String="",p4:%String="",p5:%String="" %Integer 1 rep:system.rep rep:system.rep %Library.CacheStorage ^beweg.belegD belegDefaultData ^beweg.belegD ^beweg.belegI ^beweg.belegS listnode %%CLASSNAME aconto anldatum anlpers ausfolgesw bar barfrw barskabs barskpr beldat belnr beltime bezahlt bonusbasis bonusnegativ bonuspunkte empfaction gesrabpr gsbon image internsw kassa kuadr kunde loesw mwstsw nachlauftxt negativsw nr ok pbelart pkuadr pkunde pliadr plief psite pzk rabtxt restg route rtdelay rtdelete skbasis status summezm upddatum updpers valutadat wertexcl wertincl zahlb zkdat anldatumzeit panlmitarb pupdmitarb upddatumzeit gutsch subnode "gutsch" karte subnode "karte" mwkonten subnode "mwkonten" pchild subnode "pchild" pparent subnode "pparent" persistent 1 system.baser,%Persistent 61076,12128.521681 61075,48826.984996 0 beweg.beleg parent einaus 1 typ 1=Beleg, 2=KassaEA %Integer Ein/Ausgang falls Kassa-Ein/Ausgang param.kassaea Beleg falls Belegzahlung beweg.beleg %Float %Float %String %String %String %Float %Float %Boolean Kontenzuordnung basis.belkonto list 1 id:%String %String %Library.CacheStorage {%%PARENT}("einaus") belegeinausDefaultData ^beweg.belegzC("einaus") ^beweg.belegeinausI ^beweg.belegeinausS listnode %%CLASSNAME anldatum anlpers betrag cargo empfaction loesw offen pbeleg pkassaea psite route rtdelay rtdelete text1 text2 typ upddatum updpers kaspers skonto skontopr printsw anldatumzeit upddatumzeit konten subnode "konten" persistent 1 %Persistent 61076,50056 61075,48826.990053 0 %String %Integer beweg.beleg parent nextpos 1 1 posindex 1 %Library.CacheStorage {%%PARENT}("nextpos") belegnextposDefaultData ^beweg.belegC("nextpos") ^beweg.belegnextposI ^beweg.belegnextposS listnode %%CLASSNAME posnr persistent 1 system.baser,basis.belegart,%Persistent 61076,12129.071068 59921,85741.08332 0 beweg.beleg parent pos 1 %String stamm.artikel %String basis.preis stamm.kunde stamm.lief param.meeinh key=param.meeinh basis.arteinh array %Float %Boolean Kennung für Negativ 0=normal, 1=Storno, 2=Retoure %Integer %Float array %Float beweg.belegpos list beweg.belegpos list %Integer %Integer list %Stream binarystream %Integer %Integer list 1 pos 1 /// QUERY-s ////////////////////////////////////////////////////////////// %SQLQuery belid:%String anr,panr->bez1,panr->bez2,panr->bez3, menge,defeinh->bez,preis_brutto,preis_netto2, preis_pmwcode->mwproz from beweg.belegpos where beleg->%Id=:belid order by pos]]> %Library.CacheStorage {%%PARENT}("pos") belegposDefaultData ^beweg.belegD("pos") ^beweg.belegposI ^beweg.belegposS listnode %%CLASSNAME anldatum anlpers bez1 bez2 bez3 defeinh empfaction kbez menge notiz panr pchild pean peprov perf pgrpposchild pgrpposparent piprov pkunde plief pparent preis psumposchild psumposparent route rtdelay rtdelete upddatum updpers psite info text site kbez1 loesw abtnr wargr poswert postxt ean stornoretoure pabtnr pwargr ausfolgesw anldatumzeit upddatumzeit belmenge subnode "belmenge" einh subnode "einh" persistent 1 system.base,%Persistent 61092,24484.622722 61075,48827.00393 0 %Stream binarystream typ = BK oder KK %String %Library.CacheStorage ^beweg.bktagesendeD bktagesendeDefaultData ^beweg.bktagesendeD ^beweg.bktagesendeI ^beweg.bktagesendeS listnode %%CLASSNAME anldatum anlpers empfaction journal loesw nr ok psite route rtdelay rtdelete typ upddatum updpers anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent system.base,%Persistent 61092,29656.017732 61075,48827.010654 0 stamm.kunde %Integer %Integer %Integer %String psite,loesw,pknr,periode 1 pknr:%String,periode:%String %String 1 pknr:%String,datum:%Date,abrpkt:%Integer,betrag:%Float,periode:%Integer %String ",2),"",1) d httprequest.%Close() k httprequest s gsnr=$P(erg,"|",1) i gsnr="" d objgs.%Close() k objgs q $LB(3) s ean=$P(erg,"|",2) s gsnr1=gsnr_"/"_$ZD($H,3) I objgs.gsnr="" s objgs.gsnr=gsnr1 e s objgs.gsnr=objgs.gsnr_" "_gsnr1 s objgs.abrpunkte=objgs.abrpunkte+abrpkt //d objgs.%Save() d objgs.%Close() k objgs d ##class(stamm.gutschein).SetAusstellung(gsnr,datum, betrag, pknr, "", 0) q $LB(gsnr,abrpkt,ean) ]]> layid:%String,bonnr:%String,betrag,kundid:%String,ean,per:%String %Integer %SQLQuery siteid:%String,pknr:%String SELECT %ID,periode,abrpunkte,punkte,gsnr FROM bonabr WHERE (pknr = :pknr) and (psite=:siteid) and (:loesw=0) order by periode %Library.CacheStorage ^beweg.bonabrD bonabrDefaultData ^beweg.bonabrD ^beweg.bonabrI ^beweg.bonabrS listnode %%CLASSNAME abrdatum anldatum anlpers betrag empfaction gsnr loesw nr ok periode pknr psite punkte route rtdelay rtdelete upddatum updpers abrpunkte anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,25810.895721 61075,48827.01683 0 stamm.kunde %Date %Time %Float %Integer Liste mit Belegart,Belegnummer %List psite,loesw,pkunde,datum 1 kundeid:%String,seconds:%Integer %String %Library.CacheStorage ^beweg.bonusdatD bonusdatDefaultData ^beweg.bonusdatD ^beweg.bonusdatI ^beweg.bonusdatS listnode %%CLASSNAME anldatum anlpers datum empfaction loesw nr ok pkunde psite punkte route rtdelay rtdelete umsatz upddatum updpers zeit basis beleg anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.baser,%Persistent 61076,12143.728026 61075,48827.022153 0 beweg.kassasummen parent kassabelege 1 beweg.beleg %Library.CacheStorage {%%PARENT}("kassabelege") kassabelegeDefaultData ^beweg.kassasummenC("kassabelege") ^beweg.kassabelegeI ^beweg.kassabelegeS listnode %%CLASSNAME anldatum anlpers empfaction loesw psite route rtdelay rtdelete upddatum updpers pebeleg pbeleg anldatumzeit upddatumzeit persistent system.base,%Persistent 61111,37771.169343 61075,48827.033414 0 param.kassalade %Date %Float %Float %Float basis.muenze list %Float basis.valute list %Float %Float %Float %Float %Boolean beweg.kassabelege children kassasummen 1 psite,loesw,pkassalade,datum 1 datum:%Date,ladeid:%String="" %String 1 datum:%Date,ladeid:%String %String 1 belegid:%String layid:%String,datum:%Date="",ladeid:%String="",p3:%String="",p4:%String="",p5:%String="" %Integer sum2 s txt="Summe Zahlungsmittel( =MANKO )" e s txt="Summe Zahlungsmittel( =ÜBERSCHUSS )" s betr1=$TR($FN(sum1,",",2),".,",",.") s betr2=$TR($FN(sum2,",",2),".,",",.") s betr3=$TR($FN(sum2-sum1,",",2),".,",",.") d rep.line("titel",##this) s betr3="" s txt="" d rep.line("txtzeile",##this) s txt="" d rep.line("txtzeile",##this) s txt="Umsätze",betr1="Summe",betr2="Anzahl" d rep.line("titel",##this) s swlinie=0 i $D(bericht("bon")) d . s txt=" Kassabons" . s betr1=$TR($FN($LI(bericht("bon"),2),",",2),".,",",.") . s betr2=$LI(bericht("bon"),1) d rep.line("sollist",##this) . s swlinie=1 s bb="" f s bb=$O(bericht("bb",bb)) q:bb="" d . s txt=" Barbeleg "_bb,betr1=$TR($FN($LI(bericht("bb",bb),2),",",2),".,",",.") . s betr2=$LI(bericht("bb",bb),1) d rep.line("sollist",##this) . s swlinie=1 i swlinie d rep.line("linie",##this) i $D(bericht("ea",1)) d . s sum=0 . s ea="" f s ea=$O(bericht("ea",1,ea)) q:ea="" s sum=sum+$LI(bericht("ea",1,ea),2) . s txt="" d rep.line("txtzeile",##this) . s txt="+ Kassaeingänge",betr1=$TR($FN(sum,",",2),".,",",."),betr2="" d rep.line("titel",##this) . s swlinie=0 . s ea="" f s ea=$O(bericht("ea",1,ea)) q:ea="" d .. s txt=" "_ea_" "_$LI(bericht("ea",1,ea),3) .. s betr1=$TR($FN($LI(bericht("ea",1,ea),2),",",2),".,",",.") .. s betr2=$LI(bericht("ea",1,ea),1) d rep.line("sollist",##this) .. s swlinie=1 . i swlinie d rep.line("linie",##this) i $D(bericht("ea",0)) d . s sum=0 . s ea="" f s ea=$O(bericht("ea",0,ea)) q:ea="" s sum=sum+$LI(bericht("ea",0,ea),2) . s txt="" d rep.line("txtzeile",##this) . s txt="- Kassaausgänge",betr1=$TR($FN(sum,",",2),".,",",."),betr2="" d rep.line("titel",##this) . s swlinie=0 . s ea="" f s ea=$O(bericht("ea",0,ea)) q:ea="" d .. s txt=" "_ea_" "_$LI(bericht("ea",0,ea),3) .. s betr1=$TR($FN($LI(bericht("ea",0,ea),2),",",2),".,",",.") .. s betr2=$LI(bericht("ea",0,ea),1) d rep.line("sollist",##this) .. s swlinie=1 . i swlinie d rep.line("linie",##this) s txt="" d rep.line("txtzeile",##this) s txt="= Tagessaldo",betr1=$TR($FN($G(bericht("tsaldo")),",",2),".,",",.") s betr2="" d rep.line("titel",##this) d rep.line("linie",##this) s txt="+ Vortrag",betr1=$TR($FN($G(bericht("vortrag")),",",2),".,",",.") s betr2="" d rep.line("titel",##this) s txt="= Kassasaldo",betr1=$TR($FN($G(bericht("saldo")),",",2),".,",",.") s betr2="" d rep.line("titel",##this) d rep.line("dlinie",##this) d rep.page() s belart="" f s belart=$O(bericht("zm","E",belart)) q:belart="" d . s belnr="" f s belnr=$O(bericht("zm","E",belart,belnr)) q:belnr="" d .. s karte="" f s karte=$O(bericht("zm","E",belart,belnr,karte)) q:karte="" d ... s ad=bericht("zm","E",belart,belnr,karte) ... s txt=karte,beleg=belart_belnr,betr=$TR($FN($LI(ad,1),",",2),".,",",.") ... d rep.line("kartenz",##this) s belart="" f s belart=$O(bericht("zm","D",belart)) q:belart="" d . s belnr="" f s belnr=$O(bericht("zm","D",belart,belnr)) q:belnr="" d .. s gsnr="" f s gsnr=$O(bericht("zm","D",belart,belnr,gsnr)) q:gsnr="" d ... s ad=bericht("zm","D",belart,belnr,gsnr) ... s txt=gsnr,beleg=belart_belnr,betr=$TR($FN($LI(ad,1),",",2),".,",",.") ... s adatum=$ZD($LI(ad,2),4),abeleg=$LI(ad,3) ... d rep.line("gutscheine",##this) s belart="" f s belart=$O(bericht("zm","G",belart)) q:belart="" d . s belnr="" f s belnr=$O(bericht("zm","G",belart,belnr)) q:belnr="" d .. s gsnr="" f s gsnr=$O(bericht("zm","G",belart,belnr,gsnr)) q:gsnr="" d ... s ad=bericht("zm","G",belart,belnr,gsnr) ... s txt=gsnr,beleg=belart_belnr,betr=$TR($FN($LI(ad,1),",",2),".,",",.") ... d rep.line("gsbons",##this) s repid=rep.end() d rep.%Close() k rep,objlade q $LB(repid,0,0) ]]> layid:%String,datum:%Date="",ladeid:%String="",p3:%String="",p4:%String="",p5:%String="" %Integer 1 konto:%String %String %Library.CacheStorage ^beweg.kassasummenD kassasummenDefaultData ^beweg.kassasummenD ^beweg.kassasummenI ^beweg.kassasummenS istmuenzen node "istmuenzen" istvaluten node "istvaluten" listnode %%CLASSNAME anldatum anlpers datum empfaction loesw nr ok pkassalade psite route rtdelay rtdelete upddatum updpers istbar istval istgsbon istgutschein saldo taldo tsaldo dirtysw sollbar saldobar tsaldobar anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,26231.125546 61075,48827.041802 0 %Date %String %String %String %Float param.meeinh %Float %Float %Float %Float %Float param.meeinh Faktor zwischen Defeinheit und Preiseinheit %Float %Float stamm.artikel stamm.kunde stamm.aktion psite,loesw,panr,pknr,datum psite,loesw,pknr,panr,datum %SQLQuery siteid:%String,datum:%Date,knrid:%String,anrid:%String bez1,pknr->person_name_name1,pknr->person_name_name2,belegart,belegnr,pos,menge,brutto,rab1,rab2,rab3,netto,panr->pmwcode->mwproz,paktion->bez,defeinh->code,peinh->code,prfaktor,prme FROM konto WHERE (panr = :anrid or :anrid is null) AND (pknr = :knrid or :knrid is null) AND (datum >= :datum or :datum is null) AND (psite=:siteid) AND (:loesw=0) ORDER by datum]]> %Library.CacheStorage ^beweg.kontoD kontoDefaultData ^beweg.kontoD ^beweg.kontoI ^beweg.kontoS listnode %%CLASSNAME belegart belegnr brutto datum defeinh menge netto paktion panr peinh pknr pos prfaktor prme rab1 rab2 anldatum anlpers empfaction loesw nr ok psite route rtdelay rtdelete upddatum updpers rab3 anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,26264.758694 61075,48827.047992 0 stamm.kunde stamm.nachltxt %Integer psite,loesw,pkunde,pnachltxt 1 kundeid:%String,nachltxtid:%String %Integer 1 kundeid:%String,nachltxtid:%String %Library.CacheStorage ^beweg.nachltxtcntD nachltxtcntDefaultData ^beweg.nachltxtcntD ^beweg.nachltxtcntI ^beweg.nachltxtcntS listnode %%CLASSNAME anldatum anlpers cnt empfaction loesw nr ok pkunde pnachltxt psite route rtdelay rtdelete upddatum updpers anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,26344.559676 61075,48827.053606 0 system.mitarb beweg.beleg psite,loesw,puser,pbeleg %SQLQuery siteid:%String,puser:%String %Id,pbeleg->anldatumzeit,pbeleg->pbelart->code,pbeleg->belnr,pbeleg->pkunde->person_name_name1,pbeleg->pkunde->person_name_name2,pbeleg->wertincl FROM openbeleg where puser=:puser and psite=:siteid and loesw=0 order by pbeleg->anldatumzeit DESC, pbeleg->%Id DESC]]> %Library.CacheStorage ^beweg.openbelegD openbelegDefaultData ^beweg.openbelegD ^beweg.openbelegI ^beweg.openbelegS listnode %%CLASSNAME anldatum anlpers empfaction loesw nr ok psite route rtdelay rtdelete upddatum updpers pbeleg puser pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61109,60512.225578 59921,85741.120598 0 Einstellungen für Gui-QT Abteilung code,bez1,bez2,bez3,pparent,kost Code,Bezeichnung 1,Bez. 2,Bez. 3,Übergeordnet,Kostenstelle code 10%,20%,10%,10%,20%,20% code code,bez1 code,bez1 10%,70% code code,bez1 psite,code ////////////////////////////////////////////////////////////// %String %String %String %String param.abt stamm.kost psite,loesw,code 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid:%String code FROM abt WHERE (psite=:siteid) and (loesw=0) ORDER by $$deep^KWWSABT(%ID)]]> %Library.CacheStorage ^param.abtD abtDefaultData ^param.abtD ^param.abtI ^param.abtS listnode %%CLASSNAME anldatum anlpers bez1 bez2 bez3 code empfaction nr ok pparent psite route rtdelay rtdelete upddatum updpers loesw pfiliale pmandant kost anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent,%XML.Adaptor 61109,52649.490848 59921,85741.128419 0 Einstellungen für Gui-QT Artikeltyp code,bez,dezimalsw,sammelsw,einkaufsw,lagersw,kummsw code 10%,30%,10%,10%,10%,10%,10% code code,bez code,bez code code,bez psite,code ////////////////////////////////////////////////////////////// %String %String %Boolean %Boolean %Boolean %Boolean %Boolean psite,loesw,code InitialValue:%CacheString %Status code:%String %String 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid:%String SELECT %ID,code,bez FROM arttyp WHERE (psite=:siteid) and (loesw=0) order by code DESC %Library.CacheStorage ^param.arttypD arttypDefaultData ^param.arttypD ^param.arttypI ^param.arttypS listnode %%CLASSNAME anldatum anlpers bez code dezimalsw einkaufsw empfaction loesw nr ok psite route rtdelay rtdelete sammelsw upddatum updpers lagersw kummsw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61115,1429.168372 61075,48827.081914 0 Einstellungen für Gui-QT Belegart code,bezpos code 10%,30% code code,bezpos code,bezpos 10%,70% code code,bezpos psite,code /////////////////////////////////////////////////// %String %String %String %Boolean %Boolean %String 1 0=Angebot, 1=Auftrag, 2=Komission, 3=Bevorschlag, 4=Bestellung,5=Urgenz, 6=Zugang, 7=Eingangsrechnung, 8=Korrektur, 9=Geliefert, 10=Verrechnet, 11=Bezahlt %List Preistyp "0"=Verkauf, "1"=Einkauf %Integer %Boolean %Boolean %Boolean %Boolean %Boolean %Boolean param.kassaea psite,loesw,code psite,loesw,kassasw,code psite,loesw,pkassaea 1 belart:%String %List 1 belart:%String %List %SQLQuery siteid SELECT %ID,code,bezpos,bezneg,preistyp,selektsw FROM belart WHERE loesw=0 and psite=:siteid ORDER BY code DESC %Library.CacheStorage ^param.belartD belartDefaultData ^param.belartD ^param.belartI ^param.belartS listnode %%CLASSNAME anldatum anlpers barsw belegsw bezneg bezpos code datesw empfaction endesw kassasw loesw nr ok peabelegz playout preistyp printsw psite route rtdelay rtdelete stornosw upddatum updpers preport pkassaea kassanrsw defbelegsw pfiliale pmandant reports anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa selektsw persistent 1 system.base,%Persistent 61109,52850.026626 61075,48827.088056 0 Einstellungen für Gui-QT Artikelcode code,bez code 10%,30% code code,bez code,bez code code,bez psite,code ////////////////////////////////////////////////////////////// %String %String psite,loesw,code 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid SELECT %ID,code,bez FROM bewcode WHERE loesw=0 and psite=:siteid order by code DESC %Library.CacheStorage ^param.bewcodeD bewcodeDefaultData ^param.bewcodeD ^param.bewcodeI ^param.bewcodeS listnode %%CLASSNAME anldatum anlpers bez code empfaction nr ok psite route rtdelay rtdelete upddatum updpers bez1 loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61112,44857.459515 61075,48827.093795 0 Einstellungen für Gui-QT Bonustabelle umsatz,punkte Umsatz,Punkte umsatz 20%,20% umsatz,punkte ////////////////////////////////////////////////////////////// %Date stamm.kunde param.kgrp %Float %Integer psite,loesw,datum,pkgrp,pkunde,umsatz 1 kundeid:%String,umsatz:%Float %Library.CacheStorage ^param.bonustabD bonustabDefaultData ^param.bonustabD ^param.bonustabI ^param.bonustabS listnode %%CLASSNAME anldatum anlpers datum empfaction loesw nr ok pkgrp pkunde psite punkte route rtdelay rtdelete umsatz upddatum updpers anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61116,37324.082324 61075,48827.099385 0 Einstellungen für Gui-QT Zahlungsmittel - Kassa E/A pgutstyp,pkassaea Zahlungsmittel,Kassa E/A pgutstyp 40%,40% psite,pgutstyp,pkassaea ////////////////////////////////////////////////////////////// param.zahlungsm param.kassaea %Integer psite,loesw,jahr,pgutstyp %Library.CacheStorage ^param.eagszuordD eagszuordDefaultData ^param.eagszuordD ^param.eagszuordI ^param.eagszuordS listnode %%CLASSNAME anldatum anlpers ea empfaction jahr loesw nr ok pgutstyp psite route rtdelay rtdelete upddatum updpers pkassaea anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61116,42134.379559 61075,48827.104605 0 Einstellungen für Gui-QT Zuordnung Kassa E/A code,pkassaea Code,Kassa E/A code 20%,70% psite,code ///////////////////////////////////////////// %String param.kassaea psite,loesw,code %Library.CacheStorage ^param.eazuordD eazuordDefaultData ^param.eazuordD ^param.eazuordI ^param.eazuordS listnode %%CLASSNAME anldatum anlpers code empfaction loesw nr ok pkassaea psite route rtdelay rtdelete upddatum updpers anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,24493.753136 59921,85741.145979 %String %Date basis.artek %Library.CacheStorage ^param.ekgrpD ekgrpDefaultData ^param.ekgrpD ^param.ekgrpI ^param.ekgrpS listnode %%CLASSNAME anldatum anlpers datum empfaction kbez netto nr psite rab1 rab2 rab3 rab4 route rtdelay rtdelete upddatum updpers preis ok loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61130,52802.198059 59921,85741.152897 0 Einstellungen für Gui-QT Feiertage datum,bez datum 15%,40% datum datum,bez datum,bez code datum,bez psite,datum ////////////////////////////////////////////////////////////// psite,datum %Date %String %SQLQuery siteid:%String,von:%Date,bis:%Date = :von AND datum <= :bis) and loesw=0 and psite=:siteid]]> %Library.CacheStorage ^param.feiertagD feiertagDefaultData ^param.feiertagD ^param.feiertagI ^param.feiertagS listnode "feiertag" bez datum %%CLASSNAME anldatum anlpers site upddatum updpers nr empfaction psite route rtdelay rtdelete ok loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 %Persistent,system.base 61110,35416.50138 0 Filiale code code,name1 code,name1,name2 15%,40%,40% psite,code %String param.firma %String %String basis.adresse basis.kontakt %String %String psite,loesw,code %Library.CacheStorage ^param.filD filDefaultData ^param.filD ^param.filI ^param.filS listnode %%CLASSNAME adresse code iln kontakt name1 name2 pfirma uid anldatumzeit idkey kassa loesw panlmitarb psite pupdmitarb upddatumzeit persistent 1 system.base,%Persistent 61108,38738.31864 61075,48827.121763 0 Firma code code,name1 code,name1,name2 15%,40%,40% psite,code %String 1 %String 1 %String %String 1 %String basis.adresse basis.kontakt psite,loesw,code %Library.CacheStorage ^param.firmaD firmaDefaultData ^param.firmaD ^param.firmaI ^param.firmaS listnode %%CLASSNAME bez1 bez2 bez3 code anldatum anlpers empfaction loesw nr ok psite route rtdelay rtdelete upddatum updpers name1 name2 uid adresse kontakt iln anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa pfirma persistent 1 system.base,%Persistent 61109,41517.017506 59921,85741.160389 0 Einstellungen für Gui-QT Fremdwährung kbez,bez1,datum,umr,kassasw kbez 10%,30% kbez kbez,bez1 code,bez kbez kbez,bez1 psite,kbez ////////////////////////////////////////////////////////////// %String %String %Date Faktor auf Fremdwährung z.b: USD=1.3 d.h. 1 Euro*1.3=1.3 USD %Float %Boolean psite,loesw,kbez,datum kassasw:%String %String %Library.CacheStorage ^param.fremdwD fremdwDefaultData ^param.fremdwD ^param.fremdwI ^param.fremdwS listnode %%CLASSNAME anldatum anlpers datum empfaction kbez nr psite route rtdelay rtdelete umr upddatum updpers ok loesw pfiliale pmandant kassasw anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa bez1 persistent 1 system.base,%Persistent 61109,50797.221112 61075,48827.133186 0 Einstellungen für Gui-QT Frachtzone code,bez code 10%,30% code code,bez code,bez code code,bez psite,code ////////////////////////////////////////////////////////////// %String %String %Library.CacheStorage ^param.fzoneD fzoneDefaultData ^param.fzoneD ^param.fzoneI ^param.fzoneS listnode %%CLASSNAME anldatum anlpers bez code empfaction nr ok psite route rtdelay rtdelete upddatum updpers loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61134,43738.158861 59921,85741.174794 0 Einstellungen für Gui-QT Kartentyp code,bez,kreditsw,debitsw,kundkartsw,numlen code 10%,30%,10%,10%,10%,10% code code,bez code,bez code code,bez psite,code ////////////////////////////////////////////////////////////// %String %String %Boolean %Boolean %Boolean %Integer psite,loesw,code psite,loesw,bez psite,loesw,debitsw psite,loesw,kreditsw psite,loesw,kundkartsw 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid SELECT %ID,bez,kundkartsw,kreditsw,debitsw FROM karttyp WHERE loesw=0 and psite=:siteid order by code DESC %Library.CacheStorage ^param.karttypD karttypDefaultData ^param.karttypD ^param.karttypI ^param.karttypS listnode %%CLASSNAME anldatum anlpers bez code debitsw empfaction kreditsw kundkartsw loesw nr numlen ok psite route rtdelay rtdelete upddatum updpers pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61130,12207.074015 59921,85741.182855 0 Kassa E/A Parameter code,bez,einaus,pkonto,pkost,sollhab,posneg,einzsum,sachpersk,anzahl,aktiv,bonussw,pmwcode Code,Bezeichnung,Eingang,Konto,Kostenstelle,Soll,Positiv,Einzeln,Sachkonto,Anzahl,Aktiv,Bonus,Steuer code code,bez,einaus,pkonto,pkost,sollhab,posneg,einzsum,sachpersk,anzahl,aktiv,bonussw,pmwcode code,bez code,bez psite,code /////////////////////////////////////////////////////// %String %String true=Eingang false=Ausgang %Boolean stamm.konto stamm.kost soll=true, haben=false %Boolean pos=true,neg=false %Boolean einzeln=true, sumarisch=false %Boolean Gegenkonto true=kassakonto,false=personenkonto %Boolean %Integer %Boolean %Boolean param.mwcode psite,loesw,code %SQLQuery siteid SELECT %ID,code,bez,einaus FROM kassaea where loesw=0 and aktiv=1 and psite=:siteid ORDER by code DESC %Library.CacheStorage ^param.kassaeaD kassaeaDefaultData ^param.kassaeaD ^param.kassaeaI ^param.kassaeaS listnode %%CLASSNAME aktiv anldatum anlpers anzahl bez bonussw code einaus einzsum empfaction kaspers loesw nr ok pkonto pkost posneg psite route rtdelay rtdelete sollhab upddatum updpers pmwcode sachpersk anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61140,37380.745352 61075,48827.156093 0 Kassalade code,bez1,bez2,bez3 code 10%,25%,25%,25% code code,bez1 code,bez1 code bez1 psite,code /////////////////////////////////////////////////////// %String %String %String %String psite,loesw,code 1 lr:%String,lid:%String %List 1 code:%String %List 1 userid:%String %List %SQLQuery siteid SELECT %ID,code,bez1 FROM kassalade WHERE loesw=0 and psite=:siteid order by code DESC %Library.CacheStorage ^param.kassaladeD kassaladeDefaultData ^param.kassaladeD ^param.kassaladeI ^param.kassaladeS listnode %%CLASSNAME anldatum anlpers bez1 bez2 bez3 code empfaction loesw nr ok psite route rtdelay rtdelete upddatum updpers anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61112,37595.352883 61075,48827.162246 0 Kundengruppe code,bez,aktiv code 10%,30%,10% code code,bez code,bez 10%,50% code code,bez psite,code /////////////////////////////////////////////////////// %String %String %Boolean psite,loesw,code 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid SELECT %ID,code,bez FROM kgrp WHERE (loesw=0) and psite=:siteid order by code DESC %Library.CacheStorage ^param.kgrpD kgrpDefaultData ^param.kgrpD ^param.kgrpI ^param.kgrpS listnode %%CLASSNAME anldatum anlpers bez code empfaction nr ok psite route rtdelay rtdelete upddatum updpers aktiv loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61112,2009.806859 59921,85741.191897 0 Lager code code,name1 code,name1,name2 15%,40%,40% psite,code %String %String %String %String basis.adresse basis.kontakt psite,loesw,code %Library.CacheStorage ^param.lagerD lagerDefaultData ^param.lagerD ^param.lagerI ^param.lagerS listnode "lager" adresse bez kontakt name1 name2 name3 kbez %%CLASSNAME anldatum anlpers site upddatum updpers nr psite pquellsite empfaction route rtdelay rtdelete ok code loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61127,25803.187735 61075,48827.174441 0 Einstellungen für Gui-QT Land code,bez code 10%,30% code code,bez code,bez code code,bez psite,code ////////////////////////////////////////////////////////////// %String 1 %String 1 psite,loesw,code 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid:%String SELECT %ID,code,bez FROM land WHERE (loesw=0) and psite=:siteid order by code %Library.CacheStorage ^param.landD landDefaultData ^param.landD ^param.landI ^param.landS listnode %%CLASSNAME anldatum anlpers bez empfaction kbez nr psite route rtdelay rtdelete upddatum updpers ok code loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61109,39241.825525 59921,85741.199989 0 Mengeneinheit code,bez code 10%,40% code code,bez code,bez code code,bez psite,code ////////////////////////////////////////////////////////////// %String %String psite,loesw,code 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid SELECT %ID,code,bez FROM meeinh WHERE (loesw=0) and psite=:siteid order by code DESC %Library.CacheStorage ^param.meeinhD meeinhDefaultData ^param.meeinhD ^param.meeinhI ^param.meeinhS listnode %%CLASSNAME anldatum anlpers bez code empfaction nr ok psite route rtdelay rtdelete upddatum updpers loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,64043.248329 61075,48827.191843 0 %Stream binarystream %Float 1 %SQLQuery siteid:%String SELECT %ID,wert FROM muenz WHERE loesw=0 and psite=:siteid %Library.CacheStorage ^param.muenzD muenzDefaultData ^param.muenzD ^param.muenzI ^param.muenzS listnode %%CLASSNAME anldatum anlpers empfaction loesw nr ok pic psite route rtdelay rtdelete upddatum updpers wert anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,27263.922492 59921,85741.208009 0 %String %Float stamm.konto stamm.konto stamm.konto stamm.konto psite,loesw,code psite,loesw,mwproz 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid SELECT %ID,code,mwproz FROM mwcode WHERE (loesw=0) and psite=:siteid ORDER BY code DESC %Library.CacheStorage ^param.mwcodeD mwcodeDefaultData ^param.mwcodeD ^param.mwcodeI ^param.mwcodeS listnode %%CLASSNAME anldatum anlpers code empfaction mwproz nr ok pmwkonto psite pskkonto pvokonto route rtdelay rtdelete upddatum updpers loesw pskakonto pskekonto pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa 1 %Persistent,system.base 61076,50056 59921,85741.213264 0 1 gruppe,element 1 %String %String %String %List persistent 1 %Persistent,system.base 61134,39066.990288 0 Einstellungen für Gui-QT Zusätzliche Plz plz,plzzus Plz,Zusätzliche Plz,Plz,.. plz 20%,70% psite,plz ////////////////////////////////////////////////////////////// %String %String %List psite,loesw,land,plz 1 siteid:%String,land:%String,plz:%String %String %Library.CacheStorage ^param.plzzusD plzzusDefaultData ^param.plzzusD ^param.plzzusI ^param.plzzusS listnode %%CLASSNAME anldatumzeit idkey kassa land loesw panlmitarb plz plzzus psite pupdmitarb upddatumzeit persistent 1 %Persistent,system.base 61130,8822.140164 61075,48827.221939 0 %Integer %String %String %String %String %String %String %String 1 id 1 psite,loesw,plz psite,loesw,ort psite,loesw,land psite,loesw,gemeinde psite,loesw,postamt 1 file:%String="" %SQLQuery siteid:%String SELECT distinct land FROM post WHERE psite=:siteid and loesw=0 ORDER by land %SQLQuery siteid:%String,suland:%String,sutxt:%String SELECT distinct %Id,land,plz,postamt,ort FROM post WHERE psite=:siteid and loesw=0 and (land=:suland or :suland is null) and upper(ort) like :sutxt ORDER by ort %Library.CacheStorage ^param.postD postDefaultData ^param.postD ^param.postI ^param.postS listnode %%CLASSNAME anldatumzeit bezger bezhm gemeinde idkey kassa land loesw ort panlmitarb plz postamt psite pupdmitarb upddatumzeit persistent 1 system.base,%Persistent 61109,39971.928242 59921,85741.228735 0 Preisliste(Preiskennzeichen) code,typ,bez,vondat,bisdat,bisdatjn code 10%,10%,30%,15%,15%,10% code code,bez code,bez code code,bez psite,typ,code ////////////////////////////////////////////////////////////// typ Kunde/Lieferant %String %String %String %Date %Date %Boolean psite,loesw,typ,code 1 lr:%String,lid:%String,typ:%String %List 1 code:%String,typ:%String %List %SQLQuery siteid SELECT %ID,code,bez,vondat,bisdat,bisdatjn FROM prliste WHERE (loesw=0) and (typ="K") and psite=:siteid order by code DESC %SQLQuery siteid SELECT %ID,code,bez,vondat,bisdat,bisdatjn FROM prliste WHERE (loesw=0) and (typ="L") and psite=:siteid order by code DESC %Library.CacheStorage ^param.prlisteD prlisteDefaultData ^param.prlisteD ^param.prlisteI ^param.prlisteS listnode %%CLASSNAME anldatum anlpers bez bisdat bisdatjn code empfaction nr ok psite route rtdelay rtdelete typ upddatum updpers vondat loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 %Persistent 61092,27537.946285 59921,85741.236632 0 %String Parameter wie Kassanr,Belegart oder Typ; %String %String param.wj %String class,param1,param2,pwj 1 class:%String,idwj:%String,param1:%String,param2:%String="" %String 1 class:%String,idwj:%String,param1:%String,param2:%String="" %String 1 belart:%String %Boolean %Library.CacheStorage ^param.serialD serialDefaultData ^param.serialD ^param.serialI ^param.serialS listnode %%CLASSNAME anldatum anlpers class empfaction nextnr nr param psite pwj route rtdelay rtdelete upddatum updpers param1 param2 persistent 1 system.base,%Persistent 61110,34586.764808 61075,48827.242156 0 Standort code code,name1 code,name1,name2 15%,40%,40% psite,code %String param.firma %String %String basis.adresse basis.kontakt %String %String psite,loesw,code %Library.CacheStorage ^param.standortD standortDefaultData ^param.standortD ^param.standortI ^param.standortS listnode %%CLASSNAME bez1 bez2 bez3 code anldatum anlpers empfaction loesw nr ok psite route rtdelay rtdelete upddatum updpers land name ort plz strasse telefon pfirma name1 telefax adresse kontakt name2 iln uid anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,27584.814432 59921,85741.243833 0 %String %String %Stream binarystream psite,loesw,kbez %Library.CacheStorage ^param.textD textDefaultData ^param.textD ^param.textI ^param.textS listnode %%CLASSNAME anldatum anlpers bez empfaction kbez nr psite route rtdelay rtdelete text upddatum updpers ok loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61127,19093.746823 59921,85741.250529 0 Einstellungen für Gui-QT Titel bez Titel bez 85% bez ////////////////////////////////////////////////////////////// %String psite,loesw,bez %SQLQuery siteid SELECT %ID,bez FROM titel WHERE (loesw=0) and psite=:siteid ORDER BY bez %Library.CacheStorage ^param.titelD titelDefaultData ^param.titelD ^param.titelI ^param.titelS listnode "titel" titel %%CLASSNAME anldatum anlpers site upddatum updpers nr psite pquellsite empfaction route rtdelay rtdelete ok bez loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa 1 system.base,%Persistent 61109,41386.23912 59921,85741.255541 0 Einstellungen für Gui-QT Verband code,bez1,bez2,bez3 code 10%,30%,30%,20% code code,bez1 code,bez code code,bez1 psite,code ////////////////////////////////////////////////////////////// %String %String %String %String persistent 1 system.base,%Persistent 61092,27657.713778 59921,85741.262345 0 %String %String %String %String param.wargr psite,loesw,code 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid code FROM wargr WHERE (loesw=0) and (psite=:siteid) order by $$deep^KWWSWARGR(%ID)]]> %Library.CacheStorage ^param.wargrD wargrDefaultData ^param.wargrD ^param.wargrI ^param.wargrS listnode %%CLASSNAME anldatum anlpers bez1 bez2 bez3 code empfaction nr ok pparent psite route rtdelay rtdelete upddatum updpers loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61136,31147.090373 59921,85741.269631 0 Einstellungen für Gui-QT Wirtschaftsjahr jahr,vondat,bisdat QLineEdit,KDateEdit,KDateEdit jahr 10%,20%,20% jahr jahr,jahr jahr jahr jahr psite,jahr ////////////////////////////////////////////////////////////// %String %Date %Date %Library.CacheStorage ^param.wjD wjDefaultData ^param.wjD ^param.wjI ^param.wjS listnode %%CLASSNAME anldatum anlpers bisdat nr site upddatum updpers vondat jahr psite pquellsite empfaction route rtdelay rtdelete ok loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61109,40739.27427 59921,85741.276383 0 Einstellungen für Gui-QT Zahlungsmittel code,bez,rabsw,bonussw,kennung code 10%,30%,10%,10%,20% code code,bez code,bez code code,bez psite,code ////////////////////////////////////////////////////////////// %String %String %Boolean %Boolean %String psite,loesw,code psite,loesw,kennung 1 code %Boolean %Library.CacheStorage ^param.zahlungsmD zahlungsmDefaultData ^param.zahlungsmD ^param.zahlungsmI ^param.zahlungsmS listnode %%CLASSNAME anldatum anlpers bez1 empfaction kbez nr psite route rtdelay rtdelete upddatum updpers ok loesw pfiliale pmandant bonussw code kennung rabsw bez anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61109,41040.198338 59921,85741.28429 0 Einstellungen für Gui-QT Zahlungskondition code,bez,proz1,tage1,proz2,tage2,tage3 code 10%,20%,10%,10%,10%,10%,10% code code,bez code,bez code code,bez psite,code ////////////////////////////////////////////////////////////// %String %String %Float %Integer %Float %Integer %Integer psite,loesw,code %Library.CacheStorage ^param.zkD zkDefaultData ^param.zkD ^param.zkI ^param.zkS listnode "zk" bez proz1 proz2 tage1 tage2 tage3 %%CLASSNAME anldatum anlpers site upddatum updpers nr psite pquellsite empfaction route rtdelay rtdelete ok loesw code pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,30014.871279 61075,48827.313657 0 %String %String %Date %Date psite,loesw,abdat,code psite,loesw,code 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid 59900 and psite=:siteid order by abdat]]> %Library.CacheStorage ^stamm.aktionD aktionDefaultData ^stamm.aktionD ^stamm.aktionI ^stamm.aktionS listnode %%CLASSNAME abdat anldatum anlpers bez bisdat code empfaction nr ok psite route rtdelay rtdelete upddatum updpers loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.baser,%Persistent 61076,12143.912657 61075,48827.319749 1 kbez 1 stamm.artlief parent brutto 1 %String %String %Float param.meeinh param.meeinh %Float %Library.CacheStorage {%%PARENT}("brutto") artbruttoDefaultData ^stamm.artliefD("brutto") ^stamm.artbruttoI ^stamm.artbruttoS listnode %%CLASSNAME anldatum anlpers brutto empfaction pbeeinh preinh prme psite route rtdelay rtdelete upddatum updpers bez site loesw anldatumzeit upddatumzeit persistent 1 system.base,basis.artmasse,basis.artbez,basis.averband,basis.artber,%Persistent 61118,57323.750724 61075,48827.332526 0 Artikel kbez anr,bez1 anr,bez1 Zugriffsfelder %String 1 %List 1 %String 1 %String 1 %List 1 //////////////////////////////////////////////////////////////////////// %String %Boolean stamm.artvk children artikel 1 param.abt stamm.artlager stamm.artlager children artikel 1 param.wargr param.bewcode param.meeinh basis.artkontierung basis.artkontierung basis.artkontierung key=id von param.meeinh basis.arteinh array %Float stamm.ean children artikel 1 param.arttyp %Stream binarystream basis.artfolge list %List 1 stamm.artlief stamm.artlief children artikel 1 psite,loesw,anr psite,loesw,pabt psite,loesw,pwargr psite,loesw,kbez psite,loesw,vean psite,loesw,vanr 1 userid:%String,sutxt:%String,abtnrid:%String="",wargrid:%String="",aktiv:%Boolean=1 %String InitialValue:%CacheString %Status Insert:%Boolean %Status 1 OID:%ObjectIdentity %Status %List %String einh:%String %Status Arg:%List %Status %String %List ean:%List %Status %String %List datum:%Date,pprliste:%String %Integer %String %String 1 anrid:%String,datum:%Date,menge:%Float,schiene:%Integer,incl:%Boolean,manrab:%Float=0,ean:%String="" %List objpr.bisdatum d objpr.%Close() q .. ;gültiger Preis gefunden .. s sw=1 .. s me="" f s pr=objpr.preis.GetNext(.me) q:pr="" s st(me)=pr .. s st=$O(st(menge+1),-1) i st="" q .. s preis=st(st) .. i $LI(preis,schiene) %Library.CacheStorage ^stamm.artikelD artikelDefaultData ^stamm.artikelD ^stamm.artikelI ^stamm.artikelS listnode %%CLASSNAME aktiv anldatum anlpers anr bewpreis bez1 bez2 bez3 breite ekkonto empfaction folge gew hoehe info kbez kbez1 loesw masseeinh nkkonto notiz nr ok pabt parttyp pbewcode pdefeinh pdeflager pdeflief picture pmwcode psite pwargr rabvkjn route rtdelay rtdelete skontosw text tiefe upddatum updpers vanr vean vkkonto vlistkz anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa einh subnode "einh" persistent 1 %Persistent,system.baser 61076,12144.277719 59921,85741.331742 stamm.artlief parent kond 1 %Date %Date stamm.aktion param.prliste stamm.artbrutto param.ekgrp key=menge ab basis.artek array key=wert ab basis.artek array stamm.artzuab %Float 1 pprliste,datum 1 %Library.CacheStorage {%%PARENT}("kond") artkondDefaultData ^stamm.artliefC("kond") ^stamm.artkondI ^stamm.artkondS listnode %%CLASSNAME anldatum anlpers bisdatum empfaction paktion pbrutto pekgrp psite pzuabbasis route rtdelay rtdelete upddatum updpers zuabfakt site loesw anldatumzeit upddatumzeit mstaffel subnode "mstaffel" wstaffel subnode "wstaffel" persistent 1 system.baser,%Persistent 61076,12138.874989 59921,85741.340353 stamm.artikel parent lager 1 param.lager %Float key=Zugangsdatum %Float array key=Ablaufdatum %Float array key=Einstand %Float array 1 plager 1 1 %Status 1 GetLagerExecute %Status %Query objid:%String 1 GetLagerExecute %Status %Library.CacheStorage {%%PARENT}("lager") artlagerDefaultData ^stamm.artikelC("lager") ^stamm.artlagerI ^stamm.artlagerS listnode %%CLASSNAME anldatum anlpers empfaction menge psite route rtdelay rtdelete upddatum updpers plager site loesw anldatumzeit upddatumzeit mengeabl subnode "mengeabl" mengeest subnode "mengeest" mengezug subnode "mengezug" persistent 1 system.baser,%Persistent 61076,12139.102574 59921,85741.3531 0 stamm.artikel parent lief 1 stamm.lief %Boolean %String %String %Float stamm.artbrutto stamm.artbrutto children artlief 1 stamm.artkond children artlief 1 param.fremdw key=Bezeichnungs Nebenkosten %Float array 1 plief 1 %Library.CacheStorage {%%PARENT}("lief") artliefDefaultData ^stamm.artikelD("lief") ^stamm.artliefI ^stamm.artliefS listnode %%CLASSNAME aktiv anldatum anlpers beean bestnr empfaction mibeme pdefbrutto pfremdw plief psite route rtdelay rtdelete upddatum updpers site loesw anldatumzeit upddatumzeit brutto subnode "brutto" nebkost subnode "nebkost" pbrutto subnode "pbrutto" persistent 1 %Persistent 61076,50056 61075,48827.360803 0 %String %String stamm.artikel 1 sutext 1 partikel %Library.CacheStorage ^stamm.artmatchD artmatchDefaultData ^stamm.artmatchD ^stamm.artmatchI ^stamm.artmatchS listnode %%CLASSNAME partikel site persistent 1 system.baser,%Persistent 61092,27995.700776 59921,85741.359795 0 %String 1 %Boolean param.prliste stamm.aktion %Date stamm.artikel parent artvk 1 %Date param.meeinh %Float %Float key=menge ab %List array 1 pprliste,abdatum 1 psite,loesw,paktion,pprliste,abdatum %String preise:%List %Status %Library.CacheStorage {%%PARENT}("artvk") artvkDefaultData ^stamm.artikelD("artvk") ^stamm.artvkI ^stamm.artvkS listnode %%CLASSNAME anldatum anlpers bisdatum empfaction kfsoll paktion peinh prme psite route rtdelay rtdelete upddatum updpers delsw loesw anldatumzeit upddatumzeit preis subnode "preis" 1 system.base,%Persistent 61092,28013.945054 59921,85741.364837 0 %String %String %Date %Float psite,loesw,kbez,datum persistent 1 system.baser,%Persistent 61092,28029.121205 59921,85741.37259 0 %String %Boolean %Boolean %Float stamm.artikel parent ean 1 psite,loesw,ean,aktiv,artikel 1 psite,ean 1 %Library.CacheStorage {%%PARENT}("ean") eanDefaultData ^stamm.artikelD("ean") ^stamm.eanI ^stamm.eanS listnode %%CLASSNAME aktiv anldatum anlpers empfaction faktor psite route rtdelay rtdelete upddatum updpers defean loesw anldatumzeit upddatumzeit persistent 1 system.base,%Persistent 61092,28106.429306 61075,48827.385335 0 param.zahlungsm %String %Float %Date %Date stamm.kunde stamm.kunde %Boolean $LB(belart,belnr) %List $LB(belart,belnr) %List psite,loesw,gsnr 1 gsnr:%String,kassa:%String %String 1 gsnr:%String %Boolean 1 gsnr:%String,adatum:%Date,betrag:%Float,aknrid:%String,abeleg:%List,bonussw:%Boolean=1,komm:%Boolean=1 %Integer %Library.CacheStorage ^stamm.gsbonD gsbonDefaultData ^stamm.gsbonD ^stamm.gsbonI ^stamm.gsbonS listnode %%CLASSNAME abeleg adatum anldatum anlpers betrag bonussw ebeleg edatum empfaction gsnr loesw nr ok paknr peknr pgutstyp psite route rtdelay rtdelete upddatum updpers anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61098,59296.138327 59921,85741.380871 0 Gutschein adatum gsnr,adatum gsnr,adatum,betrag,paknr.person.name.name2 Nummer,A-Datum,Betrag,Kunde param.zahlungsm %String %Float %Date %Date stamm.kunde stamm.kunde %Boolean $LB(belart,belnr) %List $LB(belart,belnr) %List psite,loesw,gsnr 1 gsnr:%String,kassa:%String %String 1 gsnr:%String %Boolean 1 gsnr:%String,adatum:%Date,betrag:%Float,aknrid:%String,abeleg:%List,bonussw:%Boolean=1,komm:%Boolean=1,gstyp:%String="" %Integer 1 gsnr:%String,system:%String %Float %Library.CacheStorage ^stamm.gutscheinD gutscheinDefaultData ^stamm.gutscheinD ^stamm.gutscheinI ^stamm.gutscheinS listnode %%CLASSNAME adatum anldatum anlpers betrag edatum empfaction gsnr nr pabeleg pebeleg pgstyp psite route rtdelay rtdelete upddatum updpers pqbeleg pgutstyp abeleg ebeleg qbeleg info ok loesw pfiliale pmandant paknr peknr bonussw kennung anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,28267.391023 61075,48827.401967 0 %String stamm.artikel %String %String psite,loesw,katalog,sort %SQLQuery siteid SELECT distinct katalog FROM katalog WHERE psite=:siteid and loesw=0 ORDER BY katalog %SQLQuery siteid:%String,katalog:%String anr,bez,sort FROM katalog WHERE katalog=:katalog and loesw=0 and psite=:siteid ORDER BY sort,bez]]> %Library.CacheStorage ^stamm.katalogD katalogDefaultData ^stamm.katalogD ^stamm.katalogI ^stamm.katalogS listnode %%CLASSNAME anldatum anlpers anr bez empfaction katalog loesw nr ok psite route rtdelay rtdelete upddatum updpers sort anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,28280.564177 59921,85741.425775 0 %String %String %String %String stamm.konto key=Prozentsatz stamm.kost array psite,loesw,code %Library.CacheStorage ^stamm.kontoD kontoDefaultData ^stamm.kontoD ^stamm.kontoI ^stamm.kontoS listnode %%CLASSNAME anldatum anlpers bez1 empfaction konto nr psite route rtdelay rtdelete upddatum updpers pskkonto ok loesw code kbez bez2 pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa pkost subnode "pkost" persistent 1 system.base,%Persistent 61096,62145.028493 59922,78548.889052 0 Kostenstellen kbez code,bez1 code,bez1,bez2 %String %String %String %String psite,loesw,code %Library.CacheStorage ^stamm.kostD kostDefaultData ^stamm.kostD ^stamm.kostI ^stamm.kostS listnode %%CLASSNAME anldatum anlpers bez empfaction kost nr psite route rtdelay rtdelete upddatum updpers bez1 ok loesw code bez2 kbez pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.baser,%Persistent 61076,12144.587386 61075,48827.422171 0 %String %Boolean basis.person stamm.notiz %String %String param.fzone stamm.kunde parent adr 1 stamm.kuadrperson children kuadr 1 1 code 1 %String 1 o:%Persistent idsu:%String %Integer %String 1 %String Arg:%String %Status %Library.CacheStorage {%%PARENT}("adr") kuadrDefaultData ^stamm.kundeC("adr") ^stamm.kuadrI ^stamm.kuadrS listnode %%CLASSNAME adr anldatum anlpers empfaction kontakt name1 name2 notiz pperson psite route rtdelay rtdelete upddatum updpers person site info1 info2 pfzone kbez kontakt1 kontakt2 aktiv loesw code anldatumzeit upddatumzeit persistent 1 system.baser,%Persistent 61076,12144.827279 61075,48827.428762 0 %String %String %String %String %String %String stamm.kuadr parent kperson 1 basis.person stamm.notiz system.mitarb %Library.CacheStorage {%%PARENT}("kperson") kuadrpersonDefaultData ^stamm.kuadrC("kperson") ^stamm.kuadrpersonI ^stamm.kuadrpersonS listnode %%CLASSNAME abteilung1 abteilung2 anlpers email empfaction faxdw funktion person pmitarb pnotiz pperson psite route rtdelay rtdelete teldw upddatum updpers site anldatum loesw anldatumzeit upddatumzeit persistent 1 system.baser,%Persistent 61134,39956.870895 61075,48827.434853 0 Kundenkarte kunde.knr kartnr,kunde.person.name.name1 kartnr,kunde.knr,kunde.person.name.name1 Kartennummer,Kund.-Nr.,Kunde %String param.karttyp %Date %Date %Boolean basis.person stamm.notiz %String stamm.kunde parent karte 1 psite,loesw,kartnr,aktiv,datum psite,loesw,pkarttyp %Library.CacheStorage {%%PARENT}("karte") kukarteDefaultData ^stamm.kundeC("karte") ^stamm.kukarteI ^stamm.kukarteS listnode %%CLASSNAME abldatum aktiv anldatum anlpers datum empfaction kartnr person pkarttyp pnotiz psite route rtdelay rtdelete upddatum updpers pruefz altgrp loesw anldatumzeit upddatumzeit persistent 1 system.base,basis.kbonus,%XML.Adaptor,%Persistent 61134,41827.465209 61075,48827.445602 0 Definition für Db-Tools Kunde person.name.kbez knr,person.name.name2 knr,person.name.name2,person.adresse.plz Kund.-Nr,Name,Plz stamm.kuadr children kunde 1 stamm.kuperson children kunde 1 stamm.kukarte children kunde 1 basis.person stamm.notiz param.kgrp %String %Boolean %String %Boolean param.fzone %Float param.zk psite,loesw,knr psite,loesw,kbez psite,loesw,kbonusjn psite,loesw,pkgrp 1 userid:%String,sutxt:%String,kgrpid:%String="",aktiv:%Integer=1,karte:%Integer=0,plz:%String="",plzzusatz:%String="" %String Insert:%Boolean %Status InitialValue:%CacheString %Status %String %String 1 siteid:%String,kartid:%String,kundid:%String %String ladr:%String %List ladr:%String %List %String lire:%String,idold:%String %List kartnr:%String %List %String kartnr:%String %List lire:%String,idold:%String %List %List kartnr:%String %String %String idsu:%String %Integer %String 1 %String %Library.CacheStorage ^stamm.kundeD kundeDefaultData ^stamm.kundeD ^stamm.kundeI ^stamm.kundeS listnode %%CLASSNAME aktiv anldatum anlpers empfaction kbabrdatum kbabrpkt kbaktpkt kbdatum kbez kbonusjn knr nr ok person pfzone pkgrp pnotiz psite route rtdelay rtdelete upddatum updpers aktiv1 delsw loesw sammel barsk pzk barskpr pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 %Persistent 61094,43301.844002 61075,48827.45134 0 %String %String stamm.kunde 1 sutext 1 pkunde %Library.CacheStorage ^stamm.kundmatchD kundmatchDefaultData ^stamm.kundmatchD ^stamm.kundmatchI ^stamm.kundmatchS listnode %%CLASSNAME pkunde site anldatumzeit loesw psite upddatumzeit persistent 1 system.baser,%Persistent 61076,12141.727163 61075,48827.457459 0 stamm.kunde parent kperson 1 %String %String %String basis.person stamm.notiz system.mitarb %Library.CacheStorage {%%PARENT}("kperson") kupersonDefaultData ^stamm.kundeC("kperson") ^stamm.kupersonI ^stamm.kupersonS listnode %%CLASSNAME abteilung1 abteilung2 anlpers email empfaction faxdw funktion person pmitarb pnotiz pperson psite route rtdelay rtdelete teldw upddatum updpers site anldatum loesw anldatumzeit upddatumzeit persistent 1 system.baser,%Persistent 61076,12141.997504 61075,48827.464331 0 stamm.lief parent liadr 1 %String %String %String basis.adresse basis.kontakt stamm.liadrperson children liadr 1 basis.person stamm.notiz 1 kbez 1 %String idsu:%String %Integer %String 1 %String Arg:%String %Status %Library.CacheStorage {%%PARENT}("liadr") liadrDefaultData ^stamm.liefC("liadr") ^stamm.liadrI ^stamm.liadrS listnode %%CLASSNAME adr kontakt name1 name2 pperson notiz anldatum anlpers empfaction psite route rtdelay rtdelete upddatum updpers person site loesw anldatumzeit upddatumzeit persistent 1 system.baser,%Persistent 61076,12142.175248 61075,48827.470719 0 %String %String %String stamm.liadr parent kperson 1 basis.person stamm.notiz system.mitarb 1 anldatumzeit 1 %Library.CacheStorage {%%PARENT}("kperson") liadrpersonDefaultData ^stamm.liadrC("kperson") ^stamm.liadrpersonI ^stamm.liadrpersonS listnode %%CLASSNAME abteilung1 abteilung2 anlpers email empfaction faxdw funktion person pmitarb pnotiz pperson psite route rtdelay rtdelete teldw upddatum updpers site loesw upddatumzeit persistent 1 %XML.Adaptor,%Persistent 61092,28519.235994 61075,48827.476273 0 stamm.liperson children lief 1 stamm.liadr children lief 1 basis.person stamm.notiz %Library.CacheStorage ^stamm.liefD liefDefaultData ^stamm.liefD ^stamm.liefI ^stamm.liefS listnode %%CLASSNAME pnotiz pperson person persistent 1 system.baser,%Persistent 61076,12142.509831 61075,48827.482897 0 stamm.lief parent kperson 1 %String %String %String %String %String %String basis.person stamm.notiz system.mitarb 1 anldatumzeit 1 %Library.CacheStorage ^stamm.lipersonD lipersonDefaultData ^stamm.lipersonD ^stamm.lipersonI ^stamm.lipersonS listnode %%CLASSNAME abteilung1 abteilung2 anldatum anlpers email empfaction faxdw funktion person pnotiz pperson psite route rtdelay rtdelete teldw upddatum updpers kbez pmitarb site loesw upddatumzeit persistent 1 system.base,%Persistent 61131,54527.014581 61075,48827.498145 0 Nachlauftexte code code code 60% psite,code ///////////////////////////////////////////////////////////// %String %Date %Date %Integer %String %String %String %String %String psite,loesw,code 1 lr:%String,lid:%String %List 1 code:%String %List %SQLQuery siteid SELECT %ID,code,code FROM stamm.nachltxt WHERE (loesw=0) and psite=:siteid order by code DESC 1 code:%String,datumab:%Date,datumbis:%Date,vonpkt:%String,bispkt:%String,vonabrpkt:%String,bisabrpkt:%String,anzahl:%String,text:%String %String %Library.CacheStorage ^stamm.nachltxtD nachltxtDefaultData ^stamm.nachltxtD ^stamm.nachltxtI ^stamm.nachltxtS listnode %%CLASSNAME anzahl bispkt bonusabr code datumab datumbis vonpkt text anldatum anlpers empfaction loesw nr ok psite route rtdelay rtdelete upddatum updpers bisabrpkt vonabrpkt anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,24516.160011 59921,85741.458031 0 stamm.notize children notiz 1 %Library.CacheStorage ^stamm.notizD notizDefaultData ^stamm.notizD ^stamm.notizI ^stamm.notizS listnode %%CLASSNAME anldatum anlpers nr parentclass parentid site text titel upddatum updpers psite pquellsite empfaction route rtdelay rtdelete ok loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.baser,%Persistent 61092,62120.321781 59923,39577.161139 0 %Stream binarystream stamm.notiz parent notiz 1 %String 1 anldatumzeit 1 %SQLQuery siteid:%String,notiz:%String SELECT %ID,text,anldatumzeit,upddatumzeit FROM notize where notiz=:notiz and psite=:siteid order by anldatumzeit desc %Library.CacheStorage {%%PARENT}("notiz") notizeDefaultData ^stamm.notizD("notiz") ^stamm.notizeI ^stamm.notizeS listnode %%CLASSNAME datum inhalt text zeit anldatum anlpers upddatum updpers empfaction route rtdelay rtdelete psite site loesw upddatumzeit 1 %RegisteredObject 61127,13994.587434 0 1 knr,anr:%String,datum:%Date,menge:%Float,schiene:%Integer,incl:%Boolean,mapr:%String,ean:%String %List %Library.CacheStorage ^stamm.sonderpreisD sonderpreisDefaultData ^stamm.sonderpreisD ^stamm.sonderpreisI ^stamm.sonderpreisS listnode %%CLASSNAME persistent 1 system.base,%Persistent 61120,77832.111608 61075,48827.540298 0 %String %String %String %String %Integer %String psite,loesw,aktion 1 aktion:%String %String 1 siteid:%String %Status %SQLQuery siteid:%String SELECT %ID,bez,aktion,icon,keytab,toolbar,toolbarbez FROM actions WHERE loesw=0 and psite=:siteid order by aktion DESC %SQLQuery siteid:%String SELECT %ID,bez,aktion,icon,keytab,toolbar,toolbarbez FROM actions WHERE loesw=0 and psite=:siteid order by bez DESC %SQLQuery siteid 0 and loesw=0 and psite=:siteid order by toolbar DESC]]> %Library.CacheStorage ^system.actionsD actionsDefaultData ^system.actionsD ^system.actionsI ^system.actionsS listnode %%CLASSNAME aktion anldatum anlpers bez empfaction icon loesw nr ok psite route rtdelay rtdelete upddatum updpers keytab toolbar toolbarbez anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa 1 1 61111,33613.170019 60705,84521.410494 0 system.sites %String system.mitarb %String system.mitarb %String %Boolean 0 %String 1 idkey 1 SaveDepth:%Integer,Insert:%Integer,CallCount:%Integer %Status 1 1 %XML.Adaptor 61092,24812.430226 59923,39576.352674 0 %Boolean 0 %String %String system.sites SaveDepth:%Integer,Insert:%Integer,CallCount:%Integer %Status persistent 1 system.base,%Persistent 61092,63389.960065 61075,48827.547494 0 %String %String %String %String %String %Float %String %Boolean %Integer %Stream binarystream %Boolean psite,loesw,mname 1 siteid:%String,mname:%String %Integer %SQLQuery siteid:%String,mname:%String SELECT %ID,bname,aktion,pos,color,fontsize,zusatz,bildanz,menuwind,bildsw FROM buttons WHERE (mname = :mname) and loesw=0 and psite=:siteid %SQLQuery siteid:%String SELECT distinct mname FROM buttons WHERE loesw=0 and psite=:siteid ORDER by mname %Library.CacheStorage ^system.buttonsD buttonsDefaultData ^system.buttonsD ^system.buttonsI ^system.buttonsS listnode %%CLASSNAME anldatum anlpers bname color empfaction loesw mname nr ok pos psite route rtdelay rtdelete upddatum updpers aktion fontsize zusatz bildanz image menuwind bildsw anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent %Persistent 61108,52079.79326 0 1 klasse:%String,titelKlasse:%String="",sortColumns:%String="",codeColumns:%String="" %Library.CacheStorage ^system.dbcomboD dbcomboDefaultData ^system.dbcomboD ^system.dbcomboI ^system.dbcomboS listnode %%CLASSNAME persistent %Persistent 61131,56808.158574 0 1 klasse:%String,titelKlasse:%String="",setold:%Integer=0,sortColumns:%String="",codeColumns:%String="",columns:%String="",columnsTitel:%String="",colWidth:%String,columnsType:%String,initMethod:%String="",dbIdentity:%String="" %String ",".."),",",1) x x . i $L($P(codeColumns,",",2)) s x="s code=code_"" ""_obj1."_$P($TR(codeColumns,"_->",".."),",",2) x x . d obj1.%Close() k obj1 k ^system.dbnav(ind) s ^system.dbnav(ind)=$LB(klasse,titelKlasse,sortColumns,codeColumns,columns,columnsTitel,colWidth,columnsType,initMethod,dbIdentity) q $LB(ind,id,code,titelKlasse,sortColumns,codeColumns,columns,columnsTitel,colWidth,columnsType,initMethod,dbIdentity) ]]> 1 1 ind:%String,id:%String %String ","..")_" d obj1.%Close() k obj1" x x i $TR(sinh,"01234567890.","")'=""!(sinh="") s sinh=""""_sinh_"""" s result=##class(%Library.ResultSet).%New() s sql="select top(500) %Id from "_klasse_" where loesw=0 and psite="_siteid_" and ("_sortColumn_"<"_sinh_") or ("_sortColumn_"="_sinh_" and %Id<"_id_") order by "_sortColum_" desc,%Id desc" d result.Prepare(sql) d result.Execute() s i=0 k tab f q:'result.Next() s i=i+1,tab(i)=result.GetData(1) d result.%Close() k result s cnt=0 f j=i:-1:1 d . s cnt=cnt+1 . s id=tab(j) . s ad1=$LB(id) . s x="s obj1=##class("_klasse_").%OpenId("""_id_""")" x x . i obj1="" k obj1 q . s x="s code=obj1."_$P($TR(codeColumns,"_->",".."),",",1) x x . i $L($P(codeColumns,",",2)) s x="s code=code_"" ""_obj1."_$P($TR(codeColumns,"_->",".."),",",2) x x . s ^system.dbnav(ind,3,cnt)=$LB(id,code) . s ^system.dbnav(ind,5,id)=cnt . d obj1.%Close() . k obj1 s result=##class(%Library.ResultSet).%New() s sql="select top(500) %Id,"_codeColumns_" from "_klasse_" where loesw=0 and psite="_siteid_" and ("_sortColumn_">="_sinh_") or ("_sortColumn_"="_sinh_" and %Id>="_id_") order by "_sortColumn_",%Id" d result.Prepare(sql) d result.Execute() f q:'result.Next() d . s cnt=cnt+1 . s id=result.GetData(1) . s code=result.GetData(2) i $L($P(codeColumns,",",2)) s code=code_" "_result.GetData(3) . s ^system.dbnav(ind,3,cnt)=$LB(id,code) . s ^system.dbnav(ind,5,id)=cnt s id1="" i cnt>0 s id1=1 i $L(id1) d . s id=$LI(^system.dbnav(ind,3,id1),1),code=$LI(^system.dbnav(ind,3,id1),2) . s ^system.dbnav(ind,2)=$LB(id,code) q 1 ]]> 1 ind:%String %String 1 ind:%String,id:%String %String 1 ind:%String %String 0 s id1=1,id=$LI(^system.dbnav(ind,3,id1),1),code=$LI(^system.dbnav(ind,3,id1),2) s:code="" code="Keine Daten vorhhanden" s ^system.dbnav(ind,2)=$LB(id,code) s ^system.dbnavhist(siteid,klasse)=id q $LB(ind,id,code) ]]> 1 ind:%String %String ",".."),",",1) x x . i $L($P(codeColumns,",",2)) s x="s code=code_"" ""_obj1."_$P($TR(codeColumns,"_->",".."),",",2) x x . s ^system.dbnav(ind,3,cnt)=$LB(id,code) . s ^system.dbnav(ind,5,id)=cnt . d obj1.%Close() . k obj1 s (id1,id,code)="" i cnt>0 s id1=cnt,id=$LI(^system.dbnav(ind,3,id1),1),code=$LI(^system.dbnav(ind,3,id1),2) s:code="" code="Keine Daten vorhanden" s ^system.dbnav(ind,2)=$LB(id,code) s ^system.dbnavhist(siteid,klasse)=id q $LB(ind,id,code) ]]> 1 ind:%String,id:%String %String ",".."),",",1) x x . i $L($P(codeColumns,",",2)) s x="s code=code_"" ""_obj1."_$P($TR(codeColumns,"_->",".."),",",2) x x . d obj1.%Close() k obj1 I $L(id1) s x="s id1=$O(^system.dbnav("_ind_",3,"_(+id1)_"))" x x i $L(id),id1="" d . s sinh="",x="s obj1=##class("_klasse_").%OpenId("_id_") i $L(obj1) s sinh=obj1."_$TR(sortColumn,"_->","..")_" d obj1.%Close() k obj1" x x . i $TR(sinh,"01234567890.","")'=""!(sinh="") s sinh=""""_sinh_"""" . f i=3:1:5 k ^system.dbnav(ind,i) . s result=##class(%Library.ResultSet).%New() . s sql="select top(1000) %Id,"_codeColumns_" from "_klasse_" where loesw=0 and psite="_siteid_" and ("_sortColumn_">"_sinh_") or ("_sortColumn_"="_sinh_" and %Id>"_id_") order by "_sortColumn_",%Id" . d result.Prepare(sql) . d result.Execute() . s cnt=0 . f q:'result.Next() d .. s cnt=cnt+1 .. s id=result.GetData(1) .. s code=result.GetData(2) i $L($P(codeColumns,",",2)) s code=code_" "_result.GetData(3) .. s ^system.dbnav(ind,3,cnt)=$LB(id,code) .. s ^system.dbnav(ind,5,id)=cnt .. s id1="" i cnt>0 s id1=1 i $L(id1) d . s id=$LI(^system.dbnav(ind,3,id1),1),code=$LI(^system.dbnav(ind,3,id1),2) . s ^system.dbnav(ind,2)=$LB(id,code) s:code="" code="Keine Daten vorhhanden" q $LB(ind,id,code) ]]> 1 ind:%String,id:%String %String ",".."),",",1) x x . i $L($P(codeColumns,",",2)) s x="s code=code_"" ""_obj1."_$P($TR(codeColumns,"_->",".."),",",2) x x . d obj1.%Close() k obj1 I $L(id1) s x="s id1=$O(^system.dbnav("_ind_",3,"_(+id1)_"),-1)" x x i $L(id),id1="" d . s sinh="",x="s obj1=##class("_klasse_").%OpenId("_id_") i $L(obj1) s sinh=obj1."_$TR(sortColumn,"_->","..")_" d obj1.%Close() k obj1" x x . i $TR(sinh,"01234567890.","")'=""!(sinh="") s sinh=""""_sinh_"""" . f i=3:1:5 k ^system.dbnav(ind,i) . s result=##class(%Library.ResultSet).%New() . s sql="select top(1000) %Id from "_klasse_" where loesw=0 and psite="_siteid_" and ("_sortColumn_"<"_sinh_") or ("_sortColumn_"="_sinh_" and %Id<"_id_") order by "_sortColumn_" desc,%Id desc" . d result.Prepare(sql) . d result.Execute() . s i=0 k tab . f q:'result.Next() s i=i+1,tab(i)=result.GetData(1) . d result.%Close() k result . s cnt=0 . f j=i:-1:1 d .. s cnt=cnt+1 .. s id=tab(j) .. s ad1=$LB(id) .. s x="s obj1=##class("_klasse_").%OpenId("""_id_""")" x x .. i obj1="" k obj1 q .. s x="s code=obj1."_$P($TR(codeColumns,"_->",".."),",",1) x x .. i $L($P(codeColumns,",",2)) s x="s code=code_"" ""_obj1."_$P($TR(codeColumns,"_->",".."),",",2) x x .. s ^system.dbnav(ind,3,cnt)=$LB(id,code) .. s ^system.dbnav(ind,5,id)=cnt .. d obj1.%Close() .. k obj1 .. s id1="" i cnt>0 s id1=cnt i $L(id1) d . s id=$LI(^system.dbnav(ind,3,id1),1),code=$LI(^system.dbnav(ind,3,id1),2) . s ^system.dbnav(ind,2)=$LB(id,code) s:code="" code="Keine Daten vorhhanden" q $LB(ind,id,code) ]]> 1 scode:%String,ind:%String %String %Library.CacheStorage ^system.dbnavD dbnavDefaultData ^system.dbnavD ^system.dbnavI ^system.dbnavS listnode %%CLASSNAME dummy persistent %Persistent 61131,83729.340045 0 1 klasse:%String,columnsEditor:%String="",titelKlasse:%String="",sortColumns:%String="",columns:%String="",columnsTitel:%String="",colWidth:%String="",initMethod:%String="",dbIdentity:%String="" %String %Library.CacheStorage ^system.dbtableD dbtableDefaultData ^system.dbtableD ^system.dbtableI ^system.dbtableS listnode %%CLASSNAME persistent 1 %Persistent,%XML.Adaptor 61076,50056 59921,85741.506367 %String Beschränkung auf Sitelevel, wenn nicht gewünsch==0 %Integer action=Methodenaufruf() %String classname,sitelevel %Library.CacheStorage ^system.defactionD defactionDefaultData ^system.defactionD ^system.defactionI ^system.defactionS listnode %%CLASSNAME classname defaction site sitelevel bedingung persistent 1 %Persistent,%XML.Adaptor 61076,50056 59921,85741.513576 0 system.sites param.wj param.lager system.sprache %Library.CacheStorage ^system.defaultsD defaultsDefaultData ^system.defaultsD ^system.defaultsI ^system.defaultsS listnode %%CLASSNAME site wj lager psite pwj psprache persistent 1 %Persistent,%XML.Adaptor 61076,50056 59921,85741.522837 0 %TimeStamp %TimeStamp %TimeStamp system.sites system.sites %List Status 0=gespeichert,1=übertragen %Integer %String %String Richtung I=in,O=out %String Typ U=Update, D=Delete %String %Stream binarystream dir,dtinsert SaveDepth:%Integer,Insert:%Integer,CallCount:%Integer %Status %Library.CacheStorage ^system.kommD kommDefaultData ^system.kommD ^system.kommI ^system.kommS listnode %%CLASSNAME class dir dsite dtinsert dttransfer qsite status xmldata pdestsite pquellsite typ id route dtcreate persistent 1 %XML.Adaptor,%Persistent 61077,10420.221106 60653,54433.45006 0 %String %Stream binarystream %String system.mitarb %Boolean 0 bez 1 SaveDepth:%Integer,Insert:%Integer,CallCount:%Integer %Status Insert:%Boolean %Status 1 layid:%String %Integer 1 %String 1 layout:%String %SQLQuery loesw:%Boolean=0 SELECT %ID,bez,anldatum,loesw FROM layout where (loesw is null or loesw=0 or :loesw=0) ORDER BY bez %Library.CacheStorage ^system.layoutD layoutDefaultData ^system.layoutD ^system.layoutI ^system.layoutS listnode %%CLASSNAME bez layout datum anldatum pmitarb loesw persistent 1 system.base,%Persistent 61093,26007.971905 61075,48827.578151 0 %String %String %String system.menu %Boolean psite,loesw,mname 1 text:%String %Integer 1 siteid:%String,text:%String %Integer 1 mname:%String,menues:%List %Integer 1 mname:%String %List %SQLQuery siteid:%String SELECT distinct mname FROM system.menu where loesw=0 and psite=:siteid order by mname DESC %SQLQuery siteid:%String,mname:%String SELECT %ID,name,aktion,pparent,expand FROM system.menu WHERE mname=:mname and loesw=0 and psite=:siteid order by pparent,%ID ASC %Library.CacheStorage ^system.menuD menuDefaultData ^system.menuD ^system.menuI ^system.menuS listnode %%CLASSNAME anldatum anlpers empfaction loesw mname name nr ok paction pparent psite route rtdelay rtdelete upddatum updpers deep expand aktion anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 %Persistent,%XML.Adaptor 61076,50056 59921,85741.535722 0 %String system.sprache %String 1 id 1 %SQLQuery sprache:%String SELECT id,text FROM message %Library.CacheStorage ^system.messageD messageDefaultData ^system.messageD ^system.messageI ^system.messageS listnode %%CLASSNAME sprache text psprache persistent 1 system.base,%Persistent 61140,37580.116222 60705,84521.429053 0 Mitarbeiter pcode pcode,name1 pcode,name1 25%,50% psite,pcode //////////////////////////////////////////// %String %String %String %String psite,loesw,pcode psite,loesw,password Kassa-Erweiterungen %Boolean param.kassalade %String psite,loesw,key1 1 siteid:%String,password:%String,name:%String="",usersw:%Boolean=0 %String 1 siteid:%String,key:%String %String 1 password:%String %String 1 user:%String,password:%String,name:%String %String %SQLQuery siteid:%String,loesw:%Boolean=0 99999 and psite=:siteid ORDER by pcode]]> %Library.CacheStorage ^system.mitarbD mitarbDefaultData ^system.mitarbD ^system.mitarbI ^system.mitarbS listnode %%CLASSNAME aktiv anldatumzeit key1 loedatumzeit loesw name1 panlmitarb password pcode pkassalade ploemitarb pnr powner psite pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,72146.208684 60950,66597.202433 0 system.mitarbgrpmitarb children mitarbgrp 1 %String psite,mitarbgrp %SQLQuery siteid:%String,loesw:%Boolean=0 SELECT %ID,mitarbgrp,loesw FROM mitarbgrp WHERE (loesw is null or loesw=0 or :loesw=0) and psite=:siteid ORDER by mitarbgrp %Library.CacheStorage ^system.mitarbgrpD mitarbgrpDefaultData ^system.mitarbgrpD ^system.mitarbgrpI ^system.mitarbgrpS listnode %%CLASSNAME anldatumzeit anlpcode loedatumzeit loepcode loesw mitarb mitarbgrp owner site upddatumzeit updpcode panlmitarb ploemitarb powner psite pupdmitarb kassa persistent 1 system.baser,%Persistent 61092,69207.252984 60950,66597.258628 0 system.mitarbgrp parent mitarb 1 system.mitarb pmitarb,mitarbgrp 1 mitarbgrpid:%String,mitarbid:%String %Integer 1 mitarbgrpid:%String,mitarbid:%String %Integer %SQLQuery mitarbgrpid:%String,loesw:%Boolean=0 name1 FROM mitarbgrpmitarb WHERE (loesw is null or loesw=0 or :loesw=0) and mitarbgrp=:mitarbgrpid ORDER by pmitarb->pcode]]> %Library.CacheStorage {%%PARENT}("mitarb") mitarbgrpmitarbDefaultData {%%PARENT}("mitarb") ^system.mitarbgrpmitarbI ^system.mitarbgrpmitarbS listnode %%CLASSNAME pmitarb anldatumzeit loedatumzeit loesw panlmitarb ploemitarb powner psite pupdmitarb upddatumzeit persistent 1 system.base,%Persistent 61092,70627.418116 60705,84521.439009 0 %String Pfad Ausgabetext %String %Boolean paramitem children param 1 psite,pfad 1 siteid:%String,pfad:%String,ointern:%String,intern:%String,text:%String %Integer 1 psite:%String 1 siteid:%String %Status 1 id:%String %Integer %SQLQuery siteid:%String,pathselect:%String="",pathselect1:%String="" SELECT %ID,pfad,pfadtext,memory FROM param WHERE (loesw is null or loesw=0) and psite=:siteid and (pfad="G" or pfad %startswith :pathselect or pfad %startswith :pathselect1) ORDER by pfad %Library.CacheStorage ^system.paramD paramDefaultData ^system.paramD ^system.paramI ^system.paramS listnode %%CLASSNAME anldatumzeit loedatumzeit loesw memory powner panlmitarb pfad ploemitarb psite pupdmitarb upddatumzeit pfadtext kassa persistent 1 system.baser,%Persistent 61093,31509.571198 60705,84521.449474 0 %Stream binarystream %String %String %String %String %String system.param parent paramitem 1 code 1 id:%String,code:%String %String 1 siteid:%String,gruppe:%String,code:%String %String 1 siteid:%String,gruppe:%String,code:%String %String 1 id:%String %Status %SQLQuery id:%String,loesw:%Boolean=0 SELECT %ID,code,datentyp,inh1,text,loesw,cargotyp FROM paramitem WHERE (loesw is null or loesw=0 or :loesw=0) and param=:id ORDER BY code %SQLQuery siteid:%String,pfad:%String,loesw:%Boolean=0 psite=:siteid and param->pfad=:pfad ORDER BY code]]> %SQLQuery siteid:%String,loesw:%Boolean=0 pfad,code,datentyp,inh1,text,loesw,cargotyp FROM paramitem WHERE (loesw is null or loesw=0 or :loesw=0) and param->psite=:siteid and param->memory=1 ORDER BY code]]> %Library.CacheStorage {%%PARENT}("paramitem") paramitemDefaultData {%%PARENT}("paramitem") ^system.paramitemI ^system.paramitemS listnode %%CLASSNAME code datentyp inh1 loesw anldatumzeit loedatumzeit panlmitarb ploemitarb powner psite pupdmitarb upddatumzeit cargo cargotyp text persistent 1 system.base,%Persistent 61092,63861.092436 61075,48827.590527 0 %Stream binarystream %String %Integer %Time %Time psite,loesw,name 1 name:%String %String %SQLQuery siteid:%String SELECT %ID,name,dauer,vonzeit,biszeit FROM pictkubs WHERE (loesw=0) and psite=:siteid %Library.CacheStorage ^system.pictkubsD pictkubsDefaultData ^system.pictkubsD ^system.pictkubsI ^system.pictkubsS listnode %%CLASSNAME anldatum anlpers empfaction image loesw name nr ok psite route rtdelay rtdelete upddatum updpers dauer biszeit vonzeit anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 system.base,%Persistent 61092,70249.609322 60950,66597.535021 0 system.paramitem system.mitarb system.mitarbgrp %Boolean %Boolean psite,pmitarb,prechte psite,pmitarbgrp,prechte 1 siteid:%String,typ:%String,mid:%String,rid:%String %String 1 siteid:%String,mid:%String,anw:%String %String 1 siteid:%String,anw:%String %Integer 1 siteid:%Integer,anw:%String,mid:%String %Integer 1 rid:%String,typ:%String,mid:%String,ert:%Boolean,entz:%Boolean %String %Library.CacheStorage ^system.rechteD rechteDefaultData ^system.rechteD ^system.rechteI ^system.rechteS listnode %%CLASSNAME anldatumzeit entziehen erteilen loedatumzeit loesw panlmitarb ploemitarb pmitarb pmitarbgrp powner prechte psite pupdmitarb upddatumzeit kassa %RegisteredObject 61085,59034.176723 60653,54433.506832 0 %String %Integer %Integer %String %Integer %Integer %Integer %String %String %String %Integer %Integer %Integer %Integer %Integer %Integer %Integer system.repstream %Persistent %Float %Integer %Integer %Integer %Integer %Integer %String %String %Integer %layid:%String,%endsw:%Integer=1 %str:%String %String %String 0 d ..write("dpend|"_..ypos) s %altind="",%alternate=1 s %i="" f s %i=$O(^XWREPORT($J,..layid,1,%i)) q:%i="" d . s %inh=^XWREPORT($J,..layid,0,%i) . i $P(%inh,"|",1)="dp"!($P(%inh,"|",1)="daltreset") s %alternate=1,%altind="" q . i $P(%inh,"|",1)="dalt" d .. i %altind'="" d ... i %alternate s ^XWREPORT($J,..layid,0,%altind)="dbox|"_(..leftmargin*..faktor)_"|"_($P(^XWREPORT($J,..layid,0,%altind),"|",2))_"|"_(..pagewidth-(..rightmargin*..faktor))_"|"_($P(%inh,"|",2))_"|200|230|200" i 1 ... e k ^XWREPORT($J,..layid,0,%altind) ... s %alternate='%alternate .. s %altind=%i s ..repstream=##class(system.repstream).%New() s %i="" f s %i=$O(^XWREPORT($J,..layid,0,%i)) q:%i="" d ..repstream.report.Write(^XWREPORT($J,..layid,0,%i)_$C(10)) d ..repstream.%Save() s %id=..repstream.%Id() d ..repstream.%Close() K ^XWREPORT($J,..layid) q %id ]]> 1 %coloroffs:%Integer=-10 %bgcolor:%String,%section:%String=" ",%section1:%String=" " %section:%String,%section1:%String,%add:%String %grp:%String,%level %section:%String,%o:%Persistent,%bgcolor:%String="" %section:%String,%section1:%String=" ",%head:%Integer=0,%bgcolor:%String="" 1 0 d ... f %i=1:1:%grouplevel i $D(^system.layout(..layid,%ref,"head"_%i)) s %f=..faktor*$LI(^system.layout(..layid,%ref,"head"_%i),1)+%f ... f %i=1:1:%grouplevel i $D(^system.layout(..layid,%ref,"foot"_%i)) s %f=..faktor*$LI(^system.layout(..layid,%ref,"foot"_%i),1)+%f .. i $D(%ogrptxt) d ... s %grpchl="" ... f %i=1:1:%grouplevel d Q:+%grpchl .... I $G(%grptxt(%i))'=$G(%ogrptxt(%i)),$L($G(%ogrptxt(%i))) s %grpchl=%i ... i +%grpchl d .... d ..write("daltreset|") .... f %i=..grouplevel:-1:%grpchl i $D(^system.layout(..layid,..ref,"foot"_%i)) s %f=..faktor*$LI(^system.layout(..layid,..ref,"foot"_%i),1)+%f .... f %i=%grpchl:1:%grouplevel i $D(^system.layout(..layid,%ref,"head"_%i)) s %f=..faktor*$LI(^system.layout(..layid,%ref,"head"_%i),1)+%f .. .. //Test auf neue Seite .. i (%sh+..ypos)>(..pageheight-..bottommargin-%f)!%grnp d ... //Neue Seite ... s %grnp=0 ... //Test auf Breakmarke für Seitenumbruch ... s %breaksw=0 ... i ..break>0 d .... s %i=..break f s %i=$O(^XWREPORT($J,..layid,0,%i)) q:%i="" d ..... K ^XWREPORT($J,..layid,0,%i),^XWREPORT($J,..layid,1,%i),^XWREPORT($J,..layid,2,%i) .... s %breaksw=1,..break=0 ... // ... i ..pages>0 d .... i ..format="A4" s ..ypos=..pageheight-..bottommargin-%f .... ///Gruppenfüsse .... f %i=..grouplevel:-1:1 i $D(^system.layout(..layid,..ref,"foot"_%i)) d ..section(..ref,"foot"_%i,1) .... //Seitenfuss .... I $D(^system.layout(..layid,"pgfoot","all")) d ..section("pgfoot","all",1) i 1 .... e I ..pages#2=0,$D(^system.layout(..layid,"pgfoot","odd")) d ..section("pgfoot","odd",1) i 1 .... e I ..pages#2,$D(^system.layout(..layid,"pgfoot","even")) d ..section("pgfoot","even",1) ... // ... d ..write("dpend|"_..ypos) ... d ..newpage() ... // ... I ..pages#2=0,$D(^system.layout(..layid,"pghead","odd")) d ..section("pghead","odd",1) i 1 ... e I ..pages#2,$D(^system.layout(..layid,"pghead","even")) d ..section("pghead","even",1) i 1 ... e I $D(^system.layout(..layid,"pghead","all")) d ..section("pghead","all",1) ... //Gruppenheader ... f %i=1:1:..grouplevel i $D(^system.layout(..layid,%ref,"head"_%i)) d ..section(%ref,"head"_%i,1) ... // ... //Test auf Breakmarke und Transaktionen auf neuer Seite nachziehen ... i %breaksw>0 d .... s %i="" f s %i=$O(XWREPORT(..layid,5,%i)) q:%i="" d ..... s %inh=XWREPORT(..layid,5,%i) ..... s %bef=$P(%inh,"|",1) ..... i %bef="dt" s $P(%inh,"|",6)=$P(%inh,"|",6)+..ypos ..... e s $P(%inh,"|",3)=$P(%inh,"|",3)+..ypos i %bef="dl" s $P(%inh,"|",5)=$P(%inh,"|",5)+..ypos ..... d ..write(%inh) .... K XWREPORT(..layid,5),%inh,%bef .... s ..ypos=..ypos+..breaksh ... k %breaksw .. // .. //Gruppenwechsel .. i %group'=..group d ... d ..write("daltreset|") ... f %i=..grouplevel:-1:1 i $D(^system.layout(..layid,..ref,"foot"_%i)) d ..section(..ref,"foot"_%i,1) ... f %i=1:1:%grouplevel i $D(^system.layout(..layid,%ref,"head"_%i)) d ..section(%ref,"head"_%i,1) .. // .. //Wechsel Level durch Zeile .. e i ..grouplevel>0 d ... i %grouplevel>..grouplevel d ..write("daltreset|") f %i=..grouplevel+1:1:%grouplevel i $D(^system.layout(..layid,%ref,"head"_%i)) d ..section(%ref,"head"_%i,1) ... i %grouplevel<..grouplevel d ..write("daltreset|") f %i=..grouplevel-1:-1:%grouplevel i $D(^system.layout(..layid,%ref,"foot"_%i)) d ..section(%ref,"foot"_%i,1) .. // .. //Änderung Gruppen-Header .. i $D(%ogrptxt) d ... s %grpchl="" ... f %i=1:1:%grouplevel d Q:+%grpchl .... I %grptxt(%i)'=%ogrptxt(%i),$L($G(%ogrptxt(%i))) s %grpchl=%i ... i +%grpchl d .... d ..write("daltreset|") .... f %i=%grouplevel:-1:%grpchl i $D(^system.layout(..layid,..ref,"foot"_%i)) d ..section(..ref,"foot"_%i,1) .... f %i=%grpchl:1:%grouplevel i $D(^system.layout(..layid,..ref,"head"_%i)) d ..section(..ref,"head"_%i,1) .. // .. // .. ///////////////////// .. s ..section=%section .. s ..grouplevel=%grouplevel .. s ..ref=%ref .. s ..group=%group . // . //Background-Color . i %field=%first,$L(%bgcolor) d .. s %red=$P(%bgcolor,",",1),%green=$P(%bgcolor,",",2),%blue=$P(%bgcolor,",",3) .. d ..write("dbox|"_(..leftmargin*..faktor)_"|"_(..ypos-1)_"|"_(..pagewidth-(..rightmargin*..faktor))_"|"_(..ypos+%sh+1)_"|"_%red_"|"_%green_"|"_%blue) . // . //Feld generieren . i %op="line" d .. s %x1=$LI(%ad,2)*..faktor+..left,%y1=$LI(%ad,3)*..faktor+..ypos,%x2=$LI(%ad,4)*..faktor+..left,%y2=$LI(%ad,5)*..faktor+..ypos,%w=$LI(%ad,6)*..faktor .. d ..write("dl|"_%x1_"|"_%y1_"|"_%x2_"|"_%y2_"|"_%w) .. i ..break>0 s XWREPORT(..layid,5,..ind)="dl|"_%x1_"|"_(%y1-..breakypos)_"|"_%x2_"|"_(%y2-..breakypos)_"|"_%w . // . i %op="image" d .. s %x=$LI(%ad,2)*..faktor+..left,%y=$LI(%ad,3)*..faktor+..ypos,%w=$LI(%ad,4)*..faktor,%h=$LI(%ad,5)*..faktor,%image=$LI(%ad,7) .. d ..write("di|"_%x_"|"_%y_"|"_%image_"|") .. i ..break>0 s XWREPORT(..layid,5,..ind)="di|"_%x_"|"_(%y-..breakypos)_"|"_%image_"|" . // . i %op="barcode" d .. s %x=$LI(%ad,2)*..faktor+..left,%y=$LI(%ad,3)*..faktor+..ypos,%w=$LI(%ad,4)*..faktor,%h=$LI(%ad,5)*..faktor,%typ=$LI(%ad,6),%barcode=$LI(%ad,7) .. i $L(%barcode) s %barcode=$$EXEC^%zcrep(%barcode) .. d ..write("dbc|"_%x_"|"_%y_"|"_%w_"|"_%h_"|"_%typ_"|"_%barcode_"|") .. i ..break>0 s XWREPORT(..layid,5,..ind)="dbc|"_%x_"|"_(%y-..breakypos)_"|"_%w_"|"_%h_"|"_%typ_"|"_%barcode_"|" . // . i %op="field" d .. s %x=$LI(%ad,2)*..faktor+..left,%y=$LI(%ad,3)*..faktor+..ypos,%w=$LI(%ad,4)*..faktor,%h=$LI(%ad,5)*..faktor .. s %face=$LI(%ad,6),%size=$LI(%ad,7)*..faktor,%weight=$LI(%ad,8),%align=$LI(%ad,9),%data=$LI(%ad,10) .. i $L(%data) s %data=$$EXEC^%zcrep(%data) .. d ..write("dt|"_%face_"|"_%size_"|"_%weight_"|"_%x_"|"_%y_"|"_%w_"|"_%h_"|"_%align_"|"_%data) .. i ..break>0 s XWREPORT(..layid,5,..ind)="dt|"_%face_"|"_%size_"|"_%weight_"|"_%x_"|"_(%y-..breakypos)_"|"_%w_"|"_%h_"|"_%align_"|"_%data . // . i %op="label" d .. s %x=$LI(%ad,2)*..faktor+..left,%y=$LI(%ad,3)*..faktor+..ypos,%w=$LI(%ad,4)*..faktor,%h=$LI(%ad,5)*..faktor .. s %face=$LI(%ad,6),%size=$LI(%ad,7)*..faktor,%weight=$LI(%ad,8),%align=$LI(%ad,9),%data=$LI(%ad,10) .. d ..write("dt|"_%face_"|"_%size_"|"_%weight_"|"_%x_"|"_%y_"|"_%w_"|"_%h_"|"_%align_"|"_%data) .. i ..break>0 s XWREPORT(..layid,5,..ind)="dt|"_%face_"|"_%size_"|"_%weight_"|"_%x_"|"_(%y-..breakypos)_"|"_%w_"|"_%h_"|"_%align_"|"_%data s ..ypos=%sh+..ypos i ..break>0 s ..breaksh=..breaksh+%sh s ..proz=..ypos/(..pageheight-..bottommargin)*100 //Anhängen zusätzliche Zeilen s %i="" f s %i=$O(^XWREPORT($J,..layid,6,%section,%section1,%i)) q:%i="" d ..section(^(%i),"detail") ]]> persistent 1 %XML.Adaptor,%Persistent 61076,83280.708019 60653,54433.518693 0 %String %String %String system.layout %String system.mitarb %String %Boolean system,report 1 report:%String,system:%String="default" %String %SQLQuery system:%String,loesw:%Boolean=0 SELECT %ID,report,method,playout,anldatum,pmitarb,loesw FROM report WHERE (loesw is null or loesw=0 or :loesw=0) and system=:system ORDER BY report %Library.CacheStorage ^system.reportD reportDefaultData ^system.reportD ^system.reportI ^system.reportS listnode %%CLASSNAME method playout report system anldatum pmitarb format loesw persistent 1 %Persistent 61076,50056 60653,54433.524646 0 %Stream binarystream %Library.CacheStorage ^system.repstreamD repstreamDefaultData ^system.repstreamD ^system.repstreamI ^system.repstreamS listnode %%CLASSNAME report 1 %Persistent,%XML.Adaptor 61076,50056 59921,85741.540891 %String system.routgrp %String classname 1 %Persistent,%XML.Adaptor 61076,50056 59921,85741.54582 0 1 routgrp 1 %String Routingziele z.b $LB("1","1.*","1.*.*") %List persistent 1 %Persistent 61092,80865.792765 61075,48827.654879 0 %String %String %String %String 1 user1,typ,sort 1 1 userid:%String,typ:%String,lr:%String %String %SQLQuery user:%String,typ:%String SELECT zeile,sort FROM search where (user1=:user) and (typ=:typ) order by sort DESC %Library.CacheStorage ^system.searchD searchDefaultData ^system.searchD ^system.searchI ^system.searchS listnode %%CLASSNAME zeile persistent 1 %Persistent,system.base 61092,66016.166068 61075,48827.661555 0 system.mitarb Suchtyp AR,KU,LI %String %List %String array 1 puser,typ 1 userid:%String,typ:%String,id:%String %Integer userid:%String,schiene:%Integer %Integer %Library.CacheStorage ^system.searchparD searchparDefaultData ^system.searchparD ^system.searchparI ^system.searchparS listnode %%CLASSNAME anldatum anlpers empfaction feld idkey inh nr ok psite puser route rtdelay rtdelete typ upddatum updpers feld1 lastsel loesw pfiliale pmandant anldatumzeit panlmitarb pupdmitarb upddatumzeit kassa persistent 1 %Persistent 61140,37622.724673 59921,85741.551182 0 system.sites %Integer system.mitarb param.wj %Integer system.sprache 1 jobid 1 1 %Integer 1 siteid:%String,vuser:%String,vpasswort:%String="" %String 1 %Integer 1 idsite:%String,user:%String,kassa:%String="" %String %Library.CacheStorage ^system.sessionD sessionDefaultData ^system.sessionD ^system.sessionI ^system.sessionS listnode %%CLASSNAME psite psprache puser pwj kassanr persistent 1 %Persistent 61111,36623.831613 59921,85741.55847 0 %Integer %String %String %String %String %String %String %String 1 siteid 1 %Library.CacheStorage ^system.sitesD sitesDefaultData ^system.sitesD ^system.sitesI ^system.sitesS listnode %%CLASSNAME bez1 idprefix adress commtyp uid kassa pfiliale pmandant database ip pfirma pstandort pfil bez2 bez3 fil firma standort persistent 1 %Persistent,%XML.Adaptor 61076,50056 59921,85741.564457 %String %Stream binarystream %Library.CacheStorage ^system.spracheD spracheDefaultData ^system.spracheD ^system.spracheI ^system.spracheS listnode %%CLASSNAME bez icon picture persistent 1 %Persistent 61076,50056 61075,48827.685386 0 %Integer %String %String %String %String %String %String 1 jobid,cnt 1 1 jobid:%String %Status %SQLQuery jobid:%String SELECT id,f1 FROM wk WHERE (jobid = :jobid) %SQLQuery jobid:%String SELECT id,f1,f2 FROM wk WHERE (jobid = :jobid) %SQLQuery jobid:%String SELECT id,f1,f2,f3 FROM wk WHERE (jobid = :jobid) %SQLQuery jobid:%String SELECT id,f1,f2,f3,f4 FROM wk WHERE (jobid = :jobid) %SQLQuery jobid:%String SELECT id,f1 FROM wk WHERE (jobid = :jobid) ORDER BY cnt DESC %SQLQuery jobid:%String SELECT id,f1,f2 FROM wk WHERE (jobid = :jobid) ORDER BY cnt DESC %SQLQuery jobid:%String SELECT id,f1,f2,f3 FROM wk WHERE (jobid = :jobid) ORDER BY cnt DESC %SQLQuery jobid:%String SELECT id,f1,f2,f3,f4 FROM wk WHERE (jobid = :jobid) ORDER BY cnt DESC %Library.CacheStorage ^system.wkD wkDefaultData ^system.wkD ^system.wkI ^system.wkS listnode %%CLASSNAME f1 f2 f3 f4 id persistent 1 %Persistent 61076,50056 60705,84521.578966 0 %Stream binarystream %Library.CacheStorage ^system.wkstreamD wkstreamDefaultData ^system.wkstreamD ^system.wkstreamI ^system.wkstreamS listnode %%CLASSNAME text 1 %RegisteredObject 61117,63810.544743 0 %String 0 %String ip:%String,namespace:%String="BAUMAT" %Status %Status command:%String %String persistent 1 %Persistent 61112,64132.589014 0 %String %String %String Set {name} = ##class(test.test).nameGet() 1 %String 1 1 1 %Library.CacheStorage ^test.testD testDefaultData ^test.testD ^test.testI ^test.testS listnode %%CLASSNAME name name1 name2