Index: EWORDS6.mac.rou =================================================================== diff -u -r51319 -r51616 --- EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 51319) +++ EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 51616) @@ -89,6 +89,8 @@ Set LevAdr = ^KOD(KlantNummer, "F", ORDNr, 3) Do BLDCONS^EWORDS2(KlantNummer, $Name(^HULP(%J, KlantNummer, "M")), ConsolidatieNummer, $Piece(VerzW, ";"), VerzDat, DOutDateTime, VerzZone, LevAdr, .ChkBeletDone) ; Creatie suborderlijnen + + Do ##class(vhLib.Logger).%New().Info("Klaarzetten voor picking", "Bon '" _ ConsolidatieNummer _ "' is automatisch aangemaakt.") If ($$WMSIsActief() && IsVoorVandaag) { Do SEND^EWORDSW(ConsolidatieNummer)