Lijst van gevulde freesbedden %Library.RegisteredObject LeverancierNummer voor de toeleveringen in ^KTO 0 6332 Fabr.Frees.emBed 0 0 array 0 0 0 0 0 0 teruggelegd in ProfielLijst.
Geeft Status/Foutmlelding terug ]]> 0 0 code PLijst:Fabr.Frees.ProfielLijst,Opties:%Library.String 0 %Library.String 0 LegLijst is een ListBuild van LegDtl(s): LegLijst=$LB(LegDtl1,LegDtl2,... )
waarbij LegDtl=$LB(PLIndex, LegAantal, Richting) per profiel
VakKey is optioneel. Zoekt automatisch de eerste vrije positie indien leeg ("").
Opties: "O=GKL" : zie ProfielLeggen
Opmerking: Er wordt geen controle gedaan op ProfielBeperking!]]> 0 0 code PLijst:Fabr.Frees.ProfielLijst,LegLijst:%Library.List,VakKey:%Library.Integer,Opties:%Library.String,BedLijst2:Fabr.Frees.BedLijst 0 %Library.String 0 Bij creatie van het nieuwe bed wordt de array Vakken gekopieerd van BedDef. Bovendien worden de vakken met code "SessieBelet" overgenomen van het vorige emBed.
Als CheckLastBed=True dan wordt, vooraleer een nieuw bed toe te voegen, gecontroleerd of het laatste bed gelijk is aan het voorlaatste bed. Als dit het geval is, wordt EindeVolgNr verhoogd. ]]> 0 0 code BedDef:Fabr.Frees.BedDef,CheckLastBed:%Library.Boolean 0 %Library.Integer 0 AutoBelet If LastKey>1,$G(CheckLastBed,0) Do apbCompareLastPrev ; Determine NextNr If LastKey="" Set NextNr=1 ; BedLijst contains no emBed's yet. Set First Else Set NextNr=$S(LastBed.EindeVolgNr>0:LastBed.EindeVolgNr, 1:LastKey)+1 ; Create and append new bed Set emBed=##class(Fabr.Frees.emBed).%New() Set emBed.BedDef=BedDef Set emBed.CNCZone=BedDef.CNCZone Set emBed.GekoppeldActief=1 Do emBed.CopyDefVakken() If NextNr>1 Do:(LastBed.BedDef=emBed.BedDef) emBed.CopyVakkenBelet(LastBed) Do %this.FreesBed.SetAt(emBed,NextNr) Do emBed.%Close() Quit NextNr apbCompareLastPrev ; Vergelijkt laatste bed met het voorlaatste bed Quit:(LastBed.EindeVolgNr>0) ; emBed is reeds voor meerdere bedden New emBedPrev,Result Set emBedPrev=%this.FreesBed.GetPrevious(LastKey) ; BedKey NIET als .local doorgeven If emBedPrev Do . Set Result=LastBed.Compare(emBedPrev) . If Result Do ; Bed is gelijk aan vorige: verwijder emBed + increment emBedPrev.EindeVolgNr .. Set emBedPrev.EindeVolgNr=LastKey .. Do LastBed.%Close() .. Do %this.FreesBed.RemoveAt(LastKey) .. Set LastBed=emBedPrev ;Else Do ;. Do LastBed.%Close() Quit ]]> Geeft het resultaat van CNCBuildProg() terug.]]> 0 0 code KlantID:%Library.String,DestinDir:%Library.String="C:\",ProgType:%Library.String 0 %Library.String 0 De SubDir is optioneel. Als deze niet bestaat, wordt deze automatisch aangemaakt. ]]> 0 1 code SubDir:%Library.String 0 %Library.String 0 De aantallen van de gelegde profielen worden geregistreerd in ^HADPR.
Het volledige path van het XML-bestand wordt teruggegeven aan parameter ReturnPath.
Het resultaat van de method is gelijk aan 1 bij succesvolle uitvoering, of "0;Foutmelding". ]]> 0 0 code 0 %Library.String 0 VakKey is optioneel en kan als .Local (by Reference) doorgegeven worden.
Begint te zoeken vanaf VakKey en bepaalt de EERST VOLGENDE vrije plaats. Geeft VakKey\BedKey terug.]]> 0 0 code VakKey:%Library.Integer="" 0 %Library.String 0 Wanneer een profiel in meerdere zijden moet geboord/gefreesd worden (bvb. "IN" en "ON"), dan kan via GekoppeldeLeggen() een tweede zijde (=profielElement) synchroon gelegd worden in deze BedLijst. Het laatste bed wordt steeds synchroon gehouden met BedLijstOrig.FreesBed, d.i. het freesbed waarin het oorspronkelijke profiel gelegd werd.
VakKey is verplicht door te geven, want is nodig om de positie in deze BedLijst te bepalen (er wordt zo nodig wel een transformatie op VakKey uitgevoerd om praktische redenen).
Voor de overige parameters: zie BedLijst.ProfielLeggen()
Mogelijke opties: "O=ISF": Ignore Status Finish;

