cT590 ;Betalingsvoorstel leveranciers ;%T59 ;%T59* ; [ 01/21/97  11:43 AM ]
 G 1
 ;
T0 ;Betalingsvoorstel leveranciers ;
T1 ; Factoring;
T2 ; Leverancier\ Nr.\Referte\C\Nr.doc\Dat.doc.\Vervald.\Totaal doc.\VM\Korting\ Vervallen\ Niet-verv.\ Nr.;
 ;
T0F ;Proposition de paiement des fourn. ;
T1F ; Factoring;
T2F ; Fournisseur\ N°\Référence\C\N° doc\Date doc\Echéance\Total doc. \PE\Escompte\  Echu    \  Non échu\ N°;
 ;
T0E ;Betalingsvoorstel leveranciers ;
T1E ; Factoring;
T2E ; Leverancier\ Nr.\Referte\C\Nr.doc\Dat.doc.\Vervald.\Totaal doc.\VM\Korting\ Vervallen\ Niet-verv.\ Nr.;
 ;
S1 S OK=0 G S1Z:$P(A,D,8) I '$P(A,D,11) S OK=1 G S1Z
S1A S S1=$P(A,D,5)-$P(A,D,12) I S1>$P(A,D,6) S OK=1,$P(A,D,5)=$P(A,D,5)-$P(A,D,12),$P(A,D,10)=$P(A,D,10)-$P(A,D,13)
S1Z Q
 ;
S2 S VM(VM,0)=DEC F I=1,2 S VM(VM,I)=0,VM(VM,I,BF)=0
S2Z Q
 ;
S3 S TXT(1)=" " I COR,$O(@("^"_Q_"KL($G(^"_Q_"K1(COR),"" ""),9999)"))?5.6N S TXT(1)="*"
S3Z Q
 ;
1 S HD(1)=D,HD(2)=D_$P($T(@("T0"_QT)),U,2)_";C;F82",HD(3)=D
11 S TAB="29\34\50\52\59\68\77\89\93\102\114\126\131",TIT(1)=$P($T(@("T2"_QT)),U,2,999)
13 K @("^"_Q_"L2") S @("^"_Q_"L2(0)")=0,(LN,SWVM,TEL)=0,I1="",DEC=QD,VM=BF D S2
 ;
2 D ^cAN004("I1","LE") I I1="" S END=4 D ^cA334 S @("^"_Q_"L2(0)")=SWVM G ^cT591
21 S B(1)=$G(^(I1,0)),B(2)=$G(^(1)),B(3)=$G(^(2)),I2=99999,SW=0,COR=$P(B(3),D,30),FAC=$P(B(2),D,10)
 ;
 ; openstaande facturen
3 S I2=$O(@("^"_Q_"LE(I1,I2)")) G 5:I2'?6N S A=^(I2) D S1 G 3:'OK S R=$P(A,D,3)_D_DT D ^cA326 G 3:R>ATL
31 S VM=$P(A,D,9) S:VM="" VM=BF I '$D(VM(VM)) S DEC=2 D S2 I $D(@("^"_Q_"BA(11,VM)")) S VM(VM,0)=+$P(^(VM),D,7)
33 S X=$P(A,D)="F"*2-1,DEC=VM(VM,0),TEL=TEL+1 I 'SWVM,VM'=BF S SWVM=1
35 S TXT(2)=TEL_D_1,TXT(3)=$P(A,D,7),TXT(4)=$P(A,D),TXT(5)=I2,TXT(6)=$P(A,D,2),TXT(7)=$P(A,D,3)
37 S TXT(8)=X*$P(A,D,4)_"\\\\1\"_DEC,TXT(9)=VM,TXT(10)=X*$P(A,D,6)_"\\\\1\"_DEC,TXT(11)=X*$P(A,D,5)_"\\\\1\"_DEC,TXT(12)="",TXT(13)=TXT(2)
39 I R>0 S TXT(12)=TXT(11),TXT(11)=""
 ;
 ; printen lijn
4 I 'SW D S3 S TXT(1)=TXT(1)_$TR($P(B(1),D,1,2),D," ") I LN>1 D
 . S END=132 I ADR!FAC*2+2+FAC+LN'<LNMAX S END=4
 . D ^cA334
41 I SW=1 S TXT(1)=$S(FAC:$P(B(2),D,11),1:$P(B(1),D,5))_D_D_1 I 'ADR&'FAC S SW=3
42 I SW=2 S TXT(1)=$S(FAC:$P(B(2),D,12),1:$TR($P(B(1),D,6,7),D," "))_D_D_1
43 I SW=3&FAC S TXT(1)=$TR($P(B(2),D,13,14),D," ")_D_D_1
44 I SW=3&'FAC!(SW=4&FAC) S (K,U3)=$P(B(2),D,$S(FAC:17,1:1)) D S1^cA299 S:FAC U3=U3_$P($T(@("T1"_QT)),U,2) S TXT(1)=U3_D_D_1
45 I $G(TXT(11)) S VM(VM,1)=X*$P(A,D,5)+VM(VM,1),VM(VM,1,BF)=X*$P(A,D,10)+VM(VM,1,BF)
46 I $G(TXT(12)) S VM(VM,2)=X*$P(A,D,5)+VM(VM,2),VM(VM,2,BF)=X*$P(A,D,10)+VM(VM,2,BF)
47 D ^cA334 K TXT S SW=SW+1 G 5:I2="" S @("^"_Q_"L2(TEL)")=$P(B(1),D)_D_$P(A,D)_D_I2_D_$P(A,D,3,10)_D,$P(^(TEL),D,9)=$P(A,D,15) G 3
 ;
5 S I2="" I SW,SW<(4+FAC) G 41
51 G 2
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84