999 . s (ekp,bnr)="" I $D(^AU(firma,fil,0,aunr1,10,pos,2))#2 q:$P(^(2),"`",1)'=lnr s bnr=$P(^(2),"`",3),ekp=$P(^(2),"`",28) . E Q . s bez="" I $D(^AU(firma,fil,0,aunr1,10,pos,0))#2 S bez=$$ASCIANSI^%UML($P(^(0),"`",3)_" "_$P(^(0),"`",4)) . s (renr,lrenr,lsnr)="" . s wepos="" f s wepos=$O(^AU(firma,fil,0,aunr1,10,pos,2,wepos)) q:wepos="" d .. s (lsnr,bepos)="" I $D(^(wepos))#2 s lsnr=$P(^(wepos),"`",3),bepos=$P(^(wepos),"`",4) .. s rnr="",mevke=0 i $L(bnr),$L(lsnr),$D(^WE(firma,fil,0,lnr,lsnr,1,bnr,bepos,0))#2 s mevke=mevke+$P(^(0),"`",2),rnr=$P(^(0),"`",7) .. i rnr="" s cnt=cnt+1,^XW($J,cnt)=aunr1_"|"_audat_"|"_kname_"|"_pos_"|"_bez_"|"_""_"|"_""_"|"_lsnr_"|"_aunr1_"|"_bnr_"|"_mevke_"|"_ekp_"|"_anr1 q .. ; .. for ii1=1:1:$L(rnr,",") d ... s rnr1=$P(rnr,",",ii1) q:rnr1="" ... s lrenr="" I $L(rnr1),$D(^ER(firma,fil,0,"ER",rnr1,0))#2 s lrenr=$P(^(0),%,4) ... s cnt=cnt+1 ... s ^XW($J,cnt)=aunr1_"|"_audat_"|"_kname_"|"_pos_"|"_bez_"|"_rnr1_"|"_lrenr_"|"_lsnr_"|"_aunr1_"|"_bnr_"|"_mevke_"|"_ekp_"|"_anr1 q ; bonnr s knr2="" s pos="" f s pos=$O(^STT(firma,fil,2,audat,"KA",aunr1,1,pos)) q:pos="" d q:cnt>999 . I $D(^(pos))#2 s ad=^(pos) . E q . s anr2=$P(ad,"`",1) . I $L(anr1),+anr1'=+anr2 Q . I knr2="" d .. s knr2=$P($G(^STT(firma,fil,2,audat,"KA",aunr1,0)),"`",4) .. I knr2="" s knr2=99999 .. s kname="" I $L(knr2),$D(^B(firma,"K",knr2,1))#2 s kname=$P(^(1),"`",2) .. s kname=$$ASCIANSI^%UML(kname) . s mevke=$P(ad,"`",2) . s bez=$$ASCIANSI^%UML($P($G(^AA(firma,anr1,1)),"`",7)) . s ekp=0 I +mevke s ekp=$J($P(ad,"`",4)/mevke,0,4) . s cnt=cnt+1 . S ^XW($J,cnt)=aunr1_"|"_audat_"|"_kname_"|"_pos_"|"_bez_"||||"_aunr1_"||"_mevke_"|"_ekp_"|"_anr2 Q ; DruckenKu(FIRMA,FIL,BELNR,DEV,PCODE,NOTNR,DEMOJN,NACHDRJN,SUBNR,RETDATUM,KNR) N (FIRMA,FIL,BELNR,DEV,PCODE,NOTNR,DEMOJN,NACHDRJN,SUBNR,RETDATUM,KNR) S KKR="K" s oldio=$I s PCODE=$$ANSIASCI^%UML(PCODE) s erg=$$DR() K ^%FAXSV($J) I +DEMOJN=0,$$GET^BMXOBJ("ARCHIV","Aktiv")="J" D . S DEV=54,NACHDRJN=1 . D LOE^BMARCHIV s erg=$$DR() D ANF^BMARCHIV(FIRMA,"J","RW",BELNR_"/K"_SUBNR,DATUM,"K",+KNR,PCODE) U oldio Q erg ; DruckenLi(FIRMA,FIL,BELNR,DEV,PCODE,NOTNR,DEMOJN,NACHDRJN,SUBNR,RETDATUM) N (FIRMA,FIL,BELNR,DEV,PCODE,NOTNR,DEMOJN,NACHDRJN,SUBNR,RETDATUM) S KKR="L" s oldio=$I s PCODE=$$ANSIASCI^%UML(PCODE) s erg=$$DR() K ^%FAXSV($J) I +DEMOJN=0,$$GET^BMXOBJ("ARCHIV","Aktiv")="J" D . S DEV=54,NACHDRJN=1 . D LOE^BMARCHIV s erg=$$DR() D ANF^BMARCHIV(FIRMA,"J","RW",BELNR_"/L"_SUBNR,DATUM,"L",+LNR,PCODE) U oldio Q erg ; DR() d ^%XTT S $P(^MENUE(0,$J),%,3)="NADLINGER" S ^FA($J)=^FA(0) S WJ=$P(^FA(0),%,2) S %HIN=1 S LISTE=$S(KKR="L":"8/60",1:"8/62") s id=$O(^RETOUREK.KopfI("Belegnr",FIRMA,FIL,BELNR,"")) Q:id="" -2 ; s obj=##class(RETOUREK.Kopf).%OpenId(id) i obj="" q -3 ; S LNR=obj.Lnr S INFO1="",INFO2="" S BELART="RW" S BELBEZ=$P(^PA(FIRMA,20,WJ,BELART),%,2) S DATUM=$$TXT8^%LN200(obj.Datum) S AD="" I $D(^B(FIRMA,KKR,$S(KKR="L":LNR,1:KNR),1))#2 s AD=^(1) S NAME=$P(AD,%,2),BRANCH=$P(AD,%,3),STRASSE=$P(AD,%,4),LAND=$P(AD,%,5),PLZ=$P(AD,%,6),ORT=$P(AD,%,7),FAX=$P(AD,%,10) s idr=$O(^RETOUREK.ArtI("Art",FIRMA,FIL,obj.RetourArt,"")) s RARTBEZ="" I $L(idr) s RARTBEZ=$$ANSIASCI^%UML(##class(RETOUREK.Art).%OpenId(idr).Bez) s idr=$O(^RETOUREK.TypI("Typ",FIRMA,FIL,obj.RetourTyp,"")) S RTYPBEZ="" I $L(idr) s RTYPBEZ=$$ANSIASCI^%UML(##class(RETOUREK.Typ).%OpenId(idr).Bez) S UEBER=$E($$GET^BMXOBJ("BEST","UEBER"),1,127) S UEBER1=$E($$GET^BMXOBJ("BEST","UEBER1"),1,127) S UEBER2=$E($$GET^BMXOBJ("BEST","UEBER2"),1,127) S (ILN,HGGN,ILNK)="" I KKR="L",$$TXT7^%LN200(obj.Datum)>1040000,$D(^BZ(FIRMA,"L",+LNR,1))#2,$L($P(^(1),%,2))=6,$E($P(^(1),%,2),1)="9" D . I $D(^BZ(FIRMA,"L",+LNR,1))#2,$P(^(1),%,18)="M",$D(^PA(FIRMA,110,FIL))#2 S HGGN=$P(^(FIL),%,21),ILN=$P(^(FIL),%,23) . I $D(^BZ(FIRMA,"L",+LNR,1))#2,$P(^(1),%,18)'="M",$D(^PA(FIRMA,110,FIL))#2 S HGGN=$P(^(FIL),%,20),ILN=$P(^(FIL),%,22) I '$D(^MENUE($P($G(^MENUE(0,$J)),%,3),FIRMA,7)) S (UEBER,UEBER1,UEBER2)="" ; KEIN FIRMENKOPF I $L(ILN) S ILNK="ILN: "_$E(ILN,1,4)_" "_$E(ILN,5,7)_" "_$E(ILN,8,12)_" "_$E(ILN,13),ILN="ILN: "_ILN I $L(HGGN) S HGGN="Hagebau Ges.Nr.: "_HGGN S UEBER=$$FELD^BMBFDRU(UEBER) S UEBER1=$$FELD^BMBFDRU(UEBER1) S UEBER2=$$FELD^BMBFDRU(UEBER2) ; I +NACHDRJN=0 d . s obj.Subnr=obj.Subnr+1,SUBNR=obj.Subnr . s bobj=##class(RETOUREK.Beleg).%New(SUBNR) . s bobj.Subnr=SUBNR . s bobj.KKR=KKR . I KKR="K" s bobj.Knr=KNR . s bobj.Notnr=NOTNR . s bobj.Status=2 . s bobj.InfoDruck=PCODE_" "_$ZD($H,3) . s bobj.RetourDatum=RETDATUM . d obj.Beleg.Insert(bobj) . d bobj.%Close() E d . s bobj=##class(RETOUREK.Beleg).%OpenId(id_"||"_SUBNR) . S bobj.RetourDatum=RETDATUM . S bobj.Notnr=NOTNR . S WERT=bobj.Wert . d bobj.%Close() ; S RDATUM=$$TXT8^%LN200(RETDATUM) S AD="" I $D(^PA(FIRMA,110,FIL))#2 S AD=^(FIL) S RNAME=$P(AD,%,2),RBRANCH=$P(AD,%,3),RSTRASSE=$P(AD,%,4),RLAND=$P(AD,%,5),RPLZ=$P(AD,%,6),RORT=$P(AD,%,7) S (PNAME,PNR)="" I $D(^PA(FIRMA,100,PCODE))#2 S PNAME=$P(^(PCODE),%,1),PNR=$P(^(PCODE),%,2) S (DW,DWFAX)="" I $D(^PERS(FIRMA,PNR,0))#2 S DW=$P(^(0),%,7),DWFAX=$P(^(0),%,14),EMAIL=$P(^(0),%,13) S:$L(DWFAX) DWFAX=$$GET^BMXOBJ("FAXSERVER","FaxPr")_DWFAX I $L(EMAIL) S EMAIL=EMAIL_"@"_$$GET^BMXOBJ("EMAIL","DOMAIN") S BZ1=1 ; S WC=0 I $D(^B(FIRMA,"L",LNR,2))#2 S WC=$P(^(2),%,2) S WCKBEZ="" I $L(WC),$D(^BP(FIRMA,15,WC))#2 S WCKBEZ=$P(^(WC),%,4),KURS=$P(^(WC),%,6) I +NACHDRJN=0 D . S WERT=0 . s cnt="" f s cnt=obj.Pos.Next(cnt) Q:cnt="" d .. I +NACHDRJN=0,KKR="K",obj.Pos.GetAt(cnt).SubnrKunde>0 Q .. I +NACHDRJN=0,KKR="L",obj.Pos.GetAt(cnt).SubnrLief>0 Q .. I +NACHDRJN=0,KKR="K",obj.Pos.GetAt(cnt).Knr'=KNR Q .. I +$E(obj.Pos.GetAt(cnt).Verhalten,6,6) S WERT=WERT+$J(-obj.Pos.GetAt(cnt).EST*obj.Pos.GetAt(cnt).MeVRE/obj.Pos.GetAt(cnt).VPM*KURS,0,2) ; S DBELNR=BELNR_"/"_KKR_obj.Subnr S LNR=$E(LNR+1000000,2,7) I KKR="K" S KNR=$E(KNR+1000000,2,7) d OPEN^%DRU,USE^%DRU S sw=0 I $L(NOTNR) s CNT="" F S CNT=$O(^PA(FIRMA,30,NOTNR,1,CNT)) Q:CNT="" D . S TEXT=$$FELD^BMBFDRU(^(CNT)),TEXT1="" . I +sw=0,KKR="L" S sw=1,TEXT1="Warenwert : "_$J($FN(WERT,",",2),12)_" "_WCKBEZ . D Z^%LISTE I NOTNR="",KKR="L" D . S TEXT="",TEXT1="Warenwert : "_$J($FN(WERT,",",2),12)_" "_WCKBEZ . d Z^%LISTE I NOTNR="",KKR="K" D . S TEXT="",TEXT1="" . d Z^%LISTE D E^%LISTE D CLOSE^%DRU ; S LNRART=obj.LnrArt S LISTE=$S(KKR="L":"8/61",1:"8/63") d OPEN^%DRU,USE^%DRU s cnt="" f s cnt=obj.Pos.Next(cnt) Q:cnt="" d . I +NACHDRJN=0,KKR="K",obj.Pos.GetAt(cnt).SubnrKunde>0 Q . I +NACHDRJN=0,KKR="K",obj.Pos.GetAt(cnt).Knr'=(+KNR) Q . I +NACHDRJN=0,KKR="L",obj.Pos.GetAt(cnt).SubnrLief>0 Q . I +NACHDRJN,KKR="K",obj.Pos.GetAt(cnt).SubnrKunde'=SUBNR Q . I +NACHDRJN,KKR="L",obj.Pos.GetAt(cnt).SubnrLief'=SUBNR Q . ; . I KKR="K",$E(obj.Pos.GetAt(cnt).Verhalten,5,5)="0" Q . I KKR="L",$E(obj.Pos.GetAt(cnt).Verhalten,6,6)="0" Q . S TEXT=$$ANSIASCI^%UML("") . S EPM=1 . S ANR=obj.Pos.GetAt(cnt).Anr . S BEZ1=$$ANSIASCI^%UML(obj.Pos.GetAt(cnt).Bez1) . s BEZ2=$$ANSIASCI^%UML(obj.Pos.GetAt(cnt).Bez2) . S POS=obj.Pos.GetAt(cnt).Pos . S VKE=obj.Pos.GetAt(cnt).VKE . S VPE=obj.Pos.GetAt(cnt).VPE . S ERE=obj.Pos.GetAt(cnt).ERE . S EPM=obj.Pos.GetAt(cnt).EPM . S BEAN=$P($G(^AA(FIRMA,ANR,10,LNRART,0)),%,5) . S LBNR=$$ANSIASCI^%UML($P($G(^AA(FIRMA,ANR,10,LNRART,0)),%,2)) . S BEMEVKE=-obj.Pos.GetAt(cnt).MeVPE . S BEMEVKE1=-obj.Pos.GetAt(cnt).MeVKE . S BRUTTO=$J(obj.Pos.GetAt(cnt).EST/obj.Pos.GetAt(cnt).VPM*obj.Pos.GetAt(cnt).EVM*obj.Pos.GetAt(cnt).EPM,0,4) . S POSWERT=$J(-obj.Pos.GetAt(cnt).EST*obj.Pos.GetAt(cnt).MeVRE/obj.Pos.GetAt(cnt).VPM*KURS,0,2) . S AUNR=obj.Pos.GetAt(cnt).KommAunr . S PRJN="J" . I +NACHDRJN=0 D .. I KKR="K" S obj.Pos.GetAt(cnt).SubnrKunde=obj.Subnr .. I KKR="L" S obj.Pos.GetAt(cnt).SubnrLief=obj.Subnr . D Z^%LISTE . I VKE'=VPE!$L(BEZ2)!$L(BEAN) D Z0^%LISTE . I obj.Pos.GetAt(cnt).Notiz'="" f i=1:1:$L(obj.Pos.GetAt(cnt).Notiz,$C(13,10)) D .. S TEXT=$$ANSIASCI^%UML($P(obj.Pos.GetAt(cnt).Notiz,$C(13,10),i)) .. D Z2^%LISTE . I obj.Pos.GetAt(cnt).KommLsnr'="" s TEXT="aus LS "_obj.Pos.GetAt(cnt).KommLsnr D Z2^%LISTE . S TEXT="" D Z2^%LISTE . i obj.Pos.GetAt(cnt).Status<2 s obj.Pos.GetAt(cnt).Status=2 i obj.Status<2 s obj.Status=2 ; d E^%LISTE D CLOSE^%DRU ; S DATUM=$$TXT7^%LN200(obj.Datum) S LNR=obj.Lnr S BELNR=obj.Belegnr ; d obj.%Save() d obj.%Close() ; s bobj=##class(RETOUREK.Beleg).%OpenId(id_"||"_SUBNR) i bobj'="" D . s bobj.Wert=WERT . i bobj.Status<2 s bobj.Status=2 . d bobj.%Save() . d bobj.%Close() Q 1 ; Verbuch(FIRMA,FIL,BELNR,SUBNR,PCODE,VERBJN) N (FIRMA,FIL,BELNR,SUBNR,DEV,PCODE,NOTNR,VERBJN) d ^%XTT S $P(^MENUE(0,$J),%,3)="NADLINGER" S ^FA($J)=^FA(0) S WJ=$P(^FA(0),%,2) s id=$O(^RETOUREK.KopfI("Belegnr",FIRMA,FIL,BELNR,"")) Q:id="" -2 ; s LIDAT=%DR s bobj=##class(RETOUREK.Beleg).%OpenId(id_"||"_SUBNR) i bobj'="" d . S LIDAT=$$TXT7^%LN200(bobj.RetourDatum) . d bobj.%Close() ; s obj=##class(RETOUREK.Kopf).%OpenId(id) i obj="" q -3 i obj.Status>3 d obj.%Close() q -4 ; S LNR=obj.Lnr,BNR="DIV" S LSNR="Ret "_(+LNR)_"/"_BELNR_"/L"_SUBNR s sw=0 s cnt="" f s cnt=obj.Pos.Next(cnt) Q:cnt="" d . S ANR=obj.Pos.GetAt(cnt).Anr . I obj.Pos.GetAt(cnt).Status'=2 Q . I obj.Pos.GetAt(cnt).SubnrLief'=SUBNR Q . I $L(ANR),$D(^AA(FIRMA,ANR,1))#2 S ATYP=$P(^(1),%,5) . E Q . i obj.Pos.GetAt(cnt).Status<4 s obj.Pos.GetAt(cnt).Status=4 . I $L(ATYP),$D(^PA(FIRMA,35,ATYP))#2,$P(^(ATYP),%,14)="J" Q ;Bestell J/N . I $L(ATYP),$D(^PA(FIRMA,35,ATYP))#2,$P(^(ATYP),%,15)="J" D ;Lagerstand J/N .. ZA ^AA(FIRMA,ANR,30,1,FIL) .. S $P(^AA(FIRMA,ANR,30,1,FIL,1),%,15)=$P($G(^AA(FIRMA,ANR,30,1,FIL,1)),%,15)-obj.Pos.GetAt(cnt).MeVKE .. K ^AA(FIRMA,ANR,30,1,FIL,3,"RW"_obj.Belegnr,obj.Pos.GetAt(cnt).Pos) .. ZD ^AA(FIRMA,ANR,30,1,FIL) . I +$E(obj.Pos.GetAt(cnt).Verhalten,4,1) Q ;Austausch . I +$E(obj.Pos.GetAt(cnt).Verhalten,1,1)=0 Q ;Kein Lager . s sw=1 . s ^WE(FIRMA,FIL,0,obj.Lnr,LSNR,1,BNR,obj.Pos.GetAt(cnt).Pos,0)=obj.Pos.GetAt(cnt).Anr_%_(-obj.Pos.GetAt(cnt).MeVKE)_%_"J"_%_"N"_%_obj.Pos.GetAt(cnt).EST I +sw d . S ^WE(FIRMA,FIL,0,obj.Lnr,LSNR,0)=1_%_LIDAT_%_PCODE . I +VERBJN d ^BMBKC ; s sw1=1 s cnt="" f s cnt=obj.Pos.Next(cnt) Q:cnt="" d . I obj.Pos.GetAt(cnt).Status<4 s sw1=0 i +sw1 s obj.Status=4 e s obj.Status=3 s status=obj.Status ; d obj.%Save() d obj.%Close() s bobj=##class(RETOUREK.Beleg).%OpenId(id_"||"_SUBNR) i bobj'="" D . i bobj.Status<4 s bobj.Status=4 . s bobj.InfoVerb=PCODE_" "_$ZD($H,3) . I +sw s bobj.Lsnr=LSNR . d bobj.%Save() . d bobj.%Close() ; Q status Suche(id,sutxt) s gef=0 for i=1:1:$L(sutxt,",") d q:+gef . s sutxt1=$P(sutxt,",",i) q:sutxt1="" . I $D(^RETOUREK.SucheD(sutxt1,id)) s gef=1 Q . S ind=$O(^RETOUREK.SucheD(sutxt1)) . I sutxt1=$E(ind,1,$L(sutxt1)),$D(^RETOUREK.SucheD(ind,id)) s gef=1 q gef MC K ^RETOUREK.SucheD K ^RETOUREK.SucheI s id="" f s id=$O(^RETOUREK.KopfD(id)) Q:id="" D . W id,! . D MCID(id) k q ; MCID(id) s obj=##class(RETOUREK.Kopf).%OpenId(id) s cnt="" f s cnt=obj.Pos.Next(cnt) Q:cnt="" d . s obj1=##class(RETOUREK.Suche).%New() . s obj1.Text=obj.Pos.GetAt(cnt).Anr . s obj1.DokId=obj.%Id() . d obj1.%Save() . d obj1.%Close() . s txt=obj.Pos.GetAt(cnt).Bez1 . I $L(txt) d .. s obj1=##class(RETOUREK.Suche).%New() .. s obj1.Text=$$UPPER(txt) .. s obj1.DokId=obj.%Id() .. d obj1.%Save() .. d obj1.%Close() . s txt=obj.Pos.GetAt(cnt).Bez2 . I $L(txt) d .. s obj1=##class(RETOUREK.Suche).%New() .. s obj1.Text=$$UPPER(txt) .. s obj1.DokId=obj.%Id() .. d obj1.%Save() .. d obj1.%Close() . s txt=obj.Pos.GetAt(cnt).Kbez . I $L(txt) d .. s obj1=##class(RETOUREK.Suche).%New() .. s obj1.Text=$$UPPER(txt) .. s obj1.DokId=obj.%Id() .. d obj1.%Save() .. d obj1.%Close() d obj.%Close() k obj,obj1 Q ; UPPER(S) Q $TR($TR(S,"abcdefghijklmnopqrstuvwxyzöäü","ABCDEFGHIJKLMNOPQRSTUVWXYZÖÄÜ"),",","") XMLREAD(faxfile) N c,OZT S OZT=$ZT S $ZT="EXMLREAD^BMRWUtils" U faxfile R *c S $ZT=OZT s c=$ZH(c) q:$L(c)=1 "0"_c q c EXMLREAD Q "" ]]> persistent 1 %Persistent 59574,75532.84452 59678,58863.807626 0 %Integer %Integer %String %String Firma,Filiale,Art 1 firma:%Integer,filiale:%Integer,code:%String,bez:%String %Integer %SQLQuery Firma:%String,Filiale:%String SELECT %ID,Art,Bez FROM Art WHERE (Firma = :Firma AND Filiale = :Filiale) ORDER BY Bez %Library.CacheStorage ^RETOUREK.ArtD ArtDefaultData ^RETOUREK.ArtD ^RETOUREK.ArtI ^RETOUREK.ArtS listnode %%CLASSNAME Firma Filiale Art Bez persistent 1 %Persistent 59614,62961.627742 59678,58864.045544 0 RETOUREK.Kopf parent Beleg 1 %String %Date %String %String %String %Integer %Float %String %String %String 1 Subnr 1 %SQLQuery id:%Integer,Status:%String =:Status]]> %Library.CacheStorage {%%PARENT}("Beleg") BelegDefaultData ^RETOUREK.KopfC("Beleg") ^RETOUREK.BelegI ^RETOUREK.BelegS listnode %%CLASSNAME Retourdatum Subnr RetourDatum KKR Notnr Status Wert PcodeDruck PcodeVerb InfoDruck InfoVerb Lsnr Knr persistent 1 %Persistent 60921,65403.021179 59678,58865.674903 0 %Integer %Integer %Integer %Date %Integer %Integer %String %Date %String %Integer %Integer %String %String %String %Integer %String %Float %Date array Firma,Filiale,Belegnr %String RETOUREK.Pos children Kopf 1 RETOUREK.Beleg children Kopf 1 Firma,Filiale,Paketnr 1 1 firma:%String,fil:%String,belnr:%String,dev:%String,pcode:%String,ktext:%String,drtyp:%String,demojn:%Boolean,nachdrjn:%Boolean,subnr:%String,retdatum:%Date,knr:%Integer %Integer 1 firma:%String,fil:%String,faxexec:%String,kkr:%String,konto:%String,faxnr:%String,betreff:%String,firmakontakt:%String,kontakt:%String,pcode:%String,linkbelart:%String,linkbelnr:%String,linkbeldat:%Date %Integer ",! w "",! w ""_%site_"",! w ""_$ZD(+$H,3)_"",! w ""_$ZT($P($H,",",2))_"",! w ""_$$FAXNUM^%DRUFAXSV(faxnr)_"",! w ""_$$XMLUM^%DRUFAXSV($$ASCIANSI^%UML(firmakontakt))_"",! w ""_$$XMLUM^%DRUFAXSV($$ASCIANSI^%UML(kontakt))_"",! w ""_"F"_"",! I $L(betreff) w ""_$$XMLUM^%DRUFAXSV($$ASCIANSI^%UML(betreff))_"",! I $L(betreff)=0 w "Ihr Dokument",! w ""_"N"_"",! w ""_"N"_"",! I $L(text) w "",! //W ""_""_"@"_$P(^PA(firma,340,"EMAIL","DOMAIN"),%,2)_"",! //W ""_""_"",! c faxfile S %E=0 s ^FAXSV($J)="XML"_%_$P(faxfile,".",1)_".pcl" s execute="s ^FAXSV($J)="_faxexec x execute i +^FAXSV($J)=0 K ^FAXSV($J) c faxfile Q 0 K ^FAXSV($J) s xmlfile=$P(faxfile,".",1)_".xml" s faxfile=$P(faxfile,".",1)_".pcl" o xmlfile:"AW" u xmlfile w "pcl",! w "",! w "",! c faxfile,xmlfile I $F($ZV,"UNIX") d . s x="chown faxftp "_xmlfile . s x=$$JOBWAIT^%HOSTCMD(x) . s x="mv "_xmlfile_" "_$P(xmlfile,"temp",1)_"fax"_$P(xmlfile,"temp",2) . s x=$$JOBWAIT^%HOSTCMD(x) . s x="rm "_faxfile . s x=$$JOBWAIT^%HOSTCMD(x) E d . s x="ren "_xmlfile_" "_$P(xmlfile,"temp",1)_"fax"_$P(xmlfile,"temp",2) . s x=$$JOBWAIT^%HOSTCMD(x) . s x="del "_faxfile . s x=$$JOBWAIT^%HOSTCMD(x) . k ^FAXSV($J) . k faxfile,xmlfile ; Q 1 ]]> 1 firma:%String,fil:%String,faxexec:%String,kkr:%String,konto:%String,faxnr:%String,betreff:%String,firmakontakt:%String,kontakt:%String,pcode:%String,linkbelart:%String,linkbelnr:%String,linkbeldat:%Date %Integer 1 firma:%String,kkr:%String,konto:%String %String 1 %Integer 1 firma:%Integer,filiale:%Integer,belegnr:%String %String 1 FIRMA:%String,FIL:%String,id:%String,subnr:%String,kkr:%String %Integer 1 ipname:%String,clientname:%String %String 1 firma:%String %Integer 1 firma:%String,knr:%String %String 1 %Integer 1 firma:%String,fil:%String,belnr:%String,anr:%String,me:%Float,me1:%Float,pos:%Integer %Integer 1 firma:%Integer,filiale:%Integer,id:%String,belegnr:%String,datum:%Date,status:%Integer,erfpers:%String,erfdatum:%Date,lnr:%Integer,lnrart:%Integer,knr:%Integer,retourart:%String,retourtyp:%String,bewart:%String,paketnr:%String %String 1 idkopf:%String %Integer 1 firma:%Integer,lnr:%Integer %String 1 idkopf:%String %Float 1 id:%String %Integer 1 firma:%String,fil:%String,belnr:%String,subnr:%String,pcode:%String,verbjn:%Integer %Integer 1 dokid:%String %Integer %SQLQuery Firma:%Integer,Filiale:%Integer,Lieferant:%Integer,Personalcode:%String,Abteilung:%String SELECT %ID,Belegnr,Status,Lnr,Knr,ErfDatum,ErfPcode,ErfAbtnr FROM Kopf WHERE (Firma = :Firma AND Filiale = :Filiale AND (:Lieferant is Null or Lnr = :Lieferant) AND (:Personalcode is null or ErfPcode = :Personalcode) AND (:Abteilung is Null or ErfAbtnr = :Abteilung)) ORDER BY Belegnr DESC %SQLQuery firma:%Integer,status:%Integer,datumvon:%Date,datumbis:%Date,abtnr:%String,lnr:%String,paketnr:%String,knr:%String,sutxt:%String = :datumvon) and (Datum <= :datumbis) and (:paketnr is null or Paketnr[:paketnr) and (:abtnr is null or ErfAbtnr = :abtnr) and (:sutxt is null or $$Suche^BMRWUtils(%ID,:sutxt)=1) order by Datum desc,%ID desc]]> %Library.CacheStorage ^RETOUREK.KopfD KopfDefaultData ^RETOUREK.KopfD ^RETOUREK.KopfI ^RETOUREK.KopfS %%CLASSNAME Firma Filiale Belegnr Datum Bewart Lnr LnrArt RetourArt RetourTyp Status ErfAbtnr PosCnt RetourDatum Lsnr Wert Knr Paketnr Subnr ErfDatum ErfPcode StatusDatum subnode "SD" StatusPers subnode "SP" persistent 1 %Persistent 60921,62516.420161 59678,58866.348553 0 %Integer %String %String %String %Integer %Integer %Integer %String 1 Firma 1 %Library.CacheStorage ^RETOUREK.ParaD ParaDefaultData ^RETOUREK.ParaD ^RETOUREK.ParaI ^RETOUREK.ParaS listnode %%CLASSNAME KopfText KopfTextHg KopfTextLief bercodels BerCodeLS BerCodeB BerCodeExpert Bewart persistent 1 %Persistent 60921,61546.310814 59678,58867.538936 0 %Integer %Integer %Integer %Boolean %Boolean %String %String %String %String %Float %Float %Float %Float %String %String %String %Integer %String %Integer %Integer %Float %Float %String %String %String %String %Float %String %String %String %String %String %String RETOUREK.Kopf parent Pos 1 1 Pos 1 1 %String 6!$F("ÖöZz",$E(ean,1)) s anr=$$AnrEan^BMRWUtils(firma,ean) i anr="" q 2 I $D(^AA(firma,anr,1))#2 d . s ad=$$ASCIANSI^%UML(^(1)) . s aktivjn=$P(ad,"`",4),kbez=$P(ad,"`",1),bez1=$P(ad,"`",7),bez2=$P(ad,"`",8),bez3=$P(ad,"`",9) . s vke=$P(ad,"`",11),vpe=$P(ad,"`",10),vre=$P(ad,"`",12),vpi=$P(ad,"`",13),vrm=$P(ad,"`",14),vpm=$P(ad,"`",15) . s atyp=$P(ad,"`",5) . s atypi="" I $D(^PA(firma,35,atyp))#2 s atypi=^(atyp) . s mc=2 i $D(^AA(firma,anr,2))#2 s mc=$P(^(2),"`",10) . s hlnr=$P($G(^AA(firma,anr,5)),"`",1) . s (ere,est,epm,evm,est)="" . I $L(ean)=13,$E(ean,1,2)=20 S ne=$E(ean,9,12) I +ne S est=$J(ne/13.7603,0,2) . i est="" s est=$$Est^BMRWUtils(firma,filiale,anr,bewart,lnr,datum,me) . i $L(lnr),$D(^AA(firma,anr,10,lnr,0))#2 s ere=$P(^(0),"`",6),epm=$P(^(0),"`",7),evm=$P(^(0),"`",8) . e i $L(hlnr),$D(^AA(firma,anr,10,hlnr,0))#2 s ere=$P(^(0),"`",6),epm=$P(^(0),"`",7),evm=$P(^(0),"`",8) i ad="" Q 0 s bercode=0 i $D(^PA(firma,100,pcode))#2 s bercode=$P(^(pcode),"`",8) s objpar=##class(RETOUREK.Para).%OpenId(firma) s bercodels=objpar.BerCodeLS s bercodeb=objpar.BerCodeB d objpar.%Close() k objpar i berctest="J",atyp="LS",bercode 1 firma:%String,fil:%String,anr:%String,aunr:%String,knr:%String,lnr:%String,datum:%Date,typ:%String %Integer 1 firma:%Integer,filiale:%Integer,anr:%Integer,lnr:%String,bewart:%String,datum:%Date,me:%Float %Float 1 firma:%Integer,id:%String %Integer 1 id:%String %String %SQLQuery firma:%String SELECT EINH,NAME FROM BM.ParEinh WHERE (FIRMA = :firma) ORDER BY EINH %Library.CacheStorage {%%PARENT}("Pos") PosDefaultData {%%PARENT}("Pos") ^RETOUREK.PosI ^RETOUREK.PosS listnode %%CLASSNAME Anr Kbez Bez1 Bez2 EST KommLsnr KommRenr KommLiRenr Bewart MeVKE MeVPE MeVRE VKE VPE VPI VRE VRM Verhalten SammelJN Pos EPM ERE VPM MeERE EVM KommAunr KommBnr NachkJN Notiz Status Knr SubnrKunde SubnrLief persistent 1 %Persistent 59677,54811.723291 59678,58867.78747 0 %String %String 1 Text,DokId 1 DokId:Upper %Library.CacheStorage ^RETOUREK.SucheD SucheDefaultData ^RETOUREK.SucheD ^RETOUREK.SucheI ^RETOUREK.SucheS listnode "" %%CLASSNAME persistent 1 %Persistent 60921,43428.787368 59678,58868.25368 0 %Integer %Integer %String %String %String Firma,Filiale,Typ 1 firma:%Integer,filiale:%Integer,typ:%String,bez:%String,verhalten:%String %Integer %SQLQuery Firma:%String,Filiale:%String SELECT %ID,Typ,Bez,Verhalten FROM Typ WHERE (Firma = :Firma AND Filiale = :Filiale) ORDER BY Typ %Library.CacheStorage ^RETOUREK.TypD TypDefaultData ^RETOUREK.TypD ^RETOUREK.TypI ^RETOUREK.TypS listnode %%CLASSNAME Firma Filiale Typ Bez Verhalten