cAFI3	;INPUT KONTROLE ;%AFI3 ; [ 06/19/01  4:42 PM ]
	;
T0	;Inputcontrole ;
T1	;Vervanging onmogelijk ... lusvorming ;
	;
T0F	;Contrôle d'entrée ;
T1F	;Remplacement impossible ... formation de boucle ;
	;
T0E	;Inputcontrol ;
T1E	;Vervanging onmogelijk ... lusvorming ;
	;
BP(K,VM)	; kontrole basisprijs van de aankoopgegevens produkten   
	N DEC,R
	S DEC=$$DEC^cAFA1(VM)
	I VM=$$BF^cAFA1,$D(@("^"_Q_"PR(0,19)")) S DEC=+$P(^(19),D,22)
	S R=0 X "I K?.N!((K?.N1"".""."_DEC_"N)&DEC) S R=1"
	Q R
	;
PDP(K,V)	; kontrole prijs produkten   
	N DEC,R
	S DEC=$$PDP^cAFA3($G(V))
	S R=0 X "I K?.N!((K?.N1"".""."_DEC_"N)&DEC) S R=1"
	Q R
	;
VERV(DMS,P1,P2)	;  Controle vervangingsnummer
	N R,RV
	S R=1 I P1=P2!$$SIG^cAFA1(DMS,P2,130) S R=0
	I R S RV=P2 F  S RV=$$SIG^cAFA1(DMS,RV,123) Q:'RV  I RV=P1 D  S R=0 Q
	. S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250)
	Q R
	;
Z	X ^cZ Q
ZZ	; 06.08.01 - 17 u 28 * V7.87