Index: RPLKL2b.mac.rou
===================================================================
diff -u -r734 -r2276
--- RPLKL2b.mac.rou	(.../RPLKL2b.mac.rou)	(revision 734)
+++ RPLKL2b.mac.rou	(.../RPLKL2b.mac.rou)	(revision 2276)
@@ -130,7 +130,7 @@
  .S $P(U2,D,12)=FNR,$P(U2,D,13)=$E(UR,2,9),^HULP($J,"K"_KC,"F",VNR)=FNRX_D_FDTX_D_UPC_D_U2,(FNRX,FDTX)=""
  I $G(LayOut("F"))["LA" D
  .S U2=^KFA("F",FNR,UR,3)
- .I '$P(U2,D),FactKLNr,FactKLNr'=KC S U2=^KKL(^KK1(FactKLNr),0)
+ .I '$P(U2,D),$G(FactKLNr),FactKLNr'=KC S U2=^KKL(^KK1(FactKLNr),0)
  .Q:'$P(U2,D)
  .S UPC=D,U2="Adres "_$$INITCAP^vhRtn1($P(U2,D,2)_" - "_$P(U2,D,7)_" - "_$P(U2,D,5))
  .S VNR=VNR+1 I VNR=18 D WL
@@ -211,7 +211,7 @@
  .S $P(U2,D,12)=FNR,$P(U2,D,13)=$E(UR,2,9),^HULP($J,"K"_KC,"P",VNR)=FNRX_D_FDTX_D_UPC_D_U2,(FNRX,FDTX)=""
  I $G(LayOut("Z"))["LA" D
  .S U2=^KFAP("F",FNR,UR,3)
- .I '$P(U2,D),FactKLNr,FactKLNr'=KC S U2=^KKL(^KK1(FactKLNr),0)
+ .I '$P(U2,D),$G(FactKLNr),FactKLNr'=KC S U2=^KKL(^KK1(FactKLNr),0)
  .Q:'$P(U2,D)
  .S UPC=D,U2="Adres "_$$INITCAP^vhRtn1($P(U2,D,2)_" - "_$P(U2,D,7)_" - "_$P(U2,D,5))
  .S VNR=VNR+1 I VNR=18 D WL