serial UglyPickingCNTs Default %Library.TMFormClass %Library.TMForm %Library.String %TMShape %TMShape %TMShape %Library.Boolean 0 %Library.Boolean 0 %Library.Boolean 0 %TMButton %TMButton %TMCheckListBox %TMLabel %TMLabel initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal cache 0 document literal 0 Do . Do pdaMsgBox^vhVisual(..Form.Caption,"Volgende palleten waren in gebruik en konden dus niet verplaatst worden: "_$$ListToPieces^vhLib(lbBusyPalletIDs,", ")_".",$$$MBICONINFORMATION) If ErrStr'="" Do . Do pdaMsgBox^vhVisual(..Form.Caption,"SendTransportViaProd error(s): "_ErrStr,$$$MBICONERROR) . $$$WriteToLog(".") If ..clbZendAuto.Items.Count=0 Do . Set ..Form.ModalResult=$$$mrOk Else Do . Set ..btnCancel.Caption="CLOSE" Quit ]]> initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal ProductNr:%String cache 0 %Library.Boolean 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 1 2 %Library.CacheSerialState list "%Library.TMFormClass" Address Form btnCancel btnCycleCount btnNieuweDoeldrager btnOverzichtPickDetails btnProductEtiket btnVerplaatsenPallet btnWijzigAantal TriggerChangeAantal TriggerCycleCount TriggerVerplaatsPallet btnVerplaatsPallet Label1 Shape1 Shape2 btnReden1 btnReden2 btnReden3 btnReden4 CCReden btnLoc1 btnLoc2 ZendAutoTo Button1 btnZendAuto lvAutoPallet clbZendAuto Shape3 Shape4 ProductNr lblKortTekst lblLangTekst