Index: KLANT4.mac.rou
===================================================================
diff -u
--- KLANT4.mac.rou	(revision 0)
+++ KLANT4.mac.rou	(revision 3085)
@@ -0,0 +1,18 @@
+KLANTT4 ;Klanten
+ ;
+FindBtwNr
+ For  Do  Quit:'%SC
+ .Set (KLNr,BtwNrToFind)=""
+ . Do NIEUW^vhScherm("FINDBTWNR",,,,,,,"A")
+ . Quit:'%SC
+ . Set BtwNrToFind=$$UPTRIMAN^vhRtn1(BtwNrToFind)
+ . Set KLNr="",Found=0
+ . For  Set KLNr=$O(^DLOG("K","KL",KLNr)) Quit:KLNr=""  Do  Quit:Found
+ . . Set NextLog=""
+ . . For  Set NextLog=$O(^DLOG("K","KL",KLNr,NextLog)) Quit:NextLog=""  Do  Quit:Found
+ . . . Set R=^DLOG("K","KL",KLNr,NextLog),BtwNr=$P(R,D,3),Found=BtwNr[BtwNrToFind
+ . . . Quit:Found
+ . . . Set R=$P(R,D,4),Found=BtwNr[BtwNrToFind
+ . Set:'KLNr BtwNrToFind=BtwNrToFind_" - niet gevonden!"
+ . Do DISPLAY^vhScherm("FINDBTWNR"),TXT^vhINP("[] = ok",,,1)
+ Quit
\ No newline at end of file