Index: DOM/PM/ProductAPI.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 734) +++ DOM/PM/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 1 -62118,42243.971982 +62157,55192.462087 0 @@ -12,17 +12,32 @@ DOM.PM.Product - + 1 Nr:%Integer DOM.PM.ProductClassificatie + + +^KLAS +1 +Key:%String,KKey:%Integer +DOM.PM.Classificatie + + + + +^KPHG1, ^KPSG1, ^KPGR1 +1 +TECH.Iterator + + 1 ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem DOM.PM.Product - + Index: DOM/PM/Maatwerk/Calc/HF/HalffabSpec.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/HalffabSpec.cls.xml (.../HalffabSpec.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/HalffabSpec.cls.xml (.../HalffabSpec.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Deze spec specificeert voor een maatwerkproduct welke halffabrikaten @@ -28,7 +28,7 @@ TECH.Error 1 %Persistent -62115,35441.99075 +62146,66548.098455 62010,56862.391972 0 @@ -116,12 +116,6 @@ ]]> - -%String - - - DOM.PM.enu.Familie + +1 +%Integer + + + 1 TECH.ListIterator @@ -193,5 +194,5 @@ - + Index: DOM/PM/impl/HoofdgroepClassificatieImpl.cls.xml =================================================================== diff -u --- DOM/PM/impl/HoofdgroepClassificatieImpl.cls.xml (revision 0) +++ DOM/PM/impl/HoofdgroepClassificatieImpl.cls.xml (revision 903) @@ -0,0 +1,27 @@ + + + +1 +%RegisteredObject,DOM.PM.impl.SuperGroepClassificatie +62157,52369.264464 +0 + + +SortSleutel:%String +1 +1 +%Status + + + + +TECH.Iterator + + + + + Index: DOM/OV/impl/DataM/DataMFactuurBonIterator.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMFactuurBonIterator.cls.xml (.../DataMFactuurBonIterator.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMFactuurBonIterator.cls.xml (.../DataMFactuurBonIterator.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 TECH.Iterator,%RegisteredObject -62108,59503.063625 +62157,70763.644403 0 @@ -37,8 +37,7 @@ %CacheString - + Index: DOM/Halux/TBX/enu/Status.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/enu/Status.cls.xml (revision 0) +++ DOM/Halux/TBX/enu/Status.cls.xml (revision 903) @@ -0,0 +1,16 @@ + + + +datatype +1 +%String +62123,62381.054338 +62123,54830.484983 +0 + + +,W,X,F,B + + + + Index: DOM/PM/enu/Familie.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/enu/Familie.cls.xml (.../Familie.cls.xml) (revision 734) +++ DOM/PM/enu/Familie.cls.xml (.../Familie.cls.xml) (revision 903) @@ -1,18 +1,18 @@ - + datatype 1 %String -62115,38816.384139 +62147,42423.450595 0 -,Lade,AluKader +,Lade,AluKader,Orgalux -,Lade,Aluminium kaderdeur +,Lade,Aluminium kaderdeur,ORGALUX @@ -28,6 +28,13 @@ + + +1 +DOM.PM.enu.Familie + + - + Index: DOM/PR/BouwStenen/Product.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PR/BouwStenen/Product.cls.xml (.../Product.cls.xml) (revision 734) +++ DOM/PR/BouwStenen/Product.cls.xml (.../Product.cls.xml) (revision 903) @@ -1,11 +1,13 @@ - + + +Verplaatsen naar DOM.PM.impl.Bouwstenen.ProductMetBouwstenen. persistent 1 VHOpslag %Persistent -61764,63120.084043 +62154,37212.710151 59772,53878.611013 0 @@ -66,5 +68,5 @@ - + Index: DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml (.../KostContext.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml (.../KostContext.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + De kostcontext heeft referenties naar allerlei tabellen en dient als facade voor het gebruik van die tabellen. @@ -23,7 +23,7 @@ TECH.Error 1 %RegisteredObject -62115,38015.100726 +62152,47625.175899 0 @@ -108,7 +108,17 @@ ProductID:%String %Integer - @@ -162,5 +172,5 @@ ]]> - + Index: DOM/Halux/TBX/impl/ZaagSturing.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/impl/ZaagSturing.cls.xml (revision 0) +++ DOM/Halux/TBX/impl/ZaagSturing.cls.xml (revision 903) @@ -0,0 +1,98 @@ + + + +1 +DOM.Halux.TBX.IZaagSturing +62123,73641.55398 +62123,54832.085244 +0 + + + + +APPS.Halux.TBX.ZaagServer + + + + + + +%Boolean + + + + + +BodemOfRug:%String,Kleur:String,Hoogte:%Integer,Lengte:%Float,Reden:%String +%Boolean + + + + + +QueueID:%Integer,BodemOfRug:%String,GewensteLengte:%Float,GemetenLengte:%Float +%Boolean + + + + + +LijnNr:%String +%AbstractList + + + + + + +BatchIDLijn1:%String,BatchIDLijn2:%String,BatchIDDirect:%String +%AbstractList + + + + + +BatchID:%String,SubBatch:%String,LijnNr:%String +%AbstractList + + + + + +QueueID:%Integer,Device:%String +%Boolean + + + + + +Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:%String +%Boolean + + + + + +DuurStilstand:%Integer,RedenStilstand:String,ZaagID:%Integer +%Boolean + + + + + + +%Status + + + + + + +QueueID:%Integer,StatusType:%String +%Boolean + + + + Index: DOM/LEV/ProductToeleveringLijn.cls.xml =================================================================== diff -u --- DOM/LEV/ProductToeleveringLijn.cls.xml (revision 0) +++ DOM/LEV/ProductToeleveringLijn.cls.xml (revision 903) @@ -0,0 +1,21 @@ + + + +1 +1 +DOM.LEV.Toelevering +62129,55746.332016 +0 + + +1 +DOM.PM.Product + + + +1 +%Integer + + + + Index: DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerken.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerken.cls.xml (.../IngegevenKenmerken.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Common/IngegevenKenmerken.cls.xml (.../IngegevenKenmerken.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Ingegeven kenmerken bevatten de volledige input om een @@ -10,38 +10,60 @@ maatwerkproducten is een wizard aanbevolen. De ingegeven kenmerken kunnen ook binnenkomen via EDI. 1 +persistent 1 -%RegisteredObject -62052,60953.852361 +%Persistent +62157,63226.832107 62010,59324.97184 0 Vroeger : Leeg, LosProfiel, of Herstelling. %String - + Onderdelen bij ProductieWijze=Gedeeltelijk -Is een lijst van Rolnamen. -(vroeger : Onderdelen voor Herstellingen of Los Profiel) -Bij los profiel ("LPR") mag slechts 1 profiel aangeduid zijn. +Is een lijst van Rolnamen. %String list -1 Lijst van Rollen (voor onderdelen) die niet meegeleverd moeten worden. %String list -1 + + +Sequentieel oplopend versienummer. +Dit laat ons toe om oude IK naar nieuwe IK op een gestructureerde manier te converteren (in-memory). +De HalffabSpec geeft aan welke versie van de IK nodig is voor een consistente berekening van de HalffabItems. +%Integer + + + +1 +1 +%Status + + + + +1 +%Integer + + + RolNaam:%String %Boolean @@ -56,6 +78,32 @@ Quit RolOpnemen ]]> + + +%Library.CacheStorage +^DOM.PM.Maat94D.IngegevenKen738D +IngegevenKenmerkenDefaultData +^DOM.PM.Maat94D.IngegevenKen738D +^DOM.PM.Maat94D.IngegevenKen738I +^DOM.PM.Maat94D.IngegevenKen738S + + +%%CLASSNAME + + +NietMeeleveren + + +Onderdelen + + +ProductieWijze + + +VersieNr + + + - + Index: DOM/CRM/Stat/dto/KlantBeoordeling.cls.xml =================================================================== diff -u --- DOM/CRM/Stat/dto/KlantBeoordeling.cls.xml (revision 0) +++ DOM/CRM/Stat/dto/KlantBeoordeling.cls.xml (revision 903) @@ -0,0 +1,196 @@ + + + +BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek,%VHMacro,BL.EC.Common,%Prod.Product,TECH.Error +1 +%RegisteredObject +62158,36456.499653 +61807,38311.621993 +0 + + +%Integer + + + +%String + + + +%Float + + + +%Float + + + +%Float + + + +%Float + + + +%Float + + + +%Float + + + +%Float + + + +%Float + + + +%String + + + +%String + + + +%Float + + + +%Integer + + + +%Integer + + + +%Integer + + + +%Integer + + + +%Integer + + + +%Integer + + + +%Date + + + +%Integer + + + +%Boolean + + + +%Integer + + + +%Float + + + +%Float + + + +1 + + + + +Factuur:DOM.OV.Factuur + + + +Bon:DOM.OV.Bon + + + +OrderVerwijzing:DOM.OV.OrderVerwijzingOrderlijn + + + +ProductGrp:%String,AantalLijnen:%Integer,Gewicht:%Float,TotaalAankoop:%Float,TotaalVerkoop:%Float + + + + +FactuurLijnAantal:%Integer,FactuurGroepAantal:%Integer,AdresLijnAantal:%Integer,AdresGroepAantal:%Integer,BonLijnAantal:%Integer,BonGroepAantal:%Integer,OrderLijnAantal:%Integer,OrderGroepAantal:%Integer + + + + + + + + + Index: DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml =================================================================== diff -u --- DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml (revision 0) +++ DOM/PM/impl/DataM/DataMHoofdgroepClassificatie.cls.xml (revision 903) @@ -0,0 +1,88 @@ + + + +1 +DOM.PM.Classificatie,%RegisteredObject +62157,52903.140271 +0 + + +%String + + + +%String +1 + + + +SortSleutel:%String +1 +1 +%Status + + + + +%String + + + + +%String + + + + +%String + + + + +%Integer + + + + +%String + + + + +TECH.Iterator + + + + +1 +%String + + + + + Index: DOM/PM/enu/TBXZijwandHoogte.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/enu/TBXZijwandHoogte.cls.xml (.../TBXZijwandHoogte.cls.xml) (revision 734) +++ DOM/PM/enu/TBXZijwandHoogte.cls.xml (.../TBXZijwandHoogte.cls.xml) (revision 903) @@ -1,14 +1,14 @@ - + datatype 1 %String -62081,42258.902324 +62133,42186.256573 0 -,C,D,B +;N;M;K;C;B;D;G @@ -28,6 +28,30 @@ + + +1 + + + + +1 + + + + +1 + + + + +1 + + - + Index: DOM/PM/OL/Gamma/dto/ProductInfoVoorVerkoophandboek.cls.xml =================================================================== diff -u --- DOM/PM/OL/Gamma/dto/ProductInfoVoorVerkoophandboek.cls.xml (revision 0) +++ DOM/PM/OL/Gamma/dto/ProductInfoVoorVerkoophandboek.cls.xml (revision 903) @@ -0,0 +1,74 @@ + + + +1 +%RegisteredObject +62150,41057.56599 +0 + + +%String + + + +%String + + + +%String + + + +%String + + + +%String + + + +%String + + + +%List + + + +%List + + + +%List + + + +%List + + + +%String + + + +%List + + + +%List + + + +%String + + + +%List + + + +%String + + + + Index: DOM/PM/OL/Gamma/impl/FotoZoeker.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/OL/Gamma/impl/FotoZoeker.cls.xml (.../FotoZoeker.cls.xml) (revision 734) +++ DOM/PM/OL/Gamma/impl/FotoZoeker.cls.xml (.../FotoZoeker.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + DOM.PM.OL 1 %RegisteredObject -62046,57410.197049 +62153,57762.19629 61944,52132.982356 0 @@ -69,8 +69,8 @@ set qHandler = $$ExecDynQuery^vhQUERYLIB(SQL,$listbuild(ProductGroep)) while qHandler.Next(){ set dtoFoto = ##class(DOM.dto.VertalingFotoLinks).%New() - set dtoFoto.FotoURL = qHandler.Get("FotoBestand") - set dtoFoto.ThumbnailURL = qHandler.Get("Thumbnail") + set dtoFoto.FotoURL = $Translate(qHandler.Get("FotoBestand"),"\","/") + set dtoFoto.ThumbnailURL = $Translate(qHandler.Get("Thumbnail"),"\","/") do GeprefereerdeFotos.Insert(dtoFoto) } quit @@ -105,6 +105,8 @@ set FotoURL = oKenmerkOrgalux.GetFotoBestand() continue:'$length(FotoURL) + + set dtoFoto = ##class(DOM.dto.VertalingFotoLinks).%New() set dtoFoto.FotoURL = FotoURL @@ -120,5 +122,5 @@ ]]> - + Index: DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml =================================================================== diff -u --- DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml (revision 0) +++ DOM/PM/TBXProduct/impl/TBXRugImpl.cls.xml (revision 903) @@ -0,0 +1,18 @@ + + + + +Halfabrikaat plaatmateriaal houtenrug +1 +DOM.PM.TBXProduct.TBXRug,DOM.PM.TBXProduct.impl.TBXSpaanplaatImpl +62143,73387.533251 +0 + + +DOM.PM.enu.TBXLadehoogte + + + + + Index: DOM/PM/enu/TBXFrontBevestiging.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXFrontBevestiging.cls.xml (revision 0) +++ DOM/PM/enu/TBXFrontBevestiging.cls.xml (revision 903) @@ -0,0 +1,57 @@ + + + +datatype +1 +%String +62132,57143.243827 +0 + + +;S;A;I;E;D;Z + + + +1 +DOM.PM.enu.TBXFrontBevestiging + + + + +1 +DOM.PM.enu.TBXFrontBevestiging + + + + +1 +DOM.PM.enu.TBXFrontBevestiging + + + + +1 +DOM.PM.enu.TBXFrontBevestiging + + + + +1 +DOM.PM.enu.TBXFrontBevestiging + + + + +1 +DOM.PM.enu.TBXFrontBevestiging + + + + + Index: DOM/VKP/VerkoopPrijsAPI.cls.xml =================================================================== diff -u --- DOM/VKP/VerkoopPrijsAPI.cls.xml (revision 0) +++ DOM/VKP/VerkoopPrijsAPI.cls.xml (revision 903) @@ -0,0 +1,31 @@ + + + + +Geeft informatie over verkoopprijzen. Ondersteunt personality-afhankelijke prijsberekening en override prijzen. +Als er een override prijs is, wordt de basisprijs genegeerd voor de prijsberekeningen. +Evt. kunnen we nog een relatieve override ondersteunen waarbij de basisprijs met een bepaalde factor wordt vermenigvuldigd. +De oproeper kiest welke basisprijs gebruikt wordt: + Voor een normale prijsberekening is dit steeds de ReferentiePrijs uit de AankoopPrijsInfo. + In speciale gevallen kan een andere basisprijs gebruikt worden, bv. de LivePrijs voor prijsvergelijkingen. +1 +TECH.Error +1 +62152,38805.458189 +0 + + + +Geeft de prijs van een product zoals die gold/geldt/zal gelden op de opgegeven datum (uit de berekeningsspec) +of indien aanwezig de prijs geassocieerd met de opgegeven tag (ook uit de berekeningsspecificatie). +Vermits prijzen klant-specifiek zijn moet de klantID worden meegegeven. +Optioneel kan een personality worden meegegeven, omdat dit de prijzen ook kan beïnvloeden. +Indien geen personality wordt meegegeven, wordt de default personality "VanHoecke" gebruikt. +Dit betekent dat de normale Van Hoecke prijzen gebruikt worden. +1 +Product:DOM.PM.Product,BasisPrijs:%Float,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +DOM.VKP.info.VerkoopPrijsInfo + + + + Index: DOM/PM/OL/Gamma/impl/XML/vkhbDocument.cls.xml =================================================================== diff -u --- DOM/PM/OL/Gamma/impl/XML/vkhbDocument.cls.xml (revision 0) +++ DOM/PM/OL/Gamma/impl/XML/vkhbDocument.cls.xml (revision 903) @@ -0,0 +1,25 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62146,36222.954282 +0 + + +DOCUMENT + + + +%String + + + + +vkhbSubgroep +list + + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml (.../HFRugHouderv001.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugHouderv001.cls.xml (.../HFRugHouderv001.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder -62115,43856.331001 +62133,28122.381043 0 @@ -24,7 +24,7 @@ %Boolean @@ -34,7 +34,7 @@ %Library.CacheStorage - + Index: DOM/PM/enu/TBXVerpakking.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXVerpakking.cls.xml (revision 0) +++ DOM/PM/enu/TBXVerpakking.cls.xml (revision 903) @@ -0,0 +1,64 @@ + + + +datatype +1 +%String +62133,30901.437405 +0 + + +;S;Z;O;C;P;B;A + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml (.../BewerkingsInfoTabel.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml (.../BewerkingsInfoTabel.cls.xml) (revision 903) @@ -1,22 +1,22 @@ - + TECH.Error 1 DOM.PM.Maatwerk.Calc.HF.IBewerkingsInfoTabel -62115,35875.59213 +62157,36933.583215 0 Familie:DOM.PM.enu.Familie,Variant:DOM.PM.enu.Variant,ProductID:%String,BerekenDatum:%Date=$Piece($H,",") DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo = ?") + Do ResultSet.Prepare("SELECT ID FROM DOM_PM_Maatwerk_Calc_HF_impl.BewerkingsInfo WHERE Familie = ? AND Variant = ? AND ProductID = ? AND GeldigVan <= ? AND GeldigTot >= ? AND Tag is null") Do ResultSet.Execute(Familie, Variant, ProductID, BerekenDatum, BerekenDatum) - Quit ..GeefBewerkingsInfo(ResultSet) + Quit ..GeefBewerkingsInfo(ResultSet,"familie: "_Familie_", variant: "_Variant_", productID: "_ProductID_", berekendatum: "_BerekenDatum) ]]> @@ -29,14 +29,14 @@ Do ResultSet.Execute(Familie, Variant, ProductID, BerekenTag) - Quit ..GeefBewerkingsInfo(ResultSet) + Quit ..GeefBewerkingsInfo(ResultSet,"familie: "_Familie_", variant: "_Variant_", productID: "_ProductID_", berekendatum: "_BerekenTag) ]]> De Resultset mag slechts één BewerkingsInfo bevatten, anders wordt er een Error gethrowed. -ResultSet:%ResultSet +ResultSet:%ResultSet,ErrorBoodschap:%String 1 DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfo - + Index: DOM/PM/impl/MaatwerkProductImpl.cls.xml =================================================================== diff -u --- DOM/PM/impl/MaatwerkProductImpl.cls.xml (revision 0) +++ DOM/PM/impl/MaatwerkProductImpl.cls.xml (revision 903) @@ -0,0 +1,46 @@ + + + +1 +DOM.PM.impl.ProductImpl,DOM.PM.MaatwerkProduct +62146,38073.255873 +0 + + +DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom +1 + + + +DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie + + + + +DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie + + + + +DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom + + + + + Index: DOM/dto/StringList.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/dto/StringList.cls.xml (.../StringList.cls.xml) (revision 734) +++ DOM/dto/StringList.cls.xml (.../StringList.cls.xml) (revision 903) @@ -1,15 +1,14 @@ - + -serial 1 %Library.ListOfDataTypes,%XML.Adaptor -61955,61806.272143 +62153,43412.579337 0 %Library.CompleteCustomStorage - + Index: DOM/VKP/VerzendWijze.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/VKP/VerzendWijze.cls.xml (.../VerzendWijze.cls.xml) (revision 734) +++ DOM/VKP/VerzendWijze.cls.xml (.../VerzendWijze.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + De transportafhankelijke parameters worden bepaald door de verzendwijze @@ -11,7 +11,7 @@ BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek 1 %RegisteredObject -62061,74327.121546 +62132,32018.34805 61807,38311.621993 0 @@ -102,6 +102,7 @@ . Set WeekDag=..WeekDag(LeverDatum) . Quit:WeekDag>5 . Quit:'..IsArbeidsDag(LeverDatum) + . Quit:'..IsVerlofKlant(LeverDatum) . Set:$LF(..AanleverDagen,WeekDag) Found=1 Quit LeverDatum @@ -126,6 +127,14 @@ ]]> + +LeverDatum + + + Datum:%Date %Boolean @@ -248,5 +257,5 @@ ]]> - + Index: DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml =================================================================== diff -u --- DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml (revision 0) +++ DOM/PM/impl/DataM/DataMGroepClassificatie.cls.xml (revision 903) @@ -0,0 +1,93 @@ + + + +1 +DOM.PM.Classificatie,%RegisteredObject +62157,52913.108501 +0 + + +%String + + + +%String +1 + + + + +SortSleutel : Formaat (Char 9) +Waarde : NNHHMMGGG+blanko +Waar NN is de sortering Hoofdgroep en HH is de Hoofdgroepcode +Waar MM is de sortering Groep en GGG is de Groepcode +SortSleutel:%String +1 +1 +%Status + + + + +%String + + + + +%String + + + + +%String + + + + +%Integer + + + + +%String + + + + +TECH.Iterator + + + + +1 +%String + + + + + Index: DOM/HR/Protime/Werknemer.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/HR/Protime/Werknemer.cls.xml (.../Werknemer.cls.xml) (revision 734) +++ DOM/HR/Protime/Werknemer.cls.xml (.../Werknemer.cls.xml) (revision 903) @@ -1,13 +1,13 @@ - + persistent vhLib.Macro 1 Werknemers MySQLStorage %Library.Persistent -61999,34099.984169 +62137,31992.580408 61699,60987.846246 0 @@ -108,6 +108,7 @@ %String %List ^DOM.HR.Protime.WerknemerS - + Index: DOM/OV/impl/DataM/DataMOrder.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.OV.Order -62108,55335.498937 +62154,29745.14952 62063,29965.721214 0 @@ -12,6 +12,11 @@ 1 + +%String +1 + + %Integer 1 @@ -49,7 +54,7 @@ %Boolean + +%Boolean + + + + +%String + + + + +DOM.CRM.Klant + + + %Integer @@ -103,13 +129,13 @@ ]]> - + TECH.Iterator - + Type:DOM.OV.enu.OrderlijnType TECH.Iterator + +1 +%String + + + 1 %Boolean - + Index: DOM/PM/enu/TBXInschuifElementMatCode.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXInschuifElementMatCode.cls.xml (revision 0) +++ DOM/PM/enu/TBXInschuifElementMatCode.cls.xml (revision 903) @@ -0,0 +1,15 @@ + + + +datatype +1 +%String +62132,58982.190124 +0 + + +;FG;FZ;ZV;BRO8;DIA8;DFZ8;GRI8;LE.DBR;LE.LBR;LE.ZW;LE.CRV;H.PAL;H.WNGE;H.TEAK;H.ESD;H.EIK;H.KERS;H.NOOT;H.NTS + + + + Index: DOM/PM/enu/TBXHoutKleur.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXHoutKleur.cls.xml (revision 0) +++ DOM/PM/enu/TBXHoutKleur.cls.xml (revision 903) @@ -0,0 +1,78 @@ + + + + +
  • Spoelbak en Syfon laden
    • +
  • Tipon
    • +]]>     +datatype +1 +%String +62127,68612.630047 +62123,54830.753447 +0 + + +,WI,WS,GS,LG,DG,ZW,BE,EI + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + +     + +     Index: DOM/PM/OL/Gamma/impl/XML/vkhbBestandsInfo.cls.xml =================================================================== diff -u --- DOM/PM/OL/Gamma/impl/XML/vkhbBestandsInfo.cls.xml (revision 0) +++ DOM/PM/OL/Gamma/impl/XML/vkhbBestandsInfo.cls.xml (revision 903) @@ -0,0 +1,21 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62146,47647.765459 +0 + + +%String + + + + + +%String + + + + + Index: DOM/PM/ProductClassificatie.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/ProductClassificatie.cls.xml (.../ProductClassificatie.cls.xml) (revision 734) +++ DOM/PM/ProductClassificatie.cls.xml (.../ProductClassificatie.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 1 -62028,29053.253805 +62154,59712.819831 0 @@ -18,5 +18,5 @@ %String - + Index: DOM/PM/enu/TBXBoxsideKleur.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXBoxsideKleur.cls.xml (revision 0) +++ DOM/PM/enu/TBXBoxsideKleur.cls.xml (revision 903) @@ -0,0 +1,50 @@ + + + +datatype +1 +%String +62132,55037.269956 +0 + + +;MG;WI;AL;IN;SA + + + +1 +DOM.PM.enu.TBXBoxsideKleur + + + + +1 +DOM.PM.enu.TBXBoxsideKleur + + + + +1 +DOM.PM.enu.TBXBoxsideKleur + + + + +1 +DOM.PM.enu.TBXBoxsideKleur + + + + +1 +DOM.PM.enu.TBXBoxsideKleur + + + + + Index: DOM/VKP/impl/VerkoopPrijsBerekening.cls.xml =================================================================== diff -u --- DOM/VKP/impl/VerkoopPrijsBerekening.cls.xml (revision 0) +++ DOM/VKP/impl/VerkoopPrijsBerekening.cls.xml (revision 903) @@ -0,0 +1,44 @@ + + + + +Berekent verkooprijs info. Typisch heeft elke personality zijn eigen berekening. +De berekening vertrekt van een basisprijs. +De oproeper beslist welke prijs wordt gebruikt als basisprijs: + +- Normale prijsberekening: de ReferentiePrijs uit de AankoopPrijsInfo +- Override: basisprijs = overrideprijs +- What-if analyses: basisprijs = LivePrijs bv, of eender welke prijs. + +persistent +1 +%Persistent +62152,28674.734413 +0 + + +1 +Product:DOM.PM.Product,BasisPrijs:%Float,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +DOM.VKP.info.VerkoopPrijsInfo + + + + +%Library.CacheStorage +^DOM.VKP.impl.VerkoopPrijs8E8D +VerkoopPrijsBerekeningDefaultData +^DOM.VKP.impl.VerkoopPrijs8E8D +^DOM.VKP.impl.VerkoopPrijs8E8I +^DOM.VKP.impl.VerkoopPrijs8E8S + +listnode + + +%%CLASSNAME + + + + + + Index: DOM/CRM/impl/KlantVerlofPeriode.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/CRM/impl/KlantVerlofPeriode.cls.xml (.../KlantVerlofPeriode.cls.xml) (revision 734) +++ DOM/CRM/impl/KlantVerlofPeriode.cls.xml (.../KlantVerlofPeriode.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Per klant de verlofperiodes bijhouden. @@ -8,7 +8,7 @@ TECH.Error 1 %Persistent -62106,39894.820813 +62132,43268.263991 62021,41780.563638 0 @@ -69,6 +69,49 @@ ]]> + +1 +KLNr,Datum:%Date +%Date + + + + + +Alle verlofdagen van een klant, eventueel beperkt vanaf - tot +1 +KLNr:%Integer,Van:%Date,Tot:%Date +Tot Quit + Set lbVerlofDagen=lbVerlofDagen_$LB(Dag) + } + } + } + Quit $G(lbVerlofDagen) +]]> + + Verlof %Status @@ -131,5 +174,5 @@ - + Index: DOM/CRM/Stat/KlantBeoordelingDetail.cls.xml =================================================================== diff -u --- DOM/CRM/Stat/KlantBeoordelingDetail.cls.xml (revision 0) +++ DOM/CRM/Stat/KlantBeoordelingDetail.cls.xml (revision 903) @@ -0,0 +1,150 @@ + + + +BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek,%VHMacro,BL.EC.Common,%Prod.Product,TECH.Error +1 +%RegisteredObject +62158,36499.828409 +61807,38311.621993 +0 + + +DOM.OV.Factuur + + + +DOM.OV.Bon + + + +DOM.OV.OrderVerwijzingOrderlijn + + + +%Float + + + +%String + + + +%Float + + + +%Float + + + +%Integer + + + +%Float +1 + + + +bl +%Status + + + + +Gewicht:%Float,TotaalVKP:%Float,TotaalAKP:%Float + + + + +Gewicht:%Float,TotaalVKP:%Float,TotaalAKP:%Float + + + + + + + + + + + + + + + + + + + +DOM.CRM.Stat.dto.KlantBeoordeling + + + + + Index: DOM/HR/Protime/Import.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/HR/Protime/Import.cls.xml (.../Import.cls.xml) (revision 734) +++ DOM/HR/Protime/Import.cls.xml (.../Import.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + %VHMacro,DOM.HR.Common 1 %RegisteredObject -61999,40699.038167 +62137,31414.826821 61699,60987.824509 0 @@ -72,6 +72,7 @@ %List - + Index: DOM/PM/impl/SubgroepClassificatieImpl.cls.xml =================================================================== diff -u --- DOM/PM/impl/SubgroepClassificatieImpl.cls.xml (revision 0) +++ DOM/PM/impl/SubgroepClassificatieImpl.cls.xml (revision 903) @@ -0,0 +1,21 @@ + + + +1 +%RegisteredObject,DOM.PM.impl.SuperGroepClassificatie +62157,52325.776861 +0 + + +SortSleutel:%String +1 +1 +%Status + + + + + Index: DOM/CRM/Klant.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/CRM/Klant.cls.xml (.../Klant.cls.xml) (revision 734) +++ DOM/CRM/Klant.cls.xml (.../Klant.cls.xml) (revision 903) @@ -1,19 +1,40 @@ - + 1 1 -62111,62054.523179 +62157,73450.058643 0 +%String + +%Integer + + +%String + +%String + + +%String + + +DatumVan:%Date,DatumTot:%Date +TECH.Iterator + + + +DatumVan:%Date,DatumTot:%Date +TECH.Iterator + - + Index: DOM/PM/TBXProduct/impl/TBXSpaanplaatImpl.cls.xml =================================================================== diff -u --- DOM/PM/TBXProduct/impl/TBXSpaanplaatImpl.cls.xml (revision 0) +++ DOM/PM/TBXProduct/impl/TBXSpaanplaatImpl.cls.xml (revision 903) @@ -0,0 +1,54 @@ + + + + +Halfabrikaat plaatmateriaal houtenrug +1 +DOM.PM.impl.ProductImpl +62144,28817.063749 +0 + + +%List + + + + +Kleur1ste +%String + + + + +KleurCode + + + + + + + + +expression +KleurCode + + + + + Index: DOM/PM/enu/DynamicSpace.cls.xml =================================================================== diff -u --- DOM/PM/enu/DynamicSpace.cls.xml (revision 0) +++ DOM/PM/enu/DynamicSpace.cls.xml (revision 903) @@ -0,0 +1,45 @@ + + + +datatype +1 +TECH.Enumeration +62147,51420.91096 +0 + + +,Voorraad,Opbergen,SpoelenEnAfval,Voorbereiden,KokenEnBakken + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + + Index: DOM/PM/enu/TBXZijkantKleur.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXZijkantKleur.cls.xml (revision 0) +++ DOM/PM/enu/TBXZijkantKleur.cls.xml (revision 903) @@ -0,0 +1,78 @@ + + + +datatype +1 +%String +62133,32013.722624 +0 + + +;MG;WI;SW;BZ;IN;BA;BI;AL;SA + + + +1 +DOM.PM.enu.TBXZijkantKleur + + + + +1 +DOM.PM.enu.TBXZijkantKleur + + + + +1 +DOM.PM.enu.TBXZijkantKleur + + + + +1 +DOM.PM.enu.TBXZijkantKleur + + + + +1 +DOM.PM.enu.TBXZijkantKleur + + + + +1 +DOM.PM.enu.TBXZijkantKleur + + + + +1 +DOM.PM.enu.TBXZijkantKleur + + + + +1 +DOM.PM.enu.TBXZijkantKleur + + + + +1 +DOM.PM.enu.TBXZijkantKleur + + + + + Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 734) +++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + TECH.Error 1 -DOM.PM.impl.ProductImpl,DOM.PM.TBXProduct.TBXLade -62115,55144.063657 +DOM.PM.impl.MaatwerkProductImpl,DOM.PM.TBXProduct.TBXLade +62153,43514.313378 0 @@ -17,6 +17,16 @@ 1 + +DOM.PM.TBXProduct.TBXBodem +1 + + + +DOM.PM.TBXProduct.TBXRug +1 + + %Boolean + +%Boolean + + + %Boolean + +%Boolean + 0) } + Quit BevatOpvullijst +]]> + + + +%Boolean + 0) } + Quit BevatOpvullijst +]]> + + %Boolean - @@ -117,18 +153,94 @@ ]]> + +%Boolean + + + + +%Boolean + + + + +%Boolean + + + + +DOM.PM.TBXProduct.TBXRug + + + + +DOM.PM.TBXProduct.TBXBodem + + + + +DOM.PM.enu.TBXBodemBewerking + + + %Integer - - -DOM.PM.enu.TBXBluMotion + +DOM.PM.enu.TBXBlumotion + +DOM.PM.enu.TBXBoxsideKleur + + + %Integer + +DOM.PM.enu.TBXFrontBevestiging + + + + +%String + + + %Float + +DOM.PM.enu.TBXInschuifElementMatCode + + + + +DOM.PM.enu.TBXDwarsverdeling + + + DOM.PM.enu.Familie - -%ListOfDataTypes - 0) - { - If (..GeefInterneBreedte() = 292) - { - Do Posities.Insert(14) - Do Posities.Insert(..GeefRugBreedte()-14) - } - ElseIf (..GeefInterneBreedte() = 307) - { - Do Posities.Insert(25) - Do Posities.Insert(..GeefRugBreedte()-25) - } - ElseIf (..GeefInterneBreedte() = 407) - { - Do Posities.Insert(50) - Do Posities.Insert(..GeefRugBreedte()-50) - } - ElseIf (..GeefInterneBreedte() = 862) - { - Do Posities.Insert(50) - Do Posities.Insert(50+305) - Do Posities.Insert(50+305+65) - Do Posities.Insert(50+305+65+305) - } - Else - { - $$$ThrowError($$$errGeneralError,"Voor de interne breedte van deze lade zijn geen hangmapboringposities gedefinieerd") - } - } - Quit Posities + + +Geeft Lade of BinnenLade +DOM.PM.enu.TBXLadeType + %Float + + + + +%Float @@ -210,8 +342,10 @@ ]]> - -DOM.PM.enu.TBXLadehoogte + +%String + @@ -228,6 +362,12 @@ ]]> + +%String + + + %String DOM.PM.enu.TBXRugHoogte - + +DOM.PM.enu.TBXUittrekbaarheid + + + + +%Integer + + + + +DOM.PM.enu.TBXVerpakking + + + %String - @@ -262,6 +442,10 @@ + +DOM.PM.enu.TBXZijkantHoogte + + + DOM.PM.TBXProduct.TBXReling + +DOM.PM.enu.TBXZijwandType + + + %Integer -%String +DOM.PM.enu.TBXZijkantKleur + -DOM.PM.enu.TBXLadehoogte +DOM.PM.enu.TBXZijwandHoogte + %Boolean - @@ -365,6 +589,16 @@ Quit Key[Beginpatroon ]]> + + +%String + + - + Index: DOM/VKP/enu/PrijsCodex.cls.xml =================================================================== diff -u --- DOM/VKP/enu/PrijsCodex.cls.xml (revision 0) +++ DOM/VKP/enu/PrijsCodex.cls.xml (revision 903) @@ -0,0 +1,57 @@ + + + +datatype +1 +TECH.Enumeration +62133,54998.874929 +0 + + +,L,R,S,B,G,P,C + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + + Index: DOM/PM/TBX/AfmetingCalculator.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/TBX/AfmetingCalculator.cls.xml (.../AfmetingCalculator.cls.xml) (revision 734) +++ DOM/PM/TBX/AfmetingCalculator.cls.xml (.../AfmetingCalculator.cls.xml) (revision 903) @@ -1,12 +1,16 @@ - + DOM.PM.OL 1 %RegisteredObject -62004,28508.136411 +62150,55373.436647 0 + +18 + + 1 -BuitenBreedte +BuitenBreedte,WandDikte:%Integer Waarde { set resBinnenBreedte = 0 } else { set resBinnenBreedte = BuitenBreedte - Waarde } quit resBinnenBreedte ]]> + +BinnenBreedte,WandDikte:%Integer + Waarde { set resBuitenBreedte = 0 } + else { set resBuitenBreedte = BinnenBreedte + Waarde } + + quit resBuitenBreedte +]]> + + BuitenDiepte + +BinnenDiepte + $$$DiepteCorrectie { set resBuitenDiepte = 0 } + else { set resBuitenDiepte = BinnenDiepte + $$$DiepteCorrectie } + + quit resBuitenDiepte +]]> + + 1 ProfessioneleAfmetingen:APPS.Web.OLParticulier.dto.ProfLadeAfmetingen @@ -55,5 +87,5 @@ ]]> - + Index: DOM/PM/enu/Variant.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/enu/Variant.cls.xml (.../Variant.cls.xml) (revision 734) +++ DOM/PM/enu/Variant.cls.xml (.../Variant.cls.xml) (revision 903) @@ -1,19 +1,19 @@ - + datatype 1 %String -62115,34865.48652 +62147,55712.581712 0 -,TBX_Plus,TBX_Antaro,TBX_Intivo,TBX_Baliko,TBX_Mengvorm,Basis,MDS +,TBX_Plus,TBX_Antaro,TBX_Intivo,TBX_Baliko,TBX_Mengvorm,Basis,MDS,OLM -,TANDEMBOX plus,TANDEMBOX antaro,TANDEMBOX intivo,TANDEMBOX baliko,TANDEMBOX mengvorm,Basis,MDS +,TANDEMBOX plus,TANDEMBOX antaro,TANDEMBOX intivo,TANDEMBOX baliko,TANDEMBOX mengvorm,Basis,MDS,ORGALUX op maat - + Index: DOM/OV/impl/DataM/DataMBonlijnIterator.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMBonlijnIterator.cls.xml (.../DataMBonlijnIterator.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMBonlijnIterator.cls.xml (.../DataMBonlijnIterator.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 DOM.OV.impl.DataM.DataMAbstractLijnIterator -62108,57829.82813 +62129,49535.027644 0 @@ -31,16 +31,18 @@ Nummer:%Integer 1 +%String Nummer:%Integer 1 +%Integer - + Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFVullingv001.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFVullingv001.cls.xml (.../HFVullingv001.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFVullingv001.cls.xml (.../HFVullingv001.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder -62101,29582.114582 +62133,50937.437798 0 @@ -30,7 +30,7 @@ %Boolean @@ -87,5 +87,5 @@ %Library.CacheStorage - + Index: DOM/LEV/impl/DataM/DataMToeleveringLijnFactory.cls.xml =================================================================== diff -u --- DOM/LEV/impl/DataM/DataMToeleveringLijnFactory.cls.xml (revision 0) +++ DOM/LEV/impl/DataM/DataMToeleveringLijnFactory.cls.xml (revision 903) @@ -0,0 +1,29 @@ + + + +1 +%RegisteredObject +62129,56977.484302 +0 + + +1 +LijnNummer:%Integer,LijnInfo:%String +DOM.LEV.impl.DataM.DataMToeleveringLijn + + + + + Index: DOM/OV/impl/DataM/DataMBonAbstract.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMBonAbstract.cls.xml (.../DataMBonAbstract.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMBonAbstract.cls.xml (.../DataMBonAbstract.cls.xml) (revision 903) @@ -1,16 +1,35 @@ - + 1 DOM.OV.Bon,%RegisteredObject -62108,57227.297496 +62157,70295.403308 0 %Integer 1 + + +Node 1 in KUL, KFA, en KFAP +%String +1 + + + + +Node 3 in KUL, KFA, en KFAP +%String +1 + + + +DataMAdres +1 + + BonNummer:%Integer 1 @@ -28,11 +47,45 @@ ]]> + +%Date + + + + +DataMAdres + + + + +%String + + + 1 Nummer:%Integer 1 + + +%String + + + + +%String + + - + Index: DOM/PM/OL/Gamma/IProductenNaarVerkoophandboek.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/OL/Gamma/IProductenNaarVerkoophandboek.cls.xml (.../IProductenNaarVerkoophandboek.cls.xml) (revision 734) +++ DOM/PM/OL/Gamma/IProductenNaarVerkoophandboek.cls.xml (.../IProductenNaarVerkoophandboek.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + 1 1 %RegisteredObject -62115,42168.518431 +62146,57669.080382 0 @@ -16,13 +16,9 @@ 1 - -UnID:%String - - ProductList:%ListOfDataTypes,BestandsNaam:%String="" - + Index: DOM/PM/Maatwerk/Calc/Kost/impl/OLM/KostZagenv001.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/Kost/impl/OLM/KostZagenv001.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/Kost/impl/OLM/KostZagenv001.cls.xml (revision 903) @@ -0,0 +1,45 @@ + + + +persistent +1 +DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder +62151,29032.65142 +0 + + +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder +1 +1 +%Status + + + + +%Library.CacheStorage + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml (.../HFRugv001.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFRugv001.cls.xml (.../HFRugv001.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder -62101,57365.901932 +62140,39968.905299 0 @@ -43,10 +43,10 @@ Set Halffab=HalffabItemZijkant.Halffab Set AftrekVoorRug=Halffab.AftrekVoorRug - Set LadeBreedte=IngegevenKenmerken.LadeBreedte + Set LadeBreedte=IngegevenKenmerken.InbouwBreedte Set RugBreedte=LadeBreedte-AftrekVoorRug - Set IsStalenRug=(IngegevenKenmerken.RugMateriaal="S") + Set IsStalenRug=(IngegevenKenmerken.RugMateriaal=##class(DOM.PM.enu.TBXRugMateriaal).Staal()) If (IsStalenRug) { @@ -102,7 +102,7 @@ Set HFItemProcessor=##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEenBewerkt).%New() Do HFItemProcessor.ValideerHalffabList(HalffabList) Set HalffabItem = HFItemProcessor.GenereerHalffabItem(HalffabList, IngegevenKenmerken, Context, ..Rol) - ;Set HalffabItem.AfwijkendeKenmerken="..." + Do HalffabItem.ZetAfwijkendKenmerk("LadeBreedte",Halffab.LadeBreedte) } } @@ -128,5 +128,5 @@ %Library.CacheStorage - + Index: DOM/PM/OLProduct/impl/OLProductImpl.cls.xml =================================================================== diff -u --- DOM/PM/OLProduct/impl/OLProductImpl.cls.xml (revision 0) +++ DOM/PM/OLProduct/impl/OLProductImpl.cls.xml (revision 903) @@ -0,0 +1,10 @@ + + + +1 +DOM.PM.impl.ProductImpl,DOM.PM.OLProduct.OLProduct +62147,52064.363637 +0 + + + Index: DOM/OV/impl/DataM/DataMBonInProformalijnIterator.cls.xml =================================================================== diff -u --- DOM/OV/impl/DataM/DataMBonInProformalijnIterator.cls.xml (revision 0) +++ DOM/OV/impl/DataM/DataMBonInProformalijnIterator.cls.xml (revision 903) @@ -0,0 +1,48 @@ + + + +1 +DOM.OV.impl.DataM.DataMAbstractLijnIterator +62154,26636.574778 +0 + + +%String +1 + + + +%String +1 + + + +Bon:DOM.OV.impl.DataM.DataMBonInProforma +1 +1 +%Status + + + + +Nummer:%Integer +1 +%String + + + + +Nummer:%Integer +1 +%Integer + + + + + Index: DOM/PM/OL/Gamma/impl/XML/vkhbSubgroep.cls.xml =================================================================== diff -u --- DOM/PM/OL/Gamma/impl/XML/vkhbSubgroep.cls.xml (revision 0) +++ DOM/PM/OL/Gamma/impl/XML/vkhbSubgroep.cls.xml (revision 903) @@ -0,0 +1,33 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62146,49945.559843 +0 + + +SUBGROEP + + + +%String + + + + + +%String + + + + + + +vkhbProduct +list + + + + + Index: DOM/Halux/TBX/enu/TransferLijn.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/enu/TransferLijn.cls.xml (revision 0) +++ DOM/Halux/TBX/enu/TransferLijn.cls.xml (revision 903) @@ -0,0 +1,16 @@ + + + +datatype +1 +%String +62123,62406.355526 +62123,54831.022184 +0 + + +,L1,L2,DI + + + + Index: DOM/OV/impl/DataM/DataMOrderVerwijzingOrderlijn.cls.xml =================================================================== diff -u --- DOM/OV/impl/DataM/DataMOrderVerwijzingOrderlijn.cls.xml (revision 0) +++ DOM/OV/impl/DataM/DataMOrderVerwijzingOrderlijn.cls.xml (revision 903) @@ -0,0 +1,87 @@ + + + +1 +DOM.OV.impl.DataM.DataMOrderlijn,DOM.OV.OrderVerwijzingOrderlijn +62154,39998.165377 +0 + + + \\\1071#1094#62067,31220\199974 - 07.12.10 - 07.12.10 Nr.10300310\\\\\\\\\\100\\KF5\\1071#62067,31480#199974\\\Dhr Wouters Jeroen#\\\\]]> +LijnNr:%Integer,LijnInfo:%String +1 +1 +%Status + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%Date + + + + +%String + " _ ##class(DOM.OV.impl.DataM.DataMOrderlijn)%this.ToString() +]]> + + + + Index: DOM/PM/Maatwerk/Calc/Kost/ExtraKostItem.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/Kost/ExtraKostItem.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/Kost/ExtraKostItem.cls.xml (revision 903) @@ -0,0 +1,16 @@ + + + +1 +DOM.PM.Maatwerk.Calc.Kost.KostItem +62150,35798.217611 +0 + + +Visitor:DOM.PM.Maatwerk.Calc.Kost.impl.KostItemWriterVisitor + + + + + Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml =================================================================== diff -u -r802 -r903 --- DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 802) +++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 903) @@ -1,18 +1,19 @@ - + TECH.Error 1 DOM.PM.ProductAPI,%RegisteredObject -62128,79297.344134 +62157,52761.007521 0 ProductNummer:%Integer DOM.PM.Product - + ProductNummer:%Integer DOM.PM.ProductClassificatie + +Key:%String,KKey:%Integer +DOM.PM.Classificatie + + + + +TECH.Iterator + + + ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem DOM.PM.Product @@ -64,20 +101,29 @@ { Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLadeCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem) Set PRNr = ProductCreator.GeefPRNr() - Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMLadeKenmerkenCreator).%New(PRNr,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom) + Set KenmerkenCreator = ##class(DOM.PM.impl.DataM.DataMLadeKenmerkenCreator).%New(PRNr,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom) } - Else + ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).AluKader()) { Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem) Set PRNr = ProductCreator.GeefPRNr() - Set ProductCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderKenmerkenCreator).%New(PRNr,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom) + Set KenmerkenCreator = ##class(DOM.PM.impl.DataM.DataMAluKaderKenmerkenCreator).%New(PRNr,ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom) } + ElseIf (ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Orgalux()) + { + Set ProductCreator = ##class(DOM.PM.OLProduct.impl.OLMProductCreator).%New(ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem) + Set PRNr = ProductCreator.GeefPRNr() + } + Else + { + $$$ThrowError($$$errGeneralError,"Voor dit soort familie kan geen product worden gemaakt") + } Set BouwsteenCreator = ##class(DOM.PM.impl.DataM.DataMBouwsteenCreator).%New(PRNr, ProductSpecificatie, BerekeningsSpecificatie, HalffabItemsBoom, KostItem) Quit ..GeefProduct(PRNr) ]]> - + Index: DOM/VKP/impl/VanHoeckeVoorHaluxBerekening.cls.xml =================================================================== diff -u --- DOM/VKP/impl/VanHoeckeVoorHaluxBerekening.cls.xml (revision 0) +++ DOM/VKP/impl/VanHoeckeVoorHaluxBerekening.cls.xml (revision 903) @@ -0,0 +1,22 @@ + + + +persistent +1 +DOM.VKP.impl.VerkoopPrijsBerekening +62153,29644.22409 +0 + + +Product:DOM.PM.Product,BasisPrijs:%Float,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +DOM.VKP.info.VerkoopPrijsInfo + + + + +%Library.CacheStorage + + + + Index: DOM/PM/TBXProduct/impl/TBXSifonladeImpl.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/TBXProduct/impl/TBXSifonladeImpl.cls.xml (.../TBXSifonladeImpl.cls.xml) (revision 734) +++ DOM/PM/TBXProduct/impl/TBXSifonladeImpl.cls.xml (.../TBXSifonladeImpl.cls.xml) (revision 903) @@ -1,11 +1,32 @@ - + +TECH.Error 1 DOM.PM.TBXProduct.TBXSifonlade,DOM.PM.TBXProduct.impl.TBXLadeImpl -62060,49081.123721 +62153,43572.507658 0 + +Visitor:DOM.PM.TBXProduct.TBXProductVisitor + + + + +DOM.PM.TBXProduct.TBXRug + + + %Integer + +%Integer + + + %Integer - + Index: DOM/PM/OL/Gamma/Context.cls.xml =================================================================== diff -u -r796 -r903 --- DOM/PM/OL/Gamma/Context.cls.xml (.../Context.cls.xml) (revision 796) +++ DOM/PM/OL/Gamma/Context.cls.xml (.../Context.cls.xml) (revision 903) @@ -1,12 +1,12 @@ - + De context waarin de functionaliteit van de Orgalux Website wordt opgeroepen. Deze bevat ondermeer de taal waarin de resultaten moeten teruggegeven worden en de website waarvoor de functionaliteit opgeroepen wordt (om website-specifiek gedrag te ondersteunen). vhLib.Macro,TECH.Error 1 %RegisteredObject -62126,58610.343596 +62150,54295.962624 61944,51411.898387 0 @@ -43,10 +43,6 @@ DOM.PM.OL.Gamma.Prijs - -DOM.PM.TBX.AfmetingCalculator - - 1 %Status @@ -66,7 +62,6 @@ do ..KlantSetObjectId(Klant) set ..Website = Website set ..blPrijs = ##class(DOM.PM.OL.Gamma.Prijs).GeefPrijsImpl(##this) - set ..blTBXAfmetingCalculator = ..GetTBXAfmetingCalculator() Quit $$$OK ]]> @@ -85,20 +80,18 @@ ]]> - -DOM.PM.TBX.AfmetingCalculator - +ExportFilter:DOM.PM.OL.Gamma.dto.ExportFilter +DOM.PM.OL.Gamma.IProductenNaarPrijslijst + Regio 0 - + Index: DOM/Halux/TBX/IZaagSturing.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/IZaagSturing.cls.xml (revision 0) +++ DOM/Halux/TBX/IZaagSturing.cls.xml (revision 903) @@ -0,0 +1,108 @@ + + + +1 +1 +%RegisteredObject +62123,62009.026632 +62123,54832.085244 +0 + + + + +APPS.Halux.TBX.ZaagServer + + + + + +1 + +%Boolean + + + + + +1 +BodemOfRug:%String,Kleur:String,Hoogte:%Integer,Lengte:%Float,Reden:%String +%Boolean + + + + + +1 +QueueID:%Integer,BodemOfRug:%String,GewensteLengte:%Float,GemetenLengte:%Float +%Boolean + + + + + +1 +LijnNr:%String +%AbstractList + + + + + +1 +BatchIDLijn1:%String,BatchIDLijn2:%String,BatchIDDirect:%String +%AbstractList + + + + + +1 +BatchID:%String,SubBatch:%String,LijnNr:%String +%AbstractList + + + + + +1 +QueueID:%Integer,Device:%String +%Boolean + + + + + +1 +Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:%String +%Boolean + + + + + +1 +DuurStilstand:%Integer,RedenStilstand:String,ZaagID:%Integer +%Boolean + + + + + +1 + +%Status + + + + + + +1 +QueueID:%Integer,StatusType:%String +%Boolean + + + + Index: DOM/common/DataM/DataMAbstractLijnIterator.cls.xml =================================================================== diff -u --- DOM/common/DataM/DataMAbstractLijnIterator.cls.xml (revision 0) +++ DOM/common/DataM/DataMAbstractLijnIterator.cls.xml (revision 903) @@ -0,0 +1,82 @@ + + + +1 +TECH.Iterator,%RegisteredObject +62129,49434.792212 +0 + + +%Integer +1 + + + +1 +1 +%Status + + + + +1 +Nummer:%Integer +1 +%String + + + +1 +Nummer:%Integer +1 +%Integer + + + +1 +LijnNummer:%String,LijnData:%String +1 +%RegisteredObject + + + +%Boolean + + + + +%CacheString + + + + +Lijn:%String +%Boolean + + + + +HuidigeLijnNr:%Integer +1 + + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml (.../HalffabRepository.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml (.../HalffabRepository.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Geeft een halffabrikaat spec. @@ -8,7 +8,7 @@ TECH.Error 1 DOM.PM.Maatwerk.Calc.HF.IHalffabRepository -62115,40092.834351 +62152,32040.204074 62010,56862.368973 0 @@ -17,7 +17,7 @@ DOM.PM.Maatwerk.Calc.HF.HalffabSpec = ?") + Do ResultSet.Prepare("SELECT ID FROM DOM_PM_Maatwerk_Calc_HF_impl.HalffabSpecInfo WHERE Familie = ? AND Variant = ? AND GeldigVan <= ? AND GeldigTot >= ? AND Tag is null") Do ResultSet.Execute(Familie, Variant, BerekenDatum, BerekenDatum) @@ -52,6 +52,11 @@ { Set HalffabTabel=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HalffabTabel).%New(KlantID,Personality,Variant) } + ElseIf (Familie = ##class(DOM.PM.enu.Familie).Orgalux()) + { + // Nog geen tabel gedefinieerd voor orgalux + Set HalffabTabel = "" + } Else { $$$ThrowError($$$errGeneralError,"Er is geen HalffabTabel gedefinieerd voor de opgegeven familie") } @@ -86,5 +91,5 @@ ]]> - + Index: DOM/LEV/impl/DataM/DataMTypeToeleveringLijnIterator.cls.xml =================================================================== diff -u --- DOM/LEV/impl/DataM/DataMTypeToeleveringLijnIterator.cls.xml (revision 0) +++ DOM/LEV/impl/DataM/DataMTypeToeleveringLijnIterator.cls.xml (revision 903) @@ -0,0 +1,33 @@ + + + +1 +DOM.LEV.impl.DataM.DataMToeleveringLijnIterator +62129,57205.387687 +0 + + +DOM.LEV.enu.ToeleveringLijnType +1 + + + +Toelevering:DOM.LEV.Toelevering,LeverancierNummer:%Integer,Type:DOM.LEV.enu.ToeleveringLijnType +1 +1 +%Status + + + + +Lijn:%String +%Boolean + + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HalffabVulling.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HalffabVulling.cls.xml (.../HalffabVulling.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HalffabVulling.cls.xml (.../HalffabVulling.cls.xml) (revision 903) @@ -1,14 +1,14 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.HF.Halffab -62102,48097.879263 +62137,37148.133003 0 -DOM.PM.enu.KADVullingSoort +%String @@ -28,5 +28,5 @@ - + Index: DOM/PM/Product.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 734) +++ DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 903) @@ -1,24 +1,34 @@ - + 1 1 -62118,53932.809056 +62151,49021.505 +62129,41516.729033 0 Visitor:DOM.PM.TBXProduct.TBXProductVisitor +1 %String + +1 +Taal:%String +%String + + +1 %String +1 %Integer @@ -27,9 +37,32 @@ %String + +1 +TECH.Iterator + + + +1 +TECH.Iterator + + + +1 +%String + + +1 %Boolean + + +1 +%String + + - + Index: DOM/PM/Maatwerk/Calc/HF/impl/OLM/SpecOpMaatv001.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/OLM/SpecOpMaatv001.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/OLM/SpecOpMaatv001.cls.xml (revision 903) @@ -0,0 +1,24 @@ + + + +persistent +1 +DOM.PM.Maatwerk.Calc.HF.HalffabSpec +62147,56060.172081 +0 + + +1 +1 +%Status + + + + + Index: DOM/LEV/ToeleveringLijn.cls.xml =================================================================== diff -u --- DOM/LEV/ToeleveringLijn.cls.xml (revision 0) +++ DOM/LEV/ToeleveringLijn.cls.xml (revision 903) @@ -0,0 +1,15 @@ + + + +1 +1 +62129,55364.115515 +0 + + +1 +%Integer + + + + Index: DOM/PM/Maatwerk/Calc/HF/enu/TBXRol.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/enu/TBXRol.cls.xml (.../TBXRol.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/enu/TBXRol.cls.xml (.../TBXRol.cls.xml) (revision 903) @@ -1,25 +1,25 @@ - + datatype 1 DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol -62105,49616.019705 +62138,41783.6322 0 -,LadeZijkant,FrontHouder,Bodem,Afdekkap,CorpusProfiel,FontBevestiging,Zijwand,FontRelingHouder,BoxCover,RugHouder,Rug +,Antislipmat,Boxside,Reling,Opvullijst,LadeZijkant,FrontHouder,Bodem,Afdekkap,CorpusProfiel,FrontBevestiging,Zijwand,FrontRelingHouder,BoxCover,RugHouder,Rug - + 1 - - + 1 - @@ -29,9 +29,9 @@ ]]> - + 1 - @@ -47,9 +47,9 @@ ]]> - + 1 - @@ -65,6 +65,24 @@ ]]> + +1 + + + + +1 + + + + +1 + + + 1 + + +1 + + - + Index: DOM/PM/OL/Gamma/impl/ProductenNaarVerkoophandboek.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/OL/Gamma/impl/ProductenNaarVerkoophandboek.cls.xml (.../ProductenNaarVerkoophandboek.cls.xml) (revision 734) +++ DOM/PM/OL/Gamma/impl/ProductenNaarVerkoophandboek.cls.xml (.../ProductenNaarVerkoophandboek.cls.xml) (revision 903) @@ -1,81 +1,306 @@ - + -vhLib.Macro,DOM.DomeinContext +TECH.Error,BL.Sys.FOP.Common,DOM.DomeinContext 1 DOM.PM.OL.Gamma.IProductenNaarVerkoophandboek -62115,42330.025236 +62153,42914.009527 0 - -%GlobalCharacterStream - - DOM.PM.OL.Gamma.dto.ExportFilter 1 + +BL.Prod.ImageLink +1 + + + +%List +1 + + + +%String +"OLProdCat_01.01" + + + +%Boolean + + + +%List +1 + + ExportFilter:DOM.PM.OL.Gamma.dto.ExportFilter 1 1 %Status + +1 +1 +%Status + + + - -UnID:%String - - - ProductList:%ListOfDataTypes,BestandsNaam:%String="" - - -ProductList:%ListOfDataTypes + + + + + +UnID 1 +%ListOfDataTypes + - -Bestandsnaam:%String="" + 1 +DOM.PM.OL.Gamma.impl.XML.vkhbRoot + - + +XML:DOM.PM.OL.Gamma.impl.XML.vkhbDocument,Bestandsnaam:%String="" 1 + - - +XML:DOM.PM.OL.Gamma.impl.XML.vkhbDocument,Bestandsnaam:%String="" +1 + - + set %blnProxy=0 + set sc=##class(BL.Sys.FOP.CommonTasks).RunFopTask(Task,$$$rmBatch,) + if ($$$ISERR(sc)) $$$ThrowErrorStatus($$$errGeneralError,"RunFopTask",sc) + kill %blnProxy + + Quit +]]> + - -ProductInfo:DOM.PM.OL.Gamma.dto.ProductInfoVoorPrijslijst + +KenmerkUnID 1 +%String + - + 1 -%ListOfDataTypes + @@ -84,5 +309,5 @@ DOM.PM.OL.Gamma.dto.ProductInfoVoorPrijslijst - + Index: DOM/CRM/KlantAPI.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/CRM/KlantAPI.cls.xml (.../KlantAPI.cls.xml) (revision 734) +++ DOM/CRM/KlantAPI.cls.xml (.../KlantAPI.cls.xml) (revision 903) @@ -1,15 +1,19 @@ - + 1 1 -62111,53433.019322 +62152,60240.21843 0 Nr:%Integer DOM.CRM.Klant + + +TECH.Iterator + - + Index: DOM/VKP/impl/VerkoopPrijsAPIimpl.cls.xml =================================================================== diff -u --- DOM/VKP/impl/VerkoopPrijsAPIimpl.cls.xml (revision 0) +++ DOM/VKP/impl/VerkoopPrijsAPIimpl.cls.xml (revision 903) @@ -0,0 +1,63 @@ + + + +BL.Derde.KlantSpecifiek +1 +%RegisteredObject,DOM.VKP.VerkoopPrijsAPI +62153,55860.858459 +0 + + +Product:DOM.PM.Product,BasisPrijs:%Float,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +DOM.VKP.info.VerkoopPrijsInfo += ? AND Tag is null") + Do ResultSet.Execute(Product.GeefPRNr(),BerekeningsSpecificatie.GeefKlantID(),BerekeningsSpecificatie.GeefPersonality().%Id(),BerekeningsSpecificatie.GeefBerekenDatum(),BerekeningsSpecificatie.GeefBerekenDatum()) + Set VerkoopPrijsBerekening = ..GeefVerkoopPrijsBerekening(ResultSet) + } + Else + { + $$$ThrowError($$$errGeneralError,"Geen datum of tag meegegeven in de berekeningsspecificatie") + } + Quit VerkoopPrijsBerekening.GeefVerkoopPrijsInfo(Product, BasisPrijs, BerekeningsSpecificatie) +]]> + + + +ResultSet:%ResultSet +1 +DOM.VKP.impl.VerkoopPrijsBerekening + + + + + Index: DOM/PM/enu/KADOphangplaats.cls.xml =================================================================== diff -u --- DOM/PM/enu/KADOphangplaats.cls.xml (revision 0) +++ DOM/PM/enu/KADOphangplaats.cls.xml (revision 903) @@ -0,0 +1,61 @@ + + + +datatype +1 +%String +62133,56865.621479 +0 + + +;I;O;L;R;B;U;V;II + + + +;Inliggend;Opliggend;Links;Rechts;Boven;Onder;Voorliggend;Inliggend + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + + Index: DOM/LEV/enu/ToeleveringLijnType.cls.xml =================================================================== diff -u --- DOM/LEV/enu/ToeleveringLijnType.cls.xml (revision 0) +++ DOM/LEV/enu/ToeleveringLijnType.cls.xml (revision 903) @@ -0,0 +1,29 @@ + + + +datatype +1 +%String +62129,53970.421119 +0 + + +KTRPL,KTO11 + + + +1 +DOM.LEV.enu.ToeleveringLijnType + + + + +1 +DOM.LEV.enu.ToeleveringLijnType + + + + + Index: DOM/PM/enu/DynamicSpace1.cls.xml =================================================================== diff -u --- DOM/PM/enu/DynamicSpace1.cls.xml (revision 0) +++ DOM/PM/enu/DynamicSpace1.cls.xml (revision 903) @@ -0,0 +1,45 @@ + + + +datatype +1 +TECH.Enumeration +62147,51399.582192 +0 + + +,Voorraad,Opbergen,SpoelenEnAfval,Voorbereiden,KokenEnBakken + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + + Index: DOM/CRM/impl/DataM/DataMFacturenIterator.cls.xml =================================================================== diff -u --- DOM/CRM/impl/DataM/DataMFacturenIterator.cls.xml (revision 0) +++ DOM/CRM/impl/DataM/DataMFacturenIterator.cls.xml (revision 903) @@ -0,0 +1,66 @@ + + + +1 +DOM.CRM.impl.DataM.DataMProformasIterator +62153,74084.24622 +0 + + +%Date +1 + + + +%Date +1 + + + +%Integer +1 + + + +%Date +1 + + + +%Integer +1 + + + +1 +-..DatumVan) ..Datum="",Final=2 + Set:..Datum="" Final=1 + } + If ..Datum + { + Set ..FactProfNr=$O(^KFA1("F",..KlantNr,..Datum,..FactProfNr)) + Set:..FactProfNr'="" Final=3 + } + } While 'Final +]]> + + + +%CacheString + + + + + Index: DOM/PM/impl/DataM/DataMProduct.cls.xml =================================================================== diff -u -r802 -r903 --- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 802) +++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 903) @@ -1,16 +1,21 @@ - + 1 -DOM.PM.Product,%RegisteredObject -62129,41762.675744 +%RegisteredObject +62153,49856.656689 0 %String 1 + +%String +1 + + %Integer 1 @@ -25,6 +30,28 @@ ]]> + +1 +%String + + + + +1 +%String + + + %String %String - TECH.Iterator + + + + +TECH.Iterator + + + + +%String + + + + +%String + + + + + +Type is BS of BSS +Type:%String +1 +%ListOfObjects @@ -86,6 +142,14 @@ { Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%OpenId(ID) } + + /// Standaard specificatie invullen, dit enkel omdat oude producten nog geen berekeningsspecificatie conversie hebben + If (BerekeningsSpecificatie = "") + { + Set KlantID = 1000 + Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance() + Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality) + } Quit BerekeningsSpecificatie ]]> @@ -118,17 +182,6 @@ Quit IsLanggoed ]]> - - -1 -%String - - - + Index: DOM/PM/enu/TBXBluMotion.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/enu/TBXBluMotion.cls.xml (.../TBXBluMotion.cls.xml) (revision 734) +++ DOM/PM/enu/TBXBluMotion.cls.xml (.../TBXBluMotion.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - - + + datatype 1 %String -62045,29741.310101 +62138,59979.737679 0 @@ -29,5 +29,5 @@ ]]> - + Index: DOM/PM/impl/DataM/DataMLadeCreator.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/impl/DataM/DataMLadeCreator.cls.xml (.../DataMLadeCreator.cls.xml) (revision 734) +++ DOM/PM/impl/DataM/DataMLadeCreator.cls.xml (.../DataMLadeCreator.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 DOM.PM.impl.DataM.DataMProductCreator -62118,53779.413337 +62147,47703.633978 0 @@ -29,11 +29,13 @@ Set ZijkantDesign = LadeZijkantHalffab.ZijkantDesign Set DesignCode=$S(ZijkantDesign="S":"/",1:ZijkantDesign) ; S,F,B,... Set FrontBevestiging = "" - Set KortTekst = "TB"_Glijder_RugHalffab.RugHoogte_DesignCode_FrontBevestiging_"." + Set KortTekst = "TB"_Glijder_RugHalffab.RugHoogte_DesignCode_FrontBevestiging_"." // RugHoogte moet uiteindelijk uit het halffab "RugHouder" opgehaald worden en NIET uit de rug. Set $E(KortTekst,7) = DossierNummer - Set $E(KortTekst,12) = BodemHalffab.LadeDiepte_"x"_BodemHalffab.LadeBreedte + Set IngegevenKenmerken = ..ProductSpecificatie.GeefIngegevenKenmerken() + Set $E(KortTekst,12) = IngegevenKenmerken.LadeDiepte_"x"_IngegevenKenmerken.InbouwBreedte + Set $E(KortTekst,22)=LadeZijkantHalffab.Kleur // Er is ook nog wat tekst voor verpakking en sifon/spoelbak/hangmap/buro @@ -44,5 +46,5 @@ ]]> - + Index: DOM/PM/OL/Gamma/impl/KenmerkInternals.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/OL/Gamma/impl/KenmerkInternals.cls.xml (.../KenmerkInternals.cls.xml) (revision 734) +++ DOM/PM/OL/Gamma/impl/KenmerkInternals.cls.xml (.../KenmerkInternals.cls.xml) (revision 903) @@ -1,11 +1,11 @@ - + persistent DOM.PM.OL,TECH.Error 1 %Persistent -62010,50320.745837 +62143,41697.098012 61944,52132.99755 0 @@ -210,6 +210,7 @@ } ElseIf Type="Onbepaald" { Quit "" + ;Quit:(VerhoogdeZijkant="GeenVerhoogdeZijkant" ) $LB("Alle_TBX_geen_bevestigingen_nodig") _ $$$lbNietBlum ;Quit:(VerhoogdeZijkant="EnkeleReling" ) "" ;Quit:(VerhoogdeZijkant="DubbeleReling" ) $LB("TBX_plus_Reling_of_BXglas") _ $$$lbAlleTBX _ $$$lbNietBlum @@ -477,5 +478,5 @@ - + Index: DOM/LEV/impl/DataM/DataMToeleveringLijn.cls.xml =================================================================== diff -u --- DOM/LEV/impl/DataM/DataMToeleveringLijn.cls.xml (revision 0) +++ DOM/LEV/impl/DataM/DataMToeleveringLijn.cls.xml (revision 903) @@ -0,0 +1,44 @@ + + + +1 +%RegisteredObject,DOM.LEV.ToeleveringLijn +62130,31418.885709 +0 + + +%String +1 + + + +%Integer +1 + + + +LijnNr:%Integer,LijnInfo:%String +1 +1 +%Status + + + + +%Integer + + + + +DOM.OV.Order + + + + + Index: DOM/PM/enu/KADMontage.cls.xml =================================================================== diff -u --- DOM/PM/enu/KADMontage.cls.xml (revision 0) +++ DOM/PM/enu/KADMontage.cls.xml (revision 903) @@ -0,0 +1,40 @@ + + + +datatype +1 +%String +62136,31227.62077 +0 + + +;L;K;KV; + + + +;Los;Kader;Kader+Vulling; + + + +1 +DOM.PM.enu.KADMontage + + + + +1 +DOM.PM.enu.KADMontage + + + + +1 +DOM.PM.enu.KADMontage + + + + + Index: DOM/PM/Maatwerk/Calc/Common/impl/KADVullingBeschrijving.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Common/impl/KADVullingBeschrijving.cls.xml (.../KADVullingBeschrijving.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Common/impl/KADVullingBeschrijving.cls.xml (.../KADVullingBeschrijving.cls.xml) (revision 903) @@ -1,16 +1,46 @@ - + serial 1 %SerialObject -62014,61123.171623 +62133,57313.678372 0 %String + +%Boolean +0 + + + +%Boolean +0 + + + +%Boolean +0 + + + +%Boolean +0 + + + +%Boolean +0 + + + +%Boolean +0 + + VullingType:%String 1 @@ -32,8 +62,26 @@ VullingType + +Beschermfolie + + +Gehard + + +Gezandstraald + + +InversePlaatsing + + +RodePoli + + +Speciaal + - + Index: DOM/PM/OL/Gamma/dto/ExportFilter.cls.xml =================================================================== diff -u -r795 -r903 --- DOM/PM/OL/Gamma/dto/ExportFilter.cls.xml (.../ExportFilter.cls.xml) (revision 795) +++ DOM/PM/OL/Gamma/dto/ExportFilter.cls.xml (.../ExportFilter.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62126,50104.581623 +62139,61217.003033 0 @@ -42,6 +42,11 @@ %String + +%String + + + %Boolean 0 @@ -57,7 +62,7 @@ 0 - + %Boolean 0 @@ -72,5 +77,5 @@ %String - + Index: DOM/PM/enu/TBXZijwandType.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXZijwandType.cls.xml (revision 0) +++ DOM/PM/enu/TBXZijwandType.cls.xml (revision 903) @@ -0,0 +1,78 @@ + + + +datatype +1 +%String +62133,33032.20783 +0 + + +;ZR;ER;DR;VR;BD;BDD;BG;CAP;COV + + + +1 +DOM.PM.enu.TBXZijwandType + + + + +1 +DOM.PM.enu.TBXZijwandType + + + + +1 +DOM.PM.enu.TBXZijwandType + + + + +1 +DOM.PM.enu.TBXZijwandType + + + + +1 +DOM.PM.enu.TBXZijwandType + + + + +1 +DOM.PM.enu.TBXZijwandType + + + + +1 +DOM.PM.enu.TBXZijwandType + + + + +1 +DOM.PM.enu.TBXZijwandType + + + + +1 +DOM.PM.enu.TBXZijwandType + + + + + Index: DOM/PR/enu/BouwSteenType.cls.xml =================================================================== diff -u --- DOM/PR/enu/BouwSteenType.cls.xml (revision 0) +++ DOM/PR/enu/BouwSteenType.cls.xml (revision 903) @@ -0,0 +1,39 @@ + + + +datatype +1 +TECH.Enumeration +62154,60508.144628 +0 + + +,K,H,T,S + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + + Index: DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml =================================================================== diff -u --- DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml (revision 0) +++ DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml (revision 903) @@ -0,0 +1,317 @@ + + + +TECH.Error +1 +%RegisteredObject,DOM.PM.Maatwerk.Calc.HF.HalffabItemVisitor,DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor +62150,40943.016528 +0 + + +DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie +1 + + + +DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +1 + + + +DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom +1 + + + +DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem +1 + + + +%Integer +1 + + + +%Integer +1 + + + +%Integer +1 + + + +PRNr:%Integer,ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem +1 +1 +%Status + + + + +1 + + + + +1 + + + + +1 + + + + + + +Item:DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem +%Status + + + + +Item:DOM.PM.Maatwerk.Calc.HF.InbegrepenHalffabItem +%Status + + + + + + +Item:DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem +%Status + + + + + + +Item:DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem,SamengesteldeRol:%String="" +%Status + + + + +HalffabItem:DOM.PM.Maatwerk.Calc.HF.IHalffabItem,IsBewerkt:%Boolean=0,SamengesteldeRol:%String="" +1 +%String + HARDCODED, moet nog correct ingevuld worden + Set $P(Rec,"\",11) = "GROEP" //Groep -> HARDCODED, moet nog correct ingevuld worden + Set $P(Rec,"\",13) = "Omschrijving van het product" //Oms. -> HARDCODED, moet nog correct ingevuld worden + + If (SamengesteldeRol '= "") { Set TeZoekenRol = SamengesteldeRol } + Else { Set TeZoekenRol = HalffabItem.GeefRol() } + + &SQL(SELECT Label INTO :Label FROM DOM_PM_impl_DataM.DataMBouwsteenLabelInfo WHERE Rol = :TeZoekenRol AND IsBewerkt = :IsBewerkt) + If ('$Data(Label)) $$$ThrowError($$$errGeneralError,"Geen label gevonden voor de opgegeven rol") + + If (..ProductSpecificatie.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade() && (";PRBDHO;PRBDHZ;PRRUGHS;PRVPCP;PRVPZW;PRVPOD;PRVULSTUK;PRVULPAL" [ Label)) + { + Set $P(Rec,"\",16) = 1 + } + + + // Iets met sorteren en groeperen + //Set GroepAndSort=$$kpcGetDispGroepSort(DItem) // Soms uit fabrtekst, anders uit fabrgroep + Set $P(Rec,"\",18) = "FabrGroep1" //$P(GroepAndSort,";",1) ; DItem.EvalTemplAuto("FabrGroep") + Set $P(Rec,"\",19) = "FabrPrep" //DItem.EvalTemplAuto("FabrPrep") // -> Deze is zeker nodig + Set $P(Rec,"\",21) = "FabrGroep2" //$P(GroepAndSort,";",2) + + Set BSKey = Label_".001" + + // Als de bouwsteen al bestond moeten we de aantallen verhogen + If ($Data(^PRBS("BS",..PRNr,BSKey))) Set $P(Rec,"\",2) = Aantal + $P(^PRBS("BS",..PRNr,BSKey),"\",2) + + Set ^PRBS("BS",..PRNr,BSKey) = Rec + + Quit BSKey +]]> + + + +Record:%String,BSLPrefix:%String +%String + + + + +Item:DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem +%Status + + + + +Item:DOM.PM.Maatwerk.Calc.Kost.BewerktHalffabKostItem +%Status + + + + +Item:DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem +%Status + + + + +Item:DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem +%Status + + + + + Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/CRM/impl/DataM/DataMKlant.cls.xml (.../DataMKlant.cls.xml) (revision 734) +++ DOM/CRM/impl/DataM/DataMKlant.cls.xml (.../DataMKlant.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 DOM.CRM.Klant,%RegisteredObject -62111,62028.405978 +62153,42652.849333 0 @@ -25,17 +25,32 @@ ]]> + +%Integer + + + +%String +%String + +%String + + + +%String @@ -49,5 +64,5 @@ ]]> - + Index: DOM/PM/OL/Gamma/dto/Product.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/OL/Gamma/dto/Product.cls.xml (.../Product.cls.xml) (revision 734) +++ DOM/PM/OL/Gamma/dto/Product.cls.xml (.../Product.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,%XML.Adaptor -62018,41619.218876 +62144,36165.788113 61947,48025.510415 0 @@ -83,6 +83,11 @@ %Integer + + +%String +list + - + Index: DOM/PM/TBXProduct/TBXSifonlade.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/TBXProduct/TBXSifonlade.cls.xml (.../TBXSifonlade.cls.xml) (revision 734) +++ DOM/PM/TBXProduct/TBXSifonlade.cls.xml (.../TBXSifonlade.cls.xml) (revision 903) @@ -1,17 +1,11 @@ - + 1 DOM.PM.TBXProduct.TBXLade -62055,32048.43738 +62133,29538.707124 0 - -Visitor:DOM.PM.TBXProduct.TBXProductVisitor - - - %Integer @@ -20,6 +14,11 @@ %Integer + +1 +%Integer + + %Integer @@ -32,5 +31,5 @@ DOM.PM.enu.TBXSifonType - + Index: DOM/PM/GroepClassificatie.cls.xml =================================================================== diff -u --- DOM/PM/GroepClassificatie.cls.xml (revision 0) +++ DOM/PM/GroepClassificatie.cls.xml (revision 903) @@ -0,0 +1,37 @@ + + + + +^KPHG1, ^KPSG1, ^KPGR1 +1 +1 +62157,53047.774617 +0 + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%Integer + + + +1 +%String + + + + Index: DOM/LEV/impl/DataM/DataMToeleveringAPI.cls.xml =================================================================== diff -u --- DOM/LEV/impl/DataM/DataMToeleveringAPI.cls.xml (revision 0) +++ DOM/LEV/impl/DataM/DataMToeleveringAPI.cls.xml (revision 903) @@ -0,0 +1,17 @@ + + + +1 +%RegisteredObject,DOM.LEV.ToeleveringAPI +62129,56283.770546 +0 + + +ToeleveringNummer:%Integer +DOM.LEV.Toelevering + + + + + Index: DOM/PM/OL/Gamma/impl/XML/vkhbPrijs.cls.xml =================================================================== diff -u --- DOM/PM/OL/Gamma/impl/XML/vkhbPrijs.cls.xml (revision 0) +++ DOM/PM/OL/Gamma/impl/XML/vkhbPrijs.cls.xml (revision 903) @@ -0,0 +1,21 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62146,48200.260155 +0 + + +%String + + + + + +%String + + + + + Index: DOM/PM/DynamicSpace.cls.xml =================================================================== diff -u --- DOM/PM/DynamicSpace.cls.xml (revision 0) +++ DOM/PM/DynamicSpace.cls.xml (revision 903) @@ -0,0 +1,18 @@ + + + +1 +%RegisteredObject +62147,52741.599299 +0 + + +1 +Zone:%String +%String + + + + + Index: DOM/OV/impl/DataM/DataMBonInProforma.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMBonInProforma.cls.xml (.../DataMBonInProforma.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMBonInProforma.cls.xml (.../DataMBonInProforma.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 DOM.OV.impl.DataM.DataMBonAbstract -62109,29210.192886 +62158,38964.678213 0 @@ -28,25 +28,31 @@ ]]> + +%RegisteredObject + + + Nummer:%Integer 1 - - + TECH.Iterator - - + Type:DOM.OV.enu.BonlijnType TECH.Iterator - - + Index: DOM/PM/TBXProduct/TBXBodem.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/TBXProduct/TBXBodem.cls.xml (.../TBXBodem.cls.xml) (revision 734) +++ DOM/PM/TBXProduct/TBXBodem.cls.xml (.../TBXBodem.cls.xml) (revision 903) @@ -1,24 +1,29 @@ - + 1 DOM.PM.Product -62055,30333.160957 +62127,66128.632323 0 Visitor:DOM.PM.TBXProduct.TBXProductVisitor - %Float - + +%List + + + +Kleur1ste %String - + Index: DOM/PM/impl/SubgroepClassicatie.cls.xml =================================================================== diff -u --- DOM/PM/impl/SubgroepClassicatie.cls.xml (revision 0) +++ DOM/PM/impl/SubgroepClassicatie.cls.xml (revision 903) @@ -0,0 +1,56 @@ + + + +1 +%RegisteredObject,DOM.PM.Classificatie +62157,38769.291379 +0 + + +DOM.PM.impl.DataM.DataMSubgroepClassificatie +1 + + + +SortSleutel:%String +1 +1 +%Status + + + + +%String + + + + +%String + + + + +%String + + + + +%Integer + + + + +%String + + + + + Index: DOM/PM/OL/Gamma/impl/XML/vkhbGroep.cls.xml =================================================================== diff -u --- DOM/PM/OL/Gamma/impl/XML/vkhbGroep.cls.xml (revision 0) +++ DOM/PM/OL/Gamma/impl/XML/vkhbGroep.cls.xml (revision 903) @@ -0,0 +1,35 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62146,48403.762704 +0 + + +DATA + + + +%String + + + + +vkhbPrijs + + + + + +%String + + + + +%String + + + + + Index: DOM/VKP/impl/VerkoopPrijzen.cls.xml =================================================================== diff -u --- DOM/VKP/impl/VerkoopPrijzen.cls.xml (revision 0) +++ DOM/VKP/impl/VerkoopPrijzen.cls.xml (revision 903) @@ -0,0 +1,144 @@ + + + + +Verkooprijs info van producten. Hierin staan zowel historische, huidige en toekomstige waarden. +Het product hoeft niet meer als product te bestaan: de prijsinfo kan het product overleven. +Ondersteunt per product verschillende prijzen op datum, +met een bepaalde tag, voor specifieke klanten en/of specifieke personalities. + +persistent +1 +%Persistent +62152,31072.712183 +0 + + +DOM.VKP.impl.VerkoopPrijsBerekening +1 + + + +%Date +1 + + + +%Date +1 + + + +%String +1 + + + + +Als er een OverridePrijs is, wordt voor de prijsberekening (lijstprijs, verkoopprijs) deze overrideprijs gebruikt. +De override kan leeg zijn. +%Float +1 + + + +DOM.common.Personality +1 + + + +%String +1 + + + +%String +1 + + + +ProductID,KlantID,Personality + + + +ProductID,KlantID,Personality,Tag + + + +Berekening:DOM.VKP.impl.VerkoopPrijsBerekening,KlantID:%String,Personality:DOM.common.Personality,ProductID:%String,OverridePrijs:%Float,GeldigVan:%Date="",GeldigTot:%Date="",Tag:%String="" +1 +1 +%Status + + + + +DOM.VKP.impl.VerkoopPrijsBerekening + + + + +%Boolean + + + + +%Float + + + + +%Library.CacheStorage +^DOM.VKP.impl.VerkoopPrijzenD +VerkoopPrijzenDefaultData +^DOM.VKP.impl.VerkoopPrijzenD +^DOM.VKP.impl.VerkoopPrijzenI +^DOM.VKP.impl.VerkoopPrijzenS + +listnode + + +%%CLASSNAME + + +Berekening + + +GeldigTot + + +GeldigVan + + +KlantID + + +OverridePrijs + + +Personality + + +ProductID + + +Tag + + + + + + Index: DOM/PM/TBXProduct/TBXRug.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/TBXProduct/TBXRug.cls.xml (.../TBXRug.cls.xml) (revision 734) +++ DOM/PM/TBXProduct/TBXRug.cls.xml (.../TBXRug.cls.xml) (revision 903) @@ -1,24 +1,29 @@ - + 1 DOM.PM.Product -62055,52431.919448 +62127,66160.363655 0 Visitor:DOM.PM.TBXProduct.TBXProductVisitor - DOM.PM.enu.TBXLadehoogte - + +%List + + + +Kleur1ste %String - + Index: DOM/PM/Maatwerk/Calc/Kost/ProductPrijsSpecificatie.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Kost/ProductPrijsSpecificatie.cls.xml (.../ProductPrijsSpecificatie.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Kost/ProductPrijsSpecificatie.cls.xml (.../ProductPrijsSpecificatie.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62104,42211.816666 +62157,54777.173125 0 @@ -65,5 +65,5 @@ ]]> - + Index: DOM/OV/impl/DataM/DataMFactProfAbstract.cls.xml =================================================================== diff -u --- DOM/OV/impl/DataM/DataMFactProfAbstract.cls.xml (revision 0) +++ DOM/OV/impl/DataM/DataMFactProfAbstract.cls.xml (revision 903) @@ -0,0 +1,188 @@ + + + + +TO DO : BTW uitsplitising +1 +%RegisteredObject +62154,39150.005731 +0 + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +%Integer + + + + + +F of C +%String + + + + +%Date + + + + +%Float + + + + +%String + + + + +%Date + + + + +%Float + + + + +%Float + + + + +%Float + + + + +%Float + + + + +%Float + + + + +%Float + + + + +%Float + + + + +%Boolean + + + + +%Float + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%Boolean + + + + +1 +Index +1 + + + +1 +%String + + + + +1 +%String + + + + +1 +%String + + + + + FishEye: Tag 903 refers to a dead (removed) revision in file `DOM/OV/impl/DataM/DataMBonProformaLijnIterator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: DOM/Halux/TBX/impl/ZaagBatches.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/impl/ZaagBatches.cls.xml (revision 0) +++ DOM/Halux/TBX/impl/ZaagBatches.cls.xml (revision 903) @@ -0,0 +1,90 @@ + + + +persistent +1 +%Persistent +62123,73487.064699 +62123,54831.264395 +0 + + +%ResultSet +1 + + + +DS.PPS.TBX.Batch +1 + + + +%RegisteredObject +1 + + + + + + + +BatchID +%Status + + + + + + + + + + +oQueue + + + + + + + + +%Library.CacheStorage +^DOM.Halux.TBX.i60C.ZaagBatchesD +ZaagBatchesDefaultData +^DOM.Halux.TBX.i60C.ZaagBatchesD +^DOM.Halux.TBX.i60C.ZaagBatchesI +^DOM.Halux.TBX.i60C.ZaagBatchesS + +listnode + + +%%CLASSNAME + + +ZaagOpdracht + + +ZaagSturing + + + + + + FishEye: Tag 903 refers to a dead (removed) revision in file `DOM/VKP/LeveringsProblemen.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: DOM/CRM/impl/DataM/DataMKlantIterator.cls.xml =================================================================== diff -u --- DOM/CRM/impl/DataM/DataMKlantIterator.cls.xml (revision 0) +++ DOM/CRM/impl/DataM/DataMKlantIterator.cls.xml (revision 903) @@ -0,0 +1,61 @@ + + + +1 +TECH.Iterator,%RegisteredObject +62153,42692.555347 +0 + + +DOM.CRM.Klant +1 + + + +%Integer +1 + + + +1 +1 +%Status + + + + +%Boolean + + + + +1 + + + + +%CacheString + + + + + Index: DOM/CRM/impl/KlantImpl.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/CRM/impl/KlantImpl.cls.xml (.../KlantImpl.cls.xml) (revision 734) +++ DOM/CRM/impl/KlantImpl.cls.xml (.../KlantImpl.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 DOM.CRM.Klant,%RegisteredObject -62111,62042.417726 +62153,73754.152423 0 @@ -18,16 +18,29 @@ %Status + +%Integer + + + %String + +%String + + + %String + + +DatumVan:%Date,DatumTot:%Date +TECH.Iterator + + + + +DatumVan:%Date,DatumTot:%Date +TECH.Iterator + + - + Index: DOM/PM/Maatwerk/Calc/Kost/IKostItemVisitor.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Kost/IKostItemVisitor.cls.xml (.../IKostItemVisitor.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Kost/IKostItemVisitor.cls.xml (.../IKostItemVisitor.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + 1 1 %RegisteredObject -62115,57317.078454 +62150,35917.962149 0 @@ -22,23 +22,25 @@ -1 Item:DOM.PM.Maatwerk.Calc.Kost.StandaardHalffabKostItem %Status -1 Item:DOM.PM.Maatwerk.Calc.Kost.BewerktHalffabKostItem %Status -1 Item:DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem %Status + +Item:DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem +%Status + + Item:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem %Status @@ -54,5 +56,5 @@ ]]> - + Index: DOM/PM/TBXProduct/TBXLade.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 734) +++ DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 903) @@ -1,14 +1,15 @@ - + 1 1 -62115,54023.527325 +DOM.PM.MaatwerkProduct +62146,58729.242483 0 Visitor:DOM.PM.TBXProduct.TBXProductVisitor - @@ -36,6 +37,11 @@ %Boolean + +1 +%Boolean + + %Boolean @@ -48,12 +54,46 @@ %Boolean + +%Boolean + + + +1 +%Boolean + + + +1 +%Boolean + + + +%Boolean + + + +%Boolean + + + +TBXRug + + + + +TBXBodem + + + %Integer - -DOM.PM.enu.TBXBluMotion + +DOM.PM.enu.TBXBlumotion @@ -65,35 +105,65 @@ +1 %String - + +1 +DOM.PM.enu.TBXBoxsideKleur + + +1 %Float - -DOM.PM.enu.Familie + +1 +DOM.PM.enu.TBXDwarsverdeling - -%ListOfDataTypes + +1 +DOM.PM.enu.TBXFrontBevestiging + +1 +%String + + + +1 +DOM.PM.enu.TBXInschuifElementMatCode + + + +DEPRECATED: Gebruik GeefInbouwBreedte() %Float + +1 +%Float + + %Float - -DOM.PM.enu.TBXLadehoogte + +1 +DOM.PM.enu.TBXLadeType + +1 +%String + + DOM.PM.TBXProduct.TBXReling @@ -106,6 +176,15 @@ DOM.PM.enu.TBXRugHoogte + +%Integer + + + +1 +%String + + %String @@ -118,11 +197,16 @@ DOM.PM.TBXProduct.TBXReling - + 1 -DOM.PM.enu.LadeVariant +DOM.PM.enu.TBXUittrekbaarheid + +1 +DOM.PM.enu.TBXVerpakking + + %Integer @@ -131,21 +215,36 @@ DOM.PM.enu.TBXZijkantDesign + +1 +DOM.PM.enu.TBXZijkantHoogte + + -%String +DOM.PM.enu.TBXZijkantKleur -DOM.PM.enu.TBXLadehoogte +1 +DOM.PM.enu.TBXZijwandHoogte + +1 +DOM.PM.enu.TBXZijwandType + + %Boolean %Boolean + + +%String + - + Index: DOM/CRM/Stat/KlantBeoordeling.cls.xml =================================================================== diff -u --- DOM/CRM/Stat/KlantBeoordeling.cls.xml (revision 0) +++ DOM/CRM/Stat/KlantBeoordeling.cls.xml (revision 903) @@ -0,0 +1,299 @@ + + + + +Leveringsperformantie vertrekt van de facturen, +de leveringsdagen in de factuurlijnen wordt vergelijken met de leveringsdag van de leveringbon +er kan op 3 nivos worden gegropeerd : + - detail - lijn per lijn (gigantisch bestand) + - per leveringsbon + - per klant en maand + het bestand wordt +BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek,%VHMacro,BL.EC.Common,%Prod.Product,TECH.Error +1 +%RegisteredObject +62158,41513.229615 +61807,38311.621993 +0 + + +DOM.CRM.Klant +1 + + + +%Date +1 + + + +%Date +1 + + + + +tijdelijke opslag +%String +1 + + + + +tijdelijke opslag +%String +1 + + + + +tijdelijke opslag +%String +1 + + + + +tijdelijke opslag +%String +1 +1 + + + +%Integer +1 + + + +%Integer +1 + + + +TECH.Iterator +1 + + + +DOM.CRM.KlantAPI +1 + + + + +Do ##class(DOM.CRM.Stat.KlantBeoordeling).Test() +1 + + + + +%Query +AantalMaanden:%Integer +1 + + + + +1 + +%Status + + + + +1 + +qLijstExecute +%Status + + + + +1 + +qLijstExecute +%Status + + + + +AantalMaanden:%Integer=12 +%Status + + + + +1 + { + Set ..StopAfter=..StopAfter-1 + Set:'..StopAfter Final=3,Row="" + } + } + Else + { + Set Final=2 + } + } + } While 'Final + Quit Row +]]> + + + +Begin,Eind + + + + + + + + + + + + +CacheRef + + + + +Type,FacturenIterator + + + + + Index: DOM/OV/impl/DataM/DataMBonlijnFactory.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMBonlijnFactory.cls.xml (.../DataMBonlijnFactory.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMBonlijnFactory.cls.xml (.../DataMBonlijnFactory.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62109,43381.209616 +62157,72086.54276 0 @@ -12,7 +12,7 @@ DOM.OV.Orderlijn - + Index: DOM/LEV/impl/DataM/DataMProductToeleveringLijn.cls.xml =================================================================== diff -u --- DOM/LEV/impl/DataM/DataMProductToeleveringLijn.cls.xml (revision 0) +++ DOM/LEV/impl/DataM/DataMProductToeleveringLijn.cls.xml (revision 903) @@ -0,0 +1,24 @@ + + + +1 +DOM.LEV.impl.DataM.DataMToeleveringLijn,DOM.LEV.ProductToeleveringLijn +62129,55776.207121 +0 + + +DOM.PM.Product + + + + +%Integer + + + + + Index: DOM/Halux/TBX/enu/BodemRug.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/enu/BodemRug.cls.xml (revision 0) +++ DOM/Halux/TBX/enu/BodemRug.cls.xml (revision 903) @@ -0,0 +1,16 @@ + + + +datatype +1 +%String +62123,62305.428923 +62123,54829.662635 +0 + + +,B+R,B,R + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/OLM/BuilderOpMaatv001.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/OLM/BuilderOpMaatv001.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/OLM/BuilderOpMaatv001.cls.xml (revision 903) @@ -0,0 +1,31 @@ + + + +persistent +1 +DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder +62150,27981.626785 +0 + + +SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder="" +1 +1 +%Status + + + + +%Library.CacheStorage + + + + Index: DOM/VKP/PrijsUitzAPI.cls.xml =================================================================== diff -u --- DOM/VKP/PrijsUitzAPI.cls.xml (revision 0) +++ DOM/VKP/PrijsUitzAPI.cls.xml (revision 903) @@ -0,0 +1,17 @@ + + + +1 +1 +62133,57191.958242 +0 + + +KlantNr:%Integer +DOM.VKP.enu.PrijsCodex + + + + + Index: DOM/Halux/TBX/enu/PrintDevice.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/enu/PrintDevice.cls.xml (revision 0) +++ DOM/Halux/TBX/enu/PrintDevice.cls.xml (revision 903) @@ -0,0 +1,20 @@ + + + + +Aan de zaag zijn 2 printers gekoppeld. +LabelApplicator +LabelBackup +datatype +1 +%String +62123,62355.468537 +62123,54830.183627 +0 + + +,LA,LB + + + + Index: DOM/PM/enu/KADProfielAfwerking.cls.xml =================================================================== diff -u --- DOM/PM/enu/KADProfielAfwerking.cls.xml (revision 0) +++ DOM/PM/enu/KADProfielAfwerking.cls.xml (revision 903) @@ -0,0 +1,89 @@ + + + +datatype +1 +%String +62133,53032.287711 +0 + + +;EV;IL;WE;CR;BE;KA;BR;KE;KF;WI + + + +;Geanodiseerd;Inox look;Wengé;Chromé glans;Beuken;Kastanje;Berken;Kersen;Kersen focus;Wit + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + +1 +DOM.PM.enu.KADProfielAfwerking + + + + + Index: DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml (.../OrgaluxProductGamma.cls.xml) (revision 734) +++ DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml (.../OrgaluxProductGamma.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Maakt gebruik van de bestaande Kenmerken klassen en zoek-mogelijkheden. @@ -11,7 +11,7 @@ DOM.PM.OL,TECH.Error 1 DOM.PM.OL.Gamma.OrgaluxProductGamma -62118,31282.733685 +62157,61878.121854 61944,51413.335308 0 @@ -86,9 +86,9 @@ 1 - -1 - + +1 + %Integer @@ -229,12 +229,38 @@ ;Set KenmerkUnID = ..arKenmerkUnIDs(Key) Set oKenmerk = ##class(Prod.Kenmerk.Orgalux).%New(Key,..Context.Taal) - Set KortTekst = oKenmerk.GetKortTekst() + + Set Korttekst = oKenmerk.GetKortTekst() + Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() + /// Punt weghalen uit key, multiple eruit halen + Set KeyNoMultiples = $Piece(Key,".",1) + Set OLProduct = ProductAPI.GeefProduct(KeyNoMultiples) + + Set Korttekst = OLProduct.GeefKorttekst() + + /// Korttekst limiteren tot acht tekens + Set KorttekstGelimiteerd = $Extract($Piece(Korttekst,"OL.",2),1,8) + + /// KORTTEKST zonder OL. Set Zoekterm = ##class(APPS.Web.OLParticulier.dto.GekendeZoekterm).%New() - Set Zoekterm.Zoekterm = KortTekst + Set Zoekterm.Zoekterm = KorttekstGelimiteerd Set Zoekterm.CanonischeWaarde = Zoekterm.Zoekterm Set Zoekterm.Categorie = ##class(APPS.Web.OLParticulier.enu.ZoektermCategorie).KortTekst() Do Zoektermen.SetAt(Zoekterm,Zoekterm.Zoekterm) + + /// KORTTEKST met OL. + Set Zoekterm = ##class(APPS.Web.OLParticulier.dto.GekendeZoekterm).%New() + Set Zoekterm.Zoekterm = "OL."_KorttekstGelimiteerd + Set Zoekterm.CanonischeWaarde = Zoekterm.Zoekterm + Set Zoekterm.Categorie = ##class(APPS.Web.OLParticulier.enu.ZoektermCategorie).KortTekst() + Do Zoektermen.SetAt(Zoekterm,Zoekterm.Zoekterm) + + /// KORTTEKST met OL + Set Zoekterm = ##class(APPS.Web.OLParticulier.dto.GekendeZoekterm).%New() + Set Zoekterm.Zoekterm = "OL"_KorttekstGelimiteerd + Set Zoekterm.CanonischeWaarde = Zoekterm.Zoekterm + Set Zoekterm.Categorie = ##class(APPS.Web.OLParticulier.enu.ZoektermCategorie).KortTekst() + Do Zoektermen.SetAt(Zoekterm,Zoekterm.Zoekterm) Set Key = $Order(..arKenmerkUnIDs(Key)) } @@ -331,7 +357,7 @@ do ..ZoekProductGroepenZoek(.ProductCriteria,.Zoekterm,.LadeSpec,.FilterKeuzes,ZoektermCategorie) // bouwt ..KenmerkUnIDs [ list ] op - do:..#Debug WL^vhDBG("# Kenmerken : "_..KenmerkUnIDs.Count()) + do:..Debug WL^vhDBG("# Kenmerken : "_..KenmerkUnIDs.Count()) quit:$$$Not(..KenmerkUnIDs.Count()) "" @@ -523,6 +549,7 @@ @@ -537,7 +564,9 @@ @@ -717,7 +746,7 @@ 1 0 + + +JBL + 2011-03-07 , ondersteunen van zoeken via "OL." en "OL" +Zoekterm:%String +1 +%String + + + Zoekterm:%String 1 LadeSpecs:DOM.PM.OL.Gamma.dto.LadeSpecificatie 1 0 { Set CorpusBinnenBreedteInMM=##class(DOM.PM.OL.Gamma.impl.KenmerkInternals).GeefCorpusBinnenBreedteInMM(LadeSpecs.InterneBreedte) - do:..#Debug WL^vhDBG("CorpusBinnenBreedte : "_CorpusBinnenBreedteInMM) + do:..Debug WL^vhDBG("CorpusBinnenBreedte : "_CorpusBinnenBreedteInMM) Merge arUnIDs = ..arKenmerkUnIDs Do ..OLSelectProductsBeperkBreedte(.arUnIDs,CorpusBinnenBreedteInMM) @@ -1531,5 +1585,5 @@ ]]> - + Index: DOM/PM/impl/DataM/DataMClassificatie.cls.xml =================================================================== diff -u --- DOM/PM/impl/DataM/DataMClassificatie.cls.xml (revision 0) +++ DOM/PM/impl/DataM/DataMClassificatie.cls.xml (revision 903) @@ -0,0 +1,58 @@ + + + +1 +DOM.PM.Classificatie,%RegisteredObject +62157,49285.036165 +0 + + +%String + + + +%Integer + + + +%String +1 + + + +Key:%String,KKey:%Integer +1 +1 +%Status + + + + +DOM.PM.enu.PMClassificatieNiveau + + + + +DOM.PM.enu.PMECType + + + + +1 +%String + + + + + Index: DOM/PM/Maatwerk/Calc/Common/impl/KADBoring.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/Common/impl/KADBoring.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/Common/impl/KADBoring.cls.xml (revision 903) @@ -0,0 +1,96 @@ + + + +persistent +1 +%Persistent +62137,41402.550698 +0 + + +%String +1 + + + +TECH.Vector +1 + + + +DOM.PM.enu.KADBoringType +1 + + + +TECH.Vector +1 + + + +%Float +1 + + + +%Float +1 + + + +Element:%String,Positie:TECH.Vector,Type:DOM.PM.enu.KADBoringType,Richting:TECH.Vector,Diameter:%Float,AfschuinDiameter:%Float +1 +1 +%Status + + + + + + + + +%Library.CacheStorage +^DOM.PM.Maatwerk.CB2D.KADBoringD +KADBoringDefaultData +^DOM.PM.Maatwerk.CB2D.KADBoringD +^DOM.PM.Maatwerk.CB2D.KADBoringI +^DOM.PM.Maatwerk.CB2D.KADBoringS + +listnode + + +%%CLASSNAME + + +AfschuinDiameter + + +Diameter + + +Element + + +Positie + + +Richting + + +Type + + + + + + Index: DOM/PM/enu/TBXBodemBewerking.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXBodemBewerking.cls.xml (revision 0) +++ DOM/PM/enu/TBXBodemBewerking.cls.xml (revision 903) @@ -0,0 +1,43 @@ + + + + +
  • Spoelbak en Syfon laden
    • +
  • Tipon
    • +]]>     +datatype +1 +%String +62127,70820.499704 +62123,54830.753447 +0 + + +,G,F,Z + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + +     + +     Index: DOM/PM/enu/PMClassificatieNiveau.cls.xml =================================================================== diff -u --- DOM/PM/enu/PMClassificatieNiveau.cls.xml (revision 0) +++ DOM/PM/enu/PMClassificatieNiveau.cls.xml (revision 903) @@ -0,0 +1,43 @@ + + + + +
  • Hoofdgroep
    • +
  • Groep
    • +
  • Subgroep
    • +]]>     +datatype +1 +%String +62157,37200.321678 +0 + + +,1,2,3 + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + +     + +     Index: DOM/enu/Taal.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/enu/Taal.cls.xml (.../Taal.cls.xml) (revision 734) +++ DOM/enu/Taal.cls.xml (.../Taal.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + datatype 1 TECH.Enumeration -62112,62942.927186 +62154,61551.979636 0 @@ -35,5 +35,5 @@ ]]> - + Index: DOM/PM/enu/TBXDwarsverdeling.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXDwarsverdeling.cls.xml (revision 0) +++ DOM/PM/enu/TBXDwarsverdeling.cls.xml (revision 903) @@ -0,0 +1,57 @@ + + + +datatype +1 +%String +62132,56789.452201 +0 + + +;0;1;2;3;4;2x2 + + + +1 +DOM.PM.enu.TBXDwarsverdeling + + + + +1 +DOM.PM.enu.TBXDwarsverdeling + + + + +1 +DOM.PM.enu.TBXDwarsverdeling + + + + +1 +DOM.PM.enu.TBXDwarsverdeling + + + + +1 +DOM.PM.enu.TBXDwarsverdeling + + + + +1 +DOM.PM.enu.TBXDwarsverdeling + + + + + Index: DOM/PM/Maatwerk/Calc/Kost/impl/OLM/VariabeleAantalProducten.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/Kost/impl/OLM/VariabeleAantalProducten.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/Kost/impl/OLM/VariabeleAantalProducten.cls.xml (revision 903) @@ -0,0 +1,19 @@ + + + +1 +DOM.PM.Maatwerk.Calc.Kost.IMultiplier +62151,28885.285539 +0 + + + + +Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom +%Float + + + + + Index: DOM/LEV/ToeleveringAPI.cls.xml =================================================================== diff -u --- DOM/LEV/ToeleveringAPI.cls.xml (revision 0) +++ DOM/LEV/ToeleveringAPI.cls.xml (revision 903) @@ -0,0 +1,22 @@ + + + +1 +1 +62152,60159.06947 +0 + + +1 +ToeleveringNummer:%Integer +DOM.LEV.Toelevering + + + +1 +PRNr:%Integer +%Integer + + + + Index: DOM/VKP/info/VerkoopPrijsInfo.cls.xml =================================================================== diff -u --- DOM/VKP/info/VerkoopPrijsInfo.cls.xml (revision 0) +++ DOM/VKP/info/VerkoopPrijsInfo.cls.xml (revision 903) @@ -0,0 +1,68 @@ + + + +1 +%RegisteredObject +62153,29573.293989 +0 + + +%Float +1 + + + +%Float +1 + + + +%Float +1 + + + +DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +1 + + + +LijstPrijs:%Float,VerkoopPrijs:%Float,VerkoopPrijsNaCommissie:%Float,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +1 +1 +%Status + + + + +%Float + + + + +%Float + + + + +%Float + + + + +DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie + + + + + Index: DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml =================================================================== diff -u --- DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml (revision 0) +++ DOM/PM/impl/DataM/DataMSubgroepClassificatie.cls.xml (revision 903) @@ -0,0 +1,77 @@ + + + +1 +DOM.PM.Classificatie,%RegisteredObject +62157,38883.081842 +0 + + +%String + + + +%String +1 + + + + +SortSleutel +Waarde : NNHHMMGGGPPSSSSSS+blanko +Waar NN is de sortering Hoofdgroep en HH is de Hoofdgroepcode +Waar MM is de sortering Groep en GGG is de Groepcode +Waar PP is de sortering Subgroep en SSSSSS is de Subgroepcode +SortSleutel:%String +1 +1 +%Status + + + + +%String + + + + +%String + + + + +%String + + + + +%Integer + + + + +%String + + + + +1 +%String + + + + + Index: DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml =================================================================== diff -u --- DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml (revision 0) +++ DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml (revision 903) @@ -0,0 +1,16 @@ + + + +1 +DOM.PM.TBXProduct.TBXBodem,DOM.PM.TBXProduct.impl.TBXSpaanplaatImpl +62143,73417.606237 +0 + + +%Integer + + + + + Index: DOM/OV/impl/DataM/DataMAbstractLijnIterator.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMAbstractLijnIterator.cls.xml (.../DataMAbstractLijnIterator.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMAbstractLijnIterator.cls.xml (.../DataMAbstractLijnIterator.cls.xml) (revision 903) @@ -1,73 +1,18 @@ - + 1 -TECH.Iterator,%RegisteredObject -62109,44730.398812 +DOM.common.DataM.DataMAbstractLijnIterator +62129,49594.873719 0 - -%Integer + +LijnNummer:%String,LijnData:%String 1 - - - -1 -1 -%Status -%RegisteredObject + - - -1 -Nummer:%Integer -1 - - - -1 -Nummer:%Integer -1 - - - -%Boolean - - - - -%CacheString - - - - -Lijn:%String -%Boolean - - - - -HuidigeLijnNr:%Integer -1 - - - + Index: DOM/PM/enu/KADProfielType.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/enu/KADProfielType.cls.xml (.../KADProfielType.cls.xml) (revision 734) +++ DOM/PM/enu/KADProfielType.cls.xml (.../KADProfielType.cls.xml) (revision 903) @@ -1,15 +1,15 @@ - + datatype 1 %String -62080,52539.585026 +62133,54349.048957 0 -;PSG;PSV;PSA;PSS;PBG;PBR;PBK;PB9;PBA;P05;P03 +;PSG;PSV;PSA;PSS;PBG;PBR;PBK;PB9;PBA;P05;P03;P02;P04 - + Index: DOM/OV/impl/DataM/DataMBonInFactuur.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMBonInFactuur.cls.xml (.../DataMBonInFactuur.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMBonInFactuur.cls.xml (.../DataMBonInFactuur.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 DOM.OV.impl.DataM.DataMBonAbstract -62108,57258.570007 +62158,38958.202914 0 @@ -28,25 +28,31 @@ ]]> + +%RegisteredObject + + + Nummer:%Integer 1 - + TECH.Iterator - + Type:DOM.OV.enu.BonlijnType TECH.Iterator - + Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml (.../HFInschuifElementv001.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFInschuifElementv001.cls.xml (.../HFInschuifElementv001.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder -62115,43840.874486 +62132,28990.42326 0 @@ -63,7 +63,7 @@ If ($IsObject(HalffabItem)) { - // Voor bewerkingsinfo uit + // Voer bewerkingsinfo uit //Set HalffabItem.TeBekomenAantal = 2 //Set HalffabItem.Aantal = 1 of 2 @@ -106,7 +106,6 @@ // HalffabList via SQL met SelectieKenmerken Set SelectieKenmerken=..GeefKenmerkenVoorExactHF(IngegevenKenmerken) Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken) - If HalffabList.Count()>0 { // Filter HalffabList ; Geen verdere filtering nodig @@ -145,7 +144,7 @@ Set HFItemProcessor=##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEenBewerkt).%New() Do HFItemProcessor.ValideerHalffabList(.HalffabList) Set HalffabItem = HFItemProcessor.GenereerHalffabItem(HalffabList, IngegevenKenmerken, Context, ..Rol) - ;Set HalffabItem.AfwijkendeKenmerken="..." ; alleen de Lengte + Do HalffabItem.ZetAfwijkendKenmerk("LadeDiepte",HalffabItem.Halffab.LadeDiepte) } Else { // Geen Halffab gevonden met "inkortbare Lengte" en "exacte ZijwandHoogte". @@ -167,7 +166,7 @@ ; Nu nog filteren op "Is hoogte bewerkbaar?" !!! - d:(blnDebug) WL^vhDBG("Zoek op Hoogte "_TeZoekenZijwandHoogte_" : # "_HalffabList.Count()) + d:(..blnDebug) WL^vhDBG("Zoek op Hoogte "_TeZoekenZijwandHoogte_" : # "_HalffabList.Count()) If HalffabList.Count()>0 { // Filter HalffabList @@ -176,7 +175,7 @@ Set HFItemProcessor=##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEenBewerkt).%New() Do HFItemProcessor.ValideerHalffabList(HalffabList) Set HalffabItem = HFItemProcessor.GenereerHalffabItem(HalffabList, IngegevenKenmerken, Context, ..Rol) - ;Set HalffabItem.AfwijkendeKenmerken="..." ; alleen de Hoogte + Do HalffabItem.ZetAfwijkendKenmerk("ZijwandHoogte",HalffabItem.Halffab.ZijwandHoogte) } Else { // Geen exacte Halffab gevonden op Hoogte "_TeZoekenZijwandHoogte_". @@ -209,8 +208,8 @@ Set HFItemProcessor=##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEenBewerkt).%New() Do HFItemProcessor.ValideerHalffabList(HalffabList) Set HalffabItem = HFItemProcessor.GenereerHalffabItem(HalffabList, IngegevenKenmerken, Context, ..Rol) - ;Set HalffabItem.AfwijkendeKenmerken="..." ; de Lengte - ;Set HalffabItem.AfwijkendeKenmerken="..." ; de Hoogte + Do HalffabItem.ZetAfwijkendKenmerk("LadeDiepte",HalffabItem.Halffab.LadeDiepte) + Do HalffabItem.ZetAfwijkendKenmerk("ZijwandHoogte",HalffabItem.Halffab.ZijwandHoogte) } Else { // Geen Halffab gevonden met "inkortbare Lengte" en Hoogte "_TeZoekenZijwandHoogte_". @@ -442,5 +441,5 @@ - + Index: DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml (.../HaluxWerkoverzichtHelper.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml (.../HaluxWerkoverzichtHelper.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + BL.Derde.LevSpecifiek 1 %RegisteredObject -62115,53700.811039 +62138,60875.345067 0 @@ -21,7 +21,7 @@ Set Tandembox = API.GeefProduct(PRNr) If ($IsObject(Tandembox) && Tandembox.%Extends("DOM.PM.TBXProduct.TBXLade")) { - if (Tandembox.GeefBluMotion()=##class(DOM.PM.enu.TBXBluMotion).TipOn()) { + if (Tandembox.GeefBlumotion()=##class(DOM.PM.enu.TBXBlumotion).TipOn()) { Set $P(Rec,"\",1)=$Piece(Rec,"\",1)+Stuks } if (Tandembox.IsSpoelbakLade()) { @@ -101,5 +101,5 @@ WHERE WPPers_FirstChanged >= :DatumVan AND WPPers_FirstChanged < :DatumTot]]> - + Index: DOM/OV/Bon.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/Bon.cls.xml (.../Bon.cls.xml) (revision 734) +++ DOM/OV/Bon.cls.xml (.../Bon.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 1 -62109,30055.123443 +62154,28901.707535 0 @@ -12,19 +12,25 @@ ]]> + +%Date + + 1 %Integer - + +1 TECH.Iterator - + +1 Type:DOM.OV.enu.BonlijnType TECH.Iterator - + Index: DOM/CRM/impl/DataM/DataMProformasIterator.cls.xml =================================================================== diff -u --- DOM/CRM/impl/DataM/DataMProformasIterator.cls.xml (revision 0) +++ DOM/CRM/impl/DataM/DataMProformasIterator.cls.xml (revision 903) @@ -0,0 +1,99 @@ + + + +1 +TECH.Iterator,%RegisteredObject +62153,73939.820331 +0 + + +%Date +1 + + + +%Date +1 + + + +%Integer +1 + + + +%Date +1 + + + +%Integer +1 + + + +Klant:DOM.CRM.Klant,DatumVan:%Date,DatumTot:%Date +1 +1 +%Status + + + + +%Boolean + + + + +1 +-..DatumVan) ..Datum="",Final=2 + Set:..Datum="" Final=1 + } + If ..Datum + { + Set ..FactProfNr=$O(^KFAP1("F",..KlantNr,..Datum,..FactProfNr)) + Set:..FactProfNr'="" Final=3 + } + } While 'Final +]]> + + + +%CacheString + + + + + Index: DOM/Halux/TBX/dto/Batch.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/dto/Batch.cls.xml (revision 0) +++ DOM/Halux/TBX/dto/Batch.cls.xml (revision 903) @@ -0,0 +1,60 @@ + + + +1 +%RegisteredObject +62123,64130.579057 +62123,54829.389539 +0 + + +PREbatch voor TipOn, Spoelbak, Sifon]]> +%Integer +1 +1 + + + + + +%Integer +1 +1 + + + + + +%String +1 +1 + + + + + +%String +1 +1 + + + + + +%String +1 +1 + + + + + +DOM.Halux.TBX.enu.SubBatch +1 +1 + + + + Index: DOM/PM/enu/TBXRugHoogte.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/enu/TBXRugHoogte.cls.xml (.../TBXRugHoogte.cls.xml) (revision 734) +++ DOM/PM/enu/TBXRugHoogte.cls.xml (.../TBXRugHoogte.cls.xml) (revision 903) @@ -1,14 +1,14 @@ - + datatype 1 %String -62094,42839.705723 +62133,27908.735516 0 -;N;M;K;B;C;D +;N;M;K;B;C;D;G @@ -50,6 +50,12 @@ + + +1 + + - + Index: DOM/common/Adres.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/common/Adres.cls.xml (.../Adres.cls.xml) (revision 734) +++ DOM/common/Adres.cls.xml (.../Adres.cls.xml) (revision 903) @@ -1,38 +1,65 @@ - + 1 1 -62047,40948.555608 +62158,59203.01087 0 +1 %String +1 %String +1 %String +1 %String +1 %String +1 %String + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%String + + +1 %String - + Index: DOM/PM/OL/Gamma/impl/ProductenNaarVerkoophandb/1.int.rou =================================================================== diff -u --- DOM/PM/OL/Gamma/impl/ProductenNaarVerkoophandb/1.int.rou (revision 0) +++ DOM/PM/OL/Gamma/impl/ProductenNaarVerkoophandb/1.int.rou (revision 903) @@ -0,0 +1,178 @@ + ;DOM.PM.OL.Gamma.impl.ProductenNaarVerkoophandb.1 + ;(C)InterSystems, generated for class DOM.PM.OL.Gamma.impl.ProductenNaarVerkoophandboek. Do NOT edit. 02/25/2011 02:36:51PM + ;;6BDB2D5816D05110;DOM.PM.OL.Gamma.impl.ProductenNaarVerkoophandboek + Quit + ; +%ClassName(fullname) public { Quit $select($get(fullname,0):"DOM.PM.OL.Gamma.impl.ProductenNaarVerkoophandboek",1:"ProductenNaarVerkoophandboek") } +%Close(%this) Quit ..%Close() +%Destruct(%this) public { Do ..%OnClose() + Quit 1 } +%ConstructClone(%this,deep,cloned) public { Set deep=$get(deep,0) Set object=%this + If $data(cloned(+object)) Do (cloned(+object)).%IncrementCount() Quit cloned(+object) + Set %this=$zobjnew("DOM.PM.OL.Gamma.impl.ProductenNaarVerkoophandboek") + Set cloned(+object)=%this,cloned(+object,0)=object + Set $zobjval(,1)=$zobjval(object,1),$zobjval(,2)=$zobjval(object,2),$zobjval(,3)=$zobjval(object,3) + Set $zobjval(,4)=$zobjval(object,4),$zobjval(,5)=$zobjval(object,5) + If deep>0 { + If object.Context'="" Set $zobjval(,2,0)=$zobjval(object,2,0).%ConstructClone(1,.cloned) If $zobjval(,2,0)'="" Do ($zobjval(,2,0)).%Close() + If object.ExportFilter'="" Set $zobjval(,4,0)=$zobjval(object,4,0).%ConstructClone(1,.cloned) If $zobjval(,4,0)'="" Do ($zobjval(,4,0)).%Close() + } + Quit %this } +%Extends(isclass) public { Quit "~DOM.PM.OL.Gamma.impl.ProductenNaarVerkoophandboek~DOM.PM.OL.Gamma.IProductenNaarVerkoophandboek~%Library.RegisteredObject~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") } +%GetParameter(paramname) public { Set paramname=$get(paramname) Quit $case(paramname,"PROPERTYVALIDATION":0,:"") } +%IncrementCount(%this) Quit ..%IncrementCount() +%IsA(isclass) public { Quit "~DOM.PM.OL.Gamma.impl.ProductenNaarVerkoophandboek~DOM.PM.OL.Gamma.IProductenNaarVerkoophandboek~%Library.RegisteredObject~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") } +%IsModified(%this) public { Quit 1 } +%New(initvalue) public { Quit ##class(DOM.PM.OL.Gamma.impl.ProductenNaarVerkoophandboek).%New($get(initvalue)) +} +%Construct(%this,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10) Set $zobjval(,1,0,0,1)="",$zobjval(,2,0,0,1)="",$zobjval(,3,0,0,2)="",$zobjval(,4,0,0,2)="",$zobjval(,5,0,0,3)=$$%J^vhRtn1() + Quit ..%OnNew(.p1) +%NormalizeObject(%this) Set:$zobjval(,5,0,0,3)'="" $zobjval(,5,0,0,3)=(..GlobalIndexNormalize($zobjval(,5,0,0,3))) + Quit 1 +%ObjectModified(%this) public { Quit 1 } +%OnClose(%this) public { kill ^HULP($zobjval(,5,0,0,3)) + Quit "" } +%OnNew(%this,ExportFilter) public { kill ^HULP($zobjval(,5,0,0,3)) + set ..ExportFilter = ExportFilter + if '$length(..ExportFilter.Taal) set ..ExportFilter.Taal = ##class(DOM.enu.Taal).Nederlands() + quit 1 } +%PackageName() Quit "DOM.PM.OL.Gamma.impl" +%SerializeObject(%this,serial,partial) Set partial=$get(partial,0) New %objOBJ,sc,id + Set $Ztrap = "%SerializeObjectERR" + Set sc=..%ValidateObject() If ('sc) { Ztrap "SO" } + Set sc=..%NormalizeObject() If ('sc) { Ztrap "SO" } + Quit sc +%SerializeObjectERR Set $ZTrap="" If $extract($zerror,1,5)'="" Set sc=$$Error^%apiOBJ(5002,$ZE) + Quit sc +%AddToSaveSet(%this,depth,refresh,norecurseon) public { Set depth=$get(depth,3),refresh=$get(refresh,0),norecurseon=$get(norecurseon) If ($data(%objTX(1,+%this))) && ('refresh) Quit 1 + Set sc=1,intOref=+%this + If refresh { + Set intPoref=$order(%objTX(1,intOref,2,"")) + While intPoref'="" { Kill %objTX(1,intPoref,3,intOref),%objTX(1,intOref,2,intPoref) Set intPoref=$order(%objTX(1,intOref,2,intPoref)) } + } + Set tDepth=$select(depth'=2:depth,1:1) + Set %objTX(2,intOref)=0 +exit Quit sc } +%RemoveFromSaveSet(%this) public { + If '($data(%objTX(1,+%this))) Quit 1 + Set intRef=+%this + Set intSucc="" For Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intSucc,2,intRef) + Set intPred="" For Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred="" Kill %objTX(1,intPred,3,intRef) + Kill %objTX(1,intRef),%objTX(2,intRef) + Quit 1 } +%SetModified(%this,value) public { Quit 1 } +%ValidateObject(%this,force) Set force=$get(force,0) Quit 1 +zBepaalChecksum(%this,ProductInfo) public { set Stream = ##class(%Library.GlobalCharacterStream).%New() + do Stream.Write(ProductInfo.Omschrijving) + do Stream.Write(ProductInfo.ProductGroep) + do Stream.Write($$LCVT^vhLib(ProductInfo.Zones)) + do Stream.Write($$LCVT^vhLib(ProductInfo.Tips)) + do Stream.Write($$LCVT^vhLib(ProductInfo.Toepassingen)) + do Stream.Rewind() + set CheckSum = $system.Encryption.MD5Encode(Stream.Read(Stream.Size)) + quit CheckSum } +zCreerXML(%this) public { + set XML = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbRoot).%New() + set XML.Document = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbDocument).%New() + set XML.Document.Taal = ..ExportFilter.Taal + set tmpGlobalReference = "^HULP("_$zobjval(,5,0,0,3)_")" + set checksum = "" + for { set tmpGlobalReference = $query(@tmpGlobalReference) quit:tmpGlobalReference="" + set ProductInfo = @tmpGlobalReference + if checksum '= $qsubscript(tmpGlobalReference,2) { + set Subgroep = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbSubgroep).%New() + do XML.Document.Subgroepen.Insert(Subgroep) + set Subgroep.Omschrijving = ProductInfo.ProductGroepOmschrijving + set Product = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbProduct).%New() + B + do Subgroep.Producten.Insert(Product) + set Foto = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New() + set Foto.Bestand = ProductInfo.Foto + set Foto.Omschrijving = "Foto" + do Product.Fotos.Insert(Foto) + for ctrZones = 1 : 1 : $listlength(ProductInfo.Zones) { + set Zone = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbBestandsInfo).%New() + set Zone.Bestand = ##class(DOM.PM.DynamicSpace).GeefSVG($listget(ProductInfo.Zones,ctrZones)) + set Zone.Omschrijving = $listget(ProductInfo.ZoneOmschrijvingen,ctrZones) + } + set Product.Omschrijving = ProductInfo.Omschrijving + set Product.Tips = ##class(TECH.ListUtils).ListbuildToList(ProductInfo.Tips) + set Product.Vereisten = ##class(TECH.ListUtils).ListbuildToList(ProductInfo.Vereisten) + set Product.Toepassingen = ##class(TECH.ListUtils).ListbuildToList(ProductInfo.Toepassingen) + } + set GroepData = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbGroep).%New() + do Product.Groepen.Insert(GroepData) + set GroepData.Prijs = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbPrijs).%New() + set GroepData.Prijs.Bedrag = ProductInfo.Prijs + set GroepData.Prijs.Munt = "EUR" + set GroepData.Code = ProductInfo.KortTekst + set GroepData.WandDikte = $$LCVT^vhLib(ProductInfo.WandDiktes) + set checksum = $qsubscript(tmpGlobalReference,2) + } + do ObjToXMLFile^vhLib(XML.Document,"\\notes01\shared\j c l\vkhbXML.xml") + ;do XML.Document.XMLExportToStream(.strXML,"","literal,indent") + quit } +zExportProducten(%this,ProductList,BestandsNaam) public { Set BestandsNaam=$get(BestandsNaam) + set itProducten = ##class(TECH.ListIterator).%New(ProductList) + while itProducten.HasNext() { + set UnID = itProducten.Next() + do ..GenereerInfo(UnID) + } + do ..CreerXML() + quit } +zGenereerInfo(%this,UnID) public { + set oKenmerk = ##class(Prod.Kenmerk.Orgalux).%New(UnID,..ExportFilter.Taal) + set ProductInfo = ##class(DOM.PM.OL.Gamma.dto.ProductInfoVoorVerkoophandboek).%New() + set ProductInfo.KortTekst = oKenmerk.GetKortTekst() + set ProductInfo.ProductGroepOmschrijving = oKenmerk.GetProductGroepOmschrijving() + set ProductInfo.Omschrijving = oKenmerk.GetOmschrijving() + set ProductInfo.ZoneOmschrijvingen = oKenmerk.GetZoneOmschrijvingen() + set ProductInfo.Zones = oKenmerk.GetZones() + set ProductInfo.WandDiktes = oKenmerk.GetWandDiktes() + set ProductInfo.Tips = oKenmerk.GetTipsKorteOmschrijvingen() + set ProductInfo.Toepassingen = oKenmerk.GetZoneToepassingOmschrijvingen() + set ProductInfo.ProductGroep = oKenmerk.GetProductGroep() + set ProductInfo.LadeDieptes = oKenmerk.GetLadeDieptes() + set ProductInfo.LadeBreedte = oKenmerk.GetLadeBreedteAangeraden() + //set ProductInfo.Vereisten = oKenmerk. + if ..ExportFilter.HogeResolutieBeelden { + set ProductInfo.Foto = "http://res.vanhoecke.be/images/orgalux/"_oKenmerk.GetFotoBestand() + } else { + set ProductInfo.Foto = "http://res.vanhoecke.be/images/orgalux/"_oKenmerk.GetFotoThumbnail() + } + set NoSa = $select(..ExportFilter.ToonSchaduwPrijzen:"S",1:"N") + if ..ExportFilter.BTW["ExclBTW" set ProductInfo.Prijs = $$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"",NoSa) + if ..ExportFilter.BTW["InclBTW-NL" set ProductInfo.Prijs = $$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"NL",NoSa) + if ..ExportFilter.BTW["InclBTW-BE" set ProductInfo.Prijs = $$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"B",NoSa) + set Checksum = ..BepaalChecksum(ProductInfo) + set ProductGroep = ProductInfo.ProductGroep_" " + set LadeDiepte = $listget(ProductInfo.LadeDieptes,1)_" " + set LadeBreedte = ProductInfo.LadeBreedte_" " + set ID = $order(^HULP($zobjval(,5,0,0,3),Checksum,ProductInfo,LadeDiepte,LadeBreedte,""),-1)+1 + set ^HULP($zobjval(,5,0,0,3),Checksum,ProductInfo,LadeDiepte,LadeBreedte,ID) = ProductInfo + Quit "" } +zVerzamelProductInfo(%this,UnID) public { + Quit "" } +zContextGetSwizzled(%this) public { Quit $zobjval(,2,0,0,1) } +zContextIsValid(value) public { Quit 1 } +zContextNewObject(%this) public { Set newobject=##class(DOM.PM.OL.Gamma.Context).%New("") If newobject="" Quit "" + Set ..Context=newobject + Set isusercount=''$get($zobjval(newobject,0,,,,5)) Do newobject.%Close() Set $zobjval(newobject,0,,,,5)=isusercount + Quit newobject } +zContextSet(%this,newvalue) public { If newvalue'="",'$isobject(newvalue) Quit $$Error^%apiOBJ(5807,newvalue) + Set $zobjval(,2,0,0,1)=newvalue,$zobjval(,1,0,0,1)="" + Quit 1 } +zExportFilterGetSwizzled(%this) public { Quit $zobjval(,4,0,0,2) } +zExportFilterIsValid(value) public { Quit 1 } +zExportFilterNewObject(%this) public { Set newobject=##class(DOM.PM.OL.Gamma.dto.ExportFilter).%New("") If newobject="" Quit "" + Set ..ExportFilter=newobject + Set isusercount=''$get($zobjval(newobject,0,,,,5)) Do newobject.%Close() Set $zobjval(newobject,0,,,,5)=isusercount + Quit newobject } +zExportFilterSet(%this,newvalue) public { If newvalue'="",'$isobject(newvalue) Quit $$Error^%apiOBJ(5807,newvalue) + Set $zobjval(,4,0,0,2)=newvalue,$zobjval(,3,0,0,2)="" + Quit 1 } +zGlobalIndexDisplayToLogical(%val) Quit %val +zGlobalIndexIsValid(value) public { Quit 1 } +zGlobalIndexIsValidDT(%val) Quit 1 +zGlobalIndexLogicalToDisplay(%val) Quit %val +zGlobalIndexNormalize(%val) Quit $e(%val,1,50) \ No newline at end of file Index: DOM/PR/EAN.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PR/EAN.cls.xml (.../EAN.cls.xml) (revision 734) +++ DOM/PR/EAN.cls.xml (.../EAN.cls.xml) (revision 903) @@ -1,12 +1,12 @@ - + Beheer van de EANCode -%Prod.Product +%Prod.Product,TECH.Error 1 %RegisteredObject -61798,37745.297451 +62133,27575.95473 59772,53878.611013 0 @@ -66,6 +66,15 @@ ]]> + +PRNr +%Boolean + + + EANCode definieren voor een product @@ -90,6 +99,34 @@ ]]> + +PRNr + + + + + +EANCode wissen +PRNr +0 +%Status + + + Vertrekkend van een SeuqenceNr opbouw van de EANCode @@ -108,7 +145,6 @@ ID 1 ..EANSequenceNbrDigits SequenceNr/0 ; Overflow SequenceNr -> Crash !!!! + IF $L(SequenceNr)>..EANSequenceNbrDigits $$$ThrowError($$$errGeneralError,"EAN Sequenceoverflow"_^PR.EANCodeD(..EANDomein)) ; Overflow SequenceNr -> Crash !!!! Quit SequenceNr ]]> @@ -136,19 +172,24 @@ Do ##class(DOM.PR.EAN).GenerateOL() 1 Afgeleid product" + . . Set Status=bl.CleanProduct(PRNr) + . . + . Set Status=bl.UpdateProduct(PRNr) . If Status=$$$OK Do - . . Write "->",$$$PRGet($$$BarcodeWaarde) + . . Write "->",$$$PRGet($$$BarcodeWaarde) . Else Do . . Write "->","ERROR: "_$$ParseStatus^vhLib(Status) ]]> - + FishEye: Tag 903 refers to a dead (removed) revision in file `DOM/OV/impl/DataM/DataMTypedBonInProformaLijnIterator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: DOM/PM/OL/Gamma/dtoUtils.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/OL/Gamma/dtoUtils.cls.xml (.../dtoUtils.cls.xml) (revision 734) +++ DOM/PM/OL/Gamma/dtoUtils.cls.xml (.../dtoUtils.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + -TECH.Error +TECH.Error,Prod.Kenmerk,DOM.PM.OL,vhLib.Macro 1 %RegisteredObject -62014,41553.126518 +62153,57773.401732 61986,30861.155352 0 @@ -31,7 +31,14 @@ set lbTips = oKenmerkOrgalux.GetTipsKorteOmschrijvingen(";BL;") ; ExtraTips: BL="Past (niet) in binnenlade" for ctrTips=1:1:$listlength(lbTips) do dtoProduct.Tips.Insert($listget(lbTips,ctrTips)) - do oKenmerkOrgalux.SetTBXAfmetingCalculator(Context.GetTBXAfmetingCalculator()) + set lbLadeFamilies = oKenmerkOrgalux.GetLadeFamilieOmschrijvingen() + + set lbLadeTypes = oKenmerkOrgalux.GetLadeTypeLangeOmschrijvingen() + + set lbLadeKleuren = oKenmerkOrgalux.GetLadeKleurOmschrijvingen() + + /// JBL - 2011-02-18 : deze ladevereisten worden vervangen door een list of %string in het product, + /// om momenteel compatibel te blijven behouden we de ladevereiste. // opbouw lade vereisten set dtoLadeVereisten = ##class(DOM.PM.OL.Gamma.dto.LadeVereisten).%New() set dtoLadeVereisten.BreedteMaximum = oKenmerkOrgalux.GetLadeBinnenBreedteMax() @@ -46,13 +53,8 @@ set dtoLadeVereisten.DiepteMinimum = oKenmerkOrgalux.GetLadeBinnenDiepteMin() if dtoLadeVereisten.DiepteMinimum = 0 set dtoLadeVereisten.DiepteMinimum = "" - set lbLadeKleuren = oKenmerkOrgalux.GetLadeKleurOmschrijvingen() - for ctrLadeKleuren=1:1:$listlength(lbLadeKleuren) do dtoLadeVereisten.LadeKleuren.Insert($listget(lbLadeKleuren,ctrLadeKleuren)) - set lbLadeFamilies = oKenmerkOrgalux.GetLadeFamilieOmschrijvingen() - set lbLadeTypes = oKenmerkOrgalux.GetLadeTypeLangeOmschrijvingen() - set Types = "" for ctrLadeFamilies = 1 : 1 : $listlength(lbLadeFamilies) Set Types = Types _ $listget(lbLadeFamilies,ctrLadeFamilies)_". " for ctrLadeTypes = 1:1:$listlength(lbLadeTypes) Set Types = Types _ $listget(lbLadeTypes,ctrLadeTypes)_". " @@ -62,6 +64,8 @@ set dtoProduct.LadeVereisten = dtoLadeVereisten + set dtoProduct.LadeVereistenTeksten = oKenmerkOrgalux.GetLadeVereistenOmschrList() + set dtoProduct.Afmetingen = ##class(DOM.PM.OL.Gamma.dto.Afmetingen).%New() set dtoProduct.Afmetingen.Breedte = oKenmerkOrgalux.GetBreedte() set dtoProduct.Afmetingen.Hoogte = oKenmerkOrgalux.GetHoogte() @@ -77,5 +81,5 @@ ]]> - + Index: DOM/PM/Classificatie.cls.xml =================================================================== diff -u --- DOM/PM/Classificatie.cls.xml (revision 0) +++ DOM/PM/Classificatie.cls.xml (revision 903) @@ -0,0 +1,26 @@ + + + + +^KLAS +1 +1 +62157,53012.12635 +0 + + +1 +DOM.PM.enu.PMClassificatieNiveau + + + + +1 +DOM.PM.enu.PMECType + + + + + Index: DOM/PM/impl/ProductClassificatieImpl.cls.xml =================================================================== diff -u --- DOM/PM/impl/ProductClassificatieImpl.cls.xml (revision 0) +++ DOM/PM/impl/ProductClassificatieImpl.cls.xml (revision 903) @@ -0,0 +1,42 @@ + + + +1 +%RegisteredObject,DOM.PM.ProductClassificatie +62154,59094.727946 +0 + + +DOM.PM.impl.DataM.DataMProductClassificatie +1 + + + +KKey:%Integer +1 +1 +%Status + + + + +%Integer + + + +%String + + + +%String + + + +%String + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml (.../HFFrontRelingHouderv001.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontRelingHouderv001.cls.xml (.../HFFrontRelingHouderv001.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder -62115,49395.640732 +62138,51139.926617 0 @@ -34,7 +34,7 @@ @@ -45,8 +45,7 @@ Links").Halffab Set IsRelingIncludedInFrontHouder=(Halffab.Verpakking="V1") Quit ($$$Not(IsRelingIncludedInFrontHouder)) @@ -62,7 +61,7 @@ ;Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant") ;Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign") Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte") - Do SelectieKenmerken.SetAt(IngegevenKenmerken.FronthouderKleur,"Kleur") + Do SelectieKenmerken.SetAt(IngegevenKenmerken.FrontHouderKleur,"Kleur") ;Do SelectieKenmerken.SetAt("FRONTB_RH","MateriaalType") ; BasisType OLD // OPGELET : BIJ GenereerHalffabItem MOET HET AANTAL OP 2 GEZET WORDEN !!! @@ -122,5 +121,5 @@ %Library.CacheStorage - + Index: DOM/PM/enu/TBXBlumotion1.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXBlumotion1.cls.xml (revision 0) +++ DOM/PM/enu/TBXBlumotion1.cls.xml (revision 903) @@ -0,0 +1,33 @@ + + + +datatype +1 +%String +62138,59845.59946 +0 + + +,I,T,Z + + + +1 + + + + +1 + + + + +1 + + + + + Index: DOM/VKP/impl/DataM/DataMPrijsUitzAPI.cls.xml =================================================================== diff -u --- DOM/VKP/impl/DataM/DataMPrijsUitzAPI.cls.xml (revision 0) +++ DOM/VKP/impl/DataM/DataMPrijsUitzAPI.cls.xml (revision 903) @@ -0,0 +1,23 @@ + + + +1 +DOM.VKP.PrijsUitzAPI,%RegisteredObject +62133,57154.005456 +0 + + +%Status + + + + +KlantNr:%Integer +DOM.VKP.enu.PrijsCodex + + + + + Index: DOM/PM/MaatwerkProduct.cls.xml =================================================================== diff -u --- DOM/PM/MaatwerkProduct.cls.xml (revision 0) +++ DOM/PM/MaatwerkProduct.cls.xml (revision 903) @@ -0,0 +1,36 @@ + + + +1 +1 +DOM.PM.Product +62147,42371.483324 +0 + + +1 +DOM.PM.enu.Familie + + + +1 +DOM.PM.enu.Variant + + + +1 +DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie + + + +1 +DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie + + + +1 +DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/OLM/HFOpMaatv001.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/OLM/HFOpMaatv001.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/OLM/HFOpMaatv001.cls.xml (revision 903) @@ -0,0 +1,53 @@ + + + +persistent +1 +DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder +62151,29089.364326 +0 + + +SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder +1 +1 +%Status + + + + + + +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext +DOM.PM.Maatwerk.Calc.HF.IHalffabItem + + + + +%Library.CacheStorage + + + + Index: DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml (.../Halffab.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/Halffab.cls.xml (.../Halffab.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent -62115,35054.524115 +62138,54109.709718 62012,32163.595433 0 @@ -164,5 +164,5 @@ - + Index: DOM/PM/impl/DataM/DataMAluKaderCreator.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/impl/DataM/DataMAluKaderCreator.cls.xml (.../DataMAluKaderCreator.cls.xml) (revision 734) +++ DOM/PM/impl/DataM/DataMAluKaderCreator.cls.xml (.../DataMAluKaderCreator.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 DOM.PM.impl.DataM.DataMProductCreator -62118,53789.451387 +62152,47443.014168 0 @@ -19,9 +19,47 @@ DossierNummer:%String 1 %String - - + Index: DOM/PM/OL/Gamma/impl/XML/vkhbProduct.cls.xml =================================================================== diff -u --- DOM/PM/OL/Gamma/impl/XML/vkhbProduct.cls.xml (revision 0) +++ DOM/PM/OL/Gamma/impl/XML/vkhbProduct.cls.xml (revision 903) @@ -0,0 +1,60 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62150,38131.004453 +0 + + +PRODUCT + + + +BL.FOP.Basis.pxAttribType +list + + + + + +vkhbBestandsInfo +list + + + + + +%String + + + + +%String +list + + + + + +%String +list + + + + + +%String +list + + + + + +vkhbGroep +list + + + + + Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 903) @@ -1,267 +1,202 @@ - + +persistent 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken -62115,42397.489948 +62158,49418.937395 0 - - -a.k.a. InterneBreedte (IB) -%String + +%Float -%String +%Float - -a.k.a. DesignCode (DC) -MAAR : F-design is GEEN ladefamilie ! - bvb. plus, baliko, intivo, antaro, mengvorm DOM.PM.enu.LadeVariant - - -Lade of Binnenlade (LT) -%String - + +%Boolean - -(ASM) %String - -Blumotion en TipOn zijn opgesplitst, TipOn is aparte property geworden -%String - +%Boolean + +%Boolean + + - -Kleur voor Bodem (KB) -Was vroeger ook voor Houten Rug %String + +!!! nog niet geconverteerd, kanshebber om te vervallen %String + +!!! nog niet geconverteerd, kanshebber om te vervallen %String - -a.k.a. BoxsideKleur (KX) -%String - +DOM.PM.enu.TBXBoxsideKleur -%String +%Float -%String - +DOM.PM.enu.TBXDwarsverdeling -%String - +DOM.PM.enu.TBXFrontBevestiging - - -a.k.a. FrontKleur (KF) -Kleur voor Fronthouders en FrontPlaat en FrontReling + %String +!!! nog niet geconverteerd, kanshebber om te vervallen FrontSteun / FrontStabilisator / BodemSteun (FS) Auto kiest zelf het product op basis van Lade/Binnenlade %String - -a.k.a. Hangmap (BHM) -%String - +%Integer - -a.k.a. VulstukKleur (KV) -%String - +DOM.PM.enu.TBXInschuifElementMatCode -(KLAS) +!!! nog niet geconverteerd, kanshebber om te vervallen %String - -%String + +%Boolean - -%String + +%Boolean - -a.k.a. PlaatMat (MATKL) %String "HS" - -(RK) %String - -Kleur voor Rug -Nieuwe propt. %String - - -a.k.a. RugKleur (KR) -Kleur voor Rughouders en Stalen Rug + %String - -Effectieve Hoogte van de Rug : al dan niet verlaagd Vroeger: RH tenzij RSTL ingevuld. %String - -a.k.a. StalenRug (SR) - bvb Hout, Staal -Conversie van de waarden van TBStalenRug -%String - +DOM.PM.enu.TBXRugMateriaal +!!! nog niet geconverteerd, kanshebber om te vervallen (SPZBINHOOGTE) %String + +%String + + - -Stabilisator voor brede lades, om laterale speling te beperken (SB) %Boolean - - -Nieuwe propt. -%String - - - - -a.k.a. SpoelbakBreedte (SPBR) %Float %Float - - -a.k.a. SpoelbakZkLi (SPZLI) + %Float - + %Float - -Volledig uittrekbaar of gedeeltelijk (GT) -%String - +DOM.PM.enu.TBXUittrekbaarheid -%String - +DOM.PM.enu.TBXVerpakking +!!! nog niet geconverteerd, kanshebber om te vervallen a.k.a. Binnengreep (BGRP) %String - + - -Nieuwe propt. -%String - +DOM.PM.enu.TBXZijkantDesign - -a.k.a. Zijwand (ZW) -%String - +DOM.PM.enu.TBXZijkantHoogte - -LadeKleur = Kleur zijkant + ... (KL) -%String - +DOM.PM.enu.TBXZijkantKleur - -a.k.a. RugHoogte (RH) -Deze bepaalt mee de LadeCode !!! (dus niet meer de RugHoogte hieronder) -%String - +DOM.PM.enu.TBXZijwandHoogte - -a.k.a. BoxSide (BS) -%String - +DOM.PM.enu.TBXZijwandType @@ -321,102 +256,181 @@ %String - - -Conversie van TBXLade naar TBXKenmerken -TBXLade:Prod.GAData.TBXLade - +%Integer + + + +%Library.CacheStorage +TBXKenmerkenDefaultData + +"TBXKenmerken" + +Antislipmat + + +Blumotion + + +BodemKleur + + +BoxcapKleur + + +BoxcoverKleur + + +BoxsideKleur + + +CorpusBinnenmaat + + +CorpusBreedte + + +Draagkracht + + +Dwarsverdeling + + +FrontBevestiging + + +FrontHouderKleur + + +FrontSteun + + +HangmapBoringen + + +InschuifElementMatCode + + +Klasse + + +LadeBreedte + + +LadeCode + + +LadeDesign + + +LadeDiepte + + +LadeType + + +LadeVariant + + +MateriaalInschuifElement + + +MinTolerantieOpIB + + +OpvulLijstLinks + + +OpvulLijstRechts + + +PlaatMateriaal + + +RelingKleur + + +RugHoogte + + +RugHouderKleur + + +RugKleur + + +RugMateriaal + + +RugStukVerlaagd + + +SpoelbakBinnenzijwandHoogte + + +SpoelbakZijkantKleur + + +Stabilisator + + +TipOn + + +UitsparingBreedte + + +UitsparingDiepte + + +UitsparingPositie1 + + +UitsparingPositie2 + + +Uittrekbaarheid + + +Verpakking + + +VoorwandType + + +WandDikte + + +ZijkantDesign + + +ZijkantHoogte + + +ZijkantKleur + + +ZijwandHoogte + + +ZijwandType + + +IsBinnenLade + + +OpvullijstLinks + + +OpvullijstRechts + + +InbouwBreedte + + + - + Index: DOM/PM/enu/TBXZijkantHoogte.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/enu/TBXZijkantHoogte.cls.xml (.../TBXZijkantHoogte.cls.xml) (revision 734) +++ DOM/PM/enu/TBXZijkantHoogte.cls.xml (.../TBXZijkantHoogte.cls.xml) (revision 903) @@ -1,14 +1,14 @@ - + datatype 1 %String -62081,42094.608839 +62133,31582.872979 0 -,N,M,L +,N,M,L,K @@ -28,6 +28,12 @@ + + +1 + + - + Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItem.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/IHalffabItem.cls.xml (.../IHalffabItem.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/IHalffabItem.cls.xml (.../IHalffabItem.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Elk IHalffabItem kent de context waarin het leeft, zodat de kost, uitval etc eenvoudig kunnen afgeleid worden. @@ -13,7 +13,7 @@ TECH.Error 1 %RegisteredObject -62105,42891.232904 +62138,54150.330905 62011,64827.29808 0 @@ -91,5 +91,5 @@ ]]> - + Index: DOM/OV/impl/DataM/DataMBon.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMBon.cls.xml (.../DataMBon.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMBon.cls.xml (.../DataMBon.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 DOM.OV.impl.DataM.DataMBonAbstract -62109,29417.670949 +62153,66195.160356 0 @@ -29,18 +29,18 @@ ]]> - + TECH.Iterator - + Type:DOM.OV.enu.BonlijnType TECH.Iterator - + Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml (.../HFFrontHouderv001.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFFrontHouderv001.cls.xml (.../HFFrontHouderv001.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder -62115,47342.1926 +62138,50983.467787 0 @@ -22,7 +22,7 @@ IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %Boolean - @@ -38,13 +38,14 @@ Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeVariant,"LadeVariant") Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijkantDesign,"ZijkantDesign") Do SelectieKenmerken.SetAt(IngegevenKenmerken.ZijwandHoogte,"ZijwandHoogte") - Do SelectieKenmerken.SetAt(IngegevenKenmerken.LadeType,"FrontType") + Do SelectieKenmerken.SetAt($S(IngegevenKenmerken.IsBinnenLade=1:"B",1:"L"),"FrontType") ;Do SelectieKenmerken.SetAt("FRONTB_OLD","MateriaalType") ; BasisType OLD ;Do SelectieKenmerken.SetAt("ZIF_OLD","Opties") If (IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo())||(IngegevenKenmerken.LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro()) { - Do SelectieKenmerken.SetAt(IngegevenKenmerken.FronthouderKleur,"Kleur") + Do SelectieKenmerken.SetAt(IngegevenKenmerken.FrontHouderKleur,"Kleur") } Else { + // [CSC] Deze else is nooit getest geworden en zal ook niet werken omdat de variabele opties niet gezet werd If (IngegevenKenmerken.ZijwandHoogte="D") { Set RelingType=$S(IngegevenKenmerken.ZijwandType="DR":"DubRel",1:"OneRel") Do SelectieKenmerken.SetAt(RelingType,Opties) @@ -102,5 +103,5 @@ %Library.CacheStorage - + Index: DOM/PM/Maatwerk/Calc/Kost/impl/OLM/SpecOpMaatKostv001.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/Kost/impl/OLM/SpecOpMaatKostv001.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/Kost/impl/OLM/SpecOpMaatKostv001.cls.xml (revision 903) @@ -0,0 +1,43 @@ + + + +persistent +1 +DOM.PM.Maatwerk.Calc.Kost.KostSpec +62150,36592.243497 +0 + + +1 +1 +%Status + + + + +Context:KostContext,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom +DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem + + + + +%Library.CacheStorage + + + + Index: DOM/PM/Maatwerk/Calc/Common/impl/KADBeslag.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/Common/impl/KADBeslag.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/Common/impl/KADBeslag.cls.xml (revision 903) @@ -0,0 +1,67 @@ + + + +persistent +1 +%Persistent +62137,41912.938727 +0 + + +%String + + + +TECH.Vector + + + +%String + + + +Element:%String,Positie:TECH.Vector,Type:%String +1 +1 +%Status + + + + +%String + + + + +%Library.CacheStorage +^DOM.PM.Maatwerk.CB2D.KADBeslagD +KADBeslagDefaultData +^DOM.PM.Maatwerk.CB2D.KADBeslagD +^DOM.PM.Maatwerk.CB2D.KADBeslagI +^DOM.PM.Maatwerk.CB2D.KADBeslagS + +listnode + + +%%CLASSNAME + + +Element + + +Positie + + +Type + + + + + + Index: DOM/PM/OLProduct/impl/OrgaluxOpMaatCreator.cls.xml =================================================================== diff -u --- DOM/PM/OLProduct/impl/OrgaluxOpMaatCreator.cls.xml (revision 0) +++ DOM/PM/OLProduct/impl/OrgaluxOpMaatCreator.cls.xml (revision 903) @@ -0,0 +1,25 @@ + + + +1 +DOM.PM.impl.DataM.DataMProductCreator +62147,55466.328279 +0 + + +1 +%Integer + + + + +DossierNummer:%String +1 +%String + + + + + Index: DOM/PM/OL/Gamma/dto/ProductInfoVoorPrijslijst.cls.xml =================================================================== diff -u -r795 -r903 --- DOM/PM/OL/Gamma/dto/ProductInfoVoorPrijslijst.cls.xml (.../ProductInfoVoorPrijslijst.cls.xml) (revision 795) +++ DOM/PM/OL/Gamma/dto/ProductInfoVoorPrijslijst.cls.xml (.../ProductInfoVoorPrijslijst.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62125,47933.08703 +62139,62136.61941 0 @@ -18,15 +18,15 @@ %String - + %String - + %String - + %String @@ -82,6 +82,10 @@ %String + +%String + + %String @@ -90,5 +94,5 @@ %String - + Index: DOM/PM/enu/PMECType.cls.xml =================================================================== diff -u --- DOM/PM/enu/PMECType.cls.xml (revision 0) +++ DOM/PM/enu/PMECType.cls.xml (revision 903) @@ -0,0 +1,49 @@ + + + + +
  • Bij hoofdgroep en subgroep : Niet tonen / Tonen
    • +
  • Bij groep : Niet tonen / tonen met subgroep / tonen zonder subgroep
    • +]]>     +datatype +1 +%String +62157,36237.580947 +0 + + +,0,1,2 + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + +     + +     Index: DOM/LEV/impl/DataM/DataMToelevering.cls.xml =================================================================== diff -u --- DOM/LEV/impl/DataM/DataMToelevering.cls.xml (revision 0) +++ DOM/LEV/impl/DataM/DataMToelevering.cls.xml (revision 903) @@ -0,0 +1,85 @@ + + + +1 +%RegisteredObject,DOM.LEV.Toelevering +62144,37637.432429 +0 + + +%Integer +1 + + + +%Integer +1 + + + +%String +1 + + + +ToeleveringNummer:%Integer +1 +1 +%Status + + + + +%String + + + + +%Integer + + + + +%Integer + + + + +DOM.OV.Order + + + + +TECH.Iterator + + + + +Type:DOM.OV.enu.OrderlijnType +TECH.Iterator + + + + +1 +%String + + + + + Index: DOM/PM/OLProduct/impl/DwarslatOpMaatCreator.cls.xml =================================================================== diff -u --- DOM/PM/OLProduct/impl/DwarslatOpMaatCreator.cls.xml (revision 0) +++ DOM/PM/OLProduct/impl/DwarslatOpMaatCreator.cls.xml (revision 903) @@ -0,0 +1,25 @@ + + + +1 +DOM.PM.impl.DataM.DataMProductCreator +62147,49253.910299 +0 + + +1 +%Integer + + + + +DossierNummer:%String +1 +%String + + + + + Index: DOM/EC/OL/Verlanglijst/Visitor/VerlanglijstVisitor.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/EC/OL/Verlanglijst/Visitor/VerlanglijstVisitor.cls.xml (.../VerlanglijstVisitor.cls.xml) (revision 734) +++ DOM/EC/OL/Verlanglijst/Visitor/VerlanglijstVisitor.cls.xml (.../VerlanglijstVisitor.cls.xml) (revision 903) @@ -1,13 +1,13 @@ - + Visitor voor Verlanglijsten. Verlanglijst zelf accepteert deze visitor, alsook de individuele lijnen. Groepen worden aangekondigd en afgekondigd. DOM.EC.OL.Verlanglijst 1 %RegisteredObject -61964,50486.580857 +62157,28980.097474 61909,56218.930182 0 @@ -102,5 +102,5 @@ ]]> - + Index: DOM/VKP/LeveringsTermijn.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/VKP/LeveringsTermijn.cls.xml (.../LeveringsTermijn.cls.xml) (revision 734) +++ DOM/VKP/LeveringsTermijn.cls.xml (.../LeveringsTermijn.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Leveringstermijn bepalen afhankelijk van product en verzendwijze, dit kan klantafhankelijk zijn. @@ -9,7 +9,7 @@ BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek,%Prod.Product 1 %RegisteredObject -62061,74502.741244 +62151,39786.915637 61807,45376.295402 0 @@ -433,7 +433,6 @@ 1 %List Order @@ -487,5 +486,5 @@ ]]> - + Index: DOM/PM/Maatwerk/Calc/Common/ProductSpecificatie.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Common/ProductSpecificatie.cls.xml (.../ProductSpecificatie.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Common/ProductSpecificatie.cls.xml (.../ProductSpecificatie.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Een ProductSpecificatie specificeert een maatwerrkproduct (via de IngegevenKenmerken) @@ -14,7 +14,7 @@ persistent 1 %Persistent -62118,41152.560169 +62133,48344.692522 0 @@ -81,8 +81,6 @@ "Annotaties" -listnode - %%CLASSNAME @@ -98,5 +96,5 @@ - + Index: DOM/PM/enu/OrgaluxVariant.cls.xml =================================================================== diff -u --- DOM/PM/enu/OrgaluxVariant.cls.xml (revision 0) +++ DOM/PM/enu/OrgaluxVariant.cls.xml (revision 903) @@ -0,0 +1,18 @@ + + + +datatype +1 +DOM.PM.enu.Variant +62147,57289.946076 +0 + + +1 +DOM.PM.enu.OrgaluxVariant + + + + + Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml (.../DataMKlantAPI.cls.xml) (revision 734) +++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml (.../DataMKlantAPI.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.CRM.KlantAPI,%RegisteredObject -62111,54048.158169 +62153,41924.00991 0 @@ -15,6 +15,12 @@ quit Klant ]]> + + +TECH.Iterator + + - + Index: DOM/PM/OLProduct/impl/OLMProductCreator.cls.xml =================================================================== diff -u --- DOM/PM/OLProduct/impl/OLMProductCreator.cls.xml (revision 0) +++ DOM/PM/OLProduct/impl/OLMProductCreator.cls.xml (revision 903) @@ -0,0 +1,67 @@ + + + +1 +DOM.PM.impl.DataM.DataMProductCreator +62151,42940.471288 +0 + + +%String +1 + + + +1 +%Integer + + + + +1 +%Integer + + + + +DossierNummer:%String +1 +%String + + + + + +Elke lijn in de lijst wordt een lijn in de langtekst +1 +%ListOfDataTypes + + + + +1 + + + + + Index: DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml =================================================================== diff -u -r802 -r903 --- DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml (.../ProductenNaarPrijslijst.cls.xml) (revision 802) +++ DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml (.../ProductenNaarPrijslijst.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + vhLib.Macro,DOM.PM.OL,DOM.DomeinContext 1 DOM.PM.OL.Gamma.IProductenNaarPrijslijst -62129,43396.522098 +62151,51542.54206 0 @@ -26,6 +26,16 @@ 1 + +%Boolean +1 + + + +%String +list + + ExportFilter:DOM.PM.OL.Gamma.dto.ExportFilter 1 @@ -34,6 +44,13 @@ @@ -58,6 +75,7 @@ ProductList:%ListOfDataTypes 1 1 + +Property +1 + + + 1 + + + + 1 -%ListOfDataTypes @@ -221,9 +260,11 @@ set ProductInfo.EAN = oKenmerk.GetProduct().BarcodeWaarde set ProductInfo.Omschrijving=oKenmerk.GetLangTekst() - set ProductInfo.Diepte = oKenmerk.GetDiepte() - set ProductInfo.WandDikte = oKenmerk.GetWandDiktes() - set ProductInfo.Breedte = oKenmerk.GetBreedte() + set ProductInfo.LadeDieptes = $$ListToPieces^vhLib(oKenmerk.GetLadeDieptesInMM(),..WaardeDelim) + set ProductInfo.LadeBreedtes = ..GetLadeBreedteString(oKenmerk.GetLadeBreedteMin(),oKenmerk.GetLadeBreedteMax()) + set ProductInfo.WandDiktes = $$ListToPieces^vhLib(oKenmerk.GetWandDiktes(),..WaardeDelim) + + set ProductInfo.Kleur = oKenmerk.GetKleurOmschrijving() Do ##class(BL.Prod.OptiBox.Optimize).%New().GetVolume(oKenmerk.GetProductNr(),1,.OptiBreedte,.OptiDiepte,.OptiHoogte) set ProductInfo.volBreedte = OptiBreedte @@ -240,17 +281,41 @@ set Statistiek = ..GetStatistiek(oKenmerk.GetProductNr(),..ExportFilter.KlantNr) set ProductInfo.Aantal = +$piece(Statistiek,"\",1) set ProductInfo.Omzet = +$translate($piece(Statistiek,"\",3),".",",") - set ProductInfo.Aankoop = $piece($$KLANTPR^KPRIJS(..ExportFilter.KlantNr,oKenmerk.GetProductNr(),..ExportFilter.OokSchaduwPrijzen),"\") - set ProductInfo.Dealer = $$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"DEALER",..ExportFilter.OokSchaduwPrijzen) - set ProductInfo.ConsNL = $$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"NL",..ExportFilter.OokSchaduwPrijzen) - set ProductInfo.ConsB = $$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"B",..ExportFilter.OokSchaduwPrijzen) - set ProductInfo.URLGroot = oKenmerk.GetFotoBestand() - set ProductInfo.URLKlein = oKenmerk.GetFotoThumbnail() + set NoSa = $select(..ExportFilter.ToonSchaduwPrijzen:"S",1:"N") + + set ProductInfo.Aankoop = $$$ExcelNum($piece($$KLANTPR^KPRIJS(..ExportFilter.KlantNr,oKenmerk.GetProductNr(),NoSa),"\")) + + if ..ToonDealerPrijzen { + set ProductInfo.Dealer = $$$ExcelNum($$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"DEALER",NoSa)) + } + + if ..ExportFilter.BTW["ExclBTW" set ProductInfo.Cons = $$$ExcelNum($$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"",NoSa)) + if ..ExportFilter.BTW["InclBTW-NL" set ProductInfo.ConsNL = $$$ExcelNum($$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"NL",NoSa)) + if ..ExportFilter.BTW["InclBTW-BE" set ProductInfo.ConsB = $$$ExcelNum($$ConsumentenPrijs^ORGALUX(oKenmerk.GetProductNr(),"B",NoSa)) + + ; 'k vin voorlopig geen goede plaats dus daarom staat den prefix nog HC + set ProductInfo.URLGroot = "http://res.vanhoecke.be/images/orgalux/"_oKenmerk.GetFotoBestand() + set ProductInfo.URLKlein = "http://res.vanhoecke.be/images/orgalux/"_oKenmerk.GetFotoThumbnail() + quit ProductInfo ]]> + +1 +Min,Max +1 +%String +="_(Min*10) + if $length(Max) set result = result_$select($length(result):" ",1:"")_"<="_(Max*10) + if Min=Max set result = Min*10 ; [Review WV] Wat als Min=Max="" (leeg) ? + quit result +]]> + + PRNr,KLNr 1 @@ -271,26 +336,27 @@ -1 LadeCodes:%List +1 %String - + Index: DOM/OV/impl/DataM/DataMFactuur.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMFactuur.cls.xml (.../DataMFactuur.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMFactuur.cls.xml (.../DataMFactuur.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 -DOM.OV.Factuur,%RegisteredObject -62108,59527.548045 +DOM.OV.Factuur,DOM.OV.impl.DataM.DataMFactProfAbstract +62157,54944.382083 0 @@ -28,11 +28,23 @@ ]]> + +%Integer + + + + +Index + + + TECH.Iterator - + Index: DOM/PM/OL/Gamma/dtoUtils/1.int.rou =================================================================== diff -u --- DOM/PM/OL/Gamma/dtoUtils/1.int.rou (revision 0) +++ DOM/PM/OL/Gamma/dtoUtils/1.int.rou (revision 903) @@ -0,0 +1,125 @@ + ;DOM.PM.OL.Gamma.dtoUtils.1 + ;(C)InterSystems, generated for class DOM.PM.OL.Gamma.dtoUtils. Do NOT edit. 02/18/2011 11:30:11AM + ;;02ED744329C44716;DOM.PM.OL.Gamma.dtoUtils + Quit + ; +%ClassName(fullname) public { Quit $select($get(fullname,0):"DOM.PM.OL.Gamma.dtoUtils",1:"dtoUtils") } +%Close(%this) Quit ..%Close() +%ConstructClone(%this,deep,cloned) public { Set deep=$get(deep,0) Set object=%this + If $data(cloned(+object)) Do (cloned(+object)).%IncrementCount() Quit cloned(+object) + Set %this=$zobjnew("DOM.PM.OL.Gamma.dtoUtils") + Set cloned(+object)=%this,cloned(+object,0)=object + Quit %this } +%Extends(isclass) public { Quit "~DOM.PM.OL.Gamma.dtoUtils~%Library.RegisteredObject~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") } +%GetParameter(paramname) public { Set paramname=$get(paramname) Quit $case(paramname,"PROPERTYVALIDATION":0,:"") } +%IncrementCount(%this) Quit ..%IncrementCount() +%IsA(isclass) public { Quit "~DOM.PM.OL.Gamma.dtoUtils~%Library.RegisteredObject~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") } +%IsModified(%this) public { Quit 1 } +%New(initvalue) public { Quit ##class(DOM.PM.OL.Gamma.dtoUtils).%New($get(initvalue)) +} +%NormalizeObject(%this) Quit 1 +%ObjectModified(%this) public { Quit 1 } +%PackageName() Quit "DOM.PM.OL.Gamma" +%SerializeObject(%this,serial,partial) Set partial=$get(partial,0) New %objOBJ,sc,id + Set $Ztrap = "%SerializeObjectERR" + Set sc=..%ValidateObject() If ('sc) { Ztrap "SO" } + Set sc=..%NormalizeObject() If ('sc) { Ztrap "SO" } + Quit sc +%SerializeObjectERR Set $ZTrap="" If $extract($zerror,1,5)'="" Set sc=$$Error^%apiOBJ(5002,$ZE) + Quit sc +%AddToSaveSet(%this,depth,refresh,norecurseon) public { Set depth=$get(depth,3),refresh=$get(refresh,0),norecurseon=$get(norecurseon) If ($data(%objTX(1,+%this))) && ('refresh) Quit 1 + Set sc=1,intOref=+%this + If refresh { + Set intPoref=$order(%objTX(1,intOref,2,"")) + While intPoref'="" { Kill %objTX(1,intPoref,3,intOref),%objTX(1,intOref,2,intPoref) Set intPoref=$order(%objTX(1,intOref,2,intPoref)) } + } + Set tDepth=$select(depth'=2:depth,1:1) + Set %objTX(2,intOref)=0 +exit Quit sc } +%RemoveFromSaveSet(%this) public { + If '($data(%objTX(1,+%this))) Quit 1 + Set intRef=+%this + Set intSucc="" For Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intSucc,2,intRef) + Set intPred="" For Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred="" Kill %objTX(1,intPred,3,intRef) + Kill %objTX(1,intRef),%objTX(2,intRef) + Quit 1 } +%SetModified(%this,value) public { Quit 1 } +%ValidateObject(%this,force) Set force=$get(force,0) Quit 1 +zOrgaluxKenmerk2dtoProduct(KenmerkUnID,Context) public { set oKenmerkOrgalux = ##class(Prod.Kenmerk.Orgalux).%New(KenmerkUnID,Context.Taal) + if '($IsObject(oKenmerkOrgalux)) Set $ECODE="`"_"1006:Create object"_"`"_"Prod.Kenmerk.Orgalux"_"`" + set dtoProduct = ##class(DOM.PM.OL.Gamma.dto.Product).%New() + set dtoProduct.Identifier = KenmerkUnID + set dtoProduct.KortTekst = oKenmerkOrgalux.GetKortTekst() + set dtoProduct.Omschrijving = oKenmerkOrgalux.GetOmschrijving() + set dtoProduct.Kleur = oKenmerkOrgalux.GetKleurOmschrijving() + set dtoProduct.Materiaal = oKenmerkOrgalux.GetMateriaalOmschrijving() + set PRNr = ##class(BL.Kenm.ProdMulti).GetCommonID(KenmerkUnID) + set dtoProduct.Prijs = Context.blPrijs.ConsumentenPrijsIncl(PRNr) + set dtoProduct.Munt = Context.blPrijs.Munt + set lbTips = oKenmerkOrgalux.GetTipsKorteOmschrijvingen(";BL;") ; ExtraTips: BL="Past (niet) in binnenlade" + for ctrTips=1:1:$listlength(lbTips) do dtoProduct.Tips.Insert($listget(lbTips,ctrTips)) + do oKenmerkOrgalux.SetTBXAfmetingCalculator(Context.GetTBXAfmetingCalculator()) + set lbLadeFamilies = oKenmerkOrgalux.GetLadeFamilieOmschrijvingen() + set lbLadeTypes = oKenmerkOrgalux.GetLadeTypeLangeOmschrijvingen() + set lbLadeKleuren = oKenmerkOrgalux.GetLadeKleurOmschrijvingen() + /// JBL - 2011-02-18 : deze ladevereisten worden vervangen door een list of %string in het product, + /// om momenteel compatibel te blijven behouden we de ladevereiste. + // opbouw lade vereisten + set dtoLadeVereisten = ##class(DOM.PM.OL.Gamma.dto.LadeVereisten).%New() + set dtoLadeVereisten.BreedteMaximum = oKenmerkOrgalux.GetLadeBinnenBreedteMax() + if dtoLadeVereisten.BreedteMaximum = 0 set dtoLadeVereisten.BreedteMaximum = "" + set dtoLadeVereisten.BreedteMinimum = oKenmerkOrgalux.GetLadeBinnenBreedteMin() + if dtoLadeVereisten.BreedteMinimum = 0 set dtoLadeVereisten.BreedteMinimum = "" + set dtoLadeVereisten.DiepteMaximum = oKenmerkOrgalux.GetLadeBinnenDiepteMax() + if dtoLadeVereisten.DiepteMaximum = 0 set dtoLadeVereisten.DiepteMaximum = "" + set dtoLadeVereisten.DiepteMinimum = oKenmerkOrgalux.GetLadeBinnenDiepteMin() + if dtoLadeVereisten.DiepteMinimum = 0 set dtoLadeVereisten.DiepteMinimum = "" + for ctrLadeKleuren=1:1:$listlength(lbLadeKleuren) do dtoLadeVereisten.LadeKleuren.Insert($listget(lbLadeKleuren,ctrLadeKleuren)) + set Types = "" + for ctrLadeFamilies = 1 : 1 : $listlength(lbLadeFamilies) Set Types = Types _ $listget(lbLadeFamilies,ctrLadeFamilies)_". " + for ctrLadeTypes = 1:1:$listlength(lbLadeTypes) Set Types = Types _ $listget(lbLadeTypes,ctrLadeTypes)_". " + do dtoLadeVereisten.Types.Insert(Types) + set dtoLadeVereisten.VrijeHoogte = oKenmerkOrgalux.GetVrijeHoogte() + set dtoProduct.LadeVereisten = dtoLadeVereisten + /// JBL - 2011-02-18 : tot hier mogen ladevereisten weg, hieronder staat nieuwe implementatie + /// Types toevoegen aan de info lijst. + set Types = "" + for ctrLadeFamilies = 1 : 1 : $listlength(lbLadeFamilies) Set Types = Types _ $listget(lbLadeFamilies,ctrLadeFamilies)_". " + for ctrLadeTypes = 1:1:$listlength(lbLadeTypes) Set Types = Types _ $listget(lbLadeTypes,ctrLadeTypes)_". " + do dtoProduct.Info.Insert(Types) + /// Ladebreedte + Set InfoBreedte = oKenmerkOrgalux.GetLabel("Breedte")_": " + set BreedteMaximum = oKenmerkOrgalux.GetLadeBinnenBreedteMax() + set BreedteMinimum = oKenmerkOrgalux.GetLadeBinnenBreedteMin() + Set InfoBreedtePrefix = "" + Set InfoBreedteMiddlefix = "" + If ((BreedteMaximum = 0) && (BreedteMinimum '= 0)) + { + Set InfoBreedtePrefix = "minimum " + }Elseif ((BreedteMaximum '= 0) && (BreedteMinimum '= 0)) + { + Set InfoBreedtePrefix = "van " + Set InfoBreedteMiddlefix = "tot " + } + Set InfoBreedte = InfoBreedte_InfoBreedtePrefix_BreedteMinimum_InfoBreedteMiddlefix_BreedteMaximum + do dtoProduct.Info.Insert(InfoBreedte) + /// Kleuren + If ($listlength(lbLadeKleuren) > 0){ + Set InfoKleur = oKenmerkOrgalux.GetLabel("Kleur")_": " + for ctrLadeKleuren=1:1:$listlength(lbLadeKleuren) + { + If (ctrLadeKleuren > 1) Set InfoKleur = InfoKleur_", " + Set InfoKleur = InfoKleur_($listget(lbLadeKleuren,ctrLadeKleuren)) + } + do dtoProduct.Info.Insert(InfoKleur) + } + /// End JBL - 2011-02-18 + set dtoProduct.Afmetingen = ##class(DOM.PM.OL.Gamma.dto.Afmetingen).%New() + set dtoProduct.Afmetingen.Breedte = oKenmerkOrgalux.GetBreedte() + set dtoProduct.Afmetingen.Hoogte = oKenmerkOrgalux.GetHoogte() + set dtoProduct.Afmetingen.Diepte = oKenmerkOrgalux.GetDiepte() + set dtoFotoLink = ##class(DOM.dto.FotoLinks).%New() + set dtoFotoLink.FotoURL = oKenmerkOrgalux.GetFotoBestand() + set dtoFotoLink.ThumbnailURL = oKenmerkOrgalux.GetFotoThumbnail() + do dtoProduct.VertalingFotoLinks.Insert(dtoFotoLink) + quit dtoProduct } \ No newline at end of file Index: DOM/LEV/Toelevering.cls.xml =================================================================== diff -u --- DOM/LEV/Toelevering.cls.xml (revision 0) +++ DOM/LEV/Toelevering.cls.xml (revision 903) @@ -0,0 +1,41 @@ + + + +1 +1 +62144,37592.871983 +0 + + +1 +%Integer + + + +1 +%Integer + + + +1 +DOM.OV.Order + + + +1 +TECH.Iterator + + + +1 +%String + + + +1 +Type:DOM.OV.enu.OrderlijnType +TECH.Iterator + + + + Index: DOM/PM/enu/KADVerpakking.cls.xml =================================================================== diff -u --- DOM/PM/enu/KADVerpakking.cls.xml (revision 0) +++ DOM/PM/enu/KADVerpakking.cls.xml (revision 903) @@ -0,0 +1,47 @@ + + + +datatype +1 +%String +62136,31482.713533 +0 + + +;B;L;K;E + + + +;Bulk;Los;Krimp;Export + + + +1 +DOM.PM.enu.KADVerpakking + + + + +1 +DOM.PM.enu.KADVerpakking + + + + +1 +DOM.PM.enu.KADVerpakking + + + + +1 +DOM.PM.enu.KADVerpakking + + + + + Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml (.../KostItemWriterVisitor.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml (.../KostItemWriterVisitor.cls.xml) (revision 903) @@ -1,17 +1,17 @@ - + 1 DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor -62115,58095.567309 +62150,36875.376192 0 Item:DOM.PM.Maatwerk.Calc.Kost.KostItem %Status @@ -21,7 +21,7 @@ %Status @@ -31,7 +31,7 @@ %Status @@ -41,7 +41,7 @@ %Status @@ -51,11 +51,21 @@ %Status + +Item:DOM.PM.Maatwerk.Calc.Kost.ExtraKostItem +%Status + + + 1 %String @@ -77,5 +87,5 @@ ]]> - + Index: DOM/OV/Proforma.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/Proforma.cls.xml (.../Proforma.cls.xml) (revision 734) +++ DOM/OV/Proforma.cls.xml (.../Proforma.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 1 -62109,30181.373837 +62154,39910.187831 0 @@ -17,9 +17,14 @@ %Integer - + +1 +%Integer + + + TECH.Iterator - + Index: DOM/OV/Orderlijn.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/Orderlijn.cls.xml (.../Orderlijn.cls.xml) (revision 734) +++ DOM/OV/Orderlijn.cls.xml (.../Orderlijn.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Deze klasse stelt een orderlijn voor. elke orderlijn heeft een nummer. @@ -9,24 +9,28 @@ dezelfde orderlijn een ander nummer hebben. 1 1 -62108,29093.253452 +62157,72355.661765 0 +1 %Integer +1 %Integer +1 DOM.OV.enu.OrderlijnType +1 %String - + Index: DOM/PM/Maatwerk/Calc/Kost/ExtraKostItemBuilder.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Kost/ExtraKostItemBuilder.cls.xml (.../ExtraKostItemBuilder.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Kost/ExtraKostItemBuilder.cls.xml (.../ExtraKostItemBuilder.cls.xml) (revision 903) @@ -1,15 +1,32 @@ - + Eventuele supplementen en kostfactoren die niet in de rest passen. persistent 1 IKostItemBuilder -62098,55734.118776 +62150,35676.074463 62070,52454.114465 0 + +%Float +1 + + + +SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder,Naam:%String,ExtraKost:%Float +1 +1 +%Status + + + @@ -22,11 +39,21 @@ Context:KostContext,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom DOM.PM.Maatwerk.Calc.Kost.KostItem + %Library.CacheStorage +ExtraKostItemBuilderDefaultData + +listnode +"ExtraKostItemBuilder" + +ExtraKost + + - + Index: DOM/PM/OL/Gamma/impl/XML/vkhbRoot.cls.xml =================================================================== diff -u --- DOM/PM/OL/Gamma/impl/XML/vkhbRoot.cls.xml (revision 0) +++ DOM/PM/OL/Gamma/impl/XML/vkhbRoot.cls.xml (revision 903) @@ -0,0 +1,14 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62146,32208.410466 +0 + + +vkhbDocument + + + + Index: DOM/PM/impl/DataM/DataMLadeKenmerkenCreator.cls.xml =================================================================== diff -u --- DOM/PM/impl/DataM/DataMLadeKenmerkenCreator.cls.xml (revision 0) +++ DOM/PM/impl/DataM/DataMLadeKenmerkenCreator.cls.xml (revision 903) @@ -0,0 +1,56 @@ + + + +1 +%RegisteredObject +62140,40305.804849 +0 + + +DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie +1 + + + +DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +1 + + + +DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom +1 + + + +%Integer +1 + + + +PRNr:%Integer,ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom +1 +1 +%Status + + + + + + + + + Index: DOM/DomeinContext.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/DomeinContext.cls.xml (.../DomeinContext.cls.xml) (revision 734) +++ DOM/DomeinContext.cls.xml (.../DomeinContext.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62111,52725.260542 +62152,40219.250545 0 @@ -26,6 +26,26 @@ 1 + +TECH.Stack +1 + + + +TECH.Stack +1 + + + +TECH.Stack +1 + + + +TECH.Stack +1 + + DOM.OV.OrderAPI 1 @@ -41,6 +61,26 @@ 1 + +DOM.LEV.ToeleveringAPI +1 + + + +DOM.VKP.VerkoopPrijsAPI +1 + + + +DOM.VKP.VerkoopPrijsAPI +1 + + + +DOM.VKP.PrijsUitzAPI +1 + + 1 DOM.DomeinContext @@ -59,15 +99,19 @@ -DOM.PM.ProductAPI +DOM.OV.OrderAPI + +DOM.LEV.ToeleveringAPI + + + + +DOM.VKP.VerkoopPrijsAPI + + + + +DOM.VKP.VerkoopPrijsAPI + + + + +DOM.VKP.PrijsUitzAPI + + + @@ -136,6 +232,30 @@ ]]> + +%String + + + + +%String + + + + +%String + + + Naam:%String + + +Naam:%String + + + + +Naam:%String + + + + +Naam:%String + + + + +Naam:%String + + - + Index: DOM/OV/impl/DataM/DataMBonInFactuurlijnIterator.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMBonInFactuurlijnIterator.cls.xml (.../DataMBonInFactuurlijnIterator.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMBonInFactuurlijnIterator.cls.xml (.../DataMBonInFactuurlijnIterator.cls.xml) (revision 903) @@ -1,40 +1,48 @@ - + 1 DOM.OV.impl.DataM.DataMAbstractLijnIterator -62108,57187.19525 +62153,60707.021966 0 - -DOM.OV.Bon + +%String 1 + +%String +1 + + Bon:DOM.OV.impl.DataM.DataMBonInFactuur 1 1 %Status Nummer:%Integer 1 -%String + Nummer:%Integer 1 -%Integer + - + Index: DOM/PM/impl/ProductImpl.cls.xml =================================================================== diff -u -r802 -r903 --- DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 802) +++ DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 903) @@ -1,9 +1,10 @@ - + 1 %RegisteredObject,DOM.PM.Product -62129,41136.577612 +62152,34495.128082 +62129,41516.717135 0 @@ -59,23 +60,29 @@ ]]> - -DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie - +TECH.Iterator + - -DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie - +%String + + +%String + + + %Boolean - + Index: DOM/LEV/impl/DataM/DataMToeleveringLijnIterator.cls.xml =================================================================== diff -u --- DOM/LEV/impl/DataM/DataMToeleveringLijnIterator.cls.xml (revision 0) +++ DOM/LEV/impl/DataM/DataMToeleveringLijnIterator.cls.xml (revision 903) @@ -0,0 +1,56 @@ + + + +1 +DOM.common.DataM.DataMAbstractLijnIterator +62129,56991.773546 +0 + + +DOM.LEV.Toelevering +1 + + + +%Integer +1 + + + +Toelevering:DOM.LEV.Toelevering,LeverancierNummer:%Integer +1 +1 +%Status + + + + +Nummer:%Integer +1 +%String + + + + +Nummer:%Integer +1 +%Integer + + + + +LijnNummer:%String,LijnData:%String +1 +%RegisteredObject + + + + + Index: DOM/PM/TBXProduct/TBXSpoelbaklade.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/TBXProduct/TBXSpoelbaklade.cls.xml (.../TBXSpoelbaklade.cls.xml) (revision 734) +++ DOM/PM/TBXProduct/TBXSpoelbaklade.cls.xml (.../TBXSpoelbaklade.cls.xml) (revision 903) @@ -1,17 +1,11 @@ - + 1 DOM.PM.TBXProduct.TBXLade -62055,32055.56706 +62133,37118.104992 0 - -Visitor:DOM.PM.TBXProduct.TBXProductVisitor - - - %Integer @@ -27,6 +21,21 @@ DOM.PM.enu.TBXSpoelbakzijkant + + +1 +%String + + + +1 +%Integer + + + +1 +%Integer + - + Index: DOM/PM/OL/Gamma/enu/Zone.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/OL/Gamma/enu/Zone.cls.xml (.../Zone.cls.xml) (revision 734) +++ DOM/PM/OL/Gamma/enu/Zone.cls.xml (.../Zone.cls.xml) (revision 903) @@ -1,13 +1,13 @@ - + Mapt (in combinatie met enumeratie Toepassing) op kenmerk "ZoneToepassing". Voor iedere ZoneToepassing begint de waarde met prefix Zone_ datatype 1 -%String -62067,61156.203305 +TECH.Enumeration +62147,54529.834827 61947,48065.636223 0 @@ -63,5 +63,5 @@ ]]> - + Index: DOM/PM/Maatwerk/Calc/HF/enu/OLMRol.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/enu/OLMRol.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/enu/OLMRol.cls.xml (revision 903) @@ -0,0 +1,26 @@ + + + +datatype +1 +%String +62150,27815.433616 +0 + + +,OpMaatProduct + + + +,Ingekort orgalux product + + + +1 +DOM.PM.Maatwerk.Calc.HF.enu.OLMRol + + + + + Index: DOM/OV/impl/DataM/DataMAdres.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMAdres.cls.xml (.../DataMAdres.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMAdres.cls.xml (.../DataMAdres.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.common.Adres -62047,41411.184236 +62158,59740.873847 0 @@ -36,8 +36,23 @@ 1 + +%String +1 + + + +%String +1 + + + +%String +1 + + -Naam:%String,Toenaam:%String,Aanspreking:%String,Straat:%String,Postcode:%String,Gemeente:%String +Naam:%String,Toenaam:%String,Aanspreking:%String,Straat:%String,Postcode:%String,Gemeente:%String,LandNr:%String,Taal:%String,KlantAdresNr:%String 1 1 %Status @@ -48,10 +63,25 @@ Set ..Straat = Straat Set ..Postcode = Postcode Set ..Gemeente = Gemeente + Set ..LandNr = LandNr + Set ..Taal = $G(Taal) + Set ..KlantAdresNr = $G(KlantAdresNr) Quit $$$OK ]]> + +1 +Node:%String +1 +1 +DataMAdres + + + %String + +%String + + + + +%String + + + + +%String + + + + +%String + + + %String - + Index: DOM/AKP/info/AankoopPrijsInfo.cls.xml =================================================================== diff -u --- DOM/AKP/info/AankoopPrijsInfo.cls.xml (revision 0) +++ DOM/AKP/info/AankoopPrijsInfo.cls.xml (revision 903) @@ -0,0 +1,77 @@ + + + +1 +%RegisteredObject +62153,29286.48299 +0 + + +%Float +1 + + + +%Float +1 + + + +%Float +1 + + + +DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +1 + + + +ActuelePrijs:%Float,LivePrijs:%Float,ReferentiePrijs:%Float,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +1 +1 +%Status + + + + + +De ActuelePrijs is de prijs die we als effectieve prijs voor de opgegeven klant gebruiken. +Deze prijs houden we stabiel over een langere periode. +In het geval van SOPR-prijzen is de actuele prijs de SOPR-prijs voor die klant. +Komt overeen met de CIFPPL. +%Float + + + + + +De LivePrijs is de prijs van het moment. Deze kan sterk schommelen. +%Float + + + + + +De referentieprijs is de prijs die we gebruiken voor lijstprijsberekeningen. +%Float + + + + +DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie + + + + + Index: DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml (revision 903) @@ -0,0 +1,40 @@ + + + +persistent +1 +DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken +62158,49435.972612 +0 + + +%Integer + + + +%Float + + + +%Integer + + + + +%Library.CacheStorage +OLMKenmerkenDefaultData + +listnode +"OLMKenmerken" + +InTeKortenPRNr + + +TeBekomenLengte + + + + + + Index: DOM/PM/enu/TBXLadeType.cls.xml =================================================================== diff -u --- DOM/PM/enu/TBXLadeType.cls.xml (revision 0) +++ DOM/PM/enu/TBXLadeType.cls.xml (revision 903) @@ -0,0 +1,33 @@ + + + +datatype +1 +%String +62132,53714.776772 +0 + + +;L;B + + + +;Lade;Binnenlade + + + +1 +DOM.PM.enu.TBXLadeType + + + + +1 +DOM.PM.enu.TBXLadeType + + + + + Index: DOM/Halux/TBX/dto/Plaat.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/dto/Plaat.cls.xml (revision 0) +++ DOM/Halux/TBX/dto/Plaat.cls.xml (revision 903) @@ -0,0 +1,106 @@ + + + +1 +%RegisteredObject +62123,64196.162461 +62123,54829.925297 +0 + + + + +%Boolean +1 +1 + + + + +Zonder, Groef, Frezing +bij rug is dit steeds Zonder +%String +1 +1 + + + + + +%Integer +1 +1 + + + + + +%Boolean +1 +1 + + + + + +%Boolean +1 +1 + + + + + +%Integer +1 +1 + + + + +uitgedrukt in 10x mm +%String +1 +1 + + + + + +%Boolean +1 +1 + + + + + +%String +1 +1 + + + + + +%String +1 +1 + + + + + +%Integer +1 +1 + + + + + +DOM.Halux.TBX.impl.ZaagOpdracht + + + + Index: DOM/OV/Order.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/Order.cls.xml (.../Order.cls.xml) (revision 734) +++ DOM/OV/Order.cls.xml (.../Order.cls.xml) (revision 903) @@ -1,5 +1,5 @@ - + Interface voor orders. @@ -17,7 +17,7 @@ waardoor ze een nummer krijgen. 1 1 -62109,30154.608854 +62154,29299.651066 0 @@ -26,30 +26,51 @@ ]]> + +1 +%String + + + +1 +DOM.CRM.Klant + + +1 %Integer +1 %Integer +1 DOM.common.Adres - + +1 TECH.Iterator - + +1 Type:DOM.OV.enu.OrderlijnType TECH.Iterator + +1 +%Boolean + + +1 %Boolean - + Index: DOM/PM/enu/KADBoringType.cls.xml =================================================================== diff -u --- DOM/PM/enu/KADBoringType.cls.xml (revision 0) +++ DOM/PM/enu/KADBoringType.cls.xml (revision 903) @@ -0,0 +1,40 @@ + + + +datatype +1 +%String +62140,41398.144587 +0 + + +;Punt;Gedeeltelijk;Volledig + + + +;Puntboring;Gedeeltelijke doorboring;Volledige doorboring + + + +1 +DOM.PM.enu.KADBoringType + + + + +1 +DOM.PM.enu.KADBoringType + + + + +1 +DOM.PM.enu.KADBoringType + + + + + Index: DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml (.../TBXSpoelbakladeImpl.cls.xml) (revision 734) +++ DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml (.../TBXSpoelbakladeImpl.cls.xml) (revision 903) @@ -1,11 +1,31 @@ - + 1 DOM.PM.TBXProduct.TBXSpoelbaklade,DOM.PM.TBXProduct.impl.TBXLadeImpl -62102,53098.852023 +62153,43586.549636 0 + +Visitor:DOM.PM.TBXProduct.TBXProductVisitor + + + + +DOM.PM.TBXProduct.TBXRug + + + %Integer + +%String + + + %Integer 0 + If ($IsObject(AdapterBouwsteen)) { - ; Throw error - } - - /* - // Implementatie op basis van de ladediepte (is minder geavanceerd) - Set LadeDiepte = ..GeefLadeDiepte() - If (LadeDiepte > 400) - { - Set TussenstukDiepte=140 + Set SPBinnenZijkantProduct = AdapterBouwsteen.KindProduct + Set SPBinnenZijkantPRNr = SPBinnenZijkantProduct.ProductNr + Set TussenstukDiepte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",SPBinnenZijkantPRNr,"AftrekBodem"),1) ; In de nieuwe Builders moet de kenmerknaam veranderd worden naar "TussenstukDiepte". + If TussenstukDiepte'>0 + { + ; Throw error + } } Else { - Set TussenstukDiepte=120 + // De bouwsteen "Binnenzijkant v. spoelbak" is niet aanwezig + // In dit geval wordt de TussenstukDiepte hardcoded afgeleid uit ladediepte + Set LadeDiepte=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",..GeefPRNr(),"LD")) + Set TussenstukDiepte=$S(LadeDiepte>400:140, 1:120) } - */ Quit TussenstukDiepte ]]> @@ -76,5 +99,5 @@ ]]> - + Index: DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml (.../KADKenmerken.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml (.../KADKenmerken.cls.xml) (revision 903) @@ -1,9 +1,10 @@ - + +persistent 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken -62045,62128.55484 +62158,49445.901849 0 @@ -15,74 +16,158 @@ -%String +DOM.PM.enu.KADProfielType -%String +DOM.PM.enu.KADProfielAfwerking - -%String + +DOM.PM.enu.KADOphangplaats - -KADVullingBeschrijving -array + +DOM.PM.Maatwerk.Calc.Common.impl.KADVullingBeschrijving - -%String - - + +DOM.PM.enu.KADMontage -%String - - +DOM.PM.enu.KADVerpakking + +DOM.PM.Maatwerk.Calc.Common.impl.KADBoring +list + + + +DOM.PM.Maatwerk.Calc.Common.impl.KADBeslag +list + + -(vroeger : Onderdelen voor Herstellingen of Los Profiel) -Bij los profiel ("LPR") mag slechts 1 profiel aangeduid zijn. - -Nu : inherited property from class DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken -Property Onderdelen As %String [ Collection = list, Private ]; +!! DEPRECATED - WORDT VERWIJDERD Calculated Property (IsMONT) %Boolean +!! DEPRECATED - WORDT VERWIJDERD Calculated Property (IsKleef) %Boolean +!! DEPRECATED - WORDT VERWIJDERD Calculated Property (IsGlas) %Boolean +!! DEPRECATED - WORDT VERWIJDERD Calculated Property (LPR) Als ProductieWijze=LosProfiel, geeft de ProfielPlaats aan (=eerste item van Onderdelen-list) %String - - - + +%Integer + + + + +%String + + + + +%Library.CacheStorage +KADKenmerkenDefaultData + +listnode +"KADKenmerken" + +Beslag + + +Boringen + + +Breedte + + +Hoogte + + +IsGemonteerd + + +IsGlasOnly + + +IsKleefProfiel + + +LosProfiel + + +Montage + + +Ophangplaats + + +ProfielAfwerking + + +ProfielType + + +Verpakking + + +Vulling + + + - + Index: DOM/OV/ProductOrderlijn.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/ProductOrderlijn.cls.xml (.../ProductOrderlijn.cls.xml) (revision 734) +++ DOM/OV/ProductOrderlijn.cls.xml (.../ProductOrderlijn.cls.xml) (revision 903) @@ -1,35 +1,56 @@ - + 1 DOM.OV.Orderlijn -62108,29690.779148 +62157,72259.344739 0 +1 %Integer +1 %Integer +1 DOM.PM.Product +1 %String +1 %String +1 %Float + +1 +%Float + + + +1 +%Float + + + +1 +%Float + + %Library.CacheStorage ^DOM.OV.ProductOrderlijnD @@ -46,5 +67,5 @@ - + Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml (.../HFBodemv001.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBodemv001.cls.xml (.../HFBodemv001.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder -62101,57309.57728 +62140,39917.816869 0 @@ -40,7 +40,7 @@ Set Halffab=HalffabItemZijkant.Halffab Set AftrekVoorBodem=Halffab.AftrekVoorBodem - Set LadeBreedte=IngegevenKenmerken.LadeBreedte + Set LadeBreedte=IngegevenKenmerken.InbouwBreedte Set BodemBreedte=LadeBreedte-AftrekVoorBodem Set BodemBreedteSQL=LadeBreedte ; Tijdelijk omdat afmetingen in Excel gebaseerd zijn op LadeBreedte @@ -100,7 +100,7 @@ Set HFItemProcessor=##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorExactEenBewerkt).%New() Do HFItemProcessor.ValideerHalffabList(HalffabList) Set HalffabItem = HFItemProcessor.GenereerHalffabItem(HalffabList, IngegevenKenmerken, Context, ..Rol) - ;Set HalffabItem.AfwijkendeKenmerken="..." + Do HalffabItem.ZetAfwijkendKenmerk("LadeBreedte",BodemBreedte) } } @@ -119,5 +119,5 @@ %Library.CacheStorage - + Index: DOM/Halux/TBX/ZaagOpdrachten.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/ZaagOpdrachten.cls.xml (revision 0) +++ DOM/Halux/TBX/ZaagOpdrachten.cls.xml (revision 903) @@ -0,0 +1,66 @@ + + + +persistent +1 +%Persistent +62123,73520.158078 +62123,54831.536178 +0 + + +DS.PPS.TBX.Batch +1 +1 + + + + + +DOM.Halux.TBX.enu.BodemRug +1 +1 + + + + +Resultaat van de meeting +%Float +1 +1 + + + + + +DS.PPS.TBX.Queue +1 +1 + + + + + +DOM.Halux.TBX.enu.Status +1 +1 + + + + + +DOM.Halux.TBX.enu.SubBatch +1 +1 + + + + + +%Integer +1 +1 + + + + Index: DOM/AKP/AankoopPrijsAPI.cls.xml =================================================================== diff -u --- DOM/AKP/AankoopPrijsAPI.cls.xml (revision 0) +++ DOM/AKP/AankoopPrijsAPI.cls.xml (revision 903) @@ -0,0 +1,22 @@ + + + +1 +1 +62151,58938.012608 +0 + + + +Geeft informatie over aankoopprijzen, afhankelijk van klant, aankoophoeveelheid, levertermijn etc. +De prijzen kunnen varieren in de tijd en er kan ook een tag worden meegegeven waarmee de prijzen worden opgezocht. +Merk op dat de aankoopprijsberekening normaal gezien niet personality-afhankelijk is. +We gebruiken voor de eenvoud toch hetzelfde BerekeningsSpecificatie-object als input-parameter, +zodat hetzelfde object als input voor alle prijsberekeningen kan gebruikt worden. +1 +Product:DOM.PM.Product,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +DOM.AKP.info.AankoopPrijsInfo + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFDichtingv001.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFDichtingv001.cls.xml (.../HFDichtingv001.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/KAD/HFDichtingv001.cls.xml (.../HFDichtingv001.cls.xml) (revision 903) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder -62101,29581.286046 +62133,50912.91671 0 @@ -33,7 +33,7 @@ %Boolean 1 Dichting aftrek : "_HalffabProfBO.AftrekVoorDichting_" "_HalffabProfON.AftrekVoorDichting_" "_HalffabProfLI.AftrekVoorDichting_" "_HalffabProfRE.AftrekVoorDichting) ;d WLIP^vhDBG(97,"DICHT : "_DichtingHoogte_" x "_DichtingBreedte) Set DichtingLengte=(DichtingHoogte+DichtingBreedte)*2 - ;Set HalffabItem.AfwijkendeKenmerken="..." + Do HalffabItem.ZetAfwijkendKenmerk("Lengte",DichtingLengte) Quit HalffabItem ]]> @@ -93,5 +93,5 @@ %Library.CacheStorage - + Index: DOM/AKP/impl/DataM/DataMAankoopPrijsAPI.cls.xml =================================================================== diff -u --- DOM/AKP/impl/DataM/DataMAankoopPrijsAPI.cls.xml (revision 0) +++ DOM/AKP/impl/DataM/DataMAankoopPrijsAPI.cls.xml (revision 903) @@ -0,0 +1,24 @@ + + + +1 +%RegisteredObject,DOM.AKP.AankoopPrijsAPI +62153,55709.656585 +0 + + +Product:DOM.PM.Product,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie +DOM.AKP.info.AankoopPrijsInfo + + + + + Index: DOM/OV/impl/DataM/DataMTypedBonInProformalijnIterator.cls.xml =================================================================== diff -u --- DOM/OV/impl/DataM/DataMTypedBonInProformalijnIterator.cls.xml (revision 0) +++ DOM/OV/impl/DataM/DataMTypedBonInProformalijnIterator.cls.xml (revision 903) @@ -0,0 +1,33 @@ + + + +1 +DOM.OV.impl.DataM.DataMBonInProformalijnIterator +62154,26933.232958 +0 + + +DOM.OV.enu.OrderlijnType +1 + + + +BonInProforma:DOM.OV.impl.DataM.DataMBonInProforma,Type:DOM.OV.enu.OrderlijnType +1 +1 +%Status + + + + +Lijn:%String +%Boolean + + + + + Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/PM/impl/DataM/DataMProductCreator.cls.xml (.../DataMProductCreator.cls.xml) (revision 734) +++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml (.../DataMProductCreator.cls.xml) (revision 903) @@ -1,11 +1,11 @@ - + 1 TECH.Error 1 %RegisteredObject -62118,54123.385047 +62157,42550.274525 0 @@ -38,6 +38,17 @@ 1 + +%String +1 + + + +%ListOfDataTypes +array +1 + + ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem 1 @@ -61,6 +72,12 @@ // Template vullen met data van het product Do ..VulTemplate() + // Plaats de classificatie op het product + Do ..ZetClassificatie() + + // Langtekst opbouwen + Do ..BepaalLangtekst() + // Schrijf alle wijzigingen naar de global Set ..PRNr = ..Save() @@ -93,6 +110,42 @@ %String + + +Elke lijn in de lijst wordt een lijn in de langtekst +1 +%ListOfDataTypes + + + + + +Elke lijn in de lijst wordt een lijn in de langtekst +1 +%ListOfDataTypes + + + + + +Elke lijn in de lijst wordt een lijn in de langtekst +1 +%ListOfDataTypes + + + + + +Elke lijn in de lijst wordt een lijn in de langtekst +1 +%ListOfDataTypes + + + GenerischPRNr:%Integer 1 @@ -132,7 +185,7 @@ 1 + +1 + + + + + + + + +1 +%Integer + + + 1 %Integer @@ -175,13 +257,32 @@ Set ^KPR(PRNr,"J")="" Set ^KPR(PRNr,"J"_..GeefWaarde("J",1))= ..ProductData.GetAt("J") + Do ..ProductSpecificatie.%Save() + Do ..BerekeningsSpecificatie.%Save() + + Set Rec = "" + Set $Piece(Rec,"\",13) = ..ProductSpecificatie.%Id() + Set $Piece(Rec,"\",14) = ..BerekeningsSpecificatie.%Id() + Set ^KPR(PRNr,15) = Rec + Do RECALC^PRODUKT2(PRNr) Do BLDIND^PRODUKT2(PRNr) Quit PRNr ]]> + +%String + + + 1 %String @@ -194,21 +295,70 @@ ]]> + +1 + + + + +Taal:%String,Lijnen:TECH.Iterator +1 + + + Index:%String,Piece:%Integer +1 %String Index:%String,Piece:%Integer,Waarde:%String +1 + + +1 + + - + Index: DOM/OV/Factuur.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/Factuur.cls.xml (.../Factuur.cls.xml) (revision 734) +++ DOM/OV/Factuur.cls.xml (.../Factuur.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 1 -62109,30080.783304 +62154,36181.856169 0 @@ -12,15 +12,19 @@ ]]> - + 1 %Integer - + 1 +%Integer + + + TECH.Iterator - + Index: DOM/Halux/TBX/enu/SubBatch.cls.xml =================================================================== diff -u --- DOM/Halux/TBX/enu/SubBatch.cls.xml (revision 0) +++ DOM/Halux/TBX/enu/SubBatch.cls.xml (revision 903) @@ -0,0 +1,23 @@ + + + + +
  • Spoelbak en Syfon laden
    • +
  • Tipon
    • +]]>     +datatype +1 +%String +62123,62393.650127 +62123,54830.753447 +0 + + +,SS,TO + +     + +     Index: DOM/PM/OLProduct/OLProduct.cls.xml =================================================================== diff -u --- DOM/PM/OLProduct/OLProduct.cls.xml (revision 0) +++ DOM/PM/OLProduct/OLProduct.cls.xml (revision 903) @@ -0,0 +1,11 @@ + + + + + +1 +DOM.PM.Product +62147,51214.752641 + + + Index: DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml (.../DataMProductOrderlijn.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml (.../DataMProductOrderlijn.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 DOM.OV.impl.DataM.DataMOrderlijn,DOM.OV.ProductOrderlijn -62108,54339.497365 +62158,38091.076128 0 @@ -61,6 +61,28 @@ " _ ##class(DOM.OV.impl.DataM.DataMOrderlijn)%this.ToString() ]]> + + +%Float + + + + +%Float + + + + +%Float + + - + Index: DOM/OV/impl/DataM/DataMProforma.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/impl/DataM/DataMProforma.cls.xml (.../DataMProforma.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMProforma.cls.xml (.../DataMProforma.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 -DOM.OV.Proforma,%RegisteredObject -62108,60349.559041 +DOM.OV.Proforma,DOM.OV.impl.DataM.DataMFactProfAbstract +62157,53255.582641 0 @@ -28,11 +28,24 @@ ]]> + +%Integer + + + + +Index +1 + + + TECH.Iterator - + Index: DOM/OV/OrderAPI.cls.xml =================================================================== diff -u -r734 -r903 --- DOM/OV/OrderAPI.cls.xml (.../OrderAPI.cls.xml) (revision 734) +++ DOM/OV/OrderAPI.cls.xml (.../OrderAPI.cls.xml) (revision 903) @@ -1,9 +1,9 @@ - + 1 1 -62109,29389.373526 +62152,60251.656873 0 @@ -33,6 +33,12 @@ ProformaNr:%Integer DOM.OV.Proforma + + +1 +PRNr:%Integer +%Integer + - + Index: DOM/OV/OrderVerwijzingOrderlijn.cls.xml =================================================================== diff -u --- DOM/OV/OrderVerwijzingOrderlijn.cls.xml (revision 0) +++ DOM/OV/OrderVerwijzingOrderlijn.cls.xml (revision 903) @@ -0,0 +1,56 @@ + + + +1 +1 +DOM.OV.Orderlijn +62154,39956.302526 +0 + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%Date + + + +