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)