VERSLAG3 ;Verslagen [ 08/07/2002   4:03 PM ]
 ;
COMPARE(VerslId1,VerslId2,Check) 
 New R,Date1,Date2
 Set R=^VERSLAG("D",VerslId1,0),Date1=$P(R,D),R=^VERSLAG("D",VerslId2,0),Date2=$P(R,D)
 Xecute "Set R="_Date1_VerslId1_Check_Date2_VerslId2
 Quit R
 ;
SELNEXT(Old,Type,RefNr,Dir) 
 New R,Index,Date,New
 Set Dir=$G(Dir,1)
 If Type="V" Set New=$O(^VERSLAG("D",Old),Dir)
 Else  Do
 .Set Index="I"_Type
 .If Old="" Set Date=$O(^VERSLAG(Index,RefNr,""),Dir)
 .Else  Set R=^VERSLAG("D",Old,0),Date=$P(R,D)
 .Set New=$O(^VERSLAG(Index,RefNr,Date,Old),Dir)
 .Quit:New
 .Set Date=$O(^VERSLAG(Index,RefNr,Date),Dir)
 .Quit:Date=""
 .Set New=$O(^VERSLAG(Index,RefNr,Date,""),Dir)
 Quit New
 ;
PRINT(VVerslId) 
 New I,R,Print,TVerslId,Volgens,VRef,Date
 Set (VVerslId,TVerslId)=$G(VVerslId)
 If VVerslId Set Volgens="V",VRef=""
 Else  Do  Quit:'%SC
 .Set (Volgens,VRef)=""
 .Do NIEUW^vhScherm("VERSLAGPS")
 .Quit:'VVerslId!'TVerslId
 .If '$$COMPARE(VVerslId,TVerslId,"<") Set R=TVerslId,TVerslId=VVerslId,VVerslId=R
 Do STORE^vhTERMINA()
 Do INIT^vhPRINTER("","","CA;BL;MP")
 If '$D(Print) Do REFRESH^vhTERMINA() Quit
 Set VerslId=$$SELNEXT(VVerslId,Volgens,VRef,-1)
 For  Set VerslId=$$SELNEXT(VerslId,Volgens,VRef) Quit:VerslId=""  Do  Quit:VerslId=TVerslId
 .Quit:'$D(^VERSLAG("D",VerslId))
 .Set R=^VERSLAG("D",VerslId,0),Date=$P(R,D)
 .If Volgens="I",'$D(^VERSLAG("II",VRef,Date,VerslId)) Quit
 .If Volgens="L",'$D(^VERSLAG("IL",VRef,Date,VerslId)) Quit
 .If Volgens="K",'$D(^VERSLAG("IK",VRef,Date,VerslId)) Quit
 .Set Print("TITEL",1)="Verslag"
 .Set Print("TITEL",2)="Nummer "_VerslId
 .Do PRINT^vhScherm3("VERSLAGPR","","H")
 .Do PRINT^vhScherm3("VERSLAGPT","","C")
 .Do PRINT^vhScherm3("VERSLAGPP","","C")
 .If VerslId=$G(TVerslId) Write #
 Do CLOSE^vhPRINTER
 Do REFRESH^vhTERMINA()
 Set Input=""
 Quit
 ;
 ; Afdrukken nieuwe verslagen
PRINTAgenda(Ref,Verslag)
 Do INIT^vhPRINTER("","","CA;BL;MP")
 Do:$D(Print)
 . Set Print("TITEL",1)="Verslag"
 . Set Print("TITEL",2)="Nummer "_$P(Ref,"||",3)_" van "_$$EXTDATE^vhLib.DataTypes($P(Ref,"||",2))
 . Do PRINT^vhScherm3("VERSLAGPN","","H")
 . Do CLOSE^vhPRINTER
 Quit
 ;
REFS(VerslId) 
 New I,R,L,Verslag,Count
 Do DREFS^VERSLAG(VerslId,.Verslag,.Count)
 Set L=$$LINE^vhRtn1("B",sScrnW+4,"1;"_(sScrnW+4))
 For I=1:1:$O(Verslag(""),-1) Do
 .Do LCOUNT(1,sTit)
 .Write !,L,$C(13),"  "  Do WTXT^vhRES(Verslag(I))
 Do LCOUNT(1,sTit)
 Write !,$$LINE^vhRtn1("L",sScrnW+4,"1;"_(sScrnW+4))
 Quit ""
 ;
