cI39E41 ; Conversie afschrijvingen naar euro ; %I39E41 [ 02/23/00  8:55 AM ]
 ;
T0 ; Conversie afschrijvingen naar euro ; 
 ;
T0F ; Conversion des amortissement vers euro ;
 ;
T1 ; Conversie kan niet gedraaid worden in periode P3 ;
T2 ; Bestand afschrijvingen in gebruik;
T3 ;Bevestiging\".[] = ok   ,[] = hernemen";
T4 ;Einde conversie.;
 ;
T1F ; Conversion ne peut pas être fait en période P3 ;
T2F ; Fichier des amortissements en usage;
T3F ;Confirmation\".[] = ok   ,[] = reprendre;
T4F ;Fin de la conversion.;
 ;
 ; Test : check periode = P4 en lock AFS - bestand
 ;
1 D O^cA612(2,1,20,80,1,0,1,1),T^cA612($P($T(@("T0"_QT)),U,2)_" "_QN,0,0,7,0,1)
11 S DEC=$P(@("^"_Q_"BA(39)"),D,8) ;I $P(^(39),D)'="EUR" S K=$P($T(@("T1"_QT)),U,2) D TXT^cAFA1(250) G YZ
13 L +@("^"_Q_"AFS"):2 E  S K=$P($T(@("T2"_QT)),U,2) D TXT^cAFA1(250) G YZ
 ;
 ; conversie met DEC = aantal decimalen
 ;
 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\1\\""-,.""[K" D R0 G YZ:K="-",YZ:K=",",13:K'="."
15 S OMUNT=$P(@("^"_Q_"BA(39)"),D,9)    ; oude firmamunt
17 K ^HULP(boot,$J+.01) D ^cT701 S I3="" F  S I3=$O(^HULP(boot,$J,I3)) Q:I3=""  S INH=^(I3) F I=1:1 S VELD=$P(INH,D,I) Q:VELD=""  S ^HULP(boot,$J+.01,VELD)=I3
 ;
 ; aflopen AFS en conversie bedragen
 ;
2 S I1=0
21 S I1=$O(@("^"_Q_"AFS(I1)")) G Y:I1="" S I2=""
23 S I2=$O(@("^"_Q_"AFS(I1,I2)")) G 21:I2="" S I3=""
25 S I3=$O(@("^"_Q_"AFS(I1,I2,I3)")) G 23:I3="" S INH=^(I3) W /CUP(10,5),I2," ",I3
27 S OAANS=$P(INH,D,4),NAANS=$$OMREK^cAFE1(Q,OAANS,OMUNT,"EUR","V",DEC)
29 S INJ=I1,KAT=I2,TBL=$P(I3," ") D ^cT709
 ;
 ; controle jaarbedragen <--> aanschafwaarde
 ;
3 S (TOTNBED,JAAR)=0 K JAARTOT
31 S JAAR=$O(@("^"_Q_"AFS(0,$J+.01,JAAR)")) G 35:JAAR="" G 35:(^(JAAR)=0) S OBED=$P(^(JAAR),D,3)
33 S NBED=$$OMREK^cAFE1(Q,OBED,OMUNT,"EUR","V",DEC),TOTNBED=TOTNBED+NBED,JAARTOT(JAAR)=NBED G 31
35 I NAANS'=TOTNBED D
37 . S JVERS=NAANS-TOTNBED S LJR=$O(JAARTOT(""),-1) S JAARTOT(LJR)=JAARTOT(LJR)+JVERS
 ;
 ; controle maandbedragen met jaarbedragen
 ;
4 S JR=""
41 S JR=$O(@("^"_Q_"AFS(0,$J+.01,JR)")) G 5:JR="" S JRMND=^HULP(boot,$J,$P(JR," ")) S MNDTOT=0 K MND
43 F I=1:1 S MAAND=$P(JRMND,D,I) Q:MAAND=""  I $D(@("^"_Q_"AFS(I1,I2,I3,MAAND)")) S LAMA=MAAND D
431 . S OBED=^(MAAND),NBED=$$OMREK^cAFE1(Q,OBED,OMUNT,"EUR","V",DEC)
433 . S MNDTOT=MNDTOT+NBED,MND(MAAND)=NBED
45 G 41:'$D(JAARTOT(JR)) G 41:'$D(MND) I MNDTOT'=JAARTOT(JR) D
451 . S V=JAARTOT(JR)-MNDTOT,MND(LAMA)=MND(LAMA)+V
47 S M="" F  S M=$O(MND(M)) Q:M=""  I '$D(@("^e"_Q_"AFS(I1,I2,I3,M)")) S @("^e"_Q_"AFS(I1,I2,I3,M)")=@("^"_Q_"AFS(I1,I2,I3,M)"),@("^"_Q_"AFS(I1,I2,I3,M)")=MND(M)
49 G 41
 ;
5 I $D(@("^e"_Q_"AFS(I1,I2,I3)"))'=1 S @("^e"_Q_"AFS(I1,I2,I3)")=@("^"_Q_"AFS(I1,I2,I3)"),$P(@("^"_Q_"AFS(I1,I2,I3)"),D,4)=NAANS
51 G 25
 ;
Y S K=$P($T(@("T4"_QT)),U,2) D TXT^cAFA1(250) 
YZ D C^cA612 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3