CSP page for viewing the FAX Queue items User vhLib.Macro cache 0 %CSP.Page 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write !,$c(9)_"

"_($$$UCase($G(CspPageTitle, ..%ClassName(0)))_$G(OnServer))_"

",! Write $c(9)_"
",! Write $c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set FaxRS = ##class(%ResultSet).%New() Set FaxRS.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlFaxQueue),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,62)) Quit } // translate tab/cr/nl to spaces Set %sc = FaxRS.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = FaxRS.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9) ;Set FaxRS=##class(%ResultSet).%New("Derde.Fax.UitgaandeFaxenQueue:ListAll") ;Do FaxRS.Execute() Set FaxRSColCount=FaxRS.GetColumnCount() Write !,$c(9)_"",! Write $c(9,9)_""_$c(9,9),! Write $c(9,9,9) Set col=0 %csp00002 If '((col"_$c(9,9,9),! Write $c(9,9,9) Goto %csp00002 %csp00001 ;} Write !,$c(9,9)_""_$c(9,9),! Write $c(9,9) Kill arColSpecial Set blnAddLink=0 Set blnAddChk=0 Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00004 If '((col"_(ColumnName)_"",! Write $c(9,9,9) Goto %csp00004 %csp00003 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00006 If '((FaxRS.Next())) Goto %csp00005 ;{ Set row=row+1 Write " " Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00008 If '((col"_($S($L(tmpVal):tmpVal,1:" "))_"",! Write $c(9,9,9) Goto %csp00008 %csp00007 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00006 %csp00005 ;} Write !,$c(9)_"
",! Write $c(9)_"
",! Write $c(9)_"

",! Write $c(9,9)_" " Write "" Write "  (opnieuw ophalen van de lijst van de Fax-console)
",! Write $c(9,9)_"  Last update: "_(LastUpdated),! Write $c(9)_"

",! Write $c(9)_"

 

",! Write $c(9)_"

",! Write $c(9,9)_" " Write "" Write "  (herstarten van de FaxJobMonitor op TAPI)
",! Write $c(9,9)_"  Dit is enkel nodig wanneer de lijst hierboven niet meer synchroon loopt met de ""Outbox"" van de ""MS Fax-console"".
",! Write $c(9,9)_"  Volg de logging via Debug-Window op TAPI.
",! Write $c(9,9)_"  Web Service klasse via webpage : " Write "" Write "WS.Derde.Fax.UitgaandeFaxen.cls" Write "" Write ". ",! Write $c(9)_"

",! Write "
",! Write "
",! Write "" ]]> 1 code %Boolean 1 code %Boolean " Write ! Set BodyBgColor=##class(TECH.Config.ConfigMgr).Instance().GetString("WebpaginaAchtergrondKleur") Set OnServer = "  ["_$$$NSpace_"]" Write !,$c(9)_""_($G(CspPageTitle,..%ClassName(0))_$G(OnServer))_"",! Write $c(9) Write "" Write $c(9),! Write $c(9) Write "" Write !,!,$c(9) Write "" Write !,(..HyperEventHead()) Write !,!,"" ]]> 1 code %Boolean " Write !,! Do ..OnPageHEAD() Write !,! Do ..OnPageBODY() Write !,"" ]]> 1 code %Boolean 1 code %Boolean 1 code cache %Boolean '||"_%v_"||'')" Set CspPageTitle=$S(1:"Uitgaande Fax Queue", 1:"") /*** INPUT PARAMETERS ***/ /*** ================ ***/ ; Request Parameters Kill:($G(%request.Data("QUERY",1))="") %request.Data("QUERY") Set name="" For Set name=$O(%request.Data(name)) Quit:(name="") Merge tmpRq(name)=%request.Data(name,1) /*** SQL STATEMENTS ***/ /*** ============== ***/ ; SQL-statement for FAX Queue (Outbox) Set sqlFaxQueue="SELECT JobID,DateTimeSubmitted AS Tijdstip, "_$$$CvtNOBR("$LISTGET($LISTGET($LISTGET(Recipients,1),1),2) || ' - ' || $LISTGET($LISTGET($LISTGET(Recipients,1),1),1)")_" AS Recipient1 ,Subject,SenderName,pOnErrorMailTo AS ErrorMail, LastStatusInfo, ErrorMailSentTS" Set sqlFaxQueue=sqlFaxQueue_$C(13,10)_" FROM Derde_Fax.UitgaandeFaxenQueue " Set sqlFaxQueue=sqlFaxQueue_$C(13,10)_" ORDER BY JobID " ;Set blnSHOWCHK=($G(%request.Data("SHOWCHK",1),0)=1) Set LastUpdated=$G(^Derde.Fax.UitgaandeFaxQueue.MR("LastUpdated")) Set LastUpdated=$S(+LastUpdated:$ZDT(LastUpdated,4), 1:"???") Quit 1 ]]> 1 code cache %String 1 code cache %String c:\cachesys\csp\admin1\FaxQueue.csp /csp/admin1/FaxQueue.csp 62105,36957