Reconstructie van de orderintake, vertrekkend van de uitleveringen en orders De data wordt opgeslagen in een tijdelijke datastructuur (process afhankelijk) persistent Prod.Product TECH.Persistent %String %String %String %String %String %Date %String %String %String %String %Date %Time %String %String %String %Integer %Date %Date %Date %Date %Date %Date %Float %Float %Float %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.OrderFacturen t 1 Naam:%String="" 1 1 Translator:AX.Uitgaand.EC.DataAX.impl.Translator,FAKNr:%String,FakDatum:%Date,FromType:%String,KLNr:%Integer,ORDNr:%Integer,OrderDatum:%Date,OrderTijd:%Time,IntakeType:%String,OrderVerwerker:%String,BONNr:%Integer,LeverDatum:%Date,Verzendwijze:%String,PickDatum:%Date,PickTijd:%Time,Straat:%String,PostKode:%String,Woonplaats:%String,LandKode:%String,Afstand:%Float,PRNr:%Integer,Qty:%Integer,BevestigdeLeverDatum:%Date,VerwachteLeverDatum:%Date,OmzetVerkoop:%Float,OmzetAankoop:%Float FakDatum Set OrderDatum=FakDatum Set OrderDtl.OrderDatum=OrderDatum Set OrderDtl.OrderTijd=OrderTijd Set OrderDtl.ORDNr=ORDNr Set OrderDtl.BONNr=BONNr Set OrderDtl.FactuurNr=FAKNr Set OrderDtl.FactuurDatum=FakDatum Set Verzendwijze=$P($P(Verzendwijze,";"),":") Set TransportDuur=$P($G(^RES("KLANT","PI","VERZENDWIJZE","D",$S(Verzendwijze="":"*",1:Verzendwijze))),"`",7) Set:TransportDuur="" TransportDuur=1 If BevestigdeLeverDatum["/" Set BevestigdeLeverDatum=$$INTDATE^vhLib.DataTypes(BevestigdeLeverDatum,"DW") Set OrderDtl.OntvangstDatumBevestigd=BevestigdeLeverDatum Set OrderDtl.VerzendDatumBevestigd=$$CALCDATE^vhLib.DataTypes(BevestigdeLeverDatum,"A",-TransportDuur) If VerwachteLeverDatum["/" Set VerwachteLeverDatum=$$INTDATE^vhLib.DataTypes(VerwachteLeverDatum,"DW") Set:VerwachteLeverDatum="" VerwachteLeverDatum=BevestigdeLeverDatum Set OrderDtl.OntvangstDatumGevraagd=BevestigdeLeverDatum Set OrderDtl.VerzendDatumGevraagd=$$CALCDATE^vhLib.DataTypes(BevestigdeLeverDatum,"A",-TransportDuur) Set OrderDtl.OntvangstDatumLevering=LeverDatum Set OrderDtl.VerzendDatumLevering=$$CALCDATE^vhLib.DataTypes(LeverDatum,"A",-TransportDuur) Set OrderDtl.Verzendwijze=Verzendwijze Set OrderDtl.Straat=Straat Set OrderDtl.PostKode=PostKode Set OrderDtl.Woonplaats=Woonplaats Set OrderDtl.LandKode=LandKode Set OrderDtl.ItemID=Translator.GeefItemIDForAX(PRNr) Set OrderDtl.ProductID=OrderDtl.ItemID If ($$GetOrOld^PRODUKT(PRNr,$$$GenProduct)?4.10N) { Set GenPRNr=$$GetOrOld^PRODUKT(PRNr,$$$GenProduct) Set OrderDtl.ItemID=Translator.GeefItemIDForAX(GenPRNr) Set OrderDtl.ProductID=OrderDtl.ItemID_":PR:"_PRNr Do ##class(BIProduct).Add(Translator,PRNr,GenPRNr,OrderDtl.ProductID,"PR"_PRNr,OrderDatum_","_OrderTijd) Do ##class(AXimpl.PM.Kenmerk.ConvertAll).Add(OrderDtl.ProductID,PRNr,"PR"_PRNr) } ElseIf ($$GetOrOld^PRODUKT(PRNr,$$$KortTekst)?1"IO.".E) { Set OrderDtl.ProductID=OrderDtl.ItemID_":PR:"_PRNr Do ##class(BIProduct).Add(Translator,PRNr,PRNr,OrderDtl.ProductID,"",OrderDatum_","_OrderTijd) } ElseIf ('$D(^KPR(PRNr)))&&$D(^KPRO(PRNr)) { Set OrderDtl.ProductID=OrderDtl.ItemID_":DEL:"_PRNr Do ##class(BIProduct).Add(Translator,PRNr,PRNr,OrderDtl.ProductID,"",OrderDatum_","_OrderTijd) } Set OrderDtl.AdminProductNummer=PRNr Set OrderDtl.KortTekst=$$GetOrOld^PRODUKT(PRNr,$$$KortTekst) Set OrderDtl.FromType=FromType Set OrderDtl.OrderKlant=Translator.GeefCustomerIDForAX(KLNr) Set OrderDtl.FacturatieKlant=OrderDtl.OrderKlant Set OrderDtl.Oorsprong=IntakeType Set OrderDtl.Aantal= Qty Set OrderDtl.GewichtInKg=$$GetOrOld^PRODUKT(PRNr,$$$Gewicht)/1000*Qty Set OrderDtl.Omzet= OmzetVerkoop Set OrderDtl.Kost= OmzetAankoop Do OrderDtl.Save() Quit OrderDtl ]]> 1 OrderDtl:APPS.BD.OrderStat.impl.OrderFacturen %Library.CacheStorage ^APPS.BD.Orde61EB.OrderFacturenD OrderFacturenDefaultData ^APPS.BD.Orde61EB.OrderFacturenD ^APPS.BD.Orde61EB.OrderFacturenI ^APPS.BD.Orde61EB.OrderFacturenS %%CLASSNAME Klant InternePersoon ORDNr BONNr LeverDatum Verzendwijze OrderDatum OrderTijd PickDatum PickTijd FromType IntakeType OrderVerwerker Product Aantal BevestigdeLeverDatum VerwachteLeverDatum OmzetVerkoop OmzetAankoop GenType HoofdGroep SubGenType ProductGroep GewichtInKg Woonplaats PostKode Straat LandKode Afstand OrderKlant FacturatieKlant ItemID KortTekst AdminProductNummer FactuurNr FactuurDatum Oorsprong Omzet Kost ProductID OntvangstDatumGevraagd VerzendDatumBevestigd OntvangstDatumBevestigd VerzendDatumInitieelBevestigd VerzendDatumLevering OntvangstDatumLevering VerzendDatumGevraagd