cAN00821	; Extra conversies ; cAN00821
	;
YZ	Q
	;
AR2ARA	; Overgang AR naar AR.A
	F i=55,56 S $P(NB(1),D,i)=+$P($G(B(1)),D,i)
	F i=55,56 S $P(NA(1),D,i)=+$P($G(A(1)),D,i)
	; Rekeningsoort omzetten naar type rekening
	I $P($G(B(1)),D,13)=1 S $P(NB(1),D,13)=6,$P(NB(1),D,20)=0,$P(NB(1),D,18)="",$P(NB(1),D,17)="" G AR2ARAA  ; tekst
	I $P($G(B(1)),D,13)=2 S $P(NB(1),D,13)=0 ; I '$P($G(B(1)),D,30) D
	; . S $P(NB(1),D,30)=1  ; buiten gebruik
	; . S ULOG(130)="Niveau~Niveau~~Level"
	; . S $P(ULOG(130),D,2)=$$NIV^cAFO1(0)
	; . S $P(ULOG(130),D,3)=$$NIV^cAFO1(1)
	I '$L($P($G(B(1)),D,9)) S $P(NB(1),D,13)=0 ; Balansrekening (algemeen)
	I $L($P($G(B(1)),D,9)) S $P(NB(1),D,13)=1  ; Balansrekening (financieel)
	; V/W rekening omzetten naar type rekening
	I $P($G(B(1)),D,20)=1 S $P(NB(1),D,13)=2  ; resultaat (algemeen)
	; BTW-rekening omzetten naar type rekening
	I $P($G(B(1)),D,18)=3 S $P(NB(1),D,13)=3  ; Resultatenrek. (bankkosten)
	I $P($G(B(1)),D,18)=1 S $P(NB(1),D,13)=4  ; BTW-rekening (algemeen)
	I $P($G(B(1)),D,18)=2 S $P(NB(1),D,13)=5  ; BTW-rekening (bankkosten)
	; Wisselrekening omzetten naar type rekening
	I $P($G(B(1)),D,17)=1 S $P(NB(1),D,13)=7 ; Balansrekening (wissels)
	; Analytische ventilaties omzetten naar anal. BH: actie en rek. of curve
AR2ARAA	I $P($P($G(B(1)),D,6),"#")=""!($P($P($G(B(1)),D,6),"#")=0) S $P(NB(1),D,6)=0,$P(NB(1),D,57)="",$P(NB(1),D,58)=""
	I $P($P($G(B(1)),D,6),"#")=1 S $P(NB(1),D,6)=1,$P(NB(1),D,57)="",$P(NB(1),D,58)=""
	I $P($P($G(B(1)),D,6),"#")="A" S $P(NB(1),D,6)=2,$P(NB(1),D,57)=$$SIG^cAFA1("ARA",$P($P(B(1),D,6),"#",2),148)
	; I $P($P($G(B(1)),D,6),"#")="K" S $P(NB(1),D,6)=3,$P(NB(1),D,58)=$$SIG^cAFA1("AK",$P($P(B(1),D,6),"#",2),148)
	I $P($P($G(B(1)),D,6),"#")="K" S $P(NB(1),D,6)=3,$P(NB(1),D,58)=$P($P(B(1),D,6),"#",2)
	F i=59,62,65,68 S $P(NB(1),D,i)=+$P(B(1),D,i)
	; Rekeningsoort omzetten naar type rekening
AR2ARAB	I $P($G(A(1)),D,13)=1 S $P(NA(1),D,13)=6,$P(NA(1),D,20)=0,$P(NA(1),D,18)="",$P(NA(1),D,17)="" G AR2ARAC  ; tekst
	I $P($G(A(1)),D,13)=2 S $P(NA(1),D,13)=0 ; S:'$P($G(A(1)),D,30) $P(NA(1),D,30)=1  ; buiten gebruik
	I '$L($P($G(A(1)),D,9)) S $P(NA(1),D,13)=0 ; Balansrekening (algemeen)
	I $L($P($G(A(1)),D,9)) S $P(NA(1),D,13)=1  ; Balansrekening (financieel)
	; V/W rekening omzetten naar type rekening
	I $P($G(A(1)),D,20)=1 S $P(NA(1),D,13)=2  ; Resultatenrek. (algemeen)
	; BTW-rekening omzetten naar type rekening
	I $P($G(A(1)),D,18)=3 S $P(NA(1),D,13)=3  ; Resultatenrek. (bankkosten)
	I $P($G(A(1)),D,18)=1 S $P(NA(1),D,13)=4  ; BTW-rekening (algemeen)
	I $P($G(A(1)),D,18)=2 S $P(NA(1),D,13)=5  ; BTW-rekening (bankkosten)
	; Wisselrekening omzetten naar type rekening
	I $P($G(A(1)),D,17)=1 S $P(NA(1),D,13)=7 ; Balansrekening (wissels)
	; Analytische ventilaties omzetten naar anal. BH: actie en rek. of curve
