Index: csp/vhisie/TBX/Main/tmpDev.mac.rou =================================================================== diff -u -r84 -r91 --- csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 84) +++ csp/vhisie/TBX/Main/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 91) @@ -527,13 +527,12 @@ ; Show Order Details Set arShow("DisplayOrder","DTL")=$IsObject(WSOrd) Set IsDesignBeschikbaar=(WSOrd.IsLadeDesignBeschikbaar(.DS)) - + Do MShowVervaldagOFFText ; Positie van de tekst t.o.v. de buttons Set TextPos="RIGHT" ; $S($IsObject(WSOrd)&&(WSOrd.IsSubmitted()):"LEFT", 1:"RIGHT") - Set lbBulkConfig=##class(cspBasis.GAProdTBox).GetKlantBulk(TBXContext.GeefDomeinVerwerker(),KLNr) - Set lbBulkConfig=$LB("O;X") ; tijdelijke fix van WimV : uit te breiden naar KlantBulk + O + X (on 07/10/2011) - Set blnAllowBulk=($LG(lbBulkConfig,1)'="")&&($LG(lbBulkConfig,1)'="S") + Set lbBulkConfig=TBXContext.BulkConfigOptiesUitbreiden(##class(cspBasis.GAProdTBox).GetKlantBulk(TBXContext.GeefDomeinVerwerker(),KLNr)) + Set blnAllowBulk=1 ; Button SwitchToViewMode Do MShowSwitchToViewMode(('TBXContext.IsDomeinVHEPN())&& 1) ; &&(WSOrd.BonType="INKP") ; Button PrintPage @@ -552,10 +551,7 @@ . Set arShow("ChangeBulk","BTN")=(%RemoteIP?1(1"192.168.".E,1"127.0.0.1")) . If arShow("ChangeBulk","BTN") Do . . Do ophOrdToAdminSetSesData - . . Set arShow("ChangeBulk","EXPAND")=blnAllowBulk - . ;If blnAllowBulk Do // ; Button ChangeBulk OLD !!! - . ;. Do ophOrdToAdminSetSesData - . ;. Set arShow("ChangeBulk","BTN")=1 + . . ;Set arShow("ChangeBulk","EXPAND")=0 Else Do . ; Button SubmitToVHEPN . Do MShowSubmitToVHEPN(TBXContext.SubmitToVHviaCspPage(),WSOrd) @@ -567,6 +563,7 @@ . ; - http://tbx.sfsunimarket.biz/VHISIE/TBX/main.csp?Taal=D&HIST=1&REF=8H9XyVmkVvtSXca7DjMJpAFknWUyneyi4koTLULFuSk- Set WSOrd="" Quit + ophMMProcessFlowVHEPN() #define IsTextOnly(%v) (%v'?.E1C.E) New lbResult,tmpAr,sc