BL.Derde.KlantSpecifiek,BL.Derde.LevSpecifiek,Prod.Product,vhLib.Macro 1 %RegisteredObject %List 1 %Date 1 %Date 1 %String 1 %String 1 %String 1 M = Maand %String 1 D ##class(BL.Derde.Klant.ActiviteitenRapport).Run() 1 0 DatumVan,DatumTot %Status KLNr KLNr 1 1 KLNr,PRNr,Datum,AantalStuks,OmzetAKP,AantalLijnen 1 PRNr 1 %String KLNr,PRNr 1 %String Name 1 Dev 1 1 1 20000 Do ..FetchHistoriek(PRNr) } ]]> PRNr 1 ..DatumTot Continue:$Piece(Rec,"\",4)'="U" ; uitgaande beweging Set KLNr=$Piece(Rec,"\",6) Continue:'$ListFind(..lbKlanten,KLNr) Set Aantal=$Piece(Rec,"\",2) Set Omzet=$Piece(Rec,"\",12) ; aankoopprijs Do ..AddHistoriek(KLNr,PRNr,Datum,Aantal,Omzet) } ]]> KLNr,PRNr,Datum,Aantal,Omzet Datum 1