TECH.RegisteredObject AXimpl.Admin.STAT.Invoice.LineIterator 1 DOM.PM.ProductAPI 1 TECH.DateTime.DateTimeAPI 1 InvoiceLineIterator:AXimpl.Admin.STAT.Invoice.LineIterator,ProductApi:DOM.PM.ProductAPI,DateTimeApi:TECH.DateTime.DateTimeAPI 1 1 %Status 1 KlantLastInfo:%Boolean=0,KlantProductLastInfo:%Boolean=0,KlantMaandRec:%Boolean=0,KlantProductMaandRec:%Boolean=0,KlantNr:%Integer,ProductId:%Integer=0,Maand:%String="" 1 Line:AXimpl.Admin.STAT.Invoice.Line,KlantNr:%Integer 1 = DatumKlantLastInfoRec If EditNodigKlantLastInfoRec { Do ..KillSubscripts(1, 0, 0, 0, KlantNr) Set KlantLastInfoRec = $Get(^KSTKL(KlantNr,0,0),"") Set $Piece(KlantLastInfoRec,"\",1) = ConvertedInvoiceDateLine Set ^KSTKL(KlantNr,0,0) = KlantLastInfoRec } } ]]> Line:AXimpl.Admin.STAT.Invoice.Line,KlantNr:%Integer,Maand:%String 1 Line:AXimpl.Admin.STAT.Invoice.Line,KlantNr:%Integer,ProductId:%Integer 1 = DatumKlantProductLastInfoRec If EditNodigKlantProductLastInfoRec { Do ..KillSubscripts(0, 1, 0, 0, KlantNr, ProductId) Set KlantProductLastInfoRec = $Get(^KSTKL(KlantNr,ProductId,0),"") Set $Piece(KlantProductLastInfoRec,"\",1) = ConvertedInvoiceDateLine Set $Piece(KlantProductLastInfoRec,"\",2) = Line.LineAmount Set $Piece(KlantProductLastInfoRec,"\",3) = ..GeefVerkoopEenheid(Line) Set $Piece(KlantProductLastInfoRec,"\",4) = "EUR" ;Set $Piece(KlantProductLastInfoRec,"\",5) = 1 Set ^KSTKL(KlantNr,ProductId,0) = KlantProductLastInfoRec } } ]]> Line:AXimpl.Admin.STAT.Invoice.Line,KlantNr:%Integer,ProductId:%Integer,Maand:%String 1 Line:AXimpl.Admin.STAT.Invoice.Line,KlantNr:%String 1 Line:AXimpl.Admin.STAT.Invoice.Line 1 Line:AXimpl.Admin.STAT.Invoice.Line 1 %String Line:AXimpl.Admin.STAT.Invoice.Line,ProductId:%Integer,AantalStuks:%Integer,Omzet:%Decimal 1 %Numeric Line:AXimpl.Admin.STAT.Invoice.Line 1 %Integer 1 %Integer RecId:%Integer 1 1 %String KlantNr:%String 1 %Boolean