Tengo un webpanel en el cual selecciono algunos datos en intento enviarlo a un procedimiento que tiene como regla 5 variables que deberían de ser enviadas desde el webpanel, en la parte de patterns y entity services en una transacción que está asociada al webpanel he creado un botón con el nombre de enviar y  al darle f4 he agregado un código en event begin code, este código lo he copiado de la parte de webpanel por que he activado el multidelete en la transaccion pero yo no quiero eliminar los registros yo solo quiero enviar los datos seleccionados a un procedimiento con el nombre Eliminarrecibo

<!-- begin snippet: js hide: false console: false babel: false -->

<!-- language: lang-js -->

    	Event Start
    	Do 'LoadSelectedRows'
    	If K2BIsAuthorizedActivityName.Udp(!"PEMTN008", !"PEMTN008", K2BStandardActivityType.Delete, !"",!"")
    		If &SelectedRows.Count > 0
    			&ConfirmMessage = format('¿Está seguro que quiere eliminar %1 número de recibo procesados?', &SelectedRows.Count)
    			&ConfirmationSubId = !"Confirm_DoMultipleDelete"
    			TableConditionalConfirm.Visible = True
    		Else
    			msg("K2BT_NoRowsSelectedError")
    		EndIf
    	EndIf
    	EndEvent
    	
    	Sub 'LoadSelectedRows'
    	&SelectedRows = new()
    	For Each line In Grid
    		If &Selected = True
    			&SelectedRow = new()
    			&SelectedRow.PemRenIde = PemRenIde
    			&SelectedRow.PemRenAnh = PemRenAnh
    			&SelectedRow.PemRenMes = PemRenMes
    			&SelectedRow.PemRenNro = PemRenNro
    			&SelectedRow.PemRenNdc = PemRenNdc
    			&SelectedRow.PemRenLot = PemRenLot
    			&SelectedRow.PemRenBen = PemRenBen
    			&SelectedRow.PemRenLel = PemRenLel
    			&SelectedRow.PemRenBel = PemRenBel
    			&SelectedRows.Add(&SelectedRow)
    		EndIf
    	EndFor
    EndSub
    Sub 'Confirm_DoMultipleDelete'
    	Do 'LoadSelectedRows'
    	If K2BIsAuthorizedActivityName.Udp(!"PEMTN008", !"PEMTN008", K2BStandardActivityType.Delete, !"",!"")
    		If &SelectedRows.Count > 0
    			// Code added in [MultipleDelete.BeginCode] --- START
    			&DeletedCount = 0
    			&ErrorCount = 0
    			For &SelectedRow in &SelectedRows
    				&MultipleDelete_BC.Load(&SelectedRow.PemRenIde)
    					//&MultipleDelete_BC.Delete()
    				&MultipleDelete_BC = Eliminarrecibo.Udp((PemRenAnh,PemRenMes, PemRenLot.ToString(), PemRenNdc.ToString(), PemRenIde))
    				If &MultipleDelete_BC.Success()
    					&DeletedCount += 1
    				Else
    					&ErrorCount += 1
    					&ErrorMessage = format('Número de recibo procesado "%1" no pudo ser eliminado por causa de estos errores:', &MultipleDelete_BC.PemRenLot)
    					For &Message in &MultipleDelete_BC.GetMessages()
    						&ErrorMessage += newline() + " - " + &Message.Description
    					EndFor
    					msg(&ErrorMessage)
    				EndIf
    			EndFor
    			If &ErrorCount > 0
    				Rollback
    				msg('Ningún Número de recibo procesado fue eliminado')
    			Else
    				Commit
    				msg(format('%1 número de recibo procesados eliminados', &DeletedCount))
    			EndIf
    			Grid.Refresh()
    			
    			// Code added in [MultipleDelete.BeginCode] --- END
    		Else
    			msg("K2BT_NoRowsSelectedError")
    		EndIf
    		
    	EndIf
    EndSub

<!-- end snippet -->