DCKLACHT ;AFDRUKKEN WERKFORMULIER KLACHTEN [ 01/15/2003  4:56 PM ]
 ;
 ; Afdruk titel
TITEL(KlachtId) 
 New KlKey,C,I,R,T,Blank,TCount,VPerfo,PCount,AdresPos,Taal,RegDat
 New Aanspr,Naam,Toenaam,Straat,PostNr,Woonpl,Land,BtwNr,Telefoon,VH,P,V,IsKSCust,KlantID
 New MaxLines,PageLen
 Do VH^DCINIT,PINIT^DCINIT,FINIT^DCINIT("K")
 Set PCount=1,LCount=0,R=^KlachtD(KlachtId),KLNr=$P(R,D,2),RegDat=$$EXTDATE^vhLib.DataTypes($P(R,D,31))
 Set KlKey=^KK1(KLNr),R=^KKL(KlKey,0),Telefoon=$P(R,D,13),BtwNr=$$BTWNR^DCALG($P(R,D,16))
 Set Naam=$P(R,D,2),Toenaam=$P(R,D,3),Aanspr=$P(R,D,4)
 Set Straat=$P(R,D,5),PostNr=$P(R,D,6),Woonpl=$P(R,D,7)
 Set Land=$$LAND^vhRtn1($P(R,D,8)),Taal=$P(R,D,9)
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
	#dim IsKSCust As %Boolean = '(##class(DOM.DomeinContext).Instance().GeefKlantTypeAPI().IsIndustriePoolKlant(KlantID))
 Do VHPB^DCALG(PCount,.Blank)
 Do PASTE^DCALG(PCount,AdresPos-6,Telefoon_" /"_$P("I\K",D,IsKSCust+1),51,"","")
 Set T=$$TXT^DCALG("TelNr","DCKLACHT")
 Do PASTE^DCALG(PCount,AdresPos-6,T,43,"","")
 If $L(BtwNr) Do
 .Do PASTE^DCALG(PCount,AdresPos-5,BtwNr,51,"","")
 .Set T=$$TXT^DCALG("Btw","DCKLACHT")
 .Do PASTE^DCALG(PCount,AdresPos-5,T,43,"","")
 Set T=$$FIRMANM^DCALG("K",KLNr)
 If KLNr=8545,$L(T),$L(Toenaam) Set R=T,T=Toenaam,Toenaam=R
 Do PASTE^DCALG(PCount,AdresPos,T,43,"","")
 If '$L(Toenaam) Do
 .Do PASTE^DCALG(PCount,AdresPos+1,Straat,43,"","")
 .Do PASTE^DCALG(PCount,AdresPos+3,PostNr_"   "_Woonpl,43,"","")
 .If Land'="BE" Do PASTE^DCALG(PCount,AdresPos+4,$$LAND^vhRtn1(Land,2,Taal),43,"","")
 If $L(Toenaam) Do
 .Do PASTE^DCALG(PCount,AdresPos+1,Toenaam,43,"","")
 .Do PASTE^DCALG(PCount,AdresPos+2,Straat,43,"","")
 .Do PASTE^DCALG(PCount,AdresPos+4,PostNr_"   "_Woonpl,43,"","")
 .If Land'="BE" Do PASTE^DCALG(PCount,AdresPos+5,$$LAND^vhRtn1(Land,2,Taal),43,"","")
 Set T=$$TXT^DCALG("Date","DCKLACHT")_"  "_RegDat
 Do PASTE^DCALG(PCount,Blank-1,T,2,"","")         
 Set T=$$TXT^DCALG("WerkDc","DCKLACHT")_"  "_$$EXTNUM^vhLib.DataTypes(KlachtId,0,".",0)
 Do PASTE^DCALG(PCount,Blank-3,T,2,"","B")
 Do VHPD^DCALG(PCount,.Blank,.VH)
 For I=1:1 Quit:'$D(C(PCount,I))  Set sSort(I+1,1)=C(1,I)
 Quit ""
 ;
TWerkDc ;WERKDOCUMENT TERUGNAME\DOCUMENT DE RETOUR\WERKDOCUMENT TERUGNAME\WERKDOCUMENT TERUGNAME
TKlacht ;Klacht\Klacht\Klacht\Klacht
TFakt ;Factuur\Facture\Rechnung\Invoice
TProf ;Proforma\Proforma\Proforma\Proforma
TLev ;Levering\Livraison\Lieferung\Delivery
TOrd ;Order\Commande\Auftrag\Order
TTelNr ;Tel nr.\No. tel\Tel nr.\Tel nbr
TBtw ;BTW nr.\No. TVA\BTW nr.\VAT nbr
TDate ;Datum\Date\Datum\Date
TAanbr ;Aanbrenger\Contact\Aanbrenger\Aanbrenger
TOnderw ;Onderwerp\Sujet\Onderwerp\Onderwerp
TType ;Reden\Raison\Reden\Reden
TGroep ;Verantw.\Responsable\Verantw.\Verantw.
TBetr ;Betreft\Concerne\Betreft\Betreft
 ;