KVRL1 ;Overzicht rapporten (afdrukken) [ 02/21/2002  4:58 PM ]
 ;
 Do PRINT("","")
 Quit
 ;
SELECT() 
 New Select
S1 Set Select=$$SELECT^SELALG("KL",.Check,"Overzicht rapporten","",1,1,1)
 Quit Select
 ;
 ; Opbouw van de print-lijst
BUILDPL(KlNode) 
 New Lines,BlankL,HoofdGr,Groep,SubGroep,PRNr,SortKey,Next
 Set (Lines,BlankL)=0,(HoofdGr,Groep,SubGroep,PRNr,SortKey)=""
 For  Set SortKey=$O(^HULP(%J,"KEY",SortKey)) Quit:SortKey=""  Do
 .Set Next=""
 .For  Set Next=$O(^HULP(%J,"KEY",SortKey,Next)) Quit:Next=""  Do
 ..Set R=^HULP(%J,"KEY",SortKey,Next)
 ..If TestDate,+$P(R,D,15)<TestDate Quit
 ..If HoofdGr=$P(R,D,2) Set $P(R,D,2)=""
 ..Else  Set HoofdGr=$P(R,D,2),BlankL=BlankL+1
 ..If Groep=$P(R,D,3) Set $P(R,D,3)=""
 ..Else  Set Groep=$P(R,D,3)
 ..If SubGroep=$P(R,D,4) Set $P(R,D,4)=""
 ..Else  Set SubGroep=$P(R,D,4)
 ..If PRNr=$P(R,D,5) Set $P(R,D,5)=""
 ..Else  Set PRNr=$P(R,D,5)
 ..Set Lines=Lines+1,^HULP(%J,"PRINT",KlNode,Lines)=R
 ..Quit:'$L($P(R,D,9))
 ..Set $P(^HULP(%J,"PRINT",KlNode,Lines),D,9)=""
 ..If "\APK\AURC\"[(D_$P(R,D,9)_D) Quit
 ..Set Lines=Lines+1,$P(^HULP(%J,"PRINT",KlNode,Lines),D,9)=$P(R,D,9)
 Quit Lines_D_BlankL
 ;
 ; Ophalen info
INITLINE(R) 
 New PRNr,Korting1,Korting2,HoofdGr,Groep,SubGroep
 Set PRNr=$P(R,D,5),Bold=1 If $E($P(R,D,7))=" " Set Bold=0
 Set (VerkPr,Munt,Eenheid,%Vork,%Winst,LastDat,LastPr,LastMunt,LastEenh,Omzet,Stuks,KortingE)=""
 Quit:'PRNr
 Set Korting1=$P(R,D,7),Korting2=$P(R,D,8)
 Do FETCHPR^UTILI(PRNr,"sFL")
 Set %Winst=$P(sFL("J"),D,24),%Vork=$P(sFL("J"),D,27)
 If NoSa="S" Set:$P(sFL(2),D,6) %Winst=$P(sFL(2),D,6) Set:$P(sFL(2),D,5) %Vork=$P(sFL(2),D,5)
 If '$L(VKa) Set R=$$PROD^KPRIJS(PRNr,Korting1,Korting2,KlMunt,NetBrut,IsHandel,NoSa)
 If $L(VKa) Do
 .Set R=$$KLANTPR^KPRIJS(KLNr,PRNr,NoSa)
 .If $P(R,D,5) Set KortingE=$$EXTNUM^vhLib.DataTypes($P(R,D,5),4,"",1)
 .Quit:'$P(R,D,6)
 .If $L(KortingE) Set KortingE=KortingE_"+"
 .Set KortingE=KortingE_$$EXTNUM^vhLib.DataTypes($P(R,D,6),4,"",1)
 Set VerkPr=$P(R,D),Munt=$P(R,D,2),Eenheid=$P(R,D,3)
 Quit:'$L(VKa)
 Set R=^($O(^KPR(PRNr,"I")))
 Set HoofdGr=$P(R,D),Groep=$P(R,D,2),SubGroep=$P(R,D,3)
 Set R=$G(^KKAAP(KLNr,HoofdGr,Groep,SubGroep,$$COMPR^PRODUKT(PRNr)))
 If R="" Set LastPr="Geen VKA  "
 Else  Do
 .Set Stuks=$P(R,D,3),LastDat=$P(R,D,5),LastPr=$P(R,D,6)
 .Set LastMunt=$P(R,D,7),LastEenh=$P(R,D,8),Omzet=$P(R,D,12)
 If NoSa="S" Set R=$$KLANTPR^KPRIJS(KLNr,PRNr,"N"),LastPr=$P(R,D)
 If +VerkPr=+LastPr Set (LastPr,LastMunt,LastEenh)=""
 Quit
 ;
 ; Afdrukken
