Index: CHUI/Prod/FSCTelling.cls.xml
===================================================================
diff -u -r1074 -r1801
--- CHUI/Prod/FSCTelling.cls.xml	(.../FSCTelling.cls.xml)	(revision 1074)
+++ CHUI/Prod/FSCTelling.cls.xml	(.../FSCTelling.cls.xml)	(revision 1801)
@@ -20,6 +20,19 @@
 <Type>%Date</Type>
 </Property>
 
+<Method name="Export">
+<Description>
+d ##class(CHUI.Prod.FSCTelling).Export()</Description>
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Write @F11,@F1,@FMTI," FSC export "_QN,@FMTi
+	Write !!!,"2 lijsten  : Halux en Van Hoecke"
+	Write !,"12 maanden"
+	Do ..RunDtl()
+]]></Implementation>
+</Method>
+
 <Method name="Run">
 <Description>
 d ##class(CHUI.Prod.FSCTelling).Run()</Description>
@@ -49,8 +62,8 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..Domein=$G(Domein,"VH")
-	Set ..DatumBegin=$G(DatumBegin,$$CALCDATE^vhDTyp($H,"M","FD"))
-	Set ..DatumEind=$G(DatumEind,$$CALCDATE^vhDTyp($H,"M","LD"))
+	Set ..DatumBegin=$G(DatumBegin,$$CALCDATE^vhDTyp($H,"M","FD",-12))
+	Set ..DatumEind=$G(DatumEind,$$CALCDATE^vhDTyp($H,"M","LD",-1))
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -64,7 +77,6 @@
  Use Dev
  Write $TR("Actie;Magazijn;PRNr;Product;Aantal;CifPPL;FSCCode;FSCGewicht*Qty",";",$C(9)),!
  Set PRNr=""
- Set PRNr=416687-1
  For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
  . Do ..QtyHist(PRNr,.arHist)
  . Quit:'$D(arHist)
@@ -100,7 +112,8 @@
  . Quit:Datum>..DatumEind
  . Set Actie=$P(Rec,"\",4)
  . Set Magazijn=$P(Rec,"\",5)
- . Quit:'..Include(PRNr,Magazijn,.Actie)
+ . 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)
@@ -109,6 +122,58 @@
 ]]></Implementation>
 </Method>
 
