Index: APPS/BD/OrderStat/impl/BIProduct.cls.xml
===================================================================
diff -u
--- APPS/BD/OrderStat/impl/BIProduct.cls.xml (revision 0)
+++ APPS/BD/OrderStat/impl/BIProduct.cls.xml (revision 54050)
@@ -0,0 +1,378 @@
+
+
+
+
+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
+
+
+
+
+%Float
+
+
+
+%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,ProductID:%String,OrderDatum:%Date
+"),1,490)
+ Set ProductDtl.AfgeleideVan=ProductDtl.ItemID
+ Set ProductDtl.AXProductType="Variant"
+ Set ProductDtl.CalcTechBomBol=2
+ Set ProductDtl.InternVoorraadType="Maatwerk"
+ Set ProductDtl.ExternVoorraadType="M"
+ 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="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
+
+
+
+
+
+
+
+
Index: APPS/BD/OrderStat/impl/OrderFacturen.cls.xml
===================================================================
diff -u
--- APPS/BD/OrderStat/impl/OrderFacturen.cls.xml (revision 0)
+++ APPS/BD/OrderStat/impl/OrderFacturen.cls.xml (revision 54050)
@@ -0,0 +1,344 @@
+
+
+
+
+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
+
+
+
+%Date
+
+
+
+%String
+
+
+
+%Date
+
+
+
+%Time
+
+
+
+%String
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+%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
+ If BevestigdeLeverDatum["/" Set BevestigdeLeverDatum=$$INTDATE^vhLib.DataTypes(BevestigdeLeverDatum,"DW")
+ Set OrderDtl.BevestigdeLeverDatum=BevestigdeLeverDatum
+ If VerwachteLeverDatum["/" Set VerwachteLeverDatum=$$INTDATE^vhLib.DataTypes(VerwachteLeverDatum,"DW")
+ Set:VerwachteLeverDatum="" VerwachteLeverDatum=BevestigdeLeverDatum
+ Set OrderDtl.VerwachteLeverDatum=VerwachteLeverDatum
+ Set OrderDtl.Verzendwijze=Verzendwijze
+ Set OrderDtl.LeverDatum=LeverDatum
+ 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 OrderDtl.ProductID=OrderDtl.ProductID_":PR:"_PRNr
+
+ Do ##class(BIProduct).Add(Translator,PRNr,OrderDtl.ProductID,OrderDatum_","_OrderTijd)
+ Do ##class(AXimpl.PM.Kenmerken.ConvertAll).Add(OrderDtl.ProductID,PRNr,"PR"_PRNr)
+ }
+
+ 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
+
+
+
+
+
+
+
+
Index: APPS/BD/OrderStat/impl/OrderGeleverd.cls.xml
===================================================================
diff -u -r40616 -r54050
--- APPS/BD/OrderStat/impl/OrderGeleverd.cls.xml (.../OrderGeleverd.cls.xml) (revision 40616)
+++ APPS/BD/OrderStat/impl/OrderGeleverd.cls.xml (.../OrderGeleverd.cls.xml) (revision 54050)
@@ -5,6 +5,7 @@
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
@@ -24,7 +25,7 @@
-%String
+%Date
@@ -53,6 +54,7 @@
%String
+
@@ -67,6 +69,18 @@
%Integer
+
+%Date
+
+
+
+%Date
+
+
+
+%Integer
+
+
%Integer
@@ -79,10 +93,51 @@
%Float
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Float
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%Float
+
+
+
+ ;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
-LandCode,Klant->Divisie,Klant->SubDivisie,Klant->Sektor from APPS_BD_OrderStat_impl.OrderGeleverd t
- join (select PickDatum,BONNr ,1/sum(Aantallijnen) from APPS_BD_OrderStat_impl.OrderGeleverd group by BONNr) g on g.PickDatum=t.PickDatum and g.BONNr=t.BONNr]]>
+LandCode,*,Klant->Divisie,Klant->SubDivisie,Klant->Sektor from APPS_BD_OrderStat_impl.OrderGeleverd t]]>
@@ -105,7 +160,7 @@
1
-FromType:%String,KLNr:%Integer,ORDNr:%Integer,OrderDatum:%Date,OrderTijd:%Time,IntakeType:%String,OrderVerwerker:%String,BONNr:%Integer,LeverDatum:%Date,Verzendwijze:%String,PickDatum:%Date,PickTijd:%Time,PRNr:%Integer,Qty:%Integer,OmzetVerkoop:%Float,OmzetAankoop:%Float
+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
%Library.CacheStorage
-^||APPS.BD.OrderGeleverdD
+^APPS.BD.OrderGeleverdD
OrderGeleverdDefaultData
-^||APPS.BD.OrderGeleverdD
-^||APPS.BD.OrderGeleverdI
-^||APPS.BD.OrderGeleverdS
+^APPS.BD.OrderGeleverdD
+^APPS.BD.OrderGeleverdI
+^APPS.BD.OrderGeleverdS
%%CLASSNAME
@@ -212,6 +280,51 @@
OrderDatum
+
+GenType
+
+
+SubGenType
+
+
+ProductGroep
+
+
+BevestigdeLeverDatum
+
+
+VerwachteLeverDatum
+
+
+VerschilLeverDatum
+
+
+Gewicht
+
+
+GewichtPerStukInGr
+
+
+GewichtInKg
+
+
+Woonplaats
+
+
+PostKode
+
+
+Straat
+
+
+LandKode
+
+
+Afstand
+
+
+HoofdGroep
+