Index: APPS/PM/OL/VariabelKenmerkList.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/PM/OL/VariabelKenmerkList.cls.xml (.../VariabelKenmerkList.cls.xml) (revision 734) +++ APPS/PM/OL/VariabelKenmerkList.cls.xml (.../VariabelKenmerkList.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 VariabelKenmerkAbstract -61919,57629.092437 +62181,38687.640956 0 @@ -54,8 +54,8 @@ Quit:($L(NieuweKMWaarde)) NieuweKMWaarde // Else ; SleutelVar bevat een lijst met evenveel items als MasterVoorKMWaarden - // Bijvoorbeeld : MasterVoorKMWaarden is 45;50;55;60;65 - // SleutelVariatieKMWaarden is 50;50;50;65;65 + // Bijvoorbeeld : MasterVoorKMWaarden is 450;500;550;600;650 + // SleutelVariatieKMWaarden is 500;500;500;650;650 #define Delim $$$DelimSleutelVariaties Set PosInList=$LF(..WaardenList, WaardeVanVariant) @@ -74,5 +74,5 @@ ]]> - + Index: APPS/PM/dto/ProductIDs.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/PM/dto/ProductIDs.cls.xml (.../ProductIDs.cls.xml) (revision 946) +++ APPS/PM/dto/ProductIDs.cls.xml (.../ProductIDs.cls.xml) (revision 994) @@ -1,11 +1,11 @@ - + JBL + 2011-02-28 1 %RegisteredObject,%XML.Adaptor -62160,39350.059596 +62188,42697.279144 62164,32246.922722 0 @@ -24,6 +24,18 @@ %String + + +%String + + + +%String + + + +APPS.PM.dto.ProductAfbeeldingen + - + Index: APPS/Computer/impl/LoggingComputer.cls.xml =================================================================== diff -u -r917 -r994 --- APPS/Computer/impl/LoggingComputer.cls.xml (.../LoggingComputer.cls.xml) (revision 917) +++ APPS/Computer/impl/LoggingComputer.cls.xml (.../LoggingComputer.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 APPS.Computer.Computer -62153,52532.146296 +62180,47870.296486 0 @@ -28,6 +28,23 @@ ]]> + +%Status + + + + +%Status + + + %Library.CacheStorage ^APPS.Comput691.LoggingCompu616D @@ -47,5 +64,5 @@ - + Index: APPS/PM/Vertaling/ExcelImport.cls.xml =================================================================== diff -u -r917 -r994 --- APPS/PM/Vertaling/ExcelImport.cls.xml (.../ExcelImport.cls.xml) (revision 917) +++ APPS/PM/Vertaling/ExcelImport.cls.xml (.../ExcelImport.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62125,36652.307422 +62178,35141.966692 0 @@ -72,7 +72,8 @@ If (VertalingsObject '= "") { // De vertaling bestond en is gewijzigd Set VertalingsObject.Vertaling = Vertaling - If ((Tijdstip '= "") && (VertalingsObject.WijzigingsDatumTijd > Tijdstip) && VertalingsObject.%IsModified()) + + If ((Tijdstip '= "") && (##class(TECH.DateTime).HorologIsGroterDan(VertalingsObject.WijzigingsDatumTijd,Tijdstip)) && VertalingsObject.%IsModified()) { w !,"Combinatie van ("_Intern_", "_Type_", "_TaalCode_") is gewijzigd sinds de exporttijd, gelieve deze handmatig te importeren!" } @@ -120,5 +121,5 @@ ]]> - + Index: APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml (.../ToeleveringInfo.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/ToeleveringInfo.cls.xml (.../ToeleveringInfo.cls.xml) (revision 994) @@ -1,14 +1,14 @@ - + persistent 1 %Persistent -62175,41370.902453 +62179,47910.067299 0 - -%Date + +%TimeStamp @@ -44,11 +44,6 @@ list - -APPS.Halux.Planning.impl.ProductInfo -list - - 1 1 @@ -59,9 +54,10 @@ Gebruiker:%String,Opmerking:%String,Datum:%Date @@ -72,7 +68,7 @@ If (..ExplicietePlanningen.Count() > 0) { Set VorigeExplicietePlanning = ..ExplicietePlanningen.GetAt(..ExplicietePlanningen.Count()) - Set ..Dag = VorigeExplicietePlanning.VerplaatstVan + Set ..Gepland = VorigeExplicietePlanning.VerplaatstVan Do ..ExplicietePlanningen.RemoveAt(..ExplicietePlanningen.Count()) Set Gelukt = 1 } @@ -85,29 +81,29 @@ If (..ExplicietePlanningen.Count() > 0) { Set VorigeExplicietePlanning = ..ExplicietePlanningen.GetAt(1) - Set ..Dag = VorigeExplicietePlanning.VerplaatstVan + Set ..Gepland = VorigeExplicietePlanning.VerplaatstVan Do ..ExplicietePlanningen.Clear() } ]]> - -Dag:%Date + +Gepland:%TimeStamp %Status $zdh(..DueOut,3)) + ElseIf (Gepland ] ..DueOut) { Set ..GeplandStatus = ##class(APPS.Halux.Planning.enu.GeplandStatus).Later() } Else { - Set ..GeplandStatus = ##class(APPS.Halux.Planning.enu.GeplandStatus).Impliciet() + Set ..GeplandStatus = ##class(APPS.Halux.Planning.enu.GeplandStatus).Vroeger() } - Set i%Dag = Dag + Set i%Gepland = Gepland Quit $$$OK ]]> @@ -119,11 +115,6 @@ ^APPS.Halux8A9.ToeleveringI610D ^APPS.Halux8A9.ToeleveringI610I ^APPS.Halux8A9.ToeleveringI610S - -ProductInfoLijst -subnode -"ProductInfoLijst" - %%CLASSNAME @@ -153,13 +144,10 @@ ProductieStatus -Toelevering +Gepland - -Producten - - + Index: DOM/PM/Bouwstenen/BouwsteenKost.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/BouwsteenKost.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/BouwsteenKost.cls.xml (revision 994) @@ -0,0 +1,53 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.Bouwsteen +62173,38681.492242 +59772,53878.611013 + + + +Gebruikt als Type="S" +Extra kost die bijgeteld wordt bij de totale kost van het product +%Float + + + + +Gebruikt als Type="T" +Float in SEC met 1 cijfer na de comma +Kostplaats gebruikt voor het berekenen van de TijdKost naar KostSupplement +Zie ^RES("PRBS","PI","KOSTPLAATS",... +%Float + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +9 + + +"\" +4 + + +"\" +16 + + + + + + Index: DOM/PM/Product.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 946) +++ DOM/PM/Product.cls.xml (.../Product.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 1 -62164,53153.825679 +62186,50498.942197 62129,41516.729033 0 @@ -65,6 +65,16 @@ 1 %String + + + +1 +DOM.PM.enu.LinkType + + + +1 +%ListOfDataTypes @@ -73,6 +83,16 @@ 1 TECH.Iterator + + +1 +%Float + + + +1 +DOM.PM.enu.ActiefStatus + - + Index: DOM/PM/KADProduct/KADKaderdeur.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/KADProduct/KADKaderdeur.cls.xml (.../KADKaderdeur.cls.xml) (revision 946) +++ DOM/PM/KADProduct/KADKaderdeur.cls.xml (.../KADKaderdeur.cls.xml) (revision 994) @@ -1,11 +1,16 @@ - + 1 1 DOM.PM.MaatwerkProduct -62172,56593.378103 +62175,52398.363372 0 + + +1 +DOM.PM.KADProduct.enu.KADVerpakking + - + Index: BL/PPS/TBX/PrintLijstInfo.cls.xml =================================================================== diff -u --- BL/PPS/TBX/PrintLijstInfo.cls.xml (revision 0) +++ BL/PPS/TBX/PrintLijstInfo.cls.xml (revision 994) @@ -0,0 +1,59 @@ + + + +persistent +1 +%Persistent +62185,48221.218655 +0 + + +%Integer +1 + + + +%List + + + +1 +1 +BatchID +1 + + + +cascade +BatchID +DS.PPS.TBX.Batch + + + +BatchID:%Integer +1 +1 +%Status + + + + +1 +BatchID:%Integer +BL.PPS.TBX.PrintLijstInfo + + + + + + Index: CHUI/Prod/ProductLabel.cls.xml =================================================================== diff -u -r734 -r994 --- CHUI/Prod/ProductLabel.cls.xml (.../ProductLabel.cls.xml) (revision 734) +++ CHUI/Prod/ProductLabel.cls.xml (.../ProductLabel.cls.xml) (revision 994) @@ -1,11 +1,11 @@ - + d ##class(CHUI.Derde.Fax.InkomendeFaxen).RaadpleegLijst() 1 %RegisteredObject -61849,40496.101647 +62180,48023.816674 60158,64600.462905 0 @@ -30,49 +30,21 @@ -Product verpak Blum +Product verpak Blum 5x10 - - - - -Product verpak VH +Product verpak VH 5x10 - - - - -Recupack VH +Recupack VH 8x11 - - - - -Magazijn Halux +Magazijn Halux 6x10 - - - - d ##class(CHUI.Prod.ProductLabel).DoOne(450661) @@ -300,9 +272,9 @@ Set ..pxLabel=##class(CHUI.Prod.sub.pxProductLabel).%New() Set ..pxLabel.Taal="N" Set ..pxLabel.ProductNaam=..Product.KortTekst - Set ..pxLabel.Omschrijving1=..Product.Tekst.Bestelreferentie1 - Set ..pxLabel.ProductNaam2=..Product.Tekst.Bestelreferentie2 - Set ..pxLabel.Omschrijving2=..Product.Tekst.Bestelreferentie3 + Set ..pxLabel.Omschrijving1=..HistpakPalletInfo(1) + Set ..pxLabel.ProductNaam2=..HistpakPalletInfo(2) + Set ..pxLabel.Omschrijving2=..HistpakPalletInfo(3) Set ..pxLabel.ImgURL="c:\bartender\images\logo\Logo VHZwart.svg" Set ..pxLabel.VerpakAantal="Retour ecopacks to Blum" Set ..pxLabel.StockCode="VAN HOECKE NV" @@ -324,6 +296,23 @@ Set ..pxLabel.Aantal=2 ; voor en achterkant rek ]]> + + + +Blum recupak retour uit ^HISTPAK("P") +Lijn + + - + Index: APPS/Halux/Planning/dto/DueOutAlternatiefResultaat.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/DueOutAlternatiefResultaat.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/DueOutAlternatiefResultaat.cls.xml (revision 994) @@ -0,0 +1,15 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62178,41098.221466 +0 + + +APPS.Halux.Planning.dto.DueOutAlternatief +list + + + + Index: APPS/PM/dto/ZoekCriteria.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/PM/dto/ZoekCriteria.cls.xml (.../ZoekCriteria.cls.xml) (revision 946) +++ APPS/PM/dto/ZoekCriteria.cls.xml (.../ZoekCriteria.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,%XML.Adaptor -62164,34055.957924 +62187,50900.595415 62164,32251.747389 0 @@ -43,6 +43,18 @@ %String list + + +%Boolean +1 + + + + +Lijst van opgegeven PRNrs waarin gezocht moet worden. +%String +list + - + Index: DOM/CRM/enu/VoorkeurDocument.cls.xml =================================================================== diff -u --- DOM/CRM/enu/VoorkeurDocument.cls.xml (revision 0) +++ DOM/CRM/enu/VoorkeurDocument.cls.xml (revision 994) @@ -0,0 +1,57 @@ + + + + +JBl + 2011-03-29 + +datatype +1 +%String +62179,41194.783175 +0 + + +,A,OM,O,L,F + + + +;Offerte;Orderbevestiging maatwerk;Orderbevestiging;Leveringsbon;Factuur + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + + Index: DOM/PM/OLProduct/OLKindProductInfo.cls.xml =================================================================== diff -u --- DOM/PM/OLProduct/OLKindProductInfo.cls.xml (revision 0) +++ DOM/PM/OLProduct/OLKindProductInfo.cls.xml (revision 994) @@ -0,0 +1,25 @@ + + + +1 +1 +62180,41900.877871 +0 + + +1 +%Integer + + + +1 +DOM.PM.Product + + + +1 +%String + + + + Index: APPS/Halux/TBX/enu/Status.cls.xml =================================================================== diff -u -r917 -r994 --- APPS/Halux/TBX/enu/Status.cls.xml (.../Status.cls.xml) (revision 917) +++ APPS/Halux/TBX/enu/Status.cls.xml (.../Status.cls.xml) (revision 994) @@ -1,17 +1,21 @@ - + datatype 1 %String -62127,68478.164821 +62181,53691.493032 62123,54830.484983 0 ,W,X,F,B + +,Wachtend,Ongeldig,Finished,Beschadigd + + 1 expression @@ -40,5 +44,5 @@ ]]> - + Index: DOM/PM/TBXProduct/TBXRug.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/TBXProduct/TBXRug.cls.xml (.../TBXRug.cls.xml) (revision 946) +++ DOM/PM/TBXProduct/TBXRug.cls.xml (.../TBXRug.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 DOM.PM.Product -62168,41418.854546 +62174,63080.3521 0 @@ -16,14 +16,6 @@ DOM.PM.enu.TBXLadehoogte - -%Float - - - -%Float - - %List @@ -33,5 +25,5 @@ %String - + Index: DOM/OV/impl/DataM/DataMOrderlijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/impl/DataM/DataMOrderlijn.cls.xml (.../DataMOrderlijn.cls.xml) (revision 946) +++ DOM/OV/impl/DataM/DataMOrderlijn.cls.xml (.../DataMOrderlijn.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.OV.Orderlijn -62171,53116.815688 +62174,41957.919044 0 @@ -52,8 +52,6 @@ - -Utility method for DataMOrder %Integer @@ -88,7 +86,7 @@ -DOM.OV.enu.OrderlijnType +DOM.OV.enu.OrderLijnType @@ -115,5 +113,5 @@ ]]> - + Index: APPS/Web/OLParticulier/impl/OrgaluxDotComLadeSelector.cls.xml =================================================================== diff -u -r917 -r994 --- APPS/Web/OLParticulier/impl/OrgaluxDotComLadeSelector.cls.xml (.../OrgaluxDotComLadeSelector.cls.xml) (revision 917) +++ APPS/Web/OLParticulier/impl/OrgaluxDotComLadeSelector.cls.xml (.../OrgaluxDotComLadeSelector.cls.xml) (revision 994) @@ -1,13 +1,13 @@ - + Implementatie van de LadeSelector die de (in Orgalux.com en Orgalux.ch websites) ondersteunde types laden helpt herkennen. DOM.PM.OL.Gamma.enu,APPS.Web.OLParticulier.dto TECH.Error,DOM.PM.OL 1 APPS.Web.OLParticulier.LadeSelector -62145,36099.664598 +62189,28187.275244 61944,50000.636567 0 @@ -24,7 +24,7 @@ 300mm - 87mm - 2x19 -175 +150 @@ -57,6 +57,10 @@ + +275;300;400;450;500;550;600;700;800;900;1000;1100;1200 + + N;K @@ -614,6 +618,12 @@ + + +1 + + - + Index: BL/PPS/TBX/LeanBatch.cls.xml =================================================================== diff -u -r901 -r994 --- BL/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 901) +++ BL/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek,%VHMacro 1 %RegisteredObject -62144,43577.038968 +62189,50346.428998 61706,56090.718311 0 @@ -28,63 +28,12 @@ Night job to clean old batches - - - - - -Cleanup of ^HATBX("B") -1 - - - - - -Active batches in the global ^HATBX -BatchNr -1 - - - - - -Delete an old batch from the global ^HATBX("B") and from PPS.TBX_Queue -BatchNr -1 - - - - - Delete the old inactive batches from the Batch table and from the Sequence table @@ -112,18 +62,23 @@ Delete one old inactive batch from the Batch table and from the Sequence table BatchNr $H ;The batch is less than one month old - Set oBatch="" - &SQL(DELETE FROM PPS.Batch WHERE ID=:BatchNr) - &SQL(DELETE FROM PPS.TBX_Queue WHERE BatchID=:BatchNr) ;Delete the selected batch from the queue - - // Genereer een event die aangeeft dat deze batch werd verwijderd - Set EventData = ##class(DOM.PM.Maatwerk.TBX.BatchRemovedData).%New(BatchNr) - Set Event = ##class(DOM.PM.Maatwerk.TBX.BatchRemovedEvent).%New(EventData) - Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event) + Set Batch=##class(DS.PPS.TBX.Batch).%OpenId(BatchNr) + If (Batch.NotActive) + { + Set oBatch=##class(DS.PPS.TBX.Batch).%OpenId(BatchNr) + If (31 < ##class(TECH.DateTime).TimeStampVerschil(##class(TECH.enu.DatePart).Dag(),oBatch.CreationTimeStamp,##class(TECH.DateTime).CurrentTimeStamp())) + { + &SQL(DELETE FROM PPS.Batch WHERE ID=:BatchNr) + &SQL(DELETE FROM PPS.TBX_Queue WHERE BatchID=:BatchNr) ;Delete the selected batch from the queue + + Do ##class(APPS.Halux.common.BatchService).%New().VerwijderBatch(BatchNr) + + // Genereer een event die aangeeft dat deze batch werd verwijderd + Set EventData = ##class(DOM.PM.Maatwerk.TBX.BatchRemovedData).%New(BatchNr) + Set Event = ##class(DOM.PM.Maatwerk.TBX.BatchRemovedEvent).%New(EventData) + Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event) + } + } ]]> @@ -138,150 +93,193 @@ Add a new Batch - +Batch:APPS.Halux.common.Batch %Status Add a production order to a batch -BatchNr:%Numeric,TOENr:%Numeric +Batch:APPS.Halux.common.Batch,Toelevering:DOM.LEV.Toelevering %Status Delete a production order from a batch -BatchNr:%Numeric,TOENr:%Numeric +Batch:APPS.Halux.common.Batch,Toelevering:DOM.LEV.Toelevering %Status OudeBatch.Toeleveringen.Count())) + { + Set OudeToelevering = OudeBatch.Toeleveringen.GetAt(i) + If ($Piece(OudeToelevering.Toelevering,"||",2) = Toelevering.GeefToeNr()) + { + Do OudeBatch.Toeleveringen.RemoveAt(i) + Set Verwijderd = 1 + } + Set i = i + 1 + } + Do OudeBatch.%Save() + + Do Batch.VerwijderToelevering(Toelevering) + Set Status = Batch.%Save() + + If Status=$$$OK Do + . Set blPrebuild=##class(BL.PPS.TBX.Prebuild).Instantiate() + . Do blPrebuild.Init(Batch.GeefBatchID()) + . Do blPrebuild.ChkStock("-",Toelevering.GeefToeNr()) + . + . Set blSequence=##class(BL.PPS.TBX.Sequencer).Instantiate() + . Do blSequence.Init(Batch.GeefBatchID()) + . If blSequence.ExistSequence() Do ; build sequence when the sequence does not exist yet + . . Do blSequence.DeleteToelevering(Toelevering.GeefToeNr()) + + Quit Status ]]> Delete all production orders from a batch -BatchNr:%Numeric +Batch:APPS.Halux.common.Batch %Status Search Info of the batches - + 0:"X",1:"") + + Set arBatch(i)=$J(BatchNr,6)_"`"_$J(TimeStamp,14)_"|"_$J(LineNr,3)_" |"_$J(ProductionType,2)_" |"_$$$FormatNbr(Drawers,6)_"|"_$$$FormatNbr(TipOn,6)_"|"_$$$FormatNbr(Sink,6)_"|"_$J(OnderdelenSpecial,3) + Set i = i + 1 + } ]]> + +Batch:APPS.Halux.common.Batch +%TimeStamp + + + + +Toelevering:DOM.LEV.Toelevering +BL.PPS.TBX.ToeleveringProductInfo + + + Convert timestamp to European format @@ -298,122 +296,6 @@ ]]> - - -Find the earliest production date - -%String - - - - - -Is a batch still active (contains it still existing production orders)? -BatchNr -%Boolean - - - - - -Count(TOENr)=Count Drawers\Count TipOn\Count Sink\Count Baliko\OnderdelenSpeciaal]]> - - - - - -"F") - &sql(OPEN FinishTOENr) - For &sql(FETCH FinishTOENr) Quit:SQLCODE Do - . Do ..SetFinished(QueueID) - &sql(CLOSE FinishTOENr) -} - -Method FinishedUntil(BatchID, Sequence) -{ - Quit:'BatchID - Quit:'Sequence - &sql(DECLARE FinishUntil CURSOR FOR - Select ID into :QueueID from PPS.TBX_Queue where BatchID=:BatchID and SequenceNr<:SequenceNr and WPPers_WPStatus<>"F") - &sql(OPEN FinishUntil) - For &sql(FETCH FinishUntil) Quit:SQLCODE Do - . Do ..SetFinished(QueueID) - &sql(CLOSE FinishUntil) -} - -Method SetFinished(QueueID) -{ - Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(QueueID) - Quit:'$isObject(oQ) $$$pxStatusErrorEx("Kan queue-object niet openen.","QueueID: "_QueueID) - Set oQ.WPPers.WPStatus=$$$wsFinished ; - Set CacheStatus=oQ.%Save() - Quit $$$pxCacheStatusEx(CacheStatus,"Fout tijdens verwerken batch.") -} -*/ -]]> - - - -Before,New - - - Print ProPlus @@ -506,22 +388,7 @@ . Do bl.Bodems(ReedsGezaagd) ]]> - - -1 -PRNr,KLNr - - - + Index: APPS/Computer/Computer.cls.xml =================================================================== diff -u -r917 -r994 --- APPS/Computer/Computer.cls.xml (.../Computer.cls.xml) (revision 917) +++ APPS/Computer/Computer.cls.xml (.../Computer.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + 1 1 %RegisteredObject -62153,52277.509601 +62180,49485.859823 0 @@ -37,6 +37,18 @@ Process:%String %Status + + +1 +%Status + + + + +1 +%Status + - + Index: APPS/Halux/Planning/impl/EventCatcher.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/EventCatcher.cls.xml (.../EventCatcher.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/EventCatcher.cls.xml (.../EventCatcher.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62175,36153.948292 +62178,28907.368431 0 @@ -55,11 +55,9 @@ Event:TECH.Events.ToeleveringDeletedEvent - + Index: DOM/LEV/ProductToeleveringLijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/LEV/ProductToeleveringLijn.cls.xml (.../ProductToeleveringLijn.cls.xml) (revision 946) +++ DOM/LEV/ProductToeleveringLijn.cls.xml (.../ProductToeleveringLijn.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + 1 1 DOM.LEV.ToeleveringLijn -62168,59681.792958 +62174,42955.858716 0 @@ -21,6 +21,11 @@ 1 %Date + + +1 +%Boolean + - + Index: DOM/PM/OLProduct/impl/OLProductImpl.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/OLProduct/impl/OLProductImpl.cls.xml (.../OLProductImpl.cls.xml) (revision 903) +++ DOM/PM/OLProduct/impl/OLProductImpl.cls.xml (.../OLProductImpl.cls.xml) (revision 994) @@ -1,10 +1,26 @@ - + 1 DOM.PM.impl.ProductImpl,DOM.PM.OLProduct.OLProduct -62147,52064.363637 +62180,44272.292442 0 + + +DOM.PM.OLProduct.impl.OLInkortInfoImpl +1 + + + +DOM.PM.OLProduct.OLInkortInfo + + - + Index: DOM/PM/TBXProduct/impl/TBXSifonladeImpl.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/TBXProduct/impl/TBXSifonladeImpl.cls.xml (.../TBXSifonladeImpl.cls.xml) (revision 903) +++ DOM/PM/TBXProduct/impl/TBXSifonladeImpl.cls.xml (.../TBXSifonladeImpl.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + TECH.Error 1 @@ -18,7 +18,7 @@ - + Index: DS/PPS/TBX/Batch.cls.xml =================================================================== diff -u -r904 -r994 --- DS/PPS/TBX/Batch.cls.xml (.../Batch.cls.xml) (revision 904) +++ DS/PPS/TBX/Batch.cls.xml (.../Batch.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + Opdeling van een productieflow in blokken (batches). @@ -12,7 +12,7 @@ BL.Derde.LevSpecifiek 1 %Persistent -62136,27689.419352 +62186,28109.256579 62125,31731.886249 0 @@ -88,27 +88,6 @@ 1 - - -List of labeltypes that are already printed -
  • B:Bodems -
  • D:VHossDocs -
  • E:etiketten -
  • F:Fronten -
  • K:KlantEtiketten -
  • L:LadeZijkantBakLijst -
  • M:MatLijst -
  • O:OnderdelenLijst -
  • PA:PalletEtiketten -
  • PE:Pers -
  • R:ruggen -
  • S:Spoelbakken -
  • T:EtikettenTipon -
  • Z:Zaaglijst]]> -%List - - %String @@ -180,6 +159,21 @@ ]]> + +1 +oid:%ObjectIdentity +1 +%Status + + + %Library.CacheStorage ^PPS.BatchD @@ -248,5 +242,5 @@ - + Index: APPS/Web/OLParticulier/impl/ConstraintCreator/OrgaluxProfAfmetingCreator.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/Web/OLParticulier/impl/ConstraintCreator/OrgaluxProfAfmetingCreator.cls.xml (.../OrgaluxProfAfmetingCreator.cls.xml) (revision 734) +++ APPS/Web/OLParticulier/impl/ConstraintCreator/OrgaluxProfAfmetingCreator.cls.xml (.../OrgaluxProfAfmetingCreator.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 APPS.Web.OLParticulier.impl.ConstraintCreator.OrgaluxAfmetingCreator -62039,29038.762522 +62189,28277.012207 0 @@ -29,14 +29,14 @@ @@ -85,5 +85,5 @@ ]]> - + Index: APPS/PM/OL/KortTekstPatroonFactory.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/PM/OL/KortTekstPatroonFactory.cls.xml (.../KortTekstPatroonFactory.cls.xml) (revision 734) +++ APPS/PM/OL/KortTekstPatroonFactory.cls.xml (.../KortTekstPatroonFactory.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + APPS.PM.OL.Common,%Prod.Product 1 %RegisteredObject -62019,54037.333395 +62182,34549.369189 0 @@ -95,6 +95,7 @@ ; Default PatroonCode voor BBX, OLV, OIV, OAV, KLV, KIV, KAV, OIO, KLO Quit:(KlasGR?1(1"BAS")) "xKDDBBWWxx" + Quit:(KlasGR?1(1"ABK")) "xKDDBBWWxx" Quit:(KlasGR?1(1"OLB")) "xxDDBBKxxx" Quit:(KlasGR?1(1"WBB")) "xKDDBBxxxx" Quit:(KlasGR?1(1"WNB")) "xKDDBBxxxx" @@ -191,14 +192,52 @@ %Status implementatie van Formule (w*10) toevoegen. + Set Kenmerk=$$$varkmBreedte ; (Kenmerk,WaardeInKortTekst,WaardeInKenmerk) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 27, 275) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 30, 300) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 35, 350) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 40, 400) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 45, 450) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 50, 500) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 55, 550) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 60, 600) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 68, 680) ; ? + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 70, 700) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 80, 800) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 86, 860) ; ? + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 90, 900) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 10, 1000) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 11, 1100) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 12, 1200) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 13, 1300) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 14, 1400) + Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 15, 1500) + + /* + // [WV OLKenm in mm] situation before mm : + Set Kenmerk=$$$varkmBreedte ; (Kenmerk,WaardeInKortTekst,WaardeInKenmerk) Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 10, 100) Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 11, 110) Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 12, 120) Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 13, 130) Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 14, 140) Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 15, 150) + */ Set Kenmerk=$$$varkmWandDikte Set sc=##class(KenmerkWaardeMap).CreateAndSave(Kenmerk, 6, 16) @@ -221,5 +260,5 @@ ]]> - + Index: BL/Flow/Levering/Label.cls.xml =================================================================== diff -u -r734 -r994 --- BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 734) +++ BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + Afdrukken van labels vanuit een leveringsbon BL.Derde.KlantSpecifiek 1 %RegisteredObject -61871,34124.221042 +62174,36544.985624 61555,48299.048267 0 @@ -279,7 +279,6 @@ Set BONNr=$E(BONNr,1,6) ; consolidaties opgedeeld in verschillende delen zijn 7 lang Set PalID=$Tr($Piece(Tekst,Delimiter,9)," ","") ;Set PalID=$E(BONNr,1,8) ; Pallet zijn 8 lang - D WLIP^vhDBG(195,"*"_BONNr_"*"_$L(BONNr)) Do ..Init(BONNr,,PalID) Set Status=..PrintLabelKlantAdres(Printer) Quit Status @@ -341,5 +340,5 @@ ]]> - + Index: DOM/PM/enu/BouwsteenType.cls.xml =================================================================== diff -u --- DOM/PM/enu/BouwsteenType.cls.xml (revision 0) +++ DOM/PM/enu/BouwsteenType.cls.xml (revision 994) @@ -0,0 +1,46 @@ + + + +datatype +1 +TECH.Enumeration +62173,39369 + + +,K,H,T,S + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + + Index: Flow/RecuPak/Verv.cls.xml =================================================================== diff -u -r734 -r994 --- Flow/RecuPak/Verv.cls.xml (.../Verv.cls.xml) (revision 734) +++ Flow/RecuPak/Verv.cls.xml (.../Verv.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent -61156,49875.001378 +62181,60232.723029 61240,34879.196075 0 @@ -80,6 +80,7 @@ . . . . For I=1:1 Set R=$P(RecuPakRec,"\",I) Quit:R="" Do . . . . . Set RecuPakProd=$P(R,";",2),RecuPakAantal=+$P(R,";",3) . . . . . Set RecuPakPRNr=$P($G(^KPR2(RecuPakProd_" ")),"\") + . . . . . Set:'RecuPakPRNr RecuPakPRNr="*" . . . . . Set:PRNr Vervoer(LEVNr,VervoerNr,FactuurNr,FactuurLijnNr,PRNr,RecuPakPRNr)=$LB(RecuPakAantal) ]]> @@ -213,7 +214,7 @@ . . . . . Set Body=Body_" | "_KortText_$J("",26-$L(KortText))_"| "_RecuPakKortText_$J("",26-$L(RecuPakKortText)) . . . . . Set Body=Body_"| "_$$EXTNUM^vhDTyp(TAantal,10,".T",0)_"|"_$$EXTNUM^vhDTyp(Aantal*RecuPakAantal,10,".T",0)_"("_Aantal_"*"_RecuPakAantal_")" . Do:$D(OnbVH) - . . Set Body=Body_$C(13)_$C(13)_"Recupak onbekend bij Van Hoecke" + . . Set Body=Body_$C(13)_$C(13)_"Recupak niet ingevuld bij Van Hoecke" . . Set Body=Body_$C(13)_"-------|--------|---|---------------------------" . . Set Body=Body_$C(13)_"Vervnr | Factnr | L | Product " . . Set Body=Body_$C(13)_"-------|--------|---|---------------------------" @@ -228,7 +229,7 @@ . . . . . Set Body=Body_$C(13)_VervoerNr_$J("",7-$L(VervoerNr))_"| "_FactuurNr_$J("",7-$L(FactuurNr))_"|"_$J(FactuurLijnNr,2) . . . . . Set Body=Body_" | "_KortText . Do:$D(OnbBlum) - . . Set Body=Body_$C(13)_$C(13)_"Recupak onbekend bij Blum" + . . Set Body=Body_$C(13)_$C(13)_"Recupak niet in de vervoerslijst Blum" . . Set Body=Body_$C(13)_"-------|--------|---|---------------------------|---------------------------" . . Set Body=Body_$C(13)_"Vervnr | Factnr | L | Product | Recupak " . . Set Body=Body_$C(13)_"-------|--------|---|---------------------------|---------------------------" @@ -262,5 +263,5 @@ - + Index: DOM/OV/Orderlijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/Orderlijn.cls.xml (.../Orderlijn.cls.xml) (revision 946) +++ DOM/OV/Orderlijn.cls.xml (.../Orderlijn.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + Deze klasse stelt een orderlijn voor. elke orderlijn heeft een nummer. @@ -9,12 +9,13 @@ dezelfde orderlijn een ander nummer hebben. 1 1 -62171,51993.375906 +62188,37224.358004 0 1 DOM.OV.Order + @@ -29,30 +30,32 @@ 1 -DOM.OV.enu.OrderlijnType +DOM.OV.enu.OrderLijnType + 1 %String + 1 DOM.LEV.Toelevering + 1 DOM.LEV.ToeleveringLijn + 1 %Boolean - - + Index: DOM/LEV/impl/DataM/DataMToeleveringLijnFactory.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/LEV/impl/DataM/DataMToeleveringLijnFactory.cls.xml (.../DataMToeleveringLijnFactory.cls.xml) (revision 946) +++ DOM/LEV/impl/DataM/DataMToeleveringLijnFactory.cls.xml (.../DataMToeleveringLijnFactory.cls.xml) (revision 994) @@ -1,28 +1,28 @@ - + 1 %RegisteredObject -62160,50695.455621 +62174,41603.646354 0 1 -LijnNummer:%Integer,LijnInfo:%String +Toelevering:DOM.LEV.Toelevering,LijnNummer:%Integer,LijnInfo:%String DOM.LEV.impl.DataM.DataMToeleveringLijn - + Index: APPS/PM/OL/Common.mac.rou =================================================================== diff -u -r762 -r994 --- APPS/PM/OL/Common.mac.rou (.../Common.mac.rou) (revision 762) +++ APPS/PM/OL/Common.mac.rou (.../Common.mac.rou) (revision 994) @@ -24,14 +24,14 @@ lbZoneToepassingenKMW() Quit $$lbZoneTpVoorraad()_$$lbZoneTpOpbergen()_$$lbZoneTpAfval()_$$lbZoneTpVoorbereid()_$$lbZoneTpKoken()_$$lbZoneTpAcc()_$$lbZoneTpAndere() lbSamenstellingsTypesKMW() Quit $LB("Set","Los","ServiceProduct") ; Enumeration-class ... lbInformatie() Quit $LB("Afbeelding (read-only)","Langtekst NL (read-only)","Productgamma","SubType","Kleur","Hoogte (in mm)","Breedte (in mm)","Diepte (in mm)") -lbAangeraden() Quit $LB("Aangeraden Breedte min (in ?)","Aangeraden Breedte max (in ?)") -lbVereisten() Quit $LB("Breedte min (in ?)","Breedte max (in ?)","Wanddikte (in mm, optioneel)","Breedte speling (indien niet standaard) TBD","Dieptes") +lbAangeraden() Quit $LB("Aangeraden Breedte min (in ?)","Aangeraden Breedte max (in mm)") +lbVereisten() Quit $LB("Breedte min (in mm)","Breedte max (in mm)","Wanddikte (in mm, optioneel)","Breedte speling (indien niet standaard) TBD","Dieptes") lbFamiliesKMW() Quit $LB("NietBlumLade","Alle_TBX_geen_bevestigingen_nodig","TBX_plus_Reling_of_BXglas","TBX_plus_Boxside_Ew_of_Dw","TBX_intivo","TBX_antaro_Reling") lbLadeTypesKMW() Quit $LB("N","M","M/Z","B","B/Z","D","D/Z","K","K/Z","C","C/Z") lbLadeKleurenKMW() Quit $LB("zijdewit","terrazwart","grijs","wit","inox","Aluminium") lbTips() Quit $LB("1","2","3","4","5") lbIndividueel() Quit $LB("Dit is een individuele kenmerken-set") -lbMasterVoor() Quit $LB("Te genereren (in cm)","in tekst sleutel","in foto sleutel", "Te genereren (in cm)","in tekst sleutel","in foto sleutel", "Te genereren","in tekst sleutel","in foto sleutel", "Te genereren (in mm)","in tekst sleutel","in foto sleutel") +lbMasterVoor() Quit $LB("Te genereren (in mm)","in tekst sleutel","in foto sleutel", "Te genereren (in mm)","in tekst sleutel","in foto sleutel", "Te genereren","in tekst sleutel","in foto sleutel", "Te genereren (in mm)","in tekst sleutel","in foto sleutel") ;Set lbHeaders = lbIdentificatie _ lbSorteersleutels _ lbWebsitesShops _ lbToepassing _ lbZoneToepassingen _ lbSamenstellingsTypes _ lbInformatie _ lbVereisten _ lbFamilies _ lbLadeTypes _ lbLadeKleuren _ lbTips _ lbIndividueel _ lbMasterVoor // ZoneToepassingen KMW Index: DOM/VKP/VerzendWijze.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/VKP/VerzendWijze.cls.xml (.../VerzendWijze.cls.xml) (revision 903) +++ DOM/VKP/VerzendWijze.cls.xml (.../VerzendWijze.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + De transportafhankelijke parameters worden bepaald door de verzendwijze @@ -11,7 +11,7 @@ BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek 1 %RegisteredObject -62132,32018.34805 +62189,53065.454326 61807,38311.621993 0 @@ -256,6 +256,14 @@ + + + +Mogen de orderlijnen indien nodig voor deze verzendwijze achteruit geschoven worden? +expression + + - + Index: APPS/Web/OLParticulier/impl/ConstraintCreator/OrgaluxAfmetingCreator.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/Web/OLParticulier/impl/ConstraintCreator/OrgaluxAfmetingCreator.cls.xml (.../OrgaluxAfmetingCreator.cls.xml) (revision 734) +++ APPS/Web/OLParticulier/impl/ConstraintCreator/OrgaluxAfmetingCreator.cls.xml (.../OrgaluxAfmetingCreator.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 APPS.Web.OLParticulier.impl.ConstraintCreator.ConstraintCreator -62067,56193.465138 +62189,28269.460547 0 @@ -27,7 +27,7 @@ - + Index: DOM/LEV/ToeleveringAPI.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/LEV/ToeleveringAPI.cls.xml (.../ToeleveringAPI.cls.xml) (revision 946) +++ DOM/LEV/ToeleveringAPI.cls.xml (.../ToeleveringAPI.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 1 -62166,29288.377693 +62174,33425.101675 0 @@ -13,10 +13,12 @@ + +Van zodra er een LeverancierObject is mag deze verhuisd worden naar die plaats 1 LeverancierNummer:%Integer TECH.Iterator - + Index: APPS/Halux/Planning/PlanningService.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 954) +++ APPS/Halux/Planning/PlanningService.cls.xml (.../PlanningService.cls.xml) (revision 994) @@ -1,24 +1,88 @@ - + Service voor de Halux planningstool. Ondersteunt het visulaliseren van het resourcegebruik voor alle toeleveringen die reeds ingegeven zijn. 1 %RegisteredObject -62175,28856.089924 +62187,56801.852768 0 Halux_Planning_PlanningService - - +Van:%Date,Naar:APPS.Halux.Planning.dto.DataLijst,ToeleveringNummers:%ListOfDataTypes +APPS.Halux.Planning.dto.EvalueerVerplaatsingResultaat + - + If (HeeftFysiekStockProbleem && (Datum < DueOutDag)) + { + Do VerplaatsingEvaluatie.Evaluaties.Insert("Toelevering "_Toelevering.GeefToeNr()_" met een stockprobleem wordt best niet naar voor verplaatst.") + } + If (Datum > DueOutDag) + { + Do VerplaatsingEvaluatie.Evaluaties.Insert("Toelevering "_Toelevering.GeefToeNr()_" wordt naar achter verplaatst en krijgt een leverimpact.") + } + } + If (VerplaatsingEvaluatie.Evaluaties.Count() > 0) + { + Do Resultaat.VerplaatsingEvaluaties.Insert(VerplaatsingEvaluatie) + } + } + Quit Resultaat +]]> + @@ -27,7 +91,6 @@ Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie %XML.DataSet + +AantalWeken:%Integer,ToeleveringNummers:%ListOfDataTypes +APPS.Halux.Planning.dto.DueOutAlternatiefResultaat + + + APPS.Halux.Planning.dto.ApplicatieInstellingen - - -Geeft de settings van de kolommen (o.a. volgorde en breedte) terug. -DataGridNaam:%String,Gebruiker:%String -APPS.common.GUI.dto.KolomInfoLijst - - - - - -Bewaart de settings van de kolommen. -DataGridNaam:%String,Gebruiker:%String,KolomInfoLijst:APPS.common.GUI.dto.KolomInfoLijst - - - ID:%String 1 @@ -119,46 +203,54 @@ ]]> + + +Geeft de settings van de kolommen (o.a. volgorde en breedte) terug. +DataGridNaam:%String,Gebruiker:%String +APPS.common.GUI.dto.KolomInfoLijst + + + + + +Bewaart de settings van de kolommen. +DataGridNaam:%String,Gebruiker:%String,KolomInfoLijst:APPS.common.GUI.dto.KolomInfoLijst + + + -ToeleveringNummers:%ListOfDataTypes +Lijn:APPS.Halux.common.enu.ProductieLijn,ToeleveringNummers:%ListOfDataTypes APPS.Halux.Planning.dto.MaakBatchResultaat @@ -256,6 +365,8 @@ + +Do ##class(APPS.Halux.Planning.PlanningService).%New().ResyncToeleveringInfo() - + Index: DOM/LEV/ToeleveringLijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/LEV/ToeleveringLijn.cls.xml (.../ToeleveringLijn.cls.xml) (revision 946) +++ DOM/LEV/ToeleveringLijn.cls.xml (.../ToeleveringLijn.cls.xml) (revision 994) @@ -1,30 +1,35 @@ - + 1 1 -62171,30682.828313 +62174,43302.367837 0 1 %Integer - + 1 -DOM.OV.Order +%Integer - + 1 -DOM.OV.Orderlijn +DOM.LEV.Toelevering - + 1 -%Date +DOM.OV.Order + + +1 +DOM.OV.Orderlijn + - + Index: APPS/PM/OL/ConsistentieChecker.cls.xml =================================================================== diff -u -r885 -r994 --- APPS/PM/OL/ConsistentieChecker.cls.xml (.../ConsistentieChecker.cls.xml) (revision 885) +++ APPS/PM/OL/ConsistentieChecker.cls.xml (.../ConsistentieChecker.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + DOM.PM.OL 1 %RegisteredObject -62139,39194.857505 +62188,35443.888363 0 @@ -38,7 +38,7 @@ else { // Foto controleren - Set URL = Product.GetFotoBestand("WWW") + set URL = ##class(TECH.Files).AppendFile("http://res.vanhoecke.be/images/orgalux",Product.GetFotoBestand()) ;w URL,! if (URL = "") { @@ -56,7 +56,7 @@ } // Thumbnail controleren - Set URL = Product.GetFotoThumbnail("WWW") + set URL = ##class(TECH.Files).AppendFile("http://res.vanhoecke.be/images/orgalux",Product.GetFotoThumbnail()) ;w URL,! if (URL = "") { @@ -81,10 +81,13 @@ if ('(Product.GetMateriaal()["WOODLINE") && Product.GetKleur()="") Set Fouten(UnID,"Kleur") = 1 if ($ListLength(Product.GetLadeFamilies()) = 0) Set Fouten(UnID,"LadeFamilies") = 1 + /* + set URL = ##class(TECH.Files).AppendFile("http://res.vanhoecke.be/images/orgalux",Product.GetFotoBestand()) set URL = ##class(Prod.Kenmerk.DataDefinitie).GetFullURL("OL",UnID,"InfoSleutel","N","LI","WWW") if ( $length(URL) ) && ($$$UCase(URL) '[ "HTTP") { Set Fouten(UnID,"FullURL") = 1 } + */ if $Data(Fouten(UnID)) Set Fouten(UnID)=$ListBuild(Product.GetKortTekst()) } @@ -120,5 +123,5 @@ ]]> - + Index: DOM/PM/impl/ProductImpl.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 946) +++ DOM/PM/impl/ProductImpl.cls.xml (.../ProductImpl.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.PM.Product -62164,53194.873443 +62186,50526.951586 62129,41516.717135 0 @@ -18,8 +18,12 @@ 1 %Status @@ -78,6 +82,12 @@ ]]> + +DOM.PM.enu.LinkType + + + %Boolean + +%ListOfDataTypes + + + TECH.Iterator + + +DOM.PM.enu.ActiefStatus + + + + +%Float + + + + +%Integer + + - + Index: BL/Derde/Agenda/Agenda.cls.xml =================================================================== diff -u -r901 -r994 --- BL/Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 901) +++ BL/Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + d ##class(BL.Derde.Agenda.Agenda).RijdenWerkPriveAll() BL.EC.Common 1 %RegisteredObject -62145,31619.196966 +62179,50771.446053 59994,36389.667445 0 @@ -208,6 +208,7 @@ Set DataClassName = $piece(..%ClassName(1),"BL.",2) Set ID = ..User.%Id()_"||"_Datum_"||"_SubID + D WLIP^vhDBG(195,ID) Set Agenda=$zobjClassMethod(DataClassName,"%OpenId",ID) Set pxClassName = "BL.Derde.Agenda."_"px"_Agenda.%ClassName(0) Set pxAgenda=$zobjClassMethod(pxClassName,"%New") @@ -267,7 +268,6 @@ pxAgenda Derde.Agenda.Agenda + +Identifier +BL.Derde.Agenda.pxStatus + + + Email van de klanttekst naar de betrokken personen @@ -915,5 +930,5 @@ ]]> - + Index: BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml =================================================================== diff -u -r901 -r994 --- BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml (.../TandemBoxRecalcBS.cls.xml) (revision 901) +++ BL/PR/GA/impl/TandemBoxRecalcBS.cls.xml (.../TandemBoxRecalcBS.cls.xml) (revision 994) @@ -1,9 +1,10 @@ - + 1 BL.PR.GA.TandemBoxRecalc -62125,37930.566182 +62182,48223.346602 +62125,38650.023573 0 @@ -109,7 +110,7 @@ %Boolean 0) 0 @@ -290,5 +291,5 @@ ]]> - + Index: _vhisie/TBX/WizKleur.csp =================================================================== diff -u -r757 -r994 --- _vhisie/TBX/WizKleur.csp (.../WizKleur.csp) (revision 757) +++ _vhisie/TBX/WizKleur.csp (.../WizKleur.csp) (revision 994) @@ -17,7 +17,8 @@ Set arVTL("KLR","DS_BI")=..WebTextValue("DS_BI",Taal,"L") ; massief eik - B Set arVTL("KLR","DS_GF")=..WebTextValue("DS_GF",Taal,"L") ; grijs metallic - F Set arVTL("KLR","DS_AF")=..WebTextValue("DS_AF",Taal,"L") ; aluminium - F - Set arVTL("KLR","DS_GMA")=..WebTextValue("DS_GMA",Taal,"L") ; grijs metallic - S + Set arVTL("KLR","DS_GMA")=..WebTextValue("DS_GMA",Taal,"L") ; grijs mengvorm - MA + Set arVTL("KLR","DS_IMA")=..WebTextValue("DS_IMA",Taal,"L") ; inox mengvorm - MA Set arVTL("KLR","DS_WA")=..WebTextValue("DS_WA",Taal,"L") ; zijdewit - A(antaro) Set arVTL("KLR","DS_GA")=..WebTextValue("DS_GA",Taal,"L") ; grijs - A Set arVTL("KLR","DS_ZA")=..WebTextValue("DS_ZA",Taal,"L") ; zwartbruin - A @@ -209,6 +210,7 @@
    #(arVTL("KLR","DS_GMA"))#
    +
    #(arVTL("KLR","DS_IMA"))#
     Index: DS/PPS/TBX/sub/emBatchToelevering.cls.xml =================================================================== diff -u -r734 -r994 --- DS/PPS/TBX/sub/emBatchToelevering.cls.xml (.../emBatchToelevering.cls.xml) (revision 734) +++ DS/PPS/TBX/sub/emBatchToelevering.cls.xml (.../emBatchToelevering.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + Opdeling van een productieflow in blokken (batches). @@ -11,7 +11,7 @@ serial 1 %SerialObject -61990,35772.475792 +62174,47165.012773 0 @@ -42,5 +42,5 @@ - + Index: DOM/HR/Protime/Werknemer.cls.xml =================================================================== diff -u -r966 -r994 --- DOM/HR/Protime/Werknemer.cls.xml (.../Werknemer.cls.xml) (revision 966) +++ DOM/HR/Protime/Werknemer.cls.xml (.../Werknemer.cls.xml) (revision 994) @@ -1,13 +1,13 @@ - + persistent vhLib.Macro 1 Werknemers MySQLStorage %Library.Persistent -62174,58084.508159 +62182,60269.02755 61699,60987.846246 0 @@ -60,6 +60,11 @@ CITY     + +%Integer +COUNTRY + + %String DATE_IN @@ -151,25 +156,39 @@ DOM.CRM.dto.Klant + +Waarde:%String + + + %CacheSQLStorage ^DOM.HR.Protime.WerknemerS - + Index: DOM/PM/impl/DataM/DataMClassificatie.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/impl/DataM/DataMClassificatie.cls.xml (.../DataMClassificatie.cls.xml) (revision 946) +++ DOM/PM/impl/DataM/DataMClassificatie.cls.xml (.../DataMClassificatie.cls.xml) (revision 994) @@ -1,17 +1,13 @@ - + 1 DOM.PM.Classificatie,%RegisteredObject -62157,49285.036165 +62187,52219.708105 62165,31033.384972 0 - -%String - - - + %Integer @@ -21,17 +17,22 @@ -Key:%String,KKey:%Integer +ClassificatieID:%Integer 1 1 %Status + +%Integer + + + DOM.PM.enu.PMClassificatieNiveau 1 %String - + Index: DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml (.../ProductenNaarPrijslijst.cls.xml) (revision 946) +++ DOM/PM/OL/Gamma/impl/ProductenNaarPrijslijst.cls.xml (.../ProductenNaarPrijslijst.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + vhLib.Macro,DOM.PM.OL,DOM.DomeinContext 1 DOM.PM.OL.Gamma.IProductenNaarPrijslijst -62167,47288.676866 +62181,37146.240563 0 @@ -260,7 +260,7 @@ set ProductInfo.EAN = oKenmerk.GetProduct().BarcodeWaarde set ProductInfo.Omschrijving=oKenmerk.GetLangTekst() - set LadeDieptes = oKenmerk.GetLadeDieptesInMM() if LadeDieptes = 0 set LadeDieptes = "" + set LadeDieptes = oKenmerk.GetLadeDieptes() if LadeDieptes = 0 set LadeDieptes = "" set ProductInfo.LadeDieptes = $$ListToPieces^vhLib(LadeDieptes,..WaardeDelim) set ProductInfo.LadeBreedtes = ..GetLadeBreedteString(oKenmerk.GetLadeBreedteMin(),oKenmerk.GetLadeBreedteMax()) set ProductInfo.WandDiktes = $$ListToPieces^vhLib(oKenmerk.GetWandDiktes(),..WaardeDelim) @@ -307,9 +307,9 @@ %String ="_(Min*10) - if $length(Max) set result = result_$select($length(result):" ",1:"")_"<="_(Max*10) - if (Min=Max)&&(Min'="") set result = Min*10 + if $length(Min) set result = ">="_(Min) + if $length(Max) set result = result_$select($length(result):" ",1:"")_"<="_(Max) + if (Min=Max)&&(Min'="") set result = Min if result = 0 set result = "" quit result ]]> @@ -374,5 +374,5 @@ ]]> - + Index: csp/wol.cls.xml =================================================================== diff -u -r734 -r994 --- csp/wol.cls.xml (.../wol.cls.xml) (revision 734) +++ csp/wol.cls.xml (.../wol.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + User cache %CSP.Page -62066,34685.72549 +62188,29978.499368 61078,48095.590294 0 @@ -49,6 +49,7 @@ . If IP="192.168.1.15" Set MAC="6C-62-6D-95-1D-AE" . If IP="192.168.1.97" Set MAC="00-17-A4-4D-7D-69" . If IP="192.168.1.138" Set MAC="00-OF-FE-74-89-24" + . If IP="192.168.2.40" Set MAC="6C-62-6D-A1-61-D3" . If $G(MAC)'="" Do ExecWOL(MAC) Do Mail(MAC,IP,Name) @@ -139,5 +140,5 @@ ]]> - + Index: DOM/PM/Bouwstenen/BouwsteenHalfFabr1Dim.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/BouwsteenHalfFabr1Dim.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/BouwsteenHalfFabr1Dim.cls.xml (revision 994) @@ -0,0 +1,57 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.BouwsteenHalfFabr +62173,38377.598833 +59772,53878.611013 +0 + + + +Type="H" en het halffabrikaat heeft een diemensie +Bruto = Netto + Bewerkingsverlies (bv. dikte van de zaagsnede) +%String + + + + +Type="H" en het halffabrikaat heeft een diemensie +MetUitval = Bruto + Uitval +Uitval kan berekend worden als een percentage op de Bruto lengte maar ook als een vaste waarde +%String + + + + +Type="H" en het halffabrikaat heeft een dimensie +Is de netto afmeting van de halffabrikaat +%String + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +"D" +2 + + +"\" +"D" +3 + + +"\" +"D" +1 + + + + + + Index: DOM/PM/OLProduct/OLProduct.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/OLProduct/OLProduct.cls.xml (.../OLProduct.cls.xml) (revision 903) +++ DOM/PM/OLProduct/OLProduct.cls.xml (.../OLProduct.cls.xml) (revision 994) @@ -1,11 +1,15 @@ - + - - 1 DOM.PM.Product -62147,51214.752641 +62180,43646.195591 +0 + + +1 +DOM.PM.OLProduct.OLInkortInfo + - + Index: APPS/Halux/Planning/dto/ResourceDrempels.cls.xml =================================================================== diff -u -r917 -r994 --- APPS/Halux/Planning/dto/ResourceDrempels.cls.xml (.../ResourceDrempels.cls.xml) (revision 917) +++ APPS/Halux/Planning/dto/ResourceDrempels.cls.xml (.../ResourceDrempels.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,%XML.Adaptor -62153,42210.985314 +62185,50042.216479 0 @@ -18,41 +18,49 @@ APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel - + APPS.Halux.Planning.dto.ResourceDrempel + + +APPS.Halux.Planning.dto.ResourceDrempel + + + +APPS.Halux.Planning.dto.ResourceDrempel + - + Index: BL/Prod/OptiBox/sub/pxStatus.cls.xml =================================================================== diff -u -r734 -r994 --- BL/Prod/OptiBox/sub/pxStatus.cls.xml (.../pxStatus.cls.xml) (revision 734) +++ BL/Prod/OptiBox/sub/pxStatus.cls.xml (.../pxStatus.cls.xml) (revision 994) @@ -1,9 +1,10 @@ - + + 1 %RegisteredObject,%XML.Adaptor -60971,52219.487099 +62186,44794.625376 60945,71284.187507 0 @@ -41,6 +42,12 @@ + + +vertaling vna IPAdres naar naam +%String + + Optional @@ -56,5 +63,5 @@ - + Index: APPS/MAG/Optibox/OptiboxImpl.cls.xml =================================================================== diff -u -r938 -r994 --- APPS/MAG/Optibox/OptiboxImpl.cls.xml (.../OptiboxImpl.cls.xml) (revision 938) +++ APPS/MAG/Optibox/OptiboxImpl.cls.xml (.../OptiboxImpl.cls.xml) (revision 994) @@ -1,11 +1,11 @@ - + JBL + 2011-03-02 Optibox processen afsluiten en indien nodig opnieuw opstarten van het toestel %RegisteredObject -62160,53753.789734 +62187,48519.603878 0 @@ -22,20 +22,26 @@ Set OptiboxServerName = $$PI^vhPOPUP("C;C","-1O","Titel","SYSTEM","OPTIBOX") If ($get(zb) '= "CANC"){ - + Set Computer = ##class(APPS.Computer.Computer).Create(OptiboxServerName) + Set Persoon = $Get(QU,"SYS") + Do ##class(vhLib.Logger).%New("Computer").Warning(Computer.ServerName_" wordt herstart",Computer.ServerName_" wordt herstart door "_Persoon_".") + Do Computer.StopProces("PanotecWatchdog.exe") Do Computer.StopProces("PanotecOptimizer.exe") Do Computer.StopProces("BlackBoxTCP.exe") - + + //Herstart van pc + Do Computer.Herstart() + // herstarten van processen - Do Computer.StartProces("C:\OptiboxStart.bat") + //Do Computer.StartProces("C:\OptiboxStart.bat") } } ]]> - + Index: APPS/Halux/Planning/impl/Queries.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/Queries.cls.xml (.../Queries.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/Queries.cls.xml (.../Queries.cls.xml) (revision 994) @@ -1,43 +1,92 @@ - + 1 %RegisteredObject -62175,35155.092653 +62179,49271.111348 0 %SQLQuery Van:%Date,Tot:%Date -Hoeveelheid)*PI.Aantal,0) As ALUFrees, COALESCE(Sum(ALUOperator->Hoeveelheid)*PI.Aantal,0) As ALUOperator, COALESCE(Sum(ALUZaag->Hoeveelheid)*PI.Aantal,0) As ALUZaag, COALESCE(Sum(Bewerkingscenter->Hoeveelheid)*PI.Aantal,0) As Bewerkingscenter, COALESCE(Sum(HoekkastInpak->Hoeveelheid)*PI.Aantal,0) As HoekkastInpak, COALESCE(Sum(HoekkastMontage->Hoeveelheid)*PI.Aantal,0) As HoekkastMontage, COALESCE(Sum(HoekkastZaag->Hoeveelheid)*PI.Aantal,0) As HoekkastZaag, COALESCE(Sum(Houtzaag->Hoeveelheid)*PI.Aantal,0) As Houtzaag, COALESCE(Sum(KartonMachine->Hoeveelheid)*PI.Aantal,0) As KartonMachine, COALESCE(Sum(TBXPers1->Hoeveelheid)*PI.Aantal,0) As TBXPers1, COALESCE(Sum(TBXPers2->Hoeveelheid)*PI.Aantal,0) As TBXPers2, COALESCE(Sum(TBXPers3->Hoeveelheid)*PI.Aantal,0) As TBXPers3, COALESCE(Sum(TBXPicking->Hoeveelheid)*PI.Aantal,0) As TBXPicking, COALESCE(Sum(Voormontage->Hoeveelheid)*PI.Aantal,0) As Voormontage + + 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 :Van < CAST(TI.Gepland As DATE) AND CAST(TI.Gepland As DATE) < :Tot + GROUP BY CAST(TI.Gepland As DATE), PI.Categorie]]> %SQLQuery Datum:%Date,Categorie:APPS.Halux.Planning.enu.Categorie -Hoeveelheid)*PI.Aantal,0) As ALUFrees, COALESCE(Sum(ALUOperator->Hoeveelheid)*PI.Aantal,0) As ALUOperator, COALESCE(Sum(ALUZaag->Hoeveelheid)*PI.Aantal,0) As ALUZaag, COALESCE(Sum(Bewerkingscenter->Hoeveelheid)*PI.Aantal,0) As Bewerkingscenter, COALESCE(Sum(HoekkastInpak->Hoeveelheid)*PI.Aantal,0) As HoekkastInpak, COALESCE(Sum(HoekkastMontage->Hoeveelheid)*PI.Aantal,0) As HoekkastMontage, COALESCE(Sum(HoekkastZaag->Hoeveelheid)*PI.Aantal,0) As HoekkastZaag, COALESCE(Sum(Houtzaag->Hoeveelheid)*PI.Aantal,0) As Houtzaag, COALESCE(Sum(KartonMachine->Hoeveelheid)*PI.Aantal,0) As KartonMachine, COALESCE(Sum(TBXPers1->Hoeveelheid)*PI.Aantal,0) As TBXPers1, COALESCE(Sum(TBXPers2->Hoeveelheid)*PI.Aantal,0) As TBXPers2, COALESCE(Sum(TBXPers3->Hoeveelheid)*PI.Aantal,0) As TBXPers3, COALESCE(Sum(TBXPicking->Hoeveelheid)*PI.Aantal,0) As TBXPicking, COALESCE(Sum(Voormontage->Hoeveelheid)*PI.Aantal,0) As Voormontage - FROM APPS_Halux_Planning_impl.ToeleveringInfo TI - JOIN APPS_Halux_Planning_impl.ToeleveringInfo_ProductInfoLijst PIL ON TI.ID = PIL.ToeleveringInfo - JOIN APPS_Halux_Planning_impl.ProductInfo PI ON PI.ID = PIL.ProductInfoLijst - JOIN APPS_Halux_Planning_impl.ProductInfo_ActiviteitInfoLijst AIL ON PI.ID = AIL.ProductInfo - JOIN APPS_Halux_Planning_impl.ActiviteitInfo AI ON AI.ID = AIL.ActiviteitInfoLijst - JOIN APPS_Halux_Planning_impl.ResourceGebruik RG ON AI.ResourceGebruik = RG.ID - WHERE TI.Dag = :Datum AND ((:Categorie is null) OR (PI.Categorie = :Categorie)) - GROUP BY TI.Dag, AI.Naam, PI.ProductCode]]> + %SQLQuery SELECT DISTINCT ToeleveringNummer FROM APPS_Halux_Planning_impl.ToeleveringInfo ORDER BY ToeleveringNummer ASC - + Index: APPS/Web/OLParticulier/impl/KellerLadeSelector.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/Web/OLParticulier/impl/KellerLadeSelector.cls.xml (.../KellerLadeSelector.cls.xml) (revision 734) +++ APPS/Web/OLParticulier/impl/KellerLadeSelector.cls.xml (.../KellerLadeSelector.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + LadeSelector die enkel de door Keller gekende lades ondersteunt. Deze inherit de OrgaluxDotComLadeSelector, maar doet daarbovenop nog extra controles op de Keller breedtes, enkel Plus, ... 1 APPS.Web.OLParticulier.impl.OrgaluxDotComLadeSelector -62004,54458.081603 +62189,28235.013963 61944,49997.028429 0 @@ -178,11 +178,11 @@ ]]> - + 1 - + Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml =================================================================== diff -u -r948 -r994 --- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 948) +++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml (.../TBXLadeImpl.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.PM.impl.MaatwerkProductImpl,DOM.PM.TBXProduct.TBXLade -62172,60078.735853 +62182,32582.313197 0 @@ -72,7 +72,7 @@ If ( (Variant '= ##class(DOM.PM.enu.LadeVariant).TBXAntaro()) && (Variant '= ##class(DOM.PM.enu.LadeVariant).TBXIntivo()) ) { Set Product = ##class(DOM.PM.Bouwstenen.Product).%OpenId(..GeefPRNr()) - Set It = ##class(TECH.ListIterator).%New(Product.BouwStenen) + Set It = ##class(TECH.ListIterator).%New(Product.Bouwstenen) while (It.HasNext() && 'HeeftEenReling) { Set BouwsteenKost = It.Next() @@ -163,7 +163,7 @@ %Boolean + +%Boolean + + + + +%Boolean + + + %Boolean %Integer - + Index: DOM/PM/OL/Gamma/impl/ProductenNaarVerkoophandboek.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/OL/Gamma/impl/ProductenNaarVerkoophandboek.cls.xml (.../ProductenNaarVerkoophandboek.cls.xml) (revision 946) +++ DOM/PM/OL/Gamma/impl/ProductenNaarVerkoophandboek.cls.xml (.../ProductenNaarVerkoophandboek.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + TECH.Error,BL.Sys.FOP.Common,DOM.DomeinContext 1 DOM.PM.OL.Gamma.IProductenNaarVerkoophandboek -62168,54567.607595 +62182,43117.3053 0 @@ -145,8 +145,8 @@ set Type = $select(ProductInfo.Type = "Set":1,1:2) - set ID = $order(%mdDataSort(Type,ProductGroep,LadeDiepte,LadeBreedte,KortTekst,Checksum,""),-1)+1 - set %mdDataSort(Type,ProductGroep,LadeDiepte,LadeBreedte,KortTekst,Checksum,ID) = ProductInfo + set ID = $order(%mdDataSort(KortTekst,Checksum,""),-1)+1 + set %mdDataSort(KortTekst,Checksum,ID) = ProductInfo ; [Review WV] voorstel om zonder %mdDataSort te werken : ; de oref in een list/array steken, en de listindex/key in de multi-dim tempglobal weg te steken ; dit is slechts 1 'indirectie' meer dan uw werkwijze en vermijd de grote %md local @@ -164,17 +164,20 @@ set mdReference = "%mdDataSort" set checksum = "" set ProductGroep = "" + set Subgroep = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbSubgroep).%New() + do XML.Document.Subgroepen.Insert(Subgroep) + set Subgroep.PageBreak = "auto" + for { set mdReference = $query(@mdReference) quit:mdReference="" set ProductInfo = @mdReference + /* if ProductGroep '= $qsubscript(mdReference,2) { - set Subgroep = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbSubgroep).%New() - do XML.Document.Subgroepen.Insert(Subgroep) set Subgroep.Omschrijving = ProductInfo.ProductGroepOmschrijving - set Subgroep.PageBreak = "auto" } + */ - if checksum '= $qsubscript(mdReference,6) { + if checksum '= $qsubscript(mdReference,2) { set Product = ##class(DOM.PM.OL.Gamma.impl.XML.vkhbProduct).%New() do Subgroep.Producten.Insert(Product) @@ -183,10 +186,12 @@ set Foto.Omschrijving = "Foto" do Product.Fotos.Insert(Foto) + /* for ctrZones = 1 : 1 : $listlength(ProductInfo.Zones) { set oDynSpaceImageURL = ..BLProdImageLink.GetImageURL("LOGO","DS_"_$listget(ProductInfo.Zones,ctrZones),"FOPEMBEDPDF",,..BLProdImageLinkPrefs) if $IsObject(oDynSpaceImageURL) do Product.DynamicspaceItems.Insert(oDynSpaceImageURL) } + */ set Product.Omschrijving = ProductInfo.Omschrijving set Product.Tips = ##class(TECH.ListUtils).ListbuildToList(ProductInfo.Tips) @@ -204,8 +209,8 @@ if $length(ProductInfo.Kleur) set GroepData.Kleur = ProductInfo.Kleur kill @mdReference - set ProductGroep = $qsubscript(mdReference,2) - set checksum = $qsubscript(mdReference,6) + ;set ProductGroep = $qsubscript(mdReference,2) + set checksum = $qsubscript(mdReference,2) } quit XML.Document @@ -312,5 +317,5 @@ DOM.PM.OL.Gamma.dto.ProductInfoVoorPrijslijst - + Index: DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml (.../OLMKenmerken.cls.xml) (revision 903) +++ DOM/PM/Maatwerk/Calc/Common/impl/OLMKenmerken.cls.xml (.../OLMKenmerken.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken -62158,49435.972612 +62179,54738.707996 0 @@ -33,8 +33,11 @@ TeBekomenLengte + +TeBekomenPrijs + - + Index: DOM/PM/OL/Gamma/dtoUtils.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/OL/Gamma/dtoUtils.cls.xml (.../dtoUtils.cls.xml) (revision 946) +++ DOM/PM/OL/Gamma/dtoUtils.cls.xml (.../dtoUtils.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + TECH.Error,Prod.Kenmerk,DOM.PM.OL,vhLib.Macro 1 %RegisteredObject -62166,34468.272916 +62188,41437.346074 61986,30861.155352 0 @@ -42,12 +42,11 @@ set dtoFotoLink = ##class(DOM.dto.FotoLinks).%New() set dtoFotoLink.FotoURL = oKenmerkOrgalux.GetFotoBestand() set dtoFotoLink.ThumbnailURL = oKenmerkOrgalux.GetFotoThumbnail() - do dtoProduct.VertalingFotoLinks.Insert(dtoFotoLink) quit dtoProduct ]]> - + Index: DOM/CRM/impl/DataM/DataMKlant.cls.xml =================================================================== diff -u -r966 -r994 --- DOM/CRM/impl/DataM/DataMKlant.cls.xml (.../DataMKlant.cls.xml) (revision 966) +++ DOM/CRM/impl/DataM/DataMKlant.cls.xml (.../DataMKlant.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.CRM.impl.DataM.DataMKlantBase -62174,62477.197921 +62186,42451.296869 0 @@ -22,11 +22,21 @@ 2 - + %Integer +3 + + + +%Integer 4 + +%Integer +5 + + %Boolean "0" @@ -63,6 +73,26 @@ 1 + +%Boolean +1 + + + +%Boolean +1 + + + +%Boolean +1 + + + +%Boolean +1 + + %Boolean 1 @@ -82,6 +112,8 @@ Set ..AlgemeneGegevensDirty = 1 Set ..BetalingsGegevens1Dirty = 1 Set ..BetalingsGegevens2Dirty = 1 + Set ..BetalingsGegevens3Dirty = 1 + Set ..Opmerkingen1Dirty = 1 Set ..Opmerkingen2Dirty = 1 Quit $$$OK ]]> @@ -97,6 +129,8 @@ Set ..AlgemeneGegevensDirty = 0 Set ..BetalingsGegevens1Dirty = 0 Set ..BetalingsGegevens2Dirty = 0 + Set ..BetalingsGegevens3Dirty = 0 + Set ..Opmerkingen1Dirty = 0 Set ..Opmerkingen2Dirty = 0 }Else{ Set Status = '($$$OK) @@ -113,8 +147,7 @@ $$$ThrowError($$$errGeneralError,"Er is geen KlantNummer ingevuld, kan object niet saven.") } - - If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..Opmerkingen2Dirty) + If (..AlgemeneGegevensDirty || ..BetalingsGegevens2Dirty || ..BetalingsGegevens3Dirty || ..Opmerkingen1Dirty || ..Opmerkingen2Dirty) { Set OudeKlantIndex = $PIECE(^DKL("K","KL.A",..KlantNummer,0),"\",31) @@ -188,6 +221,20 @@ Set ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens2Node) = ..BetalingsGegevens2 Set ^KKL(..GeefKlantIndexKKL(),..#BetalingsGegevens2Node) = ..BetalingsGegevens2 } + If (..BetalingsGegevens3Dirty){ + Set OudeBetalingsGegevens = ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens3Node) + Do ..LogWijzigingen(..KlantNummer, ..#BetalingsGegevens3Node, OudeBetalingsGegevens, ..BetalingsGegevens3) + + Set ^DKL("K","KL.A",..KlantNummer,..#BetalingsGegevens3Node) = ..BetalingsGegevens3 + Set ^KKL(..GeefKlantIndexKKL(),..#BetalingsGegevens3Node) = ..BetalingsGegevens3 + } + If (..Opmerkingen1Dirty){ + Set OudeOpmerkigen1 = ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen1Node) + Do ..LogWijzigingen(..KlantNummer, ..#Opmerkingen1Node, OudeOpmerkigen1, ..Opmerkingen1) + + Set ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen1Node) = ..Opmerkingen1 + Set ^KKL(..GeefKlantIndexKKL(),..#Opmerkingen1Node) = ..Opmerkingen1 + } If (..Opmerkingen2Dirty){ Set OudeOpmerkigen2 = ^DKL("K","KL.A",..KlantNummer,..#Opmerkingen2Node) Do ..LogWijzigingen(..KlantNummer, ..#Opmerkingen2Node, OudeOpmerkigen2, ..Opmerkingen2) @@ -251,6 +298,13 @@ ]]> + + + + - + 1 %String 1 %String - + Index: Derde/Agenda/ToonzaalBezoek.cls.xml =================================================================== diff -u -r734 -r994 --- Derde/Agenda/ToonzaalBezoek.cls.xml (.../ToonzaalBezoek.cls.xml) (revision 734) +++ Derde/Agenda/ToonzaalBezoek.cls.xml (.../ToonzaalBezoek.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 Derde.Agenda.Agenda -61902,49823.068136 +62189,55190.10996 61871,50463.879793 0 @@ -157,5 +157,5 @@ - + Index: DOM/CRM/Persoon.cls.xml =================================================================== diff -u --- DOM/CRM/Persoon.cls.xml (revision 0) +++ DOM/CRM/Persoon.cls.xml (revision 994) @@ -0,0 +1,176 @@ + + + +1 +1 +62180,36646.876221 +0 + + +1 +%Status + + + +1 +%Status + + + + + + + +1 +%Integer + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%ListOfDataTypes + + + + +Lijst van DOM.CRM.enu.VoorkeurDocument +1 +%ListOfDataTypes + + + + +Een lijst van DOM.CRM.enu.PrivacyToelating +1 +%ListOfDataTypes + + + + +Waarde van 1 tot 4 (waarbij 1 TOPBESLISSER en 4 MEDEWERKER VAN DE BESLISSER) +1 +%Integer + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + +1 +%String + + + + + + + +1 +Naam:%String + + + +1 +Voornaam:%String + + + +1 +Aanspreking:%String + + + +1 +VerantwType:%ListOfDataTypes + + + +1 +PrivacyToelatingen:%ListOfDataTypes +%ListOfDataTypes + + + + +Waarde van 1 tot 4 (waarbij 1 TOPBESLISSER en 4 MEDEWERKER VAN DE BESLISSER) +1 +BeslissingNiveau:%Integer +%Integer + + + +1 +Opmerking:%String + + + +1 +Telefoon:%String + + + +1 +PriveTelefoon:%String + + + +1 +Fax:%String + + + +1 +GSM:%String + + + +1 +Email:%String + + + + FishEye: Tag 994 refers to a dead (removed) revision in file `BL/PPS/TBX/DocsCommon.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: APPS/MAG/RetourService.cls.xml =================================================================== diff -u --- APPS/MAG/RetourService.cls.xml (revision 0) +++ APPS/MAG/RetourService.cls.xml (revision 994) @@ -0,0 +1,96 @@ + + + +1 +%RegisteredObject +62181,49206.517591 +0 + + +BONNr + + + + +BONNr + + + + + Index: DOM/PM/ProductAPI.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 903) +++ DOM/PM/ProductAPI.cls.xml (.../ProductAPI.cls.xml) (revision 994) @@ -1,9 +1,10 @@ - + 1 1 -62157,55192.462087 +62187,52129.221365 +62159,61815.242882 0 @@ -19,16 +20,12 @@ - -^KLAS 1 -Key:%String,KKey:%Integer +ClassificatieID:%Integer DOM.PM.Classificatie - -^KPHG1, ^KPSG1, ^KPGR1 1 TECH.Iterator @@ -38,6 +35,11 @@ ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem DOM.PM.Product + + +1 +TECH.Iterator + - + Index: BL/PPS/TBX/Sequencer.cls.xml =================================================================== diff -u -r901 -r994 --- BL/PPS/TBX/Sequencer.cls.xml (.../Sequencer.cls.xml) (revision 901) +++ BL/PPS/TBX/Sequencer.cls.xml (.../Sequencer.cls.xml) (revision 994) @@ -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 -62138,40541.942437 +62187,32653.03471 60997,54476.941438 0 @@ -253,10 +253,12 @@ Do blPrebuild.ChkStock("-") Set BatchID=..BatchID &SQL(DELETE FROM PPS.TBX_Queue WHERE BatchID=:BatchID) - Set oBatch=##class(DS.PPS.TBX.Batch).%OpenId(BatchID) - Quit:'$IsObject(oBatch) - Set oBatch.PrintList="" - Do oBatch.%Save() + If (##class(BL.PPS.TBX.PrintLijstInfo).%ExistsId(BatchID)) + { + Set PrintLijstInfo = ##class(BL.PPS.TBX.PrintLijstInfo).%OpenId(BatchID) + Set PrintLijstInfo.PrintLijst = "" + Do PrintLijstInfo.%Save() + } ]]> @@ -292,5 +294,5 @@ - + Index: DOM/PM/Bouwstenen/SchBouwsteen.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/SchBouwsteen.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/SchBouwsteen.cls.xml (revision 994) @@ -0,0 +1,132 @@ + + + +persistent +1 +VHOpslag +%Persistent +62173,52282.235552 +59772,53878.611013 +0 + + +1 + +%Library.Status + + + + + +Property MoederProduct As Prod.Product; +DOM.PM.Bouwstenen.Product +parent +SchaduwBouwstenen +1 + + + +%String + + + +%Float + + + + +K=Kindproduct +H=Halffabrikaat +T=Tijd (verwerkingstijd) +S=Supplement (extra kost) +%String + + + + + +Gebruikt om de volgorde te bepalen bij de kostberekening (belangrijk voor de KostFaktorGroep) +%Integer + + + + +Optioneel veld gebruikt voor groepering van elementen en voor toepassen van de KostFaktor op een speciale groep. +%String + + + +%String + + + + +Verklarende tekst van de berekeningswijze +%String + + + +1 +1 +BSKey +1 + + + +%CacheSQLStorage +^Prod.BouwstenenS + +data +^PRBS + +"BSS" + + +{Product.Product} + + +{BSKey} + + +"\" +2 + + +"\" +11 + + +"\" +13 + + +"\" +10 + + +"\" +17 + + +"\" +3 + + + + + + FishEye: Tag 994 refers to a dead (removed) revision in file `DOM/PR/enu/BouwSteenType.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml (.../OrgaluxProductGamma.cls.xml) (revision 946) +++ DOM/PM/OL/Gamma/impl/OrgaluxProductGamma.cls.xml (.../OrgaluxProductGamma.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + Maakt gebruik van de bestaande Kenmerken klassen en zoek-mogelijkheden. @@ -11,7 +11,7 @@ DOM.PM.OL,TECH.Error 1 DOM.PM.OL.Gamma.OrgaluxProductGamma -62161,42432.680025 +62188,40393.686035 61944,51413.335308 0 @@ -740,7 +740,7 @@ 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 @@ -1100,7 +1100,7 @@ Set lbKleurFilter=##class(DOM.PM.OL.Gamma.impl.KenmerkInternals).GeefKleurFilterWaarden(LadeSpecs.Kleur) If $LL(lbKleurFilter) do ..KenmerkQueryWaarden.Insert(##class(KenmerkQueryParameter).%New("KleurFilter",$$ListToPieces^vhLib(lbKleurFilter,";"),$$$IncludeUndefs)) - Set LadeDiepte=##class(DOM.PM.OL.Gamma.impl.KenmerkInternals).GeefLadeDiepteInCM(LadeSpecs.Diepte) + Set LadeDiepte=##class(DOM.PM.OL.Gamma.impl.KenmerkInternals).GeefLadeDiepte(LadeSpecs.Diepte) If $length(LadeDiepte) { do ..KenmerkQueryWaarden.Insert(##class(KenmerkQueryParameter).%New("Diepte",LadeDiepte,$$$IncludeUndefs)) } @@ -1133,6 +1133,7 @@ 1 DOM.PM.OL.Gamma.dto.ProductGroep - + Index: DOM/CRM/enu/LeveringVoorwaarde.cls.xml =================================================================== diff -u --- DOM/CRM/enu/LeveringVoorwaarde.cls.xml (revision 0) +++ DOM/CRM/enu/LeveringVoorwaarde.cls.xml (revision 994) @@ -0,0 +1,92 @@ + + + + +JBL + 2011-04-05 + +datatype +1 +%String +62186,41156.509241 +0 + + +,00,01,30,51,60,61,62,63,64,70 + + + +;Franco; Afhalen Sint-Niklaas port ten uwen laste; Afhalen Sint-Niklaas, Franco bestellingen vanaf 1022,58 EUR;Franco bestellingen vanaf 400 EUR;Franco bestellingen vanaf 1500 EUR;Franco bestellingen vanaf 1250 EUR;Franco bestellingen vanaf 2500 EUR;Franco bestellingen vanaf 250 EUR;Taxipost uw kosten + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + + Index: DOM/PM/Bouwstenen/Product.cls.xml =================================================================== diff -u -r948 -r994 --- DOM/PM/Bouwstenen/Product.cls.xml (.../Product.cls.xml) (revision 948) +++ DOM/PM/Bouwstenen/Product.cls.xml (.../Product.cls.xml) (revision 994) @@ -1,14 +1,15 @@ - + Verplaatsen naar DOM.PM.impl.Bouwstenen.ProductMetBouwstenen. persistent 1 VHOpslag %Persistent -62173,37242 +62173,52254.84537 59772,53878.611013 +0 Prod.Product @@ -26,13 +27,20 @@ %String - -DOM.PR.BouwStenen.BouwSteen + +DOM.PM.Bouwstenen.Bouwsteen children Moeder 1 + +DOM.PM.Bouwstenen.SchBouwsteen +children +Moeder +1 + + 1 1 @@ -42,7 +50,7 @@ %CacheSQLStorage -^Prod.BouwStenenS +^Prod.BouwstenenS data ^PRBS @@ -67,5 +75,5 @@ - + Index: DOM/PM/impl/DataM/DataMProductCreator.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/impl/DataM/DataMProductCreator.cls.xml (.../DataMProductCreator.cls.xml) (revision 903) +++ DOM/PM/impl/DataM/DataMProductCreator.cls.xml (.../DataMProductCreator.cls.xml) (revision 994) @@ -1,11 +1,11 @@ - + 1 TECH.Error 1 %RegisteredObject -62157,42550.274525 +62182,31221.610814 0 @@ -202,13 +202,22 @@ Do ..ZetWaarde("J",6,Staffel) Do ..ZetWaarde("G",14,Staffel) + Do ..ZetWaarde(1,25,..GeefActiefStatus()) + // TODO: Gewicht, Langtekst, Prijs aankoop werkuren, Kost werkuren, Tijd voor kostprijs // Zie kpcFILL() method in Prod.GAData.Product.tmpKPRCreate.MAC // // Set $P(NewRec("G"),"\",13)=..%Id() // id van de GAData ]]> + +1 +DOM.PM.enu.ActiefStatus + + + 1 - + Index: DOM/OV/impl/DataM/DataMTekstOrderlijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/impl/DataM/DataMTekstOrderlijn.cls.xml (.../DataMTekstOrderlijn.cls.xml) (revision 946) +++ DOM/OV/impl/DataM/DataMTekstOrderlijn.cls.xml (.../DataMTekstOrderlijn.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + 1 DOM.OV.impl.DataM.DataMOrderlijn,DOM.OV.TekstOrderlijn @@ -15,7 +15,7 @@ // Initialize object first Set Super = ##super(Order,LijnNr, LijnInfo) If (LijnInfo = "") { - Set $Piece(..LijnInfo,"\",17) = ##class(DOM.OV.enu.OrderlijnType).Tekst() + Set $Piece(..LijnInfo,"\",17) = ##class(DOM.OV.enu.OrderLijnType).Tekst() } Quit Super ]]> @@ -29,7 +29,7 @@ %Boolean - @@ -39,5 +39,5 @@ ]]> - + Index: BL/Prod/Search/1.int.rou =================================================================== diff -u --- BL/Prod/Search/1.int.rou (revision 0) +++ BL/Prod/Search/1.int.rou (revision 994) @@ -0,0 +1,355 @@ + ;BL.Prod.Search.1 + ;(C)InterSystems, generated for class BL.Prod.Search. Do NOT edit. 04/07/2011 08:12:42AM + ;;6CC8C219677AC45C;BL.Prod.Search + Quit + ; + /* Prod.Search */ +%ClassName(fullname) public { Quit $select($get(fullname,0):"BL.Prod.Search",1:"Search") } +%Close(%this) Quit ..%Close() +%ConstructClone(%this,deep,cloned) public { Set deep=$get(deep,0) Set object=%this + If $data(cloned(+object)) Do (cloned(+object)).%IncrementCount() Quit cloned(+object) + Set %this=$zobjnew("BL.Prod.Search") + Set cloned(+object)=%this,cloned(+object,0)=object + Quit %this } +%Extends(isclass) public { Quit "~BL.Prod.Search~%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,"KenmGrpOEI":"OEI","LijnDefault":200,"LijnMax":900,"PROPERTYVALIDATION":0,"atBoom":"B","atIdentNr":"I","atKlantRef":"R","atKortTekst":"K","atLangTekst":"T","atLevRef":"L","foActief":"Actief","foBoom":"Boom","foIdentNr":"IdentNr","foKS":"KS","foKlantRef":"KlantRef","foKlassificatie":"Klassificatie","foKortTekst":"KortTekst","foLangTekstD":"LangTekstD","foLangTekstE":"LangTekstE","foLangTekstF":"LangTekstF","foLangTekstN":"LangTekstN","foLangTekstR":"LangTekstR","foLevRef":"LevRef","foProductNr":"ProductNr","foStockType":"StockType","pActive":2,"pFullKey":10,"pGrouping":3,"pNotAvailableTo":11,"pOrigine":4,"pPool":5,"pProductType":6,"pSaleable":7,"pSort":8,"pStockType":9,"saDuits":"D","saEngels":"E","saFrans":"F","saLeverancier":"L","saNederlands":"N","stAfgeleid":"A","stNietStock":"N","stStock":"S",:"") } +%IncrementCount(%this) Quit ..%IncrementCount() +%IsA(isclass) public { Quit "~BL.Prod.Search~%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(BL.Prod.Search).%New($get(initvalue)) +} +%NormalizeObject(%this) Quit 1 +%ObjectModified(%this) public { Quit 1 } +%PackageName() Quit "BL.Prod" +%SerializeObject(%this,serial,partial) Set partial=$get(partial,0) New %objOBJ,sc,id + Set $Ztrap = "%SerializeObjectERR" + Set sc=..%ValidateObject() If ('sc) { Ztrap "SO" } + Set sc=..%NormalizeObject() If ('sc) { Ztrap "SO" } + Quit sc +%SerializeObjectERR Set $ZTrap="" If $extract($zerror,1,5)'="" Set sc=$$Error^%apiOBJ(5002,$ZE) + Quit sc +%AddToSaveSet(%this,depth,refresh,norecurseon) public { Set depth=$get(depth,3),refresh=$get(refresh,0),norecurseon=$get(norecurseon) If ($data(%objTX(1,+%this))) && ('refresh) Quit 1 + Set sc=1,intOref=+%this + If refresh { + Set intPoref=$order(%objTX(1,intOref,2,"")) + While intPoref'="" { Kill %objTX(1,intPoref,3,intOref),%objTX(1,intOref,2,intPoref) Set intPoref=$order(%objTX(1,intOref,2,intPoref)) } + } + Set tDepth=$select(depth'=2:depth,1:1) + Set %objTX(2,intOref)=0 +exit Quit sc } +%RemoveFromSaveSet(%this) public { + If '($data(%objTX(1,+%this))) Quit 1 + Set intRef=+%this + Set intSucc="" For Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intSucc,2,intRef) + Set intPred="" For Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred="" Kill %objTX(1,intPred,3,intRef) + Kill %objTX(1,intRef),%objTX(2,intRef) + Quit 1 } +%SetModified(%this,value) public { Quit 1 } +%ValidateObject(%this,force) Set force=$get(force,0) Quit 1 +zAddResult(pxCriteria,PRNr,Result,LijnCnt,Content) New KT,LR + If pxCriteria.Sorted="SK" Do ; sortkey (boom + korttekst) + . Set Result("S",##class(BL.Prod.Search).SortKey(PRNr))=Content + Else If pxCriteria.Sorted="K" Do ; korttekst + . ;Set KT=$$$PRGet($$$KortTekst) + . ;Set KT=$E(KT,1,11)_$E(KT,22,25)_$$UPTRIMAN^vhRtn1($E(KT,12,21)) + . Set KT=$$COMPR^PRODUKT(PRNr) + . Set Result("S",KT_" "_PRNr)=Content + Else If pxCriteria.Sorted="LR" Do ; Leveranciersref CW 05.03.2010 + . Set LR=$$Get^PRODUKT(PRNr,"J03") + . Set Result("S",LR_" ",$$COMPR^PRODUKT(PRNr))=Content + Else Do ; unsorted + . Set Result($I(LijnCnt))=Content + Quit +zAlreadyBought(PRNr,KLNr) public { Quit:'KLNr 0 + Quit $$INTDATE^vhDTyp($P($G(^KSTKL(KLNr,PRNr,0)),"\"))'<$$CALCDATE^vhDTyp(,"M",-12,"FD") } +zFormatCompact(PRNr,KLNr,FormatCompact) Set Tekst="" + For Loop=1:1:$L(FormatCompact,";") Do + . Set Format=$P(FormatCompact,";",Loop) + . If Loop=1 Do + .. Set Tekst=""_##class(BL.Prod.Search).GetColVal(PRNr,KLNr,Format)_"" + . Else Do + .. Set Tekst=Tekst_"
      "_##class(BL.Prod.Search).GetColVal(PRNr,KLNr,Format) + Quit Tekst +zFormatExpand(PRNr,KLNr,FormatExpand) Set lbRow="" + For Loop=1:1:$L(FormatExpand,";") Do + . Set Format=$P(FormatExpand,";",Loop) + . ;Toevoegen! + . Set lbRow=lbRow_$LB(##class(BL.Prod.Search).GetColVal(PRNr,KLNr,Format)) + Quit lbRow +zFullCheckCriteria(PRNr,pxCriteria) ;Klantnummer van de pool staat in de korttekst? + Set KortTekst=$Piece(^KPR(PRNr,0),"\") + If pxCriteria.VerifyCustomer'=""&&(KortTekst?.E1"*"4.5N1"*".E)&&(KortTekst'[("*"_pxCriteria.VerifyCustomer_"*"))&&'##class(BL.Prod.Search).AlreadyBought(PRNr,pxCriteria.VerifyCustomer) Quit 0 + ; Limit Supplier + If pxCriteria.LimitSupplier'=""&&($$Get^PRODUKT(PRNr,"J01")'=pxCriteria.LimitSupplier) Quit 0 + ; Limit Classification + If $LL(pxCriteria.lbLimitKlasKeys)&&'$LF(pxCriteria.lbLimitKlasKeys,$$Get^PRODUKT(PRNr,"I04")) Quit 0 + ; Limit Maatwerk (generische groep) + If $LL(pxCriteria.LimitGenType)&&($P($$GENTYP^HAD(PRNr),"\",3)'=pxCriteria.LimitGenType) Quit 0 + ; Limit Customer + If pxCriteria.LimitCustomer'=""&&'##class(BL.Prod.Search).AlreadyBought(PRNr, pxCriteria.LimitCustomer) Quit 0 ; klant heeft het product nog niet gekocht + New D,U,Q Set D="\",U=";",Q="K" + ; Callback + If pxCriteria.CheckCallBack'="" Do EXECS^vhRES(pxCriteria.CheckCallBack,"Result","(PRNr)") I Result'=1 Quit 0 + Quit 1 +zGetColVal(PRNr,KLNr,Format) public { Quit:(Format="KortTekst") $$Get^PRODUKT(PRNr,"101") + Quit:(Format="ProductNr") PRNr + Quit:(Format="IdentNr") $$Get^PRODUKT(PRNr,"325") + Quit:(Format="KlantRef") $S(+KLNr=0:"",1:$$DISP^PAKKET(KLNr,PRNr)) + Quit:(Format="LevRef") $$Get^PRODUKT(PRNr,"J03") + Quit:(Format="LangTekstN") ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"N",", ",1) + ;Quit:(Format=..#foLangTekstN) ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"N","
    ",1) + Quit:(Format="LangTekstF") ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"F","
    ",1) + Quit:(Format="LangTekstD") ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"D","
    ",1) + Quit:(Format="LangTekstE") ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"E","
    ",1) + Quit:(Format="LangTekstR") ##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,"BR","
    ",1) + Quit:(Format="Klassificatie") $$DISPL^KLASS($$Get^PRODUKT(PRNr,"I04")) + Quit:(Format="Boom") "" + If Format="StockType" Do Quit ColVal + . Set ColVal=$$Get^PRODUKT(PRNr,"220") + . Set ColVal=$S(($P($G(^KPR(PRNr,0)),"\",3)?4.7N):"Afgeleid",ColVal="1":"Stock",1:"Niet stock") + Quit:(Format="Actief") $S($$Get^PRODUKT(PRNr,"225"):"Niet actief",1:"Actief") + Quit:(Format="KS") "" + Quit "(format '"_Format_"' undefined)" } +zGetVervangProduct(PRNr,KLNr,NumberOfMonths) public { If '$D(^KPR(PRNr)) Quit "" + Set StartDate=$$CALCDATE^vhDTyp($H,"M",-NumberOfMonths,"FD") + Set FirstMonth=$$EXTDATE^vhDTyp(StartDate,"DM4")_" " + Set LastMonth=$$EXTDATE^vhDTyp(+$H,"DM4")_" " + Set KortTekst=$Piece(^KPR(PRNr,0),"\",1) + Set pxCriteria=##class(BL.Prod.sub.pxSearchCriteria).%New() + Set pxCriteria.Usage="ALL" + Set pxCriteria.At="K" ; korttekst + Set pxCriteria.SearchTxt=$E(KortTekst,$S($E(KortTekst,1)=" ":2,1:1),11)_" "_$P(KortTekst,22,25) + Set pxCriteria.Sorted="" + Do ##class(BL.Prod.Search).SearchIndex(pxCriteria, .Result) + Set Nbr="" + Set Lijst="" + For Set Nbr=$O(Result(Nbr)) Quit:Nbr="" Do + . Set VervangPRNr=Result(Nbr) + . ;Write !,Nbr," ",VervangPRNr," ",$P(^KPR(VervangPRNr,0),"\") + . Quit:VervangPRNr=PRNr + . Set VervangKortTekst=$P(^KPR(VervangPRNr,0),"\") + . ;replacement product if the first 11 characters and the last 4 characters are the same + . Quit:$E(KortTekst,1,11)'=$E(VervangKortTekst,1,11) ; finale controle eerste 11 karakters + . Quit:$E(KortTekst,22,25)'=$E(VervangKortTekst,22,25) ; finale controle kleur + . Quit:$Piece($G(^KSTKL(KLNr,VervangPRNr,0)),"\",11)=1 ; don't use replacement product + . Set LastSellingDate=$$INTDATE^vhDTyp($Piece($G(^KSTKL(KLNr,VervangPRNr,0)),"\",1),"DKP") + . Quit:'+LastSellingDate + . Quit:LastSellingDate niet gekocht + If LastSellingDate'="",$$INTDATE^vhDTyp(LastSellingDate,"DKP")>StartDate Quit "" + Quit ##class(BL.Prod.Search).GetVervangProduct(PRNr,KLNr,12) } +zInstantiate() public { Quit ##class(BL.Prod.Search).%New() } +zQuickCheckCriteria(PRNr,pxCriteria,lbIndexContent) public { ; StockType + If '$LF(pxCriteria.StockType,$LG(lbIndexContent,9)) Quit 0 + ; ProductType + If '$LF(pxCriteria.ProductType,$LG(lbIndexContent,6)) Quit 0 + ; Alias + If '$LF(pxCriteria.Alias,$LG(lbIndexContent,4)) Quit 0 + ; Saleable + If '$LF(pxCriteria.Saleable,$LG(lbIndexContent,7)) Quit 0 + ; Active + ; Als het Active-criteria in eerste instantie niet voldoet, dan wordt er verder gekeken of het product BEPERKT is en door klant reeds gekocht werd + If '$LF(pxCriteria.Active,$LG(lbIndexContent,2))&&$S($LG(lbIndexContent,2)="B":'##class(BL.Prod.Search).AlreadyBought(PRNr,pxCriteria.VerifyCustomer),1:1) Quit 0 + ; Pool + ; Als het Pool-critiria in eerste instantie niet voldoet, dan wordt er verder gekeken of het product een POOL beperking (IP of KS) heeft en door de klant reeds gekocht werd + If '$LF(pxCriteria.Pool,$LG(lbIndexContent,5))&&$S($LG(lbIndexContent,5)'="NS":'##class(BL.Prod.Search).AlreadyBought(PRNr,pxCriteria.VerifyCustomer),1:1) Quit 0 + ; NotAvailableTo + ; Als een product niet beschikbaar is voor een bepaalde toepassing + If ( $L(pxCriteria.NotAvailableTo) ) && ( $LF($LG(lbIndexContent,11),pxCriteria.NotAvailableTo) ) Quit 0 + Quit 1 } +zRenumber(Result,LijnCnt) New Sort,Content + Merge Sort=Result("S") + Kill Result("S") + Set Sort="Sort" + For Set Sort=$Q(@Sort) Quit:Sort="" Do + . Set Content=@Sort + . Set Result($I(LijnCnt))=Content + Quit +zSearchBoom(Criteria,Result) public { Set LijnCnt=0 + Set MustQuit = 0 + Set KKeyIterator = ##class(TECH.ListIterator).%New(Criteria.Klassificaties) + While(KKeyIterator.HasNext() && 'MustQuit){ + Set KKey = KKeyIterator.Next() + If KKey=""{ + Set MustQuit = 1 + }Else{ + Set KlasRec=$G(^KLAS("K",KKey)) + If KlasRec=""{ + Set MustQuit = 1 + }Else{ + Set StockType=Criteria.StockType + Set HfdGrp=$E(100+$P(KlasRec,"\",2),2,3)_$P(KlasRec,"\",5)_" " + Set Grp=$E(HfdGrp,1,4)_$E(100+$P(KlasRec,"\",3),2,3)_$P(KlasRec,"\",6)_" " + Set CritSubGrp="" + Set:$P(KlasRec,"\")=3 CritSubGrp=$E(Grp,1,9)_$E(100+$P(KlasRec,"\",4),2,3)_$P(KlasRec,"\",7)_" " + Set SubGrp="" + Set Merk=" " + Set KortTekst="" + For Set SubGrp=$O(^KPH(HfdGrp,Grp,SubGrp)) Quit:SubGrp="" Do:(CritSubGrp="")||(SubGrp=CritSubGrp) + . For Set KortTekst=$O(^KPH(HfdGrp,Grp,SubGrp,Merk,KortTekst)) Quit:KortTekst="" Do + . . Set PRNr=^KPH(HfdGrp,Grp,SubGrp,Merk,KortTekst) + . . Quit:PRNr'?4.7N + . . Quit:(StockType'["A")&&($P($G(^KPR(PRNr,0)),"\",3)?4.7N) + . . Set Stock=$$Get^PRODUKT(PRNr,"220") + . . Quit:(StockType'["S")&&Stock + . . Quit:(StockType'["N")&&'Stock + . . ;Quit:'%blProduct.IsAllowed(PRNr) + . . Set Result($I(LijnCnt))=PRNr + } + } + } } +zSearchIndex(pxCriteria,Result) public { + Do ##class(BL.Prod.Search).SetDefault(pxCriteria) + Do ##class(BL.Prod.Search).TransformToPattern(pxCriteria, .BeginKey,.%PatternKey,.KeepChar) + ;w " -b:",BeginKey," -p:",%PatternKey," -k:",KeepChar,! ; r test + Set MaxCount=pxCriteria.MaxCount + Set LijnCnt=0 + Set At=pxCriteria.At + Kill Result + d WLIP^vhDBG(127,"At:"_At) + Set CompresKey=$O(^Prod.SearchIndexD(At,BeginKey_" "),-1) ; moet string zijn en de index heeft ook een blanko achteraan + Set (LoopCnt,SelectCnt)=0 + For Set CompresKey=$O(^Prod.SearchIndexD(At,CompresKey)) Quit:(CompresKey="")||($E(CompresKey,1,$L(BeginKey))'=BeginKey) Quit:+MaxCount&&(MaxCount=SelectCnt) Do + . Set PRNr="" + . For Set PRNr=$O(^Prod.SearchIndexD(At,CompresKey,PRNr)) Quit:(PRNr="") Do + . . Set LoopCnt=LoopCnt+1 + . . ;d WL^vhDBG(PRNr_"-"_CompresKey) + . . ;w !,CompresKey," ",PRNr + . . Set IndexContent=^Prod.SearchIndexD(At,CompresKey,PRNr) + . . Set FullKey=$LG(IndexContent,10) + . . Set %Key=$ZCVT($ZSTRIP(FullKey,"*P",,KeepChar),"U") + . . X "S %OK=%Key?.1"" """_%PatternKey + . . Quit:'%OK + . . Quit:'##class(BL.Prod.Search).QuickCheckCriteria(PRNr,pxCriteria,IndexContent) + . . Quit:'##class(BL.Prod.Search).FullCheckCriteria(PRNr,pxCriteria) + . . Set SelectCnt=SelectCnt+1 + . . Do ##class(BL.Prod.Search).AddResult(pxCriteria,PRNr,.Result,.LijnCnt,$S(pxCriteria.AddContent:$LB(PRNr,IndexContent),1:PRNr)) + Do:$D(Result("S")) ##class(BL.Prod.Search).Renumber(.Result,.LijnCnt) ; Numerieke tabel opmaken + Set pxCriteria.LoopCount=LoopCnt ; hoeveel indexentries gepaseerd + Set pxCriteria.SelectCount=SelectCnt ; hoeveel geselecteerde producten +} +zSearchIndexAsList(pxCriteria) public { Set:('pxCriteria.MaxCount)||(pxCriteria.MaxCount>3000) pxCriteria.MaxCount=3000 ; 3000 producten*10 bytes = 30KB wat een max. is voor een string + Do ##class(BL.Prod.Search).SearchIndex(pxCriteria,.arProducts) + Set lbResult = "" + Set Index="" + For Set Index=$O(arProducts(Index)) Quit:Index="" Do + . Set lbResult = lbResult _ $LB(arProducts(Index)) + Quit lbResult } +zSearchLangTekst(Criteria,Result) public { Set ZoekKey=Criteria.SearchTxt + Set Taal=Criteria.SubAt ; Taal of Lev.langtekst + Set:Taal="" Taal="N" + Set StockType=Criteria.StockType + Do ##class(BL.Prod.Search).TransformToPattern(ZoekKey,.%PatternKey,.KeepChar) + Set PRNr=0 + For Set PRNr=$O(^KPR(PRNr)) Quit:PRNr="" Do + . Quit:(StockType'["A")&&($P($G(^KPR(PRNr,0)),"\",3)?4.7N) + . Set Stock=$$Get^PRODUKT(PRNr,"220") + . Quit:(StockType'["S")&&Stock + . Quit:(StockType'["N")&&'Stock + . Set %Key=$ZCVT($ZSTRIP(##class(Prod.ProductTekst).GetOmschrijvingViaPRNr(PRNr,Taal,"~",1),"*P",,KeepChar),"U") + . X "S %OK=%Key?.1"" """_%PatternKey + . Quit:'%OK + . ;Quit:'%blProduct.IsAllowed(PRNr) + . Set Result(##class(BL.Prod.Search).SortKey(PRNr))=PRNr +} +zSelectExecute(qHandle,Criteria,Format) public { + Set ZoekAt=Criteria.At + Set:(ZoekAt="")||(ZoekAt=$C(0)) ZoekAt="K" + Set:(Criteria.StockType="")||(Criteria.StockType=$C(0)) Criteria.StockType=$LB("S","N","C") ; Stock, NotStock, Contract + Set:(Criteria.Active="")||(Criteria.Active=$C(0)) Criteria.Active=$LB("A","N") ; Active, Nonactive + If (1=1){ + } + Set Status=1 + Set Criteria.MaxCount=Format.LijnMax + If (ZoekAt="B"){ + Do ##class(BL.Prod.Search).SearchBoom(Criteria,.%psResult) + } Elseif (ZoekAt="T") { + Do ##class(BL.Prod.Search).SearchLangTekst(Criteria,.%psResult) + } Elseif ((ZoekAt="I") || (ZoekAt="L") || (ZoekAt="K")) { + Do ##class(BL.Prod.Search).SearchIndex(Criteria,.%psResult) + } Else{ + Set Status=$$Error^%apiOBJ(5001,"ZoekAt parameter '"_ZoekAt_"' ongeldig") + } + ;If ZoekAt=..#atKortTekst Do ..ZoekBoom(Criteria,.%psResult) + ;Else If ZoekAt=..#atIdentNr Do ..ZoekIdentNr(Criteria,.%psResult) + ;Else If ZoekAt=..#atLevRef ;Do ZoekLevRef(Criteria,.%psResult) + ;Else If ZoekAt=..#atLangTekst Do ..ZoekLangTekst(Criteria,.%psResult) + ;Else If ZoekAt=..#atKlantRef Set Status=..ZoekKlantRef(Criteria,.%psResult) + ;Else If ZoekAt=..#atBoom Do ..ZoekBoom(Criteria,.%psResult) + ;Else Set Status=$$$ERROR($$$GeneralError,"ZoekAt parameter '"_ZoekAt_"' ongeldig") + Quit:(('Status)) Status + Set %psLijnMax=Format.LijnMax + Set %psKlantNr=Criteria.LimitCustomer + Set:(%psLijnMax="")||(%psLijnMax=$C(0)) %psLijnMax=200 + Set:%psLijnMax>900 %psLijnMax=900 + Set %psCriteria=Criteria + Set %psFormatCompact=Format.FormatCompact + Set:(%psFormatCompact="")||(%psFormatCompact=$C(0)) %psFormatCompact="KortTekst"_";"_"LangTekstN"_";"_"StockType"_";"_"Actief" + Set %psFormatExpand=Format.FormatExpand + Set:(%psFormatExpand="")||(%psFormatExpand=$C(0)) %psFormatExpand="KortTekst"_";"_"LangTekstF"_";"_"LangTekstN"_";"_"KortTekst"_";"_"LevRef"_";"_"KlantRef"_";"_"Klassificatie" + Set %psSortKey="" + Quit 1 } +zSelectClose(qHandle) public { Kill %psLijnMax,%psResult,%psSortKey,%psCriteria,%psFormatCompact,%psFormatExpand,%psKlantNr + Quit 1 } +zSelectFetch(qHandle,Row,AtEnd) Set AtEnd=$get(AtEnd,0) Set Row="" + Set %psSortKey=$O(%psResult(%psSortKey)) + If (%psSortKey="")||(%psSortKey>%psLijnMax) Do + . Set AtEnd=1 + Else Do + . Set Row=##class(BL.Prod.Search).SelectRow(%psResult(%psSortKey),%psKlantNr) + . If Row="" Set AtEnd=1 + Quit 1 +zSelectRow(PRNr,KLNr) Set Row=$LB(PRNr,##class(BL.Prod.Search).FormatCompact(PRNr,KLNr,%psFormatCompact))_##class(BL.Prod.Search).FormatExpand(PRNr,KLNr,%psFormatExpand) + Quit Row +zSetDefault(pxCriteria) public { Do pxCriteria.SetDefault() } +zSortKey(PRNr) New D,U,Q Set D="\",U=";",Q="K" + Quit $$SORTKEY^PRODUKT(PRNr) +zTransformToPattern(pxCriteria,BeginKey,PatternKey,KeepChar) public { ;Set At=pxCriteria.At + Set SearchTxt=pxCriteria.SearchTxt + Set ZoekKey=$TR(SearchTxt," ","*") ; Blanks become wildcards + ; special characters that must not be kept (not filtered out) + Set KeepCharOrig="@/.#+-",KeepChar="" + For I=1:1:$L(KeepCharOrig) Set:ZoekKey[$E(KeepCharOrig,I) KeepChar=KeepChar_$E(KeepCharOrig,I) + Set ZoekKey=$ZSTRIP($ZCVT(ZoekKey,"U"),"*P",,KeepChar_"*?\") + Set PatternKey=$$WildCardToPattern^vhLib(ZoekKey,1) + Set KeepChar=KeepChar_$S(ZoekKey["\*":"*",1:"")_$S(ZoekKey["\?":"?",1:"") ; KeepChar uitbreiden met * of ? indien \* of \? voorkomt + Set BeginKey=$$UPTRIMAN^vhRtn1($P($P($P(ZoekKey,"*"),"?"),"\")) } +zSelectFetchODBC(qHandle,array,qacn,AtEnd,SQLCODE) public { Set AtEnd=$get(AtEnd,0) Quit:$g(qacn)="" $$Error^%apiOBJ(6024) + Kill array(qacn) + Set SQLCODE=0,AtEnd=0,sc=##class(BL.Prod.Search).SelectFetch(.qHandle,.Row,.AtEnd) + If ('sc) { Set SQLCODE=-400 Set:$isobject($g(%sqlcontext)) %sqlcontext.SQLCode=-400,%sqlcontext.Message=$g(%msg) Quit sc } + If Row="" Set SQLCODE=100 Set:$isobject($g(%sqlcontext)) %sqlcontext.SQLCode=100 Quit 1 + For cptr=1:1:$listlength(Row) Set array(qacn,cptr)=$listget(Row,cptr) + Quit 1 } +zSelectFetchRows(qHandle,FetchCount,RowSet,ReturnCount,AtEnd) public { Set FetchCount=$get(FetchCount,0) Set RowSet="",ReturnCount=0,AtEnd=0,sc=1 + For { + Set sc=##class(BL.Prod.Search).SelectFetch(.qHandle,.Row,.AtEnd) + If Row'="",(+sc) Set RowSet=RowSet_Row,ReturnCount=ReturnCount+1 If (ReturnCount=FetchCount)||(($l(RowSet)+($l(RowSet)\ReturnCount))>24000)||$get(AtEnd) Quit + If ('sc) Quit + If Row="" Set AtEnd=1 Quit + } + Quit sc } +zSelectGetInfo(colinfo,parminfo,idinfo,qHandle,extoption,extinfo) public { Set extoption=$get(extoption,0) s:'($d(^oddCOM("BL.Prod.Search","q","Select",21),clientinfo)#2)&&'$s($d(^(2),clientinfo)#2:$d(^oddCOM(clientinfo,"q","Select",21),clientinfo)#2||($d(^oddDEF(clientinfo,"q","Select",21),clientinfo)#2),1:$d(^oddDEF("BL.Prod.Search","q","Select",21),clientinfo)#2) clientinfo=$g(^%qCacheObjectKey(1,"q",21)) + If clientinfo'="" Set colinfo=$listget(clientinfo,1),parminfo=$listget(clientinfo,2),idinfo=$listget(clientinfo,3),extent=$listget(clientinfo,4) Set:$Get(extoption) extinfo=$s($d(^oddCOM("BL.Prod.Search","q","Select",38))#2:^(38),$d(^oddCOM($g(^(2),"BL.Prod.Search"),"q","Select",38))#2:^(38),1:$s($d(^oddDEF($g(^(2),"BL.Prod.Search"),"q","Select",38))#2:^(38),1:$g(^%qCacheObjectKey(1,"q",38)))) Quit 1 + Quit $$GetInfo^%ourQuery("BL.Prod.Search","Select",.colinfo,.parminfo,.idinfo,.qHandle,extoption,.extinfo) } +zSelectGetODBCInfo(colinfo,parminfo,qHandle) public { Set version = $Select($Get(%protocol,31)>30:3,%protocol>14:2,1:1) + If $Get(^oddPROC("BL","SEARCH_SELECT",21))'="" { Set sc = 1, metadata=$Select(version=3:^oddPROC("BL","SEARCH_SELECT",12),1:^oddPROC("BL","SEARCH_SELECT",12,version)) } + ElseIf $Data(^oddPROC("BL","SEARCH_SELECT")) { Set sc = $$CompileSignature^%ourProcedure("BL","SEARCH_SELECT",.metadata,.signature) } + Else { Set sc = $$Error^%apiOBJ(5068,"BL.Prod.Search:Select") } + If (+sc) { Set colcount=$li(metadata,2),cmdlen=colcount*$Case(version,3:9,2:9,1:7,:9),colinfo=$li(metadata,2,2+cmdlen),parmcount=$li(metadata,cmdlen+3),pmdlen=parmcount*$Case(version,3:6,:4),parminfo=$li(metadata,cmdlen+3,cmdlen+pmdlen+3) } + Quit sc } +zSelectPrepare(qHandle,statement,containid,optional) public { Set containid=$get(containid,0) Quit 1 } +zSelectSendODBC(qHandle,array,qacn,%qrc,piece,ColumnCount) public { +SPInnerLoop Set rc=##class(BL.Prod.Search).SelectFetchODBC(.qHandle,.array,qacn,,.%qrc) + If ('rc) { Do ProcessError^%ourProcedure(rc,%sqlcontext,.%qrc,.%msg) Do Logerr^%qserver(%qrc,"","SP",.%msg) } + If %qrc Set piece=0 Quit + For piece=1:1:ColumnCount { Goto:$zobjexport(array(qacn,piece),7) SPDone } + Goto SPInnerLoop +SPDone Quit } \ No newline at end of file Index: APPS/Halux/Planning/dto/MaakBatchError.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/Halux/Planning/dto/MaakBatchError.cls.xml (.../MaakBatchError.cls.xml) (revision 946) +++ APPS/Halux/Planning/dto/MaakBatchError.cls.xml (.../MaakBatchError.cls.xml) (revision 994) @@ -1,18 +1,19 @@ - + 1 %RegisteredObject,%XML.Adaptor -62168,31908.964859 +62179,29951.616161 0 %Integer - + %String +list - + Index: DOM/OV/impl/DataM/DataMManueleOrderlijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/impl/DataM/DataMManueleOrderlijn.cls.xml (.../DataMManueleOrderlijn.cls.xml) (revision 946) +++ DOM/OV/impl/DataM/DataMManueleOrderlijn.cls.xml (.../DataMManueleOrderlijn.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + 1 DOM.OV.impl.DataM.DataMOrderlijn,DOM.OV.ManueleOrderlijn @@ -16,7 +16,7 @@ Set Super = ##super(Order,LijnNr, LijnInfo) If (LijnInfo = "") { - Set $Piece(..LijnInfo,"\",17) = ##class(DOM.OV.enu.OrderlijnType).Manueel() + Set $Piece(..LijnInfo,"\",17) = ##class(DOM.OV.enu.OrderLijnType).Manueel() } Quit Super ]]> @@ -29,7 +29,7 @@ -DOM.OV.enu.OrderlijnType +DOM.OV.enu.OrderLijnType - + Index: BL/Prod/Select.cls.xml =================================================================== diff -u -r901 -r994 --- BL/Prod/Select.cls.xml (.../Select.cls.xml) (revision 901) +++ BL/Prod/Select.cls.xml (.../Select.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + Controle van usernaam en wachtwoord + alle bijhorende rechten BL.Prod,%Prod.Product 1 %RegisteredObject -62144,62328.343199 +62186,39404.14058 60207,60266.090772 0 @@ -496,6 +496,7 @@ . Set ResultPRNr=$O(arPRNr("")) . Set ResultLiRe=$LG(##class(Prod.Kenmerk.DataDefinitie).Get(..#KenmGrp,ResultPRNr,"LiRe")) Else If $O(arPRNr($O(arPRNr(""))))="" Do ; multiple + . New PRNr . Set PRNr="" . Set lbMultiPRNrs="" . For PRNr=$O(arPRNr(PRNr)) Quit:PRNr="" Do @@ -1047,5 +1048,5 @@ - + Index: DOM/PM/Classificatie.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/Classificatie.cls.xml (.../Classificatie.cls.xml) (revision 903) +++ DOM/PM/Classificatie.cls.xml (.../Classificatie.cls.xml) (revision 994) @@ -1,13 +1,18 @@ - + ^KLAS 1 1 -62157,53012.12635 +62187,51552.574444 0 + +1 +%Integer + + 1 DOM.PM.enu.PMClassificatieNiveau @@ -22,5 +27,5 @@ ]]> - + Index: DOM/LEV/impl/DataM/DataMToeleveringLijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/LEV/impl/DataM/DataMToeleveringLijn.cls.xml (.../DataMToeleveringLijn.cls.xml) (revision 946) +++ DOM/LEV/impl/DataM/DataMToeleveringLijn.cls.xml (.../DataMToeleveringLijn.cls.xml) (revision 994) @@ -1,11 +1,16 @@ - + 1 %RegisteredObject,DOM.LEV.ToeleveringLijn -62168,59352.782163 +62174,43289.171211 0 + +DOM.LEV.Toelevering +1 + + %String 1 @@ -17,20 +22,27 @@ -LijnNr:%Integer,LijnInfo:%String +Toelevering:DOM.LEV.Toelevering,LijnNr:%Integer,LijnInfo:%String 1 1 %Status - + +DOM.LEV.Toelevering + + + + DOM.OV.Orderlijn - @@ -40,9 +52,9 @@ ]]> - -%Date - +%Integer + @@ -52,5 +64,5 @@ ]]> - + Index: DOM/PM/Bouwstenen/SchBouwsteenKostFactor.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/SchBouwsteenKostFactor.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/SchBouwsteenKostFactor.cls.xml (revision 994) @@ -0,0 +1,55 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.SchBouwsteen +62173,47365.525606 +59772,53878.611013 +0 + + + +Gebruikt als Type="S" +Faktor die vermenigvuldigd wordt met de reeds berekende deelkost. +Hiervoor is het belangrijk dat de bouwstenen in een goede volgorde zitten. +%Float + + + + +Gebruikt als Type="S" +Op welke groep van bouwstenen dient de faktor toegepast te worden. +Indien leeg dan alle. +Hiervoor is het belangrijk dat de bouwstenen in een goede volgorde zitten. +%String + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +5 + + +"\" +6 + + +"\" +16 + + + + + + Index: DOM/OV/impl/DataM/DataMTypedBonlijnIterator.cls.xml =================================================================== diff -u -r734 -r994 --- DOM/OV/impl/DataM/DataMTypedBonlijnIterator.cls.xml (.../DataMTypedBonlijnIterator.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMTypedBonlijnIterator.cls.xml (.../DataMTypedBonlijnIterator.cls.xml) (revision 994) @@ -1,18 +1,18 @@ - + 1 DOM.OV.impl.DataM.DataMBonlijnIterator 62109,43653.637459 0 -DOM.OV.enu.BonlijnType +DOM.OV.enu.BonLijnType 1 -Bon:DOM.OV.impl.DataM.DataMBon,KlantNummer:%Integer,Type:DOM.OV.enu.BonlijnType +Bon:DOM.OV.impl.DataM.DataMBon,KlantNummer:%Integer,Type:DOM.OV.enu.BonLijnType 1 1 %Status @@ -29,5 +29,5 @@ ]]> - + Index: APPS/PM/OL/ImportChecker.cls.xml =================================================================== diff -u --- APPS/PM/OL/ImportChecker.cls.xml (revision 0) +++ APPS/PM/OL/ImportChecker.cls.xml (revision 994) @@ -0,0 +1,193 @@ + + + +APPS.PM.OL.Common,%Prod.Product,BL.Derde.KlantSpecifiek +1 +%RegisteredObject +62181,37773.09354 +0 + + + +BL-object voor het behandelen van de Multiples (= meerdere kenmerken-sets per product) +BL.Kenm.ProdMulti +1 + + + + +Bevat een lokale versie van de DataDef, voor de ingevulde producten. +Simulatie van de huidige toestand + de geplande import (uit de excel) +Hiermee kunnen we nagaan of de import geen inconsistente data zal generenen (bijvoorbeeld: bij het wisselen van een non-multiple +%String +1 +1 + + + +BLProdMulti:BL.Kenm.ProdMulti +1 +%Status + + + + + + + + +PRNr:%String + + + + +PRNr:%String,UnID:%String,MultiNr:%String,GeneratieType:%String + + + + +PRNr:%String,UnID:%String,MultiNr:%String +%Status + + + + +PRNr:%String,blnMetInfo:%Boolean=0 +%List + + + + + +%Boolean + + + + +PRNr:%String +%Status + + + + + + + + + +PRNr:%String +%String + + + + +PRNr:%String,UnID:%String,MultiNr:%String,GeneratieType:%String +1 + + + + +PRNr:%String,UnID:%String,MultiNr:%String +1 +%Status + + + + +UnID:%String +1 +%Boolean + + + + + Index: BL/Prod/ImageLinkImport.cls.xml =================================================================== diff -u -r901 -r994 --- BL/Prod/ImageLinkImport.cls.xml (.../ImageLinkImport.cls.xml) (revision 901) +++ BL/Prod/ImageLinkImport.cls.xml (.../ImageLinkImport.cls.xml) (revision 994) @@ -1,13 +1,13 @@ - + 1. Importeren van de beelden van de Orgalux producten vanuit de kenmerken en de biijhorende vertaling. 2. Creatie van de beelden voor de tandembox laden. %VHMacro,%Prod.Product 1 %RegisteredObject -62147,54876.380544 +62188,35874.513462 60599,31536.811803 0 @@ -527,7 +527,7 @@ Set blMulti=##class(BL.Kenm.ProdMulti).Create($$$OLGroep) Set lbMultiIDs=blMulti.GetMultiplesLB(PRNr) Set:lbMultiIDs="" lbMultiIDs=$LB(PRNr) - Set FunctieType="PB" ; eerste alleen ProductBeeld + Set FunctieType="PB" ; eerste alleen ProductBeeld Kill CacheImg For I=1:1:$LL(lbMultiIDs) Do . Set UnID=$LI(lbMultiIDs,I) @@ -896,5 +896,5 @@ - + Index: DOM/PM/ProductClassificatie.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/ProductClassificatie.cls.xml (.../ProductClassificatie.cls.xml) (revision 903) +++ DOM/PM/ProductClassificatie.cls.xml (.../ProductClassificatie.cls.xml) (revision 994) @@ -1,22 +1,30 @@ - + 1 1 -62154,59712.819831 +62187,51810.422311 0 + +1 +DOM.PM.Classificatie + + +1 %String +1 %String +1 %String - + Index: APPS/Halux/Planning/impl/ResourceGebruikData.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/ResourceGebruikData.cls.xml (.../ResourceGebruikData.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/ResourceGebruikData.cls.xml (.../ResourceGebruikData.cls.xml) (revision 994) @@ -1,14 +1,14 @@ - + Informatie over resourcegebruik. We houden bij hoe groot het resourcegebruik is (property Hoeveelheid) en wanneer in de tijd de resource gebruikt wordt (property Wanneer). -persistent +serial 1 -%Persistent -62174,53065.178237 +%SerialObject +62175,50274.91838 0 @@ -25,6 +25,31 @@ Dit wordt uitgedrukt als een negatieve delta in halve dagen. %Float + + +%Library.CacheStorage +^APPS.Halux8A9.ResourceGebr78BD +ResourceGebruikDataDefaultData +^APPS.Halux8A9.ResourceGebr78BD +^APPS.Halux8A9.ResourceGebr78BI +^APPS.Halux8A9.ResourceGebr78BS + +listnode + + +%%CLASSNAME + + +Hoeveelheid + + +Volgnummer + + +Wanneer + + + - + Index: APPS/PM/ProductOpToeleveringLijnIt.cls.xml =================================================================== diff -u --- APPS/PM/ProductOpToeleveringLijnIt.cls.xml (revision 0) +++ APPS/PM/ProductOpToeleveringLijnIt.cls.xml (revision 994) @@ -0,0 +1,111 @@ + + + +1 +TECH.Iterator,%RegisteredObject +62173,56286 + + +%Integer +1 + + + +%String +1 + + + +%String +1 + + + +ProductNr:%Integer +1 +1 +%Status + + + + +HuidigeIndex:%Integer +1 +%String + + + + +Index:%String +1 +%Integer + + + + +%Boolean + + + + +%CacheString + + + + +Lijn:%String +%Boolean + + + + +HuidigeIndex:%Integer +1 + + + + + Index: Derde/EC/Toegang.cls.xml =================================================================== diff -u -r734 -r994 --- Derde/EC/Toegang.cls.xml (.../Toegang.cls.xml) (revision 734) +++ Derde/EC/Toegang.cls.xml (.../Toegang.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + Dataobject voor Toegang tot de Ecommerce site @@ -8,7 +8,7 @@ BL.EC.Common 1 %Persistent,%VHSys.Lib.PersistentLog -60985,37257.432895 +62181,32371.782931 60365,35718.342113 0 @@ -229,7 +229,8 @@ Set EmailAdres="" If PersID Do . Set objPers=##class(Derde.Klant.Persoon).OpenViaPersID(PersID) - . For I=1:1:5 Set:$zObjProperty(objPers,"ConType"_I)="E" EmailAdres=$zobjProperty(objPers,"ConRef"_I) + . if $IsObject(objPers) do + . . For I=1:1:5 Set:$zObjProperty(objPers,"ConType"_I)="E" EmailAdres=$zobjProperty(objPers,"ConRef"_I) If EmailAdres="" Do ; Speciaal, niet gekoppeld aan een Persoon van een klant . Set EmailAdres=..EmailAdres @@ -487,5 +488,5 @@ - + FishEye: Tag 994 refers to a dead (removed) revision in file `DOM/HR/Protime/AanwezigheidRepo.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: APPS/PM/dto/ProductAfbeeldingen.cls.xml =================================================================== diff -u --- APPS/PM/dto/ProductAfbeeldingen.cls.xml (revision 0) +++ APPS/PM/dto/ProductAfbeeldingen.cls.xml (revision 994) @@ -0,0 +1,29 @@ + + + + +JBL + 2011-04-07 +1 +%RegisteredObject,%XML.Adaptor +62188,36021.410109 +0 + + +%String + + + +%String + + + +%String + + + +%String +list + + + + Index: DOM/OV/impl/DataM/DataMTypedBonInProformalijnIterator.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/OV/impl/DataM/DataMTypedBonInProformalijnIterator.cls.xml (.../DataMTypedBonInProformalijnIterator.cls.xml) (revision 903) +++ DOM/OV/impl/DataM/DataMTypedBonInProformalijnIterator.cls.xml (.../DataMTypedBonInProformalijnIterator.cls.xml) (revision 994) @@ -1,18 +1,18 @@ - + 1 DOM.OV.impl.DataM.DataMBonInProformalijnIterator 62154,26933.232958 0 -DOM.OV.enu.OrderlijnType +DOM.OV.enu.OrderLijnType 1 -BonInProforma:DOM.OV.impl.DataM.DataMBonInProforma,Type:DOM.OV.enu.OrderlijnType +BonInProforma:DOM.OV.impl.DataM.DataMBonInProforma,Type:DOM.OV.enu.OrderLijnType 1 1 %Status @@ -29,5 +29,5 @@ ]]> - + Index: DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml (.../TBXSpoelbakladeImpl.cls.xml) (revision 903) +++ DOM/PM/TBXProduct/impl/TBXSpoelbakladeImpl.cls.xml (.../TBXSpoelbakladeImpl.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + 1 DOM.PM.TBXProduct.TBXSpoelbaklade,DOM.PM.TBXProduct.impl.TBXLadeImpl @@ -17,7 +17,7 @@ %Integer - + Index: Derde/Klant/Persoon.cls.xml =================================================================== diff -u -r734 -r994 --- Derde/Klant/Persoon.cls.xml (.../Persoon.cls.xml) (revision 734) +++ Derde/Klant/Persoon.cls.xml (.../Persoon.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + Personen van een klant persistent VHOpslag %Library.Persistent,Derde.Abstract.Persoon -61828,58416.312182 +62181,41122.900695 59499,28981.038588 0 @@ -58,6 +58,27 @@ + +%Library.SQLQuery +SELECT Derde_Klant.Persoon.Aanspreking, + Derde_Klant.Persoon.Naam, + Derde_Klant.Persoon.VoorNaam, + Derde_Klant.Klant.StraatNrBus, + Derde_Klant.Klant.LandCode, + Derde_Klant.Klant.Postnummer, + Derde_Klant.Klant.Woonplaats, + Case when Derde_Klant.Klant.Aktiviteit != "Consument" + then Derde_Klant.Klant.Naam + else "" end As Klant + FROM Derde_Klant.Persoon + INNER JOIN Derde_Klant.Klant + ON Derde_Klant.Persoon.Derde = Derde_Klant.Klant.ID + WHERE PrivacyToelating LIKE '%BM%' AND StraatNrBus != "" + Order by Derde_Klant.Persoon.Naam +1 + + + s o=##class(Derde.Klant.Persoon).OpenViaPersID(8951) @@ -192,5 +213,5 @@ - + Index: APPS/HR/ProTime/Facade.cls.xml =================================================================== diff -u -r966 -r994 --- APPS/HR/ProTime/Facade.cls.xml (.../Facade.cls.xml) (revision 966) +++ APPS/HR/ProTime/Facade.cls.xml (.../Facade.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + Do ##class(APPS.HR.ProTime.Facade).%New().SynchroniseerNaarKlant() %VHMacro 1 %RegisteredObject -62174,60670.824801 +62182,55319.795679 0 @@ -108,8 +108,11 @@ Set Klant = KlantAPI.GeefKlantViaProtimeNr(ProTimeWerknemer.Nr) + /// Bij de klant ook de persoon updaten, als consument is er bij klant altijd maar één persoon wordt van uit gegaan ! + If ($IsObject(Klant)) { + Set Persoon = Klant.GeefPersonen().GetAt(1) If (ProTimeWerknemer.IsInDienst()) { /// De medewerker is in dienst. @@ -126,32 +129,58 @@ { Do Klant.ZetCommercieleStatus(##class(DOM.CRM.enu.CommercieleStatus).NietActief()) Do Klant.ZetActiefStatus(##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik()) + + /// Zorgen dat de medewerker geen vhizier meer krijgt + Do Persoon.ZetPrivacyToelatingen(##class(%ListOfDataTypes).%New()) } } /// De medewerker bestaat reeds als klant, dus wijzigingen doorvoeren If (Klant.GeefNaam() '= dtoKlant.KlantNaam){ Do Klant.ZetNaam(dtoKlant.KlantNaam) + Do Persoon.ZetNaam(..CleanUp(ProTimeWerknemer.Naam)) + Do Persoon.ZetVoornaam(..CleanUp(ProTimeWerknemer.Voornaam)) + } + + If (Klant.GeefTelefoon1() '= dtoKlant.Telefoon1){ + Do Klant.ZetTelefoon1(dtoKlant.Telefoon1) + Do Persoon.ZetGSM(dtoKlant.Telefoon1) } Set dtoKlantAdres = dtoKlant.Adres If ..IsAdresGewijzigd(Klant.GeefAdres(),dtoKlantAdres) { Do Klant.ZetAdres(dtoKlantAdres) } - Do Klant.Save() + Do Klant.Save() + Do Persoon.Save() + }Else{ - /// De klant bestond nog niet, dus nieuwe aanmaken - If (ProTimeWerknemer.IsInDienst()){ + /// De klant bestond nog niet, dus nieuwe aanmaken /// protime nummer 1 is een test medewerker op protime, deze er ook uithalen ! + If (ProTimeWerknemer.IsInDienst() && (ProTimeWerknemer.Nr '= 1)){ Set Klant = KlantAPI.MaakKlant(dtoKlant,##class(DOM.CRM.enu.TypeTemplateKlant).Medewerker()) + + /// Bij de klant ook een persoon aanmaken + If ($IsObject(Klant)){ + Set VolgNummer = Klant.GeefPersonen().Count() + Set Persoon = ##class(DOM.CRM.impl.DataM.DataMPersoon).%New(Klant.GeefNummer(),(VolgNummer+1)) + + Do Persoon.ZetNaam(..CleanUp(ProTimeWerknemer.Naam)) + Do Persoon.ZetVoornaam(..CleanUp(ProTimeWerknemer.Voornaam)) + + Set PrivacyToelatingen = ##class(%ListOfDataTypes).%New() + Do PrivacyToelatingen.Insert(##class(DOM.CRM.enu.PrivacyToelating).WenstVHizier()) + Do Persoon.ZetPrivacyToelatingen(PrivacyToelatingen) + + Set VerantwoordelijkheidTypes = ##class(%ListOfDataTypes).%New() + Do VerantwoordelijkheidTypes.Insert(##class(DOM.CRM.enu.VerantwoordelijkheidsType).Eigenaar()) + Do Persoon.ZetVerantwoordelijkheden(VerantwoordelijkheidTypes) + + If (..CleanUp(ProTimeWerknemer.GSMNr) '= ""){ + Do Persoon.ZetGSM(..CleanUp(ProTimeWerknemer.GSMNr)) + } + Do Persoon.Save() + } } - /* TO DO : vragen of werknemers uit dienst ook moeten toegevoegd worden - Else { - Set Klant = KlantAPI.MaakKlant(dtoKlant,##class(DOM.CRM.enu.TypeTemplateKlant).Medewerker()) - Do Klant.ZetCommercieleStatus(##class(DOM.CRM.enu.CommercieleStatus).NietActief()) - Do Klant.ZetActiefStatus(##class(DOM.CRM.enu.ActiefStatus).BuitenGebruik()) - Do Klant.Save() - } - */ } } Quit $$$OK @@ -160,13 +189,21 @@ KlantAdres:DOM.common.Adres,dtoKlantAdres:DOM.common.Adres +1 + + +Waarde:%String +1 + + - + Index: DOM/EC/OL/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml =================================================================== diff -u -r966 -r994 --- DOM/EC/OL/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml (.../WinkelkarToOfferte.cls.xml) (revision 966) +++ DOM/EC/OL/Winkelkar/Visitor/WinkelkarToOfferte.cls.xml (.../WinkelkarToOfferte.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + BL.EC.Common,BL.Derde.KlantSpecifiek,%VHMacro,%occStatus,TECH.Error 1 WinkelkarVisitor -62174,61283.203508 +62182,57642.206798 0 @@ -101,6 +101,8 @@ // [ JCL ] : weet niet of het nog nodig is om tekstlijnen toe te voegen (..VoegToeTekstInfo) // indien bon reeds op die klant staat. + TSTART + Set Consument = Hoofding.Consument Set Onderneming = Hoofding.Consument.OndernemingGegevens @@ -118,10 +120,10 @@ If (Onderneming.Naam '= "") { Set dtoKlant.KlantNaam = Onderneming.Naam - Set dtoKlant.Toenaam = Consument.ContactGegevens.Voornaam_" "_Consument.ContactGegevens.Familienaam + Set dtoKlant.Toenaam = Consument.ContactGegevens.Familienaam_" "_Consument.ContactGegevens.Voornaam }Else { - Set dtoKlant.KlantNaam = Consument.ContactGegevens.Voornaam_" "_Consument.ContactGegevens.Familienaam + Set dtoKlant.KlantNaam = Consument.ContactGegevens.Familienaam_" "_Consument.ContactGegevens.Voornaam } /// Adres opsplitsen in AdresDeel, Postcode en Woonplaats @@ -132,11 +134,15 @@ Set LandNr = $$LAND^vhRtn1(Consument.ContactGegevens.Adres.Land,"I") Set dtoKlant.Adres.LandNr = LandNr - If $$BTW^cAFI1(Onderneming.BTWNr,"KL") - { - $$$ThrowError($$$errGeneralError,"BTWNr is niet correct ("_Onderneming.BTWNr_").") - } - Set dtoKlant.BTWNummer = Onderneming.BTWNr + + If (Onderneming.BTWNr'= "") { + if $$BTW^cAFI1(Onderneming.BTWNr,"KL") { + Set dtoKlant.BTWNummer = Onderneming.BTWNr + } + Else { + $$$ThrowError($$$errGeneralError,"BTWNr is niet correct ("_Onderneming.BTWNr_").") + } + } /// Standaarden invullen voor Winkelkar Set dtoKlant.Taal = "N" @@ -146,11 +152,27 @@ /// Relatie toevoegen Do ##class(BL.Derde.Klant.Relaties).AddRelatie2Klant(Klant.GeefNummer(),"KLANT",$$$KlantKeller) + /// Persoon toevoegen aan klant + Set VolgNummer = Klant.GeefPersonen().Count() + Set Persoon = ##class(DOM.CRM.impl.DataM.DataMPersoon).%New(Klant.GeefNummer(),(VolgNummer+1)) + Do Persoon.ZetNaam(Consument.ContactGegevens.Familienaam) + Do Persoon.ZetVoornaam(Consument.ContactGegevens.Voornaam) + If (Consument.ContactGegevens.Email '= ""){ + Do Persoon.ZetEmail(Consument.ContactGegevens.Email) + } + If (Consument.ContactGegevens.TelefoonNummer '= ""){ + Do Persoon.ZetTelefoon(Consument.ContactGegevens.TelefoonNummer) + } + Set VerantwoordelijkheidTypes = ##class(%ListOfDataTypes).%New() + Do VerantwoordelijkheidTypes.Insert(##class(DOM.CRM.enu.VerantwoordelijkheidsType).Eigenaar()) + Do Persoon.ZetVerantwoordelijkheden(VerantwoordelijkheidTypes) + Do Persoon.Save() + /// PDF foto instellen Set CRMDef=##Class(BL.Prod.ImageLink).%New() Do CRMDef.SetCRMDef(Klant.GeefNummer(),"DEFAULT") - + TCOMMIT Quit Klant ]]> @@ -186,36 +208,8 @@ set Tekst = "Betalingsref. : "_ ..Winkelkar.Hoofding.Betalingswijze_" "_..Winkelkar.Hoofding.BetalingsReferentie do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) - - set Tekst = "Consument" - do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) - - set Tekst = Consument.ContactGegevens.Voornaam_" "_Consument.ContactGegevens.Familienaam - do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) - - set Tekst = Consument.ContactGegevens.Adres.StraatNrBus - do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) - - set Tekst = Consument.ContactGegevens.Adres.PostCode_" "_Consument.ContactGegevens.Adres.Woonplaats - do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) - - set Tekst = $$LAND^vhRtn1(Consument.ContactGegevens.Adres.Land,2) - do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) - - if $length(Consument.OndernemingGegevens.Naam) > 0 { - set Tekst = "Onderneming: "_Consument.OndernemingGegevens.Naam - do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) - Set Tekst = "BTWNr. :"_Consument.OndernemingGegevens.BTWNr - do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) - } - - set Tekst = "T.: "_Consument.ContactGegevens.TelefoonNummer - do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) - - set Tekst = "E.: "_Consument.ContactGegevens.Email - do ..blFlowOfferteBuild.InsertLijnText(,,Tekst) ]]> - + FishEye: Tag 994 refers to a dead (removed) revision in file `DOM/PM/impl/SubgroepClassicatie.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: APPS/PM/OL/FotoSortKeyBuilder.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/PM/OL/FotoSortKeyBuilder.cls.xml (.../FotoSortKeyBuilder.cls.xml) (revision 734) +++ APPS/PM/OL/FotoSortKeyBuilder.cls.xml (.../FotoSortKeyBuilder.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + Genereert de waarden voor de FotoSorteerSleutel-kenmerken van de Orgalux producten en vult ze in. APPS.PM.OL.Common,%Prod.Product,BL.Derde.KlantSpecifiek 1 KenmerkBuilderOL -62019,56575.366814 +62181,37930.365147 61991,63883.747162 0 @@ -64,23 +64,23 @@ // Foto1 Set ..arSortPref("Foto1","LadeFamilie" )=$LB($$$intivo, $$$plusDubbelwBx, $$$plusGlazenBx, $$$AlleTBX, $$$antaro, $$$NietBlum) - Set ..arSortPref("Foto1","Breedte" )=$LB(90, 80, 60, 120, 100, 50, 45, 40, 30, 70, 110, 55, 27) - Set ..arSortPref("Foto1","Diepte" )=$LB(50, 65, 45, 60, 55) + Set ..arSortPref("Foto1","Breedte" )=$LB(900, 800, 600, 1200, 1000, 500, 450, 400, 300, 700, 1100, 550, 275) + Set ..arSortPref("Foto1","Diepte" )=$LB(500, 650, 450, 600, 550) Set ..arSortPref("Foto1","ProductGamma")=$LB("ORGALINE", "WOODLINE_Noot", "WOODLINE_Beuk", "KLINE") // Foto2 Set ..arSortPref("Foto2","LadeFamilie" )=$LB($$$plusDubbelwBx, $$$plusGlazenBx, $$$AlleTBX, $$$intivo, $$$antaro, $$$NietBlum) - Set ..arSortPref("Foto2","Breedte" )=$LB(60, 50, 45, 90, 80, 120, 100, 40, 30, 70, 110, 55, 27) - Set ..arSortPref("Foto2","Diepte" )=$LB(50, 65, 45, 60, 55) + Set ..arSortPref("Foto2","Breedte" )=$LB(600, 500, 450, 900, 800, 1200, 1000, 400, 300, 700, 1100, 550, 275) + Set ..arSortPref("Foto2","Diepte" )=$LB(500, 650, 450, 600, 550) Set ..arSortPref("Foto2","ProductGamma")=$LB("WOODLINE_Noot", "ORGALINE", "WOODLINE_Beuk", "KLINE") // Foto3 Set ..arSortPref("Foto3","LadeFamilie" )=$LB($$$plusGlazenBx, $$$plusDubbelwBx, $$$AlleTBX, $$$intivo, $$$antaro, $$$NietBlum) - Set ..arSortPref("Foto3","Breedte" )=$LB(120, 100, 90, 80, 60, 50, 45, 40, 30, 110, 70, 55, 27) - Set ..arSortPref("Foto3","Diepte" )=$LB(65, 50, 45, 60, 55) + Set ..arSortPref("Foto3","Breedte" )=$LB(1200, 1000, 900, 800, 600, 500, 450, 400, 300, 1100, 700, 550, 275) + Set ..arSortPref("Foto3","Diepte" )=$LB(650, 500, 450, 600, 550) Set ..arSortPref("Foto3","ProductGamma")=$LB("WOODLINE_Beuk", "ORGALINE", "WOODLINE_Noot", "KLINE") // Foto4 Set ..arSortPref("Foto4","LadeFamilie" )=$LB($$$antaro, $$$plusGlazenBx, $$$plusDubbelwBx, $$$AlleTBX, $$$intivo, $$$NietBlum) - Set ..arSortPref("Foto4","Breedte" )=$LB( 30, 40, 45, 50, 60, 80, 90, 100, 120, 70, 110, 55, 27) - Set ..arSortPref("Foto4","Diepte" )=$LB(50, 65, 45, 60, 55) + Set ..arSortPref("Foto4","Breedte" )=$LB( 300, 400, 450, 500, 600, 800, 900, 1000, 1200, 700, 1100, 550, 270) + Set ..arSortPref("Foto4","Diepte" )=$LB(500, 650, 450, 600, 550) Set ..arSortPref("Foto4","ProductGamma")=$LB("KLINE", "ORGALINE", "WOODLINE_Noot", "WOODLINE_Beuk") Quit @@ -139,7 +139,7 @@ -Toegelaten kenmerkwaarden: 27,30, ... , 120 +Toegelaten kenmerkwaarden: 275,300, ... , 1200 UnID:%String,FotoIndex:%String 1 %String @@ -155,7 +155,7 @@ -Toegelaten kenmerkwaarden: 45, 50, 55, 60, 65 +Toegelaten kenmerkwaarden: 450, 500, 550, 600, 650 UnID:%String,FotoIndex:%String 1 %String @@ -324,5 +324,5 @@ ]]> - + Index: DOM/CRM/dto/Klant.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/CRM/dto/Klant.cls.xml (.../Klant.cls.xml) (revision 946) +++ DOM/CRM/dto/Klant.cls.xml (.../Klant.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62171,50493.684504 +62182,60150.133443 0 @@ -50,7 +50,7 @@ %String - + %String @@ -61,5 +61,5 @@ ]]> - + Index: APPS/Halux/Planning/impl/ActiviteitInfo.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/ActiviteitInfo.cls.xml (.../ActiviteitInfo.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/ActiviteitInfo.cls.xml (.../ActiviteitInfo.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent -62174,56055.159214 +62178,28776.358235 0 @@ -15,10 +15,31 @@ %String + + + + + +%Integer + + APPS.Halux.Planning.impl.ResourceGebruik + +ProductInfoID + + + +cascade +ProductInfoID +APPS.Halux.Planning.impl.ProductInfo + + Naam:%String,Fase:%String 1 @@ -52,10 +73,13 @@ Naam +ProductInfoID + + ResourceGebruik - + Index: APPS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 946) +++ APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + JBL + 2011-02-28 TECH.Error 1 %RegisteredObject -62172,60463.727826 +62188,60073.669272 62159,61291.134957 0 @@ -57,67 +57,53 @@ Set KenmerkGroepen = ##class(Prod.Kenmerk.MetaGroep).GetAllMetaGroupsAsList() } Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() + Set ProductService = ##class(APPS.PM.ProductService).%New() + Set RS=##class(%ResultSet).%New("Prod.Kenmerk.MetaDefinitie:FilterMetaDefsViaGroep") Set PRNrIterator = ##class(TECH.ListIterator).%New(PRNrs) - While (PRNrIterator.HasNext()){ + While (PRNrIterator.HasNext()) + { Set PRNr = PRNrIterator.Next() - Set Product = ProductAPI.GeefProduct(PRNr) - Set ProductKenmerken = ##class(APPS.PM.dto.Kenm.ProductKenmerken).%New() - Set ProductKenmerken.IDs = ##class(APPS.PM.dto.ProductIDs).%New() - Set ProductKenmerken.IDs.IdentNr = Product.GeefIdentNr() - Set ProductKenmerken.IDs.PRNr = PRNr - Set ProductKenmerken.IDs.Korttekst = Product.GeefKorttekst() - - + Set Product = ProductAPI.GeefProduct(PRNr) + 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(%ResultSet).%New("Prod.Kenmerk.MetaDefinitie:FilterMetaDefsViaGroep") - ///Multiple's inlezen - Set MultipleNrs = ..GeefBLProdMulti(KenmerkGroep).GetMultiplesLB(PRNr) - set bl=..GeefBLProdMulti(KenmerkGroep) - If ($ll(MultipleNrs)=0) Set MultipleNrs = $listbuild("") - 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 $$$ISOK(tmpStatus) { - Set MultipleNr = $Piece($listget(MultipleNrs,i),".",2) - - Set ProductKenmerken = ##class(APPS.PM.dto.Kenm.ProductKenmerken).%New() - - - Set UnID = ##class(BL.Kenm.ProdMulti).GetFullID(PRNr,MultipleNr) - - Set tmpStatus=RS.Execute(KenmerkGroep) - Set KenmerkAanwezig = 0 - If $$$ISOK(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. - Set ProductKenmerken.IDs = ##class(APPS.PM.dto.ProductIDs).%New() - Set ProductKenmerken.IDs.IdentNr = Product.GeefIdentNr() - Set ProductKenmerken.IDs.PRNr = PRNr - Set ProductKenmerken.IDs.Korttekst = Product.GeefKorttekst() - Set ProductKenmerken.IDs.MultipleNr = MultipleNr - Do ProductenKenmerken.Kenmerken.Insert(ProductKenmerken) - } - } + } + if (KenmerkAanwezig){ + /// ProductKenmerken toevoegen. + Set ProductKenmerken.IDs = ProductIDs + Do ProductenKenmerken.Kenmerken.Insert(ProductKenmerken) + } + //} } } } @@ -160,6 +146,44 @@ 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(%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 = ..#VeldBreedteInTekens If (RS.Get("Format") = "T"){ Set KenmerkMetadata.DataType = ##class(APPS.PM.enu.DataType).Tekst() @@ -249,5 +273,5 @@ ]]> - + Index: APPS/Halux/common/impl/BatchImpl/1.int.rou =================================================================== diff -u --- APPS/Halux/common/impl/BatchImpl/1.int.rou (revision 0) +++ APPS/Halux/common/impl/BatchImpl/1.int.rou (revision 994) @@ -0,0 +1,569 @@ + ;APPS.Halux.common.impl.BatchImpl.1 + ;(C)InterSystems, generated for class APPS.Halux.common.impl.BatchImpl. Do NOT edit. 04/07/2011 02:18:00PM + ;;326E9C8FCD851C9B;APPS.Halux.common.impl.BatchImpl + Quit + ; +%AcquireLock(%this,locktype) n id,sc + s id=..%Id() QUIT:$g(id)="" $$Error^%apiOBJ(5812) + s sc=1 + i $g(locktype)="e" l +(^APPS.Halux.common7FB.BatchImplD(id)):$zu(115,4) s:'$t sc=$$Error^%apiOBJ(5803) QUIT sc + i $g(locktype)="s" l +(^APPS.Halux.common7FB.BatchImplD(id)#"S"):$zu(115,4) s:'$t sc=$$Error^%apiOBJ(5804) QUIT sc + QUIT $$Error^%apiOBJ(5806,locktype) +%BMEBuilt(bmeName) Quit 1 +%BuildIndices(idxlist) Set idxlist=$get(idxlist) QUIT 1 +%CheckUnique(idxlist) public { Set idxlist=$get(idxlist) QUIT $$Error^%apiOBJ(5758,"%Persistent::%CheckUnique") } +%ClassName(fullname) public { Quit $select($get(fullname,0):"APPS.Halux.common.impl.BatchImpl",1:"BatchImpl") } +%Close(%this) Quit ..%Close() +%Destruct(%this) public { Set oid=$zobjval(,0,,,,3) + If oid'="" { If $zobjval(,1,0,3,1)=3 { Do ..%ReleaseLock("s") } ElseIf $zobjval(,1,0,3,1)=4 { Do ..%ReleaseLock("e") } s $zobjoid($lg(oid,2),$lg(oid))="" } + Kill %objtxLIST(+%this),%objtxOIDASSIGNED(+%this),%objtxMODIFIED(+%this) + Quit 1 } +%ConstructClone(%this,deep,cloned) public { Set deep=$get(deep,0) Set object=%this + If $data(cloned(+object)) Do (cloned(+object)).%IncrementCount() Quit cloned(+object) + Set %this=$zobjnew("APPS.Halux.common.impl.BatchImpl") + Set cloned(+object)=%this,cloned(+object,0)=object + s $zobjmod(,0)=1 + 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) + If deep>0 { + If object.Toeleveringen'="" Set $zobjval(,7,0)=$zobjval(object,7,0).%ConstructClone(1,.cloned) If $zobjval(,7,0)'="" Do ($zobjval(,7,0)).%Close() + } Else { + If object.Toeleveringen'="" Set $zobjval(,7,0)=$zobjval(object,7,0).%ConstructClone(0,.cloned) If $zobjval(,7,0)'="" Do ($zobjval(,7,0)).%Close() + } + Quit %this } +%Delete(oid,concurrency) public { Set oid=$get(oid),concurrency=$get(concurrency,-1) Quit:oid="" $$Error^%apiOBJ(5813) Set id=$lg(oid) Quit:id="" $$Error^%apiOBJ(5812) + If concurrency = -1 Set concurrency=$zu(115,10) + If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Quit $$Error^%apiOBJ(5828) + Set class=$lg(oid,2) + If class="" { Set sc=##class(APPS.Halux.common.impl.BatchImpl).%OnDetermineClass(oid,.class) Quit:('sc) sc Set oid=$s(oid="":"",1:$lb($lg(oid),class)) } Else { Set class=$s(class[".":class,$e(class)'="%":"User."_class,1:"%Library."_$e(class,2,$l(class))) } + If "APPS.Halux.common.impl.BatchImpl"'=class Quit $zobjclassmethod(class,"%Delete",oid) + If +$g(%objtxSTATUS)=0 { Set traninit=1 k %objtxSTATUS,%objtxLIST,%objtxOIDASSIGNED,%objtxOIDUNASSIGNED,%objtxMODIFIED k:'$TLevel %0CacheLock i '$zu(115,9) { s %objtxSTATUS=1 } else { s %objtxSTATUS=2 TStart } } Else { Set traninit=0 } + s oref=$zobjoid($lg(oid,2),$lg(oid)) + If $isobject(oref) { New %this Set %this=oref If %this.%Concurrency>2 { s sc=%this.%ReleaseLock($Select(%this.%Concurrency=3:"s",1:"e")) } i $g(%objtxSTATUS)=2 { s %objtxOIDUNASSIGNED(+oref)=oid,%objtxLIST(+oref)=oref s %objtxMODIFIED(+oref)=$zobjval(oref,0) } s $zobjmod(oref,0)=1 Set $zobjval(oref,0,,,,3)="" s $zobjoid($lg(oid,2),$lg(oid))="" } + Set sc=##class(APPS.Halux.common.impl.BatchImpl).%DeleteData(id,concurrency) +%DeleteEnd If traninit { If (+sc) { i $g(%objtxSTATUS)=1 { k %objtxSTATUS } else { TCommit k %objtxSTATUS,%objtxLIST,%objtxOIDASSIGNED,%objtxOIDUNASSIGNED,%objtxMODIFIED k:'$TLevel %0CacheLock } } Else { i $g(%objtxSTATUS)=2 { k %0CacheLock s sc=$select(+sc:$$%TRollBack^%occTransaction(),1:$$AppendStatus^%occSystem(sc,$$%TRollBack^%occTransaction())) } else { k %objtxSTATUS } } } + Quit sc } +%DeleteData(id,concurrency) QUIT:id="" $$Error^%apiOBJ(5812) + n extentlock,sc + s extentlock=0,sc="" + If concurrency { If '$tlevel { Kill %0CacheLock } If $i(%0CacheLock("APPS.Halux.common.impl.BatchImpl"))>1000 { Lock +(^APPS.Halux.common7FB.BatchImplD):$zu(115,4) Set extentlock=$test Lock:extentlock -(^APPS.Halux.common7FB.BatchImplD) } If 'extentlock { Lock +(^APPS.Halux.common7FB.BatchImplD(id)):$zu(115,4) } If '$test { QUIT $$Error^%apiOBJ(5803) }} + s:($d(^APPS.Halux.common7FB.BatchImplD(id))) sc=1 + i (+sc) DO + . k ^APPS.Halux.common7FB.BatchImplD(id) + If (concurrency) && ('extentlock) { Lock -(^APPS.Halux.common7FB.BatchImplD(id)) } + QUIT $s(sc'="":sc,1:$$Error^%apiOBJ(5810)) +%DeleteExtent(concurrency,deletecount,instancecount) public { Set concurrency=$get(concurrency,-1) If concurrency = -1 Set concurrency=$zu(115,10) + If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Quit $$Error^%apiOBJ(5828) + Set deletecount=0,instancecount=0 + Set sc=##class(APPS.Halux.common.impl.BatchImpl).ExtentExecute(.qh) Quit:('sc) sc + For Set sc=##class(APPS.Halux.common.impl.BatchImpl).ExtentFetch(.qh,.row,.atend) Quit:$select(row="":1,('sc):1,1:0) Set id=$listget(row) If id'="" Set sc=##class(APPS.Halux.common.impl.BatchImpl).%Delete($listbuild(id),concurrency) Set instancecount=instancecount+1 Set:(+sc) deletecount=deletecount+1 Quit:atend + Do ##class(APPS.Halux.common.impl.BatchImpl).ExtentClose(qh) + If instancecount = deletecount { Do ##class(APPS.Halux.common.impl.BatchImpl).%PurgeIndices() } + Quit 1 } +%DeleteId(id,concurrency) public { Set concurrency=$get(concurrency,-1) Quit ##class(APPS.Halux.common.impl.BatchImpl).%Delete($s(id="":"",1:$lb(id_"")),.concurrency) } +%DowngradeConcurrency(%this,concurrency) public { Set concurrency=$get(concurrency,0) If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Quit $$Error^%apiOBJ(5828) + Set current=$zobjval(,1,0,3,1) + If concurrency>current Quit 1 + If current<3||(current=concurrency) Set:concurrency2 Set sc=..%AcquireLock($select(concurrency=3:"s",1:"e")) Quit:('sc) sc + Do ..%ReleaseLock($select(current=3:"s",1:"e")) + Set $zobjval(,1,0,3,1)=concurrency + Quit 1 } +%Exists(oid) Set oid=$get(oid) Quit ##class(APPS.Halux.common.impl.BatchImpl).%ExistsId($lg(oid)) +%ExistsId(id) Quit ($s($g(id)="":0,($d(^APPS.Halux.common7FB.BatchImplD(id))):1,1:0)) +%Extends(isclass) public { Quit "~APPS.Halux.common.impl.BatchImpl~%Library.Persistent~%Library.RegisteredObject~APPS.Halux.common.Batch~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") } +%GetParameter(paramname) public { Set paramname=$get(paramname) Quit $case(paramname,"DEFAULTCONCURRENCY":"$zu(115,10)","EXTENTSIZE":100000,"KastKlanten":";1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;3814;","OBJJOURNAL":0,"PROPERTYVALIDATION":2,"READONLY":0,"SQLENABLED":1,"STORAGECOMPILERCLASS":"%Compiler.Storage.Cache",:"") +} +%GetSwizzleObject(%this,force,oid) public { Set force=$get(force,0) Set oid="" If force=0 Set oid=(..%Oid()) Quit 1 + If force=2 Set sc=..%Save(1) Set:(+sc) oid=(..%Oid()) Quit sc + Set oid=(..%Oid()) Quit:oid'="" 1 + Set sc=..%Save(0) Set:(+sc) oid=..%Oid() + Quit sc } +%Id(%this) Quit $lg($zobjval(%this,0,,,,3)) +%IdSet(%this,id) public { Set oid=$s(id="":"",1:$lb(id_"","APPS.Halux.common.impl.BatchImpl")) + If $zobjval(,0,,,,3)'="",$zobjval(,0,,,,3)'=oid Quit $$Error^%apiOBJ(5814) + Set $zobjval(,0,,,,3)=oid s $zobjoid($lg(oid,2),$lg(oid))=%this + Quit 1 } +%IncrementCount(%this) Quit ..%IncrementCount() +%IsA(isclass) public { Quit "~APPS.Halux.common.impl.BatchImpl~%Library.Persistent~%Library.RegisteredObject~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") } +%IsModified(%this) public { Quit $zobjmod(,0) } +%KillExtent() n sc,subextent + s subextent="" f s subextent=$o(^oddMAP("APPS.Halux.common.impl.BatchImpl","Z",subextent)) q:subextent="" s sc=$zobjclassmethod(subextent,"%KillExtent") + s sc=##class(APPS.Halux.common.impl.BatchImpl).%PurgeIndices() q:('sc) sc + k ^APPS.Halux.common7FB.BatchImplD + QUIT 1 +%Load(%this,id) public { Set sc=..%IdSet(id) Quit:('sc) sc + Set sc=..%LoadData(id) Quit:('sc) sc + Quit 1 } +%LoadData(%this,id) n sc + s sc="" + i $zobjval(,1,0,3,1)=4 l +(^APPS.Halux.common7FB.BatchImplD(id)):$zu(115,4) i '$t QUIT $$Error^%apiOBJ(5803) + i $zobjval(,1,0,3,1)'=4,$zobjval(,1,0,3,1)>0 l +(^APPS.Halux.common7FB.BatchImplD(id)#"S"):$zu(115,4) i '$t QUIT $$Error^%apiOBJ(5804) + i '$d(^APPS.Halux.common7FB.BatchImplD(id)) s $zobjval(,3,0,3,3)="",$zobjval(,4,0,3,4)="",$zobjval(,5,0,3,5)="",$zobjval(,6,0,3,6)="" + e DO + . n %s1,key + . s sc=1 + . s %s1=$g(^APPS.Halux.common7FB.BatchImplD(id)) + . s $zobjval(,3,0,3,3)=$lg(%s1,2),$zobjval(,4,0,3,4)=$lg(%s1,3),$zobjval(,5,0,3,5)=$lg(%s1,4) + . s $zobjval(,6,0,3,6)="",key="" f s key=$o(^APPS.Halux.common7FB.BatchImplD(id,"Toeleveringen",key)) q:key="" s $zobjval(,6,0,3,6)=$zobjval(,6,0,3,6)_$lb($lb(key,^APPS.Halux.common7FB.BatchImplD(id,"Toeleveringen",key))) + i $zobjval(,1,0,3,1)=2!($zobjval(,1,0,3,1)=1) l -(^APPS.Halux.common7FB.BatchImplD(id)#"SI") + QUIT $s(sc'="":sc,1:$$Error^%apiOBJ(5809)) +%New(initvalue) public { Quit ##class(APPS.Halux.common.impl.BatchImpl).%New($get(initvalue)) +} +%Construct(%this,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10) Set $zobjval(,1,0,3,1)=$zu(115,10),$zobjval(,2,0,3,2)=0,$zobjval(,3,0,3,3)="",$zobjval(,4,0,3,4)="",$zobjval(,5,0,3,5)="",$zobjval(,6,0,3,6)="" + Set $zobjval(,7,0,3,6)="" + Set $zobjmod(,6)=0 + Quit ..%OnNew(.p1) +%NormalizeObject(%this) Set:$zobjval(,3,0,3,3)'="" $zobjval(,3,0,3,3)=(..AanmaakTijdstipNormalize($zobjval(,3,0,3,3))) + Set:$zobjval(,4,0,3,4)'="" $zobjval(,4,0,3,4)=(..LijnNormalize($zobjval(,4,0,3,4))) + Set:$zobjval(,5,0,3,5)'="" $zobjval(,5,0,3,5)=(..ProductieGroepNormalize($zobjval(,5,0,3,5))) + Quit 1 +%ObjectModified(%this) public { If $zobjmod(,0) Quit 1 + If $zobjval(,7,0,3,6)'="",..Toeleveringen.%ObjectModified() Quit 1 + Quit 0 } +%Oid(%this) Quit $zobjval(%this,0,,,,3) +%OnDetermineClass(oid,class) n id,idclass + Set id=$lg($get(oid)) QUIT:id="" $$Error^%apiOBJ(5812) + s idclass=$lg($g(^APPS.Halux.common7FB.BatchImplD(id)),1) + i idclass="" s class="APPS.Halux.common.impl.BatchImpl" Quit 1 + s class=$p(idclass,$e(idclass),$l(idclass,$e(idclass))-1) + s:class'["." class="User."_class + QUIT 1 +%OnNew(%this,Lijn) public { Set Lijn=$get(Lijn) Set $zobjval(,4,0,3,4) = Lijn + Set $zobjval(,3,0,3,3) = ##class(TECH.DateTime).CurrentTimeStamp() + Quit 1 } +%Open(oid,concurrency,sc) public { Set concurrency=$get(concurrency,-1),sc=$get(sc,1) If $lg($g(oid))="" Set sc = $$Error^%apiOBJ(5813) Quit "" + If concurrency = -1 Set concurrency=$zu(115,10) + If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Set sc = $$Error^%apiOBJ(5828) Quit "" + New %this Set class=$lg(oid,2) + If class="" { Set sc=##class(APPS.Halux.common.impl.BatchImpl).%OnDetermineClass(oid,.class) Quit:('sc) "" Set oid=$s(oid="":"",1:$lb($lg(oid),class)) } Else { Set class=$s(class[".":class,$e(class)'="%":"User."_class,1:"%Library."_$e(class,2,$l(class))) } + If "APPS.Halux.common.impl.BatchImpl"'=class Quit $zobjclassmethod(class,"%Open",oid,concurrency,.sc) + s %this=$zobjoid($lg(oid,2),$lg(oid)) + If %this'="" { If concurrency>$zobjval(,1,0,3,1) { Set sc=..%UpgradeConcurrency(concurrency) If ('sc) { Quit "" } } d %this.%IncrementCount() Quit %this } + Set %this=$zobjnew("APPS.Halux.common.impl.BatchImpl") + Set $zobjval(,1,0,3,1)="",$zobjval(,1,0,3,1)=concurrency + Set $zobjval(,7,0,3,6)="" + Set sc=..%Load($lg(oid)) If ('sc) Do ..%Close() Quit "" + Set $zobjval(,2,0,3,2)=0 + s $zobjmod(,0)=0 + Quit %this +} +%OpenId(id,concurrency,sc) public { Set concurrency=$get(concurrency,-1),sc=$get(sc,1) Quit ##class(APPS.Halux.common.impl.BatchImpl).%Open($s(id="":"",1:$lb(id_"")),.concurrency,.sc) } +%PackageName() Quit "APPS.Halux.common.impl" +%PurgeIndices(idxlist) Set idxlist=$get(idxlist) QUIT 1 +%ReleaseLock(%this,locktype) n id,sc + s id=..%Id() QUIT:$g(id)="" $$Error^%apiOBJ(5812) + s sc=1 + i $g(locktype)="e" l -(^APPS.Halux.common7FB.BatchImplD(id)) QUIT 1 + i $g(locktype)="s" l -(^APPS.Halux.common7FB.BatchImplD(id)#"S") QUIT 1 + i $g(locktype)="si" l -(^APPS.Halux.common7FB.BatchImplD(id)#"SI") QUIT 1 + QUIT $$Error^%apiOBJ(5806,locktype) +%Reload(%this) public { If ..%Id()="" Quit $$Error^%apiOBJ(5813) + Set cur=$zobjval(,1,0,3,1),$zobjval(,1,0,3,1)=0 + Set $zobjval(,7,0,3,6)="" + Set sc=..%Load(..%Id()) Set $zobjval(,1,0,3,1)=cur If ('sc) Do ..%Close() Quit "" + Set $zobjval(,2,0,3,2)=0 + s $zobjmod(,0)=0 + Quit 1 } +%RollBack(%this) public { If $data(%objtxMODIFIED(+%this)) s $zobjval(,0)=%objtxMODIFIED(+%this) + Quit 1 } +%Save(%this,related) public { Set related=$get(related,1) Set $ZTrap="%SaveERR" + New %objTX Set sc=1,traninit=0 + If $zobjval(,2,0,3,2) Set sc=..%AddToSaveSet(1) Quit:('sc) sc Set intRef=+%this,objValue=$get(%objTX(1,intRef,1)),sc=..%SerializeObject(.objValue,1) Set:(+sc) %objTX(1,intRef,1)=objValue Quit sc + If +$g(%objtxSTATUS)=0 { Set traninit=1 Kill %objtxSTATUS,%objtxLIST,%objtxOIDASSIGNED,%objtxMODIFIED If '$zu(115,9) { Set %objtxSTATUS=1 } Else { Set %objtxSTATUS=2,%objtxLIST(+%this)="" TStart } } + Set sc=..%AddToSaveSet(related+2) If ('sc) ZTrap "SG" + Set intRef = $Order(%objTX(4,""),1,objRef) + While intRef '= "" { + If '$Data(%objTX(5,intRef)) { Set sc=objRef.%AddToSaveSet(related+2) Set %objTX(5,intRef) = objRef If ('sc) { ZTrap "SG" } } + Kill %objTX(4,intRef) + Set intRef = $Order(%objTX(4,""),1,objRef) + } + If '$data(%objTX(2)) s sc=1 GoTo %SaveCOMMIT + Set %objTX(3)=0,intRef="" For Set intRef=$order(%objTX(2,intRef)) Quit:intRef="" If '$data(%objTX(1,intRef,2)) Set %objTX(3,$increment(%objTX(3)))=%objTX(1,intRef) Kill %objTX(2,intRef) + For Quit:%objTX(3)<1 Set ptr=%objTX(3),objRef=%objTX(3,ptr),%objTX(3)=%objTX(3)-1 Kill %objTX(3,ptr) Set intRef=+objRef,objValue=$get(%objTX(1,intRef,1)),sc=objRef.%SerializeObject(.objValue) Do Set %objTX(1,intRef,1)=objValue Kill %objTX(1,intRef,3) s $zobjmod(objRef,0)=0 + . If ('sc) Kill:$g(%objtxSTATUS)=2 %objtxLIST(+objRef),%objtxMODIFIED(+objRef) ZTrap "SG" + . If $g(%objtxSTATUS)=2,objRef.%IsModified() s %objtxMODIFIED(+objRef)=$zobjval(objRef,0) + . Set intSucc="" For Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intRef,3,intSucc),%objTX(1,intSucc,2,intRef) If '$data(%objTX(1,intSucc,2)) Set %objTX(3,$increment(%objTX(3)))=%objTX(1,intSucc) Kill %objTX(2,intSucc) + For Set pserial=0 Do Quit:'pserial + . Set intRef="" For Set intRef=$order(%objTX(2,intRef)) Quit:intRef="" Set intPred="" For Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred="" If %objTX(1,intPred,6)=1 Set objValue=$get(%objTX(1,intPred,1)),sc=(%objTX(1,intPred)).%SerializeObject(.objValue,1) If (+sc) Set pserial=1,%objTX(1,intPred,1)=objValue Do + . . Set intSucc="" For Set intSucc=$order(%objTX(1,intPred,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intPred,3,intSucc),%objTX(1,intSucc,2,intPred) If '$data(%objTX(1,intSucc,2)) Set %objTX(3,$i(%objTX(3)))=%objTX(1,intSucc) Kill %objTX(2,intSucc) + . . For Quit:%objTX(3)<1 Set ptr=%objTX(3),objSerialize=%objTX(3,ptr),%objTX(3)=%objTX(3)-1 Kill %objTX(3,ptr) Set intSerialize=+objSerialize,objValue=$get(%objTX(1,intSerialize,1)),sc=objSerialize.%SerializeObject(.objValue) Do Set %objTX(1,intSerialize,1)=objValue Kill %objTX(1,intSerialize,3) s $zobjmod(objSerialize,0)=0 + . . . If ('sc) Kill:$g(%objtxSTATUS)=2 %objtxLIST(+objSerialize),%objtxMODIFIED(+objSerialize) ZTrap "SG" + . . . If $g(%objtxSTATUS)=2,objSerialize.%IsModified() s %objtxMODIFIED(+objSerialize)=$zobjval(objSerialize,0) + . . . Set intSucc="" For Set intSucc=$order(%objTX(1,intSerialize,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intSerialize,3,intSucc),%objTX(1,intSucc,2,intSerialize) If '$data(%objTX(1,intSucc,2)) Set %objTX(3,$i(%objTX(3)))=%objTX(1,intSucc) Kill %objTX(2,intSucc) + If $data(%objTX(2))>2 Set sc=$$Error^%apiOBJ(5827) ZTrap "SG" +%SaveCOMMIT If traninit { If $g(%objtxSTATUS)=1 { Kill %objtxSTATUS } Else { TCommit Kill %objtxSTATUS,%objtxLIST,%objtxOIDASSIGNED,%objtxMODIFIED Set sc=1 } } + s $zobjmod(,0)=0 Quit sc +%SaveERR Set $ZTrap="" If $extract($zerror,1,5)'="" Set sc=$$Error^%apiOBJ(5002,$ZE) + Set:traninit sc=$select(+sc:$$%TRollBack^%occTransaction(),1:$$AppendStatus^%occSystem(sc,$$%TRollBack^%occTransaction())) + Quit sc } +%SaveData(%this,id) n idassigned,idclass,insert,lock,sc + Set sc=1,id=..%Id() If id'="" { Set insert=0,idassigned=1 } Else { Set insert=1,idassigned=0 } + s idclass="" + Set lock=0 + i 'insert,'(($d(^APPS.Halux.common7FB.BatchImplD(id)))) s insert=1 + If insert DO + . s:'idassigned id=$i(^APPS.Halux.common7FB.BatchImplD) + . i $zobjval(,1,0,3,1) l +(^APPS.Halux.common7FB.BatchImplD(id)):$zu(115,4) s lock=$t e s sc=$$Error^%apiOBJ(5803) q + . n count,element,key,ptr + . i 'idassigned s sc=..%IdSet(id) q:('sc) s:$g(%objtxSTATUS)=2 %objtxOIDASSIGNED(+%this)="" + . s ^APPS.Halux.common7FB.BatchImplD(id)=$lb("",$zobjval(,3,0,3,3),$zobjval(,4,0,3,4),$zobjval(,5,0,3,5)) + . s count=$ll(%objOBJ(67)) f ptr=1:1:count s element=$li(%objOBJ(67),ptr),key=$li(element),^APPS.Halux.common7FB.BatchImplD(id,"Toeleveringen",key)=$li(element,2) + . i $zobjval(,1,0,3,1)=3 l +(^APPS.Halux.common7FB.BatchImplD(id)#"S") + . s:$zobjval(,1,0,3,1)=4 lock=0 + If 'insert DO + . n count,element,key,ptr + . i $zobjval(,1,0,3,1) l +(^APPS.Halux.common7FB.BatchImplD(id)):$zu(115,4) s lock=$t e s sc=$$Error^%apiOBJ(5803) q + . s ^APPS.Halux.common7FB.BatchImplD(id)=$lb("",$zobjval(,3,0,3,3),$zobjval(,4,0,3,4),$zobjval(,5,0,3,5)) + . k ^APPS.Halux.common7FB.BatchImplD(id,"Toeleveringen") s count=$ll(%objOBJ(67)) f ptr=1:1:count s element=$li(%objOBJ(67),ptr),key=$li(element),^APPS.Halux.common7FB.BatchImplD(id,"Toeleveringen",key)=$li(element,2) + i lock l -(^APPS.Halux.common7FB.BatchImplD(id)) + QUIT sc +%SerializeObject(%this,serial,partial) Set partial=$get(partial,0) New %objOBJ,sc,id + Set $Ztrap = "%SerializeObjectERR" + If $zobjval(,2,0,3,2) { Set partial = 1 } ElseIf ('partial) { Set $zobjval(,2,0,3,2) = 1 } + Set sc=..%ValidateObject() If ('sc) { Ztrap "SO" } + Set sc=..%NormalizeObject() If ('sc) { Ztrap "SO" } + If $zobjval(,7,0,3,6)'="" { Set:'$data(%objTX(1,+$zobjval(,7,0,3,6),1)) %objTX(1,+$zobjval(,7,0,3,6))=$zobjval(,7,0,3,6),%objTX(1,+$zobjval(,7,0,3,6),1)=..ToeleveringenGetObject(1),%objTX(1,+$zobjval(,7,0,3,6),6)=2 Set %objOBJ(67)=$lg(%objTX(1,+$zobjval(,7,0,3,6),1)),$zobjval(,6,0,3,6)=%objOBJ(67) } Else { Set %objOBJ(67)=$zobjval(,6,0,3,6) } + s:$g(%objtxSTATUS)=2 %objtxLIST(+%this)=%this + Set id=$lg(serial),sc=..%SaveData(.id) If ('sc) { Ztrap "SO" } + Set serial=(..%Oid()) + If 'partial { Set $zobjval(,2,0,3,2) = 0 } + Quit sc +%SerializeObjectERR Set $ZTrap="" If $extract($zerror,1,5)'="" Set sc=$$Error^%apiOBJ(5002,$ZE) + If 'partial { Set $zobjval(,2,0,3,2) = 0 } + Quit sc +%AddToSaveSet(%this,depth,refresh,norecurseon) public { Set depth=$get(depth,3),refresh=$get(refresh,0),norecurseon=$get(norecurseon) If ($data(%objTX(1,+%this))) && ('refresh) Quit 1 + Set sc=1,intOref=+%this + If refresh { + Set intPoref=$order(%objTX(1,intOref,2,"")) + While intPoref'="" { Kill %objTX(1,intPoref,3,intOref),%objTX(1,intOref,2,intPoref) Set intPoref=$order(%objTX(1,intOref,2,intPoref)) } + } + Set serial=..%Oid(),%objTX(1,intOref)=%this,%objTX(1,intOref,1)=serial,%objTX(1,intOref,6)=1 If (serial '= "") && (depth<2) Quit 1 + Set tDepth=$select(depth'=2:depth,1:1) + If $zobjval(,7,0,3,6)'="" { + If '$data(%objTX(1,+$zobjval(,7,0,3,6))) Set sc=..Toeleveringen.%AddToSaveSet(tDepth) Quit:('sc) sc + Set intPoref=+$zobjval(,7,0,3,6),%objTX(1,intPoref,3,intOref)="",%objTX(1,intOref,2,intPoref)="" + } + If ..%ObjectModified() Set %objTX(2,intOref)=1 +exit Quit sc } +%RemoveFromSaveSet(%this) public { + If '($data(%objTX(1,+%this))) Quit 1 + Set intRef=+%this + Set intSucc="" For Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intSucc,2,intRef) + Set intPred="" For Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred="" Kill %objTX(1,intPred,3,intRef) + Kill %objTX(1,intRef),%objTX(2,intRef) + Quit 1 } +%SetModified(%this,value) public { s $zobjmod(,0)=value + Quit 1 } +%SortBegin(idxlist,excludeunique) Set idxlist=$get(idxlist),excludeunique=$get(excludeunique,0) QUIT 1 +%SortEnd(idxlist,commit) Set idxlist=$get(idxlist),commit=$get(commit,1) QUIT 1 +%UpgradeConcurrency(%this,concurrency) public { Set concurrency=$get(concurrency,0) If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Quit $$Error^%apiOBJ(5828) + Set current=$zobjval(,1,0,3,1) + Quit:concurrencycurrent $zobjval(,1,0,3,1)=concurrency Quit 1 + Set sc=..%AcquireLock($select(concurrency=3:"s",1:"e")) Quit:('sc) sc + If current=3 Do ..%ReleaseLock("s") + Set $zobjval(,1,0,3,1)=concurrency + Quit 1 } +%ValidateObject(%this,force) Set force=$get(force,0) New iv + If ($zobjval(,7,0,3,6)'="")||($zobjmod(,6)) Set iv=..Toeleveringen.%ValidateObject(force) Quit:('iv) iv + If '(..%IsModified()) Quit 1 + If $zobjmod(,3) Set iv=$zobjval(,3,0,3,3) If iv'="" Set iv=(..AanmaakTijdstipIsValid(iv)) Quit:('iv) iv + If $zobjmod(,4) Set iv=$zobjval(,4,0,3,4) If iv'="" Set iv=(..LijnIsValid(iv)) Quit:('iv) iv + If $zobjmod(,5) Set iv=$zobjval(,5,0,3,5) If iv'="" Set iv=(..ProductieGroepIsValid(iv)) Quit:('iv) iv + Quit 1 +zBepaalProductieGroep(%this,Toelevering,TBXLade) public { Set ProductieGroep = "" + Set Verpakking = TBXLade.GeefVerpakking() + If ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).KastZonderOnderdelen())) + { + If (Toelevering.GeefOrder().GeefKlantNr() = 1239) + { + Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Plus() + } + ElseIf ($Find(";1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;3814;",";"_Toelevering.GeefOrder().GeefKlantNr()_";")) + { + Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast() + } + Else + { + Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet() + } + } + ElseIf ((Verpakking = ##class(DOM.PM.enu.TBXVerpakking).Pallet()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).CommissieMetOnderdelen()) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).CommissieZonderOnderdelen())) + { + Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet() + } + Else + { + Set ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk() + } + Quit ProductieGroep } +zCleanUp(%this) public { Set $zobjval(,5,0,3,5) = "" } +zGeefAanmaakTijdstip(%this) public { Quit $zobjval(,3,0,3,3) } +zGeefAdresString(%this,Order) public { Set Adres = Order.GeefAfleveradres() + Quit Adres.GeefNaam()_"\"_Adres.GeefStraat()_"\"_Adres.GeefPostcode() } +zGeefBatchID(%this) public { Quit ..%Id() } +zGeefLijn(%this) public { Quit $zobjval(,4,0,3,4) } +zGeefProductieGroep(%this) public { Quit $zobjval(,5,0,3,5) } +zGeefToeleveringIterator(%this) public { Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI() + Set Toeleveringen = ##class(%Library.ListOfObjects).%New() + Set Iterator = ##class(TECH.ListIterator).%New(..Toeleveringen) + While (Iterator.HasNext()) + { + Do Iterator.Next() + Set Toelevering = ToeleveringAPI.GeefToelevering(Iterator.Key()) + If ($IsObject(Toelevering)) + { + Do Toeleveringen.Insert(Toelevering) + } + } + Quit ##class(TECH.ListIterator).%New(Toeleveringen) +} +zIsAanwezigInAndereBatch(%this,Toelevering) public { Quit ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering) '= "" +} +zIsActief(%this) public { Quit ..GeefToeleveringIterator().HasNext() } +zIsGeldigAfleverAdres(%this,Toelevering) public { Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI() + Set ToeleveringNummerIterator = ##class(TECH.ListIterator).%New(..Toeleveringen) + Set EersteAdres = "" + Set GevraagdeAdres = "" + If (ToeleveringNummerIterator.HasNext()) + { + Set ToeleveringNummer = Iterator.Next() + Set EersteToelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer) + Set Order = EersteToelevering.GeefOrder() + Set EersteAdres = "" + If ($IsObject(Order)) + { + Set EersteAdres = ..GeefAdresString(Order) + } + Set Order = Toelevering.GeefOrder() + If ($IsObject(Order)) + { + Set GevraagdeAdres = ..GeefAdresString(Order) + } + } + Quit EersteAdres = GevraagdeAdres } +zIsGeldigeProductieGroep(%this,ProductieGroep) public { Quit (($zobjval(,5,0,3,5) = "") || ($zobjval(,5,0,3,5) = ProductieGroep)) } +zVerwijderAlleToeleveringen(%this) public { Do ..Toeleveringen.Clear() + Do ..CleanUp() } +zVerwijderToelevering(%this,Toelevering) public { Set Removed = ..Toeleveringen.RemoveAt(Toelevering.GeefToeNr()) + If (..Toeleveringen.Count() = 0) + { + Do ..CleanUp() + } + Quit Removed } +zVoegToeToelevering(%this,Toelevering) public { Set Aantal = 0 + Set LijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product()) + While (LijnIterator.HasNext()) + { + Set Lijn = LijnIterator.Next() + Set Product = Lijn.GeefProduct() + If (Product.%Extends("DOM.PM.TBXProduct.TBXLade")) + { + Set Aantal = Aantal + Lijn.GeefAantal() + // De productiegroep van het laatste product wint, dit bij gebrek aan betere opties... + Set ProductieGroep = ..BepaalProductieGroep(Toelevering, Product) + } + } + Set Errors = ##class(%Library.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") } + b + 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) + { + Set MaakBatchError = ##class(APPS.Halux.common.impl.BatchError).%New() + Set MaakBatchError.ToeleveringNummer = Toelevering.GeefToeNr() + Set MaakBatchError.Boodschappen = Errors + Set MaakBatchErrorLijst = ##class(%Library.ListOfObjects).%New() + Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.common.impl.ToeleveringException).%New(MaakBatchError)) + } + Do ..Toeleveringen.SetAt(1,Toelevering.GeefToeNr()) + Set $zobjval(,5,0,3,5) = ProductieGroep } +zZetLijn(%this,ProductieLijn) public { Set $zobjval(,4,0,3,4) = ProductieLijn } +%ConcurrencyIsModified(%this) Quit $zobjmod(,1) +%ConcurrencyIsValid(value) public { Quit 1 } +%ConcurrencySetModified(%this,newvalue) public { Set $zobjmod(,1)=newvalue Quit 1 } +%IsInSaveIsModified(%this) Quit $zobjmod(,2) +%IsInSaveIsValid(value) public { Quit 1 } +%IsInSaveSetModified(%this,newvalue) public { Set $zobjmod(,2)=newvalue Quit 1 } +zAanmaakTijdstipDisplayToLogica(%val) Quit %val +zAanmaakTijdstipIsModified(%this) Quit $zobjmod(,3) +zAanmaakTijdstipIsValid(value) public { Quit $s(##class(APPS.Halux.common.impl.BatchImpl).AanmaakTijdstipIsValidDT(value):1,1:$$Error^%apiOBJ(5802,"APPS.Halux.common.impl.BatchImpl.AanmaakTijdstip")) } +zAanmaakTijdstipIsValidDT(%val) i %val=(%val\1) s %val=$zd(%val,3,,,,,,,"error")_" 00:00:00" + i $l(%val)=10 s %val=%val_" 00:00:00" + i $l(%val)=8 s %val=$zd($h,3)_" "_%val + q ($l(%val)>18)&''$zdth(%val,3,,,,,,,,"") +zAanmaakTijdstipLogicalToDispla(%val) Quit %val +zAanmaakTijdstipNormalize(%val) Quit $s(%val="":"",%val=(%val\1):$zd(%val,3,,,,,,,"error")_" 00:00:00",$l(%val)=8:$zd($h,3)_" "_%val,$l(%val)=10:%val_" 00:00:00",(%val[".")&&(%val[":"):$p(%val,":",1)_":"_$p(%val,":",2)_":"_$e(100+$p(%val,":",3),2,999),1:%val) +zAanmaakTijdstipOdbcToLogical(%val) Quit $s(%val="":"",$zdth(%val,3,,,,,,,,"")'="":$zdt($zdth(%val,3),3,,$l($p(%val,".",2))),$zdth(%val,-1,,,,,,,,"")'="":$zdt($zdth(%val,-1),3,,$l($p(%val,".",2))),1:%val) +zAanmaakTijdstipSetModified(%this,newvalue) public { Set $zobjmod(,3)=newvalue Quit 1 } +zIsActiefDisplayToLogical(%val) Set %val=$get(%val) Quit ''%val +zIsActiefIsModified(%this) Quit $zobjmod(,0) +zIsActiefIsValidDT(%val) Set %val=$get(%val) Quit $isvalidnum(%val,0,0,2)&&(+%val'=2) +zIsActiefLogicalToDisplay(%val) Set %val=$get(%val) Quit %val +zIsActiefNormalize(%val) Quit %val\1 +zIsActiefSetModified(%this,newvalue) public { Set $zobjmod(,0)=newvalue Quit 1 } +zLijnDisplayToLogical(%val) Quit %val +zLijnEen() public { Quit "1" } +zLijnIsModified(%this) Quit $zobjmod(,4) +zLijnIsValid(value) public { Quit $s(##class(APPS.Halux.common.impl.BatchImpl).LijnIsValidDT(value):1,1:$$Error^%apiOBJ(5802,"APPS.Halux.common.impl.BatchImpl.Lijn")) } +zLijnIsValidDT(%val) Quit (%val'[",")&(",1,2,K,"[(","_%val_",")) +zLijnKeller() public { Quit "K" } +zLijnLogicalToDisplay(%val) Quit %val +zLijnNormalize(%val) Quit $e(%val,1,50) +zLijnSetModified(%this,newvalue) public { Set $zobjmod(,4)=newvalue Quit 1 } +zLijnTwee() public { Quit "2" } +zProductieGroepDisplayToLogical(%val) q:%val="Pallet" "P" + q:%val="Kast" "A" + q:%val="Stuk" "S" + q:%val="Plus" "+" + q "" +zProductieGroepIsModified(%this) Quit $zobjmod(,5) +zProductieGroepIsValid(value) public { Quit $s(##class(APPS.Halux.common.impl.BatchImpl).ProductieGroepIsValidDT(value):1,1:$$Error^%apiOBJ(5802,"APPS.Halux.common.impl.BatchImpl.ProductieGroep")) } +zProductieGroepIsValidDT(%val) Quit (%val'[",")&(",P,A,S,+,"[(","_%val_",")) +zProductieGroepKast() public { Quit "A" } +zProductieGroepLogicalToDisplay(%val) q:%val="P" "Pallet" + q:%val="A" "Kast" + q:%val="S" "Stuk" + q:%val="+" "Plus" + q "" +zProductieGroepNormalize(%val) Quit $e(%val,1,50) +zProductieGroepPallet() public { Quit "P" } +zProductieGroepPlus() public { Quit "+" } +zProductieGroepSetModified(%this,newvalue) public { Set $zobjmod(,5)=newvalue Quit 1 } +zProductieGroepStuk() public { Quit "S" } +zToeleveringenBuildValueArray(value,array) public { Quit ##class(%Library.ArrayOfDataTypes).BuildValueArray(value,.array) +} +zToeleveringenDisplayToLogical(%val) Quit $in(%val,"","") +zToeleveringenGetObject(%this,force) public { Set force=$get(force,0) Quit:$zobjval(,7,0,3,6)="" $s($zobjval(,6,0,3,6)="":"",1:$lb($zobjval(,6,0,3,6)_"")) Quit:(+..Toeleveringen.%GetSwizzleObject(force,.oid)) oid Quit "" + Quit "" } +zToeleveringenGetObjectId(%this,force) public { Set force=$get(force,0) Quit $lg(..ToeleveringenGetObject(force)) } +zToeleveringenGetSwizzled(%this) public { Set oid=$s($zobjval(,6,0,3,6)="":"",1:$lb($zobjval(,6,0,3,6)_"")) + Set oref=##class(%Library.ArrayOfDataTypes).%Open(oid) If oref="" Quit "" + Set $zobjval(,7,0,0,6)=oref,$zobjval(,6,0,0,6)="" + Set isusercount=''$g($zobjval(oref,0,,,,5)) Do oref.%Close() Set $zobjval(oref,0,,,,5)=isusercount + Set oref.ElementType="APPS.Halux.common.impl.BatchImpl:Toeleveringen" + Do oref.%SetModified(0) + Quit oref } +zToeleveringenIsModified(%this) Quit $zobjmod(,6) +zToeleveringenIsValid(value) public { Quit $s(##class(APPS.Halux.common.impl.BatchImpl).ToeleveringenIsValidDT(value):1,1:$$Error^%apiOBJ(5802,"APPS.Halux.common.impl.BatchImpl.Toeleveringen")) } +zToeleveringenIsValidDT(%val) Quit $isvalidnum(%val,0,,) +zToeleveringenLogicalToDisplay(%val) Quit %val +zToeleveringenNewObject(%this) public { Set newobject=##class(%Library.ArrayOfDataTypes).%New("") If newobject="" Quit "" + Set ..Toeleveringen=newobject + Set isusercount=''$get($zobjval(newobject,0,,,,5)) Do newobject.%Close() Set $zobjval(newobject,0,,,,5)=isusercount + Set newobject.ElementType="APPS.Halux.common.impl.BatchImpl:Toeleveringen" + Do newobject.%SetModified(0) + Quit newobject } +zToeleveringenNormalize(%val) Quit %val\1 +zToeleveringenSet(%this,newvalue) public { If newvalue'="",'$isobject(newvalue) Quit $$Error^%apiOBJ(5807,newvalue) + Set $zobjval(,7,0,3,6)=newvalue,$zobjval(,6,0,3,6)="" + Quit 1 } +zToeleveringenSetModified(%this,newvalue) public { Set $zobjmod(,6)=newvalue Quit 1 } +zExtentExecute(%qHandle) [ SQLCODE,array,c1 ] public { New SQLCODE,array,c1 + Set sc=1 + s %qHandle=$i(%objcn) + ;---&sql(DECLARE Q27 CURSOR FOR + ;--- SELECT ID FROM APPS_Halux_common_impl.BatchImpl) + ;--- ** SQL PUBLIC Variables: SQLCODE + + ;---&sql(OPEN Q27) + ;--- ** SQL PUBLIC Variables: SQLCODE + Do %Q270o + If SQLCODE Set sc=$$Error^%apiOBJ(5821,"SQLCODE = "_SQLCODE) + Quit sc } +zExtentClose(%qHandle) [ SQLCODE,array,c1 ] public { New SQLCODE,array,c1 + ;---&sql(CLOSE Q27) + ;--- ** SQL PUBLIC Variables: SQLCODE + Do %Q270c + Kill %objcsc(%qHandle),%objcsp(%qHandle),%objcss(%qHandle),%objcst(%qHandle),%objcsl(%qHandle),%objcsR(%qHandle),%objcsZ(%qHandle),%objcsd(%qHandle) + Quit $select('SQLCODE:1,1:$$Error^%apiOBJ(5521,SQLCODE_" "_$get(%msg))) } +zExtentFetch(%qHandle,Row,AtEnd) [ SQLCODE,array,c1 ] public { New SQLCODE,array,c1 Set AtEnd=$get(AtEnd,0) Set Row="",AtEnd=0 + ;---&sql(FETCH Q27 INTO :c1) + ;--- ** SQL PUBLIC Variables: SQLCODE, c1 + Do %0Do + If 'SQLCODE { Set Row=$lb(c1) } Else { Set AtEnd=1 } + Quit $select('SQLCODE:1,SQLCODE=100:1,1:$$Error^%apiOBJ(5521,SQLCODE_" "_$get(%msg))) } +zExtentFetchODBC(%qHandle,array,%qacn,AtEnd,SQLCODE) [ SQLCODE,array,c1 ] public { New c1 Set AtEnd=$get(AtEnd,0) Quit:$get(%qacn)="" $$Error^%apiOBJ(6024) + Kill array(%qacn) + Set SQLCODE=0 + Set AtEnd=0 + ;---&sql(FETCH Q27 INTO :array(%qacn,1)) + ;--- ** SQL PUBLIC Variables: SQLCODE, array + Do %0Eo + If SQLCODE=100 { Set AtEnd=1 } ElseIf SQLCODE { Quit $$Error^%apiOBJ(5521,SQLCODE_":"_$get(%msg)) } + Quit 1 } +zExtentFetchRows(%qHandle,FetchCount,RowSet,ReturnCount,AtEnd) [ SQLCODE,array,c1 ] public { New SQLCODE,array,c1 Set FetchCount=$get(FetchCount,0) Set RowSet="",ReturnCount=0,AtEnd=0 + For { + ;---&sql(FETCH Q27 INTO :c1) + ;--- ** SQL PUBLIC Variables: SQLCODE, c1 + Do %0Fo + If 'SQLCODE { Set RowSet=RowSet_$lb(c1),ReturnCount=ReturnCount+1 Quit:(ReturnCount=FetchCount)||(($l(RowSet)+($l(RowSet)\ReturnCount))>24000) } Else { Set AtEnd=1 Quit } + } + Quit $select('SQLCODE:1,SQLCODE=100:1,1:$$Error^%apiOBJ(5521,SQLCODE_" "_$g(%msg))) } + q +%Q270o s SQLCODE=$s($g(%objcsc(%qHandle)):-101,1:0) q:SQLCODE'=0 s %objcsd(%qHandle,4)=0 s %objcsd(%qHandle,5)=0,%objcsd(%qHandle,6)="" + s %objcsc(%qHandle)=1 q +%0first + ; asl MOD# 2 + s %objcsd(%qHandle,1)="" +%0Bk1 s %objcsd(%qHandle,1)=$o(^APPS.Halux.common7FB.BatchImplD(%objcsd(%qHandle,1))) + i %objcsd(%qHandle,1)="" g %0Bdun + s %objcsd(%qHandle,3)=%objcsd(%qHandle,1) + g:$zu(115,2)=0 %0Buncommitted i $zu(115,2)=1 l +^APPS.Halux.common7FB.BatchImplD(%objcsd(%qHandle,1))#"S":$zu(115,4) i $t { s %objcsd(%qHandle,5)=1,%objcsd(%qHandle,6)=$name(^APPS.Halux.common7FB.BatchImplD(%objcsd(%qHandle,1)))_"#""SI""" } else { s SQLCODE=-114,%msg="Unable to acquire shared lock on table APPS_Halux_common_impl.BatchImpl for RowID value: "_%objcsd(%qHandle,1) q } + ; asl MOD# 3 + i %objcsd(%qHandle,1)'="",$d(^APPS.Halux.common7FB.BatchImplD(%objcsd(%qHandle,1))) + e g %0Cdun + s %objcsd(%qHandle,3)=%objcsd(%qHandle,1) +%0Buncommitted ; + s:$g(SQLCODE)'<0 SQLCODE=0 s %ROWCOUNT=$i(%objcsd(%qHandle,4)) s %objcsc(%qHandle)=10 q +%Q270f i '$g(%objcsc(%qHandle)) { s SQLCODE=-102 q } i %objcsc(%qHandle)=100 { s SQLCODE=100 q } s SQLCODE=0 + s $zt="%0err" s $ze="" g %0first:%objcsc(%qHandle)=1 +%0Cdun i $zu(115,2)=1,$g(%objcsd(%qHandle,5))=1 { l -@%objcsd(%qHandle,6) } + g %0Bk1 +%0Bdun +%0Adun + s %ROWCOUNT=%objcsd(%qHandle,4),SQLCODE=100,%objcsc(%qHandle)=100 q +%Q270c i '$g(%objcsc(%qHandle)) { s SQLCODE=-102 q } s %ROWCOUNT=+$g(%objcsd(%qHandle,4)) + i $zu(115,2)=1,$g(%objcsd(%qHandle,5))=1 { l -@%objcsd(%qHandle,6) } k %objcsd(%qHandle),%objcsc(%qHandle) s SQLCODE=0 q +%0err s $zt="" d SQLRunTimeError^%apiSQL($ze,.SQLCODE,.%msg) s %objcsc(%qHandle)=100 q +%0Do d %Q270f q:SQLCODE'=0 + s c1=%objcsd(%qHandle,3) + q +%0Eo d %Q270f q:SQLCODE'=0 + s array(%qacn,1)=%objcsd(%qHandle,3) + q +%0Fo d %Q270f q:SQLCODE'=0 + s c1=%objcsd(%qHandle,3) + q +zExtentGetInfo(colinfo,parminfo,idinfo,%qHandle,extoption,extinfo) public { Set extoption=$get(extoption,0) s parminfo="" + s:'($d(^oddCOM("APPS.Halux.common.impl.BatchImpl","q","Extent",21),clientinfo)#2)&&'$s($d(^(2),clientinfo)#2:$d(^oddCOM(clientinfo,"q","Extent",21),clientinfo)#2||($d(^oddDEF(clientinfo,"q","Extent",21),clientinfo)#2),1:$d(^oddDEF("APPS.Halux.common.impl.BatchImpl","q","Extent",21),clientinfo)#2) clientinfo=$g(^%qCacheObjectKey(1,"q",21)) + Set:extoption extinfo=$s($d(^oddCOM("APPS.Halux.common.impl.BatchImpl","q","Extent",38))#2:^(38),$d(^oddCOM($g(^(2),"APPS.Halux.common.impl.BatchImpl"),"q","Extent",38))#2:^(38),1:$s($d(^oddDEF($g(^(2),"APPS.Halux.common.impl.BatchImpl"),"q","Extent",38))#2:^(38),1:$g(^%qCacheObjectKey(1,"q",38)))) + If clientinfo'="" Set colinfo=$listget(clientinfo,1),parminfo=$listget(clientinfo,2),idinfo=$listget(clientinfo,3) Quit 1 + Set colinfo="",parminfo="",idinfo=$listbuild(0) + Set sc=$$externaltype^%apiOLE("%Library.Integer",.exttypes,"0") + Quit:('sc) sc + s:'($d(^oddCOM("APPS.Halux.common.impl.BatchImpl","q","Extent",23),names)#2)&&'$s($d(^(2),names)#2:$d(^oddCOM(names,"q","Extent",23),names)#2||($d(^oddDEF(names,"q","Extent",23),names)#2),1:$d(^oddDEF("APPS.Halux.common.impl.BatchImpl","q","Extent",23),names)#2) names=$g(^%qCacheObjectKey(1,"q",23)) + s:'($d(^oddCOM("APPS.Halux.common.impl.BatchImpl","q","Extent",22),captions)#2)&&'$s($d(^(2),captions)#2:$d(^oddCOM(captions,"q","Extent",22),captions)#2||($d(^oddDEF(captions,"q","Extent",22),captions)#2),1:$d(^oddDEF("APPS.Halux.common.impl.BatchImpl","q","Extent",22),captions)#2) captions=$g(^%qCacheObjectKey(1,"q",22)) + For i=1:1:1 Set colinfo=colinfo_$listbuild($listbuild($listget(names,i),$piece(exttypes,",",i),$listget(captions,i))) + Set idinfo=$listbuild(1) + s ^oddCOM("APPS.Halux.common.impl.BatchImpl","q","Extent",21)=$listbuild(colinfo,parminfo,idinfo) + Quit 1 } +zExtentGetODBCInfo(colinfo,parminfo,qHandle) public { Set version = $Select($Get(%protocol,31)>30:3,%protocol>14:2,1:1) + If $Get(^oddPROC("APPS_HALUX_COMMON_IMPL","BATCHIMPL_EXTENT",21))'="" { Set sc = 1, metadata=$Select(version=3:^oddPROC("APPS_HALUX_COMMON_IMPL","BATCHIMPL_EXTENT",12),1:^oddPROC("APPS_HALUX_COMMON_IMPL","BATCHIMPL_EXTENT",12,version)) } + ElseIf $Data(^oddPROC("APPS_HALUX_COMMON_IMPL","BATCHIMPL_EXTENT")) { Set sc = $$CompileSignature^%ourProcedure("APPS_HALUX_COMMON_IMPL","BATCHIMPL_EXTENT",.metadata,.signature) } + Else { Set sc = $$Error^%apiOBJ(5068,"APPS.Halux.common.impl.BatchImpl:Extent") } + If (+sc) { Set colcount=$li(metadata,2),cmdlen=colcount*$Case(version,3:9,2:9,1:7,:9),colinfo=$li(metadata,2,2+cmdlen),parmcount=$li(metadata,cmdlen+3),pmdlen=parmcount*$Case(version,3:6,:4),parminfo=$li(metadata,cmdlen+3,cmdlen+pmdlen+3) } + Quit sc } +zExtentPrepare(qHandle,statement,containid,optional) public { Set containid=$get(containid,0) Quit 1 } +zExtentSendODBC(qHandle,array,qacn,%qrc,piece,ColumnCount) public { +SPInnerLoop Set rc=##class(APPS.Halux.common.impl.BatchImpl).ExtentFetchODBC(.qHandle,.array,qacn,,.%qrc) + If ('rc) { Do ProcessError^%ourProcedure(rc,%sqlcontext,.%qrc,.%msg) Do Logerr^%qserver(%qrc,"","SP",.%msg) } + If %qrc Set piece=0 Quit + For piece=1:1:ColumnCount { Goto:$zobjexport(array(qacn,piece),7) SPDone } + Goto SPInnerLoop +SPDone Quit } \ No newline at end of file Index: DOM/PM/Bouwstenen/enu/InkortbaarOptie.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/enu/InkortbaarOptie.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/enu/InkortbaarOptie.cls.xml (revision 994) @@ -0,0 +1,47 @@ + + + +datatype +1 +%String +62180,38395.909618 +0 + + +,NGI,TVV,INK,EXP + + + +,Niet geïmpacteerd,Te vervangen,Inkortbaar,Extra product + + + +1 +DOM.PM.Bouwstenen.enu.InkortbaarOptie + + + + +1 +DOM.PM.Bouwstenen.enu.InkortbaarOptie + + + + +1 +DOM.PM.Bouwstenen.enu.InkortbaarOptie + + + + +1 +DOM.PM.Bouwstenen.enu.InkortbaarOptie + + + + + Index: APPS/PM/OL/ExcelExport.cls.xml =================================================================== diff -u -r948 -r994 --- APPS/PM/OL/ExcelExport.cls.xml (.../ExcelExport.cls.xml) (revision 948) +++ APPS/PM/OL/ExcelExport.cls.xml (.../ExcelExport.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + De klasse ExcelExport exporteert de kenmerken van de ORGALUX-producten en maakt een TAB-delimited tekstbestand ervan. @@ -9,7 +9,7 @@ APPS.PM.OL.Common,%Prod.Product,BL.Derde.KlantSpecifiek 1 %RegisteredObject -62173,37043.858002 +62187,56769.963362 0 @@ -26,18 +26,25 @@ 1 + + +Houdt info van de huidige export bij. +%String +1 + + Oproepen via - s sc=##class(APPS.PM.OL.ExcelExport).ExportCSV(1) w sc,! + s sc=##class(APPS.PM.OL.ExcelExport).ExportCSV(blnMastersOnly,) w sc,! 1 -blnMastersOnly:%Boolean=1 +blnMastersOnly:%Boolean=1,blnExportConflictsOnly:%String=0 %Status UnID:%String %Boolean + + + + +1 -Dir:%String,FName:%String,blnMastersOnly:%Boolean +Dir:%String,FName:%String,blnMastersOnly:%Boolean,blnExportConflictsOnly:%String=0 %Status PRNr 1 %Boolean - + + +Error logging per lijn +LijnID:%String,sc:%Status +1 + + + 1 %Status @@ -404,5 +476,5 @@ ]]> - + Index: DOM/CRM/Stat/KlantBeoordeling.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/CRM/Stat/KlantBeoordeling.cls.xml (.../KlantBeoordeling.cls.xml) (revision 946) +++ DOM/CRM/Stat/KlantBeoordeling.cls.xml (.../KlantBeoordeling.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + Leveringsperformantie vertrekt van de facturen, @@ -12,7 +12,7 @@ BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek,%VHMacro,BL.EC.Common,%Prod.Product,TECH.Error 1 %RegisteredObject -62161,55722.913773 +62173,57557.481067 61807,38311.621993 0 @@ -36,6 +36,7 @@ tijdelijke opslag %String 1 +1 @@ -89,7 +90,8 @@ Set sc=rs.Execute(12) If $$$ISERR(sc) $$$ThrowErrorStatus($$$errCreateObject,"Resultset qLijst",sc) - + s sc=rs.GetODBCInfo(.lbC,.lbP) + w $LL(lbC),$$$LCVT(lbC),!! While rs.Next() { ;k %x @@ -104,33 +106,55 @@ Do ##class(DOM.CRM.Stat.KlantBeoordeling).Export() 1 +0 + +1 +Value,FormatNr + + + %Query AantalMaanden:%Integer 1 - - + + @@ -175,13 +199,14 @@ %Status @@ -220,14 +245,6 @@ ]]> - -Begin,Eind - - - @@ -272,7 +291,7 @@ For Set Key1=$O(..DataCache(Key1)) Quit:Key1="" Do . Set lb1=..DataCache(Key1) . For Set Key2=$O(..DataCache(Key1,Key2)) Quit:Key2="" Do - . . Set lb2=..DataCache(Key1,Key2) + . . Set lb2=..AdresCache(Key2) . . For Set Key3=$O(..DataCache(Key1,Key2,Key3)) Quit:Key3="" Do . . . Set lb3=..DataCache(Key1,Key2,Key3) . . . For Set Key4=$O(..DataCache(Key1,Key2,Key3,Key4)) Quit:Key4="" Do @@ -300,17 +319,17 @@ Set Bon=BonIterator.Next() ;w !,"B ",Bon.GeefBonNr() Do Detail.SetBon(Bon,.Key2,.Key3) - Set LijnIterator=Bon.GeefBonlijnIterator() + Set LijnIterator=Bon.GeefBonLijnIterator() Set Order="" ; een bon kan bestaan zonder order While LijnIterator.HasNext() { Set Lijn=LijnIterator.Next() ;w !,"L ",Lijn.GeefType() - If Lijn.GeefType()=##class(DOM.OV.enu.BonlijnType).OrderVerwijzing() + If Lijn.GeefType()=##class(DOM.OV.enu.BonLijnType).OrderVerwijzing() { Set Order=Lijn } - ElseIf Lijn.GeefType()=##class(DOM.OV.enu.BonlijnType).Product() + ElseIf Lijn.GeefType()=##class(DOM.OV.enu.BonLijnType).Product() { Do Detail.SetProd(Order, Lijn, .Key4, .Key5, .Gewicht, .TotaalVKP, .TotaalAKP) If $D(..DataCache(Key1,Key2,Key3,Key4,Key5)) @@ -328,5 +347,5 @@ ]]> - + Index: DOM/PM/OL/Gamma/impl/PrijsAbstract.cls.xml =================================================================== diff -u -r734 -r994 --- DOM/PM/OL/Gamma/impl/PrijsAbstract.cls.xml (.../PrijsAbstract.cls.xml) (revision 734) +++ DOM/PM/OL/Gamma/impl/PrijsAbstract.cls.xml (.../PrijsAbstract.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + BL.Derde.KlantSpecifiek,TECH.Error 1 DOM.PM.OL.Gamma.Prijs -62067,62905.17313 +62182,59901.347983 0 @@ -87,8 +87,8 @@ @@ -119,5 +119,5 @@ ]]> - + Index: DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml (.../BewerkingsInfoTabel.cls.xml) (revision 903) +++ DOM/PM/Maatwerk/Calc/HF/impl/BewerkingsInfoTabel.cls.xml (.../BewerkingsInfoTabel.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.PM.Maatwerk.Calc.HF.IBewerkingsInfoTabel -62157,36933.583215 +62179,54388.265516 0 @@ -61,5 +61,5 @@ ]]> - + Index: APPS/Halux/common/impl/BatchImpl.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/common/impl/BatchImpl.cls.xml (.../BatchImpl.cls.xml) (revision 954) +++ APPS/Halux/common/impl/BatchImpl.cls.xml (.../BatchImpl.cls.xml) (revision 994) @@ -1,78 +1,112 @@ - + +persistent 1 -%RegisteredObject,APPS.Halux.common.Batch -62174,60304.400541 +%Persistent,APPS.Halux.common.Batch +62189,54458.271185 0 - -DS.PPS.TBX.Batch + +APPS.Halux.common.enu.ProductieLijn 1 + +%TimeStamp +1 + + + +APPS.Halux.common.enu.ProductieGroep +1 + + + +%Integer +array +1 + + + +%Boolean +1 +1 + Set {*}=##class(APPS.Halux.common.impl.BatchImpl).%OpenId({ID}).IsActief() +1 + + + +;1000;5023;1213;3814;1390;1387;1966;4073;1949;4451;6780;3044;2523;4533;6261;11620;3670;3814; + + -BatchID:%Integer="" +Lijn:APPS.Halux.common.enu.ProductieLijn="" 1 1 %Status + +%TimeStamp + + + %Integer - - -%String - +ProductieLijn:APPS.Halux.common.enu.ProductieLijn + + +TECH.Iterator + + + -APPS.Halux.enu.ProductieGroep -APPS.Halux.common.enu.ProductieGroep + - -%Status - +APPS.Halux.common.enu.ProductieLijn + Toelevering:DOM.LEV.Toelevering -%Status 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") } + 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) { - Set ..Batch.NbrDrawers = ..Batch.NbrDrawers + Aantal - Set ..Batch.NbrTipOn = ..Batch.NbrTipOn + TipOn - Set ..Batch.NbrSink = ..Batch.NbrSink + SpoelbakSifon - Set ..Batch.NbrWood = ..Batch.NbrWood + Baliko + Set MaakBatchError = ##class(APPS.Halux.common.impl.BatchError).%New() + Set MaakBatchError.ToeleveringNummer = Toelevering.GeefToeNr() + Set MaakBatchError.Boodschappen = Errors + Set MaakBatchErrorLijst = ##class(%ListOfObjects).%New() + Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.common.impl.ToeleveringException).%New(MaakBatchError)) + } + + Do ..Toeleveringen.SetAt(1,Toelevering.GeefToeNr()) + Set ..ProductieGroep = ProductieGroep +]]> + + + +Toelevering:DOM.LEV.Toelevering +%Boolean + + + + + + + + +1 + + + + +Toelevering:DOM.LEV.Toelevering +1 +%Boolean + + +Order:DOM.OV.Order +1 +%String + + + ProductieGroep:%String 1 %Boolean - @@ -134,32 +232,70 @@ Toelevering:DOM.LEV.Toelevering,TBXLade:DOM.PM.TBXProduct.TBXLade 1 -APPS.Halux.enu.ProductieGroep +APPS.Halux.common.enu.ProductieGroep + + +%Boolean + + + + +%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" + + - + Index: APPS/PM/ProductService.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/PM/ProductService.cls.xml (.../ProductService.cls.xml) (revision 946) +++ APPS/PM/ProductService.cls.xml (.../ProductService.cls.xml) (revision 994) @@ -1,13 +1,18 @@ - + TECH.Error 1 %RegisteredObject -62165,38046.539141 +62188,59550.590487 62159,61291.418178 0 + +%String +\\Notes01\Images\Orgalux\ + + Geef gegeven de criteria een lijst terug met producten (Prod.Product) @@ -18,6 +23,13 @@ $$$TECHErrorTrapOn + If (Criteria.SoortProductID = "") + { + Set Criteria.SoortProductID = ##class(APPS.PM.enu.SoortProductID).Korttekst() + Set Criteria.ProductID = "" + Set Criteria.ExacteKorttekst = 0 + } + Set Usage = "ALL" Set pxCriteria = ##class(BL.Prod.sub.pxSearchCriteria).%New(Usage) Do pxCriteria.SetDefault() @@ -33,9 +45,15 @@ Set pxCriteria.VerifyCustomer = Criteria.GekochtDoorKlantnr Set pxCriteria.LimitSupplier = Criteria.GeleverdDoorLeveranciernr - Set pxCriteria.SearchTxt = Criteria.ProductID + 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.MaxCount = Criteria.MaxAantalResultaten + Set pxCriteria.Alias = $ListBuild("P") Set pxSearchFormat = ##class(BL.Prod.sub.pxSearchFormat).%New() Set pxSearchFormat.FormatCompact = "IdentNr;KortTekst" @@ -46,43 +64,39 @@ 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() + Set AantalToegevoegde = 0 Set rs = rsSearch - While(rs.Next()) { - Set Product = ProductAPI.GeefProduct(rs.GetData(1)) + While(rs.Next() && ((Criteria.MaxAantalResultaten = "") || (AantalToegevoegde < Criteria.MaxAantalResultaten))) { + Set PRNr = rs.GetData(1) + If ((Criteria.PRNrs.Count() = 0) || (Criteria.PRNrs.Find(PRNr) '= "" )){ + Set Product = ProductAPI.GeefProduct(PRNr) - Set HeeftMultipleGroepen = 0 - Set MultipleGroepenIt = Product.GeefMultipleGroepen() - While (MultipleGroepenIt.HasNext()){ - Set HeeftMultipleGroepen = 1 - Set MultipleGroep = MultipleGroepenIt.Next() - Set MultipleNrs = ##class(BL.Kenm.ProdMulti).Create(MultipleGroep).GetMultiplesLB(Product.GeefPRNr()) - - If (($ll(MultipleNrs)> 0) && ($Data(MultipleNrs))){ - for i=1:1:$ll(MultipleNrs) - { - Set ProductZoekResultaat = ##class(APPS.PM.dto.ProductIDs).%New() - Set ProductZoekResultaat.IdentNr = Product.GeefIdentNr() - Set ProductZoekResultaat.Korttekst = Product.GeefKorttekst() - Set ProductZoekResultaat.PRNr = Product.GeefPRNr() - Set ProductZoekResultaat.MultipleNr = $p($lg(MultipleNrs,i),".",2) - Do ProductenLijst.HerkendeProducten.Insert(ProductZoekResultaat) + 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 } } - } - - If ('HeeftMultipleGroepen) - { - Set ProductZoekResultaat = ##class(APPS.PM.dto.ProductIDs).%New() - Set ProductZoekResultaat.IdentNr = Product.GeefIdentNr() - Set ProductZoekResultaat.Korttekst = Product.GeefKorttekst() - Set ProductZoekResultaat.PRNr = Product.GeefPRNr() - Do ProductenLijst.HerkendeProducten.Insert(ProductZoekResultaat) - } + If Toevoegen { + Do ProductenLijst.HerkendeProducten.Insert(ProductID) + Set AantalToegevoegde = AantalToegevoegde + 1 + } + } + } } $$$TECHErrorTrapOff @@ -93,7 +107,6 @@ De klassificatiestructuur voor producten terug geven in een boomstructuur. -ClassificatieKey:%String="K" APPS.PM.dto.Classificatie + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +PRNrs:%ListOfDataTypes +APPS.PM.dto.ProductIDsControleResult + + + + +Kortteksten:%ListOfDataTypes +APPS.PM.dto.ProductIDsControleResult + + + + +DossierNrs:%ListOfDataTypes +APPS.PM.dto.ProductIDsControleResult + + + + +IdentNrs:%ListOfDataTypes +APPS.PM.dto.ProductIDsControleResult + + + + + +Geef lijst terug van APPS.PM.dto.ProductIDs adhv een opgegeven Product, inclusief multiples als die er zijn +Product:DOM.PM.Product +%ListOfObjects + 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(),"/","\") + } + } + Do ProductIDs.Insert(ProductZoekResultaat) + } + } + } + + If ('HeeftMultipleGroepen) + { + Do ProductIDs.Insert(..Product2ProductIDs(Product)) + } + + Quit ProductIDs +]]> + + + +Product:DOM.PM.Product +APPS.PM.dto.ProductIDs + + + ClassificatieObject:DOM.PM.GroepClassificatie 1 @@ -162,5 +417,5 @@ ]]> - + Index: DOM/PM/Maatwerk/Calc/Kost/impl/OLM/SpecOpMaatKostv001.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/Maatwerk/Calc/Kost/impl/OLM/SpecOpMaatKostv001.cls.xml (.../SpecOpMaatKostv001.cls.xml) (revision 946) +++ DOM/PM/Maatwerk/Calc/Kost/impl/OLM/SpecOpMaatKostv001.cls.xml (.../SpecOpMaatKostv001.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 DOM.PM.Maatwerk.Calc.Kost.KostSpec -62171,48955.648017 +62179,54748.009576 0 @@ -39,5 +39,5 @@ %Library.CacheStorage - + Index: DOM/PM/Bouwstenen/Bouwsteen.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/Bouwsteen.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/Bouwsteen.cls.xml (revision 994) @@ -0,0 +1,132 @@ + + + +persistent +1 +VHOpslag +%Persistent +62173,38023.435286 +59772,53878.611013 +0 + + +1 + +%Library.Status + + + + + +Property MoederProduct As Prod.Product; +DOM.PM.Bouwstenen.Product +parent +Bouwstenen +1 + + + +%String + + + +%Float + + + + +K=Kindproduct +H=Halffabrikaat +T=Tijd (verwerkingstijd) +S=Supplement (extra kost) +%String + + + + + +Gebruikt om de volgorde te bepalen bij de kostberekening (belangrijk voor de KostFaktorGroep) +%Integer + + + + +Optioneel veld gebruikt voor groepering van elementen en voor toepassen van de KostFaktor op een speciale groep. +%String + + + +%String + + + + +Verklarende tekst van de berekeningswijze +%String + + + +1 +1 +BSKey +1 + + + +%CacheSQLStorage +^Prod.BouwstenenS + +data +^PRBS + +"BS" + + +{Product.Product} + + +{BSKey} + + +"\" +2 + + +"\" +11 + + +"\" +13 + + +"\" +10 + + +"\" +17 + + +"\" +3 + + + + + + Index: APPS/Halux/Planning/impl/ResourceGebruik.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/ResourceGebruik.cls.xml (.../ResourceGebruik.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/ResourceGebruik.cls.xml (.../ResourceGebruik.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + -persistent +serial 1 -%Persistent -62174,53048.669597 +%SerialObject +62175,50287.387831 0 @@ -94,6 +94,123 @@ Quit $$$OK ]]> + + +%Library.CacheStorage +^APPS.Halux8A9.ResourceGebr611D +ResourceGebruikDefaultData +^APPS.Halux8A9.ResourceGebr611D +^APPS.Halux8A9.ResourceGebr611I +ResourceGebruikState +^APPS.Halux8A9.ResourceGebr611S + +listnode + + +%%CLASSNAME + + +ALUFrees + + +ALUOperator + + +ALUZaag + + +Activiteit + + +Bewerkingscenter + + +Categorie + + +HoekkastInpak + + +HoekkastMontage + + +HoekkastZaag + + +Houtzaag + + +KartonMachine + + +TBXPers1 + + +TBXPers2 + + +TBXPers3 + + +TBXPicking + + +Voormontage + + + +listnode +"APPS.Halux.Planning.impl.ResourceGebruik" + +ALUFrees + + +ALUOperator + + +ALUZaag + + +Activiteit + + +Bewerkingscenter + + +Categorie + + +HoekkastInpak + + +HoekkastMontage + + +HoekkastZaag + + +Houtzaag + + +KartonMachine + + +TBXPers1 + + +TBXPers2 + + +TBXPers3 + + +TBXPicking + + +Voormontage + + + - + Index: Derde/Agenda/Agenda.cls.xml =================================================================== diff -u -r734 -r994 --- Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 734) +++ Derde/Agenda/Agenda.cls.xml (.../Agenda.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + Table with all the AgendaItems persistent 1 %Persistent -62105,61595.039182 +62178,38935.999343 59994,36389.769598 0 @@ -262,7 +262,7 @@ %SQLQuery paKlant:%String,paDatum:%String=0 - :paDatum) ORDER BY Datum DESC,TijdVan DESC]]> @@ -283,6 +283,13 @@ ]]> + +1 +Identifier:%String + + + Agenda,pxAgenda - + Index: APPS/Halux/common/impl/BatchError.cls.xml =================================================================== diff -u --- APPS/Halux/common/impl/BatchError.cls.xml (revision 0) +++ APPS/Halux/common/impl/BatchError.cls.xml (revision 994) @@ -0,0 +1,19 @@ + + + +1 +%RegisteredObject +62178,57461.769397 +0 + + +%Integer + + + +%String +list + + + + Index: DOM/PM/OLProduct/OLInkortInfo.cls.xml =================================================================== diff -u --- DOM/PM/OLProduct/OLInkortInfo.cls.xml (revision 0) +++ DOM/PM/OLProduct/OLInkortInfo.cls.xml (revision 994) @@ -0,0 +1,25 @@ + + + +1 +1 +62180,43495.708166 +0 + + +1 +%ListOfObjects + + + +1 +%ListOfObjects + + + +1 +%ListOfObjects + + + + Index: DOM/OV/OrderAPI.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/OV/OrderAPI.cls.xml (.../OrderAPI.cls.xml) (revision 903) +++ DOM/OV/OrderAPI.cls.xml (.../OrderAPI.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 1 -62152,60251.656873 +62178,37032.712386 0 @@ -33,12 +33,6 @@ ProformaNr:%Integer DOM.OV.Proforma - - -1 -PRNr:%Integer -%Integer - - + FishEye: Tag 994 refers to a dead (removed) revision in file `DOM/OV/enu/BonlijnType.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: DOM/PM/Bouwstenen/BouwsteenKostFactor.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/BouwsteenKostFactor.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/BouwsteenKostFactor.cls.xml (revision 994) @@ -0,0 +1,54 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.Bouwsteen +62173,38727.57178 +59772,53878.611013 + + + +Gebruikt als Type="S" +Faktor die vermenigvuldigd wordt met de reeds berekende deelkost. +Hiervoor is het belangrijk dat de bouwstenen in een goede volgorde zitten. +%Float + + + + +Gebruikt als Type="S" +Op welke groep van bouwstenen dient de faktor toegepast te worden. +Indien leeg dan alle. +Hiervoor is het belangrijk dat de bouwstenen in een goede volgorde zitten. +%String + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +5 + + +"\" +6 + + +"\" +16 + + + + + + Index: APPS/Halux/Planning/dto/VerplaatsingEvaluatie.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/VerplaatsingEvaluatie.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/VerplaatsingEvaluatie.cls.xml (revision 994) @@ -0,0 +1,19 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62185,31673.725943 +0 + + +%String +list + + + +%Date + + + + Index: APPS/PM/IKenmerkBuilder.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/PM/IKenmerkBuilder.cls.xml (.../IKenmerkBuilder.cls.xml) (revision 734) +++ APPS/PM/IKenmerkBuilder.cls.xml (.../IKenmerkBuilder.cls.xml) (revision 994) @@ -1,11 +1,11 @@ - + 1 APPS.PM.OL.Common,vhLib.Macro 1 %RegisteredObject -62059,38463.449883 +62182,35208.839179 0 @@ -61,8 +61,9 @@ @@ -83,7 +84,7 @@ quit } else { - write !,$$$TAB,"saved "_Kenmerk_" : "_KenmerkWaarde + write !,$$$TAB,"saved "_Kenmerk_" : "_$$$LCVT(KenmerkWaarde) } } Else { @@ -201,5 +202,5 @@ ]]> - + Index: Derde/Klant/Klant.cls.xml =================================================================== diff -u -r946 -r994 --- Derde/Klant/Klant.cls.xml (.../Klant.cls.xml) (revision 946) +++ Derde/Klant/Klant.cls.xml (.../Klant.cls.xml) (revision 994) @@ -1,20 +1,13 @@ - + persistent DataM %Library.Persistent,Derde.Abstract.Derde -62171,53191.041675 +62185,38977.095181 58449,45194 0 - - - - Format: Numeric: 4 @@ -727,19 +720,39 @@ + +%SQLQuery +SELECT ID, Naam +FROM Derde_Klant.Klant +WHERE isnull(CommNonActief,0)=0 + + + + %SQLQuery - SELECT ID, Naam, Opmerking12 + SELECT ID, Naam, Opmerking1 FROM Derde_Klant.Klant - WHERE (Opmerking12 LIKE "%ProTimeNr%") + WHERE (Opmerking1 LIKE "%ProTimeNr%") - + %SQLQuery ProTimeNr:%Integer + SELECT ID, Naam, Opmerking1 As ProTimeNr + FROM Derde_Klant.Klant + WHERE (Opmerking1 = "ProTimeNr " || :ProTimeNr) + + + + + +%SQLQuery +ProTimeNr:%Integer + SELECT ID, Naam, Opmerking12 As ProTimeNr FROM Derde_Klant.Klant WHERE (Opmerking12 = "ProTimeNr " || :ProTimeNr) @@ -1191,5 +1204,5 @@ - + Index: DOM/LEV/impl/DataM/DataMToeleveringLijnIterator.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/LEV/impl/DataM/DataMToeleveringLijnIterator.cls.xml (.../DataMToeleveringLijnIterator.cls.xml) (revision 903) +++ DOM/LEV/impl/DataM/DataMToeleveringLijnIterator.cls.xml (.../DataMToeleveringLijnIterator.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 DOM.common.DataM.DataMAbstractLijnIterator -62129,56991.773546 +62174,41626.361606 0 @@ -48,9 +48,9 @@ LijnNummer:%String,LijnData:%String 1 %RegisteredObject - - + Index: DOM/PM/OL/Gamma/impl/FotoZoeker.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/OL/Gamma/impl/FotoZoeker.cls.xml (.../FotoZoeker.cls.xml) (revision 903) +++ DOM/PM/OL/Gamma/impl/FotoZoeker.cls.xml (.../FotoZoeker.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + DOM.PM.OL 1 %RegisteredObject -62153,57762.19629 +62188,40297.954057 61944,52132.982356 0 @@ -122,5 +122,5 @@ ]]> - + Index: APPS/Halux/common/enu/ProductieGroep.cls.xml =================================================================== diff -u --- APPS/Halux/common/enu/ProductieGroep.cls.xml (revision 0) +++ APPS/Halux/common/enu/ProductieGroep.cls.xml (revision 994) @@ -0,0 +1,47 @@ + + + +datatype +1 +%String +62186,48950.594338 +0 + + +,P,A,S,+ + + + +,Pallet,Kast,Stuk,Plus + + + +1 +APPS.Halux.common.enu.ProductieGroep + + + + +1 +APPS.Halux.common.enu.ProductieGroep + + + + +1 +APPS.Halux.common.enu.ProductieGroep + + + + +1 +APPS.Halux.common.enu.ProductieGroep + + + + + Index: DOM/CRM/enu/PrivacyToelating.cls.xml =================================================================== diff -u --- DOM/CRM/enu/PrivacyToelating.cls.xml (revision 0) +++ DOM/CRM/enu/PrivacyToelating.cls.xml (revision 994) @@ -0,0 +1,42 @@ + + + + +JBL + 2011-03-29 +datatype +1 +%String +62179,57122.907109 +0 + + +,PM,IM,BM + + + +;Product mail;Info mail;WenstVHizier + + + +1 +expression + + + + +1 +expression + + + + +1 +expression + + + + + FishEye: Tag 994 refers to a dead (removed) revision in file `APPS/PM/DataMProductOrderLijnIterator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: DOM/PM/impl/DataM/DataMProductClassificatie.cls.xml =================================================================== diff -u -r937 -r994 --- DOM/PM/impl/DataM/DataMProductClassificatie.cls.xml (.../DataMProductClassificatie.cls.xml) (revision 937) +++ DOM/PM/impl/DataM/DataMProductClassificatie.cls.xml (.../DataMProductClassificatie.cls.xml) (revision 994) @@ -1,21 +1,27 @@ - + 1 DOM.PM.ProductClassificatie,%RegisteredObject -62164,42065.033852 +62187,52559.929191 62159,61823.272971 0 %Integer +1 %String 1 + +DOM.PM.Classificatie +1 + + ProductNummer:%Integer 1 @@ -27,6 +33,17 @@ ]]> + +DOM.PM.Classificatie + + + %String %String - + Index: DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml =================================================================== diff -u -r734 -r994 --- DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml (.../IHalffabItemBuilder.cls.xml) (revision 734) +++ DOM/PM/Maatwerk/Calc/HF/IHalffabItemBuilder.cls.xml (.../IHalffabItemBuilder.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + TECH.Error 1 %Persistent -62105,49299.485841 +62189,56955.358357 62011,64827.377805 0 @@ -121,7 +121,8 @@ Set HalffabItem=Context.HalffabItemsBoom.GeefHalffabItem(..GeefRol()) If (('$IsObject(HalffabItem)) && (..BuilderMoetWerken(IngegevenKenmerken))) { - $$$ThrowError($$$errGeneralError,"Er werd nog geen halffabrikaatitem berekend voor deze builder") + Set HFItemBuilderException = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFItemBuilderException).%New(##this,"Er werd nog geen halffabrikaatitem berekend voor deze builder","Dit probleem doet zich waarschijnlijk voor omdat de afhankelijkheden van de builders incorrect zijn ingesteld") + Do ##class(TECH.ExceptionHandler).Throw(HFItemBuilderException) } Quit HalffabItem ]]> @@ -236,5 +237,5 @@ - + Index: DOM/dto/VertalingFotoLinks.cls.xml =================================================================== diff -u -r734 -r994 --- DOM/dto/VertalingFotoLinks.cls.xml (.../VertalingFotoLinks.cls.xml) (revision 734) +++ DOM/dto/VertalingFotoLinks.cls.xml (.../VertalingFotoLinks.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 VertaaldeData,FotoLinks -62004,38954.532514 +62188,40315.623578 61947,47924.254104 0 @@ -24,5 +24,5 @@ ]]> - + Index: DOM/OV/impl/DataM/DataMTypedBonInFactuurlijnIterator.cls.xml =================================================================== diff -u -r734 -r994 --- DOM/OV/impl/DataM/DataMTypedBonInFactuurlijnIterator.cls.xml (.../DataMTypedBonInFactuurlijnIterator.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMTypedBonInFactuurlijnIterator.cls.xml (.../DataMTypedBonInFactuurlijnIterator.cls.xml) (revision 994) @@ -1,18 +1,18 @@ - + 1 DOM.OV.impl.DataM.DataMBonInFactuurlijnIterator 62108,57204.554101 0 -DOM.OV.enu.BonlijnType +DOM.OV.enu.BonLijnType 1 -Bon:DOM.OV.impl.DataM.DataMBonInFactuur,Type:DOM.OV.enu.BonlijnType +Bon:DOM.OV.impl.DataM.DataMBonInFactuur,Type:DOM.OV.enu.BonLijnType 1 1 %Status @@ -29,5 +29,5 @@ ]]> - + Index: DOM/CRM/KlantAPI.cls.xml =================================================================== diff -u -r966 -r994 --- DOM/CRM/KlantAPI.cls.xml (.../KlantAPI.cls.xml) (revision 966) +++ DOM/CRM/KlantAPI.cls.xml (.../KlantAPI.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 1 -62174,58548.0629 +62179,50962.877763 0 @@ -37,5 +37,5 @@ ]]> - + Index: APPS/PM/Maatwerk/OLM/OrgaluxOpMaatException.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/OLM/OrgaluxOpMaatException.cls.xml (revision 0) +++ APPS/PM/Maatwerk/OLM/OrgaluxOpMaatException.cls.xml (revision 994) @@ -0,0 +1,11 @@ + + + + + +1 +TECH.Exceptions.BaseException +62180,57291.376694 + + + Index: DOM/PM/OLProduct/impl/OLMProductCreator.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/OLProduct/impl/OLMProductCreator.cls.xml (.../OLMProductCreator.cls.xml) (revision 946) +++ DOM/PM/OLProduct/impl/OLMProductCreator.cls.xml (.../OLMProductCreator.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 DOM.PM.impl.DataM.DataMProductCreator -62173,34516.527391 +62182,31273.774119 0 @@ -63,13 +63,12 @@ ]]> - + 1 -DOM.PM.enu.ActiefStatus + - + Index: APPS/Web/OLParticulier/impl/ConstraintCreator/KellerProfAfmetingCreator.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/Web/OLParticulier/impl/ConstraintCreator/KellerProfAfmetingCreator.cls.xml (.../KellerProfAfmetingCreator.cls.xml) (revision 734) +++ APPS/Web/OLParticulier/impl/ConstraintCreator/KellerProfAfmetingCreator.cls.xml (.../KellerProfAfmetingCreator.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 APPS.Web.OLParticulier.impl.ConstraintCreator.KellerAfmetingCreator -62039,29050.02555 +62189,28261.556593 0 @@ -29,7 +29,7 @@ - + Index: APPS/PM/dto/ProductIDsControleResult.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/PM/dto/ProductIDsControleResult.cls.xml (.../ProductIDsControleResult.cls.xml) (revision 946) +++ APPS/PM/dto/ProductIDsControleResult.cls.xml (.../ProductIDsControleResult.cls.xml) (revision 994) @@ -1,20 +1,21 @@ - + 1 %RegisteredObject,%XML.Adaptor -62160,31776.526107 +62182,32313.152347 62164,32251.573198 0 %String +list APPS.PM.dto.ProductIDs list - + Index: DOM/OV/impl/DataM/DataMOrder.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 946) +++ DOM/OV/impl/DataM/DataMOrder.cls.xml (.../DataMOrder.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.OV.Order -62168,56533.686918 +62178,39173.966174 62063,29965.721214 0 @@ -37,6 +37,10 @@ list + +DOM.common.Adres + + OrderNr:%Integer 1 @@ -48,11 +52,18 @@ { Set ..OrderNr = OrderNr Set ..KlantNr = $Piece($Get(^KO1(OrderNr,"F")),"\") - Set ..VolgendOrderLijnNr = ^KOD(..KlantNr,"F",..OrderNr,0) + If ($Data(^KOD(..KlantNr,"F",..OrderNr))) + { + Set ..VolgendOrderLijnNr = ^KOD(..KlantNr,"F",..OrderNr,0) + } + Else + { + Set Status = $$$ERROR($$$GeneralError,"Dit order is niet meer aanwezig") + } } Else { - Set Status = 0 + Set Status = $$$ERROR($$$GeneralError,"Dit order is niet meer aanwezig") } Quit Status ]]> @@ -62,7 +73,7 @@ %Boolean %String + +DOM.VKP.VerzendWijze + + + + +%String + + + DOM.CRM.Klant DOM.common.Adres @@ -131,7 +160,7 @@ ]]> - + LijnNr:%Integer DOM.OV.Orderlijn - + TECH.Iterator - -Type:DOM.OV.enu.OrderlijnType + +Type:DOM.OV.enu.OrderLijnType TECH.Iterator @@ -193,5 +222,5 @@ ]]> - + Index: DOM/OV/impl/DataM/DataMFactProfAbstract.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/impl/DataM/DataMFactProfAbstract.cls.xml (.../DataMFactProfAbstract.cls.xml) (revision 946) +++ DOM/OV/impl/DataM/DataMFactProfAbstract.cls.xml (.../DataMFactProfAbstract.cls.xml) (revision 994) @@ -1,11 +1,11 @@ - + TO DO : BTW uitsplitising 1 %RegisteredObject -62159,28604.367381 +62182,39904.748966 0 @@ -23,13 +23,7 @@ 1 - -%Integer - - - - + F of C %String @@ -38,7 +32,7 @@ -%Date +%Integer @@ -55,7 +49,7 @@ ]]> - + %String @@ -109,7 +103,7 @@ ]]> - + %Boolean @@ -151,7 +145,7 @@ ]]> - + %Boolean @@ -190,5 +184,5 @@ ]]> - + Index: APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml =================================================================== diff -u -r976 -r994 --- APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml (.../KenmerkMetadata.cls.xml) (revision 976) +++ APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml (.../KenmerkMetadata.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,%XML.Adaptor -62164,56480.637302 +62188,50059.817047 62153,42300.182934 0 @@ -34,6 +34,10 @@ APPS.PM.dto.Kenm.DataTypeBeperking + +%Boolean + + %Library.CacheStorage ^APPS.PM.dto54D.KenmerkMetad5EED @@ -68,5 +72,5 @@ - + Index: DOM/PM/enu/LinkType.cls.xml =================================================================== diff -u --- DOM/PM/enu/LinkType.cls.xml (revision 0) +++ DOM/PM/enu/LinkType.cls.xml (revision 994) @@ -0,0 +1,64 @@ + + + +datatype +1 +TECH.Enumeration +62173,61478.369403 +0 + + +,H,HH,HHZ,HZ,K,S,ST + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + +1 +DOM.PM.enu.TBXVerpakking + + + + + Index: DOM/PM/KADProduct/enu/KADVerpakking.cls.xml =================================================================== diff -u --- DOM/PM/KADProduct/enu/KADVerpakking.cls.xml (revision 0) +++ DOM/PM/KADProduct/enu/KADVerpakking.cls.xml (revision 994) @@ -0,0 +1,47 @@ + + + +datatype +1 +%String +62175,52380.389467 +0 + + +;Bulk;Los;Krimp;Export + + + +;B;L;K;E + + + +1 +DOM.PM.KADProduct.enu.KADVerpakking + + + + +1 +DOM.PM.KADProduct.enu.KADVerpakking + + + + +1 +DOM.PM.KADProduct.enu.KADVerpakking + + + + +1 +DOM.PM.KADProduct.enu.KADVerpakking + + + + + FishEye: Tag 994 refers to a dead (removed) revision in file `APPS/PM/DataMProductToelevLijnIterator.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 994 refers to a dead (removed) revision in file `APPS/PM/dto/ProductZoekResultaatList.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: APPS/OV/impl/FlowObjectInhoudService.cls.xml =================================================================== diff -u -r917 -r994 --- APPS/OV/impl/FlowObjectInhoudService.cls.xml (.../FlowObjectInhoudService.cls.xml) (revision 917) +++ APPS/OV/impl/FlowObjectInhoudService.cls.xml (.../FlowObjectInhoudService.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62154,29909.105717 +62173,54835.121378 0 @@ -12,7 +12,7 @@ %Boolean %Boolean - + FishEye: Tag 994 refers to a dead (removed) revision in file `DOM/HR/Protime/Functie.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: DOM/PM/Bouwstenen/SchBouwsteenTijd.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/SchBouwsteenTijd.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/SchBouwsteenTijd.cls.xml (revision 994) @@ -0,0 +1,67 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.SchBouwsteen +62173,47401.207998 +59772,53878.611013 +0 + + + +Gebruikt als Type="T" +Float in SEC met 1 cijfer na de comma +Tijd in seconde gebruikt voor het berekenen van de planning +%Float + + + + +Gebruikt als Type="T" +Float in SEC met 1 cijfer na de comma +Tijd in seconde gebruikt voor het berekenen van de kost te samen met de kostplaats +%Float + + + + +Gebruikt als Type="T" +Float in SEC met 1 cijfer na de comma +Kostplaats gebruikt voor het berekenen van de TijdKost naar KostSupplement +Zie ^RES("PRBS","PI","KOSTPLAATS",... +%Float + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +9 + + +"\" +16 + + +"\" +8 + + +"\" +7 + + + + + + Index: DOM/PM/OLProduct/impl/OLInkortInfoImpl.cls.xml =================================================================== diff -u --- DOM/PM/OLProduct/impl/OLInkortInfoImpl.cls.xml (revision 0) +++ DOM/PM/OLProduct/impl/OLInkortInfoImpl.cls.xml (revision 994) @@ -0,0 +1,115 @@ + + + +1 +%RegisteredObject,DOM.PM.OLProduct.OLInkortInfo +62180,54844.016857 +0 + + +DOM.PM.OLProduct.OLProduct +1 + + + +DOM.PM.OLProduct.impl.OLKindProductInfoImpl +list + + + +DOM.PM.OLProduct.impl.OLKindProductInfoImpl +list + + + +DOM.PM.OLProduct.impl.OLKindProductInfoImpl +list + + + +%Boolean +1 + + + +OrgaluxProduct:DOM.PM.OLProduct.OLProduct +1 +1 +%Status + + + + +%ListOfObjects + + + + +%ListOfObjects + + + + +%ListOfObjects + + + + + + + + + Index: Derde/Lev/Persoon.cls.xml =================================================================== diff -u -r734 -r994 --- Derde/Lev/Persoon.cls.xml (.../Persoon.cls.xml) (revision 734) +++ Derde/Lev/Persoon.cls.xml (.../Persoon.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + Personen van een klant persistent VHOpslag %Library.Persistent,Derde.Abstract.Persoon -59946,39056.71803 +62179,60049.239783 59499,28981.038588 0 @@ -23,6 +23,12 @@ 1 + + +Lijst met ";" gescheiden van SNM en PRODINFO +%Library.String + + %CacheSQLStorage ^Derde.Kl.PersoonS @@ -75,6 +81,10 @@ "\" 1 + +"\" +7 + "\" 5 @@ -90,5 +100,5 @@ - + Index: DOM/PM/Maatwerk/Calc/Common/ProductSpecificatie.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/Maatwerk/Calc/Common/ProductSpecificatie.cls.xml (.../ProductSpecificatie.cls.xml) (revision 903) +++ DOM/PM/Maatwerk/Calc/Common/ProductSpecificatie.cls.xml (.../ProductSpecificatie.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + Een ProductSpecificatie specificeert een maatwerrkproduct (via de IngegevenKenmerken) @@ -14,7 +14,7 @@ persistent 1 %Persistent -62133,48344.692522 +62188,56604.321727 0 @@ -68,6 +68,21 @@ ]]> + + +Deze method zou niet mogen gebruikt worden. Deze is enkel aanwezig ter ondersteuning van de generatie van oude producten. +IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken + + + %Library.CacheStorage ^DOM.PM.Maat94D.ProductSpeci7AAD @@ -96,5 +111,5 @@ - + Index: DOM/LEV/impl/DataM/DataMProductToeleveringLijn.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/LEV/impl/DataM/DataMProductToeleveringLijn.cls.xml (.../DataMProductToeleveringLijn.cls.xml) (revision 903) +++ DOM/LEV/impl/DataM/DataMProductToeleveringLijn.cls.xml (.../DataMProductToeleveringLijn.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 DOM.LEV.impl.DataM.DataMToeleveringLijn,DOM.LEV.ProductToeleveringLijn -62129,55776.207121 +62174,43294.818081 0 @@ -19,6 +19,25 @@ + + +%Boolean + + + + +%Date + + - + Index: DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml (.../DataMBouwsteenCreator.cls.xml) (revision 903) +++ DOM/PM/impl/DataM/DataMBouwsteenCreator.cls.xml (.../DataMBouwsteenCreator.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + TECH.Error 1 %RegisteredObject,DOM.PM.Maatwerk.Calc.HF.HalffabItemVisitor,DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor -62150,40943.016528 +62179,55539.038703 0 @@ -247,8 +247,8 @@ Set BSKey=BSLPrefix_"."_$E(1000+..KostSuffix,2,4) - Set $P(Rec,"\",10)=..KostSortNr - Set $P(Rec,"\",11)=Groep + Set $P(Record,"\",10)=..KostSortNr + Set $P(Record,"\",11)=Groep Set ^PRBS("BS",..PRNr,BSKey)=Record @@ -313,5 +313,5 @@ ]]> - + Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 946) +++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + TECH.Error 1 DOM.PM.ProductAPI,%RegisteredObject -62172,56682.587948 +62187,52123.873537 62159,61821.306225 0 @@ -14,7 +14,7 @@ -Key:%String,KKey:%Integer +ClassificatieID:%Integer DOM.PM.Classificatie - @@ -138,6 +138,12 @@ Quit ..GeefProduct(PRNr) ]]> + + +TECH.Iterator + + - + Index: DOM/PM/Bouwstenen/SchBouwsteenHalfFabr1Dim.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/SchBouwsteenHalfFabr1Dim.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/SchBouwsteenHalfFabr1Dim.cls.xml (revision 994) @@ -0,0 +1,57 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.SchBouwsteenHalfFabr +62173,47077.280268 +59772,53878.611013 +0 + + + +Type="H" en het halffabrikaat heeft een diemensie +Bruto = Netto + Bewerkingsverlies (bv. dikte van de zaagsnede) +%String + + + + +Type="H" en het halffabrikaat heeft een diemensie +MetUitval = Bruto + Uitval +Uitval kan berekend worden als een percentage op de Bruto lengte maar ook als een vaste waarde +%String + + + + +Type="H" en het halffabrikaat heeft een dimensie +Is de netto afmeting van de halffabrikaat +%String + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +"D" +2 + + +"\" +"D" +3 + + +"\" +"D" +1 + + + + + + Index: DOM/OV/enu/BonLijnType.cls.xml =================================================================== diff -u --- DOM/OV/enu/BonLijnType.cls.xml (revision 0) +++ DOM/OV/enu/BonLijnType.cls.xml (revision 994) @@ -0,0 +1,50 @@ + + + +datatype +1 +%String +62173,55194 + + +,KF11,KF1925,KF6,KF5 + + + +1 + + + + +1 + + + + +1 + + + + +1 + + + + + Index: APPS/PM/enu/SoortProductID.cls.xml =================================================================== diff -u -r937 -r994 --- APPS/PM/enu/SoortProductID.cls.xml (.../SoortProductID.cls.xml) (revision 937) +++ APPS/PM/enu/SoortProductID.cls.xml (.../SoortProductID.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + datatype 1 %String -62164,37633.129834 +62187,60620.460923 62164,33508.914771 0 @@ -24,7 +24,7 @@ 1 - @@ -34,11 +34,16 @@ ]]> - -1 - - + + + 1 @@ -58,5 +63,5 @@ ]]> - + Index: DOM/OV/impl/DataM/DataMTypedOrderLijnIterator.cls.xml =================================================================== diff -u -r734 -r994 --- DOM/OV/impl/DataM/DataMTypedOrderLijnIterator.cls.xml (.../DataMTypedOrderLijnIterator.cls.xml) (revision 734) +++ DOM/OV/impl/DataM/DataMTypedOrderLijnIterator.cls.xml (.../DataMTypedOrderLijnIterator.cls.xml) (revision 994) @@ -1,18 +1,18 @@ - + 1 DOM.OV.impl.DataM.DataMOrderlijnIterator 62108,55354.462598 0 -DOM.OV.enu.OrderlijnType +DOM.OV.enu.OrderLijnType 1 -Order:DOM.OV.impl.DataM.DataMOrder,Type:DOM.OV.enu.OrderlijnType +Order:DOM.OV.impl.DataM.DataMOrder,Type:DOM.OV.enu.OrderLijnType 1 1 %Status @@ -33,5 +33,5 @@ ]]> - + Index: DOM/OV/impl/DataM/DataMBon.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/OV/impl/DataM/DataMBon.cls.xml (.../DataMBon.cls.xml) (revision 903) +++ DOM/OV/impl/DataM/DataMBon.cls.xml (.../DataMBon.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 DOM.OV.impl.DataM.DataMBonAbstract -62153,66195.160356 +62173,56263.763339 0 @@ -29,18 +29,18 @@ ]]> - + TECH.Iterator - -Type:DOM.OV.enu.BonlijnType + +Type:DOM.OV.enu.BonLijnType TECH.Iterator - + Index: DOM/PM/OL/Gamma/impl/KenmerkInternals.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/PM/OL/Gamma/impl/KenmerkInternals.cls.xml (.../KenmerkInternals.cls.xml) (revision 903) +++ DOM/PM/OL/Gamma/impl/KenmerkInternals.cls.xml (.../KenmerkInternals.cls.xml) (revision 994) @@ -1,11 +1,11 @@ - + persistent DOM.PM.OL,TECH.Error 1 %Persistent -62143,41697.098012 +62181,39655.124003 61944,52132.99755 0 @@ -334,17 +334,17 @@ ]]> - + 45cm, 476mm --> 50cm, e.d. ]]> 1 -DiepteInMM:%Integer +Diepte:%Integer %Integer 0:(DiepteInMM+$$$DiepteCorr)\10, 1:"") + Quit $S(Diepte>0:(Diepte+$$$DiepteCorr), 1:"") ]]> @@ -478,5 +478,5 @@ - + Index: DOM/CRM/impl/DataM/DataMPersoonBase.cls.xml =================================================================== diff -u --- DOM/CRM/impl/DataM/DataMPersoonBase.cls.xml (revision 0) +++ DOM/CRM/impl/DataM/DataMPersoonBase.cls.xml (revision 994) @@ -0,0 +1,396 @@ + + + + +JBL + 2011-03-29 +TECH.Error +1 +DOM.CRM.Persoon,%RegisteredObject +62180,36628.942986 +0 + + +%Integer +1 + + + +%Integer +1 + + + +%String +1 + + + +KlantNummer:%Integer,VolgNummer:%Integer +%Status + + + + + + + + +%Integer + + + + +%String + + + + +%String + + + + +%String + + + + +%ListOfDataTypes + + + + + +Lijst van DOM.CRM.enu.VoorkeurDocument +%ListOfDataTypes + + + + + +Een lijst van DOM.CRM.enu.PrivacyToelating +%ListOfDataTypes + + + + + +Waarde van 1 tot 4 (waarbij 1 TOPBESLISSER en 4 MEDEWERKER VAN DE BESLISSER) +%Integer + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + + + + + +Piece:%Integer,Waarde:%String +1 + + + + +Nummer:%Integer + + + + +Naam:%String + + + + +Voornaam:%String + + + + +Aanspreking:%String + + + + +VerantwoordelijkheidTypes:%ListOfDataTypes + + + + +VoorkeurDocumenten:%ListOfDataTypes + + + + +PrivacyToelatingen:%ListOfDataTypes +%ListOfDataTypes + + + + + +Waarde van 1 tot 4 (waarbij 1 TOPBESLISSER en 4 MEDEWERKER VAN DE BESLISSER) +BeslissingNiveau:%Integer +%Integer + + + + +Opmerking:%String + + + + +Telefoon:%String + + + + +PriveTelefoon:%String + + + + +Fax:%String + + + + +GSM:%String + + + + +Email:%String + + + + +Tijdstip:%Date +1 + + + + + + + + +1 + + + + + + + + + +GetConnect met als input +T = Telefoon +F = Fax +G = GSM +E = Email +P = PrivéTelefoon +Type:%String +1 +DOM.CRM.dto.PersoonConnect + + + + + +GetConnect met als input +T = Telefoon +F = Fax +G = GSM +E = Email +P = PrivéTelefoon +Type:%String,Waarde:%String +1 + + + + +Piece:%Integer,Lijst:%ListOfDataTypes +1 + + + + +GlobalData:%String +1 +%ListOfDataTypes + + + + + Index: DOM/PM/TBXProduct/TBXLade.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 946) +++ DOM/PM/TBXProduct/TBXLade.cls.xml (.../TBXLade.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + 1 1 DOM.PM.MaatwerkProduct -62172,59930.1041 +62182,32394.29489 0 @@ -83,10 +83,19 @@ %Boolean + +1 +%Boolean + + %Boolean + +%Boolean + + %Boolean @@ -99,8 +108,6 @@ TBXBodem - @@ -266,5 +273,5 @@ %String - + Index: APPS/PM/enu/ConvertAPPStoDOMenu.cls.xml =================================================================== diff -u -r937 -r994 --- APPS/PM/enu/ConvertAPPStoDOMenu.cls.xml (.../ConvertAPPStoDOMenu.cls.xml) (revision 937) +++ APPS/PM/enu/ConvertAPPStoDOMenu.cls.xml (.../ConvertAPPStoDOMenu.cls.xml) (revision 994) @@ -1,9 +1,10 @@ - + 1 %RegisteredObject -62164,37210.228817 +62186,49989.756575 +62164,62887.712609 0 @@ -42,10 +43,12 @@ } ElseIf (SoortProductID = ##class(APPS.PM.enu.SoortProductID).Leveranciersreferentie()) { Set ConvertedSoort = ##class(DOM.PM.enu.SoortProductID).Leveranciersreferentie() - } ElseIf (SoortProductID = ##class(APPS.PM.enu.SoortProductID).Productnr()) + } + /*ElseIf (SoortProductID = ##class(APPS.PM.enu.SoortProductID).Productnr()) { Set ConvertedSoort = ##class(DOM.PM.enu.SoortProductID).Productnr() - } ElseIf (SoortProductID = ##class(APPS.PM.enu.SoortProductID).Dossiernr()) + } */ + ElseIf (SoortProductID = ##class(APPS.PM.enu.SoortProductID).Dossiernr()) { Set ConvertedSoort = ##class(DOM.PM.enu.SoortProductID).Dossiernr() } ElseIf (SoortProductID = ##class(APPS.PM.enu.SoortProductID).LangTekst()) @@ -76,5 +79,5 @@ ]]> - + Index: csp/vhisie/TBX/Main/tmpDev.mac.rou =================================================================== diff -u --- csp/vhisie/TBX/Main/tmpDev.mac.rou (revision 0) +++ csp/vhisie/TBX/Main/tmpDev.mac.rou (revision 994) @@ -0,0 +1,1176 @@ +#include PRGACNTs +#include APPS.TBXWeb + +#define RefStartNew "\\\START" +#define IsAllowedBrowser(%v) (%v?1(.E1"MSIE".E,.E1"Firefox".E,.E1"Opera".E)) +#define IsAllowedMacBrowser(%v) (%v?1(.E1"Safari".E,.E1"Firefox".E,.E1"Opera".E)) +#define IsFireFox4Browser(%v) (%v?1(.E1"Firefox/4".E)) +#define IsOpera11Browser(%v) ((%v?1(.E1"Opera".E))&&(%v?1(.E1"Version/11".E))) +#define IsMSIE90Browser(%v) (%v?1(.E1"MSIE 9.0".E)) +#define IsRecentBrowser(%v) ($$$IsFireFox4Browser(%v)||$$$IsOpera11Browser(%v)||$$$IsMSIE90Browser(%v)) + +OnPreHTTP() +#define CSPPage ##class(%CSP.Page) +#define TaalDfl $S(blnHEIN:"D", blnLMC:"F", blnSFS:"D", 1:"N") +#define VerwHasAccess (VERW="VHEPN")||('blnVHEPN&&(VERW=sDomVERW)) + + New Ref,RefNew,RefArray,tmpRq,tmpTransfStatus,tmpBadQS,blnValidKlant + Set %RemoteIP=$G(%request.CgiEnvs("REMOTE_ADDR")) + Set %ClientIP=%RemoteIP ; IP voor DebugWindow + + Do ophInitLookups^cspBasis.TBX.DecodeURL.tmpDev + ;d WL^vhDBG("Start PreHTTP: ") + ;d:($D(%session.Data("TransfStatus")))&&($D(%request.Data("TRANSF",1))) WL^vhDBG("Init TransfStatus: "_%session.Data("TransfStatus")) + Set:($D(%session.Data("TransfStatus")))&&($D(%request.Data("TRANSF",1))) tmpTransfStatus=%session.Data("TransfStatus") + Kill %session.Data + ;d:($D(tmpTransfStatus)) WL^vhDBG("tmpTransfStatus: "_tmpTransfStatus) + Set:($D(tmpTransfStatus)) %session.Data("TransfStatus")=tmpTransfStatus + // URL --> domain / sDomVERW / sDomKLNr + Set sDomain=$$GetURLDomain^cspBasis.Library + Set sDomCVT=$$TBXDomainCVT^cspBasis.Library(sDomain) + Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR")) ; $$TBXDomainLU^cspBasis.Library(sDomCVT,$LB("VERW","KLNR")) + Set sDomVERW=$LG(lbDomLU,1) + Set sDomKLNr=$LG(lbDomLU,2) + Set Taal="E" + Set blnNoAccess=(sDomVERW="") ; ONBEKEND DOMEIN - NIET TOEGELATEN !!! + Quit:(blnNoAccess) 1 + Set blnVHEPN=(sDomVERW="VHEPN") + Set blnHEIN=(sDomVERW="HEIN") + Set blnLMC=(sDomVERW="LMC") + Set blnDUPO=(sDomVERW="DUPO") + Set blnHELMY=(sDomVERW="HELMY") + Set blnHFLE=(sDomVERW="HFLE") + Set blnSFS=(sDomVERW="SFS") + Set blnMBHO=(sDomVERW="MBHO") + Set Taal=$G(%request.Data("Taal",1),$$$TaalDfl) + If ($$$LCase(Taal)?1"http:".E) Do ; attempt to hack the website + . Set tmpBadQS="Taal="_Taal + . Set Taal="E" + ;Set %session.Data("Taal")=Taal + Set HIST=$G(%request.Data("HIST",1),0) + Set blnHist=0 ; ($G(HIST)>0) + Set MainMode=$G(MainMode,$$$mmToggleHistOrd) + ;Set MainMode=$G(MainMode,$$$mmAllowTogether) + Set Ref=$G(%request.Data("REF",1)) + Set RefNew=$G(%request.Data("REF",1),$$$RefStartNew) ; Als REF niet meegegeven is, StartNew (dfl) gebruiken + Set %session.Data("BeursUser")=(blnVHEPN)&&##class(cspBasis.GAProdTBox).IsBeursUser() + If 1,($$$LCase(Ref)?1"http:".E) Do ; attempt to hack the website + . Set tmpBadQS="Ref="_Ref + + ; Convert QueryString to Array: tmpRq(name)=value + Set name="" + For Set name=$O(%request.Data(name)) Quit:(name="") Merge tmpRq(name)=%request.Data(name,1) + Kill tmpRq("CSPToken") + ; URL from OPTIMA (?) + Do ophDataOPTIMA + ; Analyse REF + Set Ref=$$ophGetRef^cspBasis.TBX.DecodeURL.tmpDev(Ref) ; Get Ref decrypted + ;Set:(Ref="")&&($L(RefNew)) Ref=RefNew + If $L(Ref) Do + . Do ophRefToArray^cspBasis.TBX.DecodeURL.tmpDev(Ref,.RefArray) + . Set:($G(RefArray("VERW"))="") RefArray("VERW")=sDomVERW + . Set VERW=RefArray("VERW") + . Set KLNr=$G(RefArray("KLNR")) + . Set wsID=$G(RefArray("WSID")) + . + . Quit:($$$Not(blnLMC||blnSFS||blnMBHO)) + . ; Alleen voor OPTIMA / SFS --> KlantNr from Data/Storage + . If $L($G(KLNrOptima)) Do + . . Set KLNr=KLNrOptima + . . Set RefArray("KLNR")=KLNr + . . Set Ref=$$ophArrayToRef^cspBasis.TBX.DecodeURL.tmpDev(.RefArray) + . . Set:($L($G(tmpRq("REF")))) tmpRq("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,$G(RefArray("MODE")))) + . . Kill tmpRq("DATAOPT") + . . ;Do ophBuildSwitchTLArray ; Once again, but with the NEW QueryString-values + . Else If ($IsValidNum(KLNr))&&($G(%request.Data("Taal",1))="") Do + . . Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(sDomVERW,KLNr,$LB("Stg","NoAction")) + . . Set:($IsObject(KLMini))&&(KLMini.Taal?1(1"N",1"F",1"E",1"D")) Taal=KLMini.Taal + . . Set KLMini="" + Else Do + . Set KLNr="" + + ; HRefs to switch Taal + Set tmpRq("Taal")=Taal + Set %session.Data("Taal")=Taal + Do ophBuildSwitchTLArray + + Quit:($$ophWebSiteBlocked()) "" + // Else continue... + + If ($L($G(tmpBadQS))) Do Quit 1 + . Set blnNoAccess=1 + . Set KLNr=$G(KLNr) + . Set sMode=$G(sMode,"START") + . Set wsID=$G(wsID) + . Set VERW=$G(sDomVERW,sDomVERW) + . Do ophAddToLog("!MAINPAGE!") + . Set msg="Invalid request URL parameter."_$$$CRLF_"Bad QueryString: "_tmpBadQS_$$$CRLF_"Ref="_$G(%request.Data("REF",1))_$$$CRLF_"Taal="_$G(%request.Data("Taal",1))_$$$CRLF_"!!! Page blocked - No access !!!" + . Do ophSendAlertMail(msg) + + Set WSOrd=$S($L($G(wsID)):##class(WS.TBX.Order).%OpenId(wsID), 1:0) + Do ophSetHeaderLogo(WSOrd) + + Set:($G(VERW)="") VERW=sDomVERW + Kill arShow + ; Analyse REF (part 2) + Set blnNoAccess=0 + Set sMode=$G(RefArray("MODE")) + If sMode="" { Set blnNoAccess=1 } + ElseIf sMode="START" { Do ophMMStart } + ElseIf sMode="COMPLETE" { Do ophMMComplete } + ElseIf sMode="PROCESS" { Do ophMMProcess } + ElseIf sMode="VIEW" { Do ophMMView } + ElseIf sMode="CONFIRM" { Do ophMMConfirm } + Else { Set blnNoAccess=1 } + Quit:(blnNoAccess) 1 + + ;set UseXMLHTTP=##class(%CSP.UserAgent).XMLHttpRequest(%request.UserAgent) + ;d WLIP^vhDBG(97,"%session.BrokerImplementation = "_%session.BrokerImplementation) + ;d WLIP^vhDBG(97,"use UseXMLHTTP = "_UseXMLHTTP) + + If %request.UserAgent?.E1"Macintosh".E Do + . Set blnAllowedBrowser=$$$IsAllowedMacBrowser(%request.UserAgent) + Else Do + . Set blnAllowedBrowser=$$$IsAllowedBrowser(%request.UserAgent) ; Browser list : MSIE, Firefox, Opera, Chrome, Safari + + If $$$IsRecentBrowser(%request.UserAgent) Do ; Added by WimV on 28/03/2011 + . Set %session.BrokerImplementation=2 ; use XMLHTTPRequest method + + If 'blnAllowedBrowser Do + . Set blnNoAccess=1 + . New sUserAgent + . Set sUserAgent=%request.UserAgent + . For iWB="Chrome","Safari","MSIE","Firefox","Opera" Set sUserAgent=$$$Replace(sUserAgent,iWB,""_iWB_"") + . Set NoAccessMsg="" + . Set NoAccessMsg=NoAccessMsg_"This website is not accessible when using ""Google Chrome"" or ""Safari"" .

    "_$$$CRLF + . Set NoAccessMsg=NoAccessMsg_"  The web browser you are using is:
      "_sUserAgent_"

    "_$$$CRLF + . Set NoAccessMsg=NoAccessMsg_$$$CRLF_"  Please use ""Internet Explorer"", ""Firefox"" or ""Opera"" as web browser." + . Do ophAddToLog("!MAINPAGE!") + . + Else If 0 && $$$IsFireFox4Browser(%request.UserAgent) Do ; Added by WimV on 28/03/2011 - Firefox 4 heeft problemen met hyperevents + . Set blnNoAccess=1 + . New sUserAgent + . Set sUserAgent=%request.UserAgent + . For iWB="Firefox/4" Set sUserAgent=$$$Replace(sUserAgent,iWB,""_iWB_"") + . Set NoAccessMsg="" + . Set NoAccessMsg=NoAccessMsg_" !!! TEMPORARY problems with the use of ""FireFox 4.0"" !!!

    "_$$$CRLF + . Set NoAccessMsg=NoAccessMsg_"  The web browser you are using is:
      "_sUserAgent_"

    "_$$$CRLF + . Set NoAccessMsg=NoAccessMsg_"  We are looking for a fix to work around this situation as soon as possible.
    "_$$$CRLF + . Set NoAccessMsg=NoAccessMsg_$$$CRLF_"  Please use ""Internet Explorer"", ""Firefox v3"" or ""Opera"" as web browser." + . Do ophAddToLog("!MAINPAGE!") + . + . + Else If (blnLMC||blnSFS||blnMBHO)&&($L($G(%request.Data("DATAOPT",1))))&&($G(KLNrOptima)="") Do ; Bad encryption for Optima/SFS customer + . Set blnNoAccess=1 + . Do ophAddToLog("!MAINPAGE!") + Quit:(blnNoAccess) 1 + Set blnNoAccess=$$$Not($$$VerwHasAccess) + Quit:(blnNoAccess) 1 + Do ophAnalyseWSOrdKLNr(WSOrd,KLNr,.blnNoAccess,.NoAccessMsg) ; andere parameters globaal doorgeven + Set:($L($G(NoAccessMsg)))&&(sMode'="PROCESS") NoAccessMsg="" ; Enkel tonen indien sMode="PROCESS" + Quit:(blnNoAccess) 1 + ; Else + Do ophAlgVoorw + Do ophAddToLog() + Quit 1 +ophAddToLog(Actie) ; meestal gebruikt via Default + Set Actie=$G(Actie,"MAINPAGE") + Set:(sMode="START")&&($G(blnHist)) sMode="HIST" ; &&(MainMode=$$$mmToggleHistOrd) + Set lbExtras="" + Set:('$G(blnAllowedBrowser,1)) lbExtras=lbExtras_$LB("WebBrowser="_%request.UserAgent) + Do ##class(cspBasis.GAProdTBox).AddToLog(Actie,sDomain,KLNr,sMode,wsID,VERW,Taal,"",lbExtras) ; Actie="MAINPAGE" + Quit +ophWebSiteBlocked() + If '$$AppIsEnabled^cspBasis.Library("WWW-TBX","MAIN"_$S(blnSFS:"-SFS",1:""),%RemoteIP) Do Quit 1 + . Set KLNr=$G(KLNr), sMode=$G(sMode), wsID=$G(wsID), VERW=$G(VERW) + . Do ophAddToLog("#MAINPAGE#") + . Do RedirectPage^cspBasis.Library("/Under_Construction.htm") + Quit 0 +ophBuildSwitchTLArray + New TL,tmpAr + Merge tmpAr=tmpRq + For TL="N","F","E","D" Do + . If TL=Taal Do Quit + .. Set arUrl("SwitchTL",TL)=TL + . ; Else + . Set tmpAr("Taal")=TL + . Set arUrl("SwitchTL",TL)=""_TL_"" + Quit +ophSetHeaderLogo(WSOrd) + Quit:('$IsObject(WSOrd)) + Set WSLn=WSOrd.Lijnen.GetNext("") + Set:($IsObject(WSLn))&&(##class(BL.PR.GA.TandemBox).DesignCodeFromDS(WSLn.ItemDS)="I") HeaderLogo="" ; "I" + Quit +ophDataOPTIMA + Quit:(sDomVERW'?1(1"LMC",1"SFS",1"MBHO")) + Quit:($G(%request.Data("DATAOPT",1))="") + ;Quit:(sDomVERW'="LMC")||($G(%request.Data("DATAOPT",1))="") + New KLMini,tmpTaal,msg + Kill %OptimaMsg + Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(sDomVERW,"",$LB("Ext","CleanSave")) + ; In case of "Bad Encryption", try getting KLData from storage + If '$IsObject(KLMini) Do + . Set KLNr=$G(%OptimaVar("KLNr")) + . Set:($IsValidNum(KLNr)) KLMini=##class(cspBasis.GAProdTBox).GetKlantData(sDomVERW,KLNr,$LB("Stg","NoAction")) + . Set msg="WARNING : Bad encryption for "_$S(sDomVERW="LMC":"Optima",1:sDomVERW)_" customer (n� "_$G(KLNr)_")" + . Set msg=msg_$$$CRLF_"Ref : "_($$ophGetRef^cspBasis.TBX.DecodeURL.tmpDev(Ref))_$$$CRLF_"Enc. Data : "_$G(%OptimaVar("EncData"))_$$$CRLF_"Decrypted Data : "_$G(%OptimaVar("Data"))_$$$CRLF_"KLNr via Lookup: "_$G(%OptimaVar("KLNrViaLookup")) + . Set msg=msg_$$$CRLF_"Client IP : "_$G(%RemoteIP)_$S($G(%RemoteIP)?1(1"92.103.129.165",1"212.103.4.85"):" (Optima)", 1:"") + . Set msg=msg_$$$CRLF_$$$CRLF_"Data retrieved from storage: "_$S($IsObject(KLMini):"YES", 1:"NO") + . Do ophSendAlertMail(msg_$$$CRLF,$S($IsObject(KLMini):$LB("ICT_Meldingen@vanhoecke.be"), 1:$LB("wv@vanhoecke.be"))) + . Set KLNr=$S($IsObject(KLMini):KLMini.Nummer, 1:"") + . Kill %OptimaVar + If $IsObject(KLMini) Do + . Set KLNrOptima=KLMini.Nummer + . Set tmpTaal=KLMini.Taal + Else Do + . Set blnShow=$$$OptimaAccess + . Do MShowFixOptima(blnShow) + Set:($G(tmpTaal)?1(1"N",1"F",1"E",1"D")) Taal=tmpTaal + Set KLMini="" + Quit +MShowFixOptima(Visible) + Quit:('Visible) + Kill arShow2 + New tmpAr + Merge tmpAr=tmpRq + Kill tmpAr("HIST") + Set arShow2("FixOptima","BTN")=Visible + Set arShow2("FixOptima","HREF")="FixOPTIMA.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Quit + +ophAnalyseWSOrdKLNr(WSOrd,MatchKLNr,blnNoAccess,ErrMsg) ; blnNoAccess en ErrMsg als .local doorgeven + New arValues,msg + Quit:($$ophCheckWSOrdKLNr(.WSOrd,.MatchKLNr,.arValues)) 1 ; OK + ; Else ; Not OK ==> Log NoAccess + Send Mail + Set blnNoAccess=1 + Set ErrMsg=$G(arValues(0,"ERROR")) + Do ophAddToLog("!MAINPAGE!") + Set msg="De main.csp pagina heeft een ongeldige code gedetecteerd."_$$$CRLF + Set msg=msg_"De gegevens worden niet getoond."_$$$CRLF + Set msg=msg_""_$$$CRLF + Set msg=msg_$$$ArrayTT2("Var",.arValues)_$$$CRLF + Do ophSendAlertMail(msg) + Quit 0 +ophCheckWSOrdKLNr(WSOrd,MatchKLNr,arValues) + Quit:('$IsObject($G(WSOrd))) 1 + New blnOK,OrdDomVERW,OrdKLNr,msg + Kill arValues + Set OrdDomVERW=$LG(##class(WS.TBX.Order).DomainLookUp($$TBXDomainCVT^cspBasis.Library(WSOrd.WebDomain),$LB("VERW")),1) + Set arValues("WSOrder","Domain")=WSOrd.WebDomain + Set arValues("WSOrder","DomVERW")=OrdDomVERW + Set arValues("WSOrder","KLNr")=WSOrd.KLNummer + Set arValues("WSOrder","ID")=WSOrd.%Id() + Set arValues("WSOrder","IngaveTS")=WSOrd.IngaveTijdStip + Set arValues("REF","Domain")=sDomain + Set arValues("REF","DomVERW")=sDomVERW_" ("_sDomKLNr_")" + Set arValues("REF","KLNr")=MatchKLNr + Set arValues("REF","WSID")=wsID + Set arValues("REF","MODE")=sMode + Set arValues("REF","VERW")=VERW + Set arValues("REF","RqData")=$G(%request.Data("REF",1)) + Set arValues(1,"ClientIP")=$G(%RemoteIP) + Set arValues(1,"blnHist")=$G(blnHist) + ;d WL^vhDBG($$$LCVT($LB(WSOrd.WebDomain,$$TBXDomainCVT^cspBasis.Library(WSOrd.WebDomain),OrdDomVERW,sDomVERW))) + If sDomVERW'=OrdDomVERW Do Quit 0 + . // Onbekend of foutief domein - GEEN TOEGANG !!! WSOrder moet steeds binnen WebDomein blijven !!! + . Set arValues(0,"ERROR")="Onbekend of foutief domein" + ; Else ; ==> sDomVERW=OrdDomVERW + Quit:(%RemoteIP?1(1"192.168.1.")1.3N)&&(MatchKLNr=1000) 1 + Set OrdKLNr=WSOrd.KLNummer + Set blnOK=0 + If blnVHEPN Do Quit blnOK + . If OrdKLNr>0 Do + . . Set blnOK=$S(MatchKLNr>0:(OrdKLNr=MatchKLNr),1:(sMode="PROCESS")&&(VERW="VHEPN")) + . Else Do ; OrdKLNr="" + . . Set blnOK=$S(MatchKLNr>0:((sMode="PROCESS")&&(VERW="VHEPN")), 1:1) + . Set arValues(0,"ERROR")="KlantNummers komen niet overeen." + Else If blnLMC||blnSFS||blnMBHO Do Quit blnOK + . Set blnOK=(OrdKLNr=MatchKLNr)||(MatchKLNr="") + . Set arValues(0,"ERROR")="KlantNummers komen niet overeen." + Else If blnHEIN Do Quit blnOK + . Set blnOK=(OrdKLNr=MatchKLNr) + . Set arValues(0,"ERROR")="KlantNummers komen niet overeen." + Else If blnHELMY||blnHFLE||blnDUPO Do Quit blnOK + . Set blnOK=(OrdKLNr=MatchKLNr) + . Set arValues(0,"ERROR")="KlantNummers komen niet overeen." + ; Else + Set arValues(0,"ERROR")="Onbekende controle!." + Quit 0 +ophSendAlertMail(msg,lbToSpecial) + // Send mail to ICT_SupportTBX@vanhoecke.be + New From,lbTo,Subject,Body,ServerPrefix,sc + Set ServerPrefix="" ; Set ServerPrefix="["_$$$UCase($$$Server)_"] " --> wordt nu opgelost in de lib SendMiniMail^... () + Set From="""TBX Alert"" " + Set lbTo=$G(lbToSpecial,$LB("wv@vanhoecke.be")) ; "ICT_SupportTBX@vanhoecke.be") + Set Subject=ServerPrefix_"TandemBOX - No Access - "_$ZDT($H,4) + Set Body="" + Set Body=Body_"TandemBOX MainPage ALERT"_$$$CRLF + Set Body=Body_""_$$$CRLF + If $L($G(msg)) Do + . Set Body=Body_msg_$$$CRLF + . Set Body=Body_""_$$$CRLF + Set Body=Body_"--- End of message ---"_$$$CRLF + Set sc=$$SendMiniMailXtd^cspBasis.Library(From,lbTo,Subject,Body,0,0) + Quit + +ophBuildToggleHistAndOrder(wsIDNew) +#define KLNrClean $S(KLNr=$$$KLNrListAll:"", 1:KLNr) + Quit:(KLNr="") + New tmpAr,blnNew,blnOrder,blnProcess + Set blnHist=($G(HIST)>0) ; Globale variabele !!! + Set blnProcess=(sMode="PROCESS") + ;Quit:(blnProcess)&&(blnHist=0) + Set blnNew=(sMode="START") + Set blnOrder=(sMode="COMPLETE")||(sMode="VIEW") + ;d WL^vhDBG("hist: "_blnNew_" "_blnOrder_" "_blnHist_" "_KLNr) + If blnNew && 'blnHist Do + . ; New --> Show Hist + . Merge tmpAr=tmpRq + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=1 + . If KLNr=$$$KLNrListAll Do + . . Kill tmpAr("REF") + . . Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,,"COMPLETE")) + . Set arUrl("ToggleHist")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + . ;d WL^vhDBG(blnNew_" "_blnOrder_" "_blnHist_$$$ArrayTT("arUrl")) + If blnNew && blnHist Do + . ; Hist + New --> Hide Hist + . Merge tmpAr=tmpRq + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=0 + . Set arUrl("ToggleHist")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + . ; Hist + New --> Show Order + . Merge tmpAr=tmpRq + . Kill tmpAr("REF") + . ;Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB($$$KLNrClean,VERW,wsIDNew,"COMPLETE")) ; ,WizMode)) + . Set tmpAr("REF")=$$$QSREFReplace ; String to be replaced by a calculated value + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=$S(MainMode=$$$mmToggleHistOrd:0, 1:1) + . Set arUrl("ShowOrder")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + . ;d WL^vhDBG(blnNew_" "_blnOrder_" "_blnHist_$$$ArrayTT("arUrl")) + If blnOrder && blnHist Do + . ; Hist + Order + New --> Hide Hist + . Merge tmpAr=tmpRq + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=0 + . If KLNr=$$$KLNrListAll Do + . . Kill tmpAr("REF") + . . Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,,$S(sMode="COMPLETE":"START", 1:sMode))) + . Set arUrl("ToggleHist")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + . ; Hist + Order + New --> Hide Order + . Merge tmpAr=tmpRq + . Kill tmpAr("REF") + . Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB($$$KLNrClean,VERW,,$S(sMode="COMPLETE":"START", 1:sMode))) + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=1 + . Set arUrl("HideOrder")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + . ; Hist + Order + New --> Show Order + . Merge tmpAr=tmpRq + . Kill tmpAr("REF") + . ;Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB($$$KLNrClean,VERW,wsIDNew,"COMPLETE")) + . Set tmpAr("REF")=$$$QSREFReplace ; String to be replaced by a calculated value + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=$S(MainMode=$$$mmToggleHistOrd:0, 1:1) + . Set arUrl("ShowOrder")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + If blnOrder && 'blnHist Do + . ; Order + New --> Show Hist [1] + . Merge tmpAr=tmpRq + . If MainMode=$$$mmToggleHistOrd Do + .. Kill tmpAr("REF") + .. Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB($$$KLNrClean,VERW,,$S(sMode="COMPLETE":"START", 1:sMode))) + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=1 + . Set arUrl("ToggleHist")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + . ; Order + New --> Show Hist [2] --> New+Hist + . ; --> implemented in Show Hist [1] + . ; Order + New --> Hide Order --> New + . Merge tmpAr=tmpRq + . Kill tmpAr("REF") + . Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB($$$KLNrClean,VERW,,$S(sMode="COMPLETE":"START", 1:sMode))) + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=0 + . Set arUrl("HideOrder")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + . ;d WL^vhDBG(blnNew_" "_blnOrder_" "_blnHist_$$$ArrayTT("arUrl")) + If blnProcess && blnHist Do + . ; Hist --> Show Order + . Merge tmpAr=tmpRq + . Kill tmpAr("REF") + . Set tmpAr("REF")=$$$QSREFReplace ; String to be replaced by a calculated value + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=0 + . Set arUrl("ShowOrder")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + . ; Hist --> Hide Hist ; in MainHist.csp a second condition will prevent the user from hiding the History List. + . Merge tmpAr=tmpRq + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=0 + . Set arUrl("ToggleHist")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + If blnProcess && 'blnHist Do + . ; Order --> Show Hist [1] + . Merge tmpAr=tmpRq + . Kill tmpAr("HIST") + . Set tmpAr("HIST")=1 + . Kill tmpAr("REF") + . Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB($$$KLNrClean,VERW,,sMode)) + . Set arUrl("ToggleHist")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + ;d WL^vhDBG(blnNew_" "_blnOrder_" "_blnProcess_" "_blnHist_$$$ArrayTT("arUrl")) + Quit + +ophMMStart ; Main - Mode - Start + ; Info NotRegUserInfo + Do MShowNotRegUser + Do MShowKnownCustomer(1) + ; Button NewOrder + Do MShowNewOrder(1) + Do ophBuildToggleHistAndOrder() + Quit +MShowNotRegUser + Set arShow("NotRegUserInfo","INFO")=((blnVHEPN)&&(KLNr="")) + Set arShow("NotRegUserInfoOPTIMA","INFO")=((blnLMC||blnSFS||blnMBHO)&&(KLNr="")) ; &&('$D(%session.Data("DA TAOPT")))) + Quit +ophMMComplete + New WSOrd,blnDynaplugERR + Set WSOrd=$S($L(wsID):##class(WS.TBX.Order).%OpenId(wsID), 1:0) + ; Show Order Details + Set arShow("DisplayOrder","DTL")=$IsObject(WSOrd) + Do MShowKnownCustomer(1) + ; Info BrutoPrijsHein / NotRegUserInfo + Set arShow("BrutoPrijsHein","INFO")=(blnHEIN) + + Set blnDynaplug=($IsObject(WSOrd))&&(WSOrd.WebURL="DYNAPLUG IMPORT") + If blnDynaplug Do + . ;Set WSOrd.WebDomain="www.tandem-box.com" + . ;Set WSOrd.WebURL="" + . Set blnDynaplugERR=(''$G(blnWSErrors,0)) + Else Do + . Set blnDynaplugERR=0 + ;Set blnOFFVervallen=($IsObject(WSOrd))&&(WSOrd.BonType="OFF")&&(WSOrd.DagenVervallen()>0) ;Oude berekening + Set blnOFFVervallen=($IsObject(WSOrd))&&(WSOrd.IsOfferteVervallen($H,.RedenVervallen)) + ;d WL^vhDBG("RedenVervallen : "_$G(RedenVervallen)) + If blnOFFVervallen Do Quit:($G(blnQuit,0)) + . Set blnQuit=$$ophMMCompleteRecalcOFF() + ; Else Prepare buttons + Do MShowNotRegUser + Do MShowVervaldagOFFText + ; Positie van de tekst t.o.v. de buttons + Set TextPos=$S($IsObject(WSOrd)&&(WSOrd.IsSubmitted()):"LEFT", KLNr=$$$KLNrListAll:"LEFT", 1:"RIGHT") + ; Button RecalcOrder + Do MShowRecalcOrder(blnOFFVervallen,$G(RedenVervallen)) + ; Button PrintPage + Do MShowPrintPage(1,blnOFFVervallen||blnDynaplugERR) + ; Button BookmarkPage + Do MShowBookmarkPage('$IsValidNum(KLNr),WSOrd) + ; Button Show XML + Do MShowExportXML((blnVHEPN)&&((KLNr=$$$TBoxWebKlantNrVHEPN)||(KLNr=$$$TBoxWebKlantNrHEIN)) ) + ; Button Submit + Do MShowSubmit(1,WSOrd,blnOFFVervallen||blnDynaplugERR) + ; Button Modify Order + Do MShowModifyOrder(1,"COMPLETE") + ; Button Create New from Order + Do MShowNewFromOrder('blnDynaplug) + ; Info InvalidWSID + Set arShow("InvalidWSID","INFO")=('wsID) + ; Button NewOrder + Do MShowNewOrder(0) + Do MShowSwitchToStartMode('blnDynaplug) + Do ophBuildToggleHistAndOrder() + Set WSOrd="" + Quit +ophMMCompleteRecalcOFF() +#define IsTextOnly(%v) (%v'?.E1C.E) + New lbResult,tmpAr,sc + If $G(%request.Data("RECALC",1))="1" Do Quit 1 + . Set blnNoAccess=1 ; Globale variabele !!! + . Merge tmpAr=tmpRq + . Kill tmpAr("RECALC") + . Quit:(wsID="") + . Do ophOrdToAdminSetSesData + . // RECALC ORDER : + . Set %session.Data("RecalcOFFStatus")="ACTIVE" + . d WL^vhDBG("Start RecalcOFF(). Status: "_$G(%session.Data("RecalcOFFStatus"))) + . Set lbResult=##class(cspBasis.GAProdTBox).WSOrdRecalc(wsID) ; $LB("",$$$ERROR($$$GeneralError,"MyMessage")) ; + . Set %session.Data("RecalcOFFStatus")="DONE" + . d WL^vhDBG("Finished RecalcOFF(). Status: "_$G(%session.Data("RecalcOFFStatus"))) + . If ($LG(lbResult,1)="") Do + .. Set sc=$LG(lbResult,2) ; Kan %Status, TextOnly of $LB() zijn + .. Set arJSExec(1)="alert("_$$$QuoteJS("Recalc OFF:")_"+'\n'+"_$$$QuoteJS($S(sc="":"No message.", $$$IsTextOnly($TR(sc,$$$CRLF,"")):sc, $$$ISERR(sc):$$ParseStatus^vhLib(sc), 1:$$$LCVT(sc)))_");" + .. Set arJSExec(2)="document.location.replace("_$$$QuoteJS("main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr))_");" + . Else Do + .. Set %response.Redirect="main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) ; Use %response.Redirect() instead of js:location.replace() + ; Else + Quit 0 + +ophMMProcess + New WSOrd,blnProcessVH,blnQuit,blnAllowBulk + Set blnProcessVH=(blnVHEPN)||(VERW="VHEPN") + If blnProcessVH Do Quit:($G(blnQuit,0)) + . Set blnQuit=$$ophMMProcessFlowVHEPN + ;Else : prepare buttons/info + Do MShowKnownCustomer(1) + ;d WL^vhDBG("ophMMProcess") + Do ophBuildToggleHistAndOrder() + Set WSOrd=$S($L(wsID):##class(WS.TBX.Order).%OpenId(wsID), 1:0) + Quit:('$IsObject(WSOrd)) + ; Show Order Details + Set arShow("DisplayOrder","DTL")=$IsObject(WSOrd) + Do MShowVervaldagOFFText + ; Positie van de tekst t.o.v. de buttons + Set TextPos="RIGHT" ; $S($IsObject(WSOrd)&&(WSOrd.IsSubmitted()):"LEFT", 1:"RIGHT") + Set lbBulkConfig=##class(cspBasis.GAProdTBox).GetKlantBulk(sDomVERW,KLNr) + Set blnAllowBulk=($LG(lbBulkConfig,1)'="")&&($LG(lbBulkConfig,1)'="S") + ; Button SwitchToViewMode + Do MShowSwitchToViewMode(('blnVHEPN)&& 1) ; &&(WSOrd.BonType="INKP") + ; Button PrintPage + Do MShowPrintPage(1) ;VERW="VHEPN") + ; Button Show XML + Do MShowExportXML(VERW="VHEPN") + ; Button Calculate Order + Do MShowCalcOrder((VERW'="HEIN")&&(WSOrd.BonType="OFFAV")) + ; Button Modify Order + Do MShowModifyOrder(WSOrd.BonType'?1(1"INKP",1"BBON")) + ; Button Process --> SubmitToVHEPN / SubmitToAdmin) + If blnProcessVH Do + . ; Button SubmitToAdmin + . Do:(%RemoteIP?1"192.168.".E) MShowSubmitAdminVerw(blnVHEPN||(VERW="VHEPN"),WSOrd) + . ; Button ChangeBulk + . Set arShow("ChangeBulk","BTN")=(%RemoteIP?1"192.168.".E) + . If arShow("ChangeBulk","BTN") Do + . . Do ophOrdToAdminSetSesData + . . Set arShow("ChangeBulk","EXPAND")=blnAllowBulk + . ;If blnAllowBulk Do // ; Button ChangeBulk OLD !!! + . ;. Do ophOrdToAdminSetSesData + . ;. Set arShow("ChangeBulk","BTN")=1 + Else Do + . ; Button SubmitToVHEPN + . Do MShowSubmitToVHEPN(sDomVERW'?1(1"VHEPN",1"HEIN",1"LMC"),WSOrd) ; ,1"SFS" + . ; URL voor overzichtslijst AANKOOP: + . ; - http://www.tandem-box.com/VHISIE/TBX/Main.csp?Taal=N&HIST=1&REF=qF8LH5lEjVrpq_S/iFYEjapyttl87p0Y2mRRqi9B3i4- + . ; - http://tbx.destil.nl/VHISIE/TBX/Main.csp?Taal=N&HIST=1&REF=_KoQNXLGoSL1UjEAean5dapyttl87p0Y2mRRqi9B3i4- + . ; - http://tbx.du-pont.be/VHISIE/TBX/Main.csp?Taal=N&HIST=1&REF=wpkU0aPBib2L8HVjJIlrUPVgilNucnVjd1bJfJG4BO0- + . ; - http://hafele.tandem-box.com/VHISIE/TBX/Main.csp?Taal=N&HIST=1&REF=O905FsBp8_pRmRTFnHNy_/VgilNucnVjd1bJfJG4BO0- + . ; - http://tbx.sfsunimarket.biz/VHISIE/TBX/main.csp?Taal=D&HIST=1&REF=8H9XyVmkVvtSXca7DjMJpAFknWUyneyi4koTLULFuSk- + Set WSOrd="" + Quit +ophMMProcessFlowVHEPN() +#define IsTextOnly(%v) (%v'?.E1C.E) + New lbResult,tmpAr,sc + ;d:($D(%request.Data("TRANSF",1))) WL^vhDBG("ProcessVH QS(""TRANSF"")="_%request.Data("TRANSF",1)_" TransfStatus="_$G(%session.Data("TransfStatus"))) + + If $G(%request.Data("TRANSF",1))="AGAIN;ADM" Do Quit 1 + . New TransfAgainYES,TransfAgainNO,msgAgain + . Set blnNoAccess=1 ; Globale variabele !!! + . Merge tmpAr=tmpRq + . Kill tmpAr("TRANSF") + . Set TransfAgainNO="main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) ; Back to Orig page + . Set tmpAr("TRANSF")="ADM2" + . Set TransfAgainYES="main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) ; Navigate to "TRANSF=ADM" page + . Set msgAgain="Opnieuw naar ADMIN?" + . Set arJSExec(2)="if (confirm("_$$$QuoteJS(msgAgain)_")) { document.location.replace("_$$$QuoteJS(TransfAgainYES)_"); } else { document.location.replace("_$$$QuoteJS(TransfAgainNO)_"); }" + . ;d WL^vhDBG("Transfert again. current Status: "_$G(%session.Data("TransfStatus"))_" ... will be killed.") + . Kill %session.Data("TransfStatus") + ; Else + If $G(%request.Data("TRANSF",1))?1(1"ADM",1"ADM2") Do Quit 1 + . Set blnNoAccess=1 ; Globale variabele !!! + . Merge tmpAr=tmpRq + . Kill tmpAr("TRANSF") + . Quit:(wsID="") + . + . ;Lock +WSTBXORD(wsID):0 Else Do Quit + . . ; Log this incident + . . + . + . Do ophOrdToAdminSetSesData + . Set OFFToAdmin=$S(sDomVERW?1(1"VHEPN",1"HEIN",1"LMC"):"BBON", 1:"INKP") ; Set:(WSOrd.BonType="OFF") ... + . Set blnBusy=##class(WS.TBX.Order).TransfStatusCheckBusy(wsID) + . If (blnBusy) Do Quit ; ($G(%session.Data("TransfStatus"))'="") + . . ;d WL^vhDBG("Msg: transfert not allowed. status="_$G(%session.Data("TransfStatus"))) + . . ;Lock -WSTBXORD(wsID) + . . Set arJSExec(1)="alert("_$$$QuoteJS("Transfer in progress. Prease wait...")_"+'\n');" + . . Set arJSExec(2)="document.location.replace("_$$$QuoteJS("main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr))_");" + . ; Else + . // TRANSFER ORDER TO ADMIN: + . Set %session.Data("TransfStatus")="ACTIVE" + . Set scStatus=##class(WS.TBX.Order).TransfStatusSetByID(wsID,"ACTIVE") + . ;d WL^vhDBG("Start WSOrdToAdmin(). Status: "_$G(%session.Data("TransfStatus"))) + . Set lbResult=##class(cspBasis.GAProdTBox).WSOrdToAdmin(wsID,$G(OFFToAdmin)) ; $LB("",$$$ERROR($$$GeneralError,"MyMessage")) ; + . Set %session.Data("TransfStatus")="DONE" + . Set scStatus=##class(WS.TBX.Order).TransfStatusSetByID(wsID,"") + . ;d WL^vhDBG("Finished WSOrdToAdmin(). Status: "_$G(%session.Data("TransfStatus"))) + . If ($LG(lbResult,1)="") Do + . . Set sc=$LG(lbResult,2) ; Kan %Status, TextOnly of $LB() zijn + . . Set arJSExec(1)="alert("_$$$QuoteJS("Transfer to ADMIN:")_"+'\n'+"_$$$QuoteJS($S(sc="":"No message.", $$$IsTextOnly($TR(sc,$$$CRLF,"")):sc, $$$ISERR(sc):$$ParseStatus^vhLib(sc), 1:$$$LCVT(sc)))_");" + . . Set arJSExec(2)="document.location.replace("_$$$QuoteJS("main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr))_");" + . Else Do + . . Set %response.Redirect="main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) ; Use %response.Redirect() instead of js:location.replace() + . ;Lock -WSTBXORD(wsID) + ; Else + Quit 0 +ophMMView + New WSOrd + Do ophBuildToggleHistAndOrder() + Do MShowNotRegUser + Set WSOrd=$S($L(wsID):##class(WS.TBX.Order).%OpenId(wsID), 1:0) + Quit:('$IsObject(WSOrd)) + ; Show Order Details + Set arShow("DisplayOrder","DTL")=$IsObject(WSOrd) + Set arShow("BrutoPrijsHein","INFO")=(blnHEIN) + Do MShowVervaldagOFFText + ; Button PrintPage + Do MShowPrintPage(1) + Set WSOrd="" + Quit +ophMMConfirm + Set blnNoAccess=1 + Quit +ophBuildQS(lbRefNew) + Set lbRefNew=$G(lbRefNew) + New tmpRq,tmpRefAr,KLNr,VERW,wsID,sMode,QS + Do ophRefToArray^cspBasis.TBX.DecodeURL.tmpDev(Ref,.tmpRefAr) + Set KLNr=$LG(lbRefNew,1,$G(tmpRefAr("KLNR"))) + Set VERW=$LG(lbRefNew,2,$G(tmpRefAr("VERW"))) + Set wsID=$LG(lbRefNew,3,$G(tmpRefAr("WSID"))) + Set sMode=$LG(lbRefNew,4,$G(tmpRefAr("MODE"))) + Merge tmpRq=%request.Data + Kill tmpRq("CSPToken") + Kill:(blnLMC||blnSFS||blnMBHO) tmpRq("DATAOPT") + Kill tmpRq("HIST") + Kill tmpRq("REF") + Set tmpRq("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,sMode)) + Set QS=##class(cspBasis.GAProdTBox).CQueryString(.tmpRq) ; $$$CSPPage.Link("Main.csp",.tmpRq) + Quit $TR($TR($system.Encryption.Base64Encode(QS),$$$CRLF,""),"+=","_-") +ophAlgVoorw + Quit:(blnLMC||blnDUPO||blnHELMY||blnHFLE||blnMBHO) + New Intern,VTL + Set Intern="AlgVoorw"_$CASE(sDomVERW, "HEIN":"HEIN", "SFS":"SFS", :"VH") + Set arShow("AlgVoorw","INFO")=##class(cspBasis.GAProdTBox).WebTextValue(Intern,Taal,"L") + Quit +ophOrdToAdminSetSesData + Set %session.Data("DOMAIN")=sDomCVT + Set %session.Data("VERW")=VERW + Set %session.Data("KLNR")=KLNr + Set %session.Data("WSID")=wsID + Set %session.Data("MODE")=sMode + Quit + +MShowNewOrder(Visible) + Quit:((blnLMC)&&(KLNr'>0)) + Quit:((blnSFS)&&(KLNr'>0)) + Quit:((blnMBHO)&&(KLNr'>0)) + Quit:(KLNr=$$$KLNrListAll)&&($$$Not((sDomVERW?1(1"HFLE",1"HELMY",1"DUPO"))&&(sMode="START"))) + Quit:('$G(blnValidKlant,1)) + New tmpAr + Merge tmpAr=tmpRq + Kill tmpAr("HIST") + Kill tmpAr("REF") + Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB($S(KLNr=$$$KLNrListAll:"", 1:KLNr),VERW,,"A")) + Set tmpAr("REFMN")=$$ophBuildQS($S(KLNr=$$$KLNrListAll:$LB(""),1:$LB())_$LB(,,"COMPLETE")) ; Create REFMN (to pass to Wizard.csp) + Kill:(blnLMC||blnSFS||blnMBHO) tmpAr("DATAOPT") + Set arShow("NewOrder","BTN")=Visible + ;d WL^vhDBG("NewOrder tmpAr:"_$$$ArrayTT("tmpAr")) + Set arShow("NewOrder","HREF")="Access.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Quit +MShowSwitchToStartMode(Visible) + New tmpAr + Merge tmpAr=tmpRq + Kill tmpAr("HIST") + Kill tmpAr("REF") + Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,"START")) + If $L($G(Taal)) Do + . Kill tmpAr("Taal") + . Set tmpAr("Taal")=Taal + Set arShow("SwitchStartMode","BTN")=Visible + Set arShow("SwitchStartMode","HREF")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Quit +MShowSwitchToViewMode(Visible) + New tmpAr + Merge tmpAr=tmpRq + Kill tmpAr("HIST") + Kill tmpAr("REF") + Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,"VIEW")) + If $L($G(Taal)) Do + . Kill tmpAr("Taal") + . Set tmpAr("Taal")=Taal + Set arShow("SwitchViewMode","BTN")=Visible + Set arShow("SwitchViewMode","HREF")="?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Quit +MShowPrintPage(Visible,blnOFFVervallen) + New tmpAr,blnShowAKP + If $G(blnOFFVervallen,0) Do Quit + . Set arShow("PrintPage","BTN")=Visible + . Set arShow("PrintPage","HREF")="" + ; Else + Merge tmpAr=tmpRq + Kill tmpAr("HIST") + Kill tmpAr("REF") + Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,"P")) + Set blnShowAKP=(sMode="PROCESS")&&('blnVHEPN)&&(VERW'?1(1"HEIN",1"LMC")) + Set %session.Data("ALLOWAKP")=blnShowAKP + Set:(blnShowAKP) tmpAr("SHAKP")=1 + If $L($G(Taal)) Do + . Kill tmpAr("Taal") + . Set tmpAr("Taal")=Taal + Set arShow("PrintPage","BTN")=Visible + Set arShow("PrintPage","HREF")="Access.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Quit +MShowBookmarkPage(Visible,WSOrd) + New BookmTxt + Set BookmTxt="TandemBOX - "_$S($IsObject(WSOrd):WSOrd.OrderNr_" - "_WSOrd.Commissie, 1:"") ; WSOrd.OrderNrCalc() + Set arShow("BookmarkPage","BTN")=Visible + Set arShow("BookmarkPage","HREF")="javascript:window.external.AddFavorite(location.href,'"_BookmTxt_"');" + Quit +MShowSubmit(Visible,WSOrd,blnOFFVervallen) +#If ($$$NSpace="DEMO") + Quit ; Only on namespace "DEMO" +#EndIf + Quit:('$IsObject(WSOrd)) + Quit:('$G(blnValidKlant,1)) + If $G(blnOFFVervallen,0) Do Quit + . Set arShow("Submit","BTN")=Visible + . Set arShow("SubmitAgain","BTN")=0 + . Set arShow("Submit","HREF")="" + . Set arShow("Submit","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("VerzendenBBON",Taal,"L") + . Set arShow("Submit","INFO")="" + ; Else + New tmpAr,InternText,InternInfo,blnIsSubmitted + Merge tmpAr=tmpRq + Set tmpAr("Taal")=Taal + Set tmpAr("KLNR")=KLNr + Set tmpAr("WSID")=wsID + Set:(WSOrd.BonType="OFF")&&(sDomVERW'="HEIN") tmpAr("OFFTOBBON")=1 ; OFFTOBBON in de betekenis van "Goed voor order" + Set %session.Data("Taal")=Taal + Set %session.Data("WSID")=wsID + Set %session.Data("KLNR")=KLNr + Kill tmpAr("WSID") + Kill tmpAr("REF") + Set blnIsSubmitted=(WSOrd.IsSubmitted()) ; (WSOrd.SubmitTS>0) ; + Set arShow("Submit","BTN") =(Visible)&&('blnIsSubmitted) + Set arShow("SubmitAgain","BTN")=(Visible)&&(blnIsSubmitted) + Quit:('Visible) + Set arShow("Submit","HREF")="MailSend.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Set InternText=$S((WSOrd.BonType="OFF")&&(sDomVERW'="HEIN"):"VerzendenBBON", 1:"Verzenden"_WSOrd.BonType) + Set InternInfo=$S((WSOrd.BonType="OFF")&&(sDomVERW'="HEIN"):"VerzendInfoBBON", 1:"VerzendInfo"_WSOrd.BonType) + Set arShow("Submit","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue(InternText,Taal,"L") + Set arShow("Submit","INFO")=##class(cspBasis.GAProdTBox).WebTextValue(InternInfo,Taal,"L") + Set:(arShow("Submit","INFO")="~") arShow("Submit","INFO")="" + ;Set arShow("SubmitAgain","INFO")=##class(cspBasis.GAProdTBox).WebTextValue(InternInfo,Taal,"L") + Set arShow("SubmitAgain","INFO")=##class(cspBasis.GAProdTBox).WebTextValue("GevegensVerzonden",Taal,"O")_", "_arShow("Submit","INFO")_"." + Set arShow("SubmitAgain","HREF")="MailSend.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Quit +MShowRecalcOrder(Visible,RedenVervallen) + Quit:('Visible) + Quit:('$G(blnValidKlant,1)) + New tmpAr + Merge tmpAr=tmpRq + Kill tmpAr("RECALC") + Set tmpAr("RECALC")="1" + Kill tmpAr("HIST") + Set arShow("RecalcOrder","BTN")=Visible + Set arShow("RecalcOrder","HREF")="main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Quit +MShowCalcOrder(Visible) + quit + /* + New tmpAr + Merge tmpAr=tmpRq + Kill tmpAr("HIST") + Kill tmpAr("REF") + Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,"W")) + Set tmpAr("REFMN")=$$ophBuildQS("") ; Create REFMN (to pass to Wizard.csp) + Set arShow("CalcOrder","BTN")=Visible + Set arShow("CalcOrder","HREF")="Access.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + */ + Quit +MShowModifyOrder(Visible,tmpMode) +#define blnComplete $G(tmpMode)="COMPLETE" + Quit:('$G(blnValidKlant,1)) + Quit:('$IsObject(WSOrd)) + Quit:($$$blnComplete)&&(WSOrd.IsSubmitted()) ; (WSOrd.SubmitTS>0) + New tmpAr + Merge tmpAr=tmpRq + Kill tmpAr("HIST") + Kill tmpAr("REF") + Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($S($$$blnComplete:$LB(KLNr,"-",wsID,"A"), 1:$LB(KLNr,VERW,wsID,"W"))) + Set tmpAr("REFMN")=$$ophBuildQS("") ; Create REFMN (to pass to Wizard.csp) + Set arShow("ModifyOrder","BTN")=Visible + Set arShow("ModifyOrder","HREF")="Access.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Quit +MShowNewFromOrder(Visible) + + s blnShow=$$$Not(blnHEIN||blnDUPO||blnHELMY||blnHFLE) ; (sDomVERW="SFS")||((sDomVERW="VHEPN")&&(KLNr?1(1"12486",1"4645"))) + q:('blnShow) ; until completed and released to ALL + + Quit:('$G(blnValidKlant,1)) + Quit:('$IsObject(WSOrd)) + New tmpAr + ;New wsIDnew + ;Set wsIDnew=wsID ; Construct Clone from current WSOrd + Merge tmpAr=tmpRq + Kill tmpAr("HIST") + Kill tmpAr("REF") + Set tmpAr("NEWFROMORD")=wsID + Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,,"A")) + Set tmpAr("REFMN")=$$ophBuildQS($LB(,,,"COMPLETE")) ; Create REFMN (to pass to Wizard.csp) + Set arShow("NewFromOrder","BTN")=Visible + Set arShow("NewFromOrder","HREF")="Access.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) ; "#" ; "main.csp?"_ + Quit +MShowReplyCustomer(Visible) + Quit +MShowSubmitToVHEPN(Visible,WSOrd) + // Is alleen bestemd voor de Inkoop-afdeling van extern domein (destil / hafele / sfs / ...) + Quit:('Visible) + Quit:('$IsObject(WSOrd)) + Quit:(WSOrd.BonType'?1(1"OFF",1"BBON",1"INKP")) + Quit:(WSOrd.IsTransferredToAdmin()) ; Eenmaal door VH in Admin ge�mporteerd, SubmitToVHEPN() niet meer mogelijk via website. + New tmpAr,lbLog,tmpLbl + Merge tmpAr=tmpRq + Set tmpAr("Taal")=Taal + Set tmpAr("KLNR")=KLNr + Set tmpAr("WSID")=wsID + Set tmpAr("MODE")=sMode + Set:(WSOrd.BonType="OFF")&&(sDomVERW'="HEIN") tmpAr("OFFTOBBON")=1 ; OFFTOBBON in de betekenis van "Goed voor order" + Set %session.Data("Taal")=Taal + Set %session.Data("WSID")=wsID + Set %session.Data("KLNR")=KLNr + Set %session.Data("MODE")=sMode + Kill tmpAr("WSID") + Kill tmpAr("REF") + Set arShow("SubmitToVHEPN","BTN")=Visible + Set arShow("SubmitToVHEPN","HREF")="MailSend.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Set arShow("Submit","HREF")=arShow("SubmitToVHEPN","HREF") + Set arShow("SubmitToVHEPN","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("VerzendenBBON",Taal,"L") + Set arShow("SubmitToVHEPN","INFO")=##class(cspBasis.GAProdTBox).WebTextValue("VerzendToVH",Taal,"L") + Set:(arShow("SubmitToVHEPN","INFO")="~") arShow("SubmitToVHEPN","INFO")="" + Set lbLog=$LG(WSOrd.SubmitToVHLog,1) + If ($L(lbLog))&&($LG(lbLog,2)>0) Do + . Set tmpLbl=##class(cspBasis.GAProdTBox).WebTextValue("Verzonden",Taal,"L",$LB("L")) + . Set arShow("SubmitToVHEPNAgain","INFO")=$$$Replace(""_tmpLbl_": "_$$mssFormatTime($LG(lbLog,1),0)," "," ") + Else Do + . Set arShow("SubmitToVHEPNAgain","INFO")="" + Quit +MShowSubmitAdminVerw(Visible,WSOrd) +#If ($$$NSpace="DEMO") + Quit ; Only on namespace "DEMO" +#EndIf + Quit:('Visible) + New tmpAr,lbLog + Merge tmpAr=tmpRq + Kill tmpAr("TRANSF") + Set tmpAr("TRANSF")="ADM" + Set arShow("SubmitAdmin","BTN")=Visible + Set arShow("SubmitAdmin","HREF")="main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Set lbLog=$LG(WSOrd.TransferLog,1) + If ($L(lbLog))&&($LG(lbLog,2)>0) Do + . Set tmpAr("TRANSF")="AGAIN;ADM" + . Set arShow("SubmitAdminAgain","HREF")="main.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + . Set arShow("SubmitAdminAgain","INFO")="offerte: "_$LG(lbLog,2)_" "_$$mssSubmitAdminTime($LG(lbLog,1))_" +++klantnr "_$S(blnVHEPN:KLNr, 1:sDomKLNr)_"+++" + . Set arShow("SubmitAdminAgain","INFO")=$$$Replace(arShow("SubmitAdminAgain","INFO")," "," ") + Else Do + . Set arShow("SubmitAdminAgain","INFO")="" + Quit +mssSubmitAdminTime(TStamp) +#define RecentSec 300 + New tmp + Set tmp=$$mssFormatTime(TStamp,$$$RecentSec) + Quit $S($L(tmp):"("_tmp_")", 1:"") +mssFormatTime(TStamp,RecentSec) +#define cDate(%v) $P(%v,",",1) +#define cTime(%v) $P(%v,",",2) + Quit:(TStamp="") "" + Quit:($$$cDate(TStamp)'=$$$cDate($H)) "op "_$ZD(TStamp,4)_" "_$ZT($$$cTime(TStamp),2)_"u" + Quit:($G(RecentSec)'>0)||($$$cTime($H)-$$$cTime(TStamp)>RecentSec) "om "_$ZT($$$cTime(TStamp),2)_"u" + Quit "" +MShowForwardTo(Visible) + Quit +MShowExportXML(Visible) + New tmpAr + Merge tmpAr=tmpRq + Kill tmpAr("HIST") + Kill tmpAr("REF") + Set tmpAr("REF")=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,"P")) + Set tmpAr("VSRC")=1 + Set arShow("ExportXML","BTN")=Visible + Set arShow("ExportXML","HREF")="Access.csp?"_##class(cspBasis.GAProdTBox).CQueryString(.tmpAr) + Quit +MShowKnownCustomer(Visible) +#define KLNrClean $S(KLNr=$$$KLNrListAll:"", 1:KLNr) + New KLNaam,KLMini + If (blnVHEPN)||(blnLMC)||(blnSFS)||(blnMBHO) Do + . Quit:($$$KLNrClean="") + . Set KLMini=##class(cspBasis.GAProdTBox).GetKlantData(sDomVERW,KLNr) + . ; If KLMini Do + . ;. Set KLNaam=KLMini.Naam + . Set:(KLMini) KLNaam=KLMini.Naam + . Set KLMini="" + . Set blnValidKlant=($G(KLNaam)'="") + . Set:($G(KLNaam)="") KLNaam="?"_KLNr_"?" + . Do MShowKnownCustomerText + Else If (KLNr=$$$KLNrListAll)&&(sMode="START") Do + . Set arShow("KnownCustomer","LBL")=Visible + . Set arShow("KnownCustomer","INFO")=""_""_##class(cspBasis.GAProdTBox).WebTextValue("",Taal,"L")_"VERKOOP Algemeen"_"" + Quit +MShowKnownCustomerText + Set arShow("KnownCustomer","LBL")=Visible + Set arShow("KnownCustomer","INFO")=""_##class(cspBasis.GAProdTBox).WebTextValue("Klant",Taal,"L",$LB("L"))_" "_""_KLNaam_"" + Quit +MShowVervaldagOFFText + Set ExtraTekst=$S($IsObject($G(WSOrd)):WSOrd.ExtraTekst, 1:"") + Quit:(ExtraTekst'["VVOFF-") + New VVDate,InfoGeldigTotEindeActie + Set VVDate=$P($P(ExtraTekst,"VVOFF-",2),";",1) + Set arShow("VervaldagOFF","INFO")=1 + If ($IsObject(WSOrd))&&(WSOrd.BevatActies()) { + Set arShow("VervaldagOFF","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("GeldigheidOFF_ofTotEindeActie",Taal,"O") ; "Deze offerte is 30 dagen geldig of tot einde actie." + ; --> indien VVDate correct berekend is, dan : + ; Set arShow("VervaldagOFF","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("GeldigheidOFF_ofTotEindeActie",Taal,"O")_" "_VVDate ; "Deze offerte is 30 dagen geldig of tot einde actie, tot" ... + } + Else { + Set arShow("VervaldagOFF","TEXT")=##class(cspBasis.GAProdTBox).WebTextValue("GeldigheidOFF",Taal,"O")_" "_VVDate ; "Deze offerte is 30 dagen geldig, tot" + } + Quit + + + + /* + + + + + + + + + + + + + + + + */ + + +PrepareWSOrdVTL +#define pg ##class(cspBasis.GAProdTBox) + Kill arWSVTL + Quit:('$IsObject($G(WSOrd))) + New i,WSLn,SomAKPrijs,BonType,Munt,MuntCalc + Set Munt="EUR" + Set Munt=$$GetUserMunt^cspBasis.Library(sDomVERW,$G(VERW)) ; if sMode=PROCESS, then enable switch between EUR and CHF, by setting VERW="SFS" or VERW="VHEPN" + Set BonType=$$$pg.ConvertBonType(WSOrd.BonType,VERW,sMode) + Set arWSVTL("BonType")=$S($L(BonType):$$$pg.WebTextValue("FT_"_BonType,Taal,"L",$LB("U")), 1:"") + Set arWSVTL("NietMee")=$$pwoTransNietMee(WSOrd.NietMeeleveren) ; $S($L(WSOrd.NietMeeleveren):"corpusprofielen, afdekkappen", 1:"") ; "De corpusprofielen / afdekkappen worden niet meegeleverd.", 1:"") + Set blnShowAKPrijs=(sMode="PROCESS")&&('blnVHEPN) ; &&(BonType="INKP") + If sDomVERW="SFS" Do + . ; Aankoopprijzen in EUR berekend en getoond + . ; Verkoopprijzen in CHF berekend en getoond + . ; ==> m.a.w. Munt moet correct ingevuld worden (EUR of CHF); prijzen van WSOrd niet meer omrekenen, dus MuntCalc="EUR" + . Set Munt=$S(blnShowAKPrijs:"EUR",1:"CHF") + . Set MuntCalc="EUR" + Else Do + . Set MuntCalc=Munt + Set arWSVTL("Munt")=Munt + + ;Set:(blnLMC)&&(sMode'="PROCESS")&&(BonType="INKP") BonType="BBON" ; Specifiek voor OPTIMA + ;Set:(blnSFS)&&(sMode'="PROCESS")&&(BonType="INKP") BonType="BBON" ; Specifiek voor ... + ;Set:(blnMBHO)&&(sMode'="PROCESS")&&(BonType="INKP") BonType="BBON" ; Specifiek voor ... + ;Set:(BonType="INKP")&&(sMode'="PROCESS") BonType="BBON" + ;Set arWSVTL("BonType")=$S($L(BonType):$$$pg.WebTextValue("FT_"_BonType,Taal,"L",$LB("U")), 1:"") + ;Set blnShowAKPrijs=(sMode="PROCESS")&&('blnVHEPN)&&(VERW'?1(1"HEIN",1"LMC")) ; ? SFS + Set SomAKPrijs=0 + Set WSLn=WSOrd.Lijnen.GetNext("") + If WSLn Do + . Set dcID=##class(BL.PR.GA.TandemBox).DesignCodeFromDS(WSLn.ItemDS) + . Set HeaderLogo = dcID + . //Set:(dcID="I") HeaderLogo="I" + . Set:($L(WSLn.ItemDS)) DCSuffix=$$$Replace($$$pg.WebTextValue("DC_Suffix_"_dcID,Taal,"L"),"~","") + . Set:($L(DCSuffix)) DCSuffix=""_DCSuffix_"" + . Set arWSVTL("KLR_DS")=$S($L(WSLn.ItemDS):$$$pg.WebTextValue("DS_"_WSLn.ItemDS,Taal,"L")_DCSuffix, 1:"") + . Set arWSVTL("KLR_KL")=$S($L(WSLn.ItemDS):$$$pg.WebTextValue("DS_"_WSLn.ItemDS,Taal,"L"), 1:"") ; arWSVTL("KLR_DS") + . ;Set arWSVTL("KLR_KL")=$S($L(WSLn.ItemKL):$$$pg.WebTextValue("KL_"_WSLn.ItemKL_$S(WSLn.ItemKL?1(1"WI",1"BE",1"BA"):"_DS",1:""),Taal,"L"), 1:"") + . Set arWSVTL("KLR_KB")=$S($L(WSLn.ItemKB):$$$pg.WebTextValue("KL_"_WSLn.ItemKB_$S(WSLn.ItemKB?1(1"WI",1"BE"):"_KB", 1:""),Taal,"L"), 1:"") + . Set arWSVTL("KLR_RK")=$S($L(WSLn.ItemRK):$$$pg.WebTextValue("KL_"_WSLn.ItemRK,Taal,"L"), 1:"") + . Set arWSVTL("KLR_KX")=$S($L(WSLn.ItemKX):$$$pg.WebTextValue("KL_"_WSLn.ItemKX,Taal,"L"), 1:"") + . Set arWSVTL("KLR_KV")=$S($L(WSLn.ItemKV):$$$pg.WebTextValue("KLV_"_WSLn.ItemKV,Taal,"L"), 1:"") + . ;Set arWSVTL("FBevest")=$S($L(WSLn.ItemFB):$$$pg.WebTextValue("FB_"_WSLn.ItemFB,Taal,"L"), 1:"") + Set blnContainsGlas=0 + Set blnWSErrors=0 + Set i="" + For Set WSLn=WSOrd.Lijnen.GetNext(.i) Quit:(i="") Do + . For Key="LT","CB","WD","LD","DK","FB","BM","BX","SB","OPVL","STDL" Do + . . Set arWSVTL("LN",i,Key)=$$pwoTransItemValue($zobjproperty(WSLn,"Item"_Key),Key) + . Set arWSVTL("LN",i,"DIV")=$$pwoTransItemValue(WSLn.ItemDIVToLB(),"DIV") ; ..ItemDIVToLB() ; Returns $LB() + . Set arWSVTL("LN",i,"AANT")=$$pwoTransItemValue(WSLn.Qty,"AANT") ; _$$pwoTransItemValue(WSLn.ItemVPK,"VPK") + . Set arWSVTL("LN",i,"PRIJS")=$$pwoTransItemValue($S($G(%session.Data("BeursUser")):99.99, blnShowAKPrijs:WSLn.AKPrijs, 1:WSLn.KostPrijs),"PRIJS") + . Set blnContainsGlas=(blnContainsGlas)||(WSLn.ItemBX?1(1"BG",1"COV"))||(WSLn.ItemBGRP?1(1"V")) + . Set:(WSLn.KostPrijs["ERROR") blnWSErrors=1 + . Set:(blnShowAKPrijs) SomAKPrijs=SomAKPrijs+(WSLn.AKPrijs*WSLn.Qty) + + If 'blnContainsGlas Set arWSVTL("KLR_KV")="" + ;Set:(blnShowAKPrijs) arWSVTL("AKPrijsTot")=$S($G(%session.Data("BeursUser")):99.99, 1:SomAKPrijs) + ;Set arWSVTL("TotPrijs")=$$pwoTransTotPrijs($S($G(%session.Data("BeursUser")):99.99, blnShowAKPrijs:arWSVTL("AKPrijsTot"),1:WSOrd.TotPrijs)) + If $G(%session.Data("BeursUser")) Do + . Set:(blnShowAKPrijs) arWSVTL("AKPrijsTot")=99.99 + . Set arWSVTL("TotPrijs")=$$pwoTransTotPrijs(99.99) + Else Do + . Set:(blnShowAKPrijs) arWSVTL("AKPrijsTot")=$$PrijsConvert^cspBasis.Library(MuntCalc,SomAKPrijs) + . Set arWSVTL("TotPrijs")=$$pwoTransTotPrijs($$PrijsConvert^cspBasis.Library(MuntCalc,$S(blnShowAKPrijs:SomAKPrijs, 1:WSOrd.TotPrijs))) + Quit +pwoTransTotPrijs(Val) + Quit:(Val>0) $J(Val,0,2)_" "_Munt + Quit "" +pwoTransItemValue(Val,Key) + New str + Quit:(Val="") " " + Quit:(Key="CB") Val_" mm" + If Key="WD" Do Quit str + . If '$IsValidNum(Val) Set str="
    "_$S(Val="B":"|←→|", 1:Val)_"
    " + . Else Set str=Val_" mm" + Quit:(Key="LD") Val_" mm" + Quit:(Key="DK") Val_" kg" + Quit:(Key="FB") $S(Val="NM":"-", Val="Z":" ", (Val="S")&&(Taal="F"):"Vis", 1:Val) + ; Quit:(Key="BM") $CASE(Val, "T":"T", "I":"v", "LR":"v", "Z":" ", :Val) + Quit:(Key="BX") $CASE(Val, "DR":"==", "ER":"---", "ZR":" ", :Val) + Quit:(Key="SB") $S(Val:"v", 1:" ") + Quit:(Key="OPVL") $S(Val="LR":"L+R", 1:Val) + Quit:(Key="DIV") $$LCVTSimple^vhLib(Val,"
    ") + Quit:(Key="AANT") Val + Quit:(Key="VPK") $S(Val="P":" ("_$$$pg.WebTextValue("VerpakBulkKort",Taal,"L")_")", Val'="S":Val, 1:"") + If Key="PRIJS" Do Quit str + . If $$$UCase(Val)="ERROR" Set str="
    # "_$$$pg.WebTextValue("jsFout",Taal,"L",$LB("U"))_" #
    " + . Else Set str=$J($$PrijsConvert^cspBasis.Library(MuntCalc,Val),0,2)_" "_Munt + Quit Val +pwoTransNietMee(NMKeys) + #define LowerCaseExceptBS $S(NietMeeKey="NM_BS":"",1:$LB("L")) + + New str + Set str="" + For i=1:1:$L(NMKeys,";") Do + . Set NietMeeKey=($P(NMKeys,";",i)) + . Set:($E(NietMeeKey,1,2)="NM")&&($E(NietMeeKey,3)'="_") $E(NietMeeKey,1,2)="NM_" + . Set:($L(NietMeeKey)) str=str_$S($L(str):", ", 1:"")_$$$pg.WebTextValue(NietMeeKey,Taal,"L",$$$LowerCaseExceptBS) + Quit str + + + /* + VORIGE VERSIE: + ====== ======= + * / + #If ($ZCVT($ZUTIL(110),"U")="WWW01")&&($$$NSpace'="DEMO") + Set ClientHostIP=$S((VERW="VHEPN")&&('blnVHEPN):"192.168.1x.", 1:"192.168.1.") + #Else + Set ClientHostIP="192.168.1x." + #EndIf + + &SQL(DECLARE crsHist CURSOR FOR + SELECT Top 1000 KLNummer, KLNaam, BonType, ID, IngaveTijdStip, TotAantal Qty, TotPrijs Prijs, Commissie, SubmitTS + INTO :tmpAr("KLNr"), :tmpAr("KLNaam"), :tmpAr("BonType"), :tmpAr("wsID"), :tmpAr("OrdTime"), :tmpAr("TotQty"), :tmpAr("TotPrs"), :tmpAr("Commissie"), :tmpAr("SubmitTS") + FROM WS_TBX.WebOrder OrdHfd + WHERE (WebDomain=:sDomain2) AND ((KLNummer=:KLNrSel)OR(:blnListALL=1)) AND (IngaveTijdStip > '2004-01-24') AND ID in + ( + SELECT DISTINCT (LogT.WSOrderID) + FROM DW_WWW.SysLogTBX LogT + WHERE (LogT.Actie ='WIZARD_CALC') AND (NOT LogT.ClientHost %STARTSWITH :ClientHostIP) + ) + ORDER BY IngaveTijdStip DESC, ID + ) + /* */ + +PrepareHistVTL +#define KLNrClean $S(KLNr=$$$KLNrListAll:"", 1:KLNr) + ;s:('$D(ClientIP)) ClientIP="192.168.1.97" + New tmpAr,KLNrSel,i,wsID,Ref,WizMode,sDomain2,tmpKLNr,blnListALL,tmpNaam,BonType,Munt,ClientHostIP,MinShowH,MaxShowH,blnListHidden + Kill arHistVTL + Set blnListHidden=($G(%request.Data("SHOWALL",1))="1") + If (##class(TECH.Config.ConfigMgr).Instance().GetBoolean("csp.vhisie.TBX.Main_ToonHistoriekVoorTestklanten")) + { + Set blnListHidden=(blnListHidden)||(KLNr?1(1"4682",1"1000",1"4645")) + } + Set blnListHiddenOnly=0 + Set blnListALL=(KLNr=$$$KLNrListAll) + Set KLNrSel=$$$KLNrClean ; $S(KLNr=$$$KLNrListAll:"", 1:KLNr) + Set WizMode=$S(sMode?1(1"VIEW",1"PROCESS",1"COMPLETE"):sMode, 1:"COMPLETE") + Set sDomain2=$$TBXDomainCVT^cspBasis.Library(sDomain) + Set Munt="EUR" + Set Munt=$$GetUserMunt^cspBasis.Library(sDomVERW,) + Do phvBuildColHeader + + Set MinShowH=$$$shShownForKlant + Set MaxShowH=$$$shShownForAll-1 + If blnListHidden Do + . Set MinShowH=$$$shHiddenForAll + . Set:(blnListHiddenOnly) MaxShowH=$$$shShownForVHEPN-1 + Else If (sMode="PROCESS")||(blnListALL) Do + . Set MinShowH=$S(VERW'="VHEPN":$$$shShownForVERW, 1:$$$shShownForVHEPN) + Else If 0 && ($G(%RemoteIP)?1(1"192.168.1.")) Do + . Set MinShowH=$$$shShownForVHEPN + Set:(KLNrSel?1(1"1000",1"4645",1"4682")) MinShowH=$$$shShownForVHEPN + + &SQL(DECLARE crsHist CURSOR FOR + SELECT Top 1000 KLNummer, KLNaam, BonType, ID, IngaveTijdStip, TotAantal Qty, TotPrijs Prijs, Commissie, SubmitTS, ShowInHist + INTO :tmpAr("KLNr"), :tmpAr("KLNaam"), :tmpAr("BonType"), :tmpAr("wsID"), :tmpAr("OrdTime"), :tmpAr("TotQty"), :tmpAr("TotPrs"), :tmpAr("Commissie"), :tmpAr("SubmitTS"), :tmpAr("ShowInHist") + FROM WS_TBX.WebOrder OrdHfd + WHERE (WebDomain=:sDomain2) AND ((KLNummer=:KLNrSel)OR(:blnListALL=1)) AND (ShowInHist BETWEEN :MinShowH AND :MaxShowH) + ORDER BY IngaveTijdStip DESC, ID + ) + &SQL(OPEN crsHist) + Set i=0 + For &SQL(FETCH crsHist) Quit:(SQLCODE) Do + . If $G(tmpAr("KLNr"))="" Set arKLNrs("I-Empty",0)="" ; Index for Empty KLKey + . Else Set arKLNrs("I",tmpAr("KLNr"))="" ; Index + . Set tmpAr("Munt")=Munt + . Do phvBuildHistArray ; lijn opbouwen + &SQL(CLOSE crsHist) + + Do phvBuildKLNrColumn + Do phvBuildHistSort + ;d WL^vhDBG("arKLNrs"_$$$ArrayTT("arKLNrs")) + Quit +phvBuildColHeader + Quit +phvBuildHistSort + Quit +phvBuildKLNrColumn + New KLKey,WizMode2 + Set WizMode2=$S(WizMode="COMPLETE":"START", 1:WizMode) + Set CntKL=0 ; Globale variabele + Set:($D(arKLNrs("I-Empty",0))) CntKL=1 + Set KLKey="" + For Set KLKey=$O(arKLNrs("I",KLKey)) Quit:(KLKey="") Do + . Set CntKL=CntKL+1 + . Set arKLNrs("U",KLKey)="?HIST=1&REF="_$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLKey,VERW,,WizMode2)) + Quit +phvBuildHistArray + Set i=i+1 + Set:($G(%session.Data("BeursUser")))&&(tmpAr("TotPrs")) tmpAr("TotPrs")=99.99 + Merge arHistVTL("LN",i)=tmpAr + Set wsID=$G(tmpAr("wsID")) + Set tmpKLNr=$S(KLNr=$$$KLNrListAll:$G(tmpAr("KLNr")), 1:KLNr) + Set arHistVTL("LN",i,"KLNr")=$G(tmpAr("KLNr")) + Set arHistVTL("LN",i,"KLNaam")=$G(tmpAr("KLNaam")) + Set arHistVTL("LN",i,"Munt")=$S($G(tmpAr("Munt"))="":"EUR", 1:tmpAr("Munt")) + Set arHistVTL("LN",i,"MuntCalc")=arHistVTL("LN",i,"Munt") + If sDomVERW="SFS" Do + . Set arHistVTL("LN",i,"Munt")="CHF" + . Set arHistVTL("LN",i,"MuntCalc")="EUR" + /* + If KLNr=$$$KLNrListAll Do + . Set tmpNaam=$G(tmpAr("KLNaam")) + . Set arHistVTL("LN",i,"KLNaam")=tmpNaam + . Set arHistVTL("LN",i,"KLNaamDSP")=$S($L(tmpNaam)>$$$LenKLNaam:$E(tmpNaam,1,$$$LenKLNaam-2)_"...", 1:tmpNaam) + . Set arHistVTL("LN",i,"KLNaamALT")="Lijst voor "_$G(arHistVTL("LN",i,"KLNaam"),"klant")_$S($L(arHistVTL("LN",i,"KLNr")):" ("_arHistVTL("LN",i,"KLNr")_")", 1:"") + */ + Set arHistVTL("LN",i,"OrderNr")=##class(WS.TBX.Order).OrderNrCalc(wsID) + Set arHistVTL("LN",i,"TimeCust")=$S($G(arHistVTL("LN",i,"OrdTime"))="":"", 1:$TR($ZD($ZDTH(arHistVTL("LN",i,"OrdTime"),3),4),"/","-")) + Set arHistVTL("LN",i,"OrderDCM")=##class(WS.TBX.Order).DCMCalc(wsID) + Do phvManageBonType + ;Set arIDs(i)=$G(arHistVTL("LN",i,"wsID")) + ;Set arIDs(i)=tmpAr("wsID") + Set Ref(i)=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(tmpKLNr,VERW,wsID,WizMode)) + Set arHistVTL("LN",i,"UrlOrd")=$$$Replace(arUrl("ShowOrder"),$$$QSREFReplace,Ref(i)) + Kill tmpAr + Quit +phvManageBonType + Set BonType=$$$pg.ConvertBonType(arHistVTL("LN",i,"BonType"),VERW,WizMode) + Set:(blnLMC||blnSFS||blnMBHO) arHistVTL("LN",i,"BonType")=BonType + Set arHistVTL("LN",i,"BonTypeVTL")=$$$pg.WebTextValue("FT_"_BonType,Taal,"L") + Quit + \ No newline at end of file Index: DOM/PM/enu/ActiefStatus.cls.xml =================================================================== diff -u --- DOM/PM/enu/ActiefStatus.cls.xml (revision 0) +++ DOM/PM/enu/ActiefStatus.cls.xml (revision 994) @@ -0,0 +1,40 @@ + + + +datatype +1 +%String +62181,31455.681851 +0 + + +,1,2,3 + + + +,Niet actief,Beperkt actief,Actief + + + +1 +DOM.PM.enu.ActiefStatus + + + + +1 +DOM.PM.enu.ActiefStatus + + + + +1 +DOM.PM.enu.ActiefStatus + + + + + Index: DOM/OV/impl/DataM/DataMOrderlijnFactory.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/impl/DataM/DataMOrderlijnFactory.cls.xml (.../DataMOrderlijnFactory.cls.xml) (revision 946) +++ DOM/OV/impl/DataM/DataMOrderlijnFactory.cls.xml (.../DataMOrderlijnFactory.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + 1 %RegisteredObject @@ -13,21 +13,21 @@ - + Index: DOM/CRM/enu/VerantwoordelijkheidsType.cls.xml =================================================================== diff -u --- DOM/CRM/enu/VerantwoordelijkheidsType.cls.xml (revision 0) +++ DOM/CRM/enu/VerantwoordelijkheidsType.cls.xml (revision 994) @@ -0,0 +1,35 @@ + + + + +JBL + 2011-03-30 +datatype +1 +%String +62180,37014.834302 +0 + + +,EI,AB1,AB2,AB3,PR1,PR2,PR3,AK1,AK2,AK3,VE1,VE2,VE3,BK1,BK2,BK3,IT1,IT3,LO1,LO2,LO3,MA2,MA3,PO2,PO3,VI1,VI2,VI3,OP2,OP3,IA3,SR2,SR3,PD1,PD2,PD3,ZZ3 + + + +;Eigenaar;Alg.beh.-directeur;Alg.beh.-assistente;Alg.beh.-receptie;Productie - leider;Productie -meestergast;Productie - arbeider;Aankoop - directeur;Aankoop - aankoper;Aankoop - administratie;Vkp.Buitendienst - directeur;Vkp.Buitendienst - leider;Vkp.Buitendienst - verkoper;Boekhouding - directeur;Boekhouding - hoofdboekhouder;Boekhouding - boekhouder;ICT - directeur;ICT - medewerker;Logistiek - directeur;Logistiek - hoofdmag;Logistiek - magazijnier;Marketing - verantwoordelijke;Marketing - medewerker;Product ontw. - verantwoordelijke;Product ontw. - medewerker;Vkp.Binnendienst - directeur;Vkp.Binnendienst - hoofd;Vkp.Binnendienst - medewerker;Opleiding - verantwoordelijke;Opleiding - trainer;Interieurarch. - medewerker;Showroom - verantwoordelijke;Showroom - medewerker;Plaatsingsdienst - projectleider;Plaatsingsdienst - werfleider;Plaatsingsdienst - monteur;Diverse + + + +1 +expression + + + + +1 +expression + + + + + Index: APPS/Halux/common/impl/MaakBatchException.cls.xml =================================================================== diff -u --- APPS/Halux/common/impl/MaakBatchException.cls.xml (revision 0) +++ APPS/Halux/common/impl/MaakBatchException.cls.xml (revision 994) @@ -0,0 +1,58 @@ + + + +1 +%RegisteredObject,TECH.IException +62180,31215.144764 +0 + + +APPS.Halux.common.impl.BatchError +list + + + +BatchErrors:%ListOfObjects +1 +1 +%Status + + + + +%String + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + + Index: BL/PPS/TBX/DocsV1/1.int.rou =================================================================== diff -u -r901 -r994 --- BL/PPS/TBX/DocsV1/1.int.rou (.../1.int.rou) (revision 901) +++ BL/PPS/TBX/DocsV1/1.int.rou (.../1.int.rou) (revision 994) @@ -1,6 +1,6 @@ ;BL.PPS.TBX.DocsV1.1 - ;(C)InterSystems, generated for class BL.PPS.TBX.DocsV1. Do NOT edit. 02/16/2011 08:27:53AM - ;;3AA5935F18E5FFA3;BL.PPS.TBX.DocsV1 + ;(C)InterSystems, generated for class BL.PPS.TBX.DocsV1. Do NOT edit. 03/31/2011 04:00:47PM + ;;2964719CB5DB949C;BL.PPS.TBX.DocsV1 Quit ; /* @@ -30,7 +30,7 @@ Set $zobjval(,7)=$zobjval(object,7),$zobjval(,8)=$zobjval(object,8),$zobjval(,9)=$zobjval(object,9) Quit %this } %Extends(isclass) public { Quit "~BL.PPS.TBX.DocsV1~%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,"Keller":1239,"LabelExtraCommissie":"TBX Extra commissie 5x10","LabelKlantPrinter":"Halux_Productie_Keller","LabelKlantTemplate5x10":"KlantTBX5x10v3","LabelPalletTemplate":"TBX PalletID 5x10","LabelPrinter":"Halux_Productie","LabelTemplate":"TBX Productie","LevHalux":6332,"MaxLadePerPallet":10,"PROPERTYVALIDATION":0,:"") } +%GetParameter(paramname) public { Set paramname=$get(paramname) Quit $case(paramname,"Keller":1239,"LabelExtraCommissie":"TBX Extra commissie 5x10","LabelKlantPrinter":"Halux_Productie_Keller","LabelKlantTemplate5x10":"KlantTBX5x10v3","LabelPalletTemplate":"TBX PalletID 5x10","LabelPrinter":"ICT","LabelTemplate":"TBX Productie_Opti","LevHalux":6332,"MaxLadePerPallet":10,"PROPERTYVALIDATION":0,:"") } %IncrementCount(%this) Quit ..%IncrementCount() %IsA(isclass) public { Quit "~BL.PPS.TBX.DocsV1~%Library.RegisteredObject~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") } %IsModified(%this) public { Quit 1 } @@ -127,6 +127,7 @@ ; C via .Local Set pxLabel=##class(BL.PPS.TBX.sub.pxLabelV1).%New() Set PRNr=oQ.ProductGetObjectId() + set Lade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr) Set (pxLabel.IB,IB)=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"IB")) ; Interne breedte Set (pxLabel.RH,RH)=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RH")) ; Rughoogte Set pxLabel.LD=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD")) ; Ladediepte @@ -161,12 +162,37 @@ Set pxLabel.RHNet=..RugHoogteInMM(RH) Set RugHPRNr=$P($G(^PRBS("BS",PRNr,"PRRUGLI.001")),"\",1) Set:RugHPRNr?4.7N RHH=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",RugHPRNr,"RugHoogte")) ; Werkelijke hoogte van de rughouder + /* if $G(RHH)?1A1"-"1A { ; L-vormige rughouders hebben een kenmerk van de vorm BuitenRugHoogte_BinnenRugHoogte set pxLabel.Opm2 = "RWH : "_..RugHoogteInMM($P(RHH,"-",1))_"_"_..RugHoogteInMM($P(RHH,"-",2)) } else{ set pxLabel.Opm2 = "RWH : "_..RugHoogteInMM($P(RH,"-",1))_"_"_..RugHoogteInMM($P(RH,"-",1)) - } + } + */ + if Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Hout() { + if Lade.BevatVerlaagdeRug() { + set pxLabel.RugInfo = "Verl Rug "_RH_" : "_pxLabel.RHNet_" "_pxLabel.BreedteR_" #"_pxLabel.Bor + if Lade.BevatLVormigeRugwandHouder() { + set pxLabel.RWHInfo = "RWH : "_pxLabel.KR_" "_$piece(RHH,"-",1)_" .22" + } + else { ; Geen L-vormige rughouders + set pxLabel.RWHInfo = "RWH : "_pxLabel.KR_" "_$piece(RH,"-",1)_" "_$piece(RH,"-",1) + } + } + else { + set pxLabel.RugInfo = "Rug : "_pxLabel.RHNet_" "_pxLabel.BreedteR_" #"_pxLabel.Bor + set pxLabel.RWHInfo = "RWH : "_pxLabel.KR_" "_Lade.GeefZijwandHoogte()_" "_Lade.GeefRugHoogte() + } + } + elseif Lade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Staal() { + Set pxLabel.RugInfo = "Stalen rug: "_pxLabel.KR_" "_Lade.GeefRugHoogte()_" "_(pxLabel.IB-28) + Set pxLabel.RWHInfo = "RWH : -- -- --" + } + elseif (ODSP'="")&&(ODSP'["H") { + Set pxLabel.RugInfo = "Herstelling zonder RWH:" + Set pxLabel.RWHInfo = "RWH : -- -- --" + } Set BodemPRNr=$P($G(^PRBS("BS",PRNr,"PRBDHO.001")),"\",1) Set lbBodemKleuren=$S(BodemPRNr?4.7N:##class(Prod.Kenmerk.DataDefinitie).Get("TB",BodemPRNr,"Kleur"),1:"") ; Mogelijke kleuren van de bodem Set KB2=$S(lbBodemKleuren'="":$LG(lbBodemKleuren,$S($LF(lbBodemKleuren,pxLabel.KB)=1:2,1:1)),1:"") ; 2e kleur bodem @@ -271,7 +297,7 @@ } Else { - Set pxLabel.Device = "Halux_Productie" + Set pxLabel.Device = "ICT" } Set pxLabel.Layout="TBX Extra commissie 5x10" Set pxLabel.Logo="logo\Logo VHZwart.svg" @@ -486,8 +512,8 @@ Set Resultaat=Resultaat_$LB(Basis) } Quit Resultaat } -zInit(%this,BatchID,ProdGrp,LabelDevice,FOPDevice) public { Set $zobjval(,4,0,0,4)=$G(LabelDevice,"Halux_Productie") - Set $zobjval(,7,0,0,7)="TBX Productie" +zInit(%this,BatchID,ProdGrp,LabelDevice,FOPDevice) public { Set $zobjval(,4,0,0,4)=$G(LabelDevice,"ICT") + Set $zobjval(,7,0,0,7)="TBX Productie_Opti" Set $zobjval(,5,0,0,5)=$G(LabelDevice,"Halux_Productie_Keller") Set $zobjval(,6,0,0,6)="KlantTBX5x10v3" Set $zobjval(,2,0,0,2)=$G(BatchID) @@ -886,9 +912,9 @@ Quit:rs.Data("Status")="PB" ; sequencelijnen met status "PB" worden overgeslagen Do DataLijnen.Insert(rs.Data("ID")_"\"_rs.Data("Status")_"\"_rs.Data("Product")) } - Do Document.VoegLijnToe("\\\\\\","\") - Do Document.VoegLijnToe("\\\\\\PICKING","\") - Do Document.VoegLijnToe("\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\\PICKING","\") + Do Document.VoegLijnToe("\\\\\\\","\") Set Aantallen = ##class(%Library.ArrayOfDataTypes).%New() Set Iterator = ##class(TECH.ListIterator).%New(DataLijnen) While Iterator.HasNext() { @@ -898,7 +924,7 @@ If (TandemBox.BevatInTeKortenReling()) { Set RelingPRNr = TandemBox.GeefReling().GeefPRNr() - Set RelingBouwsteen = ##class(DOM.PR.BouwStenen.BouwSteen).%OpenId(PRNr_"||"_"PRRL.001") + Set RelingBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(PRNr_"||"_"PRRL.001") Set Aantal = RelingBouwsteen.Aantal Do Aantallen.SetAt(Aantallen.GetAt(RelingPRNr)+Aantal,RelingPRNr) If (TandemBox.BevatTussenReling()) @@ -915,12 +941,12 @@ Set Aantal = Iterator.Next() Set PRNr = Iterator.Key() Set Reling = API.GeefProduct(PRNr) - Do ..VoegRelingToeAanDocument(i, Reling, Document, Aantal, "", "") + Do ..VoegRelingToeAanDocument(i, Reling, Document, Aantal) Set i = i + 1 } - Do Document.VoegLijnToe("\\\\\\","\") - Do Document.VoegLijnToe("\\\\\\INKORTEN","\") - Do Document.VoegLijnToe("\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\\INKORTEN","\") + Do Document.VoegLijnToe("\\\\\\\","\") // In te korten relingen opbouwen Set i = 1 Set Iterator = ##class(TECH.ListIterator).%New(DataLijnen) @@ -935,21 +961,33 @@ Set ToeDos = $E(oQ.TOENr,4,6)_":"_$E(oQ.DOSNr,1,4) Set Reling = TandemBox.GeefReling() Set Lengte = ##class(DOM.PM.Maatwerk.TBX.HalffabrikaatUtils).GeefRelingLengteNaInkorten(PRNr,Reling.GeefPRNr()) - Set RelingBouwsteen = ##class(DOM.PR.BouwStenen.BouwSteen).%OpenId(PRNr_"||PRRL.001") + Set RelingBouwsteen = ##class(DOM.PM.Bouwstenen.Bouwsteen).%OpenId(PRNr_"||PRRL.001") Set Aantal = RelingBouwsteen.Aantal Set RelingAantal = Aantal Set Verpakking = Reling.GeefVerpakking() If (Verpakking '= ##class(DOM.PM.enu.Verpakking).Industrie()) { Set RelingAantal = Aantal * 2 } - Do ..VoegRelingToeAanDocument(i, Reling, Document, Aantal_":"_RelingAantal, ToeDos, Lengte) + Set Uitvoer = "P" + If (TandemBox.GeefLadeType() = ##class(DOM.PM.enu.TBXLadeType).BinnenLade()) { Set Uitvoer = "M" } + Do ..VoegRelingToeAanDocument(i, Reling, Document, Aantal_":"_RelingAantal, ToeDos, Lengte, Uitvoer) If (TandemBox.BevatTussenReling()) { - Do ..VoegRelingToeAanDocument(i, TandemBox.GeefTussenReling(), Document, Aantal, ToeDos, Lengte) + Do ..VoegRelingToeAanDocument(i, TandemBox.GeefTussenReling(), Document, Aantal, ToeDos, Lengte, Uitvoer) } Set i = i + 1 } } + Do Document.VoegLijnToe("\\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\\LEGENDE","\") + Do Document.VoegLijnToe("\\\\\\\","\") + Do Document.VoegLijnToe("\\\\\\\ M = Montage ","\") + Do Document.VoegLijnToe("\\\\\\\ P = Picking onderdelen","\") + Set SorteerVan = 6+Aantallen.Count() + Set SorteerTot = SorteerVan + i - 1 + Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),6,SorteerVan,SorteerTot) + // Nummering correct instellen na sorteren + For i = 1:1:SorteerTot-SorteerVan { Do Document.GeefKolom(1).SetAt(i,SorteerVan+i) } If (Aantallen.Count() > 0) { Do Document.PrintDocument("HALUX",##class(TECH.Config.ConfigMgr).Instance().GetBoolean("PrintLijstenOpScherm")) @@ -1128,10 +1166,13 @@ New Rec,PRNr,GVP Set Rec=^HULP($zobjval(,1,0,0,1),Label1,From) Set PRNr=$P(^HULP($zobjval(,1,0,0,1),Label1,From),"\",17) - Set GVP=$$Get^PRODUKT(PRNr,"J16") + Set GVP=$$GrootVerpakking(PRNr) Set Rec=^HULP($zobjval(,1,0,0,1),Label1,VolgNr) Set $P(Rec,"\",19)="D"_PRNr - Set $P(Rec,"\",20)="Doos V"_GVP + If $$Get^PRODUKT(PRNr,"J32") Do + . Set $P(Rec,"\",20)="Eco V"_GVP + Else Do + . Set $P(Rec,"\",20)="Doos V"_GVP Set ^HULP($zobjval(,1,0,0,1),Label2,$O(^HULP($zobjval(,1,0,0,1),Label2,""),-1)+1)=Rec Quit TryGVP(VolgNr) @@ -1140,7 +1181,7 @@ Quit:PRNr'?4.7N "" Set KVP=$$Get^PRODUKT(PRNr,"J14") Set NVP=$$Get^PRODUKT(PRNr,"J15") - Set GVP=$$Get^PRODUKT(PRNr,"J16") + Set GVP=$$GrootVerpakking(PRNr) If (KVP=1)||(NVP=1)||(GVP=1) Quit "" Set Done=0 For Do Quit:Done @@ -1150,7 +1191,10 @@ . If PRNr'=$P(^HULP($zobjval(,1,0,0,1),Label1,VolgNr),"\",17) Set Done=1 Quit If 'GVP Quit VolgNr Quit "" -zVoegRelingToeAanDocument(%this,Nr,Reling,Document,Aantal,ToeDos,Lengte) public { Set Verpakking = Reling.GeefVerpakking() +GrootVerpakking(PRNr) + If PRNr=457010 Quit 10 ;358M5002S Z R+L EP WA/G - ecopack met R + L op een pallet gestapeld + Quit $$Get^PRODUKT(PRNr,"J16") +zVoegRelingToeAanDocument(%this,Nr,Reling,Document,Aantal,ToeDos,Lengte,Uitvoer) public { Set ToeDos=$get(ToeDos),Lengte=$get(Lengte),Uitvoer=$get(Uitvoer) Set Verpakking = Reling.GeefVerpakking() Set RelingKleur = Reling.GeefKleur() If (Verpakking = ##class(DOM.PM.enu.Verpakking).Industrie()) { Set Verpakking = "" @@ -1160,8 +1204,9 @@ Do Document.GeefKolom(3).Insert(RelingKleur) Do Document.GeefKolom(4).Insert(Lengte) Do Document.GeefKolom(5).Insert(Verpakking) - Do Document.GeefKolom(6).Insert(Aantal) - Do Document.GeefKolom(7).Insert(Reling.GeefKorttekst()) } + Do Document.GeefKolom(6).Insert(Uitvoer) + Do Document.GeefKolom(7).Insert(Aantal) + Do Document.GeefKolom(8).Insert(Reling.GeefKorttekst()) } zZaagCB(Ref) New TOENr,Fmt,Rec Quit:$L(Ref)=1 "" Set Rec=@Ref Set TOENr=$P(Rec,"\",3) @@ -1173,28 +1218,4 @@ Set PRNr=oQ.ProductGetObjectId() Quit:..IsSpoel(PRNr) 0 Set ODSP=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ODSP")) ; Onderdelen Special - Quit ODSP'="F" } -zZaagLijst(%this,BatchID,BatchList) public { ; Sorteren - Set Label="Z" - Set rs=##class(%Library.ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence") - Set sc=rs.Execute($zobjval(,2,0,0,2)) - Set Count=0 - For Quit:'rs.Next() Do - . Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(rs.Data("ID")) - . Quit:oQ.Status="PB" ; sequencelijnen met status "PB" worden overgeslagen - . Quit:'..ZaagChk(oQ) - . Set Rec=..ZaagOne(..BldBasisFromQueue(oQ)) - . Set:$L(Rec) ^HULP($zobjval(,1,0,0,1),Label,$I(Count))=Rec - ; Basis + 10: Kleurbodem, 11:InterneBreedte, 12:LadeDiepte, 13:RugHoogte, 14:NettoBreedteRug, 15:NettoBreedteBodem, 16:NettoHoBodem, 17:NettoHoRug 18:Opmerking - ; Output - Quit:'$D(^HULP($zobjval(,1,0,0,1),Label)) 0 - Do INIT^vhLISTO("HATBXLEAN","ZAAG",.PLD) - Set PLD("HALUX")="" - Set PLD(1)=$NA(^HULP($zobjval(,1,0,0,1),Label)) - Set PLD(5)=76 - Set PLD(10)="Class("_##class(BL.PPS.TBX.DocsV1).%ClassName(1)_").ZaagCB" - Set PLD(11)="TBX ZAAG\Lijn:"_$zobjval(,8,0,0,8)_" Batch:"_$zobjval(,2,0,0,2) - Set %MemTOENr="" - Do PRINT^OUTPUT(.PLD,$S($zobjval(,3,0,0,3):"S",1:"P"),"S","BL") - Kill %MemTOENr - Quit Count } \ No newline at end of file + Quit ODSP'="F" } \ No newline at end of file Index: DOM/PM/KADProduct/impl/KADKaderdeurImpl.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/KADProduct/impl/KADKaderdeurImpl.cls.xml (.../KADKaderdeurImpl.cls.xml) (revision 946) +++ DOM/PM/KADProduct/impl/KADKaderdeurImpl.cls.xml (.../KADKaderdeurImpl.cls.xml) (revision 994) @@ -1,22 +1,51 @@ - + 1 DOM.PM.impl.MaatwerkProductImpl,DOM.PM.KADProduct.KADKaderdeur -62173,27869.11488 +62175,54588.414133 0 + +Prod.GADef.KaderDeur +1 + + DOM.PM.enu.Familie + +DOM.PM.KADProduct.enu.KADVerpakking + + + DOM.PM.enu.Variant + + +1 +Prod.GADef.KaderDeur + + - + Index: DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 946) +++ DOM/PM/Maatwerk/Calc/Common/impl/TBXKenmerken.cls.xml (.../TBXKenmerken.cls.xml) (revision 994) @@ -1,10 +1,11 @@ - + persistent +TECH.Error 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken -62171,49959.218969 +62185,63988.373154 0 @@ -260,6 +261,379 @@ ]]> + + + + + +1 +LadeKleur:%String,BodemKleur:%String,LadeDiepte:%Integer,Draagkracht:%Integer,InbouwBreedte:%Integer +DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken + + + + + + + + +LadeKleur:%String + + + + +BodemKleur:%String + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +De LadeVariant moet ZELF ingevuld worden + + + + + +De LadeVariant moet ZELF ingevuld worden + + + + + +De LadeVariant moet OP VOORHAND ingevuld zijn (plus of antaro) + + + + + +De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) + + + + + +De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) +Voor intivo : MaakViaCodeCL() +Voor antaro : MaakViaCodeCM() + + + + + +De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) +Voor intivo : MaakViaCodeCLZ() +Voor antaro : MaakViaCodeCMZ() + + + + + +De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) +Voor intivo : MaakViaCodeDL() + + + + + +De LadeVariant moet ZELF ingevuld worden + + + + + +De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) +Voor intivo : MaakViaCodeDLS2() + + + + + +De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) +Voor intivo : MaakViaCodeDLY() + + + + + +De LadeVariant moet OP VOORHAND ingevuld zijn (alleen voor plus) +Voor intivo : MaakViaCodeDLYZ() + + + %Library.CacheStorage TBXKenmerkenDefaultData @@ -430,5 +804,5 @@ - + Index: APPS/Web/OLParticulier/impl/WinkelkarAbstract.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/Web/OLParticulier/impl/WinkelkarAbstract.cls.xml (.../WinkelkarAbstract.cls.xml) (revision 734) +++ APPS/Web/OLParticulier/impl/WinkelkarAbstract.cls.xml (.../WinkelkarAbstract.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + TECH.Error,vhLib.Macro 1 APPS.Web.OLParticulier.Winkelkar -62068,63935.753977 +62182,60242.305675 0 @@ -247,5 +247,5 @@ ]]> - + Index: APPS/Halux/Planning/PlanningService/1.int.rou =================================================================== diff -u --- APPS/Halux/Planning/PlanningService/1.int.rou (revision 0) +++ APPS/Halux/Planning/PlanningService/1.int.rou (revision 994) @@ -0,0 +1,320 @@ + ;APPS.Halux.Planning.PlanningService.1 + ;(C)InterSystems, generated for class APPS.Halux.Planning.PlanningService. Do NOT edit. 04/04/2011 08:42:43AM + ;;298E70F326CD4A53;APPS.Halux.Planning.PlanningService + Quit + ; +%ClassName(fullname) public { Quit $select($get(fullname,0):"APPS.Halux.Planning.PlanningService",1:"PlanningService") } +%Close(%this) Quit ..%Close() +%ConstructClone(%this,deep,cloned) public { Set deep=$get(deep,0) Set object=%this + If $data(cloned(+object)) Do (cloned(+object)).%IncrementCount() Quit cloned(+object) + Set %this=$zobjnew("APPS.Halux.Planning.PlanningService") + Set cloned(+object)=%this,cloned(+object,0)=object + Quit %this } +%Extends(isclass) public { Quit "~APPS.Halux.Planning.PlanningService~%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,"ApplicatieNaam":"Halux_Planning_PlanningService","PROPERTYVALIDATION":0,:"") } +%IncrementCount(%this) Quit ..%IncrementCount() +%IsA(isclass) public { Quit "~APPS.Halux.Planning.PlanningService~%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.Halux.Planning.PlanningService).%New($get(initvalue)) +} +%NormalizeObject(%this) Quit 1 +%ObjectModified(%this) public { Quit 1 } +%PackageName() Quit "APPS.Halux.Planning" +%SerializeObject(%this,serial,partial) Set partial=$get(partial,0) New %objOBJ,sc,id + Set $Ztrap = "%SerializeObjectERR" + Set sc=..%ValidateObject() If ('sc) { Ztrap "SO" } + Set sc=..%NormalizeObject() If ('sc) { Ztrap "SO" } + Quit sc +%SerializeObjectERR Set $ZTrap="" If $extract($zerror,1,5)'="" Set sc=$$Error^%apiOBJ(5002,$ZE) + Quit sc +%AddToSaveSet(%this,depth,refresh,norecurseon) public { Set depth=$get(depth,3),refresh=$get(refresh,0),norecurseon=$get(norecurseon) If ($data(%objTX(1,+%this))) && ('refresh) Quit 1 + Set sc=1,intOref=+%this + If refresh { + Set intPoref=$order(%objTX(1,intOref,2,"")) + While intPoref'="" { Kill %objTX(1,intPoref,3,intOref),%objTX(1,intOref,2,intPoref) Set intPoref=$order(%objTX(1,intOref,2,intPoref)) } + } + Set tDepth=$select(depth'=2:depth,1:1) + Set %objTX(2,intOref)=0 +exit Quit sc } +%RemoveFromSaveSet(%this) public { + If '($data(%objTX(1,+%this))) Quit 1 + Set intRef=+%this + Set intSucc="" For Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intSucc,2,intRef) + Set intPred="" For Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred="" Kill %objTX(1,intPred,3,intRef) + Kill %objTX(1,intRef),%objTX(2,intRef) + Quit 1 } +%SetModified(%this,value) public { Quit 1 } +%ValidateObject(%this,force) Set force=$get(force,0) Quit 1 +zBewaarKolomInfo(%this,DataGridNaam,Gebruiker,KolomInfoLijst) public { Quit ##class(APPS.common.GUI.DataGridService).%New().BewaarKolomInfo("Halux_Planning_PlanningService",DataGridNaam,Gebruiker,KolomInfoLijst) +} +zEvalueerVerplaatsing(%this,Van,Naar,Toeleveringen) public { Set Resultaat = ##class(APPS.Halux.Planning.dto.EvalueerVerplaatsingResultaat).%New() + Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI() + Set BatchEvaluatie = "" + Set ToeleveringIterator = ##class(TECH.ListIterator).%New(Toeleveringen) + While (ToeleveringIterator.HasNext()) + { + Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringIterator.Next()) + Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(Toelevering.GeefToeNr()) + Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering) + If ($IsObject(Batch)) + { + Do Resultaat.Evaluaties.Insert("Deze toelevering zit reeds in een batch en kan beter niet verplaatst worden.") + } + Set HeeftFysiekStockProbleem = 0 + Set ProductLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product()) + While (('HeeftFysiekStockProbleem) && (ProductLijnIterator.HasNext())) + { + Set ProductLijn = ProductLijnIterator.Next() + Set HeeftFysiekStockProbleem = ProductLijn.HeeftFysiekStockProbleem() + } + Set DatumIterator = ##class(TECH.ListIterator).%New(Naar.Lijst) + While (DatumIterator.HasNext()) + { + Set Datum = DatumIterator.Next() + Set VerplaatsingEvaluatie = ##class(APPS.Halux.Planning.dto.VerplaatsingEvaluatie).%New() + Set VerplaatsingEvaluatie.Naar = Datum + If (HeeftFysiekStockProbleem && (Datum < ##class(TECH.DateTime).TimestampToDate(ToeleveringInfo.DueOut))) + { + Do VerplaatsingEvaluatie.Insert("Een toelevering met een stockprobleem wordt best niet naar voor verplaatst.") + } + If (Datum > ##class(TECH.DateTime).TimestampToDate(ToeleveringInfo.DueOut)) + { + Do VerplaatsingEvaluatie.Insert("Een toelevering die naar achter wordt verplaatst krijgt een leverimpact.") + } + Do Resultaat.VerplaatsingEvaluaties.Insert(VerplaatsingEvaluatie) + } + } + Quit Resultaat } +zGeefDueOutAlternatieven(%this,AantalWeken,ToeleveringNummers) public { Set DueOutAlternatiefResultaat = ##class(APPS.Halux.Planning.dto.DueOutAlternatiefResultaat).%New() + Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI() + Set ToeleveringNummersIterator = ##class(TECH.ListIterator).%New(ToeleveringNummers) + While (ToeleveringNummersIterator.HasNext()) + { + Set ToeleveringNummer = ToeleveringNummersIterator.Next() + Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer) + Set VerzendWijze = "" + Set Order = Toelevering.GeefOrder() + If ($IsObject(Order)) + { + Set VerzendWijze = Order.GeefVerzendWijze() + Set LeveringsTermijn = ##class(DOM.VKP.LeveringsTermijn).%New(,VerzendWijze) + Set LeverDag = LeveringsTermijn.GetVroegsteLeverDag(Toelevering.GeefDueOutTime()) + Set LeverDatums = LeveringsTermijn.GetLeverDatums(LeverDag,AantalWeken) + Set DueOutAlternatief = ##class(APPS.Halux.Planning.dto.DueOutAlternatief).%New() + Set DueOutAlternatief.ToeleveringNummer = ToeleveringNummer + For i=2:1:$LL(LeverDatums) // Het eerste item is de dueout zelf + { + Set DueOut = LeveringsTermijn.GetLaatsteProductieTijdstip($LI(LeverDatums,i)) + Do DueOutAlternatief.Data.Insert($zdt(DueOut,3)) + } + Do DueOutAlternatiefResultaat.Lijst.Insert(DueOutAlternatief) + } + } + Quit DueOutAlternatiefResultaat } +zGeefInstellingen(%this) public { Set Instellingen = ##class(APPS.Halux.Planning.dto.ApplicatieInstellingen).%New() + Set Instellingen.WekenVoorHuidige = 2 + Set Instellingen.WekenNaHuidige = 3 + Set ResourceDrempels = ##class(APPS.Halux.Planning.dto.ResourceDrempels).%New() + Set ResourceDrempels.ALUFrees = ..GeefResourceDrempel("ALUFrees") + Set ResourceDrempels.ALUOperator = ..GeefResourceDrempel("ALUOperator") + Set ResourceDrempels.ALUZaag = ..GeefResourceDrempel("ALUZaag") + Set ResourceDrempels.CorpusMontageVerpakken = ..GeefResourceDrempel("CorpusMontageVerpakken") + Set ResourceDrempels.CorpusVoorbereiding = ..GeefResourceDrempel("CorpusVoorbereiding") + Set ResourceDrempels.KartonMachine = ..GeefResourceDrempel("KartonMachine") + Set ResourceDrempels.TBXBoxpressKeller = ..GeefResourceDrempel("TBXBoxpressKeller") + Set ResourceDrempels.TBXBoxpressLijn1 = ..GeefResourceDrempel("TBXBoxpressLijn1") + Set ResourceDrempels.TBXBoxpressLijn2 = ..GeefResourceDrempel("TBXBoxpressLijn2") + Set ResourceDrempels.TBXSpecialsMontage = ..GeefResourceDrempel("TBXSpecialsMontage") + Set ResourceDrempels.TBXVoormontage = ..GeefResourceDrempel("TBXVoormontage") + Set ResourceDrempels.TBXZaag = ..GeefResourceDrempel("TBXZaag") + Set Instellingen.ResourceDrempels = ResourceDrempels + Quit Instellingen } +zGeefKolomInfo(%this,DataGridNaam,Gebruiker) public { Quit ##class(APPS.common.GUI.DataGridService).%New().GeefKolomInfo("Halux_Planning_PlanningService",DataGridNaam,Gebruiker) +} +zGeefPlanningDetail(%this,Datum,Categorie) public { Set DataSet = ##class(%XML.DataSet).%New("APPS.Halux.Planning.impl.Queries:qGeefPlanningDetail") + Do DataSet.SetArgs(Datum, Categorie) + Quit DataSet } +zGeefPlanningOverzicht(%this,Van,Tot) public { If (Van > Tot) + { + Set Hulp = Tot + Set Tot = Van + Set Van = Hulp + } + Set DataSet = ##class(%XML.DataSet).%New("APPS.Halux.Planning.impl.Queries:qGeefPlanningOverzicht") + Do DataSet.SetArgs(Van, Tot) + Quit DataSet } +zGeefResourceDrempel(%this,ID) public { Set ResourceDrempel = ##class(APPS.Halux.Planning.dto.ResourceDrempel).%New() + Set ResourceDrempelData = ##class(APPS.Halux.Planning.impl.ResourceDrempel).%OpenId(ID) + Set ResourceDrempel.Hoog = ResourceDrempelData.Hoog + Set ResourceDrempel.Laag = ResourceDrempelData.Laag + Set ResourceDrempel.VoormiddagHoog = ResourceDrempelData.VoormiddagHoog + Set ResourceDrempel.VoormiddagLaag = ResourceDrempelData.VoormiddagLaag + Quit ResourceDrempel } +zMaakBatch(%this,Lijn,ToeleveringNummers) public { Set Resultaat = ##class(APPS.Halux.Planning.dto.MaakBatchResultaat).%New() + Set Resultaat.IsGeslaagd = 1 + Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI() + Set Toeleveringen = ##class(%Library.ListOfObjects).%New() + Set Iterator = ##class(TECH.ListIterator).%New(ToeleveringNummers) + While (Iterator.HasNext()) + { + Set ToeleveringNummer = Iterator.Next() + Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer) + If ('$IsObject(Toelevering)) + { + Set MaakBatchError = ##class(APPS.Halux.Planning.dto.MaakBatchError).%New() + Set MaakBatchError.ToeleveringNummer = ToeleveringNummer + Do MaakBatchError.Boodschappen.Insert("De toelevering is niet aanwezig in het systeem") + Do Resultaat.Errors.Insert(MaakBatchError) + Set Resultaat.IsGeslaagd = 0 + } + Do Toeleveringen.Insert(Toelevering) + } + If (Resultaat.IsGeslaagd) + { + Set $ZTRAP = "MaakBatchError" + Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefNieuweBatch(Lijn,Toeleveringen) + Set $ZTRAP = "" + Set Status = Batch.Save() + If (('Status)) + { + Set Resultaat.IsGeslaagd = 0 + } + Else + { + Set Resultaat.BatchID = Batch.GeefBatchID() + } + } + Quit Resultaat +MaakBatchError + Set $ZTRAP = "" + Set Resultaat.IsGeslaagd = 0 + Set Exception = ##class(TECH.ExceptionHandler).Catch("APPS.Halux.common.impl.MaakBatchException") + Set Iterator = ##class(TECH.ListIterator).%New(Exception.BatchErrors) + While (Iterator.HasNext()) + { + Set BatchError = Iterator.Next() + Set MaakBatchError = ##class(APPS.Halux.Planning.dto.MaakBatchError).%New() + Set MaakBatchError.ToeleveringNummer = BatchError.ToeleveringNummer + Set MaakBatchError.Boodschappen = BatchError.Boodschappen + Do Resultaat.Errors.Insert(MaakBatchError) + } + Quit Resultaat } +zResyncToeleveringInfo(%this) public { // Om te resyncen gaan we rechtstreeks de event catcher invoken + // Deze events worden echter niet gezien in de rest van het systeem + Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI() + Set GlobalToeleveringen = ##class(%Library.ListOfObjects).%New() + Set ToeIterator = ToeleveringAPI.GeefLeverancierToeleveringIt(6332) + While (ToeIterator.HasNext()) { Do GlobalToeleveringen.Insert(ToeIterator.Next()) } + Set Index = 0 + Set ResultSet=##class(%Library.ResultSet).%New("APPS.Halux.Planning.impl.Queries:qGeefUniekeToeleveringen") + Do ResultSet.Execute() + While ResultSet.Next() { + Set DataToeNr = ResultSet.Data("ToeleveringNummer") + If (Index < GlobalToeleveringen.Count()) + { + Set Index = Index + 1 + Set GlobalToelevering = GlobalToeleveringen.GetAt(Index) + While ((GlobalToelevering.GeefToeNr() < DataToeNr) && (Index < GlobalToeleveringen.Count())) + { + w "Create "_DataToeNr_" "_GlobalToelevering.GeefToeNr(),! + // Zolang de nummers in de global kleiner zijn moeten er nieuwe data items worden aangemaakt + Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(GlobalToelevering) + Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData) + Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent) + Set Index = Index + 1 + Set GlobalToelevering = GlobalToeleveringen.GetAt(Index) + } + If (DataToeNr '= GlobalToelevering.GeefToeNr()) + { + w "Deleted "_DataToeNr_" "_GlobalToelevering.GeefToeNr(),! + // Als de nr in de dataset verschillend is van deze in de global wil dit zeggen dat de nr in de global + // zeker groter is. Het data item mag dus weg. + Set Index = Index - 1 // De huidige waarde uit GlobalToeleveringen moet herbekeken worden + Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(DataToeNr) + Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData) + Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent) + } + Else + { + w "Modified "_DataToeNr_" "_GlobalToelevering.GeefToeNr(),! + // De toeleveringnr komt in beide sets voor + Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(DataToeNr) + Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering) + Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData) + Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringModEventListener(ToeleveringModifiedEvent) + } + } + Else + { + w "Deleted "_DataToeNr_" "_GlobalToelevering.GeefToeNr(),! + // Als er geen volgende toelevering bestaat in de global dan is de opgeslagen data te verwijderen + Set ToeleveringDeletedEventData = ##class(TECH.Events.ToeleveringDeletedEventData).%New(DataToeNr) + Set ToeleveringDeletedEvent = ##class(TECH.Events.ToeleveringDeletedEvent).%New(ToeleveringDeletedEventData) + Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringDeletedEventListener(ToeleveringDeletedEvent) + } + } + While (Index < GlobalToeleveringen.Count()) + { + Set Index = Index + 1 + // Alle overblijvende toeleveringen in de global zijn nieuwe toeleveringen + Set GlobalToelevering = GlobalToeleveringen.GetAt(Index) + w "Create "_GlobalToelevering.GeefToeNr(),! + Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(GlobalToelevering) + Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData) + Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent) + } } +zVerplaatsToeleveringen(%this,Gebruiker,Opmerking,Datum,ToeleveringNummers) public { Set Resultaat = ##class(APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat).%New() + Set Iterator = ##class(TECH.ListIterator).%New(ToeleveringNummers) + While (Iterator.HasNext()) + { + Set ToeleveringsNummer = Iterator.Next() + Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer) + If ($IsObject(ToeleveringInfo)) + { + Do ToeleveringInfo.VerplaatsToelevering(Gebruiker,Opmerking,Datum) + Set Status = ToeleveringInfo.%Save() + If ((+Status)) + { + Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer) + } + Else + { + Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer) + } + } + Else + { + Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer) + } + } + Quit Resultaat } +zVerwijderAlleVerplaatsingen(%this,ToeleveringsNummer) public { Set Resultaat = ##class(APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat).%New() + Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer) + If ($IsObject(ToeleveringInfo)) + { + Do ToeleveringInfo.VerwijderAlleVerplaatsingen() + Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer) + } + Else + { + Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer) + } + Quit Resultaat } +zVerwijderLaatsteVerplaatsing(%this,ToeleveringsNummer) public { Set Resultaat = ##class(APPS.Halux.Planning.dto.VerplaatsToeleveringenResultaat).%New() + Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringsNummer) + If ($IsObject(ToeleveringInfo)) + { + If (ToeleveringInfo.VerwijderLaatsteVerplaatsing()) + { + Do Resultaat.GelukteVerplaatsingen.Insert(ToeleveringsNummer) + } + Else + { + Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer) + } + } + Else + { + Do Resultaat.MislukteVerplaatsingen.Insert(ToeleveringsNummer) + } + Quit Resultaat } \ No newline at end of file Index: csp/tbx/resitems.cls.xml =================================================================== diff -u -r734 -r994 --- csp/tbx/resitems.cls.xml (.../resitems.cls.xml) (revision 734) +++ csp/tbx/resitems.cls.xml (.../resitems.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + JavaScript-file voor dynamisch opbouwen van JS-arrays @@ -8,7 +8,7 @@ %VHMacro 1 %CSP.Page -62066,43836.338713 +62188,62185.888593 60130,33683.468883 0 @@ -125,10 +125,10 @@ ;#define LCExclude4I(%LC) (%LC?1(1"B",1"B/Z",1"D",1"D/Z",1"DLS/Z",1"M/ZS",1"B/ZS",1"D/ZS",1"MY",1"MY/Z",1"DLY",1"DLY/Z",1"CLY",1"CLY/Z")) ; Antaro #define DSExclude4A(%DS) (%DS?1(1"-")) - #define LCExclude4A(%LC) (%LC?1(1"MB",1"G",1"B",1"BS2",1"MS2",1"CMS2")) + #define LCExclude4A(%LC) (%LC?1(1"MB",1"G",1"B",1"BS2")) ;#define LCExclude4A(%LC) (%LC?1(1"M",1"M/Z",1"CM",1"CM/Z",1"MY",1"MY/Z",1"CMY",1"CMY/Z",1"MB",1"G",1"BS2",1"MS2",1"CMS2")) ; Mengvorm A-design - #define DSExclude4MA(%DS) (%DS?1(1"GMxx",1"IMA")) + #define DSExclude4MA(%DS) (%DS?1(1"GMxx",1"IMxx")) #define LCExclude4MA(%LC) (%LC?1(1"DS",1"MS2/Z",1"BS2/Z",1"DS2/Z",1"MB",1"IMB",1"G")) ; Baliko #define DSExclude4B(%DS) (%DS?1(1"-")) @@ -525,5 +525,5 @@ ]]> - + Index: APPS/Halux/common/BatchService.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/common/BatchService.cls.xml (.../BatchService.cls.xml) (revision 954) +++ APPS/Halux/common/BatchService.cls.xml (.../BatchService.cls.xml) (revision 994) @@ -1,39 +1,74 @@ - + 1 %RegisteredObject -62174,40487.602047 +62188,36577.268402 0 BatchID:%Integer APPS.Halux.common.Batch - Toeleveringen van het type DOM.LEV.Toelevering -Toeleveringen:%ListOfObjects +Toeleveringen:%ListOfObjects="",Lijn:APPS.Halux.common.enu.ProductieLijn="" APPS.Halux.common.Batch 0) + { + Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.Halux.common.impl.MaakBatchException).%New(MaakBatchErrorLijst)) + } + Quit Batch ]]> + +TECH.Iterator + + + BatchID:%Integer %Status - @@ -43,26 +78,16 @@ Toelevering:DOM.LEV.Toelevering APPS.Halux.common.Batch - + Index: DOM/CRM/impl/DataM/DataMKlantBase.cls.xml =================================================================== diff -u -r966 -r994 --- DOM/CRM/impl/DataM/DataMKlantBase.cls.xml (.../DataMKlantBase.cls.xml) (revision 966) +++ DOM/CRM/impl/DataM/DataMKlantBase.cls.xml (.../DataMKlantBase.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + JBL + 2011-03-21 vhLib.Macro 1 DOM.CRM.Klant,%RegisteredObject -62174,61538.786485 +62186,41638.189179 0 @@ -29,17 +29,17 @@ 1 - + %String 1 - + %String 1 - + %String 1 @@ -123,6 +123,12 @@ ]]> + +%String + + + DOM.common.Adres + +DOM.CRM.enu.LeveringVoorwaarde + + + %String + +%String + + + %String + +%Boolean + + + + +Piece:%Integer,Waarde:%String +1 + + + Status:DOM.CRM.enu.ActiefStatus + +LeveringVoorwaarde:DOM.CRM.enu.LeveringVoorwaarde + + + Naam:%String 1 + +1 + + 1 - + Index: DOM/PM/Bouwstenen/SchBouwsteenKind.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/SchBouwsteenKind.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/SchBouwsteenKind.cls.xml (revision 994) @@ -0,0 +1,89 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.SchBouwsteen +62173,47220.494092 +59772,53878.611013 +0 + + + +Gebruikt als Type="K" of "H" +Prod.Product + + + +Orgalux -> Verpakkingscode + I = Invidueel : Product dient los verpakt te worden –> te groot om samen met andere in één set verpakt te worden, dus apart etiket + S = Single : Product dient gegroepeerd verpakt te worden -> bv matjes + O = Oververpakking : Markering van de overdoos +voor LINK(niet gebruikt) -> LinkType (wordt alleen gebruikt in de cache) + T = Tweeling (alles hetzelfde behalve identnr, korttekst, langtekst, levref en levtxt + A = Aankoopprijs + V = Verkoopprijs]]> +%String + + + + +Optioneel : Het submagazijn wordt gedefault vanuit KPR maar kan hier over-ruled worden +Waarde : O=Onderdeel, M=Montage, Z=Zaag ,P=Montage Pro +%String + + + + +Optioneel : Het magazijn waaruit de halffabrikaat moeten komen, gedefault vanuit KPR maar kan hier over-ruled worden +Waarde : Leeg of “W” +%String + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + + +Bij het fusioneren van producten dienen ook de bouwstenen vervangen te worden, hier wordt de oude productreferenties bijgehouden +%String + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +1 + + +"\" +16 + + +"\" +20 + + +"\" +12 + + +"\" +15 + + +"\" +14 + + + + + + Index: APPS/PM/OL/ProductRepository.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/PM/OL/ProductRepository.cls.xml (.../ProductRepository.cls.xml) (revision 946) +++ APPS/PM/OL/ProductRepository.cls.xml (.../ProductRepository.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + APPS.PM.OL.Common,,%Prod.Product,BL.Prod 1 %RegisteredObject -62171,39723.959864 +62181,36822.688766 0 @@ -41,8 +41,8 @@ #define IsTBOXplus(%lb) ($$$InList(%lb,"TBX_plus_Reling_of_BXglas"))||($$$InList(%lb,"TBX_plus_Boxside_Ew_of_Dw"))||($$$InList(%lb,"Alle_TBX_geen_bevestigingen_nodig"))||($$$InList(%lb,"NietBlumLade")) #define IsKellerKleur(%lb) ($LG(%lb,1)="")||($$$InList(%lb,"grijs"))||($$$InList(%lb,"inox"))||($$$InList(%lb,"wit")) - #define IsKellerDiepte(%lb) ($LG(%lb,1)="")||($$$InList(%lb,"50"))||($$$InList(%lb,"45")) - #define IsKellerBreedte(%v) (%v?1(1"30",1"40",1"45",1"50",1"60",1"80",1"90",1"100",1"120")) + #define IsKellerDiepte(%lb) ($LG(%lb,1)="")||($$$InList(%lb,"500"))||($$$InList(%lb,"450")) + #define IsKellerBreedte(%v) (%v?1(1"300",1"400",1"450",1"500",1"600",1"800",1"900",1"1000",1"1200")) #define IsKellerWandDikte(%lb) ($LG(%lb,1)="")||($$$InList(%lb,"18")) ;Set ControleToepassen=($$$IsTBOXplus(lbLadeFamilies))&&($$$IsKellerKleur(lbKleurFilter)) @@ -60,5 +60,5 @@ ]]> - + Index: APPS/PM/ProductService/1.int.rou =================================================================== diff -u --- APPS/PM/ProductService/1.int.rou (revision 0) +++ APPS/PM/ProductService/1.int.rou (revision 994) @@ -0,0 +1,301 @@ + ;APPS.PM.ProductService.1 + ;(C)InterSystems, generated for class APPS.PM.ProductService. Do NOT edit. 04/07/2011 10:27:20AM + ;;1232701437C18224;APPS.PM.ProductService + Quit + ; +%ClassName(fullname) public { Quit $select($get(fullname,0):"APPS.PM.ProductService",1:"ProductService") } +%Close(%this) Quit ..%Close() +%ConstructClone(%this,deep,cloned) public { Set deep=$get(deep,0) Set object=%this + If $data(cloned(+object)) Do (cloned(+object)).%IncrementCount() Quit cloned(+object) + Set %this=$zobjnew("APPS.PM.ProductService") + Set cloned(+object)=%this,cloned(+object,0)=object + Quit %this } +%Extends(isclass) public { Quit "~APPS.PM.ProductService~%Library.RegisteredObject~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") } +%GetParameter(paramname) public { Set paramname=$get(paramname) Quit $case(paramname,"PROPERTYVALIDATION":0,:"") } +%IncrementCount(%this) Quit ..%IncrementCount() +%IsA(isclass) public { Quit "~APPS.PM.ProductService~%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.ProductService).%New($get(initvalue)) +} +%NormalizeObject(%this) 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" } + Quit sc +%SerializeObjectERR Set $ZTrap="" If $extract($zerror,1,5)'="" Set sc=$$Error^%apiOBJ(5002,$ZE) + Quit sc +%AddToSaveSet(%this,depth,refresh,norecurseon) public { Set depth=$get(depth,3),refresh=$get(refresh,0),norecurseon=$get(norecurseon) If ($data(%objTX(1,+%this))) && ('refresh) Quit 1 + Set sc=1,intOref=+%this + If refresh { + Set intPoref=$order(%objTX(1,intOref,2,"")) + While intPoref'="" { Kill %objTX(1,intPoref,3,intOref),%objTX(1,intOref,2,intPoref) Set intPoref=$order(%objTX(1,intOref,2,intPoref)) } + } + Set tDepth=$select(depth'=2:depth,1:1) + Set %objTX(2,intOref)=0 +exit Quit sc } +%RemoveFromSaveSet(%this) public { + If '($data(%objTX(1,+%this))) Quit 1 + Set intRef=+%this + Set intSucc="" For Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intSucc,2,intRef) + Set intPred="" For Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred="" Kill %objTX(1,intPred,3,intRef) + Kill %objTX(1,intRef),%objTX(2,intRef) + Quit 1 } +%SetModified(%this,value) public { Quit 1 } +%ValidateObject(%this,force) Set force=$get(force,0) Quit 1 +zControleerDossierNrs(%this,DossierNrs) public { + Set ProductenLijst = ##class(APPS.PM.dto.ProductIDsControleResult).%New() + Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() + Set DossierNrIterator = ##class(TECH.ListIterator).%New(DossierNrs) + While(DossierNrIterator.HasNext()){ + Set DossierNr = DossierNrIterator.Next() + Set IsHerkend = 0 + Set Type = "" + Set Type = $Order(^KPR3(Type)) + While ((Type '= "")) + { + If ($Data(^KPR3(Type,DossierNr))){ + Set Product = ProductAPI.GeefProduct($Get(^KPR3(Type,DossierNr))) + Set ProductIDs = ..GeefProductIDsVanProduct(Product) + For i=1:1:ProductIDs.Count() { + Do ProductenLijst.HerkendeProducten.Insert(ProductIDs.GetAt(i)) + } + Set IsHerkend = 1 + } + Set Type = $Order(^KPR3(Type)) + } + If ('IsHerkend){ + Do ProductenLijst.NietHerkendeProductIDs.Insert(DossierNr) + } + } + Quit ProductenLijst } +zControleerIdentNrs(%this,IdentNrs) public { Set ProductenLijst = ##class(APPS.PM.dto.ProductIDsControleResult).%New() + Set IdentNrIterator = ##class(TECH.ListIterator).%New(IdentNrs) + While(IdentNrIterator.HasNext()){ + Set IdentNr = IdentNrIterator.Next() + Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New() + Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Identnummer() + Set Criteria.ProductID = IdentNr + Set ResultaatLijst = ..ZoekProducten(Criteria) + If (('$IsObject(ResultaatLijst.HerkendeProducten)) || (ResultaatLijst.HerkendeProducten.Count() = 0)){ + Do ProductenLijst.NietHerkendeProductIDs.Insert(IdentNr) + }Else{ + Set ProductIDIt = ##class(TECH.ListIterator).%New(ResultaatLijst.HerkendeProducten) + While(ProductIDIt.HasNext()){ + Set ProductIDs = ProductIDIt.Next() + Do ProductenLijst.HerkendeProducten.Insert(ProductIDs) + } + } + } + Quit ProductenLijst } +zControleerKortteksten(%this,Kortteksten) public { Set ProductenLijst = ##class(APPS.PM.dto.ProductIDsControleResult).%New() + Set KorttekstIterator = ##class(TECH.ListIterator).%New(Kortteksten) + While(KorttekstIterator.HasNext()){ + Set Korttekst = KorttekstIterator.Next() + Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New() + Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Korttekst() + Set Criteria.ProductID = Korttekst + Set ResultaatLijst = ..ZoekProducten(Criteria) + If (('$IsObject(ResultaatLijst.HerkendeProducten)) || (ResultaatLijst.HerkendeProducten.Count() = 0)){ + Do ProductenLijst.NietHerkendeProductIDs.Insert(Korttekst) + }Else{ + Set ProductIDIt = ##class(TECH.ListIterator).%New(ResultaatLijst.HerkendeProducten) + While(ProductIDIt.HasNext()){ + Set ProductIDs = ProductIDIt.Next() + Do ProductenLijst.HerkendeProducten.Insert(ProductIDs) + } + } + } + Quit ProductenLijst } +zControleerPRNrs(%this,PRNrs) public { Set ProductenLijst = ##class(APPS.PM.dto.ProductIDsControleResult).%New() + Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() + Set PRNrIterator = ##class(TECH.ListIterator).%New(PRNrs) + While(PRNrIterator.HasNext()){ + Set PRNr = PRNrIterator.Next() + Set PRNrZoek = PRNr + If ($Find(PRNrZoek,".") '= 0){ + Set PRNrZoek = $Piece(PRNrZoek,".") + } + Set TempProduct = ProductAPI.GeefProduct(PRNrZoek) + If ($IsObject(TempProduct)){ + Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New() + Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Identnummer() + Set Criteria.ProductID = TempProduct.GeefIdentNr() + Set ProductenResultaat = ..ZoekProducten(Criteria) + Set ProductIDIt = ##class(TECH.ListIterator).%New(ProductenResultaat.HerkendeProducten) + While(ProductIDIt.HasNext()){ + Set ProductIDs = ProductIDIt.Next() + If ($IsObject(ProductIDs)){ + If (((ProductIDs.MultipleNr = "") && (PRNr = ProductIDs.PRNr)) || (PRNr = (ProductIDs.PRNr_"."_ProductIDs.MultipleNr))){ + Do ProductenLijst.HerkendeProducten.Insert(ProductIDs) + } + }Else{ + Do ProductenLijst.NietHerkendeProductIDs.Insert(PRNr) + } + } + }Else{ + Do ProductenLijst.NietHerkendeProductIDs.Insert(PRNr) + } + } + Quit ProductenLijst } +zGeefClassificatieStructuur(%this) public { new $ETRAP Set $ETRAP="Do ##class(TECH.Error.impl.ErrorHandler).TrapHandler()" + Set DTOClassificatieRoot = ##class(APPS.PM.dto.Classificatie).%New() + Set DTOClassificatieRoot.Omschrijving = "ROOT" + Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() + /// Doorlopen van hoofdgroepen + Set HoofdgroepClassificatieIt = ProductAPI.GeefClassificaties() + While(HoofdgroepClassificatieIt.HasNext()) + { + Set HoofdgroepClassificatie = HoofdgroepClassificatieIt.Next() + Set Classificatie = ProductAPI.GeefClassificatie(HoofdgroepClassificatie.GeefClassificatieKey()) + If (Classificatie.GeefECType() '= ##class(DOM.PM.enu.PMECType).NietTonen()) + { + Set DTOHoofdgroepClassificatie = ..MaakDTOClassificatie(HoofdgroepClassificatie) + Do DTOClassificatieRoot.SubClassificaties.Insert(DTOHoofdgroepClassificatie) + /// Doorlopen van groepen + Set GroepClassificatieIt = HoofdgroepClassificatie.GeefGroepClassificaties() + While(GroepClassificatieIt.HasNext()) + { + Set GroepClassificatie = GroepClassificatieIt.Next() + Set Classificatie = ProductAPI.GeefClassificatie(GroepClassificatie.GeefClassificatieKey()) + If (Classificatie.GeefECType() '= ##class(DOM.PM.enu.PMECType).NietTonen()) + { + Set DTOGroepClassificatie = ..MaakDTOClassificatie(GroepClassificatie) + Do DTOHoofdgroepClassificatie.SubClassificaties.Insert(DTOGroepClassificatie) + /// Doorlopen van subgroepen + Set SubgroepClassificatieIt = GroepClassificatie.GeefSubgroepClassificaties() + While(SubgroepClassificatieIt.HasNext()) + { + Set SubgroepClassificatie = SubgroepClassificatieIt.Next() + Set Classificatie = ProductAPI.GeefClassificatie(SubgroepClassificatie.GeefClassificatieKey()) + If (Classificatie.GeefECType() '= ##class(DOM.PM.enu.PMECType).NietTonen()) + { + Set DTOSubgroepClassificatie = ..MaakDTOClassificatie(SubgroepClassificatie) + Do DTOGroepClassificatie.SubClassificaties.Insert(DTOSubgroepClassificatie) + } + } + } + } + } + } + Set $ETRAP="" + Quit DTOClassificatieRoot } +zGeefProductIDsVanProduct(%this,Product) public { + Set ProductIDs = ##class(%Library.ListOfObjects).%New() + Set HeeftMultipleGroepen = 0 + Set MultipleGroepenIt = Product.GeefMultipleGroepen() + While (MultipleGroepenIt.HasNext()){ + Set HeeftMultipleGroepen = 1 + Set MultipleGroep = MultipleGroepenIt.Next() + Set MultipleNrs = ##class(BL.Kenm.ProdMulti).Create(MultipleGroep).GetMultiplesLB(Product.GeefPRNr()) + 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 UnIDs = ##class(%Library.ListOfDataTypes).%New() + Do UnIDs.Insert(ProductZoekResultaat.PRNr_"."_ProductZoekResultaat.MultipleNr) + Set Fotos = ##class(DOM.PM.OL.Gamma.impl.FotoZoeker).GetGeprefereerdeFotos(UnIDs) + Set ProductZoekResultaat.ProductAfbeeldingen = ##class(APPS.PM.dto.ProductAfbeeldingen).%New() + If (Fotos.Count() > 0) { + Set ProductZoekResultaat.ProductAfbeeldingen.VoorOpScherm = Fotos.GetAt(1).FotoURL + Set ProductZoekResultaat.ProductAfbeeldingen.VoorHiResPrinting = Fotos.GetAt(1).FotoURL + Set ProductZoekResultaat.ProductAfbeeldingen.Thumbnail = Fotos.GetAt(1).ThumbnailURL + } + } + Do ProductIDs.Insert(ProductZoekResultaat) + } + } + } + If ('HeeftMultipleGroepen) + { + Do ProductIDs.Insert(..Product2ProductIDs(Product)) + } + Quit ProductIDs } +zMaakDTOClassificatie(%this,ClassificatieObject) public { Set Classificatie = ##class(APPS.PM.dto.Classificatie).%New() + Set Classificatie.Code = ClassificatieObject.GeefCode() + Set Classificatie.Omschrijving = ClassificatieObject.GeefNederlands() + Set Classificatie.ClassificatieKey = ClassificatieObject.GeefClassificatieKey() + Quit Classificatie } +zProduct2ProductIDs(%this,Product) public { Set ProductZoekResultaat = ##class(APPS.PM.dto.ProductIDs).%New() + Set ProductZoekResultaat.IdentNr = Product.GeefIdentNr() + Set ProductZoekResultaat.Korttekst = Product.GeefKorttekst() + Set ProductZoekResultaat.PRNr = Product.GeefPRNr() + If ($$ISORGAL^ORGALUX(ProductZoekResultaat.PRNr) && ##class(BL.Prod.ImageLink).HasImage(ProductZoekResultaat.PRNr)){ + Set ProductZoekResultaat.ProductAfbeeldingen = ##class(APPS.PM.dto.ProductAfbeeldingen).%New() + Set ProductZoekResultaat.ProductAfbeeldingen.VoorOpScherm = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductZoekResultaat.PRNr,"THUMBNAIL") + Set ProductZoekResultaat.ProductAfbeeldingen.VoorHiResPrinting = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductZoekResultaat.PRNr,"PRINT") + Set ProductZoekResultaat.ProductAfbeeldingen.Thumbnail = ##class(BL.Prod.ImageLink).%New().GetProductImageURL(ProductZoekResultaat.PRNr,"THUMBNAIL") + } + Quit ProductZoekResultaat } +zZoekProducten(%this,Criteria) public { Set ProductenLijst = ##class(APPS.PM.dto.ProductIDsControleResult).%New() + new $ETRAP Set $ETRAP="Do ##class(TECH.Error.impl.ErrorHandler).TrapHandler()" + If (Criteria.SoortProductID = "") + { + Set Criteria.SoortProductID = ##class(APPS.PM.enu.SoortProductID).Korttekst() + Set Criteria.ProductID = "" + Set Criteria.ExacteKorttekst = 0 + } + Set Usage = "ALL" + Set pxCriteria = ##class(BL.Prod.sub.pxSearchCriteria).%New(Usage) + Do pxCriteria.SetDefault() + If (Criteria.StockType '= ""){ + Set pxCriteria.StockType = $LB(##class(APPS.PM.enu.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) + } + 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.MaxCount = Criteria.MaxAantalResultaten + Set pxCriteria.Alias = $ListBuild("P") + Set pxSearchFormat = ##class(BL.Prod.sub.pxSearchFormat).%New() + Set pxSearchFormat.FormatCompact = "IdentNr;KortTekst" + Set pxSearchFormat.FormatExpand = "" + Set pxSearchFormat.LijnMax = Criteria.MaxAantalResultaten + If ($IsObject(Criteria.Classificaties)){ + Set pxCriteria.Klassificaties = Criteria.Classificaties + } + Do WLIP^vhDBG(127,"Start BL.Prod.Search:Select op "_$ztime($p($h,",",2))) + Set rsSearch=##class(%Library.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() + 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) '= "" )){ + 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 + } + } + If Toevoegen { + Do ProductenLijst.HerkendeProducten.Insert(ProductID) + Set AantalToegevoegde = AantalToegevoegde + 1 + } + } + } + } + Set $ETRAP="" + Quit ProductenLijst } \ No newline at end of file Index: APPS/Halux/Planning/impl/ProductInfo.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/ProductInfo.cls.xml (.../ProductInfo.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/ProductInfo.cls.xml (.../ProductInfo.cls.xml) (revision 994) @@ -1,16 +1,23 @@ - + persistent 1 %Persistent -62175,41339.995895 +62178,28696.68892 0 %Integer + + + + APPS.Halux.Planning.enu.Categorie @@ -27,44 +34,72 @@ %String - -APPS.Halux.Planning.impl.ActiviteitInfo -list + + + + + +%Integer + +ToeleveringInfoID + + + +cascade +ToeleveringInfoID +APPS.Halux.Planning.impl.ToeleveringInfo +ToeleveringIndex + + + +ToeleveringInfoID:%Integer +1 +1 +%Status + + + %Library.CacheStorage ^APPS.Halux.Plan8A9.ProductInfoD ProductInfoDefaultData ^APPS.Halux.Plan8A9.ProductInfoD ^APPS.Halux.Plan8A9.ProductInfoI ^APPS.Halux.Plan8A9.ProductInfoS - -ActiviteitInfoLijst -subnode -"ActiviteitInfoLijst" - +listnode + %%CLASSNAME Aantal - + Categorie - + ProductCode - + StockProbleem + +ToeleveringInfoID + VerpakkingType - + Index: APPS/PM/Maatwerk/OLM/OrgaluxOpMaatFactory.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/PM/Maatwerk/OLM/OrgaluxOpMaatFactory.cls.xml (.../OrgaluxOpMaatFactory.cls.xml) (revision 946) +++ APPS/PM/Maatwerk/OLM/OrgaluxOpMaatFactory.cls.xml (.../OrgaluxOpMaatFactory.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62173,34352.829377 +62185,27356.82012 0 @@ -12,30 +12,27 @@ OrgaluxProduct:DOM.PM.OLProduct.OLProduct,InbouwBreedte:%Integer DOM.PM.OLProduct.OLProduct 1) + { + Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.PM.Maatwerk.OLM.OrgaluxOpMaatException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Er zijn meerdere te vervangen producten in dit orgalux product")) + } + ElseIf (TeVervangenKinderen.Count() = 0) + { + Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.PM.Maatwerk.OLM.OrgaluxOpMaatException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Er zijn geen te vervangen producten in dit orgalux product")) + } + + Set InTeKortenKinderen = InkortInfo.GeefInTeKortenKinderen() + If (InTeKortenKinderen.Count() > 1) + { + Do ##class(TECH.ExceptionHandler).Throw(##class(APPS.PM.Maatwerk.OLM.OrgaluxOpMaatException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Er zijn meerdere in te korten producten in dit orgalux product")) + } + ElseIf (InTeKortenKinderen.Count() = 0) + { + 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 OrgaluxProductOpMaat = "" @@ -52,78 +49,45 @@ Set $Piece(^KPR(PRNr,2),"\",25) = IdentNr // Bepalen van het product dat moet verwijderd worden - Set Label = $Order(^PRBS("BS",PRNr,"")) - While (Label '= "") - { - Set Rec = ^PRBS("BS",PRNr,Label) - If ($Piece(Rec,"\",3) = "K") - { - Set IsInkortbaar = $Piece(Rec, "\", 23) - Set AantalIndienMoederIngekort = $Piece(Rec, "\", 24) - - If (('IsInkortbaar) && (AantalIndienMoederIngekort = 0)) - { - Set TeVerwijderenPRNr = $Piece(Rec,"\",1) - Set Product = ProductAPI.GeefProduct(TeVerwijderenPRNr) - Set Korttekst = Product.GeefKorttekst() - - // Creepy manier om de breedte te bepalen - Set Breedte = $Extract(Korttekst,5,8) - Set LaatsteLetter = $Extract(Breedte,$Length(Breedte),$Length(Breedte)) - If ((LaatsteLetter = "A") || (LaatsteLetter = "S")) Set Breedte = $Extract(Breedte,1,3) - - Set BreedteInTeKortenProduct = Breedte - - Kill ^PRBS("BS",PRNr,Label) - } - } - - Set Label = $Order(^PRBS("BS",PRNr,Label)) - } + + Set TeVervangenProduct = TeVervangenKinderen.GetAt(1).GeefProduct() + Set Korttekst = TeVervangenProduct.GeefKorttekst() - // Berekenen van de ingekorte producten - Set Label = $Order(^PRBS("BS",PRNr,"")) - While (Label '= "") - { - Set Rec = ^PRBS("BS",PRNr,Label) - If ($Piece(Rec,"\",3) = "K") - { - Set IsInkortbaar = $Piece(Rec, "\", 23) - Set AantalIndienMoederIngekort = $Piece(Rec, "\", 24) - If (IsInkortbaar) - { - Set InTeKortenPRNr = $Piece(Rec,"\") - Set InTeKortenProduct = ProductAPI.GeefProduct(InTeKortenPRNr) - - // 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 = 10 * $LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",KenmPRNr,"LadeBreedteAangeraden"),1) // cm -> mm - Set WandDikte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("OL",KenmPRNr,"WandDikte"),1) - If (WandDikte = "") Set WandDikte = 18 - Set BreedteOLProduct = BreedteOLProduct - (2 * WandDikte) - - Set Delta = BreedteOLProduct - BreedteInTeKortenProduct - Set InTeKortenNaar = InbouwBreedte - Delta + // Creepy manier om de breedte te bepalen + Set Breedte = $Extract(Korttekst,5,8) + Set LaatsteLetter = $Extract(Breedte,$Length(Breedte),$Length(Breedte)) + If ((LaatsteLetter = "A") || (LaatsteLetter = "S")) Set Breedte = $Extract(Breedte,1,3) + Set BreedteInTeKortenProduct = Breedte + + Kill ^PRBS("BS",PRNr,TeVervangenKinderen.GetAt(1).GeefID()) + + // Berekenen van de ingekorte producten + Set InTeKortenProduct = InTeKortenKinderen.GetAt(1).GeefProduct() + Set InTeKortenPRNr = InTeKortenProduct.GeefPRNr() + + // 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) + Set ^PRBS("BS",PRNr,"KIND."_VolgendNr) = IngekortProduct.GeefPRNr()_"\"_AantalInTeKorten_"\K\\\\\\\\PROD\" + Kill ^PRBS("BS",PRNr,InTeKortenKinderen.GetAt(1).GeefID()) - Set IngekortProduct = ..BerekenIngekortProduct(InTeKortenPRNr, (InbouwBreedte - Delta), $Piece(Rec,"\",2)) - Set VrijLabel = $Order(^PRBS("BS",PRNr,"KIND.999"),-1) - Set VolgendNr = $E(1000+$Piece(VrijLabel,".",2)+1,2,4) - Set ^PRBS("BS",PRNr,"KIND."_VolgendNr) = IngekortProduct.GeefPRNr()_"\"_AantalIndienMoederIngekort_"\K\\\\\\\\PROD\" - Kill ^PRBS("BS",PRNr,Label) - } - Else - { - If (AantalIndienMoederIngekort '= 0) - { - If (IsInkortbaar '= "") Set $Piece(^PRBS("BS",PRNr,Label),"\",2) = AantalIndienMoederIngekort - } - } - } - - Set Label = $Order(^PRBS("BS",PRNr,Label)) + // Extra toe te voegen + Set Iterator = ##class(TECH.ListIterator).%New(InkortInfo.GeefToeTeVoegenKinderen()) + While (Iterator.HasNext()) + { + Set KindProductInfo = Iterator.Next() + Set $Piece(^PRBS("BS",PRNr,KindProductInfo.GeefID()),"\",2) = KindProductInfo.GeefAantal() } // Product op "niet-stock" plaatsen @@ -192,13 +156,48 @@ Do RECALC^PRODUKT2(PRNr) Do BLDIND^PRODUKT2(PRNr) + Set OriginelePrijs = OrgaluxProduct.GeefPrijs() + + Set Label = $Order(^PRBS("BS",PRNr,"")) + While (Label '= "") + { + // Alle kost items die met een factor rekenen verwijderen + // dit om de berekening voor de toeslag te laten kloppen. + If ($Piece(^PRBS("BS",PRNr,Label),"\",5) '= "") + { + Kill ^PRBS("BS",PRNr,Label) + } + Set Label = $Order(^PRBS("BS",PRNr,Label)) + } + // Herrekenen van het orgalux product met nieuwe kinderen Set Som = 0 Do CALC^PRBS(PRNr,.Som,,,,.NoSa) Set NewPPL=$P(Som,"\") Do PRIJSUPD^PRBSC(PRNr,+$J(NewPPL,0,2),"A","") - Quit ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr) + Set NieuwePrijs = ProductAPI.GeefProduct(PRNr).GeefPrijs() + + Set ToeslagPerBewerking = 3 + + Set Rec="" + Set $P(Rec,"\",2)=1 + Set $P(Rec,"\",3)="S" ; Surplus + Set $P(Rec,"\",4)= (OriginelePrijs - NieuwePrijs + (AantalInTeKorten * ToeslagPerBewerking)) + Set $P(Rec,"\",9)="" ; KostMatID + Set $P(Rec,"\",13) = "Inkorten toeslag + overdoos toeslag" + Set $P(Rec,"\",16)=0 ; Meerwaarde + Set $P(Rec,"\",10)=100 + Set $P(Rec,"\",11)="SURP" + Set ^PRBS("BS",PRNr,"SUR.001")=Rec + + // Herrekenen van het orgalux product met de toeslag + Set Som = 0 + Do CALC^PRBS(PRNr,.Som,,,,.NoSa) + Set NewPPL=$P(Som,"\") + Do PRIJSUPD^PRBSC(PRNr,+$J(NewPPL,0,2),"A","") + + Quit ProductAPI.GeefProduct(PRNr) ]]> @@ -238,5 +237,5 @@ ]]> - + Index: BL/Flow/Facturatie/BulkFacturatie.cls.xml =================================================================== diff -u -r734 -r994 --- BL/Flow/Facturatie/BulkFacturatie.cls.xml (.../BulkFacturatie.cls.xml) (revision 734) +++ BL/Flow/Facturatie/BulkFacturatie.cls.xml (.../BulkFacturatie.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent -62101,49791.851548 +62182,41324.780073 0 @@ -194,8 +194,9 @@ If OrderBonFaktuur="O",$$ISORGAL^FLOWCHK("L",BonNr) Set OrderBonFaktuur=2 Do:OrderBonFaktuur'=2 . Set BulkGroep=$P(^KUL(KLNr,"F",BonNr,1),"\",38) - . Quit:$E(BulkGroep,1,2)="CO" + . Quit:$E(BulkGroep,1,2)="CO" ; Voor consolidatie Orgalux geen controle . Set BonType=$P(^KUL(KLNr,"F",BonNr,1),"\",25) + . Quit:BonType="P" Quit:BonType="M" ; Voor proforma en monster geen controle . Set BonDatum=$P(^KUL(KLNr,"F",BonNr,1),"\",2),CheckBonNr="" . For Set CheckBonNr=$O(^KUL(KLNr,"F",CheckBonNr)) Quit:CheckBonNr="" Do Quit:Check . . Quit:CheckBonNr=BonNr @@ -371,5 +372,5 @@ - + Index: APPS/Halux/Planning/dto/EvalueerVerplaatsingResultaat.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/EvalueerVerplaatsingResultaat.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/EvalueerVerplaatsingResultaat.cls.xml (revision 994) @@ -0,0 +1,20 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62185,30291.891057 +0 + + +%String +list + + + +APPS.Halux.Planning.dto.VerplaatsingEvaluatie +list + + + + Index: DOM/LEV/Toelevering.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/LEV/Toelevering.cls.xml (.../Toelevering.cls.xml) (revision 946) +++ DOM/LEV/Toelevering.cls.xml (.../Toelevering.cls.xml) (revision 994) @@ -1,47 +1,59 @@ - + 1 1 -62161,30342.562287 +62187,31872.301997 0 1 %Integer + 1 %Integer + 1 TECH.Iterator + 1 %String + + +1 +%Date + + 1 -Type:DOM.OV.enu.OrderlijnType +Type:DOM.LEV.enu.ToeleveringLijnType TECH.Iterator + 1 DOM.OV.Order + 1 LijnNr:%Integer DOM.LEV.ToeleveringLijn + - + Index: DOM/CRM/impl/DataM/DataMKlantIterator.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/CRM/impl/DataM/DataMKlantIterator.cls.xml (.../DataMKlantIterator.cls.xml) (revision 903) +++ DOM/CRM/impl/DataM/DataMKlantIterator.cls.xml (.../DataMKlantIterator.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 TECH.Iterator,%RegisteredObject -62153,42692.555347 +62180,59416.167706 0 @@ -43,19 +43,20 @@ %CacheString - + Index: DOM/PM/impl/DataM/DataMProduct.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 946) +++ DOM/PM/impl/DataM/DataMProduct.cls.xml (.../DataMProduct.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + BL.Kenm.Common 1 %RegisteredObject -62168,34068.195504 +62187,43895.729068 62159,61822.534455 0 @@ -13,11 +13,26 @@ 1 + +%String +1 + + %String 1 + +%String +1 + + + +%String +1 + + %Integer 1 @@ -27,8 +42,16 @@ ProductNummer:%Integer %Status @@ -43,6 +66,17 @@ ]]> + +1 +%String + + + 1 %String @@ -54,6 +88,28 @@ ]]> + +1 +%String + + + + +1 +%String + + + %String %String - TECH.Iterator - TECH.Iterator - @@ -108,19 +164,37 @@ ]]> + +%String + + + - -Type is BS of BSS -Type:%String +IsSchaduw:%Boolean 1 %ListOfObjects + +%ListOfDataTypes + 0) && ($Data(MultipleNrs))){ + for i=1:1:$ll(MultipleNrs) + { + Do Multiples.Insert($lg(MultipleNrs,i)) + } + } + } + Quit Multiples +]]> + + TECH.Iterator + + +%Integer + + + + +%Float + + + + +DOM.PM.enu.ActiefStatus + + - + Index: DOM/CRM/impl/DataM/DataMPersoon.cls.xml =================================================================== diff -u --- DOM/CRM/impl/DataM/DataMPersoon.cls.xml (revision 0) +++ DOM/CRM/impl/DataM/DataMPersoon.cls.xml (revision 994) @@ -0,0 +1,116 @@ + + + + +JBL + 2011-03-29 +enkapsulatie van ^PERS +1 +DOM.CRM.impl.DataM.DataMPersoonBase +62180,31568.559499 +0 + + +%Integer +0 + + + +%Boolean +"0" +1 + + + +%Boolean +1 + + + +%Boolean +1 + + + +KlantNummer:%Integer,VolgNummer:%Integer +%Status + + + + +%Status + + + + +%Status + + + + + + + + +1 +%String + + + + + Index: CHUI/Flow/Factuur.cls.xml =================================================================== diff -u -r734 -r994 --- CHUI/Flow/Factuur.cls.xml (.../Factuur.cls.xml) (revision 734) +++ CHUI/Flow/Factuur.cls.xml (.../Factuur.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent -62068,52324.178349 +62179,39060.250877 0 @@ -269,7 +269,8 @@ . If $D(CheckFacturen) Do . . Set Body="Er werden fouten gevonden!"_$C(13),Body=Body_$C(13)_"Van volgende facturen is de mail niet verzonden:"_$C(13),FANr="",Count=0 . . For Set FANr=$O(CheckFacturen(FANr)) Quit:FANr="" Do Quit:Count>99 - . . . Set Count=Count+1,Body=Body_$$EXTNUM^vhDTyp(FANr,0,".T",0)_" - "_CheckFacturen(FANr)_$C(13) + . . . Set KLNr=CheckFacturen(FANr) + . . . Set Count=Count+1,Body=Body_$$EXTNUM^vhDTyp(FANr,0,".T",0)_"- "_$P(^KFA("F",FANr,0,0),"\",6)_" -"_$J(KLNr,6)_" "_$P(^KKL(^KK1(KLNr),0),"\",2)_$C(13) . . If FANr,$O(CheckFacturen(FANr)) Set Body=Body_$C(13)_"En volgende ..." . . Else Set Body=Body_$C(13) . Else Set Body="Geen fouten gevonden.",Subject=Subject_" (geen fouten)" @@ -296,5 +297,5 @@ - + Index: APPS/Halux/Planning/impl/ExplicietePlanning.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/ExplicietePlanning.cls.xml (.../ExplicietePlanning.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/ExplicietePlanning.cls.xml (.../ExplicietePlanning.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent -62174,59517.45301 +62179,47884.749417 0 @@ -18,7 +18,7 @@ De datum die het item had vóór de verplaatsing -%Date +%TimeStamp @@ -28,7 +28,7 @@ -Gebruiker:%String,Opmerking:%String,VerplaatstVan:%Date +Gebruiker:%String,Opmerking:%String,VerplaatstVan:%TimeStamp 1 1 %Status @@ -61,16 +61,13 @@ Opmerking -VerplaatstVan +VerplaatstOp -VerplaatstOp +VerplaatstVan - -ToeleveringsNummer - - + Index: DOM/OV/impl/DataM/DataMBonlijnFactory.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/impl/DataM/DataMBonlijnFactory.cls.xml (.../DataMBonlijnFactory.cls.xml) (revision 946) +++ DOM/OV/impl/DataM/DataMBonlijnFactory.cls.xml (.../DataMBonlijnFactory.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + 1 %RegisteredObject @@ -13,25 +13,25 @@ - + Index: DOM/PM/OLProduct/impl/OLKindProductInfoImpl.cls.xml =================================================================== diff -u --- DOM/PM/OLProduct/impl/OLKindProductInfoImpl.cls.xml (revision 0) +++ DOM/PM/OLProduct/impl/OLKindProductInfoImpl.cls.xml (revision 994) @@ -0,0 +1,56 @@ + + + +1 +%RegisteredObject,DOM.PM.OLProduct.OLKindProductInfo +62180,42155.690347 +0 + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +KindProduct:DOM.PM.Product,Aantal:%Integer,ID:%String +1 +1 +%Status + + + + +%String + + + + +%Integer + + + + +DOM.PM.Product + + + + + Index: DOM/PM/Maatwerk/Calc/HF/impl/HFItemBuilderException.cls.xml =================================================================== diff -u --- DOM/PM/Maatwerk/Calc/HF/impl/HFItemBuilderException.cls.xml (revision 0) +++ DOM/PM/Maatwerk/Calc/HF/impl/HFItemBuilderException.cls.xml (revision 994) @@ -0,0 +1,56 @@ + + + +1 +%RegisteredObject,TECH.IException +62189,57107.275425 +0 + + +DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder +1 + + + +%String +1 + + + +%String +1 + + + +HFItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,ErrorBoodschap:%String,ProbleemOmschrijving:%String +1 +1 +%Status + + + + +%String + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + + Index: APPS/common/impl/StockOverKinderen.cls.xml =================================================================== diff -u -r949 -r994 --- APPS/common/impl/StockOverKinderen.cls.xml (.../StockOverKinderen.cls.xml) (revision 949) +++ APPS/common/impl/StockOverKinderen.cls.xml (.../StockOverKinderen.cls.xml) (revision 994) @@ -1,10 +1,11 @@ - + %Prod.Product 1 %RegisteredObject -62173,60871.995502 +62189,58400.222939 +62179,29563.115053 0 @@ -27,7 +28,7 @@ 1 - + %Integer array 1 @@ -64,6 +65,12 @@ ]]> + +StockType:APPS.common.enu.StockType + + + PRNr 1 @@ -115,7 +122,7 @@ set ..Kinderen = ..BepaalKinderen(..MoederPRNr) if (..StockType = $$$enuStockType.Praktisch()) || (..StockType = $$$enuStockType.Theoretisch()) { - do ..BepaalAantalKinderenOpOrder() + do ..BepaalAantalKinderenInOrder() } if ..StockType = $$$enuStockType.Theoretisch() { @@ -140,13 +147,12 @@ - + %ArrayOfDataTypes 0 do arMoedersOpOrder.SetAt(AantalInOrder,Moeder) + if AantalInOrder>0 do arMoedersInOrder.SetAt(AantalInOrder,Moeder) } } - quit arMoedersOpOrder + quit arMoedersInOrder ]]> - + 1 @@ -260,7 +266,7 @@ while itKinderen.HasNext() { do itKinderen.Next() set Kind = itKinderen.Key() - set AantalInOrder = ..KinderenOpOrder.GetAt(Kind) + set AantalInOrder = ..KinderenInOrder.GetAt(Kind) set AantalInToelev = ..KinderenInToelevering.GetAt(Kind) set AantalInReservatie = ..KinderenInReservatie.GetAt(Kind) set FysischeStock = ..FysischeStock(Kind) @@ -290,5 +296,5 @@ ]]> - + Index: DOM/CRM/impl/KlantImpl.cls.xml =================================================================== diff -u -r966 -r994 --- DOM/CRM/impl/KlantImpl.cls.xml (.../KlantImpl.cls.xml) (revision 966) +++ DOM/CRM/impl/KlantImpl.cls.xml (.../KlantImpl.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 DOM.CRM.Klant,%RegisteredObject -62174,60360.613078 +62186,41134.299221 0 @@ -59,6 +59,12 @@ ]]> + +%String + + + DOM.common.Adres + +DOM.CRM.enu.LeveringVoorwaarde + + + %String + +%String + + + %String + +%ListOfObjects + + + %String + +%Boolean + + + Status:DOM.CRM.enu.ActiefStatus + +LeveringVoorwaarde:DOM.CRM.enu.LeveringVoorwaarde + + + Naam:%String - + Index: BL/PPS/TBX/DocsProPlus.cls.xml =================================================================== diff -u -r946 -r994 --- BL/PPS/TBX/DocsProPlus.cls.xml (.../DocsProPlus.cls.xml) (revision 946) +++ BL/PPS/TBX/DocsProPlus.cls.xml (.../DocsProPlus.cls.xml) (revision 994) @@ -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 -62168,58852.833069 +62185,47408.999012 60997,54476.941438 0 @@ -132,14 +132,14 @@ . Set sc=..VHossXMLToFile() . Do WL^vhDBG("Status VHossDocs: "_$$ParseStatus^vhLib(sc)) ;update in batch - Set oBatch=##class(DS.PPS.TBX.Batch).%OpenId(..BatchID) - Set PrintList=oBatch.PrintList + Set PrintLijstInfo = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(..BatchID) + Set PrintList=PrintLijstInfo.PrintLijst For i=1:1:$L(Opties) Do . Set Optie=$E(Opties,i) . If Optie="P" Set Optie="PE" . If '$LF(PrintList,Optie) Set PrintList=PrintList_$LB(Optie) - Set oBatch.PrintList=PrintList - Do oBatch.%Save() + Set PrintLijstInfo.PrintLijst = PrintList + Do PrintLijstInfo.%Save() ]]> @@ -863,8 +863,9 @@ If HFPRNr=53820 Quit "KELLER 430" If HFPRNr=261040 Quit "KELLER CHROOM" If HFPRNr=74660 Quit "BLANK SYM. 330" - If HFPRNr=432117 Quit "KELLER 330" + If HFPRNr=432117 Quit "KELLER 330" ; Bestaat niet meer If HFPRNr?1(1"24665",1"24666") Quit "BLANK LI+RE" + If HFPRNr=626038 Quit "KELLER 330" Quit "#onbekend" ]]> @@ -1068,5 +1069,5 @@ - + Index: APPS/Web/OLParticulier/impl/ConstraintCreator/KellerAfmetingCreator.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/Web/OLParticulier/impl/ConstraintCreator/KellerAfmetingCreator.cls.xml (.../KellerAfmetingCreator.cls.xml) (revision 734) +++ APPS/Web/OLParticulier/impl/ConstraintCreator/KellerAfmetingCreator.cls.xml (.../KellerAfmetingCreator.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 APPS.Web.OLParticulier.impl.ConstraintCreator.OrgaluxAfmetingCreator -62067,56313.664341 +62189,28253.443563 0 @@ -27,7 +27,7 @@ - + Index: DOM/OV/impl/DataM/DataMBonInFactuur.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/OV/impl/DataM/DataMBonInFactuur.cls.xml (.../DataMBonInFactuur.cls.xml) (revision 903) +++ DOM/OV/impl/DataM/DataMBonInFactuur.cls.xml (.../DataMBonInFactuur.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 DOM.OV.impl.DataM.DataMBonAbstract -62158,38958.202914 +62173,56270.348643 0 @@ -41,18 +41,18 @@ ]]> - + TECH.Iterator - -Type:DOM.OV.enu.BonlijnType + +Type:DOM.OV.enu.BonLijnType TECH.Iterator - + Index: APPS/Halux/common/Batch.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/Halux/common/Batch.cls.xml (.../Batch.cls.xml) (revision 946) +++ APPS/Halux/common/Batch.cls.xml (.../Batch.cls.xml) (revision 994) @@ -1,31 +1,60 @@ - + 1 1 -62159,57249.961387 +62188,34981.915456 0 1 %Integer + +1 +%TimeStamp + + 1 Toelevering:DOM.LEV.Toelevering -%Status - + 1 -%String +Toelevering:DOM.LEV.Toelevering +%Boolean - + 1 -%Status + + +1 +TECH.Iterator + + + +1 +APPS.Halux.common.enu.ProductieGroep + + + +1 +APPS.Halux.common.enu.ProductieLijn + + + +1 +ProductieLijn:APPS.Halux.common.enu.ProductieLijn + + + +1 +%Boolean + - + Index: DOM/OV/enu/OrderLijnType.cls.xml =================================================================== diff -u --- DOM/OV/enu/OrderLijnType.cls.xml (revision 0) +++ DOM/OV/enu/OrderLijnType.cls.xml (revision 994) @@ -0,0 +1,41 @@ + + + +datatype +1 +%String +62173,55443 + + +,KF11,KF1925,KF0 + + + +1 + + + + +1 + + + + +1 + + + + + Index: APPS/PM/OL/LadeBreedteAangeradenBuilder.cls.xml =================================================================== diff -u -r734 -r994 --- APPS/PM/OL/LadeBreedteAangeradenBuilder.cls.xml (.../LadeBreedteAangeradenBuilder.cls.xml) (revision 734) +++ APPS/PM/OL/LadeBreedteAangeradenBuilder.cls.xml (.../LadeBreedteAangeradenBuilder.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + APPS.PM.OL.Common 1 APPS.PM.OL.KenmerkBuilderOL -62082,58002.072838 +62181,55439.391645 0 @@ -36,13 +36,13 @@ if ( $length(LadeBreedteMax)) && ( '$length(LadeBreedteMin)) { set LadeBreedteAangeradenMax = $justify(LadeBreedteMax,0,0) - set LadeBreedteAangeradenMin = LadeBreedteAangeradenMax - 20 + set LadeBreedteAangeradenMin = LadeBreedteAangeradenMax - 200 do ..AantepassenKenmerken.SetAt(LadeBreedteAangeradenMax,"LadeBreedteMaxAangeraden") do ..AantepassenKenmerken.SetAt(LadeBreedteAangeradenMin,"LadeBreedteMinAangeraden") } elseif ( '$length(LadeBreedteMax)) && ( $length(LadeBreedteMin)) { set LadeBreedteAangeradenMin = $justify(LadeBreedteMin,0,0) - set LadeBreedteAangeradenMax = LadeBreedteAangeradenMin + 20 + set LadeBreedteAangeradenMax = LadeBreedteAangeradenMin + 200 do ..AantepassenKenmerken.SetAt(LadeBreedteAangeradenMax,"LadeBreedteMaxAangeraden") do ..AantepassenKenmerken.SetAt(LadeBreedteAangeradenMin,"LadeBreedteMinAangeraden") } @@ -82,5 +82,5 @@ ]]> - + Index: DOM/CRM/dto/PersoonConnect.cls.xml =================================================================== diff -u --- DOM/CRM/dto/PersoonConnect.cls.xml (revision 0) +++ DOM/CRM/dto/PersoonConnect.cls.xml (revision 994) @@ -0,0 +1,31 @@ + + + + +JBL + 2011-03-29 +1 +%RegisteredObject +62179,39521.544915 +0 + + +%Integer + + + + +TYPE +T = Telefoon +F = Fax +G = GSM +E = Email +P = PrivéTelefoon +%String + + + +%String + + + + Index: DOM/CRM/Klant.cls.xml =================================================================== diff -u -r966 -r994 --- DOM/CRM/Klant.cls.xml (.../Klant.cls.xml) (revision 966) +++ DOM/CRM/Klant.cls.xml (.../Klant.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 1 -62174,60367.744263 +62186,41081.967257 0 @@ -36,6 +36,11 @@ DOM.common.Adres + +1 +%String + + 1 DOM.CRM.enu.ActiefStatus @@ -68,6 +73,11 @@ %String + +1 +DOM.CRM.enu.LeveringVoorwaarde + + 1 %Integer @@ -83,11 +93,23 @@ %Integer + +1 +%String + + 1 %String + +1 +%ListOfObjects + + + 1 %String @@ -170,6 +192,11 @@ Email:%String + +1 +LeveringVoorwaarde:DOM.CRM.enu.LeveringVoorwaarde + + 1 Tijdstip:%Date @@ -180,6 +207,11 @@ 1 Telefoon1:%String + + +1 +%Boolean + - + Index: BL/PPS/TBX/ToeleveringProductInfo.cls.xml =================================================================== diff -u --- BL/PPS/TBX/ToeleveringProductInfo.cls.xml (revision 0) +++ BL/PPS/TBX/ToeleveringProductInfo.cls.xml (revision 994) @@ -0,0 +1,39 @@ + + + +1 +%RegisteredObject +62189,36850.089852 +0 + + +%Integer + + + +%Integer + + + +%Integer + + + +%Integer + + + +%Integer + + + +%Integer + + + +%String + + + + + Index: DOM/OV/Bon.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/OV/Bon.cls.xml (.../Bon.cls.xml) (revision 903) +++ DOM/OV/Bon.cls.xml (.../Bon.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 1 -62154,28901.707535 +62173,56234.204162 0 @@ -14,23 +14,25 @@ %Date + 1 %Integer + - + 1 TECH.Iterator - + 1 -Type:DOM.OV.enu.BonlijnType +Type:DOM.OV.enu.BonLijnType TECH.Iterator - + Index: DOM/LEV/TekstToeleveringLijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/LEV/TekstToeleveringLijn.cls.xml (.../TekstToeleveringLijn.cls.xml) (revision 946) +++ DOM/LEV/TekstToeleveringLijn.cls.xml (.../TekstToeleveringLijn.cls.xml) (revision 994) @@ -1,16 +1,16 @@ - + 1 1 DOM.LEV.ToeleveringLijn -62160,40745.062753 +62174,42945.598686 0 1 %String - + Index: DOM/OV/impl/DataM/DataMOrderVerwijzingOrderlijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/impl/DataM/DataMOrderVerwijzingOrderlijn.cls.xml (.../DataMOrderVerwijzingOrderlijn.cls.xml) (revision 946) +++ DOM/OV/impl/DataM/DataMOrderVerwijzingOrderlijn.cls.xml (.../DataMOrderVerwijzingOrderlijn.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + 1 DOM.OV.impl.DataM.DataMOrderlijn,DOM.OV.OrderVerwijzingOrderlijn @@ -17,7 +17,7 @@ // Initialize object first Set Super = ##super(Order,LijnNr, LijnInfo) If (LijnInfo = "") { - Set $Piece(..LijnInfo,"\",17) = ##class(DOM.OV.enu.OrderlijnType).OrderVerwijzing() + Set $Piece(..LijnInfo,"\",17) = ##class(DOM.OV.enu.OrderLijnType).OrderVerwijzing() } Quit Super ]]> @@ -96,5 +96,5 @@ ]]> - + Index: APPS/CRM/impl/VerslagDetail.cls.xml =================================================================== diff -u --- APPS/CRM/impl/VerslagDetail.cls.xml (revision 0) +++ APPS/CRM/impl/VerslagDetail.cls.xml (revision 994) @@ -0,0 +1,121 @@ + + + +vhLib.Macro +1 +%RegisteredObject +62189,57619.814997 +0 + + +Derde.Agenda.Agenda +1 + + + +DOM.CRM.KlantAPI +1 + + + +AgendaID +1 +1 +%Status + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + +%String + + + + + Index: DOM/OV/impl/DataM/DataMBonInProforma.cls.xml =================================================================== diff -u -r903 -r994 --- DOM/OV/impl/DataM/DataMBonInProforma.cls.xml (.../DataMBonInProforma.cls.xml) (revision 903) +++ DOM/OV/impl/DataM/DataMBonInProforma.cls.xml (.../DataMBonInProforma.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 DOM.OV.impl.DataM.DataMBonAbstract -62158,38964.678213 +62173,56279.139518 0 @@ -41,18 +41,18 @@ ]]> - + TECH.Iterator - -Type:DOM.OV.enu.BonlijnType + +Type:DOM.OV.enu.BonLijnType TECH.Iterator - + Index: DOM/PM/Bouwstenen/BouwsteenTijd.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/BouwsteenTijd.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/BouwsteenTijd.cls.xml (revision 994) @@ -0,0 +1,66 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.Bouwsteen +62173,38760.439111 +59772,53878.611013 + + + +Gebruikt als Type="T" +Float in SEC met 1 cijfer na de comma +Tijd in seconde gebruikt voor het berekenen van de planning +%Float + + + + +Gebruikt als Type="T" +Float in SEC met 1 cijfer na de comma +Tijd in seconde gebruikt voor het berekenen van de kost te samen met de kostplaats +%Float + + + + +Gebruikt als Type="T" +Float in SEC met 1 cijfer na de comma +Kostplaats gebruikt voor het berekenen van de TijdKost naar KostSupplement +Zie ^RES("PRBS","PI","KOSTPLAATS",... +%Float + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +9 + + +"\" +16 + + +"\" +8 + + +"\" +7 + + + + + + Index: APPS/Halux/Planning/dto/DueOutAlternatief.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/DueOutAlternatief.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/DueOutAlternatief.cls.xml (revision 994) @@ -0,0 +1,19 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62179,41318.364283 +0 + + +%TimeStamp +list + + + +%Integer + + + + Index: DOM/PM/Bouwstenen/BouwsteenHalfFabr.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/BouwsteenHalfFabr.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/BouwsteenHalfFabr.cls.xml (revision 994) @@ -0,0 +1,89 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.Bouwsteen +62173,38447.912415 +59772,53878.611013 +0 + + + +Gebruikt als Type="K" of "H" +Prod.Product + + + +Orgalux -> Verpakkingscode + I = Invidueel : Product dient los verpakt te worden –> te groot om samen met andere in één set verpakt te worden, dus apart etiket + S = Single : Product dient gegroepeerd verpakt te worden -> bv matjes + O = Oververpakking : Markering van de overdoos +voor LINK(niet gebruikt) -> LinkType (wordt alleen gebruikt in de cache) + T = Tweeling (alles hetzelfde behalve identnr, korttekst, langtekst, levref en levtxt + A = Aankoopprijs + V = Verkoopprijs]]> +%String + + + + +Optioneel : Het submagazijn wordt gedefault vanuit KPR maar kan hier over-ruled worden +Waarde : O=Onderdeel, M=Montage, Z=Zaag ,P=Montage Pro +%String + + + + +Optioneel : Het magazijn waaruit de halffabrikaat moeten komen, gedefault vanuit KPR maar kan hier over-ruled worden +Waarde : Leeg of “W” +%String + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + + +Bij het fusioneren van producten dienen ook de bouwstenen vervangen te worden, hier wordt de oude productreferenties bijgehouden +%String + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +1 + + +"\" +16 + + +"\" +20 + + +"\" +12 + + +"\" +15 + + +"\" +14 + + + + + + Index: APPS/PM/OL/ExcelImport.cls.xml =================================================================== diff -u -r917 -r994 --- APPS/PM/OL/ExcelImport.cls.xml (.../ExcelImport.cls.xml) (revision 917) +++ APPS/PM/OL/ExcelImport.cls.xml (.../ExcelImport.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + APPS.PM.OL.Common,%Prod.Product,BL.Derde.KlantSpecifiek 1 %RegisteredObject -62125,36998.501917 +62187,65578.291675 0 @@ -88,6 +88,13 @@ 1 + + +Beheert de verwerkingslog van de huidige import, voor iedere lijn (uit de excel) +APPS.PM.OL.ImportChecker +1 + + Houdt info van de huidige import bij, voor de producten gekoppeld aan dit object (MASTER = meerdere OL-producten. @@ -114,7 +121,8 @@ @@ -186,14 +220,20 @@ Set sc=##class(APPS.PM.OL.ExcelImport).TextFileToGlobal(Dir,FName,.SubNode) Quit:($$$ISERR(sc)) sc + // Analyse van de data before import + Set sc=..ConsistencyCheckBeforeImport(SubNode) + Quit:($$$ISERR(sc)) sc + Write !,"Wait 3 seconds before import",! + Hang 3 + // Parse data-lijnen Set RowIsHeader=1 Set i="" For { Set i=$O(^HULP(SubNode,i)) Quit:(i="") ; Exit For Set LijnID=i Set Lijn=$G(^HULP(SubNode,i)) - Set lbData=$$PiecesToListRemoveQuotes(Lijn,$$$TAB) + Set lbData=..PiecesToListRemoveQuotes(Lijn,$$$TAB) Set:(RowIsHeader) sc=..ParseHeaderLijn(lbData,.RowIsHeader) Set:('RowIsHeader) sc=..ParseDataLijn(lbData,LijnID) @@ -212,8 +252,14 @@ w !,"Nog uit te voeren (met flagReadOnly=0) : s sc=##class(APPS.PM.OL.ExcelImport).AfterImport(flagReadOnly) w sc,!",! Write !,! Quit $$$OK +]]> + -PiecesToListRemoveQuotes(Pieces,Sep) + +Pieces:%String,Sep:%String +1 +%List + + +SubNode:%String +1 +%Status + + + + + +Parse data columns (kenmerken) only for ConsistencyCheckBeforeImport() + +1 +%Status + + + +IsBeforeImport:%Boolean=0 1 @@ -343,6 +475,7 @@ %Status - - -Oproepen via : - s sc=##class(APPS.PM.OL.ExcelImport).UnitTestVarKM() w sc,! -1 -%Status - +", "", "", "OL.BO506010BESTEKLADE", "", "", "", "", "", "", "", "", "", "x", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "http://res.vanhoecke.be/Images/ORGALUX/BO506010.jpg", "{-O}", "ORGALINE", "", "", "", "", "", "", "", "", 50, "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "Antislipmat_AanTeRaden_SepBestellen", "", "", "", "") ;Set lbDataMasterVoor=$LB("master", "45;50;55;60;65", "", "", "", "", "", "") Set lbDataBasis=$LB("", 375545, "", "15OL09WNB01C35/OL OLB N5040S39BESTNOOT ", "", "", "", "OL.BN5040S3BEST NOOT", "", "", "", "", "", "", "", "", "", "x", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "http://res.vanhoecke.be/Images/ORGALUX/BN5040S3.jpg", "Kruidenhouder met 7 aluminium kruidendoosjes met stift, inzet voor 6 liggende kruiden en messenblok voor 3 messen", "WOODLINE_Noot", "", "", "", "", 40, 40, "", "", 50, "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "Messenblok geleverd zonder messen", "Stift", "Past_niet_in_Binnenlade", "", "") @@ -807,13 +942,10 @@ Quit sc Quit $$$ISOK(sc) -]]> - +} - -lbData:%String,liPRNr:%Integer -%Status - - +} +*/ +]]> + - + Index: APPS/PM/ProductOpOrderLijnIt.cls.xml =================================================================== diff -u --- APPS/PM/ProductOpOrderLijnIt.cls.xml (revision 0) +++ APPS/PM/ProductOpOrderLijnIt.cls.xml (revision 994) @@ -0,0 +1,110 @@ + + + +1 +TECH.Iterator,%RegisteredObject +62180,28851.823345 +62173,58336.861889 +0 + + +%Integer +1 + + + +%String +1 + + + +%String +1 + + + +DOM.OV.OrderAPI +1 + + + +ProductNr:%Integer +1 +1 +%Status + + + + +HuidigeIndex:%Integer +1 +%String + + + + +Index:%String +1 +%Integer + + + + +%Boolean + + + + +%CacheString + + + + +Lijn:%String +%Boolean + + + + +HuidigeIndex:%Integer +1 + + + + + FishEye: Tag 994 refers to a dead (removed) revision in file `DOM/OV/enu/OrderlijnType.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: DOM/PM/Bouwstenen/BouwsteenKind.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/BouwsteenKind.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/BouwsteenKind.cls.xml (revision 994) @@ -0,0 +1,89 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.Bouwsteen +62173,47162.670495 +59772,53878.611013 +0 + + + +Gebruikt als Type="K" of "H" +Prod.Product + + + +Orgalux -> Verpakkingscode + I = Invidueel : Product dient los verpakt te worden –> te groot om samen met andere in één set verpakt te worden, dus apart etiket + S = Single : Product dient gegroepeerd verpakt te worden -> bv matjes + O = Oververpakking : Markering van de overdoos +voor LINK(niet gebruikt) -> LinkType (wordt alleen gebruikt in de cache) + T = Tweeling (alles hetzelfde behalve identnr, korttekst, langtekst, levref en levtxt + A = Aankoopprijs + V = Verkoopprijs]]> +%String + + + + +Optioneel : Het submagazijn wordt gedefault vanuit KPR maar kan hier over-ruled worden +Waarde : O=Onderdeel, M=Montage, Z=Zaag ,P=Montage Pro +%String + + + + +Optioneel : Het magazijn waaruit de halffabrikaat moeten komen, gedefault vanuit KPR maar kan hier over-ruled worden +Waarde : Leeg of “W” +%String + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + + +Bij het fusioneren van producten dienen ook de bouwstenen vervangen te worden, hier wordt de oude productreferenties bijgehouden +%String + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +1 + + +"\" +16 + + +"\" +20 + + +"\" +12 + + +"\" +15 + + +"\" +14 + + + + + + Index: APPS/Halux/common/impl/ToeleveringException.cls.xml =================================================================== diff -u --- APPS/Halux/common/impl/ToeleveringException.cls.xml (revision 0) +++ APPS/Halux/common/impl/ToeleveringException.cls.xml (revision 994) @@ -0,0 +1,50 @@ + + + +1 +%RegisteredObject,TECH.IException +62179,29774.715722 +0 + + +APPS.Halux.common.impl.BatchError + + + +BatchError:APPS.Halux.common.impl.BatchError +1 +1 +%Status + + + + +%String + + + + +TECH.enu.ExceptionCode + + + + +%String + + + + + Index: APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/ActiviteitInfoTBX.cls.xml (.../ActiviteitInfoTBX.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.PM.Maatwerk.Calc.Kost.IKostItemVisitor -62175,38722.215105 +62180,53884.910591 0 @@ -135,23 +135,23 @@ 1 - + Index: DOM/PM/Bouwstenen/SchBouwsteenKost.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/SchBouwsteenKost.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/SchBouwsteenKost.cls.xml (revision 994) @@ -0,0 +1,54 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.SchBouwsteen +62173,47327.727888 +59772,53878.611013 +0 + + + +Gebruikt als Type="S" +Extra kost die bijgeteld wordt bij de totale kost van het product +%Float + + + + +Gebruikt als Type="T" +Float in SEC met 1 cijfer na de comma +Kostplaats gebruikt voor het berekenen van de TijdKost naar KostSupplement +Zie ^RES("PRBS","PI","KOSTPLAATS",... +%Float + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +9 + + +"\" +4 + + +"\" +16 + + + + + + FishEye: Tag 994 refers to a dead (removed) revision in file `DOM/HR/Protime/Werkrooster.cls.xml'. FishEye: No comparison available. Pass `N' to diff? Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml =================================================================== diff -u -r954 -r994 --- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml (.../ResourceGebruikCalculator.cls.xml) (revision 954) +++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml (.../ResourceGebruikCalculator.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject -62175,41494.04427 +62179,42370.626249 0 @@ -31,10 +31,10 @@ Else { Set ..ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%New() + Set ..ToeleveringInfo.ToeleveringNummer = Toelevering.GeefToeNr() If (Toelevering.GeefDueOutTime() '= "") { - Set ..ToeleveringInfo.ToeleveringNummer = Toelevering.GeefToeNr() - Set ..ToeleveringInfo.Dag = $Piece(Toelevering.GeefDueOutTime(),",") + Set ..ToeleveringInfo.Gepland = $zdt(Toelevering.GeefDueOutTime(),3) } } @@ -70,6 +70,12 @@ Set ..ToeleveringInfo.Klant = "Stock" } + Do ..ToeleveringInfo.%Save() + + Set ToeleveringInfoID = ..ToeleveringInfo.%Id() + + &SQL(DELETE FROM APPS_Halux_Planning_impl.ProductInfo WHERE ToeleveringInfoID = :ToeleveringInfoID) + Do ..BerekenProductInfo(..Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product())) Quit ..ToeleveringInfo @@ -80,7 +86,6 @@ ProductToeleveringLijnIterator:TECH.Iterator 1 @@ -146,5 +166,5 @@ ]]> - + Index: CHUI/PPS/TBX/LeanBatch/1.int.rou =================================================================== diff -u --- CHUI/PPS/TBX/LeanBatch/1.int.rou (revision 0) +++ CHUI/PPS/TBX/LeanBatch/1.int.rou (revision 994) @@ -0,0 +1,721 @@ + ;CHUI.PPS.TBX.LeanBatch.1 + ;(C)InterSystems, generated for class CHUI.PPS.TBX.LeanBatch. Do NOT edit. 04/07/2011 03:10:56PM + ;;7216486E3A1C89E0;CHUI.PPS.TBX.LeanBatch + Quit + ; + /* + */ + /* + Set MyLB=$$$LBDeleteAt(MyLB,5) ; Verouderde versie: correct, maar lagere performantie. + $$$DoLBDeleteAt(MyLB,5) + $$$DoLBDeleteAtIf(Cond,MyLB,5) + If (cond) $$$DoLBDeleteAt(MyLB,5) + */ +%ClassName(fullname) public { Quit $select($get(fullname,0):"CHUI.PPS.TBX.LeanBatch",1:"LeanBatch") } +%Close(%this) Quit ..%Close() +%ConstructClone(%this,deep,cloned) public { Set deep=$get(deep,0) Set object=%this + If $data(cloned(+object)) Do (cloned(+object)).%IncrementCount() Quit cloned(+object) + Set %this=$zobjnew("CHUI.PPS.TBX.LeanBatch") + Set cloned(+object)=%this,cloned(+object,0)=object + Set $zobjval(,1)=$zobjval(object,1),$zobjval(,2)=$zobjval(object,2),$zobjval(,3)=$zobjval(object,3) + Merge $zobjval(,4,0)=$zobjval(object,4,0),$zobjval(,5,0)=$zobjval(object,5,0),$zobjval(,8,0)=$zobjval(object,8,0) + Set $zobjval(,6)=$zobjval(object,6),$zobjval(,7)=$zobjval(object,7),$zobjval(,9)=$zobjval(object,9) + Set $zobjval(,10)=$zobjval(object,10) + If deep>0 { + If object.BatchProductInfo'="" Set $zobjval(,3,0)=$zobjval(object,3,0).%ConstructClone(1,.cloned) If $zobjval(,3,0)'="" Do ($zobjval(,3,0)).%Close() + If object.NieuweBatch'="" Set $zobjval(,7,0)=$zobjval(object,7,0).%ConstructClone(1,.cloned) If $zobjval(,7,0)'="" Do ($zobjval(,7,0)).%Close() + If object.blLeanBatch'="" Set $zobjval(,10,0)=$zobjval(object,10,0).%ConstructClone(1,.cloned) If $zobjval(,10,0)'="" Do ($zobjval(,10,0)).%Close() + } + Quit %this } +%Extends(isclass) public { Quit "~CHUI.PPS.TBX.LeanBatch~%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,"AantBaliko":9,"AantLaden":6,"AantSpoelbak":8,"AantTipOn":7,"Datum":2,"KlantNaam":3,"OnderdelenSpecial":10,"PROPERTYVALIDATION":0,"ProdDatum":4,"TOENr":1,"Type":5,:"") } +%IncrementCount(%this) Quit ..%IncrementCount() +%IsA(isclass) public { Quit "~CHUI.PPS.TBX.LeanBatch~%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(CHUI.PPS.TBX.LeanBatch).%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,2)="",$zobjval(,3,0,0,2)="",$zobjval(,6,0,0,5)="",$zobjval(,7,0,0,5)="",$zobjval(,9,0,0,7)="" + Set $zobjval(,10,0,0,7)="" + Quit 1 +%NormalizeObject(%this) Set:$zobjval(,1,0,0,1)'="" $zobjval(,1,0,0,1)=(..AantalLijnenNormalize($zobjval(,1,0,0,1))) + Quit 1 +%ObjectModified(%this) public { Quit 1 } +%PackageName() Quit "CHUI.PPS.TBX" +%SerializeObject(%this,serial,partial) Set partial=$get(partial,0) New %objOBJ,sc,id + Set $Ztrap = "%SerializeObjectERR" + Set sc=..%ValidateObject() If ('sc) { Ztrap "SO" } + Set sc=..%NormalizeObject() If ('sc) { Ztrap "SO" } + Quit sc +%SerializeObjectERR Set $ZTrap="" If $extract($zerror,1,5)'="" Set sc=$$Error^%apiOBJ(5002,$ZE) + Quit sc +%AddToSaveSet(%this,depth,refresh,norecurseon) public { Set depth=$get(depth,3),refresh=$get(refresh,0),norecurseon=$get(norecurseon) If ($data(%objTX(1,+%this))) && ('refresh) Quit 1 + Set sc=1,intOref=+%this + If refresh { + Set intPoref=$order(%objTX(1,intOref,2,"")) + While intPoref'="" { Kill %objTX(1,intPoref,3,intOref),%objTX(1,intOref,2,intPoref) Set intPoref=$order(%objTX(1,intOref,2,intPoref)) } + } + Set tDepth=$select(depth'=2:depth,1:1) + Set %objTX(2,intOref)=0 +exit Quit sc } +%RemoveFromSaveSet(%this) public { + If '($data(%objTX(1,+%this))) Quit 1 + Set intRef=+%this + Set intSucc="" For Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc="" Kill %objTX(1,intSucc,2,intRef) + Set intPred="" For Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred="" Kill %objTX(1,intPred,3,intRef) + Kill %objTX(1,intRef),%objTX(2,intRef) + Quit 1 } +%SetModified(%this,value) public { Quit 1 } +%ValidateObject(%this,force) Set force=$get(force,0) Quit 1 +zAanpassenTipOn(BatchNr,sX,sY) // We gaan deze methode ook gebruiken om etiketten van spoelbakken en sifons te verwijderen uit de lijst indien nodig + Set bl=##class(CHUI.PPS.TBX.LeanBatch).Instantiate() + Set NieuweBatch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(BatchNr) + Do bl.GebruikBatch(NieuweBatch) + Set PrintLijst = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(BatchNr).PrintLijst + If (bl.TipOnPrintStatus(PrintLijst)="N") { Do ##class(CHUI.PPS.TBX.LeanBatch).VerwijderUitMenu("TIP-ON") } + If (bl.SifonPrintStatus(PrintLijst)="N") { Do ##class(CHUI.PPS.TBX.LeanBatch).VerwijderUitMenu("Sifon") } + If (bl.SpoelbakPrintStatus(PrintLijst)="N"){ Do ##class(CHUI.PPS.TBX.LeanBatch).VerwijderUitMenu("Spoelbak") } + If (bl.TipOnFreesStatus(PrintLijst)="N") { Do ##class(CHUI.PPS.TBX.LeanBatch).VerwijderUitMenu("Frees TIP-ON") } + If (bl.SpoelSifonFreesStatus(PrintLijst)="N") { Do ##class(CHUI.PPS.TBX.LeanBatch).VerwijderUitMenu("Frees spoel/sifon") } + Quit +zAfgewerkt(%this,TOENr) New R,Afgewerkt,NietAfgewerkt,TLNr,TLUNr,PRNr,Aantal,FabKey,Count,MaxCount + Set Afgewerkt=1,TLNr=100 + For Set TLNr=$O(^KTO(6332,TOENr,TLNr)) Quit:TLNr="" Do + . Set R=^KTO(6332,TOENr,TLNr),PRNr=$P(R,D,2),Aantal=$P(R,D,3),TLUNr=$P(R,D,15) + . Quit:'PRNr + . Quit:'$$ISTBX^PRODUKT2(PRNr) + . Set FabKey=$$FABKEYT^HADOPV(TOENr,TLUNr) + . Set:$P($G(^HADPR("F",FabKey,"K")),D,3)'="A" NietAfgewerkt(TLNr)=$P(^KPR(PRNr,0),D)_$J(Aantal,14) + Set TLNr="",Count=0,MaxCount=15 + For Set TLNr=$O(NietAfgewerkt(TLNr)) Quit:TLNr="" Set Count=Count+1 + If Count>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 +zBatchInSequence(%this,BatchNr) Set blSequence=##class(BL.PPS.TBX.Sequencer).Instantiate() ; restore stock to workplace stock + Do blSequence.Init(BatchNr) + Quit blSequence.ExistSequence() +zBerekenBatchProductInfo(%this) public { Set ..BatchProductInfo = ##class(BL.PPS.TBX.ToeleveringProductInfo).%New() + Set ToeleveringIterator = ..NieuweBatch.GeefToeleveringIterator() + While (ToeleveringIterator.HasNext()) + { + Set Toelevering = ToeleveringIterator.Next() + Set ToeleveringProductInfo = ..blLeanBatch.GeefToeleveringProductInfo(Toelevering) + Set ..BatchProductInfo.AantalLaden = ..BatchProductInfo.AantalLaden + ToeleveringProductInfo.AantalLaden + Set ..BatchProductInfo.AantalTipon = ..BatchProductInfo.AantalTipon + ToeleveringProductInfo.AantalTipon + Set ..BatchProductInfo.AantalSpoelbak = ..BatchProductInfo.AantalSpoelbak + ToeleveringProductInfo.AantalSpoelbak + Set ..BatchProductInfo.AantalSifon = ..BatchProductInfo.AantalSifon + ToeleveringProductInfo.AantalSifon + Set ..BatchProductInfo.AantalBaliko = ..BatchProductInfo.AantalBaliko + ToeleveringProductInfo.AantalBaliko + } } +zBevatSFS(%this) public { Set BevatSFS = 0 + Set ToeleveringIterator = ..NieuweBatch.GeefToeleveringIterator() + While (ToeleveringIterator.HasNext()) + { + Set Toelevering = ToeleveringIterator.Next() + Set Order = Toelevering.GeefOrder() + If ($IsObject(Order)) + { + Set BevatSFS = (Order.GeefKlantNr() = 12486) + } + } + Quit BevatSFS } +zCheckVerwijder(%this,Toelevering) public { If (..NieuweBatch.GeefBatchID()'="") + { + Set HasSequence=..BatchInSequence(..NieuweBatch.GeefBatchID()) + If HasSequence + { + Do WARN^vhTXTPOP("Deze batch heeft reeds een sequentie.~De producten van de toelevering zullen als 'verwijderd' gemarkeerd worden","Verwijderen toelevering") + } + } + Quit 1 } +zChkBatch(%this,Toelevering) public { Set BijhorendeBatch = ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering) + If ($IsObject(BijhorendeBatch)) + { + Set BatchNr = BijhorendeBatch.GeefBatchID() + Set BatchTimeStamp = BijhorendeBatch.GeefAanmaakTijdstip() + Set TOENr = Toelevering.GeefToeNr() + Set BatchOk=$$^vhTXTPOP("HATBXLEAN","CHKBATCH","",$$EXTNUM^vhDTyp(TOENr,0,".",0),..blLeanBatch.ConvertTimeStamp(BatchTimeStamp)_" ("_BatchNr_")") + } + Quit '$IsObject(BijhorendeBatch) } +zChkBodems(%this) public { Set BodemsOK=0 + Set ToeleveringIterator = ..NieuweBatch.GeefToeleveringIterator() + While (('BodemsOK) && ToeleveringIterator.HasNext()) + { + Set Toelevering = ToeleveringIterator.Next() + Set ProductLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product()) + While (('BodemsOK) && ProductLijnIterator.HasNext()) + { + Set ProductLijn = ProductLijnIterator.Next() + Set Product = ProductLijn.GeefProduct() + Set PRNr = Product.GeefPRNr() + If ($P($$GENTYP^HAD(PRNr),"\") = "TBX") + { + Set Klas=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; klasse + If (Klas '= "SP2") + { + Set PlaatMat=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"MATKL")) ; Materiaal gezaagd + Set MetInkeeping=##class(BL.PPS.TBX.DocsV1).MetInkeeping(PRNr) + Set BodemsOK = '(PlaatMat'?1(1"HZ",1"HA",1"KZ",1"KA")&&'(MetInkeeping)) + } + } + } + } + Quit BodemsOK } +zChkCommissie(%this) public { Set BevatCommissie=0 + Set ToeleveringIterator = ..NieuweBatch.GeefToeleveringIterator() + While (('BevatCommissie) && ToeleveringIterator.HasNext()) + { + Set Toelevering = ToeleveringIterator.Next() + Set ProductLijnIterator = Toelevering.GeefTypeToeleveringLijnIterator(##class(DOM.LEV.enu.ToeleveringLijnType).Product()) + While (('BevatCommissie) && ProductLijnIterator.HasNext()) + { + Set ProductLijn = ProductLijnIterator.Next() + Set Product = ProductLijn.GeefProduct() + Set PRNr = Product.GeefPRNr() + If ($P($$GENTYP^HAD(PRNr),"\") = "TBX") + { + Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM")) ; Antislipmat + Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking + Set BevatCommissie = (((VPK="A")!(VPK="B"))&(ASM'=0)) || ((VPK="O")!(VPK="B")) + } + } + } + Quit BevatCommissie } +zChkOpties(%this) public { Set BatchType=..NieuweBatch.GeefProductieGroep() + Set PrintLijst = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(..NieuweBatch.GeefBatchID()).PrintLijst + Set TePrintenEtiketten = ..NogTePrintenEtiketten(PrintLijst) + If BatchType="+" Do ; ProPlus - Keller + . Set Opties="Z;E;F;D;B;P;G;X;A"_$S(..TipOnFreesStatus(PrintLijst)'="N":";U",1:"")_$S(..SpoelSifonFreesStatus(PrintLijst)'="N":";W",1:"") + Else If BatchType="A" Do ; Kast + . If TePrintenEtiketten '= "" Do + . . Set Opties=TePrintenEtiketten + . Else Set Opties="Z;E;F;O;R;D;M;L;K;X;I"_$S(..ChkCommissie():";C",1:"")_$S(..ChkBodems():";B",1:"")_";G" + Else Do ; BatchType = "P" of "S" , pallet of stuks verpakt + . If TePrintenEtiketten '= "" Do + . . Set Opties=TePrintenEtiketten + . Else Set Opties="Z;E;L;F;O;M;R;I"_$S(..BevatSFS():";P",1:"")_$S(..ChkCommissie():";C",1:"")_$S(..ChkBodems():";B",1:"")_";G" + For i=1:1:$L(Opties,";") Do + . If $LF(PrintLijst,$Piece(Opties,";",i)) Set $Piece(Opties,";",i)="" + . If $Piece(Opties,";",i)="P"&($LF(PrintLijst,"PE")!$LF(PrintLijst,"PA")) Set $Piece(Opties,";",i)="" + Quit Opties } +zCommandLoop(%this) Do WLIP^vhDBG(191,"In commandloop") + Do ..Write() + Set Input="" + While '("\CANC\NB\SB\"[("\"_Input_"\")) + { + Set Input=$$SCROLL^vhLIST(.Lijst,,5) + If $D($zobjval(,8,0,0,6,Lijst("SELECT"))) + { + Set TOENr=$LG($zobjval(,8,0,0,6,Lijst("SELECT")),1) + Set AantLaden=$LG($zobjval(,8,0,0,6,Lijst("SELECT")),6) + Set AantTipOn=$LG($zobjval(,8,0,0,6,Lijst("SELECT")),7) + Set AantSpoelbak=$LG($zobjval(,8,0,0,6,Lijst("SELECT")),8) + Set AantBaliko=$LG($zobjval(,8,0,0,6,Lijst("SELECT")),9) + } + If Input="COM" Do CALL^vhMenu("LEANBATCH") + Do EXEC^vhMenu("LEANBATCH",.Input) + } + Do ..Save() + Quit Input +zFetch(%this,Selected) public { Set $zobjval(,1,0,0,1)=0 + Kill $zobjval(,4,0,0,3) + Set ToeleveringIterator = ..NieuweBatch.GeefToeleveringIterator() + While (ToeleveringIterator.HasNext()) + { + Set Toelevering = ToeleveringIterator.Next() + Set $zobjval(,1,0,0,1)=$zobjval(,1,0,0,1)+1 + Set $zobjval(,4,0,0,3,$zobjval(,1,0,0,1))=..FetchLijn(Toelevering) + Set Selected(Toelevering.GeefToeNr())="" + } + Do ..BerekenBatchProductInfo() + Quit } +zFetchLijn(%this,Toelevering) public { Set ProdDatum=$$FormatDateTime^vhLib("dd-mm uu:ss",Toelevering.GeefDueOutTime()) + Set KlantNaam = "" + Set Order = Toelevering.GeefOrder() + If ($IsObject(Order)) + { + Set KlantNaam = Order.GeefKlant().GeefNaam() + } + Set ToeleveringProductInfo = ..blLeanBatch.GeefToeleveringProductInfo(Toelevering) + Set Type ="" + Set AantSpoelbak=ToeleveringProductInfo.AantalSpoelbak + ToeleveringProductInfo.AantalSifon + Quit $LB(Toelevering.GeefToeNr(),Toelevering.GeefAanmaakDatum(),KlantNaam,ProdDatum,Type,ToeleveringProductInfo.AantalLaden,ToeleveringProductInfo.AantalTipon,AantSpoelbak,ToeleveringProductInfo.AantalBaliko,ToeleveringProductInfo.AantalOnderdelenSpeciaal) } +zGebruikBatch(%this,Batch) public { Set ..NieuweBatch = Batch + Do ..BerekenBatchProductInfo() } +zGeefHoogsteFinishedSequencenr(%this,BatchID) [ BatchID,Hoogste,SQLCODE ] public { New Hoogste,SQLCODE + ;---&SQL(SELECT Max(Sequence) Into :Hoogste FROM PPS.TBX_Queue WHERE BatchID = :BatchID AND WPPers_WPStatus = 'F') + ;--- ** SQL PUBLIC Variables: BatchID, Hoogste, SQLCODE + Do %0o + Set Hoogste = $Get(Hoogste,0) + Quit Hoogste } + q +%0o n %mmmsqlc,%mmmsqld,%mmmsqlE,%mmmsqll,%mmmsqln,%mmmsqlp,%mmmsqlR,%mmmsqls,%mmmsqlt,%mmmsqlZ s $zt="%0err",$ze="" + s %mmmsqld(5)=$g(BatchID),%mmmsqld(7)="F" + s SQLCODE=100 + s %mmmsqlt(1)=$i(^mtemp0) + s %mmmsqld(12)=(" "_$s(%mmmsqld(7)="":"",$zstrip(%mmmsqld(7),">W")'="":$zcvt($zstrip(%mmmsqld(7),">W"),"U"),1:$c(0))) + s %mmmsqld(10)=(" "_$s(%mmmsqld(5)="":"",$zstrip(%mmmsqld(5),">W")'="":$zcvt($zstrip(%mmmsqld(5),">W"),"U"),1:$c(0))) + s Hoogste="" + k ^mtemp0(%mmmsqlt(1),0) s ^mtemp0(%mmmsqlt(1),0)=$H_"^"_$J_"^"_$zu(67,11,$j)_"^"_$zu(67,12,$j)_"^"_$zu(67,15,$j)_"^"_$ZN_"^"_$zu(67,6,$j) + d %0CMod + ; asl MOD# 5 + s SQLCODE=0 g %0c +%0Edun +%0Adun +%0c s %ROWCOUNT='SQLCODE k ^mtemp0(%mmmsqlt(1)) q +%0err s $zt="" d SQLRunTimeError^%apiSQL($ze,.SQLCODE,.%msg) g %0c +%0BMod ; asl MOD# 2 + s %mmmsqld(9)=%mmmsqld(10) s:%mmmsqld(9)="" %mmmsqld(9)=-1E14 + i '($s(%mmmsqld(9)'=-1E14:%mmmsqld(9),1:"")'=" ") g %0Bdun + s %mmmsqld(1)="" +%0Bk1 s %mmmsqld(1)=$o(^PPS.QueueI("Sequence",%mmmsqld(9),%mmmsqld(1))) + i %mmmsqld(1)="" g %0Bdun + s %mmmsqld(13)="" +%0Bk2 s:%mmmsqld(1)="" %mmmsqld(1)=-1E14 s:%mmmsqld(9)="" %mmmsqld(9)=-1E14 + s %mmmsqld(13)=$o(^PPS.QueueI("Sequence",%mmmsqld(9),%mmmsqld(1),%mmmsqld(13))) + i %mmmsqld(13)="" g %0Bk1 + s:%mmmsqld(1)=-1E14 %mmmsqld(1)="" s:%mmmsqld(9)=-1E14 %mmmsqld(9)="" + s $bit(^mtemp0(%mmmsqlt(1),0,%mmmsqld(13)\64000+1),%mmmsqld(13)#64000+1)=1 + g %0Bk2 +%0Bdun + q +%0CMod ; asl MOD# 3 + d %0BMod + s %mmmsqld(21)="",%mmmsqld(22)="",%mmmsqld(24)=1 +%0Ck1 f s %mmmsqld(24)=$bitfind(%mmmsqld(22),1,%mmmsqld(24)+1) i %mmmsqld(24) {s %mmmsqld(13)=%mmmsqld(23)+%mmmsqld(24)-1 q} s %mmmsqld(21)=$o(^mtemp0(%mmmsqlt(1),0,%mmmsqld(21)),1,%mmmsqld(22)) q:%mmmsqld(21)="" s %mmmsqld(23)=%mmmsqld(21)-1*64000 + i %mmmsqld(21)="" g %0Cdun + i %mmmsqld(13)'="",$d(^PPS.QueueD(%mmmsqld(13))) + e g %0Ck1 + s %mmmsqld(27)=$g(^PPS.QueueD(%mmmsqld(13))) + s %mmmsqld(1)=$lg(%mmmsqld(27),12) s %mmmsqld(4)=$lg(%mmmsqld(27),9) s %mmmsqld(6)=$lg($lg(%mmmsqld(27),21),4) + s %mmmsqld(9)=(" "_$s(%mmmsqld(4)="":"",$zstrip(%mmmsqld(4),">W")'="":$zcvt($zstrip(%mmmsqld(4),">W"),"U"),1:$c(0))) + s %mmmsqld(11)=(" "_$s(%mmmsqld(6)="":"",$zstrip(%mmmsqld(6),">W")'="":$zcvt($zstrip(%mmmsqld(6),">W"),"U"),1:$c(0))) + g:'(%mmmsqld(11)'=" ") %0Ck1 + g:'(%mmmsqld(11)=%mmmsqld(12)) %0Ck1 + ; asl MOD# 4 +%0Ddun + i %mmmsqld(1)'="" s:$s(Hoogste="":1,1:%mmmsqld(1)]]Hoogste) Hoogste=%mmmsqld(1) + g %0Ck1 +%0Cdun + q +zHATBXLean() ;Halux tandembox Lean + 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 + Set (BatchNr,LijnNr,Aantal,AantLaden,AantTipon,AantSpoelbak,AantBaliko,Afgedrukt,Tijden,Datum,ProdGrpBatch,SequenceNr)="" + Do DISPLAY^vhScherm("HATBXLEAN") + If '$isObject($G(chuiLeanBatch)) + { + Set chuiLeanBatch=##class(CHUI.PPS.TBX.LeanBatch).Instantiate() + Do chuiLeanBatch.Init() + } + Set Input = "" + While (Input '= "CANC") + { + Kill Lijst,Selected,Batch,Laden,MarkToe + Do chuiLeanBatch.Init() + Do WRITE^vhLIST(.Lijst) + Do chuiLeanBatch.blLeanBatch.SearchBatchInfo(.BatchLijst) + Set BatchNr = chuiLeanBatch.SelectBatchNr(.BatchLijst) + If (BatchNr '= "") + { + Set BatchService = ##class(APPS.Halux.common.BatchService).%New() + Set %TC=1 + If (BatchNr '= "N") + { + Set Aantal="" + Do ADD^vhLock("^PPS.Batch("_BatchNr_")") ; lock, alleen bij bestaande batches + Set NieuweBatch = BatchService.GeefBatch(BatchNr) + } + Else + { + Set NieuweBatch = BatchService.GeefNieuweBatch() + } + Do chuiLeanBatch.GebruikBatch(NieuweBatch) + If %TC + { + Do chuiLeanBatch.Fetch(.Selected) + Do chuiLeanBatch.ToonHeader() + Set Input = chuiLeanBatch.CommandLoop() + If NieuweBatch.GeefBatchID()'="" Do REMOVE^vhLock("^PPS.Batch("_BatchNr_")") + } + Else + { + Do LDISP^vhLock("^PPS.Batch("_BatchNr_")","Batch") + } + } + Else + { + Set Input = "CANC" + } + } + Quit +zInit(%this) Do INIT^vhLIST(##class(CHUI.PPS.TBX.LeanBatch).%ClassName(1),"LIJST",.Lijst) + Set Lijst("UPINIT")="X`Set Sort=""""" + Set Lijst("UPTRAV")="X`S Sort=$O(chuiLeanBatch.Cache(Sort)),sRec="""" S:Sort'="""" sRec=chuiLeanBatch.Cache(Sort)" + Set Lijst("UPCOMP")="@`sRec=$G(chuiLeanBatch.Sequence(sCnt))" + Set Lijst("UPSEL")="@`Sort=SelKey" + Set SelKey="" + Merge $zobjval(,5,0,0,4)=Lijst + Quit +zInstantiate() New chui + Set chui=##class(CHUI.PPS.TBX.LeanBatch).%New() + Set chui.blLeanBatch=##class(BL.PPS.TBX.LeanBatch).Instantiate() + Quit chui +zNogTePrintenEtiketten(%this,PrintLijst) public { Set Opties = "" + If (..SpoelbakPrintStatus(PrintLijst) = "P") Set Opties=Opties_";Q" + If (..SifonPrintStatus(PrintLijst) = "P") Set Opties=Opties_";N" + If (..TipOnPrintStatus(PrintLijst) = "P") Set Opties=Opties_";T" + If (..TipOnFreesStatus(PrintLijst) = "P") Set Opties=Opties_";U" + If (..SpoelSifonFreesStatus(PrintLijst) = "P") Set Opties=Opties_";W" + Quit $Extract(Opties,2,$Length(Opties)) } +zProductiedatumOk(%this,TOENr,Selected) If $O(Selected(""))="" Quit 1 + Set xHeader=$Get(^KTO(6332,TOENr,1)) + Set KLNr=$Piece(xHeader,"\",8) + Set ToelevDatum=$Piece(xHeader,"\",19) + Set TOENummer="",NOK=0 + For Set TOENummer=$O(Selected(TOENummer)) Quit:TOENummer=""!NOK Do + . Set xHeader=$Get(^KTO(6332,TOENummer,1)) + . Set KL1=$Piece(xHeader,"\",8) + . Set Datum1=$Piece(xHeader,"\",19) + . If +Datum1,+ToelevDatum,(+Datum1'=+ToelevDatum),(KL1=KLNr) Set NOK=1 + If NOK Quit $$Error^%apiOBJ(5001,"De toelevering "_$$Format^vhLib("#.0",TOENr)_" heeft productiedatum "_$$Format^vhLib("ddd dd-mm-jj",ToelevDatum)) + Quit 1 +zSave(%this) public { Set ToeleveringIterator = ..NieuweBatch.GeefToeleveringIterator() + If ((..NieuweBatch.GeefBatchID() = "") && ToeleveringIterator.HasNext()) + { + Set Status = ..blLeanBatch.AddBatch(..NieuweBatch) + If ('Status) + { + Do WARN^vhTXTPOP($$ParseStatus^vhLib(Status),"Batch niet toegevoegd") + } + Else + { + Do ADD^vhLock("^PPS.Batch("_..NieuweBatch.GeefBatchID()_")") + } + } } +zSelectBatchNr(%this,BatchLijst) public { Set BatchNr="N" + Set:$O(BatchLijst(1)) BatchNr=$$WILD^vhPOPUP("C;C","-1KO","Batch | Datum |Lijn|Typ|#laden|#Tipon|#SP/SY|SpX",.BatchLijst) ; popup alleen als er batchen bestaan + Set BatchNr=$Tr(BatchNr," ","") + Quit BatchNr } +zSelecteerEtiketten(%this,BatchNr,Opties,StartNr,EndNr) Set StartNr=1,EndNr=9999 ; standaardwaarde + Quit:Opties'["K"&(Opties'["E")&(Opties'["T") + ; er wordt niets gevraagd als er geen productie-etiketten of klantetiketten of tipon-etiketten zijn + Quit:'..BatchInSequence(BatchNr) + Set PrintList=##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(BatchNr).PrintLijst + Quit:'$LF(PrintList,"E")&'$LF(PrintList,"K") ; als de lijst nog niet afgedrukt is, dan wordt er niets gevraagd + ;---&SQL(Select Max(Sequence) into :MaxNr from PPS.TBX_Queue where BatchId=:BatchNr) + ;--- ** SQL PUBLIC Variables: BatchNr, MaxNr, SQLCODE + Do %0Bo + Set (MaxNr,EndNr)=MaxNr + Do STORE^vhTERMINA() + Do EDIT^vhScherm("HATBXLEAN_ETIKET") + Do REFRESH^vhTERMINA() + If EndNr>MaxNr Set EndNr=MaxNr + If StartNr'>EndNr Do + . Set Aantal=EndNr-StartNr+1 + . ;Do WARN^vhTXTPOP($S(Aantal=1:"Er is "_Aantal_" etiketlijn geselecteerd!",1:"Er zijn "_Aantal_" etiketlijnen geselecteerd!"),"Herafdruk etiketten") + Quit +%0Bo n %mmmsqlc,%mmmsqld,%mmmsqlE,%mmmsqll,%mmmsqln,%mmmsqlp,%mmmsqlR,%mmmsqls,%mmmsqlt,%mmmsqlZ s $zt="%0Berr",$ze="" + s %mmmsqld(5)=$g(BatchNr) + s SQLCODE=100 + s %mmmsqld(8)=(" "_$s(%mmmsqld(5)="":"",$zstrip(%mmmsqld(5),">W")'="":$zcvt($zstrip(%mmmsqld(5),">W"),"U"),1:$c(0))) + s MaxNr="" + d %0BBMod + ; asl MOD# 4 + s SQLCODE=0 g %0Bc +%0BDdun +%0BAdun +%0Bc s %ROWCOUNT='SQLCODE q +%0Berr s $zt="" d SQLRunTimeError^%apiSQL($ze,.SQLCODE,.%msg) g %0Bc +%0BBMod ; asl MOD# 2 + s %mmmsqld(7)=%mmmsqld(8) s:%mmmsqld(7)="" %mmmsqld(7)=-1E14 + i '($s(%mmmsqld(7)'=-1E14:%mmmsqld(7),1:"")'=" ") g %0BBdun + s %mmmsqld(1)="" +%0BBk1 s %mmmsqld(1)=$o(^PPS.QueueI("Sequence",%mmmsqld(7),%mmmsqld(1))) + i %mmmsqld(1)="" g %0BBdun + s %mmmsqld(9)="" +%0BBk2 s:%mmmsqld(1)="" %mmmsqld(1)=-1E14 s:%mmmsqld(7)="" %mmmsqld(7)=-1E14 + s %mmmsqld(9)=$o(^PPS.QueueI("Sequence",%mmmsqld(7),%mmmsqld(1),%mmmsqld(9))) + i %mmmsqld(9)="" g %0BBk1 + s:%mmmsqld(1)=-1E14 %mmmsqld(1)="" s:%mmmsqld(7)=-1E14 %mmmsqld(7)="" + ; asl MOD# 3 +%0BCdun + i %mmmsqld(1)'="" s:$s(MaxNr="":1,1:%mmmsqld(1)]]MaxNr) MaxNr=%mmmsqld(1) + g %0BBk2 +%0BBdun + q +zSelecteerLijn(%this) public { If (..NieuweBatch.GeefLijn() = "") + { + Set ProductieGroep = ..NieuweBatch.GeefProductieGroep() + If ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Stuk() + { + Do ..NieuweBatch.ZetLijn(##class(APPS.Halux.common.enu.ProductieLijn).Een()) + } + ElseIf ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Plus() + { + Do ..NieuweBatch.ZetLijn(##class(APPS.Halux.common.enu.ProductieLijn).Keller()) + } + Else + { + Set Lijn(1)="1`Lijn 1" + Set Lijn(2)="2`Lijn 2" + Set Lijn(3)="K`Lijn K" + If ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Pallet() { Set StandaardWaarde=2 } + ElseIf ProductieGroep = ##class(APPS.Halux.common.enu.ProductieGroep).Kast() { Set StandaardWaarde=1 } + Set OudeWaarde=$S(..NieuweBatch.GeefLijn()'="":..NieuweBatch.GeefLijn(),1:StandaardWaarde) + Set Lijn=$$WILD^vhPOPUP("C;C","-1KOV","Selecteer de productielijn",.Lijn,OudeWaarde) + Do ..NieuweBatch.ZetLijn(Lijn) + } + Do ..NieuweBatch.%Save() + } + Quit "" } +zSifonPrintStatus(%this,PrintLijst) public { If (..BatchProductInfo.AantalSifon = 0) Quit "N" ; er zijn geen sifonbaketiketten af te drukken + If $LF(PrintLijst,"N") Quit "OK" ; de sifonbaketiketten zijn al afgedrukt + If '$LF(PrintLijst,"N") Quit "P" ; de sifonbaketiketten moeten nog afgedrukt worden + Quit "" } +zSpoelSifonFreesStatus(%this,PrintLijst) public { If ((..BatchProductInfo.AantalSifon + ..BatchProductInfo.AantalSpoelbak) =0) Quit "N" ; er zijn geen spoelbakken of sifons + If $LF(PrintLijst,"W") Quit "OK" + If '$LF(PrintLijst,"W") Quit "P" + Quit "" } +zSpoelbakPrintStatus(%this,PrintLijst) public { If (..BatchProductInfo.AantalSpoelbak = 0) Quit "N" ; er zijn geen spoelbaketiketten af te drukken + If $LF(PrintLijst,"Q") Quit "OK" ; de spoelbaketiketten zijn al afgedrukt + If '$LF(PrintLijst,"Q") Quit "P" ; de spoelbaketiketten moeten nog afgedrukt worden + Quit "" } +zTipOnFreesStatus(%this,PrintLijst) public { If (..BatchProductInfo.AantalTipon = 0) Quit "N" ; er zijn geen tipons + If $LF(PrintLijst,"U") Quit "OK" + If '$LF(PrintLijst,"U") Quit "P" + Quit "" } +zTipOnPrintStatus(%this,PrintLijst) public { If (..BatchProductInfo.AantalTipon = 0) Quit "N" ; er zijn geen tipons af te drukken + If $LF(PrintLijst,"T") Quit "OK" ; de TipOn-etiketten zijn al afgedrukt + If '$LF(PrintLijst,"T") Quit "P" ; de TipOn-etiketten moeten nog afgedrukt worden + Quit "" } +zToonHeader(%this) Set AantLaden=..BatchProductInfo.AantalLaden + Set AantTipon=..BatchProductInfo.AantalTipon + Set AantSpoelbak=..BatchProductInfo.AantalSpoelbak + ..BatchProductInfo.AantalSifon + Set AantBaliko=..BatchProductInfo.AantalBaliko + If (..NieuweBatch.%Id() = "") + { + Set Afgedrukt = "" + } + Else + { + Set PrintLijst=##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(..NieuweBatch.GeefBatchID()).PrintLijst + Set Afgedrukt=$S(PrintLijst="":"",PrintLijst=$LB("T"):"1/2 afgedrukt",1:"alles") + } + Set LijnNr = ..NieuweBatch.GeefLijn() + Set ProdGrpBatch = ..NieuweBatch.GeefProductieGroep() + Set SequenceNr = ..GeefHoogsteFinishedSequencenr(BatchNr) + Do DISPLAY^vhScherm("HATBXLEAN") + Quit +zVerwijderUitMenu(Substring) Set Gevonden=0,Aantal=$O(sY(""),-1) + For nr=1:1:Aantal Do + . If $p(sY(nr),"`",2)[Substring Set Gevonden=1 + . If Gevonden Do + . . If $D(sY(nr+1)) Set sY(nr)=$G(sY(nr+1)) + . . If $D(sX(nr+1)) Do + . . . Set sX(nr)=$G(sX(nr+1)) + . . . Kill sX(nr+1) + If Gevonden + { + kill sY(Aantal),sX(Aantal) + } + Quit +zWrite(%this,OldsSel) Set chuiLeanBatch=%this + Do WRITE^vhLIST(.Lijst) ; Intieel lege lijst, alleen hoofding + Set SelKey=$G(OldSel) + Do UPDATE^vhLIST(.Lijst) + Quit +zZetBatchVerwerktTot(%this,BatchNr,LijnNr) public { Set VraagInput = 1 + If (LijnNr '= 2) // + { + Set Resultaat = $$^vhTXTPOP("HATBXLEAN","ZETSEQUENCE") // Zie ^RES("HATBXLEAN","TP","ZETSEQUENCE") voor de definitie + Set VraagInput = (Resultaat = "OK") + } + If (VraagInput) + { + Set SequentieNummer = $$ASK^vhINP("Laatst geproduceerde ladenummer: ",4,0) + Do ..ZetFinishedTotSequencenummer(SequentieNummer) + Do ..ToonHeader() + Do ..Write() + } } +zZetFinishedTotSequencenummer(%this,Sequencenummer) public { Set rs=##class(%Library.ResultSet).%New("BL.PPS.TBX.Sequencer:GetSequence") + Set sc=rs.Execute(..NieuweBatch.GeefBatchID()) + Set Count=0 + while rs.Next() + { + Set QueueItem = ##class(DS.PPS.TBX.Queue).%OpenId(rs.Data("ID")) + if (QueueItem.Sequence <= Sequencenummer) + { + Do QueueItem.ZetFinished() + Set LadeFinishedGezetEventData = ##class(TECH.Events.LadeFinishedGezetEventData).%New(QueueItem.TOENr,QueueItem.TLUNr,QueueItem.Product.ProductNr,QueueItem.BatchID,QueueItem.Sequence) + Set LadeFinishedGezetEvent = ##class(TECH.Events.LadeFinishedGezetEvent).%New(LadeFinishedGezetEventData) + Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(LadeFinishedGezetEvent) + } + else + { + Do QueueItem.ZetNonFinished() + } + } } +zmnAllesVerwijderen(%this) If ..NieuweBatch.GeefBatchID() '= "" + { + Set Status=..blLeanBatch.DeleteAllToelev(..NieuweBatch) + If ($system.Status.IsError(Status)) Do WARN^vhTXTPOP($Piece($$ParseStatus^vhLib(Status),": ",2,99),"Verwijderen van alle toeleveringen is mislukt") + } + Else + { + Do ..NieuweBatch.VerwijderAlleToeleveringen() + } + Set (Aantal,Datum)="" + Do ..Fetch(.Selected) + Do ..ToonHeader() + Do ..Write() + Quit +zmnLinkHADOPV(%this) Do STORE^vhTERMINA() + Set LEVNr=$P(^KTO1(TOENr),"\") + Set Batches=$$BATCHALL^HADBATCH($$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($H,"W","MD"),"W")) + Do VERWERK^HADOPV(Batches,TOENr) + Do REFRESH^vhTERMINA() + Quit +zmnNieuw(%this) New DERDENr,LijstOld + Set DERDENr("N")=1,DERDENr("L")=6332 ; Toeleveringen Halux + Merge LijstOld=Lijst + Set ($P(Lijst("POS"),";",3),$P(Lijst("POS"),";",6),$P(Lijst("SET"),";",3))=15,Lijst("SELECT")=Lijst("MAX") ; aantal lijnen van de lijst beperken om de toe te voegen toelevering steeds in zicht komt + Set FP=1901 Write @F,F1 + Do WRITE^vhLIST(.Lijst) +Begin + For Do STORE^vhTERMINA() Set TOENr=$$SELECT^FLOW("KTO","KTO1",1,.Selected,.DERDENr) Do REFRESH^vhTERMINA() Quit:'TOENr Do + . Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr) + . + . Set ToeleveringProductInfo = ..blLeanBatch.GeefToeleveringProductInfo(Toelevering) + . If (ToeleveringProductInfo.AantalOnderdelenSpeciaal > 0) Do + . . Set Inp=$$^vhTXTPOP("HATBXLEAN","ODSP","",Toelevering.GeefToeNr(),ToeleveringProductInfo.AantalOnderdelenSpeciaal) + . + . If ..NieuweBatch.GeefBatchID()="" Do + . . Set Selected(TOENr)="" + . . Set $ZTRAP="ToevoegenFout" + . . Do ..NieuweBatch.VoegToeToelevering(Toelevering) + . . Set $ZTRAP = "" + . . Set Lijst("MAX")=$zobjval(,1,0,0,1) + . . Set Lijst("SELECT")=Lijst("MAX") + . Else Do + . . 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() + Set Lijst("POS")=LijstOld("POS"),Lijst("SET")=LijstOld("SET") ; terug zetten naar full screen + Do WRITE^vhLIST(.Lijst) + Quit +ToevoegenFout + Set $ZTRAP = "" + Set Exception = ##class(TECH.ExceptionHandler).Catch("APPS.Halux.common.impl.ToeleveringException") + Do WARN^vhTXTPOP(Exception.ToString(),"") + Goto Begin + Quit +zmnPrint(%this) New zb,Opties,OldSel + Do ..Save() + Set OldSel=Lijst("SELECT") + Do DISPLAY^vhScherm("HATBXLEAN",,,,"BATCHNR") + Set (Text,SkippedText)="" + Do ..SelecteerLijn() + If ProdGrpBatch="+" Do ; ProPlus - Keller + . Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINTPROPLUS",..ChkOpties()) + . Quit:zb="CANC" + . Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr) + . Do ..blLeanBatch.PrintProPlus(BatchNr,$TR(Opties,";",""),.Text,.SkippedText,$G(StartNr),$G(EndNr)) + Else If ProdGrpBatch="A" Do ; Kast + . ;b "s+" + . Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINTKAST",..ChkOpties()) + . Quit:zb="CANC" + . Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr) + . Do ..blLeanBatch.PrintCabinet(BatchNr,$TR(Opties,";",""),.Text,.SkippedText,$G(StartNr),$G(EndNr)) + Else Do ; ProdGrpBatch = "P" of "S" , pallet of stuks verpakt + . Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINT",..ChkOpties()) + . Quit:zb="CANC" + . Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr) + . Do ..blLeanBatch.PrintV1(BatchNr,ProdGrpBatch,$TR(Opties,";",""),.Text,$G(StartNr),$G(EndNr)) + Do:$L(Text)>2 WARN^vhTXTPOP($E(Text,2,999),"Overzicht") + Do:$L($G(SkippedText)) WARN^vhTXTPOP($$REPLACE^vhRtn1(SkippedText,">CR<","~"),"Producten die niet werden toegevoegd") + // [??] + Do DISPLAY^vhScherm("HATBXLEAN",,,,"BATCHNR") + Do ..Fetch(.Selected) + Do ..ToonHeader() + Do ..Init() + Do ..Write(OldSel) + Quit +zmnVerwijder(%this) Quit:'Lijst("SELECT") 0 + Quit:'TOENr + new Toelevering + Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(TOENr) + Quit:'..CheckVerwijder(Toelevering) + Kill Selected(TOENr) + If ..NieuweBatch.GeefBatchID()="" + { + Do ..NieuweBatch.VerwijderToelevering(Toelevering) + } + Else + { + Set Status=..blLeanBatch.DeleteToelev(..NieuweBatch,Toelevering) + If ($system.Status.IsError(Status)) Do WARN^vhTXTPOP($Piece($$ParseStatus^vhLib(Status),": ",2,99),"Verwijderen van Toelevering "_TOENr_ "is mislukt") + } + Set (Aantal,Datum)="" + Do ..Fetch(.Selected) + Do ..ToonHeader() + Do ..Write() + Quit +zmnVerwijderSequence(%this,BatchNr) Set blSequence=##class(BL.PPS.TBX.Sequencer).Instantiate() ; restore stock to workplace stock + Do blSequence.Init(BatchNr) + Do blSequence.DeleteBatch() + Do ..ToonHeader() + Do ..Write() + Quit +zAantalLijnenDisplayToLogical(%val) Quit $in(%val,"","") +zAantalLijnenIsValid(value) public { Quit $s(##class(CHUI.PPS.TBX.LeanBatch).AantalLijnenIsValidDT(value):1,1:$$Error^%apiOBJ(5802,"CHUI.PPS.TBX.LeanBatch.AantalLijnen")) } +zAantalLijnenIsValidDT(%val) Quit $isvalidnum(%val,0,,) +zAantalLijnenLogicalToDisplay(%val) Quit %val +zAantalLijnenNormalize(%val) Quit %val\1 +zBatchProductInfoGetSwizzled(%this) public { Quit $zobjval(,3,0,0,2) } +zBatchProductInfoIsValid(value) public { Quit 1 } +zBatchProductInfoNewObject(%this) public { Set newobject=##class(BL.PPS.TBX.ToeleveringProductInfo).%New("") If newobject="" Quit "" + Set ..BatchProductInfo=newobject + Set isusercount=''$get($zobjval(newobject,0,,,,5)) Do newobject.%Close() Set $zobjval(newobject,0,,,,5)=isusercount + Quit newobject } +zBatchProductInfoSet(%this,newvalue) public { If newvalue'="",'$isobject(newvalue) Quit $$Error^%apiOBJ(5807,newvalue) + Set $zobjval(,3,0,0,2)=newvalue,$zobjval(,2,0,0,2)="" + Quit 1 } +zCacheDisplayToLogical(%val) Quit %val +zCacheIsValid(value) public { Quit 1 } +zCacheIsValidDT(%val) Quit 1 +zCacheLogicalToDisplay(%val) Quit %val +zCacheNormalize(%val) Quit $e(%val,1,50) +zLijstDefDisplayToLogical(%val) Quit %val +zLijstDefIsValid(value) public { Quit 1 } +zLijstDefIsValidDT(%val) Quit 1 +zLijstDefLogicalToDisplay(%val) Quit %val +zLijstDefNormalize(%val) Quit $e(%val,1,50) +zNieuweBatchGetSwizzled(%this) public { Quit $zobjval(,7,0,0,5) } +zNieuweBatchIsValid(value) public { Quit 1 } +zNieuweBatchNewObject(%this) public { Set newobject=##class(APPS.Halux.common.Batch).%New("") If newobject="" Quit "" + Set ..NieuweBatch=newobject + Set isusercount=''$get($zobjval(newobject,0,,,,5)) Do newobject.%Close() Set $zobjval(newobject,0,,,,5)=isusercount + Quit newobject } +zNieuweBatchSet(%this,newvalue) public { If newvalue'="",'$isobject(newvalue) Quit $$Error^%apiOBJ(5807,newvalue) + Set $zobjval(,7,0,0,5)=newvalue,$zobjval(,6,0,0,5)="" + Quit 1 } +zSequenceDisplayToLogical(%val) Quit %val +zSequenceIsValid(value) public { Quit 1 } +zSequenceIsValidDT(%val) Quit 1 +zSequenceLogicalToDisplay(%val) Quit %val +zSequenceNormalize(%val) Quit $e(%val,1,50) +zblLeanBatchGetSwizzled(%this) public { Quit $zobjval(,10,0,0,7) } +zblLeanBatchIsValid(value) public { Quit 1 } +zblLeanBatchNewObject(%this) public { Set newobject=##class(BL.PPS.TBX.LeanBatch).%New("") If newobject="" Quit "" + Set ..blLeanBatch=newobject + Set isusercount=''$get($zobjval(newobject,0,,,,5)) Do newobject.%Close() Set $zobjval(newobject,0,,,,5)=isusercount + Quit newobject } +zblLeanBatchSet(%this,newvalue) public { If newvalue'="",'$isobject(newvalue) Quit $$Error^%apiOBJ(5807,newvalue) + Set $zobjval(,10,0,0,7)=newvalue,$zobjval(,9,0,0,7)="" + Quit 1 } \ No newline at end of file Index: DOM/PM/impl/DataM/DataMHGProductIterator.cls.xml =================================================================== diff -u --- DOM/PM/impl/DataM/DataMHGProductIterator.cls.xml (revision 0) +++ DOM/PM/impl/DataM/DataMHGProductIterator.cls.xml (revision 994) @@ -0,0 +1,104 @@ + + + +1 +%RegisteredObject,TECH.Iterator +62181,30531.460554 +0 + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +%String +1 + + + +DOM.PM.ProductAPI +1 + + + +Hoofdgroep:%String +1 +1 +%Status + + + + +%Boolean + + + + +%CacheString + + + + +1 +%String + + + + + Index: APPS/Computer/impl/RunningComputer.cls.xml =================================================================== diff -u -r917 -r994 --- APPS/Computer/impl/RunningComputer.cls.xml (.../RunningComputer.cls.xml) (revision 917) +++ APPS/Computer/impl/RunningComputer.cls.xml (.../RunningComputer.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 APPS.Computer.Computer -62153,52372.346322 +62187,48512.592943 0 @@ -18,7 +18,7 @@ Set Results = $ZF(-1,"Taskkill /S "_..ServerName_" /F /IM "_Process_" /T") If (Results = 128) { - Do ##class(vhLib.Logger).%New("Computer").Warning("Computer "_..ServerName_" stop failed","Kon het proces '"_Process_"' op optibox '"_..ServerName_"' niet afsluiten. Het process was niet opgestart. Exit code : "_Results) + Do ##class(vhLib.Logger).%New("Computer").Info("Computer "_..ServerName_" stop failed","Kon het proces '"_Process_"' op optibox '"_..ServerName_"' niet afsluiten. Het process was niet opgestart. Exit code : "_Results) }ElseIf (Results '= 0) { Do ##class(vhLib.Logger).%New("Computer").ErrorMail("Computer "_..ServerName_" stop failed","Kon het proces '"_Process_"' op optibox '"_..ServerName_"' niet afsluiten. Exit code : "_Results) @@ -42,6 +42,36 @@ Quit Return ]]> + + +%Status + + + + +%Status + + - + Index: DOM/LEV/impl/DataM/DataMToelevering.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/LEV/impl/DataM/DataMToelevering.cls.xml (.../DataMToelevering.cls.xml) (revision 946) +++ DOM/LEV/impl/DataM/DataMToelevering.cls.xml (.../DataMToelevering.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 %RegisteredObject,DOM.LEV.Toelevering -62166,54968.125343 +62187,31849.581921 0 @@ -35,7 +35,7 @@ } Else { - Set Status = 0 + Set Status = $$$ERROR($$$GeneralError,"Toelevering niet aanwezig in het systeem") } Quit Status ]]> @@ -47,6 +47,12 @@ ]]> + +%Date + + + %Integer @@ -90,7 +96,7 @@ -Type:DOM.OV.enu.OrderlijnType +Type:DOM.LEV.enu.ToeleveringLijnType TECH.Iterator @@ -107,5 +113,5 @@ ]]> - + Index: APPS/common/enu/StockType.cls.xml =================================================================== diff -u -r946 -r994 --- APPS/common/enu/StockType.cls.xml (.../StockType.cls.xml) (revision 946) +++ APPS/common/enu/StockType.cls.xml (.../StockType.cls.xml) (revision 994) @@ -1,10 +1,11 @@ - + datatype 1 TECH.Enumeration 62164,52205.53827 +62179,29581.29793 0 @@ -52,5 +53,5 @@ ]]> - + Index: BL/PPS/TBX/sub/pxLabelV1.cls.xml =================================================================== diff -u -r734 -r994 --- BL/PPS/TBX/sub/pxLabelV1.cls.xml (.../pxLabelV1.cls.xml) (revision 734) +++ BL/PPS/TBX/sub/pxLabelV1.cls.xml (.../pxLabelV1.cls.xml) (revision 994) @@ -1,9 +1,9 @@ - + 1 BL.Sys.pxLabel -62038,42208.580797 +62180,37090.94226 61037,41770.410437 0 @@ -101,6 +101,14 @@ %String + +%String + + + +%String + + %String @@ -141,7 +149,7 @@ %Status 0) ..TiponCount Write *9,..Line @@ -168,5 +176,5 @@ ]]> - + Index: DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml (.../DataMProductOrderlijn.cls.xml) (revision 946) +++ DOM/OV/impl/DataM/DataMProductOrderlijn.cls.xml (.../DataMProductOrderlijn.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + 1 DOM.OV.impl.DataM.DataMOrderlijn,DOM.OV.ProductOrderlijn @@ -14,7 +14,7 @@ @@ -90,5 +90,5 @@ ]]> - + Index: DOM/CRM/BehandeldOnderwerp/Actie.cls.xml =================================================================== diff -u -r734 -r994 --- DOM/CRM/BehandeldOnderwerp/Actie.cls.xml (.../Actie.cls.xml) (revision 734) +++ DOM/CRM/BehandeldOnderwerp/Actie.cls.xml (.../Actie.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 %Persistent -61901,38970.854541 +62189,56523.379108 61879,57172.341642 0 @@ -26,12 +26,23 @@ %String + +%String +1 + + %String + +%String + + + %Library.CacheStorage ^CRM.BehOnd.ActieD @@ -65,5 +76,5 @@ - + Index: APPS/PM/Maatwerk/OLM/BouwsteenExport.cls.xml =================================================================== diff -u --- APPS/PM/Maatwerk/OLM/BouwsteenExport.cls.xml (revision 0) +++ APPS/PM/Maatwerk/OLM/BouwsteenExport.cls.xml (revision 994) @@ -0,0 +1,176 @@ + + + +1 +%RegisteredObject +62189,52597.839825 +0 + + + +Do ##class(APPS.PM.Maatwerk.OLM.BouwsteenExport).Import("\\NOTES01\SHARED\C S C\ExportBouwstenenOLM.xls") +1 +FileLocation:%String + + + + + +Do ##class(APPS.PM.Maatwerk.OLM.BouwsteenExport).Export() +1 + + + + +1 +Korttekst:%String +DOM.PM.Product + + + + + Index: DOM/PM/Bouwstenen/SchBouwsteenHalfFabr.cls.xml =================================================================== diff -u --- DOM/PM/Bouwstenen/SchBouwsteenHalfFabr.cls.xml (revision 0) +++ DOM/PM/Bouwstenen/SchBouwsteenHalfFabr.cls.xml (revision 994) @@ -0,0 +1,89 @@ + + + +persistent +1 +VHOpslag +DOM.PM.Bouwstenen.SchBouwsteen +62173,47013.098899 +59772,53878.611013 +0 + + + +Gebruikt als Type="K" of "H" +Prod.Product + + + +Orgalux -> Verpakkingscode + I = Invidueel : Product dient los verpakt te worden –> te groot om samen met andere in één set verpakt te worden, dus apart etiket + S = Single : Product dient gegroepeerd verpakt te worden -> bv matjes + O = Oververpakking : Markering van de overdoos +voor LINK(niet gebruikt) -> LinkType (wordt alleen gebruikt in de cache) + T = Tweeling (alles hetzelfde behalve identnr, korttekst, langtekst, levref en levtxt + A = Aankoopprijs + V = Verkoopprijs]]> +%String + + + + +Optioneel : Het submagazijn wordt gedefault vanuit KPR maar kan hier over-ruled worden +Waarde : O=Onderdeel, M=Montage, Z=Zaag ,P=Montage Pro +%String + + + + +Optioneel : Het magazijn waaruit de halffabrikaat moeten komen, gedefault vanuit KPR maar kan hier over-ruled worden +Waarde : Leeg of “W” +%String + + + + +Welke bouwstenen bijdragen tot de meerwaarde +%Boolean + + + + +Bij het fusioneren van producten dienen ook de bouwstenen vervangen te worden, hier wordt de oude productreferenties bijgehouden +%String + + + +%CacheSQLStorage +^Prod.BouwStenenS + + +"\" +1 + + +"\" +16 + + +"\" +20 + + +"\" +12 + + +"\" +15 + + +"\" +14 + + + + + + Index: DOM/CRM/BehandeldOnderwerp/BehandeldOnderwerp.cls.xml =================================================================== diff -u -r734 -r994 --- DOM/CRM/BehandeldOnderwerp/BehandeldOnderwerp.cls.xml (.../BehandeldOnderwerp.cls.xml) (revision 734) +++ DOM/CRM/BehandeldOnderwerp/BehandeldOnderwerp.cls.xml (.../BehandeldOnderwerp.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + persistent 1 vhLib.Persistent -61902,47387.003518 +62189,56914.532014 61879,57172.677969 0 @@ -161,6 +161,18 @@ ]]> + +%String + + + + +%String + + + %Library.CacheStorage ^CRM.BehOnd.BehOndD @@ -220,5 +232,5 @@ - + Index: DOM/OV/Order.cls.xml =================================================================== diff -u -r946 -r994 --- DOM/OV/Order.cls.xml (.../Order.cls.xml) (revision 946) +++ DOM/OV/Order.cls.xml (.../Order.cls.xml) (revision 994) @@ -1,5 +1,5 @@ - + Interface voor orders. @@ -17,7 +17,7 @@ waardoor ze een nummer krijgen. 1 1 -62168,56510.060767 +62178,37751.423023 0 @@ -29,54 +29,71 @@ 1 %String + 1 DOM.CRM.Klant + 1 %Integer + 1 %Integer + 1 DOM.common.Adres + - + 1 LijnNr:%Integer DOM.OV.Orderlijn - + 1 TECH.Iterator - + 1 -Type:DOM.OV.enu.OrderlijnType +Type:DOM.OV.enu.OrderLijnType TECH.Iterator + +1 +DOM.VKP.VerzendWijze + + + +1 +%String + + 1 %Boolean + 1 %Boolean + - + Index: BL/Prod/Search.cls.xml =================================================================== diff -u -r946 -r994 --- BL/Prod/Search.cls.xml (.../Search.cls.xml) (revision 946) +++ BL/Prod/Search.cls.xml (.../Search.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + Search in the product index BL.Prod,%Prod.Product 1 %RegisteredObject -62171,39652.070701 +62188,30460.222302 60207,60266.090772 0 @@ -408,6 +408,7 @@ 1 - + Index: DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml =================================================================== diff -u -r966 -r994 --- DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml (.../DataMKlantAPI.cls.xml) (revision 966) +++ DOM/CRM/impl/DataM/DataMKlantAPI.cls.xml (.../DataMKlantAPI.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + TECH.Error,BL.Derde.KlantSpecifiek 1 DOM.CRM.KlantAPI,%RegisteredObject -62178,31438.324418 +62185,38943.521443 0 @@ -69,7 +69,9 @@ Set $Piece(Data(0),..#Delimiter,7) = dtoKlant.Adres.GeefGemeente() Set $Piece(Data(0),..#Delimiter,8) = dtoKlant.Adres.GeefLandNr() Set $Piece(Data(0),..#Delimiter,13) = dtoKlant.Telefoon1 - Set $Piece(Data(0),..#Delimiter,16) = dtoKlant.BTWNummer + If (dtoKlant.BTWNummer '= ""){ + Set $Piece(Data(0),..#Delimiter,16) = dtoKlant.BTWNummer + } Set $Piece(Data(0),..#Delimiter,28) = $h Set $Piece(Data(0),..#Delimiter,29) = "SYS" Set $Piece(Data(0),..#Delimiter,31) = KlantIndex @@ -79,7 +81,7 @@ Set $Piece(Data(2),..#Delimiter,19) = dtoKlant.Email - Set $Piece(Data(5),..#Delimiter,5) = dtoKlant.Opmerking12 + Set $Piece(Data(1),..#Delimiter,4) = dtoKlant.Opmerking1 /// Data wegschrijven in global DKL for i = 0 : 1 : 8 Set ^DKL("K","KL.A",KlantNummer,i)=Data(i) @@ -132,6 +134,29 @@ ]]> + + +Zoekt tussen de klanten de medewerkers van VanHoecke en Halux +Dit op basis van het PersNr vanuit ProTime dat kan worden opgegeven. +Als dit niet is opgegeven, geeft hij alle medewerkers terug. +ProTimeNr:%Integer +DOM.CRM.Klant + + + Ophalen van template uit ^KBA("%A",1,"KL") @@ -163,5 +188,5 @@ ]]> - + Index: CHUI/PPS/TBX/LeanBatch.cls.xml =================================================================== diff -u -r946 -r994 --- CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 946) +++ CHUI/PPS/TBX/LeanBatch.cls.xml (.../LeanBatch.cls.xml) (revision 994) @@ -1,10 +1,10 @@ - + BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek,%VHMacro 0 %RegisteredObject -62161,50844.606673 +62189,50187.20088 61671,56287.96672 0 @@ -35,6 +35,21 @@ 1 + +%Integer +1 + + + +BL.PPS.TBX.ToeleveringProductInfo +1 + + + +APPS.Halux.common.Batch +1 + + $LB(TOENr,Datum,KlantNaam,ProdDatum,Type,AantLaden,AantTipOn,AantSpoelbak,AantBaliko) @@ -101,79 +116,116 @@ Do ##class(CHUI.PPS.TBX.LeanBatch).HATBXLean() 1 + +Batch:APPS.Halux.common.Batch +1 + + + -Scrollen in de batchlijst +Scrollen in de toeleveringlijst +0 +%String 0) { Set Batch = "" } Else { Kill Batch } // Nodig om de gui mooi te laten werken :) + If Input="COM" { Do CALL^vhMenu("LEANBATCH") } + Do EXEC^vhMenu("LEANBATCH",.Input) + } + Do ..Save() + Quit Input ]]> Een batchnummer selecteren uit de actieve batches + +1 %Integer - - -opslaan van instellingen zodanig dat terug kan gegaan worden naar het bovenliggende programma RPLPROD - - - - - -herstellen van de instellingen - - - + +1 +1 + + + Lijst opbouwen om op het scherm te tonen - + +1 Eén lijn opzoeken - +Toelevering:DOM.LEV.Toelevering +1 +%List Instellen van het scherm "HATBXLEAN": bovenste 2 lijnen -BatchNr - - - - -Opzoeken van de markering van een toelevering -TOENr - - -List1,List2 + +BatchID:%Integer +1 +%Integer - - -Berekenen van de planningtijd -TOENr - - - Write en Update van lijst @@ -340,216 +354,123 @@ ]]> - - -Controleert of een TOENr mag toegevoegd worden aan een batch - -1 Do WARN^vhTXTPOP("Toelevering "_$$EXTNUM^vhDTyp(TOENr,0,".",0)_" bevat meerdere productie wijzen : "_ProdGrp_"!","") - If ProdGrp'=$G(ProdGrpBatch)&&($G(ProdGrpBatch)'="") Do - . Do WARN^vhTXTPOP("Toelevering "_$$EXTNUM^vhDTyp(TOENr,0,".",0)_" kan niet worden toegevoegd,~ verschillende productiegroep : "_ProdGrp_"!","") - . Set ChkTOENr=0 - If ChkTOENr,((ProdGrp="P")!(ProdGrp="+")) Do - . Set ChkTOENr=..ProductiedatumOk(TOENr,.Selected) - . If $$$ISERR(ChkTOENr) Set ChkTOENr=$$^vhTXTPOP("HATBXLEAN","CHKDATUM","",$Piece($$ParseStatus^vhLib(ChkTOENr),": ",2,99)) - If ChkTOENr,((ProdGrp="A")!(ProdGrp="+")) Do - . New LevAdr1,LevAdr2,TOENr2 - . Set TOENr2=$O(Selected("")) - . Quit:TOENr2="" ; nog geen ingeven - . Set LevAdr1=..GetLevAdres(TOENr) - . Set LevAdr2=..GetLevAdres(TOENr2) - . If LevAdr1'=LevAdr2 Set ChkTOENr=$$^vhTXTPOP("HATBXLEAN","CHKLEVADR","",TOENr_" : "_$E($TR(LevAdr1,"\",";"),1,60),TOENr2_" : "_$E($TR(LevAdr2,"\",";"),1,60)) - - Do ..blLeanBatch.OnderdelenPerTOENr(TOENr,.Aantal) - If $P(Aantal,"\",5)'="" { ; Onderdelen speciaal - Set Inp=$$^vhTXTPOP("HATBXLEAN","ODSP","",TOENr,$P(Aantal,"\",5)) - } - Quit ChkTOENr -]]> - - - - -d ##class(CHUI.PPS.TBX.LeanBatch).testpv() -1 - - - - - -Ophalen leveringsadres -1 -TOENr - - - Nazicht of een toelevering in een andere batch is opgenomen - +Toelevering:DOM.LEV.Toelevering 1 +1 - - -Controleert of de productiedatum al voorkomt bij een andere toelevering in de batch - -1 - - - - - -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 -]]> - - Opslaan van een nieuwe batch +1 10 ; er zijn geen toeleveringnummers - Set Status=..blLeanBatch.AddBatch(.Batch,ProdGrpBatch) - if $$$ISERR(Status) Do WARN^vhTXTPOP($$ParseStatus^vhLib(Status),"Batch niet toegevoegd") Quit - if '$$$ISERR(Status) { ; als de nieuwe batch opgeslagen is, dan wordt het nieuwe batchnummer meegegeven - Set BatchNr=Status - Do ADD^vhLock("^PPS.Batch("_BatchNr_")") - } - } + Set ToeleveringIterator = ..NieuweBatch.GeefToeleveringIterator() + If ((..NieuweBatch.GeefBatchID() = "") && ToeleveringIterator.HasNext()) + { + Set Status = ..blLeanBatch.AddBatch(..NieuweBatch) + If $$$ISERR(Status) + { + Do WARN^vhTXTPOP($$ParseStatus^vhLib(Status),"Batch niet toegevoegd") + } + Else + { + Do ADD^vhLock("^PPS.Batch("_..NieuweBatch.GeefBatchID()_")") + } + } ]]> - - -Controleert of het een spoelbak is -PRNr -1 - - - Controleert of in de batch toeleveringen zitten voor SFS 1 +1 Controleert of in de batch toeleveringen zitten met antislipmat of producten met verpakking O,B 1 +1 1 +1 @@ -560,122 +481,114 @@ BatchNr %Boolean Controleert de printstatus van de tipon -BatchNr +PrintLijst:%List 1 +1 %String -BatchNr +PrintLijst:%List 1 +1 %String -BatchNr +PrintLijst:%List 1 +1 %String -BatchNr +PrintLijst:%List 1 +1 %String -BatchNr +PrintLijst:%List 1 +1 %String -BatchNr +PrintLijst:%List 1 +1 %String Controleert de opties voor het afdrukken van documenten -BatchNr 1 +1 %String @@ -688,86 +601,34 @@ + + + +1 +Substring:%String +1 + @@ -780,8 +641,7 @@ Quit:Opties'["K"&(Opties'["E")&(Opties'["T") ; er wordt niets gevraagd als er geen productie-etiketten of klantetiketten of tipon-etiketten zijn Quit:'..BatchInSequence(BatchNr) - Set oBatch=##class(DS.PPS.TBX.Batch).%OpenId(BatchNr) - Set PrintList=oBatch.PrintList + Set PrintList=##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(BatchNr).PrintLijst Quit:'$LF(PrintList,"E")&'$LF(PrintList,"K") ; als de lijst nog niet afgedrukt is, dan wordt er niets gevraagd &SQL(Select Max(Sequence) into :MaxNr from PPS.TBX_Queue where BatchId=:BatchNr) Set (MaxNr,EndNr)=MaxNr @@ -798,34 +658,33 @@ Selecteer de productielijn -BatchID +1 %String @@ -841,44 +700,41 @@ Afdrukken van de labels 1 Do - . Do WARN^vhTXTPOP("Batch bevat zowel ProPlus als andere verpakkingen,~ de lijsten kunnen niet aangemaakt worden") - Else If ProdGrpBatch="+" Do ; ProPlus - Keller - . Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINTPROPLUS",..ChkOpties(BatchNr)) - . Quit:zb="CANC" - . Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr) - . Do ..blLeanBatch.PrintProPlus(BatchNr,$TR(Opties,";",""),.Text,.SkippedText,$G(StartNr),$G(EndNr)) - Else If ProdGrpBatch="A" Do ; Kast - . ;b "s+" - . Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINTKAST",..ChkOpties(BatchNr)) - . Quit:zb="CANC" - . Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr) - . Do ..blLeanBatch.PrintCabinet(BatchNr,$TR(Opties,";",""),.Text,.SkippedText,$G(StartNr),$G(EndNr)) - Else Do ; ProdGrpBatch = "P" of "S" , pallet of stuks verpakt - . Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINT",..ChkOpties(BatchNr)) - . Quit:zb="CANC" - . Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr) - . Do ..blLeanBatch.PrintV1(BatchNr,ProdGrpBatch,$TR(Opties,";",""),.Text,$G(StartNr),$G(EndNr)) - Do:$L(Text)>2 WARN^vhTXTPOP($E(Text,2,999),"Overzicht") - Do:$L($G(SkippedText)) WARN^vhTXTPOP($$REPLACE^vhRtn1(SkippedText,">CR<","~"),"Producten die niet werden toegevoegd") - // [??] - #IF $$$NSpace="DEV-ADMIN1" - Do DISPLAY^vhScherm("HATBXLEAN",,,,"BATCHNR") - Do ..Fetch(BatchNr,.Batches,.Batch,.Selected) - Do ..ToonHeader(BatchNr) - Do ..Init() - Do ..Write(OldSel) - #ELSE - Do ..Write(OldSel) - #ENDIF + New zb,Opties,OldSel + Quit:..NieuweBatch.GeefBatchID()="" + Do ..Save() + Set OldSel=Lijst("SELECT") + Do DISPLAY^vhScherm("HATBXLEAN",,,,"BATCHNR") + Set (Text,SkippedText)="" + Do ..SelecteerLijn() + If ProdGrpBatch="+" Do ; ProPlus - Keller + . Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINTPROPLUS",..ChkOpties()) + . Quit:zb="CANC" + . Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr) + . Do ..blLeanBatch.PrintProPlus(BatchNr,$TR(Opties,";",""),.Text,.SkippedText,$G(StartNr),$G(EndNr)) + Else If ProdGrpBatch="A" Do ; Kast + . ;b "s+" + . Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINTKAST",..ChkOpties()) + . Quit:zb="CANC" + . Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr) + . Do ..blLeanBatch.PrintCabinet(BatchNr,$TR(Opties,";",""),.Text,.SkippedText,$G(StartNr),$G(EndNr)) + Else Do ; ProdGrpBatch = "P" of "S" , pallet of stuks verpakt + . Set Opties=$$PI^vhPOPUP("C;C","-1MO","","HATBXLEAN","PRINT",..ChkOpties()) + . Quit:zb="CANC" + . Do ..SelecteerEtiketten(BatchNr,Opties,.StartNr,.EndNr) + . Do ..blLeanBatch.PrintV1(BatchNr,ProdGrpBatch,$TR(Opties,";",""),.Text,$G(StartNr),$G(EndNr)) + Do:$L(Text)>2 WARN^vhTXTPOP($E(Text,2,999),"Overzicht") + Do:$L($G(SkippedText)) WARN^vhTXTPOP($$REPLACE^vhRtn1(SkippedText,">CR<","~"),"Producten die niet werden toegevoegd") + // [??] + #IF $$$NSpace="DEV-ADMIN1" + Do DISPLAY^vhScherm("HATBXLEAN",,,,"BATCHNR") + Do ..Fetch(.Selected) + Do ..ToonHeader() + Do ..Init() + Do ..Write(OldSel) + #ELSE + Do ..Write(OldSel) + #ENDIF ]]> @@ -887,56 +743,117 @@ Verwijderen van een sequence BatchNr Toevoegen van een toeleveringsnummer 0) + { + Set Inp=$$^vhTXTPOP("HATBXLEAN","ODSP","",Toelevering.GeefToeNr(),ToeleveringProductInfo.AantalOnderdelenSpeciaal) + } + If ..NieuweBatch.GeefBatchID()="" + { + Set Selected(TOENr)="" + Set $ZTRAP="ToevoegenFout" + Do ..NieuweBatch.VoegToeToelevering(Toelevering) + Set $ZTRAP = "" + Set Lijst("MAX")=..AantalLijnen + 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() + + Do STORE^vhTERMINA() + Set TOENr=$$SELECT^FLOW("KTO","KTO1",1,.Selected,.DERDENr) + Do REFRESH^vhTERMINA() + + } + Set Lijst("POS")=LijstOld("POS"),Lijst("SET")=LijstOld("SET") ; terug zetten naar full screen + Do WRITE^vhLIST(.Lijst) + + Quit +ToevoegenFout + Set $ZTRAP = "" + Set Exception = ##class(TECH.ExceptionHandler).Catch("APPS.Halux.common.impl.ToeleveringException") + Do WARN^vhTXTPOP(..FormateerLangeString(Exception.ToString()),"") + Goto Begin ]]> + +String:%String +1 +1 +%String + + + -BatchNr,TOENr +Toelevering +1 @@ -945,88 +862,108 @@ Verwijderen van een toeleveringsnummer Verwijderen van alle toeleveringen Toont HADOPV van de geselecteerde toelevering BatchNr,LijnNr +1 + + +Sequencenummer:%Integer +1 +1 + + - + Index: BL/PPS/TBX/DocsV1.cls.xml =================================================================== diff -u -r946 -r994 --- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 946) +++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 994) @@ -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 -62172,63260.169549 +62185,47488.70111 60997,54476.941438 0 @@ -157,14 +157,14 @@ } ;update in batch - Set oBatch=##class(DS.PPS.TBX.Batch).%OpenId(..BatchID) - Set PrintList=oBatch.PrintList + Set PrintLijstInfo = ##class(BL.PPS.TBX.PrintLijstInfo).GeefPrintLijstInfo(..BatchID) + Set PrintList=PrintLijstInfo.PrintLijst For i=1:1:$L(Opties) Do . Set Optie=$E(Opties,i) . If Optie="P" Set Optie="PA" . If '$LF(PrintList,Optie) Set PrintList=PrintList_$LB(Optie) - Set oBatch.PrintList=PrintList - Do oBatch.%Save() + Set PrintLijstInfo.PrintLijst=PrintList + Do PrintLijstInfo.%Save() ]]> @@ -299,6 +299,34 @@ . Set VolgNr=$$$Prev(VolgNr) Quit + /* BldGVP(From, To) + New Rec,PRNr,GVP + Set Rec=$$$GetRec(From) + Set PRNr=$$$GetZijPRNr(From) + Set GVP=$$$PRGet($$$GrootVerpakking) + Set Rec=$$$GetRec(VolgNr) + Set $P(Rec,"\",19)="D"_PRNr + Set $P(Rec,"\",20)="Doos V"_GVP + $$$SetRec(Rec) + Quit + +TryGVP(VolgNr) + New PRNr,KVP,GVP,NVP,Done + Set PRNr=$$$GetZijPRNr(VolgNr) + Quit:PRNr'?4.7N "" + Set KVP=$$$PRGet($$$KleinVerpakking) + Set NVP=$$$PRGet($$$NormaleVerpakking) + Set GVP=$$$PRGet($$$GrootVerpakking) + If (KVP=1)||(NVP=1)||(GVP=1) Quit "" + Set Done=0 + For Do Quit:Done + . Set GVP=GVP-1 + . If GVP=0 Set Done=1 Quit + . Set VolgNr=$$$NextDone(VolgNr) Quit:Done + . If PRNr'=$$$GetZijPRNr(VolgNr) Set Done=1 Quit + If 'GVP Quit VolgNr + Quit ""*/ + BldGVP(From, To) New Rec,PRNr,GVP Set Rec=$$$GetRec(From) @@ -696,23 +724,12 @@ ]]> - -StartNr,EndNr - - - proc:LabelProcessor,StartNr:%Numeric,EndNr:%Numeric 1 - + Index: APPS/Halux/Planning/dto/DataLijst.cls.xml =================================================================== diff -u --- APPS/Halux/Planning/dto/DataLijst.cls.xml (revision 0) +++ APPS/Halux/Planning/dto/DataLijst.cls.xml (revision 994) @@ -0,0 +1,15 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +62185,29167.252429 +0 + + +%Date +list + + + + Index: CHUI/Orgalux/PrintSelect.cls.xml =================================================================== diff -u -r946 -r994 --- CHUI/Orgalux/PrintSelect.cls.xml (.../PrintSelect.cls.xml) (revision 946) +++ CHUI/Orgalux/PrintSelect.cls.xml (.../PrintSelect.cls.xml) (revision 994) @@ -1,12 +1,12 @@ - + d OrgaluxPrintSelect^CHUI.Projects() %occInclude,%Prod.Product,APPS.PM.OL.Common,DOM.PM.OL,DOM.DomeinContext 1 %CHUI.TForm -62167,41042.012469 +62182,41355.631899 60290,55550.636499 0 @@ -283,11 +283,11 @@ Set ..pmLadeDiepte=##class(%CHUI.TPopup).Create(%this,"pmLadeDiepte","LadeDiepte",..lblLadeDiepte.Top,..#Col2,2,25) Set ..pmLadeDiepte.opMultiSelect=1 Do ..pmLadeDiepte.InitSpec(,,,10) - Do ..pmLadeDiepte.AddItem(45,"45") - Do ..pmLadeDiepte.AddItem(50,"50") - Do ..pmLadeDiepte.AddItem(55,"55") - Do ..pmLadeDiepte.AddItem(60,"60") - Do ..pmLadeDiepte.AddItem(65,"65") + set itDieptes = ##class(TECH.ListIterator).%New(..GeefGebruikteLadeDieptes()) + while itDieptes.HasNext() { + set Diepte = itDieptes.Next() + Do ..pmLadeDiepte.AddItem(Diepte,Diepte) + } Do ..pmLadeDiepte.DefaultFrames() Set ..pmKleur=##class(%CHUI.TPopup).Create(%this,"pmKleur","Kleur",..lblKleur.Top,..#Col2,2,25) @@ -300,9 +300,11 @@ Set ..pmWandDikte=##class(%CHUI.TPopup).Create(%this,"pmWandDikte","WandDikte",..lblWandDikte.Top,..#Col2,2,25) Set ..pmWandDikte.opMultiSelect=1 Do ..pmWandDikte.InitSpec(,,,10) - Do ..pmWandDikte.AddItem("16","16") - Do ..pmWandDikte.AddItem("18","18") - Do ..pmWandDikte.AddItem("19","19") + set itWandDiktes = ##class(TECH.ListIterator).%New(..GeefGebruikteWandDiktes()) + while itWandDiktes.HasNext() { + set WandDikte = itWandDiktes.Next() + Do ..pmWandDikte.AddItem(WandDikte,WandDikte) + } Do ..pmWandDikte.DefaultFrames() Set ..pmLadeType=##class(%CHUI.TPopup).Create(%this,"pmLadeType","Type lade",..lblLadeType.Top,..#Col2,2,25) @@ -781,6 +783,32 @@ . Do oPopup.AddItem($LI(lbSleutel,I),$LI(lbSleutel,I)) ]]> + + +1 +%ListOfDataTypes + + + + +1 +%ListOfDataTypes + + - + Index: APPS/Halux/common/enu/ProductieLijn.cls.xml =================================================================== diff -u --- APPS/Halux/common/enu/ProductieLijn.cls.xml (revision 0) +++ APPS/Halux/common/enu/ProductieLijn.cls.xml (revision 994) @@ -0,0 +1,33 @@ + + + +datatype +1 +%String +62175,55054.669508 +0 + + +,1,2,K + + + +1 + + + + +1 + + + + +1 + + + + + FishEye: Tag 994 refers to a dead (removed) revision in file `APPS/Halux/enu/ProductieGroep.cls.xml'. FishEye: No comparison available. Pass `N' to diff? FishEye: Tag 994 refers to a dead (removed) revision in file `APPS/PM/OL/impl/OrgaluxProduct.cls.xml'. FishEye: No comparison available. Pass `N' to diff?