+<Method name="test">
+<Description>
+d ##class(CHUI.Prod.FSCTelling).Test()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set bl=..%New()
+	set bl.Domein="VH"
+	Write bl.NotFSCInFactuur(611912,^PRHIST(611912,1))
+]]></Implementation>
+</Method>
+
+<Method name="NotFSCInFactuur">
+<FormalSpec>PRNr,Rec</FormalSpec>
+<Implementation><![CDATA[
+	Quit:(..Domein'="VH") 0
+	Quit:$P(Rec,"\",4)'="U" 0 ; Actie
+	Set FAKNr=$P(Rec,"\",10)
+	Quit:'FAKNr 0
+	Quit:'$D(^KFA("F",FAKNr)) 0
+	Set BonNr=$P(Rec,"\",7)
+	Set Result="" ; normaal is het juist
+	Set LijnNr=""
+	For  Set LijnNr=$O(^KFA("F",FAKNr,"U"_BonNr,LijnNr)) Quit:LijnNr=""  Do  Quit:Result'=""
+	. Quit:$P($G(^KFA("F",FAKNr,"U"_BonNr,LijnNr)),"\",2)'=PRNr
+	. Set FSCCode=$P($P($G(^KFA("F",FAKNr,"U"_BonNr,LijnNr)),"\",48),";")
+	. Set Result=(FSCCode="")||(FSCCode="GEEN") ; overrule
+
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="PrijsInFactuur">
+<FormalSpec>PRNr,Rec</FormalSpec>
+<Implementation><![CDATA[
+	Quit:(..Domein'="VH") 0
+	Quit:$P(Rec,"\",4)'="U" 0 ; Actie
+	Set FAKNr=$P(Rec,"\",10)
+	Quit:'FAKNr 0
+	Quit:'$D(^KFA("F",FAKNr)) 0
+	Set BonNr=$P(Rec,"\",7)
+	Set Found=0 ; normaal is het juist
+	Set LijnNr=""
+	For  Set LijnNr=$O(^KFA("F",FAKNr,"U"_BonNr,LijnNr)) Quit:LijnNr=""  Do  Quit:Found
+	. Quit:$P($G(^KFA("F",FAKNr,"U"_BonNr,LijnNr)),"\",2)'=PRNr
+	. Set Omzet=$P(^KFA("F",FAKNr,"U"_BonNr,LijnNr),"\",34)
+	. Set Aantal=$P(^KFA("F",FAKNr,"U"_BonNr,LijnNr),"\",3)
+	. Set Found=1
+	Quit:'Found 0
+	Quit $S(Aantal>0:Omzet/Aantal,1:0)
+]]></Implementation>
+</Method>
+
 <Method name="DetailLijst">
 <Implementation><![CDATA[
 	 
@@ -117,9 +182,8 @@
  Set Dev=0
  Set Dev=$$OPEN^vhDEV(,"FSC Dtl "_..Domein_" "_$TR(Periode,".-")_".txt","W","T")
  Use Dev
- Write $TR("Datum;Actie;Magazijn;PRNr;Product;Aantal;CifPPL;FSCCode;FSCGewicht*Qty;BonToe;FakRCP;KlantLevNr;KlantLev;MPRNr;MoederProduct",";",$C(9)),!
+ Write $TR("Datum;Maand;Actie;Magazijn;PRNr;Product;Aantal;CifPPL;FSCCode;FSCGewicht*Qty;BonToe;FakRCP;KlantLevNr;KlantLev;MPRNr;MoederProduct;VerkoopPrijs;Key",";",$C(9)),!
  Set PRNr=""
- Set PRNr=416687-1
  For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
  . Do ..QtyHistDtl(PRNr,.arHist)
  Do CLOSE^vhDEV(Dev)
@@ -141,34 +205,51 @@
  . Quit:Datum>..DatumEind
  . Set Actie=$P(Rec,"\",4)
  . Set Magazijn=$P(Rec,"\",5)
- . Quit:'..Include(PRNr,Magazijn,.Actie)
- . Set Qty=$P(Rec,"\",2)
- . Write $$$ExcelDat(Datum),$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
- . Do ##class(DOM.PR.FSC).CodeAndGewicht(PRNr,Qty,.FSCCodeCalculated,.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
+ . 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
- . If $P(Rec,"\",15)?4.7N  Do ; Moederproduct
- . . Write *9,$P(Rec,"\",15),*9,$$$ProductGet($P(Rec,"\",15),$$$KortTekst)
- . Else  Write *9,*9
- . Write !
+ 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 !
 ]]></Implementation>
 </Method>
 
 <Method name="Include">
-<FormalSpec><![CDATA[PRNr,Magazijn,&Actie]]></FormalSpec>
+<FormalSpec><![CDATA[PRNr,Magazijn,&Actie,&Actie2,HistRec]]></FormalSpec>
 <Implementation><![CDATA[
+	Set Actie2=""
 	Set Include=0
 	If ..Domein="VH"
 	 { Do IncludeVH }
@@ -185,15 +266,31 @@
 IncludeHalux
 	If Magazijn="M",Actie="I",$D(^KPR(PRNr,"J"_$$$LevHalux))
 	 {
-	   Set Actie="U"
+	   Set Actie="UV"
 	   Set Include=1
 	 }
+	Elseif (Magazijn="M")&&(Actie="U")&&..IsHaluxProductDirectVerkocht(PRNr,HistRec)
+	{
+		Set Actie="UR"
+		Set Actie2="IR"
+	   Set Include=1
+	}
 	ElseIf Magazijn="W" 
 	 {
 	   Set Include=1
 	 }
 	Quit
 ]]></Implementation>
 </Method>
+
+<Method name="IsHaluxProductDirectVerkocht">
+<FormalSpec>PRNr,HistRec</FormalSpec>
+<Implementation><![CDATA[
+	Set DerdeNr=$P(HistRec,"\",6)
+	Quit:'DerdeNr 0 ; geen klant/leverancier ingevuld
+	Quit:$$UPCASE^vhRtn1($$GetActiviteit^KLANT5(DerdeNr))="LEVERANCIER" 0
+	Quit $$GetOrOld^PRODUKT(PRNr,$$$LinkType)?1(1"HH",1"HHS") ; halffabr voor Halux
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: PVE VoorraadTellling.prj.xml
===================================================================
diff -u
--- PVE VoorraadTellling.prj.xml	(revision 0)
+++ PVE VoorraadTellling.prj.xml	(revision 1801)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="PVE VoorraadTellling" LastModified="2011-08-16 10:01:04" Target="WILD^vhPOPUP" TargetType="2">
+  <Items>
+    <ProjectItem name="BL.Prod.VoorraadTelSettingsList" type="CLS"/>
+    <ProjectItem name="BL.Prod.VoorraadTelling" type="CLS"/>
+    <ProjectItem name="BL.Prod.VoorraadTellingDoc" type="CLS"/>
+    <ProjectItem name="BL.Prod.VoorraadTellingXML" type="CLS"/>
+    <ProjectItem name="BL.Prod.sub.pxVoorraadTelSettings" type="CLS"/>
+    <ProjectItem name="BL.Prod.sub.pxVoorraadTelling" type="CLS"/>
+    <ProjectItem name="BL.Prod.sub.pxVoorraadTellingDocs" type="CLS"/>
+    <ProjectItem name="BL.Prod.sub.pxVoorraadTellingLijn" type="CLS"/>
+    <ProjectItem name="CHUI.Prod.FSCTelling" type="CLS"/>
+    <ProjectItem name="CHUI.Prod.VoorraadTelling" type="CLS"/>
+    <ProjectItem name="DS.Prod.VoorraadTelling" type="CLS"/>
+    <ProjectItem name="DS.Prod.VoorraadTellingAantal" type="CLS"/>
+    <ProjectItem name="DS.Prod.VoorraadTellingMultiProd" type="CLS"/>
+  </Items>
+</Project>
+</Export>