#include vhLib.Macro
#include Prod.Product
#include BL.Derde.KlantSpecifiek
#include BL.Derde.LevSpecifiek

HISTEXPORT(Jaar) ; Export van PRHIST (exept werklvoer) naar QLIK

	Set Jaar=$G(Jaar,$$EXTDATE^vhLib.DataTypes($H,"J4")) 
	Set Device=$$OPEN^vhDEV("\\vanhoecke.be\T2_APPS\PRD\Qlik\Imports\Logistiek","Admin PRHIST export "_Jaar_".txt","W","T")
	Use Device
	Write "DerdeNr	PRNr	Identnummer	Korttekst	Actie	Magazijn	Aantal	Tijdstip"
	Write *9,"AxConfigId",*9,"AxInventTransId",*9,"AxItemId",*9,"FSCClaim",*9,"FaktRcpNr",*9,"MoederFSCClaim"
	Write *9,"MoederPRNr",*9,"MoederKorttekst",*9,"Omschrijving",*9,"UitToeLevDatum",*9,"UitToeLevNr",!
	Set Vanaf=$zdh(Jaar_"0101",8)
	Set Tot=$zdh(Jaar_"1231",8)	
	Set Cnt=0
	Set PRNr=""
	For  Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr=""  Do
	 . Set Key=""
	 . For  Set Key=$O(^PRHIST(PRNr,Key)) Quit:Key=""  Do
	 .. Set Rec=^PRHIST(PRNr,Key)
	 .. Set Tijdstip=$P(Rec,"\")
	 .. Quit:+Tijdstip<Vanaf
	 .. Quit:+Tijdstip>Tot
	 .. Set Magazijn=$P(Rec,"\",5)
	 .. Quit:Magazijn="W"
	 .. Set Qty=$P(Rec,"\",2)
	 .. Set Ref=$P(Rec,"\",7)
	 .. Set DerdeNr=$P(Rec,"\",6)
	 .. Set Actie=$P(Rec,"\",4)
	 .. Set AxConfigId=$P(Rec,"\",20)
	 .. Set AxInventTransId=$P(Rec,"\",19)
	 .. Set AxItemId=$P(Rec,"\",21)
	 .. Set FSCClaim=$P(Rec,"\",17)
	 .. Set FaktRcpNr=$P(Rec,"\",10)
	 .. Set MoederFSCClaim=$P(Rec,"\",18)
	 .. Set MoederPRNr=$P(Rec,"\",15)
	 .. Set Omschrijving=$P(Rec,"\",11)
	 .. Set UitToeLevDatum=$P(Rec,"\",9)
	 .. Set UitToeLevNr=$P(Rec,"\",7)
	 .. Write DerdeNr,*9,PRNr,*9,$$$PRGet($$$IdentNummer),*9,$$$PRGet($$$KortTekst)
     .. Write *9,Actie,*9,Magazijn,*9,$$$ExcelNum(Qty)
	 .. Write *9,$zdt(Tijdstip)
	 .. Write *9,AxConfigId,*9,AxInventTransId,*9,AxItemId,*9,FSCClaim,*9,FaktRcpNr,*9,MoederFSCClaim
	 .. Write *9,MoederPRNr,*9,$S(MoederPRNr?4.10N&&($D(^KPR(MoederPRNr,0))):$$$ProductGet(MoederPRNr,$$$KortTekst),1:"")
	 .. Write *9,Omschrijving,*9,$$$ExcelDat(UitToeLevDatum),*9,UitToeLevNr
	 .. Write !
	Do CLOSE^vhDEV(Device)
	Write Cnt
 Quit