serial UglyPickingCNTs Default %Library.TMFormClass %Library.Boolean 0 %Library.String %Library.TMForm %Library.String %Library.String %Library.String %TMShape %TMButton %TMButton %TMButton %TMButton %TMLabel %TMLabel %TMListView Destructor for SMWrap forms. cache 0 %Library.Status document literal initvalue:%String cache 0 %Status document literal cache 0 document literal ; Ctl3D = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; GridLines = True ; HotTrackStyles = [] ; ReadOnly = True ; RowSelect = True ; ParentFont = False ; TabOrder = 0 ; ViewStyle = vsReport ; OnDblClick = lvProductsDblClick ; OnSelectItem = lvProductsSelectItem ; end ; object btnDelay: CButton ; Left = 4 ; Top = 198 ; Width = 51 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&DELAY' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 3 ; OnClick = btnDelayClick ; end ; object btnBijladenAuto: CButton ; Left = 54 ; Top = 198 ; Width = 51 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&BIJLDN' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 4 ; OnClick = btnBijladenAutoClick ; end ; object btnChange: CButton ; Left = 104 ; Top = 198 ; Width = 56 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&WIJZIG' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 1 ; OnClick = btnChangeClick ; end ; object btnProcess: CButton ; Left = 159 ; Top = 198 ; Width = 68 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&PROCESS' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 2 ; OnClick = btnProcessClick ; end ;end ]]> Args:%String cache 0 document literal cache 0 document literal ConfirmDelay:%Library.Boolean=0 cache 0 document literal Item:%TMListItem,Selected:%Boolean cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal 0) ..lvProducts.Selected=..lvProducts.Items.GetItems(0) Set MApplication.ScreenCursor=$$$crHourGlass ;Lijst met 'te doen' reservaties verwerken (PROCESS) Set ..AllocOK=$$$cmReservatie.ProcessUnFinishedZeroPalletIDs(..ConsNr,..Magazijn) Set MApplication.ScreenCursor=$$$crDefault If ..AllocOK Do . $$$WriteToLog("Re-allocation success!") . Do ..Form.Close() Else Do . $$$WriteToLog("Re-allocation failed! Confirm delay...") . Do ..EXEDelay(1) ;Allocation=mislukt, stel het order uit..., 1=vraag met msgbox of uitstellen ok is Set Sender.Enabled="True" ;End of user code s Args=$lb(Sender) q ;============================================================================== ChangeQty(PalResID,NewAantal) Quit:('##class(Flow.OrderWMS.PalletReservatie).%ExistsId(PalResID)) If NewAantal=0 Do . Do ##class(Flow.OrderWMS.PalletReservatie).%DeleteId(PalResID) Else Do . New PalResObj . Set PalResObj=##class(Flow.OrderWMS.PalletReservatie).%OpenId(PalResID) . Set PalResObj.AantalTePicken=NewAantal . Do PalResObj.%Save() . Do PalResObj.%Close() Quit ]]> cache 0 document literal 0) ..lvProducts.Selected=..lvProducts.Items.GetItems(0) Quit ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form lblHeader lblKlant Label1 Label2 ListView1 Shape btnCancel btnDeelPick btnFullPallet lblLocatie lblPallet lvProducts ConsNr Magazijn PalletID Locatie lblFailedReservation btnChange btnProcess AllocOK btnDelay Button1 btnBijladenAuto