%Prod.Product,%VHMacro,BL.Derde.LevSpecifiek 1 %RegisteredObject 0 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(FSCCode,Actie,Magazijn)) . Set $li(lbHist,1)=$LG(lbHist,1)+$P(Rec,"\",2) . Do ##class(DOM.PR.FSC).CodeAndGewicht(PRNr,$P(Rec,"\",2),.FSCCodeCalculated,.FSCGewicht) . Set $li(lbHist,2)=$LG(lbHist,2)+FSCGewicht ; gewicht in gr -> kg . Set arHist(FSCCode,Actie,Magazijn)=lbHist ]]> d ##class(CHUI.Prod.FSCTelling).Test() 1 PRNr,Rec PRNr,Rec 0:Omzet/Aantal,1:0) ]]> ..DatumEind . Set Actie=$P(Rec,"\",4) . Set Magazijn=$P(Rec,"\",5) . Quit:'..Include(PRNr,Magazijn,.Actie,.Actie2,Rec) . ;Quit:(..NotFSCInFactuur(PRNr,Rec)) . Do Write(Actie,Rec,Magazijn,PRNr,FSCCode,Datum,VolgNr) . Do:Actie2'="" Write(Actie2,Rec,Magazijn,PRNr,FSCCode,Datum,VolgNr) Quit Write(Actie,Rec,Magazijn,PRNr,FSCCode,Datum,VolgNr) Set Qty=$P(Rec,"\",2) Set:(Actie="IR") Qty=-Qty ;Set:(Actie="UR") Qty=-Qty Set:(Actie="UV") Qty=-Qty Write $$$ExcelDat(Datum),*9,$$$ExcelDat($$CALCDATE^vhDTyp(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 Set FSCGewicht=$P($P(Rec,"\",17),";",2) Do ##class(DOM.PR.FSC).CodeAndGewicht(PRNr,Qty,.FSCCodeCalculated,.FSCGewichtCalculated) Set:'FSCGewicht&&FSCGewichtCalculated FSCGewicht=FSCGewichtCalculated Set FSCGewicht=$S((Qty<0)&(FSCGewicht>0):-FSCGewicht,(Qty>0)&(FSCGewicht<0):-FSCGewicht,1:FSCGewicht) Write $C(9),FSCCode,$C(9),$$$ExcelNum(FSCGewicht/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" Do . If Actie["U" Write $$$ExcelNum(..PrijsInFactuur(PRNr,Rec)*Qty) Write *9,"^PRHIST("_PRNr_","_VolgNr_":"_(VolgNr+2)_")" Write ! ]]> PRNr,HistRec