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 AX.Uitgaand.EC.DataAX.impl.Translator %String Jaar:%String 1 1 %Status D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New("All").BouwEnFile("F") D ##class(APPS.BD.OrderStat.impl.Extract2IntakeEnGeleverd).%New(),CorrStatistiek() d ##class(APPS.BD.OrderStat.impl.OrderFacturen).Export2File("All") d ##class(APPS.BD.OrderStat.impl.BIProduct).Export2File("All") WelkBestand:%String="IL" %Status (-..VanDatum) { ;w !," mindatum",..MinDatum Set ..FAKNr=$O(^KFA1(..Node,..KLNr,..MinDatum,"")) While ..FAKNr'="" { ;w !," Faktuur",..MinDatum," ",..FAKNr Do:..CheckDatum(-..MinDatum) ..HerbouwOrderVanuitKFALijnen() Set ..FAKNr=$O(^KFA1(..Node,..KLNr,..MinDatum,..FAKNr)) } Set ..MinDatum=$O(^KFA1(..Node,..KLNr,..MinDatum)) } Set ..KLNr=$O(^KFA1(..Node,..KLNr)) } ]]> %Status %Status $$INTDATE^vhLib.DataTypes("01.01.18","DKP"))) { Do ..HerbouwOrderVanuitKULLijnen() } Set ..BONNr=$O(^KUL(..KLNr,..Node,..BONNr)) } } Set ..Node=$O(^KUL(..KLNr,..Node)) } Set ..KLNr=$O(^KUL(..KLNr)) } ]]> 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 " , ^KK1(CommKlantNr),! } ;Set OrderInLevering=##class(OrderGeleverd).Add(..FromType,..KLNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop) Set OrderFactuur=##class(OrderFacturen).Add(..Translator,..FAKNr,-..MinDatum,..FromType,CommKlantNr,..ORDNr,..OrderDatum,..OrderTijd,..IntakeType,..OrderVerwerker,..BONNr,..LeverDatum,..Verzendwijze,..PickDatum,..PickTijd,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,Qty,BevestigdeLeverDatum,VerwachteLeverDatum,OmzetVerkoop,OmzetAankoop) Do ##class(OrderFacturen).MaandCumul(OrderFactuur) ]]> 1 { Write KLNr," ",Maand, " ",Maand4J," o:",FaktOmz," = ",StatOmz," M:",FaktKost," = ",StatOmz-StatMarge,! Set PRNr=902707 Set OrderFactuur=##class(OrderFacturen).Add(..Translator,"999999",Maand,"X",KLNr,999999,Maand,0,"OV","",999999,Maand,"INT",0,0,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,1,Maand,Maand,(StatOmz-FaktOmz),(StatOmz-StatMarge-FaktKost)) Do ##class(OrderFacturen).MaandCumul(OrderFactuur) } Set Maand=$O(^||MaandCumul(Maand)) } Set KLNr=$O(^||MaandCumulK(KLNr)) } ]]> 1 { Write ..KLNr," ",Maand, " ",Maand4J," o:",FaktOmz," = ",StatOmz," M:",FaktKost," = ",StatOmz-StatMarge,! Set PRNr=902707 Set OrderFactuur=##class(OrderFacturen).Add(..Translator,"999999",Maand,"X",..KLNr,888888,Maand,0,"OV","",888888,Maand,"INT",0,0,..Straat,..PostKode,..Woonplaats,..LandKode,..Afstand.Afstand,PRNr,1,Maand,Maand,(StatOmz-FaktOmz),(StatOmz-StatMarge-FaktKost)) } Set Maand=$O(^||MaandCumul(Maand)) } ]]> 1 PRNr:%String 1 PRNr:%String 0 Datum:%Date ..TotDatum) ]]>