serial UglyPickingCNTs,KeyCodesCNTs Default %Library.TMFormClass %Library.String %Library.TMForm %Library.Boolean 0 %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %Library.String %Library.Boolean 0 %Library.Boolean %Library.Boolean 0 %TMPanel %Library.String %Library.String -1 %Library.String %TMShape %TMShape %TMShape %TMShape %TMShape %Library.String -1 %TMButton %TMButton %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMLabel %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal ProdNr:%String cache 0 document literal cache 0 %Library.Integer document literal initvalue:%String cache 0 MApplication document literal RGID,VolgNr,LijnNr:%String cache 0 %Library.Boolean document literal initvalue:%String cache 0 %Library.Status document literal Value:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal verwijder buffer! If BufferlijnIsDeleted && $$$cmReceptie.IsBufferEmpty(..RGID,..VolgNr) Do Quit . Do $$$cmReceptie.RemoveBuffer(..RGID,..VolgNr) . Set ..Form.ModalResult=$$$mrCancel If $LI(tmpStatus)<0 Do Quit . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONERROR) ; CHANGE LOC & PAL If 'BufferlijnIsDeleted Do . Set tmpStatus=$$$cmReceptie.ChangeBufferLocAndPal(..RGID,..VolgNr,..LijnNr,..txtLocatie.Text,..txtPalletID.Text) If $LI(tmpStatus)<0 Do Quit . ; Volgende MsgBox is te zien als: . ; ChangeBufferError | ChangeBufferLocAndPalError (nt indien BufferIsDeleted) . ; 0 | 0 -> No . ; 0 | 1 -> YES . ; 1 | 0 -> No (quit after 1st check) . ; 1 | 1 -> No (quit after 1st check) . ; => MAW het doel is bereikt, tonen indien enkel een ChangeBufferLocAndPalError is opgetreden... . Do pdaMsgBox^vhVisual(..Form.Caption,$LI(tmpStatus,2),$$$MBICONERROR) Set ..lblAantal.Caption="OK" Do MApplication.ProcessMessages() Hang 0.25 Set ..Form.ModalResult=$$$mrOk ;End of user code s Args=$lb(Sender) q ]]> cache 0 %Library.Boolean document literal Aantal:%Integer cache 0 document literal Args:%String cache 0 document literal AvailableQty Do .. Set EarlyQuit=1 .. Do ..iUpdateAantal(tmpAantal) . Else Do .. Do pdaMsgBox^vhVisual(..Form.Caption,"Het opgegeven aantal ("_tmpAantal_") is groter dan de rest van het aantal besteld ("_AvailableQty_").",$$$MBICONERROR) .. Do AantalForm.mmoAantal.SelectAll() Do AantalForm.%Close() ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState list "%Library.TMFormClass" Address Form Button1 Button2 Button3 Button4 Button5 btnCancel btnCancel2 Edit1 Edit2 Label1 Label2 btnAdres btnAlle btnBon btnHalux btnProduct ControlMode Memo1 NumberEdit1 GroupBox1 GroupBox2 RadioButton1 RadioButton2 RadioButton3 RadioButton4 RadioButton5 RadioButton6 RadioButton7 Shape1 btnSelect cbbBuffer rbPalletVast txtPalletVast rbPalletInTeScannen rbViaProduct rbLocatieInTeScannen rbLocatieVast rbPalletViaProduct txtLocatieVast btnActies btnKlaar btnClose btnInc btnWijzig lblLocatie lblPalletID lvProducts txtLocatie txtPallet txtProduct LocatieVast PalletVast lblKortTekst lblLangTekst Edit3 Label3 Panel1 txtPalletID Edit4 lblKlant lblProduct lblToelevering Label5 Label6 Label7 Label8 Shape2 Shape3 Label10 Label11 Label12 Label13 Shape4 Label14 Label15 Label16 Label4 Shape5 Shape6 Label54 lblAantal lblDossier lblReedsIngescand lblRest lblTotaal LijnNr RGID VolgNr lblReedsIngescandTxt ProductNr MyOrigQtyDone SEP OrigProductHasChanged AssocToelev IsNew