PERS(VerslId) 
 New I,R,L,Verslag,Count
 Do DPERS^VERSLAG(VerslId,.Verslag,.Count)
 Set L=$$LINE^vhRtn1("B",sScrnW+4,"1;"_(sScrnW+4))
 Write !,$$LINE^vhRtn1("F",sScrnW+4,"1;"_(sScrnW+4))
 For I=1:1:$O(Verslag(""),-1) Do
 .Do LCOUNT(1,sTit)
 .Write !,L,$C(13),"  "  Do WTXT^vhRES(Verslag(I))
 Do LCOUNT(1,sTit)
 If VerslId=$G(TVerslId) Write !,$$LINE^vhRtn1("L",sScrnW+4,"1;"_(sScrnW+4))
 Quit ""
 ;
TEKST(VerslId) 
 New I,R,L,Verslag,Count
 Do DISPMAIL^VERSLAG(sScrnW,83,.R)
 Do DTEKST^VERSLAG(sScrnW,VerslId,.Verslag,.Count)
 Set L=$$LINE^vhRtn1("B",sScrnW+4,"1;"_(sScrnW+4))
 Do LCOUNT(1,sTit)
 Write !,$$LINE^vhRtn1("F",sScrnW+4,"1;"_(sScrnW+4))
 For I=1:1:$O(Verslag(""),-1) Do
 .Do LCOUNT(1,sTit)
 .Write !,L,$C(13),"  "  Do WTXT^vhRES(Verslag(I))
 Do LCOUNT(1,sTit)
 Write !,$$LINE^vhRtn1("L",sScrnW+4,"1;"_(sScrnW+4))
 Quit ""
 ;
 ; Afdrukken nieuwe verslagen
TEKSTAgenda(Verslag) 
 New I,R,L,Count
 Set L=$$LINE^vhRtn1("B",sScrnW+4,"1;"_(sScrnW+4))
 For I=1:1:$O(Verslag(""),-1) Do
 .Do LCOUNT(1,sTit)
 .Write !,L,$C(13),"  "  Do WTXT^vhRES(Verslag(I))
 Do LCOUNT(1,sTit)
 Write !,$$LINE^vhRtn1("L",sScrnW+4,"1;"_(sScrnW+4))
 Quit ""
 ;
LCOUNT(Lines,sTit,sRect) 
 Set:'Lines Lines=1 Set sRect=$G(sRect,1)
LCOUNT1 Set Print("LIJN")=Print("LIJN")+Lines
 If Print("LIJN")>(Print("MAXLIJN")-2-Print("FOOT")) Do  Goto LCOUNT1
 .If Print("BLZ") Write:sRect !,$$LINE^vhRtn1("L",sScrnW+4,"1;"_(sScrnW+4)) Write #
 .Set Print("BLZ")=Print("BLZ")+1,Print("LIJN")=0
 .Set Print("LIJN")=Print("LIJN")+Print("TITEL")
 .Quit:sTit
 .Do FTITEL^OUTPUT2(Print("KOL"),$G(Print("TITEL",1)),$G(Print("TITEL",2)),$G(Print("TITEL",3)))
 .Write !,$$LINE^vhRtn1("F",sScrnW+4,"1;"_(sScrnW+4))
 Quit
 ;
DVOLGENS(Volgens,VRef) 
 New R
 If $L(VRef) Do
 .If Volgens="I" Set R="Interne persoon "_$P(^vhUSER("D",VRef),D,2)
 .Else  If Volgens="K" Set R="Klant "_$P(^KKL(^KK1(VRef),0),D,2)
 .Else  If Volgens="L" Set R="Leverancier "_$P(^KLE(^KL1(VRef),0),D,2)
 .Else  If Volgens="P" Set R="Prospect"
 Else  Set R=$S(Volgens="V":"Verslag",1:"")
 Quit R
 ;
VREF(Volgens) 
 New R
 If Volgens="I" Set R=$$USELECT^vhUSER("","Interne persoon","","VERSLIP")
 If Volgens="K" Set R=$$SELECT^KLANT6()
 If Volgens="L" Set R=$$SELECT^LEVER()
 If Volgens="P" Set R=$$SELECT^PROSPECT()
 If "V"[Volgens Set R=""
 Quit R
 ;
DVERSLID(VerslId,Volgens) 
 New R,Date,BezSoort,UserId
 Quit:'VerslId ""
 Set R=^VERSLAG("D",VerslId,0),Date=$P(R,D),BezSoort=$P(R,D,7)
 Set Date=$$EXTDATE^vhLib.DataTypes(Date),BezSoort=$$MOTEVA^VERSLAG(VerslId,"B",1)
 If Volgens="I" Do
 .Set R=$$FBETREFT^VERSLAG("","",VerslId,1)
 Else  Set UserId=$P($G(^VERSLAG("D",VerslId,"I")),D),R=$S(UserId:$P(^vhUSER("D",UserId),D,2),1:"")
 Quit VerslId_" ("_Date_" "_BezSoort_$S($L(R):" "_R,1:R)_")"