Index: csp/prgaorder.cls.xml =================================================================== diff -u -r1074 -r2200 --- csp/prgaorder.cls.xml (.../prgaorder.cls.xml) (revision 1074) +++ csp/prgaorder.cls.xml (.../prgaorder.cls.xml) (revision 2200) @@ -1,6 +1,7 @@ +vhLib.Macro %CSP.Page 0 @@ -21,9 +22,63 @@ %Status 0 Zie ^Hulp(""AAATest"",""S"")" + ;Quit + New CStream,rSize,i + Set CStream=##class(%GlobalCharacterStream).%New() + Do Ord.XMLOudWrite(Input,CStream,"N","ORDF;GAV","Format GAOrder.xsl") + Set rSize=20000 + Kill ^Hulp("AAATest","S") + Set ^Hulp("AAATest","S")=CStream.Read(.rSize) + Set i=0 + For Do Quit:(rSize<0) + . Set tmpR=CStream.Read(.rSize) + . Quit:(rSize<0) + . Set ^Hulp("AAATest","S",$INCREMENT(i))=tmpR + Quit ]]> + + +1 +%Boolean +1 + + Index: APPS/PM/Maatwerk/MaatwerkDoc.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/MaatwerkDoc.cls.xml (revision 0) +++ APPS/PM/Maatwerk/MaatwerkDoc.cls.xml (revision 2200) @@ -0,0 +1,140 @@ + + + +vhLib.Macro +1 +%RegisteredObject +0 + + + +Geeft de url terug om de productiepagina in een browser te kunnen tonen. +ProductID is wat vroeger PRNr heette. + +OPGELET : dit is de url van een csp-pagina; iedere opgevraagde csp-pagina bezet een license-unit (5 min session active + 5 min grace period) +ProductID:%String +%String + + + + + +Geeft de url terug om de productiepagina van een order in een browser te kunnen tonen. + StructOrderInput is van de vorm ObjTyp\ObjRef\KLNr\TOENr + SoortGA is GADEF of GADATA : geeft aan dat de kaderdeuren+banco's resp. de TBox+TLM+andere GAData-producten in het order getoond worden + +OPGELET : dit is de url van een csp-pagina; iedere opgevraagde csp-pagina bezet een license-unit (5 min session active + 5 min grace period) +StructOrderInput:%String,SoortGA:%String +%String + + + + +StructOrderInput:%String,SoortGA:%String +%String + + + + +StructOrderInput:%String,SoortGA:%String +1 +%Status + + + + +SoortGA:%String +1 +%String + + + + +1 +%String + + + + +SoortGA:%String +1 +%String + + + + +StructOrderInput:%String,XSLURL:%String="" +1 +%FileCharacterStream + + + + +Stream:%Stream,ToFilePath:%String +1 +%Status + + + + Index: Flow/Had/OrderHfd.cls.xml =================================================================== diff -u -r1867 -r2200 --- Flow/Had/OrderHfd.cls.xml (.../OrderHfd.cls.xml) (revision 1867) +++ Flow/Had/OrderHfd.cls.xml (.../OrderHfd.cls.xml) (revision 2200) @@ -371,6 +371,8 @@ ;Do XMLORDER^XMLWRITETST(%this,DevObj,Taal,$G(Opties),XSLURL) ;Quit + // Send mail : added by WimV on 23/09/2011 - om te monitoren of XMLWrite nog wordt opgeroepen. Vermoedelijk wordt alleen nog de classmethod XMLOudWrite() gebruikt. + Set sc=$$SendMiniMail^vhLib.Mail("AdminCACHE@vanhoecke.be",$LB("wv@vanhoecke.be"),"Flow.Had.OrderHfd XMLWrite","Flow.Had.OrderHfd XMLWrite() method wordt nog steeds gebruikt"_$$$CRLF_$$GetStackToString^vhTools()_$$$CRLF_$$$CRLF_$$GetJobInfo^vhLib.System(),0) New OrderNr,objGADef,LijnNr,KlantNr,NL,param1 Set NL=$C(13)_$C(10) Index: TECH/ListUtils.cls.xml =================================================================== diff -u -r2193 -r2200 --- TECH/ListUtils.cls.xml (.../ListUtils.cls.xml) (revision 2193) +++ TECH/ListUtils.cls.xml (.../ListUtils.cls.xml) (revision 2200) @@ -200,23 +200,44 @@ ]]> - + Oproepen via - set Lijst=##class(TECH.ListUtils).AtomicItemsAdd("value1","value2","value3","value4") + set Lijst=##class(TECH.ListUtils).CreateListOfDataTypes("value1","value2","value3", ... 1 ArgItems...:%String %ListOfDataTypes + + + + +Oproepen via + set Lijst=##class(TECH.ListUtils).CreateListOfObjects(obj1,obj2,obj3, ... +1 +ArgItems...:%String +%ListOfObjects + + + + +1 +list:%AbstractList,mdArgItems:%String +1 + Index: HADWIZ.mac.rou =================================================================== diff -u -r1185 -r2200 --- HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 1185) +++ HADWIZ.mac.rou (.../HADWIZ.mac.rou) (revision 2200) @@ -186,6 +186,8 @@ Set FP=2155 Write @F,Groep Set FP=2204 Write @F," Munt :" Set FP=2215 Write @F,Munt + Set FP=2244 Write @F," PRNr :" + Set FP=2255 Write @F,PRNr Set FP=2304 Write @F," Aantal :" Set FP=2315 Write @F,Aantal Set FP=2007 Write @F,"HALUX\PRODUKT\DISPLAY" Index: vhDeploy/WV/Deploy20110927x1019.cls.xml =================================================================== diff -u --- vhDeploy/WV/Deploy20110927x1019.cls.xml (revision 0) +++ vhDeploy/WV/Deploy20110927x1019.cls.xml (revision 2200) @@ -0,0 +1,32 @@ + + + + +Added by WimV +1 +svn.Deploy +0 + + +1 + + + + Index: csp/prgaproduct.cls.xml =================================================================== diff -u -r1185 -r2200 --- csp/prgaproduct.cls.xml (.../prgaproduct.cls.xml) (revision 1185) +++ csp/prgaproduct.cls.xml (.../prgaproduct.cls.xml) (revision 2200) @@ -1,6 +1,7 @@ +vhLib.Macro %CSP.Page 0 @@ -21,9 +22,108 @@ %Status 0 Invalid data." + Quit +opgXMLFromGlobal + If $L(CheckDigit) Quit:(CheckDigit'=$P($G(^Hulp(Key,"I")),"\",1)) + Write:($D(^Hulp(Key,"S"))#10) ^Hulp(Key,"S") + Quit +opgXMLKaderdeurViaID(ProdID) + New PR + Set PR=##class(Prod.GADef.KaderDeur).%OpenId(ProdID) + Quit:('$IsObject(PR)) + Do PR.XMLWrite(0,"N","GAO;GAF;GAV",$S($G(%request.Data("NOXSL",1))=1:"", 1:"Format GADefKader.xsl")) + Set PR="" + Quit +opgXMLViaID(ProdID) + New arValidPR,PR + Set PR=##class(Prod.GAData.Product).OpenWithCalc(ProdID) + Quit:('$IsObject(PR)) + If 'PR.ValidatePR(.arValidPR) Do opgInvalidPR + Do PR.XMLWrite(0,"N","GAF;GAO",$S($G(%request.Data("NOXSL",1))=1:"", 1:"Format GAProduct.xsl")) + Do:($G(%request.Data("TOGLOB",1))=1) opgXMLtoGlobal + Do PR.%Close() + Quit +opgInvalidPR +#define CRLF $C(13,10) + New tmpRqCGI,msg,Key,DItem,tmpLB + Merge tmpRqCGI=%request.CgiEnvs + Set msg="Fouten bij de validatie van de producten (IP:"_tmpRqCGI("REMOTE_ADDR")_") :" + Set Key="" + For Set Key=$O(arValidPR(0,Key)) Quit:(Key="") Do + . Set DItem=PR.DataItems.GetAt(Key) + . Do opgBuildColumnData + . Set msg=msg_$$$CRLF_"> "_DItem.Get("Oms")_" ("_DItem.Code_") : "_$S(DItem.MetaItem.Code="KST":"MatKost="_$$$LCVT(DItem.CalcMat()), 1:"PRNr="""_DItem.Get("PRNr")_""""_$S(0:" Kenm="_$$$LCVT(DItem.Get("Kenm")),1:"")) + . Set msg=msg_$$$CRLF_"> "_$$LCVT^vhLib(tmpLB) + d WL^vhDBG(msg) + Quit +opgBuildColumnData +#define LBDeleteAt(%lb,%i) $LI(%lb,1,%i-1)_$LI(%lb,%i+1,-1) + New MParam,MetaI,i + Set MetaI=DItem.MetaItem + Set tmpLB="" + Set PKey="" + For Set MParam=MetaI.Parameters.GetNext(.PKey) Quit:(PKey="") Do:(MParam.KolomNr>0) + . Set $LI(tmpLB,MParam.KolomNr)=DItem.Get(PKey) + For i=$LL(tmpLB):-1:1 Set:('$LD(tmpLB,i)) tmpLB=$$$LBDeleteAt(tmpLB,i) ; Lege ListItems verwijderen + Quit +opgXMLtoGlobal + New Key,CStream + Set Key=$$%J^vhRtn1_"TBX" + Set CStream=##class(%GlobalCharacterStream).%New() + Do PR.XMLWrite(CStream,"N","GAF;GAO","Format GAProduct.xsl") + d WL^vhDBG("WBrKey :"_Key_" "_" op "_$G(ComputerName,$ZUTIL(110))_" / "_$G(NameSpace,$ZUTIL(67,6,$J))) + Do txoXMLToGlobal(Key,0) + Do CStream.%Close() + Quit +txoXMLToGlobal(Key,CheckDigits) + Quit:(Key="") + Kill ^wvXML("GA.PR",Key) + Set ^wvXML("GA.PR",Key,"I")=CheckDigits_"\"_"\"_$J + Set ^wvXML("GA.PR",Key,"S")=CStream.Read(CStream.Size) + Quit ]]> + + +1 +%Boolean +1 + + Index: WV GAProduct.prj.xml =================================================================== diff -u -r2007 -r2200 --- WV GAProduct.prj.xml (.../WV GAProduct.prj.xml) (revision 2007) +++ WV GAProduct.prj.xml (.../WV GAProduct.prj.xml) (revision 2200) @@ -1,9 +1,10 @@ - + + @@ -134,13 +135,12 @@ - - +