0) . s swexp=$E($O(^inndata.wargrI("wargr",firma,$E(100+hgrp,2,3)_"00")),1,2)=$E(100+hgrp,2,3) . S cnt=cnt+1 . S ^XW($J,cnt)=hgrp_"|"_"0"_"|"_$$ASCIANSI^%UML(hgrpbez)_"|"_sw_"|"_swexp . s ugrp="" f s ugrp=$O(^PA(firma,55,hgrp,1,ugrp)) q:ugrp="" d .. I $D(^(ugrp))#2 s ugrpbez=$P(^(ugrp),"`",1) .. e Q .. s sw=($D(^inndata.wargrI("wargr",firma,$E(100+hgrp,2,3)_$E(100+ugrp,2,3)))>0) .. s cnt=cnt+1,^XW($J,cnt)=hgrp_"|"_ugrp_"|"_$$ASCIANSI^%UML(ugrpbez)_"|"_sw q artikelaufbau(firma,dbpraefix) N (firma,dbpraefix) S ^test=firma_"|"_dbpraefix d ^%XTT s x="K ^"_dbpraefix_"artikelD" X x s x="K ^"_dbpraefix_"artikelI" X x s x="K ^"_dbpraefix_"liefD" X x s x="K ^"_dbpraefix_"liefI" X x s x="K ^"_dbpraefix_"match1D" X x s x="K ^"_dbpraefix_"match1I" X x s x="K ^"_dbpraefix_"wargrD" X x s liprart=##class(inndata.param).%OpenId(firma).liprart s:liprart="" liprart="I" s wargr="" f s wargr=$O(^inndata.wargrI("wargr",firma,wargr)) q:wargr="" d . s hgrp=+$E(wargr,1,2) . s ugrp=+$E(wargr,3,4) . I +ugrp=0 d q .. s x="s objwg=##class("_dbpraefix_"wargr).%New()" X x .. s objwg.numwarengruppe=$E(100+hgrp,2,3)_"00" .. s objwg.txtwarengruppe=$$ASCIANSI^%UML($P($G(^PA(firma,55,+hgrp,0)),%,1)) .. d objwg.%Save() .. d objwg.%Close() .. k objwg .. s ugrp="" f s ugrp=$O(^AM(firma,6,hgrp,ugrp)) q:ugrp="" d wargr . d wargr s kunde="" f s kunde=$O(^PA(firma,240,kunde)) q:kunde="" d . s hvart="" f s hvart=$O(^PA(firma,240,kunde,hvart)) q:hvart="" d .. s msp=$P(^(hvart),"`",1) .. s id=$O(^inndata.minspanneI("Index",firma,kunde,hvart,"")) .. i $L(id) s mobj=##class(inndata.minspanne).%OpenId(id) .. e s mobj=##class(inndata.minspanne).%New() .. s mobj.Firma=firma .. s mobj.Kunde=kunde .. s mobj.HVart=hvart .. s mobj.MinSpanne=msp .. d mobj.%Save() .. d mobj.%Close() d ##class(inndata.kvkpreis).Delete(firma) s kgrp="" f s kgrp=$O(^PA(firma,220,1,kgrp)) q:kgrp="" d . s abtnr="" f s abtnr=$O(^PA(firma,220,1,kgrp,abtnr)) q:abtnr="" d .. s obj=##class(inndata.kvkpreis).%New() .. s obj.firma=firma .. s obj.kgrp=$$ASCIANSI^%UML(kgrp) .. s obj.abtnr=$$ASCIANSI^%UML(abtnr) .. d obj.%Save() .. d obj.%Close() s konto="" f s konto=$O(^PA(firma,220,2,konto)) q:konto="" d . s abtnr="" f s abtnr=$O(^PA(firma,220,2,konto,abtnr)) q:abtnr="" d .. s obj=##class(inndata.kvkpreis).%New() .. s obj.firma=firma .. s obj.konto=konto .. s obj.abtnr=$$ASCIANSI^%UML(abtnr) .. d obj.%Save() .. d obj.%Close() K obj q ; wargr s x="s objwg=##class("_dbpraefix_"wargr).%New()" X x s objwg.numwarengruppe=$E(100+hgrp,2,3)_$E(100+ugrp,2,3) s objwg.txtwarengruppe=$$ASCIANSI^%UML($P($G(^PA(firma,55,+hgrp,1,+ugrp)),%,1)) d objwg.%Save() d objwg.%Close() k objwg s kbez="" f s kbez=$O(^AM(firma,6,hgrp,ugrp,kbez)) q:kbez="" d . s anr="" f s anr=$O(^AM(firma,6,hgrp,ugrp,kbez,anr)) q:anr="" d .. I $D(^AA(firma,anr,1))#2 s atyp=$P(^(1),"`",5) .. e q .. Q:$P(^(1),"`",4)'="J" .. I '$D(^inndata.atypI("atyp",firma,atyp)) q .. d artikel1(firma,anr,dbpraefix) q ; artikel1(firma,anr,dbpraefix) N x,% s fil=0 s datum=%DR s %=^%SY(0,"%") ; s hlnr="" I $D(^AA(firma,anr,30,0))#2 S hlnr=$P(^(0),%,9) I hlnr="",$D(^AA(firma,anr,5))#2 S hlnr=$P(^(5),%,1) q:+hlnr=0 s wc=0 I $D(^B(firma,"L",hlnr,2))#2 s wc=$P(^(2),%,2) s kurs=1 I $D(^BP(firma,15,wc))#2 s kurs=$P(^(wc),%,2) s ad=$G(^AA(firma,anr,1)) S atyp=$P(ad,%,5),vpe=$P(ad,%,10),vke=$P(ad,%,11),vre=$P(ad,%,12),vpi=$P(ad,%,13),vrm=$P(ad,%,14),vpm=$P(ad,%,15) I $D(^AA(firma,anr,10,hlnr,0))#2 S bnr=$P(^(0),%,2),ean=$P(^(0),%,5),epm=$P(^(0),%,7) ; S mbme=1 I $L(hlnr),$D(^AA(firma,anr,10,hlnr,0))#2 S mbme=$P(^(0),%,10) S VAR=firma_%_anr_%_hlnr_%_datum_%_mbme,$P(VAR,%,12)=4 d ^BMEKP S brutto=$P(VAR,%,5),bruttoz=$P(VAR,%,6),ind=$P(VAR,%,9) I $P(VAR,%,10)="J" S netto=$P(VAR,%,7)-$P(VAR,%,15) E S netto=$P(VAR,%,8)-$P(VAR,%,15) s est=$P(^AA(firma,anr,30,0),%,6) S atyp=$P($G(^AA(firma,anr,1)),%,5) I $L(atyp),$D(^PA(firma,35,atyp))#2,$P(^(atyp),%,21)="J" D . s FIRMA=firma,ANR=anr . D DEST^BMADD . S VONDAT=datum D ANF^BMADD S est=DEST,netto=+$G(EK("N")),brutto=+$G(EK("BR")),bruttoz=+$G(EK("BZ")) S VAR=firma_%_anr_%_datum_%_99999_%_0_%_%_"LA"_%_1_%_"E" S $P(VAR,%,11)="N" ;nur Normalpreis S $P(VAR,%,18)="N" ;keine Sonderpreise S $P(VAR,%,17)=4 ;4 Stellen d ^BMVKP S vkpreis=$P(VAR,%,8) ; I liprart="B" s listpr=brutto E I liprart="V" s listpr=vkpreis E I liprart="I" D . I ind="V" S listpr=brutto . E S listpr=vkpreis ; I $L(atyp),$D(^PA(firma,35,atyp))#2 S lagjn=$P(^(atyp),%,15) e q I $D(^AA(firma,anr,2))#2 s mc=$P(^(2),%,10) e q S mcproz=20 I $D(^BP(firma,5,mc))#2 S mcproz=$P(^(mc),%,1) S hinw="" I vpe'=vke S hinw="1 "_vpe_" = "_vpi_" "_vke S lagst=$P($G(^AA(firma,anr,30,1,fil,1)),%,1)-$P($G(^AA(firma,anr,30,1,fil,1)),%,3) I lagst<0 s lagst=0 ; s x="s id=$O(^"_dbpraefix_"liefI(""firmennr"",hlnr,""""))" X x i id="" s x="s obj=##class("_dbpraefix_"lief).%New()" X x I 1 e s x="s obj=##class("_dbpraefix_"lief).%OpenId(id)" X x i $L(obj) d . s obj.firmennr=hlnr . s obj.lieferant=$$ASCIANSI^%UML($P($G(^B(firma,"L",hlnr,1)),"`",2)) . d obj.%Save() . d obj.%Close() ; s id="" s x="s id=$O(^"_dbpraefix_"match1I(""numartikel"",anr,id))" f d q:id="" . X x q:id="" . s x1="K ^"_dbpraefix_"match1D(id)" X x1 . s x1="K ^"_dbpraefix_"match1I(""numartikel"",anr,id)" X x1 ; S kbez1="" F S kbez1=$O(^AA(firma,anr,6,kbez1)) Q:kbez1="" D match(kbez1) s bez3=$P(ad,%,9) I $L(bez3) d match(bez3) I $L(kbez) d match(kbez) ; s x="s id=$O(^"_dbpraefix_"artikelI(""numartikel"",anr,""""))" X x i id="" s x="s obj=##class("_dbpraefix_"artikel).%New()" X x I 1 e s x="s obj=##class("_dbpraefix_"artikel).%OpenId(id)" X x i $L(obj) d . s obj.numartikel=anr . s obj.txtartikel1=$$ASCIANSI^%UML($P(ad,%,7)) . s obj.txtartikel2=$$ASCIANSI^%UML($P(ad,%,8)) . s obj.idhgr=$E(100+hgrp,2,3)_"00" . s obj.idugr=$E(100+hgrp,2,3)_$E(100+ugrp,2,3) . s obj.firmennummer=hlnr . s obj.ean=ean . s obj.bestellnummer=bnr . s obj.betlistenpreis=$J(listpr,0,4) . s obj.bruttopreis=brutto . s obj.bruttozpreis=bruttoz . s obj.nettopreis=netto . s obj.vkpreis=vkpreis . s obj.estpreis=est . s obj.peh=$J(vpm,0,4) . s obj.txtmengeneinheit=vre . s obj.txtstaffeleinheit=vke . s obj.jnlagerfuehrend=lagjn . s obj.prozust=$J(mcproz,0,4) . s obj.txthinweis=hinw . s obj.anzpehfaktor=$J(vrm,0,4) . s obj.lagerstand=$J(lagst,0,4) . s obj.vkgrp=$P($G(^AA(firma,anr,20,0)),%,1) . s obj.abtnr=$$ASCIANSI^%UML($P($G(^AA(firma,anr,2)),%,9)) . s obj.anzstaffelmenge=1 . d obj.%Save() . d obj.%Close() ; q ; match(bez) s x="s obj=##class("_dbpraefix_"match1).%New()" X x I 1 s obj.numartikel=anr s obj.match1=$$ASCIANSI^%UML(bez) d obj.%Save() d obj.%Close() q kondaufbau(firma,dbpraefix,ausg) N (firma,dbpraefix,ausg) d ^%XTT k kgrp d ##class(inndata.kond).delete(firma) s x="s knr=$O(^"_dbpraefix_"kundeI(""numkunde"",knr))" s knr="" F D q:knr="" . X x q:knr="" . I $G(ausg)="J" W *13,knr,! . d kondaufbauk(firma,knr,dbpraefix) . s rknr="" I $D(^BZ(firma,"K",knr,2))#2 s rknr=$P(^(2),"`",40) . i $L(rknr) d .. d kondaufbauk(firma,rknr,dbpraefix) .. s rkgrp=$P($G(^BZ(firma,"K",rknr,1)),"`",6) .. I $L(rkgrp) s kgrp(rkgrp)="" s kgrp="" f s kgrp=$O(kgrp(kgrp)) q:kgrp="" d . I $G(ausg)="J" W *13,kgrp,! . d kondaufbaukg(firma,kgrp,dbpraefix) k obj q kondaufbauk(firma,knr,dbpraefix) N x k vkgrp s kgrp="" i $D(^BZ(firma,"K",knr,1))#2 s kgrp=$P(^(1),%,6) q:kgrp="" s kgrp(kgrp)="" s x="s id=$O(^"_dbpraefix_"kundeI(""numkunde"",knr,""""))" X x s x="s obj=##class("_dbpraefix_"kunde).%OpenId(id)" X x I $L(obj) d . s obj.kgrp=$$ASCIANSI^%UML(kgrp) . d obj.%Save() . d obj.%Close() ; s anr="" f s anr=$O(^BZ(firma,"K",knr,5,anr)) q:anr="" d . I $D(^AA(firma,anr,1))#2 s atyp=$P(^(1),"`",5) . e q . Q:$P(^(1),"`",4)'="J" . I '$D(^inndata.atypI("atyp",firma,atyp)) q . d kondartk s vkgrp="" f s vkgrp=$O(^BZ(firma,"K",knr,6,vkgrp)) q:vkgrp="" d . d kondvkgrpk q kondaufbaukg(firma,kgrp,dbpraefix) s anr="" f s anr=$O(^PA(firma,90,kgrp,1,anr)) q:anr="" d . I $D(^AA(firma,anr,1))#2 s atyp=$P(^(1),"`",5) . e q . Q:$P(^(1),"`",4)'="J" . I '$D(^inndata.atypI("atyp",firma,atyp)) q . d kondartkg s vkgrp="" f s vkgrp=$O(^PA(firma,90,kgrp,2,vkgrp)) q:vkgrp="" d . d kondvkgrpkg q kondartk ;Schreiben artikelkonditionen ; ;Kundenkondition s nsw=0 s dat="" f s dat=$O(^AA(firma,anr,20,"A",2,knr,0,dat)) q:dat="" d . I $D(^(dat,0))#2 s bisdat=$P(^(0),%,1) . e q . s datbish=0 i $L(bisdat) s datbish=$$H^%LN200(bisdat) . s dath=$$H^%LN200(1000000-dat) . I +datbish,datbish<$H q . I +nsw,datbish=0 q . I datbish=0,dath'>$H s nsw=1 . s hvart="0" f s hvart=$O(^AA(firma,anr,20,"A",2,knr,0,dat,hvart)) q:hvart="" d .. s me="" f s me=$O(^AA(firma,anr,20,"A",2,knr,0,dat,hvart,me)) q:me="" d ... s ad=^(me) ... s obj=##class(inndata.kond).%New() ... s obj.firma=firma ... s obj.a=anr ... s obj.k=knr ... s obj.komb="AK" ... s obj.rabbasis=$P(ad,%,6) ... s obj.kondart=$P(ad,%,1) ... s obj.datumab=dath ... s obj.datumbis=datbish ... s obj.menge=1000000-me ... s obj.vart=$TR(hvart,"*","") ... I $P(ad,%,1)="%" s obj.rab1=$P(ad,%,2),obj.rab2=$P(ad,%,3) ... s obj.rabnetto=$P(ad,%,5) ... I $P(ad,%,1)="N" s obj.netto=$P(ad,%,4) ... d obj.%Save() ... d obj.%Close() q kondartkg ; ;Kundengruppenkondition s nsw=0 s dat="" f s dat=$O(^AA(firma,anr,20,"A",3,kgrp,dat)) q:dat="" d . I $D(^(dat,0))#2 s bisdat=$P(^(0),%,1) . e q . s datbish=0 i $L(bisdat) s datbish=$$H^%LN200(bisdat) . s dath=$$H^%LN200(1000000-dat) . I +datbish,datbish<$H q . I +nsw,datbish=0 q . I datbish=0,dath'>$H s nsw=1 . s hvart="0" f s hvart=$O(^AA(firma,anr,20,"A",3,kgrp,dat,hvart)) q:hvart="" d .. s me="" f s me=$O(^AA(firma,anr,20,"A",3,kgrp,dat,hvart,me)) q:me="" d ... s ad=^(me) ... s obj=##class(inndata.kond).%New() ... s obj.firma=firma ... s obj.a=anr ... s obj.k=kgrp ... s obj.komb="AG" ... s obj.rabbasis=$P(ad,%,6) ... s obj.kondart=$P(ad,%,1) ... s obj.datumab=dath ... s obj.datumbis=datbish ... s obj.menge=1000000-me ... s obj.vart=$TR(hvart,"*","") ... I $P(ad,%,1)="%" s obj.rab1=$P(ad,%,2),obj.rab2=$P(ad,%,3) ... s obj.rabnetto=$P(ad,%,5) ... I $P(ad,%,1)="N" s obj.netto=$P(ad,%,4) ... d obj.%Save() ... d obj.%Close() q kondvkgrpk ;Schreiben artikelkonditionen ; ;Kundenkondition s nsw=0 s dat="" f s dat=$O(^PA(firma,60,vkgrp,1,knr,0,dat)) q:dat="" d . I $D(^(dat,0))#2 s bisdat=$P(^(0),%,1) . e q . s datbish=0 i $L(bisdat) s datbish=$$H^%LN200(bisdat) . s dath=$$H^%LN200(1000000-dat) . I +datbish,datbish<$H q . I +nsw,datbish=0 q . I datbish=0,dath'>$H s nsw=1 . s hvart="0" f s hvart=$O(^PA(firma,60,vkgrp,1,knr,0,dat,1,hvart)) q:hvart="" d .. s ad=^(hvart) .. s obj=##class(inndata.kond).%New() .. s obj.firma=firma .. s obj.a=vkgrp .. s obj.k=knr .. s obj.komb="RK" .. s obj.rabbasis=$P(ad,%,1) .. s obj.kondart=$P(ad,%,2) .. s obj.datumab=dath .. s obj.datumbis=datbish .. s obj.menge=1 .. s obj.vart=$TR(hvart,"*","") .. I $P(ad,%,2)="%" s obj.rab1=$P(ad,%,3),obj.rab2=$P(ad,%,4) .. I $P(ad,%,2)="P" s obj.faktor=$P(ad,%,5) .. s obj.rabnetto=$P(ad,%,6) .. d obj.%Save() .. d obj.%Close() q kondvkgrpkg ;Kundengruppenkondition s nsw=0 s dat="" f s dat=$O(^PA(firma,60,vkgrp,2,kgrp,dat)) q:dat="" d . I $D(^(dat,0))#2 s bisdat=$P(^(0),%,1) . e q . s datbish=0 i $L(bisdat) s datbish=$$H^%LN200(bisdat) . s dath=$$H^%LN200(1000000-dat) . I +datbish,datbish<$H q . I +nsw,datbish=0 q . I datbish=0,dath'>$H s nsw=1 . s hvart="0" f s hvart=$O(^PA(firma,60,vkgrp,2,kgrp,dat,1,hvart)) q:hvart="" d .. s ad=^(hvart) .. s obj=##class(inndata.kond).%New() .. s obj.firma=firma .. s obj.a=vkgrp .. s obj.k=kgrp .. s obj.komb="RG" .. s obj.rabbasis=$P(ad,%,1) .. s obj.kondart=$P(ad,%,2) .. s obj.datumab=dath .. s obj.datumbis=datbish .. s obj.menge=1 .. s obj.vart=$TR(hvart,"*","") .. I $P(ad,%,2)="%" s obj.rab1=$P(ad,%,3),obj.rab2=$P(ad,%,4) .. I $P(ad,%,2)="P" s obj.faktor=$P(ad,%,5) .. s obj.rabnetto=$P(ad,%,6) .. d obj.%Save() .. d obj.%Close() q berechnen(firma,knr,anr,dbpraefix) s x="s id=$O(^"_dbpraefix_"artikelI(""numartikel"",anr,""""))" X x q:id="" s x="s obj=##class("_dbpraefix_"artikel).%OpenId(id)" X x s preis("V")=obj.vkpreis s preis("B")=obj.bruttopreis s preis("Z")=obj.bruttozpreis s preis("N")=obj.nettopreis s preis("E")=obj.estpreis s abtnr=obj.abtnr I obj.nettopreis>obj.estpreis s preis("E")=obj.nettopreis s vkgrp=obj.vkgrp d obj.%Close() s x="s id=$O(^"_dbpraefix_"kundeI(""numkunde"",knr,""""))" X x q:id="" s x="s obj=##class("_dbpraefix_"kunde).%OpenId(id)" X x s rknr=obj.refkunde s kgrp=obj.kgrp if rknr'="" D . s x="s id=$O(^"_dbpraefix_"kundeI(""numkunde"",rknr,""""))" X x . q:id="" . d obj.%Close() . s x="s obj=##class("_dbpraefix_"kunde).%OpenId(id)" X x s rkgrp=obj.kgrp s hkgrp=obj.hkgrp I rknr="" s rknr=knr d obj.%Close() q:kgrp="" q:vkgrp="" k pr,pr1 s mapr=9999999999999 f vart="LA","LZ","SA","SZ" d . s pr(1,vart," ")=preis("V")_"|"_preis("V")_"|"_0_"|"_0 . I $D(^inndata.kvkpreisI("kgrp",firma,rkgrp,abtnr)) s pr(1,vart," ")=mapr_"|"_mapr_"|"_0_"|"_0 . I $D(^inndata.kvkpreisI("konto",firma,rknr,abtnr)) s pr(1,vart," ")=mapr_"|"_mapr_"|"_0_"|"_0 ; k komb s komb(anr,rknr)="" s komb(anr,rkgrp)="" s komb(vkgrp,rknr)="" s komb(vkgrp,rkgrp)="" f vart="LA","LZ","SA","SZ" d . s k1="" f s k1=$O(komb(k1)) q:k1="" d .. s k2="" f s k2=$O(komb(k1,k2)) q:k2="" d ... s datum=$H+1 f s datum=$O(^inndata.kondI("komb",firma,k1,k2,datum),-1) q:datum="" d .... s id="" f s id=$O(^inndata.kondI("komb",firma,k1,k2,datum,id)) q:id="" d ..... s obj=##class(inndata.kond).%OpenId(id) ..... if +obj.datumbis,obj.datumbis<$H q ..... if obj.vart'=$E(vart,1,$L(obj.vart)) q ..... s komb=obj.komb ..... i obj.rabbasis="E" d I 1 ...... s pr=$J(preis(obj.rabbasis)*obj.faktor,0,4) ...... s pr(obj.menge,vart,komb_obj.rabbasis)=pr_"|"_pr_"|||N" ..... e i +obj.netto s pr(obj.menge,vart,komb_obj.rabbasis)=obj.netto_"|"_obj.netto_"|||N" ..... e s pr(obj.menge,vart,komb_obj.rabbasis)=$J(preis(obj.rabbasis)*(100-obj.rab1/100)*(100-obj.rab2/100),0,4)_"|"_preis(obj.rabbasis)_"|"_obj.rab1_"|"_obj.rab2_"|"_obj.rabnetto ..... d obj.%Close() f vart="LA","LZ","SA","SZ" d . s preis=mapr . s pr1(vart,1)=preis . s me="" f s me=$O(pr(me)) q:me="" d .. s basis="" f s basis=$O(pr(me,vart,basis)) q:basis="" I pr(me,vart,basis)spanne S obj.betkond=$J(preis("N")*100/(100-sobj.MinSpanne),0,4),obj.prozkond="",sw=1 .... d sobj.%Close() .. ; .. i +sw=0 d ... s id=$O(^inndata.minspanneI("Index",firma,rkgrp,hvart,"")) ... i $L(id) d .... s sobj=##class(inndata.minspanne).%OpenId(id) .... I $L(sobj) d ..... i sobj.MinSpanne>spanne S obj.betkond=$J(preis("N")*100/(100-sobj.MinSpanne),0,4),obj.prozkond="",sw=1 ..... d sobj.%Close() .. ; .. i +sw=0 d ... s id=$O(^inndata.minspanneI("Index",firma,hkgrp,hvart,"")) ... i $L(id) d .... s sobj=##class(inndata.minspanne).%OpenId(id) .... I $L(sobj) d ..... i sobj.MinSpanne>spanne S obj.betkond=$J(preis("N")*100/(100-sobj.MinSpanne),0,4),obj.prozkond="",sw=1 ..... d sobj.%Close() .. ; .. I $D(^inndata.kvkpreisI("kgrp",firma,rkgrp,abtnr))!$D(^inndata.kvkpreisI("konto",firma,rknr,abtnr)) d ... I obj.betkond>preis("V") s obj.betkond=preis("V") .. .. I +obj.betkond!(+obj.prozkond) d obj.%Save() .. d obj.%Close() d aobj.%Close() k obj,aobj,sobj q ; div(a,b) i +b=0 q 0 q a/b ; test d ^BMINIT s anr="" f s anr=$O(^inndata.nadlartikelI("numartikel",anr)) q:anr="" d . s knr="" f s knr=$O(^inndata.nadlkundeI("numkunde",knr)) q:knr="" d .. u 0 W *13,anr," ",knr," " .. S VAR=FIRMA_%_anr_%_%DR_%_knr_%_0_%_%_"LA"_%_1_%_"E" .. S $P(VAR,%,17)=4 .. d ^BMVKP .. d berechnen(FIRMA,knr,anr,"inndata.nadl") .. s pr1=$P(VAR,%,8) .. s pr2=$P(pr1("LA",1),"|",1) .. i +pr1'=+pr2 W *13,anr," ",knr," ",$J(pr1,0,10)," ",$J(pr2,0,10),! Q freischalten(file) k names s names("inndata.atypD")="" s names("inndata.kondD")="" s names("inndata.kvkpreisD")="" s names("inndata.minspanneD")="" s names("inndata.paramD")="" s firma="" f s firma=$O(^inndata.paramD(firma)) q:firma="" d . s dbpraefix=##class(inndata.param).%OpenId(firma).dbpraefix . S names(dbpraefix_"artikelD")="" . s names(dbpraefix_"kundeD")="" . s names(dbpraefix_"liefD")="" . s names(dbpraefix_"match1D")="" . s names(dbpraefix_"wargrD")="" . ; . s names(dbpraefix_"artikelI")="" . s names(dbpraefix_"kundeI")="" . s names(dbpraefix_"liefI")="" . s names(dbpraefix_"match1I")="" s names("inndata.atypI")="" s names("inndata.kondI")="" s names("inndata.kvkpreisI")="" s names("inndata.minspanneI")="" S IOT="RMS",IO=file,IOPAR="WN" s erg=$$entry^%GOF(.names,"Inndata-Übertragung vom "_$ZDT($H),0) q ; NACHT S $ZT="NACHTE^BMINNDATA" s firma="" f s firma=$O(^inndata.paramD(firma)) q:firma="" d . s file=##class(inndata.param).%OpenId(firma).fileexport . s dbpraefix=##class(inndata.param).%OpenId(firma).dbpraefix . d artikelaufbau(firma,dbpraefix) . d kondaufbau(firma,dbpraefix) d freischalten(file) ; NACHTE S $ZT="" d ^%XTT S ERR="OK" I $L($ZE) S ERR=$ZE ZA ^NACHTERR I '$D(^NACHTERR(0)) S ^(0)=1 S CNT=^(0),^(0)=^(0)+1 ZD ^NACHTERR S ^NACHTERR(CNT)="Aufbau Inndata"_%_$ZD($H,3)_%_%TM_%_ERR q IMPORT N s firma=$O(^inndata.paramD(""),-1) q:firma="" d s file=##class(inndata.param).%OpenId(firma).fileimport d ##class(inndata.gateway).Import(file) q ]]> persistent 1 %Persistent 59704,792.582846 59719,46733.770863 0 %Integer %String firma,atyp 1 firma:%Integer %Integer 1 firma:%String %Integer 0) . S cnt=cnt+1 . S ^XW($J,cnt)=atyp_"|"_$$ASCIANSI^%UML(atypbez)_"|"_sw q $J ]]> %Library.CacheStorage ^inndata.atypD atypDefaultData ^inndata.atypD ^inndata.atypI ^inndata.atypS listnode %%CLASSNAME atyp firma 25.0000% 100.0000% persistent %Persistent 59718,62696.728812 59719,46733.830346 0 1 file:%String %Integer %Library.CacheStorage ^inndata.gatewayD gatewayDefaultData ^inndata.gatewayD ^inndata.gatewayI ^inndata.gatewayS listnode %%CLASSNAME persistent 1 %Persistent 59719,59518.592454 59719,46733.890909 0 %String %Integer %String %String %String %String %Currency %Date %Date %Currency %Currency %Currency %Currency %String %String firma,a,k,datumab 1 firma:%String %Integer 1 firma:%String,dbpraefix:%String %Integer %Library.CacheStorage ^inndata.kondD kondDefaultData ^inndata.kondD ^inndata.kondI ^inndata.kondS listnode %%CLASSNAME a datumab datumbis faktor firma k komb kondart menge netto rab1 rab2 rabbasis rabnetto vart persistent 1 %Persistent 59717,77128.386916 59719,46733.948037 0 %Integer %String %String %Integer firma,kgrp,abtnr firma,konto,abtnr 1 firma:%String %Library.CacheStorage ^inndata.kvkpreisD kvkpreisDefaultData ^inndata.kvkpreisD ^inndata.kvkpreisI ^inndata.kvkpreisS listnode %%CLASSNAME abtnr firma kgrp konto persistent 1 merkliste %Persistent 59764,56933.276415 59804,52056.519999 0 %Library.Integer %Library.Integer %Library.CacheStorage ^inndata.merklisteD merklisteDefaultData ^inndata.merklisteD ^inndata.merklisteI ^inndata.merklisteS listnode %%CLASSNAME artikelid id uid persistent 1 %Persistent 59804,52176.965051 59804,52902.058783 0 %Integer %String %String %Currency Firma,Kunde,HVart %Library.CacheStorage ^inndata.minspanneD minspanneDefaultData ^inndata.minspanneD ^inndata.minspanneI ^inndata.minspanneS listnode %%CLASSNAME Firma HVart Kunde MinSpanne persistent 1 moe_artikel %Persistent 59927,72610.434817 59719,46734.065683 0 %Library.Currency %Library.Currency %Library.String %Library.Currency %Library.Currency %Library.Currency %Library.Currency %Library.Currency %Library.Currency %Library.String %Library.Integer %Library.String %Library.String %Library.String %Library.String %Library.Currency %Library.Currency %Library.String %Library.String %Library.String %Library.String %Library.String %Library.Currency %String %String numartikel 1 firma:%String,dbpraefix:%String %Integer 1 file:%String %Integer %Library.CacheStorage ^inndata.moeartikelD moeartikelDefaultData ^inndata.moeartikelD ^inndata.moeartikelI ^inndata.moeartikelS listnode %%CLASSNAME abtnr anzpehfaktor anzstaffelmenge bestellnummer betlistenpreis bruttopreis bruttozpreis ean estpreis firmennummer idhgr idugr jnlagerfuehrend lagerstand nettopreis numartikel peh prozust txtartikel1 txtartikel2 txthinweis txtmengeneinheit txtstaffeleinheit vkgrp vkpreis persistent 1 moe_artkon %Persistent 59927,72711.146668 59719,46734.122523 0 21 inndata.moe %Library.Currency %Library.Currency %Library.Currency %Library.Currency %Library.String %Library.Integer %Library.Currency %Library.String %Library.String %Library.String %Library.String numkunde,numartikel,txtvart,anzstaffelmenge 1 knr:%String,anr:%String %Integer moe_berechnen 1 %Library.CacheStorage ^inndata.moeartkonD moeartkonDefaultData ^inndata.moeartkonD ^inndata.moeartkonI ^inndata.moeartkonS listnode %%CLASSNAME anzpehfaktor anzstaffelmenge betkond betrabbasis numartikel numkunde prozkond txthinweis txtmengeneinheit txtstaffeleinheit txtvart persistent 1 moe_kunde %Persistent 59927,72767.465009 59719,46734.17783 0 %Library.Integer %Library.Integer %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %String %String numkunde 1 firma:%String,knr:%String %String 1 firma:%Integer,dbpraefix:%String %String 1 firma:%String,ad:%String,dbpraefix:%String %Integer %Library.CacheStorage ^inndata.moekundeD moekundeDefaultData ^inndata.moekundeD ^inndata.moekundeI ^inndata.moekundeS listnode %%CLASSNAME hkgrp kgrp numkunde refkunde txtkunde1 txtkunde2 txtkunde3 txtort txtplz txtstrasse persistent 1 moe_lief %Persistent 59927,72814.453656 59719,46734.230751 0 firmennr %Library.Integer %Library.String %Library.CacheStorage ^inndata.moeliefD moeliefDefaultData ^inndata.moeliefD ^inndata.moeliefI ^inndata.moeliefS listnode %%CLASSNAME firmennr lieferant persistent 1 moe_match1 %Persistent 59927,72877.312003 59719,46734.2859 0 numartikel %Library.String 3 %Library.String 2 %Library.CacheStorage ^inndata.moematch1D moematch1DefaultData ^inndata.moematch1D ^inndata.moematch1I ^inndata.moematch1S listnode %%CLASSNAME match1 numartikel persistent 1 moe_merkliste %Persistent 59927,72920.467899 59719,46734.342383 0 %Library.Integer %Library.Integer %Library.Integer %Library.CacheStorage ^inndata.moemerklisteD moemerklisteDefaultData ^inndata.moemerklisteD ^inndata.moemerklisteI ^inndata.moemerklisteS listnode %%CLASSNAME artikelid id uid persistent 1 moe_wargr %Persistent 59939,62138.647735 59719,46734.397514 0 %Library.String %Library.String 1 dbpraefix:%String %Integer %Library.CacheStorage ^inndata.moewargrD moewargrDefaultData ^inndata.moewargrD ^inndata.moewargrI ^inndata.moewargrS listnode %%CLASSNAME numwarengruppe txtwarengruppe persistent 1 moez_artikel %Persistent 59927,73123.288237 59719,46734.065683 0 %Library.Currency %Library.Currency %Library.String %Library.Currency %Library.Currency %Library.Currency %Library.Currency %Library.Currency %Library.Currency %Library.String %Library.Integer %Library.String %Library.String %Library.String %Library.String %Library.Currency %Library.Currency %Library.String %Library.String %Library.String %Library.String %Library.String %Library.Currency %String %String numartikel 1 firma:%String,dbpraefix:%String %Integer 1 file:%String %Integer %Library.CacheStorage ^inndata.moezartikelD moezartikelDefaultData ^inndata.moezartikelD ^inndata.moezartikelI ^inndata.moezartikelS listnode %%CLASSNAME abtnr anzpehfaktor anzstaffelmenge bestellnummer betlistenpreis bruttopreis bruttozpreis ean estpreis firmennummer idhgr idugr jnlagerfuehrend lagerstand nettopreis numartikel peh prozust txtartikel1 txtartikel2 txthinweis txtmengeneinheit txtstaffeleinheit vkgrp vkpreis persistent 1 moez_artkon %Persistent 59927,73517.48732 59719,46734.122523 0 22 inndata.moez %Library.Currency %Library.Currency %Library.Currency %Library.Currency %Library.String %Library.Integer %Library.Currency %Library.String %Library.String %Library.String %Library.String numkunde,numartikel,txtvart,anzstaffelmenge 1 knr:%String,anr:%String %Integer moez_berechnen 1 %Library.CacheStorage ^inndata.moezartkonD moezartkonDefaultData ^inndata.moezartkonD ^inndata.moezartkonI ^inndata.moezartkonS listnode %%CLASSNAME anzpehfaktor anzstaffelmenge betkond betrabbasis numartikel numkunde prozkond txthinweis txtmengeneinheit txtstaffeleinheit txtvart persistent 1 moez_kunde %Persistent 59927,73228.538791 59719,46734.17783 0 %Library.Integer %Library.Integer %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %String %String numkunde 1 firma:%String,knr:%String %String 1 firma:%Integer,dbpraefix:%String %String 1 firma:%String,ad:%String,dbpraefix:%String %Integer %Library.CacheStorage ^inndata.moezkundeD moezkundeDefaultData ^inndata.moezkundeD ^inndata.moezkundeI ^inndata.moezkundeS listnode %%CLASSNAME hkgrp kgrp numkunde refkunde txtkunde1 txtkunde2 txtkunde3 txtort txtplz txtstrasse persistent 1 moez_lief %Persistent 59927,73266.709055 59719,46734.230751 0 firmennr %Library.Integer %Library.String %Library.CacheStorage ^inndata.moezliefD moezliefDefaultData ^inndata.moezliefD ^inndata.moezliefI ^inndata.moezliefS listnode %%CLASSNAME firmennr lieferant persistent 1 moez_match1 %Persistent 59927,73295.663536 59719,46734.2859 0 numartikel %Library.String 3 %Library.String 2 %Library.CacheStorage ^inndata.moezmatch1D moezmatch1DefaultData ^inndata.moezmatch1D ^inndata.moezmatch1I ^inndata.moezmatch1S listnode %%CLASSNAME match1 numartikel persistent 1 moez_merkliste %Persistent 59927,73323.618601 59719,46734.342383 0 %Library.Integer %Library.Integer %Library.Integer %Library.CacheStorage ^inndata.moezmerklisteD moezmerklisteDefaultData ^inndata.moezmerklisteD ^inndata.moezmerklisteI ^inndata.moezmerklisteS listnode %%CLASSNAME artikelid id uid persistent 1 moez_wargr %Persistent 59939,62641.140013 59719,46734.397514 0 %Library.String %Library.String 1 dbpraefix:%String %Integer %Library.CacheStorage ^inndata.moezwargrD moezwargrDefaultData ^inndata.moezwargrD ^inndata.moezwargrI ^inndata.moezwargrS listnode %%CLASSNAME numwarengruppe txtwarengruppe persistent 1 %Persistent 59718,59257.73171 59719,46734.453756 0 %Integer %String %String %String %String %String 1 firma 1 %Library.CacheStorage ^inndata.paramD paramDefaultData ^inndata.paramD ^inndata.paramI ^inndata.paramS listnode %%CLASSNAME dbgateway dbpraefix fileexport fileimport liprart persistent 1 %Persistent 59764,49087.637955 59778,51550.2045 0 %Integer %Library.String %Library.String firma,numwarengruppe 1 firma:%Integer %Integer 1 firma:%String %Integer %Library.CacheStorage ^inndata.wargrD wargrDefaultData ^inndata.wargrD ^inndata.wargrI ^inndata.wargrS listnode %%CLASSNAME firma numwarengruppe txtwarengruppe