KKAA20 ;NACHTELIJK VOORBEREIDEN REGIO/OMZET ANALYSE ;KKAA20; Go naar KKAA21 [ 12/27/2003  10:31 AM ]
 G NIGHT
 
DAY Write @F11,@F1,@FMTI," Tussentijds voorbereiden regio-omzet per maand : ",QN,@FMTi
 Job ^KKAA20
 ;
 Set FP=2301 Write @F,"De job is in achtergrond gestart."
 Set FP=2401 Write @F,"Druk op ENTER om terug te keren naar de menu."
 READ K
 Quit
 
NIGHT S $ZT="^cA406",Q="K" D ^cA604
 L +^KKAAR:5 E  Q
11 D S6 S DAT=$TR($$EXTDATE^vhDTyp($$INTDATE^vhDTyp(DAT),"DS"),D,"")
 S K=$N(@("^"_Q_"KAAR(DAT)")),K=-1
12 S K=$N(^(K)) I K'=-1,K<DAT K ^(K) G 12
13 S FBP=DJ-1 S:DM>6 FBP=DJ S FBP=FBP_".07",LBP=DJ_"."_DM
15 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)"
17 S KL=0,KLX="ZZZZZ",FBP=FBP_" ",LBP=LBP_" " D ^KKAA21,^KKAA20A
19 ;
 ;
YZ Q
 ;
S6 S DAT=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp(,"M",-1)-1,"DKP")
 Q
 ;