cT375 ;FINANCIEEL VIA ^HULPF(HULPF) ;%T37 ; [ 03/23/94  10:54 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=5 : OPENSTELLEN CREDITNOTA KLANT/LEVERANCIER
 ;
1 S RLOCK=HLOCK_",^"_Q_R3_"(RI1)" D S3
11 S K=$O(@("^"_Q_R3_"(RI1,0)")),R=RFIN,RBC(RXX="C")=RBB,RHIS=1 D S1
13 S RA=$S($P(R0,D,2):$P(R0,D,2),1:RDAT),RB=$S($P(R0,D,3):$P(R0,D,3),1:RDAT)
15 S ^(RFNR)="C\"_RA_D_RB_D_RBB_D_RBB_D_D_$P(R0,D,9)_D_D_RBF_D_RBB_D_D_D_D_D
17 S @("^"_Q_$S(R1="K":"VF",1:"AF")_"(RFNR)")=R2
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