cTN8201	;Functies ivm BTW; cTN9201;    [ 19/11/09  17:48:03 ]
	;
YZ	Q
	;
TBTW(Q,KL,DAT)	; BTW-type bepalen
	; Input: Q   : Q-waarde firma
	;        KL  : UI1 KL.A
	;        DAT : Documentdatum, indien niet doorgegeven = dagdatum
	; 
	; Output: 1 = BTW aanrekenen
	;         2 = BTW niet aanrekenen EU
	;         3 = BTW niet aanrekenen andere
	;         4 = BTW eenheid       
	;        
	N R,BTWNR,SWBTW,LND,BP,IC
	S $ZT="TRAP^cAN000"
TBTWA	S BTWNR=$$SIG^cAFA1("KL.A",KL,116)   ; BTW-nummer klant
	S SWBTW=$P($G(^(0)),D,15)   ; BTW aanrekenen / niet aanrekenen
	S LND=$P($G(^(0)),D,8)      ; Land
	; Omvormen datum
	I '$L($G(DAT)) S DAT=DT
	I DAT'?2N1"."2N1"."2N S DAT=$$HD^cAFD1(DAT)
	; Bepalen boekinsperiode
	S BP=$$DC^cAFD1(DAT)
	S BP=$E(BP,1,4)_"."_$E(BP,4,5)
	; BTW-eenheid
TBTWB	I $$BTWEH^cTN810(Q,BTWNR,BP) S R=4 G TBTWZ
	; BTW aanrekenen
TBTWC	I SWBTW S R=1 G TBTWZ
	; BTW niet aanrekenen EU
TBTWD	S IC=$$IC^cTI0(BTWNR,DAT,"",$S('$L(BTWNR):LND,1:""))
	I 'SWBTW,IC S R=2 G TBTWZ
	; BTW niet aanrekenen andere
TBTWE	I 'SWBTW,'IC S R=3 G TBTWZ
TBTWZ	Q R
	;
ZZ	; 10.11.09 - 17 u 00