Reconstructie van de orderintake, vertrekkend van de uitleveringen en orders De data wordt opgeslagen in een tijdelijke datastructuur (process afhankelijk) persistent Prod.Product,BL.Derde.LevSpecifiek TECH.Persistent %String %String %String %String %String %String %Float %String %String %String %String %String %String %String %String %String %String %String %String %String %String %String %String %String %String %String %TimeStamp %TimeStamp %String %String %String %String ;join (select PickDatum,BONNr ,1/sum(Aantallijnen) from APPS_BD_OrderStat_impl.OrderGeleverd group by PickDatum,BONNr) g on g.PickDatum=t.PickDatum and g.BONNr=t.BONNr %SQLQuery Select * from APPS_BD_OrderStat_impl.BIProduct 1 Naam:%String="" 1 1 Translator:AX.Uitgaand.EC.DataAX.impl.Translator,PRNr:%String,GenPRNr:%String,ProductID:%String,ConfigID:%String,OrderDatum:%Date "),1,490) Set ProductDtl.AfgeleideVan=ProductDtl.ItemID Set ProductDtl.AXProductType=$S($$GetOrOld^PRODUKT(PRNr,$$$GenProduct)?1.10N:"Variant",1:"Standalone") Set ProductDtl.CalcTechBomBol=2 Set ProductDtl.InternVoorraadType=$S($$GetOrOld^PRODUKT(PRNr,$$$GenProduct)?1.10N:"Maatwerk",$$GetOrOld^PRODUKT(PRNr,$$$StockType)=0:"NietStock",1:"Stock") Set ProductDtl.ExternVoorraadType=$S($$GetOrOld^PRODUKT(PRNr,$$$GenProduct)?1.10N:"M",$$GetOrOld^PRODUKT(PRNr,$$$StockType)=0:"N",1:"S") Set ProductDtl.LeverTermijn=$$GetOrOld^PRODUKT(PRNr,$$$Gewicht) Set ProductDtl.BehoefteGroep=$S($$GetOrOld^PRODUKT(PRNr,$$$StockType)=0:"BTO",1:"BTS") Set ProductDtl.LeverancierID = "0"_$$GetOrOld^PRODUKT(PRNr,$$$LeveranciersNr) Set ProductDtl.IntrastatCode=$TR($P($G(^INTRAST(2,$$GetOrOld^PRODUKT(PRNr,$$$Statistieknummer)_" ")),"\"),".") Set ProductDtl.AankoperGroep="" Set ProductDtl.DekkingsBijdrage =$TR($J($$GetOrOld^PRODUKT(PRNr,$$$DBPerc),0,2),".",",") Set ProductDtl.CifPerc =$TR($J($$GetOrOld^PRODUKT(PRNr,$$$CifPerc),0,2),".",",") Set ProductDtl.KostPrijs =$TR($J($$GetOrOld^PRODUKT(PRNr,$$$CifPPLEUR),0,4),".",",") Set ProductDtl.ProductGroep=$$PRODGRP^PRODUKT(PRNr,1) Set ProductDtl.KlasHoofdgroep =$E($$GetOrOld^PRODUKT(PRNr,$$$Hoofdgroep),3,4) Set ProductDtl.KlasGroep =ProductDtl.KlasHoofdgroep_"-"_$E($$GetOrOld^PRODUKT(PRNr,$$$Groep),7,9) Set ProductDtl.KlasSubgroep =ProductDtl.KlasGroep_"-"_$E($$GetOrOld^PRODUKT(PRNr,$$$SubGroep),12,17) Set ProductDtl.CodexGroep=$S(ProductDtl.ProductGroep="OL":"OL",1:"STD") Set ProductDtl.Afbeelding ="" Set ProductDtl.KleinVerpakAantal =$$GetOrOld^PRODUKT(PRNr,$$$NormaleVerpakking) Set ProductDtl.GrootVerpakAantal =$$GetOrOld^PRODUKT(PRNr,$$$GrootVerpakking) Set ProductDtl.PalletAantal ="" Do ProductDtl.Save() Set ^||MemProduct(PRNr)="" Quit ProductDtl ]]> %Library.CacheStorage ^APPS.BD.OrderSta61EB.BIProductD BIProductDefaultData ^APPS.BD.OrderSta61EB.BIProductD ^APPS.BD.OrderSta61EB.BIProductI ^APPS.BD.OrderSta61EB.BIProductS %%CLASSNAME OrderKlant FacturatieKlant ORDNr BONNr FactuurNr FactuurDatum ItemID ProductID KortTekst LeverDatum Verzendwijze OrderDatum OrderTijd FromType Oorsprong AdminProductNummer Aantal BevestigdeLeverDatum VerwachteLeverDatum Omzet Kost GewichtInKg Woonplaats PostKode Straat LandKode LangTekst NettoGewicht AfgeleideVan AXProductType CalcTechBomBol InternVoorraadType ExternVoorraadType LeverTermijn BehoefteGroep LeverancierID IntrastatCode AankoperGroep DekkingsBijdrage KlasHoofdgroep ProductGroep KlasGroep KlasSubgroep CodexGroep Afbeelding KleinVerpakAantal GrootVerpakAantal PalletAantal CreatieTijdstip ModifyTijdstip CifPerc KostPrijs HoutCertificaatID ConfigID