BLCTRL ;Blum  controle en SOPR controle [ 08/19/97  11:17 AM ]
 ;Do INIT^vhTERMINA 
ALL Do SONDER
 Do CTR123
 Do SOPR
 Do KORT
 Do EXIST
 Quit
 
SONDER s PRNr=0
 ; Nakijken of SONDERN voor BLUM
 Write !,"Nakijken op SONDER-produkt bij BLUM"
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Quit:'$D(^KPR(PRNr,"J5005"))
 .Set Stock=$P(^KPR(PRNr,1),D,20)
 .Quit:Stock
 .Set IDNr=$P(^KPR(PRNr,2),D,25)
 .Set BIDNr="0"_$TR($E(IDNr,3,99),".","")
 .Set Sonder=$P($G(^BLProd("D",BIDNr)),D,8)
 .Set:Sonder="" Sonder="S"
 .Quit:$E(IDNr)>0&($E(IDNr)<8)
 .Set First=0
 .Set:Sonder="S" First="8"
 .Quit:First=$E(IDNr)
 .Write !,IDNr," ",$P(^KPR(PRNr,0),D,1)
 Quit
CTR123 Write !,"Nakijken of het 1, 2,... produkt bestaat"
 Set BKLNr=""
 For  Set BKLNr=$O(^BLBeri("K",BKLNr)) Quit:BKLNr=""  Do
 .Quit:BKLNr=212250
 .Quit:BKLNr=452250
 .Set KLNr=$P(^BLBeri("K",BKLNr),D,3)
 .Set BIDNr=""
 .For  Set BIDNr=$O(^BLProd("RP",BKLNr,BIDNr)) Quit:BIDNr=""  Do
 ..Set KLFnd="",Found="",PinNUL=""
 ..For First=0:1:8 Do
 ...Set IDNr=First_$E(BIDNr,2,99)
 ...Quit:'$D(^KPR2(IDNr_" "))
 ...Set PRNr=$P(^KPR2(IDNr_" "),D)
 ...Set:First>0&(First<8) Found=Found+1
 ...Quit:'$D(^PRPUTZ("N",PRNr,KLNr))
 ...Set:First>0&(First<8) KLFnd=KLFnd+1
 ...Set:First=0!(First=8) PinNUL=First
 ..Quit:KLFnd
 ..Write !,BIDNr," ",$P(^BLProd("D",BIDNr),D)," ",BKLNr," ",KLNr
 ..If $L(PinNUL) Write " gepinned op "_PinNUL_". produkt"
 ..Else  If Found  Write " NIET gepind op 0..8"
 ..Else  Write " Bestaat niet"
 Quit
SOPR Write !,"Nakijken of de SOPR gepind is"
 For I=1:1:7 Do
 .Set IDNr=I_" "
 .For  Set IDNr=$O(^KPR2(IDNr)) Quit:IDNr=""  Quit:$E(IDNr)'=I  Do
 ..Set PRNr=$P(^KPR2(IDNr),D)
 ..Quit:'$D(^KPR(PRNr,"J5005"))
 ..Set BIDNr="0"_$TR($E(IDNr,2,99)," ","")
 ..Set KLNr=$O(^PRPUTZ("N",PRNr,""))
 ..Set KLNr2=$O(^PRPUTZ("N",PRNr,KLNr))
 ..B:IDNr=(21685900_" ")
 ..If KLNr,'KLNr2  Do  Quit
 ...Set BKLNr=$P(^PRPUTZ("N",PRNr,KLNr,0),D)
 ...B
 ...Quit:$D(^BLProd("RP",BKLNr,BIDNr))
 ...Write !,IDNr," ",$P(^KPR(PRNr,0),D,1)," geen externe spec"
 ..Else  Do 
 ...Write !,IDNr," ",$P(^KPR(PRNr,0),D,1)
 ...Write:KLNr2 " Dubbel"
 ...Write:'KLNr2 " NIET gepind"
 Quit
 
KORT Write !,"Nakijken of de korttekst goed is ingevuld"
 For I=1:1:7 Do
 .Set IDNr=I_" "
 .For  Set IDNr=$O(^KPR2(IDNr)) Quit:IDNr=""  Quit:$E(IDNr)'=I  Do
 ..Set PRNr=$P(^KPR2(IDNr),D)
 ..Quit:'$D(^KPR(PRNr,"J5005"))
 ..Set KortT=$P(^KPR(PRNr,0),D,1)
 ..Set BIDNr="0"_$TR($E(IDNr,2,99)," ","")
 ..Set KLNr=$O(^PRPUTZ("N",PRNr,""))
 ..Quit:'KLNr
 ..Set BKLNr=$P(^PRPUTZ("N",PRNr,KLNr,0),D)
 ..If I=7 Do 
 ...Quit:$E(KortT,16,19)="*DO*"
 ...Write !,IDNr," ",$P(^KPR(PRNr,0),D,1)," *DO* staat foutief"
 ..Else  Do
 ...Quit:$E(KortT,16,21)=("*"_KLNr_"*")
 ...Write !,IDNr," ",$P(^KPR(PRNr,0),D,1)," *"_KLNr_"* staat foutief"
 Quit
 
EXIST Write !,"Nakijken of bij de SOPR of DO het 0, 8 of 9 produkt bestaat"
 For I=1:1:7 Do
 .Set IDNr=I_" "
 .For  Set IDNr=$O(^KPR2(IDNr)) Quit:IDNr=""  Quit:$E(IDNr)'=I  Do
 ..Set PRNr=$P(^KPR2(IDNr),D)
 ..Quit:'$D(^KPR(PRNr,"J5005"))
 ..Set KortT=$P(^KPR(PRNr,0),D,1)
 ..Set Found=""
 ..For J=0,8,9 Set:$D(^KPR2(J_$E(IDNr,2,99))) Found=Found+1 Quit:Found
 ..Quit:Found
 ..Write !,IDNr," ",$P(^KPR(PRNr,0),D,1)," O,8 of 9 produkt bestaat niet"