Index: MRPRES.mac.rou =================================================================== diff -u -r29059 -r41240 --- MRPRES.mac.rou (.../MRPRES.mac.rou) (revision 29059) +++ MRPRES.mac.rou (.../MRPRES.mac.rou) (revision 41240) @@ -280,7 +280,7 @@ ; Momenteel wordt de verzendcode bepaald op basis van de zones die ook voor de voorraadtelling ; gebruikt worden. Daarnaast zijn er nog een aantal uitzonderingen, o.a. voor Keller en De Decker. GetVerzendCode(PRNr,FabKey) - New SubMab,SubMagCode,KLNr,TLNr,MPRNr,GenTyp + New SubMag,SubMagCode,KLNr,TLNr,MPRNr,GenTyp Set SubMag=$P($G(^KPR(PRNr,15)),"\",12) ; Ophalen van de Halux zone voor het produkt Quit:'$L(SubMag) "" Set SubMagCode=$P($G(^RES("PRODUKT","PI","HFWVSUBMAG","D",SubMag)),"`",4) ; Vertaling naar een code voor HALUX TRANSFER verzendwijze