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 %String 1 %String 1 %String 1 %String 1 %Float 1 %Date 1 %Date 1 APPS.BD.CarbonFootprint.impl.AfstandBepaler 1 Van:%Date,Tot:%Date 1 1 %Status D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New().BouwEnFile("I") WelkBestand:%String="IL" %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 %Status Rec:%String ($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") } ]]> AdresRec:%String Rec:%String Rec:%String PRNr:%String,Qty:%Integer,BevestigdeLeverDatum:%Date,VerwachteLeverDatum:%Date,OmzetVerkoop:%Float,OmzetAankoop:%Float PRNr:%String,Qty:%Integer,BevestigdeLeverDatum:%Date,VerwachteLeverDatum:%Date,OmzetVerkoop:%Float,OmzetAankoop:%Float 1 PRNr:%String 1 PRNr:%String 0 Datum:%Date ..TotDatum) ]]>