cI56 ;Controle stock (14' veld) met H-lijnen ;%I56 ; [ 01/22/97  2:18 PM ]
 G 1
 ;
 ; Initialisatie & vraagstelling : Q-waarde + bevestiging
1 S Q=$G(Q) D ^cA604
11 W !,$P($T(+1),U,2),!
13 W !,"Q-waarde <",Q,">" R K G YZ:K="-"!(K="^"),13:K'?1.3U&(Q="")
15 S:$L(K) Q=K I '$D(@("^"_Q_"BA(99,1)")) G 13
17 W !!,Q," : ",^(1) D ^cA604
19 W !!,"ok  <N>" R K S K=$TR(K,"JjYy1","11110") I 'K G 13
 ;
 ; Aflopen productenbestand
2 K ^HULP(boot,$J) S ^($J,0,0)="Start "_DT_" / "_TD
21 W !! S PR=0 F  S PR=$O(@("^"_Q_"PR(PR)")) Q:PR=""  D
 . S N=^(PR,0)
 . I $P(N,D,15) Q                                  ; geen historieken
 . I $P(^(1),D,20) Q                               ; geen stockbeheer
 . S PC=$P(N,D),S=+$P(N,D,12),V14=+$P(N,D,14)
 . S H="H" F  S H=$O(^(H)) Q:$E(H)'="H"  D
 .. S N=^(H) F  S K=$P(N,D),N=$P(N,D,2,999) Q:K=""&(N="")  I $L(K) D
 ... S K=$P(K,"#")
 ... S X=$E(K,7)
 ... I X#2 S S=S+$E(K,8,999)   ; aankoop + inkomende stock
 ... E  S S=S-$E(K,8,999)      ; verkoop + uitgaande stock
 . I V14'=S S ^HULP(boot,$J,PR)=PC_D_V14_D_S W PR," " I $X>70 W !
23 D ^cA106,^cA105 S ^HULP(boot,$J,0,1)="Einde "_DT_" / "_TD
 ;
3 W !!,"Zie ^HULP(""",boot,""",",$J,") voor het resultaat van deze controle ...",!
 ;
YZ Q
 ;
ZZ ; 26.02.97 - 11 u 03 * V6.2.06