Hoekverbinder persistent Res.PI.Items

VZBSL : Vrijezone beslag

VZBOR : Vrijzezone boring

BORAX : Bevestingsboring A pos X

BORAY : Bevestingsboring A pos Y

BORBX : Bevestingsboring B pos X

BORBY : Bevestingsboring B pos Y ]]> %Library.Float array %Integer %Library.String Res.PI.Kost Res.PI.Kost %Library.String QtyStaffel:%Library.Integer,MuntPar:%Library.Float,DtlObj:Res.PI.emKostDetail,Opties:%Library.String,Omtrek:%Library.Float,Opp:%Library.Float,Volume:%Library.Float %Library.Float ; ... ; New strVML,intLeft,intTop,intRotate New MaxDim,FKey If $G(Plaats)="" Set Plaats="LB" If $G(XHoek)="" Set XHoek=0 If $G(YHoek)="" Set YHoek=0 Set intRotate=$S(Plaats="LB":0, Plaats="RB":90, Plaats="RO":180, Plaats="LO":270, 1:0) Set MaxDim="" Set strVML=$$TemplateVMLGet(%this.ItemID,.MaxDim) Set intLeft=XHoek-$S($E(Plaats,1)="R":MaxDim,1:0) Set intTop=YHoek-$S($E(Plaats,2)="O":MaxDim,1:0) ; Replace parameters by values For FKey="GROUP_LEFT;intLeft", "GROUP_TOP;intTop", "GROUP_ROTATE;intRotate" Do . Do ReplaceSubString(.strVML, "@"_$P(FKey,";",1)_"@", @$P(FKey,";",2)) Do WRITE^XMLWRITE(DevObj,strVML) Quit ReplaceSubString(strText,strFind,strNew) ; Replaces all in by ; strText should be passed by Reference !!! ; New FKey,Q,P,Find,Variable For Quit:strText'[strFind Do . Set Q=$FIND(strText,strFind)-1 . Set P=Q-$L(strFind)+1 . Set $E(strText,P,Q)=strNew Quit "Pass First Parameter by Reference!" TemplateVMLGet(VCode,MaxDim) ; Returns the VML-code Template to draw "Beslag" ; is returned by Reference !!! New VML,NL,BorClr Set NL=$C(13)_$C(10) Set BorClr="gray" Set VML="" If VCode="2" Do . ; . If $G(Opties)["C" Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set MaxDim=61 . ; Else If VCode="1" Do . ; . If $G(Opties)["C" Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set VML=VML_""_NL . Set MaxDim=43 . ; Else Do . Set VML="" . Quit Quit VML ]]> %Library.CacheStorage VerbindDefaultData ConstructAfm subnode "CA" "VB" Gewicht HoekKost SchroefKost VrijeZone BoorA BoorB HoekKostCode SchroefKostCode OLDHoekKost OLDSchroefKost