cT591 ;BETALINGSVOORSTEL LEVERANCIERS ;%T59 ; [ 02/01/96  3:49 PM ]
 G 1
 ;
T0 ;Betalingsvoorstel leveranciers ;
T1 ;;;1\            Overzicht VM;;1\\            Overzicht ***;;1\;
T2 ; Code\Vervallen ;1\Niet-vervallen ;1\Vervallen ;1\Niet-vervallen ;1;
 ;
T0F ;Proposition de paiement des fourn. ;
T1F ;;;1\             Aperçu PE;;1\\             Aperçu ***;;1\;
T2F ; Code\Echu ;2\Non échu ;2\Echu ;2\Non echu ;2;
 ;
T0E ;Betalingsvoorstel leveranciers ;
T1E ;;;1\            Overzicht VM;;1\\            Overzicht ***;;1\;
T2E ; Code\Vervallen ;1\Niet-vervallen ;1\Vervallen ;1\Niet-vervallen ;1;
 ;
1 I '$P($G(@("^"_Q_"BA(""%T"",2)")),D,6) S END=6 D ^cA334 G YZ
11 S HD(2)=$P(HD(2),U)
13 S TAB="7\25\43\61\79",TIT(1)=$P($T(@("T1"_QT)),U,2,999),TIT(2)=$P($T(@("T2"_QT)),U,2,999)
15 S TIT(1)=$P(TIT(1),"***")_BF_$P(TIT(1),"***",2)
 ;
2 S VM=""
21 S VM=$O(VM(VM)) I VM="" S END=1 D ^cA334 G YZ
23 S TXT(1)=VM_D_D_1,DEC=VM(VM,0)
25 S TXT(2)=VM(VM,1)_"\\\\1\"_DEC,TXT(4)=VM(VM,1,BF)_"\\\\1\"_QD_D_D_1
27 S TXT(3)=VM(VM,2)_"\\\\1\"_DEC,TXT(5)=VM(VM,2,BF)_"\\\\1\"_QD_D_D_1
29 D ^cA334 G 21
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84