cT373 ;FINANCIEEL VIA ^HULPF(HULPF) ;%T37 ; [ 03/23/94  10:53 AM ]
 G 1
 ;
T0 ;Financieel via ^hulpf(hulpf) ;
T1 ;De bestanden zijn in gebruik ... even geduld ... ;
 ;
T0F ;Financier par ^hulpf(hulpf) ;
T1F ;Les fichiers sont en usage ... veuillez patienter ... ;
 ;
T0E ;Financieel via ^hulpf(hulpf) ;
T1E ;De bestanden zijn in gebruik ... even geduld ... ;
 ;
S1 S RS2=D,$P(RS2,D,23)=D F RS1=BJ:.01:BJ+.02 I '$D(^(RS1)) S ^(RS1)=RS2
S1A F RS2=0,1 I $D(RBC(RS2)),RBC(RS2) S RS1=RS2*.02+BJ,$P(^(RS1),D,BX)=$P(^(RS1),D,BX)+RBC(RS2)
S1B S BH=BH\1 D:BPE @BPEC I RHIS S RS1="B"_R_"#"_RBNR_D G S1D
S1C S RS1=BH_"B"_R,RS2=$S($D(^(RS1)):^(RS1),1:D),^(RS1)=RUIT_D_RDAT_D_($P(RS2,D,3)+RBC(0))_D_($P(RS2,D,4)+RBC(1))_D_$P(RS2,D,5,99) G S1Z
S1D S BH=BH+.01 S:BH#1=0 RHIS=0,BH=BH-1 D ^cT00:'RHIS G S1C:'RHIS,S1D:$D(^(BH+.01)) S:'$D(^(BH)) ^(BH)=""
S1E I ^(BH)'[RS1 G S1D:$L(^(BH))+$L(RS1)>255 S ^(BH)=^(BH)_RS1
S1Z K RS1,RS2 S (RBC(0),RBC(1))=0 Q
 ;
S2 I $L(HLOCK) L @("("_HLOCK_"):2") E  D S4 G S2
S2A S FP=2401+F60 W @F,@F1 I '$L(HLOCK) L
S2Z Q
 ;
S3 L @("("_RLOCK_"):2") E  D S2,S4 H 2 W @F,@F1 G S3
S3Z Q
 ;
S4 S FP=2402+F60 W @F,@F4,$P($T(@("T1"_QT)),U,2),@F5,@F1
S4Z Q
 ;
 ; RVW=3 : AFBOEKEN VOORSCHOT KLANT/LEVERANCIER
 ;
1 S RLOCK=HLOCK_",^"_Q_R3_"(RI1)" D S3
11 S R=@("^"_Q_R3_"(RI1,RFNR)"),R=$P(R,D,1,4)_D_($P(R,D,5)-RBB)_D_$P(R,D,6,9)_D_($P(R,D,10)-RBB)_D_$P(R,D,11,14)
12 I R1="L",$P(R,D,12) S $P(R,D,12)=$P(R,D,12)-RBB,$P(R,D,13)=$P(R,D,13)-RBB
13 S ^(RFNR)=R
15 S R=RFIN,RBC(RXX="C")=RBB,RHIS=1 D S1
17 I '$P(^(RFNR),D,10) K ^(RFNR)
19 D S2 S RA=$S(R1="K":1,1:3),RB=RXX="C",RZ(RA,RB)=RZ(RA,RB)+RBB
 ;
YZ K RA,RB Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84