Index: APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml =================================================================== diff -u -r946 -r1012 --- APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml (.../BehandeldOnderwerp.cls.xml) (revision 946) +++ APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml (.../BehandeldOnderwerp.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + vhLib.Macro 1 %RegisteredObject -62172,39578.295623 +62194,36865.714828 61886,61062.984522 0 @@ -155,16 +155,16 @@ 1 BehandeldOnderwerp:DOM.CRM.BehandeldOnderwerp.BehandeldOnderwerp,dtoBehandeldOnderwerp:APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp @@ -230,5 +230,5 @@ ]]> - + Index: APPS/Halux/TBX/impl/Test.cls.xml =================================================================== diff -u -r917 -r1012 --- APPS/Halux/TBX/impl/Test.cls.xml (.../Test.cls.xml) (revision 917) +++ APPS/Halux/TBX/impl/Test.cls.xml (.../Test.cls.xml) (revision 1012) @@ -1,17 +1,17 @@ - + 1 %RegisteredObject -62157,57278.144016 +62199,41939.401342 0 Do ##class(APPS.Halux.TBX.impl.Test).Build() 1 1 BatchID,SubBatch %SQLQuery BatchID:%Integer ID = :BatchID order by Queue->Sequence]]> + Select ID from APPS_Halux_TBX.ZaagOpdrachten where Batch = :BatchID order by Queue->Sequence]]> - + Index: DOM/PM/Maatwerk/Calc/HF/impl/Processor/ValidatieException.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/Processor/ValidatieException.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/Processor/ValidatieException.cls.xml (revision 1012) @@ -0,0 +1,58 @@ + + + +1 +%RegisteredObject,TECH.IException +62192,29283.449263 +0 + + +%String +1 + + + +%ListOfObjects +1 + + + +ErrorBoodschap:%String,HalffabList:%ListOfObjects +1 +1 +%Status + + + + +%String + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + + Index: APPS/common/GUI/dto/KolomInfo.cls.xml =================================================================== diff -u -r946 -r1012 --- APPS/common/GUI/dto/KolomInfo.cls.xml (.../KolomInfo.cls.xml) (revision 946) +++ APPS/common/GUI/dto/KolomInfo.cls.xml (.../KolomInfo.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,%XML.Adaptor -62161,47127.957312 +62195,30236.083752 0 @@ -21,6 +21,14 @@ %String + + +%Boolean + + + +%String + - + Index: APPS/CRM/Interacties/dto/Oorsprong.cls.xml =================================================================== diff -u -r734 -r1012 --- APPS/CRM/Interacties/dto/Oorsprong.cls.xml (.../Oorsprong.cls.xml) (revision 734) +++ APPS/CRM/Interacties/dto/Oorsprong.cls.xml (.../Oorsprong.cls.xml) (revision 1012) @@ -1,11 +1,15 @@ - + 1 %RegisteredObject,%XML.Adaptor -61964,56548.399183 +62194,31692.853784 0 + +1 + + %String @@ -14,5 +18,5 @@ APPS.CRM.Interacties.enu.Type - + Index: DOM/LEV/impl/DataM/DataMLeverancierIterator.cls.xml =================================================================== diff -u --- DOM/LEV/impl/DataM/DataMLeverancierIterator.cls.xml (revision 0) +++ DOM/LEV/impl/DataM/DataMLeverancierIterator.cls.xml (revision 1012) @@ -0,0 +1,59 @@ + + + +1 +%RegisteredObject,TECH.Iterator +62196,35245.122015 +0 + + +%String +1 + + + +DOM.LEV.ToeleveringAPI +1 + + + +1 +1 +%Status + + + + + +Returns true if the iteration has more elements. +%Boolean + + + + + +Returns the next element in the iteration. +Only returns a valid element if HasNext() returns true +Causes an error if HasNext() returns false +%CacheString + + + + +1 + + + + + Index: APPS/PM/Maatwerk/TBX/Frees/FreesMain.cls.xml =================================================================== diff -u -r734 -r1012 --- APPS/PM/Maatwerk/TBX/Frees/FreesMain.cls.xml (.../FreesMain.cls.xml) (revision 734) +++ APPS/PM/Maatwerk/TBX/Frees/FreesMain.cls.xml (.../FreesMain.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62067,52026.571298 +62194,42316.204025 0 @@ -17,9 +17,9 @@ Set FileLocation = ResultSet.Data("Name") Set FileName = $Piece(##class(%File).GetFilename(FileLocation),".",1) Set BatchID = $Extract(FileName,2,$Length(FileName)) - Set Batch = ##class(DS.PPS.TBX.Batch).%OpenId(BatchID) + Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchID) // Als de batch geen object is dan is de batch reeds volledig uit het systeem verwijderd - If ('$IsObject(Batch) || Batch.NotActive) + If (('$IsObject(Batch)) || Batch.NotActive) { Do ..VerwijderBatch(BatchID) } @@ -39,5 +39,5 @@ ]]> - + Index: BL/PPS/TBX/PrintLijstInfo.cls.xml =================================================================== diff -u -r994 -r1012 --- BL/PPS/TBX/PrintLijstInfo.cls.xml (.../PrintLijstInfo.cls.xml) (revision 994) +++ BL/PPS/TBX/PrintLijstInfo.cls.xml (.../PrintLijstInfo.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent -62185,48221.218655 +62196,29164.377023 0 @@ -23,12 +23,6 @@ 1 - -cascade -BatchID -DS.PPS.TBX.Batch - - BatchID:%Integer 1 @@ -53,7 +47,41 @@ Quit PrintLijstInfo ]]> + + +1 +VerwijderEvent:DOM.PM.Maatwerk.TBX.BatchRemovedEvent + + + + +1 + + + + +%Library.CacheStorage +^BL.PPS.TBX.PrintLijstInfoD +PrintLijstInfoDefaultData +^BL.PPS.TBX.PrintLijstInfoD +^BL.PPS.TBX.PrintLijstInfoI +^BL.PPS.TBX.PrintLijstInfoS + +listnode + + +%%CLASSNAME + + +PrintLijst + + + - + Index: APPS/LEV/dto/LeverancierActiefStatus.cls.xml =================================================================== diff -u --- APPS/LEV/dto/LeverancierActiefStatus.cls.xml (revision 0) +++ APPS/LEV/dto/LeverancierActiefStatus.cls.xml (revision 1012) @@ -0,0 +1,42 @@ + + + + +JBL + 2011-04-18 +datatype +1 +%String +62199,54718.799286 +0 + + +,Actief,BuitenGebruik,Verwijderd + + + +;Actief;Buiten gebruik;Verwijderd + + + +1 +DOM.LEV.enu.LeverancierActiefStatus + + + + +1 +DOM.LEV.enu.LeverancierActiefStatus + + + + +1 +DOM.LEV.enu.LeverancierActiefStatus + + + + + Index: DS/PPS/TBX/Batch.cls.xml =================================================================== diff -u -r994 -r1012 --- DS/PPS/TBX/Batch.cls.xml (.../Batch.cls.xml) (revision 994) +++ DS/PPS/TBX/Batch.cls.xml (.../Batch.cls.xml) (revision 1012) @@ -1,5 +1,5 @@ - + Opdeling van een productieflow in blokken (batches). @@ -12,7 +12,7 @@ BL.Derde.LevSpecifiek 1 %Persistent -62186,28109.256579 +62192,34111.667292 62125,31731.886249 0 @@ -32,16 +32,6 @@ %TimeStamp - - -Zaag gestart voor de hoofdbatch -%TimeStamp - - - -APPS.Halux.TBX.enu.ProductieLijn - - Production Orders @@ -114,17 +104,6 @@ ]]> - -ProductieLijn:APPS.Halux.TBX.enu.ProductieLijn - - - Sequencenummer:%Integer - + Index: DOM/LEV/Leverancier.cls.xml =================================================================== diff -u --- DOM/LEV/Leverancier.cls.xml (revision 0) +++ DOM/LEV/Leverancier.cls.xml (revision 1012) @@ -0,0 +1,40 @@ + + + +1 +1 +62199,41914.363191 +0 + + +1 +DOM.common.Adres + + + +1 +DOM.LEV.enu.LeverancierActiefStatus + + + +1 +%Integer + + + +1 +%String + + + +1 +TECH.Iterator + + + +1 +%TimeStamp + + + + Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml =================================================================== diff -u -r994 -r1012 --- DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 994) +++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.PM.ProductAPI,%RegisteredObject -62187,52123.873537 +62195,53318.281211 62159,61821.306225 0 @@ -145,5 +145,5 @@ ]]> - + Index: APPS/CRM/impl/VerslagDetail.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/CRM/impl/VerslagDetail.cls.xml (.../VerslagDetail.cls.xml) (revision 994) +++ APPS/CRM/impl/VerslagDetail.cls.xml (.../VerslagDetail.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + vhLib.Macro 1 %RegisteredObject -62189,57619.814997 +62194,48838.753809 0 @@ -76,13 +76,26 @@ if ..Agenda.%Extends("Derde.Agenda.ToonzaalBezoek") { if $length(..Agenda.Eindgebruiker) { set Eindgebruiker = ..Agenda.Eindgebruiker - set result = Eindgebruiker.Adres.Naam_" "_Eindgebruiker.Adres.StraatNrBus_" "_Eindgebruiker.Adres.Woonplaats_"("_..Agenda.AantalPersonenEindgebruiker_")" + set result = Eindgebruiker.Adres.Naam_" "_Eindgebruiker.Adres.StraatNrBus_" ("_Eindgebruiker.Adres.Woonplaats_")" } } quit result ]]> + +%Integer + + + %String %String - + Index: APPS/Halux/Planning/dto/StockProbleemInfo.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/StockProbleemInfo.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/StockProbleemInfo.cls.xml (revision 1012) @@ -0,0 +1,50 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62199,55455.165091 +0 + + +%Integer + + + +%Integer + + + +%String + + + +%Boolean + + + +%String + + + +%Integer + + + +%String + + + +%Integer + + + +%Date + + + +%Integer + + + + Index: DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml =================================================================== diff -u -r946 -r1012 --- DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml (.../KostContext.cls.xml) (revision 946) +++ DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml (.../KostContext.cls.xml) (revision 1012) @@ -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 -62172,39061.773861 +62192,40135.852809 0 @@ -70,9 +70,17 @@ Set ..Familie = Familie Set ..Variant = Variant Set ..KostRepository = ##class(DOM.PM.Maatwerk.Calc.Kost.impl.KostRepository).%New() + Set $ZTRAP = "FoutOnNew" Set ..KostenPlaatsWaardeTabel = ..KostRepository.GeefKostenPlaatsWaardeTabel() + Set $ZTRAP = "" Do ..ZetBerekeningsSpecificatie(BerekeningsSpecificatie) Quit $$$OK + +FoutOnNew + Set $ZTRAP = "" + Set Exception = ##class(TECH.ExceptionHandler).Catch() + Do ..LogExceptie(Exception) + Do ##class(TECH.ExceptionHandler).Throw(Exception) ]]> @@ -133,7 +141,17 @@ BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie @@ -157,7 +175,7 @@ } Else { - $$$ThrowError($$$errGeneralError,"Geen datum of tag opgegeven in de berekeningsspecificatie") + Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen datum of tag opgegeven in de berekeningsspecificatie")) } } Quit $$$OK @@ -178,6 +196,20 @@ } ]]> + + +Exceptie:TECH.IException + + - + Index: DOM/PM/enu/CommercieelActiefType.cls.xml =================================================================== diff -u -r937 -r1012 --- DOM/PM/enu/CommercieelActiefType.cls.xml (.../CommercieelActiefType.cls.xml) (revision 937) +++ DOM/PM/enu/CommercieelActiefType.cls.xml (.../CommercieelActiefType.cls.xml) (revision 1012) @@ -1,19 +1,19 @@ - + datatype 1 %String -62160,37269.519385 +62192,41366.973349 62164,33506.947699 0 -,A,N +,A,N,B -;Actief,Niet Actief +;Actief,Niet Actief,Beperkt Actief @@ -27,6 +27,12 @@ + + +1 + + - + Index: APPS/PM/dto/ZoekCriteria.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/PM/dto/ZoekCriteria.cls.xml (.../ZoekCriteria.cls.xml) (revision 994) +++ APPS/PM/dto/ZoekCriteria.cls.xml (.../ZoekCriteria.cls.xml) (revision 1012) @@ -1,60 +1,64 @@ - + 1 %RegisteredObject,%XML.Adaptor -62187,50900.595415 +62193,31043.737639 62164,32251.747389 0 - -APPS.PM.enu.StockType + + +0,1 of meerdere klassificiaties bijhouden +%String +list APPS.PM.enu.CommercieelActiefType - -%String + +%Boolean +1 - + %String - - -Zoek tekst + %String - -APPS.PM.enu.SoortProductID + +%Date %Integer - + -0,1 of meerdere klassificiaties bijhouden +Lijst van opgegeven PRNrs waarin gezocht moet worden. %String list - -%Boolean -1 - - - + -Lijst van opgegeven PRNrs waarin gezocht moet worden. +Zoek tekst %String -list + + +APPS.PM.enu.SoortProductID + + + +APPS.PM.enu.StockType + - + Index: APPS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 994) +++ APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 1012) @@ -1,12 +1,12 @@ - + JBL + 2011-02-28 TECH.Error 1 %RegisteredObject -62188,60073.669272 +62199,57785.078382 62159,61291.134957 0 @@ -89,7 +89,7 @@ { Set tmpDataDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId(DataDefID) Set ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New() - Set ProductKenmerk.KenmerkNaam = tmpDataDef.Kenmerk.Kenmerk + Set ProductKenmerk.KenmerkNaam = tmpDataDef.GeefKenmerk().Kenmerk Set ProductKenmerk.Waarden = tmpDataDef.Waarden Set ProductKenmerk.Groep = KenmerkGroep @@ -123,11 +123,11 @@ $$$TECHErrorTrapOn Set Metadata = ##class(APPS.PM.dto.Kenm.KenmerkMetadataList).%New() + /// Nagaan of KenmerkGroepen niet leeg is, indien dit zo is mogen alle groepen worden opgevraagd. if ('$IsObject(KenmerkGroepen) || (KenmerkGroepen.Count() = 0)){ Set KenmerkGroepen = ##class(Prod.Kenmerk.MetaGroep).GetAllMetaGroupsAsList() } - /// Alle opgegeven Kenmerkgroepen overlopen Set KenmerkGroepIterator = ##class(TECH.ListIterator).%New(KenmerkGroepen) While (KenmerkGroepIterator.HasNext()){ @@ -176,9 +176,13 @@ Set RSMogelijkheden = ##class(%ResultSet).%New("Prod.Kenmerk.DataDefinitie:MogelijkhedenVoorKenmerk") Do RSMogelijkheden.Execute(KenmerkGroep,KenmerkMetadata.Naam) While (RSMogelijkheden.Next()){ - Set Waarden = RSMogelijkheden.Get("Waarden") - For j=1:1:$ListLength(Waarden) { - Do KenmerkMetadata.Mogelijkheden.Insert($ListGet(Waarden,j)) + Set Waarden = RSMogelijkheden.Get("Waarde") + If ($$IsList^vhLib(Waarden)){ + For j=1:1:$ListLength(Waarden) { + Do KenmerkMetadata.Mogelijkheden.Insert($ListGet(Waarden,j)) + } + }Else{ + Do KenmerkMetadata.Mogelijkheden.Insert(Waarden) } } } @@ -189,7 +193,7 @@ Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Tekst() Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.TekstBeperking).%New() If (RS.Get("Lengte") '= ""){ - Do KenmerkMetadata.DataTypeBeperking.Insert(RS.Get("Lengte")) + Set KenmerkMetadata.DataTypeBeperking.MaxAantalTekens = RS.Get("Lengte") } }ElseIf (RS.Get("Format") = "B"){ Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Boolean() @@ -215,7 +219,9 @@ ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken %Status - + Index: DOM/LEV/dto/LeverancierId.cls.xml =================================================================== diff -u --- DOM/LEV/dto/LeverancierId.cls.xml (revision 0) +++ DOM/LEV/dto/LeverancierId.cls.xml (revision 1012) @@ -0,0 +1,48 @@ + + + + +JBL + 2011-04-17 +1 +%RegisteredObject,%XML.Adaptor +62199,54913.241649 +0 + + +BOOLEAN +1 + + + +STRING +,0,1,runtime +1 +ENUM + + + +APPS.LEV.dto.LeverancierActiefStatus + + + + + +DOM.dto.Derde.Adres + + + + + +%String + + + + + +%Integer + + + + + + Index: APPS/common/impl/StockNiveauQueries.cls.xml =================================================================== diff -u --- APPS/common/impl/StockNiveauQueries.cls.xml (revision 0) +++ APPS/common/impl/StockNiveauQueries.cls.xml (revision 1012) @@ -0,0 +1,62 @@ + + + +1 +%RegisteredObject +62199,48566.809285 +0 + + +%SQLQuery +PRNr:%Integer,Datum:%Date +1 + SELECT KindVanGevraagdeMoeder.MoederProductNr,KindVanGevraagdeMoeder.KindProductnr AS KindProduct , KindDataVanGevraagdeMoeder.Aantal AS AantalKindGevraagd, + APPS_common_impl.StockNiveauQueries_AantalInOrder(KindVanGevraagdeMoeder.KindProductnr) As AantalInOrder, + APPS_common_impl.StockNiveauQueries_FysischeStockVan(KindVanGevraagdeMoeder.KindProductnr) As FysischeStock, + APPS_common_impl.StockNiveauQueries_FysischeStockVan(KindVanGevraagdeMoeder.KindProductnr) - APPS_common_impl.StockNiveauQueries_AantalInOrder(KindVanGevraagdeMoeder.KindProductnr,:Datum) As PraktischeStock + FROM DOM_PM_impl_DataM_Bouwstenen.BouwsteenKindIndex AS KindVanGevraagdeMoeder + JOIN DOM_PM_Bouwstenen.BouwsteenKind AS KindDataVanGevraagdeMoeder On KindVanGevraagdeMoeder.MoederProductNr = KindDataVanGevraagdeMoeder.Moeder AND KindVanGevraagdeMoeder.KindProductNr = KindDataVanGevraagdeMoeder.KindProduct + WHERE KindVanGevraagdeMoeder.MoederProductNr = :PRNr AND KindVanGevraagdeMoeder.BouwsteenType = 'K' + + + +1 +PRNr:%Integer,Datum:%Date +%Integer +1 + + + + +1 +PRNr:%Integer +%Integer +1 + + + + +1 +PRNr:%Integer +%Float +1 + + + + + Index: DOM/AKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml =================================================================== diff -u --- DOM/AKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml (revision 0) +++ DOM/AKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml (revision 1012) @@ -0,0 +1,124 @@ + + + +persistent +1 +VHOpslag +%Persistent +62194,50569.061386 +0 + + +%String + + + +DOM.PM.Product +1 + + + +DOM.LEV.Toelevering +1 + + + +%String + + + +%Date + + + +%String + + + +%Integer +1 + + + +%Integer +1 + + + +%Date +1 + + + +%String + + + +1 +1 +ProductNr,WSubscript +1 + + + +1 +%Status + + + + +%Integer + + + + +%Date + + + + +%Date + + + + +%CacheSQLStorage +^DOM.VKP.imp5D4.ToelevLijnIn815S + +data +^KPR + +{ProductNr} +0.1 + + +{WSubscript} +"W 0.0T" +"W 0.0Tz" + + +"\" +1 + + +"\" +2 + + +"\" +3 + + + + + + Index: APPS/Halux/TBX/ZaagOpdrachten.cls.xml =================================================================== diff -u -r917 -r1012 --- APPS/Halux/TBX/ZaagOpdrachten.cls.xml (.../ZaagOpdrachten.cls.xml) (revision 917) +++ APPS/Halux/TBX/ZaagOpdrachten.cls.xml (.../ZaagOpdrachten.cls.xml) (revision 1012) @@ -1,16 +1,16 @@ - + persistent TECH.Error 1 %Persistent -62145,29492.153996 +62199,46015.540709 62123,54831.536178 0 -DS.PPS.TBX.Batch +APPS.Halux.common.impl.BatchImpl 1 @@ -66,7 +66,7 @@ 1 -Batch:DS.PPS.TBX.Batch,SubBatch:APPS.Halux.TBX.enu.SubBatch,BodemRug:APPS.Halux.TBX.enu.BodemRug,Queue:DS.PPS.TBX.Queue,Lade:DOM.PM.TBXProduct.TBXLade +Batch:APPS.Halux.common.Batch,SubBatch:APPS.Halux.TBX.enu.SubBatch,BodemRug:APPS.Halux.TBX.enu.BodemRug,Queue:DS.PPS.TBX.Queue,Lade:DOM.PM.TBXProduct.TBXLade IsHerstelling + +WijzigTijdstip + - + Index: DOM/PM/impl/DataM/DataMHGProductIterator.cls.xml =================================================================== diff -u -r994 -r1012 --- DOM/PM/impl/DataM/DataMHGProductIterator.cls.xml (.../DataMHGProductIterator.cls.xml) (revision 994) +++ DOM/PM/impl/DataM/DataMHGProductIterator.cls.xml (.../DataMHGProductIterator.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,TECH.Iterator -62181,30531.460554 +62192,40992.808775 0 @@ -48,7 +48,6 @@ Set ..Key3 = $Order(^KPH(..Hoofdgroep,..Key1,..Key2,"")) Set ..Key4 = $Order(^KPH(..Hoofdgroep,..Key1,..Key2,..Key3,"")) Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() - Do ..BepaalVolgende() Quit $$$OK ]]> @@ -100,5 +99,5 @@ ]]> - + Index: DOM/LEV/enu/LeverancierActiefStatus.cls.xml =================================================================== diff -u --- DOM/LEV/enu/LeverancierActiefStatus.cls.xml (revision 0) +++ DOM/LEV/enu/LeverancierActiefStatus.cls.xml (revision 1012) @@ -0,0 +1,42 @@ + + + + +JBL + 2011-04-18 +datatype +1 +%String +62199,54823.924387 +0 + + +,,1,2 + + + +;Actief;Buiten gebruik;Verwijderd + + + +1 +DOM.LEV.enu.LeverancierActiefStatus + + + + +1 +DOM.LEV.enu.LeverancierActiefStatus + + + + +1 +DOM.LEV.enu.LeverancierActiefStatus + + + + + Index: Derde/Klant/Klant.cls.xml =================================================================== diff -u -r994 -r1012 --- Derde/Klant/Klant.cls.xml (.../Klant.cls.xml) (revision 994) +++ Derde/Klant/Klant.cls.xml (.../Klant.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + persistent DataM %Library.Persistent,Derde.Abstract.Derde -62185,38977.095181 +62194,57566.429611 58449,45194 0 @@ -1204,5 +1204,5 @@ - + Index: APPS/PM/OL/ZoektermLogger.cls.xml =================================================================== diff -u -r734 -r1012 --- APPS/PM/OL/ZoektermLogger.cls.xml (.../ZoektermLogger.cls.xml) (revision 734) +++ APPS/PM/OL/ZoektermLogger.cls.xml (.../ZoektermLogger.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + _SYSTEM 1 %RegisteredObject -62103,42131.886426 +62196,55232.98913 0 @@ -21,8 +21,11 @@ 1 Event:DOM.PM.OL.Gamma.impl.ZoektermGebruiktEvent @@ -44,5 +47,5 @@ ORDER BY Zoekterm - + Index: APPS/LEV/impl/ConvertAPPStoDOMenu.cls.xml =================================================================== diff -u --- APPS/LEV/impl/ConvertAPPStoDOMenu.cls.xml (revision 0) +++ APPS/LEV/impl/ConvertAPPStoDOMenu.cls.xml (revision 1012) @@ -0,0 +1,34 @@ + + + + +JBL + 2011-04-18 +1 +%RegisteredObject +62199,48748.209691 +0 + + +1 +LeverancierActiefStatus:APPS.LEV.dto.LeverancierActiefStatus +DOM.LEV.enu.LeverancierActiefStatus + + + + + Index: DOM/PM/Maatwerk/TBX/Batch.cls.xml =================================================================== diff -u -r734 -r1012 --- DOM/PM/Maatwerk/TBX/Batch.cls.xml (.../Batch.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/TBX/Batch.cls.xml (.../Batch.cls.xml) (revision 1012) @@ -1,24 +1,26 @@ - + 1 %RegisteredObject -61992,28056.004348 +62195,41723.89789 0 All active batches %SQLQuery -1]]> + SELECT * FROM APPS_Halux_common_impl.BatchImpl Where IsActief = 1 + ORDER BY ID %SQLQuery - Select ID from PPS.Batch where Type="+" and NotActive=0 + SELECT ID FROM APPS_Halux_common_impl.BatchImpl Where ProductieGroep = "+" AND IsActief = 1 + ORDER BY ID - + Index: APPS/Halux/Planning/dto/ActieInfo.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/ActieInfo.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/ActieInfo.cls.xml (revision 1012) @@ -0,0 +1,26 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62199,55094.958643 +0 + + +APPS.Halux.Planning.enu.ActieCode + + + +%String + + + +%String + + + +%Boolean + + + + Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml =================================================================== diff -u -r994 -r1012 --- DOM/CRM/impl/DataM/DataMKlant.cls.xml (.../DataMKlant.cls.xml) (revision 994) +++ DOM/CRM/impl/DataM/DataMKlant.cls.xml (.../DataMKlant.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.CRM.impl.DataM.DataMKlantBase -62186,42451.296869 +62195,42421.088965 0 @@ -182,8 +182,10 @@ Set ^DKL("K","KL.A",..KlantNummer,..#AlgemeneGegevensNode) = ..AlgemeneGegevens Set ^KKL(..GeefKlantIndexKKL(),..#AlgemeneGegevensNode) = ..AlgemeneGegevens - /// In KKL moet alles verplaatst worden - //Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex) + /// In KKL moet alles verplaatst worden als naam is gewijzigd + If ((..GeefNaam() '= $Piece(OudeAlgemeneGegevens,"\",2))) { + Do ..IndexGewijzigd(IndexUpdated, OudeKlantIndex) + } /// De vhisie-accounts verwijderen voor deze klant. If (..ActiefChanged){ @@ -405,5 +407,5 @@ ]]> - + Index: APPS/LEV/dto/LeverancierBestand.cls.xml =================================================================== diff -u --- APPS/LEV/dto/LeverancierBestand.cls.xml (revision 0) +++ APPS/LEV/dto/LeverancierBestand.cls.xml (revision 1012) @@ -0,0 +1,35 @@ + + + + +JBL + 2011-04-18 +1 +%RegisteredObject,%XML.Adaptor +62199,53859.733444 +0 + + +LeverancierBestand + + + +BOOLEAN +1 + + + +STRING +,0,1,runtime +1 +ENUM + + + +DOM.LEV.dto.LeverancierId +list + + + + + + Index: CHUI/PPS/TBX/LeanBatch.cls.xml =================================================================== diff -u -r994 -r1012 --- CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 994) +++ CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek,%VHMacro 0 %RegisteredObject -62189,50187.20088 +62199,29618.499008 61671,56287.96672 0 @@ -45,7 +45,7 @@ 1 - + APPS.Halux.common.Batch 1 @@ -120,7 +120,7 @@ New %TC,In,Lijst,Input,TOENr,Selected,BatchNr,LijnNr,Batch,MarkToe,ProdGrpBatch New Aantal,AantLaden,AantTipon,AantSpoelbak,AantBaliko,Afgedrukt,Tijden,Datum,chuiLeanBatch,SequenceNr - New NieuweBatch,BatchService + New HaluxBatch,BatchService Set (BatchNr,LijnNr,Aantal,AantLaden,AantTipon,AantSpoelbak,AantBaliko,Afgedrukt,Tijden,Datum,ProdGrpBatch,SequenceNr)="" Do DISPLAY^vhScherm("HATBXLEAN") @@ -146,21 +146,21 @@ { Set Aantal="" Do ADD^vhLock("^PPS.Batch("_BatchNr_")") ; lock, alleen bij bestaande batches - Set NieuweBatch = BatchService.GeefBatch(BatchNr) + Set HaluxBatch = BatchService.GeefBatch(BatchNr) } Else { - Set NieuweBatch = BatchService.GeefNieuweBatch() + Set HaluxBatch = BatchService.GeefNieuweBatch() } - Do chuiLeanBatch.GebruikBatch(NieuweBatch) + Do chuiLeanBatch.GebruikBatch(HaluxBatch) If %TC { Do chuiLeanBatch.Fetch(.Selected) Do chuiLeanBatch.ToonHeader() Set Input = chuiLeanBatch.CommandLoop() - If NieuweBatch.GeefBatchID()'="" Do REMOVE^vhLock("^PPS.Batch("_NieuweBatch.GeefBatchID()_")") + If HaluxBatch.GeefBatchID()'="" Do REMOVE^vhLock("^PPS.Batch("_HaluxBatch.GeefBatchID()_")") } Else { @@ -179,7 +179,7 @@ Batch:APPS.Halux.common.Batch 1 @@ -243,7 +243,7 @@ 1 @@ -378,17 +384,17 @@ Opslaan van een nieuwe batch 1 @@ -401,7 +407,7 @@ 1 1 1 1 %String 1 %String @@ -701,8 +713,11 @@ Afdrukken van de labels 0) + Set IsAfgewerkt = ..Afgewerkt(TOENr) + If (IsAfgewerkt) { - Set Inp=$$^vhTXTPOP("HATBXLEAN","ODSP","",Toelevering.GeefToeNr(),ToeleveringProductInfo.AantalOnderdelenSpeciaal) - } - If ..NieuweBatch.GeefBatchID()="" - { + Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr) + Set ToeleveringProductInfo = ..blLeanBatch.GeefToeleveringProductInfo(Toelevering) + If (ToeleveringProductInfo.AantalOnderdelenSpeciaal > 0) + { + Set Inp=$$^vhTXTPOP("HATBXLEAN","ODSP","",Toelevering.GeefToeNr(),ToeleveringProductInfo.AantalOnderdelenSpeciaal) + } Set Selected(TOENr)="" - Set $ZTRAP="ToevoegenFout" - Do ..NieuweBatch.VoegToeToelevering(Toelevering) - Set $ZTRAP = "" - Set Lijst("MAX")=..AantalLijnen + If ..HaluxBatch.GeefBatchID()="" + { + Set $ZTRAP="ToevoegenFout" + Do ..HaluxBatch.VoegToeToelevering(Toelevering) + Set $ZTRAP = "" + } + Else + { + Set $ZTRAP="ToevoegenFout" + Set Status=..blLeanBatch.AddToelev(..HaluxBatch,Toelevering) + Set $ZTRAP = "" + If ($system.Status.IsError(Status)) Do WARN^vhTXTPOP($Piece($$ParseStatus^vhLib(Status),": ",2,99),"Toevoegen van Toelevering "_TOENr_ "is mislukt") + } + Set Lijst("MAX")=..AantalLijnen+1 Set Lijst("SELECT")=Lijst("MAX") } - Else - { - Set $ZTRAP="ToevoegenFout" - Set Status=..blLeanBatch.AddToelev(..NieuweBatch,Toelevering) - Set $ZTRAP = "" - If ($system.Status.IsError(Status)) Do WARN^vhTXTPOP($Piece($$ParseStatus^vhLib(Status),": ",2,99),"Toevoegen van Toelevering "_TOENr_ "is mislukt") - } Do ..Fetch(.Selected) Do ..ToonHeader() Do ..Write() @@ -812,6 +831,30 @@ ]]> + + +Zijn alle laden afgewerkt? +TOENr +1 +MaxCount Do + . For Count=Count:-1:MaxCount Set TLNr=$O(NietAfgewerkt(TLNr),-1) Kill NietAfgewerkt(TLNr) + . Set NietAfgewerkt(TLNr)="..." + Set:$D(NietAfgewerkt) NietAfgewerkt="NietAfgewerkt",Afgewerkt=$$^vhTXTPOP("HATBXLEAN","AFGEWERKT","",$$EXTNUM^vhDTyp(TOENr,0,".",0)) + Quit Afgewerkt +]]> + + String:%String 1 @@ -846,9 +889,9 @@ Toelevering 1 Verwijderen van alle toeleveringen 1 - + Index: DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml =================================================================== diff -u -r994 -r1012 --- DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml (.../OrgaluxProductGamma.cls.xml) (revision 994) +++ DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml (.../OrgaluxProductGamma.cls.xml) (revision 1012) @@ -1,5 +1,5 @@ - + Maakt gebruik van de bestaande Kenmerken klassen en zoek-mogelijkheden. @@ -8,10 +8,10 @@ 1.Op zoekterm: kan wellicht via de bestaande functionaliteit. 2.Op zone, toepassing, materiaal, etc: moet bijgeprogrammeerd worden. 3.Op producten compatibel met opgegeven lade: moet bijgeprogrammeerd worden. -DOM.PM.OL,TECH.Error +DOM.PM.OL,TECH.Error,%Prod.Product 1 DOM.PM.OL.Gamma.OrgaluxProductGamma -62188,40393.686035 +62195,63629.251128 61944,51413.335308 0 @@ -647,7 +647,14 @@ elseif $length(Zoekterm) { for set KenmerkUnID = ..KenmerkUnIDsViaZoekterm.Next(KenmerkUnID) Quit:KenmerkUnID="" do ..KenmerkUnIDs.Insert(KenmerkUnID) } - + /** / + set itKenmerken = ##class(TECH.ReversedListIterator).%New(..KenmerkUnIDs) + while itKenmerken.HasNext() { + set KenmerkUnID = itKenmerken.Next() + if '##class(Prod.Kenmerk.Orgalux).%New(KenmerkUnID).IsActief() do ..KenmerkUnIDs.RemoveAt(itKenmerken.Key()) + } + /**/ + /*} else { // indien ZoektermCategorie niet opgegeven alle gevonden waarden teruggeven do ..KenmerkUnIDs.Clear() @@ -722,9 +729,9 @@ } } if ..Debug { - do:..Debug WL^vhDBG("Beperking :"_ProductGroepCode) + ;do:..Debug WL^vhDBG("Beperking :"_ProductGroepCode) for { set KenmerkUnID = ..KenmerkUnIDs.GetNext(.idxKenmerkUnID) quit:idxKenmerkUnID="" - do:..Debug WL^vhDBG("arUnIDs("_KenmerkUnID_")=""""") + ;do:..Debug WL^vhDBG("arUnIDs("_KenmerkUnID_")=""""") } } ]]> @@ -740,7 +747,6 @@ do dtoProductGroepInhoud.Producten.Clear() do ..PGISorteerProductInfo(.arSort, .LadeSpec) - d WLIP^vhDBG(127,"1") set arSortRef = "arSort" for { set arSortRef = $query(@arSortRef) quit:arSortRef="" set KenmerkUnID = @arSortRef @@ -1285,8 +1291,6 @@ } do ..tmpCacheAdd2ProductGroepen.Clear() - - ;do WLIP^vhDBG(195,"time "_$$RestartTimer^vhLib()) ]]> @@ -1460,13 +1464,12 @@ } do:..Debug WL^vhDBG("") - ;do:..#Debug WL^vhDBG($$ArrayToText^vhLib("arUnIDs",.arUnIDs)) + ;do:..Debug WL^vhDBG($$ArrayToText^vhLib("arUnIDs 2",.arUnIDs)) } - do:..Debug WL^vhDBG("") do:..Debug WL^vhDBG("") - + Kill ..arKenmerkUnIDs Merge ..arKenmerkUnIDs = arUnIDs Kill arUnIDs @@ -1550,21 +1553,14 @@ 1 1 - - -PRNr:%String -1 -%Boolean - - - + Index: APPS/PM/ProductService.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/PM/ProductService.cls.xml (.../ProductService.cls.xml) (revision 994) +++ APPS/PM/ProductService.cls.xml (.../ProductService.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + TECH.Error 1 %RegisteredObject -62188,59550.590487 +62193,53425.126218 62159,61291.418178 0 @@ -35,23 +35,22 @@ Do pxCriteria.SetDefault() If (Criteria.StockType '= ""){ - Set pxCriteria.StockType = $LB(##class(APPS.PM.enu.ConvertAPPStoDOMenu).ConvertStockType(Criteria.StockType)) + Set pxCriteria.StockType = $LB(##class(APPS.PM.impl.ConvertAPPStoDOMenu).ConvertStockType(Criteria.StockType)) } - for i=1:1:$length(Criteria.CommercieelActief) - { - Set CommercieelActiefType = ##class(APPS.PM.enu.ConvertAPPStoDOMenu).ConvertCommercieelActiefType($extract(Criteria.CommercieelActief,i)) - Set pxCriteria.Active = pxCriteria.Active_$LB(CommercieelActiefType) + If (Criteria.CommercieelActief '= ""){ + Set CommercieelActiefType = ##class(APPS.PM.impl.ConvertAPPStoDOMenu).ConvertCommercieelActiefType(Criteria.CommercieelActief) + Set pxCriteria.Active = $LB(CommercieelActiefType) } - Set pxCriteria.VerifyCustomer = Criteria.GekochtDoorKlantnr - Set pxCriteria.LimitSupplier = Criteria.GeleverdDoorLeveranciernr + Set pxCriteria.VerifyCustomer = Criteria.GekochtDoorKlantNr + Set pxCriteria.LimitSupplier = Criteria.GeleverdDoorLeverancierNr If (Criteria.SoortProductID = ##class(APPS.PM.enu.SoortProductID).Korttekst()) { Set pxCriteria.SearchTxt = $Translate(Criteria.ProductID," ") }Else { Set pxCriteria.SearchTxt = Criteria.ProductID } - Set pxCriteria.At = ##class(APPS.PM.enu.ConvertAPPStoDOMenu).ConvertSoortProductID(Criteria.SoortProductID) + Set pxCriteria.At = ##class(APPS.PM.impl.ConvertAPPStoDOMenu).ConvertSoortProductID(Criteria.SoortProductID) Set pxCriteria.MaxCount = Criteria.MaxAantalResultaten Set pxCriteria.Alias = $ListBuild("P") @@ -64,37 +63,46 @@ Set pxCriteria.Klassificaties = Criteria.Classificaties } - - - Do WLIP^vhDBG(127,"Start BL.Prod.Search:Select op "_$ztime($p($h,",",2))) Set rsSearch=##class(%ResultSet).%New("BL.Prod.Search:Select") Do rsSearch.Execute(pxCriteria,pxSearchFormat) - Do WLIP^vhDBG(127,"Stop BL.Prod.Search:Select op "_$ztime($p($h,",",2))) Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() + // [ Review CSC -> JBL ] Array gebruiken om sneller te zoeken in de lijst van PRNr's + // Je kan ook vooraf beter een array opbouwen met als sleutel de korttekst en eentje met de geopendna datum + // Hierdoor moet je niet per resultset rij telkens over alle producten lopen. + // Om een range te vinden van alle producten die na een bepaalde datum geopend zijn kan je in die array met GetNext(datum) direct de goede subset vinden. + Set PRNrArray = ##class(%ArrayOfDataTypes).%New() + Set PRNrIt = ##class(TECH.ListIterator).%New(Criteria.PRNrs) + While (PRNrIt.HasNext()){ + Do PRNrArray.SetAt(1,PRNrIt.Next()) + } + Set AantalToegevoegde = 0 Set rs = rsSearch While(rs.Next() && ((Criteria.MaxAantalResultaten = "") || (AantalToegevoegde < Criteria.MaxAantalResultaten))) { Set PRNr = rs.GetData(1) - If ((Criteria.PRNrs.Count() = 0) || (Criteria.PRNrs.Find(PRNr) '= "" )){ + If ((PRNrArray.Count() = 0) || (PRNrArray.IsDefined(PRNr) = 1 )){ Set Product = ProductAPI.GeefProduct(PRNr) Set ProductIDs = ..GeefProductIDsVanProduct(Product) - Set ProductIDIterator = ##class(TECH.ListIterator).%New(ProductIDs) While (ProductIDIterator.HasNext() && ((Criteria.MaxAantalResultaten = "") || (AantalToegevoegde < Criteria.MaxAantalResultaten))){ Set ProductID = ProductIDIterator.Next() Set Toevoegen = 1 - If Criteria.SoortProductID = ##class(APPS.PM.enu.SoortProductID).Korttekst(){ - If (Criteria.ExacteKorttekst && (ProductID.Korttekst '= Criteria.ProductID)) { - Set Toevoegen = 0 - } + /// Als op exacte korttekst gezocht word, die hier controleren. + If (Criteria.ExacteKorttekst && (Criteria.SoortProductID = ##class(APPS.PM.enu.SoortProductID).Korttekst()) && (ProductID.Korttekst '= Criteria.ProductID)){ + Set Toevoegen = 0 } - If Toevoegen { - Do ProductenLijst.HerkendeProducten.Insert(ProductID) - Set AantalToegevoegde = AantalToegevoegde + 1 + /// Indien GeopenNa meegeven, hier checken met datum van opening product + If (Criteria.GeopendNa && (Product.GeefOpeningDatum() <= Criteria.GeopendNa)){ + Set Toevoegen = 0 } + + If Toevoegen { + Do ProductenLijst.HerkendeProducten.Insert(ProductID) + Set AantalToegevoegde = AantalToegevoegde + 1 + } } } } @@ -356,18 +364,7 @@ If (($ll(MultipleNrs)> 0) && ($Data(MultipleNrs))){ for i=1:1:$ll(MultipleNrs) { - Set ProductZoekResultaat = ..Product2ProductIDs(Product) - Set ProductZoekResultaat.MultipleNr = $p($lg(MultipleNrs,i),".",2) - /// Foto goed instellen voor multiple's als het orgalux is. - If ($$ISORGAL^ORGALUX(ProductZoekResultaat.PRNr)){ - Set UnID = ProductZoekResultaat.PRNr_"."_ProductZoekResultaat.MultipleNr - set oKenmerkOrgalux = ##class(Prod.Kenmerk.Orgalux).%New(UnID,"") - If ($IsObject(oKenmerkOrgalux)){ - Set ProductZoekResultaat.ProductAfbeeldingen = ##class(APPS.PM.dto.ProductAfbeeldingen).%New() - Set ProductZoekResultaat.ProductAfbeeldingen.VoorOpScherm = ..#FotoPad_$Translate(oKenmerkOrgalux.GetFotoBestand(),"/","\") - Set ProductZoekResultaat.ProductAfbeeldingen.Thumbnail = ..#FotoPad_$Translate(oKenmerkOrgalux.GetFotoThumbnail(),"/","\") - } - } + Set ProductZoekResultaat = ..Product2ProductIDs(Product,$Piece($lg(MultipleNrs,i),".",2)) Do ProductIDs.Insert(ProductZoekResultaat) } } @@ -383,19 +380,34 @@ -Product:DOM.PM.Product +Product:DOM.PM.Product,MultipleNr:%String="" APPS.PM.dto.ProductIDs - + Index: DOM/VKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml =================================================================== diff -u --- DOM/VKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml (revision 0) +++ DOM/VKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml (revision 1012) @@ -0,0 +1,124 @@ + + + +persistent +1 +VHOpslag +%Persistent +62194,50527.523865 +0 + + +%String + + + +DOM.PM.Product +1 + + + +DOM.LEV.Toelevering +1 + + + +%String + + + +%Date + + + +%String + + + +%Integer +1 + + + +%Integer +1 + + + +%Date +1 + + + +%String + + + +1 +1 +ProductNr,WSubscript +1 + + + +1 +%Status + + + + +%Integer + + + + +%Date + + + + +%Date + + + + +%CacheSQLStorage +^DOM.VKP.imp5D4.ToelevLijnIn815S + +data +^KPR + +{ProductNr} +0.1 + + +{WSubscript} +"W 0.0T" +"W 0.0Tz" + + +"\" +1 + + +"\" +2 + + +"\" +3 + + + + + + Index: DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml =================================================================== diff -u -r903 -r1012 --- DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml (.../HaluxWerkoverzichtHelper.cls.xml) (revision 903) +++ DOM/PM/Maatwerk/TBX/HaluxWerkoverzichtHelper.cls.xml (.../HaluxWerkoverzichtHelper.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + BL.Derde.LevSpecifiek 1 %RegisteredObject -62138,60875.345067 +62195,44033.744859 0 @@ -96,10 +96,10 @@ %SQLQuery DatumVan:%Date,DatumTot:%Date -= :DatumVan AND WPPers_FirstChanged < :DatumTot]]> - + Index: APPS/Halux/common/BatchService.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/Halux/common/BatchService.cls.xml (.../BatchService.cls.xml) (revision 994) +++ APPS/Halux/common/BatchService.cls.xml (.../BatchService.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62188,36577.268402 +62194,51785.880265 0 @@ -80,14 +80,20 @@ + + +AantalDagen:%Integer=30 + :AantalDagen AND IsActief = 0) +]]> + - + Index: DOM/PM/impl/DataM/DataMProduct.cls.xml =================================================================== diff -u -r994 -r1012 --- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 994) +++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + BL.Kenm.Common 1 %RegisteredObject -62187,43895.729068 +62193,49101.267172 62159,61822.534455 0 @@ -209,6 +209,12 @@ ]]> + +%Date + + + DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie %ListOfDataTypes - + Index: APPS/Halux/Planning/impl/ProductInfo.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/Halux/Planning/impl/ProductInfo.cls.xml (.../ProductInfo.cls.xml) (revision 994) +++ APPS/Halux/Planning/impl/ProductInfo.cls.xml (.../ProductInfo.cls.xml) (revision 1012) @@ -1,23 +1,16 @@ - + persistent 1 %Persistent -62178,28696.68892 +62193,44043.690545 0 %Integer - - - - APPS.Halux.Planning.enu.Categorie @@ -34,17 +27,14 @@ %String - - - - %Integer + +%Integer + + ToeleveringInfoID @@ -101,5 +91,5 @@ - + Index: APPS/Halux/Planning/impl/Queries.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/Halux/Planning/impl/Queries.cls.xml (.../Queries.cls.xml) (revision 994) +++ APPS/Halux/Planning/impl/Queries.cls.xml (.../Queries.cls.xml) (revision 1012) @@ -1,92 +1,195 @@ - + 1 %RegisteredObject -62179,49271.111348 +62199,57863.082972 0 + +%SQLQuery +ToeleveringNummer:%Integer + SELECT * FROM APPS_Halux_Planning_impl.ProductInfo + + %SQLQuery Van:%Date,Tot:%Date %SQLQuery Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie + GROUP BY CAST(TI.Gepland As DATE), AI.Naam, TI.ToeleveringNummer, PI.ToeleveringLijnNr]]> + +%SQLQuery +Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie + 'Impliciet' THEN 1 ELSE 0 END) As IsInfoBeschikbaar, TI.Klant, TI.LeverImpact, TI.ProductieStatus, TI.ToeleveringNummer, SUM(PI.Aantal) As Aantal, PI.ProductCode, max(PI.StockProbleem) As StockProbleem, PI.VerpakkingType, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUFrees_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUFrees_VM, + COALESCE(Sum(ResourceGebruik_ALUFrees_Hoeveelheid*PI.Aantal),0) As ALUFrees, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUOperator_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUOperator_VM, + COALESCE(Sum(ResourceGebruik_ALUOperator_Hoeveelheid*PI.Aantal),0) As ALUOperator, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_ALUZaag_Hoeveelheid*PI.Aantal ELSE 0 END),0) As ALUZaag_VM, + COALESCE(Sum(ResourceGebruik_ALUZaag_Hoeveelheid*PI.Aantal),0) As ALUZaag, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_Bewerkingscenter_Hoeveelheid*PI.Aantal ELSE 0 END),0) As Bewerkingscenter_VM, + COALESCE(Sum(ResourceGebruik_Bewerkingscenter_Hoeveelheid*PI.Aantal),0) As Bewerkingscenter, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastInpak_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastInpak_VM, + COALESCE(Sum(ResourceGebruik_HoekkastInpak_Hoeveelheid*PI.Aantal),0) As HoekkastInpak, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastMontage_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastMontage_VM, + COALESCE(Sum(ResourceGebruik_HoekkastMontage_Hoeveelheid*PI.Aantal),0) As HoekkastMontage, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_HoekkastZaag_Hoeveelheid*PI.Aantal ELSE 0 END),0) As HoekkastZaag_VM, + COALESCE(Sum(ResourceGebruik_HoekkastZaag_Hoeveelheid*PI.Aantal),0) As HoekkastZaag, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_Houtzaag_Hoeveelheid*PI.Aantal ELSE 0 END),0) As Houtzaag_VM, + COALESCE(Sum(ResourceGebruik_Houtzaag_Hoeveelheid*PI.Aantal),0) As Houtzaag, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_KartonMachine_Hoeveelheid*PI.Aantal ELSE 0 END),0) As KartonMachine_VM, + COALESCE(Sum(ResourceGebruik_KartonMachine_Hoeveelheid*PI.Aantal),0) As KartonMachine, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPers1_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPers1_VM, + COALESCE(Sum(ResourceGebruik_TBXPers1_Hoeveelheid*PI.Aantal),0) As TBXPers1, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPers2_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPers2_VM, + COALESCE(Sum(ResourceGebruik_TBXPers2_Hoeveelheid*PI.Aantal),0) As TBXPers2, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPers3_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPers3_VM, + COALESCE(Sum(ResourceGebruik_TBXPers3_Hoeveelheid*PI.Aantal),0) As TBXPers3, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_TBXPicking_Hoeveelheid*PI.Aantal ELSE 0 END),0) As TBXPicking_VM, + COALESCE(Sum(ResourceGebruik_TBXPicking_Hoeveelheid*PI.Aantal),0) As TBXPicking, + COALESCE(Sum(CASE WHEN {fn HOUR(TI.Gepland)} < 13 THEN ResourceGebruik_Voormontage_Hoeveelheid*PI.Aantal ELSE 0 END),0) As Voormontage_VM, + COALESCE(Sum(ResourceGebruik_Voormontage_Hoeveelheid*PI.Aantal),0) As Voormontage + FROM APPS_Halux_Planning_impl.ToeleveringInfo TI + JOIN APPS_Halux_Planning_impl.ProductInfo PI ON TI.ID = PI.ToeleveringInfoID + JOIN APPS_Halux_Planning_impl.ActiviteitInfo AI ON PI.ID = AI.ProductInfoID + WHERE CAST(TI.Gepland As DATE) = :Datum AND ((:Categorie is null) OR (PI.Categorie = :Categorie)) + GROUP BY TI.ToeleveringNummer]]> + + + +1 +Toeleveringen:%ListOfDataTypes +%String + + + %SQLQuery SELECT DISTINCT ToeleveringNummer FROM APPS_Halux_Planning_impl.ToeleveringInfo ORDER BY ToeleveringNummer ASC - + Index: BL/Derde/Agenda/Agenda.cls.xml =================================================================== diff -u -r994 -r1012 --- BL/Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 994) +++ BL/Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 1012) @@ -1,12 +1,12 @@ - + d ##class(BL.Derde.Agenda.Agenda).RijdenWerkPriveAll() BL.EC.Common 1 %RegisteredObject -62179,50771.446053 +62194,47860.44092 59994,36389.667445 0 @@ -435,7 +435,7 @@ ]]> - + Include lijst met ";" gescheiden: - KT : KlantTekst @@ -449,6 +449,9 @@ 1 Agenda:Derde.Agenda.Agenda,Include:%String="KT;IT;VT;GM;EM",Format:%String="" + + +Include lijst met ";" gescheiden: +- KT : KlantTekst +- IT : InternTekst +- VT : VanTijd - TotTijd +- GM : GesprokenMet +- EM : EmailExtern +- KB : KlantBijgeleerd +- KO : KlantBemerkingen +- IA : Interacties +- EG : Eindgebruiker +- AR : Architect +- CA : Catering +- AL : Aanleiding +Format : + - TP : TxtPop met ª (supperscript a) + - HTML : +1 +Agenda:Derde.Agenda.Agenda,Include:%String="KT;IT;VT;GM;EM;KB;KO;IA;EG;AR;CA;AL",Format:%String="" +",1:"") + #define UnderLineOff $S(Format="TP":"ªu",Format="HTML":"",1:"") + + ;If $TR(Agenda.KlantTekst,"~ ","")="",$TR(Agenda.InternTekst,"~ ","")="" Quit "" ; Geen tekst ingevuld + If (Include["KT"),(Include'["IT"),$TR(Agenda.KlantTekst,"~ ","")="" Quit "" ; Alleen KlantTekst zonder InterneTekst en KlantTekst is leeg + + Set (Tekst,GesprokenMetTekst,ExternTo)="" + If Include["KT",$L($TR(Agenda.KlantTekst,"~ ","")) Do + . Set:Include["IT" Tekst=Tekst_$$$UnderLineOn_"Klant"_$$$UnderLineOff_":~" + . Set Tekst=Tekst_Agenda.KlantTekst_"~~" + If Include["IT"&&$L($TR(Agenda.InternTekst,"~ ","")) Do + . Set:Include["KT" Tekst=Tekst_$$$UnderLineOn_"Intern"_$$$UnderLineOff_":~" + . Set Tekst=Tekst_Agenda.InternTekst_"~~" + + ; Naar welke externe personen de agenda verzonden is + Set Ref="" + For Set GesprokenMet=Agenda.GesprokenMet.GetNext(.Ref) Quit:Ref="" Do + . If GesprokenMet.Gesproken,GesprokenMet.Naam'="" Set GesprokenMetTekst=GesprokenMetTekst_$LB(GesprokenMet.Naam) + . If GesprokenMet.eMailNaar,GesprokenMet.eMail?1.E1"@"1.E Set ExternTo=ExternTo_$LB(GesprokenMet.eMail) + + Set:Include["GM"&&$L(GesprokenMetTekst) Tekst=Tekst_$$$UnderLineOn_"Gesproken met"_$$$UnderLineOff_": "_$$ListToPieces^vhLib(GesprokenMetTekst,", ")_"~" + Set:Include["EM"&&$L(ExternTo) Tekst=Tekst_$$$UnderLineOn_"Email naar"_$$$UnderLineOff_": "_$$ListToPieces^vhLib(ExternTo,", ")_"~" + Set:Include["VT" Tekst=Tekst_$$$UnderLineOn_"Van"_$$$UnderLineOff_": "_$ZT(Agenda.TijdVan,2) + Set:Include["VT" Tekst=Tekst_" "_$$$UnderLineOn_"tot"_$$$UnderLineOff_": "_$ZT(Agenda.TijdTot,2) + + If Include["KB" Do + . Set KlantBijgeleerd=implVerslagDetail.GeefKlantBijgeleerd() + . Set:$L(KlantBijgeleerd) Tekst=Tekst_"~"_$$$UnderLineOn_"Klant bijgeleerd"_$$$UnderLineOff_": "_KlantBijgeleerd + If Include["KO" Do + . Set KlantBemerkingen=implVerslagDetail.GeefKlantBemerkingen() + . Set:$L(KlantBijgeleerd) Tekst=Tekst_"~"_$$$UnderLineOn_"Klant opmerkingen"_$$$UnderLineOff_": "_KlantBemerkingen + If Include["IA" + { + Set Interacties=implVerslagDetail.GeefInteracties() + Set Tekst = Tekst_"~"_$$$UnderLineOn_"Doel"_$$$UnderLineOff_": ~" + Set LijnIterator = ##class(TECH.PiecesIterator).%New(Interacties,$$$CRLF) + Set LengteEersteKolom = 10 + While (LijnIterator.HasNext()) + { + Set Lijn = LijnIterator.Next() + Set Kolom1 = $Piece(Lijn,$$$TAB,1) + If (Kolom1 '= "") { Set LengteEersteKolom = $Length(Kolom1) } + Set Kolom2 = $Piece(Lijn,$$$TAB,2) + Set Kolom3 = $Piece(Lijn,$$$TAB,3) + If (Lijn '= "") + { + Set Tekst = Tekst_$J(Kolom1,LengteEersteKolom)_" - "_Kolom2_$S($L(Kolom3):": "_Kolom3,1:"")_"~" + } + Else + { + Set Tekst = Tekst_"~" + } + } + } + If Include["EG" Do + . Set Eindgebruiker=implVerslagDetail.GeefEindgebruiker() + . Set:$L(Eindgebruiker) Tekst=Tekst_"~"_$$$UnderLineOn_"Eindgebruiker"_$$$UnderLineOff_": "_Eindgebruiker + If Include["AR" Do + . Set Architect=implVerslagDetail.GeefArchitect() + . Set:$L(Architect) Tekst=Tekst_"~"_$$$UnderLineOn_"Architect"_$$$UnderLineOff_": "_Architect + If Include["CA" Do + . Set Catering=implVerslagDetail.GeefCatering() + . Set:$L(Catering) Tekst=Tekst_"~"_$$$UnderLineOn_"Catering"_$$$UnderLineOff_": "_Catering + If Include["AL" Do + . Set Aanleiding=implVerslagDetail.GeefAanleiding() + . Set:$L(Aanleiding) Tekst=Tekst_"~"_$$$UnderLineOn_"Lead"_$$$UnderLineOff_": "_Aanleiding + + For I=1:1:2 Set:$E(Tekst,$L(Tekst))="~" $E(Tekst,$L(Tekst))="" + + Quit Tekst +]]> + + Opslaan van klantgegevens om later automatisch op te halen @@ -889,6 +992,19 @@ ]]> + + +JBL + 2011-04-13 +1 +KLNr + + + comm overdracht van klantgegevens @@ -930,5 +1046,5 @@ ]]> - + Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml =================================================================== diff -u -r994 -r1012 --- DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml (.../IHalffabItemBuilder.cls.xml) (revision 994) +++ DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml (.../IHalffabItemBuilder.cls.xml) (revision 1012) @@ -1,5 +1,5 @@ - + TECH.Error 1 %Persistent -62189,56955.358357 +62192,38127.668468 62011,64827.377805 0 @@ -85,19 +85,8 @@ -%List -TECH.Iterator + @@ -138,13 +127,22 @@ If (..BuilderMoetWerken(IngegevenKenmerken)) { Set SelectieKenmerken=##class(%ArrayOfDataTypes).%New() + Set $ZTRAP = "FoutBereken" Do ..GenereerKenmerken(IngegevenKenmerken, .SelectieKenmerken) Set HalffabList = Context.SelecteerHalffabrikaten(SelectieKenmerken) Do ..FilterHalffabList(.HalffabList, IngegevenKenmerken, Context) Do ..ValideerHalffabList(.HalffabList) Set HalffabItem = ..GenereerHalffabItem(.HalffabList, IngegevenKenmerken, Context) + Set $ZTRAP = "" } Quit HalffabItem + +FoutBereken + Set $ZTRAP = "" + Set Exception = ##class(TECH.ExceptionHandler).Catch("DOM.PM.Maatwerk.Calc.HF.impl.HFItemBuilderException","DOM.PM.Maatwerk.Calc.HF.impl.Processor.ValidatieException") + Set HFItemBerekenException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException).%New(##this,SelectieKenmerken,Exception) + Do Context.LogExceptie(HFItemBerekenException) + Do ##class(TECH.ExceptionHandler).Throw(HFItemBerekenException) ]]> @@ -237,5 +235,5 @@ - + Index: DOM/VKP/impl/DataM/OrderLijnIndexOpPRNr.cls.xml =================================================================== diff -u --- DOM/VKP/impl/DataM/OrderLijnIndexOpPRNr.cls.xml (revision 0) +++ DOM/VKP/impl/DataM/OrderLijnIndexOpPRNr.cls.xml (revision 1012) @@ -0,0 +1,123 @@ + + + +persistent +1 +VHOpslag +%Persistent +62194,50518.414832 +0 + + +%String + + + +DOM.PM.Product +1 + + + +DOM.OV.Order +1 + + + +%String + + + +%Date + + + +%String + + + +%Integer +1 + + + +%Integer +1 + + + +%Date +1 + + + +%String + + + +1 +1 +ProductNr,WSubscript +1 + + + +1 +%Status + + + + +%Integer + + + + +%Date + + + + +%Date + + + + +%CacheSQLStorage + +data +^KPR + +{ProductNr} +0.1 + + +{WSubscript} +"W 0.0R" +"W 0.0Rz" + + +"\" +1 + + +"\" +2 + + +"\" +3 + + + + + + Index: APPS/Halux/Opvolging/ProductieHistoriek.cls.xml =================================================================== diff -u -r917 -r1012 --- APPS/Halux/Opvolging/ProductieHistoriek.cls.xml (.../ProductieHistoriek.cls.xml) (revision 917) +++ APPS/Halux/Opvolging/ProductieHistoriek.cls.xml (.../ProductieHistoriek.cls.xml) (revision 1012) @@ -1,21 +1,21 @@ - + 1 %RegisteredObject -62129,29082.299673 +62195,29898.298413 62124,49675.85908 0 Toont alle items die een verschillend aantal gerecepteerde laden hebben ten opzichte van aantal geperste %SQLQuery - %SQLQuery - SELECT P.*, B.Line As Lijn FROM APPS_Halux_Opvolging_impl.ProductieHistoriekItem P - JOIN PPS.Batch B ON B.ID = P.BatchID + SELECT P.*, B.Lijn FROM APPS_Halux_Opvolging_impl.ProductieHistoriekItem P + JOIN APPS_Halux_common_impl.BatchImpl B ON B.ID = P.BatchID 1 @@ -41,12 +41,11 @@ SELECT P.ID, P.BatchID, P.Toelevering, P.ToeleveringsLijn, Count(1) As AantalLaden, TO_DATE((SELECT Min(Tijd) FROM APPS_Halux_Opvolging_impl.ProductieHistoriekItem WHERE P.BatchID = BatchID AND P.Toelevering = Toelevering AND P.ToeleveringsLijn = ToeleveringsLijn GROUP BY BatchID, Toelevering, ToeleveringsLijn),'YYYY-MM-DD') As ProductieDatum - , B.Line As Lijn + , B.Lijn FROM APPS_Halux_Opvolging_impl.ProductieHistoriekItem P - JOIN PPS.Batch B ON B.ID = P.BatchID + JOIN APPS_Halux_common_impl.BatchImpl B ON B.ID = P.BatchID WHERE Bron = "Receptie" GROUP BY BatchID, Bron, Toelevering, ToeleveringsLijn - ) GROUP BY ProductieDatum,Lijn @@ -66,5 +65,5 @@ 1 - + Index: APPS/PM/enu/CommercieelActiefType.cls.xml =================================================================== diff -u -r937 -r1012 --- APPS/PM/enu/CommercieelActiefType.cls.xml (.../CommercieelActiefType.cls.xml) (revision 937) +++ APPS/PM/enu/CommercieelActiefType.cls.xml (.../CommercieelActiefType.cls.xml) (revision 1012) @@ -1,19 +1,19 @@ - + datatype 1 %String -62164,37715.198576 +62192,41047.200748 62164,33506.947699 0 -,Actief,NietActief +,Actief,NietActief,BeperktActief -;Actief,Niet Actief +;Actief,Niet Actief,Beperkt Actief @@ -27,6 +27,12 @@ + + +1 + + - + Index: DOM/PM/Maatwerk/Calc/HF/HalffabSpec.cls.xml =================================================================== diff -u -r903 -r1012 --- DOM/PM/Maatwerk/Calc/HF/HalffabSpec.cls.xml (.../HalffabSpec.cls.xml) (revision 903) +++ DOM/PM/Maatwerk/Calc/HF/HalffabSpec.cls.xml (.../HalffabSpec.cls.xml) (revision 1012) @@ -1,5 +1,5 @@ - + Deze spec specificeert voor een maatwerkproduct welke halffabrikaten @@ -28,7 +28,7 @@ TECH.Error 1 %Persistent -62146,66548.098455 +62192,29867.510236 62010,56862.391972 0 @@ -108,7 +108,7 @@ { Set Dependency = IteratorDependencies.Next() Set AfhankelijkVanBuilder=ItemBuilders.GetAt(Dependency) - If '$IsObject(AfhankelijkVanBuilder) $$$ThrowError($$$errGeneralError,"Geen Builder voor de Rol AfhankelijkVan "_$LI(lbDependencies,i)) + If '$IsObject(AfhankelijkVanBuilder) Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen Builder voor de Rol AfhankelijkVan "_$LI(lbDependencies,i))) Do DependencyGraph.AddDependencyByNodeName(Builder.GeefRol(),AfhankelijkVanBuilder.GeefRol()) } } @@ -194,5 +194,5 @@ - + Index: BL/Prod/SearchBuildIndex.cls.xml =================================================================== diff -u -r901 -r1012 --- BL/Prod/SearchBuildIndex.cls.xml (.../SearchBuildIndex.cls.xml) (revision 901) +++ BL/Prod/SearchBuildIndex.cls.xml (.../SearchBuildIndex.cls.xml) (revision 1012) @@ -1,5 +1,5 @@ - + Build of the productindexen. @@ -9,7 +9,7 @@ %Prod.Product,BL.Prod 1 %RegisteredObject -62137,53986.104624 +62193,50032.668178 61648,40563.312 0 @@ -93,11 +93,26 @@ PRNr + + +JBL + 2011-04-12 +PRNr:%Integer +1 + + + Delete for a product all the existing indexes @@ -527,5 +542,5 @@ - + Index: Derde/Agenda/Agenda.cls.xml =================================================================== diff -u -r994 -r1012 --- Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 994) +++ Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 1012) @@ -1,12 +1,12 @@ - + Table with all the AgendaItems persistent 1 %Persistent -62178,38935.999343 +62199,36180.028046 59994,36389.769598 0 @@ -125,6 +125,20 @@ + +Type met volgende mogelijkheden + +Onbep = * +Bezoek = B +Firma = F +Diverse = D +Prive = P +Stop = S +Beurs = M +Toonzaalbezoek = TZ +Telefoon = T +Rijden werk = R +Rijden prive = Q %String @@ -302,16 +316,29 @@ Set pxAgenda.SubID=Agenda.SubID Set pxAgenda.AutoCreate=Agenda.AutoCreate + Set pxAgenda.Straat=Agenda.Straat + Set pxAgenda.PostCode=Agenda.PostCode + Set pxAgenda.Gemeente=Agenda.Gemeente + Set pxAgenda.Land=Agenda.Land.Code ; - If $isObject(Agenda.Klant) Do . Set pxAgenda.DerdeType="K" . Set pxAgenda.DerdeRef=Agenda.Klant.%Id() . Set pxAgenda.DerdeNaam=Agenda.Klant.Naam + . if '$length(pxAgenda.Gemeente) do + . . set pxAgenda.Straat = Agenda.Klant.StraatNrBus + . . set pxAgenda.PostCode = Agenda.Klant.Postnummer + . . set pxAgenda.Gemeente = Agenda.Klant.Woonplaats + . . set pxAgenda.Land = Agenda.Klant.LandCode Else If $isObject(Agenda.Leverancier) Do . Set pxAgenda.DerdeType="L" . Set pxAgenda.DerdeRef=Agenda.Leverancier.%Id() . Set pxAgenda.DerdeNaam=Agenda.Leverancier.Naam + . if '$length(pxAgenda.Gemeente) do + . . set pxAgenda.Straat = Agenda.Leverancier.StraatNrBus + . . set pxAgenda.PostCode = Agenda.Leverancier.Postnummer + . . set pxAgenda.Gemeente = Agenda.Leverancier.Woonplaats + . . set pxAgenda.Land = Agenda.Leverancier.LandCode Else If Agenda.Prospect'="" Do . Set pxAgenda.DerdeType="P" . Set pxAgenda.DerdeRef="" @@ -328,10 +355,6 @@ . Set pxAgenda.InternTekst=Agenda.InternTekst . Set pxAgenda.KlantBijgeleerd=Agenda.KlantBijgeleerd . Set pxAgenda.KlantBemerkingen=Agenda.KlantBemerkingen - . Set pxAgenda.Straat=Agenda.Straat - . Set pxAgenda.PostCode=Agenda.PostCode - .Set pxAgenda.Gemeente=Agenda.Gemeente - .Set pxAgenda.Land=Agenda.Land.Code Set pxAgenda.Type=$S(Agenda.Type="":"B",1:Agenda.Type) ; Defaulting naar bezoek als nog niet is gedefinieerd @@ -560,5 +583,5 @@ - + Index: APPS/Halux/common/Batch.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/Halux/common/Batch.cls.xml (.../Batch.cls.xml) (revision 994) +++ APPS/Halux/common/Batch.cls.xml (.../Batch.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 1 -62188,34981.915456 +62199,50886.42971 0 @@ -55,6 +55,20 @@ 1 %Boolean + + +%Library.CacheStorage +^APPS.Halux.common.BatchD +BatchDefaultData +^APPS.Halux.common.BatchD +^APPS.Halux.common.BatchI +^APPS.Halux.common.BatchS + + +%%CLASSNAME + + + - + Index: DOM/OV/impl/DataM/OrderLijnIndexOpPRNr.cls.xml =================================================================== diff -u --- DOM/OV/impl/DataM/OrderLijnIndexOpPRNr.cls.xml (revision 0) +++ DOM/OV/impl/DataM/OrderLijnIndexOpPRNr.cls.xml (revision 1012) @@ -0,0 +1,136 @@ + + + +persistent +1 +VHOpslag +%Persistent +62195,34761.336747 +0 + + +%String + + + +DOM.PM.Product +1 +1 + + + +DOM.OV.Order +1 +1 + + + +%String + + + +%Date + + + +%String + + + +%Integer +1 + + + +%Integer +1 + + + +%Date +1 + + + +%String + + + +1 +1 +ProductNr,WSubscript +1 + + + +%Integer + + + + +%Date + + + + +%Date + + + + +DOM.PM.Product + + + + +DOM.OV.Order + + + + +%CacheSQLStorage +^DOM.OV.impl588.OrderLijnInd7A2S + +data +^KPR + +{ProductNr} +0.1 + + +{WSubscript} +"W 0.0R" +"W 0.0Rz" + + +"\" +1 + + +"\" +2 + + +"\" +3 + + + + + + Index: APPS/PM/OL/Export/impl/OrgaluxGammaExporter.cls.xml =================================================================== diff -u -r917 -r1012 --- APPS/PM/OL/Export/impl/OrgaluxGammaExporter.cls.xml (.../OrgaluxGammaExporter.cls.xml) (revision 917) +++ APPS/PM/OL/Export/impl/OrgaluxGammaExporter.cls.xml (.../OrgaluxGammaExporter.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + DOM.PM.OL,BL.Derde.KlantSpecifiek,TECH.Error 1 APPS.PM.OL.Export.IOrgaluxGammaExporter -62138,58018.608022 +62192,54052.787252 0 @@ -174,5 +174,5 @@ ]]> - + Index: APPS/LEV/impl/ConvertDOMtoAPPSenu.cls.xml =================================================================== diff -u --- APPS/LEV/impl/ConvertDOMtoAPPSenu.cls.xml (revision 0) +++ APPS/LEV/impl/ConvertDOMtoAPPSenu.cls.xml (revision 1012) @@ -0,0 +1,33 @@ + + + + +JBL + 2011-04-18 +1 +%RegisteredObject +62199,48763.79349 +0 + + +1 +LeverancierActiefStatus:DOM.LEV.enu.LeverancierActiefStatus +APPS.LEV.dto.LeverancierActiefStatus + + + + + Index: APPS/Halux/TBX/impl/ZaagBatchBuild.cls.xml =================================================================== diff -u -r917 -r1012 --- APPS/Halux/TBX/impl/ZaagBatchBuild.cls.xml (.../ZaagBatchBuild.cls.xml) (revision 917) +++ APPS/Halux/TBX/impl/ZaagBatchBuild.cls.xml (.../ZaagBatchBuild.cls.xml) (revision 1012) @@ -1,30 +1,30 @@ - + TECH.Error 1 %RegisteredObject,DOM.PM.TBXProduct.TBXProductVisitor -62137,71941.883629 +62199,45467.757102 62123,54831.264395 0 -DS.PPS.TBX.Batch +APPS.Halux.common.Batch -%RegisteredObject +DOM.PM.ProductAPI DS.PPS.TBX.Queue -BatchID +BatchID:%Integer %Status - + Index: APPS/Halux/Planning/PlanningService.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 994) +++ APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 1012) @@ -1,12 +1,12 @@ - + Service voor de Halux planningstool. Ondersteunt het visulaliseren van het resourcegebruik voor alle toeleveringen die reeds ingegeven zijn. 1 %RegisteredObject -62187,56801.852768 +62199,57640.655921 0 @@ -97,6 +97,19 @@ ]]> + + +Geeft de planningsdetails voor een bepaalde datum en een bepaalde categorie specifiek voor het toeleveringsscherm. +De categorie mag leeg zijn ("") in welk geval de details voor alle categorieen getoond worden. +Dag:%Date,Categorie:APPS.Halux.Planning.enu.Categorie +%XML.DataSet + + + Geeft de overzichtsinfo terug van de gevraagde dagen. @@ -120,6 +133,29 @@ ]]> + +ToeleveringNummer:%Integer +APPS.Halux.Planning.dto.ToeleveringDetail + + + AantalWeken:%Integer,ToeleveringNummers:%ListOfDataTypes APPS.Halux.Planning.dto.DueOutAlternatiefResultaat @@ -282,6 +318,100 @@ ]]> + +ToeleveringNummer:%Integer,AantalToeleveringen:%Integer,DrempelAantalProducten:%Integer +APPS.Halux.Planning.dto.SplitsToeleveringResultaat + DrempelAantalProducten) + { + Set Aantal = ProductToeleveringLijn.GeefAantal() + Set AantalPerToelevering = ##class(TECH.Math).Floor(Aantal / AantalToeleveringen) + If ((Aantal/AantalToeleveringen) '= AantalPerToelevering) { Set AantalPerToelevering = AantalPerToelevering + 1 } + //w Aantal_" "_AantalPerToelevering,! + Set NieuweLijnNummers = ##class(%ListOfDataTypes).%New() + While (Aantal > AantalPerToelevering) + { + Set Aantal = Aantal - AantalPerToelevering + Set $ZTRAP="SplitsFout" + //w "SplitsLijn("_ToeleveringNummer_" As %Integer, "_ProductToeleveringLijn.GeefLijnNr()_" As %Integer, "_Aantal_" As %Integer) As %Integer",! + Set $ZTRAP = "" + Do NieuweLijnNummers.Insert(NieuwLijnNummer) + Set NieuwLijnNummer = NieuwLijnNummer + 1 + } + + If (NieuweLijnNummers.Count() > 0) { Do NieuweLijnenPerLijn.Insert(NieuweLijnNummers) } + } + } + + For i = 1:1:AantalToeleveringen-1 + { + Set AfTeSplitsenLijnen = ##class(%ListOfDataTypes).%New() + //w "Splits toelevering " + For j = 1:1:NieuweLijnenPerLijn.Count() + { + If (NieuweLijnenPerLijn.GetAt(j).Count() '< i) + { + Do AfTeSplitsenLijnen.Insert(NieuweLijnenPerLijn.GetAt(j).GetAt(i)) + //w NieuweLijnenPerLijn.GetAt(j).GetAt(i)_" " + } + } + //w ! + Set $ZTRAP="SplitsFout" + // Splits toelevering en gooi event voor nieuwe toelevering + Set $ZTRAP="" + } + + TCOMMIT + + // Gooi event voor gewijzigde toelevering + + Set GewijzigdeToeleveringen = ##class(%ListOfObjects).%New() + If (NieuweLijnenPerLijn.Count() > 0) + { + Do GewijzigdeToeleveringen.Insert(Toelevering) + } + + + Set DataSet = ##class(%XML.DataSet).%New() + Do DataSet.Prepare(##class(APPS.Halux.Planning.impl.Queries).GeefPlanningDetailVoor(GewijzigdeToeleveringen)) + Set Resultaat.Wijzigingen = DataSet + + Set Resultaat.Boodschap = "Splitsen van toelevering "_ToeleveringNummer_" geslaagd" + + } + Else + { + Set Resultaat.Boodschap = ToeleveringNummer_" bestaat niet" + } + + Quit Resultaat + +SplitsFout + Set $ZTRAP = "" + TROLLBACK + Set Resultaat.Boodschap = ##class(TECH.ExceptionHandler).Catch().ToString() + Quit Resultaat +]]> + + Gebruiker:%String,Opmerking:%String,Datum:%Date,ToeleveringNummers:%ListOfDataTypes APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat @@ -374,7 +504,7 @@ Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI() Set GlobalToeleveringen = ##class(%ListOfObjects).%New() - Set ToeIterator = ToeleveringAPI.GeefLeverancierToeleveringIt(6332) + Set ToeIterator = ToeleveringAPI.GeefLeverancierHalux().GeefToeleveringIterator() While (ToeIterator.HasNext()) { Do GlobalToeleveringen.Insert(ToeIterator.Next()) } Set Index = 0 @@ -441,5 +571,5 @@ ]]> - + Index: DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml (revision 1012) @@ -0,0 +1,67 @@ + + + +1 +%RegisteredObject,TECH.IException +62192,38156.824409 +0 + + +DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder +1 + + + +%ArrayOfDataTypes +1 + + + +TECH.IException +1 + + + +HFItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,SelectieKenmerken:%ArrayOfDataTypes,InnerException:TECH.IException +1 +1 +%Status + + + + +%String + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + + Index: APPS/PM/OL/Export/impl/OrgaluxGammaExporterKQW.cls.xml =================================================================== diff -u -r917 -r1012 --- APPS/PM/OL/Export/impl/OrgaluxGammaExporterKQW.cls.xml (.../OrgaluxGammaExporterKQW.cls.xml) (revision 917) +++ APPS/PM/OL/Export/impl/OrgaluxGammaExporterKQW.cls.xml (.../OrgaluxGammaExporterKQW.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + DOM.PM.OL,BL.Derde.KlantSpecifiek 1 APPS.PM.OL.Export.impl.OrgaluxGammaExporter -62131,35487.362582 +62192,53364.822108 0 @@ -94,13 +94,10 @@ set LadeDesign = $listget(..ExportFilter.LadeDesigns,ctrDesign) set Waarden = Waarden _ $$ListToPieces^vhLib(..cvtLadeVariant2OLLadeFamilie(LadeDesign),";") } - d WLIP^vhDBG(195,"Waarden : "_Waarden) set KQP = ##class(DOM.PM.OL.Gamma.impl.KenmerkQueryParameter).%New("LadeFamilie",Waarden,$$$IncludeUndefs) do ..KenmerkQueryWaarden.Insert(KQP) } - d WLIP^vhDBG(195,"Waarden : "_..ExportFilter.LadeDesigns) - quit ]]> @@ -140,5 +137,5 @@ ]]> - + Index: APPS/PM/Maatwerk/OLM/OrgaluxOpMaatFactory.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/PM/Maatwerk/OLM/OrgaluxOpMaatFactory.cls.xml (.../OrgaluxOpMaatFactory.cls.xml) (revision 994) +++ APPS/PM/Maatwerk/OLM/OrgaluxOpMaatFactory.cls.xml (.../OrgaluxOpMaatFactory.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62185,27356.82012 +62195,55870.374774 0 @@ -33,7 +33,19 @@ { Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.PM.Maatwerk.OLM.OrgaluxOpMaatException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Er zijn geen in te korten producten in dit orgalux product")) } + + Set KenmPRNr = OrgaluxProduct.GeefPRNr() + Set lbMultiples = ##class(BL.Kenm.ProdMulti).Create("OL").GetMultiplesLB(KenmPRNr) + If (lbMultiples '= "") Set KenmPRNr = $LI(lbMultiples,1) + Set BreedteOLProduct = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",KenmPRNr,"LadeBreedteAangeraden"),1) + Set WandDikte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",KenmPRNr,"WandDikte"),1) + If (WandDikte = "") Set WandDikte = 18 + Set BreedteOLProduct = BreedteOLProduct - (2 * WandDikte) + If (InbouwBreedte >= BreedteOLProduct) + { + Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.PM.Maatwerk.OLM.OrgaluxOpMaatException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"De inbouwbreedte mag niet groter zijn dan het ORGALUX product")) + } Set OrgaluxProductOpMaat = "" Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() @@ -46,6 +58,23 @@ Merge ^PRBS("BS",PRNr) = ^PRBS("BS",OrgaluxProduct.GeefPRNr()) Merge ^KPR(PRNr) = ^KPR(OrgaluxProduct.GeefPRNr()) + For i=9,12,13,14,16,17 { Set $Piece(^KPR(PRNr,0),"\",i) = "" } + + Set $Piece(^KPR(PRNr,1),"\",9) = "" + + Set $Piece(^KPR(PRNr,2),"\",9) = "" + + // Optibox toestanden kopiëren + If ##class(BL.Prod.OptiBox.Optimize).HasOptiData("PR",OrgaluxProduct.GeefPRNr()) + { ; Heeft optibox data gekoppeld aan het product + Do ##class(BL.Prod.OptiBox.BoxData).%New().Copy("PR",OrgaluxProduct.GeefPRNr(),"PR",PRNr) + } + + If ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PRDUPLI_MagImagesCopieren"),##class(BL.Prod.ImageLink).HasImage(OrgaluxProduct.GeefPRNr()) + { ; Heeft images + Set sc=##class(BL.Prod.ImageLink).CopyViaPRNr(OrgaluxProduct.GeefPRNr(),PRNr) + } + Set $Piece(^KPR(PRNr,2),"\",25) = IdentNr // Bepalen van het product dat moet verwijderd worden @@ -67,15 +96,9 @@ // Bepalen van het verschil in lengte tussen het in te korten product en het orgalux product // Op deze manier kan de nieuwe lengte berekend worden voor het in te korten product zodat deze in de nieuwe lade past - Set KenmPRNr = OrgaluxProduct.GeefPRNr() - Set lbMultiples = ##class(BL.Kenm.ProdMulti).Create("OL").GetMultiplesLB(KenmPRNr) - If (lbMultiples '= "") Set KenmPRNr = $LI(lbMultiples,1) - Set BreedteOLProduct = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",KenmPRNr,"LadeBreedteAangeraden"),1) - Set WandDikte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",KenmPRNr,"WandDikte"),1) - If (WandDikte = "") Set WandDikte = 18 - Set BreedteOLProduct = BreedteOLProduct - (2 * WandDikte) Set AantalInTeKorten = InTeKortenKinderen.GetAt(1).GeefAantal() Set InTeKortenNaar = InbouwBreedte - (BreedteOLProduct - BreedteInTeKortenProduct) + Set IngekortProduct = ..BerekenIngekortProduct(InTeKortenPRNr, InTeKortenNaar, AantalInTeKorten) Set VrijLabel = $Order(^PRBS("BS",PRNr,"KIND.999"),-1) Set VolgendNr = $E(1000+$Piece(VrijLabel,".",2)+1,2,4) @@ -98,7 +121,7 @@ // Korttekst herwerken Set Korttekst = $Piece(^KPR(PRNr,0),"\",1) - Set $Piece(^KPR(PRNr,0),"\",1) = $Extract(Korttekst,1,11)_" KORT"_$J(InbouwBreedte,4)_$Extract(Korttekst,21,25) + Set $Piece(^KPR(PRNr,0),"\",1) = "IO."_$Extract(Korttekst,4,11)_" KORT"_$J(InbouwBreedte,4)_$Extract(Korttekst,21,25) // Classficiatie correct instellen Set Classificatie = 1328 @@ -197,6 +220,8 @@ Set NewPPL=$P(Som,"\") Do PRIJSUPD^PRBSC(PRNr,+$J(NewPPL,0,2),"A","") + Do BLDIND^PRBS(PRNr) + Quit ProductAPI.GeefProduct(PRNr) ]]> @@ -237,5 +262,5 @@ ]]> - + Index: BL/Derde/Klant/Main.cls.xml =================================================================== diff -u -r734 -r1012 --- BL/Derde/Klant/Main.cls.xml (.../Main.cls.xml) (revision 734) +++ BL/Derde/Klant/Main.cls.xml (.../Main.cls.xml) (revision 1012) @@ -1,13 +1,13 @@ - + Set BL=##class(BL.Derde.Klant.Main).%New() s Q=BL.Zoek(1051) f d Q.Next(.Ok) q:('Ok) w Ok,! -m Data=Q.Data zw Data +m Data=Q.Data zw Data BL.Derde.Derde 1 %RegisteredObject -60312,57599.728465 +62193,60409.95222 59994,36389.731496 0 @@ -97,6 +97,81 @@ Write $$ParseStatus^vhLib(Status) ]]> + + + +w ##class(BL.Derde.Klant.Main).OmzetTrend(5209) +1 +KLNr + ",Omz,! + . ; Sommering 3 maanden + . If I<13 Do + . . Do ..Compare(3,1,3,Omz,.Omz) + . Else Do + . .Set Omz(3)=Omz(3)+Omz + . ; Sommering 2 maanden + . If I<14,I>1 Do + . . Do ..Compare(2,1,2,Omz,.Omz) + . Else If I>13 Do + . .Set Omz(2)=Omz(2)+Omz + . ; Sommering 1 maand + . If I<15,I>2 Do + . . Do ..Compare(1,1,1,Omz,.Omz) + . Else If I>14 Do + . .Set Omz(1)=Omz(1)+Omz + + + ;w ! + ;K %Omz m %Omz=Omz zw %Omz + ;w ! + + ; Analyze + Set Result="" + For Grp=1:1:3 Do + . Set (Som,Aantal)=0 + . For I=1:1:Grp Do:Omz(Grp,I)<$$$Max + . . Set Aantal=Aantal+1 + . . Set Som=Som+Omz(Grp,I) + . Quit:'Aantal + . Set Omz(Grp)=(Omz(Grp)/Grp)_"\"_(Som/Aantal) ; Laatste Omzet \ Minimum Omzet + . If $P(Omz(Grp),"\") < ($P(Omz(Grp),"\",2)*$$$ReduceOmzet) Set Result=$TR($J("",Grp)," ","-"),$P(Omz(Grp),"\",3)=Result ; De MinOmzet wordt verkleind, dit om kleine afwijkingen toe te laten. + . ;Write Grp," LstOmz: "_$J($P(Omz(Grp),"\"),0,0)_" < MinOmz:"_$J($P(Omz(Grp),"\",2),0,0)," * ",$$$ReduceOmzet," = result: "_$P(Omz(Grp),"\",3),! + ;W ! + ;W !,"*** ",Result," ***" + + Quit Result +]]> + + + + +Hulproutine voor OmzetTrend +1 +Grp,FromI,Max,CompOmz,Omz +1 ; geen omzet in de maand + For J=FromI:1:Max If Omz(Grp,J)>CompOmz Do Quit + . Do ..Compare(Grp,J,Max,Omz(Grp,J),.Omz) ; Recursief + . Set Omz(Grp,J)=CompOmz + Quit +]]> + - + Index: DOM/PM/Maatwerk/Calc/HF/impl/Processor/HFItemProcessorLinksRechts.cls.xml =================================================================== diff -u -r734 -r1012 --- DOM/PM/Maatwerk/Calc/HF/impl/Processor/HFItemProcessorLinksRechts.cls.xml (.../HFItemProcessorLinksRechts.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/Processor/HFItemProcessorLinksRechts.cls.xml (.../HFItemProcessorLinksRechts.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor -62054,37258.946177 +62192,29333.900346 0 @@ -12,15 +12,18 @@ - + Index: DS/PPS/TBX/Queue.cls.xml =================================================================== diff -u -r904 -r1012 --- DS/PPS/TBX/Queue.cls.xml (.../Queue.cls.xml) (revision 904) +++ DS/PPS/TBX/Queue.cls.xml (.../Queue.cls.xml) (revision 1012) @@ -1,12 +1,12 @@ - + persistent BL.Prod.OptiBox,BL.PPS.TBX.Common 1 TBX_Queue %Persistent -62136,29896.837999 +62194,48374.756998 60975,59669.195427 0 @@ -88,7 +88,7 @@ %Boolean 1 - +Set {*}=##class(DS.PPS.TBX.Queue).%OpenId({ID}).BatchActief 1 @@ -105,11 +105,12 @@ - -If the Batch exists in the new data structure: we check the property NotActive -If the Batch exists in het old data structure: we check the date field in ^HATBX %Boolean - @@ -287,5 +288,5 @@ - + Index: APPS/common/GUI/DataGridService.cls.xml =================================================================== diff -u -r946 -r1012 --- APPS/common/GUI/DataGridService.cls.xml (.../DataGridService.cls.xml) (revision 946) +++ APPS/common/GUI/DataGridService.cls.xml (.../DataGridService.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62167,29099.814964 +62195,30311.48983 0 @@ -25,6 +25,8 @@ Set KolomInfo.IsZichtbaar = KolomData.IsZichtbaar() Set KolomInfo.Volgnummer = KolomData.GeefVolgnummer() Set KolomInfo.KolomID = KolomData.GeefKolomID() + Set KolomInfo.IsGroep = KolomData.IsGroep() + Set KolomInfo.OuderGroepID = KolomData.GeefOuderGroepID() Do KolomInfoLijst.Lijst.Insert(KolomInfo) } } @@ -48,7 +50,7 @@ While(KolomInfoIterator.HasNext()) { Set KolomInfo = KolomInfoIterator.Next() - Set KolomInfoData = ##class(APPS.common.GUI.impl.KolomInfo).%New(KolomInfo.KolomID,KolomInfo.Breedte,KolomInfo.IsZichtbaar,KolomInfo.Volgnummer) + Set KolomInfoData = ##class(APPS.common.GUI.impl.KolomInfo).%New(KolomInfo.KolomID,KolomInfo.Breedte,KolomInfo.IsZichtbaar,KolomInfo.Volgnummer,KolomInfo.IsGroep,KolomInfo.OuderGroepID) Do KolomInfoDataLijst.Insert(KolomInfoData) } Do DataGrid.ZetKolomInfo(KolomInfoDataLijst) @@ -63,5 +65,5 @@ ]]> - + Index: APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 994) +++ APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor -62180,53884.910591 +62199,33332.493296 0 @@ -16,18 +16,38 @@ 1 + +DOM.LEV.Toelevering +1 + + %ArrayOfObjects 1 + +%ListOfDataTypes +1 + + + +APPS.Halux.common.Batch +1 + + -Product:DOM.PM.TBXProduct.TBXLade +Toelevering:DOM.LEV.Toelevering,Batch:APPS.Halux.common.Batch,Product:DOM.PM.TBXProduct.TBXLade 1 1 %Status @@ -97,11 +117,43 @@ Item:DOM.PM.Maatwerk.Calc.Kost.ActiviteitKostItem %Status @@ -139,8 +191,8 @@ Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX TIP-ON bewerkingen",-3), 5) Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX spoelbak/sifon bewerkingen",-1), 6) Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX spoelbak/sifon bewerkingen",-1), 7) - Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 8) - Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 9) + Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 8) // lijn 1 + Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX lijnwerk",-1), 9) // lijn 2 Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX verpakking V1",0), 11) Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX onderdelen",-2), 12) Do ..ActiviteitenMap.SetAt(##class(APPS.Halux.Planning.impl.ActiviteitInfo).%New("TBX zijkanten",-2), 13) @@ -153,5 +205,5 @@ ]]> - + Index: APPS/PM/ProductOpOrderLijnIt.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/PM/ProductOpOrderLijnIt.cls.xml (.../ProductOpOrderLijnIt.cls.xml) (revision 994) +++ APPS/PM/ProductOpOrderLijnIt.cls.xml (.../ProductOpOrderLijnIt.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 TECH.Iterator,%RegisteredObject -62180,28851.823345 +62195,36325.22245 62173,58336.861889 0 @@ -28,22 +28,22 @@ -ProductNr:%Integer +Product:DOM.PM.Product 1 1 %Status HuidigeIndex:%Integer 1 -%String +DOM.OV.Orderlijn 1 %Integer - + Index: APPS/PM/ProductOpToeleveringLijnIt.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/PM/ProductOpToeleveringLijnIt.cls.xml (.../ProductOpToeleveringLijnIt.cls.xml) (revision 994) +++ APPS/PM/ProductOpToeleveringLijnIt.cls.xml (.../ProductOpToeleveringLijnIt.cls.xml) (revision 1012) @@ -1,9 +1,10 @@ - + 1 TECH.Iterator,%RegisteredObject -62173,56286 +62195,36271.910217 +0 %Integer @@ -21,15 +22,14 @@ -ProductNr:%Integer +Product:DOM.PM.Product 1 1 %Status @@ -41,7 +41,6 @@ set Toelev = $piece(HuidigeIndex,",",1) set LijnNr = ..VolgendeLijn quit ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(Toelev).GeefToeleveringLijn(LijnNr) - ]]> @@ -50,8 +49,7 @@ 1 %Integer %Boolean - @@ -84,16 +79,13 @@ Set HuidigeLijn = ..GeefLijn(HuidigeIndex) Do ..BepaalVolgendeIndex(HuidigeIndex) Quit HuidigeLijn - ]]> Lijn:%String %Boolean - @@ -103,9 +95,8 @@ - + Index: DOM/PM/impl/DataM/Bouwstenen/BouwsteenKindIndex.cls.xml =================================================================== diff -u --- DOM/PM/impl/DataM/Bouwstenen/BouwsteenKindIndex.cls.xml (revision 0) +++ DOM/PM/impl/DataM/Bouwstenen/BouwsteenKindIndex.cls.xml (revision 1012) @@ -0,0 +1,76 @@ + + + +persistent +1 +VHOpslag +%Persistent +62195,40380.655816 +0 + + +13868 + + + +%Integer + + + +%Integer + + + +%String + + + +DOM.PM.enu.BouwsteenType + + + +1 +1 +KindProductNr,MoederProductNr,KindBSKey +1 + + + +%CacheSQLStorage +^DOM.PM.impl9D8.BouwsteenKin73AS + +20.0000% + + +7.6923% + + +0.5986% + + +0.0257% + + +data +^PRBS + +"IP" + + +{KindProductNr} + + +{MoederProductNr} + + +{KindBSKey} + + +"\" +1 + + + + + + Index: DOM/CRM/Stat/dto/KlantBeoordeling.cls.xml =================================================================== diff -u -r946 -r1012 --- DOM/CRM/Stat/dto/KlantBeoordeling.cls.xml (.../KlantBeoordeling.cls.xml) (revision 946) +++ DOM/CRM/Stat/dto/KlantBeoordeling.cls.xml (.../KlantBeoordeling.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek,%VHMacro,BL.EC.Common,%Prod.Product,TECH.Error 1 %RegisteredObject -62167,39855.436322 +62194,54428.806407 61807,38311.621993 0 @@ -132,7 +132,7 @@ Set ..KlantNr=Klant.GeefNummer() Set ..KlantNaam=Klant.GeefNaam() Set ..Regio=Klant.GeefRegio() - Set ..LandCode=Klant.GeefLandCode() + Set ..LandCode=Klant.GeefAdres().GeefLandCode() Set ..FactuurType=$S(Factuur.%ClassName()["Proforma":"P",1:"F") Set ..FactuurNr=Factuur.GeefNr() ]]> @@ -204,5 +204,5 @@ ]]> - + Index: BL/PPS/TBX/WPAbstract.cls.xml =================================================================== diff -u -r734 -r1012 --- BL/PPS/TBX/WPAbstract.cls.xml (.../WPAbstract.cls.xml) (revision 734) +++ BL/PPS/TBX/WPAbstract.cls.xml (.../WPAbstract.cls.xml) (revision 1012) @@ -1,5 +1,5 @@ - + Production Process Steering - Tandembox @@ -8,7 +8,7 @@ %Prod.Product,BL.Prod.OptiBox,BL.PPS.TBX.Common,BL.Sys.Toegang,BL.Sys.Proxy 1 %RegisteredObject -61992,44432.511766 +62195,29226.666654 60974,31787.985868 0 @@ -168,7 +168,7 @@ %SQLQuery - SELECT ID As BatchID FROM PPS.Batch Where NotActive = 0 + SELECT ID As BatchID FROM APPS_Halux_common_impl.BatchImpl Where IsActief = 1 ORDER BY ID @@ -189,5 +189,6 @@ KLNr,TOENr,TLUNr,PRNr,Qty - + + Index: DOM/PM/Maatwerk/Calc/HF/impl/Processor/ExactEenValidator.cls.xml =================================================================== diff -u -r734 -r1012 --- DOM/PM/Maatwerk/Calc/HF/impl/Processor/ExactEenValidator.cls.xml (.../ExactEenValidator.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/impl/Processor/ExactEenValidator.cls.xml (.../ExactEenValidator.cls.xml) (revision 1012) @@ -1,36 +1,36 @@ - + TECH.Error 1 %RegisteredObject -62054,63462.990948 +62192,29419.627235 0 %Boolean 1 { - Set ValidatieBericht="Voor Rol XXX: meer dan 1 halffab gevonden voor de ""IngegevenKenmerken"" en de ""SelectieKenmerken"". ?zie logging?" - Set IsValid=0 + ElseIf (HalffabList.Count() > 1) + { + Set ValidatieBericht = "Er werden meerdere halffabitems gevonden" } - If 'IsValid { - ; Log ValidatieBericht - $$$ThrowError($$$errGeneralError,ValidatieBericht) + If (ValidatieBericht '= "") + { + Set ValidatieException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.ValidatieException).%New("Exact één validator: "_ValidatieBericht,HalffabList) + Do ##class(TECH.ExceptionHandler).Throw(ValidatieException) } - Quit IsValid + Quit (ValidatieBericht '= "") ]]> - + Index: APPS/common/GUI/impl/KolomInfo.cls.xml =================================================================== diff -u -r946 -r1012 --- APPS/common/GUI/impl/KolomInfo.cls.xml (.../KolomInfo.cls.xml) (revision 946) +++ APPS/common/GUI/impl/KolomInfo.cls.xml (.../KolomInfo.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + serial 1 %SerialObject -62166,57817.241253 +62195,30215.490039 0 @@ -27,8 +27,18 @@ 1 + +%Boolean +1 + + + +%String +1 + + -KolomID:%String,Breedte:%Integer,IsZichtbaar:%Boolean,Volgnummer:%Integer +KolomID:%String,Breedte:%Integer,IsZichtbaar:%Boolean,Volgnummer:%Integer,IsGroep:%Boolean,OuderGroepID:%String 1 1 %Status @@ -37,6 +47,8 @@ Set ..Breedte = Breedte Set ..IsZichtbaar = IsZichtbaar Set ..Volgnummer = Volgnummer + Set ..IsGroep = IsGroep + Set ..OuderGroepID = OuderGroepID Quit $$$OK ]]> @@ -59,6 +71,18 @@ ]]> + +%Boolean + + + + +%String + + + %String Volgnummer + +IsGroep + + +OuderGroepID + - + Index: APPS/LEV/impl/DataM/DataMLeverancierAPI.cls.xml =================================================================== diff -u --- APPS/LEV/impl/DataM/DataMLeverancierAPI.cls.xml (revision 0) +++ APPS/LEV/impl/DataM/DataMLeverancierAPI.cls.xml (revision 1012) @@ -0,0 +1,18 @@ + + + + +JBL + 2011-04-18 +1 +%RegisteredObject,DOM.LEV.LeverancierAPI +62199,38753.437615 +0 + + +TECH.Iterator + + + + + Index: BL/Prod/Search.cls.xml =================================================================== diff -u -r994 -r1012 --- BL/Prod/Search.cls.xml (.../Search.cls.xml) (revision 994) +++ BL/Prod/Search.cls.xml (.../Search.cls.xml) (revision 1012) @@ -1,12 +1,12 @@ - + Search in the product index BL.Prod,%Prod.Product 1 %RegisteredObject -62188,30460.222302 +62192,42124.653803 60207,60266.090772 0 @@ -237,7 +237,6 @@ %Status - + Index: APPS/common/impl/ProductInfo.cls.xml =================================================================== diff -u --- APPS/common/impl/ProductInfo.cls.xml (revision 0) +++ APPS/common/impl/ProductInfo.cls.xml (revision 1012) @@ -0,0 +1,22 @@ + + + +1 +%RegisteredObject +62199,40842.058455 +0 + + +%Integer + + + +DOM.PM.Bouwstenen.Bouwsteen + + + +DOM.PM.Product + + + + Index: DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml =================================================================== diff -u -r994 -r1012 --- DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml (.../ProductenNaarPrijslijst.cls.xml) (revision 994) +++ DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml (.../ProductenNaarPrijslijst.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + vhLib.Macro,DOM.PM.OL,DOM.DomeinContext 1 DOM.PM.OL.Gamma.IProductenNaarPrijslijst -62181,37146.240563 +62193,37971.971873 0 @@ -272,7 +272,12 @@ set ProductInfo.volDiepte = OptiDiepte set ProductInfo.volHoogte = OptiHoogte - set ProductInfo.LadeType = ..GeefLadeFamilieTekst($listget(oKenmerk.GetLadeFamilies())) + set LadeFamilies = oKenmerk.GetLadeFamilies() + for i = 1 : 1 : $listlength(LadeFamilies) { + set LadeFamilieTekst = ..GeefLadeFamilieTekst($listget(LadeFamilies,i)) + if $length(LadeFamilieTekst) set ProductInfo.LadeType = ProductInfo.LadeType_LadeFamilieTekst_..WaardeDelim + } + set ProductInfo.LadeType = $piece(ProductInfo.LadeType,..WaardeDelim,1,$length(ProductInfo.LadeType,..WaardeDelim)-1) set ProductInfo.GroepOmschrijving = oKenmerk.GetProductGroepOmschrijving() set ProductInfo.Gewicht = oKenmerk.GetProduct().GewichtPerDuizendStuksInKG/1000 @@ -374,5 +379,5 @@ ]]> - + Index: APPS/PM/Maatwerk/OLM/BouwsteenExport.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/PM/Maatwerk/OLM/BouwsteenExport.cls.xml (.../BouwsteenExport.cls.xml) (revision 994) +++ APPS/PM/Maatwerk/OLM/BouwsteenExport.cls.xml (.../BouwsteenExport.cls.xml) (revision 1012) @@ -1,14 +1,14 @@ - + 1 %RegisteredObject -62189,52597.839825 +62195,48586.241191 0 -Do ##class(APPS.PM.Maatwerk.OLM.BouwsteenExport).Import("\\NOTES01\SHARED\C S C\ExportBouwstenenOLM.xls") +Do ##class(APPS.PM.Maatwerk.OLM.BouwsteenExport).Import("\\NOTES01\SHARED\C S C\BouwstenenOLMtest.txt") 1 FileLocation:%String - + Index: APPS/Halux/common/ProductieService.cls.xml =================================================================== diff -u --- APPS/Halux/common/ProductieService.cls.xml (revision 0) +++ APPS/Halux/common/ProductieService.cls.xml (revision 1012) @@ -0,0 +1,72 @@ + + + +1 +%RegisteredObject +62199,29573.649793 +0 + + +;1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;3814; + + + +Toelevering:DOM.LEV.Toelevering,TBXLade:DOM.PM.TBXProduct.TBXLade +APPS.Halux.common.enu.ProductieGroep + + + + + +Lijst van APPS.Halux.common.enu.ProductieLijn +ProductieGroep:APPS.Halux.common.enu.ProductieGroep +%ListOfObjects + + + + + Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r994 -r1012 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 994) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 1012) @@ -1,13 +1,13 @@ - + Production Process Steering - Tandembox Genereert van een Toelevering de verpakkingsdefinitie BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek,%Prod.Product,BL.Prod.OptiBox,BL.PPS.TBX.Common,BL.Sys.Toegang,BL.Sys.Proxy,BL.Sys.FOP.Common,vhLib.Macro 1 %RegisteredObject -62185,47488.70111 +62194,46947.980875 60997,54476.941438 0 @@ -114,7 +114,14 @@ Set ..LabelKlantDevice=$G(LabelDevice,..#LabelKlantPrinter) Set ..LabelKlantLayout=..#LabelKlantTemplate5x10 Set ..BatchID=$G(BatchID) - If BatchID'="" Set ..Line=$S(##class(DS.PPS.TBX.Batch).%ExistsId(BatchID):##class(DS.PPS.TBX.Batch).%OpenId(BatchID).Line,1:"") + If (BatchID'="") + { + Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchID) + If ($IsObject(Batch)) + { + Set ..Line = Batch.GeefLijn() + } + } Set ..ProdGrp=$G(ProdGrp,"S") Set ..%J=$$%J^vhRtn1() Kill ^HULP(..%J) @@ -782,8 +789,8 @@ Set RSTL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RSTL")) ; Rug verlaagd Set PlaatMat=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"MATKL")) ; Materiaal gezaagd - Set Batch=##class(DS.PPS.TBX.Batch).%OpenId(oQ.BatchID) - Set pxLabel.Line=Batch.Line + Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(oQ.BatchID) + Set pxLabel.Line=Batch.GeefLijn() Quit:ODSP="F" "" ; Onderdelen Speciaal : alleen front Set pxLabel.Bor="" @@ -1413,13 +1420,19 @@ Controleert of in de batch toeleveringen zitten voor SFS @@ -1947,5 +1960,5 @@ - + Index: DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml =================================================================== diff -u -r903 -r1012 --- DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml (.../HalffabRepository.cls.xml) (revision 903) +++ DOM/PM/Maatwerk/Calc/HF/impl/HalffabRepository.cls.xml (.../HalffabRepository.cls.xml) (revision 1012) @@ -1,5 +1,5 @@ - + Geeft een halffabrikaat spec. @@ -8,7 +8,7 @@ TECH.Error 1 DOM.PM.Maatwerk.Calc.HF.IHalffabRepository -62152,32040.204074 +62192,30202.034651 62010,56862.368973 0 @@ -58,7 +58,7 @@ Set HalffabTabel = "" } Else { - $$$ThrowError($$$errGeneralError,"Er is geen HalffabTabel gedefinieerd voor de opgegeven familie") + Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Er is geen HalffabTabel gedefinieerd voor de opgegeven familie")) } Quit HalffabTabel ]]> @@ -78,18 +78,18 @@ Set HalffabSpecInfoID = ResultSet.Data("ID") If (ResultSet.Next()) { - $$$ThrowError($$$errGeneralError,"Meerdere HalffabSpecInfo objecten gevonden") + Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere HalffabSpecInfo objecten gevonden")) } Set HalffabSpec = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabSpecInfo).%OpenId(HalffabSpecInfoID).GeefHalffabSpec() } Else { - $$$ThrowError($$$errGeneralError,"Geen HalffabSpecInfo objecten gevonden") + Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen HalffabSpecInfo objecten gevonden")) } Quit HalffabSpec ]]> - + Index: DOM/LEV/impl/DataM/DataMToeleveringAPI.cls.xml =================================================================== diff -u -r946 -r1012 --- DOM/LEV/impl/DataM/DataMToeleveringAPI.cls.xml (.../DataMToeleveringAPI.cls.xml) (revision 946) +++ DOM/LEV/impl/DataM/DataMToeleveringAPI.cls.xml (.../DataMToeleveringAPI.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.LEV.ToeleveringAPI -62166,30417.380907 +62196,35152.087104 0 @@ -13,12 +13,24 @@ ]]> - + LeverancierNummer:%Integer +DOM.LEV.Leverancier + + + + +DOM.LEV.Leverancier + + + + TECH.Iterator - - + Index: APPS/LEV/LeverancierService.cls.xml =================================================================== diff -u --- APPS/LEV/LeverancierService.cls.xml (revision 0) +++ APPS/LEV/LeverancierService.cls.xml (revision 1012) @@ -0,0 +1,156 @@ + + + + +JBL + 2011-04-18 +TECH.Error +1 +%RegisteredObject +62199,57802.385485 +0 + + + +Lijst van DOM.LEV.dto.LeverancierId [ Collection = list ] +%ListOfObjects + + + + + +Maak een xml bestand met alle leveranciers in. +%Status + + + + + +Maak een xml bestand met de gewijzigde leveranciers +LeverancierNr:%Integer +%Status + + + + + +Converteer een Leverancier in een dto LeverancierId object +Leverancier:DOM.LEV.Leverancier + + + + +XML:APPS.LEV.dto.LeverancierBestand,Bestandsnaam:%String="" +1 +%Status + + + + +XML:APPS.LEV.dto.LeverancierBestand,Bestandsnaam:%String="" +1 +%Status + + + + +%Library.CacheStorage +^APPS.LEV.LeverancierServiceD +LeverancierServiceDefaultData +^APPS.LEV.LeverancierServiceD +^APPS.LEV.LeverancierServiceI +^APPS.LEV.LeverancierServiceS + +listnode + + +%%CLASSNAME + + + + + + Index: BL/Kenm/ProdMulti.cls.xml =================================================================== diff -u -r946 -r1012 --- BL/Kenm/ProdMulti.cls.xml (.../ProdMulti.cls.xml) (revision 946) +++ BL/Kenm/ProdMulti.cls.xml (.../ProdMulti.cls.xml) (revision 1012) @@ -1,12 +1,12 @@ - + Basis-klasse voor het gebruik van de Kenmerk.Data/Meta-Definities %VHMacro,BL.Kenm.Common 1 BL.Kenm.Main -62171,38157.810308 +62192,42846.400758 0 @@ -35,7 +35,6 @@ oMetaGroep:%RegisteredObject ProdMulti - + Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml =================================================================== diff -u -r734 -r1012 --- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml (.../HalffabContext.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml (.../HalffabContext.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62115,51491.251384 +62192,35742.023827 62010,56862.299184 0 @@ -53,14 +53,24 @@ Set ..Variant = Variant Set ..BerekeningsSpecificatie = BerekeningsSpecificatie + Set $ZTRAP = "FoutOnNew" + Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New() Set ..HalffabSpec = HalffabRepository.GeefSpecDatum(..Familie, ..Variant) Set ..HalffabTabel = HalffabRepository.GeefHalffabTabel(..Familie, ..Variant, ..BerekeningsSpecificatie.GeefKlantID(), ..BerekeningsSpecificatie.GeefPersonality()) Set ..BewerkingsInfoTabel = ##class(DOM.PM.Maatwerk.Calc.HF.impl.BewerkingsInfoTabel).%New() Set ..HalffabItemsBoom = ##class(DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom).%New() + Set $ZTRAP = "" + Quit $$$OK + +FoutOnNew + Set $ZTRAP = "" + Set Exception = ##class(TECH.ExceptionHandler).Catch() + Do ..LogExceptie(Exception) + Do ##class(TECH.ExceptionHandler).Throw(Exception) ]]> @@ -92,6 +102,20 @@ + + +Exceptie:TECH.IException + + - + Index: APPS/Halux/Planning/enu/ActieCode.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/enu/ActieCode.cls.xml (revision 0) +++ APPS/Halux/Planning/enu/ActieCode.cls.xml (revision 1012) @@ -0,0 +1,33 @@ + + + +datatype +1 +%String +62199,55088.498173 +0 + + +,VERPL_VERWACHT,VERPL_DUEOUT + + + +,Verplaatst verwacht,Verplaats dueout + + + +1 +APPS.Halux.Planning.enu.ActieCode + + + + +1 +APPS.Halux.Planning.enu.ActieCode + + + + + Index: DOM/PM/impl/ProductImpl.cls.xml =================================================================== diff -u -r994 -r1012 --- DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 994) +++ DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 1012) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.PM.Product -62186,50526.951586 +62192,43273.510187 62129,41516.717135 0 @@ -46,6 +46,12 @@ ]]> + +%Date + + + %Integer - + Index: APPS/Halux/Planning/dto/ToeleveringDetail.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/ToeleveringDetail.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/ToeleveringDetail.cls.xml (revision 1012) @@ -0,0 +1,32 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62199,57628.852846 +0 + + +%Integer + + + +APPS.Halux.Planning.dto.ActieInfo +list + + + +APPS.Halux.Planning.dto.StockProbleemInfo +list + + + +%String + + + +%String + + + + Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostenPlaatsWaardeTabel.cls.xml =================================================================== diff -u -r734 -r1012 --- DOM/PM/Maatwerk/Calc/Kost/impl/KostenPlaatsWaardeTabel.cls.xml (.../KostenPlaatsWaardeTabel.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/Kost/impl/KostenPlaatsWaardeTabel.cls.xml (.../KostenPlaatsWaardeTabel.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.PM.Maatwerk.Calc.Kost.IKostenPlaatsWaardeTabel -62111,42478.695264 +62192,30315.748738 0 @@ -51,17 +51,17 @@ Set KostPerTijd = ResultSet.Data("KostPerTijd") If (ResultSet.Next()) { - $$$ThrowError($$$errGeneralError,"Meerdere KostenPlaatsWaardeInfo objecten gevonden") + Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Meerdere KostenPlaatsWaardeInfo objecten gevonden")) } } Else { - $$$ThrowError($$$errGeneralError,"Geen KostenPlaatsWaardeInfo objecten gevonden") + Do ##class(TECH.ExceptionHandler).Throw(##class(DOM.PM.Maatwerk.Calc.HF.impl.FrameworkException).%New("Geen KostenPlaatsWaardeInfo objecten gevonden")) } Quit KostPerTijd ]]> - + Index: APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml =================================================================== diff -u --- APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml (revision 0) +++ APPS/PM/impl/ConvertAPPStoDOMenu.cls.xml (revision 1012) @@ -0,0 +1,88 @@ + + + +1 +%RegisteredObject +62193,30918 +62164,62887.712609 + + +1 +StockType:APPS.PM.enu.StockType +DOM.PM.enu.StockType + + + + +1 +SoortProductID:APPS.PM.enu.SoortProductID +DOM.PM.enu.SoortProductID + + + + +1 +Type:APPS.PM.enu.CommercieelActiefType +DOM.PM.enu.CommercieelActiefType + + + + + Index: APPS/Halux/Planning/dto/SplitsToeleveringResultaat.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/SplitsToeleveringResultaat.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/SplitsToeleveringResultaat.cls.xml (revision 1012) @@ -0,0 +1,18 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62196,42871.659829 +0 + + +%String + + + +TECH.XMLDataSet + + + + Index: BL/PPS/TBX/DocsProPlus.cls.xml =================================================================== diff -u -r994 -r1012 --- BL/PPS/TBX/DocsProPlus.cls.xml (.../DocsProPlus.cls.xml) (revision 994) +++ BL/PPS/TBX/DocsProPlus.cls.xml (.../DocsProPlus.cls.xml) (revision 1012) @@ -1,13 +1,13 @@ - + Production Process Steering - Tandembox Genereert van een Toelevering de verpakkingsdefinitie %Prod.Product,BL.Prod.OptiBox,BL.PPS.TBX.Common,BL.Sys.Toegang,BL.Sys.Proxy,BL.Sys.FOP.Common,BL.Derde.KlantSpecifiek 1 %RegisteredObject -62185,47408.999012 +62194,41682.391986 60997,54476.941438 0 @@ -97,7 +97,15 @@ Set ..FOPPrinter=$G(FOPDevice,..#FOPPrinter) Set ..FOPTemplate=..#FOPTemplate Set ..BatchID=$G(BatchID) - If BatchID'="" Set ..Line=$S(##class(DS.PPS.TBX.Batch).%ExistsId(BatchID):##class(DS.PPS.TBX.Batch).%OpenId(BatchID).Line,1:"") + Set ..Line = "" + If (BatchID'="") + { + Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchID) + If ($IsObject(Batch)) + { + Set ..Line = Batch.GeefLijn() + } + } Set ..ProdGrp=$G(ProdGrp,"+") ]]> @@ -860,7 +868,7 @@ . . Set:$E($P(^KPR(TempPRNr,0),"\"),1,3)="ZAA" HFPRNr=TempPRNr Quit:'HFPRNr "#no afdek" If HFPRNr=259206 Quit "PROLUX" - If HFPRNr=53820 Quit "KELLER 430" + If HFPRNr=626030 Quit "KELLER 430" If HFPRNr=261040 Quit "KELLER CHROOM" If HFPRNr=74660 Quit "BLANK SYM. 330" If HFPRNr=432117 Quit "KELLER 330" ; Bestaat niet meer @@ -1069,5 +1077,5 @@ - + Index: APPS/Halux/common/impl/BatchImpl.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/Halux/common/impl/BatchImpl.cls.xml (.../BatchImpl.cls.xml) (revision 994) +++ APPS/Halux/common/impl/BatchImpl.cls.xml (.../BatchImpl.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent,APPS.Halux.common.Batch -62189,54458.271185 +62199,50912.144639 0 @@ -22,12 +22,18 @@ 1 - + %Integer array 1 + +%Integer +list +1 + + %Boolean 1 @@ -36,10 +42,6 @@ 1 - -;1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;3814; - - Lijn:APPS.Halux.common.enu.ProductieLijn="" 1 @@ -78,8 +80,8 @@ Set Iterator = ##class(TECH.ListIterator).%New(..Toeleveringen) While (Iterator.HasNext()) { - Do Iterator.Next() - Set Toelevering = ToeleveringAPI.GeefToelevering(Iterator.Key()) + Set ToeleveringNummer = Iterator.Next() + Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer) If ($IsObject(Toelevering)) { Do Toeleveringen.Insert(Toelevering) @@ -117,16 +119,17 @@ { Set Aantal = Aantal + Lijn.GeefAantal() // De productiegroep van het laatste product wint, dit bij gebrek aan betere opties... - Set ProductieGroep = ..BepaalProductieGroep(Toelevering, Product) + Set ProductieGroep = ##class(APPS.Halux.common.ProductieService).%New().GeefProductieGroep(Toelevering, Product) } } Set Errors = ##class(%ListOfDataTypes).%New() If (Aantal = 0) { Do Errors.Insert("De toelevering bevat geen tandemboxen") } If ((Aantal > 0) && '..IsGeldigeProductieGroep(ProductieGroep)) { Do Errors.Insert("De productiegroep van de toelevering is verschillend van de productiegroep van de batch") } - If (..IsAanwezigInAndereBatch(Toelevering)) { Do Errors.Insert("De toelevering zit reeds in een andere batch") } - If (..Toeleveringen.IsDefined(Toelevering.GeefToeNr())) { Do Errors.Insert("De toelevering zit reeds in deze batch") } + Set BijhorendeBatch = ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering) + If ($IsObject(BijhorendeBatch)) { Do Errors.Insert("Deze toelevering zit reeds in batch "_BijhorendeBatch.GeefBatchID()) } + If (..ToeleveringenIndex.IsDefined(Toelevering.GeefToeNr())) { Do Errors.Insert("De toelevering zit reeds in deze batch") } If ((ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast()) && ('..IsGeldigAfleverAdres(Toelevering))) { Do Errors.Insert("Het afleveradres van deze toelevering is anders dan de vorige") } If (Errors.Count() > 0) @@ -138,7 +141,8 @@ Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.common.impl.ToeleveringException).%New(MaakBatchError)) } - Do ..Toeleveringen.SetAt(1,Toelevering.GeefToeNr()) + Do ..ToeleveringenIndex.SetAt(1,Toelevering.GeefToeNr()) + Do ..Toeleveringen.Insert(Toelevering.GeefToeNr()) Set ..ProductieGroep = ProductieGroep ]]> @@ -147,7 +151,21 @@ Toelevering:DOM.LEV.Toelevering %Boolean ..Toeleveringen.Count())) + { + If (..Toeleveringen.GetAt(i) = Toelevering.GeefToeNr()) + { + Do ..Toeleveringen.RemoveAt(i) + Set Gevonden = 1 + } + Set i = i + 1 + } + } If (..Toeleveringen.Count() = 0) { Do ..CleanUp() @@ -158,6 +176,7 @@ @@ -177,21 +196,16 @@ %Boolean - -Toelevering:DOM.LEV.Toelevering -1 + %Boolean - - -Toelevering:DOM.LEV.Toelevering,TBXLade:DOM.PM.TBXProduct.TBXLade + +1 +oid:%ObjectIdentity 1 -APPS.Halux.common.enu.ProductieGroep +%Status - -%Boolean - +1 +BatchID:%Integer + - -%Library.CacheStorage -^APPS.Halux.common7FB.BatchImplD -BatchImplDefaultData -^APPS.Halux.common7FB.BatchImplD -^APPS.Halux.common7FB.BatchImplI -^APPS.Halux.common7FB.BatchImplS - - -%%CLASSNAME - - -AanmaakTijdstip - - -Lijn - - -ProductieGroep - - - -Toeleveringen -subnode -"Toeleveringen" - - + + Do ..RaiseBatchRemovedEvent({ID}) +DELETE +1 + + - + Index: APPS/Halux/common/enu/ProductieLijn.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/Halux/common/enu/ProductieLijn.cls.xml (.../ProductieLijn.cls.xml) (revision 994) +++ APPS/Halux/common/enu/ProductieLijn.cls.xml (.../ProductieLijn.cls.xml) (revision 1012) @@ -1,16 +1,20 @@ - + datatype 1 %String -62175,55054.669508 +62199,29647.078324 0 ,1,2,K + +,Lijn 1,Lijn 2,Lijn K + + 1 - + Index: APPS/Halux/Planning/impl/ActiviteitInfo.cls.xml =================================================================== diff -u -r994 -r1012 --- APPS/Halux/Planning/impl/ActiviteitInfo.cls.xml (.../ActiviteitInfo.cls.xml) (revision 994) +++ APPS/Halux/Planning/impl/ActiviteitInfo.cls.xml (.../ActiviteitInfo.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent -62178,28776.358235 +62193,42819.566241 0 @@ -15,13 +15,6 @@ %String - - - - %Integer @@ -81,5 +74,5 @@ - + Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml =================================================================== diff -u -r946 -r1012 --- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml (.../PlanPersenv001.cls.xml) (revision 946) +++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersenv001.cls.xml (.../PlanPersenv001.cls.xml) (revision 1012) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder -62171,52476.069212 +62193,27849.25633 0 @@ -45,8 +45,7 @@ Set VariabeleKost = 0 Set VasteKost = (82+127)/2 Set MinimumKost = 0 - Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers1",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) - Do PersenSpoelbakSifon.GebruikEvaluator(GeenSpoelbakOfSifonEvaluator) + Set PersenLijn1 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers1",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) // Persen van een lade op lijn 2 Set ActiviteitNr = 9 @@ -55,8 +54,7 @@ Set VariabeleKost = 0 Set VasteKost = 95 Set MinimumKost = 0 - Set PersenSpoelbakSifon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers2",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) - Do PersenSpoelbakSifon.GebruikEvaluator(GeenSpoelbakOfSifonEvaluator) + Set PersenLijn2 = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Persen op pers2",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr) Quit Status ]]> @@ -66,5 +64,5 @@ %Library.CacheStorage - + Index: BL/PPS/TBX/Sequencer.cls.xml =================================================================== diff -u -r994 -r1012 --- BL/PPS/TBX/Sequencer.cls.xml (.../Sequencer.cls.xml) (revision 994) +++ BL/PPS/TBX/Sequencer.cls.xml (.../Sequencer.cls.xml) (revision 1012) @@ -1,13 +1,13 @@ - + Production Process Steering - Tandembox Genereert van een Toelevering de verpakkingsdefinitie %Prod.Product,BL.Prod.OptiBox,BL.PPS.TBX.Common,BL.Sys.Toegang,BL.Sys.Proxy 1 %RegisteredObject -62187,32653.03471 +62194,47133.407236 60997,54476.941438 0 @@ -216,11 +216,14 @@ Find the production orders in a Batch @@ -294,5 +297,5 @@ - + Index: DOM/LEV/ToeleveringAPI.cls.xml =================================================================== diff -u -r994 -r1012 --- DOM/LEV/ToeleveringAPI.cls.xml (.../ToeleveringAPI.cls.xml) (revision 994) +++ DOM/LEV/ToeleveringAPI.cls.xml (.../ToeleveringAPI.cls.xml) (revision 1012) @@ -1,24 +1,43 @@ - + 1 1 -62174,33425.101675 +62199,55111.391383 0 + + + + 1 ToeleveringNummer:%Integer DOM.LEV.Toelevering - - -Van zodra er een LeverancierObject is mag deze verhuisd worden naar die plaats + 1 LeverancierNummer:%Integer +DOM.LEV.Leverancier + + + +1 +DOM.LEV.Leverancier + + + +1 TECH.Iterator - + Index: BL/PPS/OL/Inpak.cls.xml =================================================================== diff -u -r734 -r1012 --- BL/PPS/OL/Inpak.cls.xml (.../Inpak.cls.xml) (revision 734) +++ BL/PPS/OL/Inpak.cls.xml (.../Inpak.cls.xml) (revision 1012) @@ -1,5 +1,5 @@ - + Production Process Steering - Tandembox @@ -8,7 +8,7 @@ %Prod.Product,BL.PPS.OL,BL.Prod.OptiBox,BL.Sys.Toegang,BL.Sys.Proxy,%VHMacro 1 %SerialObject -61998,58050.590188 +62196,40829.720701 60963,48690.947521 0 @@ -1469,5 +1469,6 @@ - + + Index: DOM/PM/impl/DataM/Bouwstenen/BouwsteenKind.cls.xml =================================================================== diff -u --- DOM/PM/impl/DataM/Bouwstenen/BouwsteenKind.cls.xml (revision 0) +++ DOM/PM/impl/DataM/Bouwstenen/BouwsteenKind.cls.xml (revision 1012) @@ -0,0 +1,123 @@ + + + +persistent +1 +VHOpslag +%Persistent +62193,58235.170828 +0 + + +13958 + + + +%String + + + +%String + + + +%Float + + + +%String + + + + +%Integer + + + +%String + + + +%String + + + +%String + + + +1 +1 +Moeder,BSKey +1 + + + +%CacheSQLStorage + +16.6667% + + +8.3333% + + +49.9999% + + +0.0240% + + +99.9995% + + +99.9995% + + +99.9995% + + +20.0000% + + +data +^PRBS + +"BS" + + +{Moeder} + + +{BSKey} +"KIND" +"KINDz" + + +"\" +2 + + +"\" +11 + + +"\" +13 + + +"\" +10 + + +"\" +17 + + +"\" +3 + + + + + + Index: APPS/CRM/Interacties/dto/Registraties.cls.xml =================================================================== diff -u -r734 -r1012 --- APPS/CRM/Interacties/dto/Registraties.cls.xml (.../Registraties.cls.xml) (revision 734) +++ APPS/CRM/Interacties/dto/Registraties.cls.xml (.../Registraties.cls.xml) (revision 1012) @@ -1,15 +1,19 @@ - + 1 %RegisteredObject,%XML.Adaptor -61893,47579.651623 +62194,31659.968769 0 + +1 + + APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp list - + Index: APPS/PM/KenmerkenService/1.int.rou =================================================================== diff -u -r917 -r1012 --- APPS/PM/KenmerkenService/1.int.rou (.../1.int.rou) (revision 917) +++ APPS/PM/KenmerkenService/1.int.rou (.../1.int.rou) (revision 1012) @@ -1,6 +1,6 @@ ;APPS.PM.KenmerkenService.1 - ;(C)InterSystems, generated for class APPS.PM.KenmerkenService. Do NOT edit. 03/03/2011 09:52:24AM - ;;05A6EE1074D8488C;APPS.PM.KenmerkenService + ;(C)InterSystems, generated for class APPS.PM.KenmerkenService. Do NOT edit. 04/11/2011 02:14:25PM + ;;6E5825488E3788F2;APPS.PM.KenmerkenService Quit ; %ClassName(fullname) public { Quit $select($get(fullname,0):"APPS.PM.KenmerkenService",1:"KenmerkenService") } @@ -10,46 +10,29 @@ Set %this=$zobjnew("APPS.PM.KenmerkenService") 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),$zobjval(,6)=$zobjval(object,6) - Set $zobjval(,7)=$zobjval(object,7),$zobjval(,8)=$zobjval(object,8),$zobjval(,9)=$zobjval(object,9) - Set $zobjval(,10)=$zobjval(object,10),$zobjval(,11)=$zobjval(object,11),$zobjval(,12)=$zobjval(object,12) - Set $zobjval(,13)=$zobjval(object,13) If deep>0 { - If object.HeadersIn'="" Set $zobjval(,2,0)=$zobjval(object,2,0).%ConstructClone(1,.cloned) If $zobjval(,2,0)'="" Do ($zobjval(,2,0)).%Close() - If object.HeadersOut'="" Set $zobjval(,4,0)=$zobjval(object,4,0).%ConstructClone(1,.cloned) If $zobjval(,4,0)'="" Do ($zobjval(,4,0)).%Close() - If object.SoapFault'="" Set $zobjval(,9,0)=$zobjval(object,9,0).%ConstructClone(1,.cloned) If $zobjval(,9,0)'="" Do ($zobjval(,9,0)).%Close() - If object.Transport'="" Set $zobjval(,12,0)=$zobjval(object,12,0).%ConstructClone(1,.cloned) If $zobjval(,12,0)'="" Do ($zobjval(,12,0)).%Close() - } Else { - If object.HeadersIn'="" Set $zobjval(,2,0)=$zobjval(object,2,0).%ConstructClone(0,.cloned) If $zobjval(,2,0)'="" Do ($zobjval(,2,0)).%Close() - If object.HeadersOut'="" Set $zobjval(,4,0)=$zobjval(object,4,0).%ConstructClone(0,.cloned) If $zobjval(,4,0)'="" Do ($zobjval(,4,0)).%Close() + If object.BLKenmProdMulti'="" Set $zobjval(,2,0)=$zobjval(object,2,0).%ConstructClone(1,.cloned) If $zobjval(,2,0)'="" Do ($zobjval(,2,0)).%Close() } Quit %this } -%Extends(isclass) public { Quit "~APPS.PM.KenmerkenService~%SOAP.WebService~%CSP.Page~%SOAP.WebBase~%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,"CHARSET":"UTF-8","CONTENTTYPE":"text/xml","ENCODED":0,"LOCATION":"http://cache02/csp/Admin1","NAMESPACE":"http://tempuri.org","OUTPUTTYPEATTRIBUTE":0,"PAGETIMING":1,"PRIVATE":0,"PROPERTYVALIDATION":0,"SERVICENAME":"APPS.PM.KenmerkenService","TIMINGSLOTS":48,"VeldBreedteInTekens":15,:"") -} +%Extends(isclass) public { Quit "~APPS.PM.KenmerkenService~%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,"VeldBreedteInTekens":15,:"") } %IncrementCount(%this) Quit ..%IncrementCount() -%IsA(isclass) public { Quit "~APPS.PM.KenmerkenService~%SOAP.WebService~%CSP.Page~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") } +%IsA(isclass) public { Quit "~APPS.PM.KenmerkenService~%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(APPS.PM.KenmerkenService).%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)="http://cache02/csp/Admin1",$zobjval(,6,0,0,4)=0 - Set $zobjval(,7,0,0,5)=31-16,$zobjval(,8,0,0,6)="",$zobjval(,9,0,0,6)="",$zobjval(,10,0,0,7)="",$zobjval(,11,0,0,8)="",$zobjval(,12,0,0,8)="" - Set $zobjval(,13,0,0,9)="" +%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)="" + If ..BLKenmProdMultiNewObject()="" Quit $$Error^%apiOBJ(5763,"BLKenmProdMulti") Quit 1 -%NormalizeObject(%this) Set:$zobjval(,5,0,0,3)'="" $zobjval(,5,0,0,3)=(..LocationNormalize($zobjval(,5,0,0,3))) - Set:$zobjval(,6,0,0,4)'="" $zobjval(,6,0,0,4)=(..OutputTypeAttributeNormalize($zobjval(,6,0,0,4))) - Set:$zobjval(,7,0,0,5)'="" $zobjval(,7,0,0,5)=(..SAXFlagsNormalize($zobjval(,7,0,0,5))) - Set:$zobjval(,10,0,0,7)'="" $zobjval(,10,0,0,7)=(..TimeoutNormalize($zobjval(,10,0,0,7))) - Set:$zobjval(,13,0,0,9)'="" $zobjval(,13,0,0,9)=(..WriteSOAPBodyMethodNormalize($zobjval(,13,0,0,9))) +%NormalizeObject(%this) Set:$zobjval(,3,0,0,2)'="" $zobjval(,3,0,0,2)=(..ErrorMsgNormalize($zobjval(,3,0,0,2))) Quit 1 %ObjectModified(%this) public { Quit 1 } %PackageName() Quit "APPS.PM" %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" } - If $zobjval(,2,0,0,1)'="" { Set:'$data(%objTX(1,+$zobjval(,2,0,0,1),1)) %objTX(1,+$zobjval(,2,0,0,1))=$zobjval(,2,0,0,1),%objTX(1,+$zobjval(,2,0,0,1),1)=..HeadersInGetObject(1),%objTX(1,+$zobjval(,2,0,0,1),6)=2 Set %objOBJ(30)=$lg(%objTX(1,+$zobjval(,2,0,0,1),1)),$zobjval(,1,0,0,1)=%objOBJ(30) } Else { Set %objOBJ(30)=$zobjval(,1,0,0,1) } - If $zobjval(,4,0,0,2)'="" { Set:'$data(%objTX(1,+$zobjval(,4,0,0,2),1)) %objTX(1,+$zobjval(,4,0,0,2))=$zobjval(,4,0,0,2),%objTX(1,+$zobjval(,4,0,0,2),1)=..HeadersOutGetObject(1),%objTX(1,+$zobjval(,4,0,0,2),6)=2 Set %objOBJ(31)=$lg(%objTX(1,+$zobjval(,4,0,0,2),1)),$zobjval(,3,0,0,2)=%objOBJ(31) } Else { Set %objOBJ(31)=$zobjval(,3,0,0,2) } + If $zobjval(,2,0,0,1)'="" { Set:'$data(%objTX(1,+$zobjval(,2,0,0,1),1)) %objTX(1,+$zobjval(,2,0,0,1))=$zobjval(,2,0,0,1),%objTX(1,+$zobjval(,2,0,0,1),1)=..BLKenmProdMultiGetObject(1),%objTX(1,+$zobjval(,2,0,0,1),6)=2 Set %objOBJ(25)=$lg(%objTX(1,+$zobjval(,2,0,0,1),1)),$zobjval(,1,0,0,1)=%objOBJ(25) } Else { Set %objOBJ(25)=$zobjval(,1,0,0,1) } Quit sc %SerializeObjectERR Set $ZTrap="" If $extract($zerror,1,5)'="" Set sc=$$Error^%apiOBJ(5002,$ZE) Quit sc @@ -61,13 +44,9 @@ } Set tDepth=$select(depth'=2:depth,1:1) If $zobjval(,2,0,0,1)'="" { - If '$data(%objTX(1,+$zobjval(,2,0,0,1))) Set sc=..HeadersIn.%AddToSaveSet(tDepth) Quit:('sc) sc + If '$data(%objTX(1,+$zobjval(,2,0,0,1))) Set sc=..BLKenmProdMulti.%AddToSaveSet(tDepth) Quit:('sc) sc Set intPoref=+$zobjval(,2,0,0,1),%objTX(1,intPoref,3,intOref)="",%objTX(1,intOref,2,intPoref)="" } - If $zobjval(,4,0,0,2)'="" { - If '$data(%objTX(1,+$zobjval(,4,0,0,2))) Set sc=..HeadersOut.%AddToSaveSet(tDepth) Quit:('sc) sc - Set intPoref=+$zobjval(,4,0,0,2),%objTX(1,intPoref,3,intOref)="",%objTX(1,intOref,2,intPoref)="" - } Set %objTX(2,intOref)=0 exit Quit sc } %RemoveFromSaveSet(%this) public { @@ -78,751 +57,226 @@ 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 -zBeginSOAPEnvelope(bindingStyle,bodyUse,namespace,typeNamespace,forcePrefix,namespaces) public { Set elementQualified=##class(APPS.PM.KenmerkenService).GetElementQualified(bodyUse) - Set namespaces=##class(%XML.Namespaces).%New() - Do namespaces.AddInstanceNamespace("xsi") - Do namespaces.AddSchemaNamespace("s") - Do namespaces.AddNamespace("http://schemas.xmlsoap.org/soap/envelope/","SOAP-ENV") - Set namespaces.OutputTypeAttribute=0 - Write "",! - Write "",! - Do namespaces.DefineAllNamespacePrefixes() - Set namespaces.CurrentNamespace="" - Set namespaces.DefaultNamespace=typeNamespace - Set namespaces.ElementQualified=elementQualified Quit 1 } -zConvertParameter(url,name,value) public { Set url=$Piece(url,"?") - Set className=$$GetCSPClassName^%cspServer(url,%request.URL) - Quit:className="" 1 - If $s($d(^oddCOM(className,"p","ENCODED",22))#2:^(22),$d(^oddCOM($g(^(2),className),"p","ENCODED",22))#2:^(22),1:$s($d(^oddDEF($g(^(2),className),"p","ENCODED",22))#2:^(22),1:$g(^%qCacheObjectKey(1,"p",22))))'=0 { - Set value=$translate($System.Encryption.RijndaelBase64Encode($listbuild($listbuild(name,value)),%session.Key),"+="_$char(32,13,10),"_-") - Set name="CSPToken" +zGeefBLProdMulti(%this,KenmerkGroep) public { If (..BLKenmProdMulti.GetAt(KenmerkGroep) = "") + { + Do ..BLKenmProdMulti.SetAt(##class(BL.Kenm.ProdMulti).Create(KenmerkGroep),KenmerkGroep) } - Quit 1 } -zDecrypt(data) public { Quit $System.Encryption.RijndaelBase64Decode($translate(data,"_-","+="),%session.Key) } -zEncrypt(data) public { Quit $translate($System.Encryption.RijndaelBase64Encode(data,%session.Key),"+="_$char(32,13,10),"_-") } -zEndSOAPEnvelope() public { Write "",! } -zEscapeHTML(in) public { Quit $zconvert(in,"O","HTML") } -zEscapeURL(in) public { Quit $zconvert(in,"O","URL") } -zFault(fault) public { If $get(%request)'="" && %request.CSPGatewayRequest { - Do %response.Abort() - Do %response.WriteHTTPHeader(.dummy) - } - Write "",! - Write "",! - Write " ",! - Write " ",! - Write " "_fault.faultcode_"",! - Write " "_$ZConvert(fault.faultstring,"O","HTML")_"",! - If fault.faultactor'="" Write " "_$ZConvert(fault.faultactor,"O","HTML")_"",! - Write " "_fault.detail_"",! - Write " ",! - Write " ",! - Write "",! - Quit } -zFileWSDL(pFileName) public { Set sc=1,tFileFlag=0,tIO=$IO - Do - . Set tFileFlag=0 - . Open pFileName:"wsn":0 Else Set sc=$$Error^%apiOBJ(5005,tFileName) Quit - . Use pFileName Set tFileFlag=1 - . Do $ZU(96,18,2,"UTF8") - . Do ##class(APPS.PM.KenmerkenService).GenerateWSDL() - If tFileFlag Close pFileName - Use tIO - Quit sc } -zGeefMetadata(KenmerkGroepen) public { Set Metadata = ##class(APPS.PM.dto.kenm.KenmerkMetadataList).%New() - if ($Data(KenmerkGroepen) && $IsObject(KenmerkGroepen.Items)){ - Set KenmerkGroepen = KenmerkGroepen.Items - } + Quit ..BLKenmProdMulti.GetAt(KenmerkGroep) } +zGeefMetadata(%this,KenmerkGroepen) public { Set KenmerkGroepen=$get(KenmerkGroepen) new $ETRAP Set $ETRAP="Do ##class(TECH.Error.impl.ErrorHandler).TrapHandler()" + Set Metadata = ##class(APPS.PM.dto.Kenm.KenmerkMetadataList).%New() /// Nagaan of KenmerkGroepen niet leeg is, indien dit zo is mogen alle groepen worden opgevraagd. - if ('$Data(KenmerkGroepen) || ('$IsObject(KenmerkGroepen) && (KenmerkGroepen.Count() = 0))){ + if ('$IsObject(KenmerkGroepen) || (KenmerkGroepen.Count() = 0)){ Set KenmerkGroepen = ##class(Prod.Kenmerk.MetaGroep).GetAllMetaGroupsAsList() } - /// Alle opgegeven kenmerkgroepen overlopen + /// Alle opgegeven Kenmerkgroepen overlopen Set KenmerkGroepIterator = ##class(TECH.ListIterator).%New(KenmerkGroepen) While (KenmerkGroepIterator.HasNext()){ Set KenmerkGroep = KenmerkGroepIterator.Next() Set RS = ##class(%Library.ResultSet).%New("Prod.Kenmerk.MetaDefinitie:FilterMetaDefsViaGroep") Do RS.Execute(KenmerkGroep) While (RS.Next()){ - Set KenmerkMetadata = ##class(APPS.PM.dto.kenm.KenmerkMetadata).%New() + Set KenmerkMetadata = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New() /// JBL : TO DO : niet duidelijk van waar de data moet komen om verschillende mogelijkheden in te vullen ///Do KenmerkMetadata.Mogelijkheden.Insert("Mogelijkheid1") /// - Set KenmerkMetadata.Multipliciteit = ##class(APPS.PM.dto.kenm.Multipliciteit).%New() - Set KenmerkMetadata.Multipliciteit.Minimum = 0 - If (RS.Get("Verplicht")){ - Set KenmerkMetadata.Multipliciteit.Minimum = 1 - } + Set KenmerkMetadata.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New() + Set KenmerkMetadata.Multipliciteit.Minimum = RS.Get("Verplicht") Set KenmerkMetadata.Multipliciteit.Maximum = RS.Get("Multiple") Set KenmerkMetadata.Naam = RS.Get("Kenmerk") + Set KenmerkMetadata.NieuweWaardeToegelaten = RS.Get("NieuweWaardeToegelaten") + If (KenmerkMetadata.NieuweWaardeToegelaten = "") Set KenmerkMetadata.NieuweWaardeToegelaten = "0" + /// ------------------------------------------------------------------------- + /// Als er geen nieuwe waarden zijn toegelaten dan de mogelijkheden invullen. + /// ------------------------------------------------------------------------- + /// In het veld �Mogelijkheden� op de DTO moet dan � afhankelijk van NieuweWaardeToegelaten + /// � ofwel alle mogelijke waarden ofwel alle reeds gebruikte waarden zitten. + /// We nemen als uitgangspunt dat de velden �WaardenSortering*� op �Prod_kenmerk.metadefinitie� + /// gebruikt worden voor gesorteerde en voor vaste lijsten. + /// En dat voor niet-gesorteerde niet-vaste lijsten een query moet uitgevoerd worden om de reeds + /// gebruikte waarden te vinden. + If (KenmerkMetadata.NieuweWaardeToegelaten = 0) + { + /// WaardenSortering nagaan en als mogelijkheden invullen + Set WaardenSorteringLijst = $ListBuild("WaardenSortering","WaardenSortering2","WaardenSortering3") + For i=1:1:$ListLength(WaardenSorteringLijst) + { + Set WaardenSortering = RS.Get($ListGet(WaardenSorteringLijst,i)) + For j=1:1:$ListLength(WaardenSortering) { + Do KenmerkMetadata.Mogelijkheden.Insert($ListGet(WaardenSortering,j)) + } + } + /// Als er geen WaardenSorteringen waren, dan dynamisch een query opbouwen om de mogelijkheden in te vullen + If (KenmerkMetadata.Mogelijkheden.Count() = 0) + { + Set RSMogelijkheden = ##class(%Library.ResultSet).%New("Prod.Kenmerk.DataDefinitie:MogelijkhedenVoorKenmerk") + Do RSMogelijkheden.Execute(KenmerkGroep,KenmerkMetadata.Naam) + While (RSMogelijkheden.Next()){ + Set Waarden = RSMogelijkheden.Get("Waarden") + For j=1:1:$ListLength(Waarden) { + Do KenmerkMetadata.Mogelijkheden.Insert($ListGet(Waarden,j)) + } + } + } + } Set KenmerkMetadata.VeldBreedteInTekens = 15 If (RS.Get("Format") = "T"){ - Set KenmerkMetadata.DataType = ##class(APPS.PM.dto.kenm.DataType).Tekst() - Set KenmerkMetadata.DataTypeBerperking = ##class(APPS.PM.dto.kenm.TekstBeperking).%New() + Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Tekst() + Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.TekstBeperking).%New() + d WLIP^vhDBG(127,"KenmerkMetadata : "_KenmerkMetadata.Naam) If (RS.Get("Lengte") '= ""){ - Do KenmerkMetadata.DataTypeBerperking.Insert(RS.Get("Lengte")) + Do KenmerkMetadata.DataTypeBeperking.Insert(RS.Get("Lengte")) } }ElseIf (RS.Get("Format") = "B"){ - Set KenmerkMetadata.DataType = ##class(APPS.PM.dto.kenm.DataType).Boolean() + Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Boolean() }ElseIf((RS.Get("Format") = "I") || (RS.Get("Format") = "F")){ - Set KenmerkMetadata.DataType = ##class(APPS.PM.dto.kenm.DataType).Getal() - Set KenmerkMetadata.DataTypeBerperking = ##class(APPS.PM.dto.kenm.GetalBeperking).%New() - Set KenmerkMetadata.DataTypeBerperking.AantalDecimalen = RS.Get("Decimalen") - Set KenmerkMetadata.DataTypeBerperking.Eenheid = RS.Get("Eenheid") - Set KenmerkMetadata.DataTypeBerperking.Maximum = RS.Get("MaxValue") - Set KenmerkMetadata.DataTypeBerperking.Minimum = RS.Get("MinValue") + Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Getal() + Set KenmerkMetadata.DataTypeBeperking = ##class(APPS.PM.dto.Kenm.GetalBeperking).%New() + Set KenmerkMetadata.DataTypeBeperking.AantalDecimalen = RS.Get("Decimalen") + Set KenmerkMetadata.DataTypeBeperking.Eenheid = RS.Get("Eenheid") + Set KenmerkMetadata.DataTypeBeperking.Maximum = RS.Get("MaxValue") + Set KenmerkMetadata.DataTypeBeperking.Minimum = RS.Get("MinValue") } Do Metadata.Items.Insert(KenmerkMetadata) } } + Set $ETRAP="" Quit Metadata } -zGeefProductKenmerken(%this,PRNrs,KenmerkGroepen) public { - Set $ETRAP="Do ##class(TECH.Error.impl.ErrorHandler).TrapHandler()" - Set ProductenKenmerken = ##class(APPS.PM.dto.kenm.ProductenKenmerken).%New() - if ($Data(KenmerkGroepen) && $IsObject(KenmerkGroepen.Items)){ - Set KenmerkGroepen = KenmerkGroepen.Items - } - if ('$Data(KenmerkGroepen) || ('$IsObject(KenmerkGroepen) && (KenmerkGroepen.Count() = 0))){ +zGeefProductKenmerken(%this,PRNrs,KenmerkGroepen) public { Set KenmerkGroepen=$get(KenmerkGroepen) + new $ETRAP Set $ETRAP="Do ##class(TECH.Error.impl.ErrorHandler).TrapHandler()" + If '$length($get(PRNrs)) Set $ECODE="`"_"1002:ParameterRequired"_"`"_"PRNrs"_"`" + If '$isobject(PRNrs) Set $ECODE="`"_"1003:ObjectExpected"_"`"_"PRNrs"_"`" + Set ProductenKenmerken = ##class(APPS.PM.dto.Kenm.ProductenKenmerken).%New() + // nadien nagaan of er iets in kenmerkGroepen zit + if ('$IsObject(KenmerkGroepen) || (KenmerkGroepen.Count() = 0)) { Set KenmerkGroepen = ##class(Prod.Kenmerk.MetaGroep).GetAllMetaGroupsAsList() } - Set PRNrIterator = ##class(TECH.ListIterator).%New(PRNrs.Items) - While (PRNrIterator.HasNext()){ + Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() + Set ProductService = ##class(APPS.PM.ProductService).%New() + Set RS=##class(%Library.ResultSet).%New("Prod.Kenmerk.MetaDefinitie:FilterMetaDefsViaGroep") + Set PRNrIterator = ##class(TECH.ListIterator).%New(PRNrs) + While (PRNrIterator.HasNext()) + { Set PRNr = PRNrIterator.Next() - Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() Set Product = ProductAPI.GeefProduct(PRNr) - /// TODO - Set ProductKenmerken = ##class(APPS.PM.dto.kenm.ProductKenmerken).%New() - Set ProductKenmerken.IDs = ##class(APPS.PM.dto.kenm.ProductIDs).%New() - Set ProductKenmerken.IDs.IdentNr = Product.GeefIdentNr() - Set ProductKenmerken.IDs.PRNr = PRNr - Set ProductKenmerken.IDs.KortTekst = Product.GeefKorttekst() Set KenmerkGroepIterator = ##class(TECH.ListIterator).%New(KenmerkGroepen) - While (KenmerkGroepIterator.HasNext()){ + While (KenmerkGroepIterator.HasNext()) + { Set KenmerkGroep = KenmerkGroepIterator.Next() - //MetaDefinities voor een hoofdgroep inlezen... - Set RS=##class(%Library.ResultSet).%New("Prod.Kenmerk.MetaDefinitie:FilterMetaDefsViaGroep") - ///Multiple's inlezen - Set MultipleNrs = ##class(BL.Kenm.ProdMulti).Create(KenmerkGroep).GetMultiplesLB(PRNr) - If ($ll(MultipleNrs)=0) Set MultipleNrs = $lb("") - If ($Data(MultipleNrs)){ - for i=1:1:$ll(MultipleNrs) + Set ProductIDsLijst = ProductService.GeefProductIDsVanProduct(Product) + For ID=1:1:ProductIDsLijst.Count() + { + Set ProductIDs = ProductIDsLijst.GetAt(ID) + Set ProductKenmerken = ##class(APPS.PM.dto.Kenm.ProductKenmerken).%New() + Set UnID = ##class(BL.Kenm.ProdMulti).GetFullID(ProductIDs.PRNr,ProductIDs.MultipleNr) + Set tmpStatus=RS.Execute(KenmerkGroep) + Set KenmerkAanwezig = 0 + If (+tmpStatus) { - Set MultipleNr = $p($lg(MultipleNrs,i),".",2) - Set ProductKenmerken = ##class(APPS.PM.dto.kenm.ProductKenmerken).%New() - Set ProductKenmerken.IDs = ##class(APPS.PM.dto.kenm.ProductIDs).%New() - Set ProductKenmerken.IDs.IdentNr = Product.GeefIdentNr() - Set ProductKenmerken.IDs.PRNr = PRNr - Set ProductKenmerken.IDs.KortTekst = Product.GeefKorttekst() - Set ProductKenmerken.IDs.MultipleNr = MultipleNr - Set UnID = ##class(BL.Kenm.ProdMulti).%New().GetFullID(PRNr,MultipleNr) - Set tmpStatus=RS.Execute(KenmerkGroep) - Set KenmerkAanwezig = 0 - If (+tmpStatus){ - While (RS.Next()){ - Set DataDefID= ##class(Prod.Kenmerk.DataDefinitie).BuildDataDefinitionID(KenmerkGroep,UnID,RS.Get("Kenmerk")) - If ##class(Prod.Kenmerk.DataDefinitie).%ExistsId(DataDefID){ - Set tmpDataDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId(DataDefID) - Set ProductKenmerk = ##class(APPS.PM.dto.kenm.ProductKenmerk).%New() - Set ProductKenmerk.KenmerkNaam = tmpDataDef.Kenmerk.Kenmerk - Set ProductKenmerk.Waarden = tmpDataDef.Waarden - Set ProductKenmerk.Groep = KenmerkGroep - Do ProductKenmerken.Kenmerken.Insert(ProductKenmerk) - Set KenmerkAanwezig = 1 - } + While (RS.Next()) + { + Set DataDefID= ##class(Prod.Kenmerk.DataDefinitie).BuildDataDefinitionID(KenmerkGroep,UnID,RS.Get("Kenmerk")) + If ##class(Prod.Kenmerk.DataDefinitie).%ExistsId(DataDefID) + { + Set tmpDataDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId(DataDefID) + Set ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New() + Set ProductKenmerk.KenmerkNaam = tmpDataDef.Kenmerk.Kenmerk + Set ProductKenmerk.Waarden = tmpDataDef.Waarden + Set ProductKenmerk.Groep = KenmerkGroep + Do ProductKenmerken.Kenmerken.Insert(ProductKenmerk) + Set KenmerkAanwezig = 1 } } - if (KenmerkAanwezig){ - /// ProductKenmerken toevoegen. - Do ProductenKenmerken.Kenmerken.Insert(ProductKenmerken) - } - } + } + if (KenmerkAanwezig){ + /// ProductKenmerken toevoegen. + Set ProductKenmerken.IDs = ProductIDs + Do ProductenKenmerken.Kenmerken.Insert(ProductKenmerken) + } + //} } } } Set $ETRAP="" Quit ProductenKenmerken } -zGenerateWSDL() New tSchema,tMsgClass,tLocation,tPort,tServer,imports,classes,importNamespace - Set tLocation="http://cache02/csp/Admin1/APPS.PM.KenmerkenService.cls" - Set tMsgClass(1)=##class(APPS.PM.KenmerkenService.GeefMetadata).%New() - If tMsgClass(1)="" Quit $$Error^%apiOBJ(6201,"APPS.PM.KenmerkenService.GeefMetadata") - Set tMsgClass(2)=##class(APPS.PM.KenmerkenService.GeefProductKenmerken).%New() - If tMsgClass(2)="" Quit $$Error^%apiOBJ(6201,"APPS.PM.KenmerkenService.GeefProductKenmerken") - Write "",! - Write "",! - Do ##class(APPS.PM.KenmerkenService.GeefMetadata).XMLGetSchemaImports(.imports,.classes) - Do ##class(APPS.PM.KenmerkenService.GeefProductKenmerken).XMLGetSchemaImports(.imports,.classes) - Set importNamespace=$order(imports("")) - While importNamespace'="" { - If imports(importNamespace)'="" { - Write "",! - } - Set importNamespace=$order(imports(importNamespace)) - } - Write "",! - Write "",! - Set importNamespace=$order(imports("")) - While importNamespace'="" { - Write "",! - Set importNamespace=$order(imports(importNamespace)) - } - Do (tMsgClass(1)).XMLSchema("GeefMetadata","element","s0",1,0,.tSchema) - Kill tSchema("APPS.PM.KenmerkenService.GeefMetadata") - Do (tMsgClass(1)).XMLSchema("GeefMetadataResponse","element","s0",0,0,.tSchema) - Do (tMsgClass(2)).XMLSchema("GeefProductKenmerken","element","s0",1,0,.tSchema) - Kill tSchema("APPS.PM.KenmerkenService.GeefProductKenmerken") - Do (tMsgClass(2)).XMLSchema("GeefProductKenmerkenResponse","element","s0",0,0,.tSchema) - Write "",! - Write "",! - Do (tMsgClass(1)).WSDLMessageSchema("s0",1) - Do (tMsgClass(1)).WSDLMessageSchema("s0",0) - Do (tMsgClass(2)).WSDLMessageSchema("s0",1) - Do (tMsgClass(2)).WSDLMessageSchema("s0",0) - Write "",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write "",! - Write "",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write " ",! - Write "",! - Write "",! - Write " ",! - Write " ",! - Write " ",! - Write "",! - Write "",! - Quit -zGetElementQualified(bodyUse) public { Set elementQualified="" - Quit $select(elementQualified="":(bodyUse="literal"),1:elementQualified) } -zGetEncodedAttribute(tree,node) public { If $get(^CacheTemp(tree,node,"a","encodingStyle"))'="http://schemas.xmlsoap.org/soap/encoding/" Quit 0 - If $get(^CacheTemp(tree,node,"a","encodingStyle","u"))'=%soapenv Quit 0 - Quit 1 } -zHyperEventBody() Quit $select(%session.BrokerImplementation#2=1:""_$select($data(^%SYS("CSP","broker","debug")):"",1:"")_$select($data(^%SYS("CSP","broker","UseGetMethod")):"",1:"")_"",1:"") -zHyperEventCall(methodName,args,type) public { Set type=$get(type,0) Quit $Select(type=0:$case(%session.BrokerImplementation,1:"cspRunServerMethod",2:"cspHttpServerMethod",:"cspSelectServerMethod"),1:"cspCallServerMethod")_"("""_##class(APPS.PM.KenmerkenService).Encrypt($listbuild($select($extract(methodName,1,2)="..":"APPS.PM.KenmerkenService"_$extract(methodName,2,$length(methodName)),1:methodName)_":"_##class(APPS.PM.KenmerkenService).%ClassName(1)))_$select(%session.UseSessionCookie'=2:"&CSPCHD="_%session.CSPSessionCookie,1:"")_$select(type=1:"&WCHARSET="_%response.CharSet,1:"")_""""_$select($get(args)'="":","_args,1:"")_")" } -zHyperEventFrame() Quit ""_$C(13,10)_""_$C(13,10)_"" -zHyperEventHead(iframeOnly) Quit $select('$get(iframeOnly)&&(%session.BrokerImplementation>1):"",1:"")_"" -zImportSOAP(%this,pAction,requestStream,FaultCode,FaultReason) public { Set FaultCode="SOAP-ENV:Client" - Set FaultReason=$$FormatMessage^%occMessages("","%ObjectErrors",6220) - Do ##class(APPS.PM.KenmerkenService).LogInput(1,pAction,requestStream) - Set pAction=$Piece($Translate(pAction,""""),"/",$Length(pAction,"/")) - Set tHandler=##class(%XML.ImportHandler).%New() - If tHandler="" Quit $$Error^%apiOBJ(6201,"%XML.ImportHandler") - Set tHandler.KeepWhitespace=1 // Need whitespace for XMLImport - Set tResolver=##class(%XML.SAX.EntityResolver).%New() - If tResolver="" Quit $$Error^%apiOBJ(6201,"%XML.SAX.EntityResolver") - Set sc=##class(%XML.SAX.Parser).ParseStream(requestStream,tHandler,tResolver,$zobjval(,7,0,0,5)) - If ('sc) Quit sc - Set sc=..ProcessSOAPEnvelope(tHandler,0,.message,.versionMismatch) - If ('sc) { - Set FaultReason=$$FormatMessage^%occMessages("","%ObjectErrors",6228) - Set FaultCode=$select(versionMismatch:"SOAP-ENV:VersionMismatch",1:"SOAP-ENV:Client") - Quit sc - } - If pAction="" Set pAction=##class(APPS.PM.KenmerkenService).NormalizeName(^CacheTemp(tHandler.Tree,message)) - Set className=$piece(pAction,".",1,$length(pAction,".")-1) - If className'="" { - If className'=##class(APPS.PM.KenmerkenService).%ClassName(1) Quit $$Error^%apiOBJ(6207,pAction) - } Else { - Set className=##class(APPS.PM.KenmerkenService).%ClassName(1) - } - Set methodName=$Piece(pAction,".",$Length(pAction,".")) - Set tMsgClass=$zobjclassmethod(className_"."_methodName,"%New") - If '$isObject(tMsgClass) Quit $$Error^%apiOBJ(6207,pAction) - Set sc=tMsgClass.ImportSOAPMessage(methodName,"*",tHandler,message) - If ('sc) { - Set FaultCode="SOAP-ENV:Client" - Set FaultReason=$$FormatMessage^%occMessages("","%ObjectErrors",6228) - Quit sc - } - Set sc=tMsgClass.InvokeService(%this) - If sc="" Quit 1 - If ('sc) { - Set FaultCode="SOAP-ENV:Server" - Set FaultReason=$$FormatMessage^%occMessages("","%ObjectErrors",6227) - Quit sc - } - Set sc=..WriteSOAPMessage(tMsgClass,methodName_"Response",1) - If ('sc) { - Set FaultCode="SOAP-ENV:Server" - Set FaultReason=$$FormatMessage^%occMessages("","%ObjectErrors",6227) - } - Quit sc } -zInclude(url) public { Set %CSPsc=$$cspInclude^%cspServer(url) - If ('%CSPsc) { - Set %request.Data("Error:IncludePage",1)=url - ZTrap "THROW" - } - Kill %CSPsc } -zInsertHiddenField(url,name,value,extra) public { Set extra=$get(extra) Do ##class(APPS.PM.KenmerkenService).ConvertParameter(url,.name,.value) - Quit "W")_">" } -zInsertHiddenFields(url,query) public { Quit $$cspHiddenForm^%cspServer(url,.query) } -zIsPrivate() Quit 0 -zLink(link,query,addQ) public { Set addQ=$get(addQ,0) Quit $$cspLink^%cspServer(link,.query,addQ) } -zLogInput(isService,action,inputStream) public { If $get(^ISCSOAP("Log"))'["i" Quit - Set file=$get(^ISCSOAP("LogFile")) - If file="" Quit - Open file:"waes":1 else close file Quit - Use file - Write !,!,"Web "_$select(isService:"service",1:"client")_" with SOAP action = "_action,! - Do inputStream.OutputToDevice() - Do inputStream.Rewind() - Close file - Quit } -zMakeFault(pFaultCode,pFaultString,pDetail,pFaultActor) public { Set pDetail=$get(pDetail),pFaultActor=$get(pFaultActor) Set fault=##class(%SOAP.Fault).%New() - Set fault.faultcode=pFaultCode - Set fault.faultstring=pFaultString - Set fault.detail=pDetail - Set fault.faultactor=pFaultActor - Quit fault } -zNamespace() public { Quit "http://tempuri.org" -} -zNormalizeName(pName,pMaxLen) public { - Set pMaxLen=$Get(pMaxLen,31) - Set pName=$Translate(pName,"_- +","") - For i=1:1:$Length(pName,".") { - Set part=$Piece(pName,".",i) - If $Extract(part,1)?1N { - Set pPrefix=$Case(+$Extract(part),1:"one",2:"two",3:"three",4:"four",5:"five",6:"six",7:"seven",8:"eight",9:"nine") - Set part=pPrefix_$Extract(part,2,$Length(part)) - Set $Piece(pName,".",i)=part - } - } - If $Length(pName)>pMaxLen { - Set tVowelCount=0,tLen=$Length(pName) - For tI=tLen:-1:1 { - If "AEIOUaeiou"[$Extract(pName,tI) Set $Extract(pName,tI)="+",tVowelCount=tVowelCount+1 - If tLen-tVowelCount=pMaxLen Quit - } - } - Set pName=$Translate(pName,"+","") - Quit $extract(pName,1,pMaxLen) } -zOnInternalFault(fault,status) public { Quit } -zOnPage() public { If $Data(%request.Data("WSDL"))!$Data(%request.Data("wsdl")) { - Do ##class(APPS.PM.KenmerkenService).GenerateWSDL() - } Else { - Set service=##class(APPS.PM.KenmerkenService).%New() - Set tAction=$Get(%request.CgiEnvs("HTTP_SOAPACTION")) - If tAction'="" { - Do service.ProcessSOAP($zconvert(tAction,"I","URL"),%request.Content) - } Else { - Do service.ProcessHTTP() - } - } - Quit 1 } -zOnPreHTTP() public { - If $Get(%request.CgiEnvs("HTTP_SOAPACTION"))]"" Quit 1 - If $Data(%request.Data("WSDL",1)) Quit 1 - If $Data(%request.Data("wsdl",1)) Quit 1 - If $Data(%request.Data("soap_method",1)) Quit 1 - Set %response.ContentType="text\html" - Set %response.ServerSideRedirect="%SOAP.WebServiceInfo.cls?CLS="_##class(APPS.PM.KenmerkenService).%ClassName(1) - Quit 1 } -zOnPreHyperEvent() Quit 1 -zOnSOAPRequest(%this,pAction,requestStream,responseStream) public { Set io=$io - If '$data(responseStream) || '$isObject(responseStream) { - Set responseStream=##class(%Library.FileBinaryStream).%New() - Set filestream=1 - } Else { - Set filestream = responseStream.%IsA("%Library.FileBinaryStream") - } - If filestream { - Set stream=responseStream - } Else { - Set stream=##class(%Library.FileBinaryStream).%New() - } - Do stream.Write("") ; force stream's file to open - Set file=stream.Filename ; get filename and make current device - Use file - do $zu(96,18,2,"UTF8") - Do ..ProcessSOAP(pAction,requestStream) - // Don't Close file to leave stream positioned - Use io - If filestream Quit - Do responseStream.CopyFrom(stream) } -zPage(skipheader) public { Set skipheader=$get(skipheader,1) Do ##class(APPS.PM.KenmerkenService).StartTimer("Page") - New %CSPsc,%ZCS Set $ZTrap="PageErr" - Set dopage=(%request.Method'="HEAD") - Set %response.ContentType="text/xml" - Set %response.CharSet="UTF-8" - If ##class(APPS.PM.KenmerkenService).OnPreHTTP()=0 Set dopage=0 - If 'skipheader Set %CSPsc=%response.WriteHTTPHeader(.dopage) Set:('%CSPsc) dopage=0 - If $get(dopage) Set %CSPsc=##class(APPS.PM.KenmerkenService).OnPage() - Do ##class(APPS.PM.KenmerkenService).StopTimer("Page") - Quit $Select($get(%CSPsc)="":1,1:%CSPsc) -PageErr Set $ZTrap="" - If $ZError'["",! - Do ShowError^%apiCSP(sc) - Quit } -zStartTimer(name) public { Set %response.Timers(name)=$zhorolog,%response.Timers(name,"globals")=$zu(67,9,$job),%response.Timers(name,"lines")=$zu(67,8,$job) - Quit } -zStatusFault(pFaultCode,pFaultString,pStatus,pFaultActor) public { Set pStatus=$get(pStatus),pFaultActor=$get(pFaultActor) Do DecomposeStatus^%apiOBJ(pStatus,.tErr) - Set detail=$c(13,10)_" "_$c(13,10) - Set detail=detail_" "_$ZConvert(tErr(1),"O","HTML")_""_$c(13,10) - Set detail=detail_" "_$c(13,10) - Set fault=##class(APPS.PM.KenmerkenService).MakeFault(pFaultCode,pFaultString,detail,pFaultActor) - Do ##class(APPS.PM.KenmerkenService).OnInternalFault(fault,pStatus) - Do ##class(APPS.PM.KenmerkenService).Fault(fault) - Quit } -zStopTimer(name) public { If '$data(%response.Timers(name)) Quit - Set time=$zhorolog-%response.Timers(name),day=$zdate($horolog,3),slot=$piece($horolog,",",2)*48\86400,url=$select($get(%request.Data("CSPInclude",1))'="":%request.Data("CSPInclude",1),1:%request.URL) - If $increment(^%CspPerformance(name,url,day,slot,"hit")),$increment(^%CspPerformance(name,url,day,slot,"time"),time) - If $increment(^%CspPerformance(name,url,day,slot,"globals"),$zu(67,9,$job)-%response.Timers(name,"globals")-2) - If $increment(^%CspPerformance(name,url,day,slot,"lines"),$zu(67,8,$job)-%response.Timers(name,"lines")-6) - If $get(^%CspPerformance(name,url,day,slot,"min"),99999999)>time Set ^("min")=time - If $get(^("max"),0)