Index: OBJTimpl/Herbevoorrading/ProductVoorraadIterator.cls.xml
===================================================================
diff -u
--- OBJTimpl/Herbevoorrading/ProductVoorraadIterator.cls.xml (revision 0)
+++ OBJTimpl/Herbevoorrading/ProductVoorraadIterator.cls.xml (revision 67716)
@@ -0,0 +1,60 @@
+
+
+
+TECH.RegisteredObject,TECH.Iterator
+
+
+TECH.ResultSetIterator
+1
+
+
+
+%ResultSet
+1
+
+
+
+1
+1
+%Status
+1
+
+
+
+
+%Boolean
+
+
+
+
+%Library.Persistent
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u -r67289 -r67716
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml (.../dtoPicklijn.cls.xml) (revision 67289)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml (.../dtoPicklijn.cls.xml) (revision 67716)
@@ -104,10 +104,57 @@
+
+99999
+
+
+
+VLM
+
+
+
+
+Intern Kardex replenishment
+IKR
+
+
%Status
+
+
+
+
+ProductVoorraad:OBJTimpl.Herbevoorrading.ProductVoorraad
+
+
+
+
+%Status
+
+
+
+
+Doorgeven van ontvangen goederen naar OBJT. De receptielijn wordt automatisch gestockeerd.
+Prod.Product
+%RegisteredObject
+
+
+OBJTimpl.Herbevoorrading.ProductVoorraad
+
+
+
+OBJTimpl.PM.OBJTIdentLookupService
+
+
+
+%Integer
+1
+
+
+
+%Integer
+1
+
+
+
+
+
+
+
+%Status
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+PRNr:%String,Drempel:%String
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: vhCARETAKER.mac.rou
===================================================================
diff -u -r67274 -r67716
--- vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 67274)
+++ vhCARETAKER.mac.rou (.../vhCARETAKER.mac.rou) (revision 67716)
@@ -1130,6 +1130,7 @@
quit
VRD18hLijst ; stuur mail bericht met xml van verwachte leveringen na 18h
+ Quit ;Bericht niet meer nuttig voor VRD (JWI, per mail gevraagd aan Liesbeth van VRD.)
Try {
Do InitRuntimeContext
Do ##class(APPS.TRANSP.VRD.TransportInschatting).%New().VerzendVRDLijst()
@@ -1257,6 +1258,15 @@
Do OnError
}
Quit
+
+HerbevoorradingKardex ; Orders aanmaken voor herbevoorrading van Kardex
+ Try {
+ Do InitRuntimeContext
+ d ##class(OBJTimpl.Herbevoorrading.ZendHerbevoorrading).%New().VerwerkTekorten()
+ } Catch {
+ Do OnError
+ }
+ Quit
OnError
set $ztrap="EndErrorTrapping"
Index: OBJTimpl/Herbevoorrading/ProductVoorraad.cls.xml
===================================================================
diff -u
--- OBJTimpl/Herbevoorrading/ProductVoorraad.cls.xml (revision 0)
+++ OBJTimpl/Herbevoorrading/ProductVoorraad.cls.xml (revision 67716)
@@ -0,0 +1,154 @@
+
+
+
+persistent
+1
+TECH.Persistent
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+%String
+
+
+
+
+Alle aantallen in POD magazijn zitten (zonder IN en zonder AFZ, zonder KLZ), de reservatie (klantorders) werden in mindering gebracht
+%Decimal
+
+
+
+
+Alle aantallen in KardexOPSLAG zitten, de reservatie (klantorders) werden in mindering gebracht
+%Decimal
+
+
+
+
+Alle aantallen die te wachten staan op KardexIN
+%Decimal
+
+
+
+
+Alle orderlijnen waarvan de klaarzetzone KARDEX is
+%Decimal
+
+
+
+
+Alle orderlijnen waarvan het aantal onder de Drempel ligt worden gebruikt om het gemiddelde te berekenen
+%Decimal
+
+
+
+
+Alle orderlijnen waarvan het aantal onder de Drempel ligt worden gebruikt om het standaard afwijking te berekenen
+%Decimal
+
+
+
+
+Ingesteld in OBJT
+%Decimal
+
+
+
+
+Ingesteld in OBJT maar als niet ingevuld dan wordt de Drempel genomen
+%Decimal
+
+
+
+1
+1
+OBJTItemID
+1
+
+
+
+%Library.CacheStorage
+^OBJTimpl.H961F.ProductVoor8990D
+ProductVoorraadDefaultData
+^OBJTimpl.H961F.ProductVoor8990D
+^OBJTimpl.H961F.ProductVoor8990I
+^OBJTimpl.H961F.ProductVoor8990S
+
+
+%%CLASSNAME
+
+
+OBJTItemID
+
+
+BeschikbarePOD
+
+
+VoorraadKardex
+
+
+AantalInHerbevoorrading
+
+
+GemiddeldeAfnamePerDag
+
+
+StdAfwPerDag
+
+
+Drempel
+
+
+BeschikbaarInPOD
+
+
+VoorraadInPOD
+
+
+VoorraadInKardex
+
+
+VoorraadInboundKardex
+
+
+KortTekst
+
+
+MinHerbevoorrading
+
+
+Aantal
+
+
+OrderNr
+
+
+LijnNr
+
+
+DueoutTijdstip
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml
===================================================================
diff -u -r67712 -r67716
--- OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml (.../PrintKlantEtiket.cls.xml) (revision 67712)
+++ OBJTimpl/WMSOrder/PrintKlantEtiket.cls.xml (.../PrintKlantEtiket.cls.xml) (revision 67716)
@@ -42,6 +42,7 @@
KlantEtiketRequest:OBJTimpl.WMSOrder.dtoKlantEtiketRequest
%String
+
+
+TECH.RegisteredObject
+
+
+TECH.Config.ConfigMgr
+1
+
+
+
+ConfigMgr:TECH.Config.ConfigMgr=""
+1
+1
+%Status
+1
+
+
+
+
+%SQLGatewayConnection
+
+
+
+
+0"
+ _ " and wh.Name in ('06','07','04','05','01')"
+ _ " group by it.Name"
+
+ try
+ {
+ Do res.Prepare(SqlStatement,,OBJTConnection)
+ Do res.Execute()
+ } catch {
+ do OBJTConnection.Disconnect()
+ do ##class(TECH.ExceptionHandler).Rethrow()
+ }
+
+ Quit ##class(TECH.ResultSetIterator).%New(res)
+]]>
+
+
+
+0"
+ _ " and wh.Name in ('KARDEX')"
+ _ " group by it.Name"
+
+ try
+ {
+ Do res.Prepare(SqlStatement,,OBJTConnection)
+ Do res.Execute()
+ }catch {
+ do OBJTConnection.Disconnect()
+ do ##class(TECH.ExceptionHandler).Rethrow()
+ }
+ Quit ##class(TECH.ResultSetIterator).%New(res)
+]]>
+
+
+
+
+
Index: OBJTimpl/Herbevoorrading/OphalenOpenstaandeOrders.cls.xml
===================================================================
diff -u
--- OBJTimpl/Herbevoorrading/OphalenOpenstaandeOrders.cls.xml (revision 0)
+++ OBJTimpl/Herbevoorrading/OphalenOpenstaandeOrders.cls.xml (revision 67716)
@@ -0,0 +1,65 @@
+
+
+
+TECH.RegisteredObject
+
+
+TECH.Config.ConfigMgr
+1
+
+
+
+ConfigMgr:TECH.Config.ConfigMgr=""
+1
+1
+%Status
+1
+
+
+
+
+%SQLGatewayConnection
+
+
+
+
+
+
+
+
+
+
Index: OBJTimpl/Herbevoorrading/OphalenProductenKlein.cls.xml
===================================================================
diff -u
--- OBJTimpl/Herbevoorrading/OphalenProductenKlein.cls.xml (revision 0)
+++ OBJTimpl/Herbevoorrading/OphalenProductenKlein.cls.xml (revision 67716)
@@ -0,0 +1,62 @@
+
+
+
+TECH.RegisteredObject
+
+
+TECH.Config.ConfigMgr
+1
+
+
+
+ConfigMgr:TECH.Config.ConfigMgr=""
+1
+1
+%Status
+1
+
+
+
+
+%SQLGatewayConnection
+
+
+
+
+0"
+
+ try
+ {
+ Do res.Prepare(SqlStatement,,OBJTConnection)
+ Do res.Execute()
+ } catch {
+ do OBJTConnection.Disconnect()
+ do ##class(TECH.ExceptionHandler).Rethrow()
+ }
+
+ Quit ##class(TECH.ResultSetIterator).%New(res)
+]]>
+
+
+
+
+
Index: OBJTimpl/WMSOrder/ZendPicklijst.cls.xml
===================================================================
diff -u -r66284 -r67716
--- OBJTimpl/WMSOrder/ZendPicklijst.cls.xml (.../ZendPicklijst.cls.xml) (revision 66284)
+++ OBJTimpl/WMSOrder/ZendPicklijst.cls.xml (.../ZendPicklijst.cls.xml) (revision 67716)
@@ -7,22 +7,53 @@
dtoPicklijnen
+
+%Decimal
+
+
+
+%Decimal
+
+
+
+%Decimal
+
+
%Status
+
+ProductVoorraad:OBJTimpl.Herbevoorrading.ProductVoorraad
+
+
+
+
+
+
+Doorgeven van ontvangen goederen naar OBJT. De receptielijn wordt automatisch gestockeerd.
+%RegisteredObject
+
+
+OBJTimpl.Herbevoorrading.ProductVoorraad
+
+
+
+OBJTimpl.Herbevoorrading.ProductVoorraad
+
+
+
+1
+
+
+
+2
+
+
+
+2
+
+
+
+2
+
+
+
+
+
+
+
+%Status
+
+
+
+
+%Status
+
+
+
+
+ ",Aantal
+ Set:Aantal<..ProductVoorraad.MinHerbevoorrading Aantal=..ProductVoorraad.MinHerbevoorrading ; dagafname is zeer klein dan fallback
+ Set Aantal=..Afronding(Aantal)
+ Write " -> ",Aantal
+ }
+
+ If Aantal>..ProductVoorraad.VoorraadInPOD
+ {
+ Set Aantal=..Afronding(Drempel)
+ If Aantal>..ProductVoorraad.VoorraadInPOD
+ {
+ Set Aantal=0
+ }
+ Write " verminderd naar ",Aantal
+ }
+
+ If Aantal>0 ; Order aanmaken
+ {
+ ; Slechts 1 replenishment per order, dit om de gepickte goederen toe te wijzen aan 1 LPN.
+ Set OBJTSender=##class(OBJTimpl.WMSOrder.ZendPicklijst).%New() ;OBJT
+ Set ..ProductVoorraad.Aantal=Aantal
+ Do OBJTSender.VoegtoeHerbevoorrading(..ProductVoorraad)
+ Do ..ProductVoorraad.Save()
+ Do OBJTSender.VerstuurPicklijnen() ;OBJT
+ }
+ }
+ ;Do ..Show()
+]]>
+
+
+
+Aantal:%Decimal
+1
+%Decimal
+
+
+
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u -r67712 -r67716
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml (.../ImporteerPicking.cls.xml) (revision 67712)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml (.../ImporteerPicking.cls.xml) (revision 67716)
@@ -126,6 +126,8 @@