cAFVBP02	; Producten: executes ; cAFVBP02
	;
T1	;
	;
T1F	;
	;
T1E	;
	;
YZ	Q
	;
	; *********************************************************************
PRO()	; Execute na openen Product
	; *********************************************************************
	S $ZT="TRAP^cAN000"
	S OK=2
	;
	; Huidige BP en AKP opzetten
PRO1	D HLPR
	;
	; Beginstock?
PRO2	;
	;	
PROZ	Q OK
	;
PROO(UI1PR,OPR)	; Execute na openen product, oude structuur
	N STRING,IREF,UREF,UI1,SWVBG
	S $ZT="TRAP^cAN000"
	; Aflopen aankoopgegevens nieuwe structuur
	S STRING=$$REF^cAFA10(.Q,"PR_LE.A")
	S OREF=$P($$REF^cAFA10(.Q,"PR_LE"),D)
	S OREF=$$REPL^cAFA10(OREF,"UI1","OPRLE")
	S IREF=$P(STRING,D,3)
	S UREF=$P(STRING,D)
	S UI1=""
PROOA	S UI1=$O(@IREF@(201,UI1PR,UI1))
	I UI1="" G PROOZ
	S OPRLE=$P(@UREF@(0),D,50)
	S HOR=$P(@UREF@(0),D,28)
	I OPRLE="" G PROOA
	S SWVBG=1 D W^cAN220("PR_LE","",OPRLE,201,OPR)
	S HOR=$P(@UREF@(0),D,28)
	S $P(@OREF@(0),D,28)=HOR ; Datum laatste wijziging gelijkzetten -> controle gelijkheid bestanden
	G PROOA
PROOZ	Q
	;
HLPR	; Opzetten huidige BP en AKP aan de hand van hoofdleverancier
	N N
	S $ZT="TRAP^cAN000"
	;
	; Hoofdleverancier gewijzigd?
HLPR1	;I UFU="W" I $P($G(A(4)),D,6)=$P($G(B(4)),D,6) G HLPRZ -> Prijzen altijd aanpassen
	I '$L($P($G(B(4)),D,6)) G HLPRZ
	I $G(WIJZPRAG) G HLPRZ ; Prijzen worden gewijzigd via hoofdaankoopgegeven
	; 
	; Prijzen aanpassen
HLPR2	S N=$$SIGN^cAFA1("PR_LE.A",$P(B(4),D,6),0) I '$L(N) G HLPRZ
	D BLX^cAN000(203,+$$OMREK^cTN001(.Q,$P(N,D,10),$P(N,D,17),"",5))  ; Basisprijs in munt boekhouding
	D BLX^cAN000(119,+$$OMREK^cTN001(.Q,$P(N,D,4),$P(N,D,17),"",5))  ; Aankoopprijs in munt boekhouding
	;
HLPRZ	Q
	;
	; *********************************************************************
PRW()	; Execute na wijzigen Product
	; *********************************************************************
	S $ZT="TRAP^cAN000"
	S OK=2
	;
	; Huidige BP en AKP opzetten
PRW1	D HLPR
	;
PRWZ	Q OK
	;
	; ***************
	; Hulp-functies *
	; ***************
	;
BL(U7,K,USA,UQA)	; Aanpassen rubriek + logging
	S $ZT="TRAP^cAN000"	
	I UFU="W" S USA=$G(USA,"PR.A"),UQA=$G(UQA,"0") D U2(U7,USA,UQA)
	D B^cAN000(U7,K),S3^cAN2201(K):UFU="W"
BLZ	Q
	;
U2(U7,USA,UQA)	; Ophalen U2 voor een bepaalde B-Index 
	S $ZT="TRAP^cAN000" N S1,PG,VNR
	K U2  S PG=0 F  S PG=$O(^DMA(UQA,USA,PG)) Q:PG=""  D  I $D(U2) Q
	. S VNR="" F  S VNR=$O(^DMA(UQA,USA,PG,VNR)) Q:VNR=""  D  I $D(U2) Q
	.. I ^DMA(UQA,USA,PG,VNR,16)=U7  S U2(1)=^DMA(UQA,USA,PG,VNR,1) F S1=2:1:25 S U2(S1)=$G(^(S1))
U2Z	Q
	;
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09