Prod.Product,vhLib.Macro,BL.Derde.LevSpecifiek 1 %RegisteredObject VH of Halux %String %Date %Date d ##class(CHUI.Prod.FSCTelling).Export() 1 0 d ##class(CHUI.Prod.FSCTelling).Run() 1 d ##class(CHUI.Prod.FSCTelling).RunDtl() 1 Domein,DatumBegin,DatumEind %Status kg . . . . Write ! Do CLOSE^vhDEV(Dev) Quit ]]> ..DatumEind . Set Actie=$P(Rec,"\",4) . Set Magazijn=$P(Rec,"\",5) . Quit:'..Include(PRNr,Magazijn,.Actie,.Actie2,Rec) . ;Quit:(..NotFSCInFactuur(PRNr,Rec)) . Set lbHist=$G(arHist(ClaimTransactie,Actie,Magazijn)) . Set $li(lbHist,1)=$LG(lbHist,1)+$P(Rec,"\",2) . Do ##class(DOM.PM.HoutCertificaatService).%New().CodeAndGewicht(PRNr,$P(Rec,"\",2),.ClaimTransactieCalculated,.FSCGewicht) . Set $li(lbHist,2)=$LG(lbHist,2)+FSCGewicht ; gewicht in gr -> kg . Set arHist(ClaimTransactie,Actie,Magazijn)=lbHist ]]> d ##class(CHUI.Prod.FSCTelling).Test() 1 PRNr,Rec PRNr,Rec 0:Omzet/Aantal,1:0) ]]> PRNr,Rec PRNr,Rec 0:Omzet/Aantal,1:0) ]]> MPRNr,SelectPRNr ..DatumEind . Set Actie=$P(Rec,"\",4) . Set Magazijn=$P(Rec,"\",5) . Quit:'..Include(PRNr,Magazijn,.Actie,.Actie2,Rec) . Do Write(Actie,Rec,Magazijn,PRNr,Claim,Gewicht,Datum,VolgNr) . Do:Actie2'="" Write(Actie2,Rec,Magazijn,PRNr,Claim,Gewicht,Datum,VolgNr) Quit Write(Actie,Rec,Magazijn,PRNr,Claim,Gewicht,Datum,VolgNr) #dim Actie,Claim,Datum,DerdeNr,Gewicht,Magazijn,PrijsInFactuur,PrijsInFactuurVanMoeder,Qty,Rec,VolgNr Set Qty=$P(Rec,"\",2) if (Actie="IR")||(Actie="UV") set Qty=-Qty,Gewicht=-Gewicht Write $$$ExcelDat(Datum),*9,$$$ExcelDat($$CALCDATE^vhLib.DataTypes(Datum,"M","FD")),$C(9),Actie,$C(9),Magazijn,$C(9),PRNr,$C(9),$$$PRGet($$$KortTekst) Write $C(9),$$$ExcelNum(Qty) ; Aantal Write $C(9),$$$ExcelNum($$$PRGet($$$CifPPLEUR)*Qty) ; CiffPPL #dim FSCNaam As %String = ##class(DOM.PM.HoutCertificaatService).%New().GeefHoutCertificaat(Claim).GeefOmschrijving() Write $C(9),FSCNaam,$C(9),$$$ExcelNum(Gewicht/1000) ; gewicht in gr -> kg ;BonToe;FakRCP;KlantLev;MPRNr;MoederProduct Write *9,$P(Rec,"\",7) ; LevBon of Toelevering Write *9,$P(Rec,"\",10) ; Factuur of Receptie If $P(Rec,"\",6) Do ; Klant of Lev . Set DerdeNr=$P(Rec,"\",6) . If $D(^KK1(DerdeNr))&&((($P(Rec,"\",7)>299999)&&(Actie'="H"))||(($P(Rec,"\",7)<300000)&&(Actie="H"))) Do . . Write *9,DerdeNr,*9,$P(^KKL(^KK1(DerdeNr),0),"\",2) . Else If $D(^KL1(DerdeNr))&&($P(Rec,"\",7)<300000) Do . . Write *9,DerdeNr,*9,$P(^KLE(^KL1(DerdeNr),0),"\",2) . Else Write *9,*9 Else Write *9,*9 If $P(Rec,"\",15)?4.7N Do ; Moederproduct . Write *9,$P(Rec,"\",15),*9,$$$ProductGet($P(Rec,"\",15),$$$KortTekst) Else Write *9,*9 Write *9 If ..Domein="VH"&&(Actie["U") { Set PrijsInFactuur=..PrijsInFactuur(PRNr,Rec) If (+PrijsInFactuur=0)&&$P(Rec,"\",15) { Set PrijsInFactuurVanMoeder=..PrijsInFactuur($P(Rec,"\",15),Rec) If +PrijsInFactuurVanMoeder { Set PrijsInFactuur=PrijsInFactuurVanMoeder*..VerhoudingVolgensBouwsteen($P(Rec,"\",15),PRNr) } } Write $$$ExcelNum(PrijsInFactuur*Qty) } Write *9,"^PRHIST("_PRNr_","_VolgNr_":"_(VolgNr+2)_")" Write ! ]]> PRNr,HistRec