vhLib.Macro 1 %RegisteredObject %String 1 WS.UNI.SFS.Logger 1 %String 1 %String 1 %String 1 %String 1 SoapServiceName:%String="SFS.OrderServiceUNI" 1 1 %Status EdiNr:%String,RequestedDeliveryDate:%String="",KlantBestelRef:%String="" WS.UNI.SFS.ConfirmOrderResult 1 WS.UNI.SFS.ConfirmOrderResult 1 WSimpl.EC.Unishop.OrderConfirmation.Service EDInr:%Integer,sfsref:%String,sfsDeliveryDate:%String 1 WS.EC.UNI.SFS.ConfirmOrderResult 1 DeliveryDate:%String="" 1 %Boolean 1 %String 'sfs'; CgiEnvs = "_$G(%request.CgiEnvs("REMOTE_USER"))) Set Gebruiker = "sfs" } If Gebruiker = "" { Set Gebruiker = "SYS_WSS" Set ClientHost = $G(%request.CgiEnvs("REMOTE_HOST")) If ClientHost?1"192.168.".E { Set Gebruiker = "SYS_WSS_INTERN" } } Quit Gebruiker ]]> MethodNaam:%String="UNI-ConfirmOrder" 1 %String Message:%String 1 fault:%SOAP.Fault 1