cT817 ;Fin & div: k/l korting ;%T80 ; [ 01/12/01  9:55 AM ]
 G 1
 ;
T0 ;Fin & div: k/l korting ;
T1 ;De rekening;
T2 ;Grootboekrekening : ;
T3 ;Saldo : ; van de factuur eerst tegenboeken a.u.b. ! ;
 ;
T0F ;Fin & div: c/f escompte ;
T1F ;Compte;
T2F ;Compte : ;
T3F ;Solde : ; de la facture d'abord corriger s.v.p. ! ;
 ;
T0E ;Financial & miscellaneous transactions: c/s discount ;
T1E ;The account;
T2E ;General account : ;
T3E ;Please first correct the balance of the invoice: ; ! ;
 ;
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 K S1,S2 S (BC(0),BC(1))=0 Q
 ;
1 S CO="D",HBE=KX S:K1="K"&(FC="C")!(K1="L"&(FC'="C")) KX=-KX S:KX<0 CO="C",HBE=-KX
11 I SW="K" S BR=$P($P(D1(K1),D)," ")_" ",NMA=$P(@Q41,D,2) D  G 3:$L(BRA),25
 . S BRA=""
 . I K1="K",$P(SWAN,D,5)=1 S SWAV=1,BRA="A"_D1(K1,"A")_" "
 . I K1="L",$P(SWAN,D,4)=1 S SWAV=1,BRA="A"_D1(K1,"A")_" "
 . I K1="K",$P(SWAN,D,5)=2 D   ; TBK
 .. S K=$$SIG^cAFA1("KL",I1,730) I K S K=$$SIGN^cAFA1("CODE.AO",K,0) I $L($P(K,D,3)) S SWAV=1,BRA="A"_$P(K,D,3)
 ;
2 S BR=$$^cANSYN("AR") G Y:K="-",2:'$D(@Q41)
21 I $P(@Q41,D,13)!$L($P(^(0),D,10))!(K2[(D_+BR_D)) S R=29 D F2 G 2
23 S NMA=$P(^(0),D,2) S FP=2003 W @F,$P($T(@("T2"_QT)),U,2),BR,NMA,@F1
25 D ^cT843 G 2:K="-"
 ;
3 I $D(SWAV),SWAV D ^cT844 G 2:K="-",2:KX,YZ
30 L +@("^"_Q_"AR(BR)"):2 E  S R=14 D F2 G 2
31 S BNR=@Q93,@Q93=BNR+1 G 31:$D(@Q95) S BE=$J(HBE*PAR,1,QD) X:$D(KAS) KAS S BC(CO="C")=BE,HIS=$P(@Q41,D,3) D S1
33 S:CO="D" KX=KX-HBE,UX=UX+BE,HUX=HUX+HBE S:CO="C" KX=KX+HBE,UX=UX-BE,HUX=HUX-HBE
35 S K=D_DAT_D_NUM_D_CD_D_BE_D_CO_D_"A"_D_$P(BR," ")_"#"_NMA_D_OM_D_BPE_D_HBE_D_D_FNR
37 S K=K_D_SRT_D_OM1_D_D_D_D_HUXB_"#"_HUXV_D_UX_D_HUX_D_D_HBF_D_HBF_D_HBE_D_PAR_D,$P(K,D)=$T(+0),$P(K,D,28)=$H,$P(K,D,29)=$G(QU),@Q95=K
 ;
4 D S6^cT809
 ;
Y I KX S K=$P($T(@("T3"_QT)),U,2)_KX_$P($T(@("T3"_QT)),U,3) D F1 G 2
YZ K NMA,OM,OM1,BE,HBE,CO Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84