AR2ARAC	I $P($P($G(A(1)),D,6),"#")=""!($P($P($G(A(1)),D,6),"#")=0) S $P(NA(1),D,6)=0,$P(NA(1),D,57)="",$P(NB(1),D,58)=""
	I $P($P($G(A(1)),D,6),"#")=1 S $P(NA(1),D,6)=1,$P(NA(1),D,57)="",$P(NA(1),D,58)=""
	I $P($P($G(A(1)),D,6),"#")="A" S $P(NA(1),D,6)=2,$P(NA(1),D,57)=$$SIG^cAFA1("ARA",$P($P(A(1),D,6),"#",2),148)
	; I $P($P($G(A(1)),D,6),"#")="K" S $P(NA(1),D,6)=3,$P(NA(1),D,58)=$$SIG^cAFA1("AK",$P($P(A(1),D,6),"#",2),148)
	I $P($P($G(A(1)),D,6),"#")="K" S $P(NA(1),D,6)=3,$P(NA(1),D,58)=$P($P(A(1),D,6),"#",2)
	F i=59,62,65,68 S $P(NA(1),D,i)=+$P($G(A(1)),D,i)
AR2ARAZ	Q
	;
ARA2AR	; Overgang AR.A naar AR
	; Omvormen type rekening
	I $P($G(B(1)),D,13)=0 S $P(NB(1),D,13)=""  ; Balansrekening (algemeen)
	I $P($G(B(1)),D,13)=1 S $P(NB(1),D,13)=""  ; Balansrekening (financieel)
	I $P($G(B(1)),D,13)=6 S $P(NB(1),D,13)=1 S $P(NB(1),D,20)=0,$P(NB(1),D,18)="",$P(NB(1),D,17)=0  ; tekstrekening
	I $P($G(B(1)),D,13)=2 S $P(NB(1),D,13)="" S $P(NB(1),D,20)=1  ; Resultatenrekening (algemeen)
	I $P($G(B(1)),D,13)=3 S $P(NB(1),D,13)="" S $P(NB(1),D,20)=1,$P(NB(1),D,18)=3  ; Resultatenrekening (bankkosten)
	I $P($G(B(1)),D,13)=4 S $P(NB(1),D,13)="" S $P(NB(1),D,18)=1  ; BTW-rekening (algemeen) 
	I $P($G(B(1)),D,13)=5 S $P(NB(1),D,13)="" S $P(NB(1),D,18)=2  ; BTW-rekening (bankkosten)
	I $P($G(B(1)),D,13)=7 S $P(NB(1),D,13)="" S $P(NB(1),D,17)=1  ; Balansrekening (wissels)
	I $P($G(B(1)),D,30)=1 S $P(NB(1),D,13)=2   ; buiten gebruik
ARA2ARA	I $P($G(A(1)),D,13)=0 S $P(NA(1),D,13)=""  ; Balansrekening (algemeen)
	I $P($G(A(1)),D,13)=1 S $P(NA(1),D,13)=""  ; Balansrekening (financieel)
	I $P($G(A(1)),D,13)=6 S $P(NA(1),D,13)=1 S $P(NA(1),D,20)=0,$P(NA(1),D,18)="",$P(NA(1),D,17)=0  ; tekstrekening
	I $P($G(A(1)),D,13)=2 S $P(NA(1),D,13)="" S $P(NA(1),D,20)=1  ; Resultatenrekening (algemeen)
	I $P($G(A(1)),D,13)=3 S $P(NA(1),D,13)="" S $P(NA(1),D,20)=1,$P(NA(1),D,18)=3  ; Resultatenrekening (bankkosten)
	I $P($G(A(1)),D,13)=4 S $P(NA(1),D,13)="" S $P(NA(1),D,18)=1  ; BTW-rekening (algemeen) 
	I $P($G(A(1)),D,13)=5 S $P(NA(1),D,13)="" S $P(NA(1),D,18)=2  ; BTW-rekening (bankkosten)
	I $P($G(A(1)),D,13)=7 S $P(NA(1),D,13)="" S $P(NA(1),D,17)=1  ; Balansrekening (wissels)
	I $P($G(A(1)),D,30)=1 S $P(NA(1),D,13)=2   ; buiten gebruik
