Index: vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml =================================================================== diff -u -r59826 -r65995 --- vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml (.../Test.cls.xml) (revision 59826) +++ vhUnitTest/APPS/VKP/VerzendWijze/DueOutProductieBepaler/Test.cls.xml (.../Test.cls.xml) (revision 65995) @@ -7,6 +7,7 @@ + + + + + + + + Index: APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml =================================================================== diff -u -r61521 -r65995 --- APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml (.../DueOutProductieBepaler.cls.xml) (revision 61521) +++ APPS/VKP/VerzendWijze/DueOutProductieBepaler.cls.xml (.../DueOutProductieBepaler.cls.xml) (revision 65995) @@ -23,8 +23,18 @@ 1 + +DOM.VKP.OrderAPI +1 + + + +DOM.VKP.impl.EindPersonalityBepaler +1 + + -CategorieBepaler:APPS.Halux.common.impl.ProductieService.CategorieBepaler,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,DueOutProductieBepaler:APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat +CategorieBepaler:APPS.Halux.common.impl.ProductieService.CategorieBepaler,LegacyPartijAPI:DOM.PARTIJ.LegacyPartijAPI,VerkoopAPI:DOM.VKP.VerkoopAPI,DueOutProductieBepaler:APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat,OrderAPI:DOM.VKP.OrderAPI="",EindPersonalityBepaler:DOM.VKP.impl.EindPersonalityBepaler="" 1 1 %Status @@ -34,23 +44,38 @@ Set ..LegacyPartijAPI = $$$Inject(LegacyPartijAPI,##class(DOM.PARTIJ.impl.LegacyPartijAPI).%New()) Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.VKP.impl.VerkoopAPI).%New()) Set ..DueOutProductieBepaler = $$$Inject(DueOutProductieBepaler,##class(APPS.VKP.VerzendWijze.DueOutProductieBepaler.Mat).%New()) + Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI()) + Set ..EindPersonalityBepaler = $$$Inject(EindPersonalityBepaler,##class(DOM.VKP.impl.EindPersonalityBepaler).%New()) + Quit $$$OK ]]> -ProductieDatum:%Date,ProductNummer:%String="",KlantNummer:%String="",VerzendWijze:APPS.VKP.VerzendWijze="" +ProductieDatum:%Date,ProductNummer:%String="",KlantNummer:%String="",VerzendWijze:APPS.VKP.VerzendWijze="",OrderID:%String="" %Time -LeverDatum:%Date,ProductNummer:%String="" +LeverDatum:%Date,ProductNummer:%String="",OrderID:%String="" TECH.Horolog - Index: FLOWHALUX.mac.rou =================================================================== diff -u -r64688 -r65995 --- FLOWHALUX.mac.rou (.../FLOWHALUX.mac.rou) (revision 64688) +++ FLOWHALUX.mac.rou (.../FLOWHALUX.mac.rou) (revision 65995) @@ -68,7 +68,7 @@ . If 'LeverDatum Do . . Set LeverDatum=$$DefaultFromWeek(PRNr,ToeLevWk) . ; omzetting van leverdag naar productie DueOut - . Set DueOut=blLeveringsTermijn.GetLaatsteProductieTijdstip(LeverDatum, PRNr) + . Set DueOut=blLeveringsTermijn.GetLaatsteProductieTijdstip(LeverDatum, PRNr, ORDNr) . If DateComparator.IsKleinerDan(+DueOut,CurrentDate) Do . . Set $Piece(DueOut,",",1) = CurrentDate . ; vroegste Index: APPS/VKP/LeveringsTermijn.cls.xml =================================================================== diff -u -r59787 -r65995 --- APPS/VKP/LeveringsTermijn.cls.xml (.../LeveringsTermijn.cls.xml) (revision 59787) +++ APPS/VKP/LeveringsTermijn.cls.xml (.../LeveringsTermijn.cls.xml) (revision 65995) @@ -194,13 +194,13 @@ -LeverDatum:%Date,ProductNummer:%String="" +LeverDatum:%Date,ProductNummer:%String="",OrderID:%String="" TECH.Horolog