cT66E4 ;Overschrijvingen ;%T66 ;Do uit %T66E1 ; [ 11/06/98 5:19 PM ] G 1 ; T0 ;Overschrijvingen ; T1 ;Er is een ;circulaire cheque;postassignatie; voor leverancier : ; T2 ;Kosten\"1[] = ten laste van opdrachtgever 2[] = ten laste van begunstigde"; ; T0F ;Virements ; T1F ;Il y a ;un chèque circulaire;une assignation; pour fournisseur : ; T2F ;Frais\"1[] = pour l'ordonnateur 2[] = pour le récepteur"; ; T0E ;Overschrijvingen ; T1E ;Er is een ;circulaire cheque;postassignatie; voor leverancier : ; T2E ;Kosten\"1[] = ten laste van opdrachtgever 2[] = ten laste van begunstigde"; ; S7 D O^cA612(15,1,7,80,1,0,0,0) S7A S X=$E($P(B,D,8),3),K=3 S:X=2!(X>5) K=4 W /CUP(2,2),$P($T(@("T1"_QT)),U,2),$P($T(@("T1"_QT)),U,K),$P($T(@("T1"_QT)),U,5) S7B W /CUP(4,2),$P(B,D)," ",$P(B,D,2) S7C S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\1\\K=1!(K=2)" D R0 S7Z D C^cA612 Q ; 1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),I2=0 K ^HULP(boot,$J) I SWBB G ^cT66E6 ; ; alle betalingen in alfabetische volgorde in ^HULP 2 S I2=$O(@("^"_Q_"LE(I2)")),LNR=+$P(I2," ",2),I1="" G 4:I2="",2:'$D(@Q50) ; ; leveranciers op niveau 2 skippen - FB - 21.04.04 I $P(@("^"_Q_"LE(I2,0)"),D,30)=2 G 2 ; 21 S ZBW=BWZ G 25:ZBW 23 S I1=$O(@Q51) I $L(I1) S K=^(I1),Y=$P(K,D,9),B=$P(K,D,11) G 23:Y="F"&(B>0),23:Y="C"&(B<0) S ZBW=1,I1=0 25 S I1=$O(@Q51) G 2:I1="" S FP=2203,LNM=^(I1),A=LNR ;W @F,$P(LNM,D,2),@F1 27 I 'ZBW,$D(^HULP(boot,$J,A)) S A=A+.0001 G 27 ; niet samenvoegen ; 3 S B=$P(LNM,D,1,9)_"\\\" S:$D(^HULP(boot,$J,A)) B=^(A) 31 I $P(B,D,10)="" S NR=$P(LNM,D,10) S:$D(@Q1) K=$P(^(NR),D,3),$P(B,D,10)=K 33 S A3=0,K=$P(B,D,8) S:$E(K,1,2)=99&('$E(K,4,10)) A3=1 35 I '$L($P(B,D,12)),A3 D S7 S $P(B,D,12)=K 37 S X=1 S:$P(LNM,D,9)="C" X=-1 S $P(B,D,11)=X*$P(LNM,D,17)+$P(B,D,11) 38 S X=$P(LNM,D,18) 39 S:'$L(X) X=$P(LNM,D,13) S:'$L(X) X=$P(LNM,D,14) S:$L(B)<240 B=B_D_X S ^HULP(boot,$J,A)=B G 25 ; ; file 4 S K=$P(BA39,D,2),KT=+$TR(K,"NFD","123"),(I,T,RN,L,LT)=0,TVG=9 ; --- VJ 16.09.02 --- ; R1 = postcode ; R2 = woonplaats S R1=$P(NM3," "),R2=$P(NM3,R1,2,999) S R=R1,R1="" F K=1:1:$L(R) I $E(R,K)?1N S R1=R1_$E(R,K) F Q:$E(R2)'=" " S R2=$E(R2,2,$L(R2)) I R1=""!(R2="") S R1=$E(NM3,1,4),R2=$E(NM3,5,99) 41 ; S I=I+1,R=DT_"\\\"_NM1_D_NM2_D_$E(NM3,1,4)_D_$E(NM3,5,99)_D_BNR_D_D_D_HBF_D,R1="",R2=0_D_PRO_D_DAT_D_KT_D_INS_D_D_D_D_D_D_D_D S I=I+1,R=DT_"\\\"_NM1_D_NM2_D_R1_D_R2_D_BNR_D_D_D_HBF_D,R1="",R2=0_D_PRO_D_DAT_D_KT_D_INS_D_D_D_D_D_D_D_D 42 D ^cA320 ; type 0 ; ; type 1 5 S I1=$O(^HULP(boot,$J,I1)) G 7:I1=""!(L+LT>9998) S B=^(I1),(A1,A2)="" 51 F K=13:1 S X=$P(B,D,K,99) Q:X="" S X=$P(X,D) I $L(X) S:$L(A1_X)>53 A2=A2_X_"+" S:$L(A1_X)'>53 A1=A1_X_"+" 510 I HQD S $P(B,D,11)=$J($P(B,D,11)*100,0,0) ; bedrag op eurocenten 52 S I=I+1,L=L+1,R=DT_D_$E(A1,1,$L(A1)-1)_D_$P(B,D,11)_D_NM1_D_NM2_D_$E(NM3,1,4)_D_$E(NM3,5,99)_D_BNR_D_D_D_HBF_D 520 I $$IBAN^cAFI2($P(B,D,8)) S $P(B,D,8)=$E($P(B,D,8),5,99) ; GD 08.08.03 53 S R1=$P(B,D,2)_D_$P(B,D,3)_D_$P(B,D,4)_D_$P(B,D,5)_D_$P(B,D,8) 54 S R2=1_D_PRO_D_DAT_D_KT_D_INS_D_(+$TR($P(B,D,7),"NFD","123"))_D_D_L_D_D_D_D_$P(B,D,12)_D D ^cA320 55 I A2="" G 64 ; ; type 2 6 S I=I+1,LT=LT+1 I '$P(B,D,12) S $P(B,D,3,6)="\\\" 61 S R=DT_D_$E(A2,1,$L(A2)-1)_D_$P(B,D,11)_D_NM1_D_NM2_D_$E(NM3,1,4)_D_$E(NM3,5,99)_D_BNR_D_D_D_HBF_D 62 S R1=$P(B,D,2)_D_$P(B,D,3)_D_$P(B,D,4)_D_$P(B,D,5)_D_$P(B,D,8) 63 S R2=2_D_PRO_D_DAT_D_KT_D_INS_D_(+$TR($P(B,D,7),"NFD","123"))_D_D_L_D_D_D_D_$P(B,D,12)_D D ^cA320 64 S T=T+$P(B,D,11),RN=RN+$P(B,D,8) G 5 ; ; type 9 (einde) 7 S I=I+1,R=DT_D_D_T_D_NM1_D_NM2_D_$E(NM3,1,4)_D_$E(NM3,5,99)_D_BNR_D_D_D_HBF_D,R1="" 71 S R2=9_D_PRO_D_DAT_D_KT_D_INS_D_D_D_L_D_(L+LT)_D_RN_D_BTW_D_D D ^cA320 ; KO - 29.10.07 - Wegwerken ^_Q_BA("%T",4 73 ; S K=$G(@("^"_Q_"BA(""%T"",4,BR)"),"A:"_AFK_".TXT") S K=$$BEST^cT67(BR,"A:",AFK_".TXT") 75 S $P(^HULP("TR",Q,TNR,0),D,4)=I-2,$P(^(0),D,6)=$TR(K,D,U) ; YZ G ^cT66E5 ; R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q ; v12 23.01.95 ; ZZ ; 19.06.08 - 12 u 09 * V9.01