cI27 ;KORREKTIE LEGE HISTORIEKSTRINGS ;%I27 ; [ 01/26/95 6:07 PM ] G 1 ; T1 ;KLANTEN;LEVERANCIERS;REKENINGEN;BESTAND\"[] = neen .[] = ja";NEEN;JA; T2 ;VAN MAAND;TOT MAAND;\"JJJJ.MM[] = bepaalde maand"; T3 ;BEVESTIGING\".[] = ok ,[] = hernemen"; ; S1 S R="K\22\3\"_TXT_$P($T(T1),U,5)_"\1\\""-,.""[K" D R0 S1Z Q ; S2 W @F,@F2,TXT S FP=FP+12 W @F," : ",$P($T(T1),U,6+K) S2Z Q ; S3 S R="K\22\3\"_TXT_$P($T(T2),U,4)_"\7\\K=""-""!(K="","")!(K?4N1"".""2N&(K#1)&(K#1<.13))" D R0 S3Z Q ; S4 W @F,@F2,TXT," : ",K S4Z Q ; S5 S I1=" ",FP=1503 S5A S I1=$O(@("^"_Q_Q1_"(I1)")) G S5Z:I1="",S5A:'$D(^(I1,0)) W @F,@F1,$P(^(0),D)," ",$P(^(0),D,2),! S5B L @("^"_Q_Q1_"(I1)") S BP=BP1 S5C S I2=1_BP*100+.0001,I2Z=1_BP*100+.99,TEL=0 K ^HULP(boot,$J) W $J(BP,10) S5D S I2=$O(@("^"_Q_Q1_"(I1,I2)")) G S5G:I2>I2Z!(I2]I2Z)!(1_BP*100'=$E(I2,1,7)) S5E S L=^(I2) F K=1:1 S X=$P(L,D),L=$P(L,D,2,999) Q:X=""&(L="") I $L(X) S TEL=TEL+1,^HULP(boot,$J,TEL)=X S5F K @("^"_Q_Q1_"(I1,I2)") G S5D S5G S I2=1_BP*100+.01,(L,TEL)="" S5H S TEL=$O(^HULP(boot,$J,TEL)),X="" I TEL'="" S X=^(TEL)_D I $L(L)+$L(X)<256 S L=L_X G S5H S5I I $L(L) S @("^"_Q_Q1_"(I1,I2)")=L S5J S L=X,I2=I2+.01 I $L(L) G S5H S5K S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G S5C:BP'>BP2,S5A S5Z L Q ; 1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 11 S TXT=$P($T(T1),U,2) D S1 G YZ:K="-",11:K="," S (K,SWKL)=$L(K),FP=403 D S2 13 S TXT=$P($T(T1),U,3) D S1 G 11:K="-",11:K="," S (K,SWLE)=$L(K),FP=503 D S2 15 S TXT=$P($T(T1),U,4) D S1 G 13:K="-",11:K="," S (K,SWAR)=$L(K),FP=603 D S2 17 S TXT=$P($T(T2),U,2) D S3 G 15:K="-",11:K="," S BP1=K,FP=803 D S4 19 S TXT=$P($T(T2),U,3) D S3 G 17:K="-",11:K="," S BP2=K,FP=903 D S4 I BP2