PRGACNTs TECH.RegisteredObject 0 1 OrderID:%String %Boolean 1 OrderID:%String %Boolean 1 OrderID:%String %Boolean 1 GroepOrderID:%String %ListOfDataTypes 1 OrderID:%String %String 1 OrderID:%String %String 1 OrderID:%String %String 1 WSOrderLijn:WS.TBX.EM.OrderLijn,WebDomein:%String 1 %Boolean 1 WSOrderLijn:WS.TBX.EM.OrderLijn,WebDomein:%String 1 %Boolean ($$$DollarHvan20Juni2016-1)) } Else { Set IsGeleiderUitgefaseerd = $$$True ; Laatste diepte is nu ook uitgefaseerd. ; $$$Not(##class(TECH.StringUtils).Equals(WSOrderLijn.ItemLD, 450)) } } ElseIf (WSOrderLijn.ItemBM = "I") && (WSOrderLijn.ItemLD = 600) && (WSOrderLijn.ItemDK = 30) { Set IsGeleiderUitgefaseerd = $$$True ; 600mm 30kg is alleen mogelijk bij TOB } Quit IsGeleiderUitgefaseerd ]]> 1 WSOrderLijn:WS.TBX.EM.OrderLijn 1 %Boolean 1 WSOrderID:%String %String Set WSOrd=##class(APPS.TBXWeb.Utils).KopieerKlantGegevens(fromID,ToID) write WSOrd,! 1 FromWSOrderID,ToWSOrderID WS.TBX.OrderAbstract Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(4645,"") write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! 1 KlantNr:%String,WebDomein:%String="" %ListOfDataTypes Set OrderID=##class(APPS.TBXWeb.Utils).GeefRecentOrderIDVanKlant(4645) write OrderID,! 1 KlantNr:%String %String Set WSOrd=##class(APPS.TBXWeb.Utils).OrderOmzettenNaarAndereKlant(WSOrderID,KlantNrTo) write WSOrd,! 1 WSOrderID,KlantNrTo WS.TBX.OrderAbstract Write ##class(APPS.TBXWeb.Utils).GeefInfoOrdersOmzettenNaarKlant(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) 1 OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String="" %String Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlant(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) 1 OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String="" %String Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlantViaCMD(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) 1 OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String="" 1 OrderIDs:%ListOfDataTypes,KlantNummerToeTeKennen:%String,MetOutput:%Boolean 1 %Integer 1 DesignCodeModus:%String 1 1 %String