cwTulpFa
 Quit
 ;
Factuur
 Set Dev=$$OPEN^vhDEV(,"FacturenTulp.txt","W")
 Use Dev
 Write "Factuur",$C(9),"Factuurdaum",$C(9),"PRNr",$C(9),"Korttekst",$C(9),"Identnummer",$C(9),"Aantal",$C(9)
 Write "Oude prijs",$C(9),"Nieuwe prijs",$C(9),"GrOrde",$C(13)
 For FANr=634634,635812,636832,637527,638713,639852,640911,641708,642136 Do OneFact(FANr)
 Close Dev
 Quit
 
OneFact(FANr)
 New BONNr,BLNr,PRNr,KortTxt,IdentNr,Aantal,OudePr,NieuwePr,GrOrde,FactDate,BonDate,ORDNr,LijnType,ORDNr,OrdRef
 Set R=^KFA("F",FANr,0,0),KLNr=$P(R,D),FactDate=$P(R,D,6)
 Set BONNr="U"
 For  Set BONNr=$O(^KFA("F",FANr,BONNr)) Quit:$E(BONNr)'="U"  Do
 . Set R=^KFA("F",FANr,BONNr,1),BonDate=$P(R,D,2)
 . Write FANr,$C(9),FactDate,$C(9),$C(9),"Leveringsbon nr. "_$$EXTNUM^vhDTyp($E(BONNr,2,9),0,".",0)_" van "_BonDate,$C(13)
 . Set BLNr=100
 . For  Set BLNr=$O(^KFA("F",FANr,BONNr,BLNr)) Quit:'BLNr  Do
 . . Set R=^KFA("F",FANr,BONNr,BLNr),PRNr=$P(R,D,2),LijnType=$P(R,D,17)
 . . Do:LijnType="KF5"
 . . . Set ORDNr=$P($P(R,D,5)," - "),OrdRef=$P($P(R,D,5)," - ",3)
 . . . Write FANr,$C(9),FactDate,$C(9),$C(9),"O/Order "_$$EXTNUM^vhDTyp(ORDNr,0,".",0)_" - "_OrdRef,$C(13)
 . . Quit:'PRNr
 . . Set Aantal=$P(R,D,3),OudePr=$P(R,D,6)
 . . Set R=^KPR(PRNr,0),KortTxt=$P(R,D),R=^KPR(PRNr,2),IdentNr=$P(R,D,25)
 . . Set R=$$KLANTPR^KPRIJS(KLNr,PRNr),NieuwePr=$P(R,D),GrOrde=$P(R,D,10)
 . . ;Write !,FANr,?8,PRNr,?16,KortTxt,?43,IdentNr,?56,Aantal,?63,$TR(OudePr,".",","),?71,$TR(NieuwePr,".",","),?78,GrOrde
 . . Write FANr,$C(9),FactDate,$C(9),PRNr,$C(9),KortTxt,$C(9),IdentNr,$C(9),Aantal,$C(9)
 . . Write $TR(OudePr,".",","),$C(9),$TR(NieuwePr,".",","),$C(9),GrOrde,$C(13)
 Quit