CW ;
 Quit

KAT
 Do INIT^vhPRINTER()
 ;Do:$D(Print) BUILD,OFF,ORD,BON,FAKT,CLOSE^vhPRINTER
 Do:$D(Print) BUILD,FAKT,CLOSE^vhPRINTER
 Quit
 
BUILD
 Kill PRNr
 Set PRNr(102387)=""
 Set PRNr(88893)=""
 Set PRNr(103514)=""
 Set PRNr(109689)=""
 Set PRNr(88898)=""
 Set PRNr(106797)=""
 Set PRNr(117032)=""
 Set PRNr(121008)=""
 Set PRNr(112139)=""
 Set PRNr(123557)=""
 Set PRNr(121063)=""
 Set PRNr(112140)=""
 Set PRNr(112141)=""
 Set PRNr(126389)=""
 Set PRNr(86104)=""
 Set PRNr(86105)=""
 Set PRNr(82858)=""
 Set PRNr(89510)=""
 Set PRNr(89511)=""
 Set PRNr(82388)=""
 Set PRNr(76364)=""
 Set PRNr(76365)=""
 Set PRNr(82539)=""
 Set PRNr=""
 Quit
 
OFF
 New R,KLNr,OFFNr,OLNr,OffRec,PrijsRec,OffDate,LCount,CheckDate
 Write !,"Offertes",!!,"KLNr",?8,"OFFNr",?18,"Datum",?59," Offer    KPRIJS",!
 Set (KLNr,LCount)=0,CheckDate=$$INTDATE^vhDTyp("20.06.04")
 For  Set KLNr=$O(^KOFKL(KLNr)) Quit:KLNr=""  Do:$P(^KKL(^KK1(KLNr),2),D,3)'="P"
 . Set OFFNr=""
 . For  Set OFFNr=$O(^KOFKL(KLNr,"F",OFFNr)) Quit:OFFNr=""  Do
 . . Set R=^KOFKL(KLNr,"F",OFFNr,1),OffDate=$P(R,D,2)
 . . Quit:$$INTDATE^vhDTyp(OffDate)<CheckDate
 . . Set OLNr=100
 . . For  Set OLNr=$O(^KOFKL(KLNr,"F",OFFNr,OLNr)) Quit:OLNr=""  Quit:OLNr'?.N  Do
 . . . Set OffRec=^KOFKL(KLNr,"F",OFFNr,OLNr),PRNr=$P(OffRec,D,2),SpecPrijs=$P(OffRec,D,26)
 . . . Quit:'PRNr  Quit:'$D(PRNr(PRNr))  Quit:$L(SpecPrijs)
 . . . Set PrijsRec=$$KLANTPR^KPRIJS(KLNr,PRNr)
 . . . If $P(OffRec,D,6)=$P(PrijsRec,D),$P(OffRec,D,22)=$P(PrijsRec,D,2),$P(OffRec,D,21)=$P(PrijsRec,D,10) Quit
 . . . Set LCount=LCount+1
 . . . Do:LCount>60
 . . . . Write #
 . . . . Write !,"Offertes",!!,"KLNr",?8,"OFFNr",?18,"Datum",?59," Offer    KPRIJS",!
 . . . . Set LCount=1
 . . . Write !,KLNr,?8,OFFNr,?18,OffDate,?30,$P(^KPR(PRNr,0),D),?59,$J($P(OffRec,D,6),6),$J($P(PrijsRec,D),10)
 ;Write #
 Quit
 
ORD
 New R,KLNr,ORDNr,OLNr,OrdRec,PrijsRec,OrdDate,LCount
 Write !,"Orders",!!,"KLNr",?8,"ORDNr",?18,"Datum",?59," Order    KPRIJS",!
 Set (KLNr,LCount)=0
 For  Set KLNr=$O(^KOD(KLNr)) Quit:KLNr=""  Do:$P(^KKL(^KK1(KLNr),2),D,3)'="P"
 . Set ORDNr=""
 . For  Set ORDNr=$O(^KOD(KLNr,"F",ORDNr)) Quit:ORDNr=""  Do
 . . Set R=^KOD(KLNr,"F",ORDNr,1),OrdDate=$P(R,D,2)
 . . Set OLNr=100
 . . For  Set OLNr=$O(^KOD(KLNr,"F",ORDNr,OLNr)) Quit:OLNr=""  Do
 . . . Set OrdRec=^KOD(KLNr,"F",ORDNr,OLNr),PRNr=$P(OrdRec,D,2),SpecPrijs=$P(OrdRec,D,26)
 . . . Quit:'PRNr  Quit:'$D(PRNr(PRNr))  Quit:$L(SpecPrijs)
 . . . Set PrijsRec=$$KLANTPR^KPRIJS(KLNr,PRNr)
 . . . If $P(OrdRec,D,6)=$P(PrijsRec,D),$P(OrdRec,D,22)=$P(PrijsRec,D,2),$P(OrdRec,D,21)=$P(PrijsRec,D,10) Quit
 . . . Set LCount=LCount+1
 . . . Do:LCount>60
 . . . . Write #
 . . . . Write !,"Offertes",!!,"KLNr",?8,"OFFNr",?18,"Datum",?59," Offer    KPRIJS",!
 . . . . Set LCount=1
 . . . Write !,KLNr,?8,ORDNr,?18,OrdDate,?30,$P(^KPR(PRNr,0),D),?59,$J($P(OrdRec,D,6),6),$J($P(PrijsRec,D),10)
 ;Write #
 Quit
 
