PVFAKT2 ;Fakturen afdrukken [ 11/08/2003   8:27 PM ]
 Kill  Do INIT^vhTERMINA
 Set FAKNr=""
 Set Dev=0
 Set Dev=$$OPEN^vhDEV($$DIRUSER^vhDEV,"FAKRESOC.TXT","W")
 Use Dev
 Set KLNr=9585
 Set Dat=""
 For  Set Dat=$O(^KFA1("F",KLNr,Dat)) Quit:Dat=""  Do
 .For  Set FAKNr=$O(^KFA1("F",KLNr,Dat,FAKNr)) Quit:FAKNr=""  Do
 ..Set Rec=^KFA("F",FAKNr,0,0)
 ..Set FakDat=$P(Rec,D,6)
 ..Set ULNr="U"
 ..For  Set ULNr=$O(^KFA("F",FAKNr,ULNr)) Quit:ULNr=""  Do
 ...Set LNr=100
 ...For  Set LNr=$O(^KFA("F",FAKNr,ULNr,LNr)) Quit:LNr=""  Do
 ....Set FRec=$TR(^(LNr),".",",")
 ....Quit:'$P(FRec,D,2)
 ....Set Omz=$P(FRec,D,34)
 ....Set Mar=Omz-$P(FRec,D,33)
 ....Write !,FAKNr,$C(9),"01."_$E($P(Rec,D,6),4,9),$C(9),$TR(Omz,".",","),$C(9),$TR(Mar,".",",")
 Close:0'[Dev Dev