serial KeyCodesCNTs,UglyPickingCNTs Default %Library.TMFormClass %Library.String %Library.Integer %Library.String %Library.TMForm %Library.String 0 %Library.Boolean %Library.Boolean %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %Library.Boolean 0 %Library.String 0 %TMShape %TMShape %TMShape %TMShape %TMShape %TMShape %TMButton %TMButton %TMButton %Library.String -1 %Library.String %Library.List %Library.String 0 %Library.String %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMPanel %TMPanel %TMPanel %TMPanel %TMEdit %TMEdit %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal lbLocation,PalletID:%String cache 0 document literal cache 0 %Library.Boolean document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal ScannedLocation,PalletID,Product:%String,UserQtyPcs:%Integer cache 0 %Library.Boolean document literal QtyPcs Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,"Kan opgegeven aantal niet bijladen (maximum "_QtyPcs_").",$$$MBICONINFORMATION) Else Do . Set ..lblAantal.Caption=UserQtyPcs Quit 1 ]]> ScannedLocation,PalletID:%String cache 0 %Library.Boolean 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 gn cyclecount... ;GO FOR IT! Set ..btnKlaar.Enabled="False" Set ..lblAantal.Caption="Busy" Do MApplication.ProcessMessages() New tmpStatus Set tmpStatus=$$$cmOpslag.Bijladen(BL,BP,BS,DL,DP,DS,..Product,Qty,"Bijladen") Set ..btnKlaar.Enabled="True" If $LI(tmpStatus)<0 Do . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONINFORMATION) . Set ..Form.ModalResult=$$$mrCancel Else Do . Do ..AskForResetToAutoMag(BL,BP) . Set ..lblAantal.Caption="OK" . Do MApplication.ProcessMessages() . ;Hang 0.25 . Set ..Form.ModalResult=$$$mrOk Quit ;------------------------------------------------------------------------------ bkcRCP New DL ;DoelLocatie nr $LB Set DL=$$$cmGeneral.GetLocationFromScan(..txtDoelLocatie.Text) If DL="" Do Quit . Do pdaMsgBox^vhVisual(..Form.Caption,"De doellocatie is niet langer geldig!",$$$MBICONINFORMATION) New Result,IsNewPallet Set Result=$$$cmGeneral.CompleteLocationViaPalletID(.DL,..txtDoelPalletID.Text,.IsNewPallet) If 'IsNewPallet && (Result'="") Do Quit . Do pdaMsgBox^vhVisual(..Form.Caption,Result,$$$MBICONINFORMATION) ;IsNewPallet Set Result="" Set:(IsNewPallet) Result=$$$cmGeneral.CompleteLocationViaEmptyLoc(.DL,..txtDoelPalletID.Text) If (Result'="") Do Quit . Do pdaMsgBox^vhVisual(..Form.Caption,Result,$$$MBICONINFORMATION) ;Overige velden ophalen New DP Set DP=..txtDoelPalletID.Text New Qty Set Qty=+$TR(..lblAantal.Caption,".","") ;Punten verwijderen ;Cycle-Count fields invullen If ..PerformCycleCount Do . Set ..PerformCycleCount=..CreateCCData() ;Indien create mislukt->gn cyclecount... ;GO FOR IT! Set ..btnKlaar.Enabled="False" Set ..lblAantal.Caption="Busy" Do MApplication.ProcessMessages() New tmpStatus Set tmpStatus=$$$cmOpslag.VerplaatsPalletOrProdFromRCP(..txtBronPalletID.Text,DL,..txtDoelPalletID.Text,..Product,"Stockage ToRecv Prod") Set ..btnKlaar.Enabled="True" If $LI(tmpStatus)<0 Do . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONINFORMATION) . Set ..Form.ModalResult=$$$mrCancel Else Do . Set ..lblAantal.Caption="OK" . Do MApplication.ProcessMessages() . ;Hang 0.25 . Set ..Form.ModalResult=$$$mrOk Quit ]]> cache 0 document literal cache 0 %Library.Boolean document literal positief afsluiten (locatie niet checken aangezien deze nog moet wo bepaald) If ..InRCPMode Do Quit 1 . Do dcvdlapSetInterfaceOk() New BronLocation Set BronLocation=$$$cmGeneral.GetLocationFromScan(..txtBronLocatie.Text) If BronLocation="" Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen geldige bronlocatie ingescand!",$$$MBICONINFORMATION) New BronIsInTransit ;Bij transit mag bronloc=doelloc (meerder pals mogelijk in transit) Set BronIsInTransit=$$$cmGeneral.LocMIsInTransit($LI(BronLocation)) If (..txtBronLocatie.Text=..txtDoelLocatie.Text) && ('BronIsInTransit) Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,"Bron- en doellocatie zijn identiek (non-transit)!",$$$MBICONINFORMATION) . Do ..txtDoelLocatie.SetFocus() . Do ..txtDoelLocatie.SelectAll() New DoelLocation Set DoelLocation=$$$cmGeneral.GetLocationFromScan(..txtDoelLocatie.Text) If DoelLocation="" Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,"Er is geen geldige doellocatie ingescand!",$$$MBICONINFORMATION) . Do ..txtDoelLocatie.SetFocus() . Do ..txtDoelLocatie.SelectAll() New Result,IsNewPallet Set Result=$$$cmGeneral.CompleteLocationViaPalletID(.DoelLocation,..txtDoelPalletID.Text,.IsNewPallet) If 'IsNewPallet && (Result'="") Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,Result,$$$MBICONINFORMATION) ;IsNewPallet Set Result="" Set:(IsNewPallet) Result=$$$cmGeneral.CompleteLocationViaEmptyLoc(.DoelLocation,..txtDoelPalletID.Text) If (Result'="") Do Quit 0 . Do pdaMsgBox^vhVisual(..Form.Caption,Result,$$$MBICONINFORMATION) Do dcvdlapSetInterfaceOk() Quit 1 ;------------------------------------------------------------------------------ dcvdlapSetInterfaceOk() ;Everything OK Set ..txtDoelLocatie.Enabled="False" Set ..txtDoelLocatie.Color=$ZHEX("91FFFF") Set ..txtDoelPalletID.Enabled="False" Set ..txtDoelPalletID.Color=$ZHEX("91FFFF") Set ..btnKlaar.Enabled="True" Set ..pnlAantallen.Visible="True" Quit ]]> ProductNr,AantalBijTeLaden,AantalOpAnderePallet:%Integer cache 0 document literal 6 Do . Set ..lblAantal.Font.Size=14 Set ..lblAantal.Text=$$DottedInt^vhLib(AantalBijTeLaden) ;PRODUCT LEV QUERY + AANTAL UPDATE New RS,Kx,Gx Set RS=##class(%ResultSet).%New("Prod.ProductPrijs:GetVerpakkingen") Do RS.Execute(ProductNr) If 'RS.Next() Do Quit . Do iSetKx("") . Do iSetGx("") . Do iSetStuks(AantalBijTeLaden,AantalOpAnderePallet) Do iSetGx(RS.Get("GrootVerpakking"),.AantalBijTeLaden,.AantalOpAnderePallet) Do iSetKx(RS.Get("NormaleVerpakking"),.AantalBijTeLaden,.AantalOpAnderePallet) Do iSetStuks(AantalBijTeLaden,AantalOpAnderePallet) Do RS.%Close() Quit ;------------------------------------------------------------------------------ ;------------------------------------------------------------------------------ iSetGx(Gx,AantalBijTeLaden,AantalOpAnderePallet) If Gx="" Do . ;Foutieve of niet opgegeven Gx . Set ..lblGx.Enabled="False" . Set ..lblGx.Caption="Gx" . Set ..lblBijladenGx.Enabled="False" . Set ..lblBijladenGx.Caption="0" . Set ..lblNieuwGx.Enabled="False" . Set ..lblNieuwGx.Caption="0" Else Do . ;Gx aanwezig, aantal weergeven . Set ..lblGx.Caption="Gx"_Gx . ;Telling uitvoeren met opgegeven AantalBijTeLaden . Set ..lblBijladenGx.Caption=$$DottedInt^vhLib(AantalBijTeLaden\Gx) . Set ..lblBijladenGx.Enabled=$S(..lblBijladenGx.Caption="0":"False",1:"True") . ;Telling uitvoeren met opgegeven AantalOpAnderePallet . Set ..lblNieuwGx.Caption=$$DottedInt^vhLib(AantalOpAnderePallet\Gx) . Set ..lblNieuwGx.Enabled=$S(..lblNieuwGx.Caption="0":"False",1:"True") . Set AantalBijTeLaden=AantalBijTeLaden#Gx . Set AantalOpAnderePallet=AantalOpAnderePallet#Gx Quit ;------------------------------------------------------------------------------ iSetKx(Kx,AantalBijTeLaden,AantalOpAnderePallet) If Kx="" Do . ;Foutieve of niet opgegeven Kx . Set ..lblKx.Enabled="False" . Set ..lblKx.Caption="Kx" . Set ..lblBijladenKx.Enabled="False" . Set ..lblBijladenKx.Caption="0" . Set ..lblNieuwKx.Enabled="False" . Set ..lblNieuwKx.Caption="0" Else Do . ;Kx aanwezig, aantal weergeven . Set ..lblKx.Caption="Kx"_Kx . ;Telling uitvoeren met opgegeven AantalBijTeLaden . Set ..lblBijladenKx.Caption=$$DottedInt^vhLib(AantalBijTeLaden\Kx) . Set ..lblBijladenKx.Enabled=$S(..lblBijladenKx.Caption="0":"False",1:"True") . ;Telling uitvoeren met opgegeven AantalOpAnderePallet . Set ..lblNieuwKx.Caption=$$DottedInt^vhLib(AantalOpAnderePallet\Kx) . Set ..lblNieuwKx.Enabled=$S(..lblNieuwKx.Caption="0":"False",1:"True") . Set AantalBijTeLaden=AantalBijTeLaden#Kx . Set AantalOpAnderePallet=AantalOpAnderePallet#Kx Quit ;------------------------------------------------------------------------------ iSetStuks(AantalBijTeLaden,AantalOpAnderePallet) ;Telling uitvoeren met opgegeven AantalBijTeLaden Set ..lblBijladenStuks.Caption=$$DottedInt^vhLib(AantalBijTeLaden) Set ..lblBijladenStuks.Enabled=$S(..lblBijladenStuks.Caption="0":"False",1:"True") ;Telling uitvoeren met opgegeven AantalOpAnderePallet Set ..lblNieuwStuks.Caption=$$DottedInt^vhLib(AantalOpAnderePallet) Set ..lblNieuwStuks.Enabled=$S(..lblNieuwStuks.Caption="0":"False",1:"True") ;Interface 'stuks' label Set ..lblStuks.Enabled=$S((..lblBijladenStuks.Caption="0") && (..lblNieuwStuks.Caption="0"):"False",1:"True") Quit ]]> 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 %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 txtDoelLocatie txtDoelPallet lblBijladenGx lblBijladenKx lblBijladenStuks lblNieuwGx lblNieuwKx lblNieuwStuks Label19 Label20 Label21 Label22 Label23 Label24 Label25 Label26 Label27 Label28 Label29 pnlPallet pnlSectie DoelLocation DoelPalletID txtDoelPalletID lblNieuwAanwezig txtBronLocatie txtBronPalletID Product BronSectie DoelSectie DoelQtyPcs IsNewPallet IsNewSectie ccCurrentQtyPcs ccLocID ccLocatie ccProduct ccSectie PalletScanPreamble InRCPMode