KKAA17 ;NACHTELIJK VOORBEREIDEN PRODUKTOVERZICHT KLANTEN ;KKAA17; Go naar KKAA15 [ 11/17/94  8:44 AM ]
 G 1
 
1
 Do ##class(TECH.CodeGebruik.RoutineLogger).LogRoutine("1^"_$zn)
 Goto VerwerkViaCaretaker^Stat.Statistiek.OpbouwenKlantArtikelAnalyse

 /*
1 S $ZT="^cA406",Q="K" D ^cA604 ;,^KKAA17A,^cA604
11 S FBP=DJ-1_"."_DM,HFBP="01."_DM_"."_$E($P(FBP,".",1),3,4),LBP=DJ_"."_DM,HLBP=DT
13 S Q0="^"_Q_"KL(KL)",Q1="^"_Q_"KL(KL,0)",Q2="^"_Q_"STKL(KC)",Q3="^"_Q_"STKL(KC,PR)",Q4="^"_Q_"STKL(KC,PR,BP)",Q5="^"_Q_"PR(PR,0)"
15 S KL=0,KLX="ZZZZZ",FBP=FBP_" ",LBP=LBP_" " D ^KKAA15
17 ;
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 02.12.91 - 13 u 31
 */