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

CSP page for viewing a FOP Queue Item/Task vhLib.Macro,BL.Sys.FOP.Common cache %CSP.Page 0 1 code ClassName,ObjID cache %String 1 code Key,ClassName,ObjID,arGlobRef cache 1 code QItemID cache %String 1 code %Status 1 code %Boolean " Write !,(..HyperEventBody()) Write ! If '((blnSQED)) Goto %csp00001 ;{ Write !,$c(9)_"

"_(sqlTask)_"

",! Write $c(9) Write "

" Write !,..InsertHiddenFields(""),! Write !,$c(9,9) Write "" Write !,$c(9,9) Write "" Write !,$c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"

",! Write $c(9,9,9,9,9)_"

SQL Query:

",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"

",! Write $c(9,9,9,9,9)_"

Task ID:

" Write "" Write !,$c(9,9,9,9,9)_"

",! Write $c(9,9,9,9,9) Write "" Write "Query Editor visible",! Write $c(9,9,9,9,9)_"
",! Write $c(9,9,9,9,9) Write "" Write !,$c(9,9,9,9)_"

",! Write $c(9,9)_" ",! Write $c(9,9) Write "" Write " ",! Write $c(9,9) Write "" Write !,$c(9) Write "

" Write ! Goto %csp00002 ;} %csp00001 ;{ Write !,$c(9)_"
",! Write $c(9) Write "" Write "Show Query Editor" Write "" Write ! %csp00002 ;} Write !,"

",! Write ! If '(($G(blnQItemOnQueue))) Goto %csp00003 ;{ Write !,$c(9)_"

Acties voor deze taak:

",! Write $c(9)_"

" Write "" Write "Herbeginnen" Write "" Write " (als nieuwe opdracht / Repost this Task)
" Write "" Write "Verplaatsen" Write "" Write " (naar archief / Move this Task to Archive)
" Write "" Write "Verwijderen" Write "" Write " (uit de Queue / Remove this Task from Queue)
" Write "" Write "Manage Queue Items" Write "" Write "

",! Write $c(9)_"

",! %csp00003 ;} Write ! If '(($G(blnAllowRepost))) Goto %csp00004 ;{ Write !,$c(9)_"

Acties voor deze taak:

",! Write $c(9)_"

" Write "" Write "Herbeginnen" Write "" Write " (als nieuwe opdracht / Repost this Task)

",! Write $c(9)_"

