Index: DCBON.mac.rou =================================================================== diff -u -r30904 -r30905 --- DCBON.mac.rou (.../DCBON.mac.rou) (revision 30904) +++ DCBON.mac.rou (.../DCBON.mac.rou) (revision 30905) @@ -1,3 +1,5 @@ +#Include BL.Derde.Kennis.AutoRes + DCBON ;AFDRUKKEN LEVERINGSBONS [ 11/18/2003 2:05 PM ] ; ; Het afdrukken van een bon kan met volgende oproep @@ -319,7 +321,7 @@ ; Afdruk van de kennisankers - via proxy objects KENANKPROXY(KLNr,BONNr,Cache) ; Cache als .local doorgeven --> wordt opgevuld met teksten New i,R,lbKenAnk,KenAnk,KennisObject,Msg,Wrap,Lijn,varErrStr - Set lbKenAnk=##class(BL.Derde.Kennis.Kennis).GetIDsToPopup(KLNr,.varErrStr,$LB("DOC:LEVB"),,"PRINT",,,1) + Set lbKenAnk=##class(BL.Derde.Kennis.Kennis).GetIDsToPopup(KLNr,.varErrStr,$LB($$$adLeveringsbon),,"PRINT",,,1) Do:$LL(lbKenAnk) ; Er zijn kennisankers . For i=$LL(lbKenAnk):-1:1 Do . . Set KenAnk=($LI(lbKenAnk,i))