PRVKPCTR ;Controle op de verkoopprijs van SOPR en DO-produkten [ 11/06/2001  3:51 PM ]
 Do INIT^vhTERMINA
 Write @F11,@F1,@FMTI,"Controle op de verkoopprijs van SOPR en DO-produkten : "_QN,@FMTi
 Set FP=2401 Write @F,"Produkten verwerkt :"
 Set %J=$$%J^vhRtn1()
 Set (TotCnt,Cnt)=0
 Set PRNr=""
 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
 .Set TotCnt=TotCnt+1
 .If TotCnt#100=0 Set FP=2424 Write @F,Cnt," / ",TotCnt
 .Set IDNr=$P(^KPR(PRNr,2),D,25)
 .Quit:$E(IDNr)=0!($E(IDNr)=9)!($E(IDNr)=8)
 .Set Key=$O(^KPR(PRNr,"J")) Quit:$E(Key)'="J"
 .Set Prijs=$P($$PROD^KPRIJS(PRNr,"L","",$$FADEF^vhRtn1()),D,15)
 .Quit:+Prijs=0  ; Demo machines
 .For I=0,8,9 Set ID=I_$TR($E(IDNr,3,99),".","")_" " Do:$D(^KPR2(ID))
 ..Set PRNrChk=$P(^KPR2(ID),D)
 ..Set Key=$O(^KPR(PRNrChk,"J")) Quit:$E(Key)'="J"
 ..Set PrijsChk=$P($$PROD^KPRIJS(PRNrChk,"L","",$$FADEF^vhRtn1()),D,15)
 ..If Prijs'=PrijsChk Do
 ...Set Cnt=Cnt+1
 ...Set ^HULP(%J,Cnt)=$P(^KPR(PRNr,2),D,25)_D_$P(^KPR(PRNr,0),D)_D_Prijs_D_$P(^KPR(PRNrChk,2),D,25)_D_$P(^KPR(PRNrChk,0),D)_D_PrijsChk
 
 Do INIT^PROC("PRVKPCTR")
 Do PRINT^OUTPUT(.PRVKPCTR,"P")