cAFVBP06	;  Historiek ; cAFVBP06
	;
T1	;
	;
T1F	;
	;
T1E	;
	;
YZ	Q
	;
BTEMP(GRIDID,KEUID,VANDT,TOTDT,QTD)	; Opbouw ^mtemp99 historiek
	;   GRIDID:   Volgnr van de grid : indien '' : volgnummer ophalen
	;   KEUID:    Ofwel: GridId van de ^mtemp99 met geselecteerde UI1's
	;             Ofwel: Geselecteerd ID (begint met $$)
	;   VANDT     : van datum
	;   TOTDT     : tot datum
	;
	S $ZT="ERR^cAFVBF01"
	N @$$INITVAR^cAFVBA01("GRIDID,KEUID,VANDT,TOTDT,QTD")
	;
	; Controle parameters
BTEMPA	F i="GRIDID","KEUID","VANDT","TOTDT","QTD" S @i=$g(@i)
	I '$L(GRIDID) S GRIDID=$$GRIDID^cAFVBF01()
	; 
BTEMPB	K ^mtemp99(GRIDID,"COMMON")
	S OK=GRIDID
	;
	I $L(VANDT),(VANDT'?2N1"."2N1"."2N),(VANDT'?2N1"."2N1"."4N) S VANDT=$$HD^cAFD1(VANDT)
	S BDA=$$DC^cAFD1(VANDT)
	I $L(TOTDT),(TOTDT'?2N1"."2N1"."2N),(TOTDT'?2N1"."2N1"."4N) S TOTDT=$$HD^cAFD1(TOTDT)
	S EDA=$$DC^cAFD1(TOTDT)
	;
	S KEUGRIDID=$$GRIDID^cAFVBF01()   ; GRIDID voor aangepast grid met 'oude' productids
	; slechts 1 product
	;I $E(KEUID,1,2)="$$" S PR=$P(KEUID,"$$",2),^mtemp99(KEUGRIDID,"COMMON",$$DATA^cAFVBO01("^DPR","EA","PR.A",PR,150))="" G BTEMPY
	; meerdere producten geselecteerd
	;I $L(KEUID),'$D(^mtemp99(KEUID,"COMMON")) G BTEMPZ
	;
	D BTMPPR(KEUID,KEUGRIDID)
	;
	; ophalen historiek gegevens
BTEMPY	D VB^cANP179(KEUGRIDID,BDA,EDA,"BTMPHIS^"_$T(+0),QTD)
	;
	K ^mtemp99(KEUGRIDID)
	;
BTEMPZ	Q OK
	;
BTMPHIS	; opbouwen historiek van de producten in ^mtemp99(GRIDID,"COMMON"
	S $ZT="TRAP^cAN000"
	N N,i
	I '$G(VOLGNR) S VOLGNR=1000
	S $P(N(0),D)=TXT(1)                         ; Productcode
	S $P(N(0),D,2)=TXT(2)                       ; Product
	S $P(N(0),D,3)=TXT(4)                       ; Beweging
	S $P(N(0),D,4)=$P($P(TXT(17),D)," ")        ; Verantwoording nummer
	S $P(N(0),D,5)=$P($P(TXT(17),D)," ",2,99)   ; Verantwoording
	S $P(N(0),D,6)=$P(TXT(8),D)                 ; Order
	S $P(N(0),D,7)=$P(TXT(9),D)                 ; Levering klant
	S $P(N(0),D,8)=$P(TXT(10),D)                ; Factuurnummer
	S $P(N(0),D,9)=$P(TXT(11),D)                ; Bestelling
	S $P(N(0),D,10)=$P(TXT(12),D)               ; Levering leverancier
	S $P(N(0),D,11)=$P(TXT(13),D)               ; Gecontroleerde levering
	S $P(N(0),D,12)=$P(TXT(14),D)               ; Referentie
	I $P($G(STR),D,3)=1 S $P(N(0),D,15)=$P(TXT(15),D),$P(N(0),D,16)=$P(TXT(16),D) G BTMPHISD  ; Leverancier (nummer + naam)
	S $P(N(0),D,13)=$P(TXT(15),D),$P(N(0),D,14)=$P(TXT(16),D)           ; Klant (nummer + naam)
BTMPHISD	S $P(N(0),D,17)=$P(TXT(18),D)               ; Ini
	S $P(N(0),D,18)=$P(TXT(20),D)               ; Commentaar
	S $P(N(3),D)=$P(TXT(3),D)                   ; Datum
	S $P(N(3),D,2)=$P(TXT(19),D)                ; Datum registratie
	S $P(N(2),D)=$P(TXT(5),D)                   ; Aantal
	S $P(N(2),D,2)=$P(TXT(6),D)                 ; Prijs
	S $P(N(2),D,3)=$P(TXT(7),D)                 ; Stock
	;
	M ^mtemp99(GRIDID,"COMMON",VOLGNR)=N
	;
	S VOLGNR=VOLGNR+1
BTMPHISZ	Q
	;
BTMPPR(KEUID,KEUGRIDID)	
	; ophalen 'oude' productids en in nieuwe mtemp99 steken
	; het programma om de historiekgegevens op te halen, werkt nog met de oude globals: Q_PR(ID,
	S $ZT="TRAP^cAN000"
	S KILL=0
	I $$SELC^cAFVBA01(KEUID,1)<0 S KEUID=$$KEU^cAFVBA05(.Q,"PR.A",$$SELALL^cAFVBA01(KEUID)),KILL=1
	;
	S I1=""
	F  S I1=$O(^mtemp99(KEUID,"COMMON",I1)) Q:'$L(I1)  D
	. S OLDPRID=$$DATA^cAFVBO01("^DPR","EA","PR.A",I1,150)
	. S ^mtemp99(KEUGRIDID,"COMMON",OLDPRID)=""
	;
	I KILL K ^mtemp99(KEUID,"COMMON")
BTMPPRZ	Q
	;
VANDT()	
	; huidige datum - 2 jaar
	; output : jaar.maand
	S $ZT="^dmERROR"
	S VAN=$$DC^cAFD1($$DEFV^cABVB11())
VANDTZ	Q $E(VAN,1,4)_"."_$E(VAN,5,6)
	;
TOTDT()	
	; huidige datum
	; output : jaar.maand
	S $ZT="^dmERROR"
	S VAN=$$DC^cAFD1($$HD^cAFD1($H))
TOTDTZ	Q $E(VAN,1,4)_"."_$E(VAN,5,6)
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09