Kundenfilter Parameter persistent Global SP.BaumatWWS 59474,44968.46608 59440,44216 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 1 FIRMA,FILTER %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 59474,45091.82734 59440,44276 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 1 FIRMA,FILTER %CacheSQLStorage ^BM.LiefFiltParS data ^BZF delimited {FIRMA} "L" {FILTER} 0 "`" 9 "`" 5 "`" 13 "`" 10 "`" 2 "`" 6 "`" 8 "`" 7 "`" 11 "`" 12 "`" 3 "`" 1 "`" 4 >"_ofile) o ofile:"WA" u ofile w ! c ofile i +erg=0 G S1 o ofile:"WA" u ofile w !,"Orders Fehler beim erstellen des tar-archives Fehlercode="_erg_" am/um "_$ZDT($H,3),! w "-----------------------------------------------------------------------------",!! c ofile o ofile d obj.Bericht.Rewind() S OZT=$ZT S $ZT="EOF1^BMHGEDI" f u ofile r zeile d obj.Bericht.Write($TR(zeile,$C(13,10),"")_$C(13,10)) EOF1 c ofile S $ZT=OZT Q -3_"|"_-3 S1 s obj.Status=3 s betreff=obj.Betreff d obj.%Save() d obj.%Close() k obj s ftpuser=$P(ftpurl,"@",1) s ftpserver=$P(ftpurl,"@",2) s ftpuser=$P(ftpuser,"ftp://",2) s ftppassw=$P(ftpuser,":",2) s ftpuser=$P(ftpuser,":",1) s ftpfile="/tmp/hagebau.orders.ftp" o ftpfile:"WN" u ftpfile w "user "_ftpuser_" "_ftppassw,! w "cd CI",! w "cd UP",! w "bin",! w "put "_dir_fname_".tar.gz "_fname_".tar.gz",! w "get "_fname_".tar.gz "_dir_fname_".tar.gz.test",! c ftpfile d JOBWAIT^%HOSTCMD("touch "_dir_fname_".tar.gz.ok") d JOBWAIT^%HOSTCMD("ftp -v -n "_ftpserver_" <"_ftpfile_" >>"_ofile) s erg=$$JOBWAIT^%HOSTCMD("diff -s "_dir_fname_".tar.gz "_dir_fname_".tar.gz.test >>"_ofile) o ofile:"WA" u ofile s erg1=1 i +erg=0 d . w !,"Orders ftp-Übertragung ohne Fehler verifiziert "_$ZDT($H,3),! . w "-----------------------------------------------------------------------------",!! . c ofile . o ftpfile:"WN" . u ftpfile . w "user "_ftpuser_" "_ftppassw,! . w "cd CI",! . w "cd UP",! . w "bin",! . w "put "_dir_fname_".tar.gz.ok "_fname_".tar.gz.ok",! . c ftpfile . s erg1=$$JOBWAIT^%HOSTCMD("ftp -v -n "_ftpserver_" <"_ftpfile_" >>"_ofile) . o ofile:"WA" u ofile . i +erg1=0 w !,"Orders ftp-Übertragung OK-Datei ohne Fehler gesendet am/um "_$ZDT($H,3),! . i +erg1 w !,"Orders ftp-Übertragung OK-Datei mit Fehler "_erg1_" gesendet am/um "_$ZDT($H,3),! . w "==============================================================================",! . c ofile e d . o ofile:"WA" u ofile . w !,"Orders ftp-Übertragung mit Fehler "_erg_" verifiziert am/um "_$ZDT($H,3),! . w "==============================================================================",!! . c ofile s obj=##class(MiniFax.Doks).%OpenId(id) i +erg=0 s obj.Status=5 i +erg s obj.Status=4 o ofile d obj.Bericht.Rewind() S OZT=$ZT S $ZT="EOF2^BMHGEDI" f u ofile r zeile d obj.Bericht.Write($TR(zeile,$C(13,10),"")_$C(13,10)) EOF2 c ofile S $ZT=OZT d obj.%Save() d obj.%Close() k obj d JOBWAIT^%HOSTCMD("rm "_dir_fname) d JOBWAIT^%HOSTCMD("rm "_dir_fname_".tar.gz") d JOBWAIT^%HOSTCMD("rm "_dir_fname_".tar.gz.test") d JOBWAIT^%HOSTCMD("rm "_dir_fname_".tar.gz.ok") q erg_"|"_erg1 ]]> persistent 1 %Persistent 60320,78406.626544 60428,38080.973672 0 %String %Date %Time %String %String %String id,datum,zeit %SQLQuery id:%String SELECT %ID,Datum,Zeit,personal,text,verkn FROM Aend WHERE (id = :id) ORDER BY %ID %Library.CacheStorage ^MiniFax.AendD AendDefaultData ^MiniFax.AendD ^MiniFax.AendI ^MiniFax.AendS listnode %%CLASSNAME datum id personal text verkn zeit persistent 1 %Persistent 60492,54215.450743 60428,38080.980611 0 MiniFax.Doks parent Anhaenge 1 %String %String %Stream binarystream %Library.CacheStorage {%%PARENT}("Anhaenge") AnhaengeDefaultData ^MiniFax.DoksC("Anhaenge") ^MiniFax.AnhaengeI ^MiniFax.AnhaengeS listnode %%CLASSNAME Anhang Name Typ Filetyp persistent 1 %Persistent 61392,75269.453213 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) .. I firma=firma1,$L(firma1),$L(kkr),$L(konto),$D(^B(firma1,kkr,konto,1))#2 s name1=$$ASCIANSI^%UML($P(^(1),"`",2)),ort=$$ASCIANSI^%UML($P(^(1),"`",7)) .. e q .. i $D(konto(faxnr)) q .. s n=n+1 .. S ^XW($J,n)=kkr_$E(1000000+konto,2,7)_$C(10)_name1_$C(10)_faxnr_$C(10)_ort .. s konto(faxnr)="" 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 ^MiniFax.BaumatD BaumatDefaultData1 ^MiniFax.BaumatD ^MiniFax.BaumatI ^MiniFax.BaumatS INHALT node %%CLASSNAME INHALT listnode "1" %%CLASSNAME persistent 1 %Persistent 59652,64473.456634 59658,45031.477003 0 %String %String UserGrp 1 usergrp:%String %String %SQLQuery SELECT %ID,UserGrp,Berecht FROM Berecht %Library.CacheStorage ^MiniFax.BerechtD BerechtDefaultData ^MiniFax.BerechtD ^MiniFax.BerechtI ^MiniFax.BerechtS listnode %%CLASSNAME UserGrp Berecht persistent 1 %Persistent 59702,438.136285 59658,45031.522052 0 %String %String %String %Integer %Integer %String %String 1 Cardid 1 1 site:%String %Integer %SQLQuery Serversite:%String,Site:%String SELECT Cardid,Bez,Site,CardIn,CardOut,Amt FROM Cards WHERE (:Serversite is null or ServerSite = :Serversite) and (:Site is null or Site = :Site) ORDER by Cardid %Library.CacheStorage ^MiniFax.CardsD CardsDefaultData ^MiniFax.CardsD ^MiniFax.CardsI ^MiniFax.CardsS listnode %%CLASSNAME CardIn CardOut Site Amt ServerSite Bez 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 61392,72123.657334 59658,45031.72227 0 %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String %Library.String Status 2=übernommen, 3=aktiv, 4=mit Fehler gesendet, 5=ohne Fehler gesendet,6=empfangen 10=gelöscht,11=weitergeleitet, 20=Dummy für Ordner %Library.Integer Bearbeitungsstatus 0=offen, 5=gelesen, 10=erledigt %Integer 0 %Integer %String %Library.String %Integer %Integer %Integer %Library.String %Date %Time %Integer %Integer MiniFax.Anhaenge children Doks 1 %Stream binarystream %Stream binarystream %Stream binarystream %String %String %String %String %String %String %String %Boolean %String %String %String %String T=Text, D=Word .doc, P=.pdf %String %String 0=kein Seriendruck, 1=Parent, 2=Child %Integer %String %String %Boolean %Boolean %Boolean MiniFax.Seriendruck children Doks 1 Site,bstatus,Typ Datum,Zeit Datum,Typ,Status,Site Datum,Typ,Status,Site,folder Site,Status,Datum,Zeit Typ,uuid beschl1 beschl2 Vorgang,Site Status,Typ,Site queue manuell SaveDepth:%Integer,Insert:%Integer,CallCount:%Integer %Status 1 id:%String %Integer 1 id:%String %String 1 queue1:%Integer %Boolean 1 site:%String %Boolean 0)!($D(^MiniFax.DoksI("bstatus",site,5,"FE"))>0)!($D(^MiniFax.DoksI("bstatus",site,0,"SE"))>0)!($D(^MiniFax.DoksI("bstatus",site,5,"SE"))>0)!($D(^MiniFax.DoksI("bstatus",site,5,"OR"))>0) ]]> 1 typ:%String,fsite:%String,personal:%String,anzall:%Boolean,tage:%Integer,suche:%String,sfolder:%String="",unerl:%Integer=0,ungel:%Integer=0,vorl:%Integer=0,beschl1:%String="" %String tage q .. s zeit="" f s zeit=$O(^MiniFax.DoksI("DZ",datum,zeit),-1) q:zeit="" d ... s id="" f s id=$O(^MiniFax.DoksI("DZ",datum,zeit,id),-1) q:id="" d .... s idcnt=idcnt+1,id(idcnt)=id . k datum,zeit e d . s:beschl1="" beschl1="$$$" . s result=##class(%Library.ResultSet).%New("MiniFax.Doks:beschl1") . d result.Execute(beschl1) . f q:'result.Next() s idcnt=idcnt+1,id(idcnt)=result.GetData(1) . d result.Close() . k result s idcnt="" f s idcnt=$O(id(idcnt)) q:idcnt="" d . s id = id(idcnt) . s obj=##class(MiniFax.Doks).%OpenId(id) . i $L(obj) d .. s datum=obj.Datum,zeit=obj.Zeit .. i $E(obj.Site,1,ll)'=fsite q //Select Folderdokumente .. i +anzall=0,obj.Site'=personal,'$D(^MiniFax.FaxdomainI("friend",personal,obj.Site)) Q .. i obj.vertraulich,'anzvertraulich q .. i $L(sfolder),obj.folder'=sfolder q .. i +vorl=0,obj.Typ="V" Q .. i typ="V",sfolder="",typ'="",obj.folder'="" q .. i sfolder="",$L(fsite)=maxbis,typ'="",obj.folder'="" q .. i $L(typ),typ'="R",typ'="D",typ'=obj.Typ q .. i $L(typ),typ="R",obj.Status'=3 q .. i $L(typ),typ="D",obj.Status'=10 Q .. i obj.Status=20 Q .. i +unerl!(+ungel),obj.Typ'="FE",obj.Typ'="SE" Q .. i +unerl,obj.bstatus=10 Q .. i +ungel,obj.bstatus>0 Q .. i obj.Typ="E",obj.Site'=fsite!(typ'="E") Q .. i obj.Typ="V",obj.Site'=fsite!(typ'="V") Q .. i obj.Site'=fsite,obj.SeriendruckStatus=2 Q .. i obj.Site=fsite,sfolder="",obj.SeriendruckStatus=2 Q .. i $E(obj.Site,1,ll)'=fsite q .. i $L($G(suche)),$F(obj.Text_obj.Faxnr_obj.Betreff_obj.Site_obj.FirmaKontakt_obj.Kontakt,suche)=0 q .. s cnt=cnt+1 .. s ber="N" .. i obj.Typ="F",obj.Status>3 s ber="J" .. i obj.Typ="OR",obj.Status>3 s ber="J" .. s ftyp="" i obj.Status>3 s ftyp=obj.Filetyp .. i obj.Typ="OR" s ftyp=obj.Filetyp .. i ll1="" d ... s idll=$O(^MiniFax.DomainStructD(""),-1) ... s objll=##class(MiniFax.DomainStruct).%OpenId(idll) ... s ll1=objll.Von ... d objll.%Close() .. i $L(obj.Personal) s pers=$E(obj.Personal,ll1,$L(obj.Personal)) .. e s pers=$E(obj.Site,ll1,$L(obj.Site)) .. i obj.Typ="V" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(datum,3)_" "_$ZT(zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.SeitenOk_"/"_obj.Seiten_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .. i obj.Typ="B" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(datum,3)_" "_$ZT(zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.SeitenOk_"/"_obj.Seiten_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .. i obj.Typ="E" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(datum,3)_" "_$ZT(zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.SeitenOk_"/"_obj.Seiten_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .. i obj.Typ="F" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(datum,3)_" "_$ZT(zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.SeitenOk_"/"_obj.Seiten_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .. i obj.Typ="FE" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(datum,3)_" "_$ZT(zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.Seiten_$C(10)_obj.Status_$C(10)_""_$C(10)_obj.NachtJN_"|"_id_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .. i obj.Typ="M" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.EmpfEmail_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_""_$C(10)_obj.Status_$C(10)_""_$C(10)_obj.NachtJN_"|"_id_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .. i obj.Typ="S" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_$P(obj.Text,$C(10),1)_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .. i obj.Typ="SE" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_$P(obj.Text,$C(10),1)_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_$C(10)_obj.Status_$C(10)_""_$C(10)_obj.NachtJN_"|"_id_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .. i obj.Typ="OR" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_""_$C(10)_obj.Status_$C(10)_""_$C(10)_obj.NachtJN_"|"_id_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal . i $L(obj) d obj.%Close() s id1=$O(^MiniFax.JournalD(""),-1) s obj=##class(MiniFax.Faxdomain).%OpenId(fsite) s name="" if $L(obj) s name=obj.Addr1 d obj.%Close() k obj q $J_"|"_id1_"|"_name ]]> 1 typ:%String,fsite:%String,personal:%String,anzall:%Boolean,tage:%Integer,jourid:%String,suche:%String,sfolder:%String="",unerl:%Integer=0,ungel:%Integer=0,vorl:%Integer=0,beschl1:%String="" %String tage q .... i $L(typ),typ'="R",typ'="D",typ'=obj.Typ q .... i $L($G(suche)),'$F(obj.Text_obj.Faxnr_obj.Betreff_obj.Site_obj.FirmaKontakt_obj.Kontakt,suche) q .... i $L(sfolder),obj.folder'=sfolder q .... i +vorl=0,obj.Typ="V" Q .... i typ="V",sfolder="",typ'="",obj.folder'="" q .... i sfolder="",$L(fsite)=maxbis,typ'="",obj.folder'="" q .... i +anzall=0,obj.Site'=personal,'$D(^MiniFax.FaxdomainI("friend",personal,obj.Site)) Q .... i +unerl!(+ungel),obj.Typ'="FE",obj.Typ'="SE" q .... i +unerl,obj.bstatus=10 Q .... i +ungel,obj.bstatus>0 Q .... i obj.Typ="E",obj.Site'=fsite!(typ'="E") Q .... i obj.Typ="V",obj.Site'=fsite!(typ'="V") Q .... i obj.Typ="V",typ'="V" Q .... i obj.Site'=fsite,obj.SeriendruckStatus=2 Q .... i obj.Site=fsite,sfolder="",obj.SeriendruckStatus=2 Q .... i obj.Status=20 Q .... s cnt=cnt+1 .... s ber="N" .... i obj.Typ="F",obj.Status>3 s ber="J" .... i obj.Typ="OR",obj.Status>3 s ber="J" .... s ftyp="" .... i obj.Status>3 s ftyp=obj.Filetyp .... i obj.Typ="OR" s ftyp=obj.Filetyp .... i ll1="" d ..... s idll=$O(^MiniFax.DomainStructD(""),-1) ..... s objll=##class(MiniFax.DomainStruct).%OpenId(idll) ..... s ll1=objll.Von ..... d objll.%Close() .... i $L(obj.Personal) s pers=$E(obj.Personal,ll1,$L(obj.Personal)) .... e s pers=$E(obj.Site,ll1,$L(obj.Site)) .... i obj.Typ="V" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.SeitenOk_"/"_obj.Seiten_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id1_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .... i obj.Typ="B" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.SeitenOk_"/"_obj.Seiten_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id1_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .... i obj.Typ="E" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.SeitenOk_"/"_obj.Seiten_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id1_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .... i obj.Typ="F" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.SeitenOk_"/"_obj.Seiten_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id1_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .... i obj.Typ="FE" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_obj.Seiten_$C(10)_obj.Status_$C(10)_""_$C(10)_obj.NachtJN_"|"_id1_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .... i obj.Typ="M" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.EmpfEmail_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_""_$C(10)_obj.Status_$C(10)_""_$C(10)_obj.NachtJN_"|"_id1_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .... i obj.Typ="S" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_$P(obj.Text,$C(10),1)_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_$C(10)_obj.Status_$C(10)_obj.Versuche_$C(10)_obj.NachtJN_"|"_id1_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .... i obj.Typ="SE" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_$P(obj.Text,$C(10),1)_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_$C(10)_obj.Status_$C(10)_""_$C(10)_obj.NachtJN_"|"_id1_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal .... i obj.Typ="OR" s ^XW($J,cnt)=obj.Typ_$C(10)_$ZD(obj.Datum,3)_" "_$ZT(obj.Zeit)_$C(10)_obj.Faxnr_$C(10)_obj.FirmaKontakt_" "_obj.Kontakt_" "_obj.Betreff_$C(10)_pers_$C(10)_ftyp_$C(10)_ber_$C(10)_""_$C(10)_obj.Status_$C(10)_""_$C(10)_obj.NachtJN_"|"_id1_"|"_obj.Site_"|"_obj.LastTry_"|"_obj.weiteran_"|"_obj.folder_"|"_obj.weitervon_"|"_obj.bstatus_"|"_obj.Personal ... I $L(obj) d obj.%Close() k obj, objll i +cnt=0 q 0_"|"_1 q $J_"|"_jourid ]]> 1 typ:%String,site:%String,folder:%String,textfolder:%String %Integer 1 personal:%String,anzall:%Boolean,tage:%Integer,suche:%String,unerl:%Integer=0,ungel:%Integer=0,vorl:%Integer=0,beschl1:%String="" %Integer 0,$H-datum>tage q ... s status="" f s status=$O(^MiniFax.DoksI("DSF",datum,typ,status)) q:status="" d .... s site="" f s site=$O(^MiniFax.DoksI("DSF",datum,typ,status,site)) q:site="" d ..... I +anzall=0,site'=personal,'$D(^MiniFax.FaxdomainI("friend",personal,site)) Q ..... s folder="" f s folder=$O(^MiniFax.DoksI("DSF",datum,typ,status,site,folder)) q:folder="" d ...... s id="" f s id=$O(^MiniFax.DoksI("DSF",datum,typ,status,site,folder,id)) q:id="" d ....... s idcnt=idcnt+1,id(idcnt)=id e d . s:beschl1="" beschl1="$$$" . s result=##class(%Library.ResultSet).%New("MiniFax.Doks:beschl1") . d result.Execute(beschl1) . f q:'result.Next() d .. I +anzall=0,result.GetData(2)'=personal,'$D(^MiniFax.FaxdomainI("friend",personal,result.GetData(2))) Q .. s idcnt=idcnt+1,id(idcnt)=result.GetData(1) . d result.Close() . k result k datum, typ, status, site, folder s idcnt="" f s idcnt=$O(id(idcnt)) q:idcnt="" d . s id = id(idcnt) . s sw0 = 0, sw5 = 0 . s obj=##class(MiniFax.Doks).%OpenId(id) . i $L(obj) d .. i obj.vertraulich,'anzvertraulich q .. s datum = obj.Datum, typ = obj.Typ, status = obj.Status, site = obj.Site, folder = obj.folder .. i $L($G(suche)),'$F(obj.Text_obj.Faxnr_obj.Betreff_obj.Site_obj.FirmaKontakt_obj.Kontakt,suche) d obj.%Close() q .. i +vorl=0,obj.Typ="V" Q .. i unerl!(ungel),typ'="FE",typ'="SE" q .. i +unerl,obj.bstatus=10 Q .. i +ungel,obj.bstatus>0 q .. i typ="FE"!(typ="SE") s:+obj.bstatus=0 sw0=1 s:obj.bstatus<10 sw5=1 .. s von="" f s von=$O(domstr(von)) q:von="" d ... I von'>$L(site) d .... s fsite=$E(site,1,domstr(von)) .... i obj.Typ="E",fsite'=site q .... i obj.Typ="V",fsite'=site q .... i fsite'=site,obj.SeriendruckStatus=2 Q .... s $P(tab(fsite),"|",1)=$P($G(tab(fsite)),"|",1)+sw0 .... i +sw0 s $P(tab(fsite),"|",2)=1 .... i +sw5 s $P(tab(fsite),"|",3)=1 .... s ftyp=typ .... i status=3 s typ1="R" .... i status=10 s typ1="D" .... s $P(tab(fsite,ftyp),"|",1)=$P($G(tab(fsite,ftyp)),"|",1) .... i folder'<0!($L(fsite) 1 ssite:%String %String 1 ssite:%String,sfolder:%String="" %String 1 personal:%String %String 1 typ:%String,site:%String,folder:%String %Integer 1 typ:%String,site:%String,folder:%String %Integer 1 id:%String %Boolean 1 %Integer 60538 D .. s sw=0 .. s id1="" f s id1=$O(^MiniFax.DoksD(id,"Anhaenge",id1)) q:id1="" d ... s obj1=##class(MiniFax.Anhaenge).%OpenId(id_"||"_id1) ... i obj1.Name="baumat.tif" s sw=1 ... d obj1.%Close() ... k obj1 .. i +sw=0 s obj.manuell=1 . i (obj.Typ="B")!(obj.Typ="V") s obj.manuell=1 . i +obj.manuell s anz=anz+1 . d obj.%Save() . d obj.%Close() k obj q anz ]]> 1 %Integer %SQLQuery SELECT %ID FROM Doks --------------------------------------------------------------------------------------------- AusgabeBaumatFaxe %Library.SQLQuery Site:%String,Date:%Date = :Date) and (:Site is null or Site = :Site) ORDER BY Datum DESC, Zeit DESC]]> %Library.SQLQuery '']]> %SQLQuery beschl1:%String SELECT %ID,Site FROM Doks WHERE (beschl1 like :beschl1 OR beschl2 like :beschl1 or Betreff like :beschl1 or Faxnr like :beschl1 or Kontakt like :beschl1 or FirmaKontakt like :beschl1) ORDER BY Datum DESC, Zeit DESC, %ID DESC, Typ, Status,Site,folder %Library.CacheStorage ^MiniFax.DoksD DoksDefaultData ^MiniFax.DoksD ^MiniFax.DoksI ^MiniFax.DoksS listnode %%CLASSNAME AbsEmail Baust Bericht Betreff Datum DeckblattJN EmpfEmail Faxnr Faxpic FilePcl5 Filetyp Firma FirmaKontakt KKR Kontakt Konto LastTry LinkBelart LinkBeldat LinkBelnr LinkIndexart NachtJN Personal Seiten SeitenOk Site Status StatusBez Text Typ Versuche Zeit Dauer FaxpicTemp LoeStatus weiter weiteran weitervon uuid folder queue bstatus modified Dokument Mailtyp Vorgang Cargo VorgangSendtyp SeriendruckKkr SeriendruckStatus beschl1 beschl2 lock vertraulich manuell persistent 1 %Persistent 60531,48602.457678 59658,45031.774523 0 %String %Integer %Integer Bis %SQLQuery SELECT Bez,Von,Bis FROM DomainStruct %Library.CacheStorage ^MiniFax.DomainStructD DomainStructDefaultData ^MiniFax.DomainStructD ^MiniFax.DomainStructI ^MiniFax.DomainStructS listnode %%CLASSNAME Bez Bis Von persistent 1 %Persistent 60944,70290.529836 60945,51822.073517 0 1 firma:%String,id:%String %String %Library.CacheStorage ^MiniFax.EdiD EdiDefaultData ^MiniFax.EdiD ^MiniFax.EdiI ^MiniFax.EdiS listnode %%CLASSNAME persistent 1 %Persistent 61392,72208.323502 59658,45031.933837 0 %String %String %String %String %String %String %String %String %String %String %String %Integer 2 %Integer 2 %Integer 2 %String %String %String %Integer 2 %Integer 2 %Integer 2 %Integer 2 %String %String %String %String %String %String %Integer 2 %Integer 2 1 Item 1 %String %String %String %String %String %String %String %String %String %String %Integer 2 %String %String %String %Stream binarystream %String %String %String %SQLQuery SELECT %ID,Item,Addr1 FROM Faxdomain order by Item %String MsnDdi Passwort friend Vertraulich 1 sitepersonal,pcode %String 1 site:%String %String 1 msnddi:%String,csi:%String,site:%String %String 1 %String len,$E(site,1)="D" d .. s obj=##class(MiniFax.Faxdomain).%OpenId(site) .. s ad=ad_site_$C(255)_obj.Addr1_"|" .. d obj.%Close() i $L(ad) s ad=$E(ad,1,$L(ad)-1) k obj q ad ]]> %SQLQuery sitesel:%String SELECT MsnDdi,Item FROM Faxdomain where Item %Startswith :sitesel %Library.CacheStorage ^MiniFax.FaxdomainD FaxdomainDefaultData ^MiniFax.FaxdomainD ^MiniFax.FaxdomainI ^MiniFax.FaxdomainS listnode %%CLASSNAME Addr1 Addr2 Addr3 Coverpage DruckBerJN DruckDokJN DruckEmpfJN Drucker EmailEmpfJN EmailSendJN Faxkennung Faxnr Item MsnDdi Ort Plz Telnr Email Passwort FaxloeTage Nachtzeit VersWarte Versuche FtpIp FtpPassw FtpUser FtpVerz SmsPin SmsZentr MailDomain MailPort MailServer Usergrp TimerEmpfang TimerMess TimerUserdat TimerXml TimerRefresh AnzTage TreeAb TreeExpandBis TreeExpandUser Weiterleit SmsUser AnwsuDB AnwsuP1 TimerAnw Mailv Signatur isdnamt defsite friend EmailSms EmailMail Vertraulich persistent 1 %Persistent 60321,45300.017223 60428,38081.045085 0 %String %String faxnr,site 1 csi:%String,site:%String %Library.CacheStorage ^MiniFax.FaxnrRouteD FaxnrRouteDefaultData ^MiniFax.FaxnrRouteD ^MiniFax.FaxnrRouteI ^MiniFax.FaxnrRouteS listnode %%CLASSNAME faxnr site persistent 1 %Persistent 60428,57237.989637 60428,38081.050718 0 %Stream binarystream %String 1 name:%String %String %SQLQuery SELECT %ID,name FROM Formulare order by name name %Library.CacheStorage ^MiniFax.FormulareD FormulareDefaultData ^MiniFax.FormulareD ^MiniFax.FormulareI ^MiniFax.FormulareS listnode %%CLASSNAME formular name persistent 1 %Persistent 59699,55245.25671 60280,68839.823743 0 %String %Integer %String %Boolean %String %String %String 1 site:%String %Integer %SQLQuery Site:%String,Port:%Integer SELECT %ID,Port,Settings,Aktiv,SmsZentrale,SmsPin,SmsSite FROM GsmDev WHERE (Site = :Site) and (:Port=0 or Port = :Port) ORDER BY Port %Library.CacheStorage ^MiniFax.GsmDevD GsmDevDefaultData ^MiniFax.GsmDevD ^MiniFax.GsmDevI ^MiniFax.GsmDevS listnode %%CLASSNAME Aktiv Settings Site Port SmsPin SmsSite SmsZentrale persistent 1 %Persistent 59698,54107.168532 59658,45031.990125 0 %SQLQuery Site:%String SELECT %ID,FtpIP,FtpUser,FtpPassw,FtpDir,FtpIntervall,FtpSw FROM Import WHERE (ServerSite = :Site) ORDER BY FtpIP %String %String %String %String %String %String %String 1 site:%String %Integer %Library.CacheStorage ^MiniFax.ImportD ImportDefaultData ^MiniFax.ImportD ^MiniFax.ImportI ^MiniFax.ImportS listnode %%CLASSNAME FtpBez FtpDir FtpIP FtpPassw FtpUser FtpIntervall FtpSite ServerSite FtpSw persistent 1 %Persistent 60315,86117.809233 59658,45032.040423 0 %Integer %String %Integer Site DokId 1 id:%String,site:%String,status:%String %Library.CacheStorage ^MiniFax.JournalD JournalDefaultData ^MiniFax.JournalD ^MiniFax.JournalI ^MiniFax.JournalS listnode %%CLASSNAME DokId Site Status persistent 1 %Persistent 61450,53664.336143 59658,45032.12795 0 1 pcode:%String %Integer 1 passw:%String,loginsite:%String %String 1 id:%String,mailserver:%String,mailport:%String,maildomain:%String %Integer 1 id:%String,mailserver:%String,mailport:%String,maildomain:%String,best:%Boolean=1,mailtext:%String="" %String 1 id:%Integer,from:%String,to:%String,subject:%String,text:%String,mailserver:%String,mailport:%String,maildomain:%String %Integer 1 site:%String,status:%String,t:%Integer,typsel:%String %String t d obj.%Close() Q .... i +obj.SeriendruckStatus=1 Q //Kein Senden bei Seriendruck-Parent .... i obj.Site="" q .... i status=2,obj.uuid'="" q .... s sw=id,typ=obj.Typ .... d obj.%Close() k obj s ^test("kmessagenext")=sw_"|"_typ q sw_"|"_typ ]]> 1 psite:%String %Integer 1 %Integer 600,+obj.Datum s delsw=1 . if obj.Status=5,ltage>0,$H-obj.Datum'0,$H-obj.Datum'0,$H-obj.Datum'0,$H-obj.Datum'0,$H-obj.Datum'0,$H-obj.Datum' %Library.CacheStorage ^MiniFax.MinifaxD MinifaxDefaultData ^MiniFax.MinifaxD ^MiniFax.MinifaxI ^MiniFax.MinifaxS listnode %%CLASSNAME BerAdmin BerExpert BerUser persistent 1 %Persistent 59685,63745.499924 60280,68840.095177 %Boolean %Library.CacheStorage ^MiniFax.ParaD ParaDefaultData ^MiniFax.ParaD ^MiniFax.ParaI ^MiniFax.ParaS listnode %%CLASSNAME SwDomain persistent 1 %Persistent 60492,49495.497819 60945,51822.153594 0 MiniFax.Doks parent Seriendruck 1 %String %String %String %String %String %String %String %String %String %String %String %String %String %String %SQLQuery dok:%String SELECT %ID,nr,titel,name1,name2,strasse,landplzort,dokumentid,addr,anrede,zusatz1,zusatz2,zusatz3,zusatz4,zusatz5 FROM Seriendruck WHERE Doks=:dok %Library.CacheStorage {%%PARENT}("Seriendruck") SeriendruckDefaultData {%%PARENT}("Seriendruck") ^MiniFax.SeriendruckI ^MiniFax.SeriendruckS listnode %%CLASSNAME aktiv landplzort name1 name2 nr strasse typ dokumentid titel addr anrede zusatz1 zusatz2 zusatz3 zusatz4 zusatz5 persistent 1 %Persistent 59659,86384.681757 59664,50474.198012 0 Typ,Site,Datum %String %String %Date %Integer %Integer %Integer %Integer 1 typ:%String,site:%String,datum:%String %String %Library.CacheStorage ^MiniFax.StatistikD StatistikDefaultData ^MiniFax.StatistikD ^MiniFax.StatistikI ^MiniFax.StatistikS listnode %%CLASSNAME Anzahl Datum Dauer Einheiten Seiten Site Typ 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) . Q:ABTNR="" . 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 ]]>