Index: BL/Legacy/DCPRINT2.cls.xml =================================================================== diff -u -r73694 -r74069 --- BL/Legacy/DCPRINT2.cls.xml (.../DCPRINT2.cls.xml) (revision 73694) +++ BL/Legacy/DCPRINT2.cls.xml (.../DCPRINT2.cls.xml) (revision 74069) @@ -93,6 +93,8 @@ 1 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)