Index: OBJTimpl/WMSOrder/dtoPicklijnen.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoPicklijnen.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/dtoPicklijnen.cls.xml (revision 66284)
@@ -0,0 +1,51 @@
+
+
+
+%SerialObject,%XML.Adaptor
+
+
+Picklijnen
+
+
+
+0
+
+
+
+dtoPicklijn
+list
+
+
+
+
+Picklijn:dtoPicklijn
+
+
+
+
+%Integer
+
+
+
+
+%Library.CompleteCustomStorage
+
+
+
+%Library.CacheSerialState
+dtoPicklijnenState
+^OBJTimpl.WMS6F17.dtoPicklijnenS
+
+listnode
+
+
+Lijst
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadNiveau.cls.xml (revision 66284)
@@ -0,0 +1,150 @@
+
+
+
+
+Verwerken van de door OBJT gegenereerde voorraadlijst.
+Eerst wordt de voorraad uit de lijst verwerkt
+en daarna wordt voor de niet doorgegeven producten de voorraad op nul gezet
+TECH.RegisteredObject
+
+
+dtoCorrelateVoorraadNiveau
+
+
+
+OBJTimpl.CheckObjectiveFase
+
+
+
+1
+1
+%Status
+1
+
+
+
+
+XMLreader:%XML.Reader
+
+
+
+
+XMLreader:%XML.Reader
+
+
+
+
+ ", ..pxVoorraad.AantalAdmin
+ Do ..WijzigVoorraad(..pxVoorraad.Entiteit,..pxVoorraad.PRNr,..pxVoorraad.AantalAdmin, ..pxVoorraad.Aantal)
+ Set ^||OBJTVoorraad(..pxVoorraad.PRNr,..pxVoorraad.Entiteit)=""
+ } else {
+ W " FOUT ",..pxVoorraad.Fout
+ }
+ Do ..pxVoorraad.%Save()
+]]>
+
+
+
+Entiteit:%String,PRNr:%String,OudeVoorraad:%Decimal,NieuweVoorraad:%Decimal
+0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/ZendOpslagOntvangst.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/ZendOpslagOntvangst.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/ZendOpslagOntvangst.cls.xml (revision 66284)
@@ -0,0 +1,100 @@
+
+
+
+
+Doorgeven van ontvangen goederen naar OBJT. De receptielijn wordt automatisch gestockeerd.
+%RegisteredObject
+
+
+1800
+
+
+
+
+
+
+
+1
+
+
+
+
+1
+RCPNr:%String,TOENr:%String,TLUNr:%String,SubTLNr:%String
+
+
+
+
+1
+..#VertragingsTijd Do ; wachten met doorsturen naar OBJT
+ . . . . . Do ..VerwerkOntvangst(RCPNr,TOENr,TLUNr,SubTLNr)
+ . . . . . Kill ^RCP("AUTO_OBJT",RCPNr,TOENr,TLUNr,SubTLNr)
+]]>
+
+
+
+1
+RCPNr:%String,TOENr:%String,TLUNr:%String,SubTLNr:%String
+
+
+
+
+1
+
+0
+
+
+
+
+1
+
+
+
+
+
+
+
Index: OBJTimpl/CheckObjectiveFase.cls.xml
===================================================================
diff -u
--- OBJTimpl/CheckObjectiveFase.cls.xml (revision 0)
+++ OBJTimpl/CheckObjectiveFase.cls.xml (revision 66284)
@@ -0,0 +1,72 @@
+
+
+
+
+Er zijn 4 fases:
+0. Voor live gang OBJT
+1. OBJT beheert alleen de vertikale liften. Verder verloopt het WMS in Admin
+2. OBJT beheert alleen de beslag producten (geen maatwerk).
+5. OBJT beheert het ganse WMS en de transferorders voor productie worden doorgegeven van Admin naar OBJT voor picking
+Prod.Product,BL.Derde.LevSpecifiek
+%RegisteredObject
+
+
+
+
+
+
+1
+
+
+
+1
+PRNr:%Integer
+
+
+
+
+1
+PRNr:%Integer
+
+
+
+
+PRNr:%Integer,Entiteit:%String
+
+
+
+
+PRNr:%Integer,Entiteit:%String
+
+
+
+
+1
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/dtoCorrelatePicking.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoCorrelatePicking.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/dtoCorrelatePicking.cls.xml (revision 66284)
@@ -0,0 +1,68 @@
+
+
+
+persistent
+Prod.Product
+%Persistent,%XML.Adaptor
+
+
+BOOLEAN
+1
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Integer
+
+
+
+
+%TimeStamp
+
+
+
+%Library.CacheStorage
+^OBJTimpl.W6F17.dtoCorrelat270FD
+dtoCorrelatePickingDefaultData
+^OBJTimpl.W6F17.dtoCorrelat270FD
+^OBJTimpl.W6F17.dtoCorrelat270FI
+^OBJTimpl.W6F17.dtoCorrelat270FS
+
+
+%%CLASSNAME
+
+
+ConsNr
+
+
+LijnNr
+
+
+ItemId
+
+
+Aantal
+
+
+PickingTijdstip
+
+
+
+
+
+
+
Index: WS/OBJT/WMSService.cls.xml
===================================================================
diff -u
--- WS/OBJT/WMSService.cls.xml (revision 0)
+++ WS/OBJT/WMSService.cls.xml (revision 66284)
@@ -0,0 +1,84 @@
+
+
+
+
+vhLib.Macro
+1
+WS.OngeauthenticeerdeWebService
+
+
+0
+
+
+
+
+Name of the WebService.
+OBJT2Admin
+
+
+
+
+TODO: change this to actual SOAP namespace.
+SOAP Namespace for the WebService
+http://cache01.vanhoecke.be/objt
+
+
+
+
+Wijzigen van voorraad zowel verhogen als verlagen van de voorraad voor een bepaald product.
+Als de wijziging goed is doorgevoerd wordt er "OK" teruggegeven als resultaat anders een foutboodschap.
+Entiteit:%String,ItemId:%String,Delta:%Decimal,ItemNm:%String=""
+%String
+1
+
+
+
+
+
+Als parameter moet de ganse AfmeldenPicking XML worden doorgegeven
+PickLijst:OBJTimpl.WMSOrder.dtoAfmeldenPicking
+%String
+1
+
+
+
+
+
+d ##class(WS.OBJT.WMSService).Test()
+1
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/dtoAfmeldenPicking.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoAfmeldenPicking.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/dtoAfmeldenPicking.cls.xml (revision 66284)
@@ -0,0 +1,34 @@
+
+
+
+%RegisteredObject,%XML.Adaptor
+
+
+AfmeldenPicking
+
+
+
+0
+
+
+
+dtoCorrelatePicking
+list
+
+
+
+
+
+%Library.CacheSerialState
+dtoAfmeldenPickingState
+^OBJTimpl.W6F17.dtoAfmelden9403S
+
+
+Lijst
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/dtoPicklijn.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoPicklijn.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/dtoPicklijn.cls.xml (revision 66284)
@@ -0,0 +1,203 @@
+
+
+
+Prod.Product
+%SerialObject,%XML.Adaptor
+
+
+Picklijn
+
+
+
+0
+
+
+
+%Integer
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%TimeStamp
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%Integer
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+
+%Status
+
+
+
+
+%Library.CacheSerialState
+dtoPicklijnState
+^OBJTimpl.WMSOrder.dtoPicklijnS
+
+
+ConsNr
+
+
+OrderNr
+
+
+KLNr
+
+
+KLNaam
+
+
+DueOutTime
+
+
+Verzendwijze
+
+
+LevAdresNaam
+
+
+LevAdresToenaam
+
+
+LevAdresStraat
+
+
+LevAdresGemeente
+
+
+OrderTekst
+
+
+OrderlijnNr
+
+
+ItemId
+
+
+Aantal
+
+
+OrderlijnTekst
+
+
+Taal
+
+
+LijnNr
+
+
+KortTekst
+
+
+ItemNm
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/dtoOntvangsten.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoOntvangsten.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/dtoOntvangsten.cls.xml (revision 66284)
@@ -0,0 +1,47 @@
+
+
+
+%SerialObject,%XML.Adaptor
+
+
+Ontvangsten
+
+
+
+0
+
+
+
+dtoOntvangst
+list
+
+
+
+
+Ontvangst:dtoOntvangst
+
+
+
+
+%Integer
+
+
+
+
+%Library.CacheSerialState
+dtoOntvangstenState
+^OBJTimpl.WM6F17.dtoOntvangstenS
+
+listnode
+
+
+Lijst
+
+
+
+
+
+
+
Index: OBJTimpl/BestandVerwerker.cls.xml
===================================================================
diff -u
--- OBJTimpl/BestandVerwerker.cls.xml (revision 0)
+++ OBJTimpl/BestandVerwerker.cls.xml (revision 66284)
@@ -0,0 +1,119 @@
+
+
+
+
+Nieuwe opdrachten die naar OBJT moeten zoals Picklijst en Ontvangen voorraad.
+en het verwerk van de resultaten van OBJT door admin zoals Pick resultaten en voorraad synchronisatie
+Prod.Product
+%RegisteredObject
+
+
+c:\WMSExchange\ObjtNaarAdmin
+
+
+
+c:\WMSExchange\ObjtNaarAdminArchive
+
+
+
+c:\WMSExchange\AdminNaarObjt
+
+
+
+c:\WMSExchange\AdminNaarObjtArchive
+
+
+
+30
+
+
+
+
+Do ##class(OBJTimpl.BestandVerwerker).%New().UitlezenOntvangenBestanden()
+0
+
+
+
+
+px:%XML.Adaptor,Label
+
+
+
+
+Label:%String
+%String
+
+
+
+
+PathAndFile:%String
+
+
+
+
+1
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/dtoOntvangst.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoOntvangst.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/dtoOntvangst.cls.xml (revision 66284)
@@ -0,0 +1,131 @@
+
+
+
+Prod.Product
+%SerialObject,%XML.Adaptor
+
+
+0109
+
+
+
+Ontvangst
+
+
+
+0
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Integer
+
+
+
+
+%String
+
+
+
+
+
+%String
+
+
+
+
+
+%TimeStamp
+
+
+
+
+%String
+
+
+
+
+
+
+
+
+
+
+PRNr,PaletId,Aantal
+
+
+
+
+%Library.CacheSerialState
+dtoOntvangstState
+^OBJTimpl.WMSO6F17.dtoOntvangstS
+
+
+ReceptieId
+
+
+ItemId
+
+
+KortTekst
+
+
+Aantal
+
+
+PalletId
+
+
+ControleTijdstip
+
+
+ControleMagazijnier
+
+
+ItemNm
+
+
+Locatie
+
+
+
+
+
+
+
Index: OBJTimpl/ConverteerNaarOBJT.cls.xml
===================================================================
diff -u
--- OBJTimpl/ConverteerNaarOBJT.cls.xml (revision 0)
+++ OBJTimpl/ConverteerNaarOBJT.cls.xml (revision 66284)
@@ -0,0 +1,84 @@
+
+
+
+
+ORDW converteren om alle openstaande pickopdrachten naar OBJT te sturen
+Te gebruiken voor FASE 2
+Prod.Product
+%RegisteredObject
+
+
+OBJTimpl.CheckObjectiveFase
+
+
+
+
+Do ##class(OBJTimpl.ConverteerNaarOBJT).%New().ConverteerConsolidatie(324988)
+%Status
+
+
+
+
+
+Do ##class(OBJTimpl.BestandVerwerker).%New().UitlezenOntvangenBestanden()
+
+
+
+
+CONSNr:%String
+
+
+
+
+CONSNr:%String,ORDNr:%String,OLNr:%String,SOLNr:%String
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/ZendPicklijst.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/ZendPicklijst.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/ZendPicklijst.cls.xml (revision 66284)
@@ -0,0 +1,35 @@
+
+
+
+%RegisteredObject
+
+
+dtoPicklijnen
+
+
+
+%Status
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/dtoCorrelateVoorraadNiveau.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoCorrelateVoorraadNiveau.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/dtoCorrelateVoorraadNiveau.cls.xml (revision 66284)
@@ -0,0 +1,88 @@
+
+
+
+persistent
+Prod.Product
+%Persistent,%XML.Adaptor
+
+
+VoorraadNiveau
+
+
+
+BOOLEAN
+1
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Integer
+
+
+
+
+%Integer
+
+
+
+
+%String
+
+
+
+
+%Library.CacheSerialState
+^OBJTimpl.W6F17.dtoCorrelatF0B9D
+dtoCorrelateVoorraadNiveauDefaultData
+^OBJTimpl.W6F17.dtoCorrelatF0B9D
+^OBJTimpl.W6F17.dtoCorrelatF0B9I
+dtoCorrelateVoorraadNiveauState
+^OBJTimpl.W6F17.dtoCorrelatF0B9S
+
+"1"
+
+%%CLASSNAME
+
+
+Fout
+
+
+
+
+ItemId
+
+
+Entiteit
+
+
+Aantal
+
+
+PRNr
+
+
+AantalOBJT
+
+
+AantalAdmin
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/dtoCorrelateVoorraadWijziging.cls.xml (revision 66284)
@@ -0,0 +1,83 @@
+
+
+
+persistent
+Prod.Product
+%Persistent,%XML.Adaptor
+
+
+VoorraadWijziging
+
+
+
+BOOLEAN
+1
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%Integer
+
+
+
+
+%Integer
+
+
+
+
+%String
+
+
+
+
+%Library.CacheStorage
+^OBJTimpl.W6F17.dtoCorrelatF4B4D
+dtoCorrelateVoorraadWijzigingDefaultData
+^OBJTimpl.W6F17.dtoCorrelatF4B4D
+^OBJTimpl.W6F17.dtoCorrelatF4B4I
+^OBJTimpl.W6F17.dtoCorrelatF4B4S
+
+listnode
+
+
+%%CLASSNAME
+
+
+ItemId
+
+
+PRNr
+
+
+Entiteit
+
+
+Delta
+
+
+AantalAdmin
+
+
+Fout
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml (revision 66284)
@@ -0,0 +1,150 @@
+
+
+
+
+Verwerken van de door OBJT gegenereerde voorraadlijst.
+Eerst wordt de voorraad uit de lijst verwerkt
+en daarna wordt voor de niet doorgegeven producten de voorraad op nul gezet
+TECH.RegisteredObject
+
+
+dtoCorrelatePicking
+
+
+
+OBJTimpl.CheckObjectiveFase
+
+
+
+%String
+
+
+
+%Integer
+
+
+
+1
+1
+%Status
+1
+
+
+
+
+
+Do ##class(OBJTimpl.WMSOrder.ImporteerVoorraadNiveau).%New().Verwerk(##class(TECH.Config.ConfigMgr).Instance().GetString("WMSExchange_RootDir")_"WMSExchange\ObjtNaarAdmin\"_"OBJT Voorraad TEST1.xml")
+XMLreader:%XML.Reader
+
+
+
+
+XMLreader:%XML.Reader
+
+
+
+
+PickLijst:OBJTimpl.WMSOrder.dtoAfmeldenPicking
+
+
+
+
+0
+
+
+
+
+0
+
+
+
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/ImporteerVoorraadWijziging.cls.xml (revision 66284)
@@ -0,0 +1,127 @@
+
+
+
+
+Verwerken van de door OBJT gegenereerde voorraadlijst.
+Eerst wordt de voorraad uit de lijst verwerkt
+en daarna wordt voor de niet doorgegeven producten de voorraad op nul gezet
+TECH.RegisteredObject
+
+
+dtoCorrelateVoorraadWijziging
+
+
+
+OBJTimpl.CheckObjectiveFase
+
+
+
+1
+1
+%Status
+1
+
+
+
+
+
+
+
+
+Entiteit:%String,ItemId:%String,VoorraadWijziging:%Decimal
+
+
+
+
+
+
+
+
+Entiteit:%String,PRNr:%String,VoorraadWijziging:%Decimal
+0
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: OBJTimpl/WMSOrder/ZendInitieleVoorraad.cls.xml
===================================================================
diff -u
--- OBJTimpl/WMSOrder/ZendInitieleVoorraad.cls.xml (revision 0)
+++ OBJTimpl/WMSOrder/ZendInitieleVoorraad.cls.xml (revision 66284)
@@ -0,0 +1,116 @@
+
+
+
+
+Doorgeven van ontvangen goederen naar OBJT. De receptielijn wordt automatisch gestockeerd.
+Prod.Product
+%RegisteredObject
+
+
+dtoOntvangsten
+
+
+
+
+
+
+
+1
+
+
+
+
+1
+0
+0 Do WARN^vhTXTPOP("Niet gekoppeld aan OBJT","") Quit ;OBJT
+ If $P(^ORDW("D",CONSNr),D)'=7587 Do WARN^vhTXTPOP("Klant is niet Halux, nl. "_$P(^ORDW("D",CONSNr),D),"") Quit ; Transferorder
+ If $$CONSSTAT^EWCORR(CONSNr)'="B" Do WARN^vhTXTPOP("Deze bon is nog niet geboekt!","") Quit
+ If OLUNr,ORDNr,CONSNr,$P(OrdRec,D,9) Do
+ . Set Aantal=$P(OrdRec,D,9)
+ . Set PaletId=$$ASK^vhINP("Geef Paletid voor OBJT: ",10,"",$$$PRGet($$$IdentNummer)_" "_$$$PRGet($$$KortTekst)_" Aantal:"_Aantal)
+ . Quit:PaletId="" Quit:$E(PaletId)="-"
+ . Do ##class(OBJTimpl.WMSOrder.ZendInitieleVoorraad).ZendProductEnPallet(PRNr ,PaletId, Aantal)
+ . ; Voorraad terug verplaatsen van werkvloer naar voorraad
+ . Do STORE^PRSTOCK("W","O",PRNr,-Aantal,"OBJT Overdracht initiele voorraad")
+ . Do STORE^PRSTOCK("F","O",PRNr,Aantal,"OBJT Overdracht initiele voorraad")
+ . ;Fase 1 : product markeren als Langgoed -> VerticaleLift
+ . Do $$$PRSet($$$OpslagZone,3)
+]]>
+
+
+
+%Status
+
+
+
+
+1
+PRNr:%String,PaletId:%String,Aantal:%String
+
+
+
+
+PRNr:%String
+
+
+
+
+PaletId:%String
+
+
+
+
+PRNr:%String,PaletId:%String,Aantal:%Integer
+
+
+
+
+
+
+
+
+
+