",! %csp00004 ;} Write !,! If '(($L(sqlActive))) Goto %csp00005 ;{ Write !,$c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryA = ##class(%ResultSet).%New() Set queryA.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlActive),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,166)) Quit } // translate tab/cr/nl to spaces Set %sc = queryA.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryA.Execute(($G(%request.Data("P1",1),"A"))) If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9) Set qryAColCount=queryA.GetColumnCount() Write !,$c(9)_"",! Write $c(9,9)_""_$c(9,9),! Write $c(9,9,9) Set col=0 %csp00007 If '((col",! Write $c(9,9,9) Goto %csp00007 %csp00006 ;} Write !,$c(9,9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00009 If '((col"_(queryA.GetColumnName(col))_"",! Write $c(9,9,9) Set arColIndex(queryA.GetColumnName(col))=col Write !,$c(9,9,9) Goto %csp00009 %csp00008 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00011 If '(queryA.Next()) Goto %csp00010 ;{ Set row=row+1 Write " " Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00013 If '((col"_($S($L(queryA.GetData(col)):queryA.GetData(col), 1:" "))_"",! Write $c(9,9,9) Goto %csp00013 %csp00012 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00011 %csp00010 ;} Write !,$c(9)_"

",! Write $c(9)_"
",! %csp00005 ;} Write !,! If '((ShowTask)) Goto %csp00014 ;{ Write !,$c(9)_"

FOP TASK

",! Write $c(9)_"

" Write "" Write "Overzicht IDs:" Write "" Write "

",! Write $c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9,9)_"",! Write $c(9,9)_"",! Write $c(9)_"

",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"

QItem ID	QArchive ID	Task ID	TSeq ID
"_($S(blnQArchive&&0:"-",1:$G(QItemID)))_"	"_($G(QArchID))_"	"_($G(TaskID))_"	"_($G(TSeqID))_"

",! Write $c(9,9,9)_"

",! Write $c(9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9)_"",! Write $c(9,9,9,9,9,9) Write "" Write !,$c(9,9,9,9,9)_"",! Write $c(9,9,9,9)_"

LogID Created	LogID Started	LogID Finished
"_($G(LogIDCreated))_"	"_($G(LogIDStarted))_"	"_($G(LogIDFinished))_"

",! Write $c(9,9,9)_"

",! Write $c(9) If '(($G(blnTaskConflictIDs))) Goto %csp00015 ;{ Write !,$c(9,9)_"

!!! TaskID from Queue-object : "_($G(TaskIDFromQ))_" --- conflicting IDs !!!

",! Write $c(9) %csp00015 ;} Write !,$c(9)_"
",! Write $c(9)_"

" Write "" Write "Queue Item Data:" Write "" Write "

",! Write $c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryTask01 = ##class(%ResultSet).%New() Set queryTask01.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlTask01),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,239)) Quit } // translate tab/cr/nl to spaces Set %sc = queryTask01.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryTask01.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00017 If '((col"_(queryTask01.GetColumnName(col))_"",! Write $c(9,9,9) Goto %csp00017 %csp00016 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00019 If '(queryTask01.Next()) Goto %csp00018 ;{ Set row=row+1 Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00021 If '((col"_($S($L(queryTask01.GetData(col)):queryTask01.GetData(col), 1:" "))_"",! Write $c(9,9,9) Goto %csp00021 %csp00020 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00019 %csp00018 ;} Write !,$c(9)_"

",! Write $c(9),! Write $c(9) Write "

" Write !,$c(9,9)_"

" Write "" Write "Global Data:" Write "" Write " " Write "" Write ($G(arGlobRef("QUEUE","globdata"))) Write "" Write "

",! Write $c(9,9) If '(($G(arGlobRef("QUEUE","globshow")))) Goto %csp00022 ;{ Write "

"_($$ArrayToText^vhLib(arGlobRef("QUEUE","globdata")))_"

" %csp00022 ;} Write !,$c(9) Write "

" Write !,$c(9),! Write $c(9)_"
",! Write $c(9)_"

" Write "" Write "Task Data:" Write "" Write "

",! Write $c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryOrd02 = ##class(%ResultSet).%New() Set queryOrd02.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlTask02),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,262)) Quit } // translate tab/cr/nl to spaces Set %sc = queryOrd02.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryOrd02.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00024 If '((col"_(queryOrd02.GetColumnName(col))_"",! Write $c(9,9,9) Goto %csp00024 %csp00023 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00026 If '(queryOrd02.Next()) Goto %csp00025 ;{ Set row=row+1 Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00028 If '((col"_($S($L(queryOrd02.GetData(col)):queryOrd02.GetData(col), 1:" "))_"",! Write $c(9,9,9) Goto %csp00028 %csp00027 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00026 %csp00025 ;} Write !,$c(9)_"

",! Write $c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryOrd02b = ##class(%ResultSet).%New() Set queryOrd02b.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlTask02b),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,277)) Quit } // translate tab/cr/nl to spaces Set %sc = queryOrd02b.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryOrd02b.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00030 If '((col"_(queryOrd02b.GetColumnName(col))_"",! Write $c(9,9,9) Goto %csp00030 %csp00029 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00032 If '(queryOrd02b.Next()) Goto %csp00031 ;{ Set row=row+1 Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00034 If '((col"_($S($L(queryOrd02b.GetData(col)):queryOrd02b.GetData(col), 1:" "))_"",! Write $c(9,9,9) Goto %csp00034 %csp00033 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00032 %csp00031 ;} Write !,$c(9)_"

",! Write !,$c(9) Write "

" Write !,$c(9,9)_"

" Write "" Write "Global Data:" Write "" Write " " Write "" Write ($G(arGlobRef("TASK","globdata"))) Write "" Write "

",! Write $c(9,9) If '(($G(arGlobRef("TASK","globshow")))) Goto %csp00035 ;{ Write "

"_($$ArrayToText^vhLib(arGlobRef("TASK","globdata")))_"

" %csp00035 ;} Write !,$c(9) Write "

" Write !,$c(9),! Write $c(9)_"
",! Write $c(9)_"

" Write "" Write "Task Sequence Items:" Write "" Write "

",! Write $c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryOrdLn = ##class(%ResultSet).%New() Set queryOrdLn.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlTask03),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,300)) Quit } // translate tab/cr/nl to spaces Set %sc = queryOrdLn.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryOrdLn.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00037 If '((col"_(queryOrdLn.GetColumnName(col))_"",! Write $c(9,9,9) Goto %csp00037 %csp00036 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00039 If '(queryOrdLn.Next()) Goto %csp00038 ;{ Set row=row+1 Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00041 If '((col"_($S($L(queryOrdLn.GetData(col)):queryOrdLn.GetData(col), 1:" "))_"",! Write $c(9,9,9) Goto %csp00041 %csp00040 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00039 %csp00038 ;} Write !,$c(9)_"

",! Write !,$c(9) Write "

" Write !,$c(9,9)_"

" Write "" Write "Global Data:" Write "" Write " " Write "" Write ($G(arGlobRef("TSEQ","globdata"))) Write "" Write "

",! Write $c(9,9) If '(($G(arGlobRef("TSEQ","globshow")))) Goto %csp00042 ;{ Write "

"_($$ArrayToText^vhLib(arGlobRef("TSEQ","globdata")))_"

" %csp00042 ;} Write !,$c(9) Write "

" Write !,!,$c(9)_"
",! Write $c(9) Write "" Write !,$c(9) If '($G(LogLines)>0) Goto %csp00043 ;{ Write !,$c(9)_"

" Write "" Write "Logging Data:" Write "" Write " " Write "" Write ($G(arGlobRef("LOG","globdata"))) Write "" Write "

",! Write $c(9) // Open instance of ResultSet for runtime mode of DISPLAY. Set queryOrdLn = ##class(%ResultSet).%New() Set queryOrdLn.RuntimeMode=2 Set sqlStatement=$zstrip($tr((sqlTask04),$C(9,13,10)," "),"<>W") If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" { Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,325)) Quit } // translate tab/cr/nl to spaces Set %sc = queryOrdLn.Prepare(sqlStatement,0,"RUNTIME") If (+%sc=0) { Do ..ShowError(%sc) QUIT } Set %sc = queryOrdLn.Execute() If (+%sc=0) { Do ..ShowError(%sc) QUIT } Write !,$c(9)_"",! Write $c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00045 If '((col"_(queryOrdLn.GetColumnName(col))_"",! Write $c(9,9,9) Goto %csp00045 %csp00044 ;} Write !,$c(9,9)_"",! Write $c(9,9) Set row=0 %csp00047 If '(queryOrdLn.Next()) Goto %csp00046 ;{ Set row=row+1 Write !,$c(9,9)_"",! Write $c(9,9,9) Set col=0 %csp00049 If '((col"_($S($L(queryOrdLn.GetData(col)):queryOrdLn.GetData(col), 1:" "))_"",! Write $c(9,9,9) Goto %csp00049 %csp00048 ;} Write !,$c(9,9)_"",! Write $c(9,9) Goto %csp00047 %csp00046 ;} Write !,$c(9)_"

",! Write !,$c(9) Write "

" Write !,$c(9,9)_"

" Write "" Write "Global Data:" Write "" Write " " Write "" Write ($G(arGlobRef("LOG","globdata"))) Write "" Write "

",! Write $c(9,9) If '(($G(arGlobRef("LOG","globshow")))) Goto %csp00050 ;{ Write "

"_($$ArrayToText^vhLib(arGlobRef("LOG","globdata")))_"

" %csp00050 ;} Write !,$c(9) Write "

" Write !,$c(9) Goto %csp00051 ;} %csp00043 ;{ Write !,$c(9,9)_"

" Write "" Write "Show Logging" Write "" Write " (default "_($G(LogLinesDFL,"?"))_" lines)

",! Write $c(9) %csp00051 ;} Write $c(9),! Write $c(9) Write "" Write ! %csp00014 ;} 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 ! Do ..Include("incMsgBoxCustomVB.csp") 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_"||'') "_%v #define CvtNOBRhtml(%v) "('<NOBR>'||"_%v_"||'</NOBR>') "_%v #define StatussesToMove(%v) (%v?1(1$$$qsError,1$$$qsProcessed,1$$$qsFinished)) #define LogLinesDFL 20 /*** 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) ; Defaulting via QueryString Set QItemID=$G(%request.Data("QITEM",1)) Set QArchID=$G(%request.Data("QARCH",1)) Set TaskID=$G(%request.Data("TASK",1)) Set LogLines=$G(%request.Data("LOGLINES",1),0) ; Calc derived objects and values Set blnQArchive=(QItemID="")&&(QArchID'="") Set QueueID=$S(blnQArchive:QArchID,1:QItemID) Set LogIDShowFirst="" Set QItem="" Set:($L(QueueID)) QItem=$zobjclassmethod($S(blnQArchive:"Sys.FOP.QueueArchive", 1:"Sys.FOP.QueueItem"),"%OpenId",QueueID) ; Task from Queue-object ? If $IsObject(QItem) Do . Set blnQItemExists=1 . Set TaskIDFromQ=QItem.TaskGetObjectId() . If (TaskID="") Do . . Set blnTaskFromQItem=1 . . Set TaskID=TaskIDFromQ . Else Do . . Set blnTaskFromQItem=0 . . Set blnTaskConflictIDs=(TaskID'=TaskIDFromQ) . ; Calc LogTimes . Set LogIDCreated=##class(Sys.FOP.Logging).NearestLogID(QItem.Created) . Set LogIDStarted=##class(Sys.FOP.Logging).NearestLogID(QItem.Started) . Set LogIDFinished=##class(Sys.FOP.Logging).NearestLogID(QItem.Finished) . Set LogIDShowFirst=$S($L(LogIDStarted):LogIDStarted, $L(LogIDCreated):LogIDCreated, $L(LogIDFinished):LogIDFinished, 1:"") . Set LogIDShowLast=LogIDFinished . If LogIDShowLast="" Do . . Set LogIDShowLast=LogIDShowFirst . . Set $P(LogIDShowLast,"||",2)=$P(LogIDShowFirst,"||",2)+$G(LogLines,10) . ; . Set:(blnQArchive) QItemID="("_QItem.QItemID_")" Else Do . Set blnQItemExists=0 Set blnQItemOnQueue=##class(Sys.FOP.QueueItem).%ExistsId(QItemID) If (blnQItemOnQueue)&&('$$$StatussesToMove(QItem.Status)) Do . Set jsConfirmSpecial="Deze Task is nog niet verwerkt (status="_QItem.Status_")."_$$$CRLF_"Wil je toch doorgaan met deze actie?" ; Check Task and TaskSequence Set ShowTask=(##class(Sys.FOP.Task).%ExistsId(TaskID)) ; $G(%request.Data("TASK",1)) Set TSeqID="" If ShowTask Do . Set TaskOmsTitle="Task "_TaskID_$S($L(QueueID):" (Queue:"_QueueID_")",1:"") . &SQL(SELECT ID INTO :TSeqID FROM Sys_FOP.TaskSequence WHERE Task=:TaskID ORDER BY ID DESC) Set:($L(TSeqID))&&('##class(Sys.FOP.TaskSequence).%ExistsId(TSeqID)) TSeqID="" /*** SQL STATEMENTS ***/ /*** ============== ***/ ; SQL-statement for FOP Task via ID Set sqlTask01="SELECT ID As QueueID,Status,Priority,RunMode,Task,Task->KeyWords As Task_KeyWords, Created,Started,Finished,(InternePersoonInits || ' - ' || InternePersoon) As InternePersoon FROM "_$S(blnQArchive:"Sys_FOP.QueueArchive",1:"Sys_FOP.TaskQueue")_" WHERE (ID="_$S(QueueID="":"'???'",1:QueueID)_")" Set sqlTask02="SELECT ID1 As TaskID,Status,ActionPrint_Printer AS Print_Printer,ActionFile_DocPath AS File_DocPath,ActionFile_DocName AS File_DocName,ActionFax_FaxNr AS Fax_FaxNr,ActionMail_Aan AS Mail_Aan,ActionMail_Subject AS Mail_Subject,ActionPrint_OMRCode AS PrintGroep FROM Sys_FOP.Task WHERE ID1='"_TaskID_"'" Set sqlTask02b="SELECT element_key As DocKey, Docs_DataRef As DataRef, Docs_DataFetchType As DataFetchType ,Docs_DataDefsLB As DataDefsLB, Docs_DataType As DataType, Docs_TransformTemplate As TFTemplate, Docs_TransformType As TFType, Docs_Taal As Taal, Docs_XSLParameters As XSLT_Params, Task FROM Sys_FOP.Task_Docs WHERE Task='"_TaskID_"'" Set sqlTask03="SELECT TaskSequence, Items_SortNr AS SortNr, Items_OmsID AS OmsID, Items_Status AS Status, Items_Type AS Type, ID, Items_LogInfo AS LogInfo FROM Sys_FOP.TaskSequence_Items WHERE "_$S(1:"TaskSequence->Task = '"_TaskID_"'", 1:"TaskSequence = "_$S(TSeqID="":0,1:TSeqID))_"" Set sqlTask04="SELECT top "_$G(LogLines,10)_" ID, Niveau, Datum, Tijd, Groep, Actie, "_$$$CvtNOBR("Detail")_" FROM Sys_FOP.Logging WHERE (IDNum >= "_(($P(LogIDShowFirst,"||",1)*1000000)+$P(LogIDShowFirst,"||",2))_")" ;Set sqlTask04="SELECT top "_$G(LogLines,10)_" ID, Niveau, Datum, Tijd, Groep, Actie, "_$$$CvtNOBR("Detail")_" FROM Sys_FOP.Logging WHERE (ID BETWEEN '"_(LogIDShowFirst)_"' AND '"_(LogIDShowLast)_"' )" Set:(LogIDShowFirst="") sqlTask04="SELECT ID, Niveau, Datum, Tijd, Groep, Actie, "_$$$CvtNOBR("Detail")_" FROM Sys_FOP.Logging WHERE (0=1)" ; SQL-statement for FOP Task via ID (ONLY FOR DISPLAY) Set sqlTask="SELECT ID,Status,Priority,RunMode,Task,Task->KeyWords As Task_KeyWords, Created,Started,Finished,(InternePersoonInits || ' - ' || InternePersoon) As InternePersoon " Set sqlTask=sqlTask_$C(13,10)_" FROM Sys_FOP.TaskQueue WHERE ID1=111" Set sqlTask=sqlTask_$C(13,10)_"SELECT ID1,Status,ActionPrint_Printer AS Print_Printer,ActionFile_DocPath AS File_DocPath,ActionFile_DocName AS File_DocName,ActionFax_FaxNr AS Fax_FaxNr,ActionMail_Aan AS Mail_Aan,ActionMail_Subject AS Mail_Subject" Set sqlTask=sqlTask_$C(13,10)_" FROM Sys_FOP.Task WHERE ID='999||0'" ; " WHERE Status<>'P' AND Status<>'F' ORDER BY Status, ID" Set sqlTask=sqlTask_$C(13,10)_"SELECT element_key As DocKey, Docs_DataRef As DataRef, Docs_DataFetchType As DataFetchType ,Docs_DataDefsLB As DataDefsLB, Docs_DataType As DataType, Docs_TransformTemplate As TFTemplate, Docs_TransformType As TFType, Docs_Taal As Taal, Docs_XSLParameters As XSLT_Params, Task " Set sqlTask=sqlTask_$C(13,10)_" FROM Sys_FOP.Task_Docs WHERE Task='999||0'" ; " WHERE Status<>'P' AND Status<>'F' ORDER BY Status, ID" Set sqlTask=sqlTask_$C(13,10)_"SELECT TaskSequence, Items_SortNr AS SortNr, Items_OmsID AS OmsID, Items_Status AS Status, Items_Type AS Type, ID, Items_LogInfo AS LogInfo" Set sqlTask=sqlTask_$C(13,10)_" FROM Sys_FOP.TaskSequence_Items WHERE TaskSequence in (SELECT ID FROM Sys_FOP.TaskSequence WHERE Task = '"_("999||0")_"')" Set sqlTask=sqlTask_$C(13,10)_"SELECT top 20 ID, Niveau, Datum, Tijd, Groep, Actie, "_$$$CvtNOBRhtml("Detail")_" " Set sqlTask=sqlTask_$C(13,10)_" FROM Sys_FOP.Logging WHERE (IDNum >= 60789000295)" ; SQL-statement last three IDs Set sqlTOP3="SELECT top 3 ID FROM Sys_FOP.TaskQueue ORDER BY ID Desc" ; SQLs to be displayed Set sqlActive=$G(%request.Data("QUERY",1)) Set blnSQED=$S($L(sqlActive):1, 1:$G(%request.Data("SQED",1),0)) ; boolean Show Query Editor ; URL for ToggleQueryEditor Merge tmpAr=tmpRq Kill tmpAr("SQED") Set tmpAr("SQED")=('blnSQED) Set arUrl("ToggleQED")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) If +$G(LogLines)=0 Do . Set LogLinesDFL=$$$LogLinesDFL . ; URL for ShowLogLines . Kill tmpAr . Merge tmpAr=tmpRq . Kill tmpAr("LOGLINES") . Set tmpAr("LOGLINES")=LogLinesDFL . Set arUrl("ShowLogLines")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) /*** GLOBALS ***/ /*** ======== ***/ Kill arGlobRef Do ..BuildGlobalsArray("QITEM","Sys.FOP.QueueItem",QItemID,.arGlobRef) Do ..BuildGlobalsArray("QARCH","Sys.FOP.QueueArchive",QArchID,.arGlobRef) Do ..BuildGlobalsArray("TASK","Sys.FOP.Task",TaskID,.arGlobRef) Do ..BuildGlobalsArray("TSEQ","Sys.FOP.TaskSequence",TSeqID,.arGlobRef) Do ..BuildGlobalsArray("LOG","Sys.FOP.Logging",LogIDShowFirst,.arGlobRef) ;Do ..BuildGlobalsArray("QUEUE",$S(blnQArchive:"Sys.FOP.QueueArchive", 1:"Sys.FOP.QueueItem"),QueueID,.arGlobRef) Merge arGlobRef("QUEUE")=arGlobRef($S(blnQArchive:"QARCH", 1:"QITEM")) ; Check if SQL-statement does not alter the tables data !!! Set lbAvoidSQL=$LB("CREATE TABLE","ALTER TABLE","DROP TABLE","CREATE QUERY","DROP QUERY","INSERT","UPDATE","DELETE") Set CspPageTitle="FOP Queue"_$S($G(ShowTask):" - "_TaskOmsTitle, 1:"") Quit 1 ]]> 1 code QItemID cache %String 1 code QItemID cache %String c:\cachesys\csp\admin1\FOPTask.csp /csp/admin1/FOPTask.csp 62105,37144