cT892 ;Boeking koersverschillen ;%T89 ; [ 01/03/01  2:58 PM ]
 G 1
 ;
T0 ;Boeking koersverschillen ;
T1 ;Saldo in ;
T2 ;"xxxxxx[] = debet   xxxxxxx-[] = credit";
T3 ;Omschrijving\",[] = hernemen";
T4 ;Na correctie;
T5 ;Bevestiging\".[] = ok   ,[] = hernemen";
 ;
T0F ;Imputation écarts de cours ;
T1F ;Solde en ;
T2F ;"xxxxxxx[] = débit   xxxxxxx-[] = crédit";
T3F ;Description\",[] = reprendre";
T4F ;Après correction;
T5F ;Confirmation\".[] = ok   ,[] = reprendre";
 ;
T0E ;Accounting difference in exchange rate ;
T1E ;Balance in ;
T2E ;"xxxxxx[] = debit   xxxxxxx-[] = credit";
T3E ;Description\",[] = retry";
T4E ;After correction;
T5E ;Confirmation\".[] = ok   ,[] = retry";
 ;
S1 S X=D,$P(X,D,23)=D F S1=BJ:.01:BJ+.02 I '$D(^(S1)) S ^(S1)=X
S1A F X=0,1 I BC(X) S S1=X*.02+BJ,$P(^(S1),D,BX)=$P(^(S1),D,BX)+BC(X)
S1B S BH=BH\1 D:BPE @BPEC I HIS S S1="B"_RB_"#"_BNR_D G S1D
S1C S S1=BH_"B"_RB,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=NUM_D_DAT_D_($P(S2,D,3)+BC(0))_D_($P(S2,D,4)+BC(1))_D_$P(S2,D,5,99) G S1Z
S1D S BH=BH+.01 S:BH#1=0 HIS=0,BH=BH-1 D ^cT00:'HIS G S1C:'HIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E I ^(BH)'[S1 G S1D:$L(^(BH))+$L(S1)>255 S ^(BH)=^(BH)_S1
S1Z S (BC(0),BC(1))=0 K S1,S2 Q
 ;
 ; saldo VM
1 S BR=RB_" ",K=@Q41,J=BJ+.01,K=$G(^(J))
11 I BP>$P(BPB,D,2) S J=J-1 S X=$G(^(J)),Y=$G(^(J+.02)),K=X F I=2:1:25 S K=K+$P(X,D,I)-$P(Y,D,I)
13 S X=$G(^(BJ+.01)),Y=$G(^(BJ+.03)) F I=2:1:BX S K=K+$P(X,D,I)-$P(Y,D,I)
15 S FP=602 W @F,@F6,$P($T(@("T1"_QT)),U,2),HBF,@F9 S FP=620 W @F,": ",$TR($FN(K,",T",HQD),",.",".,")
 ;
 ; saldo muntcode boekhouding
2 S BR=RB_" ",K=@Q41,J=BJ,X=$G(^(BJ)),Y=$G(^(BJ+.02))
21 S K=$$BSAL^cAFE1(Q,BJ,"AR",BR)
23 F I=2:1:BX S K=K+$P(X,D,I)-$P(Y,D,I)
25 S FP=802 W @F,@F6,$P($T(@("T1"_QT)),U,2),BF,@F9 S FP=820 W @F,": ",$TR($FN(K,",T",QD),",.",".,")
27 S SAL=$J(K,0,QD)
 ;
 ; nieuw saldo
3 S R="K\22\3\"_$P($T(@("T1"_QT)),U,2)_BF_D_$P($T(@("T2"_QT)),U,2)_"\10\INCTR\$L(K)" D R0 G YZ:K="-"!(K=",")
31 S:K["-" K=-K S BE=$J(SAL-K,0,QD),HBE=0,CO="D" G YZ:'BE I BE<0 S BE=-BE,CO="C"
33 S OM=HBF_" - "_BF,FP=2203 W @F,@F1,$P($T(@("T1"_QT)),U,2),BF," : ",$TR($FN(K,",T",QD),",.",".,")
35 S R="OM1\23\3\"_$P($T(@("T3"_QT)),U,2)_"\50\\\\\\\1" D R0 G 3:K="-"!(K=",")
37 S R="K\23\3\"_$P($T(@("T5"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 35:K="-",3:K=","
 ;
 ; koersverschil
4 S BR=$P(@("^"_Q_"BA(10,CO=""C"")"),D)_" " L +@("^"_Q_"AR(BR)"):2 E  S R=14 D F2 G 37
40 S BRA="" D  I $L(BRA) S NMA=$P(@Q41,D,2) D ^cT845 G 5       ; analyt.
 . I CO="D",$P(SWAN,D,6)=1 S BRA=$P(@("^"_Q_"BA(10,0)"),D,3)_" "
 . I CO="C",$P(SWAN,D,7)=1 S BRA=$P(@("^"_Q_"BA(10,1)"),D,3)_" "
 . S (HUXB,HUXV,UX,HUX)="",NOTSHOW=1 K SW I BRA="" Q
 . L +^HULPE(0) S HULPE=$G(^HULPE(0),1),^(0)=HULPE+1 L -^HULPE(0)
 . K ^(HULPE) S ^(HULPE,BRA)=BE_D_HBE
41 S BNR=@Q93,@Q93=BNR+1 I $D(@Q95) G 41                       ; niet an.
43 S BC(CO="C")=BE,NMA=$P(@Q41,D,2),HIS=$P(^(0),D,3) D S1 L -@("^"_Q_"AR(BR)")
45 S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$TR(BR," ","#")_NMA_D_OM_D_BPE_D_HBE_D_D_D_SRT_D_OM1_D_D_D_D_"#"_D_D_D_D_HBF_D_BF_D_D_PAR_D
47 S $P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K
 ;
 ; bank zelf
5 S BR=RB_" " L +@("^"_Q_"AR(BR)"):2 E  S R=14 D F2 G 5
51 S CO=$S(CO="D":"C",1:"D")
53 S BC(CO="C")=BE,NMA=$P(@Q41,D,2),HIS=0 D S1 L -@("^"_Q_"AR(BR)")
55 S @("^"_Q_"BA(BP,112)")=$H,^(BR)=$H
 ;
 ; saldo muntcode boekhouding na correctie
6 S BR=RB_" ",K=@Q41,J=BJ,X=$G(^(BJ)),Y=$G(^(BJ+.02))
61 S K=$$BSAL^cAFE1(Q,BJ,"AR",BR)
63 F I=2:1:BX S K=K+$P(X,D,I)-$P(Y,D,I)
65 S FP=902 W @F,@F6,$P($T(@("T4"_QT)),U,2),@F9 S FP=920 W @F,": ",$TR($FN(K,",T",QD),",.",".,")
 ;
YZ K OM1 G 3^cT890
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
INCTR ;K?1.N!(K?.N1"-")!(K?.N1"."1.N&QD&($L(K#1)-1'>QD))!(K?.N1"."1.N1"-"&QD&($L(K#1)-1'>QD))!(K=",")
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84