Index: vhCARETAKER.mac.rou =================================================================== diff -u -r60552 -r60561 --- vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 60552) +++ vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 60561) @@ -937,7 +937,7 @@ Do OnError } Quit - + SwitchSoapLogFile ; Switch van de logfilename voor soap requests Try { set ^ISCSOAP("LogFile")="F:\LogFiles\ISCSOAP\"_##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),"JJJJMMDD hh")_".log" @@ -961,7 +961,6 @@ TAORboxWinstoreVoorraad ; Aanpassen van de voorraad bepaald door Winstore platenmagazijn Try { - Do InitRuntimeContext Do ##class(APPS.StockBeheer.impl.TAORPlatenMagazijn).%New().AanpassenVoorraadVanAllePlaten() } Catch (Exceptie) @@ -972,7 +971,6 @@ ExportToPerfion ; Export van alle producten om in gelezen te worden in Perfion Try { - Do InitRuntimeContext Do ##class(AX.Uitgaand.EC.Perfion.impl.ExportProducten).%New("\\notes01\Shared\PM\Perfion\Transfer").ExportAssortiment("ALL") } Catch (Exceptie) @@ -1002,7 +1000,7 @@ Do OnError } Quit - + ImportProductieStap ; Productiestappen uit SQL databank van Ardis, ZijkantFrees en Afkanter Try { Do InitRuntimeContext @@ -1116,7 +1114,7 @@ try { Do InitRuntimeContext do ##class(APPS.TRANSP.impl.TransportService).%New().DoeNacalculatie("K||2671", ##class(DOM.TRANSP.enu.Transporteur).GLSBelgiumFreight(), ##class(DOM.TRANSP.enu.Transporteur).VRD(), ##class(DOM.TRANSP.enu.Transporteur).DHL()) - } + } catch(Exceptie) { do OnError } @@ -1142,15 +1140,28 @@ } quit -OphalenKenmerkenVoorAX ; TIJDELIJK Ophalen van de kenmerken en opslaan in een flattabel (zoals in AX) +OphalenKenmerkenVoorAX ; Ophalen van de kenmerken en opslaan in een flattabel (zoals in AX) try { Do InitRuntimeContext - Do ##class(AXimpl.PM.Kenmerk.ConvertAll).%New().Verwerk() } + Do ##class(AXimpl.PM.Kenmerk.ConvertAll).%New().Verwerk() + D ##class(APPS.Halux.Planning.ResourcePitchingService).%New().VerwerkAll() + //Do ##class(APPS.Halux.Planning.Resource.impl.ConvertAll).%New().Verwerk() + } catch(Exceptie) { do OnError } quit - + +OphalenTransportVoorAX ; Ophalen van de transport details en opslaan in een flattabel voor AX en Qlik + try { + Do InitRuntimeContext + Do ##class(AXimpl.Admin.TRANSPORT.Levbon.Processor).%New().Process() + } + catch(Exceptie) { + do OnError + } + quit + CheckSelectieKenmerken ; Er wordt geprobeerd om de StandaardLaden uit de vhTest.Utils-package te herberekenen try { Do InitRuntimeContext @@ -1180,6 +1191,17 @@ } Quit +NietLeverenOorzaak ;Registratie waarom goederen niet vertrokken zijn + Try { + + Do InitRuntimeContext + d ##class(AXimpl.Admin.MAG.NietLeverenOorzaak.Processor).%New().Process() + } + Catch (Exceptie) + { + Do OnError + } + Quit OnError set $ztrap="EndErrorTrapping" new Exceptie set Exceptie = ##class(TECH.ExceptionHandler).Catch()