ARA2ARB	I $P($G(B(1)),D,6)=0 S $P(NB(1),D,6)="0#"
	I $P($G(B(1)),D,6)=1 S $P(NB(1),D,6)="1#"
	I $P($G(B(1)),D,6)=2 S $P(NB(1),D,6)="A#"_$$SIG^cAFA1("ARA.A",$P(B(1),D,57),150)
	I $P($G(B(1)),D,6)=3 S $P(NB(1),D,6)="K#"_$P(B(1),D,58)   ; $$SIG^cAFA1("ARA.CURV",$P(B(1),D,58),150)
	I $P($G(A(1)),D,6)=0 S $P(NA(1),D,6)="0#"
	I $P($G(A(1)),D,6)=1 S $P(NA(1),D,6)="1#"
	I $P($G(A(1)),D,6)=2 S $P(NA(1),D,6)="A#"_$$SIG^cAFA1("ARA.A",$P(B(1),D,57),150)
	I $P($G(A(1)),D,6)=3 S $P(NA(1),D,6)="K#"_$P(B(1),D,58)   ; _$$SIG^cAFA1("ARA.CURV",$P(B(1),D,58),150)
	; Nieuwe velden leeg maken
	F R="A","B" F i=155:1:158 I $D(@(R_"(i\100)")) S $P(@("N"_R_"(i\100)"),D,i#100)=""
	F i=59,62,65,68 S:'$P($G(B(1)),D,i) $P(NB(1),D,i)=""
	F i=59,62,65,68 S:'$P($G(A(1)),D,i) $P(NA(1),D,i)=""
	;
ARA2ARY	; omzetten logging omschrijving
	I $P(@("^"_$$Q^cAFA10()_"BA(39)"),D,2)="N" M ULOG(102)=ULOG(205)
	I $P(@("^"_$$Q^cAFA10()_"BA(39)"),D,2)="F" M ULOG(102)=ULOG(207)
ARA2ARZ	Q
	;
ARAA2ARA	; ARA.A naar ARA
	I $P($G(B(1)),D,13)=1 S $P(NB(1),D,13)=1
	I $P($G(B(1)),D,13)=0 S $P(NB(1),D,13)=""
	; I $P($G(B(1)),D,13)=0,'$P($G(B(1)),D,30) S $P(NB(1),D,13)=""
	; I $P($G(B(1)),D,13)=0,$P($G(B(1)),D,30) S $P(NB(1),D,13)=2
	I $P($G(B(1)),D,30)=1 S $P(NB(1),D,13)=2
	I $P($G(A(1)),D,13)=1 S $P(NA(1),D,13)=1
	; I $P($G(A(1)),D,13)=0,'$P($G(A(1)),D,30) S $P(NA(1),D,13)=""
	; I $P($G(A(1)),D,13)=0,$P($G(A(1)),D,30) S $P(NA(1),D,13)=2
	I $P($G(A(1)),D,13)=0 S $P(NA(1),D,13)=""
	I $P($G(A(1)),D,30)=1 S $P(NA(1),D,13)=2
	F R="A","B" F i=121 I $D(@(R_"(i\100)")) S:'$P(@(R_"(i\100)"),D,i#100) $P(@("N"_R_"(i\100)"),D,i#100)=""
ARAA2ARAZ	Q
	;
ARA2ARAA	; ARA naar ARA.A
	I '$P($G(B(1)),D,13) S $P(NB(1),D,13)=0
	I $P($G(B(1)),D,13)=1 S $P(NB(1),D,13)=1
	I $P($G(B(1)),D,13)=2 S $P(NB(1),D,13)=0 S:'$P($G(B(1)),D,30) $P(NB(1),D,30)=1
	I '$P($G(A(1)),D,13)=1 S $P(NA(1),D,13)=0
	I $P($G(A(1)),D,13)=1 S $P(NA(1),D,13)=1
	I $P($G(A(1)),D,13)=2 S $P(NA(1),D,13)=0 S:'$P($G(A(1)),D,30) $P(NA(1),D,30)=1
	F R="A","B" F i=121 I $D(@(R_"(i\100)")) S $P(@("N"_R_"(i\100)"),D,i#100)=+$P(@(R_"(i\100)"),D,i#100)
ARA2ARAAZ	Q
	;
	;
CPA2CP	; overgang CP naar CP.A
	; klant : nr uit EAKL omvormen naar nr uit DKL
	I $L($P($G(B(2)),D,20)) S $P(NB(2),D,20)=$$SG^cAFA1("KL.A",$P(B(2),D,20),101)
	I $L($P($G(A(2)),D,20)) S $P(NA(2),D,20)=$$SG^cAFA1("KL.A",$P(A(2),D,20),101)
	; leverancier : nr uit EALE omvormen naar nr uit DLE
	I $L($P($G(B(2)),D,21)) S $P(NB(2),D,21)=$$SG^cAFA1("LE.A",$P(B(2),D,21),101)
	I $L($P($G(A(2)),D,21)) S $P(NA(2),D,21)=$$SG^cAFA1("LE.A",$P(A(2),D,21),101)
	; Prospect : nr uit EANP omvormen naar nr uit DNP
	I $L($P($G(B(2)),D,22)) S $P(NB(2),D,22)=$$SG^cAFA1("NP.A",$P(B(2),D,22),101)
	I $L($P($G(A(2)),D,22)) S $P(NA(2),D,22)=$$SG^cAFA1("NP.A",$P(A(2),D,22),101)
CPA2CPZ	Q
	;
CP2CPA	; overgang CP naar CP.A
	; klant : nr uit EAKL omvormen naar nr uit DKL
	I $L($P($G(B(2)),D,20)) S $P(NB(2),D,20)=$$SG^cAFA1("KL",$P(B(2),D,20),148)
	I $L($P($G(A(2)),D,20)) S $P(NA(2),D,20)=$$SG^cAFA1("KL",$P(A(2),D,20),148)
	; leverancier : nr uit EALE omvormen naar nr uit DLE
	I $L($P($G(B(2)),D,21)) S $P(NB(2),D,21)=$$SG^cAFA1("LE",$P(B(2),D,21),148)
	I $L($P($G(A(2)),D,21)) S $P(NA(2),D,21)=$$SG^cAFA1("LE",$P(A(2),D,21),148)
	; Prospect : nr uit EANP omvormen naar nr uit DNP
	I $L($P($G(B(2)),D,22)) S $P(NB(2),D,22)=$$SG^cAFA1("NP",$P(B(2),D,22),148)
	I $L($P($G(A(2)),D,22)) S $P(NA(2),D,22)=$$SG^cAFA1("NP",$P(A(2),D,22),148)
CP2CPAZ	Q
	;
KLA2KL	; overgang KL.A naar KL
	; munt en taal hoeven niet want de key is en blijft de code
	; categorie
	I $L($P($G(B(2)),D,19)) S $P(NB(2),D,19)=$$SIG^cAFA1("CODE.9012",$P(NB(2),D,19),101)
	I $L($P($G(A(2)),D,19)) S $P(NA(2),D,19)=$$SIG^cAFA1("CODE.9012",$P(NA(2),D,19),101)
	; rang korting
	I $L($P($G(B(2)),D,5)) S $P(NB(2),D,5)=$$SIG^cAFA1("CODE.9001",$P(NB(2),D,5),101)
	I $L($P($G(A(2)),D,5)) S $P(NA(2),D,5)=$$SIG^cAFA1("CODE.9001",$P(NA(2),D,5),101)
	; Leverancier : nr uit DLE omvormen naar nr uit ^EAL1
	I $L($P($G(B(3)),D,30)) S $P(NB(3),D,30)=$$SIG^cAFA1("LE.A",$P(B(3),D,30),101)
	I $L($P($G(A(3)),D,30)) S $P(NA(3),D,30)=$$SIG^cAFA1("LE.A",$P(A(3),D,30),101)
	; Vertegenwoordiger : nr uit DATA omvormen naar nr uit ^EAVT1
	I $L($P($G(B(1)),D,21)) S $P(NB(1),D,21)=$$SIG^cAFA1("VT.A",$P(B(1),D,21),101)
	I $L($P($G(A(1)),D,21)) S $P(NA(1),D,21)=$$SIG^cAFA1("VT.A",$P(A(1),D,21),101)
	; Factuurklant : nr uit DKL omvormen naar nr uit ^EAKL
	I $L($P($G(B(2)),D,20)) S $P(NB(2),D,20)=$$SIG^cAFA1("KL.A",$P(B(2),D,20),101)
	I $L($P($G(A(2)),D,20)) S $P(NA(2),D,20)=$$SIG^cAFA1("KL.A",$P(A(2),D,20),101)
	; Betalingstermijn
	I $L($P($G(B(1)),D,18)) S $P(NB(1),D,18)=$$SIG^cAFA1("CODE.9024",$P(B(1),D,18),110)
	I $L($P($G(A(1)),D,18)) S $P(NA(1),D,18)=$$SIG^cAFA1("CODE.9024",$P(A(1),D,18),110)
	; Domicilieringstermijn
	I $L($P($G(B(1)),D,24)) S $P(NB(1),D,24)=$$SIG^cAFA1("CODE.9024",$P(B(1),D,24),110)
	I $L($P($G(A(1)),D,24)) S $P(NA(1),D,24)=$$SIG^cAFA1("CODE.9024",$P(A(1),D,24),110)
	Q
	;
KL2KLA	; overgang KL naar KL.A
	; munt en taal hoeven niet want de key is en blijft de code
	; categorie
	I $L($P($G(B(2)),D,19)) S $P(NB(2),D,19)=$P($G(@("^"_Q_"BA(""%F"",1,$P(B(2),D,19)_"" "")")),D,48)
	I $L($P($G(A(2)),D,19)) S $P(NA(2),D,19)=$P($G(@("^"_Q_"BA(""%F"",1,$P(A(2),D,19)_"" "")")),D,48)
	; rang korting
	I $L($P($G(B(2)),D,5)) S $P(NB(2),D,5)=$P($G(@("^"_Q_"KORT(0,$P(B(2),D,5))")),D,48)
	I $L($P($G(A(2)),D,5)) S $P(NA(2),D,5)=$P($G(@("^"_Q_"KORT(0,$P(A(2),D,5))")),D,48)
	; Leverancier : nr uit EAL1 omvormen naar nr uit DLE
	I $L($P($G(B(3)),D,30)) S $P(NB(3),D,30)=$$SG^cAFA1("LE",$P(B(3),D,30),148)
	I $L($P($G(A(3)),D,30)) S $P(NA(3),D,30)=$$SG^cAFA1("LE",$P(A(3),D,30),148)
	; Vertegenwoordiger : nr uit EAVT1 omvormen naar nr uit ^DATA
	I $L($P($G(B(1)),D,21)) S $P(NB(1),D,21)=$$SG^cAFA1("VT",$P(B(1),D,21),148)
	I $L($P($G(A(1)),D,21)) S $P(NA(1),D,21)=$$SG^cAFA1("VT",$P(A(1),D,21),148)
	; Factuurklant : nr uit EAKL omvormen naar nr uit DKL
	I $L($P($G(B(2)),D,20)) S $P(NB(2),D,20)=$$SG^cAFA1("KL",$P(B(2),D,20),148)
	I $L($P($G(A(2)),D,20)) S $P(NA(2),D,20)=$$SG^cAFA1("KL",$P(A(2),D,20),148)
	; Betalingstermijn
	F i="A","B" S $P(@("N"_i_"(1)"),D,18)=$$BETTERM(Q,$P($G(@(i_"(1)")),D,18))
	; Domicilieringstermijn
	F i="A","B" S $P(@("N"_i_"(1)"),D,24)=$$BETTERM(Q,$P($G(@(i_"(1)")),D,24))
	Q
	;
BETTERM(Q,R,DMS)
	; DMS : CODE.9024 = KL, CODE.9028 = LE
	S $ZT="TRAP^cAN000"
	I '$L(R) G BETTERMZ
	I '$L($G(DMS)) S DMS="CODE.9024"
	S Q(49)=$$Q49^cAFVBA03(Q,DMS)
	S R=$$UI1OP^cAFA1(DMS,110,"",R)
BETTERMZ	Q R
	;
LEA2LE	; overgang LE.A naar LE
	; klant : nr uit DKL omvormen naar nr uit EAKL
	I $L($P($G(B(3)),D,30)) S $P(NB(3),D,30)=$$SIG^cAFA1("KL.A",$P(B(3),D,30),101)
	I $L($P($G(A(3)),D,30)) S $P(NA(3),D,30)=$$SIG^cAFA1("KL.A",$P(A(3),D,30),101)
	; AR : nr uit DAR omvormen naar nr uit EAAR
	I $L($P($G(B(2)),D,21)) S $P(NB(2),D,21)=$$SIG^cAFA1("AR.A",$P(B(2),D,21),101)
	I $L($P($G(A(2)),D,21)) S $P(NA(2),D,21)=$$SIG^cAFA1("AR.A",$P(A(2),D,21),101)
	; Betalingstermijn
	I $L($P($G(B(1)),D,18)) S $P(NB(1),D,18)=$$SIG^cAFA1("CODE.9028",$P(B(1),D,18),110)
	I $L($P($G(A(1)),D,18)) S $P(NA(1),D,18)=$$SIG^cAFA1("CODE.9028",$P(A(1),D,18),110)
	Q
	;
LE2LEA	; overgang LE naar LE.A
	; klant : nr uit EAKL omvormen naar nr uit DKL
	I $L($P($G(B(3)),D,30)) S $P(NB(3),D,30)=$$SG^cAFA1("KL",$P(B(3),D,30),148)
	I $L($P($G(A(3)),D,30)) S $P(NA(3),D,30)=$$SG^cAFA1("KL",$P(A(3),D,30),148)
	; AR : nr uit EAAR omvormen naar nr uit DAR
	I $L($P($G(B(2)),D,21)) S $P(NB(2),D,21)=$$SG^cAFA1("AR",$P(B(2),D,21),148)
	I $L($P($G(A(2)),D,21)) S $P(NA(2),D,21)=$$SG^cAFA1("AR",$P(A(2),D,21),148)
	; Betalingstermijn
	F i="A","B" S $P(@("N"_i_"(1)"),D,18)=$$BETTERM(Q,$P($G(@(i_"(1)")),D,18),"CODE.9028")
	Q
	;
NPA2NP	; overgang NP.A naar NP
	; munt en taal hoeven niet want de key is en blijft de code
	; categorie
	I $L($P($G(B(2)),D,19)) S $P(NB(2),D,19)=$$SIG^cAFA1("CODE.9012",$P(NB(2),D,19),101)
	I $L($P($G(A(2)),D,19)) S $P(NA(2),D,19)=$$SIG^cAFA1("CODE.9012",$P(NA(2),D,19),101)
	; Vertegenwoordiger : nr uit DATA omvormen naar nr uit ^EAVT1
	I $L($P($G(B(1)),D,21)) S $P(NB(1),D,21)=$$SIG^cAFA1("VT.A",$P(B(1),D,21),101)
	I $L($P($G(A(1)),D,21)) S $P(NA(1),D,21)=$$SIG^cAFA1("VT.A",$P(A(1),D,21),101)
	Q
	;
NP2NPA	; overgang KL naar KL.A
	; munt en taal hoeven niet want de key is en blijft de code
	; categorie
	I $L($P($G(B(2)),D,19)) S $P(NB(2),D,19)=$P($G(@("^"_Q_"BA(""%F"",1,$P(B(2),D,19)_"" "")")),D,48)
	I $L($P($G(A(2)),D,19)) S $P(NA(2),D,19)=$P($G(@("^"_Q_"BA(""%F"",1,$P(A(2),D,19)_"" "")")),D,48)
	; Vertegenwoordiger : nr uit EAVT1 omvormen naar nr uit ^DATA
	I $L($P($G(B(1)),D,21)) S $P(NB(1),D,21)=$$SG^cAFA1("VT",$P(B(1),D,21),148)
	I $L($P($G(A(1)),D,21)) S $P(NA(1),D,21)=$$SG^cAFA1("VT",$P(A(1),D,21),148)
	Q
	;
ZZ	; 19.03.07 - 15 u 31 * V8.08