vhLib.Macro 1 %RegisteredObject 0 APPS.TBXWeb.TBXContext 1 1 1 %Status 1 wsID:%String="",Shop:%String="",Requester:%String="" %Status WebGroepOrder:WS.TBX.GroepOrder,WebOrder:WS.TBX.Order WebGroepOrder:WS.TBX.GroepOrder,WebOrder:WS.TBX.Order %ListOfDataTypes %2",WebGroepOrder.WebDomain,WebOrder.WebDomain) do Bezwaren.Insert(Bezwaar) } if WebGroepOrder.KLNummer '= WebOrder.KLNummer { set Bezwaar = ##class(APPS.TBXWeb.Vertaler).Instance().GeefOmschrijving("klant is verschillend : %1 <> %2",WebGroepOrder.KLNummer,WebOrder.KLNummer) do Bezwaren.Insert(Bezwaar) } if WebOrder.IsOfferteVervallen() { set Bezwaar = ##class(APPS.TBXWeb.Vertaler).Instance().GeefOmschrijving("offerte %1 is vervallen",WebOrder.OrderNr) do Bezwaren.Insert(Bezwaar) } if $length(WebGroepOrder.GeefVerpakkingType()) && ( WebGroepOrder.GeefVerpakkingType() '= WebOrder.GeefVerpakkingType() ) { set Bezwaar = ##class(APPS.TBXWeb.Vertaler).Instance().GeefOmschrijving("verpakkingstype verschillend") do Bezwaren.Insert(Bezwaar) } quit Bezwaren ]]> WebGroepOrder:WS.TBX.GroepOrder,WebOrder:WS.TBX.Order 1 OrderID:%String WebOrder:WS.TBX.OrderAbstract,IsWebGroepOrder:%Boolean=0 1 WS.TBX.CalcSoap WebOrder:WS.TBX.Order %Boolean 1 %String