Kundenfilter Parameter persistent Global SP.BaumatWWS 60490,35994.380738 59464,52111.628686 0 1 FIRMA,FILTER Aenderungsdatum DT.DateTxt7 0 Aktiv J oder N DT.String 0 Kurzbezeichnung Bis DT.String 0 Letzter Auftrag Am DT.DateTxt7 0 Erstellungsdatum DT.DateTxt7 0 Filterbezeichnung DT.String 0 Filternummer %Integer 0 Firma %Integer 0 Kundengruppe DT.String 0 Kundenkarte J oder N DT.String 0 Mahnstufe %Integer 0 Personalcode DT.String 0 Personalcode Eins DT.String 0 Sortierung DT.String 0 Sperre Kredit DT.String 0 Status %Integer 0 Umsatz bis DT.Currency 0 Umsatz von DT.Currency 0 Kurzbezeichnung Von DT.String 0 %SQLQuery Firma:%String SELECT %ID,AENDDAT,BKBEZ,DATLAU,ERSTDAT,FBEZ,FILTER,AKTIV,FIRMA,KGRP,KKART,MAHN,PCODE,PCODE1,SORT,SPERRE,STATUS,UMSBIS,UMSVON,VKBEZ FROM KundFiltPar WHERE (FIRMA = :Firma) ORDER BY AENDDAT DESC %CacheSQLStorage ^BM.KundFiltParS data ^BZF delimited {FIRMA} "K" {FILTER} 0 "`" 11 "`" 6 "`" 5 "`" 14 "`" 12 "`" 2 "`" 7 "`" 10 "`" 8 "`" 13 "`" 15 "`" 3 "`" 9 "`" 1 "`" 17 "`" 16 "`" 4 Lieferantenfilter Parameter persistent Global SP.BaumatWWS 60490,36005.117474 59464,52111.988068 0 1 FIRMA,FILTER Aenderungsdatum DT.DateTxt7 0 Kurzbezeichnung Bis DT.String 0 Datum letzter Einkauf DT.DateTxt7 0 Erstellungsdatum DT.DateTxt7 0 Filterbezeichnung DT.String 0 Filternummer Lieferant %Integer 0 Firma %Integer 0 Lieferant Aktiv J oder N DT.String 0 Liefercode DT.String 0 Lieferant gelistet J oder N DT.String 0 Personalcode DT.String 0 Sammelkonto %Integer 0 Sortierung DT.String 0 Status %Integer 0 Kurzbezeichnung Von DT.String 0 %SQLQuery Firma:%String SELECT %ID,AENDDAT,BKBEZ,DATEST,ERSTDAT,FBEZ,FILTER,FIRMA,LAKTIV,LCODE,LGELJN,PCODE,SKTO,SORT,STATUS,VKBEZ FROM LiefFiltPar WHERE (FIRMA = :Firma) ORDER BY AENDDAT DESC %CacheSQLStorage ^BM.LiefFiltParS data ^BZF delimited {FIRMA} "L" {FILTER} 0 "`" 9 "`" 5 "`" 13 "`" 10 "`" 2 "`" 6 "`" 8 "`" 7 "`" 11 "`" 12 "`" 3 "`" 1 "`" 4 ; [ 03/14/98 9:17 AM ] ;D PW^NAPPA E Q ANF D ^BMINIT S SW=1 S (PCODE,PNAME,PNR,OPNR,PASSWORT,KNR,ABTNR,ABTBEZ,DW,KOST,BERGRP)="" S (PROVJN,PROVFAKT,PRAE,PRAEBEZ,PROVBAS,F01)="" S (TITEL,NAME,BRANCH,STRASSE,LAND,PLZ,ORT,GDAT,SAMMVKJN)="",AKTIV="J",UEBSTJN="N",KASSAJN="N",WJJN="N",FAJN="N" I $D(^ANREG($J)) S PCODE=$P(^($J),%,1),SW=+$P(^($J),%,2) S %O="",X1="KNR" D PCODE D ^BMP24 I SW=1,F01="A"!%E G ENDE I '%E,F01'="A" D SPEICH I F01="S" K ^ANREG($J) G ANF S PRG=$S(F01="B":"NAPPRB",1:"") S $P(^ANREG($J),%,1)=PCODE I F01="B" S ^ANREG($J)=PCODE_%_2 D ^%MENUEB I $T D START S ^ANREG($J)=PCODE_%_1 S PRG="BMPL" D ^%MENUEB G ANF I SW=2 Q K ^ANREG($J) ZD Q ENDE ; K ^XW($J),^ANREG($J) K ZD Q START N (PRG) D @("^"_PRG) Q ; PCODE ; ZA ^PA(FIRMA,PCODE):3 E S %M="Mitarbeiterdaten werden gerade bearbeitet" Q I $D(%O),$L(PCODE),%O=PCODE Q I PCODE?.N S:$D(^PA(FIRMA,101,+PCODE)) PCODE=^(+PCODE) S AD="````````N`1`1" S:$D(^PA(FIRMA,100,PCODE)) AD=^(PCODE) S PNAME=$P(AD,%,1),(OPNR,PNR)=$P(AD,%,2),PASSWORT=$P(AD,%,3),KNR=$P(AD,%,4) S ABTNR=$P(AD,%,5),DW=$P(AD,%,6),KOST=$P(AD,%,7),BERGRP=$P(AD,%,8) S PROVJN=$P(AD,%,9),PROVFAKT=$P(AD,%,10),PRAE=$P(AD,%,11),PROVBAS=$P(AD,%,12) S GDAT=$P(AD,%,13),AKTIV=$P(AD,%,14),MGNR=$P(AD,%,15),UEBSTJN=$P(AD,%,16),KASSAJN=$P(AD,%,17),BANKPNR=$P(AD,%,18) S FAJN=$P(AD,%,19),WJJN=$P(AD,%,20),TUNEXIT=$P(AD,%,21),SAMMVKJN=$P(AD,%,22) S:UEBSTJN="" UEBSTJN="N" S:SAMMVKJN="" SAMMVKJN="N" D KNR,ABTNR,PRAE S APASS=PASSWORT,AD="" S EMAIL="" I $L(PNR),$D(^PERS(FIRMA,PNR,0))#2 S EMAIL=$P(^(0),%,13) Q ; PASSWORT Q:%O=PASSWORT Q:PASSWORT="" S SWPW=0 S USER="" F S USER=$O(^PA(FIRMA,100,USER)) Q:USER="" D Q:+SWPW . I USER'=PCODE,$P(^(USER),%,3)=PASSWORT S SWPW=1 Q I +SWPW S %M="Passwort bereits f}r User "_USER_" vergeben" Q Q MGNR ; Q:MGNR="" I '$D(^PA(FIRMA,3,MGNR)) S %M="Mitgliedernummer nicht vorhanden !" Q Q ABTNR ; S ABTBEZ="" Q:ABTNR="" I '($D(^PA(FIRMA,2,ABTNR))#2) S:'$L(AD) %M="Abteilung nicht vorhanden !" Q S NE=^(ABTNR),ABTBEZ=$P(NE,%,1) S:'$L(KOST) KOST=$P(NE,%,2) S NE="" Q KOST ; Q:KOST="" I '$D(^B(FIRMA,"X",KOST)) S %M="Kostenstelle nicht vorhanden !" Q Q KNR ; S AD="" I $L(KNR),'$D(^B(FIRMA,"K",KNR,1)),'$D(^BZI(FIRMA,"K",KNR,1)) E S:$L(KNR) AD=^(1) I X1="KNR",AD="" S %M="Kundennummer nicht vorhanden !" Q S TITEL=$P(AD,%,1),NAME=$P(AD,%,2),BRANCH=$P(AD,%,3),STRASSE=$P(AD,%,4) S LAND=$P(AD,%,5),PLZ=$P(AD,%,6),ORT=$P(AD,%,7) Q PRAE ; S PRAEBEZ="" Q:PRAE="" Q I '($D(^PA(FIRMA,105,PRAE))#2) S:'$L(AD) %M="Pr{mienschl}ssel nicht vorhanden !" Q S PRAEBEZ=$P(^(PRAE),%,1) Q SPEICH ; I $L(APASS) K ^MENUE(0,"ACCESS1",FIRMA,APASS) S AD="" I $D(^PA(FIRMA,100,PCODE))#2 S AD=^(PCODE) I PROVJN="N" S (PROVFAKT,PROVBAS)="" K:$L(OPNR) ^PA(FIRMA,101,OPNR) S ^PA(FIRMA,101,PNR)=PCODE S:+FIRMA=1 ^PA(2,101,PNR)=PCODE S ^PA(FIRMA,100,PCODE)=PNAME_%_PNR_%_PASSWORT_%_KNR_%_ABTNR_%_DW_%_KOST_%_BERGRP_%_PROVJN_%_PROVFAKT_%_PRAE_%_PROVBAS_%_GDAT_%_AKTIV_%_MGNR_%_UEBSTJN_%_KASSAJN_%_BANKPNR_%_FAJN_%_WJJN_%_TUNEXIT_%_SAMMVKJN S:+FIRMA=1 ^PA(2,100,PCODE)=^PA(FIRMA,100,PCODE) I AKTIV'=$P(AD,%,14) S ^PA(FIRMA,103,PCODE,$H)=^%I($J)_%_PERSONAL_%_$P(AD,%,14)_%_AKTIV I $P(AD,%,14)'=AKTIV!($P(AD,%,17)'=KASSAJN)!($P(AD,%,1)'=PNAME)!($P(AD,%,3)'=PASSWORT)!($P(AD,%,8)'=BERGRP) D . I AKTIV="J",KASSAJN="J" S TR="P.07"_%_PCODE D ^BMVSEND Q . S TR="P.08"_%_PCODE d ^BMVSEND ; I $$GET^BMXOBJ("FAXSERVER","Output")="XML",$$GET^BMXOBJ("FAXSERVER","PclPfad")'="" d . ;XML-Schnittstelle für KMessage . S FAXDW=$P(^PERS(FIRMA,PNR,0),%,14) . I FAXDW="" S FAXDW=DW . S DOMAIN=$$GET^BMXOBJ("EMAIL","DOMAIN") . s faxdir=$$GET^BMXOBJ("FAXSERVER","PclPfad") . s faxpr=$$GET^BMXOBJ("FAXSERVER","FaxPr") . s faxprddijn=$$GET^BMXOBJ("FAXSERVER","FaxPrDDIJN") . I $E(faxdir,$L(faxdir))'="/" s faxdir=faxdir_"/" . s file=faxdir_"temp"_$J_$TR($H,",","")_".xml" . s file1=faxdir_"user"_$J_$TR($H,",","")_".xml" . o file:"WN" . u file . w "",! . w "",! . w "",! . w "",$$ASCIANSI^%UML(PNAME),"",! . w "","[2]-",+DW,"",! . w "","[2]-",faxpr,FAXDW,"",! . i AKTIV="J" D .. i faxprddijn="J" w "",faxpr,FAXDW,"",! .. e w "",FAXDW,"",! . i AKTIV'="J" w "",! . w "",EMAIL_"@"_DOMAIN,"",! . w "",$$ASCIANSI^%UML(PASSWORT),"",! . w "",! . w "",! . c file . s x=$$JOBWAIT^%HOSTCMD("chmod 777 "_file) . s x=$$JOBWAIT^%HOSTCMD("mv "_file_" "_file1) Q ]]> 160 D . S TEXT="",I="" F S I=$O(^PA(FIRMA,30,TXTNR,1,I)) Q:I="" S TEXT=TEXT_^(I) . I $F(TEXT,"$AUNR$") S TEXT=$P(TEXT,"$AUNR$",1)_AUNR_$P(TEXT,"$AUNR$",2) . I $F(TEXT,"$NAME$") S TEXT=$P(TEXT,"$NAME$",1)_"Kunde"_$P(TEXT,"$NAME$",2) . I $F(TEXT,"$aunr$") S TEXT=$P(TEXT,"$aunr$",1)_AUNR_$P(TEXT,"$aunr$",2) . I $F(TEXT,"$name$") S TEXT=$P(TEXT,"$name$",1)_"Kunde"_$P(TEXT,"$name$",2) S TEXT=$TR($TR($$UML(TEXT),"&","u"),"#<>/","") S TXT1=$E(TEXT,1,60) S TXT2=$E(TEXT,61,120) S TXT3=$E(TEXT,121,160) Q UML(S) N C,I S S1="" F I=1:1:$L(S) D . S C=$E(S,I) . I C=$C(92) S S1=S1_"OE" . E I C=$C(91) S S1=S1_"AE" . E I C=$C(93) S S1=S1_"UE" . E I C=$C(126) S S1=S1_"SS" . E I C=$C(124) S S1=S1_"OE" . E I C=$C(123) S S1=S1_"AE" . E I C=$C(125) S S1=S1_"UE" . E S S1=S1_C S S1=$ZCONVERT(S1,"U") Q S1 RUFNR S RUFNR=$$ENTF(RUFNR) Q PCODE I $D(^PA(FIRMA,100,PCODE))#2 E S %M="Mitarbeiter nicht gespeichert" Q S PNR="" i $L(PCODE),$D(^PA(FIRMA,100,PCODE))#2 S PNR=$P(^(PCODE),%,2) S EMAIL="" I $L(PNR),$D(^PERS(FIRMA,PNR,0))#2 s EMAIL=$P(^(0),%,13) i $L(EMAIL) s EMAIL=EMAIL_"@"_$P(^PA(FIRMA,340,"EMAIL","DOMAIN"),%,2) Q ENTF(NR) s NR1="" F I=1:1:$L(NR) I $F("0123456789+",$E(NR,I)) s NR1=NR1_$E(NR,I) q NR1 SEND(FIRMA,pcode,rufnr,text) ; S %=^%SY(0,"%") s email=$G(email) S %ABTNR=" " I $D(^PA(FIRMA,100,pcode))#2 S %ABTNR=$P(^(pcode),"`",5) s %site="D"_$$ASCIANSI^%UML($E(100+FIRMA,2,3)_$J(%ABTNR,2)_$J(pcode,3)) I email="" d . S PNR="" i $L(pcode),$D(^PA(FIRMA,100,pcode))#2 S PNR=$P(^(pcode),%,2) . S email="" I $L(PNR),$D(^PERS(FIRMA,PNR,0))#2 s email=$P(^(0),%,13) . i $L(email) s email=email_"@"_$P(^PA(FIRMA,340,"EMAIL","DOMAIN"),%,2) s %faxfile=$P(^PA(FIRMA,340,"SMS","SmsPfad"),"`",2) I $E(%faxfile,$L(%faxfile))'="/" s %faxfile=%faxfile_"/" s hh=$H s %faxfile=%faxfile_"temp"_$J_$TR(hh,",","")_".xml" o %faxfile:"WN" u %faxfile w "",! w "",! w ""_%site_"",! w ""_$ZD(+$H,3)_"",! w ""_$ZT($P($H,",",2))_"",! w ""_$$ASCIANSI^%UML(text)_"",! w ""_$$FAXNUM^%DRUFAXSV(rufnr)_"",! w ""_%site_"",! i $L(email) w ""_email_"",! w "S",! I $L(text) w "",! w "",! c %faxfile s %faxfile1=$P(^PA(FIRMA,340,"SMS","SmsPfad"),"`",2) I $E(%faxfile1,$L(%faxfile1))'="/" s %faxfile1=%faxfile1_"/" s %faxfile1=%faxfile1_"fax"_$J_$TR(hh,",","")_".xml" s x="mv "_%faxfile_" "_%faxfile1 s x=$$JOBWAIT^%HOSTCMD(x) q STATUS(id) q (##class(MiniFax.Doks).%OpenId(id).Status=5) XMLISO(S) N I,S1,C S S1="" F I=1:1:$L(S) D . S C=$A(S,I) . I C<32 Q . I $F("#<>/&",$C(C)) S S1=S1_"&#"_C_";" . E S S1=S1_$C(C) Q $$ASCIANSI^%UML($TR(S1,"""","")) ]]> persistent 1 %Persistent 60490,45615.483681 59658,45031.414821 0 1 firma:%String,rnr:%String %String 1 firma:%String,offnr:%String %String 1 firma,kkr,filter,typ %String 1 firma,kkr,konto,typ %String 1 faxnr:%String,csi:%String %String 1 firma:%String,name2:%String %Integer 100 . s faxnr="" f s faxnr=$O(^BP(0,"FAX",0,IND,faxnr)) q:faxnr="" d .. I $D(^(faxnr))#2 s AD=^(faxnr) .. e Q .. s firma1=$P(AD,"`",1),kkr=$P(AD,"`",2),konto=$P(AD,"`",3),zus=$P(AD,"`",4) .. I firma=firma1,$L(firma1),$L(kkr),$L(konto),zus="",$D(^B(firma1,kkr,konto,1))#2 s name1=$$ASCIANSI^%UML($P(^(1),"`",2)_" "_$P(^(1),"`",3)),ort=$$ASCIANSI^%UML($P(^(1),"`",7)) .. e i firma=firma1,$L(firma1),$L(kkr),$L(konto),$L(zus),$D(^BZ(firma1,kkr,konto,3,$E(zus,2,99),0))#2 s name1=$$ASCIANSI^%UML($P(^(0),"`",3)_" "_$P(^(0),"`",4)),ort=$$ASCIANSI^%UML($P(^(0),"`",8)) .. e q .. s n=n+1 .. i zus="" S ^XW($J,n)=kkr_$E(1000000+konto,2,7)_$C(10)_name1_$C(10)_faxnr_$C(10)_ort .. e S ^XW($J,n)=kkr_$E(1000000+konto,2,7)_"/"_zus_$C(10)_name1_$C(10)_faxnr_$C(10)_ort q $J ]]> 1 firma:%String,name2:%String %Integer 100 . s email="" f s email=$O(^BP(0,"EMAIL",0,IND,email)) q:email="" d .. I $D(^(email))#2 s AD=^(email) .. e Q .. s firma1=$P(AD,"`",1),kkr=$P(AD,"`",2),konto=$P(AD,"`",3),zus=$P(AD,"`",4) .. s kname="" I firma=firma1,$L(firma1),$L(kkr),$L(konto),$D(^B(firma1,kkr,konto,1))#2 s kname=$$ASCIANSI^%UML($P(^(1),"`",2)_" "_$P(^(1),"`",3)) .. I firma=firma1,$L(firma1),$L(kkr),$L(konto),zus="",$D(^B(firma1,kkr,konto,1))#2 s name1=kname,ort=$$ASCIANSI^%UML($P(^(1),"`",7)) .. e i firma=firma1,$L(firma1),$L(kkr),$L(konto),$L(zus),$E(zus,1)="L",$D(^BZ(firma1,kkr,konto,3,+$E(zus,2,99),0))#2 s name1=$$ASCIANSI^%UML($P(^(0),"`",3)_" "_$P(^(0),"`",4)),ort=$$ASCIANSI^%UML($P(^(0),"`",8)) .. e i firma=firma1,$L(firma1),$L(kkr),$L(konto),$L(zus),$E(zus,1)="K",$D(^BZ(firma1,kkr,konto,40,+$E(zus,2,99)))#2 s name1=$$ASCIANSI^%UML($P(^(+$E(zus,2,99)),"`",1)_" "_$P(^(+$E(zus,2,99)),"`",2)),ort="" .. e q .. s n=n+1 .. i zus="" S ^XW($J,n)=kkr_$E(1000000+konto,2,7)_$C(10)_name1_$C(10)_email_$C(10)_ort .. e S ^XW($J,n)=kkr_$E(1000000+konto,2,7)_"/"_zus_$C(10)_name1_$C(10)_email_$C(10)_ort_$C(10)_kname q $J ]]> 1 job:%String %Integer %CacheSQLStorage ^XW BaumatDefaultData1 ^XW ^XW ^MiniFax.BaumatS INHALT node %%CLASSNAME INHALT listnode "1" %%CLASSNAME persistent %Persistent 60509,74640.020086 60428,38108.460827 0 %String %String %String Typ 0=Konstante, 1=Ausdruck, 2=Cache Script %Integer %String %Integer %Integer %Integer %String gruppe,name 1 ad:%String,firma:%String,pcode:%String %String 1 ad:%String,firma:%String,pcode:%String %String %SQLQuery SELECT distinct gruppe FROM DbZug order by gruppe %SQLQuery gr:%String SELECT %ID,gruppe,name,bez,typ,zug FROM DbZug WHERE (gruppe = :gr) ORDER BY bez %SQLQuery SELECT %ID,gruppe,name,bez,typ,zug FROM DbZug ORDER BY gruppe,bez %Library.CacheStorage ^MiniFax.DbZugD DbZugDefaultData ^MiniFax.DbZugD ^MiniFax.DbZugI ^MiniFax.DbZugS listnode %%CLASSNAME bez gruppe name typ zug editsw checksw signatursw feldtyp persistent 1 %Persistent 60490,44708.026677 60425,85218.351449 0 1 JOBNR,CNT Counter %Integer 0 Inhalt %String 0 Jobnummer %Integer 0 %Library.SQLQuery PJobnr:%Library.String SELECT INHALT FROM MiniFax.XW WHERE (JOBNR = :PJobnr) ORDER BY INHALT %Library.SQLQuery PJobnr:%Library.String SELECT INHALT FROM MiniFax.XW WHERE (JOBNR = :PJobnr) ORDER BY CNT %CacheSQLStorage ^XW BaumatDefaultData1 ^XW ^XW ^MiniFax.BaumatS INHALT node %%CLASSNAME INHALT listnode "1" %%CLASSNAME data XW {JOBNR} {CNT} "`" 1 ",! . w "",! . w "",! . w "",$$ASCIANSI^%UML(PNAME),"",! . w "","[2]-",+DW,"",! . w "","[2]-",faxpr,FAXDW,"",! . i AKTIV="J" D .. i faxprddijn="J" w "",faxpr,FAXDW,"",! .. e w "",FAXDW,"",! . i AKTIV'="J" w "",! . . w "",EMAIL_"@"_DOMAIN,"",! . w "",$$ASCIANSI^%UML(PASSWORT),"",! . w "",! . w "",! . c file . s x=$$JOBWAIT^%HOSTCMD("chmod 777 "_file) . s x=$$JOBWAIT^%HOSTCMD("mv "_file_" "_file1) Q ; EINTRITT ; I EINTRITT="" S DIEJA="" Q S DIEJA=($S($L(AUSTRITT):AUSTRITT,1:%DR)\100\100)-(EINTRITT\100\100) Q AUSTRITT ; I EINTRITT="" S DIEJA="" Q S DIEJA=($S($L(AUSTRITT):AUSTRITT,1:%DR)\100\100)-(EINTRITT\100\100) Q GDAT ; I GDAT="" S LEALT="" Q S LEALT=$$J3^%LN207(%DR)-$$J3^%LN207(GDAT) S:LEALT<1 LEALT=LEALT+100,GDAT=GDAT-1000000 Q ]]> ",! w "",! I $ZCONVERT(USSW,"U")="N" D . S FIRMNAME=$P(^BP(FIRMA,1),%,2) . W "",! . w "",$$ASCIANSI^%UML(FIRMNAME),"",! . W "",! s faxpr=$$GET^BMXOBJ("FAXSERVER","FaxPr") s faxprddijn=$$GET^BMXOBJ("FAXSERVER","FaxPrDDIJN") S PCODE="" F S PCODE=$O(^PA(FIRMA,100,PCODE)) Q:PCODE="" D . S AD=^(PCODE) . ;Q:$P(AD,%,14)'="J" . Q:$E(PCODE,1)="s" . S AKTIV=$P(AD,%,14),ABTNR=$P(AD,%,5),PNAME=$P(AD,%,1),DW=$P(AD,%,6),PASSW=$P(AD,%,3),PNR=$P(AD,%,2) . S ABTNR(ABTNR)="" . S (EMAIL,FAXDW)="" I $L(PNR),$D(^PERS(FIRMA,PNR,0))#2 s EMAIL=$P(^(0),%,13),FAXDW=$P(^(0),%,14) . I FAXDW="" S FAXDW=DW . u file . w "",! . w "",$$ASCIANSI^%UML(PNAME),"",! . w "","[2]-",+DW,"",! . w "","[2]-",faxpr,FAXDW,"",! . i AKTIV="J" D .. i faxprddijn="J" w "",faxpr,FAXDW,"",! .. e w "",FAXDW,"",! . i AKTIV'="J" w "",! . I $L(EMAIL) w "",EMAIL_"@"_DOMAIN,"",! . w "",$$ASCIANSI^%UML(PASSW),"",! . w "",! I $ZCONVERT(USSW,"U")="N" S ABTNR="" F S ABTNR=$O(ABTNR(ABTNR)) Q:ABTNR="" D . I $D(^PA(FIRMA,2,ABTNR))#2 s ABTBEZ=$P(^(ABTNR),%,1) . E Q . W "",! . w "",$$ASCIANSI^%UML($P(^PA(FIRMA,2,ABTNR),%,1)),"",! . W "",! w "",! c file s x=$$JOBWAIT^%HOSTCMD("chmod 777 "_file) s x=$$JOBWAIT^%HOSTCMD("mv "_file_" "_file1) Q TOV2 s id="" f s id=$O(^MiniFax.DoksD(id)) q:id="" d . s obj=##class(MiniFax.Doks).%OpenId(id) . w id,! . i obj.Typ="FE"!(obj.Typ="FEU")!(obj.Typ="SE") D .. i obj.Typ="FEU" s obj.Typ="FE",obj.bstatus=5 .. e s obj.bstatus=10 . d obj.%Save() . d obj.%Close() k obj q upgrch s id="" f s id=$O(^MiniFax.FaxdomainD(id)) q:id="" d . w id,! . s obj=##class(MiniFax.Faxdomain).%OpenId(id) . s obj.EmailSms=2 . s obj.EmailMail=2 . d obj.%Save() . d obj.%Close() k obj q upgrcover s id="" f s id=$O(^MiniFax.FaxdomainD(id)) q:id="" d . w id,! . s obj=##class(MiniFax.Faxdomain).%OpenId(id) . s obj.Coverpage="" . d obj.%Save() . d obj.%Close() k obj q upgrvertraulich s id="" f s id=$O(^MiniFax.FaxdomainD(id)) q:id="" d . w id,! . s obj=##class(MiniFax.Faxdomain).%OpenId(id) . s obj.Vertraulich=2 . d obj.%Save() . d obj.%Close() k obj q ]]>