BLROG ;BLUM ROG tabel lijsten [ 04/04/95  11:24 AM ]
 If '$D(Q) Set Q="K" Do ^cA604
 Write @F11,@F1,@FMTI," BLUM ROG tabel lijsten : ",QN," ",@FMTi
 Set FP=1001 Write @F,@F1
 Set KLNr=""
 For  Set KLNr=$O(^BLBeri("K",KLNr)) Quit:KLNr=""  Do
 .Set R=^BLBeri("K",KLNr)
 .Set I=$P(R,D,4),R=$P(R,D) Set:R["Van Hoecke " R=$P(R,"Van Hoecke ",2)
 .For  Quit:"- "'[$E(R)  Set R=$E(R,2,99)
 .Set:$L(R)<6 R=R_" "
 .Set Klant(I)=KLNr_D_R
 ; Ophalen data 
 Set %J=$$%J^vhRtn1()
 Kill ^HULP(%J)
 Set Munt="&T\\Munt\\",Prijs="&T\\Prijzen\\",Default=D_$P(^BLProd("ROG"),D,1,3)_D_1
 Set I=""
 For  Set I=$O(Klant(I)) Quit:I=""  Do
 .Set KLNr=$P(Klant(I),D)
 .Set Munt=Munt_D_$P($G(^BLProd("R",KLNr)),D,3)
 .Set Prijs=Prijs_D_$P("Bruto\Netto",D,$P(^BLProd("R",KLNr),D,2)+1)
 .Set Default=Default_D_$P($G(^BLProd("R",KLNr)),D)
 Set ^HULP(%J,1)=Munt
 Set ^HULP(%J,2)=Prijs
 Set ^HULP(%J,3)=""
 Set ^HULP(%J,4)=Default
 Set ^HULP(%J,5)=""
 Set Cnt=5,Rog=""
 For  Set (Rog,R)=$O(^BLProd("ROG",Rog)) Quit:Rog=""  Do
 .Set Cnt=Cnt+1,I="",R=R_D_$P(^BLProd("ROG",Rog),D,1,3)_D,$P(R,D,5,99)=$P(R,D,5)
 .For  Set I=$O(Klant(I)) Quit:I=""  Do
 ..Set KLNr=$P(Klant(I),D)
 ..Set R=R_D_$P($G(^BLProd("R",KLNr,Rog)),D)
 .Set ^HULP(%J,Cnt)=R
 Set Cnt=Cnt+1,^HULP(%J,Cnt)="&S"
 Set I=""
 For  Set I=$O(Klant(I)) Quit:I=""  Do
 .Set KLNr=$P(Klant(I),D),IDNr=""
 .For  Set IDNr=$O(^BLProd("RP",KLNr,IDNr)) Quit:IDNr=""  Do
 ..Set R=$P(^BLProd("RP",KLNr,IDNr),D,5),Prijs(KLNr,R)=$G(Prijs(KLNr,R))+1
 For Typ="N","B","P" Do
 .Set R="&F\"_Typ_"\\\" Set:Typ="N" $P(R,D,3)="Tellingen"
 .Set I=""
 .For  Set I=$O(Klant(I)) Quit:I=""  Do
 ..Set KLNr=$P(Klant(I),D)
 ..Set R=R_D_$G(Prijs(KLNr,Typ))
 .Set Cnt=Cnt+1,^HULP(%J,Cnt)=R
 ; Afdrukken
 Do INIT^PROC("BLROG")
 Set BLROG(2,1)=^LD("L","BLROG1")
 Set I=""
 Set R=$P(BLROG(2),D,$L(BLROG(2),D)),BLROG(2)=$P(BLROG(2),D,1,$L(BLROG(2),D)-1),L=$L(BLROG(2),D)-1
 Set R1=$P(BLROG(2,1),D,$L(BLROG(2,1),D)),BLROG(2,1)=$P(BLROG(2,1),D,1,$L(BLROG(2,1),D)-1),L1=$L(BLROG(2,1),D)-1
 For  Set I=$O(Klant(I)) Quit:I=""  Do
 .Set KLNr=$P(Klant(I),D),BLROG(8)=BLROG(8)_$J($E($P(Klant(I),D,2),1,6),6)_"|"
 .Set $P(R,";")=(I+L) ;Set:$O(Klant(I))="" $P(R,";",6)=""
 .Set BLROG(2)=BLROG(2)_D_R
 .Set $P(R1,";")=(I+L1) ;Set:$O(Klant(I))="" $P(R1,";",6)=""
 .Set BLROG(2,1)=BLROG(2,1)_D_R1
 Set BLROG(5)=$L(BLROG(8))
 Set BLROG(11)="Blum ROG tabel"
 Do PRINT^OUTPUT(.BLROG,"PS","B")
 Kill ^HULP(%J)
 Quit
 ;
CB(Ref) 
 New R
 If $E(Ref)'="^" Quit ""
 Set R=@Ref
 If $P(R,D)="&S" Quit "BR"
 If $P(R,D)="&T" Quit ";1"
 If $P(R,D)="&F" Quit ";1"
 Quit ""
 ;