Index: vhDeploy/Deploy202500708xVoorwerkenHaluxStockerenVRD.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy202500708xVoorwerkenHaluxStockerenVRD.cls.xml (revision 0)
+++ vhDeploy/Deploy202500708xVoorwerkenHaluxStockerenVRD.cls.xml (revision 75040)
@@ -0,0 +1,43 @@
+
+
+
+vhDeploy.Deploy
+
+
+%String
+Settings ivm Behouden Dueout magazijn bij doorsturen voor picking van vervroegd geproduceerde lades
+
+
+
+1
+
+
+
+
+
+
Index: vhTest/Fake/BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r74608 -r75040
--- vhTest/Fake/BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml (.../VerzendDirectControleur.cls.xml) (revision 74608)
+++ vhTest/Fake/BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml (.../VerzendDirectControleur.cls.xml) (revision 75040)
@@ -37,14 +37,12 @@
KLNr:%String,ORDNr:%String
-
+
KLNr:%String
-
+
Index: EWORDS.mac.rou
===================================================================
diff -u -r74962 -r75040
--- EWORDS.mac.rou (.../EWORDS.mac.rou) (revision 74962)
+++ EWORDS.mac.rou (.../EWORDS.mac.rou) (revision 75040)
@@ -142,6 +142,7 @@
If Optie'["A",Optie'["T" Kill ^HULP(%J)
Quit
;
+
FETCH(KLNr,ORDNr,Optie)
New R,Count,OLNr,MarkOrd,OLUNr,EwmsVerw,VerzW,Lock,VerzZ,GewGemWv,PRNr,Beloofd,IsTBX,StockNiveauService,VkpKinderen
New LevTerm,BufferW,Week,DynTheoS,KomOrd,StockUpd,FysStock,PraStock,TeoStock,Aantal,ResWMS,Order,OrderStaatVolledigBijVanHoecke
@@ -190,7 +191,7 @@
...If $$GeenMaatWerkCheck(PRNr) Do ;het maatwerk is gemaakt, niet meer op de kinderen controleren
....Set VkpKinderen = "0\0\0"
...else Do
- ....Set VkpKinderen = $$VerkoopKinderen^PRODUKT4(PRNr,WeekDat)
+ ....Set VkpKinderen = "0\0\0" ;$$VerkoopKinderen^PRODUKT4(PRNr,WeekDat) ;reeds door AX gedaan.
...Set WVRes=$$CV2MAG^MRP(PRNr,$P(VkpKinderen,"\",2))
...Set WVTekort=$S(KLNr=$$$KlantHalux:"",WVStock%Boolean
+
+1
+%Boolean
+
+
1
%Boolean
@@ -335,6 +340,16 @@
1
%Boolean
+
+
+1
+%Boolean
+
+
+
+1
+%Numeric
+
Index: APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml
===================================================================
diff -u -r70590 -r75040
--- APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml (.../EtiketService.cls.xml) (revision 70590)
+++ APPS/TRANSP/Transsmart/impl/EtiketService.cls.xml (.../EtiketService.cls.xml) (revision 75040)
@@ -120,8 +120,10 @@
Set Computernaam = ##class(TECH.StringUtils).ToUpper(Computernaam)
Do ..EtiketPrinter.PrintEtiketten(Etiketten,Computernaam,"TRANSSMART_ZPL")
#dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(Levering.GeefRitID())
- if Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).VRD() {
- ;Do ..PrintVRDDueoutEtiketten(..GeefShipmentInfoReference(Levering),Computernaam,Etiketten.Count())
+ if Rit.GeefTransporteur() = ##class(DOM.TRANSP.enu.Transporteur).VRD() {
+ If ..ProjectSettingsAPI.VRDDueOutEtiketEnA4() ! ..ProjectSettingsAPI.DD1StockerenBijVRDIndienVroegerGeproduceerd(){
+ Do ..PrintVRDDueoutEtiketten(..GeefShipmentInfoReference(Levering),Computernaam,Etiketten.Count())
+ }
}
]]>
@@ -136,8 +138,9 @@
#dim Maand = $$$UCase($Piece($ZD(PickupDate,2)," ",2))
#dim BartenderPrinter as %String = ..PrintAPI.GeefLabelPrinter("TRANSP_DI1",ComputerNaam).GeefDevice()
Set DocsV1 = ##class(BL.PPS.TBX.DocsV1).%New()
- do DocsV1.VRDDueOutEtiket(Dag,Maand,BartenderPrinter,Aantal, "3" _ $Extract(ShipmentReference,6,10))
-
+ do DocsV1.VRDDueOutEtiket(Dag,Maand,BartenderPrinter,Aantal, "3" _ $Extract(ShipmentReference,6,10))
+ Set BartenderPrinter = ..PrintAPI.GeefLabelPrinter("TRANSP_VRDDUEOUTA4",ComputerNaam).GeefDevice()
+ do DocsV1.VRDDueOutA4Etiket(Dag,Maand,BartenderPrinter,Aantal, "3" _ $Extract(ShipmentReference,6,10))
} else {
Do ##class(vhLib.Logger).%New().Info("VRDDueOut Etiketten","VRD DueOut etiketten niet nodig voor shipment met reference " _ShipmentReference _ " met pickupdatum " _ $zd(PickupDate,2))
Index: EWORDS2.mac.rou
===================================================================
diff -u -r72053 -r75040
--- EWORDS2.mac.rou (.../EWORDS2.mac.rou) (revision 72053)
+++ EWORDS2.mac.rou (.../EWORDS2.mac.rou) (revision 75040)
@@ -21,9 +21,13 @@
Set $P(CONSRec,D,3)=DOutTime
Set $P(CONSRec,D,4)=VerzZ
If (VerzW = "DD1"){
- Set $P(CONSRec,D,5)= ##class(TECH.DateTime).BerekenWerkdag((+$H) , 1 )
+ If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1StockerenBijVRDIndienVroegerGeproduceerd()) {
+ Set $P(CONSRec,D,5) = VerzDat
+ } Else {
+ Set $P(CONSRec,D,5)= ##class(TECH.DateTime).BerekenWerkdag((+$H) , 1 )
+ }
} else {
- Set $P(CONSRec,D,5)=VerzDat
+ Set $P(CONSRec,D,5)=VerzDat
}
Set $P(CONSRec,D,18)=$H
;Set $P(CONSRec,D,20)="W"
@@ -73,6 +77,17 @@
Set ^BONLog(CONSNr,+$H)=$LB("M",,$zdt($H,8))
Quit
+OrderLeverDatum(KLNr,ORDNr) ;LeverDatum 1e productlijn v Order
+ new LijnType,LevDatum,i,Rec
+ set i="", LevDatum=""
+ for Set i=$Order(^KOD(KLNr,"F",ORDNr,i)) Quit:(i="")!(LevDatum) Do ;indien productlijn dan heeft LevDatum een waarde gekregen en kunnen we uit de for
+ . Set Rec=^KOD(KLNr,"F",ORDNr,i)
+ . set LijnType = $p(Rec,"\",17)
+ . set:(LijnType="KF0") LevDatum=$p(^KOD(KLNr,"F",ORDNr,i),"\",25)
+ ;w !,$zdt($g(LevDatum),4)
+ Quit LevDatum
+
+
IsReedsInORDW(KLNr,CONSNr,MarkRef)
New ORDNr,OLUNr,IsReedsInORDW
Set (ORDNr,OLUNr)=""
Index: DOM/common/impl/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r74924 -r75040
--- DOM/common/impl/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 74924)
+++ DOM/common/impl/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 75040)
@@ -33,6 +33,12 @@
]]>
+
+%Boolean
+
+
+
%Boolean
+
+
+%Boolean
+
+
+
+
+%Numeric
+
+
Index: vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml
===================================================================
diff -u -r74924 -r75040
--- vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 74924)
+++ vhTest/Mock/DOM/common/ProjectSettingsAPI.cls.xml (.../ProjectSettingsAPI.cls.xml) (revision 75040)
@@ -17,6 +17,18 @@
]]>
+
+%Numeric
+
+
+
+
+%Boolean
+
+
+
%Boolean
+
+%Boolean
+
+
+
%Boolean
+
+
+
+1
+BL.Etiket.VRDDueOut
+
+
+VRD_DueOutA4
+
+
+
+
+
Index: vhUnitTest/BL/Legacy/EWORDS6.cls.xml
===================================================================
diff -u -r72372 -r75040
--- vhUnitTest/BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 72372)
+++ vhUnitTest/BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 75040)
@@ -14,18 +14,23 @@
#dim Kantelpunt18h as %String = DateTimeApiFake.CurrentHorolog()
set $P(Kantelpunt18h,",",2) = 18*3600
do DateTimeApiFake.SetHorolog(Kantelpunt18h) // zet de tijd
+ #Dim ProjectSettingAPI as vhTest.Mock.DOM.common.ProjectSettingsAPI = ##class(vhTest.Mock.DOM.common.ProjectSettingsAPI).MockInstance()
+ Do ProjectSettingAPI.IndienMethodCall("DD1StockerenBijVRDIndienVroegerGeproduceerd").DanReturn(0)
do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(DateTimeApiFake.CurrentDate())
// doorgestuurd voor kantel -> vandaag
- do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100000),$$$Vandaag,"Is voor vandaag .. 100000 heeft een vroeger kantel moment")
+ ;do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100000),$$$Vandaag,"Is voor vandaag .. 100000 heeft een vroeger kantel moment")
// doorgestuurd na kantel -> Morgen
- do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100001),$$$Morgen,"Is voor andere dag .. 100001 heeft een langer kantel moment")
+ ;do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100001),$$$Morgen,"Is voor andere dag .. 100001 heeft een langer kantel moment")
do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(..GeefVolgendeNietArbeidsdag())
do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100002),$$$AndereDag,"Is voor andere dag .. want morgen is zogezegd geen arbeidsdag")
do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(..GeefVolgendeArbeidsdag())
- do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100002),$$$Morgen,"Is voor morgen .. want morgen is zogezegd een arbeidsdag")
+ ;do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100002),$$$Morgen,"Is voor morgen .. want morgen is zogezegd een arbeidsdag")
+
+ do ##class(vhUnitTest.BL.Legacy.EWORDS6Mock).ZetPickDatum(..Geef2ArbeidsdagenVerder()) ;100003 = DD1 ORDER
+ ;do $$$AssertEquals(##class(vhUnitTest.BL.Legacy.EWORDS6Mock).PickingVoorVandaagVolgendeArbeidsdagOfAndereDag(100003),$$$Vandaag,"Tijdelijk Is voor vandaag .. want overmorgen is zogezegd een arbeidsdag")
]]>
@@ -42,6 +47,13 @@
+
+
+1
+%Date
+
+
Index: vhTest/Fake/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r68991 -r75040
--- vhTest/Fake/BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 68991)
+++ vhTest/Fake/BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 75040)
@@ -19,6 +19,12 @@
]]>
+
+Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1,BONNr:%String=""
+
+
+
DnaCodeIterator:TECH.Iterator
Index: BL/Legacy/EWORDS6.cls.xml
===================================================================
diff -u -r72372 -r75040
--- BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 72372)
+++ BL/Legacy/EWORDS6.cls.xml (.../EWORDS6.cls.xml) (revision 75040)
@@ -26,11 +26,17 @@
set VandaagOfMorgen = $$$Morgen
}
-
If (VandaagOfMorgen=$$$Morgen) && ..VerzendwDD1(ORDNr) ; Indien verzendwijze is DD1 maar moet normaal pas morgen vertrekken dan toch vandaag laten vertrekken - PV 02 05 2023
{
Set VandaagOfMorgen=$$$Vandaag
}
+ ; als het volgens de gewone settings Andere dag is, DD1 , maar er wordt voorgewerkt, en gestokeerd bij VRD
+ If ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1StockerenBijVRDIndienVroegerGeproduceerd() {
+ #dim AantalDagen = ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1AantaldagenVooruitkijken()
+ If (VandaagOfMorgen=$$$AndereDag) && ..VerzendwDD1(ORDNr) & ..IsTotXArbeidsdagenVerder(PickDatum,AantalDagen){
+ Set VandaagOfMorgen=$$$Vandaag
+ }
+ }
If (VandaagOfMorgen=$$$Morgen) && ($P(##class(TECH.Context).Instance().GeefDateTimeAPI().CurrentHorolog(),",",2)/3600<18) && '$G(OLNr) ; Pas na 18 uur mogen de opdrachten voor de volgende werkdag actief worden - PV 02 05 2023
{
Set VandaagOfMorgen=$$$AndereDag
@@ -73,6 +79,19 @@
]]>
+
+1
+Datum:%Date,Aantal:%Numeric
+0
+%Boolean
+= +Datum
+]]>
+
+
1
ORDNr:%String
Index: vhUnitTest/BL/Legacy/EWORDS6Mock.cls.xml
===================================================================
diff -u -r72372 -r75040
--- vhUnitTest/BL/Legacy/EWORDS6Mock.cls.xml (.../EWORDS6Mock.cls.xml) (revision 72372)
+++ vhUnitTest/BL/Legacy/EWORDS6Mock.cls.xml (.../EWORDS6Mock.cls.xml) (revision 75040)
@@ -23,7 +23,7 @@
1
ORDNr:%String
%Boolean
-
@@ -35,6 +35,22 @@
]]>
+
+1
+Datum:%Date
+%Boolean
+
+
+
+
+1
+Datum:%Date,Aantal:%Numeric
+%Boolean
+
+
+
1
ORDNr:%String
Index: EWORDS6.mac.rou
===================================================================
diff -u -r72053 -r75040
--- EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 72053)
+++ EWORDS6.mac.rou (.../EWORDS6.mac.rou) (revision 75040)
@@ -110,6 +110,9 @@
Set VerzZone = ""
Set DOutDateTime = $Select(IsVoorVandaag:+$Horolog,1:+$$CALCDATE^vhLib.DataTypes($Horolog,"A",1)) _ "," _ blVerzendWijze.DueOutPickingTime()
Set VerzDat = blLeveringsTermijn.GetVroegsteLeverDag(+DOutDateTime)
+ If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1StockerenBijVRDIndienVroegerGeproduceerd()){
+ Set:(VerzW="DD1") VerzDat=##class(TECH.DateTime).BerekenWerkdag($$GetPickDatum^EWORDS6(ORDNr),1) ;Leverdatum met behoud Pickdatum
+ }
Set DOutDateTime = blLeveringsTermijn.GetLaatstePickingsTijdstip(VerzDat)
Set LevAdr = ^KOD(KlantNummer, "F", ORDNr, 3)
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r74771 -r75040
--- BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 74771)
+++ BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 75040)
@@ -1794,6 +1794,22 @@
]]>
+
+Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1,BONNr:%String=""
+
+
+
Bepaalt het volume-aandeel van de probox-laden
Index: EWORDS5.mac.rou
===================================================================
diff -u -r74962 -r75040
--- EWORDS5.mac.rou (.../EWORDS5.mac.rou) (revision 74962)
+++ EWORDS5.mac.rou (.../EWORDS5.mac.rou) (revision 75040)
@@ -34,10 +34,12 @@
if IsNodigControleerOrderBezwaren {
Set GaVerder = $$GaVerderIndienBezwarenOrderDoorsturen(ORDNr)
}
+ Set LijnLeverdatumControleren = $g(^HULP(%J,KLNr,ORDNr,"DatumControleren"),1) ; Alleen controleren bij eerste lijn van order
Set:(GaVerder & LijnLeverdatumControleren) GaVerder = $$GaVerderIndienBezwarenOrderLijnDoorsturen(ORDNr,OLNr,.LijnLeverdatumControleren)
+ Set ^HULP(%J,KLNr,ORDNr,"DatumControleren") = LijnLeverdatumControleren
}
Quit:($$$Not(GaVerder))
-
+ Set:(GaVerder=2) $p(^HULP(%J,KLNr,"V"),"\",2) = +$$GetPickDatum^EWORDS6(ORDNr,OLNr) ; wordt overgenomen in MODVERZW^EWORDS
Set PRNr=$P(R,D,12),Aantal=$P(R,D,13)
Set FysStock=$P(R,D,14),PraStock=$P(R,D,15),DynTheoS=$P(R,D,16)
Set OLUNr=$P(R,D,19),LevWk=$P(R,D,18),TOENr=$P(R,D,17),KlOLNr=$P(R,D,35)
@@ -98,7 +100,7 @@
#dim Bezwaren As %ArrayOfDataTypes = DoorsturenOrderPickingService.GeefBezwarenTegenOrderDoorsturen(OrderID)
If Bezwaren.Count() > 0 {
Set BezwarenBericht = ""
- For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht_Bezwaren.GetAt(BezwarenCnt)_$C(13,10)
+ For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht _ Bezwaren.GetAt(BezwarenCnt)_$C(13,10)
Set GaVerder = $$JaNee^vhTXTPOP("Bezwaren",BezwarenBericht)
}
Quit GaVerder
@@ -110,11 +112,11 @@
#dim Bezwaren As %ArrayOfDataTypes = DoorsturenOrderPickingService.GeefBezwarenTegenOrderLijnDoorsturen(OrderID, OrderLijnID)
If Bezwaren.Count() > 0 {
Set BezwarenBericht = ""
- For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht_Bezwaren.GetAt(BezwarenCnt)_$C(13,10)
- Set GaVerder = $$JaNee^vhTXTPOP("Bezwaren",BezwarenBericht)
+ For BezwarenCnt=1:1:Bezwaren.Count() Set BezwarenBericht = BezwarenBericht _ Bezwaren.GetAt(BezwarenCnt)_$C(13,10)
+ Set GaVerder = $$^vhTXTPOP("EWORDS","DUEOUTVRD",0,$ZDT(+$$GetPickDatum^EWORDS6(OrderID,$G(OrderLijnID)),4),$ZDT(+$Piece(^HULP(%J,"V","V"),"\",2),4))
Set LijnLeverdatumControleren = $$$Not(GaVerder) ; Als er verdergegaan word, volgende keer niet meer vragen
}
- Quit GaVerder
+ Quit GaVerder ; kan nu 3 waarden bevatten Vervroegen = 1 , Behouden = 2 Annuleren = 0
MARKORD(Ref)
New R,ORDNr,OLNr,Quit,Marked,OLUNr,StartRef,VerzW,AskLink
Index: BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml
===================================================================
diff -u -r74608 -r75040
--- BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml (.../VerzendDirectControleur.cls.xml) (revision 74608)
+++ BL/MB/UGLYPicking/VerzendDirectControleur.cls.xml (.../VerzendDirectControleur.cls.xml) (revision 75040)
@@ -193,7 +193,13 @@
/// Vandaag op transport en morgen leveren = Aantalwerkdagen=1, maar er mag 1 dag extra omdat DI1 in de namiddag wordt geproduceerd.
//Quit:(..GeefVerzendwijze(KLNr, ORDNr)="GL4") 3 //deze weer in commentaar sinds backport van Cache05
Quit:$G(KLNr)=26329 1 ; Klant OIC
- Quit 2
+ Quit:$G(KLNr)=2913 1 ; Klant MadeByDas-Tristar
+ Quit:$G(KLNr)=4038 1 ; Klant H.M.P.C
+ If (##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1StockerenBijVRDIndienVroegerGeproduceerd()){
+ Quit ##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().DD1AantaldagenVooruitkijken()
+ } Else {
+ Quit 2 ; standaard werking
+ }
]]>
@@ -263,12 +269,31 @@
KLNr:%String,ORDNr:%String
LaatsteLeverdagTijdensSluiting) MaximaleLeverdag=LaatsteLeverdagTijdensSluiting ; maandag 23/12/2024
+ }
+ }
+ ;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhLib.DataTypes($H,"A",..GeefAantalWerkdagen(KLNr, ORDNr))) ; Indien ASAP ingesteld dan 99 dagen
+ ;;Set MaximaleLeverdag=$S($P(Hoofding,"\",28):$H+99,1:$$CALCDATE^vhDTyp($H,"A",..GeefAantalWerkdagen)) ; Indien ASAP ingesteld dan 99 dagen
+
Set MemGenTyp=""
Set IsLade=0
While (OLNr'="") && (FoutCode="")
@@ -323,14 +348,15 @@
Set BONNr=$O(^KU2("F",KLNr,BONNr)) ; orders die volledig of deels op bon staan
While (BONNr'="") && ('IsOrgal)
{
- Quit:$P($P($G(^KUL(KLNr,"F",BONNr,101)),"\",5)," ")'=ORDNr ; Bon niet geleverd door order
-
- Set Leverdag=$$INTDATE^vhLib.DataTypes($P($G(^KUL(KLNr,"F",BONNr,1)),"\",2),"DKP")
- ;w KLNr," ",ORDNr," ",BONNr," ",$P($G(^KUL(KLNr,"F",BONNr,1)),"\",2)," ",$$ISORGAL^FLOW("L",BONNr),! ; r k
- Quit:Leverdag<$H
-
- Set IsOrgal=$$ISORGAL^FLOW("L",BONNr)
-
+ If $P($P($G(^KUL(KLNr,"F",BONNr,101)),"\",5)," ")=ORDNr ; Bon niet geleverd voor order
+ {
+ Set Leverdag=$$INTDATE^vhLib.DataTypes($P($G(^KUL(KLNr,"F",BONNr,1)),"\",2),"DKP")
+ ;w KLNr," ",ORDNr," ",BONNr," ",$P($G(^KUL(KLNr,"F",BONNr,1)),"\",2)," ",$$ISORGAL^FLOW("L",BONNr),! ; r k
+ If Leverdag'<(+$H) ; recente leveringen, dit door het hergebruik van het ordernummer in Admin om de x maand
+ {
+ Set IsOrgal=$$ISORGAL^FLOW("L",BONNr)
+ }
+ }
Set BONNr=$O(^KU2("F",KLNr,BONNr))
}
Quit IsOrgal
Index: vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r71813 -r75040
--- vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 71813)
+++ vhTest/Mock/BL/PPS/TBX/DocsV1.cls.xml (.../DocsV1.cls.xml) (revision 75040)
@@ -280,6 +280,12 @@
]]>
+
+Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1,BONNr:%String=""
+
+
+
Dag:%String,Maand:%String,LabelPrinter:%String,Aantal:%Integer=1,BONNr:%String=""