serial KeyCodesCNTs,UglyPickingCNTs Default %Library.TMFormClass 0 Args:%String cache 0 document literal %Library.Boolean 1 %Library.TMForm %Library.String %Library.Boolean 0 %Library.String "(onbekend)" %TMButton %TMButton %TMButton %TMButton %TMButton %TMSpeedButton %Library.Integer $$$imNone %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMListView %TMListView %TMPanel %TMShape %TMShape %TMShape %TMEdit %TMEdit %TMEdit %TMEdit %TMEdit Destructor for SMWrap forms. cache 0 %Library.Status document literal initvalue:%String cache 0 %Status document literal Locatie,PalletID:%Library.String cache 0 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 ; HideSelection = False ; HotTrackStyles = [] ; ReadOnly = True ; RowSelect = True ; ParentFont = False ; TabOrder = 2 ; ViewStyle = vsReport ; Visible = False ; OnKeyUp = lvProdsOnPalletKeyUp ; OnMouseDown = lvProdsOnPalletMouseDown ; end ; object btnCancel: CButton ; Left = 5 ; Top = 195 ; Width = 75 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&ESC' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 4 ; OnClick = btnCancelClick ; end ; object txtBronLocatie: CEdit ; Left = 17 ; Top = 3 ; Width = 96 ; Height = 16 ; BorderStyle = bsNone ; CharCase = ecUpperCase ; Ctl3D = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clGreen ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; MaxLength = 8 ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 0 ; OnClick = txtBronLocatieClick ; OnKeyDown = txtBronLocatieKeyDown ; end ; object txtBronPalletID: CEdit ; Left = 141 ; Top = 3 ; Width = 88 ; Height = 16 ; BorderStyle = bsNone ; CharCase = ecUpperCase ; Ctl3D = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clGreen ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 1 ; OnClick = txtBronPalletIDClick ; OnKeyDown = txtBronPalletIDKeyDown ; OnKeyPress = txtPalletIDKeyPress ; end ; object pnlVerplaatsen: CPanel ; Left = 1 ; Top = 111 ; Width = 230 ; Height = 75 ; BevelOuter = bvNone ; Color = 8454143 ; TabOrder = 6 ; Visible = False ; object lblDoelLocatieHeader: CLabel ; Left = 0 ; Top = 0 ; Width = 230 ; Height = 16 ; Alignment = taCenter ; AutoSize = False ; Caption = 'Doel locatie' ; Color = clBtnFace ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clNavy ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentColor = False ; ParentFont = False ; end ; object lblDoelLocatie: CLabel ; Left = 5 ; Top = 23 ; Width = 9 ; Height = 16 ; Caption = 'L' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; Transparent = True ; end ; object lblDoelPalletID: CLabel ; Left = 125 ; Top = 23 ; Width = 11 ; Height = 16 ; Caption = 'P' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; Transparent = True ; end ; object lblHerhalingPallet: CLabel ; Left = 25 ; Top = 53 ; Width = 111 ; Height = 16 ; Caption = 'Herhaling pallet' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; Transparent = True ; Visible = False ; end ; object txtDoelLocatie: CEdit ; Left = 18 ; Top = 20 ; Width = 96 ; Height = 22 ; CharCase = ecUpperCase ; Ctl3D = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; MaxLength = 8 ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 0 ; OnKeyDown = txtDoelLocatieKeyDown ; end ; object txtDoelPalletID: CEdit ; Left = 138 ; Top = 20 ; Width = 88 ; Height = 22 ; CharCase = ecUpperCase ; Ctl3D = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; MaxLength = 8 ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 1 ; OnKeyDown = txtDoelPalletIDKeyDown ; OnKeyPress = txtPalletIDKeyPress ; end ; object txtConfirmDoelPalletID: CEdit ; Left = 138 ; Top = 50 ; Width = 88 ; Height = 22 ; CharCase = ecUpperCase ; Ctl3D = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -13 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; MaxLength = 8 ; ParentCtl3D = False ; ParentFont = False ; TabOrder = 2 ; Visible = False ; OnKeyDown = txtConfirmDoelPalletIDKeyDown ; OnKeyPress = txtPalletIDKeyPress ; end ; end ; object lvPalletsWithProd: CListView ; Left = 1 ; Top = 111 ; Width = 230 ; Height = 75 ; BorderStyle = bsNone ; Color = 12639424 ; Columns = < ; item ; Caption = 'Locatie' ; Width = 72 ; end ; item ; Caption = 'Pallet' ; Width = 64 ; end ; item ; Alignment = taRightJustify ; Caption = 'Qty' ; end ; item ; Alignment = taRightJustify ; Caption = '#S' ; Width = 26 ; end ; item ; Caption = 'dataReadyForSendToAuto' ; Width = 0 ; end> ; Ctl3D = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [] ; GridLines = True ; HideSelection = False ; HotTrackStyles = [] ; ReadOnly = True ; RowSelect = True ; ParentFont = False ; TabOrder = 3 ; ViewStyle = vsReport ; Visible = False ; OnSelectItem = lvPalletsWithProdSelectItem ; end ; object btnRCP: CButton ; Left = 79 ; Top = 195 ; Width = 75 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&RCP' ; Enabled = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 8 ; OnClick = btnRCPClick ; end ; object btnTransitReceive: CButton ; Left = 153 ; Top = 195 ; Width = 75 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&TRNS/RCV' ; Enabled = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 7 ; OnClick = btnTransitReceiveClick ; end ; object btnProdDetail: CButton ; Left = 79 ; Top = 195 ; Width = 75 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&DETAIL' ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 9 ; Visible = False ; OnClick = btnProdDetailClick ; end ; object btnBijladen: CButton ; Left = 97 ; Top = 195 ; Width = 131 ; Height = 40 ; Anchors = [akLeft, akBottom] ; Caption = '&BIJLADEN' ; Enabled = False ; Font.Charset = DEFAULT_CHARSET ; Font.Color = clWindowText ; Font.Height = -11 ; Font.Name = 'MS Sans Serif' ; Font.Style = [fsBold] ; ParentFont = False ; TabOrder = 5 ; Visible = False ; OnClick = btnBijladenClick ; end ;end ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal cache 0 document literal "_..txtDoelPalletID.Text Set Status=$$$cmOpslag.ChangePalletID(..txtBronPalletID.Text,..txtDoelPalletID.Text,HistoryRemark) If $LI(Status)<0 Do . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(Status,2),$$$MBICONERROR) . Set ..Form.ModalResult=$$$mrAbort ;=failed Else Do . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(Status,2),$$$MBICONINFORMATION) . Set ..Form.ModalResult=$$$mrOk ;=failed Quit ]]> cache 0 document literal Value:%Boolean cache 0 %Library.Status document literal trans uitschakelen Set:(..InTransMode && Value) ..InTransMode=0 If ..InRCPMode Do . Set ..txtBronLocatie.Enabled="False" . Set ..txtBronLocatie.Text="RECEPTIE" . Set ..btnRCP.Caption="&DETECT" . Do ..txtBronPalletID.SetFocus() . Do ..txtBronPalletID.SelectAll() Else Do . Set ..txtBronLocatie.Enabled="True" . Set ..txtBronLocatie.Text="" . Set ..btnRCP.Caption="&RCP" . Do ..txtBronLocatie.SetFocus() . Do ..txtBronLocatie.SelectAll() Quit $$$OK ]]> Value:%Boolean cache 0 %Library.Status document literal RCP uitschakelen Set:(..InRCPMode && Value) ..InRCPMode=0 If ..InTransMode Do . Set ..txtBronLocatie.Enabled="False" . Set ..txtBronLocatie.Text="TRANS/REC" . Set ..btnTransitReceive.Caption="&DETECT" . Do ..txtBronPalletID.SetFocus() . Do ..txtBronPalletID.SelectAll() Else Do . Set ..txtBronLocatie.Enabled="True" . Set ..txtBronLocatie.Text="" . Set ..btnTransitReceive.Caption="&TRNS/RCV" . Do ..txtBronLocatie.SetFocus() . Do ..txtBronLocatie.SelectAll() Quit $$$OK ]]> initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal SwitchToMode:%Integer cache 0 %Library.Boolean document literal imStartUp -> imValidSource -> imBijladen ; -> imVerplaatsen -> imWijzigPalletID ; -> imVerplaatsPallet Quit:(..dCurrentInterfaceMode=SwitchToMode) 1 New SwitchIsOK Set SwitchIsOK=0 ;Eerst controleren of de switch toegelaten is If ..dCurrentInterfaceMode=$$$imNone Do ;imNone **************** . If SwitchToMode=$$$imStartUp Do ;-> imStartUp .. Set SwitchIsOK=1 Else If ..dCurrentInterfaceMode=$$$imStartUp Do ;imStartUp ************* . If SwitchToMode=$$$imValidSource Do ;-> imValidSource .. Set SwitchIsOK=1 Else If ..dCurrentInterfaceMode=$$$imValidSource Do ;imValidSource ********* . If SwitchToMode=$$$imVerplaatsen Do ;->imVerplaatsen .. Set SwitchIsOK=1 . Else If SwitchToMode=$$$imBijladen Do ;->imBijladen .. Set SwitchIsOK=1 Else If ..dCurrentInterfaceMode=$$$imBijladen Do ;imBijladen ************ . If SwitchToMode=$$$imZendAuto Do ;->imZendAuto .. Set SwitchIsOK=1 Else If ..dCurrentInterfaceMode=$$$imZendAuto Do ;imZendAuto ************ . If SwitchToMode=$$$imBijladen Do ;->imBijladen .. Set SwitchIsOK=1 Else If ..dCurrentInterfaceMode=$$$imVerplaatsen Do ;imVerplaatsen ********* . If SwitchToMode=$$$imWijzigPalletID Do ;->imWijzigPalletID .. Set SwitchIsOK=1 . Else If SwitchToMode=$$$imVerplaatsPallet Do ;->imVerplaatsPallet .. Set SwitchIsOK=1 ;Switch is niet gelukt, sluit maar af Quit:('SwitchIsOK) 0 Set ..dCurrentInterfaceMode=SwitchToMode ;Afhankelijk van de switch aanpassingen in interface aanbrengen en zo If ..dCurrentInterfaceMode=$$$imStartUp Do . Do ..iCOMPINITBronLocAndPal() . Set ..lvProdsOnPallet.Visible="False" . Set ..lvPalletsWithProd.Visible="False" . Set ..pnlVerplaatsen.Visible="False" . Set ..btnBijladen.Visible="False" . Set ..btnBijladen.Enabled="False" . Set ..btnWijzigPalletID.Visible="False" . Set ..btnWijzigPalletID.Enabled="False" . Set ..btnTransitReceive.Visible="True" . Set ..btnTransitReceive.Enabled="True" . Set ..btnRCP.Visible="True" . Set ..btnRCP.Enabled="True" . Set ..Form.Caption="Opslag" Else If ..dCurrentInterfaceMode=$$$imValidSource Do . Set ..btnTransitReceive.Visible="False" . Set ..btnRCP.Visible="False" . Set ..txtBronLocatie.Enabled="False" . ;Set ..txtBronLocatie.Color=$ZHEX("91FFFF") . Set ..txtBronPalletID.Enabled="False" . ;Set ..txtBronPalletID.Color=$ZHEX("91FFFF") . Set ..lvProdsOnPallet.Height=164 . Set ..lvProdsOnPallet.Visible="True" . Set ..Form.Caption="Opslag - Pallet Selectie" Else If ..dCurrentInterfaceMode=$$$imBijladen Do . Set ..btnBijladen.Visible="True" . Set ..btnBijladen.Caption="Bijladen" . Set ..Form.Caption="Opslag - Bijladen" . If ..InRCPMode Do .. Set ..btnBijladen.Left=153 .. Set ..btnBijladen.Width=75 .. Set ..btnProdDetail.Visible="True" . Else Do .. Set ..btnBijladen.Left=97 .. Set ..btnBijladen.Width=131 .. Set ..btnProdDetail.Visible="False" Else If ..dCurrentInterfaceMode=$$$imZendAuto Do . Set ..btnBijladen.Visible="True" . Set ..btnBijladen.Caption="Zend AUTO" . Set ..Form.Caption="Opslag - Zend AUTO" Else If ..dCurrentInterfaceMode=$$$imVerplaatsen Do . Do ..iCOMPINITDoelLocAndPal() . Set ..lvProdsOnPallet.Height=89 . Set ..lvPalletsWithProd.Visible="False" . Set ..pnlVerplaatsen.Visible="True" . Set ..Form.Caption="Opslag - Verplaatsen" Else If ..dCurrentInterfaceMode=$$$imWijzigPalletID Do . Set ..txtConfirmDoelPalletID.Enabled="False" . Set ..btnWijzigPalletID.Enabled="True" . Set ..Form.Caption="Opslag - Wijzig Pallet ID" Else If ..dCurrentInterfaceMode=$$$imVerplaatsPallet Do . Set ..txtDoelLocatie.Enabled="False" . Set ..txtDoelPalletID.Enabled="False" . Set ..Form.Caption="Opslag - Verplaats pallet" Quit 1 ]]> 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 Args:%String cache 0 document literal cache 0 %Library.Boolean document literal positief afsluiten (locatie niet checken aangezien deze nog moet wo bepaald) Quit:(..InRCPMode) 1 New Location If ..InTransMode || ..InRCPMode Do . Set Location=$$$cmGeneral.GetLocationViaLocID(..txtBronPalletID.Text) Else Do . Set Location=$$$cmGeneral.GetLocationFromScan(..txtBronLocatie.Text) If Location="" Do Quit 0 . If ..InTransMode || ..InRCPMode Do .. Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen geldige pallet ingescand!",$$$MBICONINFORMATION) . Else Do .. Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen geldige locatie ingescand!",$$$MBICONINFORMATION) If ..InTransMode && '$$$cmGeneral.LocMIsInTransit($LI(Location,1)) Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,"De overeenkomstige locatie is niet in de transit-zone!",$$$MBICONINFORMATION) Set:(..InTransMode || ..InRCPMode) ..txtBronLocatie.Text=$$$cmGeneral.GetScannedLocStrViaLocation(Location) ; GetTransLocStrViaLocation(Location) ; GetScannedLocStrViaLocation(..) New Result Set Result=$$$cmGeneral.CompleteLocationViaPalletID(.Location,..txtBronPalletID.Text) If Result'="" Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,"Pallet '"_..txtBronPalletID.Text_"' is onbekend!",$$$MBICONINFORMATION) New Status Set Status=##class(Flow.OrderWMS.PalletReservatie).IsPalletReservedByOthers(..txtBronPalletID.Text) If $LI(Status)<0 Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(Status,2),$$$MBICONERROR) Else If $LI(Status)=1 Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(Status,2)_$C(13,10,13,10)_"Probeer later eens opnieuw.",$$$MBICONINFORMATION) Quit 1 ]]> cache 0 %Library.Boolean document literal Product:%String cache 0 document literal 0) ..lvPalletsWithProd.Selected=..lvPalletsWithProd.Items.GetItems(0) Set MApplication.ScreenCursor=$$$crDefault Quit ]]> cache 0 document literal 0) ..lvProdsOnPallet.Selected=..lvProdsOnPallet.Items.GetItems(0) Do ..lvProdsOnPallet.SetFocus() Set MApplication.ScreenCursor=$$$crDefault Quit ;============================================================================== dcwpopNormal ;+1 optellen bij macro omdat deze gebaseerd zijn op de subitems van een listitem Set ..lvProdsOnPallet.Columns.GetItems($$$lvo1ProdKortTekst+1).Width=119 Set ..lvProdsOnPallet.Columns.GetItems($$$lvo1PalletID+1).Width=44 New RS Set RS=##class(%ResultSet).%New("EWMS.Inventory:GetPalletsWithSameProds") New tmpStatus Set tmpStatus=RS.Execute(..txtBronPalletID.Text) If $$$ISERR(tmpStatus) Do Quit . Do pdaMsgBox^vhVisual(..Form.Caption,$$ParseStatus^vhLib(tmpStatus),$$$MBICONERROR) . Do RS.%Close() Kill Prods,ProdNr,LocM For Quit:('RS.Next()) Do . Set ProdNr=+RS.Get("ProductNr") . Set LocM=RS.Get("LocM") . If RS.Get("LocID")=..txtBronPalletID.Text Do ;We tonen enkel de Qty van de huidige pallet .. Set Prods(ProdNr)=+RS.Get("QtyPcs") . Set Prods(ProdNr,LocM)=$G(Prods(ProdNr,LocM),0)+1 ;Aantal bijhouden van hoeveel maal een prod. voorkomt ie magazijn Do RS.%Close() ;Invullen in listview New ProdLoop,LocMLoop,ListItem,Locs Set (ProdLoop,LocMLoop)="" For Set ProdLoop=$O(Prods(ProdLoop)) Quit:(ProdLoop="") Do . Set ListItem=..lvProdsOnPallet.Items.Add() . Set ListItem.Caption=##class(Prod.Product).GetPropViaNr(ProdLoop,"KortTekst") ;Product KortTekst . If $D(Prods(ProdLoop)) Do .. Do ListItem.SubItems.Add($$DottedInt^vhLib((Prods(ProdLoop)))) ;Qty op ..txtBronPalletID.Text . Else Do .. Do ListItem.SubItems.Add("???") ;ERROR Qty op ..txtBronPalletID.Text . Set Locs="" . For Set LocMLoop=$O(Prods(ProdLoop,LocMLoop)) Quit:(LocMLoop="") Do .. Set Locs=Locs_","_Prods(ProdLoop,LocMLoop)_$$$cmGeneral.GetSuperShortMagazijn(LocMLoop) . Set Locs=$E(Locs,2,9999) ;Comma removal . Do ListItem.SubItems.Add(Locs) ;Prod te vinden op Locs . Do ListItem.SubItems.Add(ProdLoop) Quit ;------------------------------------------------------------------------------ dcwpopRCP ;+1 optellen bij macro omdat deze gebaseerd zijn op de subitems van een listitem Set ..lvProdsOnPallet.Columns.GetItems($$$lvo1ProdKortTekst+1).Width=163 Set ..lvProdsOnPallet.Columns.GetItems($$$lvo1PalletID+1).Width=0 New RS Set RS=##class(%ResultSet).%New("EWMS.ToReceive:QGetProdsViaPallet") New tmpStatus Set tmpStatus=RS.Execute(..txtBronPalletID.Text) If $$$ISERR(tmpStatus) Do Quit . Do pdaMsgBox^vhVisual(..Form.Caption,$$ParseStatus^vhLib(tmpStatus),$$$MBICONERROR) . Do RS.%Close() New ProdNr,ListItem,DoelPalletID,QtyPcs For Quit:('RS.Next()) Do . Set ProdNr=+RS.Data("ProductNr") . Set DoelPalletID=RS.Data("DoelPalletID") . Set ListItem=..lvProdsOnPallet.Items.Add() . Set ListItem.Caption=##class(Prod.Product).GetPropViaNr(ProdNr,"KortTekst") ;Product KortTekst . Set QtyPcs=$$DottedInt^vhLib(RS.Data("QtyPcs")) . Set:(DoelPalletID'="") QtyPcs="["_QtyPcs_"]" . Do ListItem.SubItems.Add(QtyPcs) . Do ListItem.SubItems.Add(DoelPalletID) ;toekomst . Do ListItem.SubItems.Add(ProdNr) ;Datacol die bevat prodnr bevat Quit ]]> cache 0 document literal cache 0 document literal 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 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 (1) MsgBox: bieden zijn gelijk (DoelLocation kan ook "" zijn) ; = | <> -> (2) Herhaling pallet ID -> Wijzig Pallet ID (DoelLocation mag ook "" zijn) ; <> | = -> (3) Verplaatsen van pallet ; <> | <> -> (4) Niet toegelaten: opdelen in verplaatsen+wijzigen PalletID If (Key=$$$keyEnter) Do ;&& ..dCOMPVALDoelLocAndPal() Do ;eigenlijk gn validatie nodig van doel . Set:(..txtDoelLocatie.Text="") ..txtDoelLocatie.Text=..txtBronLocatie.Text . Set:(..txtDoelPalletID.Text="") ..txtDoelPalletID.Text=..txtBronPalletID.Text . Set ..txtDoelLocatie.Text=$$AddLeadingChar^vhLib(..txtDoelLocatie.Text,"0",8) . Set ..txtDoelPalletID.Text=$$AddLeadingChar^vhLib(..txtDoelPalletID.Text,"0",8) . New EqualLocations,EqualPalletIDs . Set EqualLocations=(..txtBronLocatie.Text=..txtDoelLocatie.Text) . Set EqualPalletIDs=(..txtBronPalletID.Text=..txtDoelPalletID.Text) . If EqualLocations Do .. If EqualPalletIDs Do ;(1) ... Do pdaMsgBox^vhVisual(..Form.Caption,"Hoef pallet niet te verplaatsen: bron- en doelgegevens zijn identiek!",$$$MBICONINFORMATION) ... Do ..txtDoelPalletID.SelectAll() .. Else Do ;(2) ... Do ..iCOMPINITConfirmDoelPalletID() . Else Do .. If EqualPalletIDs Do ;(3) ... Do ..SwitchToInterfaceMode($$$imVerplaatsPallet) ... Do ..EXEVerplaatsPallet() .. Else Do ;(4) ... If ..lvProdsOnPallet.Items.Count=1 Do .... Do pdaMsgBox^vhVisual(..Form.Caption,"Het wijzigen van tegelijkertijd locatie en palletID voor één product kan enkel via bijladen!",$$$MBICONINFORMATION) ... Else Do .... Do pdaMsgBox^vhVisual(..Form.Caption,"Het wijzigen van tegelijkertijd locatie en palletID moet apart worden uitgevoerd!",$$$MBICONINFORMATION) ... Do ..txtDoelPalletID.SelectAll() ;End of user code s Args=$lb(Sender,Key,Shift) q ]]> Args:%String cache 0 document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form Label1 Label2 Label3 Shape1 Edit1 Label4 Shape2 Label5 Label6 Label7 Shape3 Label8 Panel1 btnCancel btnDeelPick btnFullPallet Edit2 Edit3 Edit4 Edit5 Edit6 Edit7 Label10 Label9 btnActies btnKlaar Label11 Label12 Label13 lblConsNrAndKlant lblKortTekst lblLangTekst lblLocatie lblProdNr txtAantal txtPickGx250 txtPickKx10 txtPickStuks txtRestGx250 txtRestKx10 txtRestStuks Locatie PalletID lblGx lblKx txtPickGx txtPickKx txtRestGx txtRestKx Shape4 lblAantal lblPickGx lblPickKx lblPickStuks lblRestGx lblRestKx lblRestStuks lblStuks Shape5 Shape6 Shape7 PalletReservaties lblProgress ConsNr Magazijn ProductNr PalletResID lblPalletID Label14 Panel2 pnlFull FullPick LastProdFromPallet mAantalAanwezig pnlAantallen Label15 Label16 Label18 pnlCycleCount PerformCycleCount ReCalcReservation lblTotaal txtGx txtKx txtStuks txtLocatie txtPalletID pnlDetails LocID InventoryID InSecondCycleCount LocationsID ListView1 ListView2 btnBijladen lvPalletsWithProd lvProdsOnPallet lblMsg Location lblNoProdSel Product CurrentMode lblHerhalingPallet txtConfirmDoelPallet txtDoelLocatie txtDoelPallet btnWijzigPalletID pnlVerplaatsen DoelLocation DoelPalletID BronLocation BronPalletID txtBronLocatie txtBronPalletID txtDoelPalletID txtConfirmDoelPalletID lblBronLocatie lblBronPalletID lblDoelLocatie lblDoelLocatieHeader lblDoelPalletID shAll shBronLocatie shBronPalletID dCurrentInterfaceMode Button1 UserId PalletScanPreamble btnTransitReceive InTransMode BijladenIsAllowed btnRCP InRCPMode btnProdDetail