Index: OBJTimpl/WMSOrder/ImporteerPicking.cls.xml =================================================================== diff -u -r69094 -r69672 --- OBJTimpl/WMSOrder/ImporteerPicking.cls.xml (.../ImporteerPicking.cls.xml) (revision 69094) +++ OBJTimpl/WMSOrder/ImporteerPicking.cls.xml (.../ImporteerPicking.cls.xml) (revision 69672) @@ -58,18 +58,29 @@ Set ..CONSNr = $E(ConsolidatieNr,5,10) Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Verwerk consolidatie "_ ..CONSNr) - - + Quit:ConsolidatieNr?1"HK"1.E ; Herbevoorrading Kardex #dim Geannuleerd as %Boolean = ##class(TECH.StringUtils).Equals(..OrderOphaler.GeefStatusVertaald(ConsolidatieNr) , "Geannuleerd","Niet in OBJT") + #dim PickingVerwijderd as %Boolean = $$$False If Geannuleerd { - #dim PickLijnIterator as TECH.ResultSetIterator = ..PickLijnenOphaler.GeefIteratorGeannuleerdOrderAdmin(..CONSNr) + Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Verwerking annulatie consolidatie "_ ..CONSNr) + #dim Hoofding as Flow.OrderWMS.Hoofding = ##class(Flow.OrderWMS.HoofdingRepository).%New().GeefViaID(..CONSNr) + If Hoofding.StatusWMS = "W" { + Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Er was nog niks gepicked, dus we verwijderen de picking en markeren dat het order niet direct terug mag doorgestuurd worden "_ ..CONSNr) + DO UNMARK^EWORDST(..CONSNr) + Set PickingVerwijderd = $$$True + } else { + Do ##class(vhLib.Logger).%New("OBJT_WMS").Info("Er zijn al lijnen gepicked, dus we verwerken het bericht voor picking "_ ..CONSNr) + #dim PickLijnIterator as TECH.ResultSetIterator = ..PickLijnenOphaler.GeefIteratorGeannuleerdOrderAdmin(..CONSNr) + } } else { Set PickLijnIterator = ..PickLijnenOphaler.GeefIterator(ConsolidatieNr) } + Quit:(PickingVerwijderd) + #dim AantalPerOrderLijn as %CacheString K AantalPerOrderLijn