cT1591 ;Inboeken wissel ;%T159 ;Do uit %T159 ; [ 01/02/01  11:04 AM ]
 G 1
 ;
T0 ;Inboeken wissel ;
 ;
T0F ;Inscrire traite ;
 ;
T0E ;Registration bill of exchange ;
 ;
 ; bijwerken cumuls & historieken (naked)
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="BW"_RB_"#"_BNR_D G S1D
S1C S S1=BH_"BW"_RB,S2=$S($D(^(S1)):^(S1),1:D),^(S1)=WNR_D_DT_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 K S1,S2 S (BC(0),BC(1))=0 Q
 ;
 ; omzetten wissel naar factuur
1 S OF=$G(@Q1) I OF="" S OF=A,$P(OF,D,5)=0,$P(OF,D,10)=0
11 S BEF=$P(A,D,5),BE=$P(A,D,10)
19 S KL=$TR($P(B(1),D,1,2),D,"#")
 ;
2 S CD=$TR($P(OF,D),"FC",$S(KZ="KL":"DC",1:"CD"))
21 I BDR=$P(A,D,5) G YZ
 ;
4 S AD1=$$DH^cAFD1(FVD)-$$DH^cAFD1($P(OF,D,2)),AD2=0,@%Q1=0
41 S BNR=@Q93,@Q93=BNR+1 I $D(@Q95) G 41             ; afboeking factuur
43 S K=$T(+0)_D_DT_D_WNR_D_AFK_D_BE_D_CD_D_$E(KZ)_D_KL_D_FVD_" "_FNR_D_BPE_D_BE_D_AD1_D_FNR_D_D_D
45 S K=K_D_D_AD2_D_BE_D_BE_D_BE_D_D_BF_D_VM_D_BEF_D_D_D_$H_D_$G(QU)_D_D,@Q95=K
47 S $P(OF,D,5)=$P(OF,D,5)+BEF,$P(OF,D,10)=$P(OF,D,10)+BE,@Q1=OF I '$P(OF,D,5) K @("^"_Q_$S(KZ="KL":"VF",1:"AF"))@(FNR),@Q1
49 S BC(CD="C")=BE,HIS=1 D S1                        ; individ. KL/LE
 ;
5 S BR=$P(VERBOT,D,$P(OF,D)="C"+$S(KZ="KL":2,1:4))  ; basisrek. KL/LE
51 L +@Q41 S K=@Q41,BC(CD="C")=BE,HIS=0 D S1 L -@Q41
53 S BR=RB_" "                                       ; wisselrekening
55 L +@Q41 S K=@Q41,BC(CD="D")=BE,HIS=0 D S1 L -@Q41
57 S $P(OF,D,5)=0,$P(OF,D,10)=0,@("^"_Q_"WI(WNR,FNR)")=OF
58 S (BE,I,TOT)=0 F  S I=$O(^(I)) Q:I=""  D
 . S K=^(I) I $P(K,D)="C" S $P(K,D,5)=-$P(K,D,5),$P(K,D,10)=-$P(K,D,10)
 . S TOT=TOT+$P(K,D,5),BE=BE+$P(K,D,10)
59 S $P(^(0),D,7)=TOT
 ;
 ; wissel bij KL/LE
6 S K="W"_D_FDT_D_FVD_D_TOT_D_TOT_"\\\\"_VM_D_BE_"\\\\"_BR_D
61 S @("^"_Q_KZ_"(I1,WNR)")=K
63 I $D(^(FNR)),'$D(@("^"_Q_$S(KZ="KL":"VF",1:"AF"))@(FNR)) S ^(FNR)=KC_D
 ;
YZ S @%Q1=1 Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84