cAFE7 ; Conversie document naar euro ; %AFE7 [ 12/15/00  8:05 AM ]
 ;
A ;  Aankoopdocumenten
 N SRT
 S SRT="A" G 1
 ;
V ;  Verkoopdocumenten
 N SRT
 S SRT="V" G 1
 ;
T0 ; Conversie document naar euro ;
T1 ;Conversie naar euro is onomkeerbaar\".[] = ok";
T2 ;Document staat al in euro;
 ;
T0F ; Conversion document vers euro ;
T1F ;Conversion vers euro est irréversible\".[] = ok" ;
T2F ;Document déjà en euro;
 ;
T0E ; Conversie document naar euro ;
T1E ;Conversie naar euro is onomkeerbaar\".[] = ok";
T2E ;Document staat al in euro;
 ;
1 N AKP,B,UZ,OMUNT,OKSW,URUI1,TAB 
11 S OMUNT=$P(U5,D,18),OKSW=0 I OMUNT="EUR" S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G YZ
13 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_"\1\\""-,.""[K" D R0 G YZ:K="-",YZ:K=",",13:K'="."
15 S $P(U5,D,18)="EUR",$P(@("^"_Q_UGL_"(KC,US,UR,1)"),D,18)="EUR" ; muntcode in hoofding
17 ; S UZ=100 S URUI1=$P(^(3),D,24) I URUI1 D W^cAN220(USA,"EUR",URUI1,118,"EUR") ; muntcode in hoofding in ^DMA
 S UZ=100 S URUI1=$P(^(3),D,24) I URUI1 S TAB(118)="EUR" D B^cFNA000(Q,USA,UQA,UR,"TAB",1) ; muntcode in hoofding in ^DMA
19 S UZ=$O(@("^"_Q_UGL_"(KC,US,UR,UZ)")) G 2:UZ="" S B(1)=^(UZ)
 I $L($P(B(1),D,7)),$P(B(1),D,7)'["%" S $P(B(1),D,7)=$$EPR^cAFE5($P(B(1),D,7),"EUR",SRT,$G(UPRDMS,"PR"),OMUNT)
 S AKP=$P(B(1),D,32) I AKP S $P(B(1),D,32)=$$EPR^cAFE5(AKP,"EUR","A",$G(UPRDMS,"PR"),OMUNT)
 S K=$S($P(B(1),D,3):$P(B(1),D,6),1:$P(B(1),D,29))
 S K=$$EPR^cAFE5(K,"EUR",SRT,$G(UPRDMS,"PR"),OMUNT)
 S $P(B(1),D,$S($P(B(1),D,3):6,1:29))=K
 D S3^cFN226 S $P(B(1),D,29)=K
190 S @("^"_Q_UGL_"(KC,US,UR,UZ)")=B(1) G 19
 ;
2 S K=",",OKSW=1
 ;
YZ S:'OKSW K="" Q
 ;
R0 S $P(R,D,12)=$T(+0),$P(R,D,13)=1 D ^cAN1000 Q  ; v12 23.01.95
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84