PVBLUMS2 ; ;[ 11/08/2003   8:27 PM ]
RECEPT Set Dev=0   
 Set Dev=$$OPEN^vhDEV(,"TOERCP.txt","W")
 Use Dev
 Do BLDCONTR^Stat.Product.StockWaarde
 Write $TR("LevNr;LevNm;PRNr;IDNr;KortTekst;Kunde;;Klas;ABCVal;ABCRot;Stock;DefMag;Toelev;Receptie;LevTrm;KreaDat;GevrDat;ConfDat;RCPDat;DifKrGvr;DifKrCnf;DifGvrRcp;DifCnfRcp;Test;Compleet",";",$C(9)),!
 Set Dat="",VolgNr=""
 For  Set Dat=$O(^FLOWLOG(Dat)) Quit:Dat=""  Do
 .For  Set VolgNr=$O(^FLOWLOG(Dat,VolgNr)) Quit:VolgNr=""  Do
 ..Set Rec=^FLOWLOG(Dat,VolgNr)
 ..Quit:$P(Rec,D)'="RLT"
 ..Set PRNr=$P(Rec,D,2)
 ..If $D(^KPR(PRNr)) Do
 ...Set Rec0=^KPR(PRNr,0)
 ...Set Rec1=^KPR(PRNr,1)
 ...Set Rec2=^KPR(PRNr,2)
 ...Set RecI=$O(^KPR(PRNr,"I")),RecI=^KPR(PRNr,RecI)
 ...Set RecJ=$O(^KPR(PRNr,"J")),RecJ=^KPR(PRNr,RecJ)
 ...Set IDNr=$P(^KPR(PRNr,2),D,25)
 ..Else  If $D(^KPRO(PRNr)) Do
 ...Set Rec1=^KPRO(PRNr,1)
 ...Set Rec2=^KPRO(PRNr,2)
 ...Set Rec0=^KPRO(PRNr,0)
 ...Set RecI=$O(^KPRO(PRNr,"I")),RecI=^KPRO(PRNr,RecI)
 ...Set RecJ=$O(^KPRO(PRNr,"J")),RecJ=^KPRO(PRNr,RecJ)
 ..Else  Quit
 ..Set LevNr=$P(RecJ,D,1)
 ..Set IDNr=$P(Rec2,D,25) Set $E(IDNr)=0
 ..Set KortTekst=$P(Rec0,D)
 ..Set Kunde=$O(^PRPUTZ("N",PRNr,""))
 ..Set:Kunde Kunde=$P($G(^PRPUTZ("N",PRNr,Kunde,0)),D)
 ..Quit:LevNr=6332  ; Halux
 ..Quit:LevNr=6092  ; FolieTec
 ..Quit:LevNr=5810  ; Burbidge
 ..Set Klas=$P(RecI,D,2)
 ..Set Klas=$$DISPLS^KLASS(Klas)
 ..Set ABCRot=$E($P($P(Rec0,D,8),"#"))
 ..Set ABCVal=$E($P($P(Rec0,D,8),"#",2))
 ..Set Stock=$P(Rec1,D,20)
 ..Set Stock=$S(Stock:"S",1:"N")
 ..Set:$D(ContrInd(PRNr)) Stock="C"
 ..Set DefMag=$P(Rec2,D,15)
 ..Set LevNm=$P($G(^KLE($G(^KL1(LevNr),"*"),0)),D,2)
 ..Set LevTrm=$P(RecJ,D,7)
 ..Set TOENr=$P(Rec,D,3)
 ..Set RCPNr=$P(Rec,D,4)
 ..Set KreaDat=$TR($$EXTDATE^vhLib.DataTypes($P(Rec,D,5),"DKP"),".","-")
 ..Set GevrDat=$TR($$EXTDATE^vhLib.DataTypes($P(Rec,D,6),"DKP"),".","-")
 ..Set ConfDat=$TR($$EXTDATE^vhLib.DataTypes($P(Rec,D,7),"DKP"),".","-")
 ..Set RCPDat=$TR($$EXTDATE^vhLib.DataTypes($P(Rec,D,8),"DKP"),".","-")
 ..Set Compleet=$S($P(Rec,D,9):"",1:"D")
 ..;Write Dat," ",VolgNr,"->",Rec,!
 ..Set KrD=$$CALCDATE^vhLib.DataTypes($P(Rec,D,5)+4,"W","MD")
 ..Set GvrD=$P(Rec,D,6)
 ..Set CnfD=$P(Rec,D,7)
 ..Set RcpD=$$CALCDATE^vhLib.DataTypes($P(Rec,D,8),"W","MD")
 ..Set DifKrGvr=GvrD-KrD\7
 ..Set DifKrCnf=CnfD-KrD\7
 ..Set DifCnfRcp=RcpD-CnfD\7
 ..Set DifGvrRcp=RcpD-GvrD\7 
 ..Set Test=""
 ..If DifKrCnf<LevTrm,DifCnfRcp>0 Set Test="*"
 ..If DifKrGvr'<LevTrm,DifGvrRcp>0 Set Test="**"
 ..If DifKrCnf'<LevTrm,DifCnfRcp>0 Set Test="***"
 ..Write LevNr,$C(9),LevNm,$C(9),PRNr,$C(9),IDNr,$C(9),KortTekst,$C(9),Kunde,$C(9),Klas,$C(9),ABCVal,$C(9),ABCRot,$C(9),Stock,$C(9),DefMag,$C(9),TOENr,$C(9),RCPNr,$C(9),LevTrm,$C(9),KreaDat,$C(9),GevrDat,$C(9),ConfDat,$C(9),RCPDat,$C(9),DifKrGvr,$C(9),DifKrCnf,$C(9),DifGvrRcp,$C(9),DifCnfRcp,$C(9),Test,$C(9),Compleet,!
 Close:0'[Dev Dev
 Quit
 
ABREF ; Statistiek Opdrachtbevestiging
 Set Dev=0   
 Set Dev=$$OPEN^vhDEV(,"TOECONF.txt","W")
 Use Dev
 Write $TR("LevNr;LevNm;Toelev;KreaDat;ConfDat;DiffDat",";",$C(9)),!
 Set Dat="",VolgNr=""
 For  Set Dat=$O(^FLOWLOG(Dat)) Quit:Dat=""  Do
 .For  Set VolgNr=$O(^FLOWLOG(Dat,VolgNr)) Quit:VolgNr=""  Do
 ..Set Rec=^FLOWLOG(Dat,VolgNr)
 ..Quit:$P(Rec,D)'="ABT"
 ..Set LevNr=$P(Rec,D,2)
 ..Set LevNm=$P($G(^KLE($G(^KL1(LevNr),"*"),0)),D,2)
 ..Set Toelev=$P(Rec,D,3)
 ..Set KreaDat=$TR($$EXTDATE^vhLib.DataTypes($P(Rec,D,4),"DKP"),".","-")
 ..Set ConfDat=$TR($$EXTDATE^vhLib.DataTypes($P(Rec,D,5),"DKP"),".","-")
 ..Set DiffDat=$$DIFFDATE^vhLib.DataTypes($P(Rec,D,4),$P(Rec,D,5),"A")
 ..Write LevNr,$C(9),LevNm,$C(9),Toelev,$C(9),KreaDat,$C(9),ConfDat,$C(9),DiffDat,!
 close:0'[Dev Dev
 Quit