Index: Prod/GADef/KaderDeur.cls.xml
===================================================================
diff -u -r2 -r305
--- Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 2)
+++ Prod/GADef/KaderDeur.cls.xml (.../KaderDeur.cls.xml) (revision 305)
@@ -18,6 +18,7 @@
]]>
persistent
Prod.GADef.AfgeleidDef,%VHSys.Library
+0
@@ -297,7 +297,6 @@
. Quit
Set:(AbsPos<0)&(FirstChar'=$$$KEEPOPPOS) AbsPos=MaxSize+AbsPos ; Substract = add Negative Number
Quit AbsPos
-
]]>
@@ -347,8 +346,7 @@
Set emBoor.Opmerking=$S($E(emBoor.TxtOpmerking,1,3)="OK:":emBoor.CheckBorAlert(KadObj), 1:"")
Set:($G(Opties)["E")&($E(emBoor.TxtOpmerking,1,3)'="OK:") sOpm=""_emBoor.SetSpecialText()_" ("_emBoor.TxtOpmerking_")"
Set:($G(Opties)["E") emBoor.Opmerking=emBoor.Opmerking_sOpm
- Quit
-
+ Quit
]]>
@@ -422,7 +420,6 @@
;Set:ABdCfrs>$S(Munt=FaMunt:1,1:2) ABdCfrs=$S(Munt=FaMunt:1,1:2)
Set VrkPrs=VrkPrs*(10**ABdCfrs)+.999999\1/(10**ABdCfrs)
Quit VrkPrs
-
]]>
@@ -434,9 +431,7 @@
OutputType:%Library.String="MSG"
0
%Library.String
-
@@ -477,7 +472,6 @@
;Set:('$L(Boring.TxtOpmerking))!($E(Boring.TxtOpmerking,1,3)="OK:") Boring.BoringPlaats=Boring.TxtOpmKode
Quit 1
-
]]>
@@ -505,7 +499,6 @@
Set:(%this.BreedteLMax) OK="F;Maximale breedte kleiner dan "_LMax_"mm"
Quit OK
-
]]>
@@ -538,7 +531,6 @@
. Quit
Quit OK
-
]]>
@@ -565,7 +557,6 @@
Set:(%this.HoogteLMax) OK="F;Maximale hoogte kleiner dan "_LMax_"mm"
Quit OK
-
]]>
@@ -609,7 +600,6 @@
. Do %this.ControleBoring(emObj)
Quit
-
]]>
@@ -704,7 +694,6 @@
Else Do caNewObj.XMLStreamC.Clear()
Quit caNewObj
-
]]>
@@ -731,7 +720,6 @@
Else Set AantS=5
Quit AantS
-
]]>
@@ -750,7 +738,6 @@
Lock -^KPR(0,Node)
Set ..Dossier=##CLASS(%VHSys.Library).AlfaKey(DosNr,"A")
Quit
-
]]>
@@ -778,7 +765,6 @@
Do:($L(RoutineName)) @(RoutineName_"(%this,Templ,$G(Param1),$G(Param2),$G(Param3),$G(Param4),$G(Param5))")
Do Templ.%Close()
Quit
-
]]>
@@ -794,7 +780,6 @@
;ProfType,Hoogte,Breedte,Beslag,QtyBeslag,QtyGlasBoor,QtyProfOnder,QtyProfBoven,QtyProfRechts,QtyProfLinks,Vulling,VullingExtra,IsGemonteerd,Verpakking,ProfPrijs,VulPrijs)
Do %this.FillObjectViaParam($P(Params,"\",1),$P(Params,"\",2),$P(Params,"\",3),$P(Params,"\",4),$P(Params,"\",5),$P(Params,"\",6),$P(Params,"\",7),$P(Params,"\",8),$P(Params,"\",9),$P(Params,"\",10),$P(Params,"\",11),$P(Params,"\",12),$P(Params,"\",13),$P(Params,"\",14),$P(Params,"\",15),$P(Params,"\",16))
Quit
-
]]>
@@ -832,15 +817,17 @@
;Set ^Dump("NewViaParam",$O(^Dump("NewViaParam",""),-1)+1)="Na invullenProfafw"
Set caObj.Hoogte=Hoogte
Set caObj.Breedte=Breedte
- Set caObj.Gemonteerd=$S($G(IsGemonteerd)'=""&("K;KV;L"[$G(IsGemonteerd)):IsGemonteerd,$G(Vulling)'=""&(caObj.ProfType.VulCode'="A"):"KV",1:"L")
- Set:caObj.Gemonteerd="KV"&$G(Vulling)="" caObj.Gemonteerd="K" ; Gemonteerd met vulling maar er is geen vulling
+ Set caObj.Gemonteerd=$S(($G(IsGemonteerd)'="")&&("K;KV;L"[$G(IsGemonteerd)):IsGemonteerd,$G(Vulling)'=""&(caObj.ProfType.VulCode'="A"):"KV",1:"L")
+ Set:caObj.Gemonteerd="KV"&&($G(Vulling)="") caObj.Gemonteerd="K" ; Gemonteerd met vulling maar er is geen vulling
Set:caObj.ProfType.VulCode="A" caObj.Gemonteerd="L" ; Afboordingsprofieel nooit gemonteerd
Set Verpakking=$G(Verpakking)
Set:Verpakking=""!("BLKE"'[Verpakking) Verpakking=$S(caObj.Gemonteerd'["K":"L",1:"K") ; Default naar LOS en KRIMP
Set:caObj.ProfType.VulCode="A"&(Verpakking="K") Verpakking="L" ; Afboordingsprofiel nooit KRIMP
Set caObj.Verpakking=Verpakking
Set:ProfKostSpec caObj.ProfAfwKostSpecial=$TR(ProfKostSpec,",",".")
Set:VulKostSpec caObj.VullingKostSpecial=$TR(VulKostSpec,";",".")
+ ; Altijd Rodé-Poli bij Kleef-profiel
+ Set:($E($P(caObj.ProfTypeGetObjectId(),"||",2),3)?1(1"K",1"9"))&&($L(Vulling))&&(VullingExtra'["RP") VullingExtra=VullingExtra_";RP"
;Set ^Dump("NewViaParam",$O(^Dump("NewViaParam",""),-1)+1)="NaMontagefType"
Do fvpBeslag(.caObj,$G(Beslag),$G(QtyBeslag),Hoogte)
Do fvpVulling(.caObj,$G(Vulling),$G(VullingExtra))
@@ -946,7 +933,6 @@
Set caObj.Vulling=emVulling
Do emVulling.%Close()
Quit
-
]]>
@@ -981,7 +967,6 @@
If Toepas="LF" Do LADE^Prod.GADef.KaderDeur.TemplSVDX(%this,Hoogte,Breedte,$P(Profiel,"-"),Profiel,Vulling,VulExtra,OphangPl)
If $E(Toepas,1,2)="VD" Do VOUW^Prod.GADef.KaderDeur.TemplSVDX(%this,KastHoogte,Hoogte,Breedte,$P(Profiel,"-"),Profiel,Vulling,VulExtra,OphangPl,$E(Toepas,3))
Quit
-
]]>
@@ -1011,7 +996,6 @@
Set KdGw=KdGw+(%this.KadOpp()*1000) ; Gewicht Verpakking
Set KdGw=KdGw/1000 ; Omzetting g naar kg
Quit KdGw
-
]]>
@@ -1253,7 +1237,6 @@
;
Do:..ProductGetObjectId()'=PRNr ..ProductSetObjectId(PRNr)
Quit
-
]]>
@@ -1326,7 +1309,6 @@
. Set $E(KortT,24,25)=%this.ProfAfw.KortTekst
.;
Quit $E(KortT,1,25)
-
]]>
@@ -1392,7 +1374,6 @@
kprTOSECONDS(%Hdt)
Quit $P(%Hdt,",")*3600*24+$P(%Hdt,",",2)
-
]]>
@@ -1401,9 +1382,7 @@
Staffel:%Library.Integer,caoKadPrijs:Prod.GADef.KadPrijs=""
0
%Library.Float
-
@@ -1456,7 +1435,6 @@
; Return Oms via .Local
Quit
-
]]>
@@ -1468,9 +1446,7 @@
QtyStaffel:%Library.Integer=1,Munt:Res.Munt="",BldDtl:%Library.Boolean=0,ForceRecalc:%Library.Boolean=0
0
%Library.Float
-
@@ -1488,7 +1464,6 @@
; mogelijke waarde voor ProfPlaats: "PL", "PR", "PB", "PO"
Quit $S(ProfPlaats?1(1"PL",1"PR"):..Hoogte, ProfPlaats?1(1"PB",1"PO"):..Breedte, 1:0)
-
]]>
@@ -1506,7 +1481,6 @@
New ProfPlaats
Set ProfPlaats=..Onderdelen.GetNext("") ; mogelijke waarde: "PL", "PR", "PB", "PO"
Quit '(Plaats[ProfPlaats)
-
]]>
@@ -1525,7 +1499,6 @@
Set ObjId=$P($G(^KPR(PRNr,"G")),"\",13)
Quit:'ObjId ""
Quit ##class(Prod.GADef.KaderDeur).%OpenId(ObjId)
-
]]>
@@ -1548,7 +1521,6 @@
. Else Set OpmList=OpmList_$LB(OpmItem)
Set:(blnModified) ..Opmerking=OpmList
Quit
-
]]>
@@ -1642,7 +1614,6 @@
Else Set Plaats="FOUT"
Quit Plaats
-
]]>
@@ -1684,7 +1655,6 @@
If TID="VDV" Do VOUW^Prod.GADef.KaderDeur.TemplSVDX(KadObj,$G(KastHoogte),i%Hoogte,i%Breedte,%this.ProfType.ItemID,%this.ProfAfw.ItemID,VulID,VulExtras,%this.OphangPlaats.ItemID,"V",i%Gemonteerd)
If TID="AB" Do AFBOORD^Prod.GADef.KaderDeur.TemplSVDX(KadObj,i%Hoogte,%this.ProfType.ItemID,%this.ProfAfw.ItemID)
Quit KadObj
-
]]>
@@ -1715,7 +1685,6 @@
. Set:$G(Diam)'="" TelProfiel(Kant,Plaats,Diam)=$G(TelProfiel(Kant,Plaats,Diam))+QtyBoor
Quit
-
]]>
@@ -1794,7 +1763,6 @@
. Set:(objBoring.AfschuinDiameter>0) Diam=Diam_"+"_objBoring.AfschuinDiameter
. Do ..TelBoringAdd(.TelP, .TelV, Plaats,Kant,Diam,$G(ListCount,1))
Quit
-
]]>
@@ -1835,7 +1803,6 @@
Quit:(Code="ML") $S(TransVal<0:TransVal, 1:"-"_-TransVal)
Quit Code_$S(TransVal'<0:"+", 1:"")_TransVal
-
]]>
@@ -1886,7 +1853,6 @@
. Do VulObj.Boringen.SetAt(emVulBoring,Key)
. Do emVulBoring.%Close()
Quit VulObj
-
]]>
@@ -2209,7 +2175,6 @@
Do ENDTAG^XMLWRITE(DevObj, "v:shape")
Do WRITE^XMLWRITE(DevObj,NL)
Quit
-
]]>
@@ -2365,7 +2330,6 @@
xmlwAddOpmerking(sOpm)
Do:($L($G(sOpm))) TAGWRITE^XMLWRITE(DevObj,"OPMERKING",$$$HTML(sOpm))
Quit
-
]]>
@@ -2385,7 +2349,6 @@
;Set DevObj=..CStream
;Do ..XMLWrite(DevObj, .Taal, .Opties, .XSLURL)
Quit
-
]]>