cAFVBP04	;  Aankoopgegeven en leveranciersindex: executes ; cAFVBP04
	;
T1	;
	;
T1F	;
	;
T1E	;
	;
YZ	Q
	;
	; *********************************************************************
AGO() 	; Execute na openen aankoopgegeven (PR_LE.A)
	; *********************************************************************
	S $ZT="TRAP^cAN000"
	S OK=2
	;
	;
AGO1	
	;	
AGOZ	Q OK	
	;
	; *********************************************************************
AGW() 	; Execute na wijzigen aankoopgegeven (PR_LE.A)
	; *********************************************************************
	N WIJZPRAG
	S $ZT="TRAP^cAN000"
	S OK=2
	;
AGW1	I '$$HAKG^cAFVBP03(UI1,$P(B(2),D,1)) G AGWZ
	S TAB(203)=+$$OMREK^cTN001(.Q,$P(B(1),D,10),$P(B(1),D,17),"",5) ; Basisprijs in munt boekhouding
	S TAB(119)=+$$OMREK^cTN001(.Q,$P(B(1),D,4),$P(B(1),D,17),"",5)  ; Aankoopprijs in munt boekhouding
	I $P($G(@("^"_$$Q^cAFA10()_"PR(0,19)")),D,53) S TAB(233)=$$EPR^cAFE5($P(B(1),D,4)+$P(B(1),D,12),"","A","PR",$P(B(1),D,17))
	;
	S WIJZPRAG=1
	D B^cAN220("PR.A","0",$P(B(2),D,1),"TAB")
	S WIJZPRAG=0
	;	
AGWZ	Q OK	
	;
	; *********************************************************************
INDO() 	; Execute na openen leveranciersindex (CODE.9036)
	; *********************************************************************
	S $ZT="TRAP^cAN000"
	S OK=2
	;
	; Datum opzetten
INDO1	D BLX^cAN000(105,DT)
	;
	;	
INDOZ	Q OK	
	;
	; *********************************************************************
INDW() 	; Execute na wijzigen leveranciersindex
	; *********************************************************************
	S $ZT="TRAP^cAN000"
	S OK=2
	;
	; Datum wijzigen
INDW1	I A(1)'=B(1) D BLX^cAN000(105,DT)
	;	
INDWZ	Q OK	
	;
	;
ZZ	; 29.08.07 - 10 u 22 * V8.09