Index: TRANSPEA.mac.rou
===================================================================
diff -u -r29059 -r40943
--- TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 29059)
+++ TRANSPEA.mac.rou	(.../TRANSPEA.mac.rou)	(revision 40943)
@@ -136,7 +136,7 @@
  ;
  ; Ophalen van de afzender via het klantnummer
 Afzender(KLNr)
- New I,R,TranspNr,Afzender,LevAdr,Naam,Toenaam,Straat,Nummer,Land,PostCode,Gemeente,Telefoon
+ New I,R,TranspNr,Afzender,LevAdr,Naam,Toenaam,Straat,Nummer,Land,PostCode,Gemeente,Telefoon,Bedrijf
  Set KLNr=+$G(KLNr),TranspNr=$$$LevGLS
  Set Afzender=$P($G(^TRANSP("T",TranspNr,KLNr)),"\",2)
  Do:((KLNr=$$$KlantSchachermayerAU)||(KLNr=$$$KlantSchachermayerNL))