PRINT(FromKl,ToKl,NoSa,Intern) 
 New KLNr,NextKl,DL,KLPUTZL,Print,sFL,VerkPr,Munt,Eenheid,%Vork,%Winst,GloRef,Check
 New LastDat,LastPr,LastMunt,LastEenh,Omzet,Stuks,Bold,KortingE,TestDate
 Set FromKl=$G(FromKl),ToKl=$G(ToKl),Intern=$G(Intern) If Intern Set ToKl=FromKl
 Set TestDate=$G(TestDate)
 If 'Intern Set %J=$$%J^vhRtn1()
 If $G(NoSa)="" Set NoSa="N"
 If NoSa'="N",NoSa'="S" Quit
 If $L(FromKl),$D(^KK1(FromKl)) Set FromKl=^KK1(FromKl)
 Else  If $L(FromKl),$D(^KKL(FromKl))
 Else  Set FromKl=""
 If $L(ToKl),$D(^KK1(ToKl)) Set ToKl=^KK1(ToKl)
 Else  If $L(ToKl),$D(^KKL(ToKl))
 Else  Set ToKl=""
 If '$L(FromKl)!'$L(ToKl) Set R=$$SELECT() Quit:R="-"  Do
 .Set FromKl=$P(R,D),ToKl=$P(R,D,2),GloRef=$P(R,D,3)
 .If GloRef["KL)" Set GloRef=$P(GloRef,"KL)")_"NextKl)"
 Set:$G(GloRef)="" GloRef="^KKL(NextKl)"
 Kill ^HULP(%J,"PRINT")
 Set NextKl=FromKl,VKa=$G(VKa)
 Do FMORE
 If Intern Set FP=2101 Write @F,@F1 Do ADD^vhScherm(21,24)
 Do INIT^PROC("KLPUTZL"_$P("MV",D,$L(VKa)),"KLPUTZL")
 Set KLPUTZL(11)=$P("P\Schaduw p",D,NoSa="S"+1)_"rijsuitzonderingen"
 If $L(VKa) Do
 .Set KLPUTZL(11)=KLPUTZL(11)_"\met verkoopanalyse (alle produkten"
 .If MKodex="K" Set KLPUTZL(11)=KLPUTZL(11)_" van de kodex"
 .If MProdukt="P" Set KLPUTZL(11)=KLPUTZL(11)_" op produktniveau"
 .Set KLPUTZL(11)=KLPUTZL(11)_")"
 .If NoSa="S" Set $E(KLPUTZL(8),68,74)="Schaduw",$E(KLPUTZL(8),85,91)="Huidige"
 Do ^OUTPUT("P","","B")
 If 'Intern Kill ^HULP(%J)
 Else  Kill ^HULP(%J,"PRINT") Do ADD^vhScherm(21,24)
 Quit
 ;
FMORE 
 New Count,KLNr,B
 Quit:NextKl]ToKl!(NextKl="")
 For  Do  Quit:NextKl]ToKl!$G(Count)!(NextKl="")
 .Set KLNr=$$FETCHNR^SELALG(GloRef)
 .Do FETCHKL^UTILI(KLNr)
 .If $D(^KLPUTZ(NoSa,KLNr))!Intern Do
 ..If $L($G(Check)) Quit:'$$CHECK^UTILI("Check")
 ..Quit:$$SKIPCUST()
 ..Set Count=$O(^HULP(%J,"PRINT",""),-1)+1,^HULP(%J,"PRINT",Count)=KLNr
 .Set NextKl=$$NEXT^SELALG(GloRef)
 Quit
 ;
 ; Opgezet voor Caché
SKIPCUST() 
 Quit SkipCust
 ;
MERGE ; Opgezet voor Caché
 W AAbbCC
 Quit
 ;
CBPRINT(Ref) 
 New R,KlNode,LnNode,Lines,BlankL
 If $E(Ref)'="^" Do  Quit R
 .;If Ref="H" Set R="BR" Quit
 .Set R=""
 Set Intern=$G(Intern),KlNode=+$P(Ref,",",3),LnNode=+$P(Ref,",",4)
 If 'LnNode Do  Quit R
 .Set KLNr=$P(@Ref,D) If 'Intern Do INITKL^KLPUTZ,FETCH^KLPUTZ2 Do:$L(VKa) MERGE Do FMORE
 .Set R=$$BUILDPL(KlNode),Lines=$P(R,D),BlankL=$P(R,D,2)
 .Set R="BR\;KLPUTZLK"_$P("MV",D,$L(VKa))
 .If $D(Print("BLZ")),$D(Print("LIJN")),Print("LIJN")+Lines+BlankL+3>(Print("MAXLIJN")-Print("FOOT")) Set R="PB\"_R
 Set R=""
 If $L($P(@Ref,D,2)) Set R="BL\;KLPUTZL"_$P("MV",D,$L(VKa))
 If $L($P(@Ref,D,9)) Set R=";KLPUTZLO"_$P("MV",D,$L(VKa))
 Quit R
 ;