cT134 ;BUITEN GEBRUIK ;%T59 ;go uit %T59 [ 04/12/00   9:06 AM ]
 G 1
 ;
T0 ;Buiten gebruik ;
T1 ;Blz :;overdrachttotaal;eindtotaal; factoring;
T2 ; Leverancier;Nr.; Referte;C;Nr.fac;Fac.dat.;Vervald.;Tot.factuur;Korting; Vervallen; Niet-verv.;Nr.;
 ;
T0F ;Proposition de paiement des fourn. ;
T1F ;Page:;Total à transférer;Total final; Factoring;
T2F ; Fournisseur;N° ; Référence;C;N° doc;Date doc;Echéance;Tot.document;Escompte;  Echéance;  Non échu;N° ;
 ;
T0E ;Buiten gebruik ;
T1E ;Blz :;overdrachttotaal;eindtotaal; factoring;
T2E ; Leverancier;Nr.; Referte;C;Nr.fac;Fac.dat.;Vervald.;Tot.factuur;Korting; Vervallen; Niet-verv.;Nr.;
 ;
S2 S S1=$P(R,D) D S1 S R1=S1,S1=$P(R,D,2) D S1 S R2=S1,R3=+$P(R,".",3),R4=$P(R,".",5),R=R1-R2 G S2Z:R3=R4,S2D:R3<R4
S2A G S2I:(R3-R4)>90 S R2='(R4#4)&(R4>0)+365-R2
S2B S R4=R4+1 S:R4=100 R4=0 I R4<R3 S R2='(R4#4)&(R4>0)+365+R2 G S2B
S2C S R=R1+R2 G S2Z
S2D G S2G:(R4-R3)>90 S R1='(R3#4)&(R3>0)+365-R1
S2E S R3=R3+1 S:R3=100 R3=0 I R3<R4 S R1='(R3#4)&(R3>0)+365+R1 G S2E
S2F S R=-R1-R2 G S2Z
S2G S R2='(R4#4)&(R4>0)+365-R2 G S2B:R4=99
S2H S R4=R4+1,R2='(R4#4)&(R4>0)+365+R2 G S2H:R4<99,S2B
S2I S R1='(R3#4)&(R3>0)+365-R1 G S2E:R3=99
S2J S R3=R3+1,R1='(R3#4)&(R3>0)+365+R1 G S2J:R3<99,S2E
S2Z K S1,R1,R2,R3,R4 Q
 ;
S1 S S2="31\28\31\30\31\30\31\31\30\31\30\31",S3=$P(S1,".",3) I S3,'(S3#4) S $P(S2,D,2)=29
S1A S S3=0 F S4=1:1:$P(S1,".",2)-1 S S3=S3+$P(S2,D,S4)
S1Z S S1=S3+$P(S1,".") K S2,S3,S4 Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
S3 W !,@F30 F K=1:1:12 D S4:'LN W ?$P(TAB,D,K),@F30
S3Z W $$CR^cA334 Q
 ;
S4 S S1=$S(K>1:$P(TAB,D,K-1),1:0),S2=$P(TAB,D,K)-2 F S3=S1:1:S2 W "-"
S4Z K S1,S2,S3 Q
 ;
1 S I1=" ",(BLZ,LN,TEL,T(0),T(1))=0,NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3) X F70 W @F80 S LNMAX=LNMAX-(ADR*2+3)
11 S TAB="30\34\54\56\63\72\81\93\102\114\126\130" K @("^"_Q_"L2") S @("^"_Q_"L2(0)")=SWB
 ;
2 S I1=$O(@("^"_Q_"LE(I1)")) I I1="" D HD:'LN,XF W $$FF^cA334 X F71 G YZ
21 G 2:'$D(^(I1,0))!'$D(^(1)) S L=^(0),A=^(1),VRM=$P(L,D,11) S:VRM="" VRM=BF I VRM'=BF&'SWB!(VRM=BF&SWB) G 2
23 S BNK=$P(A,D),I2=99999,SW=0,FAC=$P(A,D,10) I FAC S BNK=$P(A,D,17),L=$P(L,D,1,4)_D_$P(A,D,11)_D_$P(A,D,13,15)_D_$P(L,D,9,99)
25 S I2=$O(@("^"_Q_"LE(I1,I2)")) G 5:I2'?6N S A=^(I2) G 25:'$P(A,D,5)
27 S VRM=$P(A,D,9) S:VRM="" VRM=BF G 25:VRM'=BF&'SWB!(VRM=BF&SWB) S R=$P(A,D,3)_D_DT D S2 G 25:R>ATL
29 S K=$P(A,D)="F"*2-1*$P(A,D,5),A(0)=$S(R'>0:K,1:0),A(1)=$S(R>0:K,1:0),TEL=TEL+1
 ;
3 D HD:'LN I LN>LNMAX&(SW>3!'SW) D XF G 3
31 S LN=LN+1 D S3 I LN>1,'SW S LN=LN+1 D S3
33 W ?2 I 'SW W $E($P(L,D)_" "_$P(L,D,2),1,28)
35 I SW=1 S:'ADR SW=3 I ADR W $P(L,D,5)
37 I SW=2 W $E($S($L($P(L,D,6)):$P(L,D,6)_" ",1:"")_$P(L,D,7),1,28)
39 I SW=3 S (K,U3)=$P(L,D,8) D S1^cA299 W U3 I FAC W $P($T(@("T1"_QT)),U,5)
 ;
4 S SW=SW+1 G 5:I2="" S @("^"_Q_"L2(TEL)")=$P(L,D)_D_$P(A,D)_D_I2_D_$P(A,D,3,10)_D
41 W ?$P(TAB,D),$J(TEL,4),"  ",$E($P(A,D,7),1,18),?$P(TAB,D,3)+1,$P(A,D),$J(I2,7)," ",$P(A,D,2)," ",$P(A,D,3)
42 S DEC=$S('SWB:QD,$D(@("^"_Q_"BA(11,VRM)")):+$P(^(VRM),D,7),1:0)
43 S R=$P(A,D,4)_D_10_D_($P(TAB,D,7)+1)_D_DEC D R3 W:SWB ?$P(TAB,D,8)+1,VRM,$$CR^cA334 S R=$P(A,D,6)_D_7_D_($P(TAB,D,8)+1)_D_DEC D R3
45 S R=A(0)_D_10_D_($P(TAB,D,9)+1)_D_DEC D R3 S R=A(1)_D_10_D_($P(TAB,D,10)+1)_D_DEC D R3
47 W ?$P(TAB,D,11),$J(TEL,4) S T(0)=T(0)+A(0),T(1)=T(1)+A(1) G 25
 ;
5 S I2="" I SW,SW<4 G 31
51 G 2
 ;
YZ Q
 ;
HD W:BLZ $$FF^cA334 S BLZ=BLZ+1,LN=0 W !,NM1,?123,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?35,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334
 W ?123,DT,!,NM3,?124,TD,!
HDA D S3 W !,@F30 F K=1:1:12 W $P($T(@("T2"_QT)),U,K+1),?$P(TAB,D,K),@F30
HDZ D S3 Q
 ;
XF G XFZ:SWB S LN=0 D S3 S LN=1 D S3 W ?2,$P($T(@("T1"_QT)),U,I1=""+3)
XFA S R=T(0)_D_10_D_($P(TAB,D,9)+1)_D_QD D R3 S R=T(1)_D_10_D_($P(TAB,D,10)+1)_D_QD D R3
XFZ S LN=0 D S3 Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84