BON
 New R,KLNr,BONNr,BLNr,BonRec,PrijsRec,BonDate,LCount
 Write !,"Leveringen",!!,"KLNr",?8,"BONNr",?18,"Datum",?59,"   Bon    KPRIJS",!
 Set (KLNr,LCount)=0
 For  Set KLNr=$O(^KUL(KLNr)) Quit:KLNr=""  Do:$P(^KKL(^KK1(KLNr),2),D,3)'="P"
 . Set BONNr=""
 . For  Set BONNr=$O(^KUL(KLNr,"F",BONNr)) Quit:BONNr=""  Do
 . . Set R=^KUL(KLNr,"F",BONNr,1),BonDate=$P(R,D,2)
 . . Set BLNr=100
 . . For  Set BLNr=$O(^KUL(KLNr,"F",BONNr,BLNr)) Quit:'BLNr  Do
 . . . Set BonRec=^KUL(KLNr,"F",BONNr,BLNr),PRNr=$P(BonRec,D,2),SpecPrijs=$P(BonRec,D,26)
 . . . Quit:'PRNr  Quit:'$D(PRNr(PRNr))  Quit:$L(SpecPrijs)
 . . . Set PrijsRec=$$KLANTPR^KPRIJS(KLNr,PRNr)
 . . . If $P(BonRec,D,6)=$P(PrijsRec,D),$P(BonRec,D,22)=$P(PrijsRec,D,2),$P(BonRec,D,21)=$P(PrijsRec,D,10) Quit
 . . . Set LCount=LCount+1
 . . . Do:LCount>60
 . . . . Write #
 . . . . Write !,"Offertes",!!,"KLNr",?8,"OFFNr",?18,"Datum",?59," Offer    KPRIJS",!
 . . . . Set LCount=1
 . . . Write !,KLNr,?8,BONNr,?18,BonDate,?30,$P(^KPR(PRNr,0),D),?59,$J($P(BonRec,D,6),6),$J($P(PrijsRec,D),10)
 ;Write #
 Quit
 
FAKT
 New R,KLNr,FaktDate,FANr,BONNr,BLNr,FaktRec,PrijsRec,CheckDate
 Write !,"Facturen",!!,"KLNr",?8,"FANr",?18,"Datum",?59,"  Fakt    KPRIJS",!
 Set (KLNr,LCount)=0,CheckDate=$$INTDATE^vhDTyp("20.06.04")
 For  Set KLNr=$O(^KFA1("F",KLNr)) Quit:KLNr=""  Do:$P(^KKL(^KK1(KLNr),2),D,3)'="P"
 . Set FaktDate=-CheckDate
 . For  Set FaktDate=$O(^KFA1("F",KLNr,FaktDate),-1) Quit:FaktDate=""  Do
 . . Set FANr=""
 . . For  Set FANr=$O(^KFA1("F",KLNr,FaktDate,FANr)) Quit:FANr=""  Do
 . . . Set BONNr="U"
 . . . For  Set BONNr=$O(^KFA("F",FANr,BONNr)) Quit:$E(BONNr)'="U"  Do
 . . . . Set BLNr=100
 . . . . For  Set BLNr=$O(^KFA("F",FANr,BONNr,BLNr)) Quit:'BLNr  Do
 . . . . . Set FaktRec=^KFA("F",FANr,BONNr,BLNr),PRNr=$P(FaktRec,D,2),SpecPrijs=$P(FaktRec,D,26)
 . . . . . Quit:'PRNr  Quit:'$D(PRNr(PRNr))  Quit:$L(SpecPrijs)
 . . . . . Set PrijsRec=$$KLANTPR^KPRIJS(KLNr,PRNr)
 . . . . . If $P(FaktRec,D,6)=$P(PrijsRec,D),$P(FaktRec,D,22)=$P(PrijsRec,D,2),$P(FaktRec,D,21)=$P(PrijsRec,D,10) Quit
 . . . . . Set LCount=LCount+1
 . . . . . Do:LCount>60
 . . . . . . Write #
 . . . . . . Write !,"Facturen",!!,"KLNr",?8,"FANr",?18,"Datum",?59,"  Fakt    KPRIJS",!
 . . . . . . Set LCount=1
 . . . . . Write !,KLNr,?8,FANr,?18,$$EXTDATE^vhDTyp(-FaktDate),?30,$P(^KPR(PRNr,0),D),?59,$J($P(FaktRec,D,6),6),$J($P(PrijsRec,D),10)
 Write #
 Quit