%Library.RegisteredObject Fabr.Frees.emProfielLijstElement 0 0 array 0 0 0 0 0 0 Bijvoegen van een kaderdeur bij de profiellijst 0 0 code KadObj:Prod.GADef.KaderDeur,Qty:%Library.Integer,ToelevNr:%Library.String,TULijnNr:%Library.String 0 0 Geeft de BatchCode voor de gegeven toelevering 0 1 code ToeNr:%Library.String 0 %Library.String 0 0) "" New LNr,PRNr,TULijnNr,sBatch Set sBatch="" Set LNr=99 For Set LNr=$O(^KTO($$$HALUXNR,ToeNr,LNr)) Quit:(LNr="") Do Quit:($L(sBatch)) . Set TULijnNr=$P($G(^KTO($$$HALUXNR,ToeNr,LNr)),"\",15) . Set sBatch=$P($G(^HADPR("F",..PRToelevKey(ToeNr,TULijnNr))),"\",1) Quit sBatch ; Before modifications to ^KTO + ^HADPR : ; --------------------------------------- ;New LijnNr,PRNr ;For Set LijnNr=$O(^KTO($$$HALUXNR,ToeNr,LijnNr)) Quit:(LijnNr="") Do Quit:(PRNr?4.6N) ;. Set PRNr=$P($G(^KTO($$$HALUXNR,ToeNr,LijnNr)),"\",2) ;Quit:($G(PRNr)?4.6N) $P($G(^HADPR("P",PRNr,"P")),"\",1) ;Quit "" ]]> In de global ^HADPR worden Status en Aantal van ieder produkt aangepast aan AantalGelegd. 0 0 code 0 %Library.String 0 Hebben al deze elementen van eenzelfde dossierNr gelijke AantalGelegd?

Zijn al deze elementen van eenzelfde dossierNr volledig gelegd?

Zijn al deze elementen volledig gelegd?

Geeft respectievelijk deze waarden terug

0;VA

0;NV

1]]> 0 0 code 0 %Library.List 0 1 DbgCode:%Library.String,lbParams:%Library.List De profielen enablen of disablen vertrekkend van geselecteerde BedDef's Opties : ALL : alles enablen empty : alles disablen Lijst van BedDefId's (punt-komma separated) dan enablen wat in de lijst staat van de BedDefs 0 0 code BedDefIDs:%Library.String 0 0 Geeft een lijst terug van PLIndexen (";"-gescheiden).]]> 0 0 code PLIndex:%Library.Integer 0 %Library.String 0 Geeft True als de method GekoppeldZoeken() elementen gevonden heeft voor GekoppeldLeggen; anders: False 0 0 code 0 %Library.Boolean 0 Geeft de klantnummer voor de gegeven toelevering 0 1 code ToeNr:%Library.String 0 %Library.String 0 0) "" Quit $P($G(^KTO(6332,ToeNr,1)),"\",8) ; KLNr ]]> ToeNr moet beginnen met een "9".
Deze method is bedoeld om testen uit te voeren.]]> 0 1 code KadID:%Library.String,ToeNr:%Library.String="999999" 0 Fabr.Frees.ProfielLijst 0 0 1 code TOENr:%Library.String 0 Fabr.Frees.ProfielLijst 0 0 1 code ToeNr:%Library.String,TULijnNr:%Library.String 0 0 1 ORef:Fabr.Frees.ProfielLijst 0 1 code handle:%Library.Binary 0 %Library.Status 0 0 1 code 0 %Library.Status 0 0 1 code 0 %Library.Status 0 KalIndex wordt by Reference (.local) doorgegeven.]]> 0 0 code 0 %Library.String 0 KillNode geeft aan of de Node+SubNodes verwijderd worden na uitlezen ervan.]]> 0 1 code Node:%Library.String,KillNode:%Library.Boolean=1 0 %Library.List 0 0 1 code Node:%Library.String,SubNode:%Library.String,Value:%Library.Boolean 0 0 Test methode om de VML te tonen 0 0 code DevObj:%Library.Stream,Opties:%Library.String,XSLName:%Library.String 0 0 Creatie van de VML-code voor het Profiel met alle frezingen 0 0 code DevObj:%Library.Stream,Opties:%Library.String 0 0 ORef: oref van de ProfielLijst
BedDefID: (optioneel) ObjectId van het BedDef voor de berekening van het aantal vakken.]]> %Library.Query ORef:Fabr.Frees.ProfielLijst,BedDefID:%Library.String 0 0