Geeft Status/Foutmlelding terug, i.e. het resultaat van %this.ProfielLeggen() in deze BedLijst, met opties "O=PVL" en "O=MGK". ]]> 0 0 code PLijst:Fabr.Frees.ProfielLijst,PLIndex:%Library.Integer,VakKey:%Library.Integer,Richting:%Library.String,Opties:%Library.String,BedLijstOrig:Fabr.Frees.BedLijst,BedKey:%Library.String 0 %Library.String 0 Wanneer een profiel weggehaald wordt uit een vak, dan kan via GekoppeldeWeghalen() het gekoppelde vak leeggemaakt worden.
BedKey en VakKey zijn verplicht door te geven, want ze zijn nodig om de positie in deze BedLijst te bepalen. VakKey wordt bepaald uit de oorspronkelijke BedLijst, uit emVak.Gekoppeld.

Geeft Status/Foutmlelding terug, i.e. het resultaat van %this.ProfielWeghalen() in deze BedLijst, met opties "O=PVW" en VakKey en BedKey ingevuld. ]]> 0 0 code PLijst:Fabr.Frees.ProfielLijst,BedKey:%Library.String,VakKey:%Library.Integer 0 %Library.String 0 1 Oref:%Library.RegisteredObject 1 Oref:%Library.RegisteredObject 0 1 code BedDef:Fabr.Frees.BedDef 0 Fabr.Frees.BedLijst 0 De werkwijze is steeds sequentieel, tenzij optie "O=PVL" doorgegeven.
Parameters LegAantal en Richting zijn optioneel. Indien LegAantal = "" (leeg), wordt het aantal van de toelevering genomen.
Opties: "O=AP"=Automatisch Positioneren; "O=ISF"=Ignore Status Finish; "O=PNV" : Profiel Niet Vastleggen; "O=PVL" : Profiel Vrij Leggen; "O=GKL" : GeKoppeld Leggen; "GKV="? : GeKoppeld Vak=?(VakKey)
Geeft Status/Foutmlelding terug ]]> 0 0 code 0 %Library.String 0 teruggelegd in ProfielLijst.
Als MaxAantal="" (leeg of optioneel), dan worden vorige profielen, indien dezelfde, ook weggehaald.
Geeft Status/Foutmlelding terug Opties:

O=PVW : Profiel Vrij Weghalen; Optie "O=GKL" is niet mogelijk in combinatie met "O=PVW"!

O=GKW : GeKoppeld Weghalen; BedLijst2 is verplicht door te geven!

O=PZK : alleen Profielen Zonder Koppeling weghalen

]]> 0 0 code PLijst:Fabr.Frees.ProfielLijst,MaxAantal:%Library.Integer,Opties:%Library.String,BedLijst2:Fabr.Frees.BedLijst,BedKey:%Library.String,VakKey:%Library.Integer 0 %Library.String 0 ReturnPath moet BY REFERENCE doorgegeven worden en zal de naam (incl. directroy) van het opgeslagen XML-bestand bevatten. 0 0 code 0 %Library.String 0 Opties: "VTL=1" : ToolLijst voor de Frezingen toevoegen (in VML) 0 0 code 0 0 KlantID:%Library.String,Opties:%Library.String,XSLURL:%Library.String,CStreamParent:%Library.RegisteredObject