serial UglyPickingCNTs,KeyCodesCNTs,MakovaDrawTextCnts Default %Library.TMFormClass Args:%String cache 0 document literal RGID:%String,CheckOnly:%Boolean=0 cache 0 %Library.Boolean document literal %Library.Boolean 0 %Library.Integer $$$DTLEFT+$$$DTVCENTER+$$$DTSINGLELINE+$$$DTENDELLIPSIS %Library.TMForm %Library.String %TMShape %Library.Boolean 0 %Library.String "(onbekend)" %TMButton %TMButton %TMComboBox %TMGroupBox %TMGroupBox %TMRadioButton %TMRadioButton %TMRadioButton %TMRadioButton %TMRadioButton %TMEdit %TMEdit initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal SunkenIndex:%Integer cache 0 %Library.String document literal ..#ciDetail wo gevonden, dit is de receptiegroep New Loop Set Loop=SunkenIndex For Set Loop=Loop-1 Quit:(..cbbBuffer.Items.GetObjects(Loop)'=..#ciDetail) Quit ..cbbBuffer.Items.GetStrings(Loop) ]]> cache 0 %Library.String document literal cache 0 %Library.String document literal cache 0 %Library.String document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status 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 cache 0 %Library.Boolean document literal cache 0 document literal yep, toon enkel de tijd .. Else Do ... Set DateTimeStr=$ZT(Time,2)_" ("_$P($ZD(Date,2)," ",1,2)_")" ;-> nope, toon tijd+datum .. Do ..cbbBuffer.Items.AddObjectItem($S(Closed:"[C] ",1:"")_UserID_" - "_DateTimeStr,..#ciDetail,VolgNrLoop) 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 1 0 %TMRadioButton cache 0 %Library.Boolean document literal 3) && ($$$UCase($E(..txtPalletVast.Text,1,3))?1(1"TBX",1"TBP",1"SFS",1"O10")) Quit IsGeldigeID ]]> %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 gbLocatie gbPallet cbbBufferItemIsChanged SEP ShowClosedBuffers UserId AutoPopupAantal DrawFlags PalletScanPreamble rbNadienInscannen rdScanNadien