Index: DCPRINT2.mac.rou =================================================================== diff -u -r61691 -r74069 --- DCPRINT2.mac.rou (.../DCPRINT2.mac.rou) (revision 61691) +++ DCPRINT2.mac.rou (.../DCPRINT2.mac.rou) (revision 74069) @@ -17,16 +17,16 @@ . . Else Set DocType=$$$ldtBonGeel ; Terugname -> enkel gele terugnamebon . Else Do ; Levering . . // Bon met of zonder Afleveringsbewijs - . . if ##class(BL.Legacy.DCPRINT2).AfleveringsbewijsNodig(BONNr) Set DocType=$$$ldtBonWitBewijs ; Levering -> Witte leveringsbon en geel afleveringsbewijs samen geniet - . . Else Set DocType=$$$ldtBonWit ; Levering -> enkel witte leveringsbon + . . if ##class(BL.Legacy.DCPRINT2).AfleveringsbewijsNodig(BONNr) Set DocType=$$$ldtBonBlancoBewijs ; Levering -> Witte leveringsbon en geel afleveringsbewijs samen geniet + . . Else Set DocType=$$$ldtBonBlanco ; Levering -> enkel witte leveringsbon . . . . // Pakbon toevoegen . . Set PosPakbon=$S($$ISORGAL^FLOWCHK("L",BONNr):"",'$$IsMetStUpd(BONNr):"", 1:"BEGIN") . . Set:(PosPakbon="END" ) DocType=DocType_$$$ldtAddPakbonLos . . Set:(PosPakbon="BEGIN") DocType=$$$ldtBeginPakbonLos_DocType . . . . // Altijd BonWit voor VH en HALUX - . . Set:(KLNr=$$$KlantVanHoeckeNV)||(KLNr=$$$KlantHalux) DocType=$$$ldtBonWit + . . Set:(KLNr=$$$KlantVanHoeckeNV)||(KLNr=$$$KlantHalux) DocType=$$$ldtBonBlanco . . // Printer voor FOP bepalen . Do ##class(BL.Legacy.DCPRINT2).WijzigPrinterEnDocType(BONNr, .Printer, .DocType)