cT160 ;VERWERKING VERKOOPFAKTUUR ;%T160 ; [ 01/02/01  11:06 AM ]
 ;
T0 ;Verwerking verkoopfactuur ;
 ;
T0F ;Imputation facture de vente ;
 ;
T0E ;Process invoice ;
 ;
1 S SWAN=$P($G(@("^"_Q_"BA(300)")),D,3) I SWAN G YZ
10 S BR="",R1=0 K ^HULP(boot,$J,0)
11 F  S BR=$O(BR(BR)) Q:BR=""  I BR(BR) S R1=R1+1,^HULP(boot,$J,0,R1)=BR_"###"_BR(BR)_"###"_$P(@("^"_Q_"AR(BR,0)"),D,3)_"##\"
 ;
YZ G ^cT686
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84