1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | For Each selectedItem As Object In SelectedItems
Dim organizacaoBiz As SDKBiz = SDK.Business.CreateBiz("ma") Dim orgResult as PHCResult = organizacaoBiz.getNewInstance() Dim myVO as maVO = GenericVO.getNewInstance(of MAVO) myVO.ref = selectedItem.ref myVO.serialnumber = selectedItem.serialnumber myVO.serialnumber2 = selectedItem.serialnumber2 myVO.marca = selectedItem.marca myVO.modelo = selectedItem.modelo myVO.obs = selectedItem.obs
messagesList.Addrange(organizacaoBiz.save(myVO))
If messages.count() = 0 then successList.Add(New With { .ref = myVO.ref, .serialnumber = myVO.serialnumber, .navigationUrl="mainform/ma/view;stamp=" & myVO.mastamp }) End If
Next
|