PVSTOCK ;E'WMS Paletinformatie [ 11/22/2003   1:21 PM ]
 Quit
 
FILE Set FileNm=$$READ^vhDEV($$DIRUSER^vhDEV,"MODCORR.txt","D`FILEONE^PVSTOCK","T","P")
 Quit
 
READID For  Do  Quit:IDNr="" 
 .Read !!,"IdentNr : ",IDNr
 .Set IDNr=$$TRIMN^vhRtn1(IDNr)
 .Quit:IDNr=""
 .Set PRNr=$P($G(^KPR2(IDNr_" ")),D)
 .If 'PRNr Write !,"***** NIET GEVONDEN" Quit
 .If '$D(^PRLINK("D",PRNr)) Write !,"***** GEEN MOEDER" Quit
 .Read !,"Nieuwe stock : ",NewStock
 .Do ONE(PRNr,NewStock)
 Quit
 
FILEONE(Rec) 
 Set IDNr=$P(Rec,D)
 Write !!,"IdentNr : ",IDNr
 Set IDNr=$$TRIMN^vhRtn1(IDNr)
 Quit:IDNr=""
 Set PRNr=$P($G(^KPR2(IDNr_" ")),D)
 If 'PRNr Write !,"***** NIET GEVONDEN" Quit
 If '$D(^PRLINK("D",PRNr)) Write !,"***** GEEN MOEDER" Quit
 Set NewStock=$P(Rec,D,2)
 Write !,"Nieuwe stock : ",NewStock
 Do ONE(PRNr,NewStock)
 quit
 
ONE(PRNr,NewStock) 
 Set Reden="Corr Moeder"
 Set FysStock=$P(^KPR(PRNr,0),D,14)
 Write !,"Oude stock : ",FysStock
 Set Qty=NewStock-FysStock
 Set ModTyp=3 Set:Qty<0 ModTyp=4,Qty=-Qty
 Write !,"Delta : ",Qty," - ",ModTyp
 If 'Qty Write "***** GEEN VERSCHIL" Quit
 Do MODSTOCK^PRODUKT4(PRNr,Qty,,ModTyp,+$H,Reden) 
 Quit
 ;