KP2 G 1 ;INBOEKEN BEGINSTOCK ; [ 02/05/2001  3:58 PM ]
 ;
1 S Q0="^"_Q_"PR(PR)",Q1="^"_Q_"PR(PR,0)"
11 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
13 S FP=2403+F60 W @F,@F2,@F4,"DIT PROGRAMMA VERWIJDERT DE HISTORIEK VAN HET PRODUKT !!! [] = OK ",@F0,@F5 R K
15 D 100
 ;
3 S K=$$SELECT^PRODUKT6() S:'K K="-" G YZ:K="-",3:K="," S PR=K,FP=2101 W @F,@F1
31 L @(Q0):2 E  S FP=2403+F60 W @F,@F4,"PRODUKTNUMMER IS IN GEBRUIK [] = OK ",@F5,@F0 R K G 3
33 S B0=@(Q1),PC=$P(B0,D,1),PN=$P(B0,D,2),PL=$P(B0,D,6),PST=$P(B0,D,14)
35 S J=$N(^("J")) I $E(J,1)'="J" S FP=2403+F60 W @F,@F2,@F4,"ER IS GEEN LEVERANCIER GEOPEND VOOR DIT PRODUKT [] = OK ",@F5,@F0 R K G 3
38 S PRV=$P(B0,D,23),B1=^(J),PV=$P(B1,D,25),PA=$P(B1,D,23) F S="PA","PV" D S2
39 S PST=+$P(B0,D,14)
4 S FP=422 W @F,@F2,PC S FP=522 W @F,@F2,PN S FP=622 W @F,@F2,PL
41 S FP=922 W @F,@F2,PA S FP=1022 W @F,@F2,PV S FP=1322 W @F,@F2,PST S FP=1522 W @F,@F2
 ;
5 S R="K\22\3\GEEF DE BEGINSTOCK\\6\\K?.N!(K=""-"")!(K="","")\" D R0 G 3:K=","!(K="-") S PBS=+K,FP=1522 W @F,PBS,@F2
 ;
7 S R="K\22\3\[] = REGISTRATIE OK   ,[] = HERNEMEN\\1\\"",-""[K\" D R0 G 3:K=",",5:K="-"
 ;
8 S %1=1,X=$D(@(Q1)) K ^("H")
81 S ^(0)=$P(^(0),D,1,11)_D_PBS_D_DT_D_PBS_D_$P(^(0),D,15,99)
83 S X=$N(^("H")) I $E(X,1)="H" K ^(X) G 83
85 S X=$N(^("L")) I $E(X,1)="L" K ^(X) G 85
87 S ^("L"_(DJ#100)_DM_DD)=PBS_D_+PV_D_PBS_D_+PA_D
89 L  S %1=1 G 3
 ;
YZ Q
 ;
S2 S @S=$$ROUND^KPRIJS(@S) Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_","_$P(R,D,8) S:$P(R,D,7)'="" R7=R7_","_$P($T(@$P(R,D,7))," ",2,99)
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
100 F FP=419,519,619,910,1013,1313,1513 W @F,@F5
101 S FP=402 W @F,@F4,"PRODUKTNAAM     ",@F5,":"
102 W !,?1,@F4,"OMSCHRIJVING NL ",@F5,":"
103 W !,?1,@F4,"PLAATS MAGAZIJN ",@F5,":"
104 W !!!,?1,@F6,"CIFFPPL",@F9,?21,":"
105 W !?1,@F6,"LIJSTPRIJS",@F9,?21,":"
106 W !!!,?1,@F6,"OUDE STOCK",@F9,?21,":"
107 W !!,?1,@F6,"BEGINSTOCK",@F9,?21,":" Q
 ;
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 32