APPS.BD.OrderStat.impl.OrderIntake,APPS.BD.OrderStat.impl.OrderGeleverd vhLib.Macro,BL.Derde.KlantSpecifiek 1 %RegisteredObject %Date 1 %Date 1 %Integer 1 %Integer 1 %Integer 1 %String 1 %Integer 1 %Integer 1 %String 1 %Date 1 %Date 1 %String 1 %String 1 %Date 1 %String 1 %Date 1 %Date 1 Van:%Date,Tot:%Date 1 1 %Status D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New().BouwEnFile() %Status (-..VanDatum) { ;w !," mindatum",..MinDatum Set ..FAKNr=$O(^KFA1(..Node,..KLNr,..MinDatum,"")) While ..FAKNr'="" { ;w !," Faktuur",..MinDatum," ",..FAKNr Do ..HerbouwOrderVanuitKFALijnen() Set ..FAKNr=$O(^KFA1(..Node,..KLNr,..MinDatum,..FAKNr)) } Set ..MinDatum=$O(^KFA1(..Node,..KLNr,..MinDatum)) } Set ..KLNr=$O(^KFA1(..Node,..KLNr)) } ]]> %Status (-..VanDatum) { Set ..FAKNr=$O(^KFAP1(..Node,..KLNr,..MinDatum,"")) While ..FAKNr'="" { Do ..HerbouwOrderVanuitKFALijnen() Set ..FAKNr=$O(^KFAP1(..Node,..KLNr,..MinDatum,..FAKNr)) } Set ..MinDatum=$O(^KFAP1(..Node,..KLNr,..MinDatum)) } Set ..KLNr=$O(^KFAP1(..Node,..KLNr)) } ]]> %Status Rec ($H-90)) { Set ..PickDatum=$P(PickTijdstip,",",1) Set ..PickTijd=$P(PickTijdstip,",",2) } Else ; raming { ; kan nog verbeterd worden door de berekening dmv de verzendwijze Set ..PickDatum=$$CALCDATE^vhLib.DataTypes(..LeverDatum,"A",-1) Set ..PickTijd=$$INTTIME^vhLib.DataTypes("17:00") } ]]> Rec Rec PRNr:%Integer,Qty:%Integer,OmzetVerkoop:%Float,OmzetAankoop:%Float PRNr:%Integer,Qty:%Integer,BevestigdeLeverDatum:%Date,VerwachteLeverDatum:%Date,OmzetVerkoop:%Float,OmzetAankoop:%Float 1 PRNr 1 PRNr 0 Datum ..TotDatum) ]]>