cAT10 ;Openstaande klantenfacturen ;%AT10 ;%AT10* ; [ 03/07/01  9:18 AM ]
 ;
T0 ;Openstaande klantenfacturen ;
T1 ;de klant\klanten\alfabetische\alfabetische;
T2 ;leverancier\klant;
 ;
T0F ;Documents de client non soldés ;
T1F ;client\clients\alphabétique\alphabétique;
T2F ;fournisseur\client;
 ;
T0E ;Outstanding invoices ;
T1E ;the customer\customers\alphabetical\alphabetical;
T2E ;supplier\customer;
 ;
 ; titel
1 I QP S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 ;
 ; vraagstelling
2 S PROG=$T(+0),TEXT=$P($T(@("T1"_QT)),U,2)_"\KL\K1\"_$P($T(@("T2"_QT)),U,2) D ^cAT103 G YZ:K="-"!(K=",")
21 I LIM2'="",LIM2'=" " S KEU("KL")="1\1",LIM1("KL")=LIM1,LIM2("KL")=LIM2
 ;
 ; opzetten variabelen
3 S QH1="^HULP(boot,$J+.01,FNR)",QH2="^HULP(boot,$J+.02,I2)"
31 S Q0="^"_Q_"KL(I1)",Q01="^"_Q_"KL(I1,I2)",Q7="^"_Q_"VE(BP)",Q71="^"_Q_"VE(BP,FNR)"
33 S Q95="^"_Q_"FI(BP,$P(A2,""#""),$P(A2,""#"",2))"
35 I TP S (LIN,LINE)="",$P(LINE,"-",73)="-",$P(LINE,"-")="@F30,""",$P(LINE,"-",74)=""",@F30",LIN=LINE,$P(LINE,"-",2)="-----" F I=11,18,28,46,60 S $P(LIN,"-",I)=""",@F30,"""
37 S FP=2201 W @F,@F1 D ^cAT100 G 1:QP
 ;
YZ Q
 ;
ZZ ; 30.03.01 - 13 u 39 * V7.85