30!($L(obj.bez3)>30)!($L(obj.bez3)>30) w bez.anr,! . d obj.%Save() . d obj.%Close() q KBEZ d ^BMINIT S FIRMA=$P(^FA(0),%,1) s idkopf="" f s idkopf=$O(^inndatap.posD(idkopf)) q:idkopf="" d . s pos="" f s pos=$O(^inndatap.posD(idkopf,pos)) q:pos="" d .. s obj=##class(inndatap.pos).%OpenId(idkopf_"||"_pos) .. q:obj="" .. s ANR=obj.anr .. d obj.%Close() .. Q:ANR="" .. I $D(^AA(FIRMA,ANR,1))#2 S KBEZ=$P(^(1),%,1) .. E Q .. S KBEZ1=$$ANSIASCI^%UML($$kbez($$ASCIANSI^%UML(KBEZ))) .. I KBEZ'=KBEZ1 D ... W *13,idkopf,?5,ANR,?13,KBEZ,?45,KBEZ1,! ... S $P(^AA(FIRMA,ANR,1),%,1)=KBEZ1 d ART^BMCINIT q ZUSCH d ^BMINIT W "Firma: " R FIRMA W ! W "Ersetzen J/N: " R UPD Q:FIRMA="" Q:UPD="" d ^%DRU E Q D OPEN^%DRU,USE^%DRU W *13 S FIRMA=$P(^FA(0),%,1) s idkopf="" f s idkopf=$O(^inndatap.posD(idkopf)) q:idkopf="" d . s obj=##class(inndatap.downloads).%OpenId(idkopf) . q:obj="" . s LNR=obj.lnr . d obj.%Close() . k obj1 . s pos="" f s pos=$O(^inndatap.posD(idkopf,pos)) q:pos="" d .. s obj=##class(inndatap.pos).%OpenId(idkopf_"||"_pos) .. q:obj="" .. s ANR=obj.anr .. d obj.%Close() .. Q:ANR="" .. s ABDAT1=$O(^AA(FIRMA,ANR,10,LNR,1,"")) .. i ABDAT1="" Q .. I $L(ABDAT1) S ABDAT2=$O(^AA(FIRMA,ANR,10,LNR,1,ABDAT1)) .. i ABDAT2="" Q .. S AD1="" I $D(^AA(FIRMA,ANR,10,LNR,1,ABDAT1,0))#2 S AD1=^(0) .. S AD2="" I $D(^AA(FIRMA,ANR,10,LNR,1,ABDAT2,0))#2 S AD2=^(0) .. I $L(AD1),$L(AD2),$P(AD1,%,3)="",$P(AD2,%,3)'="" d ... W *13,ANR,?8,$P(AD2,%,3),?15,$P(^AA(FIRMA,ANR,1),%,7),! ... I $ZCONVERT(UPD,"U")="J" S $P(^AA(FIRMA,ANR,10,LNR,1,ABDAT1,0),%,3,4)=$P(AD2,%,3,4) W *12 D CLOSE^%DRU q NETTO d ^BMINIT W "Firma: " R FIRMA W ! W "Ersetzen J/N: " R UPD Q:FIRMA="" Q:UPD="" d ^%DRU E Q D OPEN^%DRU,USE^%DRU W *13 S FIRMA=$P(^FA(0),%,1) s idkopf="" f s idkopf=$O(^inndatap.posD(idkopf)) q:idkopf="" d . s obj=##class(inndatap.downloads).%OpenId(idkopf) . q:obj="" . s LNR=obj.lnr . d obj.%Close() . k obj1 . s pos="" f s pos=$O(^inndatap.posD(idkopf,pos)) q:pos="" d .. s obj=##class(inndatap.pos).%OpenId(idkopf_"||"_pos) .. q:obj="" .. s ANR=obj.anr .. d obj.%Close() .. Q:ANR="" .. s ABDAT1=$O(^AA(FIRMA,ANR,10,LNR,1,"")) .. Q:ABDAT1="" .. S AD0="" I $D(^AA(FIRMA,ANR,10,LNR,1,ABDAT1,0))#2 S AD0=^(0) .. s ABDAT1=$O(^AA(FIRMA,ANR,10,LNR,2,"N","")) .. i ABDAT1="" Q .. I $L(ABDAT1) S ABDAT2=$O(^AA(FIRMA,ANR,10,LNR,2,"N",ABDAT1)) .. i ABDAT2="" Q .. S AD1="" I $D(^AA(FIRMA,ANR,10,LNR,2,"N",ABDAT1,1,999999))#2 S AD1=^(999999) .. S AD2="" I $D(^AA(FIRMA,ANR,10,LNR,2,"N",ABDAT2,1,999999))#2 S AD2=^(999999) .. I $L(AD1),$L(AD2),$P(AD1,%,1)="%",$P(AD0,%,5)="",+$P(AD1,%,2)=0 D ... W *13,LNR,?8,ANR,?15,$P(AD2,%,3),?25,$P(^AA(FIRMA,ANR,1),%,7),! ... I $ZCONVERT(UPD,"U")="J" d .... K ^AA(FIRMA,ANR,10,LNR,2,"N",ABDAT1,1,999999) .... K ^AA(FIRMA,ANR,10,LNR,2,"N",ABDAT1,0) W *12 D CLOSE^%DRU q TSTART d ^BMINIT W "Firma: " R FIRMA W ! Q:FIRMA="" d ^%DRU E Q D OPEN^%DRU,USE^%DRU W *13 S FIRMA=$P(^FA(0),%,1) s idkopf="" f s idkopf=$O(^inndatap.posD(idkopf)) q:idkopf="" d . s obj=##class(inndatap.downloads).%OpenId(idkopf) . q:obj="" . s LNR=obj.lnr . d obj.%Close() . k obj1 . s pos="" f s pos=$O(^inndatap.posD(idkopf,pos)) q:pos="" d .. s obj=##class(inndatap.pos).%OpenId(idkopf_"||"_pos) .. q:obj="" .. s ANR=obj.anr .. d obj.%Close() .. Q:ANR="" .. I $P($G(^AA(FIRMA,ANR,2)),%,9)="" W *13,ANR," " q TSTKBEZ d ^BMINIT W "Firma: " R FIRMA W ! W "Ersetzen J/N: " R UPD Q:FIRMA="" Q:UPD="" d ^%DRU E Q D OPEN^%DRU,USE^%DRU W *13 S FIRMA=$P(^FA(0),%,1) s idkopf="" f s idkopf=$O(^inndatap.posD(idkopf)) q:idkopf="" d . s obj=##class(inndatap.downloads).%OpenId(idkopf) . q:obj="" . s LNR=obj.lnr . d obj.%Close() . k obj1 . s pos="" f s pos=$O(^inndatap.posD(idkopf,pos)) q:pos="" d .. s obj=##class(inndatap.pos).%OpenId(idkopf_"||"_pos) .. q:obj="" .. s ANR=obj.anr .. s kbez=$$kbez(obj.bez1) .. d obj.%Close() .. I kbez="" W *13,ANR,?10,$P(^AA(FIRMA,ANR,1),%,7),! W *12 D CLOSE^%DRU q KFSOLL d ^BMINIT W "Firma: " R FIRMA W ! Q:FIRMA="" S FIRMA=$P(^FA(0),%,1) s idkopf=1 s pos="" f s pos=$O(^inndatap.posD(idkopf,pos)) q:pos="" d . s obj=##class(inndatap.pos).%OpenId(idkopf_"||"_pos) . q:obj="" . w obj.anr,! . q . s obj.kfsoll=1 . s obj.vkexcl=brutto . s obj.vkincl=$J(obj.vkexcl*obj.mcproz/100,0,2) . d obj.%Save() . d obj.%Close() k obj ]]> persistent 1 %Persistent 59858,57846.619162 59931,71436.670985 0 %Integer %String %String %String %Date %Date %Float %String %String %Integer %Integer 1 firma,lnr 1 %SQLQuery firma:%String,lnr:%String SELECT %ID,atyp,wargr,ekdat,vkdat,kfsoll,indikator,acod,ekdataktiv,vkdataktiv FROM defaults where firma=:firma and lnr=:lnr %Library.CacheStorage ^inndatap.defaultsD defaultsDefaultData ^inndatap.defaultsD ^inndatap.defaultsI ^inndatap.defaultsS listnode %%CLASSNAME abtnr atyp ekdat firma kfsoll lnr mcproz vkdat wargr indikator acod ekdataktiv vkdataktiv persistent 1 %Persistent 59931,72626.558168 59931,71436.731797 0 %Integer %Date %String %Integer %Integer %Integer 1 firma:%Integer,lnr:%Integer %String 1 id:%String %Integer 1 firma:%Integer %String %SQLQuery pfirma:%Integer SELECT %ID,datum,pcode,lnr,$$LNAME^BMINNDPR(firma,lnr),status,sets FROM downloads WHERE (firma = :pfirma) %Library.CacheStorage ^inndatap.downloadsD downloadsDefaultData ^inndatap.downloadsD ^inndatap.downloadsI ^inndatap.downloadsS listnode %%CLASSNAME datum firma lnr pcode status zeilenanzahl sets persistent %Persistent 60246,52869.889341 59931,71436.79429 0 %Integer %String %String %String %String %Date %Float %Float %Float %Float idkopf,ekgrp 1 id:%Integer,ekgrpbm:%String,ekgrpbez:%String,datum:%String,rab1:%Float,rab2:%Float,rab3:%Float,rab4:%Float %Integer 1 idkopf:%String,pcode:%String,freigjn:%String %Integer 1 id1:%Integer,idkopf:%Integer,datum:%String %Integer %SQLQuery idkopf:%String SELECT %ID,ekgrp,ekgrpbm,ekgrpbez,artbez, datum,rab1,rab2,rab3,rab4,$$ekst^BMINNDPR(%ID,idkopf) FROM ekgrp WHERE (idkopf = :idkopf) order by ekgrp %Library.CacheStorage ^inndatap.ekgrpD ekgrpDefaultData ^inndatap.ekgrpD ^inndatap.ekgrpI ^inndatap.ekgrpS listnode %%CLASSNAME ekgrp firma artbez ekgrpbez idkopf ekgrpbm datum rab1 rab2 rab3 rab4 persistent 1 %Persistent 60245,53812.671408 59931,71436.85628 0 1 firma,anr,lnr 1 %Integer %Integer %Integer %String %Float firma,bestnr,lnr,anr %Library.CacheStorage ^inndatap.faktorD faktorDefaultData ^inndatap.faktorD ^inndatap.faktorI ^inndatap.faktorS listnode %%CLASSNAME bestnr faktor persistent 1 %Persistent 59767,57632.961492 59931,71436.917541 0 %String %Integer %String 1 firma,liefid 1 1 firma:%Integer,liefid:%String %String %Library.CacheStorage ^inndatap.liefidD liefidDefaultData ^inndatap.liefidD ^inndatap.liefidI ^inndatap.liefidS listnode %%CLASSNAME lnr persistent %Persistent 60281,72484.179909 59931,71436.997975 0 %String %String %String %String %String %String %String %String %String %String %String %String %String %String %Float %Float %String %String %Float %Float %String %Integer %String %String %Integer %Integer %String %Date %Float %Integer %Integer %String %String %String %String %Float %String %Float %Float %Integer %String %Date %String %Float %Float %Float %Float %Float %Float %String %Date %Float %Float %Float %Float %String %Integer 1 id1,pos 1 id1,anr ean basic 1 firma:%Integer,lnr:%String,id1:%String %String 1 firma:%Integer,id1:%String,anr:%String,lnr:%String,anro:%String %Integer 1 firma:%Integer,lnr:%Integer %String 1 firma:%String,lnr:%String,anr:%String,ekgrp:%String %String 1 firma:%String,anr:%String %String 1 firma:%String,anr:%String,vkdat:%Date %String 1 firma:%String,lnr:%String,anr:%String,ekgrp:%String,dat:%Date %String 1 firma:%String,lnr:%String,ekgrp:%String,datum:%Date %String 1 firma:%String,wargr:%String %String 1 idkopf:%Integer,id1:%Integer,zeile:%String,updsw:%String,anr1:%String %Integer 30 s bez1=bez,bez2="",bez3="" .. e d ... s t=0 ... f i=30:-1:1 I $E(bez,i)=" " s t=i q ... i +t=0 s bez1=$E(bez,1,30),bez2=$E(bez,31,60),bez3="",bez="" ... e s bez1=$E(bez,1,t-1),bez=$E(bez,t+1,60) ... i $L(bez) d .... i $L(bez)'>30 s bez2=bez,obj.bez3="" q .... s t=0 .... f i=30:-1:1 I $E(bez,i)=" " s t=i q .... i +t=0 s bez2=$E(bez,1,30),bez3=$E(bez,31,60),bez3="" .... e s bez2=$E(bez,1,t-1),bez3=$E(bez,t+1,60) . ; . s ere=inpere . I anr="" d .. s vre=inpere .. s vke=inpvke .. s vpe=inpvpe .. i vke="" s vke=vre .. i vpe="" s vpe=vke .. i ebe="" s ebe=vke .. s vrm=$TR(inpvrm,",",".") .. i vrm=0 s vrm=1 .. s vpi=$TR(inpvpi/vrm,",",".") .. s:+vpi=0 vpi=1 .. s:+vrm=0 vrm=1 .. s vpm=epm,epmbm=epm,erebm=vre,evm=1,ebe=vpe .. s ekgrp=inpgrp .. s (rab1,rab2,rab3,rab4)=0 .. s kbez=$$kbez^BMINNDPR(bez1) . ; . s bruttovk=$TR(inppreis,",",".")*faktor/epmbm/evm*vpm . s brutto=$TR(inppreis,",",".")*faktor . i rabtyp="%" s netto=$J(bruttovk*(100-rab1/100)*(100-rab2/100)*(100-rab3/100)*(100-rab4/100),0,4) . s est=netto+nebkost . i +kfsoll s vkexcl=bruttovk*kfsoll . s vkincl=vkexcl*(100+mcproz)/100 . s spanne=0 I +vkexcl s spanne=(vkexcl-est)/vkexcl*100 . i +ekdat=0 s ekdat=ekdatd . i +vkdat=0 s vkdat=vkdatd . i anr="" s (ekdat,vkdat)=$H+1 . s obj.preis=$TR(inppreis,",",".") . s obj.datum=datum . s obj.id1=idkopf . s obj.anr=anr . s obj.bez=inpbez . s obj.kbez=kbez . s obj.bez1=bez1 . s obj.bez2=bez2 . s obj.bez3=bez3 . s obj.wargr=wargr . s obj.abtnr=abtnr . s obj.atyp=atyp . s obj.vke=vke . s obj.vre=vre . s obj.vpe=vpe . s obj.vpi=vpi . s obj.vrm=vrm . s obj.vpm=vpm . s obj.mcproz=mcproz . s obj.bestnrbm=bestnrbm . s obj.eanbm=eanbm . s obj.ebe=ebe . s obj.erebm=erebm . s obj.epmbm=epmbm . s obj.ere=ere . s obj.epm=epm . s obj.hlief=hlief . s obj.faktor=faktor . s obj.brutto=brutto . s obj.evm=evm . s obj.mibeme=mibeme . s obj.ekgrp=ekgrp . s obj.ekdat=ekdat . s obj.rabtyp=rabtyp . s obj.rab1=rab1 . s obj.rab2=rab2 . s obj.rab3=rab3 . s obj.rab4=rab4 . s obj.netto=netto . s obj.nebkost=nebkost . s obj.vkrabgr=vkrabgr . s obj.vkdat=vkdat . s obj.kfsoll=kfsoll . s obj.vkexcl=vkexcl . s obj.vkincl=vkincl . s obj.spanne=spanne . s obj.acod=acod . s obj.status=0 . . i updsw="N" s obj.pos=downl.sets+1,downl.sets=downl.sets+1 d downl.%Save() . d downl.%Close() . d obj.%Save() . d obj.%Close() . i $L(ekgrp) d .. s ekgrp1=$$ANSIASCI^%UML(ekgrp) .. s id=$O(^inndatap.ekgrpI("Index",idkopf,ekgrp,"")) .. i id="" s obj=##class(inndatap.ekgrp).%New() I 1 .. e s obj=##class(inndatap.ekgrp).%OpenId(id) .. s obj.idkopf=idkopf .. s obj.ekgrp=ekgrp .. i $L(ekdatd) s obj.datum=ekdatd .. e s obj.datum=+$H .. I $D(^BZ(firma,"L",lnr,10,ekgrp1,0))#2 d ... s obj.ekgrpbez=$$ASCIANSI^%UML($P(^(0),"`",1)) ... s obj.ekgrpbm=ekgrp ... s datum=$O(^BZ(firma,"L",lnr,10,ekgrp1,1,"N",999999-%DR)) ... i datum'="",$D(^(datum,0))#2 d .... s ad=^(0) .... s obj.datum=$$H^%LN200(1000000-datum) .... s obj.rab1=$P(ad,"`",3) .... s obj.rab2=$P(ad,"`",4) .... s obj.rab3=$P(ad,"`",5) .... s obj.rab4=$P(ad,"`",6) .. s obj.artbez=bez .. d obj.%Save() .. d obj.%Close() k downl,obj ]]> 1 firma:%String,anr:%String,faktor:%Float,lnr:%String %Integer 1 firma:%Integer,liefid:%String,lnr:%String %Integer 1 firma:%Integer,anr:%Integer,lnr:%Integer,datum:%Date %Float 1 firma:%String,id:%String,lnr:%String,pcode:%String,freigjn:%String,updnr:%String,vkanl:%String,freigartjn:%String,ekanl:%String,kondanl:%String,bezanl:%String,neuanl:%String,update:%String,stamm:%String %Integer 1 id1:%Integer,ean:%String %String 1 firma:%String,lnr1:%String,anr1:%String,ean1:%String,id1:%Integer %Integer %SQLQuery id1:%String,idpos:%String SELECT %ID,bestnr,bez,datum,preis,epm,ere,anr,bez1,bez2,bez3,epmbm, erebm,prdiff,atyp,wargr,abtnr,vke,vpe,vpi,vre,vrm,vpm,mcproz, palart,palje,palab,bestnrbm,eanbm,ebe,hlief,faktor,brutto,ere, epm,evm,mibeme,ekgrp,ekdat,rabtyp,rab1,rab2,rab3,rab4,netto,nebkost, vkrabgr,vkdat,kfsoll,vkexcl,vkincl,spanne,acod,status FROM pos where id1=:id1 and (:idpos is null or %ID=:idpos) %Library.CacheStorage ^inndatap.posD posDefaultData ^inndatap.posD ^inndatap.posI ^inndatap.posS listnode %%CLASSNAME liefid bestnr bez1 bez2 bez3 datum ean kbez preis vke vpe vpi vre vrm epm ere anr erebm prdiff epmbm bez atyp abtnr wargr vpm mcproc mcproz bestean bestnrbm palab palart palje eanbm ebe hlief faktor brutto evm ekgrp mibeme ekdat nebkost netto rab1 rab2 rab3 rab4 spabbe vkdat vkexcl vkincl vkrabgr spanne kfsoll rabtyp zeile acod status