KKOPR G 1 ;KONROLEPROGRAMMA PRODUKTEN;KKOPR; [ 09/29/93  3:52 PM ]
 ;
SC S PCC=$$COMPR^PRODUKT(PR)
 Q
 ;
1 S Q="K" D ^cA604 K @("^"_Q_"HULP($J)")
11 W !!,"Kontrole toelteveringen" S (PR,TEP)=0
13 S PR=$N(@("^"_Q_"PR(PR)")) G 29:PR=-1 W !,"toel ",PR S TOE=$P(^(PR,0),D,17),TEP=TEP+1
15 I $L(TOE),$P(TOE,"#",2)+$P(TOE,"#",3)'=$P(TOE,"#",1) W !?10,TOE S @("^"_Q_"HULP($J,""TOE"",PR,TOE)")="#AANT#"
17 S I2="W    0.0T"
19 S I2=$N(@("^"_Q_"PR(PR,I2)")) G 25:$E(I2,9)'="T" S TOE=TOE-$P(^(I2),D,5)
2 S DAT=$E(I2,16,17)_"."_$E(I2,14,15)_"."_$E(I2,12,13),TR=$E(I2,18,23)
20 I DAT'=$P(^(I2),D,1) W !?10,DAT S @("^"_Q_"HULP($J,""TOE"",PR,DAT)")="DAT"
21 S LEV=" " S:$D(@("^"_Q_"TO1(TR)")) LEV=$P(^(TR),D,1)
22 I '$D(@("^"_Q_"TO(LEV,TR)")) W !?10,TR S @("^"_Q_"HULP($J,""TOE"",PR,TR)")="TR"
23 G 19
25 I TOE W !?10,TOE S @("^"_Q_"HULP($J,""TOE"",PR,TOE)")="AANT"
27 G 13
29 I '$D(@("^"_Q_"HULP($J,""TOE"")")) S ^("TOE")="toeleveringen ok" W !,"toeleveringen ok",@F0
3 W !!,"Kontrole reservaties" S PR=0
33 S PR=$N(@("^"_Q_"PR(PR)")) G 49:PR=-1 W !,"reserv ",PR S RES=$P(^(PR,2),D,9)
35 I $L(RES),$P(RES,"#",2)+$P(RES,"#",3)'=$P(RES,"#",1) W !?12,RES S @("^"_Q_"HULP($J,""RES"",PR,RES)")="#AANT#"
37 S I2="W    0.0R"
39 S I2=$N(@("^"_Q_"PR(PR,I2)")) G 45:$E(I2,9)'="R" S RES=RES-^(I2)
4 S UR=$E(I2,18,23),KLA=" " S:$D(@("^"_Q_"O1(UR,""F"")")) KLA=$P(^("F"),D,1)
41 I '$D(@("^"_Q_"OD(KLA,""F"",UR)")) W !?10,UR S @("^"_Q_"HULP($J,""RES"",PR,UR)")="UR"
43 G 39
45 I RES W !?12,RES S @("^"_Q_"HULP($J,""RES"",PR,RES)")="AANT"
47 G 33
49 I '$D(@("^"_Q_"HULP($J,""RES"")")) S ^("RES")="reservaties ok" W !,"reservaties ok",@F0
5 W !!,"Kontrole klassifikatie" S (PR,TEH1,TEM1,TEL1)=0
51 S PR=$N(@("^"_Q_"PR(PR)")) G 67:PR=-1 W !,"klas ",PR S I2="I",PC=$P(^(PR,0),D,1) D SC
53 S I2=$N(@("^"_Q_"PR(PR,I2)")) G 6:$E(I2,1)'="I" S K=^(I2),PHG=$P(K,D,1)_" ",PGR=$P(K,D,2)_" ",PSG=$P(K,D,3)_" "
55 I '$D(@("^"_Q_"PH(PHG,PGR,PSG,""  "",PCC)")) W !?10,$P(K,D,1,3) S @("^"_Q_"HULP($J,""PHG"",PR,I2)")=$P(K,D,1,3)
57 I '$D(@("^"_Q_"PM(""  "",PHG,PGR,PSG,PCC)")) W !?10,$P(K,D,1,3) S @("^"_Q_"HULP($J,""PMK"",PR,I2)")=$P(K,D,1,3)
59 S TEH1=TEH1+1,TEM1=TEM1+1 G 53
6 S I2="J"
61 S I2=$N(@("^"_Q_"PR(PR,I2)")) G 51:$E(I2,1)'="J" S K=^(I2),PLE=$P(K,D,1)_" ",PRF=$P(K,D,3)_" "
63 I '$D(@("^"_Q_"PL(PLE,""  "",PRF,PCC)")) W !?10,$P(K,D,1,3) S @("^"_Q_"HULP($J,""PLE"",PR,I2)")=$P(K,D,1,3)
65 S TEL1=TEL1+1 G 61
67 S PHG=-1,TEH2=0
69 S PHG=$N(@("^"_Q_"PH(PHG)")) G 79:PHG=-1 S PGR=-1 W !,"hoofdgr ",PHG
7 S PGR=$N(@("^"_Q_"PH(PHG,PGR)")) G 69:PGR=-1 S PSG=-1 W !?13,PGR
71 S PSG=$N(@("^"_Q_"PH(PHG,PGR,PSG)")) G 7:PSG=-1 S PCC=-1 W !?18,PSG
73 S PCC=$N(@("^"_Q_"PH(PHG,PGR,PSG,""  "",PCC)")) G 71:PCC=-1 S PR=^(PCC) W !?23,PCC
75 I '$D(@("^"_Q_"PR(PR)")) W !?28,PR S @("^"_Q_"HULP($J,""PHG"",PHG,PGR,PSG,PCC)")=PR
77 S TEH2=TEH2+1 G 73
79 S PHG=-1,TEM2=0
8 S PHG=$N(@("^"_Q_"PM(""  "",PHG)")) G 9:PHG=-1 S PGR=-1 W !,"merk ",PHG
81 S PGR=$N(@("^"_Q_"PM(""  "",PHG,PGR)")) G 8:PGR=-1 S PSG=-1 W !?10,PGR
83 S PSG=$N(@("^"_Q_"PM(""  "",PHG,PGR,PSG)")) G 81:PSG=-1 S PCC=-1 W !?15,PSG
85 S PCC=$N(@("^"_Q_"PM(""  "",PHG,PGR,PSG,PCC)")) G 83:PCC=-1 S PR=^(PCC) W !?20,PCC
87 I '$D(@("^"_Q_"PR(PR)")) W !?28,PR S @("^"_Q_"HULP($J,""PMK"",PHG,PGR,PSG,PCC)")=PR
89 S TEM2=TEM2+1 G 85
9 S PLE=-1,TEL2=0
91 S PLE=$N(@("^"_Q_"PL(PLE)")) G 100:PLE=-1 S PRF=-1 W !,"lever ",PLE
93 S PRF=$N(@("^"_Q_"PL(PLE,""  "",PRF)")) G 91:PRF=-1 S PCC=-1
95 S PCC=$N(@("^"_Q_"PL(PLE,""  "",PRF,PCC)")) G 93:PCC=-1 W !?11,PCC S PR=^(PCC)
97 I '$D(@("^"_Q_"PR(PR)")) W !?16,PR S @("^"_Q_"HULP($J,""PLE"",PLE,PRF,PCC)")=PR
99 S TEL2=TEL2+1 G 95
100 I '$D(@("^"_Q_"HULP($J,""PHG"")")),'$D(^("PMK")),'$D(^("PLE")) S ^("PLE")="klassifikatie ok" W !,"klassifikatie ok",@F0
101 S @("^"_Q_"HULP($J,""TEP"")")=TEP F I="TEH","TEM","TEL" F Y=1,2 S ^(I_Y)=@(I_Y)
102 W !!,"Kontrole historieken" S PR=0
103 S PR=$N(@("^"_Q_"PR(PR)")) G 115:PR=-1 W !,"histo ",PR S K=^(PR,0),PBS=$P(K,D,12),PST=$P(K,D,14),I2="H"
105 S I2=$N(^(I2)) G 111:$E(I2,1)'="H" S K=^(I2)
107 F I=1:1 S X=$P(K,D,I) Q:'$L(X)  S ANT=$E($P(X,"#",1),8,99) S:135[$E(X,7) PBS=PBS+ANT S:246[$E(X,7) PBS=PBS-ANT
109 G 105
111 I PBS'=PST W !,$J(PBS,15),$J(PST,15) S @("^"_Q_"HULP($J,""HIS"")")=PR
113 G 103
115 I '$D(@("^"_Q_"HULP($J,""HIS"")")) S ^("HIS")="historieken ok" W !,"historieken ok",@F0
YZ Q
 ;
 Q
 ;
Z X ^cZ Q
ZZ ; 13.07.87 - 10 u 00